*%GOTO CCWPLS1; 00550002 MACRO 00600002 IHACCW &DSECT= 01000002 .* /* START OF SPECIFICATIONS **** 01250002 .* 01300002 .*01 MODULE-NAME = IHACCW 01350002 .* 01400002 .*01 COPYRIGHT = NONE 01450002 .* 01460002 .*01 STATUS = VS2 RELEASE 2 LEVEL 2 01470002 .* 01480002 .*01 DESCRIPTIVE-NAME = CHANNEL COMMAND WORD 01490002 .* 01492002 .*01 FUNCTION = USED TO MAP THE CHANNEL COMMAND WORD. 01494002 .* 01496002 .*01 MODULE-TYPE = MACRO 01498002 .* 01498402 .*02 MACRO-SIZE = NA FOR MAPPING MACRO 01498802 .* 01499202 .*02 PARAMETER-RECEIVED = DSECT 01499602 .* 01499702 .*03 TYPE = CHARACTER STRING. 01499802 .* 01499902 .*04 VALUE = 'YES' OR 'NO'. 01549902 .* 01559902 .*01 TABLES = NONE 01569902 .* 01579902 .*01 INNER-MACROS = NONE 01589902 .* 01591902 .*01 SYSTEM-MACROS = NONE 01593902 .* 01595902 .*01 CHANGE-ACTIVITY = SEE BELOW 01597902 .* VS2 REL 2 01598302 .* MACRO CREATED 01598702 .* 01599102 .* 01599502 .**** END OF SPECIFICATIONS ***/ 01599602 * 01599702 *%CCWPLS1:; 01599802 * /* MACCOMP Y-2 SC1DO/SJD48 */ 01649802 * /* MACSTAT Y-2 73324/021160 */ 01659802 *%GOTO CCWPLS2; 01669802 * 01699802 * THIS DSECT DEFINES FIELDS AND ASSOCIATED FLAGS OF THE CHANNEL 02000002 * COMMAND WORD. 02500002 * IF DSECT=YES IS CODED, A DSECT STATEMENT WILL BE EXPANDED. 03000002 * THE DEFAULT IS DSECT=YES. 03500002 * 04000002 * DESCRIPTIVE LAYOUT 04100002 * 04150002 * +0 +1 +4 +6 04160002 * _____________________________________________________ 04200002 * | | | | | 04250002 * | COMD | DATA ADDRESS | FLAGS | BYTE | 04300002 * | CODE | | | COUNT | 04350002 * |______|__________________|____________|____________| 04400002 * 04450002 AIF ('&DSECT' EQ 'NO').NODSECT DO NOT EXPAND DSECT 04500002 .* STMT IF NO 05000002 DSECT 05500002 .NODSECT ANOP 06000002 CCW DS 0D BOUNDRY ALIGNMENT FOR CCWS 06500002 CCWADDRA DS 0A SAME AS CCWADDRB BELOW 07000002 CCWCOMCD DS X COMMAND CODE 07500002 CCWADDRB DS AL3 DATA ADDRESS 08000002 CCWFLGS DS X FLAG BYTE 08500002 CCWCD EQU X'80' USE ADDRESS PORTION OF NEXT CCW 09000002 CCWCC EQU X'40' USE COMMAND CODE AND DATA 09500002 * ADDRESS OF NEXT CCW 10000002 CCWSLI EQU X'20' SUPPRESS INCORR LEN INDICATION 10500002 CCWSKIP EQU X'10' SUPPRESS DATA TRANSFER 11000002 CCWPCI EQU X'08' CAUSES A CHANNEL PROGRAM 11500002 * CONTROLLED INTERRUPTION 12000002 DS X FILLER 12500002 CCWBYTE DS H NUMBER OF BYTES TO TRANSFER 13000002 MEND 13500002 *%CCWPLS2:; 13550002 */* */ 13600002 */* */ 13600102 */* THE FOLLOWING STRUCTURE DEFINES THE FIELDS AND ASSOCIATED FLAGS */ 13650002 */* OF THE CHANNEL COMMAND WORD. */ 13700002 */* */ 13750102 */* DESCRIPTIVE LAYOUT */ 13760002 */* */ 13762002 */* +0 +1 +4 +6 */ 13770002 */* _____________________________________________________ */ 13780002 */* | | | | | */ 13790002 */* | COMD | DATA ADDRESS | FLAGS | BYTE | */ 13792002 */* | CODE | | | COUNT | */ 13794002 */* |______|__________________|____________|____________| */ 13796002 */* */ 13798002 */* */ 13798402 * DCL 1 CCW BDY(DWORD) BASED, /* Y02072*/ 13800002 * 2 CCWADDRA PTR(31), /*SAME AS CCWADDRB Y02072*/ 13850002 * 3 CCWCOMCD FIXED(8), /*CCW OP CODE Y02072*/ 13900002 * 3 CCWADDRB PTR(24), /*CCW DATA ADDRESS Y02072*/ 13950002 * 2 CCWFLGS BIT(8), /*FLAGS Y02072*/ 14000002 * 3 CCWCD BIT(1), /*USE ADDR PORTION OF Y02072 14050002 * NEXT CCW Y02072*/ 14100002 * 3 CCWCC BIT(1), /*USE COM CD AND DATA Y02072 14150002 * ADDR OF NEXT CCW Y02072*/ 14200002 * 3 CCWSLI BIT(1), /*SUPPRESS INCORR LEN Y02072 14250002 * INDICATION Y02072*/ 14300002 * 3 CCWSKIP BIT(1), /*SUPPRESS DATA TRANS Y02072*/ 14350002 * 3 CCWPCI BIT(1), /*CAUSES A CHAN PGM Y02072 14400002 * CONTROLLED INTERUPT Y02072*/ 14450002 * 2 * FIXED(8), /*NOT USED Y02072*/ 14500002 * 2 CCWBYTE FIXED(16); /*DATA BYTE COUNT Y02072*/ 14550002