* /* MACMEAN ASMVT MEANS ASM VECTOR TABLE */ 00010040 * /* MACCOMP Y-4SC1CW/PZD81 */ 00020040 * /* MACSTAT Y-475073/415304 */ 00030040 * /*A-000000-999999 @Z40WPWJ*/ 00040040 * /*******************************************************************/ 00050040 * /* */ 00058040 * /* NAME: ILRASMVT */ 00066040 * /* */ 00074040 * /* FUNCTION: AUXILIARY STORAGE MANAGEMENT VECTOR TABLE */ 00082040 * /* */ 00100040 * /* STATUS: OS/VS2 RELEASE 4.1 */ 00107040 * /* */ 00114040 * /* EXTERNAL REFERENCES: ASMVTPTR - USER DEFINED POINTER TO ASMVT */ 00130040 * /* */ 00136040 * /* REGISTERS USED: N/A */ 00150040 * /* */ 00158040 * /* REGISTERS CLOBBERED: N/A */ 00166040 * /* */ 00174040 * /* NOTES: THE ASMVT PROVIDES A MEANS OF COMMUNICATION WITHIN ASM.*/ 00182040 * /* THE ASMVT CONTAINS ALL GLOBAL COUNTS, POINTERS, ENTRY */ 00200040 * /* POINT ADDRESSES, AND WORK/SAVE AREAS USED BY RSM */ 00208040 * /* ROUTINES. THE ASMVT IS POINTED TO BY THE CVT FIELD */ 00216040 * /* CVTASMVT. */ 00224040 * /* */ 00232040 * /* THE ASMVT IS DIVIDED INTO SECTIONS RELATING TO THE */ 00250040 * /* DIFFERENT FUNCTIONAL AREAS OF ASM. THE ENTRY POINT */ 00258040 * /* ADDRESSES, WORK/SAVE AREAS, AND CELLPOOL CONTROLLERS */ 00266040 * /* FOLLOW THE FUNCTIONAL SECTIONS. */ 00274040 * /* */ 00282040 * /* METHOD OF ACCESS: */ 00300040 * /* BAL - DSECT=NO SHOULD BE SPECIFIED ON THE MACRO CALL */ 00308040 * /* TO AVOID CREATING A DSECT. A USING ON ASMVT */ 00316040 * /* WILL ESTABLISH ADDRESSABILITY FOR ALL SYMBOLS. */ 00324040 * /* PLS - DCL ASMVTPTR PTR(31) */ 00340040 * /* %INCLUDE SYSLIB(ILRASMVT) */ 00344040 * /* */ 00358040 * /*******************************************************************/ 00366040 * %GOTO ASMVTPLS; /* BILINGUAL HEADER 00374040 MACRO 00382040 ILRASMVT &DSECT=YES 00400040 AIF ('&DSECT' EQ 'YES').ASMVT01 00408040 ASMVT DS 0D ASMVT CONTROL BLOCK 00416040 AGO .ASMVT02 00424040 .ASMVT01 ANOP 00432040 ASMVT DSECT 00450040 .ASMVT02 ANOP 00458040 IEZBITS 00466040 ASMFLAG1 DC XL1'00' ASM GLOBAL FLAG FIELD 1 00474040 ASMDUPLX EQU BIT0 DUPLEXING OPTION FLAG, 00482040 * 1 = DUPLEXING OF COMMON REQUESTED 00500040 * DUPLEX PAGE DATA SET OPENED BY RIM, 00508040 * 0 = DUPLEXING NOT REQUESTED, NO 00516040 * DUPLEX DATA SET OPENED BY RIM, OR 00524040 * DUPLEXING SUSPENDED IF DUPLEXING 00532040 * SUSPENDED FLAG IS ON 00550040 ASMNOCWQ EQU BIT1 NO COMMON WRITE QUEUE FLAG, 00558040 * 1 = DO NOT QUEUE WRITE IOE'S TO 00566040 * COMMON WRITE QUEUE, 00574040 * 0 = DO NORMAL IOE QUEUING 00582040 ASMNOLCL EQU BIT2 NO LOCAL DATA PAGING FLAG, 00600040 * 1 = ALL WRITE IOE'S MUST BE QUEUED 00608040 * TO COMMON WRITE QUEUE, 00616040 * 0 = QUEUE IOE'S NORMALLY 00624040 ASMRSV1 EQU BIT3 RESERVED 00632040 ASMNODPX EQU BIT4 DUPLEXING SUSPENDED FLAG, 00639040 * 1 = DUPLEXING HAS BEEN SUSPENDED 00646040 * BECAUSE THE DUPLEX PAGE DATA SET IS 00653040 * FULL OR INOPERATIVE, 00660040 * 0 = DUPLEXING STILL ACTIVE IF 00682040 * REQUESTED 00700040 ASMPLPAF EQU BIT5 PLPA DATA SET FULL FLAG, 00708040 * 1 = PLPA DATA SET FULL, 00716040 * 0 = PLPA DATA SET NOT FULL 00724040 ASMCOMMF EQU BIT6 COMMON DATA SET FULL FLAG, 00732040 * 1 = COMMON DATA SET FULL, 00750040 * 0 = COMMON DATA SET NOT FULL 00758040 ASMPLPAS EQU BIT7 PLPA DATA SET SPILL FLAG, 00766040 * 1 = PLPA DATA SET SPILLED TO 00774040 * COMMON DATA SET DURING PLPA BUILD 00782040 * AT NIP TIME, 00800040 * 0 = PLPA DATA SET NOT FULL AFTER 00808040 * PLPA BUILD 00816040 ASMFLAG2 DC XL1'00' ASM GLOBAL FLAG FIELD 2 00824040 ASMCALLQ EQU BIT0 QIOE CALLER FLAG, 00832040 * 1 = PAGE COMPLETION IS THE CALLER 00850040 * OF QIOE, 00858040 * 0 = QIOE CALLED BY SOME OTHER ASM 00866040 * ROUTINE 00874040 ASMNOSAV EQU BIT1 NO SAVE FLAG, 00882040 * 1 = SYS1.STGINDEX UNAVAILABLE OR 00900040 * FULL, SAVE REQUESTS NOT DONE, 00908040 * 0 = SYS1.STGINDEX AVAILABLE FOR USE 00916040 ASMNOTMR EQU BIT2 NO TASK MODE RELEASE FLAG, 00924040 * 1 = TASK MODE RELEASE (ILRTMRLG) 00932040 * HAS SUFFERED INDETERMINATE ERRORS, 00950040 * DO NOT POST ITS ECB, 00958040 * 0 = ILRTMRLG RUNNING NORMALLY 00966040 ASMNOTPT EQU BIT3 NO TPARTABLE FLAG, 00974040 * 1 = A READ OR WRITE OF TPARTABLE 00982040 * HAS FAILED, IT IS NOT UP TO DATE, 01000040 * 0 = TPARTABLE AVAILABLE AND CORRECT 01008040 ASMQUICK EQU BIT4 QUICK START IPL FLAG, 01016040 * 1 = ASM INITIALIZATION PROCESSED 01024040 * PLPA IN QUICK START MODE (NOT 01032040 * CLPA), 01050040 * 0 = ASM INITIALIZATION PROCESSED 01058040 * PLPA IN COLD START MODE (CLPA), OR 01066040 * WAS FORCED TO CONVERT TO COLD 01074040 * START MODE 01082040 ASMWARM EQU BIT5 WARM START IPL FLAG, 01100040 * 1 = ASM INITIALIZATION PROCESSED 01108040 * VIO DATA SETS IN WARM START MODE 01116040 * (NOT CVIO), 01124040 * 0 = ASM INITIALIZATION PROCESSED 01132040 * VIO DATA SETS IN CVIO MODE, OR 01150040 * WAS FORCED TO CONVERT A WARM 01158040 * START REQUEST TO CVIO 01166040 ASMDSSFS DC XL2'00' IF NOT ZERO, FIRST SLOT NUMBER OF 01170040 * DSS RESERVED AREA ON PLPA PAGE 01174040 * DATASET @ZA14260 01176040 ASMSART DC A(0) ADDRESS OF SWAP ACTIVITY REFERENCE 01182040 * TABLE - SART 01200040 ASMPART DC A(0) ADDRESS OF PAGING ACTIVITY 01208040 * REFERENCE TABLE - PART 01216040 ASMGOS DC V(ILRGOS) ADDRESS OF ILRGOS, USED BY ILRCALL 01224040 * MACRO 01232040 ASMTRPAG DC V(ILRTRPAG) ADDRESS OF ILRTRPAG, ENTRY POINT 01250040 * IN ILRPOS, USED BY ILRCALL MACRO 01258040 ASMEREC DC A(0) ADDRESS OF BAD SLOT ERROR RECORD 01266040 * MAINTAINED BY ILRCMP 01274040 ASMMSGBF DC A(0) ADDRESS OF MESSAGE BUFFER USED BY 01282040 * ASM MESSAGE ROUTINE 01300040 ASMRSV5 DC XL4'00' RESERVED 01308040 * 01316040 * THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE I/O 01324040 * CONTROL MODULES OF ASM. 01332040 * 01350040 ASMSTAGQ DS 0D I/O STAGING QUEUE CONTAINING AIA'S 01358040 * WAITING FOR AVAILABLE IOE'S 01366040 ASMSTAGF DC A(0) ADDRESS OF FIRST AIA ON STAGING 01374040 * QUEUE 01382040 ASMSTAGL DC A(0) ADDRESS OF LAST AIA ON STAGING 01400040 * QUEUE 01407040 ASMIORQR DC F'0' COUNT OF I/O REQUESTS (AIA'S) 01414040 * RECEIVED BY I/O CONTROL, THIS DOES 01430040 * NOT INCLUDE LSQA SWAP AIA'S 01436040 ASMIORQC DC F'0' COUNT OF I/O REQUESTS (AIA'S) 01450040 * COMPLETED AND RETURNED TO RSM 01457040 ASMRSV6 DC XL16'00' RESERVED 01464040 * 01480040 * THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE I/0 01486040 * SUBSYSTEM MODULES OF ASM. 01500040 * 01507040 ASMPCCWQ DS 0D QUEUE OF AVAILABLE PCCW'S FOR SLOT 01514040 * SORT, THIS QUEUE IS MAINTAINED BY 01530040 * COMPARE AND SWAP LOGIC WHICH MAKES 01536040 * THE SYNCHRONIZATION COUNT NECESSARY 01550040 ASMPCCWA DC A(0) ADDRESS OF FIRST AVAILABLE PCCW 01556040 ASMPCCWC DC F'0' SYNCHRONIZATION COUNT, DECREMENTED 01562040 * WHEN REMOVING PCCW'S, UNCHANGED 01574040 * WHEN ADDING PCCW'S 01582040 ASMPCCWN DC F'0' NUMBER OF PCCW'S BUILT BY RIM 01600040 ASMBURST DC F'0' LENGTH OF SERVICE BURST FOR PAGE 01606040 * DATA SETS (IN MICROSECONDS) 01612040 ASMIOCNT DC F'0' COUNT OF STARTIO REQUESTS MADE TO 01624040 * IOS THAT HAVE NOT COMPLETED 01632040 ASMSRBCT DC F'0' NUMBER OF SRB'S SCHEDULED FOR THE 01650040 * I/O SUBSYSTEM THAT HAVE NOT BEEN 01658040 * DISPATCHED, THIS COUNT SHOULD BE 01666040 * EITHER 0 OR 1, IT IS MAINTAINED BY 01674040 * COMPARE AND SWAP LOGIC 01682040 ASMPSRB DC A(0) ADDRESS OF SRB USED TO SCHEDULE THE 01700040 * I/O SUBSYSTEM 01708040 ASMRSV7 DC XL16'00' RESERVED 01716040 * 01724040 * THE FOLLOWING SECTION OF THE ASMVT IS USED FOR PAGE DATA SET SLOT 01732040 * ACCOUNTING. 01750040 * 01758040 ASMBKSLT DC F'0' COUNT OF UNRESERVED LOCAL SLOTS, 01766040 * THIS COUNT IS DECREMENTED AND 01774040 * INCREMENTED FOR EACH ADDRESS SPACE 01782040 * OR VIO LG CREATED OR DELETED 01800040 ASMSLOTS DC F'0' COUNT OF TOTAL LOCAL SLOTS IN ALL 01802040 * OPEN LOCAL PAGE DATA SETS 01804040 ASMVSC DC F'0' COUNT OF TOTAL LOCAL SLOTS 01806040 * ALLOCATED TO VIO PRIVATE AREA 01808040 * PAGES 01850040 ASMNVSC DC F'0' COUNT OF TOTAL LOCAL SLOTS 01858040 * ALLOCATED TO NON-VIO PRIVATE AREA 01866040 * PAGES 01874040 ASMERRS DC F'0' COUNT OF BAD SLOTS FOUND ON LOCAL 01882040 * DATA SETS DURING NORMAL OPERATIONS 01900040 * 01907040 * THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE VIO 01914040 * CONTROLLER AND THE GROUP OPERATOR MODULES. 01930040 * 01936040 ASMSLOTV DC V(ILRSLOTV) ADDRESS OF THE SLOTV CONSTANT 01950040 ASMLGVT DC A(0) ADDRESS OF THE LOGICAL GROUP 01958040 * VECTOR TABLE 01966040 ASMSTGXA DC A(0) ADDRESS OF THE ACB FOR 01974040 * SYS1.STGINDEX 01982040 ASMCINV DC F'0' NUMBER OF CONTROL INTERVALS IN 02000040 * SYS1.STGINDEX 02006040 ASMLSAI DS 0D ASM STORAGE LOCATOR 'S' SYMBOL 02012040 * GENERATOR, LAST 'S' SYMBOL 02030040 * ASSIGNED 02034040 ASMLSAIL DC F'0' LOW WORD OF 'S' SYMBOL GENERATOR 02050040 ASMLSAIH DC F'0' HIGH WORD OF 'S' SYMBOL GENERATOR 02054040 ASMGOSQS DS 0D DOUBLEWORD REFERENCE FOR GOS WORK 02070040 * QUEUES 02077040 ASMGOSWT DC F'0' QUEUE OF ELEMENTS FOR ACE'S 02084040 * WAITING FOR VSAM BUFFER TO BECOME 02100040 * AVAILABLE, USED BY ILRGOS 02107040 ASMGOSWK DC F'0' FIFO WORK QUEUE OF ELEMENTS FOR 02114040 * ACE'S, USED BY ILRGOS TO START 02121040 * OPERATIONS WAITING FOR VSAM 02128040 * BUFFERS 02150040 ASMREQCT DC F'0' NUMBER OF SIMULTANEOUS REQUESTS 02158040 * THAT CAN BE MADE TO VSAM, THIS 02166040 * NUMBER (MINUS ONE FOR ILRTMRLG'S 02174040 * USE) CORRESPONDS TO THE STRING 02182040 * NUMBER PARAMETER ON THE OPEN FOR 02200040 * SYS1.STGINDEX 02208040 ASMTCBPT DC A(0) ADDRESS OF ASM TCB 02216040 ASMTMECB DC F'0' ECB USED BY ILRTMRLG TO WAIT FOR 02224040 * WORK, THIS ECB IS POSTED BY 02232040 * ILRRLG 02250040 ASMRLGRQ DC F'0' REQUEST QUEUE FOR ILRTMRLG 02258040 * CONSISTING OF ACE'S QUEUED BY 02266040 * ILRRLG, QUEUE IS SERIALIZED BY 02274040 * COMPARE AND SWAP LOGIC 02282040 ASMRLGWQ DC F'0' WORK QUEUE FOR ILRTMRLG TO HOLD 02300040 * ACE'S MOVED FROM REQUEST QUEUES 02308040 ASMTASCB DC F'0' ADDRESS OF ASCB FOR ADDRESS SPACE 02316040 * IN WHICH ILRTMRLG IS RUNNING 02324040 ASMVSAMW DC F'0' QUEUE OF ELEMENTS FOR ACES 02325040 * WAITING FOR A PARTICULAR RECORD 02326040 * ON SYS1.STGINDEX TO BECOME 02327040 * AVAILBLE, USED BY ILRVSAMI @ZA15367 02328040 ASMRSV8 DC XL4'00' RESERVED 02329040 * 02350040 * THE FOLLOWING SECTION OF THE ASMVT CONTAINS ENTRY POINT ADDRESSES 02358040 * OF THOSE ASM ROUTINES OR SUBROUTINES THAT ARE CALLED BY MORE THAN 02366040 * ONE MODULE, OR THAT RESIDE IN LPA. LPA ROUTINE ENTRY POINTS ARE 02374040 * DETERMINED AT TASK MODULE INITIALIZATION. 02382040 * 02394040 ASMPQIOE DC V(ILRQIOE) ADDRESS OF ILRQIOE, SUBROUTINE OF 02410040 * ILRPAGIO 02411040 ASMPFRSL DC V(ILRFRSL1) ADDRESS OF ILRFRSL1, FREESLOT 02425040 * ENTRY POINT OF ILRFRSLT 02434040 ASMPFRSW DC V(ILRFRSW1) ADDRESS OF ILRFRSW1, FREESWAP 02443040 * ENTRY POINT OF ILRFRSLT 02452040 ASMPTM DC V(ILRPTM) ADDRESS OF ILRPTM 02470040 ASMPSWPD DC V(ILRSWPDR) ADDRESS OF ILRSWPDR 02479040 ASMPSRMT DC V(ILRPSRMT) ADDRESS OF ILRPSRMT, PART MONITOR 02486040 * AND SWAP DRIVER RMTR 02500040 ASMPSRBC DC V(ILRSRBC) ADDRESS OF ILRSRBC 02508040 ASMVRMTR DC V(ILRSRBRM) ADDRESS OF ILRSRBRM, ENTRY POINT 02516040 * OF ILRSRBC FOR VIO RMTR 02524040 ASMPEX DC V(ILRPEX) ADDRESS OF ILRPEX 02532040 ASMPCMPD DC V(ILRCMPDI) ADDRESS OF ILRCMPDI, ENTRY POINT 02550040 * OF ILRCMP. @ZA25907 02552040 ASMPCMPN DC V(ILRCMPNE) ADDRESS OF ILRCMPNE, ENTRY POINT 02616040 * OF ILRCMP 02624040 ASMPCMPA DC V(ILRCMPAE) ADDRESS OF ILRCMPAE, ENTRY POINT 02632040 * OF ILRCMP 02650040 ASMPCMP DC V(ILRCMP) ADDRESS OF ILRCMP 02658040 ASMPSAV DC A(0) ADDRESS OF ILRSAV 02666040 ASMPACT DC A(0) ADDRESS OF ILRACT 02680040 ASMPRLG DC A(0) ADDRESS OF ILRRLG 02686040 ASMPFRLG DC V(ILRFRELG) ADDRESS OF ILRFRELG, ENTRY POINT 02700040 * OF ILRGOS 02708040 ASMPMSG0 DC V(ILRMSG00) ADDRESS OF ILRMSG00 02716040 ASMPMSGS DC V(ILRMSGSP) ADDRESS OF ILRMSGSP, ENTRY POINT 02724040 * OF ILRMSG00 02732040 ASMPVACQ DC V(ILRVACQ2) ADDRESS OF ILRVACQ2, ENTRY POINT 02750040 * OF ILRFRR01 02758040 ASMPIOFR DC V(ILRIOFRR) ADDRESS OF ILRIOFRR, I/O CONTROL 02766040 * RECOVERY ROUTINE 02774040 ASMPVACE DC V(ILRVACE) ADDRESS OF ILRVACE, ENTRY POINT 02782040 * OF ILRFRR01 02800040 ASMRSV10 DC XL16'00' RESERVED 02808040 * 02816040 * THE FOLLOWING SECTION OF THE ASMVT CONTAINS THE POOL CONTROLLERS 02824040 * THAT ARE USED BY THE GMA MACRO TO OBTAIN AND RELEASE CELLS FOR 02832040 * THOSE ROUTINES REQUIRING ONE OF THESE CONTROL BLOCKS. THE POOL 02850040 * CONTROLLER MAPPING APPEARS AT THE END OF THE ASMVT. 02858040 * 02866040 ASMIOEPC DC XL16'00' IOE POOL CONTROLLER 02874040 ASMBWKPC DC XL16'00' 256 BYTE WORKAREA POOL CONTROLLER 02882040 ASMSWKPC DC XL16'00' 512 BYTE WORKAREA POOL CONTROLLER, 02900040 * USED EXCLUSIVELY BY ILRVSAMI 02908040 ASMACEPC DC XL24'00' ACE POOL CONTROLLER 02916040 * 02924040 * THE FOLLOWING SECTION OF THE ASMVT CONTAINS WORK-SAVE AREAS USED BY 02932040 * THE ASM ROUTINES THAT RUN WITH THE SALLOC LOCK. 02950040 * 02958040 ASMWKSA1 DC XL80'00' USED BY ILRPAGIO 02966040 ASMWKSA2 DC XL80'00' USED BY ILRQIOE, SUBROUTINE OF 02974040 * ILRPAGIO 02982040 ASMWKSA3 DC XL80'00' USED BY ILRPAGCM 03000040 ASMWKSA4 DC XL80'00' USED BY ILRSWAP 03007040 ASMWKSA5 DC XL80'00' USED BY ILRSLSQA, SUBROUTINE OF 03014040 * ILRSWAP 03030040 ASMWKSA6 DC XL80'00' USED BY ILRPOS AND ILRVIOCM 03036040 ASMWKSA7 DC XL80'00' USED BY ILRPEX AND ILRMSG00 03050040 ASMSAVE DC XL72'00' STANDARD REGISTER SAVE AREA USED 03058040 * BY ASM WHEN CALLING OTHER ROUTINES 03066040 ASMRSV12 DC XL24'00' RESERVED 03074040 * 03082040 * THE FOLLOWING IS THE MAPPING OF THE POOL CONTROLLERS CONTAINED IN 03100040 * THE ASMVT: 03108040 * 03116040 ASMPOOLS DSECT CELLPOOL CONTROLLER MAPPING 03124040 ASMCPID DS CL4 CELLPOOL IDENTIFIER 03132040 ASMCPSIZ DS H SIZE OF EACH CELL IN POOL 03150040 ASMCPEXT DS H NUMBER OF CELLS IN POOL EXTENSION 03158040 ASMCPAVQ DS 0D AVAILABLE CELL POOL CONTROL 03166040 ASMCPAVL DS A ADDRESS OF FIRST AVAILABLE CELL 03174040 * IN POOL 03182040 ASMCPCNT DS F COUNT FOR SYNCHRONIZATION OF THIS 03200040 * POOL, DECREMENTED WHEN REMOVING 03208040 * CELL FROM POOL, UNCHANGED WHEN 03216040 * PLACING CELL BACK IN THE POOL 03224040 ASMCPRSQ DS 0D ACE POOL ONLY, ACE RESERVE CELL 03232040 * POOL CONTROL 03250040 ASMCPTAK DS F ACE POOL ONLY, NUMBER OF CELLS 03258040 * TAKEN FROM RESERVE QUEUE 03266040 ASMCPRES DS F ACE POOL ONLY, RESERVE QUEUE OF 03274040 * ACE CELLS USED ONLY WHEN ACE 03282040 * REQUIRED BY ROUTINES RUNNING WITH 03300040 * THE SALLOC LOCK 03308040 MEND END OF BAL SECTION */ 03316040 *%ASMVTPLS:; 03324040 *DECLARE 03332040 * 1 ASMVT BASED(ASMVTPTR) BDY(DWORD), /* ASM VECTOR TABLE */ 03350040 * 3 ASMFLAG1 BIT(8), /* ASM GLOBAL FLAG FIELD 1 */ 03358040 * 5 ASMDUPLX BIT(1), /* DUPLEXING OPTION FLAG, 03366040 * 1 = DUPLEXING OF COMMON REQUESTED 03374040 * DUPLEX PAGE DATA SET OPENED BY RIM 03382040 * 0 = DUPLEXING NOT REQUESTED, NO 03400040 * DUPLEX DATA SET OPENED BY RIM, OR 03408040 * DUPLEXING SUSPENDED IF DUPLEXING 03416040 * SUSPENDED FLAG IS ON */ 03424040 * 5 ASMNOCWQ BIT(1), /* NO COMMON WRITE QUEUE FLAG, 03432040 * 1 = DO NOT QUEUE WRITE IOE'S TO 03450040 * COMMON WRITE QUEUE, 03458040 * 0 = DO NORMAL IOE QUEUING */ 03466040 * 5 ASMNOLCL BIT(1), /* NO LOCAL DATA PAGING FLAG, 03474040 * 1 = ALL WRITE IOE'S MUST BE 03482040 * QUEUED TO COMMON WRITE QUEUE, 03500040 * 0 = QUEUE IOE'S NORMALLY */ 03508040 * 5 ASMRSV1 BIT(1), /* RESERVED */ 03516040 * 5 ASMNODPX BIT(1), /* DUPLEXING SUSPENDED FLAG, 03524040 * 1 = DUPLEXING HAS BEEN SUSPENDED 03532040 * BECAUSE THE DUPLEX PAGE DATA SET 03550040 * IS FULL OR INOPERATIVE, 03556040 * 0 = DUPLEXING STILL ACTIVE IF 03562040 * REQUESTED */ 03574040 * 5 ASMPLPAF BIT(1), /* PLPA DATA SET FULL FLAG, 03582040 * 1 = PLPA DATA SET FULL, 03600040 * 0 = PLPA DATA SET NOT FULL */ 03604040 * 5 ASMCOMMF BIT(1), /* COMMON DATA SET FULL FLAG, 03620040 * 1 = COMMON DATA SET FULL, 03623040 * 0 = COMMON DATA SET NOT FULL */ 03626040 * 5 ASMPLPAS BIT(1), /* PLPA DATA SET SPILL FLAG, 03650040 * 1 = PLPA DATA SET SPILLED TO 03657040 * COMMON DATA SET DURING PLPA BUILD 03664040 * AT NIP TIME, 03680040 * 0 = PLPA DATA SET NOT FULL AFTER 03686040 * PLPA BUILD */ 03700040 * 3 ASMFLAG2 BIT(8), /* ASM GLOBAL FLAG FIELD 2 */ 03708040 * 5 ASMCALLQ BIT(1), /* QIOE CALLER FLAG, 03716040 * 1 = PAGE COMPLETION IS THE CALLER 03724040 * OF QIOE, 03732040 * 0 = QIOE CALLED BY SOME OTHER ASM 03750040 * ROUTINE */ 03758040 * 5 ASMNOSAV BIT(1), /* NO SAVE FLAG, 03766040 * 1 = SYS1.STGINDEX UNAVAILABLE OR 03774040 * FULL, SAVE REQUESTS NOT DONE, 03782040 * 0 = SYS1.STGINDEX AVAILABLE FOR 03800040 * USE */ 03808040 * 5 ASMNOTMR BIT(1), /* NO TASK MODE RELEASE FLAG, 03816040 * 1 = TASK MODE RELEASE (ILRTMRLG) 03824040 * HAS SUFFERED INDETERMINATE ERRORS, 03832040 * DO NOT POST ITS ECB, 03850040 * 0 = ILRTMRLG RUNNING NORMALLY */ 03858040 * 5 ASMNOTPT BIT(1), /* NO TPARTABLE FLAG, 03866040 * 1 = A READ OR WRITE OF TPARTABLE 03874040 * HAS FAILED, IT IS NOT UP TO DATE, 03882040 * 0 = TPARTABLE AVAILABLE AND 03900040 * CORRECT */ 03908040 * 5 ASMQUICK BIT(1), /* QUICK START IPL FLAG, 03916040 * 1 = ASM INITIALIZATION PROCESSED 03924040 * PLPA IN QUICK START MODE (NOT 03932040 * CLPA), 03950040 * 0 = ASM INITIALIZATION PROCESSED 03958040 * PLPA IN COLD START MODE (CLPA), 03966040 * OR WAS FORCED TO CONVERT TO COLD 03974040 * START MODE */ 03982040 * 5 ASMWARM BIT(1), /* WARM START IPL FLAG, 04000040 * 1 = ASM INITIALIZATION PROCESSED 04008040 * VIO DATA SETS IN WARM START MODE 04016040 * (NOT CVIO), 04024040 * 0 = ASM INITIALIZATION PROCESSED 04032040 * VIO DATA SETS IN CVIO MODE, OR 04050040 * WAS FORCED TO CONVERT A WARM START 04058040 * REQUEST TO CVIO */ 04066040 * 3 ASMDSSFS CHAR(2), /* IF NOT ZERO, FIRST SLOT NUMBER OF 04070040 * DSS RESERVED AREA ON PLPA PAGE 04074040 * DATASET @ZA14260*/ 04076040 * 3 ASMSART PTR(31), /* ADDRESS OF SWAP ACTIVITY REFERENCE 04082040 * TABLE - SART */ 04100040 * 3 ASMPART PTR(31), /* ADDRESS OF PAGING ACTIVITY 04106040 * REFERENCE TABLE - PART */ 04112040 * 3 ASMGOS PTR(31), /* ADDRESS OF ILRGOS, USED BY 04130040 * ILRCALL MACRO */ 04135040 * 3 ASMTRPAG PTR(31), /* ADDRESS OF ILRTRPAG, ENTRY POINT 04150040 * IN ILRPOS, USED BY ILRCALL MACRO */ 04157040 * 3 ASMEREC PTR(31), /* ADDRESS OF BAD SLOT ERROR RECORD 04164040 * MAINTAINED BY ILRCMP */ 04171040 * 3 ASMMSGBF PTR(31), /* ADDRESS OF MESSAGE BUFFER USED BY 04178040 * ASM MESSAGE ROUTINE */ 04200040 * 3 ASMRSV5 CHAR(4), /* RESERVED */ 04200940 * 04201940 * /*******************************************************************/ 04202940 * /* */ 04203940 * /* THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE */ 04250040 * /* I/O CONTROL MODULES OF ASM. */ 04253040 * /* */ 04262040 * /*******************************************************************/ 04266040 * 04270040 * 3 ASMSTAGQ CHAR(8) BDY(DWORD), /* I/O STAGING QUEUE CONTAINING 04300040 * AIA'S WAITING FOR AVAILABLE 04303040 * IOE'S */ 04312040 * 5 ASMSTAGF PTR(31), /* ADDRESS OF FIRST AIA ON STAGING 04316040 * QUEUE */ 04320040 * 5 ASMSTAGL PTR(31), /* ADDRESS OF LAST AIA ON STAGING 04350040 * QUEUE */ 04358040 * 3 ASMIORQR FIXED(31), /* COUNT OF I/O REQUESTS (AIA'S) 04366040 * RECEIVED BY I/O CONTROL, THIS 04374040 * DOES NOT INCLUDE LSQA SWAP AIA'S */ 04382040 * 3 ASMIORQC FIXED(31), /* COUNT OF I/O REQUESTS (AIA'S) 04400040 * COMPLETED AND RETURNED TO RSM */ 04408040 * 3 ASMRSV6 CHAR(16), /* RESERVED */ 04416040 * 04424040 * /*******************************************************************/ 04432040 * /* */ 04450040 * /* THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE */ 04458040 * /* I/O SUBSYSTEM MODULES OF ASM. */ 04466040 * /* */ 04474040 * /*******************************************************************/ 04482040 * 04500040 * 3 ASMPCCWQ CHAR(8) BDY(DWORD), /* QUEUE OF AVAILABLE PCCW'S FOR 04508040 * SLOT SORT, QUEUE IS MAINTAINED 04516040 * BY COMPARE AND SWAP LOGIC WHICH 04524040 * MAKES THE SYNCHRONIZATION COUNT 04532040 * NECESSARY */ 04550040 * 5 ASMPCCWA PTR(31), /* ADDRESS OF FIRST AVAILABLE PCCW */ 04558040 * 5 ASMPCCWC FIXED(31), /* SYNCHRONIZATION COUNT, DECREMENTED 04566040 * WHEN REMOVING PCCW'S, UNCHANGED 04574040 * WHEN ADDING PCCW'S */ 04582040 * 3 ASMPCCWN FIXED(31), /* NUMBER OF PCCW'S BUILT BY RIM */ 04600040 * 3 ASMBURST FIXED(31), /* LENGTH OF SERVICE BURST FOR PAGE 04608040 * DATA SETS (IN MICROSECONDS) */ 04616040 * 3 ASMIOCNT FIXED(31), /* COUNT OF STARTIO REQUESTS MADE TO 04624040 * IOS THAT HAVE NOT COMPLETED */ 04632040 * 3 ASMSRBCT FIXED(31), /* NUMBER OF SRB'S SCHEDULED FOR THE 04650040 * I/O SUBSYSTEM THAT HAVE NOT BEEN 04658040 * DISPATCHED, THIS COUNT SHOULD BE 04666040 * EITHER 0 OR 1, IT IS MAINTAINED 04674040 * BY COMPARE AND SWAP LOGIC */ 04682040 * 3 ASMPSRB PTR(31), /* ADDRESS OF SRB USED TO SCHEDULE 04700040 * THE I/O SUBSYSTEM */ 04708040 * 3 ASMRSV7 CHAR(16), /* RESERVED */ 04716040 * 04724040 * /*******************************************************************/ 04732040 * /* */ 04750040 * /* THE FOLLOWING SECTION OF THE ASMVT IS USED FOR PAGE DATA SET */ 04758040 * /* SLOT ACCOUNTING. */ 04766040 * /* */ 04774040 * /*******************************************************************/ 04782040 * 04800040 * 3 ASMBKSLT FIXED(31), /* COUNT OF UNRESERVED LOCAL SLOTS, 04807040 * THIS COUNT IS DECREMENTED AND 04814040 * INCREMENTED FOR EACH ADDRESS SPACE 04830040 * OR VIO LG CREATED OR DELETED */ 04836040 * 3 ASMSLOTS FIXED(31), /* COUNT OF TOTAL LOCAL SLOTS IN ALL 04850040 * OPEN LOCAL PAGE DATA SETS */ 04858040 * 3 ASMVSC FIXED(31), /* COUNT OF TOTAL LOCAL SLOTS 04866040 * ALLOCATED TO VIO PRIVATE AREA 04874040 * PAGES */ 04882040 * 3 ASMNVSC FIXED(31), /* COUNT OF TOTAL LOCAL SLOTS 04900040 * ALLOCATED TO NON-VIO PRIVATE AREA 04908040 * PAGES */ 04920040 * 3 ASMERRS FIXED(31), /* COUNT OF BAD SLOTS FOUND ON LOCAL 04924040 * DATA SETS DURING NORMAL 04932040 * OPERATIONS */ 04950040 * 04957040 * /*******************************************************************/ 04964040 * /* */ 04980040 * /* THE FOLLOWING SECTION OF THE ASMVT IS USED PRIMARILY BY THE */ 04986040 * /* VIO CONTROLLER AND THE GROUP OPERATOR MODULES. */ 05000040 * /* */ 05007040 * /*******************************************************************/ 05014040 * 05030040 * 3 ASMSLOTV PTR(31), /* ADDRESS OF THE SLOTV CONSTANT */ 05036040 * 3 ASMLGVT PTR(31), /* ADDRESS OF THE LOGICAL GROUP 05050040 * VECTOR TABLE */ 05052040 * 3 ASMSTGXA PTR(31), /* ADDRESS OF THE ACB FOR 05064040 * SYS1.STGINDEX */ 05080040 * 3 ASMCINV FIXED(31), /* NUMBER OF CONTROL INTERVALS IN 05086040 * SYS1.STGINDEX */ 05100040 * 3 ASMLSAI CHAR(8) BDY(DWORD), /* ASM STORAGE LOCATOR 'S' SYMBOL 05107040 * GENERATOR, LAST 'S' SYMBOL 05114040 * ASSIGNED */ 05130040 * 5 ASMLSAIL FIXED(31), /* LOW WORD OF 'S' SYMBOL GENERATOR */ 05136040 * 5 ASMLSAIH FIXED(31), /* HIGH WORD OF 'S' SYMBOL GENERATOR*/ 05150040 * 3 ASMGOSQS CHAR(8) BDY(DWORD), /* DOUBLEWORD REFERENCE FOR GOS 05157040 * WORK QUEUES */ 05164040 * 5 ASMGOSWT FIXED(31), /* QUEUE OF ELEMENTS FOR ACE'S 05180040 * WAITING FOR VSAM BUFFER TO BECOME 05186040 * AVAILABLE, USED BY ILRGOS */ 05200040 * 5 ASMGOSWK FIXED(31), /* FIFO WORK QUEUE OF ELEMENTS FOR 05207040 * ACE'S, USED BY ILRGOS TO START 05214040 * OPERATIONS WAITING FOR VSAM 05230040 * BUFFERS */ 05236040 * 3 ASMREQCT FIXED(31), /* NUMBER OF SIMULTANEOUS REQUESTS 05250040 * THAT CAN BE MADE TO VSAM, THIS 05257040 * NUMBER (MINUS ONE FOR ILRTMRLG'S 05264040 * USE) CORRESPONDS TO THE STRING 05280040 * NUMBER PARAMETER ON THE OPEN FOR 05286040 * SYS1.STGINDEX */ 05300040 * 3 ASMTCBPT PTR(31), /* ADDRESS OF ASM TCB */ 05310040 * 3 ASMTMECB FIXED(31), /* ECB USED BY ILRTMRLG TO WAIT FOR 05311040 * WORK, THIS ECB IS POSTED BY 05330040 * ILRRLG */ 05339040 * 3 ASMRLGRQ FIXED(31), /* REQUEST QUEUE FOR ILRTMRLG 05348040 * CONSISTING OF ACE'S QUEUED BY 05357040 * ILRRLG, QUEUE IS SERIALIZED BY 05366040 * COMPARE AND SWAP LOGIC */ 05375040 * 3 ASMRLGWQ FIXED(31), /* WORK QUEUE FOR ILRTMRLG TO HOLD 05384040 * ACE'S MOVED FROM REQUEST QUEUES */ 05391040 * 3 ASMTASCB PTR(31), /* ADDRESS OF ASCB FOR ADDRESS SPACE 05407040 * IN WHICH ILRTMRLG IS RUNNING */ 05414040 * 3 ASMVSAMW FIXED(31), /* QUEUE OF ELEMENTS FOR ACES WAITING 05416040 * FOR A PARTICULAR RECORD ON 05418040 * SYS1.STGINDEX TO BECOME AVAILABLE 05420040 * TO BECOME AVAILABLE, USED BY 05422040 * ILRVSAMI @ZA15367*/ 05424040 * 3 ASMRSV8 CHAR(4), /* RESERVED */ 05426040 * 05436040 * /*******************************************************************/ 05450040 * /* */ 05457040 * /* THE FOLLOWING SECTION OF THE ASMVT CONTAINS ENTRY POINT */ 05464040 * /* ADDRESSES OF THOSE ASM ROUTINES OR SUBROUTINES THAT ARE CALLED */ 05480040 * /* BY MORE THAN ONE MODULE, OR THAT RESIDE IN LPA. LPA ROUTINE */ 05486040 * /* ENTRY POINTS ARE DETERMINED AT TASK MODE INITIALIZATION. */ 05500040 * /* */ 05507040 * /*******************************************************************/ 05514040 * 05530040 * 3 ASMPQIOE PTR(31), /* ADDRESS OF ILRQIOE, SUBROUTINE OF 05536040 * ILRPAGIO */ 05550040 * 3 ASMPFRSL PTR(31), /* ADDRESS OF ILRFRSL1, FREESLOT 05557040 * ENTRY POINT OF ILRFRSLT */ 05564040 * 3 ASMPFRSW PTR(31), /* ADDRESS OF ILRFLSW1, FREESWAP 05580040 * ENTRY POINT OF ILRFRSLT */ 05586040 * 3 ASMPTM PTR(31), /* ADDRESS OF ILRPTM */ 05600040 * 3 ASMPSWPD PTR(31), /* ADDRESS OF ILRSWPDR */ 05607040 * 3 ASMPSRMT PTR(31), /* ADDRESS OF ILRPSRMT, PART MONITOR 05614040 * AND SWAP DRIVER RMTR */ 05630040 * 3 ASMPSRBC PTR(31), /* ADDRESS OF ILRSRBC */ 05636040 * 3 ASMVRMTR PTR(31), /* ADDRESS OF ILRSRBRM, ENTRY POINT 05650040 * OF ILRSRBC FOR VIO RMTR */ 05651040 * 3 ASMPEX PTR(31), /* ADDRESS OF ILRPEX */ 05664040 * 3 ASMPCMPD PTR(31), /* ADDRESS OF ILRCMPDI, ENTRY POINT 05680040 * OF ILRCMP. @ZA25907*/ 05700040 * 3 ASMPCMPN PTR(31), /* ADDRESS OF ILRCMPNE, ENTRY POINT 05750040 * OF ILRCMP */ 05758040 * 3 ASMPCMPA PTR(31), /* ADDRESS OF ILRCMPAE, ENTRY POINT 05766040 * OF ILRCMP */ 05774040 * 3 ASMPCMP PTR(31), /* ADDRESS OF ILRCMP */ 05782040 * 3 ASMPSAV PTR(31), /* ADDRESS OF ILRSAV */ 05800040 * 3 ASMPACT PTR(31), /* ADDRESS OF ILRACT */ 05808040 * 3 ASMPRLG PTR(31), /* ADDRESS OF ILRRLG */ 05816040 * 3 ASMPFRLG PTR(31), /* ADDRESS OF ILRFRELG, ENTRY POINT 05824040 * OF ILRGOS */ 05832040 * 3 ASMPMSG0 PTR(31), /* ADDRESS OF ILRMSG00 */ 05850040 * 3 ASMPMSGS PTR(31), /* ADDRESS OF ILRMSGSP, ENTRY POINT 05858040 * OF ILRMSG00 */ 05866040 * 3 ASMPVACQ PTR(31), /* ADDRESS OF ILRVACQ2, ENTRY POINT 05874040 * OF ILRFRR01 */ 05882040 * 3 ASMPIOFR PTR(31), /* ADDRESS OF ILRIOFRR, I/O CONTROL 05900040 * RECOVERY ROUTINE */ 05908040 * 3 ASMPVACE PTR(31), /* ADDRESS OF ILRVACE, ENTRY POINT 05916040 * OF ILRFRR01 */ 05924040 * 3 ASMRSV10 CHAR(16), /* RESERVED */ 05932040 * 05950040 * /*******************************************************************/ 05958040 * /* */ 05966040 * /* THE FOLLOWING SECTION OF THE ASMVT CONTAINS THE POOL */ 05974040 * /* CONTROLLERS THAT ARE USED BY THE GMA MACRO TO OBTAIN AND */ 05982040 * /* RELEASE CELLS FOR THOSE ROUTINES REQUIRING ONE OF THESE */ 06000040 * /* CONTROL BLOCKS. THE POOL CONTROLLER MAPPING APPEARS AT THE */ 06008040 * /* END OF THE ASMVT. */ 06016040 * /* */ 06024040 * /*******************************************************************/ 06040040 * 06046040 * 3 ASMIOEPC CHAR(16) BDY(DWORD), /* IOE POOL CONTROLLER */ 06060040 * 3 ASMBWKPC CHAR(16) BDY(DWORD), /* 256 BYTE WORKAREA POOL 06068040 * CONTROLLER */ 06076040 * 3 ASMSWKPC CHAR(16) BDY(DWORD), /* 512 BYTE WORKAREA POOL 06084040 * CONTROLLER, USED EXCLUSIVELY BY 06092040 * ILRVSAMI */ 06110040 * 3 ASMACEPC CHAR(24) BDY(DWORD), /* ACE POOL CONTROLLER */ 06118040 * 06126040 * /*******************************************************************/ 06134040 * /* */ 06142040 * /* THE FOLLOWING SECTION OF THE ASMVT CONTAINS WORK-SAVE AREAS */ 06160040 * /* USED BY THE ASM ROUTINES THAT RUN WITH THE SALLOC LOCK. */ 06168040 * /* */ 06176040 * /*******************************************************************/ 06184040 * 06192040 * 3 ASMWKSA1 CHAR(80) BDY(DWORD), /* USED BY ILRPAGIO */ 06210040 * 3 ASMWKSA2 CHAR(80) BDY(DWORD), /* USED BY ILRQIOE, SUBROUTINE OF 06218040 * ILRPAGIO */ 06226040 * 3 ASMWKSA3 CHAR(80) BDY(DWORD), /* USED BY ILRPAGCM */ 06234040 * 3 ASMWKSA4 CHAR(80) BDY(DWORD), /* USED BY ILRSWAP */ 06242040 * 3 ASMWKSA5 CHAR(80) BDY(DWORD), /* USED BY ILRSLSQA, SUBROUTINE 06260040 * OF ILRSWAP */ 06268040 * 3 ASMWKSA6 CHAR(80) BDY(DWORD), /* USED BY ILRPOS AND ILRVIOCM */ 06276040 * 3 ASMWKSA7 CHAR(80) BDY(DWORD), /* USED BY ILRPEX AND ILRMSG00 */ 06284040 * 3 ASMSAVE CHAR(72) BDY(DWORD), /* STANDARD REGISTER SAVE AREA 06292040 * USED BY ASM WHEN CALLING OTHER 06310040 * ROUTINES */ 06320040 * 3 ASMRSV12 CHAR(24); /* RESERVED */ 06326040 * 06334040 * /*******************************************************************/ 06342040 * /* */ 06360040 * /* THE FOLLOWING IS THE MAPPING OF THE POOL CONTROLLERS CONTAINED */ 06368040 * /* IN THE ASMVT. */ 06376040 * /* */ 06384040 * /*******************************************************************/ 06392040 * 06410040 *DECLARE 06418040 * 1 ASMPOOLS BASED BDY(DWORD), /* CELLPOOL CONTROLLER MAPPING */ 06426040 * 3 ASMCPID CHAR(4), /* CELLPOOL IDENTIFIER */ 06434040 * 3 ASMCPSIZ FIXED(15), /* SIZE OF EACH CELL IN POOL */ 06442040 * 3 ASMCPEXT FIXED(15), /* NUMBER OF CELLS IN POOL EXTENSION*/ 06460040 * 3 ASMCPAVQ CHAR(8) BDY(DWORD), /* AVAILABLE CELL POOL CONTROL */ 06468040 * 5 ASMCPAVL PTR(31), /* ADDRESS OF FIRST AVAILABLE CELL 06476040 * IN POOL */ 06484040 * 5 ASMCPCNT FIXED(31), /* COUNT FOR SYNCHRONIZATION OF THIS 06492040 * POOL, DECREMENTED WHEN REMOVING A 06510040 * CELL FROM POOL, UNCHANGED WHEN 06518040 * PLACING A CELL BACK IN THE POOL */ 06526040 * 3 ASMCPRSQ CHAR(8) BDY(DWORD), /* ACE POOL ONLY, ACE RESERVE CELL 06534040 * POOL CONTROL */ 06542040 * 5 ASMCPTAK FIXED(31), /* ACE POOL ONLY, NUMBER OF CELLS 06560040 * TAKEN FROM RESERVE QUEUE */ 06568040 * 5 ASMCPRES PTR(31); /* ACE POOL ONLY, RESERVE QUEUE OF 06576040 * ACE CELLS USED ONLY WHEN ACE 06584040 * REQUIRED BY ROUTINES RUNNING 06592040 * WITH THE SALLOC LOCK */ 06600040 * 06608040 * /*******************************************************************/ 06630040 * /* */ 06638040 * /* THE FOLLOWING ARE MAPPINGS OF SOME OF THE WORK-SAVE AREAS */ 06646040 * /* CONTAINED IN THE ASMVT. */ 06654040 * /* */ 06662040 * /*******************************************************************/ 06680040 * 06688040 *DECLARE 06696040 * 1 ASM1WKSV CHAR(80) BDY(DWORD) DEFINED(ASMWKSA1), /* MAPPING OF 06704040 * WORK-SAVE AREA USED BY ILRPAGIO */ 06712040 * 3 ASM1RGSV CHAR(60) BDY(DWORD), /* INPUT REGISTER SAVE AREA */ 06730040 * 5 ASM1RG1 PTR(31), /* SAVE AREA FOR REG 1 */ 06738040 * 5 * CHAR(52), /* SAVE AREA FOR REG 2 TO REG 14 */ 06746040 * 5 ASM1RG15 PTR(31), /* SAVE AREA FOR REG 15 */ 06754040 * 3 ASM1WRKA CHAR(20) BDY(WORD), /* WORK AREA */ 06762040 * 5 ASM1ASCB PTR(31), /* ADDRESS OF ASCB */ 06780040 * 5 ASM1NXTA PTR(31); /* ADDRESS OF NEXT AIA */ 06788040 * 06796040 *DECLARE 06804040 * 1 ASM2WKSV CHAR(80) BDY(DWORD) DEFINED(ASMWKSA2), /* MAPPING OF 06812040 * WORK-SAVE AREA USED BY ILRQIOE */ 06830040 * 3 ASM2RGSV CHAR(52) BDY(DWORD), /* INPUT REGISTER SAVE AREA */ 06838040 * 3 ASM2WRKA CHAR(28) BDY(WORD), /* WORK AREA */ 06846040 * 5 ASM2PAQ PTR(31), /* PTR TO PRIVATE AREA IOE'S */ 06854040 * 5 ASM2CAQ PTR(31), /* PTR TO COMMON AREA IOE'S */ 06862040 * 5 ASM2DUPQ PTR(31), /* PTR TO DUPLEXED IOE'S */ 06880040 * 5 ASM2FLGS BIT(8), /* LOCAL SWITCHES */ 06888040 * 7 ASM2RFLG BIT(1), /* READ IOE PUT ON SOME PARTE */ 06896040 * 7 ASM2WFLG BIT(1), /* WRITE IOE BUILT */ 06904040 * 5 * CHAR(3), /* UNUSED */ 06912040 * 5 ASM2SR14 PTR(31); /* SAVE AREA FOR REG 14 */ 06930040 * 06938040 *DECLARE 06946040 * 1 ASM3WKSV CHAR(80) BDY(DWORD) DEFINED(ASMWKSA3), /* MAPPING OF 06954040 * WORK-SAVE AREA USED BY ILRPAGCM */ 06962040 * 3 ASM3SWPQ PTR(31), /* QUEUE OF AIA'S FOR SWAPCOMP RTN */ 06980040 * 3 ASM3GENQ PTR(31), /* QUEUE OF AIA'S FOR PAGECOMP RTN */ 06988040 * 3 ASM3PIOP PTR(31), /* QUEUE OF AIA'S FOR RETURN TO PIOP*/ 06996040 * 3 ASM3TMPA PTR(31), /* SAVE AREA FOR NEXT AIA PTR */ 07004040 * 3 ASM3GRPA PTR(31), /* SAVE AREA FOR NEXT GROUP PTR */ 07012040 * 3 ASM3R14A PTR(31), /* SAVE AREA FOR 1ST LEVEL REG 14 */ 07030040 * 3 ASM3R14B PTR(31), /* SAVE AREA FOR 2ND LEVEL REG 14 */ 07038040 * 3 ASM3SR13 PTR(31); /* SAVE AREA FOR REG 13 */ 07046040 * 07054040 *DECLARE 07062040 * 1 ASM4WKSV CHAR(80) BDY(DWORD) DEFINED(ASMWKSA4), /* MAPPING OF 07080040 * WORK-SAVE AREA USED BY ILRSWAP */ 07088040 * 3 ASM4RGSV CHAR(52) BDY(DWORD), /* INPUT REGISTER SAVE AREA */ 07096040 * 5 ASM4RG2 PTR(31), /* SAVE AREA FOR REG 2 */ 07104040 * 5 * CHAR(48); /* SAVE AREA FOR REG 3 TO REG 14 */ 07112040 * 07130040 *DECLARE 07138040 * 1 ASM5WKSV CHAR(80) BDY(DWORD) DEFINED(ASMWKSA5), /* MAPPING OF 07146040 * WORK-SAVE AREA USED BY ILRSLSQA */ 07154040 * 3 ASM5RGSV CHAR(52) BDY(DWORD), /* INPUT REGISTER SAVE AREA */ 07162040 * 5 ASM5RG2 PTR(31), /* SAVE AREA FOR REG 2 */ 07180040 * 5 * CHAR(48), /* SAVE AREA FOR REG 3 TO REG 14 */ 07188040 * 3 ASM5SR14 PTR(31), /* SAVE AREA FOR REG 14 */ 07196040 * 3 ASM5GCTR FIXED(31), /* COUNTER FOR GROUPING AIA'S */ 07204040 * 3 ASM5AIA PTR(31), /* TEMP SAVE AREA FOR AIA PTR */ 07212040 * 3 ASM5FLGS BIT(8); /* INTERNAL FLAGS */ 07230040