; 19 aug 85 esj added fm error constants as teq in case they really get
;           included
; 23 jly 85 esj oops, equs need hex constant, not decimal
; 16 jly 85 esj renamed constants with excessive size.
;;;;;;;;;;;;;;  KERDEF         ;;;;;;;;;;;;;;;;;;;;;;;
;     DEFINES VARIOUS CONSTANTS FOR THE KERMIT-CGOS PROGRAM
   EQU   BACKSLSH    =    5C  ; replaced --> BACKSLASH = 92
   EQU   BACKSPCE    =     8  ; replaced --> BACKSPACE = 8
   EQU   GOOD        =     0
   EQU   BAD         =    8000
   EQU   BANG        =    21
   EQU   BAR         =    7C     ;
   EQU   ATSIGN      =    40
   EQU   BIGA        =    41
   EQU   BIGB        =    42
   EQU   BIGC        =    43
   EQU   BIGD        =    44
   EQU   BIGE        =    45
   EQU   BIGF        =    46
   EQU   BIGG        =    47
   EQU   BIGH        =    48
   EQU   BIGI        =    49
   EQU   BIGJ        =    4A
   EQU   BIGK        =    4B
   EQU   BIGL        =    4C
   EQU   BIGM        =    4D
   EQU   BIGN        =    4E
   EQU   BIGO        =    4F
   EQU   BIGP        =    50
   EQU   BIGQ        =    51
   EQU   BIGR        =    52
   EQU   BIGS        =    53
   EQU   BIGT        =    54
   EQU   BIGU        =    55
   EQU   BIGV        =    56
   EQU   BIGW        =    57
   EQU   BIGX        =    58
   EQU   BIGY        =    59
   EQU   BIGZ        =    5A
   EQU   BLANK       =    20
   EQU   CARET       =    5E
   EQU   COLON       =    3A
   EQU   COMMA       =    2C
   EQU   CR          =    0D
   EQU   DEL         =    7F
   EQU   DIG0        =    30
   EQU   DIG1        =    31
   EQU   DIG2        =    32
   EQU   DIG3        =    33
   EQU   DIG4        =    34
   EQU   DIG5        =    35
   EQU   DIG6        =    36
   EQU   DIG7        =    37
   EQU   DIG8        =    38
   EQU   DIG9        =    39
   EQU   DIGIT       =     2
   EQU   DOLLAR      =    24
   EQU   DQUOTE      =    22
   EQU   EOF         =  -1
   EQU   EOS         =  -8
   EQU   LETA        =    61
   EQU   LETB        =    62
   EQU   LETC        =    63
   EQU   LETD        =    64
   EQU   LETE        =    65
   EQU   LETF        =    66
   EQU   LETG        =    67
   EQU   LETH        =    68
   EQU   LETI        =    69
   EQU   LETJ        =    6A
   EQU   LETK        =    6B
   EQU   LETL        =    6C
   EQU   LETM        =    6D
   EQU   LETN        =    6E
   EQU   LETO        =    6F
   EQU   LETP        =    70
   EQU   LETQ        =    71
   EQU   LETR        =    72
   EQU   LETS        =    73
   EQU   LETT        =    74
   EQU   LETU        =    75
   EQU   LETV        =    76
   EQU   LETW        =    77
   EQU   LETX        =    78
   EQU   LETY        =    79
   EQU   LETZ        =    7A
   EQU   LF          =    0A
   EQU   NO          =     0
   EQU   OK          =    -2
   EQU   PERCENT     =    25
   EQU   PERIOD      =    2E
   EQU   PLUS        =    2B
   EQU   QMARK       =    3F
   EQU   SEMICOL     =    3B
   EQU   SHARP       =    23
   EQU   SLASH       =    2F
   EQU   SQUOTE      =    27
   EQU   STAR        =    2A
   EQU   STDOUT      =     1
   EQU   TAB         =     9
   EQU   TILDE       =    7E
   EQU   UNDRLINE    =    5F       ; replaced --> UNDERLINE  = 95
   EQU   YES         =     1

;  FM ERROR CONSTANTS

   ASSM

   TEQ   FM%NOERR    = 0000   ; Everything is fine.
   TEQ   UL%RDEOF    = 0C5F9  ; Attempt to read record at
                              ; End Of File

   ENDA