assume cs:codesg,ds:datasg,es:table
datasg 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-53
dd 164532212,25452542,385645452,131251256,23562390,804500,160435300,244855436,50054365,97543479,145430417,195437514
dd 34554980,5904827,803554330,11854300,18454005,27505430,37534300,4644300,5937430 ;54-a7
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226 ;a8-d1
dw 11542,14430,15257,17800
datasg ends
table segment
db 21 dup(*yare summ ne ?? *)
table ends
mov bx,0
mov si,0
mov di,0
mov cx,21
s3: mov ax,ds:54h[di]
mov dx,ds:46h[di]
div word ptr 0a8h[bx]
mov es:0dh[si],ax
add bx,2
add di,4
add si,16
loop s3
mov ax,4c00H
int 21H
codesg ends
end start
datasg 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-53
dd 164532212,25452542,385645452,131251256,23562390,804500,160435300,244855436,50054365,97543479,145430417,195437514
dd 34554980,5904827,803554330,11854300,18454005,27505430,37534300,4644300,5937430 ;54-a7
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226 ;a8-d1
dw 11542,14430,15257,17800
datasg ends
table segment
db 21 dup(*yare summ ne ?? *)
table ends
mov bx,0
mov si,0
mov di,0
mov cx,21
s3: mov ax,ds:54h[di]
mov dx,ds:46h[di]
div word ptr 0a8h[bx]
mov es:0dh[si],ax
add bx,2
add di,4
add si,16
loop s3
mov ax,4c00H
int 21H
codesg ends
end start