LEX 'REPLEX' * (c) Copyright PPC Paris 1986 ID #E1 MSG 0 POLL 0 MOVEDD EQU #1B106 F-R0-0 EQU #2F89B CSRC5 EQU #1B41B CSLC5 EQU #1B435 ARGERR EQU #0BF19 POP1S EQU #0BD38 EXPR EQU #0F23C AVMEMS EQU #2F594 MEMERR EQU #0944D ENTRY REP CHAR #F KEY 'REPLACE$' TOKEN 6 ENDTXT Egale ?B=0 A RTNYES D0=D0- 2 D1=D1- 2 A=DAT1 B C=R0 ?C#0 XS GOYES NJok ?A=C B GOYES Jok NJok C=DAT0 B ?A#C B RTNYES Jok B=B-1 A B=B-1 A GONC Egale C=R495 C=R4 GOVLNG CSRC5 Argerr GOVLNG ARGERR NIBHEX 444434 REP P=C 15 ?P# 4 GOYES NJ GOSBVL POP1S ?A=0 A GOYES NJ LC(5) 2 ?A>C A GOYES Argerr C=P 2 C=DAT1 B R0=C D1=D1+ 2 GONC REPC Test C=R3 ?C#0 A GOYES Test2 ?A=0 A GOYES Exp1 GOTO Exp Test2 ?A=0 A GOYES Exp RTN Exp1 GOSUB C=R495 D1=C Exp D1=D1- 16 C=RSTK GOTO Expr A=AVMS CD1EX D1=(5) AVMEMS A=DAT1 A D1=C RTN NJ P=P+1 C=P 2 R0=C REPC GOSBVL POP1S CD1EX D1=C GOSBVL CSLC5 R4=C CD1EX C=C+A A D1=C GOSBVL POP1S CD1EX C=C+A A D1=C R3=A GOSBVL POP1S GOSUB Test CD1EX R2=C C=C+A A D=C A C=0 A R1=C C=R0 A=C X CD0EX CSL W CSL W CSL W C=A X R0=C D0=(5) F-R0-0 C=D A DAT0=C A TestAB A=R3 C=R2 B=C A C=D A C=C-B A ?CC A GOYES Memerr C=C+B A D1=C Boucle ?B=0 A RTNYES D0=D0- 2 D1=D1- 2 C=DAT0 B DAT1=C B C=R1 C=C+1 A C=C+1 A R1=C B=B-1 A B=B-1 A GONC Boucle Memerr GOVLNG MEMERR Fin D1=(5) F-R0-0 C=DAT1 A D1=C GOSUB C=R495 A=C A LC(5) 16 A=A-C A C=R1 GOSBVL MOVEDD D1=D1- 16 C=R0 CSR W CSR W CSR W D0=C C=R1 CSL W CSL W LCHEX F DAT1=C 7 Expr GOVLNG EXPR END