MACRO 00001000
EQUATES 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
* 00003000
*** CMS EQUATE SYMBOLS 00004000
* 00005000
SPACE 2 00006000
* BITS DEFINED IN THE PROGRAM STATUS WORD (PSW) 00007000
SPACE 00008000
CHAN0 EQU X'80' - BIT 00 - CHANNEL 0 MASK 00009000
CHAN1 EQU X'40' - BIT 01 - CHANNEL 1 MASK 00010000
CHAN2 EQU X'20' - BIT 02 - CHANNEL 2 MASK 00011000
CHAN3 EQU X'10' - BIT 03 - CHANNEL 3 MASK 00012000
CHAN4 EQU X'08' - BIT 04 - CHANNEL 4 MASK 00013000
CHAN5 EQU X'04' - BIT 05 - CHANNEL 5 MASK 00014000
CHANM EQU X'02' - BIT 06 - INPUT/OUTPUT MASK 00015000
EXTM EQU X'01' - BIT 07 - EXTERNAL MASK 00016000
SPACE 00017000
ECMM EQU X'08' - BIT 12 - EXTENDED CONTROL MODE MASK 00018000
MCKM EQU X'04' - BIT 13 - MACHINE CHECK MASK 00019000
WAIT EQU X'02' - BIT 14 - WAIT STATE MASK 00020000
PROB EQU X'01' - BIT 15 - PROBLEM STATE MASK 00021000
SPACE 00022000
FOFM EQU X'08' - BIT 36 - FIXED-POINT OVERFLOW MASK 00023000
DOFM EQU X'04' - BIT 37 - DECIMAL OVERFLOW MASK 00024000
EUFM EQU X'02' - BIT 38 - EXPONENT UNDERFLOW MASK 00025000
SIGM EQU X'01' - BIT 39 - SIGNIFICANCE MASK 00026000
SPACE 2 00027000
* BITS DEFINED IN THE CHANNEL STATUS WORD (CSW) 00028000
SPACE 00029000
ATTN EQU X'80' - BIT 32 - ATTENTION 00030000
SM EQU X'40' - BIT 33 - STATUS MODIFIER 00031000
CUE EQU X'20' - BIT 34 - CONTROL UNIT END 00032000
BUSY EQU X'10' - BIT 35 - BUSY 00033000
CE EQU X'08' - BIT 36 - CHANNEL END 00034000
DE EQU X'04' - BIT 37 - DEVICE END 00035000
UC EQU X'02' - BIT 38 - UNIT CHECK 00036000
UE EQU X'01' - BIT 39 - UNIT EXCEPTION 00037000
SPACE 00038000
PCI EQU X'80' - BIT 40 - PROGRAM-CONTROLLED INTERRUPTION 00039000
ICL EQU X'40' - BIT 41 - INCORRECT LENGTH 00040000
PGC EQU X'20' - BIT 42 - PROGRAM CHECK 00041000
PTC EQU X'10' - BIT 43 - PROTECTION CHECK 00042000
CDC EQU X'08' - BIT 44 - CHANNEL DATA CHECK 00043000
CCC EQU X'04' - BIT 45 - CHANNEL CONTROL CHECK 00044000
ICC EQU X'02' - BIT 46 - INTERFACE CONTROL CHECK 00045000
CHC EQU X'01' - BIT 47 - CHAINING CHECK 00046000
EJECT 00047000
* 00048000
*** CMS EQUATE SYMBOLS 00049000
* 00050000
SPACE 2 00051000
* COMMON CHANNEL COMMAND CODES 00052000
SPACE 00053000
WRITE EQU X'01' - WRITE 00054000
READ EQU X'02' - READ 00055000
NOP EQU X'03' - NO OPERATION 00056000
SENSE EQU X'04' - SENSE 00057000
WRDATA EQU X'05' - WRITE DATA 00058000
RDDATA EQU X'06' - READ DATA 00059000
SEEK EQU X'07' - SEEK 00060000
TIC EQU X'08' - TRANSFER IN CHANNEL 00061000
WRITE1 EQU X'09' - WRITE AND SPACE 1 00062000
RDCONS EQU X'0A' - READ FROM CONSOLE 00063000
SETSEC EQU X'23' - SET SECTOR 00064000
SEARCH EQU X'31' - SEARCH ID EQUAL 00065000
SPACE 2 00066000
* BITS DEVINED IN A CHANNEL COMMAND WORD (CCW) 00067000
SPACE 00068000
CD EQU X'80' - BIT 32 - CHAIN DATA 00069000
CC EQU X'40' - BIT 33 - COMMAND CHAIN 00070000
SILI EQU X'20' - BIT 34 - SUPPRESS INCORRECT LENGTH 00071000
SKIP EQU X'10' - BIT 35 - SUPPRESS DATA TRANSFER 00072000
PCIF EQU X'08' - BIT 36 - CAUSE PROGRAM CONTROL INTERRUPT 00073000
IDA EQU X'04' - BIT 37 - INDIRECT DATA ADDRESS 00074000
EJECT 00075000
POP PRINT 00075100
MEND 00076000