TITLE 'IDA019SU (IDATRACE) *00001000 ' 00002000 RBPRFXLN EQU 64 00003000 RBPRFLNA EQU 32 00004000 PRBLEN EQU 136 00005000 SIRBLEN EQU 200 00006000 TIRBLEN EQU 136 00007000 IRBLEN EQU 128 00008000 SVRBLEN EQU 200 00009000 JSCBDISP EQU 188 00010000 JSCBAOS1 EQU 72 00011000 JSCBAOS2 EQU 192 00012000 * /* 00013000 R0 EQU 0 00014000 R1 EQU 1 00015000 R2 EQU 2 00016000 R3 EQU 3 00017000 R4 EQU 4 00018000 R5 EQU 5 00019000 R6 EQU 6 00020000 R7 EQU 7 00021000 R8 EQU 8 00022000 R9 EQU 9 00023000 R10 EQU 10 00024000 R11 EQU 11 00025000 R12 EQU 12 1ST BASE REG 00026000 R13 EQU 13 WORK AREA 00027000 R14 EQU 14 00028000 R15 EQU 15 00029000 RAMB EQU R3 00030000 USING PHASE1,R12,R11 00031000 USING IDATRACE,R13 00032000 EJECT 00033000 ***************************************************** 00034000 IDA019SU CSECT 00035000 PHASE1 STM R0,R15,PRTSAVE SAVE REGS IN WORKAREA 00036000 LR R12,R15 00037000 LA R11,2048(R12) 00038000 LA R11,2048(R11) 00039000 B PROLOG 00040000 DS 0F 00041000 DC C'IDA019SU' 00042000 DC C'&SYSDATE' 00043000 PROLOG LA R3,EXIT NEED TO SET EXIT REG 00044000 LR R14,R3 00045000 CH R8,=X'0005' VALID FUNCTION CODE? 00046000 BH EXIT NO, EXIT 00047000 SLL R8,2 CODE X 4 00048000 B BRTABLE(R8) BRANCH TO BRANCH TABLE 00049000 BRTABLE B PRINT FC=0 00050000 B PARMPMT FC=1 00051000 B INITIAL FC=2 00052000 B RESET FC=3 00053000 B PUT FC=4 00054000 B ABEND FC=5 00055000 EXIT LM R0,R15,PRTSAVE 00056000 BR R14 RETURN TO IDA019ST 00057000 SPACE 3 00058000 ********************************************************************** 00059000 * THE FOLLOWING CODE PROMPTS FOR THE VARIOUS INPUT PARAMETERS. THE * 00060000 * AMOUNT OF PROMPTING DONE IS DEPENDENT ON THE FIRST PARAMETER GIVEN.* 00061000 ********************************************************************** 00062000 SPACE 1 00063000 PARMPMT TM FLAG1,PARMS WAS INITAL DONE ONCE? 00064000 BO PARMPMT1 YES, DON'T INITIALIZE THE WTOR LIST 00065000 MVI ROUTCDE+2,X'40' INITIAL WTOR PARM LIST 00066000 MVI ROUTCDE+3,X'20' 00067000 MVI REPLYLYL,X'B0' SET REPLY LENGTH 00068000 LA R5,REPLY@ 00069000 STCM R5,7,REPLYIN SET REPLY INPUT AREA 00070000 LA R5,ECB@ 00071000 ST R5,RELYECB SET REPLY ECB ADDRESS 00072000 MVI MSGLNG+2,X'80' 00073000 L R5,CVTPTR(R0) GET CVT ADDRESS 00074000 L R5,CVTTCBP(R5) GET TCB WORDS 00075000 L R5,0(0,R5) GET TCB ADDRESS 00076000 L R5,TCBTIO(R5) GET TIOT ADDRESS 00077000 MVC JOBNAME(8),TIOCNJOB(R5) GET JOB NAME 00078000 MVC STEPNAME(8),TIOCSTEP(R5) GET STEP NAME 00079000 L RAMB,AMBIN GET ADDRESS OF THE AMB 00080000 AH R5,AMBTIOT(,RAMB) POINT TO CLUSTERS DDNAME 00081000 MVC DDNAME(8),4(R5) GET DDNAME TO BE USED IN MESSAGES 00082000 PARMPMT1 XC FLAG1(10),FLAG1 CLEAR OUT THE INPUT PARMS. 00083000 LA R1,PARMPRMT 00084000 BAL R14,PROMPT GET THE PARM LIST. 00085000 CLI REPLY@+10,X'00' WAS REPLY TO LONG? 00086000 BNE BADPARM YES, TRY IT AGAIN 00087000 OI FLAG1,PARMS 00088000 CLC END(3),REPLY@ DOES USER WISH TO STOP TRACE? 00089000 BNE PARMPMT2 NO, CONTINUE 00090000 OI FLAG1,STOP 00091000 B RESET SEE IF DCB NEEDS TO BE CLOSED 00092000 PARMPMT2 CLC FECNT,REPLY@ IS THIS COUNT ONLY 00093000 BNE PARMPMT3 00094000 OI FLAG1,COUNTOLY COUNT ONLY FLAG 00095000 LA R0,COUNT TELL USER WHERE THE COUNT FIELD IS. 00096000 BAL R14,CONVERT 00097000 XC DLLLINE,DLLLINE 00098000 MVC DLLLINE(44),COUNTMSG 00099000 MVC DLLLINE+35(8),UNPACK 00100000 LA R1,DLLLINE 00101000 OI STATUS,WTOR NO REPLY NEEDED 00102000 BAL R14,PROMPT 00103000 B TRACENUM 00104000 BADPARM NI FLAG1,X'FF'-PARMS 00105000 BADDD LA R1,BADMSG ISSUING IDA031I TO DO RESTART 00106000 OI STATUS,WTOR DO NOT WANT A WAIT FOR REPLY 00107000 BAL R14,PROMPT 00108000 TM FLAG0,NODDNAME WAS THE BAD INPUT FROM DDANME? 00109000 BO GETDD YES, RETURN TO DDNAME PROMPT 00110000 B PARMPMT NO, REDO THE PARM PROMPT 00111000 PARMPMT3 BAL R14,PACKER 00112000 CLI REPLY@,X'FE' 00113000 BE TRACENUM INPUT OK. 00114000 CLI REPLY@,X'FA' ADDRESS ONLY? 00115000 BNE BADPARM NO, BAD INPUT. TRY AGAIN 00116000 NI REPLY@+4,X'FF'-(REGX+COUNTX) NO REGS OR COUNT WITH 'FA' 00117000 OI FLAG1,ADDRONLY WANTS JUST ADDRESS 00118000 L R7,COUNT SUBTRACT THIS CALL FROM THE COUNT 00119000 BCTR R7,R0 00120000 ST R7,COUNT 00121000 TRACENUM MVC FLAG2(4),REPLY@+1 SAVE THE PARMS 00122000 TM FLAG2,DATACB+INDEXCB 00123000 BNZ TRACE@01 IF REPLY DIDN'T ASK FOR EITHER DATA- 00124000 OI FLAG2,DATACB+INDEXCB OR INDEX CB'S, GIVE HIM BOTH 00125000 TRACE@01 LA R1,WHEREMSG FIND TRACE NUMBER TO USE 00126000 BAL R14,PROMPT 00127000 LA R9,REPLY@ FOLLOWING CODE STRIPS COMMAS AND 00128000 LA R8,HOLDREGS - PADS HOOK NUMBERS TO TWO CHARACTERS 00129000 SR R7,R7 00130000 STRIP1 IC R7,0(,R9) GET FIRST BYTE OF INPUT 00131000 STC R7,0(,R8) STORE IT IN INPUT BUILD AREA 00132000 LA R9,1(R9) 00133000 CLI 0(R9),X'6B' IS INPUT A COMMA? 00134000 BE ADDF0 YES, ADD THE X'F0' 00135000 CLI 0(R9),X'00' IS IT BLANK? 00136000 BNE STRIP3 MUST ADD F0 IF BLANK 00137000 ADDF0 MVI 0(R8),X'F0' PUT IN PAD CHARACTER 00138000 LA R8,1(R8) 00139000 STC R7,0(,R8) STORE FIRST BYTE OF SET 00140000 CLI 0(R9),X'00' LAST BYTE? 00141000 BE STRIP5 YES, FINISHED PACKING 00142000 LA R9,1(R9) UP THE INPUT LOCATION 00143000 STRIP2 LA R8,1(R8) UP THE OUTPUT LOCATION 00144000 LA R10,REPLY@+10 00145000 CR R9,R10 ARE WE FINISHED? 00146000 BL STRIP1 NO, DO NEXT SET 00147000 B STRIP5 00148000 STRIP3 IC R7,0(,R9) NO PADDING WAS NEEDED, STORE NEXT 00149000 LA R8,1(R8) - CHARACTER IN OUTPUT 00150000 STC R7,0(R8) 00151000 STRIP4 LA R9,1(R9) POINT TO NEXT INPUT CHARACTER 00152000 CLI 0(R9),X'6B' IS IT A COMMA? 00153000 BNE STRIP2 NO, GO PROCESS IT. 00154000 B STRIP4 TRY NEXT INPUT CHARACTER 00155000 STRIP5 XC REPLY@,REPLY@ 00156000 MVC REPLY@(8),HOLDREGS SAVE EDITED INPUT 00157000 BAL R14,PACKER 00158000 MVC HOOK,REPLY@ 00159000 TM FLAG1,COUNTOLY 00160000 BO EXIT 00161000 AIXPMT TM FLAG5,AIXX WANT AIX RE-PROMPT? 00162000 BZ ERRORPMT NO, CONTINUE 00163000 LA R1,AIXPARM 00164000 BAL R14,PROMPT GO GET AIX LIST 00165000 BAL R14,PACKER 00166000 MVC AIXIN(4),REPLY@+1 SAVE PARM LIST 00167000 CLI REPLY@,X'FE' WAS A VALID PARM LIST GOTTEN? 00168000 BE ERRORPMT YES, CONTINUE. 00169000 CLI REPLY@,X'FA' 00170000 BNE BADPARM NO, REPROMPT 00171000 ERRORPMT TM FLAG5,ERRCDPMT WANT ERROR CODE PROMPT? 00172000 BZ CNTPMT 00173000 LA R1,ERRPRMT 00174000 BAL R14,PROMPT PROMPT FOR ERROR CODE 00175000 OI FLAG1,RMERRCD 00176000 CLI REPLY@,X'C1' WAS REPLY 'ANY'? 00177000 BE CNTPMT YES,DON'T STORE IT. 00178000 BAL R14,PACKER 00179000 MVC FLAG6,REPLY@ SAVE ERROR CODE 00180000 CNTPMT TM FLAG5,COUNTX WANT COUNT VALUES SET? 00181000 BZ EXIT NO, RETURN 00182000 LA R1,CNTPRMTS 00183000 BAL R14,PROMPT GET START VALUE 00184000 BAL R14,PACKER 00185000 BAL R14,PACKSHFT RIGHT JUSTIFY INPUT 00186000 MVC COUNTS,REPLY@ SAVE START VALUE 00187000 LA R1,CNTPRMTE 00188000 BAL R14,PROMPT GET END COUNT VALUE 00189000 BAL R14,PACKER 00190000 BAL R14,PACKSHFT RIGHT JUSTIFY INPUT 00191000 MVC COUNTE,REPLY@ SAVE END COUNT VALUE 00192000 OI FLAG1,COUNTING 00193000 B EXIT PROMPT FINSHED, RETURN TO CALLER. 00194000 EJECT 00195000 ********************************************************************** 00196000 * PACKER TAKES THE DATA IN 'REPLY' AND CONVERTS THE 8 BYTES OF * 00197000 * EBCDIC TO 4 BYTES OF HEX. FOR INSTANCE, X'C6C5F1F2F3F4F5F6' IN * 00198000 * REPLY WOULD BECOME X'FE12345600000000' IN REPLY. * 00199000 ********************************************************************** 00200000 SPACE 00201000 PACKER LA R7,REPLY@ START ADDRESS 00202000 SR R8,R8 00203000 LA R6,10 LOOP COUNT 00204000 PACKERL TM 0(R7),X'FF' IS THIS BYTE BLANK? 00205000 BZ PACKERE YES, DON'T TRANSLATE 00206000 TM 0(R7),X'30' IS BYTE NUMERIC? 00207000 BO PACKERN 00208000 NI 0(R7),X'0F' STRIP OFF ALPA ZONE 00209000 TR 0(1,R7),TABLE2 00210000 B PACKERE-4 00211000 PACKERN NI 0(R7),X'0F' JUST STRIP ZONE OFF FOR NUMERIC 00212000 LA R8,4(R8) COUNT OF HALF BYTES PROCESSED 00213000 PACKERE LA R7,1(R7) NEXT BYTE 00214000 BCT R6,PACKERL 00215000 MVI REPLY@+11,X'FF' 00216000 PACK REPLY@(11),REPLY@(11) 00217000 MVC REPLY@(8),REPLY@+2 00218000 LM R0,R1,REPLY@ 00219000 STH R8,INLENGTH 00220000 XC REPLY@,REPLY@ 00221000 SLDL R0,24(R0) SHIFT OUT THE UNUSED BYTES 00222000 STM R0,R1,REPLY@ 00223000 BR R14 00224000 PACKSHFT LA R8,32 32 BITS IN A WORD 00225000 SH R8,INLENGTH MINIS LENGTH OF INPUT 00226000 L R0,REPLY@ GET INPUT 00227000 SRL R0,0(R8) SHIFT OUT UNUSED BYTES 00228000 ST R0,REPLY@ 00229000 BR R14 RETURN TO CALLER 00230000 TABLE2 DC X'000A0B0C0D0E0F' 00231000 EJECT 00232000 ********************************************************************** 00233000 * REG1 POINTS TO A MESSAGE WHICH THIS ROUTINE WILL WRITE TO THE * 00234000 * OPERATOR (WTOR). AFTER THE WAIT IS POSTED, 'REPLY' CONTAINS THE * 00235000 * INPUTED DATA. * 00236000 ********************************************************************** 00237000 SPACE 00238000 PROMPT LA R7,MESSAGES R7 WILL POINT TO CURRENT MSG AREA 00239000 XC REPLY@,REPLY@ CLEAR THE REPLY AREA 00240000 XC MESSAGES,MESSAGES CLEAR THE MESSAGE AREA 00241000 MVC MESSAGES(7),2(R1) MOVE IN MESSAGE ID 00242000 MVC MESSAGES+8(8),JOBNAME MOVE IN JOB NAME 00243000 LA R7,15(R7) CURRENT INSERT POINT IN MSG 00244000 JOBMSG CLI 0(R7),X'40' IS THIS A BLANK? 00245000 BNE STEPMSG1 NO, GO MOVE IN STEP NAME 00246000 BCT R7,JOBMSG YES, BACK UP 1 AND TRY AGAIN 00247000 STEPMSG1 MVI 1(R7),C',' A COMMA 00248000 MVC 2(8,R7),STEPNAME MOVE IN THE JOB STEP NAME 00249000 LA R7,9(R7) NEXT MSG INSERT POINT 00250000 STEPMSG2 CLI 0(R7),X'40' IS THIS A BLANK? 00251000 BNE DDMSG1 00252000 BCT R7,STEPMSG2 BACK UP AND TRY NEXT 00253000 DDMSG1 MVI 1(R7),C',' SET THE COMMA 00254000 MVC 2(8,R7),DDNAME MOVE IN THE DDNAME 00255000 LA R7,9(R7) POINT TO CURRENT INSERT POINT 00256000 DDMSG2 CLI 0(R7),X'40' IS IT BLANK? 00257000 BNE PROMPT2 NO, GO FINISH BUILDING THE MSG 00258000 BCT R7,DDMSG2 BACK UP AND TRY AGAIN 00259000 PROMPT2 LH R6,0(R1) R6 HAS MSG LENGTH WITHOUT NAMES 00260000 SH R6,=X'0008' 00261000 EX R6,MOVEMSG MOVE IN REMAINDING PART OF MSG 00262000 AR R7,R6 R7 POINT TO END OF MSG 00263000 LA R6,MESSAGES-1 00264000 SR R7,R6 R7 NOW HAS MESSAGE LENGTH 00265000 LA R6,4(R7) LENGTH INCLUDES ROUTE CODE 00266000 STH R6,MSGLNG WTOR PARM LIST NEEDS IT 00267000 L R6,ROUTCDE 00268000 ST R6,MESSAGES(R7) PUT ROUTE CODE AT END OF MSG 00269000 LA R1,REPLYMSG R1 HAS WTO PARM LIST 00270000 LA R6,REPLY@ 00271000 STCM R6,7,REPLYIN 00272000 XC ECB@,ECB@ 00273000 TM STATUS,WTOR WAIT WTOR OR WTO 00274000 BZ PROMPT3 WANTS WTOR 00275000 LA R1,MSGLNG 00276000 PROMPT3 SVC 35 WTO SVC 00277000 TM STATUS,WTOR IS A WAIT NEEDED? 00278000 BZ PROMPT4 00279000 NI STATUS,X'FF'-WTOR 00280000 BR R14 00281000 PROMPT4 WAIT 1,ECB=ECB@ 00282000 CLI REPLY@,X'00' ANYTHING ENTERED? 00283000 BE BADPARM NO, RESTART 00284000 CLI REPLY@,C'*' ASTRISTIC IS BAD 00285000 BE BADPARM 00286000 BR R14 RETURN TO PROMPT CALLER 00287000 MOVEMSG MVC 1(0,R7),10(R1) USED TO MOVE LAST PART OF IDA MSG 00288000 EJECT 00289000 ********************************************************************** 00290000 * THIS ROUTINE DETERMINES IF THE ERROR MESSAGE NEEDS TO BE ISSUED * 00291000 * BECAUSE OF SOME ERROR CONDITION. ERROR CODES 2 AND 3 ARE SET BY * 00292000 * IDA019ST AND USE THIS ROUTINE (ABEND) TO ISSUE THE MESSAGE. * 00293000 ********************************************************************** 00294000 SPACE 00295000 WRTERR LA R1,X'F1' EC=1, BSAM WRITE ERROR 00296000 LA R9,RESET 00297000 B ABEND 00298000 OPENFAIL LA R1,X'F5' EC=5, OPEN ERROR 00299000 B ABEND 00300000 CLOSERR LA R1,X'F6' EC=6, CLOSE ERROR 00301000 MVI TRACE+48,X'00' MAKE SURE WE DON'T TRY CLOSE AGAIN 00302000 ABEND XC DLLLINE,DLLLINE CLEAR OUTPUT AREA 00303000 MVC DLLLINE(55),ERRORML MOVE IN ERROR MESSAGE 00304000 STCM R1,1,DLLLINE+24 ADD ERROR CODE 00305000 LA R1,DLLLINE 00306000 BAL R14,PROMPT 00307000 CLI REPLY@,C'E' WANT TO STOP IDATRACE? 00308000 BE ABEND2 YES, DON'T ABEND 00309000 ABEND 888,DUMP 00310000 ABEND2 CLI DLLLINE+24,X'F1' WAS THIS A WRITE ERROR? 00311000 BNE ABEND3 00312000 OI FLAG1,STOP SET FOR EARLY OUT. 00313000 B CLOSE GO CLOSE THE DATA SET. 00314000 ABEND3 TM FLAG1,STOP HAVE WE ALREADY TRIED A CLEAN UP? 00315000 BO EXIT YES, GETOUT. 00316000 OI FLAG1,STOP TERMINATE TRACE 00317000 B RESET ATTEMPT A RESET. 00318000 SPACE 3 00319000 *********************************************************************** 00320000 * CONVERT ROUTINE UNPACK S THE DATA IN REG0 AND STORES IN THE FIELD * 00321000 * UNPACK. * 00322000 *********************************************************************** 00323000 SPACE 00324000 CONVERT ST R0,UNPACK 00325000 UNPK UNPACK(9),UNPACK(5) 00326000 TR UNPACK(8),TABLE-240 00327000 BR R14 RETURN TO CALLER 00328000 SPACE 3 00329000 EJECT 00330000 ********************************************************************** 00331000 * RESET FLUSHES THE BUFFERS, AND THEN CLOSES THE DCB. RETURN TO * 00332000 * ABEND 4 IF STOP IS ON. OTHERWISE, CALLS PARMPMT TO GET NEW PARM * 00333000 * LIST. * 00334000 ********************************************************************** 00335000 SPACE 00336000 RESET TM TRACE+48,X'10' IS DCB OPEN? 00337000 BZ RESETOUT NO, NOTHING TO FLUSH OR CLOSE 00338000 NI FLAG5,X'FF'-PAPSAVE FORCE SPACES 00339000 XC MESSAGES,MESSAGES CLEAR THE OUTPUT AREA 00340000 LA R2,3 00341000 BAL R3,PUT WRITE OUT 3 BLANKS 00342000 MVC HEADER+1(122),STARS 00343000 MVC HEADER+31(12),TERMMSG PUT IN TERMTATION MESSAGE 00344000 LA R2,21 ENOUGHT SPACES TO FORCE THE 00345000 L R4,CURREC+4 GET CDECBT ENTRY 00346000 BAL R3,PUT WRITE LAST BUFFER 00347000 L R1,0(R4) R1= ADDRESS OF LAST WRITTEN DECB 00348000 LA R0,1(R0) CLEAR HIGH ORDER BYTE FOR WAIT 00349000 SVC 1 WAIT FOR LAST BUFFER 00350000 CLOSE L R10,R14IN GET POINTER TO HOOK NUMBER 00351000 TM FLAG1,STOP WAS STOP REQUESTED? 00352000 BZ RESETOUT NO, DON'T CLOSE THE TRACE DATA SET. 00353000 CLI 1(R10),X'00' WAS CALLER IDA0200T? (VSAM CLOSE) 00354000 BNE CLOSE1 NO, PSW KEY IS OK. 00355000 L R10,CVTPTR(R0) GET CVT ADDRESS 00356000 L R10,CVTTCBP(R10) GET TCB WORDS ADDRESS 00357000 L R10,0(R10) ADDRESS OF THE TCB 00358000 L R10,TCBRBP(R10) ADDRESS OF MY SVRB 00359000 SR R9,R9 00360000 IC R9,RBOPSW+1(R10) GET THE CURRENT PSW KEY 00361000 SR R10,R10 00362000 IC R10,PSWKEY GET THE USERS KEY 00363000 SPKA 0(R10) SET THE KEY 00364000 CLOSE1 LA R1,OPENLST R1 = ADDRESS OF CLOSE PARM LIST 00365000 LA R3,TRACE GET DCB ADDRESS 00366000 ST R3,0(R1) STORE DCB ADDRESS 00367000 MVI 0(R1),X'B0' CLOSE OPTIONS (LEAVE) 00368000 SVC 20 00369000 LTR R15,R15 CLOSE GO OK? 00370000 BNZ CLOSERR NO, GIVE ERROR MSG 00371000 L R10,R14IN GET THE HOOK POINTER 00372000 CLI 1(R10),X'00' CALLER IDA0200T? 00373000 BNE RESETOUT 00374000 SPKA 0(R9) 00375000 RESETOUT NI FLAG0,X'00' CLEAR THE CONTROL FLAGS 00376000 NI FLAG1,STOP DON'T TURN OFF THE STOP FLAG 00377000 XC FLAG2(ECB@-FLAG2),FLAG2 CLEAR OUT THE FLAGS 00378000 NI STATUS,X'00' 00379000 TM FLAG1,STOP HAS END BEEN REQUESTED? 00380000 BZ PARMPMT NO, GO RE-PROMPT 00381000 B EXIT YES, RETURN TO CALLER 00382000 EJECT 00383000 ********************************************************************** 00384000 * INITIAL INITIALIZES THE DCB, DECB'S AND OPENS THE OUTPUT DATA SET. * 00385000 ********************************************************************** 00386000 SPACE 1 00387000 INITIAL C R13,OLDSAVE INITIALIZE ONLY IF NOT IRB CALL 00388000 BNE EXIT 00389000 MVC ZEROLINE(PATCH-ZERODUMY),ZERODUMY 00390000 LA R9,DECB0 R9=1ST DECB ADDRESS 00391000 LA R8,DECB@0 R8=DECB TABLE ADDRESS 00392000 LA R7,TRACE R7=DCB ADDRESS 00393000 LA R6,BUFFER0 R6=1ST OUTPUT BUFFER ADDRESS 00394000 LA R5,20 R5=COUNT OF DECB'S TO BE BUILT 00395000 ST R6,CURREC CURRENT RECORD POINTER 00396000 ST R8,CURDECBT CURRENT DECB TABLE ENTRY 00397000 DECBLOOP MVC 0(20,R9),DECB MOVE IN COPY OF A REAL DECB 00398000 MVI 0(R9),X'7F' SET DECB TO POSTED STATUS 00399000 ST R7,8(R9) FILL IN DCB ADDRESS 00400000 ST R6,12(R9) FILL IN BUFFER ADDRESS 00401000 ST R9,0(R8) FILL IN DECB TABLE 00402000 LA R9,20(R9) NEXT DECB 00403000 LA R8,4(R8) NEXT DECB TABLE 00404000 LA R6,2660(R6) NEXT BUFFER ADDRESS 00405000 BCT R5,DECBLOOP 00406000 GETDD LA R1,DDPMT 00407000 BAL R14,PROMPT GET OUTPUT DATA SET'S DDNAME 00408000 LA R6,8 PAD INPUT WITH X'40'S 00409000 LA R7,REPLY@ 00410000 GETDDLOP CLI 0(R7),X'00' IS PADDING NEEDED 00411000 BNE GETDD@1 NO, SKIP PAD CHARACTER 00412000 MVI 0(R7),X'40' 00413000 GETDD@1 LA R7,1(R7) 00414000 BCT R6,GETDDLOP 00415000 OI FLAG0,NODDNAME SET FOR POSSIABLE ERROR 00416000 CKDDNAME L R5,16(0,0) GET CVT ADDRESS 00417000 L R5,0(0,R5) GET TCB WORDS 00418000 L R5,0(0,R5) GET TCB ADDRESS 00419000 L R5,12(0,R5) GET TIOT ADDRESS 00420000 LA R5,28(R5) POINT TO FIRST DDNAME 00421000 CKDDLOOP CLC 0(8,R5),REPLY@ SEE IF GIVEN DDNAME EXIST 00422000 BE DCBBLD GOOD, CONTINUE 00423000 CLI 0(R5),X'00' IS IT BLANK? 00424000 BE BADDD YES, FOUND NO MATCH, ERROR 00425000 LA R5,20(R5) POINT TO NEXT TIOT ENTRY 00426000 B CKDDLOOP 00427000 DCBBLD NI FLAG0,X'FF'-NODDNAME 00428000 MVC TRACE(DCBEND-DCB),DCB COPY OF DCB 00429000 MVC TRACE+40(8),REPLY@ FILL IN DDNAME 00430000 * OPEN TRACE,(OUTPUT) 00431000 LA R7,TRACE 00432000 ST R7,OPENLST SET DCB POINTER 00433000 LA R1,OPENLST POINT TO THE OPEN PARM LIST 00434000 MVI OPENLST,X'8F' OPTION BYTE 00435000 SVC 19 00436000 TM TRACE+48,X'10' DID IT OPEN? 00437000 BZ OPENFAIL NO, ERROR 00438000 L R10,CVTPTR(R0) GET CVT ADDRESS 00439000 L R10,CVTTCBP(R10) GET TCB WORDS ADDRESS 00440000 L R10,0(R10) GET TCB ADDRESS 00441000 L R10,TCBRBP(R10) GET CURRENT RB ADDRESS 00442000 IC R9,RBOPSW+1(R10) GET MY PSW KEY 00443000 STC R9,PSWKEY SAVE IT FOR CLOSE. 00444000 B EXIT 00445000 SPACE 3 00446000 ********************************************************************** 00447000 * PRINT ROUTINE * 00448000 * R0 STARTING ADDRESS TO BE PRINTED * 00449000 * R1 LENGTH OF CB TO BE PRINTED (ZERO PRINTS HEADER ONLY) * 00450000 * R14 RETURN ADDRESS * 00451000 ********************************************************************** 00452000 SPACE 1 00453000 PRINT TM FLAG1,ADDRONLY ADDRESS ONLY MODE? 00454000 BZ PRINT1 NO, GO PRINT TRACE RECORD 00455000 MVC MSGLNG(2),=X'004C' STANDARD HEADER MESSAGE LENGTH 00456000 MVC MESSAGES+72(4),ROUTCDE 00457000 LA R1,MSGLNG 00458000 SVC 35 WTO 00459000 XC MESSAGES,MESSAGES CLEAR MESSAGE AREA 00460000 B EXIT 00461000 PRINT1 ST R1,WORK6 00462000 SLL R0,8 CLEAR ANY HIGH ORDER BYTES. 00463000 SRL R0,8 00464000 AR R1,R0 DETERMINE THE STOP ADDRESS 00465000 ST R1,WORK5 SAVE IT 00466000 L R1,WORK6 RESTORE THE LENGTH 00467000 * 00468000 ***** WRITE HEADER *************** 00469000 * 00470000 LA R2,1 00471000 BAL R3,PUT 00472000 LTR R1,R1 ZERO LENGTH? 00473000 BZ FINISH+8 HEADER WRITTEN, GET OUT. 00474000 * 00475000 * 00476000 ***** FORMAT THE FIRST LINE ******* 00477000 * 00478000 ST R0,WORK1 00479000 N R0,=X'00FFFFE0' START ON LINE BOUNDRY. 00480000 BAL R14,CONVERT 00481000 ST R0,WORK2 00482000 MVC ADDRESS(6),UNPACK+2 GET CORE ADDRESS INTO LINE 00483000 MVC DISPLACE(3),=C'000' 00484000 * 00485000 ***** FIND START POINT ON FIRST LINE ********** 00486000 * 00487000 LA R7,LINE1 00488000 TM WORK1+3,X'10' 00489000 BZ A@0001 00490000 LA R7,LINE2 00491000 A@0001 TM WORK1+3,X'08' 00492000 BZ A@0002 00493000 LA R7,18(R7) 00494000 A@0002 TM WORK1+3,X'04' 00495000 BZ A@0003 00496000 LA R7,9(R7) 00497000 * 00498000 ***** FIND NEXT DISPLACEMENT VALUE ********** 00499000 * 00500000 A@0003 L R6,WORK2 00501000 LA R6,32(R6) ADD 20 00502000 S R6,WORK1 00503000 ST R6,WORK3 STORE NEXT DISPLACE VALUE. 00504000 SR R6,R6 00505000 L R3,WORK1 00506000 B LINELOOP GO PRINT FIRST LINE 00507000 * 00508000 ***** CHECK FOR BLANK LINES AND SUPPRESS THIER PRINTING 00509000 * 00510000 ZEROCHCK L R6,0(R3) GET FIRST WORD 00511000 C R6,0(0,R3) R3 = CURRENT DUMP POINT 00512000 BNE ZCHECK2 NON-ZERO WORD. FINISHED ZERO CHECK 00513000 BXLE R3,R8,ZEROCHCK+4 TRY NEXT WORD 00514000 ZCHECK2 LR R2,R3 CHECK IF LESS THAN 1 LINE OF ZEROS 00515000 S R2,ZEROLINE ZEROLINE HAS START VALUE 00516000 CH R2,=X'0020' R2 HAS COUNT OF ZERO WORDS 00517000 BL ZEXIT2 LESS THAN 20 BYTES, SKIP THE MESSAGE 00518000 ZCHECK3 SRL R3,5 UPDATE CURRENT ADDRESS 00519000 SLL R3,5 00520000 ST R3,WORK1 WORK1 IS CURRENT DUMP POINT 00521000 L R8,WORK5 UPDATE COUNT TO GO 00522000 SR R8,R3 (END ADDR - CURRENT ADDR) 00523000 ST R8,WORK6 WORK6 IS COUNT TO GO 00524000 S R3,ZEROLINE UPDATE DISPLACE VALUE 00525000 A R3,WORK3 (CURRENT ADDR - LAST ZERO + OLD DISP 00526000 ST R3,WORK3 00527000 L R0,ZEROLINE SET UP ZERO MESSAGE 00528000 BAL R14,CONVERT 00529000 MVC ZEROLINE(8),UNPACK 00530000 L R0,WORK1 GET NEW START POINT 00531000 ST R0,WORK2 UPDATE LINELOOP'S START POINT 00532000 BAL R14,CONVERT 00533000 MVC ZEROLINE+12(8),UNPACK 00534000 LR R0,R6 00535000 BAL R14,CONVERT 00536000 MVC ZEROLINE+29(8),UNPACK 00537000 MVC OUTLINE+14(37),ZEROLINE 00538000 XC ADDRESS(10),ADDRESS CLEAR OUT OLD DATA. 00539000 CLC WORK5,WORK1 IS THIS ALSO THE END OF THE CB? 00540000 BNH FINISH YES, PRINT ZERO MESSAGE AND GET OUT 00541000 LA R2,1 NO, MUST PRINT IT HERE. 00542000 BAL R3,PUT GO PRINT IT. 00543000 MVC ADDRESS(6),ZEROLINE+14 RESTORE PRINT LINE 00544000 L R0,WORK3 00545000 BAL R14,CONVERT 00546000 MVC DISPLACE(3),UNPACK+5 RESTORE DISPLACEMENT VALUE 00547000 ZEXIT2 LA R7,LINE1 00548000 L R3,WORK1 00549000 L R0,WORK3 GET OLD DISP VALUE 00550000 A R0,=X'00000020' ADD 20 TO DISPLACE VALUE. 00551000 ST R0,WORK3 00552000 SR R6,R6 00553000 * 00554000 ***** BUILD FIRST LINE OF DUMP **** 00555000 * 00556000 LINELOOP L R0,0(R3) GET STUFF TO BE DUMPED. 00557000 BAL R14,CONVERT 00558000 MVC 0(8,R7),UNPACK PUT IT INTO THE OUT PUT RECORD. 00559000 LA R6,4(R6) KEEP COUNT 00560000 L R1,WORK6 GET LENGTH COUNT 00561000 SH R1,=X'0004' 4 FROM PRINT LENGTH. 00562000 LTR R1,R1 ARE WE DONE? 00563000 BNP DONE 00564000 ST R1,WORK6 UPDATE LENGTH 00565000 LA R14,OUTLINE+71 IS THIS THE LAST ENTRY FOR THE LINE? 00566000 CR R7,R14 IF R7 IS LARGER IT IS. 00567000 BH ENDLINE 00568000 LA R14,OUTLINE+40 ARE WE AT THE 3 EXTRA SPACES? 00569000 CR R7,R14 00570000 BNE A@0004 00571000 LA R7,3(R7) 00572000 A@0004 LA R7,9(R7) 00573000 LA R3,4(R3) 00574000 B LINELOOP DO IT AGAIN. 00575000 * 00576000 ***** FINISH UP AND PRINT THE LINE 00577000 * 00578000 ENDLINE LA R9,ENGLISH+32 00579000 SR R9,R6 R9 WAS START OF XLATED OUTPUT ADDRES 00580000 L R8,WORK1 00581000 BCTR R6,R0 CORRECT MOVE LENGTH **** 00582000 EX R6,MOVE MOVE OUTPUT TO XLATE AREA. 00583000 TR ENGLISH(32),XLATE TRANSLATE THE STUFF. 00584000 MVI ENGLISH-1,C'*' 00585000 MVI ENGLISH+32,C'*' 00586000 LA R3,4(R3) 00587000 ST R3,WORK1 UPDATE START POINT 00588000 LA R2,1 SPACE CONTROL 00589000 BAL R3,DLLCHECK GO PRINT THE RECORD 00590000 LA R7,LINE1 00591000 L R0,WORK3 GET DISPLACE VALUE 00592000 BAL R14,CONVERT 00593000 MVC DISPLACE(3),UNPACK+5 00594000 SR R6,R6 RESET THE COUNT 00595000 MVC ZEROLINE(4),WORK1 SAVE START ADDR 00596000 LA R8,4 BXLE VALUE 00597000 L R9,WORK5 GET END ADDRESS FOR ZEROCHCK 00598000 L R0,WORK2 GET THE ALIGNED CORE ADDRESS. 00599000 A R0,=X'00000020' 00600000 BAL R14,CONVERT 00601000 MVC ADDRESS(6),UNPACK+2 GET CORE ADDRESS INTO LINE 00602000 ST R0,WORK2 00603000 L R3,WORK1 SET NEW START POINT 00604000 B ZEROCHCK SEE IF LINE IS BLANK 00605000 DONE LA R9,ENGLISH 00606000 L R8,WORK1 00607000 BCTR R6,R0 00608000 EX R6,MOVE 00609000 MVI ENGLISH-1,C'*' 00610000 MVI ENGLISH+32,C'*' 00611000 TR ENGLISH(32),XLATE 00612000 FINISH LA R2,3 00613000 BAL R3,DLLCHECK 00614000 B EXIT RETURN 00615000 ********************************************************************** 00616000 * DLL FORMAT CHECK ROUTINE. TAKES ONE 133 BYTE LINE AND MAKES * 00617000 * TWO 66 BYTE LINE FROM IT. * 00618000 ********************************************************************** 00619000 DLLCHECK TM FLAG5,DLL WANT LINE SPLIT? 00620000 BZ PUT NO, FORGET NEXT LOGIC 00621000 OI FLAG5,PAPSAVE FORCE PAPER SAVE FOR DLL RUNS 00622000 MVC DLLLINE(10),ADDRESS SAVE 2ND HALF OF LINE 00623000 MVC DLLLINE+12(35),LINE2 00624000 MVC DLLLINE+49(17),ENGLISH+16 00625000 CLI LINE1,X'00' 1ST HALF USED? 00626000 BNE DLL1 00627000 CLC LINE1(36),LINE1+1 00628000 BE DLL2 NO 1ST HALF, TRY 2ND 00629000 DLL1 SR R14,R14 00630000 MVN SAVE1X+4(3),DISPLACE FIRST LINE? 00631000 C R14,SAVE1X+4 00632000 BNE DLL@04 NO, NO DISPLACEMENT ADJUST 00633000 CLI OUTLINE+13,X'00' FIRST WORD USED? 00634000 BNE DLL@04 YES, NO DISPLACEMENT ADJUST 00635000 CLI OUTLINE+22,X'00' 2ND SLOT USED? 00636000 BNE DLL@02 NO 00637000 MVI DLLLINE+9,X'C3' YES, FORCE NEXT DISPLACE OF C 00638000 B DLL@05 00639000 DLL@02 CLI OUTLINE+31,X'00' 3RD SLOT USED? 00640000 BNE DLL@03 00641000 MVI DLLLINE+9,X'F8' FORCE NEXT DISPLACE OF 8 00642000 B DLL@05 00643000 DLL@03 MVI DLLLINE+9,X'F4' FORCE NEXT DISPLACE OF 4 00644000 B DLL@05 00645000 DLL@04 IC R14,DLLLINE+8 ADD 10 TO THE OFFSET 00646000 IC R14,XLATE+1(R14) 00647000 STC R14,DLLLINE+8 00648000 CLI DLLLINE+8,C'.' DID I ADD 9+1=.? 00649000 BNE DLL@06 00650000 MVI DLLLINE+8,X'C1' YES, RESET IT TO A 00651000 B DLL@05 00652000 DLL@06 CLI DLLLINE+8,C'G' DID AN OVERFLOW OCCUR? 00653000 BNE DLL@05 00654000 MVI DLLLINE+8,X'F0' YES, CORRECT IT 00655000 IC R14,DLLLINE+7 00656000 LA R14,1(R14) 00657000 STC R14,DLLLINE+7 00658000 DLL@05 MVC LINE2-3(17),ENGLISH-1 00659000 MVI LINE2+14,C'*' 00660000 XC LINE2+15(66),LINE2+15 00661000 LR R7,R3 SAVE RETURN REG ACROSS PUT CALL 00662000 BAL R3,PUT WRITE 1ST HALF OF RECORD 00663000 LR R3,R7 00664000 DLL2 CLI DLLLINE+12,X'00' 2ND HALF OF LINE USED? 00665000 BNE DLL3 00666000 CLC DLLLINE+12(35),DLLLINE+13 00667000 BER R3 NOT USED, RETURN 00668000 DLL3 XC OUTLINE,OUTLINE CLEAR OUTPUT AREA 00669000 SR R14,R14 00670000 IC R14,DLLLINE+4 ADD 10 TO THE ADDRESS 00671000 IC R14,XLATE+1(R14) 00672000 STC R14,DLLLINE+4 00673000 MVI DLLLINE+48,C'*' 00674000 MVC ADDRESS(66),DLLLINE SET UP 2ND HALF OF MESSAGE 00675000 B PUT 00676000 EJECT 00677000 *********************************************************************** 00678000 * THE PUT ROUTINE TAKES THE RECORD IN OUTLINE AND ATTEMPTS TO MOVE * 00679000 * IT INTO A BUFFER AT THE CURRENT INSERT POINT (CURREC). IF IT FITS, * 00680000 * THIS ROUTINES RETURNS. IF IT DOES NOT FIT, THE BUFFER IS FULL AND * 00681000 * AND I/O FOR IT IS STARTED (CALL TO BSAM). THEN THE NEXT AVAILABLE * 00682000 * BUFFER IS LOCATED, WAITED ON IF NEEDED, AND THE RECORD IS THEN * 00683000 * MOVED INTO THE NEW BUFFER AND THE ROUTINE RETURNS. * 00684000 * REG3 = RETURN ADDRESS, REG2 = THE NUMBER OF BLANK RECORDS TO BE PUT * 00685000 * AFTER THE INSERTED RECORD. * 00686000 *********************************************************************** 00687000 SPACE 00688000 PUT TM TRACE+48,X'10' IS DCB OPEN? 00689000 BZR R3 DCB IS CLOSED FOR SOME REASON. 00690000 STM R0,R7,HOLDREGS SAVE REGS ACCROSS THE PUT 00691000 PUT2 LM R6,R7,CURREC R6 = CURREC . R7 = CURDECBT 00692000 CLI CURREC,X'14' COME TO THE END OF A BUFFER? 00693000 BNL WRITE BR IF YES 00694000 MVC 1(132,R6),OUTLINE+1 00695000 MVI 0(R6),X'09' PRINTER CONTROL CHARACTER 00696000 LR R4,R6 00697000 A R4,=X'01000085' UP THE CURRENT POINTER AND COUNT 00698000 CS R6,R4,CURREC 00699000 BNE PUT2 SOMEONE ELSE GOT OUR SPOT 00700000 B PUTOUT 00701000 *********************************************************************** 00702000 * CURREC CROSSED A BUFFER BOUNDRY. TRY TO WRITE OLD BUFFER * 00703000 *********************************************************************** 00704000 WRITE TS 0(R7) LOCK DECB FOR WRITE 00705000 BNZ NEXTDECB 00706000 L R1,0(R7) R1 = A(DECB) 00707000 CLI 0(R1),X'00' IS WRITE OUTSTANDING? 00708000 BE NEXTDECB-4 00709000 LA R15,TRACE 00710000 L R15,48(0,R15) GET BSAM ADDRESS 00711000 XC 0(4,R1),0(R1) CLEAR ECB 00712000 BALR R14,R15 GO TO BSAM 00713000 NI 0(R7),X'40' TURN OFF LOCK ON DECB 00714000 *********************************************************************** 00715000 * THE WRITE FOR THE FULL BUFFER IS DONE. FIND THE NEXT DECB TO BE * 00716000 * USED FOR OUTPUT. * 00717000 *********************************************************************** 00718000 NEXTDECB LA R4,0(R6) CLEAR COUNT 00719000 LA R5,4(R7) NEXT DECBT ENTRY 00720000 NEXT@01 LA R15,DECB@19 GET LAST DECB ADDRESS 00721000 CR R5,R15 END OF DECBS? 00722000 BNH CHECK1 00723000 LA R4,BUFFER0 00724000 LA R5,DECB@0 00725000 *********************************************************************** 00726000 * FOUND NEW DECB. CHECK ITS STATUS AND IF OK, USE THIS NEW BUFFER * 00727000 *********************************************************************** 00728000 CHECK1 TS 0(R5) OK TO CHECK? 00729000 BE CHECK2 BR IF YES 00730000 LA R4,2660(R4) NO, POINT TO NEXT BUFFER 00731000 LA R5,4(R5) 00732000 B NEXT@01 NOW TRY NEXT DECB 00733000 CHECK2 L R2,0(R5) R2 = A(ECB) 00734000 TM 0(R2),X'7F' 00735000 BO DECBOK 00736000 BZ WAIT 00737000 CLI 0(R2),X'48' 00738000 BE PURGE 00739000 CLI 0(R2),X'41' 00740000 BNE WRTERR 00741000 EOV LA R1,TRACE 00742000 L R14,0(R5) R14 = A(DECB) 00743000 L R0,16(R14) 00744000 SH R0,=X'0008' 00745000 SVC 55 00746000 LTR R15,R15 WAS THE SYNAD ADDRESS RETURNED? 00747000 BZ CHECK2 HAD AN CORRECTABLE ERROR. 00748000 B WRTERR HAD AN UNCORRECTABLE ERROR. 00749000 PURGE LR R1,R2 GO RESTART THIS PURGED I/O 00750000 B WRITE+12 00751000 WAIT LA R1,0(R2) CLEAR HIGH BYTE FOR WAIT 00752000 LA R0,1(R0) 00753000 SVC 1 00754000 B CHECK2 00755000 DECBOK CDS R6,R4,CURREC 00756000 NI 0(R5),X'20' TURN OFF LOCK OF DECBT ENTRY 00757000 B PUT2 GOT BUFFER, NOW TRY MOVE 00758000 PUTOUT LM R0,R7,HOLDREGS RESTORE CALLERS REGS 00759000 XC OUTLINE,OUTLINE 00760000 TM FLAG5,PAPSAVE WANT PAPER SAVE OPTION. 00761000 BCR 1,R3 00762000 BCT R2,PUT DO SPACES IF NEEDED 00763000 BR R3 RETURN 00764000 * 00765000 MOVE MVC 0(0,R9),0(R8) MOVE DATA TO PRINT AREA 00766000 DS 0F 00767000 ********************************************************************** 00768000 * END OF PRINT CODE * 00769000 ********************************************************************** 00770000 EJECT 00771000 ********************************************************************** 00772000 ********************************************************************** 00773000 DS 0F 00774000 TABLE DC C'0123456789ABCDEF' 00775000 XLATE DC C'................' 00776000 DC C'................' 00777000 DC C'................' 00778000 DC C'................' 00779000 DC C' ............(+.' 00780000 DC C'...........$*)..' 00781000 DC C'-/.........,....' 00782000 DC C'..........:..''=.' 00783000 DC C'................' 00784000 DC C'................' 00785000 DC C'................' 00786000 DC C'................' 00787000 DC C'.ABCDEFGHI......' 00788000 DC C'.JKLMNOPQR......' 00789000 DC C'..STUVWXYZ......' 00790000 DC C'0123456789......' 00791000 ZERODUMY DC C' TO CONTAIN 00000000 ' 00792000 PATCH DC XL64'00' PATCH AREA 00793000 STARS DC 122C'*' 00794000 LTORG 00795000 ********************************************************************** 00796000 DCB DCB DDNAME=TRACE,DSORG=PS,MACRF=W,RECFM=FBM,SYNAD=WRTERR, -00797000 NCP=20,BLKSIZE=2660,LRECL=133 00798000 DCBEND EQU * 00799000 DECB WRITE ECBX,SF,DCB,PATCH,2660,MF=L 00800000 *********************************************************************** 00801000 ************* MESSAGE AREA ******************************************** 00802000 ********************************************************************** 00803000 TERMMSG DC C'END OF TRACE' 00804000 PARMPRMT DC Y(L'IDA030) 00805000 IDA030 DC C'IDA030A , ENTER VSAM TRACE PARM LIST OR ''END''.' 00806000 BADMSG DC Y(L'IDA031) 00807000 IDA031 DC C'IDA031I , BD INPUT. RESTART.' 00808000 WHEREMSG DC Y(L'IDA032) 00809000 IDA032 DC C'IDA032A , ENTER TRACE NUMBERS TO BE ACTIVITED.' 00810000 DDPMT DC Y(L'IDA033) 00811000 IDA033 DC C'IDA033A , ENTER DDNAME OF TRACE DATA SET. ' 00812000 AIXPARM DC Y(L'IDA034) 00813000 IDA034 DC C'IDA034A , ENTER PARM LIST FOR PATH/UPGRADE SUPPORT. ' 00814000 ERRPRMT DC Y(L'IDA035) 00815000 IDA035 DC C'IDA035A , ENTER ONE BYTE ERROR CODE OR ''ANY''.' 00816000 CNTPRMTS DC Y(L'IDA036) 00817000 IDA036 DC C'IDA036A , ENTER START COUNT VALUE IN HEX. ' 00818000 CNTPRMTE DC Y(L'IDA037) 00819000 IDA037 DC C'IDA037A , ENTER END COUNT VALUE IN HEX. ' 00820000 COUNTMSG DC Y(L'IDA038) 00821000 IDA038 DC C'IDA038I , COUNT FIELD AT ADDRESS --------.' 00822000 ERRORML DC Y(L'IDA039) 00823000 IDA039 DC C'IDA039A , ERROR CODE= . ENTER A OR E (ABEND OR END) ' 00824000 END DC C'END' 00825000 FECNT DC C'FE-' 00826000 EJECT 00827000 IDATRACE 00828000 EJECT 00829000 @DATA DS 0H 00830000 @DATD DSECT 00831000 DS 0F 00832000 IDA019SU CSECT 00833000 DS 0F 00834000 @DATD DSECT 00835000 DS 0D 00836000 @ENDDATD EQU * 00837000 IDA019SU CSECT 00838000 NOPR ((@ENDDATD-@DATD)*16) 00839000 DS 0F 00840000 @SIZDATD DC AL1(0) 00841000 DC AL3(@ENDDATD-@DATD) 00842000 DS 0D 00843000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00844000 @01 EQU 01 00845000 @02 EQU 02 00846000 @03 EQU 03 00847000 @04 EQU 04 00848000 @05 EQU 05 00849000 @06 EQU 06 00850000 @07 EQU 07 00851000 @08 EQU 08 00852000 @09 EQU 09 00853000 @10 EQU 10 00854000 @11 EQU 11 00855000 @12 EQU 12 00856000 @13 EQU 13 00857000 @14 EQU 14 00858000 @15 EQU 15 00859000 RBSECPTR EQU @01 00860000 TCBPTR EQU @01 00861000 CVTPTR EQU 16 00862000 IDAAMB EQU 0 00863000 AMBEOVR EQU IDAAMB+24 00864000 AMBFLG0 EQU AMBEOVR 00865000 AMBFLG1 EQU IDAAMB+25 00866000 AMBDSORG EQU IDAAMB+26 00867000 AMBIOBAD EQU IDAAMB+28 00868000 AMBINFL EQU IDAAMB+42 00869000 AMBDEBPT EQU IDAAMB+44 00870000 AMBOFLGS EQU IDAAMB+48 00871000 AMBFLG2 EQU IDAAMB+49 00872000 AMBEOVPT EQU IDAAMB+56 00873000 AMBCSWD1 EQU IDAAMB+84 00874000 AMBAFLG EQU AMBCSWD1 00875000 TIOT1 EQU 0 00876000 RBPRFX EQU 0 00877000 RBBASIC EQU 0 00878000 RBEXRTNM EQU RBBASIC 00879000 RBTMFLD EQU RBEXRTNM 00880000 RBSTAB EQU RBBASIC+10 00881000 XSTAB EQU RBSTAB 00882000 RBSTAB1 EQU XSTAB 00883000 XSTAB1 EQU RBSTAB1 00884000 RBFTCKPT EQU XSTAB1 00885000 RBSTAB2 EQU XSTAB+1 00886000 XSTAB2 EQU RBSTAB2 00887000 RBTCBNXT EQU XSTAB2 00888000 RBFACTV EQU XSTAB2 00889000 RBFDYN EQU XSTAB2 00890000 RBECBWT EQU XSTAB2 00891000 RBOPSW EQU RBBASIC+16 00892000 XRBPSW EQU RBOPSW 00893000 RBOPSWB2 EQU XRBPSW+1 00894000 RBLINK EQU RBBASIC+28 00895000 XRBLNK EQU RBLINK 00896000 RBWCF EQU XRBLNK 00897000 RBLINKB EQU XRBLNK+1 00898000 RBGRSAVE EQU RBBASIC+32 00899000 XRBREG EQU RBGRSAVE 00900000 RBGRS0 EQU XRBREG 00901000 RBGRS1 EQU XRBREG+4 00902000 RBGRS2 EQU XRBREG+8 00903000 RBGRS3 EQU XRBREG+12 00904000 RBGRS4 EQU XRBREG+16 00905000 RBGRS5 EQU XRBREG+20 00906000 RBGRS6 EQU XRBREG+24 00907000 RBGRS7 EQU XRBREG+28 00908000 RBGRS8 EQU XRBREG+32 00909000 RBGRS9 EQU XRBREG+36 00910000 RBGRS10 EQU XRBREG+40 00911000 RBGRS11 EQU XRBREG+44 00912000 RBGRS12 EQU XRBREG+48 00913000 RBGRS13 EQU XRBREG+52 00914000 RBGRS14 EQU XRBREG+56 00915000 RBGRS15 EQU XRBREG+60 00916000 XRBESA EQU RBBASIC+96 00917000 RBPREFIX EQU 0 00918000 RBRSV019 EQU RBPREFIX+14 00919000 RBRSV028 EQU RBPREFIX+15 00920000 RBRSV041 EQU RBPREFIX+27 00921000 RBRSV054 EQU RBPREFIX+39 00922000 RBRTOPSW EQU RBPREFIX+40 00923000 RBRTPSW2 EQU RBRTOPSW+8 00924000 RBRTICIL EQU RBRTPSW2 00925000 RBFLAGS1 EQU RBPREFIX+56 00926000 RBINTCDA EQU RBPREFIX+61 00927000 RBSECT EQU 0 00928000 RBPPSAV EQU RBSECT 00929000 @NM00026 EQU RBSECT+10 00930000 @NM00027 EQU @NM00026 00931000 RBTRSVRB EQU @NM00027 00932000 @NM00029 EQU @NM00026+1 00933000 RBETXR EQU @NM00029 00934000 RBEP EQU RBSECT+12 00935000 RBPGMQ EQU RBSECT+24 00936000 @NM00036 EQU RBSECT+28 00937000 IRBEND EQU RBSECT+96 00938000 @NM00040 EQU RBSECT+96 00939000 RBRSV138 EQU @NM00040+7 00940000 RBRSV150 EQU RBSECT+167 00941000 TCBFIX EQU 0 00942000 TCBFRS EQU TCBFIX 00943000 TCB EQU 0 00944000 TCBPIE EQU TCB+4 00945000 TCBPMASK EQU TCBPIE 00946000 TCBCMP EQU TCB+16 00947000 TCBCMPF EQU TCBCMP 00948000 TCBCPP EQU TCBCMPF 00949000 TCBSTCC EQU TCBCMPF 00950000 TCBCDBL EQU TCBCMPF 00951000 TCBCWTO EQU TCBCMPF 00952000 TCBCIND EQU TCBCMPF 00953000 TCBCMSG EQU TCBCMPF 00954000 TCBTRN EQU TCB+20 00955000 TCBABF EQU TCBTRN 00956000 TCBMSS EQU TCB+24 00957000 TCBPKF EQU TCB+28 00958000 TCBFLGS EQU TCB+29 00959000 TCBFLGS1 EQU TCBFLGS 00960000 TCBFLGS2 EQU TCBFLGS+1 00961000 TCBFLGS3 EQU TCBFLGS+2 00962000 TCBFLGS4 EQU TCBFLGS+3 00963000 TCBFLGS5 EQU TCBFLGS+4 00964000 TCBABWF EQU TCBFLGS5 00965000 TCBJPQ EQU TCB+44 00966000 TCBPURGE EQU TCBJPQ 00967000 TCBGRS EQU TCB+48 00968000 TCBFSA EQU TCB+112 00969000 TCBTME EQU TCB+120 00970000 TCBJSTCB EQU TCB+124 00971000 TCBTSFLG EQU TCB+148 00972000 TCBTSTSK EQU TCBTSFLG 00973000 TCBSTAB EQU TCB+160 00974000 TCBNSTAE EQU TCBSTAB 00975000 TCBTCT EQU TCB+164 00976000 TCBTCTGF EQU TCBTCT 00977000 TCBSCNDY EQU TCB+172 00978000 TCBNDSP EQU TCBSCNDY 00979000 TCBNDSP1 EQU TCBNDSP+1 00980000 TCBNDSP2 EQU TCBNDSP+2 00981000 TCBNDSP3 EQU TCBNDSP+3 00982000 TCBJSCB EQU TCB+180 00983000 TCBRECDE EQU TCBJSCB 00984000 TCBEXT1 EQU TCB+196 00985000 TCBBITS EQU TCB+200 00986000 TCBNDSP4 EQU TCBBITS 00987000 TCBNDSP5 EQU TCBBITS+1 00988000 TCBFLGS6 EQU TCBBITS+2 00989000 TCBFLGS7 EQU TCBBITS+3 00990000 TCBDAR EQU TCB+204 00991000 TCBDARC EQU TCBDAR 00992000 TCBEXT2 EQU TCB+208 00993000 TCBFOE EQU TCB+244 00994000 TCBESTAE EQU TCB+264 00995000 TCBESTRM EQU TCBESTAE+1 00996000 TCBFBYT1 EQU TCB+276 00997000 TCBFBYT2 EQU TCB+277 00998000 TCBRV124 EQU TCB+278 00999000 TCBRV133 EQU TCB+279 01000000 TCBXTNT2 EQU 0 01001000 TCBGTF EQU TCBXTNT2 01002000 TCBTFLG EQU TCBGTF 01003000 TCBRV146 EQU TCBXTNT2+28 01004000 TCBRV155 EQU TCBXTNT2+29 01005000 TCBRV164 EQU TCBXTNT2+30 01006000 TCBRV173 EQU TCBXTNT2+31 01007000 IEZJSCB EQU 0 01008000 JSCBSEC1 EQU IEZJSCB+188 01009000 JSCHPCE EQU JSCBSEC1+4 01010000 JSCBDCB EQU JSCBSEC1+36 01011000 JSCBOPTS EQU JSCBSEC1+48 01012000 JSCBSWT1 EQU JSCBSEC1+55 01013000 JSCBWTP EQU JSCBSEC1+64 01014000 JSCBWTFG EQU JSCBWTP 01015000 JSCBEND1 EQU IEZJSCB+260 01016000 CVTMAP EQU 0 01017000 CVTDAR EQU CVTMAP+72 01018000 CVTFLGS1 EQU CVTDAR 01019000 CVTDCB EQU CVTMAP+116 01020000 CVTIOQET EQU CVTMAP+120 01021000 CVTIERLC EQU CVTMAP+144 01022000 CVTHEAD EQU CVTMAP+160 01023000 CVTSV76C EQU CVTHEAD 01024000 CVTOPTA EQU CVTMAP+182 01025000 CVTOPTB EQU CVTMAP+183 01026000 CVTGTF EQU CVTMAP+236 01027000 CVTGTFST EQU CVTGTF 01028000 CVTGTFS EQU CVTGTFST 01029000 CVTSTATE EQU CVTGTFST 01030000 CVTTMODE EQU CVTGTFST 01031000 CVTFORM EQU CVTGTFST 01032000 CVTAQAVT EQU CVTMAP+240 01033000 CVTTCMFG EQU CVTAQAVT 01034000 CVTVOLM2 EQU CVTMAP+244 01035000 CVTTATA EQU CVTVOLM2 01036000 CVTTSKS EQU CVTTATA 01037000 CVTVOLF2 EQU CVTTSKS 01038000 CVTTAT EQU CVTTATA+1 01039000 CVTATER EQU CVTMAP+248 01040000 CVTEXT1 EQU CVTMAP+252 01041000 CVTPURG EQU CVTMAP+260 01042000 CVTQMSG EQU CVTMAP+268 01043000 CVTDMSR EQU CVTMAP+272 01044000 CVTRSV37 EQU CVTDMSR 01045000 CVTDMSRF EQU CVTRSV37 01046000 CVTERPV EQU CVTMAP+316 01047000 CVTINTLA EQU CVTMAP+320 01048000 CVTAPF EQU CVTMAP+324 01049000 CVTEXT2 EQU CVTMAP+328 01050000 CVTHJES EQU CVTMAP+332 01051000 CVTPGSIA EQU CVTMAP+348 01052000 CVTA1F1 EQU CVTMAP+356 01053000 CVTSYSK EQU CVTMAP+357 01054000 CVTVOLM1 EQU CVTMAP+380 01055000 CVTVOLF1 EQU CVTVOLM1 01056000 CVTATMCT EQU CVTMAP+388 01057000 CVTXTNT1 EQU 0 01058000 CVTXTNT2 EQU 0 01059000 CVTDSSV EQU CVTXTNT2 01060000 CVTFLGBT EQU CVTXTNT2+5 01061000 CVTQID EQU CVTXTNT2+24 01062000 CVTRV400 EQU CVTXTNT2+52 01063000 CVTRV409 EQU CVTXTNT2+53 01064000 CVTATCVT EQU CVTXTNT2+64 01065000 CVTRV429 EQU CVTXTNT2+84 01066000 CVTRV438 EQU CVTXTNT2+85 01067000 CVTRV457 EQU CVTXTNT2+112 01068000 CVTRV466 EQU CVTXTNT2+113 01069000 CVTFIX EQU 0 01070000 CVTRELNO EQU CVTFIX+252 01071000 TIOENTRY EQU TIOT1+24 01072000 TIOESTTA EQU TIOENTRY+1 01073000 TIOERLOC EQU TIOENTRY+2 01074000 TIOELINK EQU TIOERLOC+1 01075000 TIOESYOT EQU TIOELINK 01076000 TIOESTTC EQU TIOENTRY+15 01077000 TIOESTTB EQU TIOENTRY+16 01078000 POOLSTAR EQU TIOENTRY+20 01079000 TIOEDEVE EQU TIOESTTB 01080000 TIOSTTB EQU TIOEDEVE 01081000 RBSECS03 EQU RBEP 01082000 RBCDE EQU RBSECS03 01083000 RBCDFLGS EQU RBCDE 01084000 RBSECS05 EQU RBPGMQ 01085000 RBSQE EQU RBSECS05 01086000 RBSECS06 EQU RBPGMQ 01087000 RBIQE EQU RBSECS06 01088000 RBSECS07 EQU RBPGMQ 01089000 RBIQE2 EQU RBSECS07 01090000 RBSECS08 EQU IRBEND 01091000 RBSECS09 EQU IRBEND 01092000 JSCBSEC2 EQU JSCBEND1 01093000 JSCBSEC3 EQU JSCBEND1 01094000 JSCBJCT EQU JSCBSEC3 01095000 JSCBJCTA EQU JSCBJCT+1 01096000 JSCBASID EQU JSCBSEC3+8 01097000 JSCBFBYT EQU JSCBSEC3+10 01098000 JSCBJNL EQU JSCBSEC3+28 01099000 JSCBJJSB EQU JSCBJNL 01100000 JSCBSUB EQU JSCBSEC3+40 01101000 JSCSCT EQU JSCBSEC3+68 01102000 JSCRSV45 EQU JSCBSEC3+112 01103000 JSCRSV46 EQU JSCRSV45 01104000 JSCRSV47 EQU JSCRSV45+2 01105000 CVTS01 EQU CVTPGSIA 01106000 CVTLPDIA EQU CVTS01+12 01107000 CVTDIRST EQU CVTLPDIA 01108000 CVTSLIDA EQU CVTS01+24 01109000 CVTCTLFG EQU CVTS01+50 01110000 CVTRV210 EQU CVTS01+424 01111000 CVTRV219 EQU CVTS01+425 01112000 CVTRV228 EQU CVTS01+426 01113000 CVTRV237 EQU CVTS01+427 01114000 CVTMFRTR EQU CVTS01+452 01115000 CVTRV262 EQU CVTS01+468 01116000 CVTRV271 EQU CVTS01+469 01117000 CVTRV280 EQU CVTS01+470 01118000 CVTRV289 EQU CVTS01+471 01119000 CVTGSDA EQU CVTS01+600 01120000 * START UNREFERENCED COMPONENTS 01121000 CVTRV628 EQU CVTS01+728 01122000 CVTRV627 EQU CVTS01+724 01123000 CVTRV626 EQU CVTS01+720 01124000 CVTRV625 EQU CVTS01+716 01125000 CVTRV624 EQU CVTS01+712 01126000 CVTRV623 EQU CVTS01+708 01127000 CVTRV622 EQU CVTS01+704 01128000 CVTRV621 EQU CVTS01+700 01129000 CVTIHASU EQU CVTS01+696 01130000 CVTRV619 EQU CVTS01+692 01131000 CVTRV618 EQU CVTS01+688 01132000 CVTRV617 EQU CVTS01+684 01133000 CVTRV616 EQU CVTS01+680 01134000 CVTRV615 EQU CVTS01+676 01135000 CVTRV614 EQU CVTS01+672 01136000 CVTRV613 EQU CVTS01+668 01137000 CVTTCASP EQU CVTS01+664 01138000 CVT0PT03 EQU CVTS01+660 01139000 CVT0PT0E EQU CVTS01+656 01140000 CVTRV609 EQU CVTS01+652 01141000 CVTCGK EQU CVTS01+648 01142000 CVTRAC EQU CVTS01+644 01143000 CVTHSM EQU CVTS01+640 01144000 CVTRV605 EQU CVTS01+636 01145000 CVTRV604 EQU CVTS01+632 01146000 CVTEFF02 EQU CVTS01+628 01147000 CVTCBBR EQU CVTS01+624 01148000 CVTSSCR EQU CVTS01+620 01149000 CVTEVENT EQU CVTS01+616 01150000 CVTCRCA EQU CVTS01+612 01151000 CVTTPIO EQU CVTS01+608 01152000 CVTADV EQU CVTS01+604 01153000 CVTGSDAB EQU CVTGSDA 01154000 CVTQV3 EQU CVTS01+596 01155000 CVTQV2 EQU CVTS01+592 01156000 CVTQV1 EQU CVTS01+588 01157000 CVTRPT EQU CVTS01+584 01158000 CVTSSRB EQU CVTS01+580 01159000 CVTCSDRL EQU CVTS01+576 01160000 CVTEXP1 EQU CVTS01+572 01161000 CVTRMPMT EQU CVTS01+568 01162000 CVTRMPTT EQU CVTS01+564 01163000 CVTVPSA EQU CVTS01+560 01164000 CVTVSTOP EQU CVTS01+556 01165000 CVTGTFR8 EQU CVTS01+552 01166000 CVTQUIT EQU CVTS01+548 01167000 CVTVACR EQU CVTS01+544 01168000 CVTWTCB EQU CVTS01+540 01169000 CVTSTPRS EQU CVTS01+536 01170000 CVT0PT02 EQU CVTS01+532 01171000 CVTDARCM EQU CVTS01+528 01172000 CVTIRECM EQU CVTS01+524 01173000 CVTJRECM EQU CVTS01+520 01174000 CVTVEMS0 EQU CVTS01+516 01175000 CVTSPFRR EQU CVTS01+512 01176000 CVTRLSTG EQU CVTS01+508 01177000 CVT0TC0A EQU CVTS01+504 01178000 CVTGMBR EQU CVTS01+500 01179000 CVTLFRM EQU CVTS01+496 01180000 CVTRMBR EQU CVTS01+492 01181000 CVTVIOP EQU CVTS01+488 01182000 CVTRV307 EQU CVTS01+486 01183000 CVTRV306 EQU CVTS01+484 01184000 CVTRV305 EQU CVTS01+482 01185000 CVTRV304 EQU CVTS01+480 01186000 CVTRV303 EQU CVTS01+478 01187000 CVTRV302 EQU CVTS01+476 01188000 CVTTRCA EQU CVTS01+472 01189000 CVTRV297 EQU CVTRV289 01190000 CVTRV296 EQU CVTRV289 01191000 CVTRV295 EQU CVTRV289 01192000 CVTRV294 EQU CVTRV289 01193000 CVTRV293 EQU CVTRV289 01194000 CVTRV292 EQU CVTRV289 01195000 CVTRV291 EQU CVTRV289 01196000 CVTRV290 EQU CVTRV289 01197000 CVTRV288 EQU CVTRV280 01198000 CVTRV287 EQU CVTRV280 01199000 CVTRV286 EQU CVTRV280 01200000 CVTRV285 EQU CVTRV280 01201000 CVTRV284 EQU CVTRV280 01202000 CVTRV283 EQU CVTRV280 01203000 CVTRV282 EQU CVTRV280 01204000 CVTRV281 EQU CVTRV280 01205000 CVTRV279 EQU CVTRV271 01206000 CVTRV278 EQU CVTRV271 01207000 CVTRV277 EQU CVTRV271 01208000 CVTRV276 EQU CVTRV271 01209000 CVTRV275 EQU CVTRV271 01210000 CVTRV274 EQU CVTRV271 01211000 CVTRV273 EQU CVTRV271 01212000 CVTRV272 EQU CVTRV271 01213000 CVTRV270 EQU CVTRV262 01214000 CVTRV269 EQU CVTRV262 01215000 CVTRV268 EQU CVTRV262 01216000 CVTRV267 EQU CVTRV262 01217000 CVTRV266 EQU CVTRV262 01218000 CVTRV265 EQU CVTRV262 01219000 CVTRV264 EQU CVTRV262 01220000 CVTRV263 EQU CVTRV262 01221000 CVTVFP EQU CVTS01+464 01222000 CVTVSI EQU CVTS01+460 01223000 CVTVPSIB EQU CVTS01+456 01224000 CVTMFACT EQU CVTMFRTR 01225000 CVTMFCTL EQU CVTS01+448 01226000 CVTPVBP EQU CVTS01+444 01227000 CVTPWI EQU CVTS01+440 01228000 CVTRV254 EQU CVTS01+438 01229000 CVTRV253 EQU CVTS01+436 01230000 CVTRV252 EQU CVTS01+434 01231000 CVTRV251 EQU CVTS01+433 01232000 CVTRV250 EQU CVTS01+432 01233000 CVTRV249 EQU CVTS01+431 01234000 CVTRV248 EQU CVTS01+430 01235000 CVTRV247 EQU CVTS01+429 01236000 CVTRV246 EQU CVTS01+428 01237000 CVTRV245 EQU CVTRV237 01238000 CVTRV244 EQU CVTRV237 01239000 CVTRV243 EQU CVTRV237 01240000 CVTRV242 EQU CVTRV237 01241000 CVTRV241 EQU CVTRV237 01242000 CVTRV240 EQU CVTRV237 01243000 CVTRV239 EQU CVTRV237 01244000 CVTRV238 EQU CVTRV237 01245000 CVTRV236 EQU CVTRV228 01246000 CVTRV235 EQU CVTRV228 01247000 CVTRV234 EQU CVTRV228 01248000 CVTRV233 EQU CVTRV228 01249000 CVTRV232 EQU CVTRV228 01250000 CVTRV231 EQU CVTRV228 01251000 CVTRV230 EQU CVTRV228 01252000 CVTRV229 EQU CVTRV228 01253000 CVTRV227 EQU CVTRV219 01254000 CVTRV226 EQU CVTRV219 01255000 CVTRV225 EQU CVTRV219 01256000 CVTRV224 EQU CVTRV219 01257000 CVTRV223 EQU CVTRV219 01258000 CVTRV222 EQU CVTRV219 01259000 CVTRV221 EQU CVTRV219 01260000 CVTRV220 EQU CVTRV219 01261000 CVTRV218 EQU CVTRV210 01262000 CVTRV217 EQU CVTRV210 01263000 CVTRV216 EQU CVTRV210 01264000 CVTRV215 EQU CVTRV210 01265000 CVTRV214 EQU CVTRV210 01266000 CVTRV213 EQU CVTRV210 01267000 CVTRV212 EQU CVTRV210 01268000 CVTRV211 EQU CVTRV210 01269000 CVTLCCAT EQU CVTS01+420 01270000 CVTPCCAT EQU CVTS01+416 01271000 CVTIPCRP EQU CVTS01+412 01272000 CVTIPCRI EQU CVTS01+408 01273000 CVTIPCDS EQU CVTS01+404 01274000 CVTAIDVT EQU CVTS01+400 01275000 CVTSSAP EQU CVTS01+396 01276000 CVTEHCIR EQU CVTS01+392 01277000 CVTEHDEF EQU CVTS01+388 01278000 CVTDAIR EQU CVTS01+384 01279000 CVTPERFM EQU CVTS01+380 01280000 CVT044R2 EQU CVTS01+376 01281000 CVTFETCH EQU CVTS01+372 01282000 CVTRSTWD EQU CVTS01+368 01283000 CVTSPOST EQU CVTS01+364 01284000 CVTIOBP EQU CVTS01+360 01285000 CVTASMVT EQU CVTS01+356 01286000 CVTRECRQ EQU CVTS01+352 01287000 CVTWSAC EQU CVTS01+348 01288000 CVTRV149 EQU CVTS01+344 01289000 CVTWSAL EQU CVTS01+340 01290000 CVTSPSA EQU CVTS01+336 01291000 CVTGLMN EQU CVTS01+332 01292000 CVTVEAC0 EQU CVTS01+328 01293000 CVT062R1 EQU CVTS01+324 01294000 CVTRPOST EQU CVTS01+320 01295000 CVTDQIQE EQU CVTS01+316 01296000 CVTCSD EQU CVTS01+312 01297000 CVTLKRMA EQU CVTS01+308 01298000 CVTRSPIE EQU CVTS01+304 01299000 CVTRENQ EQU CVTS01+300 01300000 CVTLQCB EQU CVTS01+296 01301000 CVTFQCB EQU CVTS01+292 01302000 CVTQCS01 EQU CVTS01+288 01303000 CVTAPFT EQU CVTS01+284 01304000 CVTPARRL EQU CVTS01+280 01305000 CVTVWAIT EQU CVTS01+276 01306000 CVTGSPL EQU CVTS01+272 01307000 CVTLSMQ EQU CVTS01+268 01308000 CVTGSMQ EQU CVTS01+264 01309000 CVTEXPRO EQU CVTS01+260 01310000 CVTOPCTP EQU CVTS01+256 01311000 CVTSIC EQU CVTS01+252 01312000 CVTTPIOS EQU CVTS01+248 01313000 CVTRTMS EQU CVTS01+244 01314000 CVTSDBF EQU CVTS01+240 01315000 CVTSCBP EQU CVTS01+236 01316000 CVTSDMP EQU CVTS01+232 01317000 CVTSV60 EQU CVTS01+228 01318000 CVTRTMCT EQU CVTS01+224 01319000 CVTASCBL EQU CVTS01+220 01320000 CVTASCBH EQU CVTS01+216 01321000 CVTGDA EQU CVTS01+212 01322000 CVTASVT EQU CVTS01+208 01323000 CVTVVMDI EQU CVTS01+204 01324000 CVTAQTOP EQU CVTS01+200 01325000 CVTIOSCS EQU CVTS01+196 01326000 CVTSDRM EQU CVTS01+192 01327000 CVTOPTE EQU CVTS01+188 01328000 CVTSTXU EQU CVTS01+184 01329000 CVTQUIS EQU CVTS01+180 01330000 CVTPARS EQU CVTS01+176 01331000 CVTS1EE EQU CVTS01+172 01332000 CVTFRAS EQU CVTS01+168 01333000 CVTQSAS EQU CVTS01+164 01334000 CVTCRAS EQU CVTS01+160 01335000 CVTCRMN EQU CVTS01+156 01336000 CVTDELCP EQU CVTS01+152 01337000 CVTFRECL EQU CVTS01+148 01338000 CVTGETCL EQU CVTS01+144 01339000 CVTBLDCP EQU CVTS01+140 01340000 CVTAUTHL EQU CVTS01+136 01341000 CVTSCAN EQU CVTS01+132 01342000 CVTRV144 EQU CVTS01+130 01343000 CVTMAXMP EQU CVTS01+128 01344000 CVTSTCK EQU CVTS01+124 01345000 CVTRV139 EQU CVTS01+123 01346000 CVTDSSAC EQU CVTS01+122 01347000 CVTRV513 EQU CVTS01+121 01348000 CVTIOSPL EQU CVTS01+120 01349000 CVTPTGT EQU CVTS01+116 01350000 CVTCSPIE EQU CVTS01+112 01351000 CVTSMFEX EQU CVTS01+108 01352000 CVTOLT0A EQU CVTS01+104 01353000 CVTSRBRT EQU CVTS01+100 01354000 CVTPUTL EQU CVTS01+96 01355000 CVTASCRL EQU CVTS01+92 01356000 CVTASCRF EQU CVTS01+88 01357000 CVTRV326 EQU CVTS01+84 01358000 CVTRV325 EQU CVTS01+80 01359000 CVTRV324 EQU CVTS01+76 01360000 CVT0VL01 EQU CVTS01+72 01361000 CVTSHRVM EQU CVTS01+68 01362000 CVTRV332 EQU CVTS01+64 01363000 CVTTAS EQU CVTS01+60 01364000 CVTRSCN EQU CVTS01+56 01365000 CVTTRAC2 EQU CVTS01+54 01366000 CVTTRACE EQU CVTS01+52 01367000 CVTAPG EQU CVTS01+51 01368000 CVTSDTRC EQU CVTCTLFG 01369000 CVTGTRCE EQU CVTCTLFG 01370000 CVTNOMP EQU CVTCTLFG 01371000 CVTRSV79 EQU CVTCTLFG 01372000 CVTDSTAT EQU CVTCTLFG 01373000 CVTRSV78 EQU CVTCTLFG 01374000 CVTRV333 EQU CVTCTLFG 01375000 CVTRV323 EQU CVTCTLFG 01376000 CVTSPVLK EQU CVTS01+49 01377000 CVTRSV77 EQU CVTS01+48 01378000 CVTRV331 EQU CVTS01+44 01379000 CVTRV330 EQU CVTS01+40 01380000 CVTRV329 EQU CVTS01+36 01381000 CVTRV328 EQU CVTS01+32 01382000 CVTRV322 EQU CVTS01+28 01383000 CVTSLID EQU CVTSLIDA+1 01384000 CVTSYLK EQU CVTSLIDA 01385000 CVTRV321 EQU CVTS01+20 01386000 CVTRV320 EQU CVTS01+16 01387000 CVTLPDIR EQU CVTLPDIA+1 01388000 CVTRSV69 EQU CVTDIRST 01389000 CVTRSV68 EQU CVTDIRST 01390000 CVTRSV67 EQU CVTDIRST 01391000 CVTRSV66 EQU CVTDIRST 01392000 CVTRSV65 EQU CVTDIRST 01393000 CVTRSV64 EQU CVTDIRST 01394000 CVTRSV63 EQU CVTDIRST 01395000 CVTDICOM EQU CVTDIRST 01396000 CVTPVTP EQU CVTS01+8 01397000 CVTLPDSR EQU CVTS01+4 01398000 CVTGETL EQU CVTS01 01399000 JSCBEND3 EQU JSCBSEC3+120 01400000 JSCRSV52 EQU JSCBSEC3+116 01401000 JSCRSV51 EQU JSCRSV47+1 01402000 JSCRSV50 EQU JSCRSV47 01403000 JSCRSV49 EQU JSCRSV46+1 01404000 JSCRSV48 EQU JSCRSV46 01405000 JSCRSV44 EQU JSCBSEC3+108 01406000 JSCRSV43 EQU JSCBSEC3+104 01407000 JSCRSV42 EQU JSCBSEC3+100 01408000 JSCBASWA EQU JSCBSEC3+96 01409000 JSCBUFPT EQU JSCBSEC3+92 01410000 JSCBACT EQU JSCBSEC3+88 01411000 JSCBSWSP EQU JSCBSEC3+87 01412000 JSCRSV33 EQU JSCBSEC3+86 01413000 JSCDDNUM EQU JSCBSEC3+84 01414000 JSCRSV53 EQU JSCBSEC3+82 01415000 JSCDDNNO EQU JSCBSEC3+80 01416000 JSCBVATA EQU JSCBSEC3+76 01417000 JSCTMCOR EQU JSCBSEC3+72 01418000 JSCSCTP EQU JSCSCT+1 01419000 JSCRSV55 EQU JSCSCT 01420000 JSCRSV54 EQU JSCBSEC3+64 01421000 JSCDSABQ EQU JSCBSEC3+60 01422000 JSCBSSIB EQU JSCBSEC3+56 01423000 JSCBFRBA EQU JSCBSEC3+48 01424000 JSCRSV28 EQU JSCBSEC3+46 01425000 JSCBSONO EQU JSCBSEC3+44 01426000 JSCBSUBA EQU JSCBSUB+1 01427000 JSCRSV31 EQU JSCBSUB 01428000 JSCBSMLR EQU JSCBSEC3+36 01429000 JSCBJNLR EQU JSCBSEC3+32 01430000 JSCBJNLA EQU JSCBJNL+1 01431000 JSCBJSBT EQU JSCBJJSB 01432000 JSCBJSBX EQU JSCBJJSB 01433000 JSCBJSBA EQU JSCBJJSB 01434000 JSCBJSBI EQU JSCBJJSB 01435000 @NM00049 EQU JSCBJJSB 01436000 JSCBJNLE EQU JSCBJJSB 01437000 JSCBJNLF EQU JSCBJJSB 01438000 JSCBJNLN EQU JSCBJJSB 01439000 @NM00048 EQU JSCBSEC3+24 01440000 JSCBJRBA EQU JSCBSEC3+16 01441000 JSCBIECB EQU JSCBSEC3+12 01442000 JSCBRV08 EQU JSCBSEC3+11 01443000 JSCBRV07 EQU JSCBFBYT 01444000 JSCBRV06 EQU JSCBFBYT 01445000 JSCBRV05 EQU JSCBFBYT 01446000 JSCBRV04 EQU JSCBFBYT 01447000 JSCBRV03 EQU JSCBFBYT 01448000 JSCBRV02 EQU JSCBFBYT 01449000 JSCBADSP EQU JSCBFBYT 01450000 JSCBRV01 EQU JSCBFBYT 01451000 JSCBTJID EQU JSCBASID 01452000 JSCBPSCB EQU JSCBSEC3+4 01453000 JSCJCTP EQU JSCBJCTA 01454000 JSCRSV24 EQU JSCBJCT 01455000 JSCBEND2 EQU JSCBSEC2 01456000 RBRSV161 EQU RBSECS09+64 01457000 RBSIRBWA EQU RBSECS09 01458000 RBIQEWRK EQU RBSECS08+4 01459000 RBNEXAV EQU RBSECS08 01460000 RBIQEA EQU RBIQE2 01461000 RBIQE1 EQU RBIQE+1 01462000 RBUSE EQU RBIQE 01463000 RBSQEA EQU RBSQE+1 01464000 @NM00041 EQU RBSQE 01465000 RBCDE1 EQU RBCDE+1 01466000 RBCDLOAD EQU RBCDFLGS 01467000 RBCDXCTL EQU RBCDFLGS 01468000 RBCDSYNC EQU RBCDFLGS 01469000 RBCDNODE EQU RBCDFLGS 01470000 RBCDSAVE EQU RBCDFLGS 01471000 RBCDATCH EQU RBCDFLGS 01472000 RBRSV009 EQU RBCDFLGS 01473000 RBNOCELL EQU RBCDFLGS 01474000 TIOUCBP EQU TIOEDEVE+1 01475000 TIOVERF EQU TIOSTTB 01476000 TIOUNLD EQU TIOSTTB 01477000 TIOMNTD EQU TIOSTTB 01478000 TIOSETU EQU TIOSTTB 01479000 TIOVLSR EQU TIOSTTB 01480000 TIOPVIO EQU TIOSTTB 01481000 TIOREQD EQU TIOSTTB 01482000 TIOUSED EQU TIOSTTB 01483000 TIOTFEND EQU POOLSTAR+16 01484000 TIOPSLOT EQU POOLSTAR+13 01485000 TIOPSTTB EQU POOLSTAR+12 01486000 TIOPPOOL EQU POOLSTAR+4 01487000 TIOPNSRT EQU POOLSTAR+3 01488000 @NM00014 EQU POOLSTAR+2 01489000 TIOPNSLT EQU POOLSTAR+1 01490000 @NM00013 EQU POOLSTAR 01491000 TIOEFSRT EQU TIOENTRY+17 01492000 TIOSVERF EQU TIOESTTB 01493000 TIOSUNLD EQU TIOESTTB 01494000 TIOSMNTD EQU TIOESTTB 01495000 TIOSSETU EQU TIOESTTB 01496000 TIOSVLSR EQU TIOESTTB 01497000 TIOSPVIO EQU TIOESTTB 01498000 TIOSREQD EQU TIOESTTB 01499000 TIOSUSED EQU TIOESTTB 01500000 TIOSBALS EQU TIOESTTC 01501000 TIOSBALP EQU TIOESTTC 01502000 TIOSVOLS EQU TIOESTTC 01503000 TIOSVOLP EQU TIOESTTC 01504000 TIOSAFFS EQU TIOESTTC 01505000 TIOSAFFP EQU TIOESTTC 01506000 TIOSDEFR EQU TIOESTTC 01507000 TIOSDKCR EQU TIOESTTC 01508000 TIOEJFCB EQU TIOENTRY+12 01509000 TIOEDDNM EQU TIOENTRY+4 01510000 TIOTREM EQU TIOELINK 01511000 TIOESSDS EQU TIOESYOT 01512000 TIOESYIN EQU TIOELINK 01513000 TIOEQNAM EQU TIOELINK 01514000 TIOEDYNM EQU TIOELINK 01515000 TIOTTERM EQU TIOELINK 01516000 TIOTRV01 EQU TIOELINK 01517000 TIOSYOUT EQU TIOELINK 01518000 TIOEWTCT EQU TIOERLOC 01519000 TIOSDSP2 EQU TIOESTTA 01520000 TIOSDSP1 EQU TIOESTTA 01521000 TIOSLABL EQU TIOESTTA 01522000 TIOSDADS EQU TIOESTTA 01523000 TIOSJBLB EQU TIOESTTA 01524000 TIOSPLTS EQU TIOESTTA 01525000 TIOSPLTP EQU TIOESTTA 01526000 TIOSLTYP EQU TIOESTTA 01527000 TIOELNGH EQU TIOENTRY 01528000 CVTLEVL EQU CVTRELNO+2 01529000 CVTNUMB EQU CVTRELNO 01530000 CVTMDL EQU CVTFIX+250 01531000 @NM00051 EQU CVTFIX+248 01532000 @NM00050 EQU CVTFIX 01533000 CVTRV482 EQU CVTXTNT2+128 01534000 CVTRV481 EQU CVTXTNT2+124 01535000 CVTRV480 EQU CVTXTNT2+120 01536000 CVTRV479 EQU CVTXTNT2+118 01537000 CVTRV478 EQU CVTXTNT2+117 01538000 CVTRV477 EQU CVTXTNT2+116 01539000 CVTRV476 EQU CVTXTNT2+115 01540000 CVTRV475 EQU CVTXTNT2+114 01541000 CVTRV474 EQU CVTRV466 01542000 CVTRV473 EQU CVTRV466 01543000 CVTRV472 EQU CVTRV466 01544000 CVTRV471 EQU CVTRV466 01545000 CVTRV470 EQU CVTRV466 01546000 CVTRV469 EQU CVTRV466 01547000 CVTRV468 EQU CVTRV466 01548000 CVTRV467 EQU CVTRV466 01549000 CVTRV465 EQU CVTRV457 01550000 CVTRV464 EQU CVTRV457 01551000 CVTRV463 EQU CVTRV457 01552000 CVTRV462 EQU CVTRV457 01553000 CVTRV461 EQU CVTRV457 01554000 CVTRV460 EQU CVTRV457 01555000 CVTRV459 EQU CVTRV457 01556000 CVTRV458 EQU CVTRV457 01557000 CVTRV456 EQU CVTXTNT2+108 01558000 CVTRV455 EQU CVTXTNT2+104 01559000 CVTRV454 EQU CVTXTNT2+100 01560000 CVTRV453 EQU CVTXTNT2+96 01561000 CVTRV452 EQU CVTXTNT2+94 01562000 CVTRV451 EQU CVTXTNT2+92 01563000 CVTRV450 EQU CVTXTNT2+90 01564000 CVTRV449 EQU CVTXTNT2+88 01565000 CVTRV448 EQU CVTXTNT2+87 01566000 CVTRV447 EQU CVTXTNT2+86 01567000 CVTRV446 EQU CVTRV438 01568000 CVTRV445 EQU CVTRV438 01569000 CVTRV444 EQU CVTRV438 01570000 CVTRV443 EQU CVTRV438 01571000 CVTRV442 EQU CVTRV438 01572000 CVTRV441 EQU CVTRV438 01573000 CVTRV440 EQU CVTRV438 01574000 CVTRV439 EQU CVTRV438 01575000 CVTRV437 EQU CVTRV429 01576000 CVTRV436 EQU CVTRV429 01577000 CVTRV435 EQU CVTRV429 01578000 CVTRV434 EQU CVTRV429 01579000 CVTRV433 EQU CVTRV429 01580000 CVTRV432 EQU CVTRV429 01581000 CVTRV431 EQU CVTRV429 01582000 CVTRV430 EQU CVTRV429 01583000 CVTRV428 EQU CVTXTNT2+80 01584000 CVTRV427 EQU CVTXTNT2+76 01585000 CVTRV426 EQU CVTXTNT2+72 01586000 CVTRV425 EQU CVTXTNT2+68 01587000 CVTATACT EQU CVTATCVT 01588000 CVTRV423 EQU CVTXTNT2+62 01589000 CVTRV422 EQU CVTXTNT2+60 01590000 CVTRV421 EQU CVTXTNT2+58 01591000 CVTRV420 EQU CVTXTNT2+56 01592000 CVTRV419 EQU CVTXTNT2+55 01593000 CVTRV418 EQU CVTXTNT2+54 01594000 CVTRV417 EQU CVTRV409 01595000 CVTRV416 EQU CVTRV409 01596000 CVTRV415 EQU CVTRV409 01597000 CVTRV414 EQU CVTRV409 01598000 CVTRV413 EQU CVTRV409 01599000 CVTRV412 EQU CVTRV409 01600000 CVTRV411 EQU CVTRV409 01601000 CVTRV410 EQU CVTRV409 01602000 CVTRV408 EQU CVTRV400 01603000 CVTRV407 EQU CVTRV400 01604000 CVTRV406 EQU CVTRV400 01605000 CVTRV405 EQU CVTRV400 01606000 CVTRV404 EQU CVTRV400 01607000 CVTRV403 EQU CVTRV400 01608000 CVTRV402 EQU CVTRV400 01609000 CVTRV401 EQU CVTRV400 01610000 CVTICB EQU CVTXTNT2+48 01611000 CVTSKTA EQU CVTXTNT2+44 01612000 CVTCCVT EQU CVTXTNT2+40 01613000 CVTRSV98 EQU CVTXTNT2+36 01614000 CVTRSV97 EQU CVTXTNT2+34 01615000 CVTRSV96 EQU CVTXTNT2+32 01616000 CVTOLTEP EQU CVTXTNT2+28 01617000 CVTQIDA EQU CVTQID+1 01618000 CVTRSV95 EQU CVTQID 01619000 CVTRSV94 EQU CVTXTNT2+20 01620000 CVTRSV93 EQU CVTXTNT2+16 01621000 CVTRSV92 EQU CVTXTNT2+12 01622000 CVTDEBVR EQU CVTXTNT2+8 01623000 CVTRSV91 EQU CVTXTNT2+6 01624000 CVTRSV9H EQU CVTFLGBT 01625000 CVTRSV9G EQU CVTFLGBT 01626000 CVTRSV9F EQU CVTFLGBT 01627000 CVTRSV9E EQU CVTFLGBT 01628000 CVTRSV9D EQU CVTFLGBT 01629000 CVTRSV9C EQU CVTFLGBT 01630000 CVTVME EQU CVTFLGBT 01631000 CVTNPE EQU CVTFLGBT 01632000 CVTNUCLS EQU CVTXTNT2+4 01633000 CVTDSSVA EQU CVTDSSV+1 01634000 CVTRSV89 EQU CVTDSSV 01635000 CVTRSV88 EQU CVTXTNT1+8 01636000 CVTRSV87 EQU CVTXTNT1+4 01637000 CVTFACHN EQU CVTXTNT1 01638000 CVTRV488 EQU CVTMAP+412 01639000 CVTRV487 EQU CVTMAP+408 01640000 CVTRV486 EQU CVTMAP+404 01641000 CVTRV485 EQU CVTMAP+400 01642000 CVTACTAP EQU CVTMAP+396 01643000 CVTAUTH EQU CVTMAP+392 01644000 CVTATMCA EQU CVTATMCT+1 01645000 CVTATMST EQU CVTATMCT 01646000 CVTRSV61 EQU CVTMAP+384 01647000 CVTVOLT1 EQU CVTVOLM1+1 01648000 CVTVOLI1 EQU CVTVOLF1 01649000 CVTSTOA EQU CVTMAP+376 01650000 CVTRSV58 EQU CVTMAP+374 01651000 CVTRSV57 EQU CVTMAP+372 01652000 CVTDDCE EQU CVTMAP+368 01653000 CVTPNWFR EQU CVTMAP+364 01654000 CVTSMF EQU CVTMAP+360 01655000 CVTSULK EQU CVTMAP+358 01656000 CVTSLKO EQU CVTSYSK 01657000 CVTSLKP EQU CVTSYSK 01658000 CVTSLKQ EQU CVTSYSK 01659000 CVTSLKR EQU CVTSYSK 01660000 CVTRSV56 EQU CVTSYSK 01661000 CVTRSV55 EQU CVTSYSK 01662000 CVTRSV54 EQU CVTSYSK 01663000 CVTRSV53 EQU CVTSYSK 01664000 CVTRSV52 EQU CVTA1F1 01665000 CVTRSV51 EQU CVTA1F1 01666000 CVTRSV50 EQU CVTA1F1 01667000 CVTRSV49 EQU CVTA1F1 01668000 CVTRSV48 EQU CVTA1F1 01669000 CVTRSV47 EQU CVTA1F1 01670000 CVTSRSW EQU CVTA1F1 01671000 CVTPFSW EQU CVTA1F1 01672000 CVTPCVT EQU CVTMAP+352 01673000 CVTRSV46 EQU CVTMAP+344 01674000 CVTRSV45 EQU CVTMAP+340 01675000 CVTRSV44 EQU CVTMAP+338 01676000 CVTRSV43 EQU CVTMAP+336 01677000 CVTHJESA EQU CVTHJES+1 01678000 CVTRSV42 EQU CVTHJES 01679000 CVTEXT2A EQU CVTEXT2+1 01680000 CVTRSV41 EQU CVTEXT2 01681000 CVTAPFA EQU CVTAPF+1 01682000 CVTRSV40 EQU CVTAPF 01683000 CVTRV518 EQU CVTINTLA 01684000 CVTRV517 EQU CVTERPV 01685000 CVTEORM EQU CVTMAP+312 01686000 CVTMCHPR EQU CVTMAP+308 01687000 CVTTZ EQU CVTMAP+304 01688000 CVTJEPS EQU CVTMAP+300 01689000 CVTJESCT EQU CVTMAP+296 01690000 CVTMODE EQU CVTMAP+292 01691000 CVTPTRV EQU CVTMAP+288 01692000 CVTREAL EQU CVTMAP+284 01693000 CVTRSV39 EQU CVTMAP+280 01694000 CVTRSV38 EQU CVTMAP+276 01695000 CVTDMSRA EQU CVTDMSR+1 01696000 CVTRV634 EQU CVTDMSRF 01697000 CVTRV633 EQU CVTDMSRF 01698000 CVTRV632 EQU CVTDMSRF 01699000 CVTRV631 EQU CVTDMSRF 01700000 CVTRV630 EQU CVTDMSRF 01701000 CVTRV629 EQU CVTDMSRF 01702000 CVTUDUMP EQU CVTDMSRF 01703000 CVTSDUMP EQU CVTDMSRF 01704000 CVTQMSGA EQU CVTQMSG+1 01705000 CVTRSV36 EQU CVTQMSG 01706000 CVTAMFF EQU CVTMAP+264 01707000 CVTPURGA EQU CVTPURG+1 01708000 CVTRSV35 EQU CVTPURG 01709000 CVTCBSP EQU CVTMAP+256 01710000 CVTATERA EQU CVTATER+1 01711000 CVTSYST EQU CVTATER 01712000 CVTVOLT2 EQU CVTTAT 01713000 CVTVOLI2 EQU CVTVOLF2 01714000 CVTAQAVB EQU CVTAQAVT+1 01715000 CVTRSV34 EQU CVTTCMFG 01716000 CVTRSV33 EQU CVTTCMFG 01717000 CVTRSV32 EQU CVTTCMFG 01718000 CVTRSV31 EQU CVTTCMFG 01719000 CVTRSV30 EQU CVTTCMFG 01720000 CVTRSV29 EQU CVTTCMFG 01721000 CVTRSV28 EQU CVTTCMFG 01722000 CVTTCRDY EQU CVTTCMFG 01723000 CVTGTFA EQU CVTGTF+1 01724000 CVTRSV27 EQU CVTGTFST 01725000 CVTRNIO EQU CVTGTFST 01726000 CVTUSR EQU CVTGTFST 01727000 CVTRV318 EQU CVTFORM 01728000 CVTRV317 EQU CVTTMODE 01729000 CVTRV316 EQU CVTSTATE 01730000 CVTRV315 EQU CVTGTFS 01731000 CVTGTFAV EQU CVTGTFS 01732000 CVT0SCR1 EQU CVTMAP+232 01733000 CVTRV515 EQU CVTMAP+228 01734000 CVTRMS EQU CVTMAP+224 01735000 CVTPATCH EQU CVTMAP+220 01736000 CVTTSCE EQU CVTMAP+216 01737000 CVTLNKSC EQU CVTMAP+214 01738000 CVTQABST EQU CVTMAP+212 01739000 CVTMDLDS EQU CVTMAP+208 01740000 CVTUSER EQU CVTMAP+204 01741000 CVTABEND EQU CVTMAP+200 01742000 CVTSMCA EQU CVTMAP+196 01743000 CVTRSV18 EQU CVTMAP+192 01744000 CVTQLPAQ EQU CVTMAP+188 01745000 CVTQCDSR EQU CVTMAP+184 01746000 CVTRSV17 EQU CVTOPTB 01747000 CVTRSV16 EQU CVTOPTB 01748000 CVTFP EQU CVTOPTB 01749000 CVTAPTHR EQU CVTOPTB 01750000 CVTNLOG EQU CVTOPTB 01751000 CVTTOD EQU CVTOPTB 01752000 CVTCTIMS EQU CVTOPTB 01753000 CVTPROT EQU CVTOPTB 01754000 CVTXPFP EQU CVTOPTA 01755000 CVTASCII EQU CVTOPTA 01756000 CVTRSV13 EQU CVTOPTA 01757000 CVTRSV12 EQU CVTOPTA 01758000 CVTNIP EQU CVTOPTA 01759000 CVTDDR EQU CVTOPTA 01760000 CVTAPR EQU CVTOPTA 01761000 CVTCCH EQU CVTOPTA 01762000 CVTSNCTR EQU CVTMAP+180 01763000 CVTQMWR EQU CVTMAP+176 01764000 CVTQOCR EQU CVTMAP+172 01765000 CVT1EF00 EQU CVTMAP+168 01766000 CVTMZ00 EQU CVTMAP+164 01767000 CVTSV76Q EQU CVTSV76C 01768000 CVTRSV11 EQU CVTMAP+156 01769000 CVT0PT01 EQU CVTMAP+152 01770000 CVTMSER EQU CVTMAP+148 01771000 CVTRV516 EQU CVTIERLC 01772000 CVTILCH EQU CVTMAP+140 01773000 CVT0DS EQU CVTMAP+136 01774000 CVTFBOSV EQU CVTMAP+132 01775000 CVTNUCB EQU CVTMAP+128 01776000 CVTIXAVL EQU CVTMAP+124 01777000 CVTSV76M EQU CVTIOQET 01778000 CVTDCBA EQU CVTMAP+117 01779000 CVTMVS2 EQU CVTDCB 01780000 CVT6DAT EQU CVTDCB 01781000 CVT4MPS EQU CVTDCB 01782000 CVTRSV09 EQU CVTDCB 01783000 CVT4MS1 EQU CVTDCB 01784000 CVT2SPS EQU CVTDCB 01785000 CVT1SSS EQU CVTDCB 01786000 CVTRSV08 EQU CVTDCB 01787000 CVTSTB EQU CVTMAP+112 01788000 CVTQTD00 EQU CVTMAP+108 01789000 CVTQTE00 EQU CVTMAP+104 01790000 CVTCUCB EQU CVTMAP+100 01791000 CVTSJQ EQU CVTMAP+96 01792000 CVTPBLDL EQU CVTMAP+92 01793000 CVTTPC EQU CVTMAP+88 01794000 CVTSVDCB EQU CVTMAP+84 01795000 CVTBRET EQU CVTMAP+82 01796000 CVTEXIT EQU CVTMAP+80 01797000 CVT0FN00 EQU CVTMAP+76 01798000 CVTDARA EQU CVTDAR+1 01799000 CVTRSV07 EQU CVTFLGS1 01800000 CVTRSV06 EQU CVTFLGS1 01801000 CVTRSV05 EQU CVTFLGS1 01802000 CVTRSV04 EQU CVTFLGS1 01803000 CVTRSV03 EQU CVTFLGS1 01804000 CVTRSV02 EQU CVTFLGS1 01805000 CVTRSV01 EQU CVTFLGS1 01806000 CVTDMPLK EQU CVTFLGS1 01807000 CVTXITP EQU CVTMAP+68 01808000 CVTZDTAB EQU CVTMAP+64 01809000 CVTMSLT EQU CVTMAP+60 01810000 CVTDATE EQU CVTMAP+56 01811000 CVTBTERM EQU CVTMAP+52 01812000 CVTSYSAD EQU CVTMAP+48 01813000 CVTXTLER EQU CVTMAP+44 01814000 CVTILK2 EQU CVTMAP+40 01815000 CVTILK1 EQU CVTMAP+36 01816000 CVTPRLTV EQU CVTMAP+32 01817000 CVTPCNVT EQU CVTMAP+28 01818000 CVT0VL00 EQU CVTMAP+24 01819000 CVTXAPG EQU CVTMAP+20 01820000 CVTBUF EQU CVTMAP+16 01821000 CVTJOB EQU CVTMAP+12 01822000 CVTLINK EQU CVTMAP+8 01823000 CVT0EF00 EQU CVTMAP+4 01824000 CVTTCBP EQU CVTMAP 01825000 CVT EQU CVTMAP 01826000 JSCBCSCB EQU JSCBSEC1+68 01827000 JSCBPMG EQU JSCBWTP+2 01828000 JSCBWTSP EQU JSCBWTP+1 01829000 JSCRSV23 EQU JSCBWTFG 01830000 JSCRSV22 EQU JSCBWTFG 01831000 JSCRSV21 EQU JSCBWTFG 01832000 JSCRSV20 EQU JSCBWTFG 01833000 JSCRSV19 EQU JSCBWTFG 01834000 JSCRSV18 EQU JSCBWTFG 01835000 JSCBRET EQU JSCBWTFG 01836000 JSCBIOFG EQU JSCBWTFG 01837000 @NM00047 EQU JSCBSEC1+60 01838000 JSCBQMPI EQU JSCBSEC1+56 01839000 JSCBPMSG EQU JSCBSWT1 01840000 JSCRSV16 EQU JSCBSWT1 01841000 JSCRSV15 EQU JSCBSWT1 01842000 JSCRSV14 EQU JSCBSWT1 01843000 JSCRSV13 EQU JSCBSWT1 01844000 JSCRSV12 EQU JSCBSWT1 01845000 JSCRSV11 EQU JSCBSWT1 01846000 JSCBPASS EQU JSCBSWT1 01847000 JSCBTTTR EQU JSCBSEC1+52 01848000 JSCRSV10 EQU JSCBSEC1+49 01849000 JSCBAUTH EQU JSCBOPTS 01850000 JSCSIOTS EQU JSCBOPTS 01851000 JSCRSV08 EQU JSCBOPTS 01852000 JSCRSV07 EQU JSCBOPTS 01853000 JSCRSV06 EQU JSCBOPTS 01854000 JSCBLONG EQU JSCBOPTS 01855000 JSCRSV05 EQU JSCBOPTS 01856000 JSCRSV04 EQU JSCBOPTS 01857000 JSCBSECB EQU JSCBSEC1+44 01858000 JSCRSV03 EQU JSCBSEC1+41 01859000 JSCBSTEP EQU JSCBSEC1+40 01860000 JSCBDCBA EQU JSCBDCB+1 01861000 JSCRSV02 EQU JSCBDCB 01862000 JSCBID EQU JSCBSEC1+32 01863000 JSCBDBTB EQU JSCBSEC1+28 01864000 JSCBIJSC EQU JSCBSEC1+24 01865000 JSCBTCBP EQU JSCBSEC1+20 01866000 JSCBPCC EQU JSCBSEC1+16 01867000 JSCBTCP EQU JSCBSEC1+12 01868000 JSCBSHR EQU JSCBSEC1+8 01869000 JSCHPCEA EQU JSCHPCE+1 01870000 JSCRSV32 EQU JSCHPCE 01871000 JSCRSV01 EQU JSCBSEC1 01872000 @NM00046 EQU IEZJSCB 01873000 @NM00045 EQU TCBXTNT2+32 01874000 TCBRV181 EQU TCBRV173 01875000 TCBRV180 EQU TCBRV173 01876000 TCBRV179 EQU TCBRV173 01877000 TCBRV178 EQU TCBRV173 01878000 TCBRV177 EQU TCBRV173 01879000 TCBRV176 EQU TCBRV173 01880000 TCBRV175 EQU TCBRV173 01881000 TCBRV174 EQU TCBRV173 01882000 TCBRV172 EQU TCBRV164 01883000 TCBRV171 EQU TCBRV164 01884000 TCBRV170 EQU TCBRV164 01885000 TCBRV169 EQU TCBRV164 01886000 TCBRV168 EQU TCBRV164 01887000 TCBRV167 EQU TCBRV164 01888000 TCBRV166 EQU TCBRV164 01889000 TCBRV165 EQU TCBRV164 01890000 TCBRV163 EQU TCBRV155 01891000 TCBRV162 EQU TCBRV155 01892000 TCBRV161 EQU TCBRV155 01893000 TCBRV160 EQU TCBRV155 01894000 TCBRV159 EQU TCBRV155 01895000 TCBRV158 EQU TCBRV155 01896000 TCBRV157 EQU TCBRV155 01897000 TCBRV156 EQU TCBRV155 01898000 TCBRV154 EQU TCBRV146 01899000 TCBRV153 EQU TCBRV146 01900000 TCBRV152 EQU TCBRV146 01901000 TCBRV151 EQU TCBRV146 01902000 TCBRV150 EQU TCBRV146 01903000 TCBRV149 EQU TCBRV146 01904000 TCBRV148 EQU TCBRV146 01905000 TCBRV147 EQU TCBRV146 01906000 TCBRV145 EQU TCBXTNT2+26 01907000 TCBRV144 EQU TCBXTNT2+24 01908000 TCBCAUF EQU TCBXTNT2+20 01909000 TCBRV142 EQU TCBXTNT2+16 01910000 TCBRSV49 EQU TCBXTNT2+12 01911000 TCBEVENT EQU TCBXTNT2+8 01912000 TCBRCMP EQU TCBXTNT2+5 01913000 TCBRSVAB EQU TCBXTNT2+4 01914000 TCBGTFA EQU TCBGTF+1 01915000 TCBRSV47 EQU TCBTFLG 01916000 TCBRSV46 EQU TCBTFLG 01917000 TCBRSV45 EQU TCBTFLG 01918000 TCBRSV44 EQU TCBTFLG 01919000 TCBRSV43 EQU TCBTFLG 01920000 TCBDSPIT EQU TCBTFLG 01921000 TCBERRTN EQU TCBTFLG 01922000 TCBASYNC EQU TCBTFLG 01923000 @NM00044 EQU TCB+296 01924000 TCBSVCA2 EQU TCB+292 01925000 TCBSWASA EQU TCB+288 01926000 TCBDBTB EQU TCB+284 01927000 TCBRPT EQU TCB+280 01928000 TCBRV141 EQU TCBRV133 01929000 TCBRV140 EQU TCBRV133 01930000 TCBRV139 EQU TCBRV133 01931000 TCBRV138 EQU TCBRV133 01932000 TCBRV137 EQU TCBRV133 01933000 TCBRV136 EQU TCBRV133 01934000 TCBRV135 EQU TCBRV133 01935000 TCBRV134 EQU TCBRV133 01936000 TCBRV132 EQU TCBRV124 01937000 TCBRV131 EQU TCBRV124 01938000 TCBRV130 EQU TCBRV124 01939000 TCBRV129 EQU TCBRV124 01940000 TCBRV128 EQU TCBRV124 01941000 TCBRV127 EQU TCBRV124 01942000 TCBRV126 EQU TCBRV124 01943000 TCBRV125 EQU TCBRV124 01944000 TCBRV123 EQU TCBFBYT2 01945000 TCBRV122 EQU TCBFBYT2 01946000 TCBECBNV EQU TCBFBYT2 01947000 TCBSSSYN EQU TCBFBYT2 01948000 TCBFPRAP EQU TCBFBYT2 01949000 TCBFDW EQU TCBFBYT2 01950000 TCBFMW EQU TCBFBYT2 01951000 TCBCNCB EQU TCBFBYT2 01952000 TCBLLH EQU TCBFBYT1 01953000 TCBRV113 EQU TCBFBYT1 01954000 TCBEOT EQU TCBFBYT1 01955000 TCBRTM2 EQU TCBFBYT1 01956000 TCBPGNLY EQU TCBFBYT1 01957000 TCBNDIOS EQU TCBFBYT1 01958000 TCBACTIV EQU TCBFBYT1 01959000 TCBEOTFM EQU TCBFBYT1 01960000 TCBAFFN EQU TCB+274 01961000 TCBCCPVI EQU TCB+272 01962000 TCBUKYSP EQU TCB+268 01963000 TCBMODE EQU TCBESTAE+3 01964000 TCBERTYP EQU TCBESTAE+2 01965000 TCBRV314 EQU TCBESTRM 01966000 TCBRV313 EQU TCBESTRM 01967000 TCBRV312 EQU TCBESTRM 01968000 TCBRV311 EQU TCBESTRM 01969000 TCBRV310 EQU TCBESTRM 01970000 TCBRV309 EQU TCBESTRM 01971000 TCBRV308 EQU TCBESTRM 01972000 TCBETERM EQU TCBESTRM 01973000 TCBSCBKY EQU TCBESTAE 01974000 TCBRTM12 EQU TCB+260 01975000 TCBTCBID EQU TCB+256 01976000 TCBRSV96 EQU TCB+252 01977000 TCBSWA EQU TCB+248 01978000 TCBFOEA EQU TCBFOE+1 01979000 TCBRSV42 EQU TCBFOE 01980000 TCBRV306 EQU TCB+240 01981000 TCBRSV41 EQU TCB+239 01982000 TCBTID EQU TCB+238 01983000 TCBRSVAA EQU TCB+237 01984000 TCBABCUR EQU TCB+236 01985000 TCBTMSAV EQU TCB+232 01986000 TCBIOTIM EQU TCB+228 01987000 TCBRTWA EQU TCB+224 01988000 TCBBACK EQU TCB+220 01989000 TCBTIRB EQU TCB+216 01990000 TCBAECB EQU TCB+212 01991000 TCBEXT2A EQU TCBEXT2+1 01992000 TCBRSV39 EQU TCBEXT2 01993000 TCBSTMCT EQU TCB+207 01994000 TCBSYSCT EQU TCB+206 01995000 TCBRSV37 EQU TCB+205 01996000 TCBEXSVC EQU TCBDAR 01997000 TCBDARMS EQU TCBDAR 01998000 TCBDARWT EQU TCBDAR 01999000 TCBDARO EQU TCBDAR 02000000 TCBDARMC EQU TCBDARC 02001000 TCBDARD EQU TCBDAR 02002000 TCBDARS EQU TCBDAR 02003000 TCBDARP EQU TCBDAR 02004000 TCBGTOFM EQU TCBFLGS7 02005000 TCBADMP EQU TCBFLGS7 02006000 TCBRSTSK EQU TCBFLGS7 02007000 TCBSVCS EQU TCBFLGS7 02008000 TCBSTACK EQU TCBFLGS7 02009000 TCBRSV34 EQU TCBFLGS7 02010000 TCBRSV33 EQU TCBFLGS7 02011000 TCBGPECB EQU TCBFLGS7 02012000 TCBNTJS EQU TCBFLGS6 02013000 TCBAPG EQU TCBFLGS6 02014000 TCBMIGR EQU TCBFLGS6 02015000 TCBRV303 EQU TCBFLGS6 02016000 TCBSPVLK EQU TCBFLGS6 02017000 TCBCPU EQU TCBFLGS6 02018000 TCBPIE17 EQU TCBFLGS6 02019000 TCBRV EQU TCBFLGS6 02020000 TCBRSV79 EQU TCBNDSP5 02021000 TCBRSV78 EQU TCBNDSP5 02022000 TCBRSV77 EQU TCBNDSP5 02023000 TCBRSV76 EQU TCBNDSP5 02024000 TCBRSV75 EQU TCBNDSP5 02025000 TCBRSV74 EQU TCBNDSP5 02026000 TCBRSV95 EQU TCBNDSP5 02027000 TCBRSV94 EQU TCBNDSP5 02028000 TCBRSV93 EQU TCBNDSP4 02029000 TCBRSV92 EQU TCBNDSP4 02030000 TCBRSV91 EQU TCBNDSP4 02031000 TCBRSV90 EQU TCBNDSP4 02032000 TCBRSV89 EQU TCBNDSP4 02033000 TCBRSV88 EQU TCBNDSP4 02034000 TCBRSV87 EQU TCBNDSP4 02035000 TCBRSV86 EQU TCBNDSP4 02036000 TCBEXT1A EQU TCBEXT1+1 02037000 TCBRSV32 EQU TCBEXT1 02038000 TCBEXCPD EQU TCB+192 02039000 TCBIOBRC EQU TCB+188 02040000 TCBDDWTC EQU TCB+186 02041000 TCBDDEXC EQU TCB+184 02042000 TCBJSCBB EQU TCBJSCB+1 02043000 @NM00043 EQU TCBRECDE 02044000 TCBREC EQU TCBRECDE 02045000 TCBMDIDS EQU TCB+176 02046000 TCBNDINT EQU TCBNDSP3 02047000 TCBRSV27 EQU TCBNDSP3 02048000 TCBRSV26 EQU TCBNDSP3 02049000 TCBRSV25 EQU TCBNDSP3 02050000 TCBRSV24 EQU TCBNDSP3 02051000 TCBSRBND EQU TCBNDSP3 02052000 TCBRV302 EQU TCBNDSP3 02053000 TCBLJSND EQU TCBNDSP3 02054000 TCBABE EQU TCBNDSP2 02055000 TCBDSS EQU TCBNDSP2 02056000 TCBOWAIT EQU TCBNDSP2 02057000 TCBIWAIT EQU TCBNDSP2 02058000 TCBNDTS EQU TCBNDSP2 02059000 TCBNDSVC EQU TCBNDSP2 02060000 TCBSTPP EQU TCBNDSP2 02061000 TCBABD EQU TCBNDSP2 02062000 TCBRSV22 EQU TCBNDSP1 02063000 TCBPIEND EQU TCBNDSP1 02064000 TCBTPSP EQU TCBNDSP1 02065000 TCBDDRND EQU TCBNDSP1 02066000 TCBRSPND EQU TCBNDSP1 02067000 TCBRSTND EQU TCBNDSP1 02068000 TCBDARPN EQU TCBNDSP1 02069000 TCBDARTN EQU TCBNDSP1 02070000 TCBNDSP0 EQU TCBNDSP 02071000 TCBUSER EQU TCB+168 02072000 TCBTCTB EQU TCBTCT+1 02073000 TCBRSV9C EQU TCBTCTGF 02074000 TCBRSV9B EQU TCBTCTGF 02075000 TCBRSV9A EQU TCBTCTGF 02076000 TCBRSV99 EQU TCBTCTGF 02077000 TCBRSV98 EQU TCBTCTGF 02078000 TCBRSV97 EQU TCBTCTGF 02079000 TCBRSV20 EQU TCBTCTGF 02080000 TCBSMFGF EQU TCBTCTGF 02081000 TCBSTABB EQU TCBSTAB+1 02082000 TCBSTCUR EQU TCBNSTAE 02083000 TCBRV301 EQU TCBNSTAE 02084000 TCBSYNCH EQU TCBNSTAE 02085000 TCBHALT EQU TCBNSTAE 02086000 TCBPPSUP EQU TCBNSTAE 02087000 TCB33E EQU TCBNSTAE 02088000 TCBQUIES EQU TCBNSTAE 02089000 TCBSTABE EQU TCBNSTAE 02090000 TCBAQE EQU TCB+156 02091000 TCBPQE EQU TCB+152 02092000 TCBTSDP EQU TCB+151 02093000 TCBTSLP EQU TCB+150 02094000 TCBSTPCT EQU TCB+149 02095000 TCBCPUBN EQU TCBTSFLG 02096000 TCBDYDSP EQU TCBTSFLG 02097000 TCBRSV18 EQU TCBTSFLG 02098000 TCBRSV17 EQU TCBTSFLG 02099000 TCBTIOTG EQU TCBTSFLG 02100000 TCBATT EQU TCBTSFLG 02101000 TCBSTPPR EQU TCBTSFLG 02102000 TCBRV300 EQU TCBTSTSK 02103000 TCBECB EQU TCB+144 02104000 TCBIQE EQU TCB+140 02105000 TCBLTC EQU TCB+136 02106000 TCBOTC EQU TCB+132 02107000 TCBNTC EQU TCB+128 02108000 TCBJSTCA EQU TCBJSTCB+1 02109000 TCBRSV16 EQU TCBJSTCB 02110000 TCBTQET EQU TCBTME 02111000 TCBTCB EQU TCB+116 02112000 TCBFSAB EQU TCBFSA+1 02113000 TCBQEL EQU TCBFSA 02114000 TCBGRS15 EQU TCBGRS+60 02115000 TCBGRS14 EQU TCBGRS+56 02116000 TCBGRS13 EQU TCBGRS+52 02117000 TCBGRS12 EQU TCBGRS+48 02118000 TCBGRS11 EQU TCBGRS+44 02119000 TCBGRS10 EQU TCBGRS+40 02120000 TCBGRS9 EQU TCBGRS+36 02121000 TCBGRS8 EQU TCBGRS+32 02122000 TCBGRS7 EQU TCBGRS+28 02123000 TCBGRS6 EQU TCBGRS+24 02124000 TCBGRS5 EQU TCBGRS+20 02125000 TCBGRS4 EQU TCBGRS+16 02126000 TCBGRS3 EQU TCBGRS+12 02127000 TCBGRS2 EQU TCBGRS+8 02128000 TCBGRS1 EQU TCBGRS+4 02129000 TCBGRS0 EQU TCBGRS 02130000 TCBJPQB EQU TCBJPQ+1 02131000 TCBRSV15 EQU TCBPURGE 02132000 TCBRSV14 EQU TCBPURGE 02133000 TCBRSV13 EQU TCBPURGE 02134000 TCBRSV12 EQU TCBPURGE 02135000 TCBRSV11 EQU TCBPURGE 02136000 TCBRSV10 EQU TCBPURGE 02137000 TCBRSV09 EQU TCBPURGE 02138000 TCBJPQF EQU TCBPURGE 02139000 TCBJLB EQU TCB+40 02140000 TCBLLS EQU TCB+36 02141000 TCBDSP EQU TCB+35 02142000 TCBLMP EQU TCB+34 02143000 TCBPNDSP EQU TCBFLGS5 02144000 TCBFCD1 EQU TCBFLGS5 02145000 TCBSTP EQU TCBFLGS5 02146000 TCBSYS EQU TCBFLGS5 02147000 TCBANDSP EQU TCBFLGS5 02148000 TCBPAGE EQU TCBFLGS5 02149000 TCBUXNDF EQU TCBABWF 02150000 TCBFC EQU TCBFLGS5 02151000 TCBONDSP EQU TCBFLGS4 02152000 TCBMPCND EQU TCBFLGS4 02153000 TCBMPCVQ EQU TCBFLGS4 02154000 TCBUXNDV EQU TCBFLGS4 02155000 TCBHNDSP EQU TCBFLGS4 02156000 TCBRQENA EQU TCBFLGS4 02157000 TCBSER EQU TCBFLGS4 02158000 TCBNDUMP EQU TCBFLGS4 02159000 TCBDWSTA EQU TCBFLGS3 02160000 TCBRSV08 EQU TCBFLGS3 02161000 TCBRSV07 EQU TCBFLGS3 02162000 TCBRSV06 EQU TCBFLGS3 02163000 TCBABGM EQU TCBFLGS3 02164000 TCBABTRM EQU TCBFLGS3 02165000 TCBADINP EQU TCBFLGS3 02166000 TCBFSM EQU TCBFLGS3 02167000 TCBFTS EQU TCBFLGS2 02168000 TCBFETXR EQU TCBFLGS2 02169000 TCBFDSOP EQU TCBFLGS2 02170000 TCBFJMC EQU TCBFLGS2 02171000 TCBFSMC EQU TCBFLGS2 02172000 TCBFABOP EQU TCBFLGS2 02173000 TCBFSTI EQU TCBFLGS2 02174000 TCBFOINP EQU TCBFLGS2 02175000 TCBFX EQU TCBFLGS1 02176000 TCBFS EQU TCBFLGS1 02177000 TCBFT EQU TCBFLGS1 02178000 TCBPDUMP EQU TCBFLGS1 02179000 TCBNONPR EQU TCBFLGS1 02180000 TCBFERA EQU TCBFLGS1 02181000 TCBFE EQU TCBFLGS1 02182000 TCBFA EQU TCBFLGS1 02183000 TCBZERO EQU TCBPKF 02184000 TCBFLAG EQU TCBPKF 02185000 TCBMSSB EQU TCBMSS+1 02186000 TCBRSV03 EQU TCBMSS 02187000 TCBTRNB EQU TCBTRN+1 02188000 TCBRSV02 EQU TCBABF 02189000 TCBOLTEP EQU TCBABF 02190000 TCBTCP EQU TCBABF 02191000 TCBTCPP EQU TCBABF 02192000 TCBRSV01 EQU TCBABF 02193000 TCBGRPH EQU TCBABF 02194000 TCBNOCHK EQU TCBABF 02195000 TCBMOD91 EQU TCBABF 02196000 TCBCMPC EQU TCBCMP+1 02197000 TCBRV318 EQU TCBCMSG 02198000 TCBRV317 EQU TCBCIND 02199000 TCBRV316 EQU TCBCWTO 02200000 TCBCASID EQU TCBCDBL 02201000 TCBNOCC EQU TCBSTCC 02202000 TCBDMPO EQU TCBCPP 02203000 TCBCSTEP EQU TCBCMPF 02204000 TCBCREQ EQU TCBCMPF 02205000 TCBTIO EQU TCB+12 02206000 TCBDEB EQU TCB+8 02207000 TCBPIEA EQU TCBPIE+1 02208000 TCBPM EQU TCBPMASK 02209000 @NM00042 EQU TCBPMASK 02210000 TCBRBP EQU TCB 02211000 TCBFRS6 EQU TCBFRS+24 02212000 TCBFRS4 EQU TCBFRS+16 02213000 TCBFRS2 EQU TCBFRS+8 02214000 TCBFRS0 EQU TCBFRS 02215000 SIRBEND EQU RBSECT+168 02216000 SVRBEND EQU RBSECT+168 02217000 RBRSV158 EQU RBRSV150 02218000 RBRSV157 EQU RBRSV150 02219000 RBRSV156 EQU RBRSV150 02220000 RBRSV155 EQU RBRSV150 02221000 RBRSV154 EQU RBRSV150 02222000 RBRSV153 EQU RBRSV150 02223000 RBRSV152 EQU RBRSV150 02224000 RBRSV151 EQU RBRSV150 02225000 RBRSV149 EQU RBSECT+166 02226000 RBRSV148 EQU RBSECT+164 02227000 RBSCBB EQU RBSECT+144 02228000 TIRBEND EQU @NM00040+8 02229000 PRBEND EQU @NM00040+8 02230000 RBRSV146 EQU RBRSV138 02231000 RBRSV145 EQU RBRSV138 02232000 RBRSV144 EQU RBRSV138 02233000 RBRSV143 EQU RBRSV138 02234000 RBRSV142 EQU RBRSV138 02235000 RBRSV141 EQU RBRSV138 02236000 RBRSV140 EQU RBRSV138 02237000 RBRSV139 EQU RBRSV138 02238000 RBRSV137 EQU @NM00040+6 02239000 RBRSV136 EQU @NM00040+4 02240000 RBRSV135 EQU @NM00040 02241000 @NM00039 EQU RBSECT+32 02242000 @NM00038 EQU @NM00036+1 02243000 @NM00037 EQU @NM00036 02244000 RBPGMQ1 EQU RBPGMQ+1 02245000 @NM00035 EQU RBPGMQ 02246000 @NM00034 EQU RBSECT+16 02247000 @NM00033 EQU @NM00029 02248000 @NM00032 EQU @NM00029 02249000 RBIQETP EQU @NM00029 02250000 RBUSIQE EQU RBETXR 02251000 RBATTN EQU @NM00029 02252000 @NM00031 EQU @NM00029 02253000 @NM00030 EQU @NM00029 02254000 RBPMSVRB EQU @NM00027 02255000 RBATNXIT EQU @NM00027 02256000 @NM00028 EQU @NM00027 02257000 RBWAITP EQU @NM00027 02258000 RBFNSVRB EQU RBTRSVRB 02259000 RBFTP EQU @NM00027 02260000 RBSIZE EQU RBSECT+8 02261000 RBABOPSW EQU RBSECT+4 02262000 RBPPSAV1 EQU RBPPSAV+1 02263000 @NM00025 EQU RBPPSAV 02264000 RBPRFXND EQU RBPREFIX+64 02265000 RBINTCOD EQU RBINTCDA+1 02266000 RBINLNTH EQU RBINTCDA 02267000 RBWCSA EQU RBPREFIX+60 02268000 RBRSV004 EQU RBPREFIX+57 02269000 RBSSSYN EQU RBFLAGS1 02270000 RBSCB EQU RBFLAGS1 02271000 RBLONGWT EQU RBFLAGS1 02272000 RBASIR EQU RBFLAGS1 02273000 RBRSV159 EQU RBFLAGS1 02274000 RBABEND EQU RBFLAGS1 02275000 RBXWAIT EQU RBFLAGS1 02276000 RBSLOCK EQU RBFLAGS1 02277000 RBRTRAN EQU RBRTPSW2+4 02278000 RBRTINCD EQU RBRTICIL+2 02279000 RBRTILC EQU RBRTICIL+1 02280000 RBRSV160 EQU RBRTICIL 02281000 RBRTPSW1 EQU RBRTOPSW 02282000 RBRSV062 EQU RBRSV054 02283000 RBRSV061 EQU RBRSV054 02284000 RBRSV060 EQU RBRSV054 02285000 RBRSV059 EQU RBRSV054 02286000 RBRSV058 EQU RBRSV054 02287000 RBRSV057 EQU RBRSV054 02288000 RBRSV056 EQU RBRSV054 02289000 RBRSV055 EQU RBRSV054 02290000 RBRSV053 EQU RBPREFIX+38 02291000 RBRSV052 EQU RBPREFIX+36 02292000 RBRSV051 EQU RBPREFIX+32 02293000 RBPRFXST EQU RBPREFIX+32 02294000 RBRSV050 EQU RBPREFIX+28 02295000 RBRSV049 EQU RBRSV041 02296000 RBRSV048 EQU RBRSV041 02297000 RBRSV047 EQU RBRSV041 02298000 RBRSV046 EQU RBRSV041 02299000 RBRSV045 EQU RBRSV041 02300000 RBRSV044 EQU RBRSV041 02301000 RBRSV043 EQU RBRSV041 02302000 RBRSV042 EQU RBRSV041 02303000 RBRSV040 EQU RBPREFIX+26 02304000 RBRSV039 EQU RBPREFIX+24 02305000 RBRSV038 EQU RBPREFIX+20 02306000 RBRSV037 EQU RBPREFIX+16 02307000 RBRSV036 EQU RBRSV028 02308000 RBRSV035 EQU RBRSV028 02309000 RBRSV034 EQU RBRSV028 02310000 RBRSV033 EQU RBRSV028 02311000 RBRSV032 EQU RBRSV028 02312000 RBRSV031 EQU RBRSV028 02313000 RBRSV030 EQU RBRSV028 02314000 RBRSV029 EQU RBRSV028 02315000 RBRSV027 EQU RBRSV019 02316000 RBRSV026 EQU RBRSV019 02317000 RBRSV025 EQU RBRSV019 02318000 RBRSV024 EQU RBRSV019 02319000 RBRSV023 EQU RBRSV019 02320000 RBRSV022 EQU RBRSV019 02321000 RBRSV021 EQU RBRSV019 02322000 RBRSV020 EQU RBRSV019 02323000 RBRSV018 EQU RBPREFIX+13 02324000 RBRSV017 EQU RBPREFIX+12 02325000 RBSRV016 EQU RBPREFIX+11 02326000 RBRSV015 EQU RBPREFIX+10 02327000 RBRSV014 EQU RBPREFIX+8 02328000 RBRSV013 EQU RBPREFIX+4 02329000 RBRSV012 EQU RBPREFIX 02330000 RBEXSAVE EQU XRBESA 02331000 XRBREG15 EQU RBGRS15 02332000 XRBREG14 EQU RBGRS14 02333000 XRBREG13 EQU RBGRS13 02334000 XRBREG12 EQU RBGRS12 02335000 XRBREG11 EQU RBGRS11 02336000 XRBREG10 EQU RBGRS10 02337000 XRBREG9 EQU RBGRS9 02338000 XRBREG8 EQU RBGRS8 02339000 XRBREG7 EQU RBGRS7 02340000 XRBREG6 EQU RBGRS6 02341000 XRBREG5 EQU RBGRS5 02342000 XRBREG4 EQU RBGRS4 02343000 XRBREG3 EQU RBGRS3 02344000 XRBREG2 EQU RBGRS2 02345000 XRBREG1 EQU RBGRS1 02346000 XRBREG0 EQU RBGRS0 02347000 XRBLNKA EQU RBLINKB 02348000 XRBWT EQU RBWCF 02349000 @NM00024 EQU RBBASIC+24 02350000 RBOPSWPS EQU RBOPSWB2 02351000 @NM00023 EQU RBOPSWB2 02352000 @NM00022 EQU XRBPSW 02353000 @NM00021 EQU RBBASIC+12 02354000 XRBWAIT EQU RBECBWT 02355000 XRBFRRB EQU RBFDYN 02356000 @NM00020 EQU XSTAB2 02357000 XRBACTV EQU RBFACTV 02358000 XRBTCBP EQU RBTCBNXT 02359000 @NM00019 EQU XSTAB1 02360000 XRBCKPT EQU RBFTCKPT 02361000 @NM00018 EQU XSTAB1 02362000 @NM00017 EQU RBBASIC+8 02363000 @NM00016 EQU RBEXRTNM+1 02364000 RBTMIND3 EQU RBTMFLD 02365000 RBTMIND2 EQU RBTMFLD 02366000 RBTMCMP EQU RBTMFLD 02367000 RBWLIM EQU RBTMFLD 02368000 RBRSV005 EQU RBTMFLD 02369000 RBTMTOD EQU RBTMFLD 02370000 RBTMQUE EQU RBTMFLD 02371000 @NM00015 EQU RBPRFX 02372000 TIOCSTEP EQU TIOT1+8 02373000 TIOCNJOB EQU TIOT1 02374000 AMBTRACE EQU IDAAMB+120 02375000 AMBVIOT EQU IDAAMB+116 02376000 AMBSZCP EQU IDAAMB+114 02377000 AMBSZFW EQU IDAAMB+112 02378000 AMBSZWR EQU IDAAMB+110 02379000 AMBSZRD EQU IDAAMB+108 02380000 AMBEXEX EQU IDAAMB+100 02381000 AMBWSHD EQU IDAAMB+96 02382000 AMBCPA EQU IDAAMB+92 02383000 AMBBM2SH EQU IDAAMB+88 02384000 AMBRDCNT EQU AMBCSWD1+2 02385000 @NM00012 EQU AMBCSWD1+1 02386000 @NM00011 EQU AMBAFLG 02387000 AMBCFX EQU AMBAFLG 02388000 AMBSIS EQU AMBAFLG 02389000 AMBDFR EQU AMBAFLG 02390000 AMBICI EQU AMBAFLG 02391000 AMBGSR EQU AMBAFLG 02392000 AMBLSR EQU AMBAFLG 02393000 @NM00010 EQU AMBAFLG 02394000 AMBUPLH EQU IDAAMB+80 02395000 AMBPAMBL EQU IDAAMB+76 02396000 AMBPIXP EQU IDAAMB+72 02397000 @NM00009 EQU IDAAMB+68 02398000 AMBIWA EQU IDAAMB+64 02399000 AMBWKA EQU IDAAMB+60 02400000 AMBAMBXN EQU AMBEOVPT 02401000 AMBEDB EQU IDAAMB+52 02402000 AMBRPT EQU IDAAMB+50 02403000 AMBPUG EQU AMBFLG2 02404000 AMBBUSY EQU AMBOFLGS 02405000 AMBEXFG EQU AMBOFLGS 02406000 @NM00008 EQU AMBOFLGS 02407000 AMBOPEN EQU AMBOFLGS 02408000 @NM00007 EQU AMBOFLGS 02409000 AMBDEBAD EQU AMBDEBPT+1 02410000 AMBIFLGS EQU AMBDEBPT 02411000 AMBAMETH EQU IDAAMB+43 02412000 AMBUPX EQU AMBINFL 02413000 AMBUCRA EQU AMBINFL 02414000 AMBSCRA EQU AMBINFL 02415000 AMBCAT EQU AMBINFL 02416000 @NM00006 EQU AMBINFL 02417000 @NM00005 EQU AMBINFL 02418000 AMBTIOT EQU IDAAMB+40 02419000 @NM00004 EQU IDAAMB+38 02420000 AMBDDSN EQU IDAAMB+35 02421000 AMBCDSN EQU IDAAMB+32 02422000 AMBIOMB EQU AMBIOBAD 02423000 @NM00003 EQU AMBDSORG+1 02424000 AMBDORGA EQU AMBDSORG+1 02425000 @NM00002 EQU AMBDSORG 02426000 AMBINBUF EQU AMBFLG1 02427000 AMBJRN EQU AMBFLG1 02428000 AMBUBF EQU AMBFLG1 02429000 AMBSPEED EQU AMBFLG1 02430000 AMBPCAT EQU AMBFLG1 02431000 AMBMCAT EQU AMBFLG1 02432000 AMBTYPE EQU AMBFLG1 02433000 AMBCREAT EQU AMBFLG1 02434000 @NM00001 EQU AMBFLG0 02435000 AMBPSDS EQU AMBFLG0 02436000 AMBDSB EQU IDAAMB+20 02437000 AMBCACB EQU IDAAMB+16 02438000 AMBPH EQU IDAAMB+12 02439000 AMBBUFC EQU IDAAMB+8 02440000 AMBLINK EQU IDAAMB+4 02441000 AMBLEN EQU IDAAMB+2 02442000 AMBRSC EQU IDAAMB+1 02443000 AMBID EQU IDAAMB 02444000 * END UNREFERENCED COMPONENTS 02445000 @ENDDATA EQU * 02446000 END IDA019SU,(C'PLS1857',0701,78209) 02447000