* % GOTO IOCOPLS; /* GO TO THE PLS VERSION */ 00050021 MACRO 00100021 IECDIOCM &CSECT= 00150021 **************************************************************** 00200021 * * 00250021 * THIS MACRO DESCRIBES THE COMMUNICATION AREA OF THE I/O * 00300021 * SUPERVISOR. * 00350021 **************************************************************** 00400021 SPACE 1 00450021 AIF (T'&CSECT NE 'O').IOC001 00500021 IOCOM DSECT 00550021 IECIXAVL EQU IOCOM COMPATIBILITY NAME 00552021 DS 0D 00560021 IOCVOICT DS H NUMBER OF VOID ENTRIES 00600021 IOCPGCT DS H NUMBER OF ACTIVE I/O PURGES 00650021 IOCPST DS A POST STATUS ENTRY ADDRESS 00700021 IOCHIO DS A ADDRESS OF HIO SUBROUTINE 00750021 IOCCTBL DS A ADDRESS OF CHANNEL TABLE 00800021 IOCINT DS A ADDR OF IECINT: I/O SLIH Y30CQLG 00850003 IOCHD160 DS A ADDR OF 160 BYTE BLK FREE QUEUE 00900040 IOCSCOMP DS A SRB ENTRY TO SMGR COMPRESS 00930040 IOCSTIO DS A STARTIO MACRO BRANCH ENTRY TO IOS 01000021 IOCVOID DS A VECTOR OF IOS DRIVER'S ADDR 01050021 IOCORMGT DS A ADDRESS OF IOS STORAGE MANAGER 01100021 IOCIOSCP DS A ADDRESS OF IOS CHAN PGM AREA 01110021 IOCPRGID DS A PURGE DEQ ROUTINE ADDRESS 01120021 IOCCATLK DS D CHANNEL AVAILABIL. TABLE LOCK 01130021 IOCSYNCH DS D IOSYNCH LOCK 01140021 IOCOMEX DS A ADDR. OF THE IOCOM EXTENSION 01142021 IOCATTBL DS A ADDRESS OF ATTENTION TABLE 01144021 IOCLCHTB DS A ADDRESS OF LOGICAL CHANNEL TBL 01146021 IOCASYNQ DS A ADDRESS OF ASYNCHRONOUS QUEUES 01148021 * FOR PROCESSING PAGING I/O ERRORS 01148421 IOCCCH DS A ADDRESS OF CCH ROUTINE 01148821 IOCGENA DS A ADDRESS OF IOSGEN SUBROUTINE 01149221 IOCMFHK DS A ADDR OF TARGET LOCATION OF 01149621 * INSTRUCTION TO ACTIVATE MF/1 01149721 IOCMFCNT DS A ADDRESS OF ACTUAL INSTRUCTION 01149821 * TO ACTIVATE MF/1 01149921 IOCRSVTB DS A ADDRESS OF DEVICE RESERVE TABLE 01166602 * BUILT BY I/O RESTART AS A RESULT 01176602 * OF ALTERNATE CPU RECOVERY. FIELD 01178602 * SET AND RESET ONLY UNDER OWNER- 01180602 * SHIP OF THE 'RESTART' RESOURCE. 01182602 IOCTCCW DS A ADDRESS OF CCW TRANSLATOR 01183002 IOCSVCF DS A ENTRY POINT OF SVC F - ERREXCP 01183102 IOCIOSEQ DS A IOS ENQ SUBROUTINE 01193102 IOCIOSDQ DS A IOS DEQ SUBROUTINE 01193502 IOCQCNT DS A ADDR OF PURGE IPIB QUIESCENT 01193902 * COUNT DECREMENT/POST SUBR. 01194302 IOCUCBBM DS A ADDR OF DEVICE VALIDITY TABLE 01208202 * (UCB BITMAPS) @DCRR21050 01218264 IOCPATCH DS A ADDR OF IOS PATCH AREA 01220202 IOCRESV1 DS A RESERVED @G64JPLN 01220364 IOCRESV2 DS A RESERVED @G64JPLN 01220464 IOCNRSF DS A SIOF ROUTINE WITHOUT RETURN @G64JPLN 01220564 IOCRSF DS A SIOF ROUTINE WITH RETURN @G64JPLN 01220664 IOCNRS DS A SIO ROUTINE WITHOUT RETURN @G64JPLN 01220764 IOCRS DS A SIO ROUTINE WITH RETURN @G64JPLN 01220864 IOCPSIO DS A POST SIO/SIOF ROUTINE @G64JPLN 01220964 IOCDEFP DS A DEFER,PREOP ROUTINE @G64JPLN 01221064 IOCVV DS A VOLUME VERIFICATION ROUTINE @G64JPLN 01221164 IOCUNHLD DS A UNHOLD ROUTINE @G64JPLN 01221264 IOCEXPST DS A EXIT,POST ROUTINE @G64JPLN 01221364 IOCTHLD DS A TEST HOLD STATUS ROUTINE @G64JPLN 01221464 IOCMAP DS A IOSMAP ROUTINE @G64APLK 01221564 IOCMCST DS A CHANNEL SET TABLE ADDRESS @G64APLK 01221664 IOCCONCS DS A CHS CONNECT RTN ADDRESS @G64APLK 01221864 IOCCRCA DS A CRCA ADDRESS--MAY BE ZERO IF CRH 01222064 * NOT SYSGENED @G64APLK 01222164 MEXIT 01222202 .IOC001 ANOP 01236102 IOCOM DS 0D 01250021 IECIXAVL EQU IOCOM COMPATIBILITY NAME 01260021 IOCVOICT DC H'16' NUMBER OF VOID ENTRIES @G64JPLN 01300064 * *CALCULATED BY IEAVNP02 @G64JPLN 01310064 IOCPGCT DC H'0' NUMBER OF ACTIVE I/O PURGES 01350021 IOCPST DC V(IECVPST) POST STATUS ENTRY ADDRESS 01400021 IOCHIO DC V(IECIHIO) ADDRESS OF HIO SUBROUTINE 01450002 IOCCTBL DC V(IECRCTBL) ADDRESS OF CHANNEL TABLE 01500021 IOCINT DC V(IECINT) ADDR OF I/O SLIH Y30CQLG 01550003 IOCHD160 DC V(IECVSCNT) ADDR OF 160 BYTE BLK FREE QUEUE 01600040 IOCSCOMP DC V(IECVSCOM) SRB ENTRY TO SMGR COMPRESS 01630040 IOCSTIO DC A(IECVSTIO) STARTIO MACRO BRANCH ENTRY TO IOS 01700021 IOCVOID DC V(IECVOID) ADDR VECTOR OF IOS DRIVERS @G64JPLN 01750064 IOCORMGT DC V(IECVSMGR) ADDR OF IOS STORAGE MANAGER 01800021 IOCIOSCP DC V(IECVCCWS) ADDRESS OF IOS CHAN PGM AREA 01850021 IOCPRGID DC V(IECVPRDQ) PURGE DEQ ROUTINE ADDRESS 01900021 IOCCATLK DC D'0' CHANNEL AVAILABIL. TABLE LOCK 01950021 IOCSYNCH DC D'0' IOSYNCH LOCK 02000021 IOCOMEX DC V(IECVSGT) ADDR. OF THE IOCOM EXTENSION 02050021 IOCATTBL DC V(IECVATTN) ADDRESS OF ATTENTION TABLE 02100021 IOCLCHTB DC V(IECVLCH) ADDRESS OF LOGICAL CHANNEL TBL 02150021 IOCASYNQ DC V(IECVDIRQ) ADDRESS OF ASYNCHRONOUS QUEUES 02200021 * FOR PROCESSING PAGING I/O ERRORS 02250021 IOCCCH DC V(IGFCCHCR) ADDRESS OF CCH ROUTINE 02300002 IOCGENA DC V(IECVGENA) ADDRESS OF IOSGEN SUBROUTINE 02350021 IOCMFHK DC A(ESIO3) ADDR OF TARGET LOCATION OF 02400021 * INSTRUCTION TO ACTIVATE MF/1 02450021 IOCMFCNT DC A(ESIO4) ADDR OF ACTUAL INSTRUCTION 02500021 * TO ACTIVATE MF/1 02510021 IOCRSVTB DC A(0) ADDRESS OF DEVICE RESERVE TABLE 02520002 * BUILT BY I/O RESTART AS A RESULT 02530002 * OF ALTERNATE CPU RECOVERY. FIELD 02540002 * SET AND RESET ONLY UNDER OWNER- 02542002 * SHIP OF THE 'RESTART' RESOURCE. 02544002 IOCTCCW DC V(IECVTCCW) ADDRESS OF CCW TRANSLATOR 02546002 IOCSVCF DC V(IGC015) ENTRY POINT OF SVC F - ERREXCP 02548002 IOCIOSEQ DC A(EQUEE1) IOS ENQUEUE ROUTINE 02548402 IOCIOSDQ DC A(EQUED1) IOS DEQUEUE ROUTINE 02548802 IOCQCNT DC V(IECVQCNT) ADDRESS OF PURGE IPIB QUIES- 02549202 * CENT COUNT DECREMENT/POST 02549602 * SUBROUTINE 02549702 IOCUCBBM DC V(IECVUCBM) ADDR OF DEVICE VALIDITY TABLE 02549802 * (UCB BITMAPS) @DCRR21050 02549964 IOCPATCH DC A(IOSPATCH) ADDR OF IOS PATCH AREA 02566602 IOCRESV1 DC A(0) RESERVED @G64JPLN 02567664 IOCRESV2 DC A(0) RESERVED @G64JPLN 02568664 IOCNRSF DC A(ESIO1) SIOF ROUTINE WITHOUT RETURN @G64JPLN 02569664 IOCRSF DC A(ESIO2) SIOF ROUTINE WITH RETURN @G64JPLN 02570664 IOCNRS DC A(ESIO099) SIO ROUTINE WITHOUT RETURN @G64JPLN 02571664 IOCRS DC A(ESIO100) SIO ROUTINE WITH RETURN @G64JPLN 02572664 IOCPSIO DC A(EPOSTIO0) POST SIO/SIOF ROUTINE @G64JPLN 02573664 IOCDEFP DC A(EPOSTIO1) DEFER,PREOP ROUTINE @G64JPLN 02574664 IOCVV DC A(EDEVEND1) VOLUME VERIFICATION ROUTINE @G64JPLN 02575664 IOCUNHLD DC A(EUNHOLD1) UNHOLD ROUTINE @G64JPLN 02576664 IOCEXPST DC A(ESCHDIO1) EXIT,POST ROUTINE @G64JPLN 02577664 IOCTHLD DC A(ETSTHLD1) TEST HOLD STATUS ROUTINE @G64JPLN 02578664 IOCMAP DC V(IECVMAP) IOSMAP ROUTINE @G64APLK 02579164 IOCMCST DC A(0) CHANNEL SET TABLE ADDRESS @G64APLK 02579664 IOCCONCS DC A(CSSRC20) CHS CONNECT RTN ADDRESS @G64APLK 02580664 WXTRN IECVCRCA @G64APLK 02581264 IOCCRCA DC V(IECVCRCA) CRCA ADDRESS--MAY BE ZERO IF CRH 02581864 * NOT SYSGENED @G64APLK 02582464 MEND 02583302 *%IOCOPLS: ; 02600021 * 02650021 * /************************************************************/ 02660021 * /* */ 02710021 * /* THIS STRUCTURE DESCRIBES THE COMMUNICATION AREA OF THE */ 02760021 * /* I/O SUPERVISOR. A RESPECIFY SHOULD BE DONE ON CVTIXAVL */ 02810021 * /* */ 02860021 * /************************************************************/ 02910021 * /* */ 02960021 * /* 01/13/78 @G64JPLN*/ 03010064 * /* */ 03060021 * /************************************************************/ 03110021 * 03200021 * DCL 1 IOCOM BDY(DWORD) BASED(IOCOMPTR), 03210021 * 2 IOCVOICT CHAR(2), /* NUMBER OF VOID ENTRIES */ 03250021 * 2 IOCPGCT CHAR(2), /* NUMBER OF ACTIVE I/O 03350002 * PURGES */ 03400002 * 2 IOCPST PTR(31), /* POST STATUS ENTRY ADDR */ 03500021 * 2 IOCHIO PTR(31), /* ADDR OF HIO SUBROUTINE */ 03550021 * 2 IOCCTBL PTR(31), /* ADDR OF CHANNEL TABLE */ 03600021 * 2 IOCINT PTR(31), /* ADDR OF IECINT: IO SLIH Y30CQLG*/ 03650003 * 2 IOCHD160 PTR(31), /* ADDR OF 160 BYTE BLK 03660040 * FREE QUEUE */ 03670040 * 2 IOCSCOMP PTR(31), /* SRB ENTRY TO SMGR 03700040 * COMPRESS */ 03750040 * 2 IOCSTIO PTR(31), /* STARTIO MACRO BRANCH 03900002 * ENTRY TO IOS */ 03910002 * 2 IOCVOID PTR(31), /* ADDR OF VECTOR OF IOS 04000002 * DRIVERS */ 04050002 * 2 IOCORMGT PTR(31), /* ADDR OF CORE MGMT ENTRY */ 04100021 * 2 IOCIOSCP PTR(31), /* ADDR OF IOS CHN PGM AREA*/ 04110021 * 2 IOCPRGID PTR(31), /* PURGE DEQ ROUTINE ADDR */ 04130021 * 2 IOCCATLK CHAR(8), /* CHAN AVAIL. TABLE LOCK */ 04140021 * 2 IOCSYNCH CHAR(8), /* IOSYNCH LOCK */ 04142021 * 2 IOCOMEX PTR(31), /* ADDR OF IOCOM EXTENSION */ 04144021 * 2 IOCATTBL PTR(31), /* ADDR OF ATTENTION TABLE */ 04146021 * 2 IOCLCHTB PTR(31), /* ADDR OF LOGICAL CHANNEL 04148002 * TABLE */ 04148402 * 2 IOCASYNQ PTR(31), /* ADDRESS OF ASYNCHRONOUS 04148802 * QUEUES FOR PAGING I/O */ 04149202 * 2 IOCCCH PTR(31), /* ADDRESS OF CCH ROUTINE */ 04149621 * 2 IOCGENA PTR(31), /* ADDR OF IOSGEN SUBROUTIN*/ 04149721 * 2 IOCMFHK PTR(31), /* ADDR OF TARGET LOCATION 04149802 * OF INSTRUCTION TO ACTIVATE 04149964 * MF/1 */ 04169964 * 2 IOCMFCNT PTR(31), /* ADDR OF ACTUAL INSTR. TO 04209902 * ACTIVATE MF/1 */ 04219902 * 2 IOCRSVTB PTR(31), /* ADDR. OF DEVICE RESERVE 04229902 * TABLE BUILT BY I/O RSTRT 04239902 * AS A RESULT OF ALT. CPU 04241902 * RECOVERY. FIELD SET AND 04243902 * RESET ONLY UNDER OWNRSHP 04245902 * OF THE 'RESTART' RESOURC*/ 04247902 * 2 IOCTCCW PTR(31), /* ADDR OF CCW TRANSLATOR */ 04248302 * 2 IOCSVCF PTR(31), /* ENTRY POINT OF SVC F */ 04248702 * 2 IOCIOSEQ PTR(31), /* IOS ENQ ROUTINE */ 04249102 * 2 IOCIOSDQ PTR(31), /* IOS DEQ ROUTINE */ 04249502 * 2 IOCQCNT PTR(31), /* ADDR OF PURGE IPIB 04249602 * QUIESCENT COUNT DECREMENT/POST 04249764 * SUBROUTINE */ 04259764 * 2 IOCUCBBM PTR(31), /* ADDR OF DEVICE VALIDITY 04299802 * TABLE (UCB BITMAPS) 04309802 * @DCRR21050 */ 04319864 * 2 IOCPATCH PTR(31), /* ADDR OF IOS PATCH AREA */ 04329802 * 2 IOCRESV1 PTR(31), /* RESERVED @G64JPLN*/ 04349864 * 2 IOCRESV2 PTR(31), /* RESERVED @G64JPLN*/ 04399864 * 2 IOCNRSF PTR(31), /* SIOF WITHOUT RETURN @G64JPLN*/ 04449864 * 2 IOCRSF PTR(31), /* SIOF WITH RETURN @G64JPLN*/ 04499864 * 2 IOCNRS PTR(31), /* SIO WITHOUT RETURN @G64JPLN*/ 04549864 * 2 IOCRS PTR(31), /* SIO WITH RETURN @G64JPLN*/ 04599864 * 2 IOCPSIO PTR(31), /* POST SIO/SIOF @G64JPLN*/ 04649864 * 2 IOCDEFP PTR(31), /* DEFER,PREOP ROUTINE @G64JPLN*/ 04699864 * 2 IOCVV PTR(31), /* VOLUME VERIFICATION @G64JPLN*/ 04749864 * 2 IOCUNHLD PTR(31), /* UNHOLD ROUTINE @G64JPLN*/ 04799864 * 2 IOCEXPST PTR(31), /* EXIT,POST ROUTINE @G64JPLN*/ 04849864 * 2 IOCTHLD PTR(31), /* TEST HOLD STATUS @G64JPLN*/ 04899864 * 2 IOCMAP PTR(31), /* IOSMAP ROUTINE @G64APLK*/ 04949864 * 2 IOCMCST PTR(31), /* CHANNEL SET TABLE ADDR @G64APLK*/ 04999864 * 2 IOCCONCS PTR(31), /* CHS CONNECT RTN ADDR @G64APLK*/ 05049864 * 2 IOCCRCA PTR(31), /* CRCA ADDRESS--MAY BE ZERO IF CRH 05099864 * NOT SYSGENED @G64APLK*/ 05149864 * 2 IOCOEND CHAR(0); /* END OF IOCOM */ 05199864