LEX    'DOERRLEX'
* (c) Copyright PPC Paris 1986

       ID     #5C
       MSG    0
       POLL   0
       ENTRY  DOERRe
       CHAR   #D
       KEY    'DOERR'
       TOKEN  80

BSERR  EQU    #0939A
EXPEX- EQU    #0F178
FIXDC  EQU    #05493
FIXP   EQU    #02A6E
IDIVA  EQU    #0EC6E
IVAERR EQU    #0E920
RNDAHX EQU    #136CB
       ENDTXT

       REL(5) DOERRd
       REL(5) DOERRp

DOERRe GOSBVL EXPEX-
       GOSBVL RNDAHX
       GONC   ivaerr   Arg < 0
       LC(5)  1000
       GOSBVL IDIVA    calcule Arg/1000

* A[W]= quotient ; B[W]= reste
* HEX mode depuis RNDAHX ; P=15

       P=     0
       C=0    W
       C=C-1  B        C[W]= 255
       ?C<A   W        No LEX > 255 ?
       GOYES  ivaerr
       ?C<B   W        No ERR > 255 ?
       GOYES  ivaerr
       C=A    B
       CSL    A
       CSL    A        C[3-2]= No LEX
       C=B    B        C[B]=   No ERR
       GOVLNG BSERR

ivaerr GOVLNG IVAERR

DOERRd GOVLNG FIXDC    un seul argument numÅrique
DOERRp GOVLNG FIXP     obligatoire.

       END