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