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