* %GOTO PLSIOBK; /* BILINGUAL HEADER 00400000 MACRO 00900020 IOBLOCKS 01800020 * 02700020 * I/O CONTROL BLOCKS (ECB,TECB ADDRESS,IOB,DCB) 03600022 * 03900022 * VERSION 10.0 (TCAM,TOTE) @Y17XAXU 04100000 * 04500020 IOBLOCKS DSECT 05400020 * 06300020 * EVENT CONTROL BLOCK 07200020 * 08100020 ECBOLT DS F . EVENT CONTROL BLOCK 09000000 * 09050022 * UNIT CONTROL BLOCK ADDRESS 09100022 * 09150022 OLTUCBA DS AL2 . UCB ADDRESS 09160000 * 09170022 * TERMINAL NAME TABLE ENTRY OFFSET 09180022 * 09190022 OLTTCOFF DS H . C. TNT ENTRY OFFSET @Y17XAXU 09195000 OLTTNOFF DS H . REAL TNT ENTRY OFFSET @Y17XAXU 09200000 OLTTRSID DS H NETWORK ADDRESS @Y17XAXU 09220000 * 09250022 * TCAM RELATIVE LINE NUMBER 09300022 * 09350022 OLTTCRLN DS C . RLN 09400000 OLTLCBA DS AL3 . LCB ADDRESS OF 3705 @Y17XAXU 09420000 * 09450022 OLTTCTNT DS F . C. TNT ENTRY ADDRESS @Y17XAXU 09470000 OLTRLTNT DS A REAL TNT ENTRY ADDRESS @Y17XAXU 09500000 OLTTDLN DS H . LENGTH OF TD TTE AREA @Y17XAXU 09508000 OLTFLAG1 DS C . TEST DEVICE FLAG BYTE @Y17XAXU 09516000 OLTTNTAS EQU X'80' TOTE TNT ENTRY ASSIGNED @Y17XAXU 09524000 OLTPRSC EQU X'20' ON=PRI TD, OFF=SEC TD @Y17XAXU 09525000 OLTUNRD EQU X'10' ON=UNREAD DATA @Y17XAXU 09526000 * OFF=NO UNREAD DATA @Y17XAXU 09527000 OLTEX EQU X'08' EXCEPTION RESPONSE @Y17XAXU 09528000 OLTFME EQU X'04' DEFINITE RESPONSE @Y17XAXU 09529000 OLTEN EQU X'02' ON=EXPEDITED,OFF=NORMAL @Y17XAXU 09530000 DS C RESERVED @Y17XAXU 09532000 OLTQCBA DS A QCB ADDRESS S22024 09580000 OLTCCWA DS A ADDRESS OF READ CCW CHAIN S22024 09660000 OLTBUFA DS A ADDRESS OF BUFFER CONTAINING S22024 09700000 * READ DATA S22024 09740000 * 09807022 * DATA BLOCKING FIELD 09814022 * 09821022 OLTDTBUF DS A . RESPONSE BUFFER ADDRESS 09828000 OLTDTCNT DS H . RESPONSE BUFFER SIZE 09835000 OLTFLAG2 DS BL1 . DATA BLOCKING SIZE 09842000 * 09849022 OLTPTIMD EQU X'80' . POST WAITIO IMMEDIATELY 09856022 OLTMVDAT EQU X'40' . MOVE RESPONSE TO BUFFER 09863022 OLTLV3IO EQU X'20' . LAST EXIO TO DEV WAS LEVEL 3 09870022 OLTSIOAC EQU X'10' . EXIO TO DEVICE IS OUTSTANDING 09877022 * 09884022 DS CL1 RESERVED @ZM47554 09892010 OLTSN DS 0F DEVICE SEQ NUMBER FIELD @ZM47554 09893010 DS CL2 FLAGS @ZM47554 09894010 OLTSEQ DS H SEQUENCE NUMBER (FROM SNA TH)@ZM47554 09895010 * 09900020 * TEST EVENT CONTROL BLOCK ADDRESS 10800020 * 11700020 TECBADDR DS F . ADDRESS OF TECB 12600000 * 13500020 * I/O BLOCK 14400020 * 15300020 IOB DS 0F 16200020 * 17100020 IOBFLG1 DS CL1 FIRST FLAG BYTE 18000020 IOBFLG2 DS CL1 SECOND FLAG BYTE 18900020 IOBSNS DS CL2 FIRST TWO SENSE BYTES 19800020 IOBECBAD DS 0F ECB ADDRESS 20700020 IOBECBCD DS CL1 ECB CODE 21600020 DS CL3 22000022 IOBCSW DS 0F CHANNEL STATUS WORD 22500020 IOBFLG3 DS CL1 THIRD FLAG BYTE 23400020 IOBCSW1 DS CL7 LAST 7 BYTES OF LAST CSW. 24300020 IOBCCWAD DS 0F CCW ADDRESS 25200020 IOBSIOCD DS CL1 START I/O CODE 26100020 DS CL3 26500022 IOBDCBAD DS F DCB ADDRESS 27000020 IOBREPM DS CL1 REPOSITION MODIFIER 27900020 IOBRSTAD DS CL3 RESTART ADDRESS 28800020 IOBINCR DS CL2 BLOCK COUNT INCREMENT 29700020 IOBERRCT DS CL2 ERROR COUNTS 30600020 IOBUCBX DS CL1 UCB INDEX S99528 30930022 IOBWORK DS CL3 WORK AREA S99528 30960022 IOBFLG4 DS CL1 FLAGS FOR TOTE & ITS APPENDAGE S99528 30990022 IOBATTN EQU X'80' ATTENTION INTERRUPT EXPECTED S99528 31020022 IOBCSWV EQU X'40' CSW SAVE AREA VALID S99528 31050022 IOBSEC EQU X'20' SECONDARY IOB S99528 31080022 IOBPRI EQU X'10' PRIMARY IOB S99528 31110022 IOBATNE EQU X'08' ERROR ON CE/DE BEFORE ATTN S99528 31140022 IOBCSWNV EQU X'04' CSW AREA TWO INVALID S99528 31150022 IOBCSWS DS CL7 CSW SAVE AREA 31170022 * 31500020 * DATA EXTENT BLOCK ADDRESS 32400022 * 33300020 ORG IOB+44 43300022 * 64800020 * DATA CONTROL BLOCK 65700020 * 66600020 DCB EQU * 68400020 * 69300020 DCBDCDEP DS 5F DEVICE DEPENDENT FIELD 70200020 DCBBUFNO DS C NUMBER OF BUFFERS IN DATA SET 71100020 DCBBUFCB DS CL3 BUFFER POOL CONTROL BLOCK ADDRESS 72000020 DCBBUFL DS H BUFFER LENGTH 72900020 DCBDSORG DS H DATA SET ORGANIZATION 73800020 DCBIOBAD DS F I/O BLOCK ADDRESS 74700020 DCBBGFEK DS C BUFFER TECNIQUE, BUFFER ALIGNMENT 75600020 DCBEODAD DS CL3 END OF DATA SET ROUTINE 76500020 DCBRECFM DS C RECORD FORMAT 77400020 DCBEXLST DS CL3 EXIT LIST 78300020 DCBTIOT DS H 79200020 DCBMACRF DS H MACRO INSTRUCTION REFERENCE 80100020 DCBIFLGS DS C I/O SUPERVISOR FLAGS 81000020 DCBDEBAD DS CL3 DATA EXTENT BLOCK ADDRESS 81900020 OLTDEBA EQU DCB+44 DEB ADDRESS 82300022 DCBOFLGS DS C OPEN FLAGS 82800020 DS CL3 RESERVED 83700020 DCBOPTCD DS CL1 OPTION CODES 84600020 DS CL7 RESERVED 85500020 DCBEOEA DS H END OF EXTENT APPENDAGE 86400020 DCBPCIA DS H PROGRAM CONTROLLED INTERRUPT APPENDAG 87300020 DCBSIOA DS H START I/O APPENDAGE 88200020 DCBCENDA DS H CHANNEL END APPENDAGE 89100020 DCBXENDA DS H ABNORMAL END APPENDAGE 90000020 DS H RESERVED 90900020 MEND @Y17XAXU*/ 90907000 *%PLSIOBK: ; 90914000 *DECLARE 90921000 * 1 IOBLOCKS BDY(WORD) BASED, /* @Y17XAXU*/ 90928000 */* @Y17XAXU*/ 90935000 */* I/O CONTROL BLOCKS (ECB,TECB ADDRESS,IOB,DCB) @Y17XAXU*/ 90942000 */* VERSION 10.0 (TCAM,TOTE) @Y17XAXU*/ 90949000 */* @Y17XAXU*/ 90956000 */* EVENT CONTROL BLOCK @Y17XAXU*/ 90963000 */* @Y17XAXU*/ 90970000 * 2 ECBOLT PTR(31), /* EVENT CONTROL BLOCK @Y17XAXU*/ 90977000 */* @Y17XAXU*/ 90984000 */* UNIT CONTROL BLOCK ADDRESS @Y17XAXU*/ 90991000 */* @Y17XAXU*/ 90998000 * 2 OLTUCBA FIXED(16), /* UCB ADDRESS @Y17XAXU*/ 91005000 */* @Y17XAXU*/ 91012000 * 2 OLTTCOFF FIXED(16), /* C. TNT ENTRY OFFSET @Y17XAXU*/ 91019000 * 2 OLTTNOFF FIXED(16), /* REAL TNT OFFSET @Y17XAXU*/ 91026000 * 2 OLTTRSID FIXED(16), /* NETWORK ADDRESS @Y17XAXU*/ 91033000 * 2 OLTTCRLN CHAR(1), /* RLN @Y17XAXU*/ 91040000 * 2 OLTLCBA PTR(24), /* LCB ADDRESS OF 3705 @Y17XAXU*/ 91047000 * 2 OLTTCTNT PTR(31), /* C. TNT ENTRY ADDRESS @Y17XAXU*/ 91054000 * 2 OLTRLTNT PTR(31), /* REAL TNT ENTRY ADDRESS @Y17XAXU*/ 91061000 * 2 OLTTDLN FIXED(15), /* LENGTH OF TD TTE AREA @Y17XAXU*/ 91068000 * 2 OLTFLAG1 BIT(8), /* TEST DEVICE FLAG BYTE 1 @Y17XAXU*/ 91075000 * 3 OLTTNTAS BIT(1), /* TD TNT ENTRY ASSIGNED @Y17XAXU*/ 91082000 * 3 * BIT(1), /* RESERVED @Y17XAXU*/ 91089000 * 3 OLTPRSC BIT(1), /* ON=PRI TD,OFF=SEC TD @Y17XAXU*/ 91089700 * 3 OLTUNRD BIT(1), /* ON=UNREAD DATA @Y17XAUU*/ 91090400 * /* OFF=NO UNREAD DATA @Y17XAUU*/ 91091100 * 3 OLTEX BIT(1), /* EXCEPTION RESPONSE @Y17XAXU*/ 91091800 * 3 OLTFME BIT(1), /* DEFINITE RESPONSE @Y17XAXU*/ 91092500 * 3 OLTEN BIT(1), /* ON=EXPEDITED @Y17XAXU*/ 91093200 * /* OFF=NORMAL @Y17XAXU*/ 91093900 * 3 * BIT(1), /* UNUSED @Y17XAXU*/ 91094600 * 2 * CHAR(1), /* RESERVED @Y17XAXU*/ 91096000 * 2 OLTQCBA PTR(31), /* QCB ADDRESS @Y17XAXU*/ 91103000 * 2 OLTCCWA PTR(31), /* READ CCW CHAIN ADDRESS @Y17XAXU*/ 91110000 * 2 OLTBUFA PTR(31), /* ADDRESS OF BUFFER @Y17XAXU*/ 91117000 * /* CONTAINING READ DATA @Y17XAXU*/ 91124000 * 2 OLTDTBUF PTR(31), /* RESPONSE BUFFER ADDRESS @Y17XAXU*/ 91131000 * 2 OLTDTCNT FIXED(15), /* RESPONSE BUFFER SIZE @Y17XAXU*/ 91138000 * 2 OLTFLAG2 BIT(8), /* TEST DEVICE FLAG BYTE 2 @Y17XAXU*/ 91145000 * 3 OLTPTIMD BIT(1), /* POST WAITI/0 IMMEDIATELY@Y17XAXU*/ 91152000 * 3 OLTMVDAT BIT(1), /* MOVE RESPONSE TO BUFFER @Y17XAXU*/ 91159000 * 3 OLTLV3IO BIT(1), /* LAST EXIO WAS LEVEL 3 @Y17XAXU*/ 91166000 * 3 OLTSIOAC BIT(1), /* EXIO TO DEVICE IS @Y17XAXU*/ 91173000 * /* OUTSTANDING @Y17XAXU*/ 91180000 * 3 * BIT(4), /* RESERVED @Y17XAXU*/ 91187000 * 2 * CHAR(1), /* RESERVED @Y17XAXU*/ 91194010 * 2 OLTSN CHAR(4) BDY(WORD), /* DEVICE SEQ NUMBER FIELD @ZM47554*/ 91195010 * 3 * CHAR(2), /* FLAGS @ZM47554*/ 91196010 * 3 OLTSEQ FIXED(16), /* SEQUENCE NUMBER (FROM SNA TH */ 91197010 * /* @ZM47554*/ 91198010 * 2 TECBADDR PTR(31), /* TECB ADDRESS @Y17XAXU*/ 91201000 */* @Y17XAXU*/ 91208000 */* I/O BLOCK @Y17XAXU*/ 91215000 */* @Y17XAXU*/ 91222000 * 2 IOB BDY(WORD), /* IOB CONTROL BLOCK @Y17XAXU*/ 91229000 * 3 IOBFLG1 CHAR(1), /* FIRST FLAG BYTE @Y17XAXU*/ 91236000 * 3 IOBFLG2 CHAR(1), /* SECOND FLAG BYTE @Y17XAXU*/ 91243000 * 3 IOBSNS CHAR(2), /* FIRST TWO SENSE BYTE @Y17XAXU*/ 91250000 * 3 IOBECBAD BDY(WORD), /* ECB ADDRESS @Y17XAXU*/ 91257000 * 4 IOBECBCD CHAR(1), /* ECB CODE @Y17XAXU*/ 91264000 * 4 * CHAR(3), /* RESERVED @Y17XAXU*/ 91271000 * 3 IOBCSW BDY(WORD), /* CHANNEL STATUS WORD @Y17XAXU*/ 91278000 * 4 IOBFLG3 CHAR(1), /* THIRD FLAG BYTE @Y17XAXU*/ 91285000 * 4 IOBCSW1 CHAR(7), /* LAST 7 BYTES OF LAST CSW@Y17XAXU*/ 91292000 * 3 IOBCCWAD BDY(WORD), /* CHANNEL COMMAND WORD @Y17XAXU*/ 91299000 * 4 IOBSIOCD CHAR(1), /* START I/O CODE @Y17XAXU*/ 91306000 * 4 * CHAR(3), /* LAST 3 BYTES OF CCW @Y17XAXU*/ 91313000 * 3 IOBDCBAD PTR(31), /* DCB ADDRESS @Y17XAXU*/ 91320000 * 3 IOBREPM CHAR(1), /* REPOSITION MODIFIER @Y17XAXU*/ 91327000 * 3 IOBRSTAD CHAR(3), /* RESTART ADDRESS @Y17XAXU*/ 91334000 * 3 IOBINCR CHAR(2), /* BLOCK COUNT INCREMENT @Y17XAXU*/ 91341000 * 3 IOBERRCT CHAR(2), /* ERROR COUNT @Y17XAXU*/ 91348000 * 3 IOBUCBX CHAR(1), /* UCB INDEX @Y17XAXU*/ 91355000 * 3 IOBWORK CHAR(3), /* WORK AREA @Y17XAXU*/ 91362000 * 3 IOBFLG4 BIT(8), /* FLAGS FOR TOTE AND ITS @Y17XAXU*/ 91369000 * /* APPENDAGE @Y17XAXU*/ 91376000 * 4 IOBATTN BIT(1), /* ATTENTION INTERRUPT @Y17XAXU*/ 91383000 * /* EXPECTED @Y17XAXU*/ 91390000 * 4 IOBCSWV BIT(1), /* CSW SAVE AREA VALID @Y17XAXU*/ 91397000 * 4 IOBSEC BIT(1), /* SECONDARY IOB @Y17XAXU*/ 91404000 * 4 IOBPRI BIT(1), /* PRIMARY IOB @Y17XAXU*/ 91411000 * 4 IOBATNE BIT(1), /* ERROR ON CE/DE BEFORE @Y17XAXU*/ 91418000 * /* ATTENTION @Y17XAXU*/ 91425000 * 4 IOBCSWNV BIT(1), /* CSW AREA TWO INVALID @Y17XAXU*/ 91432000 * 4 * BIT(2), /* RESERVED @Y17XAXU*/ 91439000 * 3 IOBCSWS CHAR(7), /* CSW SAVE AREA @Y17XAXU*/ 91446000 */* @Y17XAXU*/ 91453000 */* DATA EXTENT BLOCK @Y17XAXU*/ 91460000 */* @Y17XAXU*/ 91467000 * 2 DCB BDY(WORD), /* DATA CONTROL BLOCK @Y17XAXU*/ 91474000 * 3 DCBDCDEP(5) PTR(31), /* DEVICE DEPENDENT FIELD @Y17XAXU*/ 91481000 * 3 DCBBUFNO CHAR(1), /* NUMBER OF BUFFERS IN @Y17XAXU*/ 91488000 * /* DATA SET @Y17XAXU*/ 91495000 * 3 DCBBUFCB CHAR(3), /* BUFFER POOL CONTROL BLOCK */ 91502000 * /* ADDRESS @Y17XAXU*/ 91509000 * 3 DCBBUFL FIXED(15), /* BUFFER LENGTH @Y17XAXU*/ 91516000 * 3 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION @Y17XAXU*/ 91523000 * 3 DCBIOBAD PTR(31), /* I/O BLOCK ADDRESS @Y17XAXU*/ 91530000 * 3 DCBBGFEK CHAR(1), /* BUFFER TECHNIQUE @Y17XAXU*/ 91537000 * /* BUFFER ALLIGNMENT @Y17XAXU*/ 91544000 * 3 DCBEODAD PTR(24), /* END OF DATASET ROUTINE @Y17XAXU*/ 91551000 * /* ADDRESS @Y17XAXU*/ 91558000 * 3 DCBRECFM CHAR(1), /* RECORD FORMAT @Y17XAXU*/ 91565000 * 3 DCBEXLST PTR(24), /* EXIT LIST @Y17XAXU*/ 91572000 * 3 DCBTIOT FIXED(15), /* OFFSET FROM TIOT ORIGIN @Y17XAXU*/ 91579000 * /* TO TIOELNGH FIELD IN @Y17XAXU*/ 91586000 * /* TIOT ENTRY FOR DD @Y17XAXU*/ 91593000 * /* STATEMENT ASSOCIATED @Y17XAXU*/ 91600000 * /* WITH THIS DCB @Y17XAXU*/ 91607000 * 3 DCBMACFR CHAR(2), /* MACRO INSTRUCTION REF @Y17XAXU*/ 91614000 * 3 OLTDEBA PTR(31), /* ADDRESS OF ASSOCIATED @Y17XAXU*/ 91621000 * /* DEB @Y17XAXU*/ 91628000 * 4 DCBIFLGS CHAR(1), /* I/O SUPERVISOR FLAGS @Y17XAXU*/ 91635000 * 4 DCBDEBAD PTR(24) BDY(BYTE), /* ADDRESS OF ASSOCIATED @Y17XAXU*/ 91642000 * /* DEB @Y17XAXU*/ 91649000 * 3 DCBOFLGS CHAR(1), /* OPEN FLAGS @Y17XAXU*/ 91656000 * 3 * CHAR(3), /* RESERVED @Y17XAXU*/ 91663000 * 3 DCBOPTCD CHAR(1), /* OPTION CODE @Y17XAXU*/ 91670000 * 3 * CHAR(7), /* RESERVED @Y17XAXU*/ 91677000 * 3 DCBEOEA FIXED(15), /* END OF EXTENT APPENDAGE @Y17XAXU*/ 91684000 * 3 DCBPCIA FIXED(15), /* PCI APPENDAGE @Y17XAXU*/ 91691000 * 3 DCBSIOA FIXED(15), /* SIO I/O APPENDAGE @Y17XAXU*/ 91698000 * 3 DCBCENDA FIXED(15), /* CHANNEL END APPENDAGE @Y17XAXU*/ 91705000 * 3 DCBXENDA FIXED(15), /* ABNORMAL END APPENDAGE @Y17XAXU*/ 91712000 * 3 * CHAR(2); /* RESERVED @Y17XAXU*/ 91719000 * /* @Y17XAXU*/ 91726000 *%IOBKEND: ; /* END OF IOBLOCKS @Y17XAXU*/ 91733000