LEX    'ERRLEX'
* (c) 1988, PPC Paris et l'Auteur
        ID     #5C
        MSG    0
        POLL   0
        ENTRY  eEEND
        CHAR   #C
        ENTRY  eERROR
        CHAR   #D
        ENTRY  eWARN
        CHAR   #D
        KEY    'EEND'
        TOKEN  1
        KEY    'ERROR'
        TOKEN  2
        KEY    'WARNING'
        TOKEN  3
        ENDTXT
t       EQU    1
=BSERR  EQU    #0939A
=CLOSEA EQU    #120E4
=CLPSTK EQU    #07D29
=DECHEX EQU    #1B2D2
=EXPEXC EQU    #0F186
=FIXDC  EQU    #05493
=FIXP   EQU    #02A6E
=FLTDH  EQU    #1B223
=FUNCD0 EQU    #2F8BB
=HEXDEC EQU    #0ECAF
=LNSKP- EQU    #089FF
=MFWRNQ EQU    #093C5
=NXTSTM EQU    #08A48
=POP1R  EQU    #0E8FD
* Attention: point d'entrÅ non normalisÅ
POPSTK  EQU    #1978A
=SCOPCK EQU    #0915B
=STMBUF EQU    #090DF
=TRCLIN EQU    #0FEC4
=TRFLCK EQU    #0FE18
=TRTOEN EQU    #0FEBC
p811    GOVLNG =FIXP
d811    GOVLNG =FIXDC
        REL(5) d811
        REL(5) p811
eERROR  GOSUB  GETARG
        P=     2
bserr   GOVLNG =BSERR
        REL(5) d811
        REL(5) p811
eWARN   GOSUB  GETARG
        P=     10
        GOSBVL =MFWRNQ
        GOVLNG =NXTSTM
        REL(5) d811
        REL(5) p811
eEEND   GOSUB  GETARG
        D0=(5) =FUNCD0
        DAT0=C A
        GOSBVL =STMBUF
        GOSBVL =TRFLCK
        GOC    EEND1
        GOSBVL =TRCLIN
        LCASC  'DNEE '
        DAT0=C 10
        D0=D0+ 10
        GOSBVL =TRTOEN
EEND1   GOSBVL POPSTK
        GOC    EEND2
        GOSBVL =LNSKP-
        R0=A
        C=R1
        C=C+C  P
        GOC    EEND4
        ?C#0   P
        GOYES  EEND3
        GOSBVL =SCOPCK
        GONC   EEND4
EEND2   GOSBVL =CLPSTK
        GOSBVL =CLOSEA
EEND3   ST=0   #D
EEND4   D0=(5) =FUNCD0
        C=DAT0 A
        GOTO   bserr
GETARG  GOSBVL =EXPEXC
        GOSBVL =POP1R
        A=0    S
        GOSBVL =FLTDH
        GOSBVL =HEXDEC
        C=0    W
        ACEX   X
        ASR    W
        ASR    W
        ASR    W
        D=C    W
        GOSBVL =DECHEX
        ACEX   W
        CDEX   W
        ACEX   W
        GOSBVL =DECHEX
        C=D    W
        CSL    A
        CSL    A
        C=A    B
        RTN
        END