* % GO TO VOIPLS; /* GO TO THE PLS VERSION */ 00050021 MACRO 00100021 IECDVOID &CSECT=NO 00150021 SPACE 1 00152021 **************************************************************** 00154021 * * 00156021 * THIS IS THE VECTOR OF IOS DRIVERS CONTROL BLOCK. IT IS * 00158021 * ADDRESSABLE THROUGH THE IOCOM VIA IOCVOID. * 00158421 * * 00158821 **************************************************************** 00159221 SPACE 1 00159621 AIF ('&CSECT' NE 'YES').VOI001 00160021 IECVOID DS 0F 00170021 * DRIVER ID =0 RESERVED 00180021 DC A(IECVOB14) 00190002 DC A(IECVOB14) 00192002 DC A(IECVOB14) 00194002 IECVOENT EQU * 00195702 * DRIVER ID =1 MISCELLANEOUS ID FOR I/O REQUESTS NOT NEEDING 00196021 * VOID SERVICES. 00198021 DC A(IECVOB14) 00198402 DC A(IECVOB14) 00198802 DC A(IECVOB14) 00199202 * DRIVER ID =2 EXCP 00199621 DC V(IECVXPUR) EXCP PURGE SUBROUTINE ADDRESS 00199721 DC V(IECVXRES) RESTORE SUBROUTINE 00199821 DC V(IECVEXTC) EXTENT CHECK SUBROUTINE 00199921 * DRIVER ID =3 VSAM 00216621 DC V(IDA121A6) ABP PURGE SUBROUTINE 00226602 DC A(IECVOB14) 00247002 DC A(IECVOB14) 00247402 * DRIVER ID =4 VTAM 00248602 DC A(IECVOB14) 00258602 DC A(IECVOB14) 00260602 DC A(IECVOB14) 00260702 * DRIVER ID =5 TCAM 00261002 DC A(IECVOB14) 00288602 DC A(IECVOB14) 00290602 DC A(IECVOB14) 00292602 * DRIVER ID =6 OLTEP 00296621 DC A(IECVOB14) 00298602 DC A(IECVOB14) 00299002 DC A(IECVOB14) 00299402 * DRIVER ID =7 PCI FETCH 00299821 DC V(IEWFTPRG) 00299902 DC A(IECVOB14) 00318602 DC V(IEWFTXCK) 00326602 WXTRN IEWFTPRG,IEWFTXCK @ZA11363 00329600 * DRIVER ID =8 JES3 00332600 DC A(IECVOB14) 00338602 DC A(IECVOB14) 00340602 DC A(IECVOB14) 00342602 * DRIVER ID =9 SS1 @Y30LPLC 00349403 DC A(IECVOB14) 00368602 DC A(IECVOB14) 00370602 DC A(IECVOB14) 00372602 * DRIVER ID =A IECVIOPM PURGE @ZA04107 00373000 DC A(IECVOB14) HI BYTE USED FOR USE COUNT @ZA04107 00373400 DC A(IECVOB14) 00374200 DC A(IECVOB14) 00375000 * DUMMY ID =B VPSS @G29ANLO 00375800 DC A(IECVOB14) @G29ANLO 00375900 DC A(IECVOB14) @G29ANLO 00376000 DC A(IECVOB14) @G29ANLO 00376100 * DUMMY ID =C RESERVED 00376600 DC A(IECVOB14) 00376900 DC A(IECVOB14) 00377200 DC A(IECVOB14) 00377500 SPACE 1 00377800 IECVOEND EQU * 00378621 SPACE 1 00379002 * DUMMY VOID TABLE ENTRY - ZERO REG 15 AND RETURN ON 14 00379402 * MUST BE CONTIGUOUS TO LAST TABLE ENTRY FOR IOSGEN SETVOID FUNCTION 00379500 SPACE 1 00379802 IECVOB14 SLR 15,15 ZERO REG 15 00380602 BR 14 RETURN TO CALLER 00382602 MEXIT 00386621 .VOI001 ANOP 00396621 VOID DSECT 00400021 VOIENTRY DS 0F 00650021 VOIPRG DS A ADDR OF DRIVER PURGE SUBR 00700021 VOIRSTR DS A ADDR OF DRIVER RESTORE SUBR 00750021 VOIEXTNT DS A ADDR OF DRIVER EXTENT CHECK 00800021 * SUBROUTINE 00850021 VOIEL EQU *-VOIENTRY LENGTH OF VOID 00900021 MEND 00950021 *%VOIPLS: ; 01000021 * 01050021 */*************************************************************/ 01100021 */* */ 01150021 */* THIS IS THE VECTOR OF IOS DRIVERS CONTROL BLOCK. IT IS */ 01200021 */* ADDRESSABLE THROUGH THE IOCOM. */ 01250021 */* */ 01300021 */*************************************************************/ 01350021 */* */ 01400021 */* 08/22/72 LEVEL=00 */ 01450021 */* */ 01500021 */*************************************************************/ 01550021 * 01600021 * DCL 1 VOID(*) BDY(WORD) BASED(VOIDPTR), 01610021 * 2 VOIENTRY PTR(31), /* ENTRY NAME */ 01650021 * 3 VOIPRG PTR(31), /* ADDR OF DRIVR PURGE RTN */ 01700021 * 2 VOIRSTR PTR(31), /* ADDR OF DRVR RESTORE RTN*/ 01750021 * 2 VOIEXTNT PTR(31), /* ADDR OF DRIVER EXTENT */ 01800021 * /* CHECK SUBROUTINE */ 01850021 * 2 VOIEND CHAR(0); /* END OF VOID */ 01860021 * 01870021 *%DCL VOIEL CHAR; /* LENGTH OF VOID */ 01900021 *%VOIEL='ADDR(VOIEND)-ADDR(VOIENTRY)'; 01950021