assume cs:code
data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983','1984',
'1985','1986','1987','1988','1989','1990','1991','1992','1993','1994','1995'
db '16',0,'22',0,'382',0,'1356',0,'2390',0,'8000',0,'16000',0,'24486',0,'50065',0,
'97479',0,'140417',0,'197514',0,'345980',0,'590827',0,'803530',0,'1183000',0,
'1843000',0,'2759000',0,'3753000',0,'4649000',0,'5937000',0
db '3',0,'7',0,'9',0,'13',0,'28',0,'38',0,'130',0,'220',0,'476',0,'778',0,'1001',0,
'1442',0,'2258',0,'2793',0,'4037',0,'5635',0,'8226',0,'11452',0,'14430',0,'15257',0,'17800',0
db '5',0,'3',0,'42',0,'104',0,'85',0,'210',0,'123',0,'111',0,'105',0,'125',0,'140',0,'136',0,
'153',0,'211',0,'199',0,'209',0,'224',0,'239',0,'260',0,'304',0,'333',0
data ends
code segment
start: mov ax,0b800h
mov es,ax
mov ax,data
mov ds,ax
b: mov cx,4
a: mov al,ds:[bx]
mov ah,7
mov es:[si],ax
add bx,1
add si,2
loop a
add sp,1
mov cx,21
sub cx,sp
jcxz cc
add si,152
jmp b
cc: mov sp,0
mov bp,0028H
mov si,0
d: mov al,ds:[bx]
mov ah,7
mov cl,ds:[bx]
mov es:[si+bp],ax
add bx,1
add si,2
jcxz f
jmp d
f: mov si,0
add sp,1
mov cx,21
sub cx,sp
add bp,160
jcxz jj
jmp d
jj: mov sp,0
mov bp,0050H
mov si,0
h: mov al,ds:[bx]
mov ah,7
mov cl,ds:[bx]
mov es:[si+bp],ax
add bx,1
add si,2
jcxz i
jmp h
i: mov si,0
add sp,1
mov cx,21
sub cx,sp
add bp,160
jcxz gg
jmp h
gg: mov sp,0
mov bp,0078H
mov si,0
k: mov al,ds:[bx]
mov ah,7
mov cl,ds:[bx]
mov es:[si+bp],ax
add bx,1
add si,2
jcxz l
jmp k
l: mov si,0
add sp,1
mov cx,21
sub cx,sp
add bp,160
jcxz m
jmp k
m: mov ax,4c00h
int 21h
code ends
end start