get
mov [1000], ax
sub ax, 1
mov [2000], ax
mov ax, 0
mov bx, [1000]
mov dx, [2000]
cmp dx, 1
je r
jne a

a: add ax, bx
add cx, 1
cmp cx, dx
jb a
je z

z: mov bx, ax
mov [1000], ax
sub dx, 1
mov [2000], dx
mov ax, 0
mov cx, 0
cmp dx, 1
je r
jne a

r: mov ax, bx
put
halt