; XCAT
; 04.01.2001

#config scanner=5;
#config weapon=2;
#config armor=0;
#config engine=0;
#config heatsinks=5;
#config mines=0;
#config shield=0;

opo 17 4;
out 13,0;

:100
  out 14 4;

:101
  in  7  ax;
  cmp ax 1500;
  ja  100;
  mov bx 0;

:102
  ipo 2  ax;
  cmp ax 100;
  jgr 103;
  opo 15 bx;

:103
  ipo 8  bx;
  add bx bx;
  out 14 bx;
  in  7  ax;
  cmp ax 1500;
  jls 101;

je 100;
jne 100;