home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.sym.equ.kerdef
< prev
next >
Wrap
Text File
|
1987-02-19
|
3KB
|
114 lines
; 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