; Trident
; 03.29.2001

#config scanner=4
#config weapon=0
#config armor=0
#config engine=5
#config heatsinks=3
#config mines=0
#config shield=0

mov ax 1
int 3
opo 17 16

!a
  opo 11 100
  opo 14 24
  opo 12 -8
  ipo 7  ax
  cmp ax 1500
  ja  !a
  mov bx 0

!b
  opo 11 100
  opo 14 24
  ipo 2 ax
  cmp ax 100
  jgr !c
  opo 15 bx
  add bx 64
  opo 15 bx
  sub bx 128
  opo 15 bx
  add bx 64

!c
  opo 11 100
  opo 14 24
  ipo 8  bx
  add bx bx
  out 12 bx
  ipo 7  ax
  cmp ax 1500
  jls !b

jmp !a