OUT     P_THROTTLE      -100
    MOV     AX              1
    INT     I_KEEPSHIFT
!aquireTarget
    OUT     P_SCANARC       64
    IN      P_SCAN          AX
    CMP     AX              32767
    JNE     !foundTarget
    OUT     P_OFS_TURRET    128
    IN      P_SCAN          AX
!foundTarget
    MOV     AX              @2
    SUB     AX              90
    OUT     P_STEERING      AX
    OUT     P_SCANARC       14
    MOV     AX              @3
    ADD     AX              1002
    ERR     AX
    JEQ     AX
    JNE     AX
:1000           ; -2        
    OUT     P_OFS_TURRET    -52
    JEQ     1002
    JNE     1002
:1001           ; -1
    OUT     P_OFS_TURRET    -26
    JEQ     1002
    JNE     1002
    
:1004           ; 2
    OUT     P_OFS_TURRET    52
    JEQ     1002
    JNE     1002
    
:1003           ; 1
    OUT     P_OFS_TURRET    26
:1002           ; 0
    IN      P_SCAN          AX
    CMP     AX              32767
    JEQ     !aquireTarget
!WhereDidHeGo
    OUT     P_SCANARC       4
    MOV     AX              @3
    ADD     AX              2002
    JEQ     AX
    JNE     AX
:2000           ; -2        
    OUT     P_OFS_TURRET    -12
    JEQ     2002
    JNE     2002
:2001           ; -1
    OUT     P_OFS_TURRET    -6
    JEQ     2002
    JNE     2002
:2004           ; 2
    OUT     P_OFS_TURRET    6
    JEQ     2002
    JNE     2002
:2003           ; 1
    OUT     P_OFS_TURRET    12
:2002           ; 0
    IN      P_SCAN          AX
    CMP     AX              32767
    JEQ     !foundTarget
    MOV     AX              @3
    ADD     AX              AX
    OUT     P_OFS_TURRET    AX
    OUT     P_FIRE          AX
    OUT     P_SCANARC       2
!FireScanning
    IN      P_SCAN          AX
    CMP     AX              32767
    JEQ     !WhereDidHeGo
    MOV     BX              @3
    OUT     P_OFS_TURRET    BX
    IN      P_HEAT          CX
    CMP     CX              250
    JGE     !coolScanning
    OUT     P_FIRE          BX
    OUT     P_FIRE          BX
    OUT     P_FIRE          BX
    JNE     !FireScanning

!coolScanning
    OUT     P_THROTTLE      -25
    IN      P_SCAN          AX
    CMP     AX              32767
    JEQ     !WhereDidHeGo
    MOV     AX              @2
    SUB     AX              80
    OUT     P_STEERING      AX
    MOV     BX              @3
    OUT     P_OFS_TURRET    BX
    IN      P_HEAT          CX
    CMP     CX              200
    JGE     !coolScanning
    OUT     P_THROTTLE      -100
    MOV     AX              @2
    SUB     AX              80
    OUT     P_STEERING      AX
    JLS     !fireScanning