assume cs:code
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';0-83
dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000;84-167
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226;168-209
dw 11542,14430,15257,17800
data ends
stack segment
dw 8 dup (0)
stack ends
table segment
db 21 dup ('year summ ne ?? ')
table ends
code segment
start:
mov ax,data
mov ds,ax
mov ax,table
mov es,ax
mov ax,stack
mov ss,ax
mov sp,8
mov dx,0
mov bp,0
mov cx,21
mov si,0
mov di,0
s:
push cx
mov cx,4
s0:
mov al,byte ptr ds:[bx+di]
mov byte ptr es:[si],al
inc di
inc si
loop s0
mov byte ptr es:[si],' '
inc si
mov di,84
mov cx,2
s1:
mov ax,word ptr ds:[bx+di]
mov dx,word ptr ds:[bx+di+2]
mov word ptr es:[si],ax
mov word ptr es:[si+2],dx
add di,2
add si,2
loop s1
mov byte ptr es:[si],' '
inc si
mov di,168
mov ax,word ptr ds:[bp+di]
mov word ptr es:[si],ax
add si,2
mov byte ptr es:[si],' '
inc si
mov di,84
mov ax,word ptr ds:[bx+di]
mov dx,word ptr ds:[bx+di+2]
mov di,168
div word ptr ds:[bp+di]
mov word ptr es:[si],ax
add si,2
mov byte ptr es:[si],' '
inc si
pop cx
add bx,4
add bp,2
mov di,0
;inc bx
loop s
mov ax,4c00h
int 21h
code ends
end start