TITLE 'IDA019ST *00001000 ' 00002000 JSCBDISP EQU 188 00003000 JSCBAOS1 EQU 72 00004000 JSCBAOS2 EQU 192 00005000 * /* 00006000 EJECT 00007000 R0 EQU 0 CONVERT INPUT 00008000 R1 EQU 1 00009000 R2 EQU 2 PLH REG (RPLH) 00010000 R3 EQU 3 AMB REG (RAMB) 00011000 R4 EQU 4 RPL REG (RRPL) 00012000 R5 EQU 5 RACB 00013000 R6 EQU 6 00014000 R7 EQU 7 00015000 R8 EQU 8 00016000 R9 EQU 9 00017000 R10 EQU 10 00018000 R11 EQU 11 2ND BASE REG 00019000 R12 EQU 12 1ST BASE REG 00020000 R13 EQU 13 IDATRACE DSECT REG (WORK AREA) 00021000 R14 EQU 14 00022000 R15 EQU 15 00023000 RPLH EQU R2 00024000 RAMB EQU R3 00025000 RAMBL EQU R4 00026000 RRPL EQU R4 00027000 RACB EQU R5 00028000 USING PHASE1,R15 00029000 EJECT 00030000 ********************************************************************** 00031000 * PHASE1 LOCATES THE WORK AREA TO BE USED FOR THE TRACE AND DOES * 00032000 * INITIAL PROMPTS. * 00033000 ********************************************************************** 00034000 IDA019ST CSECT 00035000 PHASE1 B PROLOG GO TO PROLOG 00036000 DS 0F 00037000 DC C'IDA019ST' 00038000 DC C'&SYSDATE' 00039000 PROLOG ST R12,8(R13) TEMP SAVE REG 12 00040000 USING IDATRACE,R15 00041000 USING PHASE1,R12,R11 00042000 LR R12,R15 SET BASE REG 00043000 L R15,AMBTRACE(RAMB) 00044000 ST R12,0(R15) 00045000 TM FLAG1,STOP WAS TRACE ENDED? 00046000 BZ SAVE1 NO, FIND A SAVE AREA 00047000 QUICKOUT L R12,8(R13) 00048000 LA R14,2(R14) POINT R14 PAST HOOK NUMBER 00049000 BR R14 00050000 SAVE1 TS SAVE1X CAN WE SAVE IN AREA A? 00051000 BNZ SAVE2 BRANCH IF SAVE AREA IN USE 00052000 STM R0,R14,SAVEIN1 SAVE IN 1ST SAVE AREA 00053000 LA R5,SAVE1X 00054000 B PHASE1B 00055000 SAVE2 TS SAVE2X CAN I USE 2ND SAVE AREA? 00056000 BNZ SAVE3 NO, TRY 3RD 00057000 STM R0,R14,SAVEIN2 00058000 LA R6,SAVE2X 00059000 B PHASE1A 00060000 SAVE3 TS SAVE3X CAN I USE 3RD SAVE AREA? 00061000 BNZ TEMP4 NO AVALIABLE SAVE AREA 00062000 STM R0,R14,SAVEIN3 00063000 LA R6,SAVE3X 00064000 B PHASE1A 00065000 TEMP4 TS SAVE4X TEMP SAVE IN SAVE 4? 00066000 BNZ TEMP5 00067000 STM R13,R1,SAVE4X 00068000 LA R14,SAVE4X 00069000 B GETMAIN 00070000 TEMP5 TS SAVE5X TEMP SAVE IN SAVE 5? 00071000 BNZ TEMP6 00072000 STM R13,R1,SAVE5X 00073000 LA R14,SAVE5X 00074000 B GETMAIN 00075000 TEMP6 OI FLAG0,NOSAVE NO SAVE ERROR MAY OCCURE 00076000 TS SAVE6X 00077000 BNZ QUICKOUT REAL PROBLEMS, GET OUT 00078000 NI FLAG0,X'FF'-NOSAVE SAVE6 WAS OK, TURN OFF ERROR 00079000 STM R13,R1,SAVE6X 00080000 LA R14,SAVE6X 00081000 GETMAIN GETMAIN RC,LV=SAVE2X-SAVE1X 00082000 LTR R15,R15 WORK OK? 00083000 L R15,120(RAMB) RESET THE IDATRACE REG 00084000 BNZ GETERROR 00085000 STM R2,R11,SAVEIN1-SAVE1X+8(R1) SAVE INPUT REGSIN NEW SAVE- 00086000 MVC SAVEIN1-SAVE1X(8,R1),12(R14) SAVE AREA. 00087000 MVC SAVEIN1-SAVE1X+52(8,R1),0(R14) 00088000 MVC SAVEIN1-SAVE1X+48(4,R1),8(R13) OLD REG 12 00089000 MVI 0(R14),X'00' FREE UP THE TEMP SAVE AREA 00090000 LR R6,R1 00091000 MVI 0(R6),X'F0' 00092000 B PHASE1A 00093000 GETERROR OI FLAG0,NOCORE NEXT EXIT TELLS ABOUT CORE. 00094000 LM R13,R1,0(R14) RESTORE CALLERS REGS 00095000 B QUICKOUT RETURN WITH PROBLEMS 00096000 PHASE1A LA R8,SAVE1X+1 00097000 LA R7,SAVEIN1-SAVE1X-1 00098000 LR R9,R7 SET MVCL LENGTH DATA 00099000 LR R5,R6 REG 6 IS ALTERED IN MVCL 00100000 LA R6,1(R6) GET MOVE BACK TO START 00101000 MVCL R6,R8 SWAP SAVE1 WITH CURRENT SAVE 00102000 XC SAVEIN1(60),0(R6) AFTER MVCL, REG6 POINTS TO - 00103000 XC 0(60,R6),SAVEIN1 THE INPUT SAVE AREA. SWAP IT - 00104000 XC SAVEIN1(60),0(R6) WITH THE MAIN SAVE AREA. 00105000 PHASE1B XC IBUFFC(HOOKCALL-IBUFFC),IBUFFC CLEAR OUT FLAGS 00106000 ST R5,OLDSAVE SAVE SWAPED SAVE ADDRESS 00107000 MVC SAVEIN1+48(4),8(R13) SAVE THE OLD REG 12 00108000 DROP R15 00109000 USING IDATRACE,R13 00110000 L R13,120(RAMB) LOAD SAVE REG 00111000 LA R11,2048(R12) 00112000 LA R11,2048(R11) 00113000 ********************************************************************** 00114000 * PHASE1C CHECKS TO SEE IF THIS CALL WAS FROM VSAM CLOSE (IDA0200T). * 00115000 * THIS IS DETERMINED BY CHECKING FOR A X'00' HOOK NUMBER. IF SO, * 00116000 * RESET2 IS CALLED TO CLOSE DOWN THE TRACE DCB. * 00117000 ********************************************************************** 00118000 PHASE1C L R10,R14IN GET CALLERS REG 14 VALUE 00119000 CLI 1(R10),X'00' IS HOOK A ZERO 00120000 BE RESET2 YES, CLOSE IS THE CALLER. 00121000 L R7,CVTPTR(R0) GET CVT ADDRESS 00122000 TM FLAG1,STOP HAVE WE BEEN TERMINATED? 00123000 BO EXIT1 YES, GET OUT 00124000 TM 264(R7),X'30' ANY RESETS? 00125000 BZ PARMPMT 00126000 TM 264(R7),X'20' TYPE 2 RESET? 00127000 BO RESET2 00128000 RESET1 EQU * SEE IF WE ARE RUNNING UNDER AN- 00129000 C R13,OLDSAVE AN IRB (INTERUPTED A TRACE). 00130000 BNE EXIT1 YES, LET OTHER REQUEST DO RESET 00131000 LA R8,3 SET RESET CODE 00132000 L R15,IDAO19SU 00133000 BALR R14,R15 00134000 TM FLAG1,STOP DID AN ERROR OCCUR? 00135000 BO EXIT1 YES, GETOUT 00136000 B PARMPMT RETURNED, TYPE 1 RESET DONE 00137000 RESET2 TS FLAG1 TURN ON THE STOP FLAG 00138000 BNZ EXIT1 ALREADY DONE 00139000 TM TRACE+48,X'10' IS DCB OPEN? 00140000 BZ EXIT1 NO, RETURN 00141000 B RESET1 00142000 EJECT 00143000 *********************************************************************** 00144000 * EXIT1 CODE FIRST DETERMINES IF RUNNING PRINT WAS INTERRUPTED BY AN * 00145000 * ASYNCHRONOUS CALL AND PUTS OUT MSG. EXIT2 THEN TURNS OFF REPEATING * 00146000 * FLAGS IF REQUESTED. EXIT3 DETERMINES IF ABEND IS TO BE CALLED * 00147000 * BECAUSE OF A GETMAIN ERROR. EXIT4 UPDATES COUNTS. EXIT5 ISSUES * 00148000 * FREEMAINS IF NEEDED. EXIT6 SWAPS SAVE AREAS BACK SO SAVE1X IS * 00149000 * AGAIN THE CURRENT SAVE AREA. EXIT7 RETURNS TO THE CALLER. * 00150000 *********************************************************************** 00151000 EXIT1 TM STATUS,GOOD WAS THIS A GOOD ENTRY? 00152000 BZ EXIT3 00153000 C R13,OLDSAVE IS CURRENT SAVE THE LAST SAVE? 00154000 BE EXIT2 LAST EXIT, FORGET INTERUPT MSG. 00155000 MVI STATUS,X'00' STOP OTHERS FROM EXITING GOOD 00156000 L R9,OLDSAVE GET DISPLACEMENT TO OLD SAVE 00157000 L R0,IRBNUM-SAVE1X(R9) GET INTERUPTED TRACE NUMBER 00158000 BAL R14,CONVERT 00159000 MVC OUTLINE+1,STARS 00160000 MVC OUTLINE+15(40),CONTMSG 00161000 MVC OUTLINE+39(4),UNPACK+4 00162000 LA R2,3 00163000 BAL R14,PUT TELL USER THAT THE IRB PRINT IS DONE 00164000 EXIT2 TM FLAG0,NOCORE DID A GETMAIN FAIL? 00165000 BZ EXIT3 00166000 NI FLAG0,X'FF'-NOCORE 00167000 LA R1,X'F3' GETMAIN ERROR CODE 00168000 LA R8,5 ABEND FUNCTION CODE 00169000 L R15,IDAO19SU 00170000 BALR R14,R15 00171000 EXIT3 L R7,COUNT2 00172000 LA R7,1(R7) TOTAL TIMES IDATRACE HAS BEEN CALLED 00173000 ST R7,COUNT2 00174000 TM STATUS2,UNSWAP WAS THE PARM LIST SWAPED? 00175000 BZ EXIT4 NO, CONTINUE 00176000 NI STATUS2,X'FF'-UNSWAP WILL PUT IT BACK WAY IT WAS FOUND 00177000 TM FLAG0,SWAPED IS IT ALREADY IN THIS STATE? 00178000 BO EXIT4 YES, DON'T WORRY ABOUT IT 00179000 BAL R14,SWAP RE-SWAP PARM LIST 00180000 EXIT4 TM FLAG5,NOTE1 SINGLE PRINTS? 00181000 BZ EXIT5 00182000 TM STATUS,GOOD LIMIT ONLY ON GOOD CALLS 00183000 BZ EXIT5 00184000 NI FLAG2,X'EE' TURN OFF ACB AND AMBL 00185000 NI FLAG3,X'FE' TURN OFF DEB 00186000 NI FLAG4,X'C3' AND THE OTHERS 00187000 TM STATUS,PATHDONE+BASEDONE+UPGDONE 00188000 BZ EXIT5 00189000 NI AIXIN,X'EE' SAME FOR AIX PARMS 00190000 NI AIXIN+2,X'C3' 00191000 EXIT5 L R6,OLDSAVE GET THE OLD SAVE AREA ADDRESS 00192000 LR R5,R6 SAVE THE SAVE AREA POINTER FOR MVCL 00193000 CR R6,R13 DO WE NEED TO SWAP SAVE AREAS? 00194000 BE EXIT7 00195000 LA R7,SAVEIN1-SAVE1X 00196000 LR R9,R7 SET MVCL LENGTH DATA 00197000 LR R8,R13 00198000 MVCL R8,R6 MOVE DATA BACK TO MAIN SAVE AREA 00199000 XC SAVEIN1(60),0(R6) 00200000 XC 0(60,R6),SAVEIN1 00201000 XC SAVEIN1(60),0(R6) 00202000 EXIT6 CLI 0(R5),X'F0' DOES THE SAVE AREA NEED TO BE FREED 00203000 BNE EXIT7 NO, CONTINUE WITH THE EXIT 00204000 LM R1,R14,4(R5) 00205000 LR R12,R1 SAVE REG1 00206000 LA R0,(SAVE2X-SAVE1X) SET THE FREEMAIN LENGTH 00207000 LA 1,0(R5) SET THE AREA TO BE FREE ADDRESS 00208000 SVC 10 00209000 LR R1,R12 RESTORE REG 1 00210000 L R12,8(R13) RESTORE REG 12 00211000 LA R14,2(R14) GET PAST THE HOOK NUMBER 00212000 SR R15,R15 00213000 BR R14 00214000 EXIT7 LR R15,R5 POINT TO MY SAVED REGS 00215000 LM R0,R14,SAVEIN1-SAVE1X(R15) 00216000 MVI 0(R15),X'00' FREE UP THE SAVE AREA 00217000 LA R14,2(R14) GET PAST THE HOOK NUMBER 00218000 SR R15,R15 00219000 BR R14 RETURN TO CALLER 00220000 EJECT 00221000 ******************************************************************* 00222000 * DETERMINE IF PROMPTS (PARAMETER) HAVE BEEN DONE. IF NOT, CALL * 00223000 * IDA019SU TO GET THEM BEFORE CONTINUING. IF SO OR AFTER GETTING * 00224000 * THEM, REGFIND WILL LOCATE THE CONTROL BLOCKS AND LOAD REGS * 00225000 ******************************************************************* 00226000 PARMPMT TM FLAG1,PARMS HAVE I GOTTEN THE PARM LIST? 00227000 BO REGFIND YES, CONTINUE 00228000 C R13,OLDSAVE IS THIS AN IRB TYPE CALL? 00229000 BNE EXIT1 YES, RETURN, CAN ONLY PROMPT NON-IRB 00230000 LA R8,1 FUNCTION CODE FOR PROMPT 00231000 L R15,IDAO19SU 00232000 BALR R14,R15 00233000 TM FLAG1,STOP WAS END REQUESTED OR AN ERROR? 00234000 BO EXIT1 YES, GETOUT 00235000 SWAPCK TM FLAG0,SWAPED WAS THE PARM LIST SWAPED? 00236000 BZ REGFIND 00237000 OI STATUS2,UNSWAP 00238000 BAL R14,SWAP GO PUT IT BACK THE NORMAL WAY 00239000 REGFIND L RAMB,AMBIN GET INPUT REG 3 00240000 CLI AMBID(RAMB),X'40' DID I GET AN AMB? 00241000 BNE NOCB NO, GOT PROBLEMS 00242000 TM AMBFLG1(RAMB),X'40' IS AMBTYPE ON(DATA AMB)? 00243000 BZ DATAAMB 00244000 ST R3,IAMB SAVE INDEX AMB ADDRESS 00245000 L RAMB,AMBPAMBL(,RAMB) GET THE PRIMARY AMBL ADDRESS 00246000 L RAMB,AMBLDTA(,RAMB) GET DATA AMB ADDRESS. 00247000 B REGLOAD GO FIND THE REST OF THE CB'S 00248000 DATAAMB ICM R6,15,AMBPIXP(RAMB) GET INDEX AMB ADDRESS 00249000 BNZ DATAAMB1 NO INDEX AMB 00250000 NI FLAG2,X'FF'-INDEXCB ESDS, NO INDEX TRACE CAN BE DONE 00251000 DATAAMB1 ST R6,IAMB 00252000 REGLOAD ST R3,DAMB SAVE DATA AMB ADDRESS 00253000 L RPLH,PLHIN GET PLH ADDRESS FOR INPUT REG2 00254000 ST RPLH,PLH CURRENT PLH POINTER 00255000 ICM RRPL,15,PLHCRPL(RPLH) GET RPL ADDRESS 00256000 BNZ REG01 00257000 L RRPL,RPLIN PLH DIDN'T HAVE RPL, TRY OLD REG1 00258000 REG01 CLI 0(RRPL),X'00' 00259000 BNE NOCB TROUBLES, ERROR EXIT 00260000 ICM RACB,15,RPLDACB(RRPL) GET RPL'S ACB ADDRESS 00261000 BZ NOCB NO ACB ADDRESS, TROUBLES 00262000 CLI ACBID(RACB),X'A0' 00263000 BNE NOCB NO ACB ID BYTE, TROUBLES 00264000 MVC AMBL,ACBAMBL(RACB) 00265000 ST RRPL,RPL SAVE RPL ADDRESS FOR LATER LOAD 00266000 B CONDITON 00267000 NOCB LA R1,X'F4' ERROR CODE = 4 00268000 LA R8,5 FUNCTION CODE = 5 (ERROR) 00269000 L R15,IDAO19SU 00270000 BALR R14,R15 ISSUE IDA039A (ERROR) 00271000 B EXIT1 00272000 EJECT 00273000 ********************************************************************** 00274000 * CHECK FOR THE VARIOUS CONDITIONS NEEDED TO CONTINUE. CORRECT * 00275000 * DDNAME, CORRECT COUNT, ERROR CODES, ETC... * 00276000 ********************************************************************** 00277000 CONDITON L R10,R14IN GET OLD REG14 (POINTS TO HOOK NUMBER 00278000 CLI 1(R10),X'06' START OF CI SPLIT? 00279000 BNE CON001 00280000 OI FLAG0,CISPLIT 00281000 CON001 CLI 1(R10),X'07' END OF CI SPLIT? 00282000 BNE CON002 00283000 NI FLAG0,X'FF'-CISPLIT 00284000 CON002 CLI 1(R10),X'09' START OF CA SPLIT? 00285000 BNE CON003 00286000 OI FLAG0,CASPLIT 00287000 CON003 CLI 1(R10),X'0A' END OF CA SPLIT? 00288000 BNE CON004 00289000 NI FLAG0,X'FF'-CASPLIT 00290000 CON004 LA R9,4 SET LOOP COUNTER 00291000 LA R8,HOOK 00292000 HOOKLOOP CLI 1(R10),X'03' IS THIS IDA019RZ I/O? 00293000 BNE HOOK2 00294000 CLI 0(R8),X'08' WANT CI SPLIT I/O? 00295000 BNE HOOK@1 NO, SEE IF CA SPLIT I/O 00296000 MVI HOOKCALL+1,X'08' 00297000 TM FLAG0,CISPLIT AND ARE WE DOING A CI SPLIT? 00298000 BO CONDIT1 AT IDA019RZ DOING CI SPLIT, TRACE 00299000 HOOK@1 CLI 0(R8),X'0B' WANT CA SPLIT I/O? 00300000 BNE HOOK2 NO, CHECK NEXT 00301000 MVI HOOKCALL+1,X'0B' 00302000 TM FLAG0,CASPLIT ARE WE DOING A CASPLIT? 00303000 BO CONDIT1 AT IDA019RZ DOING CA SPLIT, TRACE 00304000 HOOK2 MVC HOOKCALL(2),0(R10) 00305000 CLC 1(1,R10),0(R8) DOES HOOK NUMBER MATCH USER OPTION? 00306000 BE CONDIT1 00307000 LA R8,1(R8) POINT TO NEXT HOOK OPTION NUMBER 00308000 BCT R9,HOOKLOOP CHECK REMAINDING OPTIONS 00309000 B EXIT1 NO HOOK MATCH, EXIT 00310000 CONDIT1 L R6,COUNT UPDATE COUNT VALUE FOR THIS DDNAME 00311000 LA R6,1(R6) 00312000 ST R6,COUNT 00313000 ST R6,IRBNUM STORE THIS COUNT NUMBER 00314000 TM FLAG1,COUNTOLY 00315000 BO EXIT1 COUNT ONLY, GET OUT HERE 00316000 TM FLAG1,COUNTING AM I COUNTING? 00317000 BZ CONDIT2 NO, DO ERROR CHECK 00318000 CLC COUNTS,COUNT 00319000 BH EXIT1 HAVEN'T BEEN CALLED ENOUGHT. GET OUT 00320000 CLC COUNTE,COUNT 00321000 BH CONDIT2 LOOKS WITHIN COUNT RANGE, TRACE 00322000 C R13,OLDSAVE ARE WE RUNNING UNDER AN IRB? 00323000 BNE EXIT1 YES, NO RESET HERE 00324000 LA R8,3 END COUNT AND DO RESET 00325000 L R15,IDAO19SU 00326000 BALR R14,R15 00327000 TM FLAG1,STOP END REQUESTED? 00328000 BO EXIT1 YES, RETURN 00329000 B CONDITON START OVER 00330000 CONDIT2 TM FLAG1,RMERRCD NEED TO CHECK ERROR CODE? 00331000 BZ CONDIT4 NO, GO CHECK AIX STUFF 00332000 CLI FLAG6,X'00' IS THIS AN ANY CONDITION? 00333000 BNE CONDIT3 00334000 L RRPL,RPL 00335000 CLI RPLERRCD(RRPL),X'00' IS THERE AN ERROR? 00336000 BE EXIT1 NO, EXIT THEN. 00337000 B CONDIT4 YES, SEE WHAT TO PRINT (AIX)? 00338000 CONDIT3 CLC FLAG6,RPLERRCD(RRPL) SUPPLIED CODE = RPLERCD? 00339000 BNE EXIT1 00340000 CONDIT4 TM FLAG5,AIXX WANT AIX CHECK? 00341000 BZ CONDIT7 NO, GO PRINT 00342000 L R10,AMBL FIND OUT WHAT THIS IS I'M TRACING 00343000 TM AMBLTYPE(R10),X'40' IS AMBL AN UPG WHICH IS PART OF - 00344000 BZ CONDIT5 - AN AIX OR BASE? IF SO EXIT. 00345000 L R10,COUNT BUT BEFORE WE DO, 00346000 BCTR R10,R0 MUST RESET THE COUNT VALUE. 00347000 ST R10,COUNT 00348000 B EXIT1 00349000 CONDIT5 TM AMBLTYPE(R10),X'80' IS AMBL A PATH? 00350000 BZ CONDIT6 NO, CHECK BASE 00351000 TM AIXOPT,AIXNOAIX WANT THIS PATH (AIX) PRINTED? 00352000 BO SUBEXIT NO, TRY BASE/UPG SWAP 00353000 OI STATUS,PATHDONE 00354000 B CONDIT7 00355000 CONDIT6 TM AMBLTYPE(R10),X'10' IS AMBL FOR A BASE? 00356000 BZ CONDIT7 PRINT WHAT EVER IT IS AND GET OUT 00357000 TM AIXOPT,AIXNOBSE WANT THE BASE? 00358000 BO SUBEXIT NO, TRY PATH/UPGS SWAP 00359000 OI STATUS,BASEDONE 00360000 L RPLH,PLH GET CALLERS PLH TO CHECK FOR WAX 00361000 ICM R14,15,PLHWAX(RPLH) IS THERE ONE? 00362000 BNZ CONDIT7 NO, USER OPENED DATA SET 00363000 TM FLAG0,SWAPED IS PARM LIST ALREADY SWAPED? 00364000 BO CONDIT7 YES, ALL OK 00365000 BAL R14,SWAP DOING BASE, SWAP THE PARM LIST 00366000 CONDIT7 BC 0,PATCH NOP FOR ADDING CHECK CONDITIONS 00367000 * INTO THE PATCH AREA. 00368000 EJECT 00369000 ********************************************************************** 00370000 ********* PHASE 2 INITIALIZES THE WORKAREA'S DCB AND DECB'S ********** 00371000 ********* AND PUTS OUT THE SEPARATER MESSAGE. ********** 00372000 ********************************************************************** 00373000 SPACE 1 00374000 PHASE2 XC MESSAGES,MESSAGES 00375000 TM FLAG1,ADDRONLY ADDRESS ONLY? 00376000 BO ACBPRT YES, DON'T SWEAT INITIALIZATION 00377000 OI STATUS,GOOD GOT THIS FAR, MUST BE A GOOD CALL 00378000 TM TRACE+48,X'10' HAVE WE BEEN INITIALIZED? 00379000 BO PHASE2A YES, CONTINUE 00380000 LA R8,2 INITIALIZE FUNCTION CODE 00381000 L R15,IDAO19SU 00382000 BALR R14,R15 CALL IDA019SU TO INITIALIZE WORKAREA 00383000 TM FLAG1,STOP ERROR OR END REQUESTED? 00384000 BO EXIT1 00385000 TM TRACE+48,X'10' DID THE INITIALIZE WORK? 00386000 BZ EXIT1 NO, MUST BE AN IRB PROBLEM 00387000 PHASE2A MVC HEADER+1(122),STARS 00388000 SR R1,R1 00389000 OI STATUS,HEADOUT ABOUT TO ISSUE THE HEADER MSG 00390000 BAL R14,PRINT PRINT FIRST SET OF STARS 00391000 MVC HEADER+1(32),HOOKMSG 00392000 LH R0,HOOKCALL 00393000 BAL R14,CONVERT 00394000 MVC HEADER+34(4),UNPACK+4 STORE THE HOOK NUMBER 00395000 L R0,IRBNUM 00396000 BAL R14,CONVERT 00397000 MVC HEADER+14(4),UNPACK+4 00398000 MVC HEADER+39(84),STARS PAD INFO LINE WITH STARS 00399000 C R13,OLDSAVE IS THIS AN IRB TYPE CALL? 00400000 BE CALLER NO, CONTINUE 00401000 L R9,OLDSAVE GET ADDRESS OF INTERUPTED SAVE 00402000 L R9,IRBNUM-SAVE1X(R9) GET OLD TRACE NUMBER 00403000 LR R0,R9 00404000 BAL R14,CONVERT CONVERT THE IRB NUMBER 00405000 MVC HEADER+45(59),INTERMSG 00406000 MVC HEADER+70(4),UNPACK+4 00407000 CALLER BAL R14,PRINT PRINT HOOK NUMBER MESSAGE 00408000 MVC HEADER+1(26),CALLMSG 00409000 L R8,R14IN GET POINTER TO HOOK NUMBER 00410000 CLI 1(R8),X'0F' IS THIS A USER HOOK? 00411000 BNH R1CHK NO, DETERMINE THE CALLER 00412000 MVC HEADER+8(6),USER TELL A USER HOOK 00413000 BAL R14,RPLCHK 00414000 B PHASE2B 00415000 R1CHK CLI 1(R8),X'01' IS CALLER IDA019R1? 00416000 BNE R3CHK 00417000 MVC HEADER+14(2),R1N 00418000 BAL R14,RPLCHK 00419000 B PHASE2B 00420000 R3CHK CLI 1(R8),X'02' IS CALLER IDA019R3? 00421000 BNE RZCHK 00422000 MVC HEADER+14(2),R3N 00423000 BAL R14,RPLCHK 00424000 B PHASE2B 00425000 RZCHK CLI 1(R8),X'03' IS CALLER IDA019RZ? 00426000 BNE SECHK 00427000 MVC HEADER+14(2),RZ 00428000 BAL R14,RPLCHK 00429000 L RPLH,PLH RELOAD THE PLH REG 00430000 L R7,PLHDIOB(RPLH) GET THE IOB (IOMB) ADDRESS 00431000 CLI 0(R7),C'I' IS THIS AN IOMB? 00432000 BE RZCHK1 YES, CHECK THE IOMB 00433000 L R8,4(R7) GET THE ECB ADDRESS 00434000 B RZCHK2 00435000 RZCHK1 L R8,24(,R7) GET THE ECB ADDRESS 00436000 RZCHK2 TM 0(R8),X'3F' SEE IF ECB POSTED OK 00437000 BM RZCHK3 EITHER ZERO OR ALL ONES 00438000 L R8,4(,R7) GET ADDRESS OF BUFC 00439000 TM BUFCFLG1(R8),X'18' ANY ERRORS? 00440000 BNZ RZCHK3 00441000 MVC 0(20,R9),IOOK TELL I/O WAS OK 00442000 B PHASE2B 00443000 RZCHK3 MVC 0(12,R9),IOFAIL TELL ABOUT BAD I/O 00444000 B PHASE2B 00445000 SECHK CLI 1(R8),X'05' WAS CALLER IDA019SE? 00446000 BH RECHK 00447000 MVC HEADER+14(2),SE 00448000 BAL R14,RPLCHK BUILD THE REQUEST TYPE LINE 00449000 B PHASE2B 00450000 RECHK CLI 1(R8),X'07' WAS CALLER IDA019RE? 00451000 BH RFCHK 00452000 MVC HEADER+14(2),RE 00453000 BAL R14,RPLCHK 00454000 B PHASE2B 00455000 RFCHK CLI 1(R8),X'0A' WAS CALLER IDA019RF? 00456000 BH RICHK 00457000 MVC HEADER+14(2),RF 00458000 BAL R14,RPLCHK 00459000 B PHASE2B 00460000 RICHK CLI 1(R8),X'0D' WAS CALLER IDA019RI? 00461000 BH RUCHK 00462000 MVC HEADER+14(2),RI 00463000 BAL R14,RPLCHK 00464000 B PHASE2B 00465000 RUCHK CLI 1(R8),X'0E' WAS CALLER IDA019RU? 00466000 BNE PHASE2B NO, GO DO THE PRINT 00467000 MVC HEADER+14(2),RU 00468000 BAL R14,RPLCHK 00469000 SR R1,R1 00470000 CLI 0(R8),X'00' WAS THIS AN ACTIVE REQUEST? 00471000 BE PHASE2B 00472000 MVC 0(23,R9),RUNOP TELL USER NOTHING DONE TO UPG 00473000 B PHASE2B 00474000 RPLCHK L RRPL,RPL RELOAD THE RPL REG 00475000 L R7,R13IN GET ADDRESS OF USERS SAVE AREA 00476000 SR R9,R9 00477000 IC R9,23(R7) GET CALLERS REQUEST TYPE 00478000 MH R9,SIX TIMES SIX 00479000 LA R7,REQUEST 00480000 AR R9,R7 00481000 MVC HEADER+28(6),0(R9) MOVE THE REQUEST WORD INTO THE MSG 00482000 LA R9,HEADER+31 R9 POINTS TO NEXT MESSAGE INSERT PT 00483000 MVC 0(4,R9),MOV 00484000 TM RPLOPT1(RRPL),X'80' MOVE MODE? 00485000 BZ RPL01 YES, NEXT CHECK 00486000 MVC 0(4,R9),LOC LOCATE MODE 00487000 RPL01 LA R9,4(R9) UP THE COUNTER 00488000 TM RPLOPT1(RRPL),X'40' DIRECT MODE? 00489000 BZ RPL02 00490000 MVC 0(4,R9),DIR 00491000 LA R9,4(R9) 00492000 RPL02 TM RPLOPT1(RRPL),X'20' SEQ MODE? 00493000 BZ RPL03 00494000 MVC 0(4,R9),SEQ 00495000 LA R9,4(R9) 00496000 RPL03 TM RPLOPT1(RRPL),X'10' SKIP MODE? 00497000 BZ RPL04 00498000 MVC 0(4,R9),SKP 00499000 LA R9,4(R9) 00500000 RPL04 MVC 0(4,R9),SYN SET FOR SYNC MODE 00501000 TM RPLOPT1(RRPL),X'08' SYNC MODE? 00502000 BZ RPL05 00503000 MVC 0(4,R9),ASY NO, SET ASYNC MODE 00504000 RPL05 LA R9,4(R9) 00505000 MVC 0(4,R9),KEQ 00506000 TM RPLOPT1(RRPL),X'04' KEY EQU MODE? 00507000 BZ RPL06 00508000 MVC 0(4,R9),KGE 00509000 RPL06 LA R9,4(R9) 00510000 MVC 0(4,R9),FKY SET FULL KEY MODE 00511000 TM RPLOPT1(RRPL),X'02' FULL KEY? 00512000 BZ RPL07 00513000 MVC 0(4,R9),GKY NO, KEY EQU OR GREATER 00514000 RPL07 LA R9,4(R9) 00515000 TM RPLOPT2(RRPL),X'80' KEY MODE? 00516000 BZ RPL08 00517000 MVC 0(4,R9),KEY 00518000 LA R9,4(R9) 00519000 RPL08 TM RPLOPT2(RRPL),X'40' ADDRESS MODE? 00520000 BZ RPL09 00521000 MVC 0(4,R9),ADR 00522000 LA R9,4(R9) 00523000 RPL09 TM RPLOPT2(RRPL),X'20' CONTROL INTER MODE? 00524000 BZ RPL10 00525000 MVC 0(4,R9),CNV 00526000 LA R9,4(R9) 00527000 RPL10 TM RPLOPT2(RRPL),X'02' UPDATE? 00528000 BZ RPL11 00529000 MVC 0(4,R9),UPD 00530000 LA R9,4(R9) 00531000 RPL11 TM RPLOPT2(RRPL),X'01' NOTE STRING POSISTION? 00532000 BZ RPL12 00533000 MVC 0(4,R9),NSP 00534000 LA R9,4(R9) 00535000 RPL12 ICM R0,7,RPLFDBK(RRPL) GET ANY ERROR CODES 00536000 BZ RPL13 00537000 MVC 0(26,R9),FLOP 00538000 LA R9,26(R9) 00539000 ST R14,OUTREG SAVE R14 ACCROSS THE CONVERT CALL 00540000 BAL R14,CONVERT 00541000 L R14,OUTREG 00542000 MVC 1(6,R9),UNPACK+2 MOVE THE ERROR CODE INTO MSG 00543000 LA R9,7(R9) 00544000 B AIX01 SEE ABOUT WHO ENTERED 00545000 RPL13 MVC 0(19,R9),FLEW REQUEST WAS OK 00546000 LA R9,19(R9) 00547000 AIX01 TM FLAG5,AIXX COULD THIS BE A AIX/PATH/BASE? 00548000 BZR R14 NO, RETURN 00549000 L R15,PLHIN NEED TO DETERMINE DSTYPE THAT CALLED 00550000 ICM R5,15,PLHMRPL(R15) HAVE A MASTER RPL POINTER? 00551000 BNZ AIX01A 00552000 ICM R5,15,PLHCRPL(R15) TRY OTHER RPL POINTER 00553000 BZR R14 00554000 AIX01A L R15,RPLDACB(,R5) GET ACB 00555000 L R15,ACBAMBL(,R15) GET AMBL ADDRESS 00556000 TM AMBLTYPE(R15),X'80' PATH THE CALLER? 00557000 BZ AIX02 00558000 MVC 0(6,R9),PATH TELL ABOUT CALLER 00559000 LA R9,6(R9) 00560000 BR R14 R14 IS ADDRESS TO RETURN TO. 00561000 AIX02 TM AMBLTYPE(R15),X'20' IS CALLER A AIX? 00562000 BZ AIX03 00563000 MVC 0(5,R9),AIX TELL ABOUT CALLER 00564000 LA R9,5(R9) 00565000 BR R14 BACK TO MAIN LINE 00566000 AIX03 TM AMBLTYPE(R15),X'10' IS CALLER A BASE? 00567000 BZR R14 NO, RETURN AS I DON'T KNOW WHAT.. 00568000 MVC 0(6,R9),BASE TELL THE USER 00569000 LA R9,6(R9) 00570000 BR R14 00571000 PHASE2B BAL R14,PRINT GO PRINT WHAT EVER THE ABOVE BUILT 00572000 MVC HEADER+1(122),STARS LAST SET OF STARS 00573000 BAL R14,PRINT 00574000 EJECT 00575000 ******************************************************************* 00576000 * PHASE 3 LOCATES AND CONTROLS PRINT OF CONTROL BLOCKS * 00577000 ******************************************************************* 00578000 PHASE3 EQU * 00579000 * 00580000 ****** PRINT THE CALLERS REGS 00581000 * 00582000 REGPRT TM FLAG5,REGX WANT CALLER'S REGS PRINTED? 00583000 BZ ACBPRT NO, TRY ACB 00584000 MVC HEADER+1(44),REGMSG 00585000 LA R1,60 X'3C' BYTES LENGTH FOR REGS 00586000 LA R0,SAVEIN1 GET ADDRESS OF THE SAVED REGS 00587000 BAL R14,PRINT 00588000 * 00589000 ***** PRINT ACB 00590000 * 00591000 ACBPRT TM FLAG2,ACBX WANT ACB PRINTED? 00592000 BZ RPLPRT NO- TRY RPL 00593000 LR R0,RACB 00594000 BAL R14,CONVERT GO CONVERT ADDRESS. 00595000 MVC HEADER+1(16),ACBMSG SET UP PRINT HEADER 00596000 MVC HEADER+17(8),UNPACK MOVE IT INTO MESSAGE. 00597000 SR R1,R1 00598000 LH R1,ACBLENG(RACB) GET ACB LENGTH 00599000 BAL R14,PRINT PRINT THE ACB 00600000 ** 00601000 ***** PRINT RPL 00602000 ** 00603000 RPLPRT TM FLAG2,RPLX WANT RPL? 00604000 BZ RECPRT NO, TRY NEXT CB. 00605000 LR R0,RRPL 00606000 BAL R14,CONVERT 00607000 MVC HEADER+1(16),RPLMSG SET UP PRINT HEADER 00608000 MVC HEADER+17(8),UNPACK GET CONVERTED ADDRESS 00609000 ICM R1,1,RPLID(RRPL) GET RPL LENGTH 00610000 BNZ RPLPRT1 00611000 LA R1,76 00612000 RPLPRT1 BAL R14,PRINT GO PRINT THE RPL. 00613000 * 00614000 ***** PRINT USER'S RECORD AREA 00615000 * 00616000 RECPRT TM FLAG1,ADDRONLY ADDRESS ONLY DOES NOT PRINT RECORD 00617000 BO KEYPRT3 00618000 TM FLAG4,RECDX WANT USER'S RECORD PRINTED? 00619000 BZ KEYPRT 00620000 ICM R0,15,RPLAREA(RRPL) GET RECORD ADDRESS 00621000 BZ KEYPRT 00622000 L R1,RPLRLEN(,RRPL) 00623000 BAL R14,CONVERT 00624000 MVC HEADER+1(52),RECMSG 00625000 MVC HEADER+29(8),UNPACK 00626000 L R0,RPLRLEN(,RRPL) SET PRINT LENGTH 00627000 BAL R14,CONVERT NEED LRECL 00628000 MVC HEADER+54(8),UNPACK FILL IN RECORD LENGTH 00629000 L R0,RPLAREA(,RRPL) GET RECORD ADDRESS 00630000 BAL R14,PRINT 00631000 * 00632000 ***** PRINT USER'S SEARCH ARGUMENT 00633000 * 00634000 KEYPRT TM FLAG4,KEYX WANT KEY PRINTED? 00635000 BZ KEYPRT3 NO, SEE IF SHORT PRINT 00636000 L R5,RPLARG(,RRPL) GET KEY ADDR. 00637000 LTR R0,R5 GET ONE? 00638000 BZ KEYPRT1 00639000 MVC HEADER+1(64),KEYMSG 00640000 BAL R14,CONVERT 00641000 MVC HEADER+42(8),UNPACK 00642000 SR R1,R1 00643000 TM RPLOPT2(RRPL),X'80' KEYED MODE?(NOT RBA) 00644000 BO KEYPRT1 YES, GO DETERMINE THE KEY LENGTH 00645000 LA R1,4 4 BYTE RBA VALUE 00646000 B KEYPRT2 00647000 KEYPRT1 LH R1,RPLKEYL(,RRPL) GET KEY LENGTH 00648000 LTR R1,R1 IS THERE AN RPL KEYLENGTH? 00649000 BO KEYPRT2 YES, USE IT 00650000 L R6,DAMB GET AMB 00651000 L R6,AMBDSB(R6) GET AMDSB 00652000 SR R1,R1 00653000 LH R1,AMDKEYLN(,R6) GET AMDSB KEY LENGTH 00654000 KEYPRT2 LR R0,R1 00655000 BAL R14,CONVERT 00656000 MVC HEADER+65(4),UNPACK+4 00657000 LR R0,R5 00658000 BAL R14,PRINT 00659000 KEYPRT3 TM STATUS,UPGSHORT SHORT UPG PRINT? 00660000 BO AMBLPRT YES, AMBL NEXT 00661000 ** 00662000 ****** PRINT THE PLH HEADER 00663000 ** 00664000 PLHHDPRT TM FLAG2,PLHX+ALLCB WANT PLH AND ALL CONTROL BLOCKS? 00665000 BNO PLHPRT NO, SKIP PLH HEADER 00666000 L RAMB,DAMB RESET THE AMB REG 00667000 ICM R0,15,AMBPH(RAMB) GET THE HEADER ADDRESS 00668000 BZ PLHPRT NONE (IN UPG'S), TRY PLH 00669000 BAL R14,CONVERT 00670000 MVC HEADER+1(23),PLHHDRMS 00671000 MVC HEADER+24(8),UNPACK 00672000 LA R1,16 SET PLH HDR LENGTH 00673000 BAL R14,PRINT 00674000 ** 00675000 ***** PRINT PLH 00676000 ** 00677000 PLHPRT TM FLAG2,PLHX DOES CALLER WANT THE PLH? 00678000 BZ AMBLPRT 00679000 SR R9,R9 00680000 L R7,AMBPH(,RAMB) GET PLH HEADER ADDRESS 00681000 LH R9,PLHELTH(,R7) R9 NOW HAS THE LENGTH 00682000 LTR R9,R9 GET A PLH LENGTH? 00683000 BNZ PLHPRT1 YES, CONTINUE 00684000 LA R9,120 FORCE SHORT PLH PRINT 00685000 PLHPRT1 IC R8,PLHCNT(,R7) R8 HAS THE COUNT OF PLH'S 00686000 TM FLAG2,ALLCB WANT ALL PLH'S? 00687000 BO PLHPRT2 YES, GO AHEAD 00688000 LA R8,1 PRINT COUNT IS ONE. 00689000 B PLHLOOP GO PRINT IT. 00690000 PLHPRT2 LA RPLH,16(R7) POINT TO 1ST PLH FOR ALL PRINT 00691000 PLHLOOP LR R0,RPLH RPLH HAS EITHER CURRENT OR 1ST PLH 00692000 BAL R14,CONVERT 00693000 MVC HEADER+1(24),PLHMSG 00694000 MVC HEADER+25(8),UNPACK 00695000 C RPLH,PLH IS THIS THE CURRENT PLH? 00696000 BE PLHLOOP2 YES, PRINT THIS ONE 00697000 MVC HEADER+1(24),HEADER+9 ERASE THE WORD 'CURRENT'. 00698000 XC HEADER+25(9),HEADER+25 00699000 PLHLOOP2 LR R1,R9 GET LENGTH OF PLH 00700000 BAL R14,PRINT 00701000 ICM RPLH,15,PLHCHAIN(RPLH) POINT TO NEXT PLH. 00702000 BZ AMBLPRT 00703000 BCT R8,PLHLOOP 00704000 ** 00705000 ***** PRINT AMBL 00706000 ** 00707000 AMBLPRT L RPLH,PLH RESTORE PLH REG 00708000 TM FLAG2,AMBLX WANT IT PRINTED? 00709000 BZ AMBLPRT1 NO, TRY NEXT. 00710000 L RAMBL,AMBL RESTORE AMBL REG 00711000 LTR R0,RAMBL 00712000 BZ AMBLPRT1 NEED ADDRESS 00713000 BAL R14,CONVERT 00714000 MVC HEADER+1(17),AMBLMSG 00715000 MVC HEADER+18(8),UNPACK 00716000 SR R1,R1 00717000 IC R1,AMBLLEN(RAMBL) GET AMBL LENGTH 00718000 BAL R14,PRINT 00719000 AMBLPRT1 TM STATUS,UPGSHORT IS THIS A UPG SHORT PRINT? 00720000 BZ BUFFCPRT NO, CONTINUE WITH TRACE 00721000 NI STATUS,X'FF'-UPGSHORT 00722000 B SUBEXIT3 00723000 ** 00724000 ***** PRINT BUFFC 00725000 ** 00726000 BUFFCPRT SR R9,R9 00727000 TM FLAG2,BUFFCX WANT BUFFC PRINTED? 00728000 BZ BUFFPRT 00729000 NI STATUS,X'FF'-INDXPROC 00730000 LR R8,R9 00731000 LR R7,R8 00732000 MVC HEADER+1(31),BUFCMSG SET UP DATA BUFFC HEADER MSG 00733000 TM FLAG2,ALLCB ALLCB GETS ALL BUFFC ALSO OR- 00734000 BO ALLBUFFC NO PLH WAS FOUND. 00735000 TM FLAG2,DATACB WANT DATA CONTROL BLOCKS? 00736000 BZ IBUFFCPT 00737000 L R0,PLHDBUFC(RPLH) 00738000 LTR R0,R0 GET BUFFC ADDRESS? 00739000 BZ IBUFFCPT NO, TRY INDEX BUFFC 00740000 BAL R14,CONVERT 00741000 MVC HEADER+32(8),UNPACK 00742000 LA R1,64(R0) SET BUFFC LENGTH. 00743000 BAL R14,PRINT 00744000 IBUFFCPT TM FLAG2,INDEXCB WANT INDEX CONTROL BLOCKS? 00745000 BZ BUFFPRT 00746000 ICM R0,15,PLHIBUFC(RPLH) GET INDEX BUFFC ADDRESS? 00747000 BZ BUFFPRT NO, GO TO BUFFER PRINT. 00748000 BAL R14,CONVERT 00749000 MVC HEADER+9(5),INDEX 00750000 MVC HEADER+33(8),UNPACK 00751000 LA R1,64 GET LENGTH 00752000 LA R14,BUFFPRT FAKE RETURN POINT 00753000 B PRINT 00754000 * 00755000 ***** ROUTINE FOR PRINTING ALL BUFFC'S 00756000 * 00757000 ALLBUFFC SR R10,R10 00758000 NI STATUS,X'FF'-INDXPROC WORKING ON DATA NOW 00759000 TM FLAG2,DATACB WANT DATA CONTROL BLOCKS? 00760000 BZ ALLIBFC NO, TRY ALL INDEX BUFFC 00761000 L R10,PLHDBUFC(RPLH) YES, GET THE CURRENT DATA BUFFC 00762000 L R9,DAMB 00763000 ALLBFC2 L R9,AMBBUFC(,R9) GET BUFFC HEADER 00764000 LH R1,BUFDRLEN(,R9) SET BUFC LENGTH 00765000 SR R7,R7 00766000 IC R7,BUFDRNO(,R9) GET BUFC COUNT 00767000 CLI BUFDRID(R9),X'70' IS THIS A NORMAL BUFC? 00768000 BE ALL@01 YES, CONTINUE 00769000 LH R7,BSPHBFNO(,R9) GET BSPH BUFC COUNT 00770000 ALL@01 LR R0,R9 00771000 BAL R14,CONVERT 00772000 MVC HEADER+1(6),EDBMSG GET THE WORD 'DATA' 00773000 TM STATUS,INDXPROC SHOULD THE WORD BE 'INDEX'? 00774000 BZ ALL@02 NO 00775000 MVC HEADER+1(5),INDEX YES 00776000 ALL@02 MVC HEADER+7(25),BUFCHDR 00777000 MVC HEADER+32(8),UNPACK 00778000 BAL R14,PRINT GO PRINT THE BUFFC HEADER. 00779000 CLI BUFDRID(R9),X'70' NORMAL BUFC? 00780000 BE ALLBFC3 00781000 L R9,BSPHBUFC(,R9) POINT TO 1ST BUFC FROM BSPH 00782000 B BFCLOOP 00783000 ALLBFC3 L R9,BUFDBUFC(R9) POINT TO FIRST BUFFC 00784000 B BFCLOOP 00785000 ALLIBFC OI STATUS,INDXPROC DOING INDEX DATA NOW 00786000 TM FLAG2,INDEXCB WANT INDEX BUFFC? 00787000 BZ BUFFPRT 00788000 L R10,PLHIBUFC(RPLH) GET CURRENT BUFFC 00789000 L R9,IAMB NEED AMB. 00790000 B ALLBFC2 00791000 BFCLOOP LR R0,R9 ROUTINE FOR PRINTING MORE THAN ONE. 00792000 LA R1,64 SET BUFFC LENGTH. 00793000 BAL R14,CONVERT 00794000 MVC HEADER+1(31),BUFCMSG 00795000 TM STATUS,INDXPROC 00796000 BZ BFC@01 00797000 MVC HEADER+9(5),INDEX 00798000 BFC@01 MVC HEADER+32(8),UNPACK MOVE IN BUFFC ADDRESS 00799000 CR R0,R10 IS THIS THE CURRENT BUFFC? 00800000 BE BFCLOOP1 NO, JUST PRINT MESSAGE 00801000 MVC HEADER+1(31),HEADER+9 ERASE 'CURRENT' WORD 00802000 XC HEADER+32(9),HEADER+32 AND CLEAN UP MESSAGE LINE 00803000 BFCLOOP1 BAL R14,PRINT 00804000 ICM R9,15,BUFCHAIN(R9) GET NEXT BUFFC. 00805000 BZ BUFCOUT GET OUT IF CHAIN IS BROKE 00806000 BCT R7,BFCLOOP DO IT AGAIN. 00807000 BUFCOUT TM STATUS,INDXPROC ARE WE DOING INDEX? 00808000 BZ ALLIBFC NO, THEN NOW DO INDEX BUFFC. 00809000 NI STATUS,X'FF'-INDXPROC 00810000 * 00811000 ***** PRINT BUFFERS 00812000 * 00813000 BUFFPRT TM FLAG3,BUFFX WANT BUFFERS PRINTED? 00814000 BZ IOBPRT 00815000 NI STATUS,X'FF'-INDXPROC WORKING ON DATA NOW 00816000 SR R9,R9 00817000 SR R8,R8 00818000 SR R7,R7 00819000 L R10,DAMB GET DATA AMB 00820000 L R9,IAMB GET INDEX AMB 00821000 L R10,20(R10) GET DATA AMDSB 00822000 L R9,20(R9) GET INDEX AMDSB 00823000 MVC DBUFFLEN,20(R10) GET BUFFER LENGTH 00824000 MVC IBUFFLEN,20(R9) GET THE INDEX BUFFER SIZE 00825000 TM FLAG2,DATACB CALLER WANT DATA BUFFER PRINTED? 00826000 BZ IBUFF NO, TRY INDEX BUFFER 00827000 NI STATUS,X'FF'-INDXPROC DOING DATA BUFFER NOW. 00828000 MVC BUFFLEN,DBUFFLEN SWAP IN DATA BUFFER LENGTH. 00829000 MVC HEADER+1(33),BUFFMSG 00830000 L R10,DAMB GET DATA AMB 00831000 L R7,AMBBUFC(R10) 00832000 TM FLAG2,ALLCB PLHALL GETS ALL BUFFERS ALSO 00833000 BO ALLBUFF 00834000 LTR RPLH,RPLH NEED PLH TO FIND BUFFER 00835000 BZ IBUFF NO PLH, FORGET BUFFER 00836000 L R6,PLHDBUFC(RPLH) GET BUFFC 00837000 BUFFPRT2 LTR R10,R6 GET BUFFC ADDRESS? 00838000 BZ IBUFF NO, FORGET BUFFER 00839000 L R10,BUFCBAD(R10) 00840000 LTR R0,R10 DID WE GET A BUFFER ADDRESS? 00841000 BZ IBUFF NO, FORGET BUFFER 00842000 L R1,BUFFLEN 00843000 BAL R14,CONVERT 00844000 MVC HEADER+34(8),UNPACK 00845000 TM FLAG5,PAPSAVE WANT PAPER SAVE OPTION? 00846000 BZ BUFFPRT3 NO, GO PRINT WHAT WE HAVE 00847000 CLI 0(R10),X'00' IS BUFFER EMPTY? 00848000 BNE BUFFPRT3 NO, GO PRINT IT. 00849000 CLC 0(249,R10),1(R10) IS COMPLETE BUFFER EMPTY? 00850000 BNE BUFFPRT3 NO, GO PRINT IT. 00851000 SR R1,R1 SET UP FOR EMPTY PRINT. 00852000 XC HEADER+1,HEADER+1 00853000 MVC HEADER+1(22),BUFEMSG 00854000 MVC HEADER+23(8),UNPACK SET EMPTY MESSAGE 00855000 BUFFPRT3 BAL R14,PRINT 00856000 IBUFF TM STATUS,INDXPROC HAVE WE BEEN HERE BEFORE? 00857000 BO IOBPRT 00858000 OI STATUS,INDXPROC WE ARE DOING INDEX NOW. 00859000 TM FLAG2,INDEXCB DOES CALLER WANT INDEX BUFFERS? 00860000 BZ IOBPRT NO, GET OUT. 00861000 MVC HEADER+1(34),BUFFMSG 00862000 MVC HEADER+9(5),INDEX 00863000 MVC BUFFLEN,IBUFFLEN SWAP CI SIZE. 00864000 L R6,PLHIBUFC(RPLH) GET INDEX BUFFC ADDR 00865000 L R10,IAMB GET INDEX AMB 00866000 L R7,AMBBUFC(R10) 00867000 TM FLAG2,ALLCB 00868000 BZ BUFFPRT2 GO TO COMMON OR FALL TO ALLBUFF 00869000 ** 00870000 ***** ROUTINE FOR PRINTING ALL BUFFERS 00871000 * 00872000 ALLBUFF L RRPL,RPL 00873000 XC IBUFFC,IBUFFC 00874000 XC DBUFFC,DBUFFC 00875000 ICM R9,15,PLHIBUFC(RPLH) 00876000 BZ ALLBUFF2 NO INDEX TO DO 00877000 MVC IBUFFC,BUFCBAD(R9) GET CURRENT INDEX BUFFER ADDRESS 00878000 ALLBUFF2 L R9,PLHDBUFC(RPLH) 00879000 MVC DBUFFC,BUFCBAD(R9) GET CURRENT DATA BUFFER ADDRESS 00880000 SR R9,R9 00881000 IC R9,BUFDRNO(R7) GET BUFC COUNT 00882000 CLI BUFDRNO(R7),X'72' IS THIS A BSPH? 00883000 BNE BUFFLOOP-4 NO, GET GOOD BUFC POINTER 00884000 LH R9,BSPHBFNO(R7) GET BSPH BUFC COUNT 00885000 L R7,BSPHBUFC(R7) POINT TO FIRST BUFC 00886000 TM STATUS,INDXPROC 00887000 BZ BUFFLOOP 00888000 CLC DBUFFLEN,IBUFFLEN INDEX = DATA LEN, ALREADY DID INDEX 00889000 BE IOBPRT 00890000 B BUFFLOOP 00891000 L R7,BUFDBUFC(R7) POINT TO 1ST BUFC FROM NORMAL BUFCHD 00892000 BUFFLOOP ICM R0,15,BUFCBAD(R7) GET BUFFER ADDRESS 00893000 BZ BFFLOOP5 DIDN'T GET ONE, TRY NEXT 00894000 L R1,BUFFLEN GET BUFFER LENGTH 00895000 BAL R14,CONVERT 00896000 MVC HEADER+34(8),UNPACK 00897000 C R0,IBUFFC DO WE HAVE THE CURRENT INDEX BUFFER? 00898000 BE BFFLOOP3 00899000 C R0,DBUFFC DO WE HAVE THE CURRENT DATA BUFFER? 00900000 BE BFFLOOP3 00901000 MVC HEADER+1(33),HEADER+9 ERASE 'CURRENT' WORD 00902000 XC HEADER+34(20),HEADER+34 00903000 BFFLOOP3 TM FLAG5,PAPSAVE WANT PAPER SAVE OPTION? 00904000 BZ BFFLOOP4 NO, PRINT WHAT WE HAVE 00905000 LR R14,R0 00906000 CLI 0(R14),X'00' LOOK LIKE EMPTY BUFFER? 00907000 BNE BFFLOOP4 NO, PRINT IT. 00908000 CLC 0(249,R14),1(R14) IS BUFFER EMPTY? 00909000 BNE BFFLOOP4 NO, GO PRINT IT. 00910000 SR R1,R1 SET 0 LENGTH. 00911000 XC HEADER+1,HEADER+1 CLEAR OUT OLD MESSAGE. 00912000 MVC HEADER+1(22),BUFEMSG 00913000 MVC HEADER+23(8),UNPACK 00914000 BFFLOOP4 BAL R14,PRINT 00915000 MVC HEADER+1(34),BUFFMSG 00916000 TM STATUS,INDXPROC 00917000 BZ BFFLOOP5 00918000 MVC HEADER+9(5),INDEX 00919000 BFFLOOP5 L R7,BUFCHAIN(R7) GET NEXT BUFFC. 00920000 BCT R9,BUFFLOOP DO IT AGAIN? 00921000 B IBUFF FINISHED, IBUFF HAS EXIT CODE. 00922000 * 00923000 ***** PRINT IOB 00924000 * 00925000 IOBPRT XC MESSAGES,MESSAGES CLEAN UP AFTER BUFFER PRINT 00926000 LTR RPLH,RPLH NEED PLH TO PRINT IOB AND CPA 00927000 BZ AMBPRT 00928000 TM FLAG3,IOBX WANT IOB PRINTED? 00929000 BZ CPAPRT 00930000 L R0,PLHDIOB(RPLH) GET IOB ADDR 00931000 LR R9,R0 00932000 BAL R14,CONVERT 00933000 MVC HEADER+1(17),IOBMSG 00934000 MVC HEADER+18(8),UNPACK 00935000 LA R1,X'4C' IOB LENGTH 00936000 CLI 0(R9),C'I' IOMB (MVS)? 00937000 BNE IOBPRT1 00938000 OI FLAG1,MVS 00939000 MVC HEADER+1(4),IOMB MVS HAS AN IOMB 00940000 LA R1,X'78' AND IT IS BIGGER 00941000 IOBPRT1 BAL R14,PRINT 00942000 TM FLAG1,MVS MVS? 00943000 BZ CPAPRT NO, FORGET IOSB 00944000 ICM R0,15,36(R9) GET IOSB ADDR FROM IOMB 00945000 BZ CPAPRT 00946000 BAL R14,CONVERT 00947000 MVC HEADER+1(17),IOBMSG 00948000 MVC HEADER+1(4),IOSB 00949000 MVC HEADER+18(8),UNPACK 00950000 LA R1,84 00951000 BAL R14,CONVERT 00952000 BAL R14,PRINT 00953000 * 00954000 ***** PRINT CPA 00955000 * 00956000 CPAPRT TM FLAG3,CPAX WANT CPA PRINTED? 00957000 BZ AMBPRT 00958000 NI STATUS,X'FF'-INDXPROC DOING DATA NOW 00959000 TM FLAG2,DATACB WANT DATA CPA PRINTED? 00960000 BZ ICPAPRT 00961000 ICM R1,15,PLHDBUFC(RPLH) BUFFC HAS DATA CPA ADDRESS. 00962000 BZ ICPAPRT BAD PLH-CPA POINTER, TRY INDEX 00963000 MVC HEADER+1(45),CPAMSG 00964000 CPALOOP L R0,BUFCCPA(0,R1) GET BUFC CPA AREA 00965000 BAL R14,CONVERT 00966000 MVC HEADER+46(8),UNPACK 00967000 LR R1,R0 00968000 CLI CPAID(R1),X'71' IS THIS A CPA? 00969000 BNE ICPAPRT 00970000 LH R1,CPALEN(R1) GET CPA LENGTH 00971000 BAL R14,PRINT 00972000 ICPAPRT TM FLAG2,INDEXCB WANT INDEX CPA PRINTED? 00973000 BZ AMBPRT 00974000 TM STATUS,INDXPROC BEEN HERE BEFORE? 00975000 BO AMBPRT 00976000 OI STATUS,INDXPROC 00977000 MVC HEADER+1(45),CPAMSG 00978000 MVC HEADER+1(5),INDEX 00979000 ICM R1,15,PLHIBUFC(RPLH) BUFFC HAS CPA ADDRESS 00980000 BNZ CPALOOP GO PRINT IT. 00981000 * 00982000 ***** PRINT AMB 00983000 * 00984000 AMBPRT L RAMBL,AMBL RESTORE THE AMBL REG 00985000 TM FLAG3,AMBX WANT AMB PRINTED? 00986000 BZ AMDSBPRT 00987000 NI STATUS,X'FF'-INDXPROC 00988000 TM FLAG2,DATACB WANT DATA AMB? 00989000 BZ IAMBPRT NO, TRY INDEX AMB. 00990000 MVC HEADER+1(22),AMBMSG 00991000 L RAMB,DAMB GET DATA AMB 00992000 AMBLOOP LR R0,RAMB 00993000 BAL R14,CONVERT 00994000 MVC HEADER+23(8),UNPACK 00995000 SR R1,R1 00996000 LH R1,AMBLEN(RAMB) GET AMB LENGTH. 00997000 BAL R14,PRINT 00998000 IAMBPRT TM FLAG2,INDEXCB WANT INDEX AMB? 00999000 BZ AMDSBPRT 01000000 TM STATUS,INDXPROC BEEN HERE BEFORE? 01001000 BO AMDSBPRT YES, BRANCH 01002000 OI STATUS,INDXPROC WELL WE ARE HERE NOW. 01003000 MVC HEADER+1(22),AMBMSG 01004000 MVC HEADER+1(5),INDEX 01005000 L RAMB,IAMB GET INDEX AMB 01006000 B AMBLOOP 01007000 * 01008000 ***** PRINT AMDSB 01009000 * 01010000 AMDSBPRT TM FLAG3,AMDSBX WANT AMDSB PRINTED? 01011000 BZ ICWAPRT 01012000 NI STATUS,X'FF'-INDXPROC 01013000 TM FLAG2,DATACB WANT DATA AMDSB? 01014000 BZ IAMDSB 01015000 MVC HEADER+1(24),AMDSBMSG 01016000 L RAMB,DAMB GET DATA AMB 01017000 AMDSBLOP L R6,AMBDSB(RAMB) GET AMDSB 01018000 CLI AMDSBID(R6),X'60' GET AMDSB? 01019000 BNE IAMDSB 01020000 LR R0,R6 01021000 BAL R14,CONVERT 01022000 MVC HEADER+25(8),UNPACK 01023000 LH R1,AMDLEN(R6) GET AMDSB LENGTH. 01024000 BAL R14,PRINT 01025000 IAMDSB TM FLAG2,INDEXCB WANT INDEX AMDSB PRINTED? 01026000 BZ ICWAPRT 01027000 TM STATUS,INDXPROC BEEN HERE BEFORE? 01028000 BO ICWAPRT 01029000 OI STATUS,INDXPROC HERE NOW. 01030000 MVC HEADER+1(24),AMDSBMSG 01031000 MVC HEADER+1(5),INDEX 01032000 L RAMB,IAMB GET INDEX AMB 01033000 B AMDSBLOP 01034000 * 01035000 ***** PRINT ICWA 01036000 * 01037000 ICWAPRT TM FLAG3,ICWAX WANT ICWA, IMWA OR DIWA? 01038000 BZ ARDBPRT 01039000 TM FLAG2,INDEXCB WANT ICWA? 01040000 BZ DIWAPRT 01041000 L RAMB,IAMB GET INDEX AMB 01042000 L R6,AMBIWA(RAMB) GET ICWA 01043000 ICWA2 CLI IMWID(R6),X'42' IS THIS AN IMWA? 01044000 BE IMWAPRT YES, GO PRINT IT 01045000 CLI ICWID(R6),X'43' IS THIS AN ICWA? 01046000 BNE DIWAPRT NO, NEITHER SO GET OUT. 01047000 LR R0,R6 01048000 BAL R14,CONVERT 01049000 MVC HEADER+1(17),ICWAMSG 01050000 MVC HEADER+18(8),UNPACK 01051000 LH R1,ICWLEN(R6) GET LENGTH 01052000 B ICWA3 01053000 IMWAPRT LR R0,R6 01054000 BAL R14,CONVERT 01055000 MVC HEADER+1(17),IMWAMSG 01056000 MVC HEADER+18(8),UNPACK 01057000 LH R1,2(R6) GET LENGTH 01058000 ICWA3 BAL R14,PRINT GO PRINT WHAT EVER WE GOT 01059000 ICM R6,15,ICWCHN(R6) GET NEXT WHAT EVER 01060000 BNZ ICWA2 AND IF SOME THING THERE, GO PRINT IT 01061000 * 01062000 ***** PRINT DIWA 01063000 * 01064000 DIWAPRT TM FLAG2,DATACB WANT DIWA? 01065000 BZ ARDBPRT 01066000 L RAMB,DAMB GET DATA AMB 01067000 L R6,AMBIWA(RAMB) GET DIWA 01068000 LTR R0,R6 DID WE GET ONE? 01069000 BZ ARDBPRT 01070000 BAL R14,CONVERT 01071000 MVC HEADER+1(17),DIWAMSG 01072000 MVC HEADER+18(8),UNPACK 01073000 LH R1,2(R6) GET LENGTH 01074000 BAL R14,PRINT 01075000 * 01076000 ***** PRINT ARDB 01077000 * 01078000 ARDBPRT TM FLAG3,ARDBX WANT ARDB PRINTED? 01079000 BZ DEBPRT+6 BRANCH AROUND LMPBADR CLEAR 01080000 NI STATUS,X'FF'-INDXPROC 01081000 TM FLAG2,DATACB WANT DATA ARDB? 01082000 BZ IARDB 01083000 L RAMB,DAMB GET DATA AMB 01084000 ARDBLOOP L R6,AMBDSB(RAMB) GET AMDSB 01085000 L R6,AMDPARDB(R6) GET ARDB 01086000 ARDBLOPP LTR R0,R6 DO WE HAVE AN ADDRESS? 01087000 BZ IARDB 01088000 CLI ARDID(R6),X'61' IS THIS AN ARDB? 01089000 BNE IARDB 01090000 BAL R14,CONVERT 01091000 MVC HEADER+1(23),ARDBMSG 01092000 TM STATUS,INDXPROC DOING INDEX? 01093000 BZ ARDB@01 01094000 MVC HEADER+1(5),INDEX 01095000 ARDB@01 MVC HEADER+24(8),UNPACK 01096000 LH R1,ARDLEN(R6) GET LENGTH 01097000 BAL R14,PRINT 01098000 L R6,ARDNPTR(R6) GET NEXT ARDB. 01099000 B ARDBLOPP 01100000 IARDB TM FLAG2,INDEXCB WANT INDEX ARDB? 01101000 BZ EDBPRT 01102000 TM STATUS,INDXPROC BEEN HERE BEFORE? 01103000 BO EDBPRT 01104000 OI STATUS,INDXPROC 01105000 L RAMB,IAMB GET INDEX AMB 01106000 B ARDBLOOP 01107000 * 01108000 ***** PRINT EDB 01109000 * 01110000 EDBPRT NI STATUS,X'FF'-INDXPROC 01111000 TM FLAG2,DATACB WANT DATA EDB? 01112000 BZ IEDB 01113000 L RAMB,DAMB GET DATA AMB 01114000 L R6,AMBEDB(RAMB) 01115000 MVC HEADER+1(22),EDBMSG 01116000 EDBLOOP CLI EDBID(R6),X'90' 01117000 BNE IEDB 01118000 SR R1,R1 01119000 LR R7,R1 01120000 IC R7,EDBNO(R6) GET COUNT 01121000 LH R1,EDBLEN(,R6) GET EDB LENGTH 01122000 LR R9,R1 01123000 MR R0,R7 LENGTH TIMES NUMBER OF EDB'S 01124000 LR R0,R6 01125000 LA R6,8(R6) POINT TO FIRST EDB FOR LPMBPRT 01126000 BAL R14,CONVERT 01127000 MVC HEADER+23(8),UNPACK 01128000 BAL R14,PRINT 01129000 * 01130000 ***** PRINT LPMB 01131000 * 01132000 LPMBPRT EQU * R6 HAS EDB ADDRESS 01133000 L R0,EDBLPMBA(R6) GET ADDRESS 01134000 LR R14,R0 01135000 C R14,LPMBADR HAVE WE PRINTED THIS LPMB BEFORE? 01136000 BE LPMBPRT2 01137000 ST R14,LPMBADR NO, SAVE ITS ADDRESS FOR NEXT TIME 01138000 LH R1,LPMBLEN(R14) GET LENGTH 01139000 BAL R14,CONVERT 01140000 MVC HEADER+1(16),LPMBMSG 01141000 MVC HEADER+18(8),UNPACK 01142000 BAL R14,PRINT 01143000 LPMBPRT2 AR R6,R9 GET NEXT EDB ADDRESS 01144000 BCT R7,LPMBPRT DO DATA OR INDEX TELL COUNT ZERO. 01145000 IEDB TM FLAG2,INDEXCB 01146000 BZ DEBPRT 01147000 TM STATUS,INDXPROC BEEN HERE BEFORE? 01148000 BO DEBPRT 01149000 OI STATUS,INDXPROC 01150000 L RAMB,IAMB GET INDEX AMB 01151000 L R6,AMBEDB(RAMB) GET EDB 01152000 MVC HEADER+1(22),EDBMSG 01153000 MVC HEADER+1(5),INDEX 01154000 B EDBLOOP 01155000 * 01156000 ***** PRINT DEB 01157000 * 01158000 DEBPRT SR R14,R14 01159000 ST R14,LPMBADR CLEAR FIELD FOR NEXT PRINT 01160000 TM FLAG3,DEBX WANT DEB? 01161000 BZ IICBPRT NO, TRY IICB 01162000 NI STATUS,X'FF'-INDXPROC 01163000 TM FLAG2,DATACB WANT DATA DEB? 01164000 BZ IDEB 01165000 MVC HEADER+1(22),DEBMSG 01166000 L RAMB,DAMB GET DATA AMB 01167000 DEBLOOP ICM R0,7,AMBDEBAD(RAMB) GET THE DEB. 01168000 BZ IDEB NO DEB ADDRESS, GET OUT 01169000 SH R0,TWOFOUR SUBTRACT X'24' FROM DEB ADDRESS 01170000 LA R1,100 01171000 BAL R14,CONVERT 01172000 MVC HEADER+23(8),UNPACK 01173000 BAL R14,PRINT 01174000 IDEB TM STATUS,INDXPROC BEEN HERE BEFORE? 01175000 BO IICBPRT YES, FINISHED WITH DEB 01176000 TM FLAG2,INDEXCB WANT INDEX DEB? 01177000 BZ IICBPRT NO, TRY IICB 01178000 OI STATUS,INDXPROC 01179000 MVC HEADER+1(22),DEBMSG 01180000 MVC HEADER+1(5),INDEX 01181000 L RAMB,IAMB GET INDEX AMB 01182000 B DEBLOOP 01183000 * 01184000 ***** PRINT IICB 01185000 * 01186000 IICBPRT L RRPL,RPL GET RPL ADDRESS BACK 01187000 CLI RPLLEN(RRPL),X'4C' DO WE HAVE AN IICB? 01188000 BNH BSPHPRT NO, TRY BSPH 01189000 TM FLAG5,IICBX WANT IICB? 01190000 BZ BSPHPRT 01191000 L R5,76(RRPL) GET IICB ADDR. 01192000 LTR R0,R5 01193000 BZ BSPHPRT NO IICB, DONE. 01194000 SR R1,R1 01195000 LH R1,IICBLEN(R5) 01196000 BAL R14,CONVERT 01197000 MVC HEADER+1(17),IICBMSG 01198000 MVC HEADER+18(8),UNPACK 01199000 BAL R14,PRINT 01200000 * 01201000 ***** PRINT THE DCB 01202000 * 01203000 DCBPRT L R5,76(RRPL) GET IICB. 01204000 L R5,RPLDECB(R5) GET DCB. 01205000 LTR R0,R5 01206000 BZ BSPHPRT NO, TRY BSPH 01207000 LA R1,70 01208000 BAL R14,CONVERT 01209000 MVC HEADER+1(20),DCBMSG 01210000 MVC HEADER+21(8),UNPACK 01211000 BAL R14,PRINT GO PRINT DCB 01212000 * 01213000 **** PRINT BSPH 01214000 * 01215000 BSPHPRT NI STATUS,X'FF'-INDXPROC 01216000 L RAMB,DAMB 01217000 TM AMBAFLG(RAMB),X'60' LSR OR GSR? 01218000 BZ VATPRT NO, THEN NO BSPH 01219000 TM FLAG4,BSPHX DO WE WANT BSPH? 01220000 BZ VATPRT NO, DO NEXT 01221000 TM FLAG2,ALLCB WANT ALL CB'S? 01222000 BO VSRTPRT YES, HAVE ALREADY PRINTED THE BSPH 01223000 TM FLAG2,DATACB WANT DATA BSPH? 01224000 BZ IBSPHPRT NO, TRY INDEX 01225000 MVC HEADER+1(23),BSPHMSG 01226000 BSPHLOOP L R5,AMBBUFC(RAMB) 01227000 CLI BSPHID(R5),X'72' DO WE HAVE A BSPH? 01228000 BNE IBSPHPRT NO, TRY INDEX SIDE. 01229000 LR R0,R5 01230000 LH R1,BSPHLEN(R5) GET BSPH LENGTH 01231000 BAL R14,CONVERT 01232000 MVC HEADER+24(8),UNPACK 01233000 BAL R14,PRINT 01234000 IBSPHPRT TM FLAG1,INDEXCB WANT INDEX SIDE? 01235000 BZ VATPRT NO, TRY NEXT 01236000 TM STATUS,INDXPROC BEEN HERE BEFORE? 01237000 BO VATPRT YES, EXIT 01238000 OI STATUS,INDXPROC 01239000 MVC HEADER+1(23),BSPHMSG 01240000 MVC HEADER+1(5),INDEX SET MESSAGE FOR INDEX 01241000 ICM RAMB,15,IAMB 01242000 BNZ BSPHLOOP 01243000 * 01244000 **** PRINT THE VAT 01245000 * 01246000 VATPRT TM FLAG4,VATX+VSRTX WANT VAT OR VSRT? 01247000 BZ BIBPRT NO, TRY NEXT 01248000 L R7,CVTPTR(R0) GET CVT 01249000 L R7,0(R7) TCB WORDS 01250000 L R7,4(R7) TCB ADDRESS 01251000 ICM R7,15,180(R7) GET JSCB FROM TCB 01252000 BZ VSRTPRT NONE, EXIT 01253000 ICM R7,15,196(R7) GET VAT FROM JSCBSHR 01254000 BZ VSRTPRT 01255000 CLI VATID(R7),X'11' VAT ID? 01256000 BNE VSRTPRT 01257000 ST R7,VATADDR 01258000 TM FLAG4,VATX WANT THE VAT? 01259000 BZ VSRTPRT NO, TRY NEXT 01260000 VATLOOP LR R0,R7 01261000 BAL R14,CONVERT 01262000 MVC HEADER+1(16),VATMSG 01263000 MVC HEADER+17(8),UNPACK 01264000 LH R1,VATLEN(R7) GET VAT LENGTH 01265000 BAL R14,PRINT 01266000 ICM R7,15,VATNEXT(R7) ANOTHER VAT? 01267000 BNZ VATLOOP PRINT THE NEXT VAT 01268000 * 01269000 **** PRINT VSRT 01270000 * 01271000 VSRTPRT TM FLAG4,VSRTX WANT VSRT? 01272000 BZ BIBPRT NO, TRY NEXT 01273000 L RAMB,DAMB 01274000 TM AMBAFLG(RAMB),X'80' GSR ? 01275000 BO VSRTPRT1 GO TO GSR CODE 01276000 ICM R5,15,VATADDR GET VAT ADDRESS (FROM VATPRT) 01277000 BZ BIBPRT 01278000 LA R5,VATVPTR(R5) 01279000 LA R10,2 01280000 B VSRTLOP1 01281000 VSRTPRT1 L R5,CVTPTR(R0) GET CVT ADDRESS 01282000 ICM R5,15,256(R5) GET AMCBS 01283000 BZ BIBPRT NO AMCBS, NO VSRT 01284000 LA R5,CBSCRTCB(R5) SET R5 TO 8 AWAY FROM THE VSRT PTR 01285000 LA R10,8 COUNT OF VSRT ENTRIES 01286000 VSRTLOOP LA R5,8(R5) POINT TO NEXT VSRT 01287000 VSRTLOP1 BCT R10,VSRT@01 01288000 B BIBPRT VSRT PRINT EXIT POINT 01289000 VSRT@01 ICM R6,15,0(R5) GET FIRST VSRT (OR VAT) ENTRY 01290000 BZ VSRTLOOP NO ENTRY, TRY NEXT 01291000 LR R0,R6 01292000 BAL R14,CONVERT 01293000 MVC HEADER+1(17),VSRTMSG 01294000 MVC HEADER+18(8),UNPACK 01295000 LH R1,VSRTLEN(R6) 01296000 BAL R14,PRINT 01297000 B VSRTLOOP 01298000 * 01299000 **** PRINT THE BIB 01300000 * 01301000 BIBPRT TM FLAG4,BIBX+UPTX+HEBX DO WE NEED THE BIB AT ALL? 01302000 BZ SUBEXIT 01303000 L RAMBL,AMBL 01304000 ICM R5,15,AMBLBIB(RAMBL) GET BIB ADDRESS 01305000 BZ SUBEXIT NO BIB, NO UPT OR HEB 01306000 CLI BIBID(R5),X'10' IS IT A BIB? 01307000 BNE SUBEXIT SAME AS ABOVE 01308000 TM FLAG4,BIBX WANT BIB? 01309000 BZ UPTPRT NO, TRY UPT 01310000 LR R0,R5 01311000 BAL R14,CONVERT 01312000 MVC HEADER+1(16),BIBMSG 01313000 MVC HEADER+17(8),UNPACK 01314000 LH R1,BIBLEN(R5) 01315000 BAL R14,PRINT GO PRINT THE BIB 01316000 * 01317000 **** PRINT THE UPGRADE TABLE 01318000 * 01319000 UPTPRT TM FLAG4,UPTX WANT UPT AND WAX? 01320000 BZ HEBPRT 01321000 ICM R6,15,BIBUPT(R5) GET UPT ADDRESS 01322000 BZ WAXPRT NONE, EXIT 01323000 LR R0,R6 01324000 BAL R14,CONVERT 01325000 MVC HEADER+1(16),UPTMSG 01326000 MVC HEADER+17(8),UNPACK 01327000 LH R1,UPTLEN(R6) SET UPT LENGTH 01328000 BAL R14,PRINT 01329000 * 01330000 **** PRINT THE WAX 01331000 * 01332000 WAXPRT L RPLH,PLH RESET THE PLH REG 01333000 ICM R10,15,PLHWAX(RPLH) GET WAX ADDRESS 01334000 BZ HEBPRT NOT THERE, CAN'T PRINT IT. 01335000 CLI WAXID(R10),X'73' GET A WAX? 01336000 BE WAXPRT1 01337000 ICM R10,15,PLHWAX(R10) TRY WAX IN THIS PLH 01338000 BZ HEBPRT 01339000 CLI WAXID(R10),X'73' NOW DID WE GET A WAX? 01340000 BNE HEBPRT NO, CAN'T FIND IT 01341000 WAXPRT1 LR R0,R10 01342000 BAL R14,CONVERT 01343000 MVC HEADER+1(15),WAXMSG 01344000 MVC HEADER+17(8),UNPACK 01345000 LH R1,WAXLEN(R10) SET PRINT LENGTH 01346000 BAL R14,PRINT 01347000 * 01348000 **** PRINT THE HEB 01349000 * 01350000 HEBPRT TM FLAG4,HEBX WANT THE HEB? 01351000 BZ SUBEXIT NO, EXIT 01352000 ICM R6,15,BIBHEBPT(R5) GET HEB FROM BIB 01353000 BZ SUBEXIT 01354000 HEBLOOP LR R0,R6 01355000 BAL R14,CONVERT 01356000 MVC HEADER+1(16),HEBMSG 01357000 MVC HEADER+17(8),UNPACK 01358000 LH R1,HEBLEN(R6) SET LENGTH 01359000 BAL R14,PRINT 01360000 ICM R6,15,HEBNHEB(R6) MORE HEBS? 01361000 BNZ HEBLOOP YES, DO NEXT ONE. OTHERWISE, FINISH 01362000 * 01363000 **** EXIT ROUTINE DETERMINES IF THERE IS AN AIX TO DO 01364000 * 01365000 SUBEXIT TM FLAG5,AIXX WANT AIX STUFF CHECK 01366000 BZ SUBEXIT5 NO, SEE IF WE GET OUT 01367000 TM AIXOPT,ONLYCALL WANT ONLY THE CALLER TRACED? 01368000 BO SUBEXIT5 YEA, GET OUT. 01369000 TM AIXOPT,AIXNOBSE WANT THE BASE DONE? 01370000 BZ SUBEXIT1 YES, TRY IT 01371000 B SUBEXIT2 NO, TRY PATH 01372000 * 01373000 ******** SUBEXIT1 SWAPS FROM PATH (AIX) PRINT TO A BASE PRINT 01374000 * 01375000 SUBEXIT1 TM STATUS,BASEDONE HAVE WE ALREADY DONE THIS? 01376000 BO SUBEXIT2 YES, TRY PATH 01377000 OI STATUS,BASEDONE 01378000 L R10,AMBL 01379000 TM AMBLTYPE(R10),X'80' WAS CALLER A PATH? 01380000 BZ SUBEXIT2 NO, WAS BASE, TRY UPG'S 01381000 TM FLAG0,SWAPED AIX'S BASE SWAP CODE 01382000 BO SUBEXT1A DON'T RE-SWAP IT 01383000 BAL R14,SWAP 01384000 SUBEXT1A ICM R7,15,PLHWAX(RPLH) GET WAX ADDRESS FROM AIX PLH 01385000 BZ SUBEXIT3 NONE, TRY UPT'S 01386000 GOTWAX MVC HEADER+35(88),STARS 01387000 MVC HEADER+1(30),ABASEMSG 01388000 SR R1,R1 HEADER MESSAGE ONLY 01389000 BAL R14,PRINT PRINT WAX AND TELL OF SWAP 01390000 L RRPL,WAXIRPL(R7) GET BASE RPL FROM WAX 01391000 ICM RPLH,15,WAXBPLH(R7) GET PLH FROM WAX 01392000 BNZ SUBEXIT4 01393000 L RPLH,RPLPLHPT(RRPL) NOT IN WAX, GET FROM RPL 01394000 B SUBEXIT4 GO FINISH SETTING UP CB POINTERS 01395000 * 01396000 ***** SWAP FROM BASE TO PATH 01397000 * 01398000 SUBEXIT2 TM AIXOPT,AIXNOAIX WANT THE PATH DONE? 01399000 BO SUBEXIT3 NO, TRY UPGS 01400000 L R10,AMBL 01401000 TM AMBLTYPE(R10),X'10' WAS LAST CALL A BASE? 01402000 BZ SUBEXIT3 NO, TRY UPG'S 01403000 TM STATUS,PATHDONE DID WE ALREADY DO THE PATH? 01404000 BO SUBEXIT3 YES, TRY UPG'S 01405000 ICM R10,15,PLHXPLH(RPLH) SEE IF THERE IS A PATH 01406000 BZ SUBEXIT3 NOPE, TRY UPG'S 01407000 OI STATUS,PATHDONE WILL SOON BE DONE. 01408000 TM FLAG0,SWAPED WAS THE PARM LIST SWAPED? 01409000 BZ SUBEXT2A NO, OK 01410000 BAL R14,SWAP PUT REAL PARM LIST BACK 01411000 SUBEXT2A MVC HEADER+1(32),AIXMSG 01412000 MVC HEADER+33(90),STARS 01413000 SR R1,R1 01414000 BAL R14,PRINT 01415000 L RPLH,PLH 01416000 L RPLH,PLHXPLH(RPLH) GET AIX PLH 01417000 L R10,PLHWAX(,RPLH) GET PATH PLH'S WAX 01418000 CLI 0(R10),X'73' GET A WAX? 01419000 BNE SUBEXIT3 NO, PROBLEM. TRY UPG 01420000 ICM RRPL,15,WAXURPL(R10) GET PATH (USER'S) RPL 01421000 BNZ SUBEXIT4 GOT IT, GO SWAP POINTERS 01422000 ICM RRPL,15,PLHMRPL(RPLH) GET PATH RPL FROM THE PATH PLH 01423000 BNZ SUBEXIT4 GOT IT, SWAP POINTERS 01424000 L RRPL,PLHCRPL(RPLH) LAST TRY FOR PATH'S RPL 01425000 B SUBEXIT4 01426000 * 01427000 **** SWAP TO THE UPGRADE CONTROL BLOCKS 01428000 * 01429000 SUBEXIT3 TM AIXOPT,AIXUPG SWAP WHAT EVER TO UPGRADE PRINT 01430000 BZ SUBEXIT5 DOESN'T WANT UPG, SEE IF WE CAN EXT 01431000 ICM R7,15,UPGPTR ARE WE ALREADY DOING A UPG? 01432000 BNZ SUBEXT3B YES, TRY NEXT UPG 01433000 L RAMBL,AMBL RESTORE THE AMBL REG 01434000 ICM R7,15,AMBLBIB(RAMBL) GET THE BIB 01435000 BZ SUBEXT3A NO BIB, TRY OTHER AMBL 01436000 ICM R7,15,BIBUPT(R7) IS THERE A UPG TABLE? 01437000 BNZ SUBEXT3B YES, PROCESS IT 01438000 SUBEXT3A ICM RAMBL,15,AMBLXPT(RAMBL) IS THERE ANOTHER AMBL? 01439000 BZ SUBEXT3G NO, NO UPG TO DO. 01440000 ICM R7,15,AMBLBIB(RAMBL) 01441000 BZ SUBEXT3G 01442000 ICM R7,15,BIBUPT(R7) DOES THIS AMBL HAVE A UPG TABLE 01443000 BZ SUBEXT3G NO, NO UPG'S 01444000 SUBEXT3B ST R7,UPGPTR 01445000 SR R6,R6 01446000 IC R6,UPGCOUNT GET COUNTER OF UPG'S DONE 01447000 LA R6,1(R6) ADD ONE 01448000 STC R6,UPGCOUNT 01449000 CLC UPGCOUNT,UPTNOENT(R7) HAVE WE DONE ALL THE UPGS? 01450000 BH SUBEXT3G YES, EXIT 01451000 TM FLAG0,SWAPED IS THE PARM LIST ALREADY SWAPED? 01452000 BO SUBEXT3C YES, DON'T RE-SWAP IT 01453000 BAL R14,SWAP 01454000 SUBEXT3C IC R9,TABLE(R6) TRANSLATE THE UPG COUNTER FOR PRT 01455000 ICM R10,15,PLHWAX(RPLH) SEE IF THIS HAS ALREADY BEEN DONE 01456000 BZ SUBEXT3H NO, HAS NOT. 01457000 TM STATUS,PATHDONE PRINTED AS A PATH? 01458000 BZ SUBEXT3H NO, GO DO IT 01459000 MVC HEADER+57(66),STARS 01460000 MVC HEADER+1(56),UPGREP 01461000 STC R9,HEADER+12 01462000 OI STATUS,UPGSHORT ONLY DO ACB, RPL AND AMBL FOR THIS 01463000 B SUBEXT3I 01464000 SUBEXT3H MVC HEADER+1(68),UPGMSG TELL THE USER ABOUT THE UPG 01465000 STC R9,HEADER+67 01466000 MVC HEADER+71(52),STARS 01467000 SUBEXT3I SR R1,R1 01468000 BAL R14,PRINT 01469000 SUBEXT3D BCT R6,SUBEXT3E IS R7 POINTING TO CURRENT ENTRY 01470000 B SUBEXT3F YES, GO PRINT IT 01471000 SUBEXT3E LA R7,12(R7) NO, POINT TO NEXT UPG TABLE ENTRY 01472000 B SUBEXT3D SEE IF THIS IS CURRENT 01473000 SUBEXT3F L RRPL,UPTRPL(R7) GET UPG RPL 01474000 L RPLH,RPLPLHPT(RRPL) GET UPG PLH 01475000 B SUBEXIT4 GO PRIME THE REGS 01476000 SUBEXT3G SR R10,R10 UPG ARE FINISHED. CLEAN UP FOR EXIT 01477000 ST R10,UPGPTR CLEAR UPG CONTROL FOR EXIT 01478000 STC R10,UPGCOUNT 01479000 B SUBEXIT5 01480000 * 01481000 **** SUBEXIT4 CHANGES THE CURRENT C/B POINTERS TO THE NEW C/B POINTERS 01482000 * 01483000 SUBEXIT4 L RACB,RPLDACB(RRPL) GET NEW ACB FROM NEW RPL 01484000 L R10,ACBAMBL(RACB) GET NEW AMBL 01485000 ST RRPL,RPL SAVE NEW RPL 01486000 ST R10,AMBL SAVE NEW AMBL 01487000 ST RPLH,PLH SAVE NEW PLH 01488000 L RAMB,AMBLDTA(R10) GET NEW DATA AMB 01489000 ICM R6,15,AMBLIX(R10) GET NEW INDEX AMB 01490000 BNZ SUBEXT4A GOT ONE 01491000 TM FLAG2,INDEXCB IS INDEX CB ON? 01492000 BZ SUBEXT4A NO, BRANCH 01493000 NI FLAG2,X'FF'-INDEXCB YES, TURN IT OFF 01494000 OI STATUS,INDEXOFF REMEMBER TO TURN IT BACK ON 01495000 SUBEXT4A ST R6,IAMB SAVE INDEX AMB ADDRESS 01496000 ST RAMB,DAMB SAVE THE DATA AMB ADDRESS 01497000 TM STATUS,HEADOUT WAS HEADER MESSAGE ISSUED? 01498000 BZ PHASE2 NO, START WITH IT 01499000 B PHASE3 YES, START WITH THE C/B'S 01500000 * 01501000 ***** SUBEXIT5 CLEANS UP BEFORE THE ATTEMPT TO EXIT 01502000 * 01503000 SUBEXIT5 NI STATUS,X'FF'-(BASEDONE+PATHDONE+UPGDONE) 01504000 TM FLAG0,SWAPED WAS THE PARM LIST SWAPED? 01505000 BZ SUBEXIT6 NO, CONITNUE 01506000 BAL R14,SWAP THAT IS, PUT IT BACK TO NORMAL 01507000 SUBEXIT6 TM FLAG1,ADDRONLY WAS THIS A ADDRESS ONLY PRINT? 01508000 BZ EXIT1 THAT'S ALL FOLKES, NOW RETURNING 01509000 NI FLAG1,X'FF'-PARMS TURN OFF 'GOT PARAMETER LIST' BIT 01510000 B PARMPMT GO RE-DO THE PARAMETER PROMPT 01511000 * 01512000 SWAP TM STATUS,INDEXOFF WAS THE INDEX OPTION TURNED OFF? 01513000 BZ SWAP2 01514000 NI STATUS,X'FF'-INDEXOFF 01515000 OI FLAG2,INDEXCB 01516000 SWAP2 XI FLAG0,SWAPED SWAP OF PARM LIST SWAPS CONTROL BIT 01517000 XC FLAG2(3),AIXIN SWAP REAL PARM LIST AND AIX LIST 01518000 XC AIXIN(3),FLAG2 01519000 XC FLAG2(3),AIXIN 01520000 BR R14 01521000 ********************************************************************** 01522000 * END PHASE3 CODE * 01523000 ********************************************************************** 01524000 SPACE 3 01525000 ********************************************************************** 01526000 ********* CONVERT ADDRESS IN REG 0 TO PRINTABLE CHARACTERS *********** 01527000 ********************************************************************** 01528000 SPACE 1 01529000 CONVERT EQU * 01530000 ST R0,UNPACK 01531000 UNPK UNPACK(9),UNPACK(5) 01532000 TR UNPACK(8),TABLE-240 01533000 BR R14 01534000 SPACE 3 01535000 ********************************************************************** 01536000 * PRINT ROUTINE 01537000 * R0 STARTING ADDRESS TO BE DUMPED. 01538000 * R1 LENGTH OF SNAP 01539000 * R14 RETURN POINT 01540000 ********************************************************************** 01541000 SPACE 1 01542000 PUT LA R8,4 PUT FUNCTION CODE 01543000 B CALL CALL IDA019SU 01544000 PRINT SR R8,R8 PRINT FUNCTION CODE 01545000 CALL L R15,IDAO19SU 01546000 ST R14,OUTREG SAVE THE RETURN ADDRESS 01547000 BALR R14,R15 CALL IDA019SU 01548000 L R14,OUTREG 01549000 TM FLAG1,STOP ERROR OCCUR? 01550000 BO EXIT1 YES, RETURN TO CALLER OF IDA019ST 01551000 BR R14 RETURN TO CALLER 01552000 ********************************************************************** 01553000 * END OF PRINT CODE * 01554000 ********************************************************************** 01555000 EJECT 01556000 ********************************************************************** 01557000 * THE PATCH AREA CONTAINS A BRANCH TO PHASE2. AT THE END OF THE * 01558000 * CONDITION CHECK THERE IS A BRANCH TO PATCH1. THIS AREA * 01559000 * CAN BE USED TO ADD FURTHER CHECKS TO DETERMINE IF THE CONDITTIONS * 01560000 * ARE CORRECT FOR A PRINT. * 01561000 * AT THE TIME PATCH IS CALLED, REG4 POINTS TO THE RPL, REG2 HAS THE * 01562000 * PLH ADDRESS AND REG 5 IS THE ACB'S. YOU MAY USE REGS 6 THRU 10 AS * 01563000 * WORK REGS. * 01564000 * IF YOU DO NOT WANT TO TRACE THIS CALL, RETURN TO EXIT1. * 01565000 * IF WANT TO TRACE THIS CALL, RETURN TO PHASE2. * 01566000 ********************************************************************** 01567000 PATCH DC XL64'00' 01568000 PATCH1 B PHASE2 USED FOR ADDRESSABILITY IN PATCH 01569000 B EXIT1 01570000 EJECT 01571000 ********************************************************************** 01572000 ********************************************************************** 01573000 DS 0F 01574000 TABLE DC C'0123456789ABCDEF' 01575000 TWOFOUR DC X'0024' 01576000 SIX DC X'0006' 01577000 MOV DC C',MOV' 01578000 LOC DC C',LOC' 01579000 DIR DC C',DIR' 01580000 SEQ DC C',SEQ' 01581000 SKP DC C',SKP' 01582000 SYN DC C',SYN' 01583000 ASY DC C',ASY' 01584000 KEQ DC C',KEQ' 01585000 KGE DC C',KGE' 01586000 GKY DC C',GKY' 01587000 FKY DC C',FKY' 01588000 ADR DC C',ADR' 01589000 KEY DC C',KEY' 01590000 CNV DC C',CNV' 01591000 UPD DC C',UPD' 01592000 NSP DC C',NSP' 01593000 R1N DC C'R1' 01594000 RZ DC C'RZ' 01595000 RI DC C'RI' 01596000 SE DC C'SE' 01597000 R3N DC C'R3' 01598000 R2N DC C'R2' 01599000 RF DC C'RF' 01600000 RE DC C'RE' 01601000 RU DC C'RU' 01602000 REQUEST DC C'GET ' 01603000 DC C'PUT ' 01604000 DC C'CHECK ' 01605000 DC C'POINT ' 01606000 DC C'ENDREQ' 01607000 DC C'ERASE ' 01608000 DC C'VERIFY' 01609000 DC C'FORMAT' 01610000 DC C'FORMAT' 01611000 DC C'FORCE ' 01612000 DC C'GETIX ' 01613000 DC C'PUTIX ' 01614000 DC C'SEARCH' 01615000 DC C'MARK ' 01616000 DC C'WRITE ' 01617000 CALLMSG DC C'CALLER IDA019--, REQUEST =' 01618000 FLEW DC C', REQUEST SUCESSFUL' 01619000 FLOP DC C', REQUEST FAILED. ERROR =' 01620000 IOOK DC C', I/O WAS SUCCESSFUL' 01621000 IOFAIL DC C', I/O FAILED' 01622000 RUNOP DC C', NO I/O FOR UPGRADE DONE' 01623000 PATH DC C', PATH' 01624000 AIX DC C', AIX' 01625000 BASE DC C', BASE' 01626000 USER DC C'USER ' 01627000 INDEX DC C'INDEX' 01628000 IOMB DC C'IOMB' 01629000 IOSB DC C'IOSB' 01630000 REGMSG DC C'REGISTERS WHEN TRACE CALLED. (REG 0 THRU 14)' 01631000 HOOKMSG DC C'**** COUNT = HOOK NUMBER =' 01632000 STARS DC 132C'*' 01633000 ACBMSG DC C'ACB AT LOCATION ' 01634000 AMBLMSG DC C'AMBL AT LOCATION ' 01635000 RPLMSG DC C'RPL AT LOCATION ' 01636000 PLHMSG DC C'CURRENT PLH AT LOCATION ' 01637000 BUFCMSG DC C'CURRENT DATA BUFC AT LOCATION ' 01638000 BUFCHDR DC C'BUFFC HEADER AT LOCATION ' 01639000 BUFFMSG DC C'CURRENT DATA BUFFER AT LOCATION ' 01640000 BUFEMSG DC C'EMPTY BUFFER FOUND AT ' 01641000 IOBMSG DC C'IOB AT LOCATION ' 01642000 CPAMSG DC C'DATA CHANNEL PROGRAM AREA (CPA) AT LOCATION ' 01643000 AMBMSG DC C'DATA AMB AT LOCATION ' 01644000 AMDSBMSG DC C'DATA AMDSB AT LOCATION ' 01645000 ICWAMSG DC C'ICWA AT LOCATION ' 01646000 DIWAMSG DC C'DIWA AT LOCATION ' 01647000 IMWAMSG DC C'IMWA AT LOCATION ' 01648000 LPMBMSG DC C'LPMB AT LOCATION ' 01649000 EDBMSG DC C'DATA EDB AT LOCATION ' 01650000 ARDBMSG DC C'DATA ARDB AT LOCATION ' 01651000 DEBMSG DC C'DATA DEB AT LOCATION ' 01652000 IICBMSG DC C'IICB AT LOCATION ' 01653000 DCBMSG DC C'IIP DCB AT LOCATION ' 01654000 BSPHMSG DC C'DATA BSPH AT LOCATION ' 01655000 VSRTMSG DC C'VSRT AT LOCATION ' 01656000 BIBMSG DC C'BIB AT LOCATION ' 01657000 UPTMSG DC C'UPT AT LOCATION ' 01658000 HEBMSG DC C'HEB AT LOCATION ' 01659000 WAXMSG DC C'WAX AT LOCATION ' 01660000 VATMSG DC C'VAT AT LOCATION ' 01661000 PLHHDRMS DC C'PLH HEADER AT LOCATION ' 01662000 AIXMSG DC C'FOLLOWING PRINT IS AIX FOR BASE.' 01663000 ABASEMSG DC C'FOLLOWING IS AIX''S BASE PRINT.' 01664000 UPGMSG DC C'FOLLOWING PRINT IS UPGRADE CLUSTER FOR A BASE. ' 01665000 UPGCNT DC C'THIS IS UPG NUMBER .' 01666000 UPGREP DC C'UPG NUMBER IS SAME AS PATH PRINT. ' 01667000 DC C'SHORT PRINT FOLLOWS.' 01668000 KEYMSG DC C'USER''S SEARCH ARGUMENT (KEY) AT LOCATION ' 01669000 KEYADR DC C' . KEY LENGTH = ' 01670000 RECMSG DC C'USER I/O RECORD AT LOCATION ' 01671000 RECADR DC C' RECORD LENGTH = ' 01672000 INTERMSG DC C'INTERUPTING COUNT NUMBER . IRB CAUSING ' 01673000 DC C'FOLLOWING PRINT' 01674000 CONTMSG DC C'INTERUPTED TRACE NUMBER CONTINUING.' 01675000 IDAO19SU DC V(IDA019SU) 01676000 EJECT 01677000 IDATRACE 01678000 EJECT 01679000 @DATA DS 0H 01680000 @DATD DSECT 01681000 DS 0F 01682000 IDA019ST CSECT 01683000 DS 0F 01684000 @DATD DSECT 01685000 DS 0D 01686000 @ENDDATD EQU * 01687000 IDA019ST CSECT 01688000 NOPR ((@ENDDATD-@DATD)*16) 01689000 DS 0F 01690000 @SIZDATD DC AL1(0) 01691000 DC AL3(@ENDDATD-@DATD) 01692000 DS 0D 01693000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01694000 @01 EQU 01 01695000 @02 EQU 02 01696000 @03 EQU 03 01697000 @04 EQU 04 01698000 @05 EQU 05 01699000 @06 EQU 06 01700000 @07 EQU 07 01701000 @08 EQU 08 01702000 @09 EQU 09 01703000 @10 EQU 10 01704000 @11 EQU 11 01705000 @12 EQU 12 01706000 @13 EQU 13 01707000 @14 EQU 14 01708000 @15 EQU 15 01709000 IOBSTDRD EQU @01 01710000 CVTPTR EQU 16 01711000 IFGACB EQU 0 01712000 ACBCOMN EQU IFGACB 01713000 ACBLENG EQU ACBCOMN+2 01714000 ACBLENG2 EQU ACBLENG 01715000 ACBAMBL EQU ACBCOMN+4 01716000 ACBJWA EQU ACBAMBL 01717000 ACBMACRF EQU ACBCOMN+12 01718000 ACBMACR1 EQU ACBMACRF 01719000 ACBADR EQU ACBMACR1 01720000 ACBCNV EQU ACBMACR1 01721000 ACBMACR2 EQU ACBMACRF+1 01722000 ACBBUFPL EQU ACBCOMN+20 01723000 ACBMACR3 EQU ACBBUFPL 01724000 ACBRECFM EQU ACBCOMN+24 01725000 ACBCCTYP EQU ACBCOMN+25 01726000 ACBOPT EQU ACBCOMN+26 01727000 ACBDSORG EQU ACBOPT 01728000 ACBCROPS EQU ACBDSORG 01729000 ACBEXLST EQU ACBCOMN+36 01730000 ACBDDNM EQU ACBCOMN+40 01731000 ACBAMETH EQU ACBDDNM+3 01732000 ACBOFLGS EQU ACBCOMN+48 01733000 ACBEXFG EQU ACBOFLGS 01734000 ACBIOSFG EQU ACBOFLGS 01735000 ACBINFLG EQU ACBCOMN+50 01736000 ACBUJFCB EQU ACBCOMN+52 01737000 ACBBLKSZ EQU ACBCOMN+60 01738000 IDAPLHDR EQU 0 01739000 IDAPLH EQU 0 01740000 PLHFLG1 EQU IDAPLH+2 01741000 PLHFLG2 EQU IDAPLH+3 01742000 PLHEFLGS EQU IDAPLH+4 01743000 PLHFLG3 EQU IDAPLH+6 01744000 PLHAFLGS EQU IDAPLH+7 01745000 PLHCRBA EQU IDAPLH+28 01746000 PLHJORBA EQU PLHCRBA 01747000 PLHJCODE EQU IDAPLH+40 01748000 PLHRSCS EQU IDAPLH+43 01749000 PLHDIOB EQU IDAPLH+76 01750000 PLHRETO EQU IDAPLH+116 01751000 PLHRET1 EQU IDAPLH+120 01752000 PLHEOVPT EQU IDAPLH+180 01753000 PLHIXSPL EQU IDAPLH+200 01754000 PLHSSRBA EQU PLHIXSPL 01755000 PLHWAX EQU IDAPLH+232 01756000 PLHKEYPT EQU IDAPLH+248 01757000 PLHTMRPL EQU IDAPLH+265 01758000 PLHEND EQU IDAPLH+280 01759000 IDAAMB EQU 0 01760000 AMBEOVR EQU IDAAMB+24 01761000 AMBFLG0 EQU AMBEOVR 01762000 AMBFLG1 EQU IDAAMB+25 01763000 AMBDSORG EQU IDAAMB+26 01764000 AMBIOBAD EQU IDAAMB+28 01765000 AMBINFL EQU IDAAMB+42 01766000 AMBDEBPT EQU IDAAMB+44 01767000 AMBOFLGS EQU IDAAMB+48 01768000 AMBFLG2 EQU IDAAMB+49 01769000 AMBEOVPT EQU IDAAMB+56 01770000 AMBCSWD1 EQU IDAAMB+84 01771000 AMBAFLG EQU AMBCSWD1 01772000 IDAAMBL EQU 0 01773000 AMBLEOV EQU IDAAMBL+12 01774000 AMBLEFLG EQU AMBLEOV 01775000 AMBLDDNM EQU IDAAMBL+16 01776000 AMBLIDF EQU AMBLDDNM 01777000 AMBLQ EQU AMBLIDF+7 01778000 AMBLVC EQU IDAAMBL+28 01779000 AMBLTYPE EQU IDAAMBL+30 01780000 AMBLSHAR EQU IDAAMBL+33 01781000 AMBLFLG1 EQU IDAAMBL+35 01782000 AMBLFLG2 EQU IDAAMBL+36 01783000 IFGRPL EQU 0 01784000 RPLCOMN EQU IFGRPL 01785000 RPLIDWD EQU RPLCOMN 01786000 RPLLEN EQU RPLIDWD+3 01787000 RPLECB EQU RPLCOMN+8 01788000 RPLFDBWD EQU RPLCOMN+12 01789000 RPLFDBK EQU RPLFDBWD+1 01790000 RPLRTNCD EQU RPLFDBK 01791000 RPLCNDCD EQU RPLFDBK+1 01792000 RPLCMPON EQU RPLCNDCD 01793000 RPLFDB2 EQU RPLCMPON 01794000 RPLERRCD EQU RPLCNDCD+1 01795000 RPLFDB3 EQU RPLERRCD 01796000 RPLKEYLE EQU RPLCOMN+16 01797000 RPLARG EQU RPLCOMN+36 01798000 RPLOPTCD EQU RPLCOMN+40 01799000 RPLOPT1 EQU RPLOPTCD 01800000 RPLECBSW EQU RPLOPT1 01801000 RPLOPT2 EQU RPLOPTCD+1 01802000 RPLADR EQU RPLOPT2 01803000 RPLOPT3 EQU RPLOPTCD+2 01804000 RPLNXTRP EQU RPLCOMN+44 01805000 RPLOPTC2 EQU RPLCOMN+56 01806000 RPLOPT5 EQU RPLOPTC2 01807000 RPLWRTYP EQU RPLOPT5 01808000 RPLOPT6 EQU RPLOPTC2+1 01809000 RPLUNTYP EQU RPLOPT6 01810000 RPLOPT7 EQU RPLOPTC2+2 01811000 RPLCNOPT EQU RPLOPT7 01812000 RPLOPT8 EQU RPLOPTC2+3 01813000 RPLRBAR EQU RPLCOMN+60 01814000 RPLAIXID EQU RPLRBAR+2 01815000 RPLEXTDS EQU RPLCOMN+68 01816000 RPLEXTD1 EQU RPLEXTDS 01817000 IDAAMDSB EQU 0 01818000 AMDATTR EQU IDAAMDSB+1 01819000 AMDNEST EQU IDAAMDSB+4 01820000 AMDHLRBA EQU IDAAMDSB+28 01821000 AMDSSRBA EQU IDAAMDSB+32 01822000 AMDATTR3 EQU IDAAMDSB+40 01823000 AMDSTAT EQU IDAAMDSB+48 01824000 IDABIB EQU 0 01825000 BIBHDR EQU IDABIB 01826000 BIBFLG1 EQU BIBHDR+1 01827000 BIBRTNS EQU IDABIB+60 01828000 TIOT1 EQU 0 01829000 IEZJSCB EQU 0 01830000 JSCBSEC1 EQU IEZJSCB+188 01831000 JSCHPCE EQU JSCBSEC1+4 01832000 JSCBDCB EQU JSCBSEC1+36 01833000 JSCBOPTS EQU JSCBSEC1+48 01834000 JSCBSWT1 EQU JSCBSEC1+55 01835000 JSCBWTP EQU JSCBSEC1+64 01836000 JSCBWTFG EQU JSCBWTP 01837000 JSCBEND1 EQU IEZJSCB+260 01838000 CVTMAP EQU 0 01839000 CVTDAR EQU CVTMAP+72 01840000 CVTFLGS1 EQU CVTDAR 01841000 CVTDCB EQU CVTMAP+116 01842000 CVTIOQET EQU CVTMAP+120 01843000 CVTIERLC EQU CVTMAP+144 01844000 CVTHEAD EQU CVTMAP+160 01845000 CVTSV76C EQU CVTHEAD 01846000 CVTOPTA EQU CVTMAP+182 01847000 CVTOPTB EQU CVTMAP+183 01848000 CVTGTF EQU CVTMAP+236 01849000 CVTGTFST EQU CVTGTF 01850000 CVTGTFS EQU CVTGTFST 01851000 CVTSTATE EQU CVTGTFST 01852000 CVTTMODE EQU CVTGTFST 01853000 CVTFORM EQU CVTGTFST 01854000 CVTAQAVT EQU CVTMAP+240 01855000 CVTTCMFG EQU CVTAQAVT 01856000 CVTVOLM2 EQU CVTMAP+244 01857000 CVTTATA EQU CVTVOLM2 01858000 CVTTSKS EQU CVTTATA 01859000 CVTVOLF2 EQU CVTTSKS 01860000 CVTTAT EQU CVTTATA+1 01861000 CVTATER EQU CVTMAP+248 01862000 CVTEXT1 EQU CVTMAP+252 01863000 CVTPURG EQU CVTMAP+260 01864000 CVTQMSG EQU CVTMAP+268 01865000 CVTDMSR EQU CVTMAP+272 01866000 CVTRSV37 EQU CVTDMSR 01867000 CVTDMSRF EQU CVTRSV37 01868000 CVTERPV EQU CVTMAP+316 01869000 CVTINTLA EQU CVTMAP+320 01870000 CVTAPF EQU CVTMAP+324 01871000 CVTEXT2 EQU CVTMAP+328 01872000 CVTHJES EQU CVTMAP+332 01873000 CVTPGSIA EQU CVTMAP+348 01874000 CVTA1F1 EQU CVTMAP+356 01875000 CVTSYSK EQU CVTMAP+357 01876000 CVTVOLM1 EQU CVTMAP+380 01877000 CVTVOLF1 EQU CVTVOLM1 01878000 CVTATMCT EQU CVTMAP+388 01879000 CVTXTNT1 EQU 0 01880000 CVTXTNT2 EQU 0 01881000 CVTDSSV EQU CVTXTNT2 01882000 CVTFLGBT EQU CVTXTNT2+5 01883000 CVTQID EQU CVTXTNT2+24 01884000 CVTRV400 EQU CVTXTNT2+52 01885000 CVTRV409 EQU CVTXTNT2+53 01886000 CVTATCVT EQU CVTXTNT2+64 01887000 CVTRV429 EQU CVTXTNT2+84 01888000 CVTRV438 EQU CVTXTNT2+85 01889000 CVTRV457 EQU CVTXTNT2+112 01890000 CVTRV466 EQU CVTXTNT2+113 01891000 CVTFIX EQU 0 01892000 CVTRELNO EQU CVTFIX+252 01893000 IDABUFDR EQU 0 01894000 BUFDRCIX EQU IDABUFDR+9 01895000 BUFDRFLG EQU IDABUFDR+11 01896000 IDABUFC EQU 0 01897000 BUFCAVL EQU IDABUFC 01898000 BUFCFLG1 EQU IDABUFC+1 01899000 BUFCIOFL EQU IDABUFC+2 01900000 BUFCFLG2 EQU IDABUFC+3 01901000 BUFCPLH EQU IDABUFC+4 01902000 BUFCINV EQU IDABUFC+28 01903000 IDAUPT EQU 0 01904000 UPTHDR EQU IDAUPT 01905000 UPTFLG0 EQU UPTHDR+1 01906000 UPTSA EQU IDAUPT+16 01907000 UPTAXENT EQU IDAUPT+88 01908000 UPTRPL EQU UPTAXENT 01909000 UPTFLG1 EQU UPTAXENT+4 01910000 IDAVAT EQU 0 01911000 VATHDR EQU IDAVAT 01912000 VATVSRT EQU IDAVAT+8 01913000 VATVC EQU IDAVAT+20 01914000 IDADIWA EQU 0 01915000 DIWFLG1 EQU IDADIWA+4 01916000 DIWFLG2 EQU IDADIWA+5 01917000 DIWSAVE EQU IDADIWA+28 01918000 IDAIICB EQU 0 01919000 IIW1CBF EQU IDAIICB+16 01920000 IIFLAG1 EQU IDAIICB+24 01921000 IIFLAG2 EQU IDAIICB+28 01922000 IIFLAG3 EQU IDAIICB+36 01923000 IIREGSAV EQU IDAIICB+60 01924000 IIAUD EQU IDAIICB+132 01925000 IIAUDHDR EQU IIAUD 01926000 IIAUDFL1 EQU IIAUDHDR 01927000 IIAUDFL2 EQU IIAUDHDR+1 01928000 IIGMCNTR EQU IIAUDHDR+2 01929000 IIGMAUD EQU IIAUD+4 01930000 AUDCSPLI EQU IIGMAUD+4 01931000 AUDCSPLD EQU IIGMAUD+12 01932000 AUDCSPLB EQU IIGMAUD+20 01933000 AUDCSPLM EQU IIGMAUD+28 01934000 IIGMNTRY EQU 0 01935000 IIGMSPLG EQU IIGMNTRY+4 01936000 IDAHEB EQU 0 01937000 HEBHDREL EQU 0 01938000 HEBFREMN EQU HEBHDREL 01939000 HEBFLAGS EQU HEBHDREL+8 01940000 AMCBS EQU 0 01941000 CBSCMP EQU AMCBS+16 01942000 CBSVSRT EQU AMCBS+32 01943000 IDAICWA EQU 0 01944000 ICWFLG1 EQU IDAICWA+1 01945000 IDAEDBHD EQU 0 01946000 IDAEDB EQU 0 01947000 EDBFLG1 EQU IDAEDB+2 01948000 IDALPMB EQU 0 01949000 LPMBFLGS EQU IDALPMB+1 01950000 IDAARDB EQU 0 01951000 ARDTYPE EQU IDAARDB+1 01952000 ARDPRF EQU IDAARDB+28 01953000 IDACPA EQU 0 01954000 CPAWPHAD EQU IDACPA+36 01955000 CPAWSEEK EQU CPAWPHAD+1 01956000 CPARPHAD EQU IDACPA+52 01957000 CPARSEEK EQU CPARPHAD+1 01958000 CPASTAT1 EQU IDACPA+83 01959000 CPAFLAGS EQU IDACPA+84 01960000 CPAFLAG1 EQU CPAFLAGS 01961000 CPAFLAG2 EQU CPAFLAGS+1 01962000 CPACCW EQU 0 01963000 IDABSPH EQU 0 01964000 BSPHFLG1 EQU IDABSPH+1 01965000 BSPHCSRC EQU IDABSPH+28 01966000 BSPHFLG2 EQU BSPHCSRC 01967000 IDAIMWA EQU 0 01968000 IMWFLAGS EQU IDAIMWA+1 01969000 IDAWAX EQU 0 01970000 WAXFLG1 EQU IDAWAX+1 01971000 IDARPLE EQU 0 01972000 IDAVSRT EQU 0 01973000 VSRTFLGS EQU IDAVSRT+12 01974000 VSRTCSL EQU IDAVSRT+40 01975000 VSRTCSLF EQU VSRTCSL 01976000 VSRTCSBF EQU VSRTCSLF 01977000 VSRTCSPF EQU VSRTCSLF 01978000 ICWKEY2 EQU 0 01979000 ICWKEY3 EQU 0 01980000 PLHKEY EQU 0 01981000 PLHPDL EQU 0 01982000 PLHPDLE EQU 0 01983000 PLHRRN EQU 0 01984000 PLHEXTEN EQU PLHEND 01985000 PLHBMWRK EQU PLHEXTEN+5 01986000 TIOENTRY EQU TIOT1+24 01987000 TIOESTTA EQU TIOENTRY+1 01988000 TIOERLOC EQU TIOENTRY+2 01989000 TIOELINK EQU TIOERLOC+1 01990000 TIOESYOT EQU TIOELINK 01991000 TIOESTTC EQU TIOENTRY+15 01992000 TIOESTTB EQU TIOENTRY+16 01993000 POOLSTAR EQU TIOENTRY+20 01994000 TIOEDEVE EQU TIOESTTB 01995000 TIOSTTB EQU TIOEDEVE 01996000 JSCBSEC2 EQU JSCBEND1 01997000 JSCBSEC3 EQU JSCBEND1 01998000 JSCBJCT EQU JSCBSEC3 01999000 JSCBJCTA EQU JSCBJCT+1 02000000 JSCBASID EQU JSCBSEC3+8 02001000 JSCBFBYT EQU JSCBSEC3+10 02002000 JSCBJNL EQU JSCBSEC3+28 02003000 JSCBJJSB EQU JSCBJNL 02004000 JSCBSUB EQU JSCBSEC3+40 02005000 JSCSCT EQU JSCBSEC3+68 02006000 JSCRSV45 EQU JSCBSEC3+112 02007000 JSCRSV46 EQU JSCRSV45 02008000 JSCRSV47 EQU JSCRSV45+2 02009000 CVTS01 EQU CVTPGSIA 02010000 CVTLPDIA EQU CVTS01+12 02011000 CVTDIRST EQU CVTLPDIA 02012000 CVTSLIDA EQU CVTS01+24 02013000 CVTCTLFG EQU CVTS01+50 02014000 CVTRV210 EQU CVTS01+424 02015000 CVTRV219 EQU CVTS01+425 02016000 CVTRV228 EQU CVTS01+426 02017000 CVTRV237 EQU CVTS01+427 02018000 CVTMFRTR EQU CVTS01+452 02019000 CVTRV262 EQU CVTS01+468 02020000 CVTRV271 EQU CVTS01+469 02021000 CVTRV280 EQU CVTS01+470 02022000 CVTRV289 EQU CVTS01+471 02023000 CVTGSDA EQU CVTS01+600 02024000 BUFCRSC1 EQU BUFCAVL 02025000 * START UNREFERENCED COMPONENTS 02026000 CVTRV628 EQU CVTS01+728 02027000 CVTRV627 EQU CVTS01+724 02028000 CVTRV626 EQU CVTS01+720 02029000 CVTRV625 EQU CVTS01+716 02030000 CVTRV624 EQU CVTS01+712 02031000 CVTRV623 EQU CVTS01+708 02032000 CVTRV622 EQU CVTS01+704 02033000 CVTRV621 EQU CVTS01+700 02034000 CVTIHASU EQU CVTS01+696 02035000 CVTRV619 EQU CVTS01+692 02036000 CVTRV618 EQU CVTS01+688 02037000 CVTRV617 EQU CVTS01+684 02038000 CVTRV616 EQU CVTS01+680 02039000 CVTRV615 EQU CVTS01+676 02040000 CVTRV614 EQU CVTS01+672 02041000 CVTRV613 EQU CVTS01+668 02042000 CVTTCASP EQU CVTS01+664 02043000 CVT0PT03 EQU CVTS01+660 02044000 CVT0PT0E EQU CVTS01+656 02045000 CVTRV609 EQU CVTS01+652 02046000 CVTCGK EQU CVTS01+648 02047000 CVTRAC EQU CVTS01+644 02048000 CVTHSM EQU CVTS01+640 02049000 CVTRV605 EQU CVTS01+636 02050000 CVTRV604 EQU CVTS01+632 02051000 CVTEFF02 EQU CVTS01+628 02052000 CVTCBBR EQU CVTS01+624 02053000 CVTSSCR EQU CVTS01+620 02054000 CVTEVENT EQU CVTS01+616 02055000 CVTCRCA EQU CVTS01+612 02056000 CVTTPIO EQU CVTS01+608 02057000 CVTADV EQU CVTS01+604 02058000 CVTGSDAB EQU CVTGSDA 02059000 CVTQV3 EQU CVTS01+596 02060000 CVTQV2 EQU CVTS01+592 02061000 CVTQV1 EQU CVTS01+588 02062000 CVTRPT EQU CVTS01+584 02063000 CVTSSRB EQU CVTS01+580 02064000 CVTCSDRL EQU CVTS01+576 02065000 CVTEXP1 EQU CVTS01+572 02066000 CVTRMPMT EQU CVTS01+568 02067000 CVTRMPTT EQU CVTS01+564 02068000 CVTVPSA EQU CVTS01+560 02069000 CVTVSTOP EQU CVTS01+556 02070000 CVTGTFR8 EQU CVTS01+552 02071000 CVTQUIT EQU CVTS01+548 02072000 CVTVACR EQU CVTS01+544 02073000 CVTWTCB EQU CVTS01+540 02074000 CVTSTPRS EQU CVTS01+536 02075000 CVT0PT02 EQU CVTS01+532 02076000 CVTDARCM EQU CVTS01+528 02077000 CVTIRECM EQU CVTS01+524 02078000 CVTJRECM EQU CVTS01+520 02079000 CVTVEMS0 EQU CVTS01+516 02080000 CVTSPFRR EQU CVTS01+512 02081000 CVTRLSTG EQU CVTS01+508 02082000 CVT0TC0A EQU CVTS01+504 02083000 CVTGMBR EQU CVTS01+500 02084000 CVTLFRM EQU CVTS01+496 02085000 CVTRMBR EQU CVTS01+492 02086000 CVTVIOP EQU CVTS01+488 02087000 CVTRV307 EQU CVTS01+486 02088000 CVTRV306 EQU CVTS01+484 02089000 CVTRV305 EQU CVTS01+482 02090000 CVTRV304 EQU CVTS01+480 02091000 CVTRV303 EQU CVTS01+478 02092000 CVTRV302 EQU CVTS01+476 02093000 CVTTRCA EQU CVTS01+472 02094000 CVTRV297 EQU CVTRV289 02095000 CVTRV296 EQU CVTRV289 02096000 CVTRV295 EQU CVTRV289 02097000 CVTRV294 EQU CVTRV289 02098000 CVTRV293 EQU CVTRV289 02099000 CVTRV292 EQU CVTRV289 02100000 CVTRV291 EQU CVTRV289 02101000 CVTRV290 EQU CVTRV289 02102000 CVTRV288 EQU CVTRV280 02103000 CVTRV287 EQU CVTRV280 02104000 CVTRV286 EQU CVTRV280 02105000 CVTRV285 EQU CVTRV280 02106000 CVTRV284 EQU CVTRV280 02107000 CVTRV283 EQU CVTRV280 02108000 CVTRV282 EQU CVTRV280 02109000 CVTRV281 EQU CVTRV280 02110000 CVTRV279 EQU CVTRV271 02111000 CVTRV278 EQU CVTRV271 02112000 CVTRV277 EQU CVTRV271 02113000 CVTRV276 EQU CVTRV271 02114000 CVTRV275 EQU CVTRV271 02115000 CVTRV274 EQU CVTRV271 02116000 CVTRV273 EQU CVTRV271 02117000 CVTRV272 EQU CVTRV271 02118000 CVTRV270 EQU CVTRV262 02119000 CVTRV269 EQU CVTRV262 02120000 CVTRV268 EQU CVTRV262 02121000 CVTRV267 EQU CVTRV262 02122000 CVTRV266 EQU CVTRV262 02123000 CVTRV265 EQU CVTRV262 02124000 CVTRV264 EQU CVTRV262 02125000 CVTRV263 EQU CVTRV262 02126000 CVTVFP EQU CVTS01+464 02127000 CVTVSI EQU CVTS01+460 02128000 CVTVPSIB EQU CVTS01+456 02129000 CVTMFACT EQU CVTMFRTR 02130000 CVTMFCTL EQU CVTS01+448 02131000 CVTPVBP EQU CVTS01+444 02132000 CVTPWI EQU CVTS01+440 02133000 CVTRV254 EQU CVTS01+438 02134000 CVTRV253 EQU CVTS01+436 02135000 CVTRV252 EQU CVTS01+434 02136000 CVTRV251 EQU CVTS01+433 02137000 CVTRV250 EQU CVTS01+432 02138000 CVTRV249 EQU CVTS01+431 02139000 CVTRV248 EQU CVTS01+430 02140000 CVTRV247 EQU CVTS01+429 02141000 CVTRV246 EQU CVTS01+428 02142000 CVTRV245 EQU CVTRV237 02143000 CVTRV244 EQU CVTRV237 02144000 CVTRV243 EQU CVTRV237 02145000 CVTRV242 EQU CVTRV237 02146000 CVTRV241 EQU CVTRV237 02147000 CVTRV240 EQU CVTRV237 02148000 CVTRV239 EQU CVTRV237 02149000 CVTRV238 EQU CVTRV237 02150000 CVTRV236 EQU CVTRV228 02151000 CVTRV235 EQU CVTRV228 02152000 CVTRV234 EQU CVTRV228 02153000 CVTRV233 EQU CVTRV228 02154000 CVTRV232 EQU CVTRV228 02155000 CVTRV231 EQU CVTRV228 02156000 CVTRV230 EQU CVTRV228 02157000 CVTRV229 EQU CVTRV228 02158000 CVTRV227 EQU CVTRV219 02159000 CVTRV226 EQU CVTRV219 02160000 CVTRV225 EQU CVTRV219 02161000 CVTRV224 EQU CVTRV219 02162000 CVTRV223 EQU CVTRV219 02163000 CVTRV222 EQU CVTRV219 02164000 CVTRV221 EQU CVTRV219 02165000 CVTRV220 EQU CVTRV219 02166000 CVTRV218 EQU CVTRV210 02167000 CVTRV217 EQU CVTRV210 02168000 CVTRV216 EQU CVTRV210 02169000 CVTRV215 EQU CVTRV210 02170000 CVTRV214 EQU CVTRV210 02171000 CVTRV213 EQU CVTRV210 02172000 CVTRV212 EQU CVTRV210 02173000 CVTRV211 EQU CVTRV210 02174000 CVTLCCAT EQU CVTS01+420 02175000 CVTPCCAT EQU CVTS01+416 02176000 CVTIPCRP EQU CVTS01+412 02177000 CVTIPCRI EQU CVTS01+408 02178000 CVTIPCDS EQU CVTS01+404 02179000 CVTAIDVT EQU CVTS01+400 02180000 CVTSSAP EQU CVTS01+396 02181000 CVTEHCIR EQU CVTS01+392 02182000 CVTEHDEF EQU CVTS01+388 02183000 CVTDAIR EQU CVTS01+384 02184000 CVTPERFM EQU CVTS01+380 02185000 CVT044R2 EQU CVTS01+376 02186000 CVTFETCH EQU CVTS01+372 02187000 CVTRSTWD EQU CVTS01+368 02188000 CVTSPOST EQU CVTS01+364 02189000 CVTIOBP EQU CVTS01+360 02190000 CVTASMVT EQU CVTS01+356 02191000 CVTRECRQ EQU CVTS01+352 02192000 CVTWSAC EQU CVTS01+348 02193000 CVTRV149 EQU CVTS01+344 02194000 CVTWSAL EQU CVTS01+340 02195000 CVTSPSA EQU CVTS01+336 02196000 CVTGLMN EQU CVTS01+332 02197000 CVTVEAC0 EQU CVTS01+328 02198000 CVT062R1 EQU CVTS01+324 02199000 CVTRPOST EQU CVTS01+320 02200000 CVTDQIQE EQU CVTS01+316 02201000 CVTCSD EQU CVTS01+312 02202000 CVTLKRMA EQU CVTS01+308 02203000 CVTRSPIE EQU CVTS01+304 02204000 CVTRENQ EQU CVTS01+300 02205000 CVTLQCB EQU CVTS01+296 02206000 CVTFQCB EQU CVTS01+292 02207000 CVTQCS01 EQU CVTS01+288 02208000 CVTAPFT EQU CVTS01+284 02209000 CVTPARRL EQU CVTS01+280 02210000 CVTVWAIT EQU CVTS01+276 02211000 CVTGSPL EQU CVTS01+272 02212000 CVTLSMQ EQU CVTS01+268 02213000 CVTGSMQ EQU CVTS01+264 02214000 CVTEXPRO EQU CVTS01+260 02215000 CVTOPCTP EQU CVTS01+256 02216000 CVTSIC EQU CVTS01+252 02217000 CVTTPIOS EQU CVTS01+248 02218000 CVTRTMS EQU CVTS01+244 02219000 CVTSDBF EQU CVTS01+240 02220000 CVTSCBP EQU CVTS01+236 02221000 CVTSDMP EQU CVTS01+232 02222000 CVTSV60 EQU CVTS01+228 02223000 CVTRTMCT EQU CVTS01+224 02224000 CVTASCBL EQU CVTS01+220 02225000 CVTASCBH EQU CVTS01+216 02226000 CVTGDA EQU CVTS01+212 02227000 CVTASVT EQU CVTS01+208 02228000 CVTVVMDI EQU CVTS01+204 02229000 CVTAQTOP EQU CVTS01+200 02230000 CVTIOSCS EQU CVTS01+196 02231000 CVTSDRM EQU CVTS01+192 02232000 CVTOPTE EQU CVTS01+188 02233000 CVTSTXU EQU CVTS01+184 02234000 CVTQUIS EQU CVTS01+180 02235000 CVTPARS EQU CVTS01+176 02236000 CVTS1EE EQU CVTS01+172 02237000 CVTFRAS EQU CVTS01+168 02238000 CVTQSAS EQU CVTS01+164 02239000 CVTCRAS EQU CVTS01+160 02240000 CVTCRMN EQU CVTS01+156 02241000 CVTDELCP EQU CVTS01+152 02242000 CVTFRECL EQU CVTS01+148 02243000 CVTGETCL EQU CVTS01+144 02244000 CVTBLDCP EQU CVTS01+140 02245000 CVTAUTHL EQU CVTS01+136 02246000 CVTSCAN EQU CVTS01+132 02247000 CVTRV144 EQU CVTS01+130 02248000 CVTMAXMP EQU CVTS01+128 02249000 CVTSTCK EQU CVTS01+124 02250000 CVTRV139 EQU CVTS01+123 02251000 CVTDSSAC EQU CVTS01+122 02252000 CVTRV513 EQU CVTS01+121 02253000 CVTIOSPL EQU CVTS01+120 02254000 CVTPTGT EQU CVTS01+116 02255000 CVTCSPIE EQU CVTS01+112 02256000 CVTSMFEX EQU CVTS01+108 02257000 CVTOLT0A EQU CVTS01+104 02258000 CVTSRBRT EQU CVTS01+100 02259000 CVTPUTL EQU CVTS01+96 02260000 CVTASCRL EQU CVTS01+92 02261000 CVTASCRF EQU CVTS01+88 02262000 CVTRV326 EQU CVTS01+84 02263000 CVTRV325 EQU CVTS01+80 02264000 CVTRV324 EQU CVTS01+76 02265000 CVT0VL01 EQU CVTS01+72 02266000 CVTSHRVM EQU CVTS01+68 02267000 CVTRV332 EQU CVTS01+64 02268000 CVTTAS EQU CVTS01+60 02269000 CVTRSCN EQU CVTS01+56 02270000 CVTTRAC2 EQU CVTS01+54 02271000 CVTTRACE EQU CVTS01+52 02272000 CVTAPG EQU CVTS01+51 02273000 CVTSDTRC EQU CVTCTLFG 02274000 CVTGTRCE EQU CVTCTLFG 02275000 CVTNOMP EQU CVTCTLFG 02276000 CVTRSV79 EQU CVTCTLFG 02277000 CVTDSTAT EQU CVTCTLFG 02278000 CVTRSV78 EQU CVTCTLFG 02279000 CVTRV333 EQU CVTCTLFG 02280000 CVTRV323 EQU CVTCTLFG 02281000 CVTSPVLK EQU CVTS01+49 02282000 CVTRSV77 EQU CVTS01+48 02283000 CVTRV331 EQU CVTS01+44 02284000 CVTRV330 EQU CVTS01+40 02285000 CVTRV329 EQU CVTS01+36 02286000 CVTRV328 EQU CVTS01+32 02287000 CVTRV322 EQU CVTS01+28 02288000 CVTSLID EQU CVTSLIDA+1 02289000 CVTSYLK EQU CVTSLIDA 02290000 CVTRV321 EQU CVTS01+20 02291000 CVTRV320 EQU CVTS01+16 02292000 CVTLPDIR EQU CVTLPDIA+1 02293000 CVTRSV69 EQU CVTDIRST 02294000 CVTRSV68 EQU CVTDIRST 02295000 CVTRSV67 EQU CVTDIRST 02296000 CVTRSV66 EQU CVTDIRST 02297000 CVTRSV65 EQU CVTDIRST 02298000 CVTRSV64 EQU CVTDIRST 02299000 CVTRSV63 EQU CVTDIRST 02300000 CVTDICOM EQU CVTDIRST 02301000 CVTPVTP EQU CVTS01+8 02302000 CVTLPDSR EQU CVTS01+4 02303000 CVTGETL EQU CVTS01 02304000 JSCBEND3 EQU JSCBSEC3+120 02305000 JSCRSV52 EQU JSCBSEC3+116 02306000 JSCRSV51 EQU JSCRSV47+1 02307000 JSCRSV50 EQU JSCRSV47 02308000 JSCRSV49 EQU JSCRSV46+1 02309000 JSCRSV48 EQU JSCRSV46 02310000 JSCRSV44 EQU JSCBSEC3+108 02311000 JSCRSV43 EQU JSCBSEC3+104 02312000 JSCRSV42 EQU JSCBSEC3+100 02313000 JSCBASWA EQU JSCBSEC3+96 02314000 JSCBUFPT EQU JSCBSEC3+92 02315000 JSCBACT EQU JSCBSEC3+88 02316000 JSCBSWSP EQU JSCBSEC3+87 02317000 JSCRSV33 EQU JSCBSEC3+86 02318000 JSCDDNUM EQU JSCBSEC3+84 02319000 JSCRSV53 EQU JSCBSEC3+82 02320000 JSCDDNNO EQU JSCBSEC3+80 02321000 JSCBVATA EQU JSCBSEC3+76 02322000 JSCTMCOR EQU JSCBSEC3+72 02323000 JSCSCTP EQU JSCSCT+1 02324000 JSCRSV55 EQU JSCSCT 02325000 JSCRSV54 EQU JSCBSEC3+64 02326000 JSCDSABQ EQU JSCBSEC3+60 02327000 JSCBSSIB EQU JSCBSEC3+56 02328000 JSCBFRBA EQU JSCBSEC3+48 02329000 JSCRSV28 EQU JSCBSEC3+46 02330000 JSCBSONO EQU JSCBSEC3+44 02331000 JSCBSUBA EQU JSCBSUB+1 02332000 JSCRSV31 EQU JSCBSUB 02333000 JSCBSMLR EQU JSCBSEC3+36 02334000 JSCBJNLR EQU JSCBSEC3+32 02335000 JSCBJNLA EQU JSCBJNL+1 02336000 JSCBJSBT EQU JSCBJJSB 02337000 JSCBJSBX EQU JSCBJJSB 02338000 JSCBJSBA EQU JSCBJJSB 02339000 JSCBJSBI EQU JSCBJJSB 02340000 @NM00052 EQU JSCBJJSB 02341000 JSCBJNLE EQU JSCBJJSB 02342000 JSCBJNLF EQU JSCBJJSB 02343000 JSCBJNLN EQU JSCBJJSB 02344000 @NM00051 EQU JSCBSEC3+24 02345000 JSCBJRBA EQU JSCBSEC3+16 02346000 JSCBIECB EQU JSCBSEC3+12 02347000 JSCBRV08 EQU JSCBSEC3+11 02348000 JSCBRV07 EQU JSCBFBYT 02349000 JSCBRV06 EQU JSCBFBYT 02350000 JSCBRV05 EQU JSCBFBYT 02351000 JSCBRV04 EQU JSCBFBYT 02352000 JSCBRV03 EQU JSCBFBYT 02353000 JSCBRV02 EQU JSCBFBYT 02354000 JSCBADSP EQU JSCBFBYT 02355000 JSCBRV01 EQU JSCBFBYT 02356000 JSCBTJID EQU JSCBASID 02357000 JSCBPSCB EQU JSCBSEC3+4 02358000 JSCJCTP EQU JSCBJCTA 02359000 JSCRSV24 EQU JSCBJCT 02360000 JSCBEND2 EQU JSCBSEC2 02361000 TIOUCBP EQU TIOEDEVE+1 02362000 TIOVERF EQU TIOSTTB 02363000 TIOUNLD EQU TIOSTTB 02364000 TIOMNTD EQU TIOSTTB 02365000 TIOSETU EQU TIOSTTB 02366000 TIOVLSR EQU TIOSTTB 02367000 TIOPVIO EQU TIOSTTB 02368000 TIOREQD EQU TIOSTTB 02369000 TIOUSED EQU TIOSTTB 02370000 TIOTFEND EQU POOLSTAR+16 02371000 TIOPSLOT EQU POOLSTAR+13 02372000 TIOPSTTB EQU POOLSTAR+12 02373000 TIOPPOOL EQU POOLSTAR+4 02374000 TIOPNSRT EQU POOLSTAR+3 02375000 @NM00048 EQU POOLSTAR+2 02376000 TIOPNSLT EQU POOLSTAR+1 02377000 @NM00047 EQU POOLSTAR 02378000 TIOEFSRT EQU TIOENTRY+17 02379000 TIOSVERF EQU TIOESTTB 02380000 TIOSUNLD EQU TIOESTTB 02381000 TIOSMNTD EQU TIOESTTB 02382000 TIOSSETU EQU TIOESTTB 02383000 TIOSVLSR EQU TIOESTTB 02384000 TIOSPVIO EQU TIOESTTB 02385000 TIOSREQD EQU TIOESTTB 02386000 TIOSUSED EQU TIOESTTB 02387000 TIOSBALS EQU TIOESTTC 02388000 TIOSBALP EQU TIOESTTC 02389000 TIOSVOLS EQU TIOESTTC 02390000 TIOSVOLP EQU TIOESTTC 02391000 TIOSAFFS EQU TIOESTTC 02392000 TIOSAFFP EQU TIOESTTC 02393000 TIOSDEFR EQU TIOESTTC 02394000 TIOSDKCR EQU TIOESTTC 02395000 TIOEJFCB EQU TIOENTRY+12 02396000 TIOEDDNM EQU TIOENTRY+4 02397000 TIOTREM EQU TIOELINK 02398000 TIOESSDS EQU TIOESYOT 02399000 TIOESYIN EQU TIOELINK 02400000 TIOEQNAM EQU TIOELINK 02401000 TIOEDYNM EQU TIOELINK 02402000 TIOTTERM EQU TIOELINK 02403000 TIOTRV01 EQU TIOELINK 02404000 TIOSYOUT EQU TIOELINK 02405000 TIOEWTCT EQU TIOERLOC 02406000 TIOSDSP2 EQU TIOESTTA 02407000 TIOSDSP1 EQU TIOESTTA 02408000 TIOSLABL EQU TIOESTTA 02409000 TIOSDADS EQU TIOESTTA 02410000 TIOSJBLB EQU TIOESTTA 02411000 TIOSPLTS EQU TIOESTTA 02412000 TIOSPLTP EQU TIOESTTA 02413000 TIOSLTYP EQU TIOESTTA 02414000 TIOELNGH EQU TIOENTRY 02415000 PLHBMSV5 EQU PLHEXTEN+24 02416000 PLHBMSV4 EQU PLHEXTEN+20 02417000 PLHBMSV3 EQU PLHEXTEN+16 02418000 PLHBMSV2 EQU PLHEXTEN+12 02419000 PLHBMSV1 EQU PLHEXTEN+8 02420000 PLHRDCNT EQU PLHEXTEN+6 02421000 PLHBMSOV EQU PLHBMWRK 02422000 PLHBEUC EQU PLHBMWRK 02423000 PLHBMRDF EQU PLHBMWRK 02424000 @NM00020 EQU PLHEXTEN+4 02425000 PLHRESR1 EQU PLHEXTEN 02426000 VSRTCSLN EQU VSRTCSL+5 02427000 VSRTCSSP EQU VSRTCSL+4 02428000 VSRTCSAD EQU VSRTCSL+1 02429000 VSRTCSBH EQU VSRTCSLF 02430000 VSRTCSIO EQU VSRTCSLF 02431000 VSRTCSPL EQU VSRTCSLF 02432000 VSRTCSWS EQU VSRTCSLF 02433000 VSRTCSVG EQU VSRTCSPF 02434000 VSRTCSK7 EQU VSRTCSBF 02435000 VSRTCSVS EQU VSRTCSLF 02436000 VSRTCSFX EQU VSRTCSLF 02437000 VSRTASCB EQU IDAVSRT+36 02438000 VSRTVIOT EQU IDAVSRT+32 02439000 VSRTWAH EQU IDAVSRT+28 02440000 VSRTCPAH EQU IDAVSRT+24 02441000 VSRTBUFH EQU IDAVSRT+20 02442000 VSRTPLHH EQU IDAVSRT+16 02443000 VSRTSTRN EQU IDAVSRT+15 02444000 VSRTKL EQU IDAVSRT+14 02445000 @NM00095 EQU VSRTFLGS 02446000 VSRTBFRF EQU VSRTFLGS 02447000 VSRTIOBF EQU VSRTFLGS 02448000 VSRTLSRF EQU VSRTFLGS 02449000 VSRTGSRF EQU VSRTFLGS 02450000 VSRTEOV EQU IDAVSRT+8 02451000 VSRTID EQU IDAVSRT+4 02452000 VSRTLEN EQU IDAVSRT+2 02453000 @NM00094 EQU IDAVSRT+1 02454000 VSRTBKID EQU IDAVSRT 02455000 RPLSAVE2 EQU IDARPLE+24 02456000 RPLSAVE EQU IDARPLE+20 02457000 @NM00093 EQU IDARPLE+17 02458000 RPLIITSB EQU IDARPLE+16 02459000 RPLRPLPT EQU IDARPLE+12 02460000 RPLIIBFR EQU IDARPLE+8 02461000 RPLDECB EQU IDARPLE+4 02462000 RPLIICB EQU IDARPLE 02463000 WAXXXXX3 EQU IDAWAX+40 02464000 WAXSRAL EQU IDAWAX+36 02465000 WAXSRAA EQU IDAWAX+32 02466000 WAXBPLH EQU IDAWAX+28 02467000 WAXEPTR EQU IDAWAX+24 02468000 WAXXPTR EQU IDAWAX+20 02469000 WAXRCDA EQU IDAWAX+16 02470000 WAXURPL EQU IDAWAX+12 02471000 WAXIRPL EQU IDAWAX+8 02472000 WAXXXXX2 EQU IDAWAX+6 02473000 WAXPL EQU IDAWAX+4 02474000 WAXLEN EQU IDAWAX+2 02475000 WAXNOADV EQU WAXFLG1 02476000 WAXPS EQU WAXFLG1 02477000 WAXPUG EQU WAXFLG1 02478000 WAXSRAB EQU WAXFLG1 02479000 WAXID EQU IDAWAX 02480000 IMWKEY1 EQU IDAIMWA+76 02481000 @NM00092 EQU IDAIMWA+72 02482000 IMWNSOFF EQU IDAIMWA+70 02483000 IMWCIMVN EQU IDAIMWA+68 02484000 @NM00091 EQU IDAIMWA+67 02485000 IMWSVIEL EQU IDAIMWA+66 02486000 IMWIEL EQU IDAIMWA+65 02487000 IMWFGAIN EQU IDAIMWA+64 02488000 IMWBUFP EQU IDAIMWA+60 02489000 IMWLBUFC EQU IDAIMWA+56 02490000 IMWIPTR EQU IDAIMWA+52 02491000 IMWXPTR EQU IDAIMWA+48 02492000 IMWIKEYP EQU IDAIMWA+44 02493000 IMWXKEYP EQU IDAIMWA+40 02494000 IMWISWKA EQU IDAIMWA+8 02495000 IMWIXSP EQU IDAIMWA+4 02496000 IMWLEN EQU IDAIMWA+2 02497000 IMWBSE EQU IMWFLAGS 02498000 IMWRIPL EQU IMWFLAGS 02499000 IMWNEWHL EQU IMWFLAGS 02500000 IMWID EQU IDAIMWA 02501000 BSPH1ST EQU IDABSPH+60 02502000 BSPHUBTM EQU IDABSPH+56 02503000 BSPHUTOP EQU IDABSPH+52 02504000 BSPHNUIW EQU IDABSPH+48 02505000 BSPHUIW EQU IDABSPH+44 02506000 BSPHFND EQU IDABSPH+40 02507000 BSPHRDS EQU IDABSPH+36 02508000 BSPHCPLH EQU IDABSPH+32 02509000 BSPHPSUC EQU BSPHCSRC+2 02510000 @NM00090 EQU BSPHCSRC+1 02511000 BSPHPCUC EQU BSPHFLG2 02512000 BSPHAPRT EQU BSPHFLG2 02513000 BSPHBSZ EQU IDABSPH+24 02514000 BSPHMDBT EQU IDABSPH+20 02515000 BSPHBUFC EQU IDABSPH+16 02516000 BSPHERCT EQU IDABSPH+14 02517000 BSPHBFNO EQU IDABSPH+12 02518000 BSPHNBSP EQU IDABSPH+8 02519000 BSPHNM EQU IDABSPH+4 02520000 BSPHLEN EQU IDABSPH+2 02521000 BSPHBFRF EQU BSPHFLG1 02522000 BSPHIOBF EQU BSPHFLG1 02523000 BSPHID EQU IDABSPH 02524000 CPACCWTC EQU CPACCW+24 02525000 CPACCWSI EQU CPACCW+16 02526000 CPACCWSS EQU CPACCW+8 02527000 CPACCWSK EQU CPACCW 02528000 CPACPCHN EQU IDACPA+92 02529000 CPANXT1 EQU IDACPA+88 02530000 CPAWSECT EQU IDACPA+87 02531000 CPARSECT EQU IDACPA+86 02532000 CPATKOFL EQU CPAFLAG2 02533000 CPAPFENT EQU CPAFLAG2 02534000 CPAXLRA EQU CPAFLAG2 02535000 CPARREPL EQU CPAFLAG2 02536000 CPAWREPL EQU CPAFLAG2 02537000 @NM00089 EQU CPAFLAG1 02538000 CPACHNED EQU CPAFLAG1 02539000 CPARRPS EQU CPAFLAG1 02540000 CPAWRPS EQU CPAFLAG1 02541000 CPARV EQU CPAFLAG1 02542000 CPAWCV EQU CPAFLAG1 02543000 CPAWV EQU CPAFLAG1 02544000 CPAVPLV EQU CPASTAT1 02545000 CPASSECT EQU IDACPA+82 02546000 CPABCINV EQU IDACPA+80 02547000 CPABLKSZ EQU IDACPA+76 02548000 CPAWORK2 EQU IDACPA+72 02549000 CPAWORK1 EQU IDACPA+68 02550000 CPAVPL EQU IDACPA+64 02551000 CPAIDAL EQU IDACPA+60 02552000 @NM00088 EQU CPARPHAD+7 02553000 CPARSID EQU CPARSEEK+2 02554000 CPARBB EQU CPARSEEK 02555000 @NM00087 EQU CPARPHAD 02556000 CPAFWCNT EQU IDACPA+48 02557000 CPAWSID EQU IDACPA+44 02558000 CPAWPHR EQU CPAWPHAD+7 02559000 CPAWCHR EQU CPAWSEEK+2 02560000 CPAWBB EQU CPAWSEEK 02561000 @NM00086 EQU CPAWPHAD 02562000 CPARCPE EQU IDACPA+32 02563000 CPARCPS EQU IDACPA+28 02564000 CPARREAL EQU IDACPA+24 02565000 CPAWCKE EQU IDACPA+20 02566000 CPAWCKS EQU IDACPA+16 02567000 CPAWCPE EQU IDACPA+12 02568000 CPAWCPS EQU IDACPA+8 02569000 CPAWREAL EQU IDACPA+4 02570000 CPALEN EQU IDACPA+2 02571000 @NM00085 EQU IDACPA+1 02572000 CPAID EQU IDACPA 02573000 ARDKEYS EQU IDAARDB+29 02574000 @NM00084 EQU ARDPRF 02575000 ARDPRFMT EQU ARDPRF 02576000 ARDPRSS EQU ARDPRF 02577000 ARDRELNO EQU IDAARDB+26 02578000 ARDVOLSR EQU IDAARDB+20 02579000 ARDERBA EQU IDAARDB+16 02580000 ARDHRBA EQU IDAARDB+12 02581000 ARDHKRBA EQU IDAARDB+8 02582000 ARDNPTR EQU IDAARDB+4 02583000 ARDLEN EQU IDAARDB+2 02584000 ARDUSED EQU ARDTYPE 02585000 ARDEOD EQU ARDTYPE 02586000 ARDUOVFL EQU ARDTYPE 02587000 ARDSS EQU ARDTYPE 02588000 ARDHLI EQU ARDTYPE 02589000 ARDKR EQU ARDTYPE 02590000 ARDID EQU IDAARDB 02591000 LPMBSST EQU IDALPMB+28 02592000 LPMBEXT EQU IDALPMB+24 02593000 @NM00083 EQU IDALPMB+22 02594000 LPMBLKTR EQU IDALPMB+20 02595000 LPMTPC EQU IDALPMB+18 02596000 LPMTRKAU EQU IDALPMB+16 02597000 LPMBLKSZ EQU IDALPMB+12 02598000 LPMBPTRK EQU IDALPMB+8 02599000 LPMAUSZ EQU IDALPMB+4 02600000 LPMBLEN EQU IDALPMB+2 02601000 @NM00082 EQU LPMBFLGS 02602000 LPMBSSTH EQU LPMBFLGS 02603000 LPMBTOFL EQU LPMBFLGS 02604000 LPMSS EQU LPMBFLGS 02605000 LPMREPL EQU LPMBFLGS 02606000 LPMBRPS EQU LPMBFLGS 02607000 LPMBID EQU IDALPMB 02608000 EDBTKBAL EQU IDAEDB+20 02609000 EDBHIRBA EQU IDAEDB+16 02610000 EDBLORBA EQU IDAEDB+12 02611000 EDBSTTRK EQU IDAEDB+8 02612000 EDBLPMBA EQU IDAEDB+4 02613000 EDBM EQU IDAEDB+3 02614000 @NM00081 EQU EDBFLG1 02615000 EDBPSDS EQU EDBFLG1 02616000 EDBTOFLW EQU EDBFLG1 02617000 EDBLKR EQU EDBFLG1 02618000 @NM00080 EQU IDAEDB 02619000 EDBLPMBC EQU IDAEDBHD+4 02620000 EDBLEN EQU IDAEDBHD+2 02621000 EDBNO EQU IDAEDBHD+1 02622000 EDBID EQU IDAEDBHD 02623000 ICWKEY1 EQU IDAICWA+60 02624000 ICWCERP EQU IDAICWA+59 02625000 ICWCEL EQU IDAICWA+58 02626000 ICWCEF EQU IDAICWA+57 02627000 ICWCER EQU IDAICWA+56 02628000 ICWPTL EQU IDAICWA+55 02629000 ICWREQ EQU IDAICWA+54 02630000 ICWCRSEG EQU IDAICWA+52 02631000 ICWNOSEG EQU IDAICWA+50 02632000 ICWNEST EQU IDAICWA+48 02633000 ICWKEY3L EQU IDAICWA+46 02634000 ICWKEY2L EQU IDAICWA+44 02635000 ICWKEY1L EQU IDAICWA+42 02636000 ICWLN EQU IDAICWA+40 02637000 ICWARDBP EQU IDAICWA+36 02638000 ICWTPTR EQU IDAICWA+32 02639000 ICWTBASE EQU IDAICWA+28 02640000 ICWADD EQU IDAICWA+24 02641000 ICWSCNT EQU IDAICWA+22 02642000 ICWPSEO EQU IDAICWA+20 02643000 ICWPRBA EQU IDAICWA+16 02644000 ICWCRBA EQU IDAICWA+12 02645000 ICWBUFC EQU IDAICWA+8 02646000 ICWCHN EQU IDAICWA+4 02647000 ICWLEN EQU IDAICWA+2 02648000 ICWENDRQ EQU ICWFLG1 02649000 ICWSPLIT EQU ICWFLG1 02650000 ICWKRDS EQU ICWFLG1 02651000 ICWVNE EQU ICWFLG1 02652000 ICWVSE EQU ICWFLG1 02653000 ICWRBAOK EQU ICWFLG1 02654000 ICWWAGM EQU ICWFLG1 02655000 ICWWNF EQU ICWFLG1 02656000 ICWID EQU IDAICWA 02657000 CBSVPTR EQU CBSVSRT+4 02658000 CBSVUSE EQU CBSVSRT 02659000 CBSCRTCB EQU AMCBS+28 02660000 CBSCRACA EQU AMCBS+24 02661000 CBSCAXCN EQU AMCBS+20 02662000 CBSMCUCB EQU CBSCMP 02663000 CBSCBP EQU AMCBS+12 02664000 CBSACB EQU AMCBS+8 02665000 CBSMCSTA EQU AMCBS+4 02666000 CBSSIZ EQU AMCBS+2 02667000 CBSID EQU AMCBS 02668000 HEBNBYTE EQU HEBHDREL+16 02669000 HEBELCHN EQU HEBHDREL+12 02670000 HEBAVSP EQU HEBHDREL+9 02671000 HEBRTFLG EQU HEBFLAGS 02672000 HEBIOSUP EQU HEBFLAGS 02673000 HEBKEY7 EQU HEBFLAGS 02674000 HEBKEY5 EQU HEBFLAGS 02675000 HEBJSTCB EQU HEBFLAGS 02676000 HEBBLKPT EQU HEBFREMN+4 02677000 HEBLN EQU HEBFREMN+1 02678000 HEBSP EQU HEBFREMN 02679000 HEBHDELS EQU IDAHEB+12 02680000 HEBCNT EQU IDAHEB+10 02681000 @NM00079 EQU IDAHEB+8 02682000 HEBNHEB EQU IDAHEB+4 02683000 HEBLEN EQU IDAHEB+2 02684000 @NM00078 EQU IDAHEB+1 02685000 HEBID EQU IDAHEB 02686000 IIGMLEN EQU IIGMSPLG+1 02687000 IIGMPOOL EQU IIGMSPLG 02688000 IIGMADDR EQU IIGMNTRY 02689000 AUDCLM EQU AUDCSPLM+1 02690000 AUDCSPM EQU AUDCSPLM 02691000 AUDCMSGA EQU IIGMAUD+24 02692000 AUDCLB EQU AUDCSPLB+1 02693000 AUDCSPB EQU AUDCSPLB 02694000 AUDCBFRS EQU IIGMAUD+16 02695000 AUDCLD EQU AUDCSPLD+1 02696000 AUDCSPD EQU AUDCSPLD 02697000 AUDCDEB EQU IIGMAUD+8 02698000 AUDCLI EQU AUDCSPLI+1 02699000 AUDCSPI EQU AUDCSPLI 02700000 AUDCIICB EQU IIGMAUD 02701000 @NM00077 EQU IIAUDFL2 02702000 AUDDEBXF EQU IIAUDFL2 02703000 AUDBFRRT EQU IIAUDFL2 02704000 AUDBFREX EQU IIAUDFL2 02705000 AUDACBRC EQU IIAUDFL2 02706000 AUDACBCL EQU IIAUDFL2 02707000 AUDIIFBF EQU IIAUDFL2 02708000 AUDURSYN EQU IIAUDFL1 02709000 AUDIISYN EQU IIAUDFL1 02710000 AUDPRMOD EQU IIAUDFL1 02711000 AUDDCBRT EQU IIAUDFL1 02712000 AUDDCBEX EQU IIAUDFL1 02713000 AUDACBRO EQU IIAUDFL1 02714000 AUDACBOP EQU IIAUDFL1 02715000 @NM00076 EQU IIREGSAV+12 02716000 IIREGFC EQU IIREGSAV+8 02717000 IIREGBC EQU IIREGSAV+4 02718000 @NM00075 EQU IIREGSAV 02719000 IISAMSYN EQU IDAIICB+52 02720000 IISVCLST EQU IDAIICB+48 02721000 IITBUFL EQU IDAIICB+45 02722000 IIBUFNO EQU IDAIICB+44 02723000 IIMSGPTR EQU IDAIICB+40 02724000 IIMSGL EQU IDAIICB+37 02725000 @NM00074 EQU IIFLAG3 02726000 MBFALN EQU IIFLAG3 02727000 IIBUFL EQU IDAIICB+34 02728000 IIKEYSL EQU IDAIICB+32 02729000 IIRPLL EQU IDAIICB+29 02730000 MKEYLE EQU IIFLAG2 02731000 MBUFNO EQU IIFLAG2 02732000 MBUFL EQU IIFLAG2 02733000 MRECFM EQU IIFLAG2 02734000 MOPTCD EQU IIFLAG2 02735000 MBLKSI EQU IIFLAG2 02736000 MLRECL EQU IIFLAG2 02737000 MRKP EQU IIFLAG2 02738000 IIACBL EQU IDAIICB+25 02739000 IIQBFRS EQU IIFLAG1 02740000 @NM00073 EQU IIFLAG1 02741000 IIFTEST EQU IIFLAG1 02742000 IIDATA EQU IIFLAG1 02743000 IIFCLOSE EQU IIFLAG1 02744000 IIFACBCL EQU IIFLAG1 02745000 IIFGET EQU IIFLAG1 02746000 IIFSCAN EQU IIFLAG1 02747000 IIKEYPT EQU IDAIICB+20 02748000 IIMAXLRL EQU IIW1CBF+2 02749000 IISAVLRL EQU IIW1CBF 02750000 IIRPLPTR EQU IDAIICB+12 02751000 IIACBPTR EQU IDAIICB+8 02752000 IIDCBPTR EQU IDAIICB+4 02753000 IICBLEN EQU IDAIICB+2 02754000 @NM00072 EQU IDAIICB+1 02755000 IICBID EQU IDAIICB 02756000 @NM00071 EQU IDADIWA+92 02757000 @NM00070 EQU IDADIWA+88 02758000 @NM00069 EQU IDADIWA+84 02759000 @NM00068 EQU IDADIWA+80 02760000 @NM00067 EQU IDADIWA+76 02761000 @NM00066 EQU IDADIWA+72 02762000 @NM00065 EQU IDADIWA+68 02763000 @NM00064 EQU IDADIWA+64 02764000 @NM00063 EQU IDADIWA+60 02765000 @NM00062 EQU IDADIWA+56 02766000 DIWINRBA EQU IDADIWA+52 02767000 DIWRKCT EQU IDADIWA+48 02768000 DIWSAVE5 EQU DIWSAVE+16 02769000 DIWSAVE4 EQU DIWSAVE+12 02770000 DIWSAVE3 EQU DIWSAVE+8 02771000 DIWSAVE2 EQU DIWSAVE+4 02772000 DIWSAVE1 EQU DIWSAVE 02773000 DIWSPLTP EQU IDADIWA+24 02774000 DIWBUFC EQU IDADIWA+20 02775000 DIWPLH EQU IDADIWA+16 02776000 DIWHRBA EQU IDADIWA+12 02777000 DIWLRBA EQU IDADIWA+8 02778000 @NM00061 EQU IDADIWA+6 02779000 DIWFSPF EQU DIWFLG2 02780000 DIW1ST EQU DIWFLG1 02781000 DIWNOT1 EQU DIWFLG1 02782000 DIWSHIFT EQU DIWFLG1 02783000 DIWGSPC EQU DIWFLG1 02784000 DIWEOKR EQU DIWFLG1 02785000 DIWPFERR EQU DIWFLG1 02786000 DIWCISPL EQU DIWFLG1 02787000 DIWCAS EQU DIWFLG1 02788000 DIWLEN EQU IDADIWA+2 02789000 DIWATV EQU IDADIWA+1 02790000 DIWID EQU IDADIWA 02791000 VATAMBL EQU IDAVAT+28 02792000 VATNAE EQU IDAVAT+24 02793000 @NM00060 EQU IDAVAT+22 02794000 VATENO EQU VATVC+1 02795000 VATVRT EQU VATVC 02796000 VATPAMBL EQU IDAVAT+16 02797000 VATVPTR EQU VATVSRT+4 02798000 VATVUSE EQU VATVSRT 02799000 VATNEXT EQU IDAVAT+4 02800000 VATLEN EQU VATHDR+2 02801000 @NM00059 EQU VATHDR+1 02802000 VATID EQU VATHDR 02803000 UPTBG EQU UPTAXENT+10 02804000 UPTLNCDE EQU UPTAXENT+9 02805000 UPTPASS EQU UPTAXENT+8 02806000 UPTRKP EQU UPTAXENT+6 02807000 UPTF1PUD EQU UPTFLG1+1 02808000 UPTF1PNU EQU UPTFLG1+1 02809000 UPTF1ERA EQU UPTFLG1+1 02810000 UPTF1PHY EQU UPTFLG1+1 02811000 UPTF1LOG EQU UPTFLG1+1 02812000 UPTF1BKO EQU UPTFLG1+1 02813000 UPTF1UPG EQU UPTFLG1 02814000 UPTF1RTY EQU UPTFLG1 02815000 UPTF1KEY EQU UPTFLG1 02816000 UPTF1NRF EQU UPTFLG1 02817000 UPTF1NOP EQU UPTFLG1 02818000 UPTF1NUK EQU UPTFLG1 02819000 UPTF1ATV EQU UPTFLG1 02820000 UPTF1LST EQU UPTFLG1 02821000 UPTF1LOP EQU UPTRPL 02822000 UPTR15 EQU UPTSA+16 02823000 UPTR14 EQU UPTSA+12 02824000 UPTSARES EQU UPTSA+11 02825000 @NM00058 EQU UPTSA+10 02826000 UPTBERCD EQU UPTSA+9 02827000 UPTBEREG EQU UPTSA+8 02828000 UPTLSA EQU UPTSA+4 02829000 UPTBRPL EQU UPTSA 02830000 UPTLLEN EQU IDAUPT+14 02831000 UPTNOENT EQU IDAUPT+13 02832000 UPTRSC EQU IDAUPT+12 02833000 UPTOLD EQU IDAUPT+8 02834000 UPTNEW EQU IDAUPT+4 02835000 UPTLEN EQU UPTHDR+2 02836000 UPTPWS EQU UPTFLG0 02837000 UPTID EQU UPTHDR 02838000 BUFCEND EQU IDABUFC+64 02839000 BUFCUCDN EQU IDABUFC+60 02840000 BUFCUCUP EQU IDABUFC+56 02841000 BUFCMDBT EQU IDABUFC+52 02842000 BUFCHAIN EQU IDABUFC+48 02843000 BUFXORBA EQU IDABUFC+44 02844000 BUFXIRBA EQU IDABUFC+40 02845000 BUFCNXT2 EQU IDABUFC+37 02846000 BUFCIDXL EQU IDABUFC+36 02847000 BUFCDSPC EQU IDABUFC+32 02848000 BUFCWLEN EQU BUFCINV 02849000 BUFCNXT1 EQU IDABUFC+24 02850000 BUFCBAD EQU IDABUFC+20 02851000 BUFCCPA EQU IDABUFC+16 02852000 BUFCORBA EQU IDABUFC+12 02853000 BUFCDDDD EQU IDABUFC+8 02854000 BUFCAMB EQU BUFCPLH 02855000 @NM00057 EQU BUFCFLG2 02856000 BUFCEOD EQU BUFCFLG2 02857000 BUFCBSYW EQU BUFCFLG2 02858000 BUFCBSYR EQU BUFCFLG2 02859000 BUFCNLAS EQU BUFCFLG2 02860000 BUFCXDDR EQU BUFCFLG2 02861000 BUFCFIX EQU BUFCIOFL 02862000 BUFCPFCP EQU BUFCIOFL 02863000 BUFCXEDB EQU BUFCIOFL 02864000 BUFCWC EQU BUFCIOFL 02865000 BUFCREAL EQU BUFCIOFL 02866000 BUFCRRD EQU BUFCIOFL 02867000 BUFCFMT EQU BUFCIOFL 02868000 BUFCMW EQU BUFCIOFL 02869000 BUFCEPT EQU BUFCFLG1 02870000 BUFCEXC EQU BUFCFLG1 02871000 BUFCVAL EQU BUFCFLG1 02872000 BUFCER2 EQU BUFCFLG1 02873000 BUFCER1 EQU BUFCFLG1 02874000 BUFCINS EQU BUFCFLG1 02875000 BUFCSEG EQU BUFCFLG1 02876000 BUFCUPG EQU BUFCFLG1 02877000 BUFCUCNT EQU BUFCAVL 02878000 @NM00056 EQU IDABUFDR+16 02879000 BUFDBUFC EQU IDABUFDR+12 02880000 @NM00055 EQU BUFDRFLG 02881000 BUFDRAVL EQU BUFDRFLG 02882000 BUFDRREL EQU BUFDRFLG 02883000 BUFDRTSB EQU IDABUFDR+10 02884000 BUFDRMAX EQU BUFDRCIX 02885000 BUFDRPFN EQU IDABUFDR+8 02886000 BUFDRPFB EQU IDABUFDR+4 02887000 BUFDRLEN EQU IDABUFDR+2 02888000 BUFDRNO EQU IDABUFDR+1 02889000 BUFDRID EQU IDABUFDR 02890000 CVTLEVL EQU CVTRELNO+2 02891000 CVTNUMB EQU CVTRELNO 02892000 CVTMDL EQU CVTFIX+250 02893000 @NM00054 EQU CVTFIX+248 02894000 @NM00053 EQU CVTFIX 02895000 CVTRV482 EQU CVTXTNT2+128 02896000 CVTRV481 EQU CVTXTNT2+124 02897000 CVTRV480 EQU CVTXTNT2+120 02898000 CVTRV479 EQU CVTXTNT2+118 02899000 CVTRV478 EQU CVTXTNT2+117 02900000 CVTRV477 EQU CVTXTNT2+116 02901000 CVTRV476 EQU CVTXTNT2+115 02902000 CVTRV475 EQU CVTXTNT2+114 02903000 CVTRV474 EQU CVTRV466 02904000 CVTRV473 EQU CVTRV466 02905000 CVTRV472 EQU CVTRV466 02906000 CVTRV471 EQU CVTRV466 02907000 CVTRV470 EQU CVTRV466 02908000 CVTRV469 EQU CVTRV466 02909000 CVTRV468 EQU CVTRV466 02910000 CVTRV467 EQU CVTRV466 02911000 CVTRV465 EQU CVTRV457 02912000 CVTRV464 EQU CVTRV457 02913000 CVTRV463 EQU CVTRV457 02914000 CVTRV462 EQU CVTRV457 02915000 CVTRV461 EQU CVTRV457 02916000 CVTRV460 EQU CVTRV457 02917000 CVTRV459 EQU CVTRV457 02918000 CVTRV458 EQU CVTRV457 02919000 CVTRV456 EQU CVTXTNT2+108 02920000 CVTRV455 EQU CVTXTNT2+104 02921000 CVTRV454 EQU CVTXTNT2+100 02922000 CVTRV453 EQU CVTXTNT2+96 02923000 CVTRV452 EQU CVTXTNT2+94 02924000 CVTRV451 EQU CVTXTNT2+92 02925000 CVTRV450 EQU CVTXTNT2+90 02926000 CVTRV449 EQU CVTXTNT2+88 02927000 CVTRV448 EQU CVTXTNT2+87 02928000 CVTRV447 EQU CVTXTNT2+86 02929000 CVTRV446 EQU CVTRV438 02930000 CVTRV445 EQU CVTRV438 02931000 CVTRV444 EQU CVTRV438 02932000 CVTRV443 EQU CVTRV438 02933000 CVTRV442 EQU CVTRV438 02934000 CVTRV441 EQU CVTRV438 02935000 CVTRV440 EQU CVTRV438 02936000 CVTRV439 EQU CVTRV438 02937000 CVTRV437 EQU CVTRV429 02938000 CVTRV436 EQU CVTRV429 02939000 CVTRV435 EQU CVTRV429 02940000 CVTRV434 EQU CVTRV429 02941000 CVTRV433 EQU CVTRV429 02942000 CVTRV432 EQU CVTRV429 02943000 CVTRV431 EQU CVTRV429 02944000 CVTRV430 EQU CVTRV429 02945000 CVTRV428 EQU CVTXTNT2+80 02946000 CVTRV427 EQU CVTXTNT2+76 02947000 CVTRV426 EQU CVTXTNT2+72 02948000 CVTRV425 EQU CVTXTNT2+68 02949000 CVTATACT EQU CVTATCVT 02950000 CVTRV423 EQU CVTXTNT2+62 02951000 CVTRV422 EQU CVTXTNT2+60 02952000 CVTRV421 EQU CVTXTNT2+58 02953000 CVTRV420 EQU CVTXTNT2+56 02954000 CVTRV419 EQU CVTXTNT2+55 02955000 CVTRV418 EQU CVTXTNT2+54 02956000 CVTRV417 EQU CVTRV409 02957000 CVTRV416 EQU CVTRV409 02958000 CVTRV415 EQU CVTRV409 02959000 CVTRV414 EQU CVTRV409 02960000 CVTRV413 EQU CVTRV409 02961000 CVTRV412 EQU CVTRV409 02962000 CVTRV411 EQU CVTRV409 02963000 CVTRV410 EQU CVTRV409 02964000 CVTRV408 EQU CVTRV400 02965000 CVTRV407 EQU CVTRV400 02966000 CVTRV406 EQU CVTRV400 02967000 CVTRV405 EQU CVTRV400 02968000 CVTRV404 EQU CVTRV400 02969000 CVTRV403 EQU CVTRV400 02970000 CVTRV402 EQU CVTRV400 02971000 CVTRV401 EQU CVTRV400 02972000 CVTICB EQU CVTXTNT2+48 02973000 CVTSKTA EQU CVTXTNT2+44 02974000 CVTCCVT EQU CVTXTNT2+40 02975000 CVTRSV98 EQU CVTXTNT2+36 02976000 CVTRSV97 EQU CVTXTNT2+34 02977000 CVTRSV96 EQU CVTXTNT2+32 02978000 CVTOLTEP EQU CVTXTNT2+28 02979000 CVTQIDA EQU CVTQID+1 02980000 CVTRSV95 EQU CVTQID 02981000 CVTRSV94 EQU CVTXTNT2+20 02982000 CVTRSV93 EQU CVTXTNT2+16 02983000 CVTRSV92 EQU CVTXTNT2+12 02984000 CVTDEBVR EQU CVTXTNT2+8 02985000 CVTRSV91 EQU CVTXTNT2+6 02986000 CVTRSV9H EQU CVTFLGBT 02987000 CVTRSV9G EQU CVTFLGBT 02988000 CVTRSV9F EQU CVTFLGBT 02989000 CVTRSV9E EQU CVTFLGBT 02990000 CVTRSV9D EQU CVTFLGBT 02991000 CVTRSV9C EQU CVTFLGBT 02992000 CVTVME EQU CVTFLGBT 02993000 CVTNPE EQU CVTFLGBT 02994000 CVTNUCLS EQU CVTXTNT2+4 02995000 CVTDSSVA EQU CVTDSSV+1 02996000 CVTRSV89 EQU CVTDSSV 02997000 CVTRSV88 EQU CVTXTNT1+8 02998000 CVTRSV87 EQU CVTXTNT1+4 02999000 CVTFACHN EQU CVTXTNT1 03000000 CVTRV488 EQU CVTMAP+412 03001000 CVTRV487 EQU CVTMAP+408 03002000 CVTRV486 EQU CVTMAP+404 03003000 CVTRV485 EQU CVTMAP+400 03004000 CVTACTAP EQU CVTMAP+396 03005000 CVTAUTH EQU CVTMAP+392 03006000 CVTATMCA EQU CVTATMCT+1 03007000 CVTATMST EQU CVTATMCT 03008000 CVTRSV61 EQU CVTMAP+384 03009000 CVTVOLT1 EQU CVTVOLM1+1 03010000 CVTVOLI1 EQU CVTVOLF1 03011000 CVTSTOA EQU CVTMAP+376 03012000 CVTRSV58 EQU CVTMAP+374 03013000 CVTRSV57 EQU CVTMAP+372 03014000 CVTDDCE EQU CVTMAP+368 03015000 CVTPNWFR EQU CVTMAP+364 03016000 CVTSMF EQU CVTMAP+360 03017000 CVTSULK EQU CVTMAP+358 03018000 CVTSLKO EQU CVTSYSK 03019000 CVTSLKP EQU CVTSYSK 03020000 CVTSLKQ EQU CVTSYSK 03021000 CVTSLKR EQU CVTSYSK 03022000 CVTRSV56 EQU CVTSYSK 03023000 CVTRSV55 EQU CVTSYSK 03024000 CVTRSV54 EQU CVTSYSK 03025000 CVTRSV53 EQU CVTSYSK 03026000 CVTRSV52 EQU CVTA1F1 03027000 CVTRSV51 EQU CVTA1F1 03028000 CVTRSV50 EQU CVTA1F1 03029000 CVTRSV49 EQU CVTA1F1 03030000 CVTRSV48 EQU CVTA1F1 03031000 CVTRSV47 EQU CVTA1F1 03032000 CVTSRSW EQU CVTA1F1 03033000 CVTPFSW EQU CVTA1F1 03034000 CVTPCVT EQU CVTMAP+352 03035000 CVTRSV46 EQU CVTMAP+344 03036000 CVTRSV45 EQU CVTMAP+340 03037000 CVTRSV44 EQU CVTMAP+338 03038000 CVTRSV43 EQU CVTMAP+336 03039000 CVTHJESA EQU CVTHJES+1 03040000 CVTRSV42 EQU CVTHJES 03041000 CVTEXT2A EQU CVTEXT2+1 03042000 CVTRSV41 EQU CVTEXT2 03043000 CVTAPFA EQU CVTAPF+1 03044000 CVTRSV40 EQU CVTAPF 03045000 CVTRV518 EQU CVTINTLA 03046000 CVTRV517 EQU CVTERPV 03047000 CVTEORM EQU CVTMAP+312 03048000 CVTMCHPR EQU CVTMAP+308 03049000 CVTTZ EQU CVTMAP+304 03050000 CVTJEPS EQU CVTMAP+300 03051000 CVTJESCT EQU CVTMAP+296 03052000 CVTMODE EQU CVTMAP+292 03053000 CVTPTRV EQU CVTMAP+288 03054000 CVTREAL EQU CVTMAP+284 03055000 CVTRSV39 EQU CVTMAP+280 03056000 CVTRSV38 EQU CVTMAP+276 03057000 CVTDMSRA EQU CVTDMSR+1 03058000 CVTRV634 EQU CVTDMSRF 03059000 CVTRV633 EQU CVTDMSRF 03060000 CVTRV632 EQU CVTDMSRF 03061000 CVTRV631 EQU CVTDMSRF 03062000 CVTRV630 EQU CVTDMSRF 03063000 CVTRV629 EQU CVTDMSRF 03064000 CVTUDUMP EQU CVTDMSRF 03065000 CVTSDUMP EQU CVTDMSRF 03066000 CVTQMSGA EQU CVTQMSG+1 03067000 CVTRSV36 EQU CVTQMSG 03068000 CVTAMFF EQU CVTMAP+264 03069000 CVTPURGA EQU CVTPURG+1 03070000 CVTRSV35 EQU CVTPURG 03071000 CVTCBSP EQU CVTMAP+256 03072000 CVTATERA EQU CVTATER+1 03073000 CVTSYST EQU CVTATER 03074000 CVTVOLT2 EQU CVTTAT 03075000 CVTVOLI2 EQU CVTVOLF2 03076000 CVTAQAVB EQU CVTAQAVT+1 03077000 CVTRSV34 EQU CVTTCMFG 03078000 CVTRSV33 EQU CVTTCMFG 03079000 CVTRSV32 EQU CVTTCMFG 03080000 CVTRSV31 EQU CVTTCMFG 03081000 CVTRSV30 EQU CVTTCMFG 03082000 CVTRSV29 EQU CVTTCMFG 03083000 CVTRSV28 EQU CVTTCMFG 03084000 CVTTCRDY EQU CVTTCMFG 03085000 CVTGTFA EQU CVTGTF+1 03086000 CVTRSV27 EQU CVTGTFST 03087000 CVTRNIO EQU CVTGTFST 03088000 CVTUSR EQU CVTGTFST 03089000 CVTRV318 EQU CVTFORM 03090000 CVTRV317 EQU CVTTMODE 03091000 CVTRV316 EQU CVTSTATE 03092000 CVTRV315 EQU CVTGTFS 03093000 CVTGTFAV EQU CVTGTFS 03094000 CVT0SCR1 EQU CVTMAP+232 03095000 CVTRV515 EQU CVTMAP+228 03096000 CVTRMS EQU CVTMAP+224 03097000 CVTPATCH EQU CVTMAP+220 03098000 CVTTSCE EQU CVTMAP+216 03099000 CVTLNKSC EQU CVTMAP+214 03100000 CVTQABST EQU CVTMAP+212 03101000 CVTMDLDS EQU CVTMAP+208 03102000 CVTUSER EQU CVTMAP+204 03103000 CVTABEND EQU CVTMAP+200 03104000 CVTSMCA EQU CVTMAP+196 03105000 CVTRSV18 EQU CVTMAP+192 03106000 CVTQLPAQ EQU CVTMAP+188 03107000 CVTQCDSR EQU CVTMAP+184 03108000 CVTRSV17 EQU CVTOPTB 03109000 CVTRSV16 EQU CVTOPTB 03110000 CVTFP EQU CVTOPTB 03111000 CVTAPTHR EQU CVTOPTB 03112000 CVTNLOG EQU CVTOPTB 03113000 CVTTOD EQU CVTOPTB 03114000 CVTCTIMS EQU CVTOPTB 03115000 CVTPROT EQU CVTOPTB 03116000 CVTXPFP EQU CVTOPTA 03117000 CVTASCII EQU CVTOPTA 03118000 CVTRSV13 EQU CVTOPTA 03119000 CVTRSV12 EQU CVTOPTA 03120000 CVTNIP EQU CVTOPTA 03121000 CVTDDR EQU CVTOPTA 03122000 CVTAPR EQU CVTOPTA 03123000 CVTCCH EQU CVTOPTA 03124000 CVTSNCTR EQU CVTMAP+180 03125000 CVTQMWR EQU CVTMAP+176 03126000 CVTQOCR EQU CVTMAP+172 03127000 CVT1EF00 EQU CVTMAP+168 03128000 CVTMZ00 EQU CVTMAP+164 03129000 CVTSV76Q EQU CVTSV76C 03130000 CVTRSV11 EQU CVTMAP+156 03131000 CVT0PT01 EQU CVTMAP+152 03132000 CVTMSER EQU CVTMAP+148 03133000 CVTRV516 EQU CVTIERLC 03134000 CVTILCH EQU CVTMAP+140 03135000 CVT0DS EQU CVTMAP+136 03136000 CVTFBOSV EQU CVTMAP+132 03137000 CVTNUCB EQU CVTMAP+128 03138000 CVTIXAVL EQU CVTMAP+124 03139000 CVTSV76M EQU CVTIOQET 03140000 CVTDCBA EQU CVTMAP+117 03141000 CVTMVS2 EQU CVTDCB 03142000 CVT6DAT EQU CVTDCB 03143000 CVT4MPS EQU CVTDCB 03144000 CVTRSV09 EQU CVTDCB 03145000 CVT4MS1 EQU CVTDCB 03146000 CVT2SPS EQU CVTDCB 03147000 CVT1SSS EQU CVTDCB 03148000 CVTRSV08 EQU CVTDCB 03149000 CVTSTB EQU CVTMAP+112 03150000 CVTQTD00 EQU CVTMAP+108 03151000 CVTQTE00 EQU CVTMAP+104 03152000 CVTCUCB EQU CVTMAP+100 03153000 CVTSJQ EQU CVTMAP+96 03154000 CVTPBLDL EQU CVTMAP+92 03155000 CVTTPC EQU CVTMAP+88 03156000 CVTSVDCB EQU CVTMAP+84 03157000 CVTBRET EQU CVTMAP+82 03158000 CVTEXIT EQU CVTMAP+80 03159000 CVT0FN00 EQU CVTMAP+76 03160000 CVTDARA EQU CVTDAR+1 03161000 CVTRSV07 EQU CVTFLGS1 03162000 CVTRSV06 EQU CVTFLGS1 03163000 CVTRSV05 EQU CVTFLGS1 03164000 CVTRSV04 EQU CVTFLGS1 03165000 CVTRSV03 EQU CVTFLGS1 03166000 CVTRSV02 EQU CVTFLGS1 03167000 CVTRSV01 EQU CVTFLGS1 03168000 CVTDMPLK EQU CVTFLGS1 03169000 CVTXITP EQU CVTMAP+68 03170000 CVTZDTAB EQU CVTMAP+64 03171000 CVTMSLT EQU CVTMAP+60 03172000 CVTDATE EQU CVTMAP+56 03173000 CVTBTERM EQU CVTMAP+52 03174000 CVTSYSAD EQU CVTMAP+48 03175000 CVTXTLER EQU CVTMAP+44 03176000 CVTILK2 EQU CVTMAP+40 03177000 CVTILK1 EQU CVTMAP+36 03178000 CVTPRLTV EQU CVTMAP+32 03179000 CVTPCNVT EQU CVTMAP+28 03180000 CVT0VL00 EQU CVTMAP+24 03181000 CVTXAPG EQU CVTMAP+20 03182000 CVTBUF EQU CVTMAP+16 03183000 CVTJOB EQU CVTMAP+12 03184000 CVTLINK EQU CVTMAP+8 03185000 CVT0EF00 EQU CVTMAP+4 03186000 CVTTCBP EQU CVTMAP 03187000 CVT EQU CVTMAP 03188000 JSCBCSCB EQU JSCBSEC1+68 03189000 JSCBPMG EQU JSCBWTP+2 03190000 JSCBWTSP EQU JSCBWTP+1 03191000 JSCRSV23 EQU JSCBWTFG 03192000 JSCRSV22 EQU JSCBWTFG 03193000 JSCRSV21 EQU JSCBWTFG 03194000 JSCRSV20 EQU JSCBWTFG 03195000 JSCRSV19 EQU JSCBWTFG 03196000 JSCRSV18 EQU JSCBWTFG 03197000 JSCBRET EQU JSCBWTFG 03198000 JSCBIOFG EQU JSCBWTFG 03199000 @NM00050 EQU JSCBSEC1+60 03200000 JSCBQMPI EQU JSCBSEC1+56 03201000 JSCBPMSG EQU JSCBSWT1 03202000 JSCRSV16 EQU JSCBSWT1 03203000 JSCRSV15 EQU JSCBSWT1 03204000 JSCRSV14 EQU JSCBSWT1 03205000 JSCRSV13 EQU JSCBSWT1 03206000 JSCRSV12 EQU JSCBSWT1 03207000 JSCRSV11 EQU JSCBSWT1 03208000 JSCBPASS EQU JSCBSWT1 03209000 JSCBTTTR EQU JSCBSEC1+52 03210000 JSCRSV10 EQU JSCBSEC1+49 03211000 JSCBAUTH EQU JSCBOPTS 03212000 JSCSIOTS EQU JSCBOPTS 03213000 JSCRSV08 EQU JSCBOPTS 03214000 JSCRSV07 EQU JSCBOPTS 03215000 JSCRSV06 EQU JSCBOPTS 03216000 JSCBLONG EQU JSCBOPTS 03217000 JSCRSV05 EQU JSCBOPTS 03218000 JSCRSV04 EQU JSCBOPTS 03219000 JSCBSECB EQU JSCBSEC1+44 03220000 JSCRSV03 EQU JSCBSEC1+41 03221000 JSCBSTEP EQU JSCBSEC1+40 03222000 JSCBDCBA EQU JSCBDCB+1 03223000 JSCRSV02 EQU JSCBDCB 03224000 JSCBID EQU JSCBSEC1+32 03225000 JSCBDBTB EQU JSCBSEC1+28 03226000 JSCBIJSC EQU JSCBSEC1+24 03227000 JSCBTCBP EQU JSCBSEC1+20 03228000 JSCBPCC EQU JSCBSEC1+16 03229000 JSCBTCP EQU JSCBSEC1+12 03230000 JSCBSHR EQU JSCBSEC1+8 03231000 JSCHPCEA EQU JSCHPCE+1 03232000 JSCRSV32 EQU JSCHPCE 03233000 JSCRSV01 EQU JSCBSEC1 03234000 @NM00049 EQU IEZJSCB 03235000 TIOCSTEP EQU TIOT1+8 03236000 TIOCNJOB EQU TIOT1 03237000 BIBVSRTP EQU IDABIB+104 03238000 BIBASCB EQU IDABIB+100 03239000 BIBDDNM EQU IDABIB+92 03240000 BIBSTPNM EQU IDABIB+84 03241000 BIBJOBNM EQU IDABIB+76 03242000 BIBSIOAP EQU BIBRTNS+12 03243000 BIBASYRT EQU BIBRTNS+8 03244000 BIBCEAPP EQU BIBRTNS+4 03245000 BIBINTRF EQU BIBRTNS 03246000 BIBVGTT EQU IDABIB+56 03247000 BIBPSAB EQU IDABIB+52 03248000 BIBCSL EQU IDABIB+48 03249000 BIBWSHD EQU IDABIB+44 03250000 BIBVCRT EQU IDABIB+40 03251000 BIBHEBFQ EQU IDABIB+36 03252000 BIBHEBPT EQU IDABIB+32 03253000 BIBPRSPH EQU IDABIB+28 03254000 BIBSPHPT EQU IDABIB+24 03255000 BIBPAMBL EQU IDABIB+20 03256000 BIBDACB EQU IDABIB+16 03257000 BIBVMT EQU IDABIB+12 03258000 BIBUPT EQU IDABIB+8 03259000 @NM00046 EQU IDABIB+5 03260000 BIBFLG2 EQU IDABIB+4 03261000 BIBLEN EQU BIBHDR+2 03262000 @NM00045 EQU BIBFLG1 03263000 BIBCKPT EQU BIBFLG1 03264000 BIBREST EQU BIBFLG1 03265000 BIBVIRT EQU BIBFLG1 03266000 BIBID EQU BIBHDR 03267000 AMDEXCP EQU AMDSTAT+44 03268000 AMDNCAS EQU AMDSTAT+40 03269000 AMDNCIS EQU AMDSTAT+36 03270000 AMDASPA EQU AMDSTAT+32 03271000 AMDRETR EQU AMDSTAT+28 03272000 AMDUPR EQU AMDSTAT+24 03273000 AMDIREC EQU AMDSTAT+20 03274000 AMDDELR EQU AMDSTAT+16 03275000 AMDNLR EQU AMDSTAT+12 03276000 AMDNEXT EQU AMDSTAT+10 03277000 AMDNIL EQU AMDSTAT+8 03278000 AMDSTSP EQU AMDSTAT 03279000 @NM00044 EQU IDAAMDSB+41 03280000 @NM00043 EQU AMDATTR3 03281000 AMDLM EQU AMDATTR3 03282000 AMDWAIT EQU AMDATTR3 03283000 AMDBIND EQU AMDATTR3 03284000 AMDFAULT EQU AMDATTR3 03285000 AMDUNQ EQU AMDATTR3 03286000 AMDPARDB EQU IDAAMDSB+36 03287000 AMDMAXRR EQU AMDSSRBA 03288000 AMDNSLOT EQU AMDHLRBA 03289000 AMDLRECL EQU IDAAMDSB+24 03290000 AMDCINV EQU IDAAMDSB+20 03291000 AMDFSCI EQU IDAAMDSB+16 03292000 AMDFSCA EQU IDAAMDSB+14 03293000 AMDCIPCA EQU IDAAMDSB+12 03294000 AMDPCTCI EQU IDAAMDSB+11 03295000 AMDPCTCA EQU IDAAMDSB+10 03296000 AMDKEYLN EQU IDAAMDSB+8 03297000 AMDRKP EQU IDAAMDSB+6 03298000 AMDAXRKP EQU AMDNEST 03299000 AMDLEN EQU IDAAMDSB+2 03300000 AMDSPAN EQU AMDATTR 03301000 AMDRRDS EQU AMDATTR 03302000 AMDRANGE EQU AMDATTR 03303000 AMDORDER EQU AMDATTR 03304000 AMDREPL EQU AMDATTR 03305000 AMDSDT EQU AMDATTR 03306000 AMDWCK EQU AMDATTR 03307000 AMDDST EQU AMDATTR 03308000 AMDSBID EQU IDAAMDSB 03309000 RPLERMSA EQU RPLCOMN+72 03310000 RPLEMLEN EQU RPLCOMN+70 03311000 RPLACTIV EQU RPLCOMN+69 03312000 RPLBRANC EQU RPLEXTD1 03313000 RPLNIB EQU RPLEXTD1 03314000 @NM00042 EQU RPLEXTD1 03315000 RPLEXIT EQU RPLEXTD1 03316000 RPLNEXIT EQU RPLEXTD1 03317000 RPLEXSCH EQU RPLEXTD1 03318000 RPLDDDD EQU RPLRBAR+4 03319000 @NM00041 EQU RPLRBAR+3 03320000 @NM00040 EQU RPLAIXID 03321000 RPLAXPKP EQU RPLAIXID 03322000 RPLAIXPC EQU RPLRBAR 03323000 RPLRSV88 EQU RPLOPT8 03324000 RPLUNCON EQU RPLOPT8 03325000 RPLACTV EQU RPLOPT8 03326000 RPLSESS EQU RPLOPT8 03327000 RPLPEND EQU RPLOPT8 03328000 RPLODPRM EQU RPLOPT8 03329000 RPLODACP EQU RPLOPT8 03330000 RPLODACQ EQU RPLOPT8 03331000 RPLRSV78 EQU RPLOPT7 03332000 RPLRSV77 EQU RPLOPT7 03333000 RPLRLSOP EQU RPLOPT7 03334000 RPLTPOST EQU RPLOPT7 03335000 RPLQOPT EQU RPLOPT7 03336000 RPLCNIMM EQU RPLCNOPT 03337000 RPLCNANY EQU RPLCNOPT 03338000 RPLCNALL EQU RPLCNOPT 03339000 RPLRSV68 EQU RPLOPT6 03340000 RPLRSV67 EQU RPLOPT6 03341000 RPLLOCK EQU RPLOPT6 03342000 RPLNCOND EQU RPLOPT6 03343000 RPLCOND EQU RPLOPT6 03344000 RPLEOT EQU RPLUNTYP 03345000 RPLEOM EQU RPLUNTYP 03346000 RPLEOB EQU RPLUNTYP 03347000 RPLWROPT EQU RPLOPT5 03348000 RPLNODE EQU RPLOPT5 03349000 RPLERACE EQU RPLWRTYP 03350000 RPLEAU EQU RPLWRTYP 03351000 RPLNERAS EQU RPLWRTYP 03352000 RPLPSOPT EQU RPLOPT5 03353000 RPLSSNIN EQU RPLOPT5 03354000 RPLDLGIN EQU RPLOPT5 03355000 RPLBUFL EQU RPLCOMN+52 03356000 RPLRLEN EQU RPLCOMN+48 03357000 RPLCHAIN EQU RPLNXTRP 03358000 RPLOPT4 EQU RPLOPTCD+3 03359000 RPLALIGN EQU RPLOPT3 03360000 RPLFMT EQU RPLOPT3 03361000 RPLFLD EQU RPLOPT3 03362000 RPLVFY EQU RPLOPT3 03363000 RPLBLK EQU RPLOPT3 03364000 RPLSFORM EQU RPLOPT3 03365000 RPLEODS EQU RPLOPT3 03366000 RPLNSP EQU RPLOPT2 03367000 RPLUPD EQU RPLOPT2 03368000 RPLWAITX EQU RPLOPT2 03369000 RPLLRD EQU RPLOPT2 03370000 RPLBWD EQU RPLOPT2 03371000 RPLCNV EQU RPLOPT2 03372000 RPLADD EQU RPLADR 03373000 RPLKEY EQU RPLOPT2 03374000 RPLECBIN EQU RPLECBSW 03375000 RPLGEN EQU RPLOPT1 03376000 RPLKGE EQU RPLOPT1 03377000 RPLASY EQU RPLOPT1 03378000 RPLSKP EQU RPLOPT1 03379000 RPLSEQ EQU RPLOPT1 03380000 RPLDIR EQU RPLOPT1 03381000 RPLLOC EQU RPLOPT1 03382000 RPLDAF EQU RPLARG+2 03383000 RPLSAF EQU RPLARG 03384000 RPLAREA EQU RPLCOMN+32 03385000 RPLTCBPT EQU RPLCOMN+28 03386000 RPLDACB EQU RPLCOMN+24 03387000 RPLCCHAR EQU RPLCOMN+20 03388000 RPLSTRID EQU RPLCOMN+18 03389000 RPLKEYL EQU RPLKEYLE 03390000 RPLRDSOH EQU RPLFDB3 03391000 RPLRLG EQU RPLFDB3 03392000 RPLLGFRC EQU RPLFDB3 03393000 RPLREOT EQU RPLFDB3 03394000 RPLREOM EQU RPLFDB3 03395000 RPLREOB EQU RPLFDB3 03396000 RPLSV32 EQU RPLFDB3 03397000 RPLUINPT EQU RPLFDB3 03398000 RPLSTSAV EQU RPLFDB2 03399000 RPLCUERR EQU RPLFDB2 03400000 RPLDLGFL EQU RPLFDB2 03401000 RPLIOERR EQU RPLFDB2 03402000 RPLDVUNS EQU RPLFDB2 03403000 RPLATND EQU RPLFDB2 03404000 RPLRVID EQU RPLFDB2 03405000 RPLERLK EQU RPLFDB2 03406000 RPLERREG EQU RPLRTNCD 03407000 RPLSTAT EQU RPLFDBWD 03408000 RPLPOST EQU RPLECB 03409000 RPLWAIT EQU RPLECB 03410000 RPLPLHPT EQU RPLCOMN+4 03411000 RPLLEN2 EQU RPLLEN 03412000 RPLREQ EQU RPLIDWD+2 03413000 RPLSTYP EQU RPLIDWD+1 03414000 RPLID EQU RPLIDWD 03415000 AMBLCMB EQU IDAAMBL+64 03416000 AMBLBIB EQU IDAAMBL+60 03417000 AMBLIX EQU IDAAMBL+56 03418000 AMBLDTA EQU IDAAMBL+52 03419000 AMBLMIDS EQU IDAAMBL+42 03420000 AMBLNIDS EQU IDAAMBL+41 03421000 @NM00039 EQU IDAAMBL+40 03422000 AMBLNUM EQU IDAAMBL+38 03423000 AMBLNST EQU IDAAMBL+37 03424000 @NM00038 EQU AMBLFLG2 03425000 AMBLSTAG EQU AMBLFLG2 03426000 @NM00037 EQU AMBLFLG2 03427000 AMBLDUMY EQU AMBLFLG1 03428000 AMBLCAT EQU AMBLFLG1 03429000 AMBLUCRA EQU AMBLFLG1 03430000 AMBLSCRA EQU AMBLFLG1 03431000 AMBLVVIC EQU AMBLFLG1 03432000 AMBLUPD EQU AMBLFLG1 03433000 AMBLCINV EQU AMBLFLG1 03434000 AMBLFULL EQU AMBLFLG1 03435000 AMBLLEN EQU IDAAMBL+34 03436000 @NM00036 EQU AMBLSHAR 03437000 AMBLWRIT EQU AMBLSHAR 03438000 AMBLCATO EQU AMBLSHAR 03439000 AMBLPRIM EQU AMBLSHAR 03440000 AMBLID EQU IDAAMBL+32 03441000 @NM00035 EQU IDAAMBL+31 03442000 @NM00034 EQU AMBLTYPE 03443000 AMBLFIX EQU AMBLTYPE 03444000 AMBLBASE EQU AMBLTYPE 03445000 AMBLAIX EQU AMBLTYPE 03446000 AMBLUPGR EQU AMBLTYPE 03447000 AMBLPATH EQU AMBLTYPE 03448000 AMBLENO EQU AMBLVC+1 03449000 AMBLVRT EQU AMBLVC 03450000 AMBLXPT EQU IDAAMBL+24 03451000 AMBLDFR EQU AMBLQ 03452000 AMBLESDS EQU AMBLQ 03453000 AMBLKSDS EQU AMBLQ 03454000 AMBLUBF EQU AMBLQ 03455000 AMBLFSTP EQU AMBLQ 03456000 AMBLLSR EQU AMBLQ 03457000 AMBLGSR EQU AMBLQ 03458000 AMBLDDC EQU AMBLQ 03459000 AMBLDCI EQU AMBLIDF+4 03460000 AMBLCACB EQU AMBLIDF 03461000 @NM00033 EQU AMBLEOV+2 03462000 AMBLCOMP EQU AMBLEOV+1 03463000 AMBLESET EQU AMBLEFLG 03464000 AMBLWAIT EQU AMBLEFLG 03465000 AMBLACB EQU IDAAMBL+8 03466000 AMBLSCHN EQU IDAAMBL+4 03467000 AMBLPCHN EQU IDAAMBL 03468000 AMBTRACE EQU IDAAMB+120 03469000 AMBVIOT EQU IDAAMB+116 03470000 AMBSZCP EQU IDAAMB+114 03471000 AMBSZFW EQU IDAAMB+112 03472000 AMBSZWR EQU IDAAMB+110 03473000 AMBSZRD EQU IDAAMB+108 03474000 AMBEXEX EQU IDAAMB+100 03475000 AMBWSHD EQU IDAAMB+96 03476000 AMBCPA EQU IDAAMB+92 03477000 AMBBM2SH EQU IDAAMB+88 03478000 AMBRDCNT EQU AMBCSWD1+2 03479000 @NM00032 EQU AMBCSWD1+1 03480000 @NM00031 EQU AMBAFLG 03481000 AMBCFX EQU AMBAFLG 03482000 AMBSIS EQU AMBAFLG 03483000 AMBDFR EQU AMBAFLG 03484000 AMBICI EQU AMBAFLG 03485000 AMBGSR EQU AMBAFLG 03486000 AMBLSR EQU AMBAFLG 03487000 @NM00030 EQU AMBAFLG 03488000 AMBUPLH EQU IDAAMB+80 03489000 AMBPAMBL EQU IDAAMB+76 03490000 AMBPIXP EQU IDAAMB+72 03491000 @NM00029 EQU IDAAMB+68 03492000 AMBIWA EQU IDAAMB+64 03493000 AMBWKA EQU IDAAMB+60 03494000 AMBAMBXN EQU AMBEOVPT 03495000 AMBEDB EQU IDAAMB+52 03496000 AMBRPT EQU IDAAMB+50 03497000 AMBPUG EQU AMBFLG2 03498000 AMBBUSY EQU AMBOFLGS 03499000 AMBEXFG EQU AMBOFLGS 03500000 @NM00028 EQU AMBOFLGS 03501000 AMBOPEN EQU AMBOFLGS 03502000 @NM00027 EQU AMBOFLGS 03503000 AMBDEBAD EQU AMBDEBPT+1 03504000 AMBIFLGS EQU AMBDEBPT 03505000 AMBAMETH EQU IDAAMB+43 03506000 AMBUPX EQU AMBINFL 03507000 AMBUCRA EQU AMBINFL 03508000 AMBSCRA EQU AMBINFL 03509000 AMBCAT EQU AMBINFL 03510000 @NM00026 EQU AMBINFL 03511000 @NM00025 EQU AMBINFL 03512000 AMBTIOT EQU IDAAMB+40 03513000 @NM00024 EQU IDAAMB+38 03514000 AMBDDSN EQU IDAAMB+35 03515000 AMBCDSN EQU IDAAMB+32 03516000 AMBIOMB EQU AMBIOBAD 03517000 @NM00023 EQU AMBDSORG+1 03518000 AMBDORGA EQU AMBDSORG+1 03519000 @NM00022 EQU AMBDSORG 03520000 AMBINBUF EQU AMBFLG1 03521000 AMBJRN EQU AMBFLG1 03522000 AMBUBF EQU AMBFLG1 03523000 AMBSPEED EQU AMBFLG1 03524000 AMBPCAT EQU AMBFLG1 03525000 AMBMCAT EQU AMBFLG1 03526000 AMBTYPE EQU AMBFLG1 03527000 AMBCREAT EQU AMBFLG1 03528000 @NM00021 EQU AMBFLG0 03529000 AMBPSDS EQU AMBFLG0 03530000 AMBDSB EQU IDAAMB+20 03531000 AMBCACB EQU IDAAMB+16 03532000 AMBPH EQU IDAAMB+12 03533000 AMBBUFC EQU IDAAMB+8 03534000 AMBLINK EQU IDAAMB+4 03535000 AMBLEN EQU IDAAMB+2 03536000 AMBRSC EQU IDAAMB+1 03537000 AMBID EQU IDAAMB 03538000 PLHERRET EQU IDAPLH+276 03539000 PLHASCB EQU IDAPLH+272 03540000 PLHECB EQU IDAPLH+268 03541000 @NM00019 EQU IDAPLH+266 03542000 @NM00018 EQU PLHTMRPL 03543000 PLHTMIOB EQU PLHTMRPL 03544000 PLHTMINX EQU PLHTMRPL 03545000 PLHTMDTA EQU PLHTMRPL 03546000 PLHTMDIW EQU PLHTMRPL 03547000 PLHTMBUF EQU PLHTMRPL 03548000 PLHTERM EQU PLHTMRPL 03549000 PLHDRMSK EQU IDAPLH+264 03550000 PLHR13 EQU IDAPLH+260 03551000 PLHPARM1 EQU IDAPLH+256 03552000 PLHDRRSC EQU IDAPLH+252 03553000 PLHSLRBA EQU IDAPLH+244 03554000 PLHSRCSG EQU IDAPLH+242 03555000 PLHNOSEG EQU IDAPLH+240 03556000 PLHLLOR EQU IDAPLH+236 03557000 PLHXPLH EQU PLHWAX 03558000 @NM00017 EQU PLHIXSPL+8 03559000 PLHIXBFC EQU PLHIXSPL+4 03560000 PLHHIREC EQU PLHSSRBA 03561000 PLHISPLP EQU IDAPLH+196 03562000 PLHRBUFC EQU IDAPLH+192 03563000 PLHIBUFC EQU IDAPLH+188 03564000 PLHNRBA EQU IDAPLH+184 03565000 PLHDDDD EQU PLHEOVPT 03566000 PLHAR14 EQU IDAPLH+176 03567000 @NM00016 EQU IDAPLH+172 03568000 @NM00015 EQU IDAPLH+168 03569000 PLHASAVE EQU IDAPLH+164 03570000 PLHRETOS EQU IDAPLH+118 03571000 PLHCHAIN EQU IDAPLH+112 03572000 PLHAMB EQU IDAPLH+108 03573000 PLHSAVE6 EQU IDAPLH+104 03574000 PLHSAVE5 EQU IDAPLH+100 03575000 PLHSAVE4 EQU IDAPLH+96 03576000 PLHSAVE3 EQU IDAPLH+92 03577000 PLHSAVE2 EQU IDAPLH+88 03578000 PLHSAVE1 EQU IDAPLH+84 03579000 PLHARET EQU IDAPLH+80 03580000 PLHIIOB EQU PLHDIOB 03581000 PLHSRSID EQU IDAPLH+74 03582000 PLHRDFC EQU IDAPLH+72 03583000 PLHRDFP EQU IDAPLH+68 03584000 PLHFSP EQU IDAPLH+64 03585000 PLHRECP EQU IDAPLH+60 03586000 PLHNBUFC EQU IDAPLH+56 03587000 PLHDBUFC EQU IDAPLH+52 03588000 PLHLRECL EQU IDAPLH+48 03589000 PLHARDB EQU IDAPLH+44 03590000 @NM00014 EQU PLHRSCS 03591000 PLHDBPER EQU PLHRSCS 03592000 PLHDSERR EQU PLHRSCS 03593000 PLHASYER EQU PLHRSCS 03594000 @NM00013 EQU PLHRSCS 03595000 PLHBUFHD EQU PLHRSCS 03596000 PLHINEOV EQU PLHRSCS 03597000 PLHEOVR EQU IDAPLH+42 03598000 PLHRCODE EQU IDAPLH+41 03599000 PLHUCODE EQU PLHJCODE 03600000 PLHJNRBA EQU IDAPLH+36 03601000 PLHJRNLL EQU IDAPLH+32 03602000 PLHUPECB EQU PLHJORBA 03603000 PLHDSIDA EQU IDAPLH+24 03604000 PLHCRPL EQU IDAPLH+20 03605000 PLHMRPL EQU IDAPLH+16 03606000 PLHBFRNO EQU IDAPLH+15 03607000 PLHFRCNT EQU IDAPLH+14 03608000 PLHRMIN EQU IDAPLH+13 03609000 PLHDSTYP EQU IDAPLH+12 03610000 PLHACB EQU IDAPLH+8 03611000 PLHRAE EQU PLHAFLGS 03612000 PLHRABWD EQU PLHAFLGS 03613000 PLHIOSID EQU PLHAFLGS 03614000 PLHDBDC EQU PLHAFLGS 03615000 PLHVAMB EQU PLHAFLGS 03616000 PLHIOSRQ EQU PLHAFLGS 03617000 PLHDRLM EQU PLHAFLGS 03618000 PLHEOVDF EQU PLHFLG3 03619000 PLHRVRS EQU PLHFLG3 03620000 PLHBWD EQU PLHFLG3 03621000 PLHSLVLD EQU PLHFLG3 03622000 PLHRAHD EQU PLHFLG3 03623000 PLHSRBSG EQU PLHFLG3 03624000 @NM00012 EQU PLHEFLGS+1 03625000 PLHRSTRT EQU PLHEFLGS+1 03626000 PLHDSCAN EQU PLHEFLGS 03627000 PLHINVAL EQU PLHEFLGS 03628000 PLHEODX EQU PLHEFLGS 03629000 PLHNOADV EQU PLHEFLGS 03630000 PLHSRINV EQU PLHEFLGS 03631000 PLHSKPER EQU PLHEFLGS 03632000 PLH1ST EQU PLHEFLGS 03633000 PLHNOSPC EQU PLHEFLGS 03634000 PLHIWAIT EQU PLHFLG2 03635000 PLHSVADV EQU PLHFLG2 03636000 PLHCIINS EQU PLHFLG2 03637000 PLHKRE EQU PLHFLG2 03638000 PLHADDTE EQU PLHFLG2 03639000 PLHKEYMD EQU PLHFLG2 03640000 PLHSQINS EQU PLHFLG2 03641000 PLHUPD EQU PLHFLG2 03642000 @NM00011 EQU PLHFLG1 03643000 PLHDRPND EQU PLHFLG1 03644000 PLHASYRQ EQU PLHFLG1 03645000 PLHRDEXC EQU PLHFLG1 03646000 PLHSSR EQU PLHFLG1 03647000 PLHASKBF EQU PLHFLG1 03648000 PLHENDRQ EQU PLHFLG1 03649000 PLHEOVW EQU PLHFLG1 03650000 PLHATV EQU IDAPLH+1 03651000 PLHAVL EQU IDAPLH 03652000 PLHIOSDQ EQU IDAPLHDR+12 03653000 PLHDRCUR EQU IDAPLHDR+10 03654000 PLHDRMAX EQU IDAPLHDR+8 03655000 PLHDRREQ EQU IDAPLHDR+4 03656000 PLHELTH EQU IDAPLHDR+2 03657000 PLHCNT EQU IDAPLHDR+1 03658000 PLHID EQU IDAPLHDR 03659000 ACBAPID EQU ACBCOMN+72 03660000 ACBCBMWA EQU ACBCOMN+68 03661000 ACBUAPTR EQU ACBCOMN+64 03662000 ACBLRECL EQU ACBCOMN+62 03663000 ACBMSGLN EQU ACBBLKSZ 03664000 ACBBUFSP EQU ACBCOMN+56 03665000 @NM00010 EQU ACBUJFCB+1 03666000 ACBOPTN EQU ACBUJFCB 03667000 ACBVVIC EQU ACBINFLG 03668000 ACBUCRA EQU ACBINFLG 03669000 ACBSCRA EQU ACBINFLG 03670000 ACBCAT EQU ACBINFLG 03671000 ACBIJRQE EQU ACBINFLG 03672000 ACBJEPS EQU ACBINFLG 03673000 @NM00009 EQU ACBINFLG 03674000 ACBERFLG EQU ACBCOMN+49 03675000 ACBBUSY EQU ACBIOSFG 03676000 ACBLOCK EQU ACBEXFG 03677000 @NM00008 EQU ACBOFLGS 03678000 ACBDSERR EQU ACBOFLGS 03679000 ACBOPEN EQU ACBOFLGS 03680000 ACBEOV EQU ACBOFLGS 03681000 @NM00007 EQU ACBOFLGS 03682000 ACBDEB EQU ACBDDNM+5 03683000 ACBERFL EQU ACBDDNM+4 03684000 ACBAM EQU ACBAMETH 03685000 ACBINFL EQU ACBDDNM+2 03686000 ACBTIOT EQU ACBDDNM 03687000 ACBUEL EQU ACBEXLST 03688000 ACBPASSW EQU ACBCOMN+32 03689000 ACBMSGAR EQU ACBCOMN+28 03690000 @NM00006 EQU ACBDSORG+1 03691000 ACBDORGA EQU ACBDSORG+1 03692000 @NM00005 EQU ACBDSORG 03693000 ACBCRNRE EQU ACBCROPS 03694000 ACBCRNCK EQU ACBCROPS 03695000 ACBASA EQU ACBCCTYP 03696000 @NM00004 EQU ACBCCTYP 03697000 ACBRECAF EQU ACBRECFM 03698000 ACBJBUF EQU ACBBUFPL+2 03699000 ACBMACR4 EQU ACBBUFPL+1 03700000 @NM00003 EQU ACBMACR3 03701000 ACBNCFX EQU ACBMACR3 03702000 ACBSIS EQU ACBMACR3 03703000 ACBDFR EQU ACBMACR3 03704000 ACBICI EQU ACBMACR3 03705000 ACBGSR EQU ACBMACR3 03706000 ACBLSR EQU ACBMACR3 03707000 @NM00002 EQU ACBMACR3 03708000 ACBBUFNI EQU ACBCOMN+18 03709000 ACBBUFND EQU ACBCOMN+16 03710000 ACBSTRNO EQU ACBCOMN+15 03711000 ACBBSTNO EQU ACBCOMN+14 03712000 ACBAIX EQU ACBMACR2 03713000 ACBDSN EQU ACBMACR2 03714000 ACBRST EQU ACBMACR2 03715000 ACBLOGON EQU ACBMACR2 03716000 ACBSKP EQU ACBMACR2 03717000 @NM00001 EQU ACBMACR2 03718000 ACBUBF EQU ACBMACR1 03719000 ACBOUT EQU ACBMACR1 03720000 ACBIN EQU ACBMACR1 03721000 ACBDIR EQU ACBMACR1 03722000 ACBSEQ EQU ACBMACR1 03723000 ACBBLK EQU ACBCNV 03724000 ACBADD EQU ACBADR 03725000 ACBKEY EQU ACBMACR1 03726000 ACBINRTN EQU ACBCOMN+8 03727000 ACBIBCT EQU ACBJWA 03728000 ACBLEN2 EQU ACBLENG2 03729000 ACBSTYP EQU ACBCOMN+1 03730000 ACBID EQU ACBCOMN 03731000 * END UNREFERENCED COMPONENTS 03732000 @ENDDATA EQU * 03733000 END IDA019ST,(C'PLS1836',0701,78209) 03734000