ibm:vm370-lib:macro:grafequ.macro_src
Table of Contents
GRAFEQU Source
References
- Fixes Applied : 0
- This Source Date : Sunday, March 12, 2006
- Last Fix ID : [Unmodified]
Source Listing
- GRAFEQU.MACRO.txt
- 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
ibm/vm370-lib/macro/grafequ.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator