*DECK ETABI 
         IDENT ETABI
          TITLE  ETABI - TABLE OF DIAGNOSTICS 
**        ETABI - CONTAINS . . .                                         ETABI
*         SYNTAX DIAGNOSTICS AND THIER ASSOCIATED ERROR LEVELS. IT IS    ETABI
*         REFERENCED BY PROC DIAGIV WHICH ISSUES SYNTAX DIAGNOSTICS      ETABI
*                                                                        ETABI
*         A NEW SYNTAX DIAGNOSTIC MAY BE ADDED BY INSERTING AN EM MACRO  ETABI
*         CALL IN COMDECK ERMSGS                                         ETABI
*                                                                        ETABI
          SST 
 DNR      SET    0
**        EM     THE EM MACRO IS CALLED ONCE FOR EACH SYMPL SYNTAX       ETABI
*                DIAGNOSTIC. IT CONSTRUCTS A TABLE CONTAINING ERROR      ETABI
*                LEVEL AND ASSOCIATED TEXT ADDRESS. TEXTS ARE REMOTELY   ETABI
*                ASSEMBLED AFTER THIS TABLE.                             ETABI
*                                                                        ETABI
*         INPUT                                                          ETABI
*                NUM  = ERROR NUMBER                                     ETABI
*                                                                        ETABI
*                LEV  = ERROR LEVEL                                      ETABI
*                         D  MACHINE DEPENDENT                           ETABI
*                         T  TRIVAL                                      ETABI
*                         W  WARNING                                     ETABI
*                         F  FATAL                                       ETABI
*                                                                        ETABI
*                TEXT = ERROR MESSAGE TEXT                               ETABI
*                                                                        ETABI
*         OUTPUT                                                         ETABI
*                ERROR LEVEL AND TEXT ADDRESS TABLE                      ETABI
*                VFD  3/LEVEL,45/0,18/TEXT ADDRESS                       ETABI
*                                                                        ETABI
 EM       MACRO  NUM,LEV,TEXT                                            ETABI
          IFLE   NUM,DNR,1
 A        ERR                      DIAGNOSTICS OUT OF ORDER 
 BSSNR    SET    NUM-DNR-1
 DNR      SET    NUM
 IFA      IFGT   BSSNR,0
          DUP    BSSNR,1
          VFD    3/EL.C,57/0
 IFA      ENDIF 
 LEVEL    SET    EL._LEV
          VFD    3/LEVEL,39/0,18/E_NUM                                   ETABI
          RMT                                                            ETABI
 E_NUM    DATA   H+TEXT+                                                 ETABI
          RMT                                                            ETABI
          ENDM                                                           ETABI
          ENTRY  ETABI                                                   ETABI
 ETABI    BSS    0           ERROR LEVEL AND TEXT ADDRESS TABLE          ETABI
*CALL ERMSGS                                                             ETABI
          RMT 
 LASTWD   DATA   10H(LAST)
          RMT 
          VFD    42/-1,18/LASTWD   TELL DIAGIV WE-RE DONE...
          HERE               ASSEMBLE ERROR TEXTS HERE                   ETABI
         END
