LEX    'TFLAGS'
* (c) 1987, PPC  Paris et l'Auteur
       ID     #5C
       MSG    0
       POLL   0
       ENTRY  IN
       CHAR   #F
       KEY    'TFLAG'  Syntaxe :  TFLAG (-n), 1<=n<=59
       TOKEN  12       Retourne l'ancienne valeur
POP1R  EQU    #0E8FD   dÅpile un rÅel
FLTDH  EQU    #1B223   convertit de flottant en hexa
HDFLT  EQU    #1B31B   inverse de la prÅcÅdente
SFLAGT EQU    #13608   routine utilisÅe par LC, USER
FNRTN1 EQU    #0F216
ARGERR EQU    #0BF19
       ENDTXT

* Un paramÉtre numÅrique obligatoire
       NIBHEX 811
IN     GOSBVL POP1R    dÅpile un nombre rÅel
       A=0    S        efface le signe
       GOSBVL FLTDH    rÅel A(W) -> hexa A(A)
* A(A) = nombre dÅpilÅ. La fonction commence
       C=0    W
       LC(2)  #3C      #3C=60 en dÅcimal
       ?C<=A  B        interdit les flags -60 È -64
       GOYES  ERROR
       C=0    A
       LC(3)  #100     No = complÅment È #100
       C=C-A  X
       GOSBVL SFLAGT   Inverse. Erreur si flag user
* Fin de la fonction. PrÅpare la sortie
       A=0    W
       GONC   OUT      Cy = l'Åtat antÅrieur du flag
       A=A+1  A        +1 si flag Åtait È 1
OUT    GOSBVL HDFLT    convertit hexa -> rÅel A(W)
       C=A    W        rÅel va dans C(W)
       GOVLNG FNRTN1   retour...
ERROR  GOVLNG ARGERR
       END             ouf !