* TESTA
*
ATDMQQ MOV  R11,*S+
       MOV  @FATLEF,R0
       JEQ  ATDM10
       B    @ATDM99
ATDM10 CLR  R6
       BL   @ATDI00
       LI   R1,38
ATDM15 CLR  @JOYSEF(R1)
       CLR  @JOYSEF+44(R1)
       INCT R1
       CI   R1,44
       JL   ATDM15
       MOV  @FATLEF,R0
       JEQ  ATDM20
       B    @ATDM90
ATDM20 CLR  R6
       BL   @ATDS00
       LI   R0,'1'*256
       LI   R2,688
       BL   @$BYTVR
       CLR  R4
       BL   @ATDJ00
       MOV  @FATLEF,R0
       JEQ  ATDM30
       B    @ATDM90
ATDM30 CLR  R6
       BL   @ATDB00
       LI   R0,>3100
       LI   R2,635
       BL   @$BYTVR
       CLR  R4
       BL   @ATDC00
       MOV  @FATLEF,R0
       JEQ  ATDM50
       B    @ATDM90
ATDM50 BL   @SWPF00
       LI   R6,1
       BL   @ATDI00
       MOV  @FATLEF,R0
       JEQ  ATDM60
       B    @ATDM90
ATDM60 CLR  R6
       BL   @ATDS00
       LI   R0,'2'*256
       LI   R2,688
       BL   @$BYTVR
       LI   R4,$JOY2X-$JOY1X
       BL   @ATDJ00
       MOV  @FATLEF,R0
       JEQ  ATDM70
       B    @ATDM90
ATDM70 CLR  R6
       BL   @ATDB00
       LI   R0,'2'*256
       LI   R2,635
       BL   @$BYTVR
       LI   R4,$JOY2X-$JOY1X
       BL   @ATDC00
       MOV  @FATLEF,R0
       JEQ  ATDM80
       JMP  ATDM90
ATDM80 BL   @SWPF00
       BL   @ATDZ00
       JMP  ATDM99
ATDM90 LI   R1,88
ATDM91 CLR  @JOYSEF-2(R1)
       DECT R1
       JNE  ATDM91
ATDM99 DECT S
       MOV  *S,R11
       RT
*
ATDJ00 MOV  R11,*S+
       LI   R0,>D100
       LI   R2,SAT+5
       BL   @$BYTVR
ATDJ10 LIMI 2
       LIMI 0
       BL   @ATDL00
       MOVB @$WORLD,R0
       COC  @MBXMSK,R0
       JEQ  ATDJ11
       SETO @FATLEF
       SETO @ERRORF
       SETO @LINKEF
       SETO R0
       B    @ATDJ99
ATDJ11 BL   @TIKBDS
       CB   @$KEY,@HFF
       JEQ  ATDJ12
ATDJ15 BL   @TIKBDS
       CB   @$KEY,@HFF
       JNE  ATDJ15
       LI   R0,141*>100
       CB   @$JOY1X(R4),R0
       JH   ATDJ99
       CB   @$JOY1Y(R4),R0
       JH   ATDJ99
       LI   R0,115*>100
       CB   @$JOY1X(R4),R0
       JL   ATDJ99
       CB   @$JOY1Y(R4),R0
       JL   ATDJ99
       CLR  @JOYSEF+36
       JMP  ATDJ99
ATDJ12 BL   @ATDT00
       B    @ATDJ10
ATDJ99 LI   R0,>D000
       LI   R2,SAT
       BL   @$BYTVR
       DECT S
       MOV  *S,R11
       RT
*
ATDC00 MOV  R11,*S+
ATDC01 LIMI 2
       LIMI 0
       BL   @ATDX00
       MOVB @$WORLD,R0
       COC  @MBXMSK,R0
       JEQ  ATDC11
       SETO R0
       SETO @FATLEF
       SETO @ERRORF
       SETO @LINKEF
       JMP  ATDC99
ATDC11 BL   @TIKBDS
       CB   @$KEY,@HFF
       JEQ  ATDC01
ATDC15 BL   @TIKBDS
       CB   @$KEY,@FF
       JNE  ATDC15
ATDC99 DECT S
       MOV  *S,R11
       RT
*
JOYTBL DATA >0000,>0800,>1000,>0FFF,>1800
       DATA >0FFF,>1FFF,>0800,>1FFF,>0001
       DATA >1800,>0001,>1000,>2000,>2800
       DATA >2FFF,>2800,>0000
