*COMDECK,ERMNUM 
          EJECT 
 RTERROR  MACRO  ERMN,ERM,PROC
          SB7    ERM               FETCH ERROR MESSAGE ADDRESS
          SX7    ERMN              FETCH ERROR NUMBER 
          SA1    DBUGON            FETCH CID ENABLED FLAG 
          ZR     X1,PROC           BR, CID DISABLED 
          SA7    RNBLOCK+1         SAVE IN DBUG.FN PARAM BLOCK
          SX6    B7                FETCH ERROR MESSAGE ADDRESS
          SA6    RNLIST+2              AND SAVE IT
          SA1    RNLIST            FETCH DBUG.FN APLIST 
          RJ     =YDBUG.FN         PROCESS RUN TIME ERROR 
          ENDM
* 
*         ERROR MESSAGE NUMBERS 
* 
 ERMN100  EQU    100         TIME LIMIT EXCEEDED
 ERMN101  EQU    101               ECS OR CY170 PARITY ERROR
 ERMN102  EQU    102               PPU ABORT
 ERMN103  EQU    103               XXX NOT IN PPLIB 
 ERMN104  EQU    104               PP CALL ERROR
 ERMN105  EQU    105               OPERATOR DROP OR KILL
 ERMN106  EQU    106               IO TIME LIMIT
 ERMN107  EQU    107               CPU ERROR EXIT 00
 ERMN108  EQU    108               CPU ERROR EXIT 01
 ERMN109  EQU    109         INFINITE OPERAND 
 ERMN110  EQU    110               CPU ERROR EXIT 03
 ERMN111  EQU    111                   INDEFINITE OPERAND 
 ERMN112  EQU    112               CPU ERROR EXIT 05
 ERMN113  EQU    113               CPU ERROR EXIT 06
 ERMN114  EQU    114               CPU ERROR EXIT 07
 ERMN115  EQU    115               OPERATOR RERUN 
 ERMN116  EQU    116               AUTO RECALL STATUS MISSING 
 ERMN117  EQU    117               HUNG IN AUTO RECALL
 ERMN118  EQU    118               MASS STORAGE LIMIT 
 ERMN119  EQU    119         ERRED STATEMENT
 ERMN120  EQU    120         END OF DATA
 ERMN121  EQU    121         SUBSCRIPT ERROR
 ERMN122  EQU    122         ON EXPRESSION OUT OF RANGE 
 ERMN123  EQU    123         GOSUB NEST TOO DEEP
 ERMN124  EQU    124         RETURN BEFORE GOSUB
 ERMN125  EQU    125         DIVISION BY ZERO 
 ERMN126  EQU    126         BAD DATA IN READ 
 ERMN127  EQU    127         BAD FORMAT FIELD 
 ERMN128  EQU    128         NO FORMAT FIELD SPECIFIED
 ERMN129  EQU    129         UNSATISFIED EXTERNAL REFERENCE 
 ERMN130  EQU    130         ILLEGAL OUTPUT ON FILE 
 ERMN131  EQU    131         ILLEGAL MARGIN 
 ERMN132  EQU    132         TOO MUCH DATA, RETYPE INPUT
 ERMN133  EQU    133         ILLEGAL DATA, RETYPE INPUT 
 ERMN134  EQU    134         NOT ENOUGH DATA, TYPE IN MORE
 ERMN135  EQU    135         ILLEGAL DATA ON FILE 
 ERMN136  EQU    136         END OF DATA ON FILE
 ERMN137  EQU    137         ILLEGAL INPUT ON FILE
 ERMN138  EQU    138         ILLEGAL FILE NUMBER
 ERMN139  EQU    139         ILLEGAL FILE NAME
 ERMN140  EQU    140         NO FILE SPACE. ADD ANOTHER FILE STMT 
 ERMN141  EQU    141         FILE CLOSED/UNDEFINED
 ERMN142  EQU    142         FILE NUMBER ALREADY IN USE 
 ERMN143  EQU    143         FILE ALREADY OPEN
 ERMN144  EQU    144               CHAIN FILE NOT FOUND 
 ERMN145  EQU    145               ILLEGAL CHAIN PARAMETER
 ERMN146  EQU    146         * * NOT USED * * 
 ERMN147  EQU    147         TAPE FILE IS NOT ALLOWED 
 ERMN148  EQU    148         ARGUMENT IS POLE IN COT
 ERMN149  EQU    149         ARGUMENT TOO LARGE IN COT
 ERMN150  EQU    150         ARGUMENT TOO LARGE IN SIN
 ERMN151  EQU    151         ARGUMENT TOO LARGE IN TAN
 ERMN152  EQU    152         ARGUMENT TOO LARGE IN COS
 ERMN153  EQU    153         ARGUMENT IS POLE IN TAN
 ERMN154  EQU    154         ARGUMENT NEGATIVE IN LOG 
 ERMN155  EQU    155         ARGUMENT IS ZERO IN LOG
 ERMN156  EQU    156         ARGUMENT TOO LARGE IN EXP
 ERMN157  EQU    157         ZERO TO A NEGATIVE POWER 
 ERMN158  EQU    158         NEGATIVE NUMBER TO A POWER 
 ERMN159  EQU    159         POWER TOO LARGE
 ERMN160  EQU    160         ARGUMENT NEGATIVE IN SQR 
 ERMN161  EQU    161         MATRIX DIMENSION ERROR 
 ERMN162  EQU    162         DET USED BEFORE INV
 ERMN163  EQU    163               ARRAY TOO SMALL IN CHANGE
 ERMN164  EQU    164               ERROR IN CHANGE
 ERMN165  EQU    165         ILLEGAL CHARACTER
 ERMN166  EQU    166         MEMORY OVERFLOW
 ERMN167  EQU    167         NON-NUMERIC OR NULL STRING 
 ERMN168  EQU    168         STRING OVERFLOW
 ERMN169  EQU    169         ILLEGAL SUBSTR PARAMETER 
 ERMN170  EQU    170         ILLEGAL LABEL
 ERMN171  EQU    171         ILLEGAL ACTION ON CODED FILE 
 ERMN172  EQU    172         ILLEGAL SET VALUE
 ERMN173  EQU    173         RANDOM FILE EMPTY
 ERMN174  EQU    174         RANDOM ACTION BEYOND EOF 
 ERMN175  EQU    175         ILLEGAL ACTION ON BINARY FILE
*         NUMBERS 176-187 RESERVED FOR USERS
 ERMN190  EQU    190               TERMINAL INTERRUPT 
ERMN191   EQU    191         ILLEGAL RPT$ PARAMETER 
 ERMN192  EQU    192         ILLEGAL LPAD$ PARAMETER
 ERMN193  EQU    193         ILLEGAL RPAD$ PARAMETER
 ERMN194  EQU    194         ILLEGAL ORD ARGUMENT 
 ERMN195  EQU    195         INPUT WITHIN INPUT 
 ERMN196  EQU    196           ILLEGAL CHR$ ARG 
 ERMN197  EQU    197               BAD TAB ARG, 1 USED
          EJECT 
