LEX 'ASSERR' * Nom du LEX * (c) Copyright PPC Paris 1986 ID #E1 * È vous de choisir l'id MSG 0 * aucun message POLL POLHND * poll actif ENDTXT * fin du "prÅambule" pTRANS EQU #EF * valeur du poll pTRANS FLGREG EQU #2F6E9 * adresse de stockage * * des drapeaux (cf IDS 1) MFWRN EQU #093BC * routine d'affichage * * d'avertissement HERE EQU #2FB93 * adresse de la variable * * forth HERE POLHND LC(2) pTRANS * traitement si poll * * pTRANS ?B=C B GOYES ITRANS RTNSXM ITRANS LC(5) (FLGREG)+15 * va voir le flag 63 CD0EX C=DAT0 S CD0EX C=C+C S GOC WARN * flag levÅ? RTNSXM * non, fin WARN P= 14 * faire bip, respecter * * le DELAY, ne pas * * toucher ERRN, pas de * * prÅfixe * (WRN: ou WRN:) (cf doc * * sur MFWRN, IDS 2 ou 3) C=R0 D0=(5) HERE * met l'adresse de fin * * du dictionnaire forth * * dans D0 A=DAT0 A D0=A DAT0=C W * sauvegarde de R0 et R2 D0=D0+ 16 A=R2 DAT0=A W GOSBVL MFWRN * affichage de l'erreur D0=(5) HERE * remet HERE dans D0 C=DAT0 A D0=C C=DAT0 W * rÅcupere R0 et R2 R0=C D0=D0+ 16 C=DAT0 W R2=C RTNSXM * fin, on fait comme si * * rien ne s'Åtait passÅ END