mov	ax	1
int	3
mov	ex	500
mov	fx	500
int	7	
sub	ax	[1]
opo	14	ax
opo	18	1
opo	11	100
del	100
opo	18	0
mov	dx	64
:1
opo	11	100
opo	14	30
opo	17	dx
ipo	7	ax
cmp	ax	2000
jb	3
:2
cmp	dx	64
jb	5
opo	12	128
jmp	1
:3
opo	17	dx
mov	bx	dx
mpy	bx	[3]
sar	bx	1
opo	12	bx
cmp	dx	2
jbe	4
shr	dx	1
ipo	7	ax
cmp	ax	2000
ja	5
jmp	3
:4
ipo	2	ax
cmp	ax	200
jae	6
opo	12	[3]
opo	14	30
opo	15	
opo	15	1
opo	15	-1
ipo	7	ax
cmp	ax	2000
jb	4
:5
opo	17	dx
shl	dx	1
ipo	7	ax
cmp	ax	2000
jb	3
cmp	dx	64
jb	5
opo	12	128
jmp	1
:6
opo	14	30
jmp	1