实验7

kjwmm

assume cs:code,ds:data,es:table

data segment
  db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
  db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
  db '1993','1994','1995'
  ;year
  dd  16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
  dd  345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
  ;summ
  dw  3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
  dw  11542,14430,15257,17800
  ;ne
data ends

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

code segment
start:mov ax,table
      mov es,ax
          mov ax,data
          mov ds,ax
          mov bx,0   ;控制行
          mov si,0   ;指向年份的第一个数据
          mov di,84  ;指向总收入的第一个数据
          mov bp,168 ;指向人数的第一个数据
          
          mov cx,21            
        s:mov ax,ds:[si]          ;写入年份
          mov es:[bx],ax
          mov ax,ds:[si+2]
          mov es:[bx+2],ax
          add si,4
          
          mov ax,ds:[di]
          mov es:[bx+5],ax        ;写入总收入
          mov ax,ds:[di+2]
          mov es:[bx+7],ax
          add di,4
          
          mov ax,ds:[bp]
          mov es:[bx+10],ax       ;写入人数 
          add bp,2
          
          mov ax,es:[bx+5]        
          mov dx,es:[bx+7]        ;写入人均收入
          div word ptr es:[bx+10]
          mov es:[bx+13],ax
          
          add bx,16 
          loop s 
          
          mov ax,4c00h
          int 21h
code ends
end start

ytj114514

什么啊？？？我才小学???

kjwmm

哈？