刚刚做完的实验7

菜鸟97

assume cs:a,ds:b,
b segment
db '1975','1976','1977','1978','1979'                     
db '1980','1981','1982','1983','1984'
db '1985','1986','1987','1988','1989'
db '1990','1991','1992','1993','1994','1995'              ;年月 byte字节型数据，4X21=84 转换16进制 0~53


dd 16,22,382,1356,2390,8000,16000
dd 24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000
dd 1843000,2795000,3753000,4649000,5937000                ;收入，dword双字型数据， 4X21=84 转换16进制 54~0A7



dw 3,7,9,13,28,38,130,220,476,778,1001,1442
dw 2258,2793,4037,5635,8226,11542,14430,15257,17800       ;人数  word 字型数据  21X2=42  转换16进制   0A8~0D
                                                          ;年月 0~53 收入 54~A7 人数 0A7~0D1
b ends


biaoge segment
db 21 dup ('year summ ne ?? ')
biaoge ends



a segment                                                ; 程序开始
rukou:                                                   ; 指令入口
      mov ax,b                                           ; 取数据段地址
          mov ds,ax                                          ; 将数据段地址赋值给段寄存器 DS
          mov ax,biaoge                                      ; 取表格段地址
          mov es,ax                                          ; 用寄存器将表格段地址赋值到段寄存器 ES
          mov bx,0                                           ; 设置变量
          mov di,0                                           ; 设置变量
          mov si,0                                           ; 设置变量
          mov cx,15h                                         ; 设置循环
s:    mov ax,[bx]                                             ; 取年份
      mov es:[di],ax                                     ; 放入年份
          mov ax,[bx+2]                                      ; 取年份
          mov es:[di+2],ax                                   ; 放入年份
          mov ax,[bx+54h]                                    ; 取收入
          mov es:[di+5H],ax                                  ; 放入收入
          mov dx,[bx+56h]                                    ; 取收入
          mov es:[di+7H],dx                                  ; 放入收入
          mov ax,[si+0a8h]                                   ; 取人数
          mov es:[di+0ah],ax                                 ; 放入人数
          mov ax,es:[di+5h]                                  ; 取收入 放入AX 做除法准备
          mov dx,es:[di+7H]                                  ; 取收入 放入DX 做除法准备     
          div word ptr es:[di+0ah]                           ; 除与人数，算出人均收入，结果商储存在  AX 寄存器中 余储存在 DX 中  
          mov es:[di+0dh],ax                                 ; 将算好的结果放入 ES 段中 做好排序
          add bx,4                                           ; BX 加四 为下一行取年份和收入做准备
          add di,10H                                         ; DI 加十六  将 ES 段指向下一行
          add si,2                                           ; SI 加二  为下一行取人数做准备
          sub ax,ax                                          ; 为了不响应下一次处理数据和做除法，选择清零
          sub dx,dx                                          ; 为了不响应下一次处理数据和做除法，选择清零
          loop s                                             ; 结束循环
          
          
          mov ax,4e00h                           
          int 21h
          
          a ends
          end rukou

菜鸟97

希望可以结交更多的汇编朋友。