!scan
ipo 1, fx
cmp fx 0
je !change
out 11,90
out 14, 10
out 22, 1
in 7, ax
in 2, 3
cmp ax 1500
jgr !turn
opo 12, @3
opo 15, -2 ; @3
out 15, -3
out 15, -2
out 15, -1
out 15, 0
out 15, 1
out 15, 2
out 15, 3
!turn
do 5
out 14, 100
out 11, 100
loop 1
do 6
out 14, 50
out 11, -75
loop 1
jmp !scan
!change
jmp !turn