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