home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sym.equ.kerdef < prev    next >
Text File  |  2020-01-01  |  3KB  |  114 lines
  1. ; 19 aug 85 esj added fm error constants as teq in case they really get
  2. ;           included
  3. ; 23 jly 85 esj oops, equs need hex constant, not decimal
  4. ; 16 jly 85 esj renamed constants with excessive size.
  5. ;;;;;;;;;;;;;;  KERDEF         ;;;;;;;;;;;;;;;;;;;;;;;
  6. ;     DEFINES VARIOUS CONSTANTS FOR THE KERMIT-CGOS PROGRAM
  7.    EQU   BACKSLSH    =    5C  ; replaced --> BACKSLASH = 92
  8.    EQU   BACKSPCE    =     8  ; replaced --> BACKSPACE = 8
  9.    EQU   GOOD        =     0
  10.    EQU   BAD         =    8000
  11.    EQU   BANG        =    21
  12.    EQU   BAR         =    7C     ;
  13.    EQU   ATSIGN      =    40
  14.    EQU   BIGA        =    41
  15.    EQU   BIGB        =    42
  16.    EQU   BIGC        =    43
  17.    EQU   BIGD        =    44
  18.    EQU   BIGE        =    45
  19.    EQU   BIGF        =    46
  20.    EQU   BIGG        =    47
  21.    EQU   BIGH        =    48
  22.    EQU   BIGI        =    49
  23.    EQU   BIGJ        =    4A
  24.    EQU   BIGK        =    4B
  25.    EQU   BIGL        =    4C
  26.    EQU   BIGM        =    4D
  27.    EQU   BIGN        =    4E
  28.    EQU   BIGO        =    4F
  29.    EQU   BIGP        =    50
  30.    EQU   BIGQ        =    51
  31.    EQU   BIGR        =    52
  32.    EQU   BIGS        =    53
  33.    EQU   BIGT        =    54
  34.    EQU   BIGU        =    55
  35.    EQU   BIGV        =    56
  36.    EQU   BIGW        =    57
  37.    EQU   BIGX        =    58
  38.    EQU   BIGY        =    59
  39.    EQU   BIGZ        =    5A
  40.    EQU   BLANK       =    20
  41.    EQU   CARET       =    5E
  42.    EQU   COLON       =    3A
  43.    EQU   COMMA       =    2C
  44.    EQU   CR          =    0D
  45.    EQU   DEL         =    7F
  46.    EQU   DIG0        =    30
  47.    EQU   DIG1        =    31
  48.    EQU   DIG2        =    32
  49.    EQU   DIG3        =    33
  50.    EQU   DIG4        =    34
  51.    EQU   DIG5        =    35
  52.    EQU   DIG6        =    36
  53.    EQU   DIG7        =    37
  54.    EQU   DIG8        =    38
  55.    EQU   DIG9        =    39
  56.    EQU   DIGIT       =     2
  57.    EQU   DOLLAR      =    24
  58.    EQU   DQUOTE      =    22
  59.    EQU   EOF         =  -1
  60.    EQU   EOS         =  -8
  61.    EQU   LETA        =    61
  62.    EQU   LETB        =    62
  63.    EQU   LETC        =    63
  64.    EQU   LETD        =    64
  65.    EQU   LETE        =    65
  66.    EQU   LETF        =    66
  67.    EQU   LETG        =    67
  68.    EQU   LETH        =    68
  69.    EQU   LETI        =    69
  70.    EQU   LETJ        =    6A
  71.    EQU   LETK        =    6B
  72.    EQU   LETL        =    6C
  73.    EQU   LETM        =    6D
  74.    EQU   LETN        =    6E
  75.    EQU   LETO        =    6F
  76.    EQU   LETP        =    70
  77.    EQU   LETQ        =    71
  78.    EQU   LETR        =    72
  79.    EQU   LETS        =    73
  80.    EQU   LETT        =    74
  81.    EQU   LETU        =    75
  82.    EQU   LETV        =    76
  83.    EQU   LETW        =    77
  84.    EQU   LETX        =    78
  85.    EQU   LETY        =    79
  86.    EQU   LETZ        =    7A
  87.    EQU   LF          =    0A
  88.    EQU   NO          =     0
  89.    EQU   OK          =    -2
  90.    EQU   PERCENT     =    25
  91.    EQU   PERIOD      =    2E
  92.    EQU   PLUS        =    2B
  93.    EQU   QMARK       =    3F
  94.    EQU   SEMICOL     =    3B
  95.    EQU   SHARP       =    23
  96.    EQU   SLASH       =    2F
  97.    EQU   SQUOTE      =    27
  98.    EQU   STAR        =    2A
  99.    EQU   STDOUT      =     1
  100.    EQU   TAB         =     9
  101.    EQU   TILDE       =    7E
  102.    EQU   UNDRLINE    =    5F       ; replaced --> UNDERLINE  = 95
  103.    EQU   YES         =     1
  104.  
  105. ;  FM ERROR CONSTANTS
  106.  
  107.    ASSM
  108.  
  109.    TEQ   FM%NOERR    = 0000   ; Everything is fine.
  110.    TEQ   UL%RDEOF    = 0C5F9  ; Attempt to read record at
  111.                               ; End Of File
  112.  
  113.    ENDA
  114.