* %GOTO CCWPLS; /* BILINGUAL HEADER 00900010 MACRO 01800010 TCCWD 02700010 .*A000000-999999 @X02X5X0 03600010 .*A060000,360000 S99228 04500010 .*C070000 X02004 05400010 .*A377000,565000-570000 X02004 06300010 .*A377000,660000 @Y17XAXF 07200010 .*C070000 @Y17XAXF 08100010 IEDQCCW DSECT 09000010 * @Y17XAXF 09900010 * CCW DSECT, TCAM 10, 03-04-76 @Y17XAXF 10800010 * @Y17XAXF 11700010 CCW EQU IEDQCCW 12600010 CCWOPCDE DS XL1 . COMMAND CODE 13500010 * C O M M A N D C O D E S 14400010 CCWPOLL EQU X'09' . POLL (AUTOPOLL) 15300010 CCWSENSE EQU X'04' . SENSE 16200010 CCWIPL EQU X'05' . IPL A 3705 @Y17XAXF 17100010 CCWPREP EQU X'06' . PREPARE 18000010 CCWINHIB EQU X'0A' . READ INHIBIT 18900010 CCWTIC EQU X'08' . TIC 19800010 CCWWRITE EQU X'01' . WRITE 20700010 CCWREAD EQU X'02' . READ 21600010 CCWDIAL EQU X'29' . DIAL 22500010 CCWDISAB EQU X'2F' . DISABLE 23400010 CCWENAB EQU X'27' . ENABLE 24300010 CCWBREAK EQU X'0D' . BREAK 25200010 CCWNOP EQU X'03' . NO -OP COMMAND 26100010 CCWSEL EQU X'0B' 3270 SELECT S99228 27000010 CCWRDM EQU X'06' 3270 READ MODIFIED S99228 27900010 CCWEAU EQU X'0F' 3270 EAU COMMAND S99228 28800010 CCWREAL EQU X'80' REAL TIC INDICATOR FLAG X02004 29700010 CCWBRK EQU X'09' . 3705 WRITE BREAK @Y17XAXF 30600010 CCWWS0 EQU X'31' . WRITE START ZERO @Y17XAXF 31500010 CCWWS1 EQU X'51' . WRITE START ONE @Y17XAXF 32400010 CCWRS0 EQU X'32' . READ START ZERO @Y17XAXF 33300010 CCWRS1 EQU X'52' . READ START ONE @Y17XAXF 34200010 CCWTICR EQU X'88' . DATA ADDR & TIC ADDR INITIAL 34500010 * @Y17XAXF 34800010 CCWRRS EQU X'93' . RESTART RESET @Y17XAXF 35100010 * 36000010 CCWADDR DS AL3 . DATA ADDRESS 36900010 * 37800010 CCWFLAGS DS XL1 . CCW FLAGS 38700010 * C C W F L A G S 39600010 CCWCD EQU X'80' . CHAIN DATA 40500010 CCWCC EQU X'40' . COMMAND CHAIN 41400010 CCWSLI EQU X'20' . SUPPRESS INCORRECT LENGTH 42300010 CCWSKIP EQU X'10' . SKIP 43200010 CCWPCI EQU X'08' . PCI 44100010 CCWIDA EQU X'04' INDIRECT ADDRESS LIST X02004 45000010 * IS PRESENT X02004 45900010 * 46800010 DS XL1 . UNUSED BYTE OF CCW 47700010 * 48600010 CCWCOUNT DS XL2 . BYTE COUNT (DATA TRANSFER) 49500010 CCWLEN EQU *-IEDQCCW CCW LENGTH @Y17XAXF 49700010 MEND 49900010 * */ 51300010 *%CCWPLS:; /* @Y17XAXF*/ 52200010 */* @Y17XAXF*/ 53100010 */* CCW STRUCTURE, TCAM 10, 03-04-76 @Y17XAXF*/ 54000010 */* @Y17XAXF*/ 54900010 *DECLARE /* @Y17XAXF*/ 55800010 * 1 IEDQCCW BASED, /* CCW @Y17XAXF*/ 56700010 * 2 CCW CHAR(8), /* CCW @Y17XAXF*/ 57600010 * 3 CCWOPCDE BIT(8), /* COMMAND CODE @Y17XAXF*/ 58500010 * 3 CCWADDR PTR(24) BDY(BYTE), /* DATA ADDRESS @Y17XAXF*/ 59400010 * 3 CCWFLAGS BIT(8), /* CCW FLAGS @Y17XAXF*/ 60300010 * 4 CCWCD BIT(1), /* CHAIN DATA @Y17XAXF*/ 61200010 * 4 CCWCC BIT(1), /* COMMAND CHAIN @Y17XAXF*/ 62100010 * 4 CCWSLI BIT(1), /* SUPPRESS INCORRECT @Y17XAXF*/ 63000010 * /* LENGTH @Y17XAXF*/ 63900010 * 4 CCWSKIP BIT(1), /* SKIP @Y17XAXF*/ 64800010 * 4 CCWPCI BIT(1), /* PCI @Y17XAXF*/ 65700010 * 4 CCWIDA BIT(1), /* INDIRECT ADDRESS LIST @Y17XAXF*/ 66600010 * /* IS PRESENT @Y17XAXF*/ 67500010 * 4 * BIT(2), /* RESERVED @Y17XAXF*/ 68400010 * 3 CCWRSV BIT(8), /* UNUSED @Y17XAXF*/ 69300010 * 3 CCWCOUNT FIXED(15) BDY(BYTE); /* BYTE COUNT @Y17XAXF*/ 70200010 *%CCWLEN='LENGTH(IEDQCCW)'; /* LENGTH OF CCW @Y17XAXF*/ 71100010 */* CCWOPCDE COMMAND CODES @Y17XAXF*/ 72000010 * DCL CCWPOLL BIT(8) CONSTANT('09'X);/* POLL (AUTOPOLL) @Y17XAXF*/ 72900010 * DCL CCWSENSE BIT(8) CONSTANT('04'X);/* SENSE @Y17XAXF*/ 73800010 * DCL CCWIPL BIT(8) CONSTANT('05'X);/* IPL A 3705 @Y17XAXF*/ 74700010 * DCL CCWPREP BIT(8) CONSTANT('06'X);/* PREPARE @Y17XAXF*/ 75600010 * DCL CCWINHIB BIT(8) CONSTANT('0A'X);/* READ INHIBIT @Y17XAXF*/ 76500010 * DCL CCWTIC BIT(8) CONSTANT('08'X);/* TIC @Y17XAXF*/ 77400010 * DCL CCWWRITE BIT(8) CONSTANT('01'X);/* WRITE @Y17XAXF*/ 78300010 * DCL CCWREAD BIT(8) CONSTANT('02'X);/* READ @Y17XAXF*/ 79200010 * DCL CCWDIAL BIT(8) CONSTANT('29'X);/* DIAL @Y17XAXF*/ 80100010 * DCL CCWDISAB BIT(8) CONSTANT('2F'X);/* DISABLE @Y17XAXF*/ 81000010 * DCL CCWENAB BIT(8) CONSTANT('27'X);/* ENABLE @Y17XAXF*/ 81900010 * DCL CCWBREAK BIT(8) CONSTANT('0D'X);/* BREAK @Y17XAXF*/ 82800010 * DCL CCWNOP BIT(8) CONSTANT('03'X);/* NO-OP COMMAND @Y17XAXF*/ 83700010 * DCL CCWSEL BIT(8) CONSTANT('0B'X);/* 3270 SELECT @Y17XAXF*/ 84600010 * DCL CCWRDM BIT(8) CONSTANT('06'X);/* 3270 READ MODIFIED @Y17XAXF*/ 85500010 * DCL CCWEAU BIT(8) CONSTANT('0F'X);/* 3270 EAU COMMAND @Y17XAXF*/ 86400010 * DCL CCWREAL BIT(8) CONSTANT('80'X);/* REAL TIC INDICATOR @Y17XAXF*/ 87300010 * /* FLAG @Y17XAXF*/ 88200010 * DCL CCWBRK BIT(8) CONSTANT('09'X);/* 3705 WRITE BREAK @Y17XAXF*/ 89100010 * DCL CCWWS0 BIT(8) CONSTANT('31'X);/* WRITE START ZERO @Y17XAXF*/ 90000010 * DCL CCWWS1 BIT(8) CONSTANT('51'X);/* WRITE START ONE @Y17XAXF*/ 90900010 * DCL CCWRS0 BIT(8) CONSTANT('32'X);/* READ START ZERO @Y17XAXF*/ 91800010 * DCL CCWRS1 BIT(8) CONSTANT('52'X);/* READ START ONE @Y17XAXF*/ 92700010 * DCL CCWTICR BIT(8) CONSTANT('88'X);/* DATA ADDR & TIC ADDR INITIAL 93000010 * @Y17XAXF*/ 93300010 * DCL CCWRRS BIT(8) CONSTANT('93'X);/* RESTART RESET @Y17XAXF*/ 93600010