实验七

小C-c

assume cs:codesg
data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984','1985','1986','1987','1988','1989','1990','1991','1992'
db '1993','1994','1995'
dd 16,22,382,1356,2930,8000,16000,24886,50065,97479,140417,197514,345980,590827,803530,1183000,1843000,2759000
dd 3753000,4649000,5937000
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226,11542,14430,15257,17800
data ends
table segment
db 21 dup ('year summ ne ??')
table ends
codesg segment
start: mov ax,data
    mov ds,ax
    mov ax,table
    mov es,ax
    mov bx,0
    mov si,0
    mov di,0
    mov bp,0
    mov cx,21
s:  mov ax,ds:[si]
     mov es:[bx+0],ax
     add si,2
     mov ax,ds:[si]
     mov es:[bx+2],ax
     mov al,20h
     mov es:[bx+4h],al
     mov ax,ds:[di+54h]
     mov es:[bx+5h],ax
     add di,2
     mov ax,ds:[di+54h]
     mov es:[bx+7h],ax
     mov al,20h
     mov es:[bx+9h],al
     mov ax,ds:[bp+0A8H]
     mov es:[bx+0Ah],ax
     mov ax,20h
     mov es:[bx+0ch],al
     mov ax,es:[bx+5h]
     mov dx,es:[bx+7h]
     div word ptr es:[bx+0Ah]
     mov es:[bx+0Dh],ax
     mov al,20h
     mov es:[bx+0fh],al
     add si,2
     add di,2
     add bp,2
     add bx,16
     loop s
     mov ax,4c00h
     int 21h
codesg ends
end start

小C-c

第五个总收入数据出错了，应该是2390