;made by the one and only phat owning the standard is what i do best
#config engine=2
#config armor=2
#config weapon=2
#config heatsinks=3
#config scanner=3
#msg do u xspect me2talk
#def arc
#def bsnum
mov ax, 1
int 3
mov bsnum, 4
mov arc, 32
:99
opo 12, 64

!m
opo 11, 100
mov ax, @2
sub ax, 16
opo 14, ax

!scan
opo 17, arc
ipo 7, bx
cmp bx, 2000
jgr !nt
cmp arc, 2
jeq !fire
mov ax, @3
shl ax, bsnum
opo 12, ax
shr arc, 2
sub bsnum, 2
opo 15
jmp !m

!fire
opo 12, @3
opo 15
jmp !m

!nt
cmp arc, 32
jeq 99
shl arc, 2
add bsnum, 2
jmp !m