!turn
opo 12, 32
!scan16
opo 11, 100
opo 17, 16
ipo 7, ax
cmp ax, 3000
jgr !turn
mov bx, @3
shl bx, 2
opo 12, bx
!scan8
opo 17, 8
ipo 7, ax
cmp ax, 3000
jgr !scan16
mov bx, @3
shl bx, 1
opo 12, bx
opo 14, @2
ipo 2, ax
cmp ax, 300
jgr !scan8
opo 15, 0
jmp !scan8