#config armor=2
#config scanner=4
#config engine=2
#config heatsinks=1
#config weapon=3
opo 11, 100
opo 17, 64
opo 22, 12
opo 22, 12
int 3
#def speed
#def arc
#def heat
;########## moving ##########;
!m1
ipo 1, ax
cmp ax, 0
jeq !m2
opo 14, 4
jmp !s1

!m2
cmp speed, -74
jeq !m4
mov speed, -74
!m5
opo 11, speed
jmp !s1

!m4
mov speed, 100
jmp !m5

;########## scanning ##########;
!s1
ipo 17, arc
ipo 7, ax
cmp ax, 1500
jgr !s2
cmp arc, 4
jbe !f1
ipo 17, arc
mov ax, arc
shr arc, 1
shr ax, 2
opo 17, ax
cmp @3, 0
jgr !>
mpy arc, @3
!s4
opo 12, arc
ipo 2, ax
cmp ax, 100
jgr !m1
opo 15
jmp !m1

!>
cmp @3, 1
jeq !s4
add arc, arc
jmp !s4

!s2
cmp arc, 64
jls !s3
opo 12, 128
jmp !m1

!s3
shl arc, 2
opo 17, arc
jmp !m1

;########## shooting ##########;
!f1
mov ax, @3
shl ax, 1
opo 17, 64
ipo 2, heat
cmp heat, 200
jgr !m1
cmp @7, 0
jeq !f2
cmp @2, @6
jeq !f2
cmp heat, 75
jls !f3
!f4
opo 15, ax
opo 15, ax
opo 18, 0
jmp !m1

!f2
cmp heat, 75
jls !f5
!f6
opo 15, ax
opo 15, ax
opo 15, ax
opo 15, ax
opo 15, ax
opo 15, ax
opo 15, ax
opo 18, 0
jmp !m1

!f5
opo 18, 1
jmp !f6

!f3
opo 18, 1
jmp !f4

!f7
ipo 1, ax
cmp ax, 0
jeq !f8
opo 14, 4
jmp !f1

!f8
cmp speed, -74
jeq !f10
mov speed, -74
!f9
opo 11, speed
jmp !f1

!f10
mov speed, 100
jmp !f9