fichier des testes des murs: guide.s

 

 

%GUIDE%%%%%%%%%%%%%%%%
% 801AC %            %
% ST10 % 1=MUR 0=OK  %
%%%%%%%%%%%%%%%%%%%%%%
**?H
D0= 001AC
GOSUBL X,Y
LC 00022 A=A-C.A
GOTO ?MUR_H
**?B
D0= 001AC
GOSUBL X,Y
LC 00220 A=A+C.A
GOTO ?MUR_H
*?MUR_H
ST=0.10
?ST=1.12 { LC 00660 A=A+C.A }
D0=A A=0.W  A=DAT0.A
D0= 00180 C=DAT0.P
?CBIT=1.0 { ASRB.A }
?CBIT=1.1 { ASRB.A ASRB.A }
P= 4 A=0.P P= 0
B=A.A ABIT=0.0
?A‹0.A { ST=1.10 }
A=B.A
C=A.A CSR.A ?C=0.X
    {
?ABIT=1.0
{ D0= 00180 C=DAT0.B
C=C+1.B DAT0=C.B RTN }
    }
?A=0.X
    {
?ABIT=1.15
{ D0= 00180 C=DAT0.B
C=C-1.B DAT0=C.B RTN }
    }
RTN
**?G
D0= 001AC
GOSUBL X,Y
GOTO ?MUR_V
**?D
D0= 001AC
GOSUBL X,Y
A=A+4.A
GOTO ?MUR_V
*?MUR_V
ST=0.10
?ST=1.12 { LC 00660 A=A+C.A }
D0=A
LC F D=C.P B=0.W
D1= 00180
DO {
A=DAT0.P
C=DAT1.P
?CBIT=1.0 { ASRB.A }
?CBIT=1.1 { ASRB.A ASRB.A }
BSRB.A
?ABIT=1.0
{ C=B.A CBIT=1.15 B=C.A }
ELSE
{ C=B.A CBIT=0.15 B=C.A }
D0=D0+ 34
D--.P } WHILENC
A=B.A
?A‹0.A { ST=1.10 }
C=A.A CSR.A ?C=0.X
    {
?ABIT=1.0
{ D0= 00182 C=DAT0.B
C=C+1.B DAT0=C.B RTN }
    }
?A=0.X
    {
?ABIT=1.15
{ D0= 00182 C=DAT0.B
C=C-1.B DAT0=C.B RTN }
    }
RTN
@

 

Retour