MACRO 00500002 IHACSW &DSECT= 01000002 * /* MACCOMP Y-2 SC1D0/SJD48 */ 01050002 * /* MACSTAT Y-2 73124/021160 */ 01100002 .* /* START OF SPECIFICATIONS **** 01150002 .* 01200002 .*01 MODULE-NAME = IHACSW 01250002 .* 01300002 .*01 COPYRIGHT = NONE 01350002 .* 01400002 .*01 STATUS = VS2 RELEASE 2 LEVEL 2 01450002 .* 01460002 .*01 DESCRIPTIVE-NAME = CHANNEL STATUS WORD 01470002 .* 01480002 .*01 FUNCTION = USED TO MAC THE CHANNEL STATUS WORD. 01490002 .* 01492002 .*01 MODULE-TYPE = MACRO 01494002 .* 01496002 .*02 MACRO-SIZE = NA FOR MAPPING MACRO 01498002 .* 01498402 .*02 PARAMETER-RECEIVED = DSECT 01498802 .* 01499202 .*03 TYPE = CHARACTER STRING. 01499302 .* 01499402 .*04 VALUE = 'YES' OR 'NO'. 01499502 .* 01499602 .*01 TABLES = NONE 01499702 .* 01499802 .*01 INNER-MACROS = NONE 01499902 .* 01500002 .*01 SYSTEM-MACROS = NONE 01549902 .* 01551902 .*01 CHANGE-ACTIVITY = SEE BELOW 01569902 .* VS2 REL 2 01579902 .* MACRO CREATED 01589902 .* 01591902 .* 01593902 .**** END OF SPECIFICATIONS ***/ 01595902 * 01599902 * THIS DSECT DEFINES FIELDS AND ASSOCIATED FLAGS OF THE CHANNEL 02000002 * STATUS WORD. 02500002 * IF DSECT=YES IS CODED, A DSECT STATEMENT WILL BE EXPANDED. THE 03000002 * DEFAULT IS DSECT=YES. 03500002 * 04000002 * DESCRIPTIVE LAYOUT 04050002 * 04100002 * _____________________________________________________ 04150002 * | | | | | 04200002 * | PROT | ADDR OF LAST CCW | STATUS | RESIDUAL | 04250002 * | KEY | EXECUTED + 8 | FLAGS | COUNT | 04300002 * |______|__________________|____________|____________| 04350002 * 04400002 AIF ('&DSECT' EQ 'NO').NODSECT IF DSECT=YES IS NOT CODED 04500002 .* DO NOT GIVE DSECT STMT 05000002 DSECT 05500002 .NODSECT ANOP 06000002 CSW DS 0D BEGINNING BOUNDRY FOR CSW 06500002 CSWADDRA DS 0A SAME AS CSWADDRB BELOW 07000002 CSWKEY DS B PROTECTION KEY (BITS 4-7 ZERO) 07500002 CSWADDRB DS AL3 ADDR OF LAST CCW EXECUTED + 8 08000002 CSWSTATS DS 0H ENDING I/O STATUS BITS 08500002 CSWSTAT1 DS B STATUS BYTE ONE (BITS 0-7) 09000002 CSWATTN EQU X'80' ATTENTION BIT 09500002 CSWSTMOD EQU X'40' STATUS MODIFIER BIT 10000002 CSWCUEND EQU X'20' CONTROL UNIT END BIT 10500002 CSWBUSY EQU X'10' BUSY BIT 11000002 CSWCHEND EQU X'08' CHANNEL END BIT 11500002 CSWDVEND EQU X'04' DEVICE END BIT 12000002 CSWUNCHK EQU X'02' UNIT CHECK BIT 12500002 CSWUNEXP EQU X'01' UNIT EXCEPTION BIT 13000002 CSWSTAT2 DS B STATUS BYTE TWO (BITS 8-15) 13500002 CSWPCI EQU X'80' PGM CONTROLLED INTERRUPTION BIT 14000002 CSWINCOR EQU X'40' INCORRECT LENGTH INDICATION BIT 14500002 CSWPGCHK EQU X'20' PROGRAM CHECK BIT 15000002 CSWPRCHK EQU X'10' PROTECTION CHECK BIT 15500002 CSWCDCHK EQU X'08' CHANNEL DATA CHECK BIT 16000002 CSWCCCHK EQU X'04' CHANNEL CONTROL CHECK BIT 16500002 CSWICCHK EQU X'02' INTERFACE CONTROL CHECK BIT 17000002 CSWCHCHK EQU X'01' CHAINING CHECK BIT 17500002 CSWBYTE DS H BYTE COUNT 18000002 MEND 18500002