TITLE 'IEAVTAS3 - CONTROL RECOVERY' 00001000 IEAVTAS3 CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEAVTAS3 78.206' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 RBPRFXLN EQU 64 00013000 RBPRFLNA EQU 32 00014000 PRBLEN EQU 136 00015000 SIRBLEN EQU 200 00016000 TIRBLEN EQU 136 00017000 IRBLEN EQU 128 00018000 SVRBLEN EQU 224 00019000 * 0098 00020000 * /*****************************************************************/ 00021000 * /* */ 00022000 * /* FOR NON-RECURSIVE ENTRIES, THIS ROUTINES ATTEMPTS TO SET UP */ 00023000 * /* FOR RETRY IF RETRY IS REQUESTED. IF RETRY IS NOT POSSIBLE */ 00024000 * /* (RETRY RB CANNOT BE LOCATED, ENTRY FOR TERM EXITS ONLY), */ 00025000 * /* PERCOLATION IS FORCED. IF NO RETRY, THE SDWA IS FREED AND */ 00026000 * /* FLAGS ARE RESET TO CORRECTLY INDICATE PROCESSING COMPLETED. */ 00027000 * /* */ 00028000 * /*****************************************************************/ 00029000 * 0099 00030000 * IF RTM2RETR=OFF THEN /* NOT ENTRY TO SET UP FOR RETRY 00031000 * @G33SPHW*/ 00032000 TM RTM2RETR(RTM2PTR),B'01000000' 0099 00033000 BNZ @RF00099 0099 00034000 * IF RTM2AS1R=OFF THEN /* ENTRY FOR PSEUDO RETRY INTO 0100 00035000 * AS1 */ 00036000 TM RTM2AS1R(RTM2PTR),B'00000100' 0100 00037000 BNZ @RF00100 0100 00038000 * IF RTM2AS3R=OFF THEN /* NOT RECURSION WHICH IS HANDLED 00039000 * IN THIS ROUTINE */ 00040000 TM RTM2AS3R(RTM2PTR),B'00000001' 0101 00041000 BNZ @RF00101 0101 00042000 * DO; 0102 00043000 * IF RTM2RCDE=SDWARETY&RTM2CLUP=OFF THEN/* RETRY REQUESTED 00044000 * AND ALLOWED */ 00045000 CLI RTM2RCDE(RTM2PTR),4 0103 00046000 BNE @RF00103 0103 00047000 TM RTM2CLUP(RTM2PTR),B'10000000' 0103 00048000 BNZ @RF00103 0103 00049000 * DO; 0104 00050000 * RTM2RTYS=ON; /* INDICATE RETRY PROCESSING */ 00051000 OI RTM2RTYS(RTM2PTR),B'01000000' 0105 00052000 * RTM2TRRA=ADDR(RECURSE);/* INITIALIZE RECURSION 0106 00053000 * ADDRESS */ 00054000 * 0106 00055000 L @12,@CV00066 0106 00056000 ST @12,RTM2TRRA(,RTM2PTR) 0106 00057000 * /*****************************************************/ 00058000 * /* */ 00059000 * /* AN ATTEMPT IS MADE TO LOCATE THE RETRY RB. IF NO */ 00060000 * /* RB IS LOCATED, NO FURTHER RETRY PROCESSING IS DONE*/ 00061000 * /* AND CONTINUE WITH TERMINATION IS FORCED. FOR */ 00062000 * /* (E)STAE EXITS THE RETRY RB IS THE ONE POINTED TO */ 00063000 * /* FROM THE SCB. FOR ESTAR EXITS, THE RETRY RB IS THE*/ 00064000 * /* OLDEST RB ON THE QUEUE. FOR (E)STAI EXITS THE */ 00065000 * /* RETRY RB MUST BE A PRB. IF THERE IS A PRB WHOSE */ 00066000 * /* RBLINK FIELD POINTS TO AN RTM2 SVRB, THAT IS THE */ 00067000 * /* FIRST CHOICE. IF THERE IS NO PREVIOUS RTM2 RB ON */ 00068000 * /* THE QUEUE, THE RETRY RB IS THE NEWEST PRB OLDER */ 00069000 * /* THAN THE OLDEST NON-PRB. */ 00070000 * /* */ 00071000 * /*****************************************************/ 00072000 * 0107 00073000 * DO; /* START OF FINDRB */ 00074000 * IF SCBSTAI=OFF&SCBSTAR=OFF THEN/* (E)STAE SCB */ 00075000 TM SCBSTAI(SCBPTR),B'11000000' 0108 00076000 BNZ @RF00108 0108 00077000 * RTM2RYRB=SCBOWNRA;/* RETRY RB IS RB WHICH ISSUED 00078000 * STAE */ 00079000 L @12,SCBOWNRA-1(,SCBPTR) 0109 00080000 LA @12,0(,@12) 0109 00081000 ST @12,RTM2RYRB(,RTM2PTR) 0109 00082000 * ELSE /* NOT (E)STAE SCB */ 00083000 * IF SCBSTAR=ON THEN/* ESTAR SCB */ 00084000 B @RC00108 0110 00085000 @RF00108 TM SCBSTAR(SCBPTR),B'01000000' 0110 00086000 BNO @RF00110 0110 00087000 * RTM2RYRB=RTM2STAR;/* ACCESS ESTAR RELATED RB */ 00088000 * 0111 00089000 L @12,RTM2STAR(,RTM2PTR) 0111 00090000 ST @12,RTM2RYRB(,RTM2PTR) 0111 00091000 * /***************************************************/ 00092000 * /* */ 00093000 * /* (E)STAI RETRY */ 00094000 * /* */ 00095000 * /***************************************************/ 00096000 * 0112 00097000 * ELSE 0112 00098000 * DO; 0112 00099000 B @RC00110 0112 00100000 @RF00110 DS 0H 0113 00101000 * RESPECIFY 0113 00102000 * (R4, 0113 00103000 * R2) RESTRICTED; 0113 00104000 * R4=RTM2VRBC->RBLINKB;/* START WITH CURRENT RB*/ 00105000 L @12,RTM2VRBC(,RTM2PTR) 0114 00106000 L R4,RBLINKB-1(,@12) 0114 00107000 LA R4,0(,R4) 0114 00108000 * R2=NONE; 0115 00109000 SLR R2,R2 0115 00110000 * RTM2RYRB=NONE; 0116 00111000 * 0116 00112000 SLR @12,@12 0116 00113000 ST @12,RTM2RYRB(,RTM2PTR) 0116 00114000 * /*********************************************/ 00115000 * /* */ 00116000 * /* SCAN FOR ELIGIBLE PRB */ 00117000 * /* */ 00118000 * /*********************************************/ 00119000 * 0117 00120000 * DO WHILE(R4^=RTM2TCBC&RTM2RYRB=NONE);/* SCAN 00121000 * ENTIRE QUEUE UNLESS STA EXIT 00122000 * RB FOUND */ 00123000 B @DE00117 0117 00124000 @DL00117 DS 0H 0118 00125000 * IF RBFTP='000'B THEN/* RB IS PRB */ 00126000 TM RBFTP(R4),B'11100000' 0118 00127000 BNZ @RF00118 0118 00128000 * IF RBTCBNXT^=ON THEN 0119 00129000 TM RBTCBNXT(R4),B'10000000' 0119 00130000 BO @RF00119 0119 00131000 * IF EVAL(RBLINKB-LENGTH(RBPREFIX))-> 0120 00132000 * RBABEND=ON THEN/* PREVIOUS RB IS 0120 00133000 * RTM2 SVRB */ 00134000 L @12,RBLINKB-1(,R4) 0120 00135000 LA @12,0(,@12) 0120 00136000 SL @12,@CF00472 0120 00137000 TM RBABEND(@12),B'00100000' 0120 00138000 BNO @RF00120 0120 00139000 * RTM2RYRB=R4;/* RETRY RB FOUND */ 00140000 ST R4,RTM2RYRB(,RTM2PTR) 0121 00141000 * ELSE /* PRB BUT NOT EXIT RB */ 00142000 * IF R2=NONE THEN/* NEWEST RB IN THIS 00143000 * GROUP */ 00144000 B @RC00120 0122 00145000 @RF00120 LTR R2,R2 0122 00146000 BNZ @RF00122 0122 00147000 * R2=R4;/* SAVE RB ADDRESS */ 00148000 LR R2,R4 0123 00149000 * ELSE 0124 00150000 * ; /* PREVIOUS RB WAS PRB - IGNORE 00151000 * THIS ONE */ 00152000 @RF00122 DS 0H 0125 00153000 * ELSE 0125 00154000 * IF R2=NONE THEN/* TEST IF NEWEST PRB */ 00155000 B @RC00119 0125 00156000 @RF00119 LTR R2,R2 0125 00157000 BNZ @RF00125 0125 00158000 * R2=R4;/* SAVE PRB ADDRESS */ 00159000 LR R2,R4 0126 00160000 * ELSE 0127 00161000 * ; 0127 00162000 @RF00125 DS 0H 0128 00163000 * ELSE /* NOT PRB */ 00164000 * R2=NONE;/* CLEAR PTR - OLDER NON-PRB */ 00165000 B @RC00118 0128 00166000 @RF00118 SLR R2,R2 0128 00167000 * R4=RBLINKB;/* UPDATE RB POINTER */ 00168000 @RC00118 L @12,RBLINKB-1(,R4) 0129 00169000 LA @12,0(,@12) 0129 00170000 LR R4,@12 0129 00171000 * END; /* END OF RB SCAN */ 00172000 @DE00117 C R4,RTM2TCBC(,RTM2PTR) 0130 00173000 BE @DC00117 0130 00174000 L @12,RTM2RYRB(,RTM2PTR) 0130 00175000 LTR @12,@12 0130 00176000 BZ @DL00117 0130 00177000 @DC00117 DS 0H 0131 00178000 * IF RTM2RYRB=NONE THEN/* STA EXIT RB NOT FOUND*/ 00179000 SLR @12,@12 0131 00180000 C @12,RTM2RYRB(,RTM2PTR) 0131 00181000 BNE @RF00131 0131 00182000 * IF R2^=NONE THEN/* PRB OLDER THAN OLDEST 0132 00183000 * NON-PRB FOUND */ 00184000 CR R2,@12 0132 00185000 BE @RF00132 0132 00186000 * RTM2RYRB=R2;/* THIS IS RETRY RB */ 00187000 ST R2,RTM2RYRB(,RTM2PTR) 0133 00188000 * ELSE /* OLDEST RB IS NOT PRB */ 00189000 * RTM2RCDE=SDWACWT;/* RETRY NOT POSSIBLE */ 00190000 B @RC00132 0134 00191000 @RF00132 MVI RTM2RCDE(RTM2PTR),X'00' 0134 00192000 * END; 0135 00193000 @RC00132 DS 0H 0135 00194000 @RF00131 DS 0H 0136 00195000 * RESPECIFY 0136 00196000 * (R4, 0136 00197000 * R2) UNRESTRICTED;/* RELEASE PTRS USED FOR SCAN */ 00198000 @RC00110 DS 0H 0136 00199000 @RC00108 DS 0H 0137 00200000 * END; /* END OF FINDRB */ 00201000 * IF RTM2RCDE=SDWARETY THEN/* RETRY RB FOUND - RETRY 0138 00202000 * CONTINUES */ 00203000 CLI RTM2RCDE(RTM2PTR),4 0138 00204000 BNE @RF00138 0138 00205000 * DO; 0139 00206000 * 0139 00207000 * /*************************************************/ 00208000 * /* */ 00209000 * /* RBPRGE PERFORMS PURGES NEEDED BEFORE RETRY. IT*/ 00210000 * /* INCLUDES CLOSEDS TO CLOSE EMBEDDED DCBS. IT */ 00211000 * /* THEN PURGES ASYNCHRONOUS EXITS, TQES, AND */ 00212000 * /* ENQ'D RESOURCES FOR ESTAR RETRY. FOR */ 00213000 * /* (E)STAE/STAE RETRY, PAGEPRGE IS INCLUDED TO */ 00214000 * /* PURGE PAGING I/O FOR INTERVENING RBS. FOR STA */ 00215000 * /* EXITS, WTORS ARE PURGED IF ANY RBS ARE TO BE */ 00216000 * /* PURGED. THE TYPE 1 MESSAGE TABLE IS PURGED. */ 00217000 * /* THEN RBTYPE IS INCLUDED TO SET ALL INTERVENING*/ 00218000 * /* RBS UP FOR RETRY. */ 00219000 * /* */ 00220000 * /*************************************************/ 00221000 * 0140 00222000 * DO; /* START OF RBPRGE */ 00223000 * 0140 00224000 * /***********************************************/ 00225000 * /* */ 00226000 * /* SET UP RMPL FOR TASK RECOVERY PURGES */ 00227000 * /* */ 00228000 * /***********************************************/ 00229000 * 0141 00230000 * RMPLRCOV=ON; /* TASK RECOVERY IS CALLER */ 00231000 * RMPLTYPE=ON; /* INDICATE ABNORMAL TERMINATION 00232000 * @YM04241*/ 00233000 LA @12,712 0142 00234000 ALR @12,RTM2PTR 0142 00235000 OI RMPLRCOV(@12),B'10001000' 0142 00236000 * RMPLTCBA=RTM2TCBC;/* PURGES ARE FOR CURRENT TCB*/ 00237000 L @11,RTM2TCBC(,RTM2PTR) 0143 00238000 ST @11,RMPLTCBA(,@12) 0143 00239000 * IF RMPLTCBA=RMPLTCBA->TCBJSTCA THEN/* CURRENT 00240000 * TCB IS JOBSTEP */ 00241000 L @06,TCBJSTCA-1(,@11) 0144 00242000 LA @06,0(,@06) 0144 00243000 CR @11,@06 0144 00244000 BNE @RF00144 0144 00245000 * RMPLJST=ON; 0145 00246000 OI RMPLJST(@12),B'00000100' 0145 00247000 * ELSE /* CURRENT TCB IS NOT JOBSTEP */ 00248000 * RMPLJST=OFF; 0146 00249000 B @RC00144 0146 00250000 @RF00144 NI RMPLJST+712(RTM2PTR),B'11111011' 0146 00251000 * RESPECIFY 0147 00252000 * (R1, 0147 00253000 * R13) RESTRICTED; 0147 00254000 @RC00144 DS 0H 0148 00255000 * R1=ADDR(RTM2RMPS); 0148 00256000 LA R1,RTM2RMPS(,RTM2PTR) 0148 00257000 * R13=ADDR(RTM2RMSA); 0149 00258000 LA R13,RTM2RMSA(,RTM2PTR) 0149 00259000 * IF SCBSTAR=ON THEN/* ESTAR RETRY */ 00260000 TM SCBSTAR(SCBPTR),B'01000000' 0150 00261000 BNO @RF00150 0150 00262000 * DO; /* SPECIAL PURGES FOR ESTAR */ 00263000 * CALL DATAMGR;/* CLOSE ALL DATASETS */ 00264000 L @12,CVTPTR(,RTM2PTR) 0152 00265000 L @15,CVT0TC0A(,@12) 0152 00266000 BALR @14,@15 0152 00267000 * CALL AEXITRM;/* PURGE ASYNCHRONOUS EXITS */ 00268000 L @12,CVTPTR(,RTM2PTR) 0153 00269000 L @15,CVTDQIQE(,@12) 0153 00270000 BALR @14,@15 0153 00271000 * CALL IEAQPGTM;/* PURGE TIMER QUEUE ELEMENTS*/ 00272000 L @12,CVTPTR(,RTM2PTR) 0154 00273000 L @12,SCVTSPTR(,@12) 0154 00274000 L @15,SCVTPGTM(,@12) 0154 00275000 BALR @14,@15 0154 00276000 * CALL IEAVENQ2;/* PURGE ENQUEUED RESOURCES */ 00277000 L @12,CVTPTR(,RTM2PTR) 0155 00278000 L @15,CVTRENQ(,@12) 0155 00279000 BALR @14,@15 0155 00280000 * END; /* END SPECIAL ESTAR PURGES */ 00281000 * ELSE /* NOT ESTAR */ 00282000 * DO; 0157 00283000 * 0157 00284000 B @RC00150 0157 00285000 @RF00150 DS 0H 0158 00286000 * /*******************************************/ 00287000 * /* */ 00288000 * /* CLOSEDS LOCATES AND CLOSES DATASETS */ 00289000 * /* EMBEDDED IN CODE DESCRIBED BY A PRB. IT */ 00290000 * /* ALSO UPDATES THE IOB RESTORE CHAIN TO */ 00291000 * /* REMOVE IOBS ASSOCIATED WITH CLOSED */ 00292000 * /* DATASETS. RBS BETWEEN THE CURRENT RB AND*/ 00293000 * /* THE RETRY RB ARE CHECKED FOR PRBS. FOR */ 00294000 * /* EACH PRB FOUND THE EXTENT LIST IS */ 00295000 * /* LOCATED AND FINDDCBS IS INCLUDED TO FIND*/ 00296000 * /* AND CLOSE ALL DCBS ASSOCIATED WITH THIS */ 00297000 * /* PRB. */ 00298000 * /* */ 00299000 * /*******************************************/ 00300000 * 0158 00301000 * ; /* START OF CLOSEDS */ 00302000 * RESPECIFY 0159 00303000 * (R4, /* RB PTR */ 00304000 * R9) RESTRICTED;/* EXTENT LIST PTR */ 00305000 * RMPLRBPP=ON;/* INDICATE DCB LIST PASSED */ 00306000 LA @12,712 0160 00307000 ALR @12,RTM2PTR 0160 00308000 OI RMPLRBPP(@12),B'00100000' 0160 00309000 * R4=RTM2VRBC->RBLINKB;/* SET UP POINTER TO 00310000 * FIRST RB */ 00311000 L @11,RTM2VRBC(,RTM2PTR) 0161 00312000 L R4,RBLINKB-1(,@11) 0161 00313000 LA R4,0(,R4) 0161 00314000 * RMPLDCBL=ADDR(RTM2DCBA);/* SET UP PTR TO 0162 00315000 * DCB LIST */ 00316000 * 0162 00317000 LA @11,RTM2DCBA(,RTM2PTR) 0162 00318000 ST @11,RMPLDCBL(,@12) 0162 00319000 * /*******************************************/ 00320000 * /* */ 00321000 * /* SCAN RBS TO RETRY RB */ 00322000 * /* */ 00323000 * /*******************************************/ 00324000 * 0163 00325000 * DO WHILE(R4^=RTM2RYRB); 0163 00326000 B @DE00163 0163 00327000 @DL00163 DS 0H 0164 00328000 * R9=NONE;/* ASSUME NO EXTENT LIST */ 00329000 SLR R9,R9 0164 00330000 * IF RBFTP='000'B/* PRB */ 00331000 * &RBCDE1->CDNIC=OFF&RBCDE1^=NONE THEN 00332000 TM RBFTP(R4),B'11100000' 0165 00333000 BNZ @RF00165 0165 00334000 L @12,RBCDE1-1(,R4) 0165 00335000 LA @12,0(,@12) 0165 00336000 TM CDNIC(@12),B'01000000' 0165 00337000 BNZ @RF00165 0165 00338000 LTR @12,@12 0165 00339000 BZ @RF00165 0165 00340000 * /* CDE ENTRY PRESENT */ 00341000 * IF RBCDE1->CDMIN=OFF THEN/* MAJOR CDE */ 00342000 TM CDMIN(@12),B'00000100' 0166 00343000 BNZ @RF00166 0166 00344000 * IF RBCDE1->CDXLE=ON THEN/* EXTENT 0167 00345000 * LIST BUILT */ 00346000 TM CDXLE(@12),B'00100000' 0167 00347000 BNO @RF00167 0167 00348000 * R9=RBCDE1->CDXLMJP;/* LOCATE EXTENT 00349000 * LIST */ 00350000 L R9,CDXLMJP(,@12) 0168 00351000 * ELSE 0169 00352000 * ; /* NO EXTENT LIST */ 00353000 @RF00167 DS 0H 0170 00354000 * ELSE /* MINOR CDE */ 00355000 * IF RBCDE1->CDXLMJP->CDXLE=ON THEN/* 00356000 * MAJOR CDE HAS EXTENT LIST */ 00357000 B @RC00166 0170 00358000 @RF00166 L @12,RBCDE1-1(,R4) 0170 00359000 L @12,CDXLMJP(,@12) 0170 00360000 TM CDXLE(@12),B'00100000' 0170 00361000 BNO @RF00170 0170 00362000 * R9=RBCDE1->CDXLMJP->CDXLMJP;/* 0171 00363000 * LOCATE EXTENT LIST FOR MAJOR 00364000 * CDE */ 00365000 L R9,CDXLMJP(,@12) 0171 00366000 * IF R9^=NONE THEN/* EXTENT LIST FOUND */ 00367000 * 0172 00368000 @RF00170 DS 0H 0172 00369000 @RC00166 DS 0H 0172 00370000 @RF00165 LTR R9,R9 0172 00371000 BZ @RF00172 0172 00372000 * /***************************************/ 00373000 * /* */ 00374000 * /* FINDDCBS LOCATES AND CLOSES ALL OPEN*/ 00375000 * /* DATASETS EMBEDDED IN THE CODE FOR A */ 00376000 * /* GIVEN PRB. IT EXAMINES EACH DEB ON */ 00377000 * /* THE TCB DEB QUEUE TO DETERMINE */ 00378000 * /* WHETHER ITS DCB FALLS WITHIN ANY */ 00379000 * /* EXTENT FOR THIS RB. IF IT DOES, */ 00380000 * /* FINDIOB IS CALLED TO REMOVE RELATED */ 00381000 * /* IOBS FROM THE RESTORE CHAIN. THE */ 00382000 * /* DATA MANAGEMENT RESOURCE MANAGER IS */ 00383000 * /* INVOKED TO CLOSE THE DATASET. */ 00384000 * /* */ 00385000 * /***************************************/ 00386000 * 0173 00387000 * DO; /* START OF FINDDCBS */ 00388000 * RESPECIFY 0174 00389000 * (R11,/* PTR TO DEB */ 00390000 * R2) RESTRICTED;/* LOOP CONTROL 0174 00391000 * VARIABLE */ 00392000 * ESAGLREC=ON;/* SET RECURSION CONTROL */ 00393000 L @12,RTM2VRBC(,RTM2PTR) 0175 00394000 OI ESAGLREC+96(@12),B'00010000' 0175 00395000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00396000 * TYPE(LOCAL) RELATED(DEB,IEAVTA 00397000 * S3(FINDDCBS)) */ 00398000 * RFY 0177 00399000 * (GPR11P, 0177 00400000 * GPR12P, 0177 00401000 * GPR13P, 0177 00402000 * GPR14P) RSTD; 0177 00403000 * GPR13P=PSALITA;/* ADDRESS OF LOCK 00404000 * INTERFACE TABLE. */ 00405000 L GPR13P,PSALITA 0178 00406000 * GEN(LM GPR11P,GPR13P,576(GPR13P)); 00407000 LM GPR11P,GPR13P,576(GPR13P) 00408000 * /* LOAD LOCKWORD, CLHT AND ENTRY 00409000 * ADRS. */ 00410000 * GEN(BALR GPR14P,GPR13P);/* BALR TO 00411000 * SETLOCK RTN. */ 00412000 BALR GPR14P,GPR13P 00413000 * RFY 0181 00414000 * (GPR11P, 0181 00415000 * GPR12P, 0181 00416000 * GPR13P, 0181 00417000 * GPR14P) UNRSTD; 0181 00418000 * END;/* SETLOCK (OBTAIN) MODE(UNCOND) 00419000 * TYPE(LOCAL) RELATED(DEB,IEAVTA 00420000 * S3(FINDDCBS)) */ 00421000 * ESAGLREC=OFF;/* RELEASE RECURSION 0183 00422000 * CONTROL */ 00423000 L @12,RTM2VRBC(,RTM2PTR) 0183 00424000 NI ESAGLREC+96(@12),B'11101111' 0183 00425000 * R11=TCBDEB;/* LOCATE FIRST DEB */ 00426000 * 0184 00427000 L @12,TCBPTR(,RTM2PTR) 0184 00428000 L R11,TCBDEB(,@12) 0184 00429000 * /*************************************/ 00430000 * /* */ 00431000 * /* CHECK EVERY DEB ON THE QUEUE */ 00432000 * /* */ 00433000 * /*************************************/ 00434000 * 0185 00435000 * DO WHILE(R11^=NONE); 0185 00436000 B @DE00185 0185 00437000 @DL00185 DS 0H 0186 00438000 * RTM2DCBA=NONE;/* NO DCB FOUND */ 00439000 SLR @12,@12 0186 00440000 ST @12,RTM2DCBA(,RTM2PTR) 0186 00441000 * DO R2=1 TO XTLNRFAC WHILE(RTM2DCBA= 00442000 * NONE); 0187 00443000 LA R2,1 0187 00444000 B @DE00187 0187 00445000 @DL00187 L @12,RTM2DCBA(,RTM2PTR) 0187 00446000 LTR @12,@12 0187 00447000 BNZ @DC00187 0187 00448000 * IF DEBDCBB>=XTLMSBAA(R2)&DEBDCBB< 00449000 * XTLMSBAA(R2)+XTLMSBLN(R2) THEN 00450000 L @12,DEBDCBB-1(,R11) 0188 00451000 LA @12,0(,@12) 0188 00452000 LR @08,R2 0188 00453000 SLA @08,2 0188 00454000 LA @06,XTLMSBLA(,R9) 0188 00455000 L @15,XTLNRFAC(,R9) 0188 00456000 SLA @15,2 0188 00457000 ALR @06,@15 0188 00458000 AL @06,@CF03717 0188 00459000 L @06,XTLMSBAA(@08,@06) 0188 00460000 CR @12,@06 0188 00461000 BL @RF00188 0188 00462000 L @08,XTLMSBLN-5(@08,R9) 0188 00463000 LA @08,0(,@08) 0188 00464000 ALR @06,@08 0188 00465000 CR @12,@06 0188 00466000 BNL @RF00188 0188 00467000 * /* DCB FOR THIS DEB WITHIN 0189 00468000 * PROGRAM */ 00469000 * RTM2DCBA=DEBDCBB;/* SAVE DCB 0189 00470000 * ADDRESS */ 00471000 ST @12,RTM2DCBA(,RTM2PTR) 0189 00472000 * END;/* END OF EXTENT LIST SCAN */ 00473000 @RF00188 AL R2,@CF00092 0190 00474000 @DE00187 C R2,XTLNRFAC(,R9) 0190 00475000 BNH @DL00187 0190 00476000 @DC00187 DS 0H 0191 00477000 * IF RTM2DCBA^=NONE THEN/* EMBEDDED 00478000 * DCB FOUND */ 00479000 L @12,RTM2DCBA(,RTM2PTR) 0191 00480000 LTR @12,@12 0191 00481000 BZ @RF00191 0191 00482000 * DO; 0192 00483000 * R13=ADDR(RTM2RMSA); 0193 00484000 LA R13,RTM2RMSA(,RTM2PTR) 0193 00485000 * CALL FINDIOB;/* DEQUEUE IOBS FOR 00486000 * THIS DCB */ 00487000 BAL @14,FINDIOB 0194 00488000 * ESAGLREC=ON;/* SET RECURSION 0195 00489000 * CONTROL */ 00490000 L @12,RTM2VRBC(,RTM2PTR) 0195 00491000 OI ESAGLREC+96(@12),B'00010000' 0195 00492000 * DO;/* SETLOCK (RELEASE) 0196 00493000 * TYPE(LOCAL) RELATED(DEB,IEAVTA 00494000 * S3(FINDDCBS)) */ 00495000 * RFY 0197 00496000 * (GPR11P, 0197 00497000 * GPR12P, 0197 00498000 * GPR13P, 0197 00499000 * GPR14P) RSTD; 0197 00500000 * GPR13P=PSALITA;/* ADDRESS OF 0198 00501000 * LOCK INTERFACE TABLE. */ 00502000 L GPR13P,PSALITA 0198 00503000 * GEN(LM GPR11P,GPR13P,588(GPR13P)) 00504000 * ;/* LOAD LOCKWORD, CLHT AND 00505000 * ENTRY ADRS. */ 00506000 LM GPR11P,GPR13P,588(GPR13P) 00507000 * GEN(BALR GPR14P,GPR13P);/* BALR 00508000 * TO SETLOCK RTN. */ 00509000 BALR GPR14P,GPR13P 00510000 * RFY 0201 00511000 * (GPR11P, 0201 00512000 * GPR12P, 0201 00513000 * GPR13P, 0201 00514000 * GPR14P) UNRSTD; 0201 00515000 * END;/* SETLOCK (RELEASE) 0202 00516000 * TYPE(LOCAL) RELATED(DEB,IEAVTA 00517000 * S3(FINDDCBS)) */ 00518000 * ESAGLREC=OFF;/* RELEASE 0203 00519000 * RECURSION CONTROL */ 00520000 L @12,RTM2VRBC(,RTM2PTR) 0203 00521000 NI ESAGLREC+96(@12),B'11101111' 0203 00522000 * R13=ADDR(RTM2RMSA); 0204 00523000 LA R13,RTM2RMSA(,RTM2PTR) 0204 00524000 * CALL DATAMGR;/* INVOKE TASK 0205 00525000 * CLOSE */ 00526000 L @12,CVTPTR(,RTM2PTR) 0205 00527000 L @15,CVT0TC0A(,@12) 0205 00528000 BALR @14,@15 0205 00529000 * ESAGLREC=ON;/* SET RECURSION 0206 00530000 * CONTROL */ 00531000 L @12,RTM2VRBC(,RTM2PTR) 0206 00532000 OI ESAGLREC+96(@12),B'00010000' 0206 00533000 * DO;/* SETLOCK (OBTAIN) 0207 00534000 * MODE(UNCOND) TYPE(LOCAL) RELAT 00535000 * ED(DEB,IEAVTAS3(FINDDCBS)) */ 00536000 * RFY 0208 00537000 * (GPR11P, 0208 00538000 * GPR12P, 0208 00539000 * GPR13P, 0208 00540000 * GPR14P) RSTD; 0208 00541000 * GPR13P=PSALITA;/* ADDRESS OF 0209 00542000 * LOCK INTERFACE TABLE. */ 00543000 L GPR13P,PSALITA 0209 00544000 * GEN(LM GPR11P,GPR13P,576(GPR13P)) 00545000 * ;/* LOAD LOCKWORD, CLHT AND 00546000 * ENTRY ADRS. */ 00547000 LM GPR11P,GPR13P,576(GPR13P) 00548000 * GEN(BALR GPR14P,GPR13P);/* BALR 00549000 * TO SETLOCK RTN. */ 00550000 BALR GPR14P,GPR13P 00551000 * RFY 0212 00552000 * (GPR11P, 0212 00553000 * GPR12P, 0212 00554000 * GPR13P, 0212 00555000 * GPR14P) UNRSTD; 0212 00556000 * END;/* SETLOCK (OBTAIN) 0213 00557000 * MODE(UNCOND) TYPE(LOCAL) RELAT 00558000 * ED(DEB,IEAVTAS3(FINDDCBS)) */ 00559000 * ESAGLREC=OFF;/* RELEASE 0214 00560000 * RECURSION CONTROL */ 00561000 L @12,RTM2VRBC(,RTM2PTR) 0214 00562000 NI ESAGLREC+96(@12),B'11101111' 0214 00563000 * R11=TCBDEB;/* PREPARE TO START 00564000 * SEARCH OF DEB QUEUE AGAIN */ 00565000 L @12,TCBPTR(,RTM2PTR) 0215 00566000 L R11,TCBDEB(,@12) 0215 00567000 * END; 0216 00568000 * ELSE/* NO EMBEDDED DCBS WERE FOUND */ 00569000 * R11=DEBDEBB;/* LOCATE NEXT DEB */ 00570000 B @RC00191 0217 00571000 @RF00191 L @12,DEBDEBB-1(,R11) 0217 00572000 LA @12,0(,@12) 0217 00573000 LR R11,@12 0217 00574000 * END;/* END OF DEBSCAN */ 00575000 @RC00191 DS 0H 0218 00576000 @DE00185 LTR R11,R11 0218 00577000 BNZ @DL00185 0218 00578000 * ESAGLREC=ON;/* SET RECURSION CONTROL */ 00579000 L @12,RTM2VRBC(,RTM2PTR) 0219 00580000 OI ESAGLREC+96(@12),B'00010000' 0219 00581000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00582000 * RELATED(DEB,IEAVTAS3(FINDDCBS) 00583000 * ) */ 00584000 * RFY 0221 00585000 * (GPR11P, 0221 00586000 * GPR12P, 0221 00587000 * GPR13P, 0221 00588000 * GPR14P) RSTD; 0221 00589000 * GPR13P=PSALITA;/* ADDRESS OF LOCK 00590000 * INTERFACE TABLE. */ 00591000 L GPR13P,PSALITA 0222 00592000 * GEN(LM GPR11P,GPR13P,588(GPR13P)); 00593000 LM GPR11P,GPR13P,588(GPR13P) 00594000 * /* LOAD LOCKWORD, CLHT AND ENTRY 00595000 * ADRS. */ 00596000 * GEN(BALR GPR14P,GPR13P);/* BALR TO 00597000 * SETLOCK RTN. */ 00598000 BALR GPR14P,GPR13P 00599000 * RFY 0225 00600000 * (GPR11P, 0225 00601000 * GPR12P, 0225 00602000 * GPR13P, 0225 00603000 * GPR14P) UNRSTD; 0225 00604000 * END;/* SETLOCK (RELEASE) TYPE(LOCAL) 00605000 * RELATED(DEB,IEAVTAS3(FINDDCBS) 00606000 * ) */ 00607000 * ESAGLREC=OFF;/* RELEASE RECURSION 0227 00608000 * CONTROL */ 00609000 L @12,RTM2VRBC(,RTM2PTR) 0227 00610000 NI ESAGLREC+96(@12),B'11101111' 0227 00611000 * R13=ADDR(RTM2RMSA); 0228 00612000 LA R13,RTM2RMSA(,RTM2PTR) 0228 00613000 * RESPECIFY 0229 00614000 * (R11, 0229 00615000 * R2) UNRESTRICTED; 0229 00616000 * END; /* END OF FINDDCBS */ 00617000 * IF RBFTP='110'B/* SVRB @ZA00094*/ 00618000 * &RBPMSVRB=ON THEN/* PROGRAM MANAGER 00619000 * SVRB @ZA00094*/ 00620000 * 0231 00621000 @RF00172 TM RBFTP(R4),B'11000000' 0231 00622000 BNO @RF00231 0231 00623000 TM RBFTP(R4),B'00100000' 0231 00624000 BNZ @RF00231 0231 00625000 TM RBPMSVRB(R4),B'00000001' 0231 00626000 BNO @RF00231 0231 00627000 * /***************************************/ 00628000 * /* */ 00629000 * /* PROGRAM MANAGER'S SVRB IS ON THE RB */ 00630000 * /* QUEUE BETWEEN THE CURRENT RB AND THE*/ 00631000 * /* RETRY RB. BEFORE THIS RB IS SENT */ 00632000 * /* THROUGH EXIT, IT MUST BE REMOVED */ 00633000 * /* FROM PROGRAM MANAGER'S QUEUES. THIS */ 00634000 * /* WILL BE DONE BY PROGRAM MANAGER'S */ 00635000 * /* RESOURCE MANAGER. @ZA00094*/ 00636000 * /* */ 00637000 * /***************************************/ 00638000 * 0232 00639000 * DO; /* START OF PGMMPRGE @ZA00094*/ 00640000 * RMPLRBPA=R4;/* RB FIELD POINTS TO 0233 00641000 * PROGRAM MANAGER'S SVRB 0233 00642000 * @ZA00094*/ 00643000 ST R4,RMPLRBPA+712(,RTM2PTR) 0233 00644000 * ESAGLREC=ON;/* SET RECURSION CONTROL 00645000 * @ZA00094*/ 00646000 L @12,RTM2VRBC(,RTM2PTR) 0234 00647000 OI ESAGLREC+96(@12),B'00010000' 0234 00648000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 00649000 * TYPE(LOCAL) RELATED(CDE,IEAVTA 00650000 * S3(PGMMPRGE)) */ 00651000 * RFY 0236 00652000 * (GPR11P, 0236 00653000 * GPR12P, 0236 00654000 * GPR13P, 0236 00655000 * GPR14P) RSTD; 0236 00656000 * GPR13P=PSALITA;/* ADDRESS OF LOCK 00657000 * INTERFACE TABLE. */ 00658000 L GPR13P,PSALITA 0237 00659000 * GEN(LM GPR11P,GPR13P,576(GPR13P)); 00660000 LM GPR11P,GPR13P,576(GPR13P) 00661000 * /* LOAD LOCKWORD, CLHT AND ENTRY 00662000 * ADRS. */ 00663000 * GEN(BALR GPR14P,GPR13P);/* BALR TO 00664000 * SETLOCK RTN. */ 00665000 BALR GPR14P,GPR13P 00666000 * RFY 0240 00667000 * (GPR11P, 0240 00668000 * GPR12P, 0240 00669000 * GPR13P, 0240 00670000 * GPR14P) UNRSTD; 0240 00671000 * END;/* SETLOCK (OBTAIN) MODE(UNCOND) 00672000 * TYPE(LOCAL) RELATED(CDE,IEAVTA 00673000 * S3(PGMMPRGE)) GET LOCK 0241 00674000 * @ZA00094*/ 00675000 * ESAGLREC=OFF;/* FREE RECURSION 0242 00676000 * CONTROL @ZA00094*/ 00677000 L @12,RTM2VRBC(,RTM2PTR) 0242 00678000 NI ESAGLREC+96(@12),B'11101111' 0242 00679000 * R13=ADDR(RTM2RMSA);/* RESTORE SAVE 0243 00680000 * AREA PTR @ZA00094*/ 00681000 LA R13,RTM2RMSA(,RTM2PTR) 0243 00682000 * CALL IEAPPGMA;/* CALL PROG MANAGER RM 00683000 * @ZA00094*/ 00684000 L @12,CVTPTR(,RTM2PTR) 0244 00685000 L @15,CVTPARRL(,@12) 0244 00686000 BALR @14,@15 0244 00687000 * ESAGLREC=ON;/* SET RECURSION CONTROL 00688000 * @ZA00094*/ 00689000 L @12,RTM2VRBC(,RTM2PTR) 0245 00690000 OI ESAGLREC+96(@12),B'00010000' 0245 00691000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 00692000 * RELATED(CDE,IEAVTAS3(PGMMPRGE) 00693000 * ) */ 00694000 * RFY 0247 00695000 * (GPR11P, 0247 00696000 * GPR12P, 0247 00697000 * GPR13P, 0247 00698000 * GPR14P) RSTD; 0247 00699000 * GPR13P=PSALITA;/* ADDRESS OF LOCK 00700000 * INTERFACE TABLE. */ 00701000 L GPR13P,PSALITA 0248 00702000 * GEN(LM GPR11P,GPR13P,588(GPR13P)); 00703000 LM GPR11P,GPR13P,588(GPR13P) 00704000 * /* LOAD LOCKWORD, CLHT AND ENTRY 00705000 * ADRS. */ 00706000 * GEN(BALR GPR14P,GPR13P);/* BALR TO 00707000 * SETLOCK RTN. */ 00708000 BALR GPR14P,GPR13P 00709000 * RFY 0251 00710000 * (GPR11P, 0251 00711000 * GPR12P, 0251 00712000 * GPR13P, 0251 00713000 * GPR14P) UNRSTD; 0251 00714000 * END;/* SETLOCK (RELEASE) TYPE(LOCAL) 00715000 * RELATED(CDE,IEAVTAS3(PGMMPRGE) 00716000 * ) FREE LOCK @ZA00094*/ 00717000 * ESAGLREC=OFF;/* FREE RECURSION 0253 00718000 * CONTROL @ZA00094*/ 00719000 L @12,RTM2VRBC(,RTM2PTR) 0253 00720000 NI ESAGLREC+96(@12),B'11101111' 0253 00721000 * R13=ADDR(RTM2RMSA);/* RESTORE SAVE 0254 00722000 * AREA PTR @ZA00094*/ 00723000 LA R13,RTM2RMSA(,RTM2PTR) 0254 00724000 * RMPLRBPA=NONE;/* CLEAR RB FIELD 0255 00725000 * @ZA00094*/ 00726000 SLR @12,@12 0255 00727000 ST @12,RMPLRBPA+712(,RTM2PTR) 0255 00728000 * END; /* END OF PGMMPRGE @ZA00094*/ 00729000 * R4=RBLINKB;/* LOCATE NEXT RB */ 00730000 @RF00231 L @12,RBLINKB-1(,R4) 0257 00731000 LA @12,0(,@12) 0257 00732000 LR R4,@12 0257 00733000 * END; /* END OF RB SCAN */ 00734000 @DE00163 C R4,RTM2RYRB(,RTM2PTR) 0258 00735000 BNE @DL00163 0258 00736000 * RESPECIFY 0259 00737000 * (R4, 0259 00738000 * R9) UNRESTRICTED; 0259 00739000 * RMPLDCBL=NONE;/* CLEAR PTR TO DCB LIST */ 00740000 LA @12,712 0260 00741000 ALR @12,RTM2PTR 0260 00742000 SLR @11,@11 0260 00743000 ST @11,RMPLDCBL(,@12) 0260 00744000 * RMPLRBPP=OFF;/* CLEAR FLAG THAT DCBL USED */ 00745000 NI RMPLRBPP(@12),B'11011111' 0261 00746000 * ; /* END OF CLOSEDS */ 00747000 * 0262 00748000 * /*******************************************/ 00749000 * /* */ 00750000 * /* THIS SEGMENT PURGES PAGING I/O FOR ALL */ 00751000 * /* RBS BETWEEN THE RTM2 SVRB AND THE RETRY */ 00752000 * /* RB INCLUDING ALL INTERVENING SPIE EXITS */ 00753000 * /* FOR EACH RB. @ZA06785*/ 00754000 * /* */ 00755000 * /*******************************************/ 00756000 * 0263 00757000 * DO; /* START OF PAGEPRGE */ 00758000 * RMPLRBPP=ON;/* INDICATE PURGE IS BY RB */ 00759000 OI RMPLRBPP(@12),B'00100000' 0264 00760000 * RESPECIFY 0265 00761000 * R4 RESTRICTED;/* RESTRICT RB PTR */ 00762000 * R4=RTM2VRBC->RBLINKB;/* START WITH 0266 00763000 * PRECEDING RB */ 00764000 L @12,RTM2VRBC(,RTM2PTR) 0266 00765000 L R4,RBLINKB-1(,@12) 0266 00766000 LA R4,0(,R4) 0266 00767000 * DO WHILE(R4^=RTM2RYRB);/* SCAN TO RETRY 00768000 * RB */ 00769000 B @DE00267 0267 00770000 @DL00267 DS 0H 0268 00771000 * RMPLRBPA=R4;/* SET UP PARAMETER LIST */ 00772000 ST R4,RMPLRBPA+712(,RTM2PTR) 0268 00773000 * CALL IEAPTERM;/* PURGE PAGING I/O */ 00774000 L @12,CVTPTR(,RTM2PTR) 0269 00775000 L @12,SCVTSPTR(,@12) 0269 00776000 L @15,SCVTPTRM(,@12) 0269 00777000 BALR @14,@15 0269 00778000 * CALL IEAVSPIE;/* PURGE INTERVENING SPIE 00779000 * EXITS FOR EACH RB @ZA06785*/ 00780000 L @12,CVTPTR(,RTM2PTR) 0270 00781000 L @15,CVTRSPIE(,@12) 0270 00782000 BALR @14,@15 0270 00783000 * R4=RBLINKB;/* LOCATE NEXT RB */ 00784000 L @12,RBLINKB-1(,R4) 0271 00785000 LA @12,0(,@12) 0271 00786000 LR R4,@12 0271 00787000 * END; /* END OF RBSCAN */ 00788000 @DE00267 C R4,RTM2RYRB(,RTM2PTR) 0272 00789000 BNE @DL00267 0272 00790000 * RMPLRBPA=NONE;/* CLEAR RB FIELD */ 00791000 LA @12,712 0273 00792000 ALR @12,RTM2PTR 0273 00793000 SLR @11,@11 0273 00794000 ST @11,RMPLRBPA(,@12) 0273 00795000 * RMPLRBPP=OFF;/* OTHER PURGES ARE BY TCB */ 00796000 NI RMPLRBPP(@12),B'11011111' 0274 00797000 * RESPECIFY 0275 00798000 * R4 UNRESTRICTED;/* RELEASE RB PTR */ 00799000 * END; /* END OF PAGEPRGE */ 00800000 * IF SCBESTAE=OFF THEN/* STA EXIT */ 00801000 * 0277 00802000 TM SCBESTAE(SCBPTR),B'00010000' 0277 00803000 BNZ @RF00277 0277 00804000 * /*****************************************/ 00805000 * /* */ 00806000 * /* PURGE WTORS */ 00807000 * /* */ 00808000 * /*****************************************/ 00809000 * 0278 00810000 * CALL IEECVPRG; 0278 00811000 L @12,CVTPTR(,RTM2PTR) 0278 00812000 L @12,SCVTSPTR(,@12) 0278 00813000 L @15,SCVTPGWR(,@12) 0278 00814000 BALR @14,@15 0278 00815000 * END; 0279 00816000 @RF00277 DS 0H 0280 00817000 * CALL IEAVTPMT;/* PURGE TYPE 1 MESSAGE TABLE */ 00818000 * 0280 00819000 @RC00150 L @15,@CV00059 0280 00820000 BALR @14,@15 0280 00821000 * /***********************************************/ 00822000 * /* */ 00823000 * /* RESET RMPL AFTER TASK RECOVERY PURGES */ 00824000 * /* */ 00825000 * /***********************************************/ 00826000 * 0281 00827000 * RMPLRCOV=OFF; 0281 00828000 NI RMPLRCOV+712(RTM2PTR),B'11110111' 0281 00829000 * RESPECIFY 0282 00830000 * (R1, 0282 00831000 * R13) UNRESTRICTED; 0282 00832000 * 0282 00833000 * /***********************************************/ 00834000 * /* */ 00835000 * /* THIS SEGMENT WILL SCAN THROUGH THE RB-S TO */ 00836000 * /* BE PURGED INSERTING SVC 3 (EXIT) IN THEIR */ 00837000 * /* PSWS, ZEROING THEIR WAIT COUNTS AND */ 00838000 * /* INSERTING PROPER REGISTER VALUES WHEN */ 00839000 * /* NECESSARY TO ENSURE THAT THE CORRECT */ 00840000 * /* REGISTERS ARE PASSED TO THE RETRYING RB. */ 00841000 * /* THIS SEGMENT WILL ALSO BE ENTERED IF AN */ 00842000 * /* UNRECOVERABLE ERROR OCCURS IN PRE-EXIT */ 00843000 * /* PROCESSING (IEAVTAS1). IN THIS CASE THE */ 00844000 * /* ABEND SVRB, THE RB UNDER WHICH IEAVTAS1 */ 00845000 * /* EXECUTES, WILL BE THE RETRYING RB. */ 00846000 * /* */ 00847000 * /***********************************************/ 00848000 * 0283 00849000 * DO; /* BEGIN RBTYPE */ 00850000 * IF(SDWAPTR^=NONE&SCBESTAE=ON&SDWAUPRG=ON)| 0284 00851000 * RTM2AS1R=ON THEN/* USER SPECIFIED 0284 00852000 * REGISTER UPDATE OR THIS IS A 00853000 * PSEUDO RETRY INTO IEAVTAS1 */ 00854000 LTR SDWAPTR,SDWAPTR 0284 00855000 BZ @GL00007 0284 00856000 TM SCBESTAE(SCBPTR),B'00010000' 0284 00857000 BNO @GL00007 0284 00858000 TM SDWAUPRG(SDWAPTR),B'00001000' 0284 00859000 BO @RT00284 0284 00860000 @GL00007 TM RTM2AS1R(RTM2PTR),B'00000100' 0284 00861000 BNO @RF00284 0284 00862000 @RT00284 DS 0H 0285 00863000 * DO; 0285 00864000 * RESPECIFY 0286 00865000 * (R9, 0286 00866000 * R4) RESTRICTED; 0286 00867000 * IF RTM2AS1R=ON THEN/* TEST IF RETRY INTO 00868000 * IEAVTAS1 */ 00869000 TM RTM2AS1R(RTM2PTR),B'00000100' 0287 00870000 BNO @RF00287 0287 00871000 * DO; /* SETUP FOR RETRY @G33SPHW*/ 00872000 * RTM2RETR=ON;/* INDICATE RETRY 0289 00873000 * @G33SPHW*/ 00874000 OI RTM2RETR(RTM2PTR),B'01000000' 0289 00875000 * R9=ADDR(RTM2PRWA->RTM2RREG);/* RETRY 00876000 * REGISTERS IN RTM2RREG */ 00877000 L R9,RTM2PRWA(,RTM2PTR) 0290 00878000 LA R9,RTM2RREG(,R9) 0290 00879000 * END; /* @G33SPHW*/ 00880000 * ELSE /* NORMAL RETRY */ 00881000 * R9=ADDR(SDWASRSV);/* UPDATED REGISTERS 00882000 * ARE IN SDWA */ 00883000 B @RC00287 0292 00884000 @RF00287 LA R9,SDWASRSV(,SDWAPTR) 0292 00885000 * RTM2UPRG=ON;/* INDICATE ALL REGS ARE TO 00886000 * BE PASSED TO RETRY ROUTINE 0293 00887000 * @G33SPHW*/ 00888000 @RC00287 OI RTM2UPRG(RTM2PTR),B'01000000' 0293 00889000 * RTM2RYRG=R9->RSAVE;/* COPY APPROIATE 0294 00890000 * REGISTER TO RTM2WA FOR 0294 00891000 * SAFEKEEPING @G33SPHW*/ 00892000 MVI RTM2RYRG+64(RTM2PTR),C' ' 0294 00893000 MVC RTM2RYRG+65(3,RTM2PTR),RTM2RYRG+64(RTM2PTR) 0294 00894000 MVC RTM2RYRG(64,RTM2PTR),RSAVE(R9) 0294 00895000 * END; /* END RETRY SET UP WITH USER 0295 00896000 * UPDATED REGISTERS */ 00897000 * ELSE 0296 00898000 * 0296 00899000 * /*******************************************/ 00900000 * /* */ 00901000 * /* THIS SEGMENT WILL INITIALIZE PARAMETER */ 00902000 * /* REGISTERS TO BE SENT TO THE RETRY */ 00903000 * /* ROUTINE. IT THEN SCANS THE RB-S TO BE */ 00904000 * /* PURGED AND INSERTS THE REGISTER IN THE */ 00905000 * /* RB-S REGISTER SAVE AREA IF NECESSARY. */ 00906000 * /* THE WAIT COUNT OF THE RB-S TO BE PURGED */ 00907000 * /* AND OF THE RETRYING RB IS ZEROED. SVC 3 */ 00908000 * /* IS INSERTED IN THE PSW-S OF THE RB-S TO */ 00909000 * /* BE PURGED AND THE RETRY ADDRESS IS */ 00910000 * /* INSERTED IN THE PSW OF THE RETRYING RB. */ 00911000 * /* */ 00912000 * /*******************************************/ 00913000 * 0296 00914000 * DO; /* BEGIN PARMREGS */ 00915000 B @RC00284 0296 00916000 @RF00284 DS 0H 0297 00917000 * RESPECIFY 0297 00918000 * (R0, 0297 00919000 * R1, 0297 00920000 * R14, 0297 00921000 * R2) RESTRICTED;/* PARAMETER REGISTERS 00922000 * TO RETRY RB */ 00923000 * IF SDWAPTR=NONE THEN/* TEST IF THERE IS 00924000 * AN SDWA */ 00925000 LTR SDWAPTR,SDWAPTR 0298 00926000 BNZ @RF00298 0298 00927000 * R0=RC12;/* INDICATE SDWA NOT AVAILABLE */ 00928000 LA R0,12 0299 00929000 * ELSE 0300 00930000 * IF SCBESTAE=ON&SDWAFREE=ON THEN/* TEST 00931000 * IF USER REQUESTED TO FREE SDWA 00932000 * PRIOR TO RETRY */ 00933000 B @RC00298 0300 00934000 @RF00298 TM SCBESTAE(SCBPTR),B'00010000' 0300 00935000 BNO @RF00300 0300 00936000 TM SDWAFREE(SDWAPTR),B'00000100' 0300 00937000 BNO @RF00300 0300 00938000 * R0=RC20;/* SDWA IS NOT FREED AT THIS 00939000 * POINT BUT WILL BE PRIOR TO 0301 00940000 * RETRY */ 00941000 LA R0,20 0301 00942000 * ELSE 0302 00943000 * R0=ZERO;/* AN SDWA WAS OBTAINED */ 00944000 B @RC00300 0302 00945000 @RF00300 SLR R0,R0 0302 00946000 * IF R0=ZERO THEN/* IF AN SDWA WAS OBTAINED 00947000 * AND WILL NOT BE FREED PRIOR TO 00948000 * RETRY */ 00949000 @RC00300 DS 0H 0303 00950000 @RC00298 LTR R0,R0 0303 00951000 BNZ @RF00303 0303 00952000 * R1=SDWAPTR;/* R1 CONTAINS PTR TO SDWA */ 00953000 LR R1,SDWAPTR 0304 00954000 * ELSE 0305 00955000 * DO; 0305 00956000 B @RC00303 0305 00957000 @RF00303 DS 0H 0306 00958000 * IF SCBESTAE=ON THEN/* TEST IF ESTAE 00959000 * EXIT */ 00960000 TM SCBESTAE(SCBPTR),B'00010000' 0306 00961000 BNO @RF00306 0306 00962000 * R1=SCBPARMA;/* R1 CONTAINS PTR TO 00963000 * USER PARAMETER LIST */ 00964000 L R1,SCBPARMA-1(,SCBPTR) 0307 00965000 LA R1,0(,R1) 0307 00966000 * ELSE/* STAE EXIT */ 00967000 * R1=RTM2CC;/* R1 CONTAINS ABEND 0308 00968000 * COMPLETION CODE */ 00969000 B @RC00306 0308 00970000 @RF00306 L R1,RTM2CC-1(,RTM2PTR) 0308 00971000 LA R1,0(,R1) 0308 00972000 * IF RTM2FIOB^=NOIOB THEN/* IF 0309 00973000 * RESTOREABLE I/O */ 00974000 @RC00306 L @15,RTM2FIOB-1(,RTM2PTR) 0309 00975000 LA @15,0(,@15) 0309 00976000 C @15,@CF00069 0309 00977000 BE @RF00309 0309 00978000 * R2=RTM2FIOB;/* R2 CONTAINS POINTER 00979000 * TO PIRL */ 00980000 LR R2,@15 0310 00981000 * ELSE/* IF NO SDWA AND NO RESTOREABLE 00982000 * I/O */ 00983000 * R2=NONE;/* R2 CONTAINS ZERO */ 00984000 B @RC00309 0311 00985000 @RF00309 SLR R2,R2 0311 00986000 * END; 0312 00987000 @RC00309 DS 0H 0313 00988000 * IF RTM2RYRB->RBFTP='110'B THEN/* @YM01820*/ 00989000 @RC00303 L @15,RTM2RYRB(,RTM2PTR) 0313 00990000 TM RBFTP(@15),B'11000000' 0313 00991000 BNO @RF00313 0313 00992000 TM RBFTP(@15),B'00100000' 0313 00993000 BNZ @RF00313 0313 00994000 * R14=CVTEXPRO;/* @YM01820*/ 00995000 L @12,CVTPTR(,RTM2PTR) 0314 00996000 L R14,CVTEXPRO(,@12) 0314 00997000 * ELSE /* @YM01820*/ 00998000 * R14=ADDR(CVTEXIT);/* @YM01820*/ 00999000 B @RC00313 0315 01000000 @RF00313 L R14,CVTPTR(,RTM2PTR) 0315 01001000 LA R14,CVTEXIT(,R14) 0315 01002000 * RTM2RYRS(1)=R0;/* SAVE PARAMETER REG IN 01003000 * RTM2WA @G33SPHW*/ 01004000 @RC00313 ST R0,RTM2RYRS(,RTM2PTR) 0316 01005000 * RTM2RYRS(2)=R1;/* SAVE R1 IN RTM2WA 0317 01006000 * @G33SPHW*/ 01007000 ST R1,RTM2RYRS+4(,RTM2PTR) 0317 01008000 * RTM2RYRS(3)=R2;/* SAVE R2 IN RTM2WA 0318 01009000 * @G33SPHW*/ 01010000 ST R2,RTM2RYRS+8(,RTM2PTR) 0318 01011000 * RTM2RYRS(15)=R14;/* SAVE R14 IN RTM2WA 0319 01012000 * @G33SPHW*/ 01013000 ST R14,RTM2RYRS+56(,RTM2PTR) 0319 01014000 * RTM2RYRS(16)=RTM2RTYA;/* RETRY ADDRESS IN 01015000 * REG 15 @G33SPHW*/ 01016000 L @15,RTM2RTYA(,RTM2PTR) 0320 01017000 ST @15,RTM2RYRS+60(,RTM2PTR) 0320 01018000 * RTM2UPRG=OFF;/* INDICATE PARM REGS ONLY 01019000 * SAVED @G33SPHW*/ 01020000 NI RTM2UPRG(RTM2PTR),B'10111111' 0321 01021000 * RESPECIFY 0322 01022000 * (R0, 0322 01023000 * R1, 0322 01024000 * R2, 0322 01025000 * R14) UNRSTD; 0322 01026000 * END; /* END PARMREGS */ 01027000 * END; /* END RBTYPE */ 01028000 @RC00284 DS 0H 0325 01029000 * END; /* END OF RBPRGE */ 01030000 * IF RTM2WANA=OFF&RTM2WAIN=OFF THEN/* VALID SDWA 0326 01031000 * AVAILABLE */ 01032000 * 0326 01033000 TM RTM2WANA(RTM2PTR),B'01100000' 0326 01034000 BNZ @RF00326 0326 01035000 * /***********************************************/ 01036000 * /* */ 01037000 * /* IF A VALID SDWA EXISTS, VARIOUS FLAGS ARE */ 01038000 * /* CHECKED TO DETERMINE HOW MUCH SHOULD BE */ 01039000 * /* FREED: IF STA EXIT, ALL BUT FIRST 104 BYTES.*/ 01040000 * /* IF ESTA SPECIFIED FRESDWA=YES, ENTIRE SDWA */ 01041000 * /* IS FREED. IF ESTA DID NOT REQUEST FREEING OF*/ 01042000 * /* THE WORK AREA, ONLY THE SAVE AREA IS FREED. */ 01043000 * /* IF A WORK AREA EXISTS, THE RESTORE QUEUE */ 01044000 * /* POINTERS ARE INITIALIZED. */ 01045000 * /* */ 01046000 * /***********************************************/ 01047000 * 0327 01048000 * DO; /* START OF RTRYSDWA */ 01049000 * IF SDWAPTR^=NONE THEN/* VALID SDWA EXISTS */ 01050000 SLR @12,@12 0328 01051000 CR SDWAPTR,@12 0328 01052000 BE @RF00328 0328 01053000 * DO; 0329 01054000 * RESPECIFY 0330 01055000 * (R12, 0330 01056000 * R11) RESTRICTED;/* RESTRICT LENGTH AND 01057000 * START PTRS */ 01058000 * IF SCBESTAE=ON THEN/* ESTA EXIT */ 01059000 TM SCBESTAE(SCBPTR),B'00010000' 0331 01060000 BNO @RF00331 0331 01061000 * IF SDWAFREE=ON THEN/* EXIT REQUESTED 0332 01062000 * FREEING OF SDWA */ 01063000 TM SDWAFREE(SDWAPTR),B'00000100' 0332 01064000 BNO @RF00332 0332 01065000 * DO; 0333 01066000 * R12=RTM2SIZE;/* WHOLE THING TO BE 01067000 * FREED */ 01068000 L R12,RTM2SIZE-1(,RTM2PTR) 0334 01069000 LA R12,0(,R12) 0334 01070000 * R11=RTM2RTCA; 0335 01071000 L R11,RTM2RTCA(,RTM2PTR) 0335 01072000 * SDWAPTR=NONE; 0336 01073000 SLR SDWAPTR,SDWAPTR 0336 01074000 * RTM2RTCA=NONE; 0337 01075000 SLR @08,@08 0337 01076000 ST @08,RTM2RTCA(,RTM2PTR) 0337 01077000 * END; 0338 01078000 * ELSE /* EXIT DID NOT REQUEST FREEING */ 01079000 * R12=72;/* FREE ONLY SAVE AREA */ 01080000 B @RC00332 0339 01081000 @RF00332 LA R12,72 0339 01082000 * ELSE /* STA (NOT ESTA) EXIT */ 01083000 * R12=RTM2SIZE-104;/* LEAVE 104 BYTES */ 01084000 B @RC00331 0340 01085000 @RF00331 L R12,RTM2SIZE-1(,RTM2PTR) 0340 01086000 LA R12,0(,R12) 0340 01087000 SL R12,@CF03678 0340 01088000 * IF SDWAPTR^=NONE THEN/* PART OF SDWA TO 01089000 * BE LEFT */ 01090000 @RC00331 LTR SDWAPTR,SDWAPTR 0341 01091000 BZ @RF00341 0341 01092000 * DO; 0342 01093000 * RTM2SIZE=RTM2SIZE-R12;/* NEW LENGTH */ 01094000 L @08,RTM2SIZE-1(,RTM2PTR) 0343 01095000 LA @08,0(,@08) 0343 01096000 SLR @08,R12 0343 01097000 STCM @08,7,RTM2SIZE(RTM2PTR) 0343 01098000 * SDWALNTH=RTM2SIZE; 0344 01099000 STCM @08,7,SDWALNTH(SDWAPTR) 0344 01100000 * R11=SDWAPTR+RTM2SIZE;/* FIRST BYTE TO 01101000 * BE FREED */ 01102000 ALR @08,SDWAPTR 0345 01103000 LR R11,@08 0345 01104000 * END; 0346 01105000 * DO; /* FREEMAIN(RC) 0347 01106000 * LV(R12)A(R11->SDWA) 0347 01107000 * SP(RTM2SUBP) */ 01108000 @RF00341 DS 0H 0348 01109000 * RESPECIFY 0348 01110000 * (GPR01F, 0348 01111000 * GPR15F, 0348 01112000 * GPR00F) RESTRICTED; 0348 01113000 * GPR01F=0;/* REG 1 MUST BE ZERO */ 01114000 SLR GPR01F,GPR01F 0349 01115000 * GPR15F=1;/* SET TYPE */ 01116000 LA GPR15F,1 0350 01117000 * GPR00F=R12;/* LENGTH REQUESTED */ 01118000 LR GPR00F,R12 0351 01119000 * GPR01F=ADDR(R11->SDWA);/* SET REGISTER 01120000 * ONE */ 01121000 LR GPR01F,R11 0352 01122000 * GPR15F=GPR15F+((RTM2SUBP)*256);/* 0353 01123000 * SUBPOOL VALUE */ 01124000 SLR @14,@14 0353 01125000 IC @14,RTM2SUBP(,RTM2PTR) 0353 01126000 SLA @14,8 0353 01127000 ALR GPR15F,@14 0353 01128000 * SVC(120);/* RC/RU-FORM OF GETMAIN */ 01129000 SVC 120 0354 01130000 * RESPECIFY 0355 01131000 * (GPR01F, 0355 01132000 * GPR15F, 0355 01133000 * GPR00F) UNRESTRICTED; 0355 01134000 * END; /* FREEMAIN(RC) 0356 01135000 * LV(R12)A(R11->SDWA) 0356 01136000 * SP(RTM2SUBP) */ 01137000 * RESPECIFY 0357 01138000 * (R12, 0357 01139000 * R11) UNRESTRICTED;/* RELEASE INTERFACE 01140000 * REGS FOR FREEMAIN */ 01141000 * END; 0358 01142000 * IF SDWAPTR^=NONE THEN/* SDWA AVAILABLE */ 01143000 @RF00328 LTR SDWAPTR,SDWAPTR 0359 01144000 BZ @RF00359 0359 01145000 * IF RTM2IOQR=ON THEN/* I/O WAS QUIESCED */ 01146000 TM RTM2IOQR(RTM2PTR),B'10000000' 0360 01147000 BNO @RF00360 0360 01148000 * DO; 0361 01149000 * SDWAFIOB=RTM2FIOB;/* LOCATES PIRL */ 01150000 L @12,RTM2FIOB-1(,RTM2PTR) 0362 01151000 LA @12,0(,@12) 0362 01152000 ST @12,SDWAFIOB(,SDWAPTR) 0362 01153000 * SDWAIOBR=ADDR(SDWAFIOB); 0363 01154000 LA @12,SDWAFIOB(,SDWAPTR) 0363 01155000 ST @12,SDWAIOBR(,SDWAPTR) 0363 01156000 * END; 0364 01157000 * IF SCBESTAE=OFF THEN/* TEST IF STAE OR STAI */ 01158000 @RF00360 DS 0H 0365 01159000 @RF00359 TM SCBESTAE(SCBPTR),B'00010000' 0365 01160000 BNZ @RF00365 0365 01161000 * RTM2DREQ=OFF;/* IF STAE/STAI RETRY DO NOT 01162000 * DUMP */ 01163000 NI RTM2DREQ(RTM2PTR),B'01111111' 0366 01164000 * END; /* END OF RTRYSDWA */ 01165000 * 0367 01166000 @RF00365 DS 0H 0368 01167000 * /*************************************************/ 01168000 * /* */ 01169000 * /* THIS SEGMENT UPDATES THE CURRENT SCB PRIOR TO */ 01170000 * /* RETRY. IF THE SCB IS AN ESTAE SCB THE INUSE */ 01171000 * /* FLAG IS ZEROED SO THAT IT CAN BE REUSED. IF IT*/ 01172000 * /* IS A STAE SCB. IT IS MARKED LOGICALLY CANCELED*/ 01173000 * /* SO THAT IT WILL NOT BE REUSED. FOR (E)STAI */ 01174000 * /* RETRY THE CURRENT SCB INUSE FLAG IS ALWAYS */ 01175000 * /* ZEROED. IN ADDITION, IF THERE IS NO PREVIOUS */ 01176000 * /* EXIT PRB ON THE QUEUE, THE INUSE FLAG IS */ 01177000 * /* ZEROED IN ALL (E)STAI SCB-S ON THE QUEUE. */ 01178000 * /* */ 01179000 * /*************************************************/ 01180000 * 0368 01181000 * DO; /* BEGIN SCBUPDAT */ 01182000 @RF00326 DS 0H 0369 01183000 * IF SCBESTAE=ON THEN/* IF ESTAE SCB */ 01184000 TM SCBESTAE(SCBPTR),B'00010000' 0369 01185000 BNO @RF00369 0369 01186000 * SCBINUSE=OFF;/* TURN OFF IN USE BIT SO IT CAN 01187000 * BE REUSED */ 01188000 * 0370 01189000 NI SCBINUSE(SCBPTR),B'11101111' 0370 01190000 * /***********************************************/ 01191000 * /* */ 01192000 * /* (E)STAI SCB PROCESSING */ 01193000 * /* */ 01194000 * /***********************************************/ 01195000 * 0371 01196000 * IF SCBSTAI=ON THEN/* IF AN (E)STAI SCB */ 01197000 @RF00369 TM SCBSTAI(SCBPTR),B'10000000' 0371 01198000 BNO @RF00371 0371 01199000 * DO; /* (E)STAI SCB */ 01200000 * SCBINUSE=OFF;/* ALWAYS RESET INUSE BIT IN 01201000 * CURRENT (E)STAI SCB */ 01202000 NI SCBINUSE(SCBPTR),B'11101111' 0373 01203000 * IF RTM2RYRB->RBTCBNXT^=ON THEN 0374 01204000 L @12,RTM2RYRB(,RTM2PTR) 0374 01205000 TM RBTCBNXT(@12),B'10000000' 0374 01206000 BO @RF00374 0374 01207000 * IF EVAL((RTM2RYRB->RBLINKB)-LENGTH(RBPREFIX 01208000 * ))->RBABEND^=ON THEN/* TEST IF RETRY 01209000 * RB IS NOT PREVIOUSLY SYNCHED 01210000 * TO EXIT PRB */ 01211000 L @12,RBLINKB-1(,@12) 0375 01212000 LA @12,0(,@12) 0375 01213000 SL @12,@CF00472 0375 01214000 TM RBABEND(@12),B'00100000' 0375 01215000 BO @RF00375 0375 01216000 * DO; /* RESET ALL PREVIOUSLY ENTERED 01217000 * (E)STAI INUSE BITS */ 01218000 * RESPECIFY 0377 01219000 * R8 RESTRICTED; 0377 01220000 * R8=RTM2SCBN;/* TEMPORARY SCB PTR USED 01221000 * TO SCAN SCB QUEUE */ 01222000 L R8,RTM2SCBN(,RTM2PTR) 0378 01223000 * DO WHILE(R8^=RTM2SCBO);/* SEARCH FOR 01224000 * (E)STAI SCB-S */ 01225000 B @DE00379 0379 01226000 @DL00379 DS 0H 0380 01227000 * IF R8->SCBSTAI=ON THEN/* TEST IF 0380 01228000 * (E)STAI SCB */ 01229000 TM SCBSTAI(R8),B'10000000' 0380 01230000 BNO @RF00380 0380 01231000 * R8->SCBINUSE=OFF;/* TURN OFF 0381 01232000 * INUSE FLAG */ 01233000 NI SCBINUSE(R8),B'11101111' 0381 01234000 * R8=R8->SCBCHAIN;/* UPDATE SCB 0382 01235000 * POINTER */ 01236000 @RF00380 L R8,SCBCHAIN(,R8) 0382 01237000 * END;/* END (E)STAI SEARCH */ 01238000 @DE00379 C R8,RTM2SCBO(,RTM2PTR) 0383 01239000 BNE @DL00379 0383 01240000 * RESPECIFY 0384 01241000 * R8 UNRESTRICTED; 0384 01242000 * END; /* END RESETTING OF (E)STAI INUSE 01243000 * BITS */ 01244000 * ELSE 0386 01245000 * ; 0386 01246000 @RF00375 DS 0H 0387 01247000 * ELSE 0387 01248000 * ; 0387 01249000 @RF00374 DS 0H 0388 01250000 * END; /* END (E)STAI SCB PROCESSING */ 01251000 * END; /* END SCBUPDAT */ 01252000 @RF00371 DS 0H 0390 01253000 * RTM2RETR=ON; /* INDICATE RETRY TO RTM2 */ 01254000 OI RTM2RETR(RTM2PTR),B'01000000' 0390 01255000 * END; 0391 01256000 * RTM2TRRA=NONE; /* CLEAR RECURSION ENVIRONMENT */ 01257000 @RF00138 SLR @12,@12 0392 01258000 ST @12,RTM2TRRA(,RTM2PTR) 0392 01259000 * RTM2RTYS=OFF; 0393 01260000 NI RTM2RTYS(RTM2PTR),B'10111111' 0393 01261000 * END; 0394 01262000 * IF RTM2RETR^=ON THEN /* RETRY NOT REQUESTED OR NOT 0395 01263000 * POSSIBLE */ 01264000 @RF00103 TM RTM2RETR(RTM2PTR),B'01000000' 0395 01265000 BO @RF00395 0395 01266000 *NORETRY: 0396 01267000 * DO; /* BEGIN SCBPERC */ 01268000 NORETRY DS 0H 0397 01269000 * IF RTM2RTCA^=NONE&RTM2WAIN=OFF THEN/* TEST IF VALID 01270000 * SDWA EXISTS */ 01271000 L @12,RTM2RTCA(,RTM2PTR) 0397 01272000 LTR @12,@12 0397 01273000 BZ @RF00397 0397 01274000 TM RTM2WAIN(RTM2PTR),B'01000000' 0397 01275000 BNZ @RF00397 0397 01276000 * DO; 0398 01277000 * IF SCBESTAE=ON THEN/* CARRY FLAGS FORWARD IF 0399 01278000 * ESTAE */ 01279000 TM SCBESTAE(SCBPTR),B'00010000' 0399 01280000 BNO @RF00399 0399 01281000 * DO; /* ACCESS DATA FROM SDWA */ 01282000 * RTM2CC=SDWACMPC;/* ALLOW USER TO CHANGE ABEND 01283000 * COMPLETION CODE */ 01284000 MVC RTM2CC(3,RTM2PTR),SDWACMPC(SDWAPTR) 0401 01285000 * IF SDWAEAS=ON THEN/* TEST IF USER SET FLAG */ 01286000 TM SDWAEAS(SDWAPTR),B'00001000' 0402 01287000 BNO @RF00402 0402 01288000 * RTM2EAS=ON;/* USER SUPPLIED SERVICEABILITY 01289000 * INFORMATION */ 01290000 OI RTM2EAS(RTM2PTR),B'00001000' 0403 01291000 * ELSE 0404 01292000 * RTM2EAS=OFF;/* TURN OFF SERVICEABILITY BIT */ 01293000 B @RC00402 0404 01294000 @RF00402 NI RTM2EAS(RTM2PTR),B'11110111' 0404 01295000 * RTM2COMP=SDWACOMP;/* CARRY FORWARD USER WORD */ 01296000 @RC00402 L @12,SDWACOMP(,SDWAPTR) 0405 01297000 ST @12,RTM2COMP(,RTM2PTR) 0405 01298000 * END; 0406 01299000 * RTM2FMS=ON; /* SET FREEMAIN SECTION FLAG */ 01300000 @RF00399 OI RTM2FMS(RTM2PTR),B'00000001' 0407 01301000 * RTM2TRRA=ADDR(RECURSE);/* ESTABLISH RECURSION 0408 01302000 * ADDRESS */ 01303000 L @12,@CV00066 0408 01304000 ST @12,RTM2TRRA(,RTM2PTR) 0408 01305000 * DO; /* FREEMAIN(RC) 0409 01306000 * LV(RTM2SIZE)A(RTM2RTCA->SDWA) 01307000 * SP(RTM2SUBP) */ 01308000 * RESPECIFY 0410 01309000 * (GPR01F, 0410 01310000 * GPR15F, 0410 01311000 * GPR00F) RESTRICTED; 0410 01312000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 01313000 SLR GPR01F,GPR01F 0411 01314000 * GPR15F=1; /* SET TYPE */ 01315000 LA GPR15F,1 0412 01316000 * GPR00F=RTM2SIZE;/* LENGTH REQUESTED */ 01317000 L GPR00F,RTM2SIZE-1(,RTM2PTR) 0413 01318000 ICM GPR00F,8,@CB03724 0413 01319000 * GPR01F=ADDR(RTM2RTCA->SDWA);/* SET REGISTER ONE*/ 01320000 L GPR01F,RTM2RTCA(,RTM2PTR) 0414 01321000 * GPR15F=GPR15F+((RTM2SUBP)*256);/* SUBPOOL VALUE*/ 01322000 SLR @14,@14 0415 01323000 IC @14,RTM2SUBP(,RTM2PTR) 0415 01324000 SLA @14,8 0415 01325000 ALR GPR15F,@14 0415 01326000 * SVC(120); /* RC/RU-FORM OF GETMAIN */ 01327000 SVC 120 0416 01328000 * RESPECIFY 0417 01329000 * (GPR01F, 0417 01330000 * GPR15F, 0417 01331000 * GPR00F) UNRESTRICTED; 0417 01332000 * END; /* FREEMAIN(RC) 0418 01333000 * LV(RTM2SIZE)A(RTM2RTCA->SDWA) 01334000 * SP(RTM2SUBP) */ 01335000 * RTM2TRRA=NONE; /* ZERO RECURSION ADDRESS */ 01336000 SLR @12,@12 0419 01337000 ST @12,RTM2TRRA(,RTM2PTR) 0419 01338000 * RTM2FMS=OFF; /* TURN OF FREEMAIN FLAG */ 01339000 NI RTM2FMS(RTM2PTR),B'11111110' 0420 01340000 *FMRET: 0421 01341000 * RTM2RTCA=NONE; /* ZERO SDWA PTR IN RTM2 WORKAREA*/ 01342000 FMRET SLR @12,@12 0421 01343000 ST @12,RTM2RTCA(,RTM2PTR) 0421 01344000 * SDWAPTR=NONE; /* ZERO SDWA PTR */ 01345000 SLR SDWAPTR,SDWAPTR 0422 01346000 * END; /* END PROCESSING IF SDWA */ 01347000 * RTM2PERC=ON; /* TURN ON PERCOLATION INDICATION*/ 01348000 @RF00397 OI RTM2PERC(RTM2PTR),B'00010000' 0424 01349000 * IF SCBSTAI=ON THEN 0425 01350000 TM SCBSTAI(SCBPTR),B'10000000' 0425 01351000 BNO @RF00425 0425 01352000 * RTM2STAI=ON; /* TURN ON STAI INDICATION */ 01353000 OI RTM2STAI(RTM2PTR),B'01000000' 0426 01354000 * IF SCBESTAE=OFF&SCBSTAI=OFF THEN 0427 01355000 @RF00425 TM SCBESTAE(SCBPTR),B'10010000' 0427 01356000 BNZ @RF00427 0427 01357000 * RTM2STA2=ON; /* INDICATE STAE EXIT ENTERED */ 01358000 OI RTM2STA2(RTM2PTR),B'10000000' 0428 01359000 * RTM2XFLG=OFF; /* ZERO EXIT PROCRSSING FLAG */ 01360000 @RF00427 NI RTM2XFLG(RTM2PTR),B'11110111' 0429 01361000 * RTM2WAIN=OFF; /* ZERO SDWA INVALID FLAG */ 01362000 * RTM2WANA=OFF; /* ZERO WORKAREA NOT AVAILABLE 0431 01363000 * FLAG */ 01364000 NI RTM2WAIN(RTM2PTR),B'10011111' 0431 01365000 * RTM2XABD=OFF; /* ZERO EXIT ABEND FLAG */ 01366000 * RTM2AS2R=OFF; /* ZERO RECURSION FLAG */ 01367000 * RTM2AS3R=OFF; /* ZERO RECURSION FLAG */ 01368000 NI RTM2XABD(RTM2PTR),B'11101100' 0434 01369000 * END; /* END SCBPERC */ 01370000 * END; 0436 01371000 * ELSE /* RECURSION TO BE HANDLED IN 0437 01372000 * THIS ROUTINE */ 01373000 * 0437 01374000 * /***********************************************************/ 01375000 * /* */ 01376000 * /* THIS SEGMENT SAVES THE SDWAPTR IN CASE OF FURTHER */ 01377000 * /* RECURSION AND THEN INITIALIZES THE POINTER TO THE */ 01378000 * /* CURRENT SCB. THE SECTION FLAGS ARE TESTED TO DETERMINE */ 01379000 * /* WHERE THE ERROR OCCURRED AND CONTROL IS THEN RESUMED */ 01380000 * /* IMMEDIATELY FOLLOWING THE FAILING ROUTINE. IF AN ERROR */ 01381000 * /* IS ENCOUNTERED ANYWHERE IN IEAVTAS3 PROCESSING */ 01382000 * /* NECESSARILY DEFAULTS TO CONTINUE WITH TERMINATION */ 01383000 * /* */ 01384000 * /***********************************************************/ 01385000 * 0437 01386000 * DO; /* BEGIN RECURSE3 */ 01387000 B @RC00101 0437 01388000 @RF00101 DS 0H 0438 01389000 * RTM2RREG(8)=SDWAPTR; /* SAVE SDWAPTR SO THAT IT CAN BE 01390000 * CARRIED FORWARD IF FURTHER 0438 01391000 * RECURSION */ 01392000 ST SDWAPTR,RTM2RREG+28(,RTM2PTR) 0438 01393000 * RESPECIFY 0439 01394000 * R8 RESTRICTED; 0439 01395000 * SCBPTR=NONE; /* INITIALIZE SCBPTR */ 01396000 SLR SCBPTR,SCBPTR 0440 01397000 * R8=RTM2PREV; /* INITIALIZE FOR BEGINNING OF 0441 01398000 * SCAN THROUGH PREVIOUS 0441 01399000 * WORKAREAS */ 01400000 L R8,RTM2PREV(,RTM2PTR) 0441 01401000 * DO WHILE(SCBPTR=NONE); /* SCAN RTM2 WKAREA QUEUE UNTIL 01402000 * SCB FOUND */ 01403000 B @DE00442 0442 01404000 @DL00442 DS 0H 0443 01405000 * IF R8->RTM2SCBC^=SCBSTART THEN/* TEST IF THIS WORKAREA 01406000 * LOCATES THE CURRENT SCB */ 01407000 L @12,RTM2SCBC(,R8) 0443 01408000 C @12,@CF00092 0443 01409000 BE @RF00443 0443 01410000 * SCBPTR=R8->RTM2SCBC;/* INITIALIZE SCBPTR */ 01411000 LR SCBPTR,@12 0444 01412000 * R8=R8->RTM2PREV; /* UPDATE PTR TO NEXT RTM2 WKAREA*/ 01413000 @RF00443 L R8,RTM2PREV(,R8) 0445 01414000 * END; /* END SCAN FOR SCB */ 01415000 @DE00442 LTR SCBPTR,SCBPTR 0446 01416000 BZ @DL00442 0446 01417000 * RESPECIFY 0447 01418000 * R8 UNRESTRICTED; 0447 01419000 * RESPECIFY 0448 01420000 * R9 RESTRICTED; 0448 01421000 * IF RTM2PREV->RTM2FMS=ON THEN/* TEST IF FREEMAIN FAILURE */ 01422000 L @12,RTM2PREV(,RTM2PTR) 0449 01423000 TM RTM2FMS(@12),B'00000001' 0449 01424000 BNO @RF00449 0449 01425000 * R9=ADDR(FMRET); /* RESUME FOLLOWING FREEMAIN */ 01426000 LA R9,FMRET 0450 01427000 * ELSE 0451 01428000 * IF RTM2PREV->RTM2RTYS=ON THEN 0451 01429000 B @RC00449 0451 01430000 @RF00449 L @12,RTM2PREV(,RTM2PTR) 0451 01431000 TM RTM2RTYS(@12),B'01000000' 0451 01432000 BNO @RF00451 0451 01433000 * R9=ADDR(NORETRY); /* RETRY FAILURE - RESUME WITH 0452 01434000 * CONTINUE WITH TERMINATION */ 01435000 LA R9,NORETRY 0452 01436000 * GOTO R9; 0453 01437000 @RF00451 DS 0H 0453 01438000 @RC00449 BR R9 0453 01439000 * RESPECIFY 0454 01440000 * R9 UNRESTRICTED; 0454 01441000 * END; /* END RECURSE3 */ 01442000 * ELSE 0456 01443000 * 0456 01444000 * /*************************************************************/ 01445000 * /* */ 01446000 * /* THIS SEGMENT WILL SCAN THROUGH THE RB-S TO BE PURGED */ 01447000 * /* INSERTING SVC 3 (EXIT) IN THEIR PSWS, ZEROING THEIR WAIT */ 01448000 * /* COUNTS AND INSERTING PROPER REGISTER VALUES WHEN NECESSARY*/ 01449000 * /* TO ENSURE THAT THE CORRECT REGISTERS ARE PASSED TO THE */ 01450000 * /* RETRYING RB. THIS SEGMENT WILL ALSO BE ENTERED IF AN */ 01451000 * /* UNRECOVERABLE ERROR OCCURS IN PRE-EXIT PROCESSING */ 01452000 * /* (IEAVTAS1). IN THIS CASE THE ABEND SVRB, THE RB UNDER */ 01453000 * /* WHICH IEAVTAS1 EXECUTES, WILL BE THE RETRYING RB. */ 01454000 * /* */ 01455000 * /*************************************************************/ 01456000 * 0456 01457000 * DO; /* BEGIN RBTYPE */ 01458000 B @RC00100 0456 01459000 @RF00100 DS 0H 0457 01460000 * IF(SDWAPTR^=NONE&SCBESTAE=ON&SDWAUPRG=ON)|RTM2AS1R=ON THEN 01461000 LTR SDWAPTR,SDWAPTR 0457 01462000 BZ @GL00012 0457 01463000 TM SCBESTAE(SCBPTR),B'00010000' 0457 01464000 BNO @GL00012 0457 01465000 TM SDWAUPRG(SDWAPTR),B'00001000' 0457 01466000 BO @RT00457 0457 01467000 @GL00012 TM RTM2AS1R(RTM2PTR),B'00000100' 0457 01468000 BNO @RF00457 0457 01469000 @RT00457 DS 0H 0458 01470000 * /* USER SPECIFIED REGISTER UPDATE 01471000 * OR THIS IS A PSEUDO RETRY INTO 01472000 * IEAVTAS1 */ 01473000 * DO; 0458 01474000 * RESPECIFY 0459 01475000 * (R9, 0459 01476000 * R4) RESTRICTED; 0459 01477000 * IF RTM2AS1R=ON THEN /* TEST IF RETRY INTO IEAVTAS1 */ 01478000 TM RTM2AS1R(RTM2PTR),B'00000100' 0460 01479000 BNO @RF00460 0460 01480000 * DO; /* SETUP FOR RETRY @G33SPHW*/ 01481000 * RTM2RETR=ON; /* INDICATE RETRY @G33SPHW*/ 01482000 OI RTM2RETR(RTM2PTR),B'01000000' 0462 01483000 * R9=ADDR(RTM2PRWA->RTM2RREG);/* RETRY REGISTERS IN 01484000 * RTM2RREG */ 01485000 L R9,RTM2PRWA(,RTM2PTR) 0463 01486000 LA R9,RTM2RREG(,R9) 0463 01487000 * END; /* @G33SPHW*/ 01488000 * ELSE /* NORMAL RETRY */ 01489000 * R9=ADDR(SDWASRSV); /* UPDATED REGISTERS ARE IN SDWA */ 01490000 B @RC00460 0465 01491000 @RF00460 LA R9,SDWASRSV(,SDWAPTR) 0465 01492000 * RTM2UPRG=ON; /* INDICATE ALL REGS ARE TO BE 0466 01493000 * PASSED TO RETRY ROUTINE 0466 01494000 * @G33SPHW*/ 01495000 @RC00460 OI RTM2UPRG(RTM2PTR),B'01000000' 0466 01496000 * RTM2RYRG=R9->RSAVE; /* COPY APPROIATE REGISTER TO 0467 01497000 * RTM2WA FOR SAFEKEEPING 0467 01498000 * @G33SPHW*/ 01499000 MVI RTM2RYRG+64(RTM2PTR),C' ' 0467 01500000 MVC RTM2RYRG+65(3,RTM2PTR),RTM2RYRG+64(RTM2PTR) 0467 01501000 MVC RTM2RYRG(64,RTM2PTR),RSAVE(R9) 0467 01502000 * END; /* END RETRY SET UP WITH USER 0468 01503000 * UPDATED REGISTERS */ 01504000 * ELSE 0469 01505000 * 0469 01506000 * /*********************************************************/ 01507000 * /* */ 01508000 * /* THIS SEGMENT WILL INITIALIZE PARAMETER REGISTERS TO BE*/ 01509000 * /* SENT TO THE RETRY ROUTINE. IT THEN SCANS THE RB-S TO */ 01510000 * /* BE PURGED AND INSERTS THE REGISTER IN THE RB-S */ 01511000 * /* REGISTER SAVE AREA IF NECESSARY. THE WAIT COUNT OF THE*/ 01512000 * /* RB-S TO BE PURGED AND OF THE RETRYING RB IS ZEROED. */ 01513000 * /* SVC 3 IS INSERTED IN THE PSW-S OF THE RB-S TO BE */ 01514000 * /* PURGED AND THE RETRY ADDRESS IS INSERTED IN THE PSW OF*/ 01515000 * /* THE RETRYING RB. */ 01516000 * /* */ 01517000 * /*********************************************************/ 01518000 * 0469 01519000 * DO; /* BEGIN PARMREGS */ 01520000 B @RC00457 0469 01521000 @RF00457 DS 0H 0470 01522000 * RESPECIFY 0470 01523000 * (R0, 0470 01524000 * R1, 0470 01525000 * R14, 0470 01526000 * R2) RESTRICTED; /* PARAMETER REGISTERS TO RETRY 01527000 * RB */ 01528000 * IF SDWAPTR=NONE THEN /* TEST IF THERE IS AN SDWA */ 01529000 LTR SDWAPTR,SDWAPTR 0471 01530000 BNZ @RF00471 0471 01531000 * R0=RC12; /* INDICATE SDWA NOT AVAILABLE */ 01532000 LA R0,12 0472 01533000 * ELSE 0473 01534000 * IF SCBESTAE=ON&SDWAFREE=ON THEN/* TEST IF USER 0473 01535000 * REQUESTED TO FREE SDWA PRIOR 01536000 * TO RETRY */ 01537000 B @RC00471 0473 01538000 @RF00471 TM SCBESTAE(SCBPTR),B'00010000' 0473 01539000 BNO @RF00473 0473 01540000 TM SDWAFREE(SDWAPTR),B'00000100' 0473 01541000 BNO @RF00473 0473 01542000 * R0=RC20; /* SDWA IS NOT FREED AT THIS 0474 01543000 * POINT BUT WILL BE PRIOR TO 0474 01544000 * RETRY */ 01545000 LA R0,20 0474 01546000 * ELSE 0475 01547000 * R0=ZERO; /* AN SDWA WAS OBTAINED */ 01548000 B @RC00473 0475 01549000 @RF00473 SLR R0,R0 0475 01550000 * IF R0=ZERO THEN /* IF AN SDWA WAS OBTAINED AND 0476 01551000 * WILL NOT BE FREED PRIOR TO 0476 01552000 * RETRY */ 01553000 @RC00473 DS 0H 0476 01554000 @RC00471 LTR R0,R0 0476 01555000 BNZ @RF00476 0476 01556000 * R1=SDWAPTR; /* R1 CONTAINS PTR TO SDWA */ 01557000 LR R1,SDWAPTR 0477 01558000 * ELSE 0478 01559000 * DO; 0478 01560000 B @RC00476 0478 01561000 @RF00476 DS 0H 0479 01562000 * IF SCBESTAE=ON THEN/* TEST IF ESTAE EXIT */ 01563000 TM SCBESTAE(SCBPTR),B'00010000' 0479 01564000 BNO @RF00479 0479 01565000 * R1=SCBPARMA; /* R1 CONTAINS PTR TO USER 0480 01566000 * PARAMETER LIST */ 01567000 L R1,SCBPARMA-1(,SCBPTR) 0480 01568000 LA R1,0(,R1) 0480 01569000 * ELSE /* STAE EXIT */ 01570000 * R1=RTM2CC; /* R1 CONTAINS ABEND COMPLETION 01571000 * CODE */ 01572000 B @RC00479 0481 01573000 @RF00479 L R1,RTM2CC-1(,RTM2PTR) 0481 01574000 LA R1,0(,R1) 0481 01575000 * IF RTM2FIOB^=NOIOB THEN/* IF RESTOREABLE I/O */ 01576000 @RC00479 L @15,RTM2FIOB-1(,RTM2PTR) 0482 01577000 LA @15,0(,@15) 0482 01578000 C @15,@CF00069 0482 01579000 BE @RF00482 0482 01580000 * R2=RTM2FIOB; /* R2 CONTAINS POINTER TO PIRL */ 01581000 LR R2,@15 0483 01582000 * ELSE /* IF NO SDWA AND NO RESTOREABLE 01583000 * I/O */ 01584000 * R2=NONE; /* R2 CONTAINS ZERO */ 01585000 B @RC00482 0484 01586000 @RF00482 SLR R2,R2 0484 01587000 * END; 0485 01588000 @RC00482 DS 0H 0486 01589000 * IF RTM2RYRB->RBFTP='110'B THEN/* @YM01820*/ 01590000 @RC00476 L @15,RTM2RYRB(,RTM2PTR) 0486 01591000 TM RBFTP(@15),B'11000000' 0486 01592000 BNO @RF00486 0486 01593000 TM RBFTP(@15),B'00100000' 0486 01594000 BNZ @RF00486 0486 01595000 * R14=CVTEXPRO; /* @YM01820*/ 01596000 L @12,CVTPTR(,RTM2PTR) 0487 01597000 L R14,CVTEXPRO(,@12) 0487 01598000 * ELSE /* @YM01820*/ 01599000 * R14=ADDR(CVTEXIT); /* @YM01820*/ 01600000 B @RC00486 0488 01601000 @RF00486 L R14,CVTPTR(,RTM2PTR) 0488 01602000 LA R14,CVTEXIT(,R14) 0488 01603000 * RTM2RYRS(1)=R0; /* SAVE PARAMETER REG IN RTM2WA 01604000 * @G33SPHW*/ 01605000 @RC00486 ST R0,RTM2RYRS(,RTM2PTR) 0489 01606000 * RTM2RYRS(2)=R1; /* SAVE R1 IN RTM2WA @G33SPHW*/ 01607000 ST R1,RTM2RYRS+4(,RTM2PTR) 0490 01608000 * RTM2RYRS(3)=R2; /* SAVE R2 IN RTM2WA @G33SPHW*/ 01609000 ST R2,RTM2RYRS+8(,RTM2PTR) 0491 01610000 * RTM2RYRS(15)=R14; /* SAVE R14 IN RTM2WA @G33SPHW*/ 01611000 ST R14,RTM2RYRS+56(,RTM2PTR) 0492 01612000 * RTM2RYRS(16)=RTM2RTYA;/* RETRY ADDRESS IN REG 15 0493 01613000 * @G33SPHW*/ 01614000 L @15,RTM2RTYA(,RTM2PTR) 0493 01615000 ST @15,RTM2RYRS+60(,RTM2PTR) 0493 01616000 * RTM2UPRG=OFF; /* INDICATE PARM REGS ONLY SAVED 01617000 * @G33SPHW*/ 01618000 NI RTM2UPRG(RTM2PTR),B'10111111' 0494 01619000 * RESPECIFY 0495 01620000 * (R0, 0495 01621000 * R1, 0495 01622000 * R2, 0495 01623000 * R14) UNRSTD; 0495 01624000 * END; /* END PARMREGS */ 01625000 * END; /* END RBTYPE */ 01626000 * ELSE /* ENTRY TO SETUP FOR RETRY 0498 01627000 * @G33SPHW*/ 01628000 * DO; /* SETUP RBS FOR PURGE @G33SPHW*/ 01629000 B @RC00099 0498 01630000 @RF00099 DS 0H 0499 01631000 * IF RTM2AS1R=OFF&SCBSTAR=OFF THEN/* NOT ESTAE EXIT IN USE 0499 01632000 * NEVER SET FOR STAR @G33SPHW*/ 01633000 TM RTM2AS1R(RTM2PTR),B'00000100' 0499 01634000 BNZ @RF00499 0499 01635000 TM SCBSTAR(SCBPTR),B'01000000' 0499 01636000 BNZ @RF00499 0499 01637000 * SCBINUSE=ON; /* @G33SPHW*/ 01638000 OI SCBINUSE(SCBPTR),B'00010000' 0500 01639000 * DO; /* START RBTYPE1 @G33SPHW*/ 01640000 @RF00499 DS 0H 0502 01641000 * RFY 0502 01642000 * (R4) RSTD; /* @G33SPHW*/ 01643000 * R4=RTM2VRBC; /* INITIALIZE RBPTR WITH ABEND 0503 01644000 * SYRB */ 01645000 L @12,RTM2VRBC(,RTM2PTR) 0503 01646000 LR R4,@12 0503 01647000 * ESAGLREC=ON; /* SET RECURSION CONTROL @YM01826*/ 01648000 OI ESAGLREC+96(@12),B'00010000' 0504 01649000 * DO; /* SETLOCK (OBTAIN) MODE(UNCOND) 01650000 * TYPE(LOCAL) 0505 01651000 * RELATED(RB,IEAVTAS3(RBTYPE)) */ 01652000 * RFY 0506 01653000 * (GPR11P, 0506 01654000 * GPR12P, 0506 01655000 * GPR13P, 0506 01656000 * GPR14P) RSTD; 0506 01657000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0507 01658000 * TABLE. */ 01659000 L GPR13P,PSALITA 0507 01660000 * GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, CLHT 01661000 * AND ENTRY ADRS. */ 01662000 LM GPR11P,GPR13P,576(GPR13P) 01663000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 01664000 BALR GPR14P,GPR13P 01665000 * RFY 0510 01666000 * (GPR11P, 0510 01667000 * GPR12P, 0510 01668000 * GPR13P, 0510 01669000 * GPR14P) UNRSTD; 0510 01670000 * END; /* SETLOCK (OBTAIN) MODE(UNCOND) 01671000 * TYPE(LOCAL) 0511 01672000 * RELATED(RB,IEAVTAS3(RBTYPE)) 01673000 * @YM01826*/ 01674000 * ESAGLREC=OFF; /* RELEASE RECURSION CONTROL 0512 01675000 * @YM01826*/ 01676000 L @12,RTM2VRBC(,RTM2PTR) 0512 01677000 NI ESAGLREC+96(@12),B'11101111' 0512 01678000 * DO WHILE(R4^=RTM2RYRB); /* PROCESS ALL RB-S FOR PURGE */ 01679000 B @DE00513 0513 01680000 @DL00513 DS 0H 0514 01681000 * RBWCF=NOWAIT; /* ZERO WAIT COUNT */ 01682000 MVI RBWCF(R4),X'00' 0514 01683000 * RBXWAIT=OFF; /* ZERO EXPLICIT WAIT COUNT */ 01684000 LR @12,R4 0515 01685000 AL @12,@CF03727 0515 01686000 NI RBXWAIT-56(@12),B'10111111' 0515 01687000 * IF RBFTP^='000'B THEN /* DETERMINE RB TYPE @YM06219*/ 01688000 TM RBFTP(R4),B'11100000' 0516 01689000 BZ @RF00516 0516 01690000 * IF RTM2UPRG=ON THEN /* IF RB IS IRB OR SVRB UPDATED 01691000 * REGISTERS ARE STORED IN 0517 01692000 * RBGRSAVE @G33SPHW*/ 01693000 TM RTM2UPRG(RTM2PTR),B'01000000' 0517 01694000 BNO @RF00517 0517 01695000 * RBGRSAVE=RTM2RYRG; /* RESTORE REGISTERS @G33SPHW*/ 01696000 MVC RBGRSAVE(64,R4),RTM2RYRG(RTM2PTR) 0518 01697000 * ELSE /* NOT SVRB OR IRB @G33SPHW*/ 01698000 * DO; /* RESTORE ONLY PARM REGS 0519 01699000 * @G33SPHW*/ 01700000 B @RC00517 0519 01701000 @RF00517 DS 0H 0520 01702000 * RBGRS0=RTM2RYRS(1);/* RESTORE PARM REG @G33SPHW*/ 01703000 L @12,RTM2RYRS(,RTM2PTR) 0520 01704000 ST @12,RBGRS0(,R4) 0520 01705000 * RBGRS1=RTM2RYRS(2);/* RESTORE REG1 @G33SPHW*/ 01706000 L @12,RTM2RYRS+4(,RTM2PTR) 0521 01707000 ST @12,RBGRS1(,R4) 0521 01708000 * RBGRS2=RTM2RYRS(3);/* RESTORE REG 2 @G33SPHW*/ 01709000 L @12,RTM2RYRS+8(,RTM2PTR) 0522 01710000 ST @12,RBGRS2(,R4) 0522 01711000 * RBGRS14=RTM2RYRS(15);/* RESTORE RETURN REG @G33SPHW*/ 01712000 L @12,RTM2RYRS+56(,RTM2PTR) 0523 01713000 ST @12,RBGRS14(,R4) 0523 01714000 * RBGRS15=RTM2RYRS(16);/* RESTORE RETRY REG @G33SPHW*/ 01715000 L @12,RTM2RYRS+60(,RTM2PTR) 0524 01716000 ST @12,RBGRS15(,R4) 0524 01717000 * END; /* RETRY REGS @G33SPHW*/ 01718000 * ELSE 0526 01719000 * ; /* NO UPDATING NECESSARY FOR PRB */ 01720000 @RF00516 DS 0H 0527 01721000 * IF RBFTP='110'B THEN /* TEST IF SVRB */ 01722000 @RC00516 TM RBFTP(R4),B'11000000' 0527 01723000 BNO @RF00527 0527 01724000 TM RBFTP(R4),B'00100000' 0527 01725000 BNZ @RF00527 0527 01726000 * IF R4^=RTM2VRBC THEN /* TEST IF THIS IS CURRENT ABEND 01727000 * SVRB */ 01728000 C R4,RTM2VRBC(,RTM2PTR) 0528 01729000 BE @RF00528 0528 01730000 * DO; 0529 01731000 * RBOPSW(2)=RBOPSW(2)&KEY0SUPV;/* ENSURE RB IN KEY 0 01732000 * & SUPERVISOR STATE BEFORE 0530 01733000 * BRANCHING TO EXIT PROLOGUE 0530 01734000 * @YM02640*/ 01735000 NI RBOPSW+1(R4),X'0E' 0530 01736000 * RBOPSW(5:8)=CVTEXPRO&PSWMASK;/* PTR TO EXIT 0531 01737000 * PROLOGUE @ZA10783*/ 01738000 L @12,CVTPTR(,RTM2PTR) 0531 01739000 L @12,CVTEXPRO(,@12) 0531 01740000 N @12,@CF00081 0531 01741000 STCM @12,15,RBOPSW+4(R4) 0531 01742000 * END; 0532 01743000 * ELSE 0533 01744000 * ; /* LEAVE ABEND SVRB ALONE */ 01745000 @RF00528 DS 0H 0534 01746000 * ELSE /* IF NOT AN SVRB */ 01747000 * RBOPSW(5:8)=ADDR(CVTEXIT);/* INSERT SVC 3 IN RB PSW */ 01748000 B @RC00527 0534 01749000 @RF00527 L @12,CVTPTR(,RTM2PTR) 0534 01750000 LA @12,CVTEXIT(,@12) 0534 01751000 STCM @12,15,RBOPSW+4(R4) 0534 01752000 * R4=RBLINKB; /* UPDATE TO NEXT RB */ 01753000 @RC00527 L @12,RBLINKB-1(,R4) 0535 01754000 LA @12,0(,@12) 0535 01755000 LR R4,@12 0535 01756000 * END; /* END RB PROCESSING LOOP */ 01757000 @DE00513 C R4,RTM2RYRB(,RTM2PTR) 0536 01758000 BNE @DL00513 0536 01759000 * RBWCF=NOWAIT; /* ZERO WAIT COUNT IN RETRY RB */ 01760000 MVI RBWCF(R4),X'00' 0537 01761000 * RBXWAIT=OFF; /* ZERO EXPLICIT WAIT COUNT */ 01762000 LR @12,R4 0538 01763000 AL @12,@CF03727 0538 01764000 NI RBXWAIT-56(@12),B'10111111' 0538 01765000 * RBECBWT=OFF; /* CLEAR MULTIPLE WAIT FLAG IN 0539 01766000 * CASE ANOTHER WAIT IS DONE 0539 01767000 * LATER @ZA05273*/ 01768000 NI RBECBWT(R4),B'11111110' 0539 01769000 * RBOPSW(5:8)=RTM2RTYA&PSWMASK;/* RETRY ADDRESS IN RB 0540 01770000 * @ZA10183*/ 01771000 L @12,RTM2RTYA(,RTM2PTR) 0540 01772000 N @12,@CF00081 0540 01773000 STCM @12,15,RBOPSW+4(R4) 0540 01774000 * IF RTM2AS1R=OFF&SCBSTAI=OFF&SCBSTAR=OFF&SCBESTAE=ON THEN/* 01775000 * IF ESTAE TYPE ... @ZA02950*/ 01776000 TM RTM2AS1R(RTM2PTR),B'00000100' 0541 01777000 BNZ @RF00541 0541 01778000 TM SCBESTAE(SCBPTR),B'00010000' 0541 01779000 BNO @RF00541 0541 01780000 TM SCBSTAI(SCBPTR),B'11000000' 0541 01781000 BNZ @RF00541 0541 01782000 * DO; /* INSERT KEY & MODE OF SCB RB 0542 01783000 * @YM03578*/ 01784000 * RBOPSW(2)=RBOPSW(2)&KEYOFF;/* ZERO KEY IN RB PSW 0543 01785000 * @YM03578*/ 01786000 NI RBOPSW+1(R4),X'0F' 0543 01787000 * RBOPSW(2)=RBOPSW(2)|SCBPKEY;/* INSERT KEY IN RB PSW 0544 01788000 * @YM03578*/ 01789000 OC RBOPSW+1(1,R4),SCBPKEY(SCBPTR) 0544 01790000 * IF SCBSUPER=ON THEN /* IF SUPERVISOR MODE ... 0545 01791000 * @YM03578*/ 01792000 TM SCBSUPER(SCBPTR),B'00000001' 0545 01793000 BNO @RF00545 0545 01794000 * RBOPSW(2)=RBOPSW(2)&PPMODOFF;/* INDICATE SUPERVISOR 01795000 * MODE IN RB PSW @YM03578*/ 01796000 NI RBOPSW+1(R4),X'FE' 0546 01797000 * ELSE /* @YM03578*/ 01798000 * RBOPSW(2)=RBOPSW(2)|PPMODEON;/* INDICATE PP MODE IN 01799000 * RB PSW @YM03578*/ 01800000 B @RC00545 0547 01801000 @RF00545 OI RBOPSW+1(R4),X'01' 0547 01802000 * RBOPSW(1)=RBOPSW(1)|TRMODEON;/* INDICATE TRANSLATION 0548 01803000 * MODE @ZA06796*/ 01804000 @RC00545 OI RBOPSW(R4),X'04' 0548 01805000 * RBOPSW(1)=RBOPSW(1)|ENABLEON;/* INDICATE ENABLE MODE IN 01806000 * RB PSW @ZA06796*/ 01807000 OI RBOPSW(R4),X'03' 0549 01808000 * END; /* END RB PSW PROCESSING @YM03578*/ 01809000 * RESPECIFY 0551 01810000 * (R9, 0551 01811000 * R4) UNRESTRICTED; 0551 01812000 @RF00541 DS 0H 0552 01813000 * ESAGLREC=ON; /* SET RECURSION CONTROL @YM01826*/ 01814000 L @12,RTM2VRBC(,RTM2PTR) 0552 01815000 OI ESAGLREC+96(@12),B'00010000' 0552 01816000 * DO; /* SETLOCK (RELEASE) TYPE(LOCAL) 01817000 * RELATED(RB,IEAVTAS3(RBTYPE)) */ 01818000 * RFY 0554 01819000 * (GPR11P, 0554 01820000 * GPR12P, 0554 01821000 * GPR13P, 0554 01822000 * GPR14P) RSTD; 0554 01823000 * GPR13P=PSALITA; /* ADDRESS OF LOCK INTERFACE 0555 01824000 * TABLE. */ 01825000 L GPR13P,PSALITA 0555 01826000 * GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, CLHT 01827000 * AND ENTRY ADRS. */ 01828000 LM GPR11P,GPR13P,588(GPR13P) 01829000 * GEN(BALR GPR14P,GPR13P);/* BALR TO SETLOCK RTN. */ 01830000 BALR GPR14P,GPR13P 01831000 * RFY 0558 01832000 * (GPR11P, 0558 01833000 * GPR12P, 0558 01834000 * GPR13P, 0558 01835000 * GPR14P) UNRSTD; 0558 01836000 * END; /* SETLOCK (RELEASE) TYPE(LOCAL) 01837000 * RELATED(RB,IEAVTAS3(RBTYPE)) 01838000 * @YM01826*/ 01839000 * ESAGLREC=OFF; /* RELEASE RECURSION CONTROL 0560 01840000 * @YM01826*/ 01841000 L @12,RTM2VRBC(,RTM2PTR) 0560 01842000 NI ESAGLREC+96(@12),B'11101111' 0560 01843000 * END; /* END RBTYPE1 @G33SPHW*/ 01844000 * IF RTM2AS1R=OFF&SCBESTAE=ON THEN/* NOT STAE OR ESTAE THOSE 0562 01845000 * ARE NEVER REENTERED @G33SPHW*/ 01846000 TM RTM2AS1R(RTM2PTR),B'00000100' 0562 01847000 BNZ @RF00562 0562 01848000 TM SCBESTAE(SCBPTR),B'00010000' 0562 01849000 BNO @RF00562 0562 01850000 * SCBINUSE=OFF; /* ALLOW EXIT TO REENTER IF RETRY 01851000 * IF ROUTINES FAIL @G33SPHW*/ 01852000 NI SCBINUSE(SCBPTR),B'11101111' 0563 01853000 * END; /* RBS ALL SETUP @G33SPHW*/ 01854000 @RF00562 DS 0H 0565 01855000 * R13=ADDR(RTM2TRSA); 0565 01856000 @RC00099 LA R13,RTM2TRSA(,RTM2PTR) 0565 01857000 * RETURN CODE(0); /* RETURN TO IEAVTAS1 */ 01858000 * 0566 01859000 SLR @15,@15 0566 01860000 L @14,12(,@13) 0566 01861000 LM @00,@12,20(@13) 0566 01862000 BR @14 0566 01863000 * /*****************************************************************/ 01864000 * /* */ 01865000 * /* FINDIOB SCANS THE IOB RESTORE CHAIN PASSED BY QUIESCE AND */ 01866000 * /* DEQUEUES ALL IOBS PERTAINING TO THIS DCB. TO AVOID FIRST-TIME */ 01867000 * /* LOGIC, THE MAPPING OF THE IOB IS SUPERIMPOSED ON THE PIRL SO */ 01868000 * /* THAT THE CHAIN FIELD COINCIDES WITH THE POINTER TO THE START */ 01869000 * /* OF THE QUEUE */ 01870000 * /* */ 01871000 * /*****************************************************************/ 01872000 * 0567 01873000 *FINDIOB: 0567 01874000 * PROCEDURE OPTIONS(NOSAVEAREA); 0567 01875000 @EL00001 DS 0H 0567 01876000 @EF00001 DS 0H 0567 01877000 @ER00001 LM @14,@12,12(@13) 0567 01878000 BR @14 0567 01879000 FINDIOB STM @14,@12,12(@13) 0567 01880000 * IF RTM2IOQR=ON THEN /* I/O WAS QUIESCED */ 01881000 TM RTM2IOQR(RTM2PTR),B'10000000' 0568 01882000 BNO @RF00568 0568 01883000 * DO; 0569 01884000 * RESPECIFY 0570 01885000 * (R2, 0570 01886000 * R8) RESTRICTED; /* RESTRICT IOB PTR */ 01887000 * R8=RTM2FIOB+(TWO*(LENGTH(PIRRSTR)+LENGTH(PIRDVRU)));/* EXCP 01888000 * IS THIRD ENTRY IN PIRL */ 01889000 LA R8,16 0571 01890000 L @12,RTM2FIOB-1(,RTM2PTR) 0571 01891000 LA @12,0(,@12) 0571 01892000 ALR R8,@12 0571 01893000 * IF PIRRSTR^=ZERO THEN 0572 01894000 L @12,PIRRSTR(,R8) 0572 01895000 LTR @12,@12 0572 01896000 BZ @RF00572 0572 01897000 * DO; 0573 01898000 * R2=ADDR(PIRRSTR)-EVAL(ADDR(IOBRESTR)-ADDR(IOBSTDRD));/* 01899000 * SUPERIMPOSE IOB MAPPING ON 0574 01900000 * PIRL */ 01901000 LA @12,PIRRSTR(,R8) 0574 01902000 SL @12,@CF00068 0574 01903000 LR R2,@12 0574 01904000 * DO WHILE(IOBRSTRB^=NOIOB);/* LOOP UNTIL CHAIN EXHAUSTED */ 01905000 B @DE00575 0575 01906000 @DL00575 DS 0H 0576 01907000 * IF IOBRESTR->IOBDCBPB=RTM2DCBA THEN/* NEXT IOB BELONGS 01908000 * TO DCB TO BE CLOSED */ 01909000 L @12,IOBRESTR(,R2) 0576 01910000 L @12,IOBDCBPB-1(,@12) 0576 01911000 LA @12,0(,@12) 0576 01912000 C @12,RTM2DCBA(,RTM2PTR) 0576 01913000 BNE @RF00576 0576 01914000 * IOBRSTRB=IOBRSTRB->IOBRSTRB;/* DELETE IOB FROM QUEUE */ 01915000 L @12,IOBRSTRB-1(,R2) 0577 01916000 L @12,IOBRSTRB-1(,@12) 0577 01917000 LA @12,0(,@12) 0577 01918000 STCM @12,7,IOBRSTRB(R2) 0577 01919000 * ELSE /* NEXT IOB DOES NOT BELONG TO 0578 01920000 * DCB TO BE CLOSED */ 01921000 * R2=IOBRSTRB; /* LOCATE NEXT IOB */ 01922000 B @RC00576 0578 01923000 @RF00576 L @12,IOBRSTRB-1(,R2) 0578 01924000 LA @12,0(,@12) 0578 01925000 LR R2,@12 0578 01926000 * END; /* END OF IOB SCAN */ 01927000 @RC00576 DS 0H 0579 01928000 @DE00575 CLC IOBRSTRB(3,R2),@CF00069+1 0579 01929000 BNE @DL00575 0579 01930000 * IF PIRRSTRA=NOIOB THEN /* TEST IF ENTIRE CHAIN DEQUEUED 01931000 * @YM02673*/ 01932000 CLC PIRRSTRA(3,R8),@CF00069+1 0580 01933000 BNE @RF00580 0580 01934000 * PIRRSTR=ZERO; /* INDICATE END OF CHAIN IN PIRL */ 01935000 SLR @12,@12 0581 01936000 ST @12,PIRRSTR(,R8) 0581 01937000 * END; 0582 01938000 @RF00580 DS 0H 0583 01939000 * RESPECIFY 0583 01940000 * (R2, 0583 01941000 * R8) UNRESTRICTED; 0583 01942000 @RF00572 DS 0H 0584 01943000 * END; 0584 01944000 * END FINDIOB; 0585 01945000 @EL00002 DS 0H 0585 01946000 @EF00002 DS 0H 0585 01947000 @ER00002 LM @14,@12,12(@13) 0585 01948000 BR @14 0585 01949000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01950000 * GPR00F FIXED(31) REG(0), 0586 01951000 * GPR01F FIXED(31) REG(1), 0586 01952000 * GPR15F FIXED(31) REG(15), 0586 01953000 * GPR00P PTR(31) REG(0), 0586 01954000 * GPR01P PTR(31) REG(1), 0586 01955000 * GPR11P PTR(31) REG(11), 0586 01956000 * GPR12P PTR(31) REG(12), 0586 01957000 * GPR13P PTR(31) REG(13), 0586 01958000 * GPR14P PTR(31) REG(14), 0586 01959000 * GPR15P PTR(31) REG(15); 0586 01960000 * DECLARE /* COMMON VARIABLES */ 01961000 * I256C CHAR(256) BASED, 0587 01962000 * I031F FIXED(31) BASED, 0587 01963000 * I031P PTR(31) BASED, 0587 01964000 * I015F FIXED(15) BASED, 0587 01965000 * I015P PTR(15) BASED, 0587 01966000 * I008P PTR(8) BASED, 0587 01967000 * I001C CHAR(1) BASED; 0587 01968000 * END IEAVTAS3 0588 01969000 * 0588 01970000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01971000 */*%INCLUDE SYSLIB (AS3SPEC ) */ 01972000 */*%INCLUDE SYSLIB (AS3DCLS ) */ 01973000 */*%INCLUDE SYSLIB (IHARTM2A) */ 01974000 */*%INCLUDE SYSLIB (IHASNP ) */ 01975000 */*%INCLUDE SYSLIB (IHARMPL ) */ 01976000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01977000 */*%INCLUDE SYSLIB (IHASCB ) */ 01978000 */*%INCLUDE SYSLIB (IHACDE ) */ 01979000 */*%INCLUDE SYSLIB (IHARTCT ) */ 01980000 */*%INCLUDE SYSLIB (CVT ) */ 01981000 */*%INCLUDE SYSLIB (IEZDEB ) */ 01982000 */*%INCLUDE SYSLIB (IEZIOB ) */ 01983000 */*%INCLUDE SYSLIB (IHARB ) */ 01984000 */*%INCLUDE SYSLIB (IKJRB ) */ 01985000 */*%INCLUDE SYSLIB (IHASCVT ) */ 01986000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01987000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01988000 */*%INCLUDE SYSLIB (IECDPIRL) */ 01989000 */*%INCLUDE SYSLIB (RTM2ESA ) */ 01990000 */*%INCLUDE SYSLIB (AS3PATCH) */ 01991000 */*%INCLUDE SYSLIB (FINDRB ) */ 01992000 */*%INCLUDE SYSLIB (RBPRGE ) */ 01993000 */*%INCLUDE SYSLIB (CLOSEDS ) */ 01994000 */*%INCLUDE SYSLIB (FINDDCBS) */ 01995000 */*%INCLUDE SYSLIB (PGMMPRGE) */ 01996000 */*%INCLUDE SYSLIB (PAGEPRGE) */ 01997000 */*%INCLUDE SYSLIB (RBTYPE ) */ 01998000 */*%INCLUDE SYSLIB (RBTYPE ) */ 01999000 */*%INCLUDE SYSLIB (PARMREGS) */ 02000000 */*%INCLUDE SYSLIB (PARMREGS) */ 02001000 */*%INCLUDE SYSLIB (RTRYSDWA) */ 02002000 */*%INCLUDE SYSLIB (SCBUPDAT) */ 02003000 */*%INCLUDE SYSLIB (SCBPERC ) */ 02004000 */*%INCLUDE SYSLIB (RECURSE3) */ 02005000 */*%INCLUDE SYSLIB (RBTYPE1 ) */ 02006000 */*%INCLUDE SYSLIB (FINDIOB ) */ 02007000 * 0588 02008000 * ; 0588 02009000 @DATA DS 0H 02010000 @DATD DSECT 02011000 DS 0F 02012000 IEAVTAS3 CSECT 02013000 DS 0F 02014000 @CF00092 DC F'1' 02015000 @CF00068 DC F'24' 02016000 @CF00472 DC F'64' 02017000 @CF03678 DC F'104' 02018000 @CF03727 DC F'-8' 02019000 @CF03717 DC F'-4' 02020000 @CF00081 DC XL4'00FFFFFF' 02021000 @CF00069 DC XL4'FFFFFF' 02022000 @DATD DSECT 02023000 DS 0D 02024000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02025000 @ENDDATD EQU * 02026000 IEAVTAS3 CSECT 02027000 DS 0F 02028000 @SIZDATD DC AL1(0) 02029000 DC AL3(@ENDDATD-@DATD) 02030000 @CV00059 DC V(IEAVTPMT) 02031000 @CV00066 DC V(RECURSE) 02032000 DS 0D 02033000 @CB03724 DC X'00' 02034000 DS CL3 02035000 AS3PATCH DC CL160'PATCH AREA' 02036000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02037000 @01 EQU 01 02038000 @02 EQU 02 02039000 @03 EQU 03 02040000 @04 EQU 04 02041000 @05 EQU 05 02042000 @06 EQU 06 02043000 @07 EQU 07 02044000 @08 EQU 08 02045000 @09 EQU 09 02046000 @10 EQU 10 02047000 @11 EQU 11 02048000 @12 EQU 12 02049000 @13 EQU 13 02050000 @14 EQU 14 02051000 @15 EQU 15 02052000 R0 EQU @00 02053000 R1 EQU @01 02054000 R2 EQU @02 02055000 RTM2PTR EQU @03 02056000 R4 EQU @04 02057000 SCBPTR EQU @05 02058000 SDWAPTR EQU @07 02059000 R8 EQU @08 02060000 R9 EQU @09 02061000 R11 EQU @11 02062000 R12 EQU @12 02063000 R13 EQU @13 02064000 R14 EQU @14 02065000 GPR11P EQU @11 02066000 GPR12P EQU @12 02067000 GPR13P EQU @13 02068000 GPR14P EQU @14 02069000 GPR01F EQU @01 02070000 GPR15F EQU @15 02071000 GPR00F EQU @00 02072000 GPR00P EQU @00 02073000 GPR01P EQU @01 02074000 GPR15P EQU @15 02075000 R10 EQU @10 02076000 R15 EQU @15 02077000 R6 EQU @06 02078000 PSA EQU 0 02079000 FLCRNPSW EQU PSA 02080000 FLCROPSW EQU PSA+8 02081000 FLCICCW2 EQU PSA+16 02082000 PSAEEPSW EQU PSA+132 02083000 PSAESPSW EQU PSA+136 02084000 FLCSVILC EQU PSAESPSW+1 02085000 PSAEPPSW EQU PSA+140 02086000 FLCPIILC EQU PSAEPPSW+1 02087000 FLCPICOD EQU PSAEPPSW+2 02088000 PSAPICOD EQU FLCPICOD+1 02089000 FLCTEA EQU PSAEPPSW+4 02090000 FLCPER EQU PSA+152 02091000 FLCMCLA EQU PSA+168 02092000 FLCIOEL EQU FLCMCLA+4 02093000 FLCIOA EQU FLCMCLA+16 02094000 FLCFSA EQU FLCMCLA+80 02095000 PSASUPER EQU PSA+552 02096000 PSASUP1 EQU PSASUPER 02097000 PSASUP2 EQU PSASUPER+1 02098000 PSASUP3 EQU PSASUPER+2 02099000 PSASUP4 EQU PSASUPER+3 02100000 PSACLHT EQU PSA+640 02101000 PSALKSA EQU PSA+696 02102000 PSAHLHI EQU PSA+760 02103000 PSALITA EQU PSA+764 02104000 PSADSSFL EQU PSA+836 02105000 PSADSSF1 EQU PSADSSFL 02106000 PSADSSF3 EQU PSADSSFL+2 02107000 PSADSSF4 EQU PSADSSFL+3 02108000 PSARSVT EQU PSA+896 02109000 AEXITRM EQU 0 02110000 DATAMGR EQU 0 02111000 IEAPTERM EQU 0 02112000 IEAQPGTM EQU 0 02113000 IEAVENQ2 EQU 0 02114000 IEECVPRG EQU 0 02115000 IEAPPGMA EQU 0 02116000 IEAVSPIE EQU 0 02117000 RSAVE EQU 0 02118000 SNPPARMS EQU 0 02119000 SNPFLAG EQU SNPPARMS+1 02120000 SNPSDATA EQU SNPPARMS+4 02121000 SNPSDAT0 EQU SNPSDATA 02122000 SNPSDAT1 EQU SNPSDATA+1 02123000 SNPPDATA EQU SNPPARMS+6 02124000 RMPL EQU 0 02125000 RMPLFLG1 EQU RMPL 02126000 RMPLTYPE EQU RMPLFLG1 02127000 RMPLRBPP EQU RMPLFLG1 02128000 RMPLRCOV EQU RMPLFLG1 02129000 RMPLJST EQU RMPLFLG1 02130000 RMPLTCBA EQU RMPL+8 02131000 RMPLRBPA EQU RMPL+12 02132000 RMPLDCBL EQU RMPL+20 02133000 RTM2WA EQU 0 02134000 RTM2DESC EQU RTM2WA 02135000 RTM2RT2D EQU RTM2DESC+8 02136000 RTM2CVT EQU RTM2WA+12 02137000 RTM2TCBC EQU RTM2WA+16 02138000 RTM2VRBC EQU RTM2WA+20 02139000 RTM2CODE EQU RTM2WA+28 02140000 RTM2CCF EQU RTM2CODE 02141000 RTM2DREQ EQU RTM2CCF 02142000 RTM2CC EQU RTM2CODE+1 02143000 RTM2PGCY EQU RTM2WA+60 02144000 RTM2TRRY EQU RTM2PGCY 02145000 RTM2EEDR EQU RTM2TRRY 02146000 RTM2EREG EQU RTM2EEDR 02147000 RTM2APSW EQU RTM2EEDR+64 02148000 RTM2EPSW EQU RTM2APSW 02149000 RTM2EMK1 EQU RTM2EPSW 02150000 RTM2MWP1 EQU RTM2EPSW+1 02151000 RTM2INT1 EQU RTM2EPSW+2 02152000 RTM2NXT1 EQU RTM2EPSW+4 02153000 RTM2AEC1 EQU RTM2APSW+8 02154000 RTM2ILC1 EQU RTM2AEC1+1 02155000 RTM2INC1 EQU RTM2AEC1+2 02156000 RTM2ICD1 EQU RTM2INC1+1 02157000 RTM2EEDH EQU RTM2TRRY+92 02158000 RTM2STCK EQU RTM2EEDH 02159000 RTM2MCHI EQU RTM2EEDH+8 02160000 RTM2MCHS EQU RTM2MCHI 02161000 RTM2MCHD EQU RTM2MCHI+1 02162000 RTM2RSR1 EQU RTM2EEDH+12 02163000 RTM2RSR2 EQU RTM2EEDH+13 02164000 RTM2FLGS EQU RTM2TRRY+120 02165000 RTM2ERRA EQU RTM2FLGS 02166000 RTM2ERRB EQU RTM2FLGS+1 02167000 RTM2ERRC EQU RTM2FLGS+2 02168000 RTM2STAI EQU RTM2ERRC 02169000 RTM2PERC EQU RTM2ERRC 02170000 RTM2EAS EQU RTM2ERRC 02171000 RTM2ERRD EQU RTM2FLGS+3 02172000 RTM2CLUP EQU RTM2ERRD 02173000 RTM2CVER EQU RTM2WA+186 02174000 RTM2TRRC EQU RTM2CVER 02175000 RTM2IOFS EQU RTM2TRRC 02176000 RTM2IOQR EQU RTM2IOFS 02177000 RTM2IOBP EQU RTM2TRRC+2 02178000 RTM2FIOB EQU RTM2IOBP+1 02179000 RTM2STAR EQU RTM2TRRC+10 02180000 RTM2SCBS EQU RTM2TRRC+14 02181000 RTM2SCBC EQU RTM2SCBS 02182000 RTM2SCBN EQU RTM2SCBS+4 02183000 RTM2SCBO EQU RTM2SCBS+8 02184000 RTM2RTCD EQU RTM2TRRC+26 02185000 RTM2RTCA EQU RTM2RTCD 02186000 RTM2SPLL EQU RTM2RTCD+4 02187000 RTM2SUBP EQU RTM2SPLL 02188000 RTM2SIZE EQU RTM2SPLL+1 02189000 RTM2COMP EQU RTM2TRRC+34 02190000 RTM2RTYA EQU RTM2TRRC+38 02191000 RTM2RYRB EQU RTM2TRRC+42 02192000 RTM2PARQ EQU RTM2TRRC+46 02193000 RTM2RCDE EQU RTM2PARQ 02194000 RTM2CTL1 EQU RTM2CVER+50 02195000 RTM2CMKA EQU RTM2CTL1 02196000 RTM2MWPA EQU RTM2CTL1+1 02197000 RTM2PMKA EQU RTM2CTL1+4 02198000 RTM2CTL2 EQU RTM2CVER+58 02199000 RTM2CMKP EQU RTM2CTL2 02200000 RTM2MWPP EQU RTM2CTL2+1 02201000 RTM2PMKP EQU RTM2CTL2+4 02202000 RTM2SNAP EQU RTM2CVER+66 02203000 RTM2SPRM EQU RTM2SNAP+4 02204000 RTM2DPSL EQU RTM2SNAP+24 02205000 RTM2FRM1 EQU RTM2DPSL 02206000 RTM2TO1 EQU RTM2DPSL+4 02207000 RTM2FRM2 EQU RTM2DPSL+8 02208000 RTM2TO2 EQU RTM2DPSL+12 02209000 RTM2FRM3 EQU RTM2DPSL+16 02210000 RTM2TO3 EQU RTM2DPSL+20 02211000 RTM2FRM4 EQU RTM2DPSL+24 02212000 RTM2TO4 EQU RTM2DPSL+28 02213000 RTM2SECB EQU RTM2CVER+138 02214000 RTM2ECBA EQU RTM2SECB 02215000 RTM2DCBA EQU RTM2CVER+170 02216000 RTM2PREV EQU RTM2CVER+178 02217000 RTM2PRWA EQU RTM2CVER+182 02218000 RTM2SFRG EQU RTM2CVER+186 02219000 RTM2SCTL EQU RTM2CVER+259 02220000 RTM2CCTL EQU RTM2SCTL 02221000 RTM2ABDR EQU RTM2SCTL+4 02222000 RTM2ABID EQU RTM2ABDR 02223000 RTM2ABND EQU RTM2ABDR+1 02224000 RTM2RCTL EQU RTM2SCTL+6 02225000 RTM2STA2 EQU RTM2RCTL 02226000 RTM2WAIN EQU RTM2RCTL 02227000 RTM2WANA EQU RTM2RCTL 02228000 RTM2INTF EQU RTM2CVER+266 02229000 RTM2CTLR EQU RTM2INTF 02230000 RTM2RETR EQU RTM2CTLR 02231000 RTM2TSKT EQU RTM2INTF+2 02232000 RTM2ABDP EQU RTM2INTF+4 02233000 RTM2ASIR EQU RTM2INTF+5 02234000 RTM2UPRG EQU RTM2ASIR 02235000 RTM2FLX EQU RTM2INTF+6 02236000 RTM2FLX1 EQU RTM2FLX 02237000 RTM2FLX2 EQU RTM2FLX+1 02238000 RTM2RECL EQU RTM2CVER+274 02239000 RTM2DCTL EQU RTM2RECL+12 02240000 RTM2ECTL EQU RTM2RECL+13 02241000 RTM2TRYR EQU RTM2RECL+16 02242000 RTM2TRF1 EQU RTM2TRYR 02243000 RTM2FMS EQU RTM2TRF1 02244000 RTM2RTYS EQU RTM2TRF1+1 02245000 RTM2XABD EQU RTM2TRF1+1 02246000 RTM2XFLG EQU RTM2TRF1+1 02247000 RTM2AS1R EQU RTM2TRF1+1 02248000 RTM2AS2R EQU RTM2TRF1+1 02249000 RTM2AS3R EQU RTM2TRF1+1 02250000 RTM2TRF2 EQU RTM2TRYR+2 02251000 RTM2RECH EQU RTM2CVER+294 02252000 RTM2TRRA EQU RTM2RECH 02253000 RTM2RRG EQU RTM2CVER+314 02254000 RTM2RREG EQU RTM2RRG 02255000 RTM2CRG EQU RTM2CVER+378 02256000 RTM2TRSA EQU RTM2CVER+450 02257000 RTM2RMIN EQU RTM2WA+708 02258000 RTM2RMPS EQU RTM2RMIN 02259000 RTM2RMPL EQU RTM2RMIN+4 02260000 RTM2RMWA EQU RTM2RMIN+28 02261000 RTM2RMSA EQU RTM2RMIN+92 02262000 RTM2ERID EQU RTM2WA+872 02263000 RTM2ENSN EQU RTM2WA+884 02264000 RTM2SNLN EQU RTM2ENSN 02265000 RTM2RYRG EQU RTM2WA+904 02266000 RTM2RYRS EQU RTM2RYRG 02267000 STORAGE EQU 0 02268000 STORFRM EQU STORAGE 02269000 STORTO EQU STORAGE+4 02270000 SDWA EQU 0 02271000 SDWAFIOB EQU SDWA+4 02272000 SDWAABCC EQU SDWAFIOB 02273000 SDWACMPF EQU SDWAABCC 02274000 SDWACMPC EQU SDWAABCC+1 02275000 SDWACTL1 EQU SDWA+8 02276000 SDWACMKA EQU SDWACTL1 02277000 SDWAMWPA EQU SDWACTL1+1 02278000 SDWAPMKA EQU SDWACTL1+4 02279000 SDWACTL2 EQU SDWA+16 02280000 SDWACMKP EQU SDWACTL2 02281000 SDWAMWPP EQU SDWACTL2+1 02282000 SDWAPMKP EQU SDWACTL2+4 02283000 SDWAGRSV EQU SDWA+24 02284000 SDWANAME EQU SDWA+88 02285000 SDWAIOBR EQU SDWA+100 02286000 SDWAEC1 EQU SDWA+104 02287000 SDWAEMK1 EQU SDWAEC1 02288000 SDWAMWP1 EQU SDWAEC1+1 02289000 SDWAINT1 EQU SDWAEC1+2 02290000 SDWANXT1 EQU SDWAEC1+4 02291000 SDWAAEC1 EQU SDWA+112 02292000 SDWAILC1 EQU SDWAAEC1+1 02293000 SDWAINC1 EQU SDWAAEC1+2 02294000 SDWAICD1 EQU SDWAINC1+1 02295000 SDWAEC2 EQU SDWA+120 02296000 SDWAEMK2 EQU SDWAEC2 02297000 SDWAMWP2 EQU SDWAEC2+1 02298000 SDWAINT2 EQU SDWAEC2+2 02299000 SDWANXT2 EQU SDWAEC2+4 02300000 SDWAAEC2 EQU SDWA+128 02301000 SDWAILC2 EQU SDWAAEC2+1 02302000 SDWAINC2 EQU SDWAAEC2+2 02303000 SDWAICD2 EQU SDWAINC2+1 02304000 SDWASRSV EQU SDWA+136 02305000 SDWAIDNT EQU SDWA+200 02306000 SDWALNTH EQU SDWAIDNT+1 02307000 SDWAMCH EQU SDWA+204 02308000 SDWASTCK EQU SDWAMCH 02309000 SDWAMCHI EQU SDWAMCH+8 02310000 SDWAMCHS EQU SDWAMCHI 02311000 SDWAMCHD EQU SDWAMCHI+1 02312000 SDWARSR1 EQU SDWAMCH+12 02313000 SDWARSR2 EQU SDWAMCH+13 02314000 SDWAFLGS EQU SDWA+232 02315000 SDWAERRA EQU SDWAFLGS 02316000 SDWAERRB EQU SDWAFLGS+1 02317000 SDWAERRC EQU SDWAFLGS+2 02318000 SDWAEAS EQU SDWAERRC 02319000 SDWAERRD EQU SDWAFLGS+3 02320000 SDWAIOFS EQU SDWA+238 02321000 SDWACPUA EQU SDWA+248 02322000 SDWAPARQ EQU SDWA+252 02323000 SDWAACF2 EQU SDWAPARQ+1 02324000 SDWAUPRG EQU SDWAACF2 02325000 SDWAFREE EQU SDWAACF2 02326000 SDWAACF3 EQU SDWAPARQ+2 02327000 SDWAACF4 EQU SDWAPARQ+3 02328000 SDWALKWA EQU SDWA+256 02329000 SDWALKWS EQU SDWALKWA 02330000 SDWARECP EQU SDWA+292 02331000 SDWASNPA EQU SDWA+320 02332000 SDWADUMP EQU SDWASNPA 02333000 SDWADPFS EQU SDWADUMP+1 02334000 SDWADDAT EQU SDWASNPA+4 02335000 SDWASDAT EQU SDWADDAT 02336000 SDWASDA0 EQU SDWASDAT 02337000 SDWASDA1 EQU SDWASDAT+1 02338000 SDWAPDAT EQU SDWADDAT+2 02339000 SDWADPSA EQU SDWA+328 02340000 SDWADPSL EQU SDWADPSA 02341000 SDWACOMP EQU SDWA+392 02342000 SDWARA EQU SDWA+400 02343000 SDWADPVA EQU SDWARA+2 02344000 SCB EQU 0 02345000 SCBCHAIN EQU SCB 02346000 SCBPARM EQU SCB+8 02347000 SCBFLGS1 EQU SCBPARM 02348000 SCBSTAI EQU SCBFLGS1 02349000 SCBSTAR EQU SCBFLGS1 02350000 SCBESTAE EQU SCBFLGS1 02351000 SCBIOPRC EQU SCBFLGS1 02352000 SCBPARMA EQU SCBPARM+1 02353000 SCBOWNR EQU SCB+12 02354000 SCBFLGS2 EQU SCBOWNR 02355000 SCBINUSE EQU SCBFLGS2 02356000 SCBSUPER EQU SCBFLGS2 02357000 SCBOWNRA EQU SCBOWNR+1 02358000 SCBDATA EQU SCB+16 02359000 SCBFLGS3 EQU SCBDATA 02360000 SCBPKEY EQU SCBDATA+1 02361000 CDENTPTR EQU 0 02362000 CDENTRY EQU 0 02363000 CDXLMJP EQU CDENTRY+20 02364000 CDATTR EQU CDENTRY+28 02365000 CDNIC EQU CDATTR 02366000 CDMIN EQU CDATTR 02367000 CDATTR2 EQU CDENTRY+29 02368000 CDXLE EQU CDATTR2 02369000 RTCT EQU 0 02370000 RTCTPLIB EQU RTCT+4 02371000 RTCTSAP EQU RTCTPLIB 02372000 RTCTSAP1 EQU RTCTSAP 02373000 RTCTSAP2 EQU RTCTSAP+1 02374000 RTCTSAP3 EQU RTCTSAP+2 02375000 RTCTSUP EQU RTCTPLIB+4 02376000 RTCTSUP1 EQU RTCTSUP 02377000 RTCTSUP2 EQU RTCTSUP+1 02378000 RTCTSUP3 EQU RTCTSUP+2 02379000 RTCTSYD EQU RTCTPLIB+8 02380000 RTCTSY01 EQU RTCTSYD 02381000 RTCTSDDS EQU RTCT+36 02382000 RTCTFLG EQU RTCTSDDS+3 02383000 RTCTSDPL EQU RTCT+156 02384000 RTCTRFLG EQU RTCT+176 02385000 RTCTERID EQU RTCT+224 02386000 RTCTOPT EQU RTCT+236 02387000 RTCTASO EQU RTCT+252 02388000 RTCTASO1 EQU RTCTASO 02389000 RTCTASO2 EQU RTCTASO+1 02390000 RTCTSDI EQU RTCT+254 02391000 RTCTSDF EQU RTCT+264 02392000 RTCTSDF1 EQU RTCTSDF 02393000 RTCTSDF2 EQU RTCTSDF+1 02394000 RTCTR2D2 EQU RTCTSDF+2 02395000 RTCTC3PO EQU RTCTSDF+3 02396000 RTCTSDF3 EQU RTCT+268 02397000 RTCTSDF4 EQU RTCTSDF3+2 02398000 RTCTMOPT EQU 0 02399000 RTCTMSAO EQU RTCTMOPT 02400000 RTCTSASD EQU RTCTMSAO 02401000 RTCTSAO1 EQU RTCTSASD 02402000 RTCTSAO2 EQU RTCTSASD+1 02403000 RTCTSAPD EQU RTCTMSAO+2 02404000 RTCTSAO3 EQU RTCTSAPD 02405000 RTCTSAO4 EQU RTCTSAPD+1 02406000 RTCTSAMG EQU RTCTSAO4 02407000 RTCTMSUO EQU RTCTMOPT+4 02408000 RTCTSUSD EQU RTCTMSUO 02409000 RTCTSUO1 EQU RTCTSUSD 02410000 RTCTSUO2 EQU RTCTSUSD+1 02411000 RTCTSUPD EQU RTCTMSUO+2 02412000 RTCTSUO3 EQU RTCTSUPD 02413000 RTCTSUO4 EQU RTCTSUPD+1 02414000 RTCTSUMG EQU RTCTSUO4 02415000 RTCTMSYO EQU RTCTMOPT+8 02416000 RTCTSD01 EQU RTCTMSYO 02417000 RTCTSD04 EQU RTCTMSYO+3 02418000 RTCTSMMG EQU RTCTSD04 02419000 RTCTMSDO EQU RTCTMOPT+12 02420000 RTCTSDOD EQU RTCTMSDO 02421000 RTCTSDO1 EQU RTCTSDOD 02422000 RTCTSDO2 EQU RTCTSDOD+1 02423000 RTCTSDO3 EQU RTCTMSDO+2 02424000 RTCTSDO4 EQU RTCTMSDO+3 02425000 RTCTSDMG EQU RTCTSDO4 02426000 CVTMAP EQU 0 02427000 CVTDAR EQU CVTMAP+72 02428000 CVTFLGS1 EQU CVTDAR 02429000 CVTEXIT EQU CVTMAP+80 02430000 CVTDCB EQU CVTMAP+116 02431000 CVTIOQET EQU CVTMAP+120 02432000 CVTIERLC EQU CVTMAP+144 02433000 CVTHEAD EQU CVTMAP+160 02434000 CVTSV76C EQU CVTHEAD 02435000 CVTOPTA EQU CVTMAP+182 02436000 CVTOPTB EQU CVTMAP+183 02437000 CVTABEND EQU CVTMAP+200 02438000 CVTGTF EQU CVTMAP+236 02439000 CVTGTFST EQU CVTGTF 02440000 CVTGTFS EQU CVTGTFST 02441000 CVTSTATE EQU CVTGTFST 02442000 CVTTMODE EQU CVTGTFST 02443000 CVTFORM EQU CVTGTFST 02444000 CVTAQAVT EQU CVTMAP+240 02445000 CVTTCMFG EQU CVTAQAVT 02446000 CVTVOLM2 EQU CVTMAP+244 02447000 CVTTATA EQU CVTVOLM2 02448000 CVTTSKS EQU CVTTATA 02449000 CVTVOLF2 EQU CVTTSKS 02450000 CVTTAT EQU CVTTATA+1 02451000 CVTATER EQU CVTMAP+248 02452000 CVTEXT1 EQU CVTMAP+252 02453000 CVTPURG EQU CVTMAP+260 02454000 CVTQMSG EQU CVTMAP+268 02455000 CVTDMSR EQU CVTMAP+272 02456000 CVTRSV37 EQU CVTDMSR 02457000 CVTDMSRF EQU CVTRSV37 02458000 CVTERPV EQU CVTMAP+316 02459000 CVTINTLA EQU CVTMAP+320 02460000 CVTAPF EQU CVTMAP+324 02461000 CVTEXT2 EQU CVTMAP+328 02462000 CVTHJES EQU CVTMAP+332 02463000 CVTPGSIA EQU CVTMAP+348 02464000 CVTA1F1 EQU CVTMAP+356 02465000 CVTSYSK EQU CVTMAP+357 02466000 CVTVOLM1 EQU CVTMAP+380 02467000 CVTVOLF1 EQU CVTVOLM1 02468000 CVTXTNT1 EQU 0 02469000 CVTXTNT2 EQU 0 02470000 CVTDSSV EQU CVTXTNT2 02471000 CVTFLGBT EQU CVTXTNT2+5 02472000 CVTQID EQU CVTXTNT2+24 02473000 CVTRV400 EQU CVTXTNT2+52 02474000 CVTRV409 EQU CVTXTNT2+53 02475000 CVTATCVT EQU CVTXTNT2+64 02476000 CVTRV429 EQU CVTXTNT2+84 02477000 CVTRV438 EQU CVTXTNT2+85 02478000 CVTRV457 EQU CVTXTNT2+112 02479000 CVTRV466 EQU CVTXTNT2+113 02480000 CVTFIX EQU 0 02481000 CVTRELNO EQU CVTFIX+252 02482000 DEBDAPTR EQU 0 02483000 DEBEXPTR EQU 0 02484000 DEBSBPTR EQU 0 02485000 DEBBASIC EQU 0 02486000 DEBTCBAD EQU DEBBASIC 02487000 DEBDEBAD EQU DEBBASIC+4 02488000 DEBDEBB EQU DEBDEBAD+1 02489000 DEBIRBAD EQU DEBBASIC+8 02490000 DEBOFLGS EQU DEBIRBAD 02491000 DEBOPATB EQU DEBBASIC+12 02492000 DEBFLGS1 EQU DEBBASIC+14 02493000 DEBUSRPG EQU DEBBASIC+16 02494000 DEBRRQ EQU DEBBASIC+20 02495000 DEBECBAD EQU DEBRRQ 02496000 DEBDCBAD EQU DEBBASIC+24 02497000 DEBPROTG EQU DEBDCBAD 02498000 DEBDCBB EQU DEBDCBAD+1 02499000 DEBAPPAD EQU DEBBASIC+28 02500000 DEBBASND EQU DEBBASIC+32 02501000 DEBDASD EQU 0 02502000 DEBUCBAD EQU DEBDASD 02503000 DEBACSMD EQU 0 02504000 DEBVOLSQ EQU DEBACSMD 02505000 DEBVOLBT EQU DEBVOLSQ 02506000 DEBDSNM EQU DEBACSMD+4 02507000 DEBUTSAA EQU DEBDSNM 02508000 DEBACS01 EQU 0 02509000 DEBDSNAM EQU DEBACS01 02510000 DEBACS02 EQU 0 02511000 DEBDBLK EQU DEBACS02 02512000 DEBACS03 EQU 0 02513000 DEBACS04 EQU 0 02514000 DEBTBFRA EQU DEBACS04 02515000 DEBTCCWA EQU DEBACS04+4 02516000 DEBACS05 EQU 0 02517000 DEBFUCBA EQU DEBACS05 02518000 DEBLUCBA EQU DEBACS05+4 02519000 DEBACS06 EQU 0 02520000 DEBACS07 EQU 0 02521000 DEBACS08 EQU 0 02522000 DEBSUBNM EQU 0 02523000 DEB EQU 0 02524000 DEBAVT EQU DEB 02525000 DEBEOEA EQU DEBAVT 02526000 DEBEOEAB EQU DEBEOEA 02527000 DEBSIOA EQU DEBAVT+4 02528000 DEBSIOAB EQU DEBSIOA 02529000 DEBPCIA EQU DEBAVT+8 02530000 DEBPCIAB EQU DEBPCIA 02531000 DEBCEA EQU DEBAVT+12 02532000 DEBCEAB EQU DEBCEA 02533000 DEBXCEA EQU DEBAVT+16 02534000 DEBXCEAB EQU DEBXCEA 02535000 DEBPREFX EQU DEB+20 02536000 DEBXTNP EQU DEBPREFX+8 02537000 DEBXTN EQU 0 02538000 DEBXFLG1 EQU DEBXTN+2 02539000 IOBPRPTR EQU 0 02540000 IOBPREFX EQU 0 02541000 IOBCFLG1 EQU IOBPREFX 02542000 IOBSTDRD EQU 0 02543000 IOBFLAG1 EQU IOBSTDRD 02544000 IOBCYCCK EQU IOBFLAG1 02545000 IOBRSTRT EQU IOBFLAG1 02546000 IOBFLAG2 EQU IOBSTDRD+1 02547000 IOBPURGE EQU IOBFLAG2 02548000 IOBRDHA0 EQU IOBFLAG2 02549000 IOBSENS0 EQU IOBSTDRD+2 02550000 IOBS0B7 EQU IOBSENS0 02551000 IOBSENS1 EQU IOBSTDRD+3 02552000 IOBECBPT EQU IOBSTDRD+4 02553000 IOBFLAG3 EQU IOBSTDRD+8 02554000 IOBFL3 EQU IOBFLAG3 02555000 IOBCNC EQU IOBFL3 02556000 IOBICL EQU IOBFL3 02557000 IOBCSW EQU IOBSTDRD+9 02558000 IOBIOCSW EQU IOBCSW 02559000 IOBSTBYT EQU IOBIOCSW+3 02560000 IOBUSTAT EQU IOBSTBYT 02561000 IOBCSTAT EQU IOBSTBYT+1 02562000 IOBSTART EQU IOBSTDRD+16 02563000 IOBDCBPT EQU IOBSTDRD+20 02564000 IOBFLAG4 EQU IOBDCBPT 02565000 IOBDCBPB EQU IOBDCBPT+1 02566000 IOBRESTR EQU IOBSTDRD+24 02567000 IOBRSTRB EQU IOBRESTR+1 02568000 IOBINCAM EQU IOBSTDRD+28 02569000 IOBBTAMF EQU IOBINCAM 02570000 RBPRFX EQU 0 02571000 RBBASIC EQU 0 02572000 RBEXRTNM EQU RBBASIC 02573000 RBTMFLD EQU RBEXRTNM 02574000 RBSTAB EQU RBBASIC+10 02575000 XSTAB EQU RBSTAB 02576000 RBSTAB1 EQU XSTAB 02577000 XSTAB1 EQU RBSTAB1 02578000 RBFTCKPT EQU XSTAB1 02579000 RBSTAB2 EQU XSTAB+1 02580000 XSTAB2 EQU RBSTAB2 02581000 RBTCBNXT EQU XSTAB2 02582000 RBFACTV EQU XSTAB2 02583000 RBFDYN EQU XSTAB2 02584000 RBECBWT EQU XSTAB2 02585000 RBOPSW EQU RBBASIC+16 02586000 XRBPSW EQU RBOPSW 02587000 RBOPSWB2 EQU XRBPSW+1 02588000 RBLINK EQU RBBASIC+28 02589000 XRBLNK EQU RBLINK 02590000 RBWCF EQU XRBLNK 02591000 RBLINKB EQU XRBLNK+1 02592000 RBGRSAVE EQU RBBASIC+32 02593000 XRBREG EQU RBGRSAVE 02594000 RBGRS0 EQU XRBREG 02595000 RBGRS1 EQU XRBREG+4 02596000 RBGRS2 EQU XRBREG+8 02597000 RBGRS3 EQU XRBREG+12 02598000 RBGRS4 EQU XRBREG+16 02599000 RBGRS5 EQU XRBREG+20 02600000 RBGRS6 EQU XRBREG+24 02601000 RBGRS7 EQU XRBREG+28 02602000 RBGRS8 EQU XRBREG+32 02603000 RBGRS9 EQU XRBREG+36 02604000 RBGRS10 EQU XRBREG+40 02605000 RBGRS11 EQU XRBREG+44 02606000 RBGRS12 EQU XRBREG+48 02607000 RBGRS13 EQU XRBREG+52 02608000 RBGRS14 EQU XRBREG+56 02609000 RBGRS15 EQU XRBREG+60 02610000 XRBESA EQU RBBASIC+96 02611000 RBEXSAVE EQU XRBESA 02612000 RBPREFIX EQU 0 02613000 RBRSV019 EQU RBPREFIX+14 02614000 RBRSV028 EQU RBPREFIX+15 02615000 RBRSV041 EQU RBPREFIX+27 02616000 RBRSV054 EQU RBPREFIX+39 02617000 RBRTOPSW EQU RBPREFIX+40 02618000 RBRTPSW2 EQU RBRTOPSW+8 02619000 RBRTICIL EQU RBRTPSW2 02620000 RBFLAGS1 EQU RBPREFIX+56 02621000 RBXWAIT EQU RBFLAGS1 02622000 RBABEND EQU RBFLAGS1 02623000 RBINTCDA EQU RBPREFIX+61 02624000 RBSECT EQU 0 02625000 RBPPSAV EQU RBSECT 02626000 @NM00124 EQU RBSECT+10 02627000 @NM00125 EQU @NM00124 02628000 RBFTP EQU @NM00125 02629000 RBTRSVRB EQU @NM00125 02630000 RBPMSVRB EQU @NM00125 02631000 @NM00127 EQU @NM00124+1 02632000 RBETXR EQU @NM00127 02633000 RBEP EQU RBSECT+12 02634000 RBPGMQ EQU RBSECT+24 02635000 @NM00134 EQU RBSECT+28 02636000 @NM00135 EQU @NM00134 02637000 IRBEND EQU RBSECT+96 02638000 @NM00138 EQU RBSECT+96 02639000 RBRSV138 EQU @NM00138+7 02640000 RBSCBB EQU RBSECT+144 02641000 RBSPARM EQU RBSCBB+8 02642000 RBSFLGS1 EQU RBSPARM 02643000 RBSIOPRC EQU RBSFLGS1 02644000 RBSOWNR EQU RBSCBB+12 02645000 RBSFLGS2 EQU RBSOWNR 02646000 RBSDATA EQU RBSCBB+16 02647000 RBSFLG3 EQU RBSDATA 02648000 RBRSV150 EQU RBSECT+167 02649000 SCVTSECT EQU 0 02650000 SCVTPGTM EQU SCVTSECT 02651000 SCVTPGWR EQU SCVTSECT+4 02652000 SCVTPTRM EQU SCVTSECT+164 02653000 TCBFIX EQU 0 02654000 TCBFRS EQU TCBFIX 02655000 TCB EQU 0 02656000 TCBPIE EQU TCB+4 02657000 TCBPMASK EQU TCBPIE 02658000 TCBDEB EQU TCB+8 02659000 TCBCMP EQU TCB+16 02660000 TCBCMPF EQU TCBCMP 02661000 TCBCPP EQU TCBCMPF 02662000 TCBSTCC EQU TCBCMPF 02663000 TCBCDBL EQU TCBCMPF 02664000 TCBCWTO EQU TCBCMPF 02665000 TCBCIND EQU TCBCMPF 02666000 TCBCMSG EQU TCBCMPF 02667000 TCBTRN EQU TCB+20 02668000 TCBABF EQU TCBTRN 02669000 TCBMSS EQU TCB+24 02670000 TCBPKF EQU TCB+28 02671000 TCBFLGS EQU TCB+29 02672000 TCBFLGS1 EQU TCBFLGS 02673000 TCBFLGS2 EQU TCBFLGS+1 02674000 TCBFLGS3 EQU TCBFLGS+2 02675000 TCBFLGS4 EQU TCBFLGS+3 02676000 TCBFLGS5 EQU TCBFLGS+4 02677000 TCBABWF EQU TCBFLGS5 02678000 TCBJPQ EQU TCB+44 02679000 TCBPURGE EQU TCBJPQ 02680000 TCBGRS EQU TCB+48 02681000 TCBFSA EQU TCB+112 02682000 TCBTME EQU TCB+120 02683000 TCBJSTCB EQU TCB+124 02684000 TCBJSTCA EQU TCBJSTCB+1 02685000 TCBTSFLG EQU TCB+148 02686000 TCBTSTSK EQU TCBTSFLG 02687000 TCBSTAB EQU TCB+160 02688000 TCBNSTAE EQU TCBSTAB 02689000 TCBTCT EQU TCB+164 02690000 TCBTCTGF EQU TCBTCT 02691000 TCBSCNDY EQU TCB+172 02692000 TCBNDSP EQU TCBSCNDY 02693000 TCBNDSP1 EQU TCBNDSP+1 02694000 TCBNDSP2 EQU TCBNDSP+2 02695000 TCBNDSP3 EQU TCBNDSP+3 02696000 TCBJSCB EQU TCB+180 02697000 TCBRECDE EQU TCBJSCB 02698000 TCBEXT1 EQU TCB+196 02699000 TCBBITS EQU TCB+200 02700000 TCBNDSP4 EQU TCBBITS 02701000 TCBNDSP5 EQU TCBBITS+1 02702000 TCBFLGS6 EQU TCBBITS+2 02703000 TCBFLGS7 EQU TCBBITS+3 02704000 TCBDAR EQU TCB+204 02705000 TCBDARC EQU TCBDAR 02706000 TCBEXT2 EQU TCB+208 02707000 TCBXSCT EQU TCB+240 02708000 TCBXSCT1 EQU TCBXSCT 02709000 TCBFOE EQU TCB+244 02710000 TCBESTAE EQU TCB+264 02711000 TCBESTRM EQU TCBESTAE+1 02712000 TCBFBYT1 EQU TCB+276 02713000 TCBFBYT2 EQU TCB+277 02714000 TCBRV124 EQU TCB+278 02715000 TCBRV133 EQU TCB+279 02716000 TCBXTNT2 EQU 0 02717000 TCBGTF EQU TCBXTNT2 02718000 TCBTFLG EQU TCBGTF 02719000 TCBRV146 EQU TCBXTNT2+28 02720000 TCBRV155 EQU TCBXTNT2+29 02721000 TCBRV164 EQU TCBXTNT2+30 02722000 TCBRV173 EQU TCBXTNT2+31 02723000 PIRL EQU 0 02724000 PIRRSTR EQU PIRL+4 02725000 PIRDVRU EQU PIRL+8 02726000 RTM2ESA EQU 0 02727000 ESAREGS EQU RTM2ESA 02728000 ESAR1 EQU ESAREGS+4 02729000 ESACCF1 EQU ESAR1 02730000 ESART2D EQU RTM2ESA+36 02731000 ESAFLAGS EQU RTM2ESA+40 02732000 ESARFLAG EQU RTM2ESA+41 02733000 ESAGLREC EQU ESARFLAG 02734000 ESACMP EQU RTM2ESA+44 02735000 ESACCF EQU ESACMP 02736000 XTLST EQU 0 02737000 XTLNRFAC EQU XTLST+4 02738000 XTLMSBLA EQU XTLST+8 02739000 XTLMSBLN EQU XTLMSBLA+1 02740000 XTLMSBAA EQU 0 02741000 I001C EQU 0 02742000 I008P EQU 0 02743000 I015F EQU 0 02744000 I015P EQU 0 02745000 I031F EQU 0 02746000 I031P EQU 0 02747000 I256C EQU 0 02748000 CVTPTR EQU RTM2CVT 02749000 CVTS01 EQU CVTPGSIA 02750000 CVTLPDIA EQU CVTS01+12 02751000 CVTDIRST EQU CVTLPDIA 02752000 CVTSLIDA EQU CVTS01+24 02753000 CVTCTLFG EQU CVTS01+50 02754000 CVTRTMCT EQU CVTS01+224 02755000 CVTEXPRO EQU CVTS01+260 02756000 CVTPARRL EQU CVTS01+280 02757000 CVTRENQ EQU CVTS01+300 02758000 CVTRSPIE EQU CVTS01+304 02759000 CVTDQIQE EQU CVTS01+316 02760000 CVTRV210 EQU CVTS01+424 02761000 CVTRV219 EQU CVTS01+425 02762000 CVTRV228 EQU CVTS01+426 02763000 CVTRV237 EQU CVTS01+427 02764000 CVTMFRTR EQU CVTS01+452 02765000 CVTRV262 EQU CVTS01+468 02766000 CVTRV271 EQU CVTS01+469 02767000 CVTRV280 EQU CVTS01+470 02768000 CVTRV289 EQU CVTS01+471 02769000 CVT0TC0A EQU CVTS01+504 02770000 CVTGSDA EQU CVTS01+600 02771000 DEBBAS02 EQU DEBBASND 02772000 DEBDDS1 EQU DEBBAS02 02773000 DEBSUCBA EQU DEBDDS1 02774000 DEBDEVED EQU DEBDDS1+4 02775000 DEBRDCB EQU DEBDDS1+4 02776000 DEBPDCB EQU DEBDDS1+8 02777000 DEBWDCB EQU DEBDDS1+12 02778000 DEBACS09 EQU DEBDEVED 02779000 DEBASC09 EQU DEBACS09 02780000 DEBEAMFG EQU DEBASC09+3 02781000 DEBDSID EQU DEBASC09+4 02782000 DEBEOD EQU DEBASC09+12 02783000 DEBBOE EQU DEBEOD 02784000 DEBEODRV EQU DEBBOE 02785000 DEBEODTT EQU DEBBOE+1 02786000 DEBEOD0 EQU DEBBOE+2 02787000 DEBEODSS EQU DEBBOE+3 02788000 DEBBAS01 EQU DEBBASND 02789000 DEBISAM EQU DEBBAS01 02790000 DEBFIEAD EQU DEBISAM 02791000 DEBFPEAD EQU DEBISAM+4 02792000 DEBFOEAD EQU DEBISAM+8 02793000 DEBEXPT EQU DEBISAM+12 02794000 DEBRPSID EQU DEBEXPT 02795000 IOBORG01 EQU IOBPREFX+8 02796000 IOBNIOBA EQU IOBORG01 02797000 IOBNFLG1 EQU IOBNIOBA 02798000 IOBPRTOV EQU IOBNFLG1 02799000 IOBORG02 EQU IOBPREFX+8 02800000 IOBDQADA EQU IOBORG02 02801000 IOBDEQIN EQU IOBDQADA 02802000 IOBORG03 EQU IOBPREFX+12 02803000 IOBORG04 EQU IOBINCAM 02804000 IOBORG12 EQU IOBINCAM 02805000 IOBFL4 EQU IOBORG12 02806000 IOBEXTEN EQU IOBSTDRD+32 02807000 IOBSEEK EQU IOBEXTEN 02808000 IOBBB EQU IOBSEEK+1 02809000 IOBCC EQU IOBSEEK+3 02810000 IOBHH EQU IOBSEEK+5 02811000 IOBORG05 EQU IOBEXTEN 02812000 IOBORG06 EQU IOBEXTEN 02813000 IOBNXTPT EQU IOBORG06+4 02814000 IOBSTATA EQU IOBNXTPT 02815000 IOBORG07 EQU IOBEXTEN+8 02816000 W1IEXTEN EQU IOBORG07 02817000 IOBORG08 EQU IOBEXTEN+8 02818000 IOBINDCT EQU IOBORG08+4 02819000 IOBUNSQR EQU IOBORG08+5 02820000 IOBFCHAD EQU IOBORG08+8 02821000 IOBORG09 EQU IOBEXTEN+8 02822000 IOBDPLAD EQU IOBORG09+4 02823000 IOBDTYPE EQU IOBORG09+8 02824000 IOBDTYP2 EQU IOBORG09+9 02825000 IOBDSTAT EQU IOBORG09+10 02826000 IOBSTAT1 EQU IOBDSTAT 02827000 IOBORG10 EQU IOBEXTEN+8 02828000 IOBSEEK2 EQU IOBORG10 02829000 IOBORG11 EQU IOBEXTEN 02830000 IOBERCT EQU IOBORG11 02831000 IOBUCBXV EQU IOBERCT 02832000 IOBNAME EQU IOBORG11+4 02833000 IOBORG13 EQU IOBEXTEN 02834000 IOBSKADR EQU IOBORG13 02835000 RBSECS03 EQU RBEP 02836000 RBCDE EQU RBSECS03 02837000 RBCDFLGS EQU RBCDE 02838000 RBCDE1 EQU RBCDE+1 02839000 RBSECS05 EQU RBPGMQ 02840000 RBSQE EQU RBSECS05 02841000 RBSECS06 EQU RBPGMQ 02842000 RBIQE EQU RBSECS06 02843000 RBSECS07 EQU RBPGMQ 02844000 RBIQE2 EQU RBSECS07 02845000 RBSECS08 EQU IRBEND 02846000 RBSECS09 EQU IRBEND 02847000 SCVTSPTR EQU CVTABEND 02848000 PSARSVTE EQU PSARSVT 02849000 TCBPTR EQU RTM2TCBC 02850000 PIRRSTRA EQU PIRRSTR+1 02851000 FLC EQU PSA 02852000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02853000 PSARSAV EQU PSARSVTE+60 02854000 PSARSTK EQU PSARSVTE+56 02855000 PSAESAV3 EQU PSARSVTE+52 02856000 PSAESTK3 EQU PSARSVTE+48 02857000 PSAESAV2 EQU PSARSVTE+44 02858000 PSAESTK2 EQU PSARSVTE+40 02859000 PSAESAV1 EQU PSARSVTE+36 02860000 PSAESTK1 EQU PSARSVTE+32 02861000 PSAPSAV EQU PSARSVTE+28 02862000 PSAPSTK EQU PSARSVTE+24 02863000 PSAMSAV EQU PSARSVTE+20 02864000 PSAMSTK EQU PSARSVTE+16 02865000 PSASSAV EQU PSARSVTE+12 02866000 PSASSTK EQU PSARSVTE+8 02867000 PSANSTK EQU PSARSVTE+4 02868000 PSACSTK EQU PSARSVTE 02869000 RBRSV161 EQU RBSECS09+64 02870000 RBSIRBWA EQU RBSECS09 02871000 RBIQEWRK EQU RBSECS08+4 02872000 RBNEXAV EQU RBSECS08 02873000 RBIQEA EQU RBIQE2 02874000 RBIQE1 EQU RBIQE+1 02875000 RBUSE EQU RBIQE 02876000 RBSQEA EQU RBSQE+1 02877000 @NM00139 EQU RBSQE 02878000 RBCDLOAD EQU RBCDFLGS 02879000 RBCDXCTL EQU RBCDFLGS 02880000 RBCDSYNC EQU RBCDFLGS 02881000 RBCDNODE EQU RBCDFLGS 02882000 RBRSV010 EQU RBCDFLGS 02883000 RBCDATCH EQU RBCDFLGS 02884000 RBRSV009 EQU RBCDFLGS 02885000 RBNOCELL EQU RBCDFLGS 02886000 IOBSKSS EQU IOBSKADR+3 02887000 IOBSK0 EQU IOBSKADR+2 02888000 IOBSKTT EQU IOBSKADR+1 02889000 IOBSKRV EQU IOBSKADR 02890000 IOBCSWSV EQU IOBORG11+17 02891000 IOBSENSV EQU IOBORG11+16 02892000 IOBRCD EQU IOBORG11+12 02893000 IOBMDREC EQU IOBORG11+8 02894000 IOBNAMEA EQU IOBNAME+1 02895000 IOBNAMSZ EQU IOBNAME 02896000 IOBERCTA EQU IOBERCT+1 02897000 IOBRTYPE EQU IOBUCBXV 02898000 IOBRDCHP EQU IOBORG10+20 02899000 IOBNEXTA EQU IOBORG10+16 02900000 IOBREADA EQU IOBORG10+12 02901000 IOBBUFC EQU IOBORG10+8 02902000 IOBSK2R EQU IOBSEEK2+7 02903000 IOBSK2HH EQU IOBSEEK2+5 02904000 IOBSK2CC EQU IOBSEEK2+3 02905000 IOBSK2BB EQU IOBSEEK2+1 02906000 IOBSK2M EQU IOBSEEK2 02907000 IOBCHNPR EQU IOBORG09+40 02908000 IOBDNCRF EQU IOBORG09+32 02909000 IOBRSV35 EQU IOBORG09+24 02910000 IOBDQPTR EQU IOBORG09+20 02911000 IOBRSV34 EQU IOBORG09+18 02912000 IOBDBYTN EQU IOBORG09+16 02913000 IOBDCPND EQU IOBORG09+12 02914000 IOBSTAT2 EQU IOBDSTAT+1 02915000 IOBSIORT EQU IOBSTAT1 02916000 IOBADDVU EQU IOBSTAT1 02917000 IOBBUFF EQU IOBSTAT1 02918000 IOBENQUE EQU IOBSTAT1 02919000 IOBPASS2 EQU IOBSTAT1 02920000 IOBSYNCH EQU IOBSTAT1 02921000 IOBNEWVL EQU IOBSTAT1 02922000 IOBABNRM EQU IOBSTAT1 02923000 IOBRELEX EQU IOBDTYP2 02924000 IOBADDTY EQU IOBDTYP2 02925000 IOBTYPE EQU IOBDTYP2 02926000 IOBRQUST EQU IOBDTYP2 02927000 IOBSUFFX EQU IOBDTYP2 02928000 IOBSBLKL EQU IOBDTYP2 02929000 IOBSKEY EQU IOBDTYP2 02930000 IOBRELBL EQU IOBDTYPE 02931000 IOBRDEXC EQU IOBDTYPE 02932000 IOBDYNBF EQU IOBDTYPE 02933000 IOBACTAD EQU IOBDTYPE 02934000 IOBFDBCK EQU IOBDTYPE 02935000 IOBEXTSC EQU IOBDTYPE 02936000 IOBOVFLO EQU IOBDTYPE 02937000 IOBVERFY EQU IOBDTYPE 02938000 IOBDPLB EQU IOBDPLAD+1 02939000 IOBDAYLI EQU IOBDPLAD 02940000 IOBDIOBS EQU IOBORG09+2 02941000 IOBDBYTR EQU IOBORG09 02942000 IOBBCHAD EQU IOBORG08+12 02943000 IOBFCHNB EQU IOBFCHAD+1 02944000 IOBCOUNT EQU IOBFCHAD 02945000 IOBASYN EQU IOBORG08+7 02946000 IOBAPP EQU IOBORG08+6 02947000 IOBRSV32 EQU IOBUNSQR 02948000 IOBRSV31 EQU IOBUNSQR 02949000 IOBRSV30 EQU IOBUNSQR 02950000 IOBKNRWR EQU IOBUNSQR 02951000 IOBKNWR EQU IOBUNSQR 02952000 IOBNTAV2 EQU IOBUNSQR 02953000 IOBNTAV1 EQU IOBUNSQR 02954000 IOBCPBSY EQU IOBUNSQR 02955000 IOBCHNNL EQU IOBINDCT 02956000 IOBRSV29 EQU IOBINDCT 02957000 IOBRSV28 EQU IOBINDCT 02958000 IOBRSV27 EQU IOBINDCT 02959000 IOBKEYAD EQU IOBINDCT 02960000 IOBOVPTR EQU IOBINDCT 02961000 IOBUNSCH EQU IOBINDCT 02962000 IOBDEQCP EQU IOBINDCT 02963000 IOBCCWAD EQU IOBORG08 02964000 W1OEXTEN EQU W1IEXTEN 02965000 IOBCCW EQU IOBORG06+8 02966000 IOBNXTPB EQU IOBNXTPT+1 02967000 IOBRSV26 EQU IOBSTATA 02968000 IOBRSV25 EQU IOBSTATA 02969000 IOBRSV24 EQU IOBSTATA 02970000 IOBRSV23 EQU IOBSTATA 02971000 IOBRSV22 EQU IOBSTATA 02972000 IOBRSV21 EQU IOBSTATA 02973000 IOBRSV20 EQU IOBSTATA 02974000 IOBAVLFL EQU IOBSTATA 02975000 IOBRSV37 EQU IOBORG06+1 02976000 IOBUCBXG EQU IOBORG06 02977000 IOBCPA EQU IOBORG05+32 02978000 IOBERINF EQU IOBORG05+16 02979000 IOBERCCW EQU IOBORG05+8 02980000 IOBSNDPT EQU IOBORG05+7 02981000 IOBRCVPT EQU IOBORG05+6 02982000 IOBWORK EQU IOBORG05+1 02983000 IOBUCBX EQU IOBORG05 02984000 IOBR EQU IOBSEEK+7 02985000 IOBHH2 EQU IOBHH+1 02986000 IOBHH1 EQU IOBHH 02987000 IOBCC2 EQU IOBCC+1 02988000 IOBCC1 EQU IOBCC 02989000 IOBBB2 EQU IOBBB+1 02990000 IOBBB1 EQU IOBBB 02991000 IOBM EQU IOBSEEK 02992000 IOBRSV46 EQU IOBFL4 02993000 IOBRSV47 EQU IOBFL4 02994000 IOBENT EQU IOBFL4 02995000 IOBEQP EQU IOBFL4 02996000 IOBBUS EQU IOBFL4 02997000 IOBDCK EQU IOBFL4 02998000 IOBREJ EQU IOBFL4 02999000 IOBOVR EQU IOBFL4 03000000 IOBCRILC EQU IOBORG04+1 03001000 IOBCRDCC EQU IOBORG04 03002000 IOBGQECB EQU IOBORG03 03003000 IOBSWAP EQU IOBORG02+4 03004000 IOBDQADB EQU IOBDQADA+1 03005000 IOBRSV13 EQU IOBDEQIN 03006000 IOBRSV12 EQU IOBDEQIN 03007000 IOBRSV11 EQU IOBDEQIN 03008000 IOBRSV10 EQU IOBDEQIN 03009000 IOBRSV09 EQU IOBDEQIN 03010000 IOBRSV08 EQU IOBDEQIN 03011000 IOBRSV07 EQU IOBDEQIN 03012000 IOBDEQ EQU IOBDEQIN 03013000 IOBNECB EQU IOBORG01+4 03014000 IOBNIOBB EQU IOBNIOBA+1 03015000 IOBFIRST EQU IOBNFLG1 03016000 IOBUPERR EQU IOBNFLG1 03017000 IOBSPAN EQU IOBNFLG1 03018000 IOBBKSPC EQU IOBNFLG1 03019000 IOBUPDAT EQU IOBNFLG1 03020000 IOBREAD EQU IOBNFLG1 03021000 IOBWRITE EQU IOBNFLG1 03022000 IOBSEGMT EQU IOBPRTOV 03023000 DEBEXPTA EQU DEBEXPT+1 03024000 DEBRSV12 EQU DEBRPSID 03025000 DEBRSV11 EQU DEBRPSID 03026000 DEBRSV10 EQU DEBRPSID 03027000 DEBRSV09 EQU DEBRPSID 03028000 DEBRPSAP EQU DEBRPSID 03029000 DEBRPSO EQU DEBRPSID 03030000 DEBRPSI EQU DEBRPSID 03031000 DEBRPSP EQU DEBRPSID 03032000 DEBFOEB EQU DEBFOEAD+1 03033000 DEBNOEE EQU DEBFOEAD 03034000 DEBFPEB EQU DEBFPEAD+1 03035000 DEBNPEE EQU DEBFPEAD 03036000 DEBFIEB EQU DEBFIEAD+1 03037000 DEBNIEE EQU DEBFIEAD 03038000 DEBBOESS EQU DEBEODSS 03039000 DEBBOE0 EQU DEBEOD0 03040000 DEBBOETT EQU DEBEODTT 03041000 DEBBOERV EQU DEBEODRV 03042000 DEBRV008 EQU DEBDSID+7 03043000 DEBWTPTI EQU DEBDSID+6 03044000 DEBEXDTE EQU DEBDSID 03045000 DEBRV007 EQU DEBEAMFG 03046000 DEBRV006 EQU DEBEAMFG 03047000 DEBRV005 EQU DEBEAMFG 03048000 DEBRV004 EQU DEBEAMFG 03049000 DEBSECVL EQU DEBEAMFG 03050000 DEBVAMSG EQU DEBEAMFG 03051000 DEBDSOPN EQU DEBEAMFG 03052000 DEBMULTI EQU DEBEAMFG 03053000 DEBVSEQU EQU DEBASC09+2 03054000 DEBDSSQL EQU DEBASC09+1 03055000 DEBVOLAC EQU DEBASC09 03056000 DEBWDCBA EQU DEBWDCB+1 03057000 DEBRSV08 EQU DEBWDCB 03058000 DEBPDCBA EQU DEBPDCB+1 03059000 DEBRSV07 EQU DEBPDCB 03060000 DEBRDCBA EQU DEBRDCB+1 03061000 DEBRSV06 EQU DEBRDCB 03062000 DEBSUCBB EQU DEBSUCBA+1 03063000 DEBSDVM EQU DEBSUCBA 03064000 CVTRV628 EQU CVTS01+728 03065000 CVTRV627 EQU CVTS01+724 03066000 CVTRV626 EQU CVTS01+720 03067000 CVTRV625 EQU CVTS01+716 03068000 CVTRV624 EQU CVTS01+712 03069000 CVTRV623 EQU CVTS01+708 03070000 CVTRV622 EQU CVTS01+704 03071000 CVTRV621 EQU CVTS01+700 03072000 CVTIHASU EQU CVTS01+696 03073000 CVTSUSP EQU CVTS01+692 03074000 CVTT6SVC EQU CVTS01+688 03075000 CVTCDAL EQU CVTS01+684 03076000 CVTTCTL EQU CVTS01+680 03077000 CVTRSUME EQU CVTS01+676 03078000 CVTJTERM EQU CVTS01+672 03079000 CVTASMRM EQU CVTS01+668 03080000 CVTTCASP EQU CVTS01+664 03081000 CVT0PT03 EQU CVTS01+660 03082000 CVT0PT0E EQU CVTS01+656 03083000 CVTRV609 EQU CVTS01+652 03084000 CVTCGK EQU CVTS01+648 03085000 CVTRAC EQU CVTS01+644 03086000 CVTHSM EQU CVTS01+640 03087000 CVTRV605 EQU CVTS01+636 03088000 CVTRV604 EQU CVTS01+632 03089000 CVTEFF02 EQU CVTS01+628 03090000 CVTCBBR EQU CVTS01+624 03091000 CVTSSCR EQU CVTS01+620 03092000 CVTEVENT EQU CVTS01+616 03093000 CVTCRCA EQU CVTS01+612 03094000 CVTTPIO EQU CVTS01+608 03095000 CVTADV EQU CVTS01+604 03096000 CVTGSDAB EQU CVTGSDA 03097000 CVTQV3 EQU CVTS01+596 03098000 CVTQV2 EQU CVTS01+592 03099000 CVTQV1 EQU CVTS01+588 03100000 CVTRPT EQU CVTS01+584 03101000 CVTSSRB EQU CVTS01+580 03102000 CVTCSDRL EQU CVTS01+576 03103000 CVTEXP1 EQU CVTS01+572 03104000 CVTRMPMT EQU CVTS01+568 03105000 CVTRMPTT EQU CVTS01+564 03106000 CVTVPSA EQU CVTS01+560 03107000 CVTVSTOP EQU CVTS01+556 03108000 CVTGTFR8 EQU CVTS01+552 03109000 CVTQUIT EQU CVTS01+548 03110000 CVTVACR EQU CVTS01+544 03111000 CVTWTCB EQU CVTS01+540 03112000 CVTSTPRS EQU CVTS01+536 03113000 CVT0PT02 EQU CVTS01+532 03114000 CVTDARCM EQU CVTS01+528 03115000 CVTIRECM EQU CVTS01+524 03116000 CVTJRECM EQU CVTS01+520 03117000 CVTVEMS0 EQU CVTS01+516 03118000 CVTSPFRR EQU CVTS01+512 03119000 CVTRLSTG EQU CVTS01+508 03120000 CVTGMBR EQU CVTS01+500 03121000 CVTLFRM EQU CVTS01+496 03122000 CVTRMBR EQU CVTS01+492 03123000 CVTVIOP EQU CVTS01+488 03124000 CVTRV307 EQU CVTS01+486 03125000 CVTRV306 EQU CVTS01+484 03126000 CVTRV305 EQU CVTS01+482 03127000 CVTRV304 EQU CVTS01+480 03128000 CVTRV303 EQU CVTS01+478 03129000 CVTRV302 EQU CVTS01+476 03130000 CVTTRCA EQU CVTS01+472 03131000 CVTRV297 EQU CVTRV289 03132000 CVTRV296 EQU CVTRV289 03133000 CVTRV295 EQU CVTRV289 03134000 CVTRV294 EQU CVTRV289 03135000 CVTRV293 EQU CVTRV289 03136000 CVTRV292 EQU CVTRV289 03137000 CVTRV291 EQU CVTRV289 03138000 CVTRV290 EQU CVTRV289 03139000 CVTRV288 EQU CVTRV280 03140000 CVTRV287 EQU CVTRV280 03141000 CVTRV286 EQU CVTRV280 03142000 CVTRV285 EQU CVTRV280 03143000 CVTRV284 EQU CVTRV280 03144000 CVTRV283 EQU CVTRV280 03145000 CVTRV282 EQU CVTRV280 03146000 CVTRV281 EQU CVTRV280 03147000 CVTRV279 EQU CVTRV271 03148000 CVTRV278 EQU CVTRV271 03149000 CVTRV277 EQU CVTRV271 03150000 CVTRV276 EQU CVTRV271 03151000 CVTRV275 EQU CVTRV271 03152000 CVTRV274 EQU CVTRV271 03153000 CVTRV273 EQU CVTRV271 03154000 CVTRV272 EQU CVTRV271 03155000 CVTRV270 EQU CVTRV262 03156000 CVTRV269 EQU CVTRV262 03157000 CVTRV268 EQU CVTRV262 03158000 CVTRV267 EQU CVTRV262 03159000 CVTRV266 EQU CVTRV262 03160000 CVTRV265 EQU CVTRV262 03161000 CVTRV264 EQU CVTRV262 03162000 CVTRV263 EQU CVTRV262 03163000 CVTVFP EQU CVTS01+464 03164000 CVTVSI EQU CVTS01+460 03165000 CVTVPSIB EQU CVTS01+456 03166000 CVTMFACT EQU CVTMFRTR 03167000 CVTMFCTL EQU CVTS01+448 03168000 CVTPVBP EQU CVTS01+444 03169000 CVTPWI EQU CVTS01+440 03170000 CVTRV254 EQU CVTS01+438 03171000 CVTRV253 EQU CVTS01+436 03172000 CVTRV252 EQU CVTS01+434 03173000 CVTRV251 EQU CVTS01+433 03174000 CVTRV250 EQU CVTS01+432 03175000 CVTRV249 EQU CVTS01+431 03176000 CVTRV248 EQU CVTS01+430 03177000 CVTRV247 EQU CVTS01+429 03178000 CVTRV246 EQU CVTS01+428 03179000 CVTRV245 EQU CVTRV237 03180000 CVTRV244 EQU CVTRV237 03181000 CVTRV243 EQU CVTRV237 03182000 CVTRV242 EQU CVTRV237 03183000 CVTRV241 EQU CVTRV237 03184000 CVTRV240 EQU CVTRV237 03185000 CVTRV239 EQU CVTRV237 03186000 CVTRV238 EQU CVTRV237 03187000 CVTRV236 EQU CVTRV228 03188000 CVTRV235 EQU CVTRV228 03189000 CVTRV234 EQU CVTRV228 03190000 CVTRV233 EQU CVTRV228 03191000 CVTRV232 EQU CVTRV228 03192000 CVTRV231 EQU CVTRV228 03193000 CVTRV230 EQU CVTRV228 03194000 CVTRV229 EQU CVTRV228 03195000 CVTRV227 EQU CVTRV219 03196000 CVTRV226 EQU CVTRV219 03197000 CVTRV225 EQU CVTRV219 03198000 CVTRV224 EQU CVTRV219 03199000 CVTRV223 EQU CVTRV219 03200000 CVTRV222 EQU CVTRV219 03201000 CVTRV221 EQU CVTRV219 03202000 CVTRV220 EQU CVTRV219 03203000 CVTRV218 EQU CVTRV210 03204000 CVTRV217 EQU CVTRV210 03205000 CVTRV216 EQU CVTRV210 03206000 CVTRV215 EQU CVTRV210 03207000 CVTRV214 EQU CVTRV210 03208000 CVTRV213 EQU CVTRV210 03209000 CVTRV212 EQU CVTRV210 03210000 CVTRV211 EQU CVTRV210 03211000 CVTLCCAT EQU CVTS01+420 03212000 CVTPCCAT EQU CVTS01+416 03213000 CVTIPCRP EQU CVTS01+412 03214000 CVTIPCRI EQU CVTS01+408 03215000 CVTIPCDS EQU CVTS01+404 03216000 CVTAIDVT EQU CVTS01+400 03217000 CVTSSAP EQU CVTS01+396 03218000 CVTEHCIR EQU CVTS01+392 03219000 CVTEHDEF EQU CVTS01+388 03220000 CVTDAIR EQU CVTS01+384 03221000 CVTPERFM EQU CVTS01+380 03222000 CVT044R2 EQU CVTS01+376 03223000 CVTFETCH EQU CVTS01+372 03224000 CVTRSTWD EQU CVTS01+368 03225000 CVTSPOST EQU CVTS01+364 03226000 CVTIOBP EQU CVTS01+360 03227000 CVTASMVT EQU CVTS01+356 03228000 CVTRECRQ EQU CVTS01+352 03229000 CVTWSAC EQU CVTS01+348 03230000 CVTRV149 EQU CVTS01+344 03231000 CVTWSAL EQU CVTS01+340 03232000 CVTSPSA EQU CVTS01+336 03233000 CVTGLMN EQU CVTS01+332 03234000 CVTVEAC0 EQU CVTS01+328 03235000 CVT062R1 EQU CVTS01+324 03236000 CVTRPOST EQU CVTS01+320 03237000 CVTCSD EQU CVTS01+312 03238000 CVTLKRMA EQU CVTS01+308 03239000 CVTLQCB EQU CVTS01+296 03240000 CVTFQCB EQU CVTS01+292 03241000 CVTQCS01 EQU CVTS01+288 03242000 CVTAPFT EQU CVTS01+284 03243000 CVTVWAIT EQU CVTS01+276 03244000 CVTGSPL EQU CVTS01+272 03245000 CVTLSMQ EQU CVTS01+268 03246000 CVTGSMQ EQU CVTS01+264 03247000 CVTOPCTP EQU CVTS01+256 03248000 CVTSIC EQU CVTS01+252 03249000 CVTTPIOS EQU CVTS01+248 03250000 CVTRTMS EQU CVTS01+244 03251000 CVTSDBF EQU CVTS01+240 03252000 CVTSCBP EQU CVTS01+236 03253000 CVTSDMP EQU CVTS01+232 03254000 CVTSV60 EQU CVTS01+228 03255000 CVTASCBL EQU CVTS01+220 03256000 CVTASCBH EQU CVTS01+216 03257000 CVTGDA EQU CVTS01+212 03258000 CVTASVT EQU CVTS01+208 03259000 CVTVVMDI EQU CVTS01+204 03260000 CVTAQTOP EQU CVTS01+200 03261000 CVTIOSCS EQU CVTS01+196 03262000 CVTSDRM EQU CVTS01+192 03263000 CVTOPTE EQU CVTS01+188 03264000 CVTSTXU EQU CVTS01+184 03265000 CVTQUIS EQU CVTS01+180 03266000 CVTPARS EQU CVTS01+176 03267000 CVTS1EE EQU CVTS01+172 03268000 CVTFRAS EQU CVTS01+168 03269000 CVTQSAS EQU CVTS01+164 03270000 CVTCRAS EQU CVTS01+160 03271000 CVTCRMN EQU CVTS01+156 03272000 CVTDELCP EQU CVTS01+152 03273000 CVTFRECL EQU CVTS01+148 03274000 CVTGETCL EQU CVTS01+144 03275000 CVTBLDCP EQU CVTS01+140 03276000 CVTAUTHL EQU CVTS01+136 03277000 CVTSCAN EQU CVTS01+132 03278000 CVTRV144 EQU CVTS01+130 03279000 CVTMAXMP EQU CVTS01+128 03280000 CVTSTCK EQU CVTS01+124 03281000 CVTRV139 EQU CVTS01+123 03282000 CVTDSSAC EQU CVTS01+122 03283000 CVTRV513 EQU CVTS01+121 03284000 CVTIOSPL EQU CVTS01+120 03285000 CVTPTGT EQU CVTS01+116 03286000 CVTCSPIE EQU CVTS01+112 03287000 CVTSMFEX EQU CVTS01+108 03288000 CVTOLT0A EQU CVTS01+104 03289000 CVTSRBRT EQU CVTS01+100 03290000 CVTPUTL EQU CVTS01+96 03291000 CVTASCRL EQU CVTS01+92 03292000 CVTASCRF EQU CVTS01+88 03293000 CVTRV326 EQU CVTS01+84 03294000 CVTRV325 EQU CVTS01+80 03295000 CVTRV324 EQU CVTS01+76 03296000 CVT0VL01 EQU CVTS01+72 03297000 CVTSHRVM EQU CVTS01+68 03298000 CVTRV332 EQU CVTS01+64 03299000 CVTTAS EQU CVTS01+60 03300000 CVTRSCN EQU CVTS01+56 03301000 CVTTRAC2 EQU CVTS01+54 03302000 CVTTRACE EQU CVTS01+52 03303000 CVTAPG EQU CVTS01+51 03304000 CVTSDTRC EQU CVTCTLFG 03305000 CVTGTRCE EQU CVTCTLFG 03306000 CVTNOMP EQU CVTCTLFG 03307000 CVTRSV79 EQU CVTCTLFG 03308000 CVTDSTAT EQU CVTCTLFG 03309000 CVTRSV78 EQU CVTCTLFG 03310000 CVTRV333 EQU CVTCTLFG 03311000 CVTRV323 EQU CVTCTLFG 03312000 CVTSPVLK EQU CVTS01+49 03313000 CVTRSV77 EQU CVTS01+48 03314000 CVTRV331 EQU CVTS01+44 03315000 CVTRV330 EQU CVTS01+40 03316000 CVTRV329 EQU CVTS01+36 03317000 CVTRV328 EQU CVTS01+32 03318000 CVTRV322 EQU CVTS01+28 03319000 CVTSLID EQU CVTSLIDA+1 03320000 CVTSYLK EQU CVTSLIDA 03321000 CVTRV321 EQU CVTS01+20 03322000 CVTRV320 EQU CVTS01+16 03323000 CVTLPDIR EQU CVTLPDIA+1 03324000 CVTRSV69 EQU CVTDIRST 03325000 CVTRSV68 EQU CVTDIRST 03326000 CVTRSV67 EQU CVTDIRST 03327000 CVTRSV66 EQU CVTDIRST 03328000 CVTRSV65 EQU CVTDIRST 03329000 CVTRSV64 EQU CVTDIRST 03330000 CVTRSV63 EQU CVTDIRST 03331000 CVTDICOM EQU CVTDIRST 03332000 CVTPVTP EQU CVTS01+8 03333000 CVTLPDSR EQU CVTS01+4 03334000 CVTGETL EQU CVTS01 03335000 @NM00200 EQU XTLMSBLA 03336000 XTLLNTH EQU XTLST 03337000 ESACC EQU ESACMP+1 03338000 @NM00199 EQU ESACCF 03339000 ESAASID EQU ESACCF 03340000 ESANOCC EQU ESACCF 03341000 ESAR0DP EQU ESACCF 03342000 ESASTEP EQU ESACCF 03343000 ESADREQ EQU ESACCF 03344000 ESAMODE EQU RTM2ESA+43 03345000 ESAERTYP EQU RTM2ESA+42 03346000 @NM00198 EQU ESARFLAG 03347000 ESASLIPR EQU ESARFLAG 03348000 ESARTCR EQU ESARFLAG 03349000 ESAFERR EQU ESARFLAG 03350000 ESAINREC EQU ESARFLAG 03351000 ESASDREC EQU ESARFLAG 03352000 ESAGMREC EQU ESARFLAG 03353000 @NM00197 EQU ESAFLAGS 03354000 ESAVEOM EQU ESAFLAGS 03355000 ESAEOT EQU ESAFLAGS 03356000 ESANEOT EQU ESAFLAGS 03357000 ESACTS EQU ESAFLAGS 03358000 ESAPGNLY EQU ESAFLAGS 03359000 ESAABTRM EQU ESAFLAGS 03360000 ESARTM2 EQU ESAFLAGS 03361000 ESAWLEN EQU ESART2D+1 03362000 ESAWSPID EQU ESART2D 03363000 ESART2WA EQU RTM2ESA+32 03364000 ESAEEDQ EQU RTM2ESA+28 03365000 ESAR14 EQU ESAREGS+24 03366000 ESAR7 EQU ESAREGS+20 03367000 ESAR5 EQU ESAREGS+16 03368000 ESAR4 EQU ESAREGS+12 03369000 ESAR3 EQU ESAREGS+8 03370000 ESACC1 EQU ESAR1+1 03371000 @NM00196 EQU ESACCF1 03372000 ESAEOT1 EQU ESACCF1 03373000 ESAEOM1 EQU ESACCF1 03374000 ESAR0DP1 EQU ESACCF1 03375000 ESASTEP1 EQU ESACCF1 03376000 ESADREQ1 EQU ESACCF1 03377000 ESAR0 EQU ESAREGS 03378000 PIREND EQU PIRL+12 03379000 @NM00195 EQU PIRL+2 03380000 PIRCNT EQU PIRL+1 03381000 PIROPT EQU PIRL 03382000 @NM00194 EQU TCBXTNT2+32 03383000 TCBRV181 EQU TCBRV173 03384000 TCBRV180 EQU TCBRV173 03385000 TCBRV179 EQU TCBRV173 03386000 TCBRV178 EQU TCBRV173 03387000 TCBRV177 EQU TCBRV173 03388000 TCBRV176 EQU TCBRV173 03389000 TCBRV175 EQU TCBRV173 03390000 TCBRV174 EQU TCBRV173 03391000 TCBRV172 EQU TCBRV164 03392000 TCBRV171 EQU TCBRV164 03393000 TCBRV170 EQU TCBRV164 03394000 TCBRV169 EQU TCBRV164 03395000 TCBRV168 EQU TCBRV164 03396000 TCBRV167 EQU TCBRV164 03397000 TCBRV166 EQU TCBRV164 03398000 TCBRV165 EQU TCBRV164 03399000 TCBRV163 EQU TCBRV155 03400000 TCBRV162 EQU TCBRV155 03401000 TCBRV161 EQU TCBRV155 03402000 TCBRV160 EQU TCBRV155 03403000 TCBRV159 EQU TCBRV155 03404000 TCBRV158 EQU TCBRV155 03405000 TCBRV157 EQU TCBRV155 03406000 TCBRV156 EQU TCBRV155 03407000 TCBRV154 EQU TCBRV146 03408000 TCBRV153 EQU TCBRV146 03409000 TCBRV152 EQU TCBRV146 03410000 TCBRV151 EQU TCBRV146 03411000 TCBRV150 EQU TCBRV146 03412000 TCBRV149 EQU TCBRV146 03413000 TCBRV148 EQU TCBRV146 03414000 TCBRV147 EQU TCBRV146 03415000 TCBRV145 EQU TCBXTNT2+26 03416000 TCBRV144 EQU TCBXTNT2+24 03417000 TCBRV143 EQU TCBXTNT2+20 03418000 TCBRV142 EQU TCBXTNT2+16 03419000 TCBRSV49 EQU TCBXTNT2+12 03420000 TCBEVENT EQU TCBXTNT2+8 03421000 TCBRCMP EQU TCBXTNT2+5 03422000 TCBRSVAB EQU TCBXTNT2+4 03423000 TCBGTFA EQU TCBGTF+1 03424000 TCBRSV47 EQU TCBTFLG 03425000 TCBRSV46 EQU TCBTFLG 03426000 TCBRSV45 EQU TCBTFLG 03427000 TCBRSV44 EQU TCBTFLG 03428000 TCBRSV43 EQU TCBTFLG 03429000 TCBDSPIT EQU TCBTFLG 03430000 TCBERRTN EQU TCBTFLG 03431000 TCBASYNC EQU TCBTFLG 03432000 @NM00193 EQU TCB+296 03433000 TCBSVCA2 EQU TCB+292 03434000 TCBSWASA EQU TCB+288 03435000 TCBDBTB EQU TCB+284 03436000 TCBRPT EQU TCB+280 03437000 TCBRV141 EQU TCBRV133 03438000 TCBRV140 EQU TCBRV133 03439000 TCBRV139 EQU TCBRV133 03440000 TCBRV138 EQU TCBRV133 03441000 TCBRV137 EQU TCBRV133 03442000 TCBRV136 EQU TCBRV133 03443000 TCBRV135 EQU TCBRV133 03444000 TCBRV134 EQU TCBRV133 03445000 TCBRV132 EQU TCBRV124 03446000 TCBRV131 EQU TCBRV124 03447000 TCBRV130 EQU TCBRV124 03448000 TCBRV129 EQU TCBRV124 03449000 TCBRV128 EQU TCBRV124 03450000 TCBRV127 EQU TCBRV124 03451000 TCBRV126 EQU TCBRV124 03452000 TCBRV125 EQU TCBRV124 03453000 TCBRV123 EQU TCBFBYT2 03454000 TCBRV122 EQU TCBFBYT2 03455000 TCBECBNV EQU TCBFBYT2 03456000 TCBSSSYN EQU TCBFBYT2 03457000 TCBFPRAP EQU TCBFBYT2 03458000 TCBFDW EQU TCBFBYT2 03459000 TCBFMW EQU TCBFBYT2 03460000 TCBCNCB EQU TCBFBYT2 03461000 TCBLLH EQU TCBFBYT1 03462000 TCBRV113 EQU TCBFBYT1 03463000 TCBEOT EQU TCBFBYT1 03464000 TCBRTM2 EQU TCBFBYT1 03465000 TCBPGNLY EQU TCBFBYT1 03466000 TCBNDIOS EQU TCBFBYT1 03467000 TCBRV327 EQU TCBFBYT1 03468000 TCBEOTFM EQU TCBFBYT1 03469000 TCBAFFN EQU TCB+274 03470000 TCBRV326 EQU TCB+272 03471000 TCBUKYSP EQU TCB+268 03472000 TCBMODE EQU TCBESTAE+3 03473000 TCBERTYP EQU TCBESTAE+2 03474000 TCBRV314 EQU TCBESTRM 03475000 TCBRV313 EQU TCBESTRM 03476000 TCBRV312 EQU TCBESTRM 03477000 TCBRV311 EQU TCBESTRM 03478000 TCBRV310 EQU TCBESTRM 03479000 TCBRV309 EQU TCBESTRM 03480000 TCBRV308 EQU TCBESTRM 03481000 TCBETERM EQU TCBESTRM 03482000 TCBSCBKY EQU TCBESTAE 03483000 TCBRTM12 EQU TCB+260 03484000 TCBTCBID EQU TCB+256 03485000 TCBSTAWA EQU TCB+252 03486000 TCBSWA EQU TCB+248 03487000 TCBFOEA EQU TCBFOE+1 03488000 TCBRSV42 EQU TCBFOE 03489000 TCBCCPVI EQU TCBXSCT+2 03490000 TCBRV325 EQU TCBXSCT+1 03491000 TCBRV324 EQU TCBXSCT1 03492000 TCBRV323 EQU TCBXSCT1 03493000 TCBRV322 EQU TCBXSCT1 03494000 TCBRV321 EQU TCBXSCT1 03495000 TCBRV320 EQU TCBXSCT1 03496000 TCBRV319 EQU TCBXSCT1 03497000 TCBS3A EQU TCBXSCT1 03498000 TCBACTIV EQU TCBXSCT1 03499000 TCBRSV41 EQU TCB+239 03500000 TCBTID EQU TCB+238 03501000 TCBRSVAA EQU TCB+237 03502000 TCBABCUR EQU TCB+236 03503000 TCBTMSAV EQU TCB+232 03504000 TCBIOTIM EQU TCB+228 03505000 TCBRTWA EQU TCB+224 03506000 TCBBACK EQU TCB+220 03507000 TCBTIRB EQU TCB+216 03508000 TCBAECB EQU TCB+212 03509000 TCBEXT2A EQU TCBEXT2+1 03510000 TCBRSV39 EQU TCBEXT2 03511000 TCBSTMCT EQU TCB+207 03512000 TCBSYSCT EQU TCB+206 03513000 TCBRSV37 EQU TCB+205 03514000 TCBEXSVC EQU TCBDAR 03515000 TCBDARMS EQU TCBDAR 03516000 TCBDARWT EQU TCBDAR 03517000 TCBDARO EQU TCBDAR 03518000 TCBDARMC EQU TCBDARC 03519000 TCBDARD EQU TCBDAR 03520000 TCBDARS EQU TCBDAR 03521000 TCBDARP EQU TCBDAR 03522000 TCBGTOFM EQU TCBFLGS7 03523000 TCBADMP EQU TCBFLGS7 03524000 TCBRSTSK EQU TCBFLGS7 03525000 TCBSVCS EQU TCBFLGS7 03526000 TCBSTACK EQU TCBFLGS7 03527000 TCBRSV34 EQU TCBFLGS7 03528000 TCBRSV33 EQU TCBFLGS7 03529000 TCBGPECB EQU TCBFLGS7 03530000 TCBNTJS EQU TCBFLGS6 03531000 TCBAPG EQU TCBFLGS6 03532000 TCBMIGR EQU TCBFLGS6 03533000 TCBRV303 EQU TCBFLGS6 03534000 TCBSPVLK EQU TCBFLGS6 03535000 TCBCPU EQU TCBFLGS6 03536000 TCBPIE17 EQU TCBFLGS6 03537000 TCBRV EQU TCBFLGS6 03538000 TCBRSV79 EQU TCBNDSP5 03539000 TCBRSV78 EQU TCBNDSP5 03540000 TCBRSV77 EQU TCBNDSP5 03541000 TCBRSV76 EQU TCBNDSP5 03542000 TCBRSV75 EQU TCBNDSP5 03543000 TCBRSV74 EQU TCBNDSP5 03544000 TCBRSV95 EQU TCBNDSP5 03545000 TCBRSV94 EQU TCBNDSP5 03546000 TCBRSV93 EQU TCBNDSP4 03547000 TCBRSV92 EQU TCBNDSP4 03548000 TCBRSV91 EQU TCBNDSP4 03549000 TCBRSV90 EQU TCBNDSP4 03550000 TCBRSV89 EQU TCBNDSP4 03551000 TCBRSV88 EQU TCBNDSP4 03552000 TCBRSV87 EQU TCBNDSP4 03553000 TCBRSV86 EQU TCBNDSP4 03554000 TCBEXT1A EQU TCBEXT1+1 03555000 TCBRSV32 EQU TCBEXT1 03556000 TCBEXCPD EQU TCB+192 03557000 TCBIOBRC EQU TCB+188 03558000 TCBDDWTC EQU TCB+186 03559000 TCBDDEXC EQU TCB+184 03560000 TCBJSCBB EQU TCBJSCB+1 03561000 @NM00192 EQU TCBRECDE 03562000 TCBREC EQU TCBRECDE 03563000 TCBMDIDS EQU TCB+176 03564000 TCBNDINT EQU TCBNDSP3 03565000 TCBRSV27 EQU TCBNDSP3 03566000 TCBRSV26 EQU TCBNDSP3 03567000 TCBRSV25 EQU TCBNDSP3 03568000 TCBRSV24 EQU TCBNDSP3 03569000 TCBSRBND EQU TCBNDSP3 03570000 TCBRV302 EQU TCBNDSP3 03571000 TCBLJSND EQU TCBNDSP3 03572000 TCBABE EQU TCBNDSP2 03573000 TCBDSS EQU TCBNDSP2 03574000 TCBOWAIT EQU TCBNDSP2 03575000 TCBIWAIT EQU TCBNDSP2 03576000 TCBNDTS EQU TCBNDSP2 03577000 TCBNDSVC EQU TCBNDSP2 03578000 TCBSTPP EQU TCBNDSP2 03579000 TCBABD EQU TCBNDSP2 03580000 TCBRSV22 EQU TCBNDSP1 03581000 TCBPIEND EQU TCBNDSP1 03582000 TCBTPSP EQU TCBNDSP1 03583000 TCBDDRND EQU TCBNDSP1 03584000 TCBRSPND EQU TCBNDSP1 03585000 TCBRSTND EQU TCBNDSP1 03586000 TCBDARPN EQU TCBNDSP1 03587000 TCBDARTN EQU TCBNDSP1 03588000 TCBNDSP0 EQU TCBNDSP 03589000 TCBUSER EQU TCB+168 03590000 TCBTCTB EQU TCBTCT+1 03591000 TCBRSV9C EQU TCBTCTGF 03592000 TCBRSV9B EQU TCBTCTGF 03593000 TCBRSV9A EQU TCBTCTGF 03594000 TCBRSV99 EQU TCBTCTGF 03595000 TCBRSV98 EQU TCBTCTGF 03596000 TCBRSV97 EQU TCBTCTGF 03597000 TCBRSV20 EQU TCBTCTGF 03598000 TCBSMFGF EQU TCBTCTGF 03599000 TCBSTABB EQU TCBSTAB+1 03600000 TCBSTCUR EQU TCBNSTAE 03601000 TCBRV301 EQU TCBNSTAE 03602000 TCBSYNCH EQU TCBNSTAE 03603000 TCBHALT EQU TCBNSTAE 03604000 TCBPPSUP EQU TCBNSTAE 03605000 TCB33E EQU TCBNSTAE 03606000 TCBQUIES EQU TCBNSTAE 03607000 TCBSTABE EQU TCBNSTAE 03608000 TCBAQE EQU TCB+156 03609000 TCBPQE EQU TCB+152 03610000 TCBTSDP EQU TCB+151 03611000 TCBTSLP EQU TCB+150 03612000 TCBSTPCT EQU TCB+149 03613000 TCBCPUBN EQU TCBTSFLG 03614000 TCBDYDSP EQU TCBTSFLG 03615000 TCBRSV18 EQU TCBTSFLG 03616000 TCBRSV17 EQU TCBTSFLG 03617000 TCBTIOTG EQU TCBTSFLG 03618000 TCBATT EQU TCBTSFLG 03619000 TCBSTPPR EQU TCBTSFLG 03620000 TCBRV300 EQU TCBTSTSK 03621000 TCBECB EQU TCB+144 03622000 TCBIQE EQU TCB+140 03623000 TCBLTC EQU TCB+136 03624000 TCBOTC EQU TCB+132 03625000 TCBNTC EQU TCB+128 03626000 TCBRSV16 EQU TCBJSTCB 03627000 TCBTQET EQU TCBTME 03628000 TCBTCB EQU TCB+116 03629000 TCBFSAB EQU TCBFSA+1 03630000 TCBQEL EQU TCBFSA 03631000 TCBGRS15 EQU TCBGRS+60 03632000 TCBGRS14 EQU TCBGRS+56 03633000 TCBGRS13 EQU TCBGRS+52 03634000 TCBGRS12 EQU TCBGRS+48 03635000 TCBGRS11 EQU TCBGRS+44 03636000 TCBGRS10 EQU TCBGRS+40 03637000 TCBGRS9 EQU TCBGRS+36 03638000 TCBGRS8 EQU TCBGRS+32 03639000 TCBGRS7 EQU TCBGRS+28 03640000 TCBGRS6 EQU TCBGRS+24 03641000 TCBGRS5 EQU TCBGRS+20 03642000 TCBGRS4 EQU TCBGRS+16 03643000 TCBGRS3 EQU TCBGRS+12 03644000 TCBGRS2 EQU TCBGRS+8 03645000 TCBGRS1 EQU TCBGRS+4 03646000 TCBGRS0 EQU TCBGRS 03647000 TCBJPQB EQU TCBJPQ+1 03648000 TCBRSV15 EQU TCBPURGE 03649000 TCBRSV14 EQU TCBPURGE 03650000 TCBRSV13 EQU TCBPURGE 03651000 TCBRSV12 EQU TCBPURGE 03652000 TCBRSV11 EQU TCBPURGE 03653000 TCBRSV10 EQU TCBPURGE 03654000 TCBRSV09 EQU TCBPURGE 03655000 TCBJPQF EQU TCBPURGE 03656000 TCBJLB EQU TCB+40 03657000 TCBLLS EQU TCB+36 03658000 TCBDSP EQU TCB+35 03659000 TCBLMP EQU TCB+34 03660000 TCBPNDSP EQU TCBFLGS5 03661000 TCBFCD1 EQU TCBFLGS5 03662000 TCBSTP EQU TCBFLGS5 03663000 TCBSYS EQU TCBFLGS5 03664000 TCBANDSP EQU TCBFLGS5 03665000 TCBPAGE EQU TCBFLGS5 03666000 TCBUXNDF EQU TCBABWF 03667000 TCBFC EQU TCBFLGS5 03668000 TCBONDSP EQU TCBFLGS4 03669000 TCBMPCND EQU TCBFLGS4 03670000 TCBMPCVQ EQU TCBFLGS4 03671000 TCBUXNDV EQU TCBFLGS4 03672000 TCBHNDSP EQU TCBFLGS4 03673000 TCBRQENA EQU TCBFLGS4 03674000 TCBSER EQU TCBFLGS4 03675000 TCBNDUMP EQU TCBFLGS4 03676000 TCBDWSTA EQU TCBFLGS3 03677000 TCBRSV08 EQU TCBFLGS3 03678000 TCBRSV07 EQU TCBFLGS3 03679000 TCBRSV06 EQU TCBFLGS3 03680000 TCBABGM EQU TCBFLGS3 03681000 TCBABTRM EQU TCBFLGS3 03682000 TCBADINP EQU TCBFLGS3 03683000 TCBFSM EQU TCBFLGS3 03684000 TCBFTS EQU TCBFLGS2 03685000 TCBFETXR EQU TCBFLGS2 03686000 TCBFDSOP EQU TCBFLGS2 03687000 TCBFJMC EQU TCBFLGS2 03688000 TCBFSMC EQU TCBFLGS2 03689000 TCBFABOP EQU TCBFLGS2 03690000 TCBFSTI EQU TCBFLGS2 03691000 TCBFOINP EQU TCBFLGS2 03692000 TCBFX EQU TCBFLGS1 03693000 TCBFS EQU TCBFLGS1 03694000 TCBFT EQU TCBFLGS1 03695000 TCBPDUMP EQU TCBFLGS1 03696000 TCBNONPR EQU TCBFLGS1 03697000 TCBFERA EQU TCBFLGS1 03698000 TCBFE EQU TCBFLGS1 03699000 TCBFA EQU TCBFLGS1 03700000 TCBZERO EQU TCBPKF 03701000 TCBFLAG EQU TCBPKF 03702000 TCBMSSB EQU TCBMSS+1 03703000 TCBRSV03 EQU TCBMSS 03704000 TCBTRNB EQU TCBTRN+1 03705000 TCBRSV02 EQU TCBABF 03706000 TCBOLTEP EQU TCBABF 03707000 TCBTCP EQU TCBABF 03708000 TCBTCPP EQU TCBABF 03709000 TCBRSV01 EQU TCBABF 03710000 TCBGRPH EQU TCBABF 03711000 TCBNOCHK EQU TCBABF 03712000 TCBMOD91 EQU TCBABF 03713000 TCBCMPC EQU TCBCMP+1 03714000 TCBRV318 EQU TCBCMSG 03715000 TCBRV317 EQU TCBCIND 03716000 TCBRV316 EQU TCBCWTO 03717000 TCBCASID EQU TCBCDBL 03718000 TCBNOCC EQU TCBSTCC 03719000 TCBDMPO EQU TCBCPP 03720000 TCBCSTEP EQU TCBCMPF 03721000 TCBCREQ EQU TCBCMPF 03722000 TCBTIO EQU TCB+12 03723000 TCBPIEA EQU TCBPIE+1 03724000 TCBPM EQU TCBPMASK 03725000 @NM00191 EQU TCBPMASK 03726000 TCBRBP EQU TCB 03727000 TCBFRS6 EQU TCBFRS+24 03728000 TCBFRS4 EQU TCBFRS+16 03729000 TCBFRS2 EQU TCBFRS+8 03730000 TCBFRS0 EQU TCBFRS 03731000 @NM00166 EQU SCVTSECT+180 03732000 @NM00165 EQU SCVTSECT+176 03733000 SCVTPIQE EQU SCVTSECT+172 03734000 @NM00164 EQU SCVTSECT+168 03735000 @NM00163 EQU SCVTSECT+160 03736000 @NM00162 EQU SCVTSECT+156 03737000 SCVTQCBR EQU SCVTSECT+152 03738000 SCVTSTAT EQU SCVTSECT+148 03739000 @NM00161 EQU SCVTSECT+144 03740000 SCVTTQE EQU SCVTSECT+140 03741000 @NM00160 EQU SCVTSECT+136 03742000 SCVTSVCT EQU SCVTSECT+132 03743000 @NM00159 EQU SCVTSECT+128 03744000 @NM00158 EQU SCVTSECT+124 03745000 SCVTRXLQ EQU SCVTSECT+120 03746000 @NM00157 EQU SCVTSECT+116 03747000 SCVTCTCB EQU SCVTSECT+112 03748000 @NM00156 EQU SCVTSECT+108 03749000 @NM00155 EQU SCVTSECT+104 03750000 @NM00154 EQU SCVTSECT+100 03751000 @NM00153 EQU SCVTSECT+96 03752000 SCVTCOMM EQU SCVTSECT+92 03753000 @NM00152 EQU SCVTSECT+88 03754000 @NM00151 EQU SCVTSECT+84 03755000 @NM00150 EQU SCVTSECT+80 03756000 @NM00149 EQU SCVTSECT+76 03757000 @NM00148 EQU SCVTSECT+72 03758000 SCVTGMBR EQU SCVTSECT+68 03759000 SCVTRPTR EQU SCVTSECT+64 03760000 SCVTHSKP EQU SCVTSECT+60 03761000 @NM00147 EQU SCVTSECT+56 03762000 @NM00146 EQU SCVTSECT+52 03763000 SCVTLFRM EQU SCVTSECT+48 03764000 SCVTCDCL EQU SCVTSECT+44 03765000 @NM00145 EQU SCVTSECT+40 03766000 SCVTRACE EQU SCVTSECT+36 03767000 @NM00144 EQU SCVTSECT+32 03768000 SCVTRMBR EQU SCVTSECT+28 03769000 @NM00143 EQU SCVTSECT+24 03770000 @NM00142 EQU SCVTSECT+20 03771000 @NM00141 EQU SCVTSECT+16 03772000 @NM00140 EQU SCVTSECT+14 03773000 SCVTBR14 EQU SCVTSECT+12 03774000 SCVTSPET EQU SCVTSECT+8 03775000 SVRBEND EQU RBSECT+192 03776000 RBFEPARM EQU RBSECT+168 03777000 SIRBEND EQU RBSECT+168 03778000 RBRSV158 EQU RBRSV150 03779000 RBRSV157 EQU RBRSV150 03780000 RBRSV156 EQU RBRSV150 03781000 RBRSV155 EQU RBRSV150 03782000 RBRSV154 EQU RBRSV150 03783000 RBRSV153 EQU RBRSV150 03784000 RBRSV152 EQU RBRSV150 03785000 RBRSV151 EQU RBRSV150 03786000 RBRSV149 EQU RBSECT+166 03787000 RBRSV148 EQU RBSECT+164 03788000 RBRSV169 EQU RBSDATA+3 03789000 RBSID EQU RBSDATA+2 03790000 RBSPKEY EQU RBSDATA+1 03791000 RBRSV168 EQU RBSFLG3 03792000 RBSTERMO EQU RBSFLG3 03793000 RBSBRNTR EQU RBSFLG3 03794000 RBSPRNTR EQU RBSFLG3 03795000 RBSCNCEL EQU RBSFLG3 03796000 RBSRECRD EQU RBSFLG3 03797000 RBSTERMI EQU RBSFLG3 03798000 RBRSV167 EQU RBSFLG3 03799000 RBSOWNRA EQU RBSOWNR+1 03800000 RBSSUPER EQU RBSFLGS2 03801000 RBSKEY0 EQU RBSFLGS2 03802000 RBRSV166 EQU RBSFLGS2 03803000 RBRSV165 EQU RBSFLGS2 03804000 RBSINUSE EQU RBSFLGS2 03805000 RBRSV164 EQU RBSFLGS2 03806000 RBSXCTL2 EQU RBSFLGS2 03807000 RBRSV163 EQU RBSFLGS2 03808000 RBSPARMA EQU RBSPARM+1 03809000 RBSHALT EQU RBSIOPRC 03810000 RBSNOIOP EQU RBSIOPRC 03811000 RBSASYNC EQU RBSFLGS1 03812000 RBRSV162 EQU RBSFLGS1 03813000 RBSESTAE EQU RBSFLGS1 03814000 RBSDUMMY EQU RBSFLGS1 03815000 RBSSTAR EQU RBSFLGS1 03816000 RBSSTAI EQU RBSFLGS1 03817000 RBSEXIT EQU RBSCBB+4 03818000 RBSCHAIN EQU RBSCBB 03819000 TIRBEND EQU @NM00138+8 03820000 PRBEND EQU @NM00138+8 03821000 RBRSV146 EQU RBRSV138 03822000 RBRSV145 EQU RBRSV138 03823000 RBRSV144 EQU RBRSV138 03824000 RBRSV143 EQU RBRSV138 03825000 RBRSV142 EQU RBRSV138 03826000 RBRSV141 EQU RBRSV138 03827000 RBRSV140 EQU RBRSV138 03828000 RBRSV139 EQU RBRSV138 03829000 RBRSV137 EQU @NM00138+6 03830000 RBRSV136 EQU @NM00138+4 03831000 RBRSV135 EQU @NM00138 03832000 @NM00137 EQU RBSECT+32 03833000 @NM00136 EQU @NM00134+1 03834000 RBSCF EQU @NM00135 03835000 RBPGMQ1 EQU RBPGMQ+1 03836000 @NM00133 EQU RBPGMQ 03837000 @NM00132 EQU RBSECT+16 03838000 @NM00131 EQU @NM00127 03839000 @NM00130 EQU @NM00127 03840000 RBIQETP EQU @NM00127 03841000 RBUSIQE EQU RBETXR 03842000 RBATTN EQU @NM00127 03843000 @NM00129 EQU @NM00127 03844000 @NM00128 EQU @NM00127 03845000 RBATNXIT EQU @NM00125 03846000 @NM00126 EQU @NM00125 03847000 RBWAITP EQU @NM00125 03848000 RBFNSVRB EQU RBTRSVRB 03849000 RBSIZE EQU RBSECT+8 03850000 RBABOPSW EQU RBSECT+4 03851000 RBPPSAV1 EQU RBPPSAV+1 03852000 @NM00123 EQU RBPPSAV 03853000 RBPRFXND EQU RBPREFIX+64 03854000 RBINTCOD EQU RBINTCDA+1 03855000 RBINLNTH EQU RBINTCDA 03856000 RBWCSA EQU RBPREFIX+60 03857000 RBRSV004 EQU RBPREFIX+57 03858000 RBSSSYN EQU RBFLAGS1 03859000 RBSCB EQU RBFLAGS1 03860000 RBLONGWT EQU RBFLAGS1 03861000 RBASIR EQU RBFLAGS1 03862000 RBRSV159 EQU RBFLAGS1 03863000 RBSLOCK EQU RBFLAGS1 03864000 RBRTRAN EQU RBRTPSW2+4 03865000 RBRTINCD EQU RBRTICIL+2 03866000 RBRTILC EQU RBRTICIL+1 03867000 RBRSV160 EQU RBRTICIL 03868000 RBRTPSW1 EQU RBRTOPSW 03869000 RBRSV062 EQU RBRSV054 03870000 RBRSV061 EQU RBRSV054 03871000 RBRSV060 EQU RBRSV054 03872000 RBRSV059 EQU RBRSV054 03873000 RBRSV058 EQU RBRSV054 03874000 RBRSV057 EQU RBRSV054 03875000 RBRSV056 EQU RBRSV054 03876000 RBRSV055 EQU RBRSV054 03877000 RBRSV053 EQU RBPREFIX+38 03878000 RBRSV052 EQU RBPREFIX+36 03879000 RBRSV051 EQU RBPREFIX+32 03880000 RBPRFXST EQU RBPREFIX+32 03881000 RBRSV050 EQU RBPREFIX+28 03882000 RBRSV049 EQU RBRSV041 03883000 RBRSV048 EQU RBRSV041 03884000 RBRSV047 EQU RBRSV041 03885000 RBRSV046 EQU RBRSV041 03886000 RBRSV045 EQU RBRSV041 03887000 RBRSV044 EQU RBRSV041 03888000 RBRSV043 EQU RBRSV041 03889000 RBRSV042 EQU RBRSV041 03890000 RBRSV040 EQU RBPREFIX+26 03891000 RBRSV039 EQU RBPREFIX+24 03892000 RBRSV038 EQU RBPREFIX+20 03893000 RBRSV037 EQU RBPREFIX+16 03894000 RBRSV036 EQU RBRSV028 03895000 RBRSV035 EQU RBRSV028 03896000 RBRSV034 EQU RBRSV028 03897000 RBRSV033 EQU RBRSV028 03898000 RBRSV032 EQU RBRSV028 03899000 RBRSV031 EQU RBRSV028 03900000 RBRSV030 EQU RBRSV028 03901000 RBRSV029 EQU RBRSV028 03902000 RBRSV027 EQU RBRSV019 03903000 RBRSV026 EQU RBRSV019 03904000 RBRSV025 EQU RBRSV019 03905000 RBRSV024 EQU RBRSV019 03906000 RBRSV023 EQU RBRSV019 03907000 RBRSV022 EQU RBRSV019 03908000 RBRSV021 EQU RBRSV019 03909000 RBRSV020 EQU RBRSV019 03910000 RBRSV018 EQU RBPREFIX+13 03911000 RBRSV017 EQU RBPREFIX+12 03912000 RBSRV016 EQU RBPREFIX+11 03913000 RBRSV015 EQU RBPREFIX+10 03914000 RBRSV014 EQU RBPREFIX+8 03915000 RBRSV013 EQU RBPREFIX+4 03916000 RBRSV012 EQU RBPREFIX 03917000 XRBREG15 EQU RBGRS15 03918000 XRBREG14 EQU RBGRS14 03919000 XRBREG13 EQU RBGRS13 03920000 XRBREG12 EQU RBGRS12 03921000 XRBREG11 EQU RBGRS11 03922000 XRBREG10 EQU RBGRS10 03923000 XRBREG9 EQU RBGRS9 03924000 XRBREG8 EQU RBGRS8 03925000 XRBREG7 EQU RBGRS7 03926000 XRBREG6 EQU RBGRS6 03927000 XRBREG5 EQU RBGRS5 03928000 XRBREG4 EQU RBGRS4 03929000 XRBREG3 EQU RBGRS3 03930000 XRBREG2 EQU RBGRS2 03931000 XRBREG1 EQU RBGRS1 03932000 XRBREG0 EQU RBGRS0 03933000 XRBLNKA EQU RBLINKB 03934000 XRBWT EQU RBWCF 03935000 @NM00122 EQU RBBASIC+24 03936000 RBOPSWPS EQU RBOPSWB2 03937000 @NM00121 EQU RBOPSWB2 03938000 @NM00120 EQU XRBPSW 03939000 @NM00119 EQU RBBASIC+12 03940000 XRBWAIT EQU RBECBWT 03941000 XRBFRRB EQU RBFDYN 03942000 @NM00118 EQU XSTAB2 03943000 XRBACTV EQU RBFACTV 03944000 XRBTCBP EQU RBTCBNXT 03945000 @NM00117 EQU XSTAB1 03946000 XRBCKPT EQU RBFTCKPT 03947000 @NM00116 EQU XSTAB1 03948000 @NM00115 EQU RBBASIC+8 03949000 @NM00114 EQU RBEXRTNM+1 03950000 RBTMIND3 EQU RBTMFLD 03951000 RBTMIND2 EQU RBTMFLD 03952000 RBTMCMP EQU RBTMFLD 03953000 RBWLIM EQU RBTMFLD 03954000 RBRSV005 EQU RBTMFLD 03955000 RBTMTOD EQU RBTMFLD 03956000 RBTMQUE EQU RBTMFLD 03957000 @NM00113 EQU RBPRFX 03958000 IOBERRCT EQU IOBSTDRD+30 03959000 IOBRSV19 EQU IOBINCAM+1 03960000 IOBOLTST EQU IOBBTAMF 03961000 IOBRFTMG EQU IOBBTAMF 03962000 IOBRSV17 EQU IOBBTAMF 03963000 IOBRSV16 EQU IOBBTAMF 03964000 IOBRSV15 EQU IOBBTAMF 03965000 IOBRSV14 EQU IOBBTAMF 03966000 IOBINUSE EQU IOBBTAMF 03967000 IOBPRMER EQU IOBBTAMF 03968000 IOBREPOS EQU IOBRESTR 03969000 IOBRSV44 EQU IOBFLAG4 03970000 IOBJES3I EQU IOBFLAG4 03971000 IOBRSV42 EQU IOBFLAG4 03972000 IOBRSV41 EQU IOBFLAG4 03973000 IOBRSV40 EQU IOBFLAG4 03974000 IOBPMERR EQU IOBFLAG4 03975000 IOBCC3WE EQU IOBFLAG4 03976000 IOBGDPOL EQU IOBFLAG4 03977000 IOBSTRTB EQU IOBSTART+1 03978000 IOBSIOCC EQU IOBSTART 03979000 IOBCSB7 EQU IOBCSTAT 03980000 IOBCSB6 EQU IOBCSTAT 03981000 IOBCSB5 EQU IOBCSTAT 03982000 IOBCSB4 EQU IOBCSTAT 03983000 IOBCSB3 EQU IOBCSTAT 03984000 IOBCSB2 EQU IOBCSTAT 03985000 IOBCSB1 EQU IOBCSTAT 03986000 IOBCSB0 EQU IOBCSTAT 03987000 IOBUSB7 EQU IOBUSTAT 03988000 IOBUSB6 EQU IOBUSTAT 03989000 IOBUSB5 EQU IOBUSTAT 03990000 IOBUSB4 EQU IOBUSTAT 03991000 IOBUSB3 EQU IOBUSTAT 03992000 IOBUSB2 EQU IOBUSTAT 03993000 IOBUSB1 EQU IOBUSTAT 03994000 IOBUSB0 EQU IOBUSTAT 03995000 IOBCMDA EQU IOBIOCSW 03996000 IOBLOG EQU IOBFL3 03997000 IOBJAM EQU IOBICL 03998000 IOBMSG EQU IOBFL3 03999000 IOBSDR EQU IOBCNC 04000000 IOBACU EQU IOBFL3 04001000 IOBCDC EQU IOBFL3 04002000 IOBICC EQU IOBFL3 04003000 IOBCCC EQU IOBFL3 04004000 IOBECBPB EQU IOBECBPT+1 04005000 IOBECBCC EQU IOBECBPT 04006000 IOBS1B7 EQU IOBSENS1 04007000 IOBS1B6 EQU IOBSENS1 04008000 IOBS1B5 EQU IOBSENS1 04009000 IOBS1B4 EQU IOBSENS1 04010000 IOBS1B3 EQU IOBSENS1 04011000 IOBS1B2 EQU IOBSENS1 04012000 IOBS1B1 EQU IOBSENS1 04013000 IOBS1B0 EQU IOBSENS1 04014000 IOBSNSC9 EQU IOBS0B7 04015000 IOBS0B6 EQU IOBSENS0 04016000 IOBS0B5 EQU IOBSENS0 04017000 IOBS0B4 EQU IOBSENS0 04018000 IOBS0B3 EQU IOBSENS0 04019000 IOBS0B2 EQU IOBSENS0 04020000 IOBS0B1 EQU IOBSENS0 04021000 IOBS0B0 EQU IOBSENS0 04022000 IOBPNCH EQU IOBFLAG2 04023000 IOBSTATO EQU IOBFLAG2 04024000 IOBSKUPD EQU IOBFLAG2 04025000 IOBALTTR EQU IOBFLAG2 04026000 IOBRRT2 EQU IOBRDHA0 04027000 IOBRRT3 EQU IOBPURGE 04028000 IOBSENSE EQU IOBFLAG2 04029000 IOBHALT EQU IOBFLAG2 04030000 IOBSPSVC EQU IOBRSTRT 04031000 IOBUNREL EQU IOBFLAG1 04032000 IOBIOERR EQU IOBFLAG1 04033000 IOBFCREX EQU IOBCYCCK 04034000 IOBRPSTN EQU IOBFLAG1 04035000 IOBERRTN EQU IOBFLAG1 04036000 IOBCMDCH EQU IOBFLAG1 04037000 IOBDATCH EQU IOBFLAG1 04038000 IOBCNOPA EQU IOBPREFX+12 04039000 IOBCICB EQU IOBPREFX+8 04040000 IOBCECB EQU IOBPREFX+4 04041000 IOBCONOP EQU IOBPREFX+3 04042000 IOBCINOP EQU IOBPREFX+2 04043000 IOBRSV05 EQU IOBPREFX+1 04044000 IOBPCI EQU IOBCFLG1 04045000 IOBRSTCH EQU IOBCFLG1 04046000 IOBABAPP EQU IOBCFLG1 04047000 IOBPTST EQU IOBCFLG1 04048000 IOBRSV04 EQU IOBCFLG1 04049000 IOBRSV03 EQU IOBCFLG1 04050000 IOBRSV02 EQU IOBCFLG1 04051000 IOBRSV01 EQU IOBCFLG1 04052000 DEBXSAMB EQU DEBXTN+28 04053000 DEBXOPNJ EQU DEBXTN+24 04054000 DEBXXARG EQU DEBXTN+20 04055000 DEBXMCF2 EQU DEBXTN+19 04056000 DEBXMCF1 EQU DEBXTN+18 04057000 DEBXDSO2 EQU DEBXTN+17 04058000 DEBXDSO1 EQU DEBXTN+16 04059000 DEBXDBPR EQU DEBXTN+12 04060000 DEBXDCBM EQU DEBXTN+8 04061000 DEBXDSAB EQU DEBXTN+4 04062000 DEBXRV48 EQU DEBXTN+3 04063000 DEBXRV47 EQU DEBXFLG1 04064000 DEBXRV46 EQU DEBXFLG1 04065000 DEBXRV45 EQU DEBXFLG1 04066000 DEBXRV44 EQU DEBXFLG1 04067000 DEBXRV43 EQU DEBXFLG1 04068000 DEBXDSSI EQU DEBXFLG1 04069000 DEBXTSKC EQU DEBXFLG1 04070000 DEBXCDCB EQU DEBXFLG1 04071000 DEBXLNGH EQU DEBXTN 04072000 DEBTBLOF EQU DEBPREFX+14 04073000 DEBAMTYP EQU DEBPREFX+13 04074000 DEBLNGTH EQU DEBPREFX+12 04075000 DEBDCBMK EQU DEBXTNP 04076000 DEBDSCBA EQU DEBPREFX+1 04077000 DEBWKARA EQU DEBPREFX 04078000 DEBXCEAD EQU DEBXCEA+1 04079000 DEBXCENP EQU DEBXCEAB 04080000 DEBRSV35 EQU DEBXCEAB 04081000 DEBRSV34 EQU DEBXCEAB 04082000 DEBRSV33 EQU DEBXCEAB 04083000 DEBRSV32 EQU DEBXCEAB 04084000 DEBCEAD EQU DEBCEA+1 04085000 DEBCENP EQU DEBCEAB 04086000 DEBRSV31 EQU DEBCEAB 04087000 DEBRSV30 EQU DEBCEAB 04088000 DEBRSV29 EQU DEBCEAB 04089000 DEBRSV28 EQU DEBCEAB 04090000 DEBPCIAD EQU DEBPCIA+1 04091000 DEBPCINP EQU DEBPCIAB 04092000 DEBRSV27 EQU DEBPCIAB 04093000 DEBRSV26 EQU DEBPCIAB 04094000 DEBRSV25 EQU DEBPCIAB 04095000 DEBRSV24 EQU DEBPCIAB 04096000 DEBSIOAD EQU DEBSIOA+1 04097000 DEBSIONP EQU DEBSIOAB 04098000 DEBFIX EQU DEBSIOAB 04099000 DEBIOVR EQU DEBSIOAB 04100000 DEBSIOX EQU DEBSIOAB 04101000 DEBPGFX EQU DEBSIOAB 04102000 DEBEOEAD EQU DEBEOEA+1 04103000 DEBEOENP EQU DEBEOEAB 04104000 DEBRSV22 EQU DEBEOEAB 04105000 DEBRSV21 EQU DEBEOEAB 04106000 DEBRSV20 EQU DEBEOEAB 04107000 DEBESMVR EQU DEBEOEAB 04108000 DEBSUBID EQU DEBSUBNM 04109000 DEBSIOA2 EQU DEBACS08+24 04110000 DEBRPSIO EQU DEBACS08+20 04111000 DEBFREED EQU DEBACS08+16 04112000 @NM00112 EQU DEBACS08+12 04113000 @NM00111 EQU DEBACS08+8 04114000 DEBDISAD EQU DEBACS08+4 04115000 @NM00110 EQU DEBACS08 04116000 DEBRPSST EQU DEBACS07+64 04117000 DEBARECK EQU DEBACS07+60 04118000 DEBAREWT EQU DEBACS07+56 04119000 DEBACHK EQU DEBACS07+52 04120000 DEBAWRIT EQU DEBACS07+48 04121000 DEBASETL EQU DEBACS07+44 04122000 DEBAREAD EQU DEBACS07+40 04123000 DEBCRECK EQU DEBACS07+36 04124000 DEBCREWT EQU DEBACS07+32 04125000 DEBCCHK EQU DEBACS07+28 04126000 DEBCWRIT EQU DEBACS07+24 04127000 DEBCSETL EQU DEBACS07+20 04128000 DEBCREAD EQU DEBACS07+16 04129000 DEBWKPT5 EQU DEBACS07+12 04130000 DEBWKPT4 EQU DEBACS07+8 04131000 DEBGET EQU DEBACS07+4 04132000 @NM00109 EQU DEBACS07 04133000 DEBPUT EQU DEBACS06+4 04134000 DEBDCBFA EQU DEBACS06 04135000 DEBLUCBB EQU DEBLUCBA+1 04136000 DEBRSV18 EQU DEBLUCBA 04137000 DEBFUCBB EQU DEBFUCBA+1 04138000 DEBRSV17 EQU DEBFUCBA 04139000 DEBTCCWB EQU DEBTCCWA+1 04140000 DEBRSV16 EQU DEBTCCWA 04141000 DEBTBFRB EQU DEBTBFRA+1 04142000 DEBRSV15 EQU DEBTBFRA 04143000 DEBDBPEF EQU DEBACS03+8 04144000 DEBDBPP EQU DEBACS03+4 04145000 DEBDTPP EQU DEBACS03 04146000 DEBDBPE EQU DEBDBLK+1 04147000 DEBDBPT EQU DEBDBLK 04148000 DEBEXTNM EQU DEBDSNAM 04149000 DEBLRECL EQU DEBACSMD+14 04150000 DEBBLKSI EQU DEBACSMD+12 04151000 DEBRSV14 EQU DEBDSNM+4 04152000 DEBUTSAB EQU DEBUTSAA+1 04153000 DEBRSV13 EQU DEBUTSAA 04154000 DEBVOLNM EQU DEBACSMD+2 04155000 DEBVLSEQ EQU DEBVOLSQ+1 04156000 DEBRSV42 EQU DEBVOLBT 04157000 DEBRSV41 EQU DEBVOLBT 04158000 DEBRSV40 EQU DEBVOLBT 04159000 DEBRSV39 EQU DEBVOLBT 04160000 DEBRSV38 EQU DEBVOLBT 04161000 DEBRSV37 EQU DEBVOLBT 04162000 DEBRSV36 EQU DEBVOLBT 04163000 DEBEXFUL EQU DEBVOLBT 04164000 DEBNMTRK EQU DEBDASD+14 04165000 DEBENDHH EQU DEBDASD+12 04166000 DEBENDCC EQU DEBDASD+10 04167000 DEBSTRHH EQU DEBDASD+8 04168000 DEBSTRCC EQU DEBDASD+6 04169000 DEBBINUM EQU DEBDASD+4 04170000 DEBUCBA EQU DEBUCBAD+1 04171000 DEBDVMOD EQU DEBUCBAD 04172000 DEBAPPB EQU DEBAPPAD+1 04173000 DEBEXSCL EQU DEBAPPAD 04174000 DEBDEBID EQU DEBPROTG 04175000 DEBECBB EQU DEBECBAD+1 04176000 DEBPRIOR EQU DEBECBAD 04177000 DEBUSRPB EQU DEBUSRPG+1 04178000 DEBNMEXT EQU DEBUSRPG 04179000 DEBRSV05 EQU DEBBASIC+15 04180000 DEBXTNIN EQU DEBFLGS1 04181000 DEBAPFIN EQU DEBFLGS1 04182000 DEBF1CEV EQU DEBFLGS1 04183000 DEBCINDI EQU DEBFLGS1 04184000 DEBRSV02 EQU DEBFLGS1 04185000 DEBRSIOA EQU DEBFLGS1 04186000 DEBEOFDF EQU DEBFLGS1 04187000 DEBPWCKD EQU DEBFLGS1 04188000 DEBQSCNT EQU DEBBASIC+13 04189000 DEBACCS EQU DEBOPATB 04190000 DEBPOSIT EQU DEBOPATB 04191000 DEBZERO EQU DEBOPATB 04192000 DEBABEND EQU DEBOPATB 04193000 DEBIRBB EQU DEBIRBAD+1 04194000 DEBRERR EQU DEBOFLGS 04195000 DEBLABEL EQU DEBOFLGS 04196000 DEBSPLIT EQU DEBOFLGS 04197000 DEBDCB EQU DEBOFLGS 04198000 DEBRLSE EQU DEBOFLGS 04199000 DEBEOF EQU DEBOFLGS 04200000 DEBDISP EQU DEBOFLGS 04201000 DEBAMLNG EQU DEBDEBAD 04202000 DEBTCBB EQU DEBTCBAD+1 04203000 DEBNMSUB EQU DEBTCBAD 04204000 CVTLEVL EQU CVTRELNO+2 04205000 CVTNUMB EQU CVTRELNO 04206000 CVTMDL EQU CVTFIX+250 04207000 @NM00108 EQU CVTFIX+248 04208000 @NM00107 EQU CVTFIX 04209000 CVTRV482 EQU CVTXTNT2+128 04210000 CVTRV481 EQU CVTXTNT2+124 04211000 CVTRV480 EQU CVTXTNT2+120 04212000 CVTRV479 EQU CVTXTNT2+118 04213000 CVTRV478 EQU CVTXTNT2+117 04214000 CVTRV477 EQU CVTXTNT2+116 04215000 CVTRV476 EQU CVTXTNT2+115 04216000 CVTRV475 EQU CVTXTNT2+114 04217000 CVTRV474 EQU CVTRV466 04218000 CVTRV473 EQU CVTRV466 04219000 CVTRV472 EQU CVTRV466 04220000 CVTRV471 EQU CVTRV466 04221000 CVTRV470 EQU CVTRV466 04222000 CVTRV469 EQU CVTRV466 04223000 CVTRV468 EQU CVTRV466 04224000 CVTRV467 EQU CVTRV466 04225000 CVTRV465 EQU CVTRV457 04226000 CVTRV464 EQU CVTRV457 04227000 CVTRV463 EQU CVTRV457 04228000 CVTRV462 EQU CVTRV457 04229000 CVTRV461 EQU CVTRV457 04230000 CVTRV460 EQU CVTRV457 04231000 CVTRV459 EQU CVTRV457 04232000 CVTRV458 EQU CVTRV457 04233000 CVTRV456 EQU CVTXTNT2+108 04234000 CVTRV455 EQU CVTXTNT2+104 04235000 CVTRV454 EQU CVTXTNT2+100 04236000 CVTRV453 EQU CVTXTNT2+96 04237000 CVTRV452 EQU CVTXTNT2+94 04238000 CVTRV451 EQU CVTXTNT2+92 04239000 CVTRV450 EQU CVTXTNT2+90 04240000 CVTRV449 EQU CVTXTNT2+88 04241000 CVTRV448 EQU CVTXTNT2+87 04242000 CVTRV447 EQU CVTXTNT2+86 04243000 CVTRV446 EQU CVTRV438 04244000 CVTRV445 EQU CVTRV438 04245000 CVTRV444 EQU CVTRV438 04246000 CVTRV443 EQU CVTRV438 04247000 CVTRV442 EQU CVTRV438 04248000 CVTRV441 EQU CVTRV438 04249000 CVTRV440 EQU CVTRV438 04250000 CVTRV439 EQU CVTRV438 04251000 CVTRV437 EQU CVTRV429 04252000 CVTRV436 EQU CVTRV429 04253000 CVTRV435 EQU CVTRV429 04254000 CVTRV434 EQU CVTRV429 04255000 CVTRV433 EQU CVTRV429 04256000 CVTRV432 EQU CVTRV429 04257000 CVTRV431 EQU CVTRV429 04258000 CVTRV430 EQU CVTRV429 04259000 CVTRV428 EQU CVTXTNT2+80 04260000 CVTRV427 EQU CVTXTNT2+76 04261000 CVTRV426 EQU CVTXTNT2+72 04262000 CVTRV425 EQU CVTXTNT2+68 04263000 CVTATACT EQU CVTATCVT 04264000 CVTRV423 EQU CVTXTNT2+62 04265000 CVTRV422 EQU CVTXTNT2+60 04266000 CVTRV421 EQU CVTXTNT2+58 04267000 CVTRV420 EQU CVTXTNT2+56 04268000 CVTRV419 EQU CVTXTNT2+55 04269000 CVTRV418 EQU CVTXTNT2+54 04270000 CVTRV417 EQU CVTRV409 04271000 CVTRV416 EQU CVTRV409 04272000 CVTRV415 EQU CVTRV409 04273000 CVTRV414 EQU CVTRV409 04274000 CVTRV413 EQU CVTRV409 04275000 CVTRV412 EQU CVTRV409 04276000 CVTRV411 EQU CVTRV409 04277000 CVTRV410 EQU CVTRV409 04278000 CVTRV408 EQU CVTRV400 04279000 CVTRV407 EQU CVTRV400 04280000 CVTRV406 EQU CVTRV400 04281000 CVTRV405 EQU CVTRV400 04282000 CVTRV404 EQU CVTRV400 04283000 CVTRV403 EQU CVTRV400 04284000 CVTRV402 EQU CVTRV400 04285000 CVTRV401 EQU CVTRV400 04286000 CVTICB EQU CVTXTNT2+48 04287000 CVTSKTA EQU CVTXTNT2+44 04288000 CVTCCVT EQU CVTXTNT2+40 04289000 CVTRSV98 EQU CVTXTNT2+36 04290000 CVTRSV97 EQU CVTXTNT2+34 04291000 CVTRSV96 EQU CVTXTNT2+32 04292000 CVTOLTEP EQU CVTXTNT2+28 04293000 CVTQIDA EQU CVTQID+1 04294000 CVTRSV95 EQU CVTQID 04295000 CVTRSV94 EQU CVTXTNT2+20 04296000 CVTRSV93 EQU CVTXTNT2+16 04297000 CVTRSV92 EQU CVTXTNT2+12 04298000 CVTDEBVR EQU CVTXTNT2+8 04299000 CVTRSV91 EQU CVTXTNT2+6 04300000 CVTRSV9H EQU CVTFLGBT 04301000 CVTRSV9G EQU CVTFLGBT 04302000 CVTRSV9F EQU CVTFLGBT 04303000 CVTRSV9E EQU CVTFLGBT 04304000 CVTRSV9D EQU CVTFLGBT 04305000 CVTBAH EQU CVTFLGBT 04306000 CVTVME EQU CVTFLGBT 04307000 CVTNPE EQU CVTFLGBT 04308000 CVTNUCLS EQU CVTXTNT2+4 04309000 CVTDSSVA EQU CVTDSSV+1 04310000 CVTRSV89 EQU CVTDSSV 04311000 CVTRSV88 EQU CVTXTNT1+8 04312000 CVTRSV87 EQU CVTXTNT1+4 04313000 CVTFACHN EQU CVTXTNT1 04314000 CVTRV488 EQU CVTMAP+412 04315000 CVTRV487 EQU CVTMAP+408 04316000 CVTRV486 EQU CVTMAP+404 04317000 CVTRV485 EQU CVTMAP+400 04318000 CVTACTAP EQU CVTMAP+396 04319000 CVTAUTH EQU CVTMAP+392 04320000 CVTRV490 EQU CVTMAP+388 04321000 CVTSU EQU CVTMAP+384 04322000 CVTVOLT1 EQU CVTVOLM1+1 04323000 CVTVOLI1 EQU CVTVOLF1 04324000 CVTSTOA EQU CVTMAP+376 04325000 CVTRSV58 EQU CVTMAP+374 04326000 CVTRSV57 EQU CVTMAP+372 04327000 CVTDDCE EQU CVTMAP+368 04328000 CVTPNWFR EQU CVTMAP+364 04329000 CVTSMF EQU CVTMAP+360 04330000 CVTSULK EQU CVTMAP+358 04331000 CVTSLKO EQU CVTSYSK 04332000 CVTSLKP EQU CVTSYSK 04333000 CVTSLKQ EQU CVTSYSK 04334000 CVTSLKR EQU CVTSYSK 04335000 CVTRSV56 EQU CVTSYSK 04336000 CVTRSV55 EQU CVTSYSK 04337000 CVTRSV54 EQU CVTSYSK 04338000 CVTRSV53 EQU CVTSYSK 04339000 CVTRSV52 EQU CVTA1F1 04340000 CVTRSV51 EQU CVTA1F1 04341000 CVTRSV50 EQU CVTA1F1 04342000 CVTRSV49 EQU CVTA1F1 04343000 CVTRSV48 EQU CVTA1F1 04344000 CVTRSV47 EQU CVTA1F1 04345000 CVTSRSW EQU CVTA1F1 04346000 CVTPFSW EQU CVTA1F1 04347000 CVTPCVT EQU CVTMAP+352 04348000 CVTRSV46 EQU CVTMAP+344 04349000 CVTRSV45 EQU CVTMAP+340 04350000 CVTRSV44 EQU CVTMAP+338 04351000 CVTRSV43 EQU CVTMAP+336 04352000 CVTHJESA EQU CVTHJES+1 04353000 CVTRSV42 EQU CVTHJES 04354000 CVTEXT2A EQU CVTEXT2+1 04355000 CVTRSV41 EQU CVTEXT2 04356000 CVTAPFA EQU CVTAPF+1 04357000 CVTRSV40 EQU CVTAPF 04358000 CVTRV518 EQU CVTINTLA 04359000 CVTRV517 EQU CVTERPV 04360000 CVTEORM EQU CVTMAP+312 04361000 CVTMCHPR EQU CVTMAP+308 04362000 CVTTZ EQU CVTMAP+304 04363000 CVTJEPS EQU CVTMAP+300 04364000 CVTJESCT EQU CVTMAP+296 04365000 CVTMODE EQU CVTMAP+292 04366000 CVTPTRV EQU CVTMAP+288 04367000 CVTREAL EQU CVTMAP+284 04368000 CVTRSV39 EQU CVTMAP+280 04369000 CVTRSV38 EQU CVTMAP+276 04370000 CVTDMSRA EQU CVTDMSR+1 04371000 CVTRV634 EQU CVTDMSRF 04372000 CVTRV633 EQU CVTDMSRF 04373000 CVTRV632 EQU CVTDMSRF 04374000 CVTRV631 EQU CVTDMSRF 04375000 CVTRV630 EQU CVTDMSRF 04376000 CVTRV629 EQU CVTDMSRF 04377000 CVTUDUMP EQU CVTDMSRF 04378000 CVTSDUMP EQU CVTDMSRF 04379000 CVTQMSGA EQU CVTQMSG+1 04380000 CVTRSV36 EQU CVTQMSG 04381000 CVTAMFF EQU CVTMAP+264 04382000 CVTPURGA EQU CVTPURG+1 04383000 CVTRSV35 EQU CVTPURG 04384000 CVTCBSP EQU CVTMAP+256 04385000 CVTATERA EQU CVTATER+1 04386000 CVTSYST EQU CVTATER 04387000 CVTVOLT2 EQU CVTTAT 04388000 CVTVOLI2 EQU CVTVOLF2 04389000 CVTAQAVB EQU CVTAQAVT+1 04390000 CVTRSV34 EQU CVTTCMFG 04391000 CVTRSV33 EQU CVTTCMFG 04392000 CVTRSV32 EQU CVTTCMFG 04393000 CVTRSV31 EQU CVTTCMFG 04394000 CVTRSV30 EQU CVTTCMFG 04395000 CVTRSV29 EQU CVTTCMFG 04396000 CVTLDEV EQU CVTTCMFG 04397000 CVTTCRDY EQU CVTTCMFG 04398000 CVTGTFA EQU CVTGTF+1 04399000 CVTRSV27 EQU CVTGTFST 04400000 CVTRNIO EQU CVTGTFST 04401000 CVTUSR EQU CVTGTFST 04402000 CVTRV318 EQU CVTFORM 04403000 CVTRV317 EQU CVTTMODE 04404000 CVTRV316 EQU CVTSTATE 04405000 CVTRV315 EQU CVTGTFS 04406000 CVTGTFAV EQU CVTGTFS 04407000 CVT0SCR1 EQU CVTMAP+232 04408000 CVTRV515 EQU CVTMAP+228 04409000 CVTRMS EQU CVTMAP+224 04410000 CVTPATCH EQU CVTMAP+220 04411000 CVTTSCE EQU CVTMAP+216 04412000 CVTLNKSC EQU CVTMAP+214 04413000 CVTQABST EQU CVTMAP+212 04414000 CVTMDLDS EQU CVTMAP+208 04415000 CVTUSER EQU CVTMAP+204 04416000 CVTSMCA EQU CVTMAP+196 04417000 CVTRSV18 EQU CVTMAP+192 04418000 CVTQLPAQ EQU CVTMAP+188 04419000 CVTQCDSR EQU CVTMAP+184 04420000 CVTVS1B EQU CVTOPTB 04421000 CVTVS1A EQU CVTOPTB 04422000 CVTFP EQU CVTOPTB 04423000 CVTAPTHR EQU CVTOPTB 04424000 CVTNLOG EQU CVTOPTB 04425000 CVTTOD EQU CVTOPTB 04426000 CVTCTIMS EQU CVTOPTB 04427000 CVTPROT EQU CVTOPTB 04428000 CVTXPFP EQU CVTOPTA 04429000 CVTASCII EQU CVTOPTA 04430000 CVTRSV13 EQU CVTOPTA 04431000 CVTRSV12 EQU CVTOPTA 04432000 CVTNIP EQU CVTOPTA 04433000 CVTDDR EQU CVTOPTA 04434000 CVTAPR EQU CVTOPTA 04435000 CVTCCH EQU CVTOPTA 04436000 CVTSNCTR EQU CVTMAP+180 04437000 CVTQMWR EQU CVTMAP+176 04438000 CVTQOCR EQU CVTMAP+172 04439000 CVT1EF00 EQU CVTMAP+168 04440000 CVTMZ00 EQU CVTMAP+164 04441000 CVTSV76Q EQU CVTSV76C 04442000 CVTRSV11 EQU CVTMAP+156 04443000 CVT0PT01 EQU CVTMAP+152 04444000 CVTMSER EQU CVTMAP+148 04445000 CVTRV516 EQU CVTIERLC 04446000 CVTILCH EQU CVTMAP+140 04447000 CVT0DS EQU CVTMAP+136 04448000 CVTFBOSV EQU CVTMAP+132 04449000 CVTNUCB EQU CVTMAP+128 04450000 CVTIXAVL EQU CVTMAP+124 04451000 CVTSV76M EQU CVTIOQET 04452000 CVTDCBA EQU CVTMAP+117 04453000 CVTMVS2 EQU CVTDCB 04454000 CVT6DAT EQU CVTDCB 04455000 CVT4MPS EQU CVTDCB 04456000 CVTRSV09 EQU CVTDCB 04457000 CVT4MS1 EQU CVTDCB 04458000 CVT2SPS EQU CVTDCB 04459000 CVT1SSS EQU CVTDCB 04460000 CVTRSV08 EQU CVTDCB 04461000 CVTSTB EQU CVTMAP+112 04462000 CVTQTD00 EQU CVTMAP+108 04463000 CVTQTE00 EQU CVTMAP+104 04464000 CVTCUCB EQU CVTMAP+100 04465000 CVTSJQ EQU CVTMAP+96 04466000 CVTPBLDL EQU CVTMAP+92 04467000 CVTTPC EQU CVTMAP+88 04468000 CVTSVDCB EQU CVTMAP+84 04469000 CVTBRET EQU CVTMAP+82 04470000 CVT0FN00 EQU CVTMAP+76 04471000 CVTDARA EQU CVTDAR+1 04472000 CVTRSV07 EQU CVTFLGS1 04473000 CVTRSV06 EQU CVTFLGS1 04474000 CVTRSV05 EQU CVTFLGS1 04475000 CVTRSV04 EQU CVTFLGS1 04476000 CVTRSV03 EQU CVTFLGS1 04477000 CVTRSV02 EQU CVTFLGS1 04478000 CVTRSV01 EQU CVTFLGS1 04479000 CVTDMPLK EQU CVTFLGS1 04480000 CVTXITP EQU CVTMAP+68 04481000 CVTZDTAB EQU CVTMAP+64 04482000 CVTMSLT EQU CVTMAP+60 04483000 CVTDATE EQU CVTMAP+56 04484000 CVTBTERM EQU CVTMAP+52 04485000 CVTSYSAD EQU CVTMAP+48 04486000 CVTXTLER EQU CVTMAP+44 04487000 CVTILK2 EQU CVTMAP+40 04488000 CVTILK1 EQU CVTMAP+36 04489000 CVTPRLTV EQU CVTMAP+32 04490000 CVTPCNVT EQU CVTMAP+28 04491000 CVT0VL00 EQU CVTMAP+24 04492000 CVTXAPG EQU CVTMAP+20 04493000 CVTBUF EQU CVTMAP+16 04494000 CVTJOB EQU CVTMAP+12 04495000 CVTLINK EQU CVTMAP+8 04496000 CVT0EF00 EQU CVTMAP+4 04497000 CVTTCBP EQU CVTMAP 04498000 CVT EQU CVTMAP 04499000 RTCTISVC EQU RTCTSDO4 04500000 RTCTSDOV EQU RTCTSDMG 04501000 @NM00106 EQU RTCTSDO4 04502000 @NM00105 EQU RTCTSDO3 04503000 RTCTSDPH EQU RTCTSDO3 04504000 RTCTSDPG EQU RTCTSDO3 04505000 @NM00104 EQU RTCTSDO2 04506000 RTCTSDPD EQU RTCTSDO2 04507000 RTCTSDPC EQU RTCTSDO2 04508000 RTCTSDPB EQU RTCTSDO2 04509000 RTCTSDPA EQU RTCTSDO2 04510000 RTCTSDP9 EQU RTCTSDO2 04511000 RTCTSDP8 EQU RTCTSDO2 04512000 RTCTSDP7 EQU RTCTSDO1 04513000 RTCTSDP6 EQU RTCTSDO1 04514000 RTCTSDP5 EQU RTCTSDO1 04515000 RTCTSDP4 EQU RTCTSDO1 04516000 RTCTSDP3 EQU RTCTSDO1 04517000 RTCTSDP2 EQU RTCTSDO1 04518000 RTCTSDP1 EQU RTCTSDO1 04519000 RTCTSDP0 EQU RTCTSDO1 04520000 RTCTISYM EQU RTCTSD04 04521000 RTCTSMOV EQU RTCTSMMG 04522000 @NM00103 EQU RTCTSD04 04523000 RTCTSD03 EQU RTCTMSYO+2 04524000 RTCTSD02 EQU RTCTMSYO+1 04525000 RTCTSDS7 EQU RTCTSD01 04526000 RTCTSDS6 EQU RTCTSD01 04527000 RTCTSDS5 EQU RTCTSD01 04528000 RTCTSDS4 EQU RTCTSD01 04529000 RTCTSDS3 EQU RTCTSD01 04530000 RTCTSDS2 EQU RTCTSD01 04531000 RTCTSDS1 EQU RTCTSD01 04532000 RTCTSDS0 EQU RTCTSD01 04533000 RTCTISYU EQU RTCTSUO4 04534000 RTCTSUOV EQU RTCTSUMG 04535000 @NM00102 EQU RTCTSUO4 04536000 RTCTSYDF EQU RTCTSUO3 04537000 RTCTSYDE EQU RTCTSUO3 04538000 RTCTSYDD EQU RTCTSUO3 04539000 RTCTSYDC EQU RTCTSUO3 04540000 RTCTSYDB EQU RTCTSUO3 04541000 RTCTSYDA EQU RTCTSUO3 04542000 RTCTSYD9 EQU RTCTSUO3 04543000 RTCTSYD8 EQU RTCTSUO3 04544000 @NM00101 EQU RTCTSUO2 04545000 RTCTSYDH EQU RTCTSUO2 04546000 RTCTSYDG EQU RTCTSUO2 04547000 RTCTSYD7 EQU RTCTSUO1 04548000 RTCTSYD6 EQU RTCTSUO1 04549000 RTCTSYD5 EQU RTCTSUO1 04550000 RTCTSYD4 EQU RTCTSUO1 04551000 RTCTSYD3 EQU RTCTSUO1 04552000 RTCTSYD2 EQU RTCTSUO1 04553000 RTCTSYD1 EQU RTCTSUO1 04554000 RTCTSYD0 EQU RTCTSUO1 04555000 RTCTISAB EQU RTCTSAO4 04556000 RTCTSAOV EQU RTCTSAMG 04557000 @NM00100 EQU RTCTSAO4 04558000 RTCTSADF EQU RTCTSAO3 04559000 RTCTSADE EQU RTCTSAO3 04560000 RTCTSADD EQU RTCTSAO3 04561000 RTCTSADC EQU RTCTSAO3 04562000 RTCTSADB EQU RTCTSAO3 04563000 RTCTSADA EQU RTCTSAO3 04564000 RTCTSAD9 EQU RTCTSAO3 04565000 RTCTSAD8 EQU RTCTSAO3 04566000 @NM00099 EQU RTCTSAO2 04567000 RTCTSADH EQU RTCTSAO2 04568000 RTCTSADG EQU RTCTSAO2 04569000 RTCTSAD7 EQU RTCTSAO1 04570000 RTCTSAD6 EQU RTCTSAO1 04571000 RTCTSAD5 EQU RTCTSAO1 04572000 RTCTSAD4 EQU RTCTSAO1 04573000 RTCTSAD3 EQU RTCTSAO1 04574000 RTCTSAD2 EQU RTCTSAO1 04575000 RTCTSAD1 EQU RTCTSAO1 04576000 RTCTSAD0 EQU RTCTSAO1 04577000 RTCTZZZ5 EQU RTCT+340 04578000 RTCTZZZ4 EQU RTCT+336 04579000 RTCTMRMQ EQU RTCT+332 04580000 RTCTSDF5 EQU RTCTSDF3+3 04581000 RTCTSDDO EQU RTCTSDF4 04582000 RTCTSDEN EQU RTCTSDF4 04583000 RTCTSDEQ EQU RTCTSDF4 04584000 RTCTSDTR EQU RTCTSDF4 04585000 RTCTSDRM EQU RTCTSDF4 04586000 RTCTSDAN EQU RTCTSDF4 04587000 RTCTSDNC EQU RTCTSDF4 04588000 RTCTSDSS EQU RTCTSDF4 04589000 RTCTSDAS EQU RTCTSDF3 04590000 @NM00098 EQU RTCTC3PO 04591000 @NM00097 EQU RTCTR2D2 04592000 RTCTSDFX EQU RTCTSDF2 04593000 RTCTSDRW EQU RTCTSDF2 04594000 RTCTSDSL EQU RTCTSDF2 04595000 RTCTSDWF EQU RTCTSDF2 04596000 RTCTSDLA EQU RTCTSDF2 04597000 RTCTSDDI EQU RTCTSDF2 04598000 RTCTSDTQ EQU RTCTSDF2 04599000 RTCTSDMR EQU RTCTSDF2 04600000 RTCTSDSC EQU RTCTSDF1 04601000 RTCTSDRS EQU RTCTSDF1 04602000 RTCTSDSD EQU RTCTSDF1 04603000 RTCTSDEP EQU RTCTSDF1 04604000 RTCTSDMA EQU RTCTSDF1 04605000 RTCTSDSH EQU RTCTSDF1 04606000 RTCTSDND EQU RTCTSDF1 04607000 RTCTSDNO EQU RTCTSDF1 04608000 RTCTZZZ2 EQU RTCT+257 04609000 RTCTSDPR EQU RTCTSDI+2 04610000 RTCTINDX EQU RTCTSDI+1 04611000 RTCTSDNA EQU RTCTSDI 04612000 @NM00096 EQU RTCTASO2 04613000 RTCTASNQ EQU RTCTASO2 04614000 RTCTASNA EQU RTCTASO2 04615000 RTCTASNS EQU RTCTASO2 04616000 RTCTASSU EQU RTCTASO2 04617000 RTCTASSW EQU RTCTASO2 04618000 RTCTASCS EQU RTCTASO2 04619000 RTCTASTR EQU RTCTASO1 04620000 RTCTASLP EQU RTCTASO1 04621000 RTCTASRG EQU RTCTASO1 04622000 RTCTASLS EQU RTCTASO1 04623000 RTCTASSQ EQU RTCTASO1 04624000 RTCTASNU EQU RTCTASO1 04625000 RTCTASPS EQU RTCTASO1 04626000 RTCTASAL EQU RTCTASO1 04627000 RTCTSDO EQU RTCTOPT+12 04628000 RTCTSYO EQU RTCTOPT+8 04629000 RTCTSUO EQU RTCTOPT+4 04630000 RTCTSAO EQU RTCTOPT 04631000 RTCTXXX2 EQU RTCT+234 04632000 RTCTETIM EQU RTCTERID+6 04633000 RTCTEASD EQU RTCTERID+4 04634000 RTCTECPU EQU RTCTERID+2 04635000 RTCTESEQ EQU RTCTERID 04636000 RTCTSDWK EQU RTCT+220 04637000 RTCTTDCB EQU RTCT+184 04638000 RTCTSDSW EQU RTCT+180 04639000 RTCTSEQ# EQU RTCT+178 04640000 RTCTXXX1 EQU RTCT+177 04641000 @NM00095 EQU RTCTRFLG 04642000 RTCTRSTF EQU RTCTRFLG 04643000 RTCTRPER EQU RTCTRFLG 04644000 RTCTRTER EQU RTCTRFLG 04645000 RTCTTEST EQU RTCT+172 04646000 RTCTMSRB EQU RTCT+168 04647000 RTCTMLCK EQU RTCT+164 04648000 RTCTFMT EQU RTCT+160 04649000 RTCTSDIP EQU RTCTSDPL 04650000 RTCTDEV EQU RTCTSDDS+8 04651000 RTCTDCB EQU RTCTSDDS+4 04652000 @NM00094 EQU RTCTFLG 04653000 RTCTDETP EQU RTCTFLG 04654000 RTCTDSUS EQU RTCTFLG 04655000 RTCTDSST EQU RTCTFLG 04656000 RTCTDSNM EQU RTCTSDDS 04657000 RTCTRCB EQU RTCT+32 04658000 RTCTRECB EQU RTCT+28 04659000 RTCTFASB EQU RTCT+24 04660000 RTCTMECB EQU RTCT+20 04661000 RTCTSDID EQU RTCT+18 04662000 RTCTYYY1 EQU RTCT+16 04663000 RTCTSY04 EQU RTCTSYD+3 04664000 RTCTSY03 EQU RTCTSYD+2 04665000 RTCTSY02 EQU RTCTSYD+1 04666000 RTCTSYM7 EQU RTCTSY01 04667000 RTCTSYM6 EQU RTCTSY01 04668000 RTCTSYM5 EQU RTCTSY01 04669000 RTCTSYM4 EQU RTCTSY01 04670000 RTCTSYM3 EQU RTCTSY01 04671000 RTCTSYM2 EQU RTCTSY01 04672000 RTCTSYM1 EQU RTCTSY01 04673000 RTCTSYM0 EQU RTCTSY01 04674000 RTCTSUP4 EQU RTCTSUP+3 04675000 RTCTSUDF EQU RTCTSUP3 04676000 RTCTSUDE EQU RTCTSUP3 04677000 RTCTSUDD EQU RTCTSUP3 04678000 RTCTSUDC EQU RTCTSUP3 04679000 RTCTSUDB EQU RTCTSUP3 04680000 RTCTSUDA EQU RTCTSUP3 04681000 RTCTSUD9 EQU RTCTSUP3 04682000 RTCTSUD8 EQU RTCTSUP3 04683000 @NM00093 EQU RTCTSUP2 04684000 RTCTSUDH EQU RTCTSUP2 04685000 RTCTSUDG EQU RTCTSUP2 04686000 RTCTSUD7 EQU RTCTSUP1 04687000 RTCTSUD6 EQU RTCTSUP1 04688000 RTCTSUD5 EQU RTCTSUP1 04689000 RTCTSUD4 EQU RTCTSUP1 04690000 RTCTSUD3 EQU RTCTSUP1 04691000 RTCTSUD2 EQU RTCTSUP1 04692000 RTCTSUD1 EQU RTCTSUP1 04693000 RTCTSUD0 EQU RTCTSUP1 04694000 RTCTSAP4 EQU RTCTSAP+3 04695000 RTCTSABF EQU RTCTSAP3 04696000 RTCTSABE EQU RTCTSAP3 04697000 RTCTSABD EQU RTCTSAP3 04698000 RTCTSABC EQU RTCTSAP3 04699000 RTCTSABB EQU RTCTSAP3 04700000 RTCTSABA EQU RTCTSAP3 04701000 RTCTSAB9 EQU RTCTSAP3 04702000 RTCTSAB8 EQU RTCTSAP3 04703000 @NM00092 EQU RTCTSAP2 04704000 RTCTSABH EQU RTCTSAP2 04705000 RTCTSABG EQU RTCTSAP2 04706000 RTCTSAB7 EQU RTCTSAP1 04707000 RTCTSAB6 EQU RTCTSAP1 04708000 RTCTSAB5 EQU RTCTSAP1 04709000 RTCTSAB4 EQU RTCTSAP1 04710000 RTCTSAB3 EQU RTCTSAP1 04711000 RTCTSAB2 EQU RTCTSAP1 04712000 RTCTSAB1 EQU RTCTSAP1 04713000 RTCTSAB0 EQU RTCTSAP1 04714000 RTCTNAME EQU RTCT 04715000 CDATTR3 EQU CDENTRY+30 04716000 CDAUTH EQU CDATTR2 04717000 CDSYSLIB EQU CDATTR2 04718000 CDOLY EQU CDATTR2 04719000 @NM00091 EQU CDATTR2 04720000 CDRLC EQU CDATTR2 04721000 CDREL EQU CDATTR2 04722000 CDSPZ EQU CDATTR2 04723000 CDNLR EQU CDATTR 04724000 CDJPA EQU CDATTR 04725000 CDNFN EQU CDATTR 04726000 CDSER EQU CDATTR 04727000 CDREN EQU CDATTR 04728000 CDNIP EQU CDATTR 04729000 @NM00090 EQU CDENTRY+26 04730000 CDUSE EQU CDENTRY+24 04731000 CDENTPT EQU CDENTRY+16 04732000 CDNAME EQU CDENTRY+8 04733000 CDRRBP EQU CDENTRY+4 04734000 CDCHAIN EQU CDENTRY 04735000 SCBRSVRE EQU SCBDATA+3 04736000 SCBID EQU SCBDATA+2 04737000 @NM00089 EQU SCBFLGS3 04738000 SCBTERMO EQU SCBFLGS3 04739000 SCBBRNTR EQU SCBFLGS3 04740000 SCBPRNTR EQU SCBFLGS3 04741000 SCBCNCEL EQU SCBFLGS3 04742000 SCBRECRD EQU SCBFLGS3 04743000 SCBTERMI EQU SCBFLGS3 04744000 @NM00088 EQU SCBFLGS3 04745000 SCBKEY0 EQU SCBFLGS2 04746000 @NM00087 EQU SCBFLGS2 04747000 @NM00086 EQU SCBFLGS2 04748000 @NM00085 EQU SCBFLGS2 04749000 SCBXCTL2 EQU SCBFLGS2 04750000 @NM00084 EQU SCBFLGS2 04751000 SCBHALT EQU SCBIOPRC 04752000 SCBNOIOP EQU SCBIOPRC 04753000 SCBASYNC EQU SCBFLGS1 04754000 @NM00083 EQU SCBFLGS1 04755000 SCBDUMMY EQU SCBFLGS1 04756000 SCBEXIT EQU SCB+4 04757000 @NM00082 EQU SDWA+512 04758000 SDWAVRA EQU SDWARA+4 04759000 SDWAURAL EQU SDWARA+3 04760000 @NM00081 EQU SDWADPVA 04761000 SDWAEBC EQU SDWADPVA 04762000 SDWAHEX EQU SDWADPVA 04763000 SDWAVRAL EQU SDWARA 04764000 SDWAERTM EQU SDWA+396 04765000 SDWARCPL EQU SDWA+364 04766000 @NM00080 EQU SDWADPSA+32 04767000 SDWATO4 EQU SDWADPSL+28 04768000 SDWAFRM4 EQU SDWADPSL+24 04769000 SDWATO3 EQU SDWADPSL+20 04770000 SDWAFRM3 EQU SDWADPSL+16 04771000 SDWATO2 EQU SDWADPSL+12 04772000 SDWAFRM2 EQU SDWADPSL+8 04773000 SDWATO1 EQU SDWADPSL+4 04774000 SDWAFRM1 EQU SDWADPSL 04775000 @NM00079 EQU SDWADDAT+3 04776000 @NM00078 EQU SDWAPDAT 04777000 SDWAUSPL EQU SDWAPDAT 04778000 SDWADPSW EQU SDWAPDAT 04779000 SDWATJPA EQU SDWAPDAT 04780000 SDWATLPA EQU SDWAPDAT 04781000 SDWADREG EQU SDWAPDAT 04782000 SDWADSAH EQU SDWAPDAT 04783000 SDWADSAS EQU SDWAPDAT 04784000 @NM00077 EQU SDWASDA1 04785000 SDWAERR EQU SDWASDA1 04786000 SDWAIO EQU SDWASDA1 04787000 SDWADM EQU SDWASDA0 04788000 SDWAQQS EQU SDWASDA0 04789000 SDWACBS EQU SDWASDA0 04790000 SDWAGTF EQU SDWASDA0 04791000 SDWASWA EQU SDWASDA0 04792000 SDWALSQA EQU SDWASDA0 04793000 SDWASQA EQU SDWASDA0 04794000 SDWANUC EQU SDWASDA0 04795000 @NM00076 EQU SDWADUMP+2 04796000 @NM00075 EQU SDWADPFS 04797000 SDWASLST EQU SDWADPFS 04798000 @NM00074 EQU SDWADPFS 04799000 SDWAENSN EQU SDWADPFS 04800000 SDWADLST EQU SDWADPFS 04801000 SDWADPT EQU SDWADPFS 04802000 SDWADPID EQU SDWADUMP 04803000 SDWADPLA EQU SDWA+316 04804000 SDWAREXN EQU SDWARECP+16 04805000 SDWACSCT EQU SDWARECP+8 04806000 SDWAMODN EQU SDWARECP 04807000 SDWASEQ# EQU SDWA+290 04808000 SDWAASID EQU SDWA+288 04809000 SDWATALW EQU SDWALKWS+28 04810000 SDWATDLW EQU SDWALKWS+24 04811000 SDWATNLW EQU SDWALKWS+20 04812000 SDWAAPLW EQU SDWALKWS+16 04813000 SDWAIPLW EQU SDWALKWS+12 04814000 SDWAILLW EQU SDWALKWS+8 04815000 SDWAIULW EQU SDWALKWS+4 04816000 SDWAICLW EQU SDWALKWS 04817000 SDWAFLLK EQU SDWAACF4 04818000 SDWACMS EQU SDWAACF4 04819000 SDWAOPTM EQU SDWAACF4 04820000 SDWATADB EQU SDWAACF4 04821000 SDWATDNB EQU SDWAACF4 04822000 SDWATNCB EQU SDWAACF4 04823000 SDWAILCH EQU SDWAACF4 04824000 SDWAIUCB EQU SDWAACF4 04825000 SDWAICAT EQU SDWAACF3 04826000 SDWAIPRG EQU SDWAACF3 04827000 SDWASALL EQU SDWAACF3 04828000 SDWAASMP EQU SDWAACF3 04829000 SDWADISP EQU SDWAACF3 04830000 @NM00073 EQU SDWAACF3 04831000 @NM00072 EQU SDWAACF2 04832000 @NM00071 EQU SDWAACF2 04833000 SDWASPIN EQU SDWAACF2 04834000 @NM00070 EQU SDWAACF2 04835000 SDWARCRD EQU SDWAACF2 04836000 SDWARCDE EQU SDWAPARQ 04837000 SDWALCPU EQU SDWACPUA+2 04838000 @NM00069 EQU SDWACPUA 04839000 SDWARECA EQU SDWA+244 04840000 SDWARTYA EQU SDWA+240 04841000 SDWACPUI EQU SDWA+239 04842000 @NM00068 EQU SDWAIOFS 04843000 SDWANIOP EQU SDWAIOFS 04844000 SDWANOIO EQU SDWAIOFS 04845000 SDWAIOHT EQU SDWAIOFS 04846000 SDWAIOQR EQU SDWAIOFS 04847000 SDWAFMID EQU SDWA+236 04848000 SDWAERFL EQU SDWAERRD 04849000 SDWAMCIV EQU SDWAERRD 04850000 SDWARPIV EQU SDWAERRD 04851000 SDWAMABD EQU SDWAERRD 04852000 SDWACTS EQU SDWAERRD 04853000 SDWASTAE EQU SDWAERRD 04854000 SDWANRBE EQU SDWAERRD 04855000 SDWACLUP EQU SDWAERRD 04856000 @NM00067 EQU SDWAERRC 04857000 SDWAPERC EQU SDWAERRC 04858000 SDWAIRB EQU SDWAERRC 04859000 SDWASTAI EQU SDWAERRC 04860000 SDWASTAF EQU SDWAERRC 04861000 SDWASRBM EQU SDWAERRB 04862000 SDWALDIS EQU SDWAERRB 04863000 SDWAENRB EQU SDWAERRB 04864000 SDWATYP1 EQU SDWAERRB 04865000 @NM00066 EQU SDWAERRB 04866000 SDWAPGIO EQU SDWAERRA 04867000 SDWATEXC EQU SDWAERRA 04868000 SDWASVCE EQU SDWAERRA 04869000 SDWAABTM EQU SDWAERRA 04870000 SDWASVCD EQU SDWAERRA 04871000 SDWARKEY EQU SDWAERRA 04872000 SDWAPCHK EQU SDWAERRA 04873000 SDWAMCHK EQU SDWAERRA 04874000 SDWATIME EQU SDWAMCH+20 04875000 SDWARFSA EQU SDWAMCH+16 04876000 @NM00065 EQU SDWAMCH+14 04877000 SDWAVEQR EQU SDWARSR2 04878000 SDWAPGFX EQU SDWARSR2 04879000 SDWAFLSQ EQU SDWARSR2 04880000 SDWAFSQA EQU SDWARSR2 04881000 SDWANUCL EQU SDWARSR2 04882000 SDWASPER EQU SDWARSR2 04883000 SDWAINTC EQU SDWARSR2 04884000 SDWAOFLN EQU SDWARSR2 04885000 SDWACHNG EQU SDWARSR1 04886000 SDWAMSER EQU SDWARSR1 04887000 @NM00064 EQU SDWARSR1 04888000 SDWACPID EQU SDWAMCH+10 04889000 SDWATERR EQU SDWAMCHD 04890000 SDWAFPRX EQU SDWAMCHD 04891000 SDWAINSF EQU SDWAMCHD 04892000 SDWAACR EQU SDWAMCHD 04893000 SDWASCK EQU SDWAMCHD 04894000 SDWAPSWU EQU SDWAMCHD 04895000 SDWAREGU EQU SDWAMCHD 04896000 SDWASKYF EQU SDWAMCHD 04897000 @NM00063 EQU SDWAMCHS 04898000 SDWARSRF EQU SDWAMCHS 04899000 SDWARSRC EQU SDWAMCHS 04900000 SDWAINVP EQU SDWAMCHS 04901000 SDWATSVL EQU SDWAMCHS 04902000 SDWARCDF EQU SDWAMCHS 04903000 SDWASRVL EQU SDWAMCHS 04904000 SDWASCKE EQU SDWASTCK+4 04905000 SDWASCKB EQU SDWASTCK 04906000 SDWASPID EQU SDWAIDNT 04907000 SDWASR15 EQU SDWASRSV+60 04908000 SDWASR14 EQU SDWASRSV+56 04909000 SDWASR13 EQU SDWASRSV+52 04910000 SDWASR12 EQU SDWASRSV+48 04911000 SDWASR11 EQU SDWASRSV+44 04912000 SDWASR10 EQU SDWASRSV+40 04913000 SDWASR09 EQU SDWASRSV+36 04914000 SDWASR08 EQU SDWASRSV+32 04915000 SDWASR07 EQU SDWASRSV+28 04916000 SDWASR06 EQU SDWASRSV+24 04917000 SDWASR05 EQU SDWASRSV+20 04918000 SDWASR04 EQU SDWASRSV+16 04919000 SDWASR03 EQU SDWASRSV+12 04920000 SDWASR02 EQU SDWASRSV+8 04921000 SDWASR01 EQU SDWASRSV+4 04922000 SDWASR00 EQU SDWASRSV 04923000 SDWATRN2 EQU SDWAAEC2+4 04924000 SDWAIPC2 EQU SDWAICD2 04925000 SDWAIMC2 EQU SDWAICD2 04926000 SDWAIPR2 EQU SDWAICD2 04927000 @NM00062 EQU SDWAINC2 04928000 @NM00061 EQU SDWAILC2 04929000 SDWAIL2 EQU SDWAILC2 04930000 @NM00060 EQU SDWAILC2 04931000 @NM00059 EQU SDWAAEC2 04932000 SDWAADD2 EQU SDWANXT2+1 04933000 @NM00058 EQU SDWANXT2 04934000 @NM00057 EQU SDWAEC2+3 04935000 SDWASGN2 EQU SDWAINT2 04936000 SDWAEXP2 EQU SDWAINT2 04937000 SDWADEC2 EQU SDWAINT2 04938000 SDWAFPO2 EQU SDWAINT2 04939000 SDWACC2 EQU SDWAINT2 04940000 @NM00056 EQU SDWAINT2 04941000 SDWAPGM2 EQU SDWAMWP2 04942000 SDWAWAT2 EQU SDWAMWP2 04943000 SDWAMCK2 EQU SDWAMWP2 04944000 SDWAECT2 EQU SDWAMWP2 04945000 SDWAKEY2 EQU SDWAMWP2 04946000 SDWAEXT2 EQU SDWAEMK2 04947000 SDWAIO2 EQU SDWAEMK2 04948000 SDWATRM2 EQU SDWAEMK2 04949000 @NM00055 EQU SDWAEMK2 04950000 SDWAPER2 EQU SDWAEMK2 04951000 @NM00054 EQU SDWAEMK2 04952000 SDWATRAN EQU SDWAAEC1+4 04953000 SDWAIPC1 EQU SDWAICD1 04954000 SDWAIMC1 EQU SDWAICD1 04955000 SDWAIPR1 EQU SDWAICD1 04956000 @NM00053 EQU SDWAINC1 04957000 @NM00052 EQU SDWAILC1 04958000 SDWAIL1 EQU SDWAILC1 04959000 @NM00051 EQU SDWAILC1 04960000 @NM00050 EQU SDWAAEC1 04961000 SDWAADD1 EQU SDWANXT1+1 04962000 @NM00049 EQU SDWANXT1 04963000 @NM00048 EQU SDWAEC1+3 04964000 SDWASGN1 EQU SDWAINT1 04965000 SDWAEXP1 EQU SDWAINT1 04966000 SDWADEC1 EQU SDWAINT1 04967000 SDWAFPO1 EQU SDWAINT1 04968000 SDWACC1 EQU SDWAINT1 04969000 @NM00047 EQU SDWAINT1 04970000 SDWAPGM1 EQU SDWAMWP1 04971000 SDWAWAT1 EQU SDWAMWP1 04972000 SDWAMCK1 EQU SDWAMWP1 04973000 SDWAECT1 EQU SDWAMWP1 04974000 SDWAKEY1 EQU SDWAMWP1 04975000 SDWAEXT1 EQU SDWAEMK1 04976000 SDWAIO1 EQU SDWAEMK1 04977000 SDWATRM1 EQU SDWAEMK1 04978000 @NM00046 EQU SDWAEMK1 04979000 SDWAPER1 EQU SDWAEMK1 04980000 @NM00045 EQU SDWAEMK1 04981000 SDWAEPA EQU SDWA+96 04982000 @NM00044 EQU SDWANAME+4 04983000 SDWARBAD EQU SDWANAME 04984000 SDWAGR15 EQU SDWAGRSV+60 04985000 SDWAGR14 EQU SDWAGRSV+56 04986000 SDWAGR13 EQU SDWAGRSV+52 04987000 SDWAGR12 EQU SDWAGRSV+48 04988000 SDWAGR11 EQU SDWAGRSV+44 04989000 SDWAGR10 EQU SDWAGRSV+40 04990000 SDWAGR09 EQU SDWAGRSV+36 04991000 SDWAGR08 EQU SDWAGRSV+32 04992000 SDWAGR07 EQU SDWAGRSV+28 04993000 SDWAGR06 EQU SDWAGRSV+24 04994000 SDWAGR05 EQU SDWAGRSV+20 04995000 SDWAGR04 EQU SDWAGRSV+16 04996000 SDWAGR03 EQU SDWAGRSV+12 04997000 SDWAGR02 EQU SDWAGRSV+8 04998000 SDWAGR01 EQU SDWAGRSV+4 04999000 SDWAGR00 EQU SDWAGRSV 05000000 SDWANXTP EQU SDWACTL2+5 05001000 SDWASGP EQU SDWAPMKP 05002000 SDWAEUP EQU SDWAPMKP 05003000 SDWADOP EQU SDWAPMKP 05004000 SDWAFPP EQU SDWAPMKP 05005000 SDWACCP EQU SDWAPMKP 05006000 SDWAILP EQU SDWAPMKP 05007000 SDWAINTP EQU SDWACTL2+2 05008000 SDWASPVP EQU SDWAMWPP 05009000 SDWAWATP EQU SDWAMWPP 05010000 SDWAMCKP EQU SDWAMWPP 05011000 @NM00043 EQU SDWAMWPP 05012000 SDWAKEYP EQU SDWAMWPP 05013000 SDWAEXTP EQU SDWACMKP 05014000 SDWAIOP EQU SDWACMKP 05015000 SDWANXTA EQU SDWACTL1+5 05016000 SDWASGA EQU SDWAPMKA 05017000 SDWAEUA EQU SDWAPMKA 05018000 SDWADOA EQU SDWAPMKA 05019000 SDWAFPA EQU SDWAPMKA 05020000 SDWACCA EQU SDWAPMKA 05021000 SDWAILA EQU SDWAPMKA 05022000 SDWAINTA EQU SDWACTL1+2 05023000 SDWASPVA EQU SDWAMWPA 05024000 SDWAWATA EQU SDWAMWPA 05025000 SDWAMCKA EQU SDWAMWPA 05026000 @NM00042 EQU SDWAMWPA 05027000 SDWAKEYA EQU SDWAMWPA 05028000 SDWAEXTA EQU SDWACMKA 05029000 SDWAIOA EQU SDWACMKA 05030000 @NM00041 EQU SDWACMPF 05031000 SDWASTCC EQU SDWACMPF 05032000 @NM00040 EQU SDWACMPF 05033000 SDWASTEP EQU SDWACMPF 05034000 SDWAREQ EQU SDWACMPF 05035000 SDWAPARM EQU SDWA 05036000 STORBTO EQU STORTO 05037000 STORB EQU STORFRM 05038000 RTM2TECB EQU RTM2RYRG+64 05039000 RTM2TRLS EQU RTM2ENSN+16 05040000 RTM2TRFS EQU RTM2ENSN+12 05041000 RTM2TRCU EQU RTM2ENSN+8 05042000 RTM2TRTB EQU RTM2ENSN+4 05043000 RTM2TRLN EQU RTM2SNLN 05044000 @NM00039 EQU RTM2WA+882 05045000 RTM2ERTM EQU RTM2ERID+6 05046000 RTM2ERAS EQU RTM2ERID+4 05047000 RTM2CPUI EQU RTM2ERID+2 05048000 RTM2SEQ# EQU RTM2ERID 05049000 RTM2RMWS EQU RTM2RMWA 05050000 RTM2CREG EQU RTM2CRG 05051000 RTM2RBRG EQU RTM2CVER+313 05052000 RTM2WARG EQU RTM2CVER+312 05053000 @NM00038 EQU RTM2CVER+310 05054000 RTM2CTRA EQU RTM2RECH+12 05055000 RTM2STRA EQU RTM2RECH+8 05056000 RTM2SKRA EQU RTM2RECH+4 05057000 @NM00037 EQU RTM2TRYR+3 05058000 @NM00036 EQU RTM2TRF2 05059000 RTM2GMR EQU RTM2TRF2 05060000 RTM2PPR EQU RTM2TRF2 05061000 RTM2IOR EQU RTM2TRF2 05062000 RTM2XIP EQU RTM2TRF1+1 05063000 RTM2RCD EQU RTM2TRF1+1 05064000 RTM2VLDY EQU RTM2TRF1 05065000 RTM2HOOK EQU RTM2TRF1 05066000 RTM2PPS EQU RTM2TRF1 05067000 RTM2GMS EQU RTM2TRF1 05068000 RTM2IORS EQU RTM2TRF1 05069000 RTM2IOHS EQU RTM2TRF1 05070000 RTM2IOQS EQU RTM2TRF1 05071000 RTM2TMER EQU RTM2RECL+14 05072000 RTM2EQMN EQU RTM2ECTL 05073000 RTM2EDEQ EQU RTM2ECTL 05074000 RTM2EFRM EQU RTM2ECTL 05075000 RTM2ECLS EQU RTM2ECTL 05076000 RTM2ESNP EQU RTM2ECTL 05077000 RTM2EOPN EQU RTM2ECTL 05078000 RTM2EGET EQU RTM2ECTL 05079000 RTM2EENQ EQU RTM2ECTL 05080000 RTM2DFTK EQU RTM2DCTL 05081000 RTM2DDEQ EQU RTM2DCTL 05082000 RTM2DFRM EQU RTM2DCTL 05083000 RTM2DCLS EQU RTM2DCTL 05084000 RTM2DSNP EQU RTM2DCTL 05085000 RTM2DOPN EQU RTM2DCTL 05086000 RTM2DGET EQU RTM2DCTL 05087000 RTM2DENQ EQU RTM2DCTL 05088000 RTM2SCTX EQU RTM2RECL+8 05089000 RTM2SCTR EQU RTM2RECL+4 05090000 RTM2SCTC EQU RTM2RECL 05091000 @NM00035 EQU RTM2FLX2 05092000 RTM2CERX EQU RTM2FLX2 05093000 RTM2RCRX EQU RTM2FLX2 05094000 RTM2RTRX EQU RTM2FLX1 05095000 RTM2LTX EQU RTM2FLX1 05096000 RTM2PRX EQU RTM2FLX1 05097000 RTM2CVX EQU RTM2FLX1 05098000 RTM2DWX EQU RTM2FLX1 05099000 RTM2ABX EQU RTM2FLX1 05100000 RTM2EOTX EQU RTM2FLX1 05101000 RTM2MTX EQU RTM2FLX1 05102000 @NM00034 EQU RTM2ASIR 05103000 RTM2TRME EQU RTM2ASIR 05104000 @NM00033 EQU RTM2ABDP 05105000 RTM2SMDP EQU RTM2ABDP 05106000 RTM2DMP1 EQU RTM2ABDP 05107000 RTM2MEMT EQU RTM2INTF+3 05108000 @NM00032 EQU RTM2TSKT 05109000 RTM2PURG EQU RTM2TSKT 05110000 @NM00031 EQU RTM2INTF+1 05111000 @NM00030 EQU RTM2CTLR 05112000 RTM2WRAP EQU RTM2CTLR 05113000 RTM2TMEM EQU RTM2CTLR 05114000 RTM2RECR EQU RTM2CTLR 05115000 @NM00029 EQU RTM2RCTL 05116000 RTM2JPAQ EQU RTM2RCTL 05117000 RTM2LPAQ EQU RTM2RCTL 05118000 RTM2BFTL EQU RTM2RCTL 05119000 RTM2TRSW EQU RTM2RCTL 05120000 RTM2STAT EQU RTM2ABND 05121000 RTM2NDMP EQU RTM2ABND 05122000 @NM00028 EQU RTM2ABID 05123000 RTM2OERR EQU RTM2ABID 05124000 RTM2SAV2 EQU RTM2ABID 05125000 RTM2SAVE EQU RTM2ABID 05126000 RTM2REG EQU RTM2ABID 05127000 RTM2PSW EQU RTM2ABID 05128000 RTM2ENQ EQU RTM2ABID 05129000 RTM2CB EQU RTM2ABID 05130000 RTM2MCTL EQU RTM2SCTL+3 05131000 RTM2TCTL EQU RTM2SCTL+2 05132000 @NM00027 EQU RTM2CCTL+1 05133000 RTM2PPIO EQU RTM2CCTL+1 05134000 RTM2INPG EQU RTM2CCTL+1 05135000 RTM2NODP EQU RTM2CCTL+1 05136000 RTM2RGEB EQU RTM2CCTL+1 05137000 RTM2DEND EQU RTM2CCTL+1 05138000 RTM2RSCN EQU RTM2CCTL+1 05139000 RTM2CONT EQU RTM2CCTL 05140000 RTM2SLIP EQU RTM2CCTL 05141000 RTM2HEED EQU RTM2CCTL 05142000 RTM2REED EQU RTM2CCTL 05143000 RTM2ISPC EQU RTM2CCTL 05144000 RTM2SQS EQU RTM2CCTL 05145000 RTM2CNCL EQU RTM2CCTL 05146000 RTM2STPT EQU RTM2CCTL 05147000 RTM2PKEY EQU RTM2CVER+258 05148000 RTM2SFSA EQU RTM2SFRG 05149000 RTM2SPWA EQU RTM2CVER+174 05150000 RTM2ECBS EQU RTM2SECB+16 05151000 RTM2LECB EQU RTM2ECBA 05152000 RTM2DTCB EQU RTM2SNAP+68 05153000 RTM2SNCC EQU RTM2SNAP+64 05154000 RTM2DD EQU RTM2SNAP+56 05155000 RTM2LTO4 EQU RTM2TO4 05156000 RTM2LFR4 EQU RTM2FRM4 05157000 RTM2LTO3 EQU RTM2TO3 05158000 RTM2LFR3 EQU RTM2FRM3 05159000 RTM2LTO2 EQU RTM2TO2 05160000 RTM2LFR2 EQU RTM2FRM2 05161000 RTM2LTO1 EQU RTM2TO1 05162000 RTM2LFR1 EQU RTM2FRM1 05163000 RTM2DPLA EQU RTM2SNAP 05164000 RTM2NXTP EQU RTM2CTL2+5 05165000 RTM2SGP EQU RTM2PMKP 05166000 RTM2EUP EQU RTM2PMKP 05167000 RTM2DOP EQU RTM2PMKP 05168000 RTM2FPP EQU RTM2PMKP 05169000 RTM2CCP EQU RTM2PMKP 05170000 RTM2ILP EQU RTM2PMKP 05171000 RTM2INTP EQU RTM2CTL2+2 05172000 RTM2SPVP EQU RTM2MWPP 05173000 RTM2WATP EQU RTM2MWPP 05174000 RTM2MCKP EQU RTM2MWPP 05175000 @NM00026 EQU RTM2MWPP 05176000 RTM2KEYP EQU RTM2MWPP 05177000 RTM2EXTP EQU RTM2CMKP 05178000 RTM2IOP EQU RTM2CMKP 05179000 RTM2NXTA EQU RTM2CTL1+5 05180000 RTM2SGA EQU RTM2PMKA 05181000 RTM2EUA EQU RTM2PMKA 05182000 RTM2DOA EQU RTM2PMKA 05183000 RTM2FPA EQU RTM2PMKA 05184000 RTM2CCA EQU RTM2PMKA 05185000 RTM2ILA EQU RTM2PMKA 05186000 RTM2INTA EQU RTM2CTL1+2 05187000 RTM2SPVA EQU RTM2MWPA 05188000 RTM2WATA EQU RTM2MWPA 05189000 RTM2MCKA EQU RTM2MWPA 05190000 @NM00025 EQU RTM2MWPA 05191000 RTM2KEYA EQU RTM2MWPA 05192000 RTM2EXTA EQU RTM2CMKA 05193000 RTM2IOA EQU RTM2CMKA 05194000 @NM00024 EQU RTM2PARQ+1 05195000 RTM2RBST EQU RTM2TRRC+6 05196000 @NM00023 EQU RTM2IOBP 05197000 @NM00022 EQU RTM2TRRC+1 05198000 @NM00021 EQU RTM2IOFS 05199000 RTM2NIOP EQU RTM2IOFS 05200000 RTM2NOIO EQU RTM2IOFS 05201000 RTM2IOHT EQU RTM2IOFS 05202000 RTM2FMID EQU RTM2TRRY+124 05203000 RTM2ERFL EQU RTM2ERRD 05204000 RTM2MCIV EQU RTM2ERRD 05205000 RTM2RPIV EQU RTM2ERRD 05206000 RTM2MABD EQU RTM2ERRD 05207000 RTM2CTS EQU RTM2ERRD 05208000 RTM2STAE EQU RTM2ERRD 05209000 RTM2NRBE EQU RTM2ERRD 05210000 @NM00020 EQU RTM2ERRC 05211000 RTM2IRB EQU RTM2ERRC 05212000 RTM2STAF EQU RTM2ERRC 05213000 RTM2SRBM EQU RTM2ERRB 05214000 RTM2LDIS EQU RTM2ERRB 05215000 RTM2ENRB EQU RTM2ERRB 05216000 RTM2TYP1 EQU RTM2ERRB 05217000 @NM00019 EQU RTM2ERRB 05218000 RTM2PGIO EQU RTM2ERRA 05219000 RTM2TEXC EQU RTM2ERRA 05220000 RTM2SVCE EQU RTM2ERRA 05221000 RTM2ABTM EQU RTM2ERRA 05222000 RTM2SVCD EQU RTM2ERRA 05223000 RTM2RKEY EQU RTM2ERRA 05224000 RTM2PCHK EQU RTM2ERRA 05225000 RTM2MCHK EQU RTM2ERRA 05226000 RTM2TIME EQU RTM2EEDH+20 05227000 RTM2RFSA EQU RTM2EEDH+16 05228000 @NM00018 EQU RTM2EEDH+14 05229000 RTM2VEQR EQU RTM2RSR2 05230000 RTM2PGFX EQU RTM2RSR2 05231000 RTM2FLSQ EQU RTM2RSR2 05232000 RTM2FSQA EQU RTM2RSR2 05233000 RTM2NUCL EQU RTM2RSR2 05234000 RTM2SPER EQU RTM2RSR2 05235000 RTM2INTC EQU RTM2RSR2 05236000 RTM2OFLN EQU RTM2RSR2 05237000 RTM2CHNG EQU RTM2RSR1 05238000 RTM2MSER EQU RTM2RSR1 05239000 @NM00017 EQU RTM2RSR1 05240000 RTM2CPID EQU RTM2EEDH+10 05241000 RTM2TERR EQU RTM2MCHD 05242000 RTM2SOFT EQU RTM2MCHD 05243000 RTM2INSF EQU RTM2MCHD 05244000 RTM2ACR EQU RTM2MCHD 05245000 RTM2SCK EQU RTM2MCHD 05246000 RTM2PSWU EQU RTM2MCHD 05247000 RTM2REGU EQU RTM2MCHD 05248000 RTM2SKYF EQU RTM2MCHD 05249000 @NM00016 EQU RTM2MCHS 05250000 RTM2RSRF EQU RTM2MCHS 05251000 RTM2RSRC EQU RTM2MCHS 05252000 RTM2INVP EQU RTM2MCHS 05253000 RTM2TSVL EQU RTM2MCHS 05254000 RTM2RCDF EQU RTM2MCHS 05255000 RTM2SRVL EQU RTM2MCHS 05256000 RTM2SCKE EQU RTM2STCK+4 05257000 RTM2SCKB EQU RTM2STCK 05258000 RTM2ABEP EQU RTM2TRRY+88 05259000 RTM2ABNM EQU RTM2TRRY+80 05260000 RTM2TRAN EQU RTM2AEC1+4 05261000 RTM2IPC1 EQU RTM2ICD1 05262000 RTM2IMC1 EQU RTM2ICD1 05263000 RTM2IPR1 EQU RTM2ICD1 05264000 @NM00015 EQU RTM2INC1 05265000 @NM00014 EQU RTM2ILC1 05266000 RTM2IL1 EQU RTM2ILC1 05267000 @NM00013 EQU RTM2ILC1 05268000 @NM00012 EQU RTM2AEC1 05269000 RTM2ADD1 EQU RTM2NXT1+1 05270000 @NM00011 EQU RTM2NXT1 05271000 @NM00010 EQU RTM2EPSW+3 05272000 RTM2SGN1 EQU RTM2INT1 05273000 RTM2EXP1 EQU RTM2INT1 05274000 RTM2DEC1 EQU RTM2INT1 05275000 RTM2FPO1 EQU RTM2INT1 05276000 RTM2CC1 EQU RTM2INT1 05277000 @NM00009 EQU RTM2INT1 05278000 RTM2PGM1 EQU RTM2MWP1 05279000 RTM2WAT1 EQU RTM2MWP1 05280000 RTM2MCK1 EQU RTM2MWP1 05281000 RTM2ECT1 EQU RTM2MWP1 05282000 RTM2KEY1 EQU RTM2MWP1 05283000 RTM2EXT1 EQU RTM2EMK1 05284000 RTM2AIO1 EQU RTM2EMK1 05285000 RTM2TRM1 EQU RTM2EMK1 05286000 RTM2EAM1 EQU RTM2EMK1 05287000 @NM00008 EQU RTM2EMK1 05288000 RTM2PER1 EQU RTM2EMK1 05289000 @NM00007 EQU RTM2EMK1 05290000 RTM2ER15 EQU RTM2EREG+60 05291000 RTM2ER14 EQU RTM2EREG+56 05292000 RTM2ER13 EQU RTM2EREG+52 05293000 RTM2ER12 EQU RTM2EREG+48 05294000 RTM2ER11 EQU RTM2EREG+44 05295000 RTM2ER10 EQU RTM2EREG+40 05296000 RTM2ER9 EQU RTM2EREG+36 05297000 RTM2ER8 EQU RTM2EREG+32 05298000 RTM2ER7 EQU RTM2EREG+28 05299000 RTM2ER6 EQU RTM2EREG+24 05300000 RTM2ER5 EQU RTM2EREG+20 05301000 RTM2ER4 EQU RTM2EREG+16 05302000 RTM2ER3 EQU RTM2EREG+12 05303000 RTM2ER2 EQU RTM2EREG+8 05304000 RTM2ER1 EQU RTM2EREG+4 05305000 RTM2ER0 EQU RTM2EREG 05306000 RTM2CT EQU RTM2WA+56 05307000 RTM2VRBT EQU RTM2WA+52 05308000 RTM2TCBT EQU RTM2WA+48 05309000 RTM2SFWA EQU RTM2WA+32 05310000 @NM00006 EQU RTM2CCF 05311000 RTM2EOT EQU RTM2CCF 05312000 RTM2EOM EQU RTM2CCF 05313000 RTM2R0DP EQU RTM2CCF 05314000 RTM2STEP EQU RTM2CCF 05315000 RTM2ASC EQU RTM2WA+24 05316000 RTM2LGTH EQU RTM2RT2D+1 05317000 RTM2SPID EQU RTM2RT2D 05318000 RTM2ADDR EQU RTM2DESC+4 05319000 RTM2ID EQU RTM2DESC 05320000 RMPLRMWA EQU RMPL+16 05321000 RMPLASCB EQU RMPL+4 05322000 RMPLASID EQU RMPL+2 05323000 RMPLFLG2 EQU RMPL+1 05324000 @NM00005 EQU RMPLFLG1 05325000 RMPLWT1M EQU RMPLFLG1 05326000 RMPLIPUF EQU RMPLFLG1 05327000 RMPLTERM EQU RMPLFLG1 05328000 SNPHDRA EQU SNPPARMS+20 05329000 SNPSTOR EQU SNPPARMS+16 05330000 SNPTCBA EQU SNPPARMS+12 05331000 SNPDCB EQU SNPPARMS+8 05332000 @NM00004 EQU SNPPARMS+7 05333000 @NM00003 EQU SNPPDATA 05334000 SNPSPLS EQU SNPPDATA 05335000 SNPPSW EQU SNPPDATA 05336000 SNPJPA EQU SNPPDATA 05337000 SNPLPA EQU SNPPDATA 05338000 SNPREGS EQU SNPPDATA 05339000 SNPSAVE2 EQU SNPPDATA 05340000 SNPSAVE EQU SNPPDATA 05341000 @NM00002 EQU SNPSDAT1 05342000 SNPERR EQU SNPSDAT1 05343000 SNPIO EQU SNPSDAT1 05344000 SNPDM EQU SNPSDAT0 05345000 SNPQCB EQU SNPSDAT0 05346000 SNPCB EQU SNPSDAT0 05347000 SNPTRT EQU SNPSDAT0 05348000 SNPSWA EQU SNPSDAT0 05349000 SNPLSQA EQU SNPSDAT0 05350000 SNPSQA EQU SNPSDAT0 05351000 SNPNUC EQU SNPSDAT0 05352000 @NM00001 EQU SNPPARMS+2 05353000 SNPHDR EQU SNPFLAG 05354000 SNPSLIST EQU SNPFLAG 05355000 SNPTCB EQU SNPFLAG 05356000 SNPID EQU SNPFLAG 05357000 SNPABEND EQU SNPFLAG 05358000 SNPVS2EN EQU SNPFLAG 05359000 SNPVS2 EQU SNPFLAG 05360000 SNPSNAP EQU SNPFLAG 05361000 SNPIDENT EQU SNPPARMS 05362000 REGSAVE EQU RSAVE 05363000 @NM00190 EQU PSA+3668 05364000 PSASTAK EQU PSA+3072 05365000 @NM00189 EQU PSA+1048 05366000 PSAUSEND EQU PSA+1048 05367000 PSARV062 EQU PSA+1044 05368000 PSACDAL EQU PSA+1040 05369000 PSAWTCOD EQU PSA+1036 05370000 PSAATCVT EQU PSA+1032 05371000 PSAPCPSW EQU PSA+1024 05372000 PSAPIR2 EQU PSA+1020 05373000 PSARV059 EQU PSA+1018 05374000 PSASVC13 EQU PSA+1016 05375000 PSALSFCC EQU PSA+1012 05376000 PSASFACC EQU PSA+1008 05377000 PSASTOP EQU PSA+992 05378000 PSASTART EQU PSA+976 05379000 PSARSPSW EQU PSA+968 05380000 PSASRPSW EQU PSA+960 05381000 PSARV045 EQU PSA+892 05382000 PSARV044 EQU PSA+888 05383000 PSARV043 EQU PSA+884 05384000 PSARV042 EQU PSA+880 05385000 PSARV041 EQU PSA+876 05386000 PSARV040 EQU PSA+872 05387000 PSARV025 EQU PSA+868 05388000 PSADSSED EQU PSA+868 05389000 PSADSSPR EQU PSA+864 05390000 PSADSSFW EQU PSA+860 05391000 PSADSS14 EQU PSA+856 05392000 PSADSSPP EQU PSA+848 05393000 PSADSSRP EQU PSA+840 05394000 PSADSS05 EQU PSADSSF4 05395000 PSADSS10 EQU PSADSSF4 05396000 PSADSSVE EQU PSADSSF4 05397000 PSADSSDE EQU PSADSSF4 05398000 PSADSSC0 EQU PSADSSF4 05399000 PSADSSIE EQU PSADSSF4 05400000 PSADSS12 EQU PSADSSF4 05401000 PSADSSRC EQU PSADSSF4 05402000 PSARV057 EQU PSADSSF3 05403000 PSARV056 EQU PSADSSF3 05404000 PSARV055 EQU PSADSSF3 05405000 PSADSSMC EQU PSADSSF3 05406000 PSADSSRW EQU PSADSSF3 05407000 PSADSSNM EQU PSADSSF3 05408000 PSADSSES EQU PSADSSF3 05409000 PSADSSGP EQU PSADSSF3 05410000 PSADSSF2 EQU PSADSSFL+1 05411000 PSADSSPI EQU PSADSSF1 05412000 PSADSSOI EQU PSADSSF1 05413000 PSADSSSP EQU PSADSSF1 05414000 PSADSSTP EQU PSADSSF1 05415000 PSADSSDW EQU PSADSSF1 05416000 PSADSSDD EQU PSADSSF1 05417000 PSADSSDM EQU PSADSSF1 05418000 PSADSSMV EQU PSADSSF1 05419000 PSADSSTS EQU PSA+816 05420000 PSADSSWK EQU PSA+812 05421000 PSADSSR3 EQU PSA+808 05422000 PSADSSR2 EQU PSA+804 05423000 PSADSSRS EQU PSA+800 05424000 PSASTOR EQU PSA+796 05425000 PSACPUSA EQU PSA+794 05426000 PSAVSTAP EQU PSA+792 05427000 PSAWKVAP EQU PSA+788 05428000 PSAWKRAP EQU PSA+784 05429000 PSAMCHIC EQU PSA+783 05430000 PSARV061 EQU PSA+782 05431000 PSASYMSK EQU PSA+781 05432000 PSAMCHFL EQU PSA+780 05433000 PSACR0 EQU PSA+776 05434000 PSAPSWSV EQU PSA+768 05435000 PSACLHS EQU PSAHLHI 05436000 PSALKR15 EQU PSALKSA+60 05437000 PSALKR14 EQU PSALKSA+56 05438000 PSALKR13 EQU PSALKSA+52 05439000 PSALKR12 EQU PSALKSA+48 05440000 PSALKR11 EQU PSALKSA+44 05441000 PSALKR10 EQU PSALKSA+40 05442000 PSALKR9 EQU PSALKSA+36 05443000 PSALKR8 EQU PSALKSA+32 05444000 PSALKR7 EQU PSALKSA+28 05445000 PSALKR6 EQU PSALKSA+24 05446000 PSALKR5 EQU PSALKSA+20 05447000 PSALKR4 EQU PSALKSA+16 05448000 PSALKR3 EQU PSALKSA+12 05449000 PSALKR2 EQU PSALKSA+8 05450000 PSALKR1 EQU PSALKSA+4 05451000 PSALKR0 EQU PSALKSA 05452000 PSARV023 EQU PSACLHT+52 05453000 PSALOCAL EQU PSACLHT+48 05454000 PSACMSL EQU PSACLHT+44 05455000 PSAOPTL EQU PSACLHT+40 05456000 PSATPACL EQU PSACLHT+36 05457000 PSATPDNL EQU PSACLHT+32 05458000 PSATPNCL EQU PSACLHT+28 05459000 PSAIOSLL EQU PSACLHT+24 05460000 PSAIOSUL EQU PSACLHT+20 05461000 PSAIOSCL EQU PSACLHT+16 05462000 PSAIOSSL EQU PSACLHT+12 05463000 PSASALCL EQU PSACLHT+8 05464000 PSAASML EQU PSACLHT+4 05465000 PSADISPL EQU PSACLHT 05466000 PSASRSA EQU PSA+636 05467000 PSARV050 EQU PSA+634 05468000 PSADSSGO EQU PSA+633 05469000 PSARECUR EQU PSA+632 05470000 PSAHLHIS EQU PSA+628 05471000 PSAIPCSA EQU PSA+624 05472000 @NM00188 EQU PSA+621 05473000 PSAIPCDM EQU PSA+620 05474000 PSAIPCD EQU PSA+616 05475000 @NM00187 EQU PSA+613 05476000 PSAIPCRM EQU PSA+612 05477000 PSAIPCR EQU PSA+608 05478000 PSAMCHEX EQU PSA+600 05479000 PSAMPSW EQU PSA+592 05480000 PSAEXPS2 EQU PSA+584 05481000 PSAEXPS1 EQU PSA+576 05482000 PSAPIREG EQU PSA+572 05483000 PSARSREG EQU PSA+568 05484000 PSAGPREG EQU PSA+556 05485000 PSARV022 EQU PSASUP4 05486000 PSARV021 EQU PSASUP4 05487000 PSARV020 EQU PSASUP4 05488000 PSARV019 EQU PSASUP4 05489000 PSARV018 EQU PSASUP4 05490000 PSARV017 EQU PSASUP4 05491000 PSARV016 EQU PSASUP4 05492000 PSARV015 EQU PSASUP4 05493000 PSARV014 EQU PSASUP3 05494000 PSAULCMS EQU PSASUP3 05495000 PSARV012 EQU PSASUP3 05496000 PSAESTA EQU PSASUP3 05497000 PSASPR EQU PSASUP3 05498000 PSAPSREG EQU PSASUP3 05499000 PSAPI2 EQU PSASUP3 05500000 PSAIOSUP EQU PSASUP3 05501000 PSALCR EQU PSASUP2 05502000 PSARTM EQU PSASUP2 05503000 PSAACR EQU PSASUP2 05504000 PSAIPCE2 EQU PSASUP2 05505000 PSAIPCES EQU PSASUP2 05506000 PSAIPCEC EQU PSASUP2 05507000 PSAGTF EQU PSASUP2 05508000 PSAIPCRI EQU PSASUP2 05509000 PSATYPE6 EQU PSASUP1 05510000 PSATCTL EQU PSASUP1 05511000 PSADISP EQU PSASUP1 05512000 PSALOCK EQU PSASUP1 05513000 PSAPI EQU PSASUP1 05514000 PSAEXT EQU PSASUP1 05515000 PSASVC EQU PSASUP1 05516000 PSAIO EQU PSASUP1 05517000 PSAAOLD EQU PSA+548 05518000 PSAANEW EQU PSA+544 05519000 PSATOLD EQU PSA+540 05520000 PSATNEW EQU PSA+536 05521000 PSALCCAR EQU PSA+532 05522000 PSALCCAV EQU PSA+528 05523000 PSAPCCAR EQU PSA+524 05524000 PSAPCCAV EQU PSA+520 05525000 PSACPULA EQU PSA+518 05526000 PSACPUPA EQU PSA+516 05527000 PSAPSA EQU PSA+512 05528000 FLCHDEND EQU PSA+512 05529000 FLCCRSAV EQU FLCMCLA+280 05530000 FLCGRSAV EQU FLCMCLA+216 05531000 FLCFPSAV EQU FLCMCLA+184 05532000 FLCFLA EQU FLCMCLA+88 05533000 FLCRGNCD EQU FLCMCLA+84 05534000 FLCFSAA EQU FLCFSA+1 05535000 @NM00186 EQU FLCFSA 05536000 @NM00185 EQU FLCMCLA+72 05537000 FLCMCIC EQU FLCMCLA+64 05538000 @NM00184 EQU FLCMCLA+20 05539000 FLCIOAA EQU FLCIOA+1 05540000 @NM00183 EQU FLCIOA 05541000 @NM00182 EQU FLCMCLA+15 05542000 @NM00181 EQU FLCMCLA+14 05543000 @NM00180 EQU FLCMCLA+12 05544000 FLCLCL EQU FLCMCLA+8 05545000 FLCIOELA EQU FLCIOEL+1 05546000 @NM00179 EQU FLCIOEL 05547000 FLCCHNID EQU FLCMCLA 05548000 @NM00178 EQU PSA+160 05549000 FLCMTRCD EQU PSA+157 05550000 @NM00177 EQU PSA+156 05551000 FLCPERA EQU FLCPER+1 05552000 @NM00176 EQU FLCPER 05553000 @NM00175 EQU PSA+151 05554000 FLCPERCD EQU PSA+150 05555000 FLCMCNUM EQU PSA+149 05556000 @NM00174 EQU PSA+148 05557000 FLCTEAA EQU FLCTEA+1 05558000 @NM00173 EQU FLCTEA 05559000 PSAPIPC EQU PSAPICOD 05560000 PSAPIMC EQU PSAPICOD 05561000 PSAPIPER EQU PSAPICOD 05562000 PSARV049 EQU FLCPICOD 05563000 FLCPILCB EQU FLCPIILC 05564000 @NM00172 EQU FLCPIILC 05565000 @NM00171 EQU PSAEPPSW 05566000 FLCSVCN EQU PSAESPSW+2 05567000 FLCSILCB EQU FLCSVILC 05568000 @NM00170 EQU FLCSVILC 05569000 @NM00169 EQU PSAESPSW 05570000 FLCEICOD EQU PSAEEPSW+2 05571000 PSASPAD EQU PSAEEPSW 05572000 @NM00168 EQU PSA+128 05573000 FLCINPSW EQU PSA+120 05574000 FLCMNPSW EQU PSA+112 05575000 FLCPNPSW EQU PSA+104 05576000 FLCSNPSW EQU PSA+96 05577000 FLCENPSW EQU PSA+88 05578000 FLCTRACE EQU PSA+84 05579000 FLCTIMER EQU PSA+80 05580000 FLCCVT2 EQU PSA+76 05581000 FLCCAW EQU PSA+72 05582000 FLCCSW EQU PSA+64 05583000 FLCIOPSW EQU PSA+56 05584000 FLCMOPSW EQU PSA+48 05585000 FLCPOPSW EQU PSA+40 05586000 FLCSOPSW EQU PSA+32 05587000 FLCEOPSW EQU PSA+24 05588000 @NM00167 EQU FLCICCW2+4 05589000 FLCCVT EQU FLCICCW2 05590000 FLCICCW1 EQU FLCROPSW 05591000 FLCIPPSW EQU FLCRNPSW 05592000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05593000 @RC00119 EQU @RC00118 05594000 @RC00332 EQU @RC00331 05595000 @RC00100 EQU @RC00099 05596000 @RC00457 EQU @RC00099 05597000 @RC00517 EQU @RC00516 05598000 @RF00568 EQU @EL00002 05599000 @RC00120 EQU @RC00119 05600000 @RC00101 EQU @RC00100 05601000 @RF00395 EQU @RC00101 05602000 @ENDDATA EQU * 05603000 END IEAVTAS3,(C'PLS2112',0801,78206) 05604000