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 ?A0.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
?A0.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
@