*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