MACRO , 00001000
GRAFEQU , 00002000
R0 EQU 0 00003000
R1 EQU 1 00004000
R2 EQU 2 00005000
R3 EQU 3 00006000
R4 EQU 4 00007000
R5 EQU 5 00008000
R6 EQU 6 00009000
R7 EQU 7 00010000
R8 EQU 8 00011000
R9 EQU 9 00012000
R10 EQU 10 00013000
R11 EQU 11 00014000
R12 EQU 12 00015000
R13 EQU 13 00016000
R14 EQU 14 00017000
R15 EQU 15 00018000
SPACE , 00019000
POSTED EQU X'40' *ECB POSTED FLAG 00020000
SPACE , 00021000
CC0 EQU 8 *MASKS FOR CONDITION CODE TESTING 00022000
CC1 EQU 4 * ... 00023000
CC2 EQU 2 * ... 00024000
CC3 EQU 1 * ... 00025000
SPACE , 00026000
SF EQU X'1D' *3270 FUNCTION / ORDER CODES 00027000
GRAFESC EQU X'08' *APL GRAPHIC ESCAPE CHARACTER 00028000
SBA EQU X'11' 00029000
IC EQU X'13' 00030000
PT EQU X'05' 00031000
RA EQU X'3C' 00032000
EUA EQU X'12' 00033000
SPACE , 00034000
ALARM EQU B'00000100' *WRITE CONTROL CHARACTER FLAGS 00035000
KEYREST EQU B'00000010' 00036000
RESETMDT EQU B'00000001' 00037000
SPACE , 00038000
PROTECT EQU B'00100000' *FIELD MARK FLAGS 00039000
NUMERIC EQU B'00010000' 00040000
SKIP EQU PROTECT+NUMERIC 00041000
DISPNPEN EQU B'00000000' 00042000
DISPPEN EQU B'00000100' 00043000
HIGHPEN EQU B'00001000' 00044000
MASK EQU B'00001100' *LOCALLY CHANGED FOR TEST UNDER MASK 00045000
MDT EQU B'00000001' 00046000
FIELDMRK EQU B'11000000' 00047000
SPACE , 00048000
LCLWRT EQU X'01' *3270 CCW OP-CODES 00049000
REMWRT EQU X'F1' 00050000
LCLEWRT EQU X'05' 00051000
REMEWRT EQU X'F5' 00052000
LCLEWRTA EQU X'0D' 00053000
REMEWRTA EQU X'7E' 00054000
LCLRDMOD EQU X'06' 00055000
REMRDMOD EQU X'F6' 00056000
LCLRDBUF EQU X'02' 00057000
REMRDBUF EQU X'F2' 00058000
READMALL EQU X'6E' *READ MODIFY ALL 00059000
LCLEALLU EQU X'0F' 00060000
REMEALLU EQU X'6F' 00061000
LCLWSF EQU X'11' *WRITE STRUCTURED FIELD CMDS 00062000
REMWSF EQU X'F3' 00063000
EXT3270 EQU X'80' *DIAG 7C BIT FOR EXTENDED DS 00064000
HIMASK EQU B'11000000' *TEST MASK FOR HILIGHT BITS 00065000
COLMASK EQU B'00111000' *TEST MASK FOR COLOR BITS 00066000
SPACE 1 00067000
* NOTE: THESE EQUATES MUST BE THE SAME AS THEIR CP NAMESAKES 00068000
SPACE 1 00069000
CLASTERM EQU X'80' *TTY TERMINAL CLASS 00070000
CLASGRAF EQU X'40' *GRAPHICS (3270) TERMINAL CLASS 00071000
TYPTELE2 EQU X'20' *TTY MODEL 30 00072000
GRF3279 EQU X'06' *3279 00073000
TYP3278 EQU X'01' *3278 MODEL 2 00074000
TYP3277 EQU X'04' *3277 00075000
SPACE 1 00076000
SELECT EQU X'0B' *SELECT IMMEDIATE COMMAND 00077000
SELRM EQU X'0B' *3274-1B SELECT READ MODIFY 00078000
SELRB EQU X'1B' * " * READ BUFFER 00079000
SELWRT EQU X'4B' *SELECT WRITE 00080000
NULL EQU X'FF' *INTERNAL DEFINITION OF NULL CHAR. 00081000
BBXDUP EQU X'FA' *CODE FOR DUP KEY IN VIRTTERM 00082000
BBXFM EQU X'FE' *CODE FOR FIELD MARK KEY IN VIRTTERM 00083000
EJECT , 00084000
ATTN EQU X'80' *ATTENTION - DEVICE STATUS (CSW) 00085000
STATMOD EQU X'40' *STATUS MODIFIER 00086000
CUE EQU X'20' *CONTROL UNIT END 00087000
BUSY EQU X'10' *BUSY 00088000
CE EQU X'08' *CHANNEL END 00089000
DE EQU X'04' *DEVICE END 00090000
UC EQU X'02' *UNIT CHECK 00091000
UE EQU X'01' *UNIT EXCEPTION 00092000
SPACE , 00093000
PCINT EQU X'80' *PCI - CHANNEL STATUS (CSW) 00094000
ICL EQU X'40' *INCORRECT LENGTH 00095000
PCK EQU X'20' *PROGRAM CHECK 00096000
PROTCK EQU X'10' *PROTECTION CHECK 00097000
CHANDATC EQU X'08' *CHANNEL DATA CHECK 00098000
CHANCTLC EQU X'04' *CHANNEL CONTROL CHECK 00099000
INTFCTLC EQU X'02' *INTERFACE CONTROL CHECK 00100000
CHAINCK EQU X'01' *CHAINING CHECK 00101000
SPACE , 00102000
CD EQU X'80' *CHAIN DATA - CCW FLAGS 00103000
CC EQU X'40' *COMMAND CHAINING 00104000
SLI EQU X'20' *SUPPRESS INCORRECT LENGTH INDICATION 00105000
SKIPREAD EQU X'10' *SUPPRESS DATA TRANSFER TO MEMORY 00106000
PCI EQU X'08' *PROGRAM CONTROLLED INTERUPT 00107000
IDA EQU X'04' *INDIRECT ADDRESSING 00108000
SPACE 1 00109000
CCWSENSE EQU X'04' * CCW OPCODES 00110000
CCWREAD EQU X'0A' 00111000
CCWWRITE EQU X'01' 00112000
CCWPREP EQU X'06' 00113000
CCWENA EQU X'27' 00114000
CCWDISA EQU X'2F' 00115000
SENSID EQU X'E4' 00116000
SPACE 1 00117000
SNSCREJ EQU X'80' * SENSE FLAGS - COMMAND REJECTED 00118000
SNSIRQ EQU X'40' * SENSE FLAGS - INTERVETION REQ'D 00119000
SNSBDC EQU X'08' * DATA CHECK 00120000
SNSBOR EQU X'04' * OVERRUN 00121000
SNSBLD EQU X'02' * LOST DATA 00122000
SNSBTO EQU X'01' * TIMEOUT 00123000
TIMEOUT EQU SNSBTO *SYNONYMN 00124000
MEND , 00125000