LEX 'XERRLEX' * (c) Copyright PPC Paris 1986 ID #E1 MSG 0 POLL 0 RNDAHX EQU #136CB R3=D1C EQU #0352C D1C=R3 EQU #03047 A-MULT EQU #1B349 ERRN EQU #2F7E6 FNRTN1 EQU #0F216 ENTRY XTERR CHAR #F KEY 'XERR' TOKEN 26 ENDTXT NIBHEX 811 un argument numÅrique: X XTERR GOSBVL RNDAHX A[A]= X en hexa C=A A GOSBVL R3=D1C R3[A]= C[A] ; R3[9-5]= D1 LC(5) ERRN CD1EX A=0 W C=0 W A=DAT1 B A[A]= No de LEX de ERRN LC(3) 1000 D=C A D[A]= 1000 GOSBVL A-MULT A[A]= (No LEX) *1000 C=0 A D1=D1- 2 C=DAT1 B C[A]= numÅro d'erreur A=A+C A A[A]= No d'erreur formatÅ B=A A B[A]= ERRN GOSBVL D1C=R3 C[A]= X ; D1= sommet MSTK A=C A A[A]= X A=0 S A[S]= valeur du test ?A=B A X=ERRN ? GOYES Un oui: on renvoie 1 ?C>D A X>1000 ? GOYES lbl1 oui: ajouter 128 LC(5) 872 sinon ajouter 1000=872+128 A=A+C A lbl1 C=0 W LC(2) 128 plus court que LC(5) 128 A=A+C A A[A]=X modifiÅ ; B[A]=ERRN ?A#B A X#ERRN ? GOYES Zero oui: on renvoie 0 Un A=A+1 S Zero C=0 W C=A S CSR W C[W]= X flottant D1=D1+ 16 GOVLNG FNRTN1 END