*COPY RSSEQU 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').RSS01 00001400 PRINT OFF,NOGEN 00001600 .RSS01 ANOP 00001800 * 00002000 *** RSS EQUATE SYMBOLS - MACHINE USAGE 00003000 * 00004000 SPACE 1 00005000 * BITS DEFINED IN STANDARD/EXTENDED PSW 00006000 EXTMODE EQU X'08' BIT 12 - EXTENDED MODE 00007000 MCHEK EQU X'04' BIT 13 - MACHINE CHECK ENABLED 00008000 WAIT EQU X'02' BIT 14 - WAIT STATE 00009000 PROBMODE EQU X'01' BIT 15 - PROBLEM STATE 00010000 SPACE 1 00011000 * BITS DEFINED IN CHANNEL STATUS WORD - CSW 00012000 ATTN EQU X'80' BIT 32 - ATTENTION 00013000 SM EQU X'40' BIT 33 - STATUS MODIFIER 00014000 CUE EQU X'20' BIT 34 - CONTROL UNIT END 00015000 BUSY EQU X'10' BIT 35 - BUSY 00016000 CE EQU X'08' BIT 36 - CHANNEL END 00017000 DE EQU X'04' BIT 37 - DEVICE END 00018000 UC EQU X'02' BIT 38 - UNIT CHECK 00019000 UE EQU X'01' BIT 39 - UNIT EXCEPTION 00020000 * 00021000 PCI EQU X'80' BIT 40 - PROGRAM-CONTROL INTERRUPT 00022000 IL EQU X'40' BIT 41 - INCORRECT LENGTH 00023000 PRGC EQU X'20' BIT 42 - PROGRAM CHECK 00024000 PRTC EQU X'10' BIT 43 - PROTECTION CHECK 00025000 CDC EQU X'08' BIT 44 - CHANNEL DATA CHECK 00026000 CCC EQU X'04' BIT 45 - CHANNEL CONTROL CHECK 00027000 IFCC EQU X'02' BIT 46 - INTERFACE CONTROL CHECK 00028000 CHC EQU X'01' BIT 47 - CHAINING CHECK 00029000 SPACE 1 00030000 * BITS DEFINED IN CHANNEL COMMAND WORD - CCW 00031000 CD EQU X'80' BIT 32 - CHAIN DATA 00032000 CC EQU X'40' BIT 33 - COMMAND CHAIN 00033000 SILI EQU X'20' BIT 34 - SUPPRESS INCORRECT LENGTH IND. 00034000 SKIP EQU X'10' BIT 35 - SUPPRESS DATA TRANSFER 00035000 PCIF EQU X'08' BIT 36 - PROGRAM-CONTROL INTERRUPT FETCH 00036000 IDA EQU X'04' BIT 37 - INDIRECT DATA ADDRESS 00037000 SPACE 1 00038000 * BITS DEFINED IN SENSE BYTE 0 -- COMMON TO MOST DEVICES 00039000 CMDREJ EQU X'80' BIT 0 - COMMAND REJECT 00040000 INTREQ EQU X'40' BIT 1 - INTERVENTION REQUIRED 00041000 BUSOUT EQU X'20' BIT 2 - BUS OUT 00042000 EQCHK EQU X'10' BIT 3 - EQUIPMENT CHECK 00043000 DATACHK EQU X'08' BIT 4 - DATA CHECK 00044000 EJECT 00045000 * 00046000 *** CP370 EQUATE SYMBOLS - CP USAGE 00047000 * 00048000 * SYMBOLIC REGISTER EQUATES 00049000 R0 EQU 0 00050000 R1 EQU 1 00051000 R2 EQU 2 00052000 R3 EQU 3 00053000 R4 EQU 4 00054000 R5 EQU 5 00055000 R6 EQU 6 00056000 R7 EQU 7 GENERAL 00057000 R8 EQU 8 REGISTER 00058000 R9 EQU 9 DEFINITIONS 00059000 R10 EQU 10 00060000 R11 EQU 11 00061000 R12 EQU 12 00062000 R13 EQU 13 00063000 R14 EQU 14 00064000 R15 EQU 15 00065000 * 00066000 Y0 EQU 0 FLOATING 00067000 Y2 EQU 2 POINT 00068000 Y4 EQU 4 REGISTER 00069000 Y6 EQU 6 DEFINITIONS 00070000 EJECT 00071000 POP PRINT 00072000 SPACE 00073000