LEX 'ATTNLEX' * (c) Copyright PPC Paris 1986 ID #E1 MSG 0 POLL 0 ENTRY ATTNe exÅcution de ATTN CHAR #D Ordre, exÅcutable dans tous les cas. KEY 'ATTN' TOKEN 8 ENDTXT tON EQU #E0 Token (code) de "ON" tOFF EQU #E1 Token (code) de "OFF" ATNDIS EQU #2F441 un quartet non nul empÁche ATTN de tout stopper. NXTSTM EQU #08A48 AchÉve l'exÅcution de l'ordre, et revient È Basic. WRDSCN EQU #02C2A Teste si la chaÑne entrÅe est dans une table. SYNTXe EQU #02E2B erreur de syntaxe. TRACDC EQU #052FC Routine de dÅcompilation de TRACE. REL(5) ATTNd Adresse de la routine de dÅcompilation. REL(5) ATTNp Adresse de la routine d'analyse. ATTNe CD1EX ) Sauvegarde D1 dans RSTK RSTK=C ) D1=(5) ATNDIS A=DAT0 B A(B)=token suivant ATTN LC(2) tOFF ?A=C B Est-ce le token de OFF ? GOYES A1 Si oui on met 1. C=C-1 A Ruse: C(B)=E1 donc C=C-1 A => C(0)=0 A1 DAT1=C 1 C(P) => ATNDIS C=RSTK ) D1=C ) On restore D1 GOVLNG NXTSTM Et on revient È BASIC. ATTNp GOSBVL WRDSCN Teste la chaine entrÅe, CON(2) tON si c'est ON, REL(3) Rcc on va en Rcc, CON(2) tOFF si c'est OFF, REL(3) Rcc on va en Rcc, NIBHEX 00 Fin de la table. GOVLNG SYNTXe Si ce n'est aucun de ceux-lÈ: ERREUR Rcc RTNCC Retour È l'interprÅteur, tout est Ok. ATTNd GOVLNG TRACDC Routine de dÅcompilation de l'ordre TRACE. END