TITLE 'IGFCCHCR- MVM CENTRAL CHANNEL CHECK HANDLER *00001000 ' 00002000 * 0208 00003000 * /*GENERATE ENTRANCE CODE*/ 00004000 IGFCCHCR CSECT 00005000 CRSTART STM 0,15,0(13) SAVE ALL THE IOS REGS 00006000 LR 11,15 GET ADDRESSABILITY 00007000 USING CRSTART,11 SET THE BASE 00008000 B PROLOG BRANCH AROUND IDENTIFIERS 00009000 MODID BR=NO MODULE ID & LEVEL @ZA31594 00010000 PROLOG EQU * 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* IF AN FRR ENTRY THE PCCAPTR WILL BE LOADED FROM IOS REG 8, */ 00014000 * /* OTHERWISE IT WILL BE LOADED FROM THE PSA. THE FOOTPRINTS ARE */ 00015000 * /* CLEARED AND FOOTPRINT FOR CCH CENTRAL IS SET */ 00016000 * /* */ 00017000 * /*****************************************************************/ 00018000 * 0209 00019000 * IF FRRBIT='1'B /* CHECK FOR FRR ENTRY @YM00991*/ 00020000 * THEN 0209 00021000 TM FRRBIT(SAVREG),B'10000000' 0209 00022000 BNO @RF00209 0209 00023000 * DO; 0210 00024000 * PCCAPTR=SAVREG8; /* LOAD PCCAPTR FROM THE IOS SAVE 00025000 * AREA @YM00991*/ 00026000 L PCCAPTR,SAVREG8(,SAVREG) 0211 00027000 * SAVREG8=PCCACHSV(3); /* RESTORE REG 8 IN IOS SAVE AREA 00028000 * FROM PCCA @YM00991*/ 00029000 L @15,PCCACHSV+8(,PCCAPTR) 0212 00030000 ST @15,SAVREG8(,SAVREG) 0212 00031000 * PCCASLCK='0'B; /* CLEAR LOCK HELD @G51BPLC*/ 00032000 NI PCCASLCK(PCCAPTR),B'10111111' 0213 00033000 * END; /* @YM00991*/ 00034000 * ELSE 0215 00035000 * PCCAPTR=PSAPCCAV; /* IF NOT FRR ENTRY LOAD PCCAPTR 00036000 * FROM PSA @YM00991*/ 00037000 B @RC00209 0215 00038000 @RF00209 L PCCAPTR,PSAPCCAV 0215 00039000 * PCCACHF1=X0; /* CLEAR CCH FOOTPRINTS */ 00040000 @RC00209 MVI PCCACHF1(PCCAPTR),X'00' 0216 00041000 * PCCACHF2=X0; /* CLEAR FOOTPRINT */ 00042000 MVI PCCACHF2(PCCAPTR),X'00' 0217 00043000 * PCCACHF3=X0; /* CLEAR FOOTPRINTS @G51BPLC*/ 00044000 MVI PCCACHF3(PCCAPTR),X'00' 0218 00045000 * PCCACF11='1'B; /* SET CCH CENTRAL FOOTPRINT */ 00046000 OI PCCACF11(PCCAPTR),B'10000000' 0219 00047000 * PCCACHSV(3)=SAVREG; /* SAVE THE SAVE AREA ADDR */ 00048000 ST SAVREG,PCCACHSV+8(,PCCAPTR) 0220 00049000 */********************************************************************/ 00050000 */* */ 00051000 */* CHECK TO SEE IF THIS IS AN ENTRY FROM THE CCH FRR (THE HIGH ORDER*/ 00052000 */* BIT IN THE LAST BYTE OF REGISTER 1 IS 1). IF IT IS 1, WE WANT TO */ 00053000 */* TO LEAVE THE PCCACNRE & PCCACIOR SET FROM THR FRR ROUTINE. WE */ 00054000 */* ALSO HAVE TO CLEAR THE HIGH ORDER BIT IN REGISTER 1 SAVE AREA. */ 00055000 */* */ 00056000 */* IF THE ENTRY IS FROM IOS, WE MUST PLACE THE CCH FRR ON THE STACK */ 00057000 */* VIA THE SETFRR MACRO. ALSO WE HAVE TO CLEAR THE PCCACHS1 & PCCA- */ 00058000 */* CHS2 FIELDS AND SET PCCACFRR. */ 00059000 */* */ 00060000 */********************************************************************/ 00061000 * 0221 00062000 * RESPECIFY 0221 00063000 * (WKREG1, 0221 00064000 * WKREG3, 0221 00065000 * WKREG4, 0221 00066000 * WKREG5, 0221 00067000 * WKREG6) RSTD; /* RESTRICT REGS 1,3,4,5, & 6 FOR 00068000 * USE @YM00991*/ 00069000 * IF FRRBIT='1'B THEN 0222 00070000 TM FRRBIT(SAVREG),B'10000000' 0222 00071000 BNO @RF00222 0222 00072000 * DO; /* FRR ENTRY ? */ 00073000 * PCCACHS1=(PCCACHS1&'40'X); /* CLEAR PCCACHS1 EXCEPT FOR THE 00074000 * PCCACNRE BIT */ 00075000 NI PCCACHS1(PCCAPTR),X'40' 0224 00076000 * PCCACHS2=(PCCACHS2&'80'X); /* CLEAR PCCACHS2 EXCEPT FOR THE 00077000 * PCCACIOR BIT */ 00078000 NI PCCACHS2(PCCAPTR),X'80' 0225 00079000 * FRRBIT='0'B; /* CLEAR THE FRR BIT IN SAVE */ 00080000 NI FRRBIT(SAVREG),B'01111111' 0226 00081000 * SAVREG0=PCCACHSV(2); /* RESTORE REG 0 IN SAVE AREA */ 00082000 L @15,PCCACHSV+4(,PCCAPTR) 0227 00083000 ST @15,SAVREG0(,SAVREG) 0227 00084000 * END; 0228 00085000 * ELSE 0229 00086000 * DO; /* NO FRR ENTRY. SET UP FRR */ 00087000 B @RC00222 0229 00088000 @RF00222 DS 0H 0230 00089000 * WKREG3=ADDR(IGFCCHFR); /* GET THE ADDRESS OF THE FRR */ 00090000 * 0230 00091000 LA WKREG3,IGFCCHFR 0230 00092000 * /*************************************************************/ 00093000 * /* */ 00094000 * /* ADD THE CCH FUNCTIONAL RECOVERY ROUTINE TO THE FRR STACK */ 00095000 * /* */ 00096000 * /*************************************************************/ 00097000 * 0231 00098000 *CCHFRR: 0231 00099000 * GEN REFS(PSACSTK,PSALSFCC,FRRSCURR,FRRSLAST,FRRSELEN,FRRSENTR, 00100000 * FRRSFRRA,FRRSPARM,FRRSEMP,FRRS) 0231 00101000 * (SETFRR A,PARMAD=(6),FRRAD=(3),WRKREGS=(4,5)); 0231 00102000 CCHFRR SETFRR A,PARMAD=(6),FRRAD=(3),WRKREGS=(4,5) 00103000 * PCCACHS1=X0; /* CLEAR PCCACHS1 FIELD */ 00104000 MVI PCCACHS1(PCCAPTR),X'00' 0232 00105000 * PCCACHS2=X0; /* CLEAR PCCACHS2 FIELD */ 00106000 MVI PCCACHS2(PCCAPTR),X'00' 0233 00107000 * PCCACFRR='1'B; /* SET FRR IN STACK BIT */ 00108000 OI PCCACFRR(PCCAPTR),B'00100000' 0234 00109000 * FRRPCCA=PCCAPTR; /* SAVE PCCAPTR IN FRR WORK AREA 00110000 * @YM02589*/ 00111000 ST PCCAPTR,FRRPCCA(,WKREG6) 0235 00112000 * FRRBASE=BASEREG; /* SAVE BASE REG IN FRR WORK AREA 00113000 * @YM02589*/ 00114000 ST BASEREG,FRRBASE(,WKREG6) 0236 00115000 * FRRSAVE=SAVREG; /* SAVE IOS SAVE AREA POINTER 0237 00116000 * @YM02589*/ 00117000 ST SAVREG,FRRSAVE(,WKREG6) 0237 00118000 * END; 0238 00119000 * RESPECIFY 0239 00120000 * (WKREG3, 0239 00121000 * WKREG4, 0239 00122000 * WKREG5, 0239 00123000 * WKREG6) UNRSTD; /* @YM00991*/ 00124000 * 0239 00125000 @RC00222 DS 0H 0240 00126000 * /*****************************************************************/ 00127000 * /* */ 00128000 * /* THE RECORD BYTE MUST BE CLEARED IN THE PCCAWERP AND THE THE */ 00129000 * /* ENTRY CODE MOVED FROM THE REG 1 SAVE LOCATION IN THE IOS SAVE */ 00130000 * /* AREA TO THE PCCAIOSI BYTE. */ 00131000 * /* */ 00132000 * /*****************************************************************/ 00133000 * 0240 00134000 *CCHCLRB: 0240 00135000 * PCCACHRB=X0; /* CLEAR CCH RECORD BYTE */ 00136000 CCHCLRB MVI PCCACHRB(PCCAPTR),X'00' 0240 00137000 * PCCAWERP=PCCAWERP&&PCCAWERP; /* ZERO THE WORK ERPIB */ 00138000 XC PCCAWERP(8,PCCAPTR),PCCAWERP(PCCAPTR) 0241 00139000 * PCCAIOSI=IOSBYTE; /* MOVE IOS ENTRY CODE TO PCCA */ 00140000 MVC PCCAIOSI(1,PCCAPTR),IOSBYTE(SAVREG) 0242 00141000 * IF FLCLCL^=FOXES&HUNGINF='1'B /* HUNG INTERFACE? @G51BPLC*/ 00142000 * THEN 0243 00143000 CLC FLCLCL(4),@CB03136 0243 00144000 BE @RF00243 0243 00145000 TM HUNGINF,B'00010000' 0243 00146000 BNO @RF00243 0243 00147000 * PCCAISRB='1'B; /* INDIC SCHED IECVIRST @G51BPLC*/ 00148000 * 0244 00149000 OI PCCAISRB(PCCAPTR),B'10000000' 0244 00150000 * /*****************************************************************/ 00151000 * /* */ 00152000 * /* A CHECK IS MADE TO SEE IF THE ERROR WAS ENCOUNTERED DURING A */ 00153000 * /* START I/O OPERATION. IF SO THE PCCACSIB BIT IS SET IN THE */ 00154000 * /* PCCA. THE ENTRY CODES FOR SIO ARE 0,8,16,&28. */ 00155000 * /* */ 00156000 * /*****************************************************************/ 00157000 * 0245 00158000 * IF PCCAIOSI=X0|PCCAIOSI=X8|PCCAIOSI=X10|PCCAIOSI=X1C THEN 0245 00159000 @RF00243 CLI PCCAIOSI(PCCAPTR),X'00' 0245 00160000 BE @RT00245 0245 00161000 CLI PCCAIOSI(PCCAPTR),X'08' 0245 00162000 BE @RT00245 0245 00163000 CLI PCCAIOSI(PCCAPTR),X'10' 0245 00164000 BE @RT00245 0245 00165000 CLI PCCAIOSI(PCCAPTR),X'1C' 0245 00166000 BNE @RF00245 0245 00167000 @RT00245 DS 0H 0246 00168000 * PCCACSIB='1'B; 0246 00169000 * 0246 00170000 OI PCCACSIB(PCCAPTR),B'10000000' 0246 00171000 * /*****************************************************************/ 00172000 * /* */ 00173000 * /* IF ERROR WAS DURING A TIO OPERATION ,SET PCCACTIB IN THE PCCA.*/ 00174000 * /* THE CODE FOR A TIO IS 4. */ 00175000 * /* */ 00176000 * /*****************************************************************/ 00177000 * 0247 00178000 * ELSE 0247 00179000 * IF PCCAIOSI=X4 THEN 0247 00180000 B @RC00245 0247 00181000 @RF00245 CLI PCCAIOSI(PCCAPTR),X'04' 0247 00182000 BNE @RF00247 0247 00183000 * PCCACTIB='1'B; /* TIO OPERATION ? */ 00184000 * 0248 00185000 OI PCCACTIB(PCCAPTR),B'00100000' 0248 00186000 * /*****************************************************************/ 00187000 * /* */ 00188000 * /* IF THE ERROR WAS DURING AN I/0 INTERRUPT, SET PCCACINB. THE */ 00189000 * /* ENTRY CODE FOR AN INTERRUPT IS 20. */ 00190000 * /* */ 00191000 * /*****************************************************************/ 00192000 * 0249 00193000 * ELSE 0249 00194000 * IF PCCAIOSI=X14 THEN 0249 00195000 B @RC00247 0249 00196000 @RF00247 CLI PCCAIOSI(PCCAPTR),X'14' 0249 00197000 BNE @RF00249 0249 00198000 * PCCACINB='1'B; /* INTERRUPT INTERCEPT ? */ 00199000 * 0250 00200000 OI PCCACINB(PCCAPTR),B'01000000' 0250 00201000 * /*****************************************************************/ 00202000 * /* */ 00203000 * /* IF THE ERROR OCCURRED DURING A HALT I/O OPERATION ,SET */ 00204000 * /* PCCACHIB. ALSO SET THE RECORD ONLY BIT IN THE PCCA. THE THE */ 00205000 * /* ENTRY CODE FOR THE HIO INTERCEPT IS 24. */ 00206000 * /* */ 00207000 * /*****************************************************************/ 00208000 * 0251 00209000 * ELSE 0251 00210000 * IF PCCAIOSI=X18 THEN 0251 00211000 B @RC00249 0251 00212000 @RF00249 CLI PCCAIOSI(PCCAPTR),X'18' 0251 00213000 BNE @RF00251 0251 00214000 * DO; /* HIO INTERCEPT ? */ 00215000 * PCCACHIB='1'B; /* YES, SET HIO BIT */ 00216000 OI PCCACHIB(PCCAPTR),B'00010000' 0253 00217000 * PCCACNLS='1'B; /* SET RECORD ONLY */ 00218000 OI PCCACNLS(PCCAPTR),B'00010000' 0254 00219000 * END; 0255 00220000 * 0255 00221000 * /*****************************************************************/ 00222000 * /* */ 00223000 * /* A CHECK IS MADE FOR A ZERO UCB ADDRESS. THE ADDRESS WAS PASSED*/ 00224000 * /* IN REGISTER 7 FROM IOS. IF THE ADDRESS IS ZERO THE UCB ADDRESS*/ 00225000 * /* IS ZERO FOOTPRINT IS SET IN THE PCCA, THE RECORD ONLY BIT IS */ 00226000 * /* SET ,AND THE UCB INVALID BIT IS SET (PCCACUCB). THEN WE WILL */ 00227000 * /* CHECK FOR I/O RESTART. */ 00228000 * /* */ 00229000 * /*****************************************************************/ 00230000 * 0256 00231000 *CCHUCBT: 0256 00232000 * IF UCBPTR=0 THEN 0256 00233000 @RF00251 DS 0H 0256 00234000 @RC00249 DS 0H 0256 00235000 @RC00247 DS 0H 0256 00236000 @RC00245 DS 0H 0256 00237000 CCHUCBT LTR UCBPTR,UCBPTR 0256 00238000 BNZ @RF00256 0256 00239000 * DO; /* UCB ADDRESS ZERO ? */ 00240000 *CCHUCB0: 0258 00241000 * PCCACF12='1'B; /* UCB INVALID FOOTPRINT */ 00242000 CCHUCB0 OI PCCACF12(PCCAPTR),B'01000000' 0258 00243000 * PCCACNLS='1'B; /* RECORD ONLY SET */ 00244000 * PCCACUCB='1'B; /* SET UCB INVALID */ 00245000 OI PCCACNLS(PCCAPTR),B'00010010' 0260 00246000 * GOTO CCHTSIOR; /* CK FOR I/O RESTART */ 00247000 B CCHTSIOR 0261 00248000 * END; 0262 00249000 * UCBPTR=UCBPTR+LENGTH(UCB); /* OBTAIN UCB COMMON ADDRESS */ 00250000 * 0263 00251000 @RF00256 LA UCBPTR,512(,UCBPTR) 0263 00252000 * /*****************************************************************/ 00253000 * /* */ 00254000 * /* CHECK FOR SENSE OR ASYNCHRONOUS SENSE INTERCEPTS. */ 00255000 * /* */ 00256000 * /*****************************************************************/ 00257000 * 0264 00258000 * IF PCCAIOSI^=X8&PCCAIOSI^=X1C THEN 0264 00259000 * 0264 00260000 CLI PCCAIOSI(PCCAPTR),X'08' 0264 00261000 BE @RF00264 0264 00262000 CLI PCCAIOSI(PCCAPTR),X'1C' 0264 00263000 BE @RF00264 0264 00264000 * /***************************************************************/ 00265000 * /* */ 00266000 * /* CHECK FOR CHANNEL PROGRAM COMPLETE OR DEVICE BUSY. IF */ 00267000 * /* NEITHER, SET SPECIAL HANDLING AND GO CHECK FOR I/O RESTART */ 00268000 * /* */ 00269000 * /***************************************************************/ 00270000 * 0265 00271000 * IF UCBUSING='0'B&UCBBUSYD='0'B THEN 0265 00272000 TM UCBUSING(UCBPTR),B'10100000' 0265 00273000 BNZ @RF00265 0265 00274000 * DO; 0266 00275000 *CCHSPCL: 0267 00276000 * PCCACAND='1'B; /* SET SPECIAL HANDLING */ 00277000 CCHSPCL OI PCCACAND(PCCAPTR),B'00001000' 0267 00278000 * GOTO CCHTSIOR; /* CK FOR I/O RESTART */ 00279000 B CCHTSIOR 0268 00280000 * END; 0269 00281000 * ELSE 0270 00282000 * ; 0270 00283000 * 0270 00284000 @RF00265 DS 0H 0271 00285000 * /*****************************************************************/ 00286000 * /* */ 00287000 * /* CHECK FOR A CHANNEL DATA CHECK. IF CDC SET RECORD ONLY OR DOES*/ 00288000 * /* THE EWA EXIST ? (IS THE ADDRESS IN REG 12=0?) IF SO, THE EWA */ 00289000 * /* DOES NOT EXIST, AND RECORD ONLY MUST BE SET. */ 00290000 * /* */ 00291000 * /*****************************************************************/ 00292000 * 0271 00293000 * IF CSWCCC='0'B&CSWICC='0'B|ERPIBREG=0 THEN 0271 00294000 @RF00264 TM CSWCCC,B'00000110' 0271 00295000 BZ @RT00271 0271 00296000 LTR ERPIBREG,ERPIBREG 0271 00297000 BNZ @RF00271 0271 00298000 @RT00271 DS 0H 0272 00299000 * DO; /* CDC ONLY OR NO EWA EXIST */ 00300000 * PCCACNLS='1'B; /* SET RECORD ONLY */ 00301000 OI PCCACNLS(PCCAPTR),B'00010000' 0273 00302000 * GOTO CCHTSIOR; /* CK FOR I/O RESTART */ 00303000 B CCHTSIOR 0274 00304000 * END; 0275 00305000 * 0275 00306000 * /*****************************************************************/ 00307000 * /* */ 00308000 * /* IF THIS IS AN ASYNCHRONOUS SENSE INTERCEPT SET THE FOLLOWING */ 00309000 * /* 1. ERPIB ALREADY FOOTPRINT 2. ERPIB NO RETRY FLAG */ 00310000 * /* */ 00311000 * /*****************************************************************/ 00312000 * 0276 00313000 *CCHOLDEP: 0276 00314000 * IF PCCAIOSI=X1C THEN 0276 00315000 @RF00271 DS 0H 0276 00316000 CCHOLDEP CLI PCCAIOSI(PCCAPTR),X'1C' 0276 00317000 BNE @RF00276 0276 00318000 * DO; /* ASYNCHRONOUS SENSE ? */ 00319000 * PCCACIBC='1'B; /* ERPIB ALREADY EXIST FLAG */ 00320000 OI PCCACIBC(PCCAPTR),B'00000100' 0278 00321000 * PCCACF13='1'B; /* ERPIB EXIST FOOTPRINT */ 00322000 OI PCCACF13(PCCAPTR),B'00100000' 0279 00323000 * ERPNOR='1'B; /* SET NO RETRY IN ERPIB */ 00324000 OI ERPNOR(ERPIBREG),B'00000001' 0280 00325000 * END; 0281 00326000 * ELSE 0282 00327000 * DO; /* NO ASYNCHRONOUS SENSE */ 00328000 * 0282 00329000 B @RC00276 0282 00330000 @RF00276 DS 0H 0283 00331000 * /*************************************************************/ 00332000 * /* */ 00333000 * /* INVOKE THE RECONFIGURATION VERIFICATION SUBROUTINE TO */ 00334000 * /* DETERMINE IF RECONFIGURATION HARDWARE IS ACTIVE ON THIS */ 00335000 * /* CHANNEL */ 00336000 * /* */ 00337000 * /*************************************************************/ 00338000 * 0283 00339000 *CCHTSIOR: 0283 00340000 * CALL IGFCCHRV; /* @Y30CJJE*/ 00341000 * 0283 00342000 CCHTSIOR BAL @14,IGFCCHRV 0283 00343000 * /*************************************************************/ 00344000 * /* */ 00345000 * /* CHECK TO SEE IF I/O RESTART HAS BEEN SET BY THE FRR. IF IT*/ 00346000 * /* HAS THE ERPIB IS NOT TO BE CREATED. */ 00347000 * /* */ 00348000 * /*************************************************************/ 00349000 * 0284 00350000 * IF PCCACIOR='0'B THEN 0284 00351000 TM PCCACIOR(PCCAPTR),B'10000000' 0284 00352000 BNZ @RF00284 0284 00353000 * DO; /* IOR SET ? YES NO FE */ 00354000 * 0285 00355000 * /*********************************************************/ 00356000 * /* */ 00357000 * /* CHECK TO SEE IF THIS IS A SENSE INTERCEPT. IF SO CALL */ 00358000 * /* SENSE INTERCEPT ROUTINE. */ 00359000 * /* */ 00360000 * /*********************************************************/ 00361000 * 0286 00362000 * IF PCCAIOSI=X8 THEN 0286 00363000 CLI PCCAIOSI(PCCAPTR),X'08' 0286 00364000 BNE @RF00286 0286 00365000 *CCHSI: 0287 00366000 * CALL IGFCCHSI; /* SENSE? CALL SI */ 00367000 CCHSI BAL @14,IGFCCHSI 0287 00368000 *CCHFE: 0288 00369000 * CALL IGFCCHFE; /* NO INTER. CALL FE */ 00370000 @RF00286 DS 0H 0288 00371000 CCHFE BAL @14,IGFCCHFE 0288 00372000 * END; 0289 00373000 *CCHTSTRE: 0290 00374000 * IF PCCACNRE='0'B THEN 0290 00375000 @RF00284 DS 0H 0290 00376000 CCHTSTRE TM PCCACNRE(PCCAPTR),B'01000000' 0290 00377000 BNZ @RF00290 0290 00378000 *CCHRE: 0291 00379000 * CALL IGFCCHRD; /* GO BUILD THE RECORD */ 00380000 * 0291 00381000 CCHRE BAL @14,IGFCCHRD 0291 00382000 * /*************************************************************/ 00383000 * /* */ 00384000 * /* CALL THE ASYNCHRONOUS RECORDER TO SCHEDULE RECORDING. */ 00385000 * /* */ 00386000 * /*************************************************************/ 00387000 * 0292 00388000 *CCHAS: 0292 00389000 * CALL IGFCCHAS; /* CALL THE RECORDER ROUTINE */ 00390000 @RF00290 DS 0H 0292 00391000 CCHAS BAL @14,IGFCCHAS 0292 00392000 */* IF INTERRUPT INTERCEPT AND SPECIAL HANDLING THEN RESET CCC+ICC */ 00393000 * 0293 00394000 * IF PCCAIOSI=X14&PCCACAND='1'B THEN 0293 00395000 CLI PCCAIOSI(PCCAPTR),X'14' 0293 00396000 BNE @RF00293 0293 00397000 TM PCCACAND(PCCAPTR),B'00001000' 0293 00398000 BNO @RF00293 0293 00399000 * DO; /* @ZA16569*/ 00400000 * PCCACF15='1'B; /* SET FOOTPRINT @ZA16569*/ 00401000 OI PCCACF15(PCCAPTR),B'00001000' 0295 00402000 * CALL IGFPSAD0; /* OBTAIN AUTHORIZATION@G51BPLC */ 00403000 L @15,@CV03088 0296 00404000 BALR @14,@15 0296 00405000 * CSWICC='0'B; /* TURN OFF INTERFACE CTL CHK 0297 00406000 * @ZA16569*/ 00407000 * CSWCCC='0'B; /* TURN OFF CHAN CTL CHK @ZA16569*/ 00408000 NI CSWICC,B'11111001' 0298 00409000 * CALL IGFPSAE0; /* RELSE AUTHORIZATION@G51BPLC */ 00410000 L @15,@CV03089 0299 00411000 BALR @14,@15 0299 00412000 * END; /* @ZA16569*/ 00413000 * END; 0301 00414000 @RF00293 DS 0H 0302 00415000 *CCHEX: 0302 00416000 * CALL IGFCCHEX; /* CALL EXIT */ 00417000 @RC00276 DS 0H 0302 00418000 CCHEX BAL @14,IGFCCHEX 0302 00419000 * RETURN; 0303 00420000 @EL00001 DS 0H 0303 00421000 @EF00001 DS 0H 0303 00422000 @ER00001 BR @14 0303 00423000 * 0304 00424000 */* CCH RECONFIGURATION VERIFICATION (CINTER) SUBROUTINE 0304 00425000 * */ 00426000 */* START OF SPECIFICATIONS **** 0304 00427000 * 0304 00428000 *01* MODULE-NAME = IGFCCHRV 0304 00429000 * 0304 00430000 *01* DESCRIPTIVE-NAME = RECONFIGURATION VERIFICATION ROUTINE FOR RMS 00431000 * CCH 0304 00432000 * 0304 00433000 *01* COPYRIGHT = NONE 0304 00434000 * 0304 00435000 *01* STATUS = VERSION 2 FOR VS/2 RELEASE 3 @Y30CJJE 0304 00436000 * 0304 00437000 *01* FUNCTION = THE RECONFIGURATION VERIFCATION SUBROUTINE, IGFCCHRV, 00438000 * RECEIVES CONTROL FROM IGFCCHCR TO DETERMINE IF THE CHANNEL 0304 00439000 * RECONFIGURATION HARDWARE IS ACTIVE FOR THE CHANNEL WITH THE 0304 00440000 * DETECTED ERROR. 0304 00441000 * 0304 00442000 *01* NOTES = NONE 0304 00443000 * 0304 00444000 *02* CHARACTER-CODE-DEPENDENCIES = EBCDIC DEPENDANT 0304 00445000 * 0304 00446000 *02* DEPENDENCIES = NONE 0304 00447000 * 0304 00448000 *02* RESTRICTIONS = NONE 0304 00449000 * 0304 00450000 *02* REGISTER-CONVENTIONS = NONE 0304 00451000 * 0304 00452000 *02* PATCH-LABEL = NO PATCH AREA IS INCLUDED IN THIS MODULE 0304 00453000 * 0304 00454000 *01* MODULE-TYPE = MODULE 0304 00455000 * 0304 00456000 *02* PROCESSOR = PLS 0304 00457000 * 0304 00458000 *02* MODULE-SIZE = 100 BYTES 0304 00459000 * 0304 00460000 *02* ATTRIBUTES = REUSABLE, NUCLEUS RESIDENT, DISABLED 0304 00461000 * 0304 00462000 *01* ENTRY-POINT = IGFCCHRV 0304 00463000 * 0304 00464000 *02* PURPOSE = SEE FUNCTION ABOVE 0304 00465000 * 0304 00466000 *02* LINKAGE = CALL 0304 00467000 * 0304 00468000 *02* INPUT = ADDRESS OF IOS UCB IN REGISTER 7 0304 00469000 * ADDRESS OF PCCA IN REGISTER 8 0304 00470000 * 0304 00471000 *02* OUTPUT = PCCACCRA SET IF CRH ACTIVE ON CHANNEL WITH ERROR 0304 00472000 * 0304 00473000 *02* EXIT-NORMAL = RETURN TO CCH CENTRAL 0304 00474000 * 0304 00475000 *02* EXIT-ERROR = NONE 0304 00476000 * 0304 00477000 *01* EXTERNAL-REFERENCES 0304 00478000 * 0304 00479000 *02* ROUTINES = NONE 0304 00480000 * 0304 00481000 *02* DATA-SETS = NONE 0304 00482000 * 0304 00483000 *02* DATA-AREA = NONE 0304 00484000 * 0304 00485000 *02* CONTROL-BLOCKS = FLC,PCCA,UCB,CVT,CRCA 0304 00486000 * 0304 00487000 *01* TABLES = NONE 0304 00488000 * 0304 00489000 *01* MACROS = IHAPSA,IHAPCCA,IEFUCBOB,IHACRCA 0304 00490000 * 0304 00491000 *01* CHANGE-ACTIVITY = 0304 00492000 * 0304 00493000 *02* A = THIS ENTIRE SUBROUTINE ADDED FOR S/D CODE @Y30CJJE 00494000 * 0304 00495000 *02* D = NONE 0304 00496000 * 0304 00497000 *02* C = NONE 0304 00498000 * 0304 00499000 * 0304 00500000 **** END OF SPECIFICATIONS ** */ 00501000 * 0304 00502000 *IGFCCHRV: 0304 00503000 * PROC OPTIONS(NOSAVEAREA,NOSAVE);/* @Y30CJJE*/ 00504000 * 0304 00505000 IGFCCHRV DS 0H 0305 00506000 * /*****************************************************************/ 00507000 * /* */ 00508000 * /* DETERMINE IF CRCA EXISTS. IF NOT RETURN TO CCH CENTRAL, */ 00509000 * /* OTHERWISE CONTINUE */ 00510000 * /* */ 00511000 * /*****************************************************************/ 00512000 * 0305 00513000 * IF CVTCRCA^=0 THEN 0305 00514000 SLR @15,@15 0305 00515000 L @10,CVTPTR 0305 00516000 C @15,CVTCRCA(,@10) 0305 00517000 BE @RF00305 0305 00518000 * DO; /* @Y30CJJE*/ 00519000 * 0306 00520000 * /*************************************************************/ 00521000 * /* */ 00522000 * /* DETERMINE IF INTERCEPT IS FROM AN INTERRUPT. IF SO, SEE IF*/ 00523000 * /* A UCB EXISTS */ 00524000 * /* */ 00525000 * /*************************************************************/ 00526000 * 0307 00527000 * IF PCCAIOSI=X14 THEN /* @Y30CJJE*/ 00528000 CLI PCCAIOSI(PCCAPTR),X'14' 0307 00529000 BNE @RF00307 0307 00530000 * IF UCBPTR=0 THEN /* @Y30CJJE*/ 00531000 * 0308 00532000 CR UCBPTR,@15 0308 00533000 BNE @RF00308 0308 00534000 * /*********************************************************/ 00535000 * /* */ 00536000 * /* IF UCB DOES NOT EXIST, CHECK IF INTERRUPT FROM CINTER */ 00537000 * /* CHANNEL */ 00538000 * /* */ 00539000 * /*********************************************************/ 00540000 * 0309 00541000 * IF CRCADINT='1'B THEN /* @Y30CJJE*/ 00542000 L @15,CRCAPTR(,@10) 0309 00543000 TM CRCADINT(@15),B'01000000' 0309 00544000 BNO @RF00309 0309 00545000 * PCCACCRA='1'B; /* INDICATE RECONFIGURATION 0310 00546000 * ACTIVE @Y30CJJE*/ 00547000 OI PCCACCRA(PCCAPTR),B'00000100' 0310 00548000 * ELSE 0311 00549000 * ; 0311 00550000 @RF00309 DS 0H 0312 00551000 * ELSE 0312 00552000 * 0312 00553000 * /*********************************************************/ 00554000 * /* */ 00555000 * /* IF UCB DOES EXIST, CHECK IF DEVICE IS ATTACHED TO */ 00556000 * /* FAILING CHANNEL AND IF CHANNEL IS RUNNING UNDER */ 00557000 * /* RECONFIGURATION HARDWARE. SET PCCACCRA TO INDICATE */ 00558000 * /* RECONFIGURATION ACTIVE */ 00559000 * /* */ 00560000 * /*********************************************************/ 00561000 * 0312 00562000 * IF UCBIORST='1'B THEN 0312 00563000 B @RC00308 0312 00564000 @RF00308 TM UCBIORST(UCBPTR),B'10000000' 0312 00565000 BNO @RF00312 0312 00566000 * PCCACCRA='1'B; /* @Y30CJJE*/ 00567000 OI PCCACCRA(PCCAPTR),B'00000100' 0313 00568000 * ELSE 0314 00569000 * ; 0314 00570000 @RF00312 DS 0H 0315 00571000 * ELSE 0315 00572000 * 0315 00573000 * /***********************************************************/ 00574000 * /* */ 00575000 * /* CHECK IF RECONFIGURATION DIAGNOSE IS ACTIVE FOR THE */ 00576000 * /* FAILING CHANNEL AND IF SO SET PCCACCRA TO INDICATE */ 00577000 * /* RECONFIGURATION HARDWARE IS ACTIVE */ 00578000 * /* */ 00579000 * /***********************************************************/ 00580000 * 0315 00581000 * IF CRCADIAG='1'B THEN 0315 00582000 B @RC00307 0315 00583000 @RF00307 L @15,CVTPTR 0315 00584000 L @15,CRCAPTR(,@15) 0315 00585000 TM CRCADIAG(@15),B'10000000' 0315 00586000 BNO @RF00315 0315 00587000 * PCCACCRA='1'B; /* @Y30CJJE*/ 00588000 OI PCCACCRA(PCCAPTR),B'00000100' 0316 00589000 * ELSE 0317 00590000 * ; 0317 00591000 @RF00315 DS 0H 0318 00592000 * END; 0318 00593000 * END IGFCCHRV; /* @Y30CJJE*/ 00594000 @EL00002 DS 0H 0319 00595000 @EF00002 DS 0H 0319 00596000 @ER00002 BR @14 0319 00597000 * 0320 00598000 */* CCH SENSE INTERCEPT SUBROUTINE */ 00599000 */* START OF SPECIFICATIONS **** 0320 00600000 * 0320 00601000 *01* MODULE-NAME = IGFCCHSI 0320 00602000 * 0320 00603000 *01* DESCRIPTIVE-NAME = SENSE INTERCEPT ROUTINE FOR RMS CCH 0320 00604000 * 0320 00605000 *01* COPYRIGHT = NONE 0320 00606000 * 0320 00607000 *01* STATUS = VERSION 1 FOR VS/2 RELEASE 2 0320 00608000 * 0320 00609000 *01* FUNCTION = THE SENSE INTERRUPT SUBROUTINE, IGFCCHSI, RECEIVES 00610000 * CONTROL FROM IGFCCHCR TO PERFORM THOSE FUNCTIONS THAT ARE UNIQUE 00611000 * TO A CODE 8 (CHANNEL DETECTED ERROR ON A SIO SENSE OPERATION) 00612000 * ENTRY FROM IOS. IGFCCHSI INVOKES IGFCCHFE TO CREATE AN ERPIB FOR 00613000 * RECORDING PURPOSES ONLY. IGFCCHSI RETURNS TO IGFCCHCR AT LABEL 00614000 * CCHTSTRE. 0320 00615000 * 0320 00616000 *01* NOTES = NONE 0320 00617000 * 0320 00618000 *02* CHARACTER-CODE-DEPENDENCIES = EBCDIC DEPENDANT 0320 00619000 * 0320 00620000 *02* DEPENDENCIES = NONE 0320 00621000 * 0320 00622000 *02* RESTRICTIONS = NONE 0320 00623000 * 0320 00624000 *02* REGISTER-CONVENTIONS = NONE 0320 00625000 * 0320 00626000 *02* PATCH-LABEL = NO PATCH AREA IS INCLUDED IN THIS MODULE 0320 00627000 * 0320 00628000 *01* MODULE-TYPE = MODULE 0320 00629000 * 0320 00630000 *02* PROCESSOR = PLS 0320 00631000 * 0320 00632000 *02* MODULE-SIZE = 100 BYTES 0320 00633000 * 0320 00634000 *02* ATTRIBUTES = REUSABLE, NUCLEUS RESIDENT, DISABLED 0320 00635000 * 0320 00636000 *01* ENTRY-POINT = IGFCCHSI 0320 00637000 * 0320 00638000 *02* PURPOSE = TO SET RECORD FUNCTION ONLY AND IF REQUIRED SET NO 00639000 * RETRY IN THE WORK ERPIB AND CHANNEL CONTROL CHECK IN THE 0320 00640000 * CSW SAVED IN IOSB 0320 00641000 * 0320 00642000 *02* LINKAGE = CALL 0320 00643000 * 0320 00644000 *02* INPUT = ADDRESS OF IOSB IN REGISTER 2 0320 00645000 * ADDRESS OF PCCA IN REGISTER 8 0320 00646000 * ADDRESS OF IOS UCB IN REGISTER 7 0320 00647000 * ADDRESS OF ADDRESS OF EWAERPIB IN REGISTER 12 0320 00648000 * 0320 00649000 *02* OUTPUT = WORK ERPIB AND IOSB CSW MODIFIED AS REQUIRED 0320 00650000 * 0320 00651000 *02* EXIT-NORMAL = RETURN TO CCH CENTRAL VIA BRANCH TO CCHTSTRE 0320 00652000 * 0320 00653000 *02* EXIT-ERROR = NONE 0320 00654000 * 0320 00655000 *01* EXTERNAL-REFERENCES 0320 00656000 * 0320 00657000 *02* ROUTINES = IGFCCHFE 0320 00658000 * 0320 00659000 *02* DATA-SETS = NONE 0320 00660000 * 0320 00661000 *02* DATA-AREA = NONE 0320 00662000 * 0320 00663000 *02* CONTROL-BLOCKS = FLC,PCCA,IOSB,UCB,CSW 0320 00664000 * 0320 00665000 *01* TABLES = NONE 0320 00666000 * 0320 00667000 *01* MACROS = IHAPSA,IHAPCCA,IEFUCBOB.IECDIOSB 0320 00668000 * 0320 00669000 *01* CHANGE-ACTIVITY = NONE 0320 00670000 * 0320 00671000 *02* A = NONE 0320 00672000 * 0320 00673000 *02* D = NONE 0320 00674000 * 0320 00675000 *02* C = NONE 0320 00676000 * 0320 00677000 * 0320 00678000 **** END OF SPECIFICATIONS ** */ 00679000 * 0320 00680000 *IGFCCHSI: 0320 00681000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0320 00682000 * 0320 00683000 IGFCCHSI DS 0H 0321 00684000 * /*****************************************************************/ 00685000 * /* */ 00686000 * /* SET SENSE INTERCEPT FOOTPRINT IN PCCA */ 00687000 * /* */ 00688000 * /*****************************************************************/ 00689000 * 0321 00690000 * PCCACF14=BINARY1; 0321 00691000 * 0321 00692000 OI PCCACF14(PCCAPTR),B'00010000' 0321 00693000 * /*****************************************************************/ 00694000 * /* */ 00695000 * /* SET RECORD FUNCTION ONLY */ 00696000 * /* */ 00697000 * /*****************************************************************/ 00698000 * 0322 00699000 * PCCACNLS=BINARY1; 0322 00700000 * 0322 00701000 OI PCCACNLS(PCCAPTR),B'00010000' 0322 00702000 * /*****************************************************************/ 00703000 * /* */ 00704000 * /* INVOKE FILL ERPIB ROUTINE (IGFCCHFE) */ 00705000 * /* */ 00706000 * /*****************************************************************/ 00707000 * 0323 00708000 * CALL IGFCCHFE; 0323 00709000 * 0323 00710000 BAL @14,IGFCCHFE 0323 00711000 * /*****************************************************************/ 00712000 * /* */ 00713000 * /* IF ONLY CHANNEL DATA CHECK IS SET IN THE CSW THEN NO MORE */ 00714000 * /* PROCESSING WILL BE DONE BY THIS ROUTINE AND CONTROL WILL BE */ 00715000 * /* RETURNED TO CCH CENTRAL. HOWEVER IF ANOTHER ERROR CONDITION */ 00716000 * /* EXISTS THEN NO RETRY WILL BE SET IN THE WORK ERPIB. */ 00717000 * /* */ 00718000 * /*****************************************************************/ 00719000 * 0324 00720000 * IF CSWICC=BINARY1|CSWCCC=BINARY1 THEN 0324 00721000 TM CSWICC,B'00000110' 0324 00722000 BZ @RF00324 0324 00723000 * PCCACNOR=BINARY1; /* SET NO RETRY */ 00724000 * 0325 00725000 OI PCCACNOR(PCCAPTR),B'00000001' 0325 00726000 * /*****************************************************************/ 00727000 * /* */ 00728000 * /* RETURN CONTROL TO CCH CENTRAL AT CCHTSTRE */ 00729000 * /* */ 00730000 * /*****************************************************************/ 00731000 * 0326 00732000 * RETURN TO CCHTSTRE; 0326 00733000 @RF00324 LA @14,CCHTSTRE 0326 00734000 @EL00003 DS 0H 0326 00735000 @EF00003 DS 0H 0326 00736000 @ER00003 BR @14 0326 00737000 * END IGFCCHSI; 0327 00738000 * 0328 00739000 */* START OF SPECIFICATIONS **** 0328 00740000 * 0328 00741000 *01* MODULE-NAME = IGFCCHFE 0328 00742000 * 0328 00743000 *01* DESCRIPTIVE-NAME = FILL ERPIB SUBROUTINE 0328 00744000 * 0328 00745000 *01* COPYRIGHT = N/A 0328 00746000 * 0328 00747000 *01* STATUS = PRELIMINARY 0328 00748000 * 0328 00749000 *01* FUNCTION = THE IGFCCHFE SUBROUTINE IS CALLED BY THE CCH CENTRAL 00750000 * MODULE IGFCCHCR TO COMPLETE THE WORK ERPIB. IGFCCHFE DETERMINES 00751000 * THE CHANNEL TYPE FROM THE CHAANEL AVAILABILITY TABLE (CAT) AND 00752000 * CALLS THE APPROPRIATE CHANNEL DEPENDENT ANALYSIS MODULE TO FILL 00753000 * THE DEPENDENT PORTION OF THE ERPIB. 0328 00754000 * 0328 00755000 * THE COMPLETED WORK ERPIB WILL BE MOVED INTO THE EWA ERPIB 0328 00756000 * EXCEPT IN THE FOLLOWING CASES: 0328 00757000 * 0328 00758000 * 1) PCCACNLS (RECORD ONLY) IS SET 0328 00759000 * 2) PCCACIOR (I/O RESTART REQUIRED) IS SET 0328 00760000 * 3) EWACHA DOES NOT EQUAL THE UCB DEVICE ADDRESS 0328 00761000 * 4) UCBUSING NOT SET IN THE UCB (CHANNEL END PREV. RECEIVED) 00762000 * 0328 00763000 * THE SUBROUTINE RETURNS TO IGFCCHCR. 0328 00764000 * 0328 00765000 *01* NOTES = PCCACHSV FIELD IS USED TO SAVE REGISTERS. 0328 00766000 * 0328 00767000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 0328 00768000 * 0328 00769000 *02* DEPENDENCIES = NONE 0328 00770000 * 0328 00771000 *02* RESTRICTIONS = NONE 0328 00772000 * 0328 00773000 *02* REGISTER-CONVENTIONS = AS FOLLOWS: 0328 00774000 * GPR4- BASE REGISTER 0328 00775000 * GPR14- RETURN ADDRESS REG 0328 00776000 * 0328 00777000 *02* PATCH-LABEL = NONE 0328 00778000 * 0328 00779000 *01* MODULE-TYPE = MODULE 0328 00780000 * 0328 00781000 *02* PROCESSOR = PLS 0328 00782000 * 0328 00783000 *02* MODULE-SIZE = 450 BYTES 0328 00784000 * 0328 00785000 *02* ATTRIBUTES = REENTERABLE 0328 00786000 * 0328 00787000 *01* ENTRY-POINT = IGFCCHFE 0328 00788000 * 0328 00789000 *02* PURPOSE = FILL THE ERPIB IN THE EWA 0328 00790000 * 0328 00791000 *02* LINKAGE = CALL 0328 00792000 * 0328 00793000 *02* INPUT = EWACHA -IOS UNIT ADDRESS 0328 00794000 * GPR7 -IOS UCB ADDRESS 0328 00795000 * GPR8 -ADDRESS OF THE PCCA 0328 00796000 * GPR14 -RETURN ADDRESS 0328 00797000 * GPR2 -ADDRESS OF IOSB FOR THE ASSOCIATED REQUEST 00798000 * GPR12 -ADDRESS OF THE EWA ERPIB 0328 00799000 * 0328 00800000 *02* OUTPUT = WORK ERPIB COMPLETED 0328 00801000 * 0328 00802000 *02* EXIT-NORMAL = IGFCCHCR 0328 00803000 * 0328 00804000 *02* EXIT-ERROR = NONE 0328 00805000 * 0328 00806000 *01* EXTERNAL-REFERENCES = IGFCIC 0328 00807000 * IGFC60 0328 00808000 * IGFC70 0328 00809000 * IGFC80 0328 00810000 * PCCA 0328 00811000 * CSW 0328 00812000 * UCB 0328 00813000 * CAT 0328 00814000 * IOSB 0328 00815000 * EWA 0328 00816000 * 0328 00817000 *02* ROUTINES = NONE 0328 00818000 * 0328 00819000 *02* DATA-SETS = NONE 0328 00820000 * 0328 00821000 *02* DATA-AREA = PCCACSV1,PCCACSV2 0328 00822000 * 0328 00823000 *02* CONTROL-BLOCKS = PCCAWERP(THE WORK ERPIB) 0328 00824000 * UCB 0328 00825000 * 0328 00826000 *01* TABLES = NONE 0328 00827000 * 0328 00828000 *01* MACROS = IHAPCCA,IECDEWA,IECDIOSB,IHAFLC,IEFUCBOB 0328 00829000 * 0328 00830000 *01* CHANGE-ACTIVITY = AS FOLLOWS: 0328 00831000 * 0328 00832000 *02* A = 29525 0328 00833000 * 0328 00834000 *02* D = 29525 0328 00835000 * 0328 00836000 *02* C = 29525 0328 00837000 * 0328 00838000 **** END OF SPECIFICATIONS ** */ 00839000 * 0328 00840000 *IGFCCHFE: 0328 00841000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0328 00842000 IGFCCHFE DS 0H 0329 00843000 * DCL 0329 00844000 * WRKREG5 REG(5) PTR(24) RESTRICTED; 0329 00845000 * DCL 0330 00846000 * WRKREG3 REG(3) PTR(24) RESTRICTED; 0330 00847000 * DCL 0331 00848000 * INDEXTAB CHAR(4) INIT('0C000408'X); 0331 00849000 * DCL 0332 00850000 * INDEXBYT CHAR(1) BASED(WRKREG5); 0332 00851000 * DCL 0333 00852000 * IGFCHADR PTR(31) BASED(WRKREG3); 0333 00853000 * DCL 0334 00854000 * UNITADR FIXED(16) DEFINED(FLCIOA) POSITION(3); 0334 00855000 * DCL 0335 00856000 * IGFCRTN ENTRY BASED(IGFCHADR); 0335 00857000 * DCL 0336 00858000 * CCMASKFE FIXED(31) INIT('00000FFF'X) UNSIGNED; 0336 00859000 * RESPECIFY 0337 00860000 * CATPTR RSTD; 0337 00861000 * RESPECIFY 0338 00862000 * WKREG1 UNRSTD; 0338 00863000 * 0338 00864000 */****************************************************************** */ 00865000 */* SAVE REGISTER 14 SO IT WILL NOT BE DESTROYED BY THE */ 00866000 */* DEPENDENT ANALYSIS ROUTINES . ALSO SET THE FOOT- */ 00867000 */* PRINT IN THE PCCA. */ 00868000 */****************************************************************** */ 00869000 * 0339 00870000 * PCCACF16='1'B; /* SET FOOTPRINT */ 00871000 OI PCCACF16(PCCAPTR),B'00000100' 0339 00872000 * PCCACHSV(2)=RTNREG; /* SAVE REG 14 */ 00873000 ST RTNREG,PCCACHSV+4(,PCCAPTR) 0340 00874000 */****************************************************************** */ 00875000 */* DETERMINE IF ENTRY WAS FROM A HALT I/O. IF SO USE THE */ 00876000 */* DEVICE ADDRESS PASSED TO CCH IN REG 6. IF NOT HALT I/O */ 00877000 */* DETERMINE IF THE ERP WORK AREA EXIST. IF SO, PUT THE */ 00878000 */* UNIT ADDRESS IN THE EWA IN REG 6. OTHERWISE PUT THE */ 00879000 */* HARDWARE ADDRESS IN REG 6. */ 00880000 */****************************************************************** */ 00881000 * 0341 00882000 * IF PCCACHIB=BINARY1 THEN 0341 00883000 TM PCCACHIB(PCCAPTR),B'00010000' 0341 00884000 BNO @RF00341 0341 00885000 * UAREG=SAVREG6; /* USE REG6 PASSED BY IOS 0342 00886000 * @YM04216*/ 00887000 L UAREG,SAVREG6(,SAVREG) 0342 00888000 * ELSE 0343 00889000 * DO; /* @YM04216*/ 00890000 B @RC00341 0343 00891000 @RF00341 DS 0H 0344 00892000 * IF ERPIBREG=0 THEN 0344 00893000 LTR ERPIBREG,ERPIBREG 0344 00894000 BNZ @RF00344 0344 00895000 * UAREG=UNITADR; /* EWA EXIST? NO */ 00896000 LH UAREG,UNITADR 0345 00897000 N UAREG,@CF03517 0345 00898000 * ELSE 0346 00899000 * UAREG=ERPCHA; /* YES. GET EWA ADDR */ 00900000 B @RC00344 0346 00901000 @RF00344 LH UAREG,ERPCHA(,ERPIBREG) 0346 00902000 * END; /* @YM04216*/ 00903000 @RC00344 DS 0H 0348 00904000 */****************************************************************** */ 00905000 */* OBTAIN THE CAT ENTRY FOR THIS CHANNEL IN ORDER TO DE- */ 00906000 */* TERMINE THE TYPE OF CHANNEL. */ 00907000 */****************************************************************** */ 00908000 * 0348 00909000 * CATPTR=((UAREG/256)*8)+ADDR(PCCACAT);/* GET CAT PTR @YM04638*/ 00910000 @RC00341 LR @00,UAREG 0348 00911000 SRDA @00,32 0348 00912000 D @00,@CF00986 0348 00913000 SLA @01,3 0348 00914000 LA CATPTR,PCCACAT(,PCCAPTR) 0348 00915000 ALR @01,CATPTR 0348 00916000 LR CATPTR,@01 0348 00917000 * IF CATNID='1'B THEN 0349 00918000 TM CATNID(CATPTR),B'00001000' 0349 00919000 BO @RT00349 0349 00920000 * GOTO FETSTNIP; /* CAT ENTRY VALID ? */ 00921000 * IF CATMODL='03'X THEN 0351 00922000 CLI CATMODL(CATPTR),X'03' 0351 00923000 BE @RT00351 0351 00924000 * GOTO FECON80; /* THIS A 2880 ? */ 00925000 * IF CSWCCC='0'B&CSWICC='0'B THEN 0353 00926000 TM CSWCCC,B'00000110' 0353 00927000 BZ @RT00353 0353 00928000 * GOTO FESIO; /* NO,CDC ONLY? */ 00929000 */****************************************************************** */ 00930000 */* IF NOT A CHANNEL DATA CHECK ,SET THE APPROPRIATE BITS IN */ 00931000 */* PCCA, AND FIND OUT IF NECESSARY CHANNEL DEPENDENT ANALYSIS*/ 00932000 */* MODULE WAS LOADED DURING CCH INITIALIZATION . */ 00933000 */* IF SO LINK TO THAT ROUTINE TO COMPLETE THE ERPIB (WORK) */ 00934000 */* A CHECK IS MADE ALSO FOR UNRECOGNIZABLE CHANNELS , IF ONE */ 00935000 */* IS FOUND ,THE URC BIT IS SET IN THE PCCA. */ 00936000 */****************************************************************** */ 00937000 * 0355 00938000 *FECON80: 0355 00939000 * PCCACSQV='1'B; /* SET RETRY CDE VAL */ 00940000 @RF00353 DS 0H 0355 00941000 FECON80 OI PCCACSQV(PCCAPTR),B'00010000' 0355 00942000 * PCCACHPF=PCCACHRB; /* MOVE IN PROG. FLG */ 00943000 MVC PCCACHPF(1,PCCAPTR),PCCACHRB(PCCAPTR) 0356 00944000 * PCCACHUB=UCBPTR; /* GET THE ADDR OF UCB COMMON IN 00945000 * THE PCCA */ 00946000 ST UCBPTR,PCCACHUB(,PCCAPTR) 0357 00947000 * PCCACCHV='1'B; /* SET ADDR VALID */ 00948000 OI PCCACCHV(PCCAPTR),B'00000010' 0358 00949000 * IF CATMODL>'03'X&CATMODL^='0A'X THEN 0359 00950000 CLI CATMODL(CATPTR),X'03' 0359 00951000 BNH @RF00359 0359 00952000 CLI CATMODL(CATPTR),X'0A' 0359 00953000 BE @RF00359 0359 00954000 * PCCACURC='1'B; /* URC? */ 00955000 OI PCCACURC(PCCAPTR),B'00001000' 0360 00956000 * IF CATMODL>'03'X THEN 0361 00957000 @RF00359 CLI CATMODL(CATPTR),X'03' 0361 00958000 BNH @RF00361 0361 00959000 * WRKREG3=12; /* TYPE OUT OF RANGE? */ 00960000 LA WRKREG3,12 0362 00961000 * ELSE 0363 00962000 * DO; /* TYPE WITHIN RANGE */ 00963000 B @RC00361 0363 00964000 @RF00361 DS 0H 0364 00965000 * WRKREG5=CATMODL+ADDR(INDEXTAB);/* GET INDEX INTO TAB */ 00966000 LA @15,INDEXTAB 0364 00967000 SLR @10,@10 0364 00968000 IC @10,CATMODL(,CATPTR) 0364 00969000 ALR @15,@10 0364 00970000 LR WRKREG5,@15 0364 00971000 * WRKREG3=INDEXBYT; /* GET INDEX INTO DA */ 00972000 SLR WRKREG3,WRKREG3 0365 00973000 IC WRKREG3,INDEXBYT(,WRKREG5) 0365 00974000 * END; 0366 00975000 * WRKREG3=WRKREG3+RVTCCHDA; /* R6=ADDR DEP RTN. */ 00976000 @RC00361 L @15,CVTPTR 0367 00977000 L @15,RVTPTR(,@15) 0367 00978000 AL WRKREG3,RVTCCHDA(,@15) 0367 00979000 * IF IGFCHADR=0 THEN 0368 00980000 L @15,IGFCHADR(,WRKREG3) 0368 00981000 LTR @15,@15 0368 00982000 BNZ @RF00368 0368 00983000 * DO; /* MOD. LOADED? */ 00984000 *FENOMOD: 0370 00985000 * PCCACMOD='1'B; /* SET MOD. UNAVAIL. */ 00986000 FENOMOD OI PCCACMOD(PCCAPTR),B'00100000' 0370 00987000 *FETSTNIP: 0371 00988000 * IF CVTNIP='1'B THEN 0371 00989000 FETSTNIP L @15,CVTPTR 0371 00990000 TM CVTNIP(@15),B'00010000' 0371 00991000 BO @RT00371 0371 00992000 * GOTO IGFCCHEX; /* NIP IN PROCESS ? */ 00993000 * ELSE 0373 00994000 * DO; /* NO, SET FOLLOWING */ 00995000 * PCCACIOR='1'B; /* I/O RESTART */ 00996000 OI PCCACIOR(PCCAPTR),B'10000000' 0374 00997000 * PCCACNLS='1'B; /* SET RECORD ONLY */ 00998000 OI PCCACNLS(PCCAPTR),B'00010000' 0375 00999000 * GOTO FERETURN; /* RETURN TO CENTRAL */ 01000000 B FERETURN 0376 01001000 * END; 0377 01002000 * END; 0378 01003000 * RESPECIFY 0379 01004000 * (WRKREG5, 0379 01005000 * CATPTR) UNRSTD; /* RELEASE REG 5 */ 01006000 @RF00368 DS 0H 0380 01007000 */****************************************************************** */ 01008000 */* BRANCH TO THE CHANNEL DEPENDENT ANALYSIS ROUTINE */ 01009000 */* */ 01010000 */* REGISTERS 6 & 8 WILL BE PRESERVED ACROSS THE INTERFACE */ 01011000 */* REGISTERS 11 AND 14 WILL BE SAVED AND RESTORED ON RETURN */ 01012000 */* FROM THE ANALYSIS ROUTINES. ANY OTHER INPUT REGS NEEDED */ 01013000 */* WILL HAVE TO BE RESTORED FROM THE IOS SAVE AREA. */ 01014000 */* */ 01015000 */* REGISTER 13 SHOULD NOT BE USED IN THE DEPENDENT ANALYSIS */ 01016000 */* ROUTINE UNDER ANY CIRCUMSTANCES. */ 01017000 */****************************************************************** */ 01018000 * 0380 01019000 * CALL IGFCRTN; /* CALL DEP RTN */ 01020000 L @15,IGFCHADR(,WRKREG3) 0380 01021000 BALR @14,@15 0380 01022000 * BASEREG=SAVIGFCR; /* RESTORE THE BASE */ 01023000 L BASEREG,SAVIGFCR(,SAVREG) 0381 01024000 * ERPIBREG=SAVERPIB; /* RESTORE ERPIB REG */ 01025000 L ERPIBREG,SAVERPIB(,SAVREG) 0382 01026000 * IF CSWCCC='0'B&CSWICC='0'B THEN 0383 01027000 TM CSWCCC,B'00000110' 0383 01028000 BZ @RT00383 0383 01029000 * GOTO FESIO; /* CDC ONLY ? */ 01030000 * IF PCCACIOR='1'B THEN 0385 01031000 @RF00383 TM PCCACIOR(PCCAPTR),B'10000000' 0385 01032000 BO @RT00385 0385 01033000 * GOTO FERETURN; /* IOR REQUESTED? */ 01034000 */****************************************************************** */ 01035000 */* IF THE UNIT ADDRESS IS INVALID THEN WE MUST CHECK FOR AN */ 01036000 */* INTERRUPT ,IF NOT, WE MUST CHECK FOR A SIO. */ 01037000 */****************************************************************** */ 01038000 * 0387 01039000 * IF PCCACDAV='0'B THEN /* UNIT ADDR VALID ? */ 01040000 TM PCCACDAV(PCCAPTR),B'00000001' 0387 01041000 BNZ @RF00387 0387 01042000 *FECHKINT: 0388 01043000 * IF PCCACINT='1'B THEN 0388 01044000 FECHKINT TM PCCACINT(PCCAPTR),B'01000000' 0388 01045000 BNO @RF00388 0388 01046000 * DO; /* INTERRUPT ? @YM00994*/ 01047000 * SAVUCB=ZERO; /* ZERO UCB ADDRESS IN SAVE AREA 01048000 * @YM00994*/ 01049000 SLR @15,@15 0390 01050000 ST @15,SAVUCB(,SAVREG) 0390 01051000 * GOTO FEZUCB; /* @YM00994*/ 01052000 B FEZUCB 0391 01053000 * END; /* @YM00994*/ 01054000 * ELSE 0393 01055000 * GOTO FESIO; 0393 01056000 * UCBPTR=SAVUCB; /* RESTORE UCB REG. */ 01057000 @RF00387 L UCBPTR,SAVUCB(,SAVREG) 0394 01058000 * IF UCBPTR=0 THEN 0395 01059000 LTR UCBPTR,UCBPTR 0395 01060000 BNZ @RF00395 0395 01061000 * DO; /* UCB ADDR=ZERO ? */ 01062000 *FEZUCB: 0397 01063000 * PCCACALT='1'B; /* SET ALTERNATE RTRN */ 01064000 FEZUCB OI PCCACALT(PCCAPTR),B'01000000' 0397 01065000 * PCCACUCB='1'B; /* SET UCB INVALID */ 01066000 * PCCACNLS='1'B; /* SET RECORD ONLY */ 01067000 OI PCCACUCB(PCCAPTR),B'00010010' 0399 01068000 * END; 0400 01069000 * 0400 01070000 */****************************************************************** */ 01071000 */* IF THE ERROR WAS ON A START I/O REQUEST ,THE COUNT AND */ 01072000 */* COMMAND ADDRESS MUST BE SET INVALID. IF NOT A SIO REQUEST */ 01073000 */* A TEST IS MADE FOR RECORD ONLY. */ 01074000 */****************************************************************** */ 01075000 * 0401 01076000 *FESIO: 0401 01077000 * IF PCCACSIB='0'B THEN 0401 01078000 @RF00395 DS 0H 0401 01079000 FESIO TM PCCACSIB(PCCAPTR),B'10000000' 0401 01080000 BZ @RT00401 0401 01081000 * GOTO FENLS; /* SIO REQUESTED ? */ 01082000 * PCCACCNT='0'B; /* SET COUNT INVALID */ 01083000 NI PCCACCNT(PCCAPTR),B'11111101' 0403 01084000 *FECMDINV: 0404 01085000 * PCCACCMD='0'B; /* CMD ADDR INVALID */ 01086000 FECMDINV NI PCCACCMD(PCCAPTR),B'11111011' 0404 01087000 */****************************************************************** */ 01088000 */* IF RECORD ONLY IS NOT SET, AND THE DEVICE ADDRESS IS */ 01089000 */* VALID (UNIT ADDRESS=UCB DEVICE ADDRESS) ,THEN THE ERPIB */ 01090000 */* (WORK) IS MOVED INTO THE EWA FOR THIS I/O REQUEST. */ 01091000 */****************************************************************** */ 01092000 * 0405 01093000 *FENLS: 0405 01094000 * IF PCCACNLS='1'B THEN 0405 01095000 FENLS TM PCCACNLS(PCCAPTR),B'00010000' 0405 01096000 BO @RT00405 0405 01097000 * GOTO FERETURN; /* RECORD ONLY SET ? */ 01098000 * UCBPTR=UCBPTR+LENGTH(UCB); /* OBTAIN UCB COMMON ADDRESS */ 01099000 LA UCBPTR,512(,UCBPTR) 0407 01100000 * IF UCBUSING='0'B THEN 0408 01101000 TM UCBUSING(UCBPTR),B'00100000' 0408 01102000 BZ @RT00408 0408 01103000 * GOTO FE103; /* POST UP ? */ 01104000 * ELSE 0410 01105000 * DO; /* YES, CK DEV ADDR */ 01106000 */****************************************************************** */ 01107000 */* GET THE UNIT ADDRESS FROM THE UCB, GET RID OF UNWANTED */ 01108000 */* BITS AND THEN COMPARE THE IOS DEV. ADDRESS TO THE UCB */ 01109000 */* DEVICE ADDRESS. */ 01110000 */****************************************************************** */ 01111000 * 0411 01112000 * WRKREG3=UCBCHAN; /* GET DEV. ADDR */ 01113000 LH WRKREG3,UCBCHAN(,UCBPTR) 0411 01114000 N WRKREG3,@CF03517 0411 01115000 * WRKREG3=WRKREG3&CCMASKFE; /* AND BITS */ 01116000 N WRKREG3,CCMASKFE 0412 01117000 * END; 0413 01118000 * IF UAREG=WRKREG3 THEN 0414 01119000 CR UAREG,WRKREG3 0414 01120000 BNE @RF00414 0414 01121000 * ERPERPIB=PCCAWERP; /* DEV. ADDR EQU */ 01122000 MVC ERPERPIB(8,ERPIBREG),PCCAWERP(PCCAPTR) 0415 01123000 *FE103: 0416 01124000 * IF PCCACUNS='0'B THEN 0416 01125000 @RF00414 DS 0H 0416 01126000 FE103 TM PCCACUNS(PCCAPTR),B'00001000' 0416 01127000 BNZ @RF00416 0416 01128000 * DO; /* UNIT STATUS VALID? @G51BPLC*/ 01129000 * CALL IGFPSAD0; /* OBTAIN AUTHORIZATION @G51BPLC*/ 01130000 L @15,@CV03088 0418 01131000 BALR @14,@15 0418 01132000 * CSWUSTAT=X0; /* CLEAR UNIT STATUS @G51BPLC*/ 01133000 MVI CSWUSTAT,X'00' 0419 01134000 * CALL IGFPSAE0; /* RELSE AUTHORIZATION @G51BPLC*/ 01135000 L @15,@CV03089 0420 01136000 BALR @14,@15 0420 01137000 * END; /* @G51BPLC*/ 01138000 *FERETURN: 0422 01139000 * RTNREG=PCCACHSV(2); /* RESTORE RETRN REG */ 01140000 @RF00416 DS 0H 0422 01141000 FERETURN L RTNREG,PCCACHSV+4(,PCCAPTR) 0422 01142000 * RETURN; 0423 01143000 @EL00004 DS 0H 0423 01144000 @EF00004 DS 0H 0423 01145000 @ER00004 BR @14 0423 01146000 * RESPECIFY 0424 01147000 * WRKREG3 UNRSTD; 0424 01148000 * END IGFCCHFE; 0425 01149000 * 0426 01150000 */* RECORD BUILD SUBROUTINE */ 01151000 */* START OF SPECIFICATIONS **** 0426 01152000 * 0426 01153000 *01* MODULE-NAME = IGFCCHRD 0426 01154000 * 0426 01155000 *01* DESCRIPTIVE-NAME = CHANNEL CHECK HANDLER RECORD BUILD 0426 01156000 * 0426 01157000 *01* COPYRIGHT = N/A 0426 01158000 * 0426 01159000 *01* STATUS = PRELIMINARY 0426 01160000 * 0426 01161000 *01* FUNCTION = THE IGFCCHRD SUBROUTINE IS CALLED BY THE CCH CENTRAL 01162000 * MODULE ,IGFCCHCR, TO CREATE THE CCH RECORD OF THE CHANNEL ERROR 01163000 * TO BE RECORDED ON THE SYS1.LOGREC DATA SET. THE RECORD BUILD 0426 01164000 * ROUTINE IS INVOKED FOR EACH CHANNEL ERROR PROCESSED BY CCH EXCEPT 01165000 * THE CASE WHERE AN FRR RETRY HAS TEMPORARILY DISABLED THE RECORD 01166000 * BUILD FUNCTION. THE REQUIRED DATA IS MOVED INTO THE BUFFER 0426 01167000 * WHICH IS POINTED TO BY PCCAELBA. @G51BPLC 01168000 * THE SUBROUTINES IGFCCHUC AND IGFCCHMP ARE CALLED BY IGFCCHRD TO 01169000 * PROVIDE THE ACTIVE I/O AND MULTIPROCESSING INFORMATION. 0426 01170000 * 0426 01171000 *01* NOTES = THE FIRST WORD OF THE PCCACHSV AREA WILL BE USED BY 0426 01172000 * IGFCCHRD ONLY DURING CCH PROCESSING. 0426 01173000 * 0426 01174000 *02* CHARACTER-CODE-DEPENDENCIES = EBCDIC 0426 01175000 * 0426 01176000 *02* DEPENDENCIES = IGFCDA 0426 01177000 * 0426 01178000 *02* RESTRICTIONS = NONE 0426 01179000 * 0426 01180000 *02* REGISTER-CONVENTIONS = GPR2 - ADDRESS OF IOSB 0426 01181000 * GPR8 - ADDRESS OF THE PCCA 0426 01182000 * GPR14 - RETURN ADDRESS 0426 01183000 * GPR11 - BASE REGISTER 0426 01184000 * 0426 01185000 *02* PATCH-LABEL = CCHMAINT 0426 01186000 * 0426 01187000 *01* MODULE-TYPE = MODULE 0426 01188000 * 0426 01189000 *02* PROCESSOR = PLS 0426 01190000 * 0426 01191000 *02* MODULE-SIZE = 200 BYTES 0426 01192000 * 0426 01193000 *02* ATTRIBUTES = REENTERABLE 0426 01194000 * 0426 01195000 *01* ENTRY-POINT = IGFCCHRD 0426 01196000 * 0426 01197000 *02* PURPOSE = CREATE A RECORD TO BE RECORDED ON THE SYS1.LOGREC 01198000 * DATA SET. 0426 01199000 * 0426 01200000 *02* LINKAGE = CALL 0426 01201000 * 0426 01202000 *02* INPUT = GPR8 - ADDRESS OF THE PCCA 0426 01203000 * GPR13 - ADDRESS OF THE IOS SAVE AREA 0426 01204000 * GPR14 - RETURN ADDRESS 0426 01205000 * 0426 01206000 *02* OUTPUT = CCH RECORD BUILT 0426 01207000 * 0426 01208000 *02* EXIT-NORMAL = IGFCCHCR 0426 01209000 * 0426 01210000 *02* EXIT-ERROR = NONE 0426 01211000 * 0426 01212000 *01* EXTERNAL-REFERENCES = AS FOLLOWS: 0426 01213000 * 0426 01214000 *02* ROUTINES = IGFCCHUC,IGFCCHMP 0426 01215000 * 0426 01216000 *02* DATA-SETS = NONE 0426 01217000 * 0426 01218000 *02* DATA-AREA = IGFCDA (THE CCH DATA AREA) 0426 01219000 * 0426 01220000 *02* CONTROL-BLOCKS = IOSB 0426 01221000 * PCCA 0426 01222000 * LRB 0426 01223000 * CVT 0426 01224000 * ASVT 0426 01225000 * ASCB 0426 01226000 * UCB 0426 01227000 * PSA 0426 01228000 * EWA 0426 01229000 * RVT 0426 01230000 * 0426 01231000 *01* TABLES = RDCCHTAB 0426 01232000 * 0426 01233000 *01* MACROS = NONE 0426 01234000 * 0426 01235000 *01* CHANGE-ACTIVITY = AS FOLLOWS: 0426 01236000 * 0426 01237000 *02* A = 29525 0426 01238000 * 0426 01239000 *02* D = 29525 0426 01240000 * 0426 01241000 *02* C = 29525 0426 01242000 * 0426 01243000 **** END OF SPECIFICATIONS ** */ 01244000 * 0426 01245000 *IGFCCHRD: 0426 01246000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0426 01247000 IGFCCHRD DS 0H 0427 01248000 * DCL 0427 01249000 * RDWORD FIXED(31) BASED(WKREG2); 0427 01250000 * DCL 0428 01251000 * RLRBCVPT PTR(24) REG(5); /* VARIABLE PTR */ 01252000 * DCL 0429 01253000 * RDLRBPTR REG(9) PTR(24) RESTRICTED;/* PTR FOR THE LRB */ 01254000 * DCL 0430 01255000 * RDINDEX PTR(24) REG(4) UNSIGNED; 0430 01256000 * DCL 0431 01257000 * RDJBNAME CHAR(8) BASED(WKREG5); 0431 01258000 * DCL 0432 01259000 * RDLRBREL CHAR(1) DEF(LRBHREL);/* OVERLAY FOR RELEASE # */ 01260000 * DCL 0433 01261000 * RDFTPRNT CHAR(1) DEF(PCCACHF1);/* FOOTPRINT OVERLAY */ 01262000 * DCL 0434 01263000 * RDSWITCH CHAR(1) DEF(PCCACHS1);/* OVERLAY FOR SWITCHES */ 01264000 * DCL 0435 01265000 * RDCFCCW CHAR(8) BASED(WKREG1); 0435 01266000 * DCL 0436 01267000 * 1 RDCSWWD CHAR(8) DEF(LRBCFCSW), 0436 01268000 * 2 * CHAR(1), 0436 01269000 * 2 RDCSWCMD PTR(24) BDY(BYTE); 0436 01270000 * DCL 0437 01271000 * RDTABINX CHAR(1) BASED(WKREG1); 0437 01272000 * DCL 0438 01273000 * 1 RDASVTAD PTR(32) BASED(RDINDEX),/* ASVT ASID OVERLAY */ 01274000 * 2 RDVTAVAL BIT(1); /* ADDRESS SPACE IN USE BIT */ 01275000 * DCL 0439 01276000 * RDCCHTAB(48) BIT(8) INIT('02'X,'05'X,(8)'0F'X,'0A'X,(5)'0F'X,'01' 01277000 * ,'0F'X,'06'X,(13)'0F'X,'03'X,(2)'0F'X,'07'X,(6)'0F'X,'0A'X,(5 01278000 * )'0F'X); /* @ZA01026*/ 01279000 * DCL 0440 01280000 * RDCONT2F FIXED(15) CONSTANT(47); 0440 01281000 * DCL 0441 01282000 * RDLOGOUT CHAR(*) BASED(PCCALOGA);/* DSECT FOR THE LOG */ 01283000 * DCL 0442 01284000 * RDCMAS0F BIT(32) CONSTANT('0000000F'X);/* CONSTANT MASK */ 01285000 * DCL 0443 01286000 * RDCMASF0 BIT(32) CONSTANT('000000F0'X);/* CONSTANT MASK */ 01287000 * DCL 0444 01288000 * 1 RDIOA CHAR(4) DEF(FLCIOA), /* HARDWARE UNIT ADDRESS */ 01289000 * 2 * CHAR(2), 0444 01290000 * 2 RDUNIT CHAR(2); /* DEVICE ADDRESS */ 01291000 * DCL 0445 01292000 * 1 * BIT(8) DEF(PCCACHID), 0445 01293000 * 2 * BIT(1), 0445 01294000 * 2 PER BIT(1), 0445 01295000 * 2 * BIT(6); /* OVERLAY FOR SYSTEM MASK */ 01296000 * DCL 0446 01297000 * RDFLCCAW CHAR(3) DEF(FLCCAW) POS(2);/* FIRST CCW ADDRESS */ 01298000 * DCL 0447 01299000 * RECBUF CHAR(*) BASED(PCCAELBA);/* LRB OVERLAY TO ZERO OUT 0447 01300000 * BUFFER @G51BPLC*/ 01301000 * DCL 0448 01302000 * RDLCTIME FIXED(32) DEF(LRBHDATE);/* FOR TIME CALCULATION 0448 01303000 * @ZA29525*/ 01304000 * RESPECIFY 0449 01305000 * WKREG2 RSTD; 0449 01306000 * RESPECIFY 0450 01307000 * LRB BASED(RDLRBPTR); 0450 01308000 * RESPECIFY 0451 01309000 * ERPIBREG UNRSTD; 0451 01310000 * 0451 01311000 * /*****************************************************************/ 01312000 * /* */ 01313000 * /* SET THE FOOTPRINT INDICATING ENTRY TO IGFCCHRD SUBROUTINE AND */ 01314000 * /* CLEAR THE PORTION OF THE LOGREC BUFFER PRECEEDING THE IOEL. */ 01315000 * /* */ 01316000 * /*****************************************************************/ 01317000 * 0452 01318000 * PCCACF23='1'B; /* SET THE FOOTPRINT */ 01319000 OI PCCACF23(PCCAPTR),B'00100000' 0452 01320000 * PCCACHSV(2)=RTNREG; /* SAVE REG 14 */ 01321000 ST RTNREG,PCCACHSV+4(,PCCAPTR) 0453 01322000 * RDLRBPTR=PCCAELBA; /* SET UP THE LRB BASE PTR 0454 01323000 * @G51BPLC*/ 01324000 L @15,PCCAELBA(,PCCAPTR) 0454 01325000 LR RDLRBPTR,@15 0454 01326000 * RECBUF(1:LENGTH(LRB)+LENGTH(LRBCCCH))=RECBUF(1:LENGTH(LRB)+LENGTH( 01327000 * LRBCCCH))&&RECBUF(1:LENGTH(LRB)+LENGTH(LRBCCCH));/* ZERO 0455 01328000 * BUFFER @G51BPLC*/ 01329000 * 0455 01330000 XC RECBUF(80,@15),RECBUF(@15) 0455 01331000 * /*****************************************************************/ 01332000 * /* */ 01333000 * /* GET THE RELEASE NUMBER IN THE RECORD */ 01334000 * /* */ 01335000 * /*****************************************************************/ 01336000 * 0456 01337000 * LRBCINCO='1'B; /* INDICATE RECORD INCOMPLETE 0456 01338000 * @G51BPLC*/ 01339000 OI LRBCINCO(RDLRBPTR),B'01000000' 0456 01340000 * LRBHTYPE=LRBHCCH; /* INDICATE CCH RECORD TYPE 0457 01341000 * @G51BPLC*/ 01342000 MVI LRBHTYPE(RDLRBPTR),X'21' 0457 01343000 * LRBHSYSB=LRBHVS2; /* INDICATE SYSTEM IS VS2 0458 01344000 * @G51BPLC*/ 01345000 NI LRBHSYSB(RDLRBPTR),B'10011111' 0458 01346000 OI LRBHSYSB(RDLRBPTR),B'10000000' 0458 01347000 * LRBHSYS=LRBHSYS|CDACCHSL; /* GET RELEASE NUMBER */ 01348000 * 0459 01349000 L @15,CVTPTR 0459 01350000 L @15,RVTPTR(,@15) 0459 01351000 L @15,CDAPTR(,@15) 0459 01352000 OC LRBHSYS(1,RDLRBPTR),CDACCHSL(@15) 0459 01353000 * /*****************************************************************/ 01354000 * /* */ 01355000 * /* SET FLAG INDICATING NEW SYSTEM CLOCK USED. */ 01356000 * /* */ 01357000 * /*****************************************************************/ 01358000 * 0460 01359000 * LRBHNS='1'B; /* NS CLOCK USED */ 01360000 * 0460 01361000 OI LRBHNS(RDLRBPTR),B'01000000' 0460 01362000 * /*****************************************************************/ 01363000 * /* */ 01364000 * /* IF THE SYSTEM FAILED TO LOG SET THE NO LOG FLAG IN RECORD */ 01365000 * /* */ 01366000 * /*****************************************************************/ 01367000 * 0461 01368000 * IF PCCACNLG='1'B THEN 0461 01369000 TM PCCACNLG(PCCAPTR),B'00010000' 0461 01370000 BNO @RF00461 0461 01371000 * LRBCNOSP='1'B; /* SET NO LOG IF NESS */ 01372000 * 0462 01373000 OI LRBCNOSP(RDLRBPTR),B'00010000' 0462 01374000 * /*****************************************************************/ 01375000 * /* */ 01376000 * /* MOVE IN THE ERPIB SWITCHES FROM THE WORK ERPIB. */ 01377000 * /* */ 01378000 * /*****************************************************************/ 01379000 * 0463 01380000 * LRBHSW2(1:2)=RDSWITCH(1:2); /* MOVE IN THE SWITCHES */ 01381000 * 0463 01382000 @RF00461 MVC LRBHSW2(2,RDLRBPTR),RDSWITCH(PCCAPTR) 0463 01383000 * /*****************************************************************/ 01384000 * /* */ 01385000 * /* ISSUE STORE CPU CLOCK TO GET THE DATE AND TIME, AND MOVE INTO */ 01386000 * /* THE RECORD. */ 01387000 * /* */ 01388000 * /*****************************************************************/ 01389000 * 0464 01390000 * GENERATE REFS(LRBHDATE,LRBHCPID,RDLRBPTR); 0464 01391000 STCK LRBHDATE(RDLRBPTR) GET THE DATE & TIME IN RECORD 01392000 BC 8,RDCPUID Q. STORED TIME VALID 01393000 XC LRBHDATE(8,RDLRBPTR),LRBHDATE(RDLRBPTR) NO , ZERO FIELD 01394000 RDCPUID STIDP LRBHCPID(RDLRBPTR) GET THE CPU ID IN THE RECORD 01395000 * IF LRBHDATE^=0 THEN 0465 01396000 L @15,LRBHDATE(,RDLRBPTR) 0465 01397000 LTR @15,@15 0465 01398000 BZ @RF00465 0465 01399000 * RDLCTIME=RDLCTIME+CVTTZ; /* CONVERT TIME FROM GMT TO LOCAL 01400000 * TIME @ZA29525*/ 01401000 * 0466 01402000 L @15,RDLCTIME(,RDLRBPTR) 0466 01403000 L @12,CVTPTR 0466 01404000 AL @15,CVTTZ(,@12) 0466 01405000 ST @15,RDLCTIME(,RDLRBPTR) 0466 01406000 * /*****************************************************************/ 01407000 * /* */ 01408000 * /* FIND THE JOB NAME OF THE JOB THAT CAUSED THE I/O ERROR. THIS */ 01409000 * /* IS MOVED INTO THE RECORD , IF FOUND. IF NOT, THE AREA IS */ 01410000 * /* ZEROED OUT. */ 01411000 * /* */ 01412000 * /*****************************************************************/ 01413000 * 0467 01414000 * IOSBPTR=SAVIOSB; /* GET THE ADDRESS OF THE IOSB */ 01415000 * 0467 01416000 @RF00465 L IOSBPTR,SAVIOSB(,SAVREG) 0467 01417000 * /*****************************************************************/ 01418000 * /* */ 01419000 * /* THE IOSB IS NEEDED TO GET THE ASID, TO FIND THE JOB NAME */ 01420000 * /* */ 01421000 * /*****************************************************************/ 01422000 * 0468 01423000 * IF IOSBPTR=0 THEN 0468 01424000 LTR IOSBPTR,IOSBPTR 0468 01425000 BNZ @RF00468 0468 01426000 *RDNOJOB: 0469 01427000 * LRBCJOB=LRBCJOB&&LRBCJOB; /* IOSB DOES NOT EXIST,NO NAME */ 01428000 RDNOJOB XC LRBCJOB(8,RDLRBPTR),LRBCJOB(RDLRBPTR) 0469 01429000 * ELSE 0470 01430000 * DO; 0470 01431000 B @RC00468 0470 01432000 @RF00468 DS 0H 0471 01433000 * RESPECIFY 0471 01434000 * (ASCBPTR, 0471 01435000 * RDINDEX, 0471 01436000 * WKREG5) RSTD; 0471 01437000 * RDINDEX=(IOSASID*4)+ADDR(ASVTENTY)-4;/* PT TO ASID ENTRY */ 01438000 * 0472 01439000 LH RDINDEX,IOSASID(,IOSBPTR) 0472 01440000 N RDINDEX,@CF03517 0472 01441000 SLA RDINDEX,2 0472 01442000 L @15,CVTPTR 0472 01443000 L @15,ASVTPTR(,@15) 0472 01444000 LA @15,ASVTENTY(,@15) 0472 01445000 ALR RDINDEX,@15 0472 01446000 SL RDINDEX,@CF00038 0472 01447000 * /*************************************************************/ 01448000 * /* */ 01449000 * /* CHECK TO SEE IF THE ADDRESS SPACE IS IN USE , IF NOT, THE */ 01450000 * /* SPACE IS INVALID. */ 01451000 * /* */ 01452000 * /*************************************************************/ 01453000 * 0473 01454000 * IF RDVTAVAL='1'B THEN 0473 01455000 TM RDVTAVAL(RDINDEX),B'10000000' 0473 01456000 BO @RT00473 0473 01457000 * GOTO RDNOJOB; 0474 01458000 * 0474 01459000 * /*************************************************************/ 01460000 * /* */ 01461000 * /* ADDRESS SPACE VALID, CHECK THE TWO FIELD IN THE IOSB TO */ 01462000 * /* SEE IF THEY POINT TO THE JOBNAME. */ 01463000 * /* */ 01464000 * /*************************************************************/ 01465000 * 0475 01466000 * ASCBPTR=RDASVTAD; /* GET THE ASCB ADDRESS */ 01467000 L ASCBPTR,RDASVTAD(,RDINDEX) 0475 01468000 * WKREG5=ASCBJBNI; /* GET PROBABLE NAME PTR */ 01469000 L WKREG5,ASCBJBNI(,ASCBPTR) 0476 01470000 * IF WKREG5=0 THEN 0477 01471000 SLR @15,@15 0477 01472000 CR WKREG5,@15 0477 01473000 BNE @RF00477 0477 01474000 * DO; /* ASCBJBNI IS 0, TRY ASCBJBNS */ 01475000 * WKREG5=ASCBJBNS; /* GET THE ASCBJBNS PTR */ 01476000 L WKREG5,ASCBJBNS(,ASCBPTR) 0479 01477000 * IF WKREG5=0 THEN 0480 01478000 CR WKREG5,@15 0480 01479000 BE @RT00480 0480 01480000 * GOTO RDNOJOB; /* NO JOBNAME AVAILABLE */ 01481000 * END; 0482 01482000 * GENERATE FLOWS(RDNOJOB); 0483 01483000 @RF00477 DS 0H 0483 01484000 LRA 2,0(5) CHECK TO SEE IF STORAGE IN CORE 01485000 BNZ RDNOJOB NO, NO JOBNAME AVAILABLE 01486000 * LRBCJOB=RDJBNAME; /* MOVE IN THE JOB NAME */ 01487000 MVC LRBCJOB(8,RDLRBPTR),RDJBNAME(WKREG5) 0484 01488000 * RESPECIFY 0485 01489000 * (ASCBPTR, 0485 01490000 * RDINDEX, 0485 01491000 * WKREG5) UNRSTD; 0485 01492000 * END; 0486 01493000 * 0486 01494000 * /*****************************************************************/ 01495000 * /* */ 01496000 * /* CALL THE UCB SEARCH ROUTINE TO GET THE ADDRESSES OF UP TO */ 01497000 * /* SEVEN (7) OF THE ACTIVE DEVICES ON THE FAILING CHANNEL, AND */ 01498000 * /* PLACE THEM IN THE RECORD. */ 01499000 * /* */ 01500000 * /*****************************************************************/ 01501000 * 0487 01502000 *RDCCHUC: 0487 01503000 * CALL IGFCCHUC; /* CALL THE UCB SEARCH ROUTINE */ 01504000 @RC00468 DS 0H 0487 01505000 RDCCHUC BAL @14,IGFCCHUC 0487 01506000 * RDLRBPTR=LRBPTR; /* RESTORE THE LRBPTR */ 01507000 * 0488 01508000 L RDLRBPTR,LRBPTR(,PCCAPTR) 0488 01509000 * /*****************************************************************/ 01510000 * /* */ 01511000 * /* AFTER RETURNING FROM THE UCB SEARCH RTN, GET THE FAILING CCW */ 01512000 * /* AND CSW INTO THE RECORD. THE ADDRESSES HAVE TO BE TRANSLATED */ 01513000 * /* BY THE SYSTEM TRANSLATE ROUTINE( REAL @ TO VIRTUAL @ ). */ 01514000 * /* */ 01515000 * /*****************************************************************/ 01516000 * 0489 01517000 * RESPECIFY 0489 01518000 * WKREG1 RSTD; /* RESTRICT REG 1 */ 01519000 * 0489 01520000 * /*****************************************************************/ 01521000 * /* */ 01522000 * /* GET THE CAW ADDR TO BE CHECKED ,IF THIS IS NOT AN INTERRUPT */ 01523000 * /* INTERCEPT. */ 01524000 * /* */ 01525000 * /*****************************************************************/ 01526000 * 0490 01527000 * WKREG1=RDFLCCAW; /* GET THE CAW ADDRESS */ 01528000 L WKREG1,RDFLCCAW-1 0490 01529000 LA WKREG1,0(,WKREG1) 0490 01530000 * IF PCCACINB='0'B THEN 0491 01531000 TM PCCACINB(PCCAPTR),B'01000000' 0491 01532000 BZ @RT00491 0491 01533000 * GOTO RDRSMXL; /* INTERRUPT INTERCEPT? */ 01534000 * 0492 01535000 * /*****************************************************************/ 01536000 * /* */ 01537000 * /* THIS IS AN INTERRUPT, IF THE COMMAND ADDRESS IN THE CSW IS */ 01538000 * /* VALID, THEN THIS IS THE ADDRESS WE MUST HAVE TRANSLATED AND */ 01539000 * /* MOVED INTO THE RECORD. */ 01540000 * /* */ 01541000 * /*****************************************************************/ 01542000 * 0493 01543000 * IF PCCACCMD='0'B THEN 0493 01544000 TM PCCACCMD(PCCAPTR),B'00000100' 0493 01545000 BZ @RT00493 0493 01546000 * GOTO RDMOVCSW; /* CMD @ INVALID */ 01547000 * WKREG1=CSWCMDAD; /* GET THE CMD @ IN REG 1 */ 01548000 L WKREG1,CSWCMDAD-1 0495 01549000 LA WKREG1,0(,WKREG1) 0495 01550000 * IF WKREG1=0 THEN 0496 01551000 LTR WKREG1,WKREG1 0496 01552000 BZ @RT00496 0496 01553000 * GOTO RDMOVCSW; /* CSW @ INVALID */ 01554000 * WKREG1=WKREG1-8; /* DECREMENT THE CSW CMD ADDR */ 01555000 * 0498 01556000 SL WKREG1,@CF00056 0498 01557000 * /*****************************************************************/ 01558000 * /* */ 01559000 * /* AT THIS POINT WE WILL DISABLE DAT AND USE REAL ADDRESS OF CCW */ 01560000 * /* BECAUSE THE FAILING CCW MAY BE IN ANOTHER MEMORY THAN ONE WE */ 01561000 * /* ARE CURRENTLY RUNNING IN, AND OUR SEGMENT TABLE MAY NOT BE */ 01562000 * /* VALID FOR THAT MEMORY. NOTE -- DYNAMIC ADDRESS TRANSLATION */ 01563000 * /* (DAT) IS DISABLED BETWEEN LABELS 'RDRSMXL' AND 'RDMOVCSW'. */ 01564000 * /* */ 01565000 * /*****************************************************************/ 01566000 * 0499 01567000 * RESPECIFY 0499 01568000 * WKREG5 RSTD; /* @YM06943*/ 01569000 *RDRSMXL: 0500 01570000 * WKREG5=PSAPCCAR; /* GET REAL ADDR OF PCCA @YM06943*/ 01571000 RDRSMXL L WKREG5,PSAPCCAR 0500 01572000 * RFY 0501 01573000 * (WKREG14) RSTD; /* @G51BPLC*/ 01574000 * GEN SETS(WKREG14) REFS(RDLRBPTR)(LRA 14,0(RDLRBPTR));/* GET ADDR 01575000 * OF LRB @G51BPLC*/ 01576000 LRA 14,0(RDLRBPTR) 01577000 * RFY 0503 01578000 * LRB BASED(WKREG14); /* REBASE LRB @G51BPLC*/ 01579000 * GENERATE REFS(PCCACHID,PCCAPTR)(STNSM PCCACHID(PCCAPTR),X'BB');/* 01580000 * DISABLE DAT @YM06943*/ 01581000 STNSM PCCACHID(PCCAPTR),X'BB' 01582000 * RESPECIFY 0505 01583000 * PCCA BASED(WKREG5); /* USE REAL ADDR OF PCCA @YM06943*/ 01584000 * LRBCFCCW=RDCFCCW; /* MOVE CCW INTO RECORD @YM06943*/ 01585000 MVC LRBCFCCW(8,WKREG14),RDCFCCW(WKREG1) 0506 01586000 * IF PER='1'B THEN 0507 01587000 TM PER(WKREG5),B'01000000' 0507 01588000 BNO @RF00507 0507 01589000 * GENERATE REFS(PCCACHID,WKREG5)(STOSM PCCACHID(WRKREG5),X'44'); 01590000 STOSM PCCACHID(WRKREG5),X'44' 01591000 * ELSE 0509 01592000 * GENERATE REFS(PCCACHID,WKREG5)(STOSM PCCACHID(WKREG5),X'04');/* 01593000 * RE-ENABLE DAT @YM06943*/ 01594000 B @RC00507 0509 01595000 @RF00507 DS 0H 0509 01596000 STOSM PCCACHID(WKREG5),X'04' 01597000 * RESPECIFY 0510 01598000 * PCCA BASED(PCCAPTR); /* GO BACK TO VIRTUAL ADDR OF 0510 01599000 * PCCA @YM06943*/ 01600000 @RC00507 DS 0H 0511 01601000 * RESPECIFY 0511 01602000 * WKREG5 UNRSTD; /* @YM06943*/ 01603000 * RFY 0512 01604000 * LRB BASED(RDLRBPTR); /* REBASE LRB ON VIRTUAL ADDRESS 01605000 * @G51BPLC*/ 01606000 * RFY 0513 01607000 * (WKREG14) UNRSTD; /* @G51BPLC*/ 01608000 * 0513 01609000 * /*****************************************************************/ 01610000 * /* */ 01611000 * /* MOVE THE CSW INTO THE RECORD. */ 01612000 * /* */ 01613000 * /*****************************************************************/ 01614000 * 0514 01615000 *RDMOVCSW: 0514 01616000 * LRBCFCSW=FLCCSW; /* MOVE THE CSW INTO RECORD */ 01617000 * 0514 01618000 RDMOVCSW MVC LRBCFCSW(8,RDLRBPTR),FLCCSW 0514 01619000 * /*****************************************************************/ 01620000 * /* */ 01621000 * /* IF THIS CHANNEL ERROR WAS THE RESULT OF A SIO INSTRUCTION, THE*/ 01622000 * /* CMD ADDRESS IN THE RECORD BUFFER CSW SHOULD BE ZEROED. */ 01623000 * /* */ 01624000 * /*****************************************************************/ 01625000 * 0515 01626000 * IF PCCACSIB='1'B THEN 0515 01627000 TM PCCACSIB(PCCAPTR),B'10000000' 0515 01628000 BNO @RF00515 0515 01629000 * RDCSWCMD=0; /* ZERO THE LRB CSW */ 01630000 * 0516 01631000 SLR @15,@15 0516 01632000 STCM @15,7,RDCSWCMD(RDLRBPTR) 0516 01633000 * /*****************************************************************/ 01634000 * /* */ 01635000 * /* MOVE THE LAST FOUR BYTES OF THE WORK ERPIB INTO THE RECORD */ 01636000 * /* */ 01637000 * /*****************************************************************/ 01638000 * 0517 01639000 * LRBCECSW=PCCAWERP(5:8); /* MOVE IN ECSW INFORMATION */ 01640000 * 0517 01641000 @RF00515 MVC LRBCECSW(4,RDLRBPTR),PCCAWERP+4(PCCAPTR) 0517 01642000 * /*****************************************************************/ 01643000 * /* */ 01644000 * /* IF THE UCB ADDR IS VALID THEN WE ARE TO MOVE IN THE DEVICE */ 01645000 * /* TYPE. */ 01646000 * /* */ 01647000 * /*****************************************************************/ 01648000 * 0518 01649000 * IF PCCACUCB='0'B THEN 0518 01650000 TM PCCACUCB(PCCAPTR),B'00000010' 0518 01651000 BNZ @RF00518 0518 01652000 * DO; 0519 01653000 * UCBPTR=SAVUCB+LENGTH(UCB); /* OBTAIN UCB COMMON ADDRESS */ 01654000 L @15,SAVUCB(,SAVREG) 0520 01655000 LA @15,512(,@15) 0520 01656000 LR UCBPTR,@15 0520 01657000 * LRBCDEVT=UCBTYP; /* VALID UCB */ 01658000 MVC LRBCDEVT(4,RDLRBPTR),UCBTYP(UCBPTR) 0521 01659000 * END; 0522 01660000 * 0522 01661000 */********************************************************************/ 01662000 */* */ 01663000 */* IF THE CAT ENTRY IS VALID FOR THE CHANNEL IN ERROR, THEN */ 01664000 */* THEN CHANNEL IDENTIFICATION IS MOVED INTO THE RECORD. */ 01665000 */* THE VALID CHANNEL IDS ARE: */ 01666000 */* 1. 00- UNKNOWN 2. 01- INT. BYTE MPX */ 01667000 */* 3. 02- INT. SELECTOR 4. 03- INT. BLOCK MPX */ 01668000 */* 5. 05- 2860 SELECTOR 6. 06- 2870 BYTE MPX. */ 01669000 */* 7. 07- 2880 BLOCK MPX 8. 0A- INT. FILE ADAPTOR */ 01670000 */* 9. 0F- UNRECOGNIZABLE CHANNEL */ 01671000 */* THE UNIT ADDR. REG (REG 6) WAS SAVED FROM IGFCCHFE AND STILL*/ 01672000 */* HAS THE UNIT ADDRESS IN IT. */ 01673000 */* */ 01674000 */********************************************************************/ 01675000 * 0523 01676000 * RESPECIFY 0523 01677000 * CATPTR RSTD; 0523 01678000 @RF00518 DS 0H 0524 01679000 * CATPTR=((UAREG/256)*8)+ADDR(PCCACAT);/* GET THE CAT ENTRY */ 01680000 LR @04,UAREG 0524 01681000 SRDA @04,32 0524 01682000 D @04,@CF00986 0524 01683000 SLA CATPTR,3 0524 01684000 LA @15,PCCACAT(,PCCAPTR) 0524 01685000 ALR CATPTR,@15 0524 01686000 * IF CATNID='1'B THEN 0525 01687000 TM CATNID(CATPTR),B'00001000' 0525 01688000 BNO @RF00525 0525 01689000 * LRBCCHID=X0; /* SET CHANNEL ID INVAL */ 01690000 MVI LRBCCHID(RDLRBPTR),X'00' 0526 01691000 * ELSE 0527 01692000 * DO; /* CAT GOOD, FIND THE ID */ 01693000 B @RC00525 0527 01694000 @RF00525 DS 0H 0528 01695000 * WKREG1=CATMODL&RDCMAS0F; /* GET THE CAT MODEL */ 01696000 SLR WKREG1,WKREG1 0528 01697000 IC WKREG1,CATMODL(,CATPTR) 0528 01698000 N WKREG1,@CF03138 0528 01699000 * WKREG2=CATTYPE&RDCMASF0; /* GET THE CAT TYPE */ 01700000 SLR WKREG2,WKREG2 0529 01701000 IC WKREG2,CATTYPE(,CATPTR) 0529 01702000 N WKREG2,@CF03306 0529 01703000 * WKREG1=WKREG1+WKREG2; /* REG1 HAS THE INDEX */ 01704000 * 0530 01705000 ALR WKREG1,WKREG2 0530 01706000 * /*************************************************************/ 01707000 * /* */ 01708000 * /* IF THE INDEX IN REG 1 IS GREATER THAN THE LENGTH OF THE */ 01709000 * /* TABLE, THEN MOVE IN AN ID OF '0F'X. */ 01710000 * /* */ 01711000 * /*************************************************************/ 01712000 * 0531 01713000 * IF WKREG1>RDCONT2F THEN 0531 01714000 C WKREG1,@CF03302 0531 01715000 BNH @RF00531 0531 01716000 * LRBCCHID='0F'X; /* INDEX>LEN TAB */ 01717000 MVI LRBCCHID(RDLRBPTR),X'0F' 0532 01718000 * ELSE 0533 01719000 * DO; /* NOT GREATER THAN TABLE */ 01720000 B @RC00531 0533 01721000 @RF00531 DS 0H 0534 01722000 * WKREG1=WKREG1+ADDR(RDCCHTAB);/* REG 1 PTS TO ID */ 01723000 LA @15,RDCCHTAB 0534 01724000 ALR WKREG1,@15 0534 01725000 * LRBCCHID=RDTABINX; /* GET THE ID IN RECORD */ 01726000 MVC LRBCCHID(1,RDLRBPTR),RDTABINX(WKREG1) 0535 01727000 * END; 0536 01728000 * END; 0537 01729000 * 0537 01730000 @RC00531 DS 0H 0538 01731000 * /*****************************************************************/ 01732000 * /* */ 01733000 * /* MOVE THE UNIT ADDRESS PASSED FROM IGFCCHFE( FILL ERPIB) */ 01734000 * /* SUBROUTINE TO THE RECORD FIELD. */ 01735000 * /* */ 01736000 * /*****************************************************************/ 01737000 * 0538 01738000 * RESPECIFY 0538 01739000 * (WKREG1, 0538 01740000 * CATPTR) UNRSTD; 0538 01741000 @RC00525 DS 0H 0539 01742000 * LRBCCUA2=UAREG; /* GET THE IOS UNIT ADDRESS */ 01743000 * 0539 01744000 STH UAREG,LRBCCUA2(,RDLRBPTR) 0539 01745000 * /*****************************************************************/ 01746000 * /* */ 01747000 * /* MOVE THE HARDWARE UNIT ADDRESS FROM LOC 'BA'X TO RECORD */ 01748000 * /* */ 01749000 * /*****************************************************************/ 01750000 * 0540 01751000 * LRBCHCUA=RDUNIT; /* GET THE HARDWARE UNIT ADDR */ 01752000 * 0540 01753000 MVC LRBCHCUA(2,RDLRBPTR),RDUNIT 0540 01754000 * /*****************************************************************/ 01755000 * /* */ 01756000 * /* DETERMINE THE LOGOUT LENGTH & ADDRESS FROM THE PCCA AND IF */ 01757000 * /* NEITHER IS ZERO, MOVE THE LOGOUT TO THE RECORD BUFFER. */ 01758000 * /* */ 01759000 * /*****************************************************************/ 01760000 * 0541 01761000 * IF PCCALOGL=0|PCCALOGA=0 THEN 0541 01762000 SLR @15,@15 0541 01763000 CH @15,PCCALOGL(,PCCAPTR) 0541 01764000 BE @RT00541 0541 01765000 C @15,PCCALOGA(,PCCAPTR) 0541 01766000 BNE @RF00541 0541 01767000 @RT00541 DS 0H 0542 01768000 * LRBCLOGL=0; /* SET LOG LEN=0 */ 01769000 SLR @15,@15 0542 01770000 STH @15,LRBCLOGL(,RDLRBPTR) 0542 01771000 * ELSE 0543 01772000 * DO; /* LOGOUT EXIST, MOVE INTO REC */ 01773000 B @RC00541 0543 01774000 @RF00541 DS 0H 0544 01775000 * IF PCCAELAD^=PCCALOGA THEN /* @G51BPLC*/ 01776000 L @15,PCCALOGA(,PCCAPTR) 0544 01777000 C @15,PCCAELAD(,PCCAPTR) 0544 01778000 BE @RF00544 0544 01779000 * LRBCCLOG(1:PCCALOGL)=RDLOGOUT(1:PCCALOGL);/* MOVE THE 0545 01780000 * LOGOUT TO THE RECORD */ 01781000 LH @12,PCCALOGL(,PCCAPTR) 0545 01782000 BCTR @12,0 0545 01783000 EX @12,@SM03522 0545 01784000 * LRBCLOGL=PCCALOGL; /* MOVE THE LOG LENGTH TO REC */ 01785000 @RF00544 LH @15,PCCALOGL(,PCCAPTR) 0546 01786000 STH @15,LRBCLOGL(,RDLRBPTR) 0546 01787000 * END; /* @G51BPLC*/ 01788000 * 0547 01789000 * /*****************************************************************/ 01790000 * /* */ 01791000 * /* ADJUST THE LRB PTR TO ACCOMMADATE THE LOGOUT(VARAIBLE LENGTH */ 01792000 * /* AND CLEAR REMAINDER OF LRB AFTER IOEL @G51BPLC*/ 01793000 * /* */ 01794000 * /*****************************************************************/ 01795000 * 0548 01796000 * RESPECIFY 0548 01797000 * RLRBCVPT RSTD; /* RESTRICTED REG 5 */ 01798000 @RC00541 DS 0H 0549 01799000 * RLRBCVPT=ADDR(LRBCCLOG)+LRBCLOGL;/* PTR PTS TO END OF LOG */ 01800000 LA RLRBCVPT,LRBCCLOG(,RDLRBPTR) 0549 01801000 LH @15,LRBCLOGL(,RDLRBPTR) 0549 01802000 N @15,@CF03517 0549 01803000 ALR RLRBCVPT,@15 0549 01804000 * RESPECIFY 0550 01805000 * LRBCVAR BASED(RLRBCVPT); 0550 01806000 * LRBCVAR(1:LENGTH(LRBCVAR)+16*LENGTH(LRBCMP))=LRBCVAR(1:LENGTH( 0551 01807000 * LRBCVAR)+16*LENGTH(LRBCMP))&&LRBCVAR(1:LENGTH(LRBCVAR)+16* 0551 01808000 * LENGTH(LRBCMP)); /* ZERO BUFFER AFTER IOEL 0551 01809000 * @G51BPLC*/ 01810000 * 0551 01811000 XC LRBCVAR(72,RLRBCVPT),LRBCVAR(RLRBCVPT) 0551 01812000 * /*****************************************************************/ 01813000 * /* */ 01814000 * /* MOVE THE FOOTPRINTS TO THE RECORD. */ 01815000 * /* */ 01816000 * /*****************************************************************/ 01817000 * 0552 01818000 * LRBCFT(1:2)=RDFTPRNT(1:2); /* MOVE FOOTPRINT TO RECORD */ 01819000 * 0552 01820000 MVC LRBCFT(2,RLRBCVPT),RDFTPRNT(PCCAPTR) 0552 01821000 * /*****************************************************************/ 01822000 * /* */ 01823000 * /* CALL THE IGFCCHMP SUBROUTINE TO GET THE MULTIPROCESSING INFO */ 01824000 * /* */ 01825000 * /*****************************************************************/ 01826000 * 0553 01827000 * CALL IGFCCHMP; /* CALL MP ROUTINE */ 01828000 BAL @14,IGFCCHMP 0553 01829000 * RDLRBPTR=PCCAELBA; /* RESTORE THE LRB BASE @G51BPLC*/ 01830000 * 0554 01831000 L RDLRBPTR,PCCAELBA(,PCCAPTR) 0554 01832000 * /*****************************************************************/ 01833000 * /* */ 01834000 * /* THE RECORD SHOULD BE COMPLETED, TURN OFF THE INCOMPLETE FLAG */ 01835000 * /* */ 01836000 * /*****************************************************************/ 01837000 * 0555 01838000 * LRBCINCO='0'B; /* TURN INCOMPLETE FLAG */ 01839000 NI LRBCINCO(RDLRBPTR),B'10111111' 0555 01840000 *RDRETURN: 0556 01841000 * RTNREG=PCCACHSV(2); /* RETURN TO THE CALLER */ 01842000 RDRETURN L RTNREG,PCCACHSV+4(,PCCAPTR) 0556 01843000 * RETURN; /* RESTORE LINKAGE REG */ 01844000 @EL00005 DS 0H 0557 01845000 @EF00005 DS 0H 0557 01846000 @ER00005 BR @14 0557 01847000 * RESPECIFY 0558 01848000 * (WKREG2, 0558 01849000 * RDLRBPTR, 0558 01850000 * UAREG) UNRSTD; 0558 01851000 * RESPECIFY 0559 01852000 * LRB BASED(LRBPTR); 0559 01853000 * END IGFCCHRD; 0560 01854000 * 0561 01855000 */* UCB SEARCH SUBROUTINE */ 01856000 */* START OF SPECIFICATIONS **** 0561 01857000 * 0561 01858000 *01* MODULE-NAME = IGFCCHUC 0561 01859000 * 0561 01860000 *01* DESCRIPTIVE-NAME = UCB SEARCH ROUTINE 0561 01861000 * 0561 01862000 *01* COPYRIGHT = NONE 0561 01863000 * 0561 01864000 *01* STATUS = VERSION 1 FOR VS/2 RELEASE 2 0561 01865000 * 0561 01866000 *01* FUNCTION = THE UCB SEARCH SUBROUTINE, IGFCCHUC, RECEIVES CONTROL 01867000 * FROM IGFCCHCR TO SEARCH THE UCB CHAIN FOR ACTIVE DEVICES ON THE 01868000 * CHANNEL INDICATING A CHANNEL FAILURE AND RECORD THE 0561 01869000 * DEVICE ADDRESSES OF UP TO EIGHT ACTIVE DEVICES ON THAT 0561 01870000 * CHANNEL IN THE LRB FOR OUTPUT TO LOGREC. 0561 01871000 * 0561 01872000 *01* NOTES = NONE 0561 01873000 * 0561 01874000 *02* CHARACTER-CODE-DEPENDENCIES = EBCDIC DEPENDANT 0561 01875000 * 0561 01876000 *02* DEPENDENCIES = NONE 0561 01877000 * 0561 01878000 *02* RESTRICTIONS = NONE 0561 01879000 * 0561 01880000 *02* REGISTER-CONVENTIONS = NONE 0561 01881000 * 0561 01882000 *02* PATCH-LABEL = NO PATCH AREA IS INCLUDED IN THIS MODULE 0561 01883000 * 0561 01884000 *01* MODULE-TYPE = MODULE 0561 01885000 * 0561 01886000 *02* PROCESSOR = PLS 0561 01887000 * 0561 01888000 *02* MODULE-SIZE = 100 BYTES 0561 01889000 * 0561 01890000 *02* ATTRIBUTES = REUSABLE, NUCLEUS RESIDENT, DISABLED 0561 01891000 * 0561 01892000 *01* ENTRY-POINT = IGFCCHUC 0561 01893000 * 0561 01894000 *02* PURPOSE = TO SEARCH THE UCB CHAIN AND LOCATE AND RECORD IN THE 01895000 * LRB ANY DEVICES ACTIVE ON A CHANNEL WITH A CHANNEL ERROR AT THE 01896000 * TIME OF THE ERROR. 0561 01897000 * 0561 01898000 *02* LINKAGE = CALL 0561 01899000 * 0561 01900000 *02* INPUT = ADDRESS OF PCCA IN REGISTER 8 0561 01901000 * ADDRESS OF FAILING CHANNEL IN REGISTER 6 0561 01902000 * RETURN ADDRESS IN REGISTER 14 0561 01903000 * 0561 01904000 *02* OUTPUT = LRBCAIO FIELD COMPLETED IN THE LRB 0561 01905000 * 0561 01906000 *02* EXIT-NORMAL = RETURN TO IGFCCHRD 0561 01907000 * 0561 01908000 *02* EXIT-ERROR = NONE 0561 01909000 * 0561 01910000 *01* EXTERNAL-REFERENCES 0561 01911000 * 0561 01912000 *02* ROUTINES = NONE 0561 01913000 * 0561 01914000 *02* DATA-SETS = NONE 0561 01915000 * 0561 01916000 *02* DATA-AREA = PCCACHW1 0561 01917000 * 0561 01918000 *02* CONTROL-BLOCKS = FLC,PCCA,CVT,UCB,LRB 0561 01919000 * 0561 01920000 *01* TABLES = NONE 0561 01921000 * 0561 01922000 *01* MACROS = IHAPSA,IHAPCCA,IEFUCBOB,CVT,IHALRB 0561 01923000 * 0561 01924000 *01* CHANGE-ACTIVITY = NONE 0561 01925000 * 0561 01926000 *02* A = NONE 0561 01927000 * 0561 01928000 *02* D = NONE 0561 01929000 * 0561 01930000 *02* C = NONE 0561 01931000 * 0561 01932000 * 0561 01933000 **** END OF SPECIFICATIONS ** */ 01934000 * 0561 01935000 *IGFCCHUC: 0561 01936000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0561 01937000 * 0561 01938000 IGFCCHUC DS 0H 0562 01939000 * /*****************************************************************/ 01940000 * /* */ 01941000 * /* INTERNAL DECLARES */ 01942000 * /* */ 01943000 * /*****************************************************************/ 01944000 * 0562 01945000 * DCL 0562 01946000 * CHANNEL CHAR(2) DEFINED(UCBCHA);/* OVERLAY FOR UCBCHA */ 01947000 * DCL 0563 01948000 * CPUAD CHAR(1) DEF(PCCACPUA) POS(2); 0563 01949000 * DCL 0564 01950000 * ADLSTPTR PTR(31) REG(3) RESTRICTED;/* UCB ADDRESS LIST POINTER */ 01951000 * DCL 0565 01952000 * UCBADTAB PTR(16) BASED(ADLSTPTR);/* UCB ADDRESS */ 01953000 * DCL 0566 01954000 * UCBADDR PTR(24) REG(6) RESTRICTED;/* ALTERNATE UCB POINTER */ 01955000 * DCL 0567 01956000 * COUNTER PTR(31) REG(5) RESTRICTED;/* LRBCAIO POINTER */ 01957000 * DCL 0568 01958000 * LIMIT PTR(31) REG(9) RESTRICTED;/* LIMIT FOR LOOP CONTROL */ 01959000 * DCL 0569 01960000 * CHANAD FIXED(31) REG(4) RESTRICTED;/* ISOLATED CHANNEL ADDR */ 01961000 * DCL 0570 01962000 * UCLRBPTR PTR(31) REG(1) RESTRICTED;/* UC LRB POINTER */ 01963000 * DCL 0571 01964000 * FAILCHAN CHAR(2) DEFINED(PCCACHW1) POS(3);/* ADDRESS OF FAILING 01965000 * CHANNEL */ 01966000 * RESPECIFY 0572 01967000 * LRB BASED(UCLRBPTR); 0572 01968000 * RESPECIFY 0573 01969000 * UCBOB BASED(UCBADDR); 0573 01970000 * 0573 01971000 * /*****************************************************************/ 01972000 * /* */ 01973000 * /* SET UCB SEARCH FOOTPRINT IN PCCA */ 01974000 * /* */ 01975000 * /*****************************************************************/ 01976000 * 0574 01977000 * PCCACF25=BINARY1; 0574 01978000 * 0574 01979000 OI PCCACF25(PCCAPTR),B'00001000' 0574 01980000 * /*****************************************************************/ 01981000 * /* */ 01982000 * /* SAVE THE CONTENTS OF THE UNIT ADDRESS REGISTER (REG-6) IN THE */ 01983000 * /* PCCA CHANNEL SAVE AREA, INITIALIZE THE COUNTER, THE LRB */ 01984000 * /* POINTER FOR THIS SUBROUTINE (UCLRBPTR) AND OBTAIN UCB ADDRESS */ 01985000 * /* LIST ADDRESS FROM THE CVT */ 01986000 * /* */ 01987000 * /*****************************************************************/ 01988000 * 0575 01989000 * PCCACHW1=UAREG; /* SAVE REG 6 FOR IGFCCHRD 0575 01990000 * SUBROUTINE */ 01991000 ST UAREG,PCCACHW1(,PCCAPTR) 0575 01992000 * COUNTER=ONE; 0576 01993000 LA COUNTER,1 0576 01994000 * UCLRBPTR=PCCAELBA; /* @G51BPLC*/ 01995000 L UCLRBPTR,PCCAELBA(,PCCAPTR) 0577 01996000 * ADLSTPTR=CVTILK2; 0578 01997000 * 0578 01998000 L @15,CVTPTR 0578 01999000 L ADLSTPTR,CVTILK2(,@15) 0578 02000000 * /*****************************************************************/ 02001000 * /* */ 02002000 * /* OBTAIN THE ADDRESS OF THE FIRST UCB */ 02003000 * /* */ 02004000 * /*****************************************************************/ 02005000 * 0579 02006000 * UCBADDR=UCBADTAB; 0579 02007000 * 0579 02008000 LH UCBADDR,UCBADTAB(,ADLSTPTR) 0579 02009000 N UCBADDR,@CF03517 0579 02010000 * /*****************************************************************/ 02011000 * /* */ 02012000 * /* IF EIGHT CHAN/DEVICE ADDRESSES HAVE BEEN PLACED IN THE LRBCAIO*/ 02013000 * /* FIELD OR THE END OF THE UCB ADDRESS LIST HAS BEEN ENCOUNTERED */ 02014000 * /* RETURN TO CALLER */ 02015000 * /* */ 02016000 * /*****************************************************************/ 02017000 * 0580 02018000 * DO WHILE COUNTERPCCACPUA; 0627 02367000 * 0627 02368000 LR @15,INDEX 0627 02369000 SLA @15,2 0627 02370000 LH @10,PCCACPUA(,MPCCAPTR) 0627 02371000 ALR @15,MLRBCVPT 0627 02372000 STCM @10,3,LRBCMPPA-4(@15) 0627 02373000 * /***************************************************************/ 02374000 * /* */ 02375000 * /* SET THE MPCATPTR TO POINT TO THE CURRENT CHANNEL */ 02376000 * /* AVAILABILITY TABLE */ 02377000 * /* */ 02378000 * /***************************************************************/ 02379000 * 0628 02380000 * MPCATPTR=ADDR(MPCCAPTR->PCCACAT); 0628 02381000 * 0628 02382000 LA MPCATPTR,PCCACAT(,MPCCAPTR) 0628 02383000 * /***************************************************************/ 02384000 * /* */ 02385000 * /* INITIALIZE THE CHANNEL AVAILABLE WORK REGISTER (MPCSREG) AND*/ 02386000 * /* EXECUTE THE FOLLOWING CODE FOR ALL OF THE 16 POSSIBLE */ 02387000 * /* CHANNELS */ 02388000 * /* */ 02389000 * /***************************************************************/ 02390000 * 0629 02391000 * MPCSREG=ZERO; 0629 02392000 SLR MPCSREG,MPCSREG 0629 02393000 * DO N=ONE TO SIXTEEN; 0630 02394000 * 0630 02395000 LA N,1 0630 02396000 @DL00630 DS 0H 0631 02397000 * /*************************************************************/ 02398000 * /* */ 02399000 * /* SET THE LOW ORDER BIT OF THE WORKREG ON IF CHANNEL IS OFF */ 02400000 * /* LINE BY ADDING 1 TO THE WORKREG (MPCSREG) */ 02401000 * /* */ 02402000 * /*************************************************************/ 02403000 * 0631 02404000 * IF CATNOP=BINARY1 THEN 0631 02405000 TM CATNOP(MPCATPTR),B'01000000' 0631 02406000 BNO @RF00631 0631 02407000 * MPCSREG=MPCSREG+ONE; 0632 02408000 * 0632 02409000 AL MPCSREG,@CF00063 0632 02410000 * /*************************************************************/ 02411000 * /* */ 02412000 * /* SHIFT WORKREG LEFT BY ONE POSITION TO PREPARE FOR NEXT */ 02413000 * /* CHANNEL ENTRY */ 02414000 * /* */ 02415000 * /*************************************************************/ 02416000 * 0633 02417000 * MPCSREG=MPCSREG*TWO; 0633 02418000 * 0633 02419000 @RF00631 ALR MPCSREG,MPCSREG 0633 02420000 * /*************************************************************/ 02421000 * /* */ 02422000 * /* UPDATE MPCATPTR TO LOCATE NEXT CHANNEL ENTRY */ 02423000 * /* */ 02424000 * /*************************************************************/ 02425000 * 0634 02426000 * MPCATPTR=MPCATPTR+LENGTH(CAT); 0634 02427000 AL MPCATPTR,@CF00056 0634 02428000 * END; 0635 02429000 * 0635 02430000 AL N,@CF00063 0635 02431000 C N,@CF00051 0635 02432000 BNH @DL00630 0635 02433000 * /***************************************************************/ 02434000 * /* */ 02435000 * /* SHIFT WORKREG RIGHT BY ONE POSITION TO CORRECTLY POSITION */ 02436000 * /* THE CHANNEL STATUS BITS AND STORE THE CHANNEL STATUS IN THE */ 02437000 * /* LRBCMPCS FIELD INDEXED BY INDEX */ 02438000 * /* */ 02439000 * /***************************************************************/ 02440000 * 0636 02441000 * LRBCMPCS(INDEX)=MPCSREG/TWO; 0636 02442000 * 0636 02443000 LR @15,INDEX 0636 02444000 SLA @15,2 0636 02445000 LR @10,MPCSREG 0636 02446000 SRL @10,1 0636 02447000 ALR @15,MLRBCVPT 0636 02448000 STCM @10,3,LRBCMPCS-4(@15) 0636 02449000 * /***************************************************************/ 02450000 * /* */ 02451000 * /* DETERMINE IF THE CPU WITH THE CHANNEL ERROR IS THE ONLY CPU */ 02452000 * /* ON LINE. IF IT IS RETURN TO IGFCCHRD, IF NOT PROCESS ALL */ 02453000 * /* OTHER CPU'S ON LINE */ 02454000 * /* */ 02455000 * /***************************************************************/ 02456000 * 0637 02457000 * IF(INDEX=ONE&PCCACCRA='1'B) THEN 0637 02458000 LA @15,1 0637 02459000 CR INDEX,@15 0637 02460000 BNE @RF00637 0637 02461000 TM PCCACCRA(PCCAPTR),B'00000100' 0637 02462000 BNO @RF00637 0637 02463000 * DO; /* @Y30CJJE*/ 02464000 * MPCCAPTR=PCCAPTR; 0639 02465000 LR MPCCAPTR,PCCAPTR 0639 02466000 * INDEX=INDEX+ONE; 0640 02467000 ALR INDEX,@15 0640 02468000 * END; 0641 02469000 * ELSE 0642 02470000 * ; 0642 02471000 @RF00637 DS 0H 0643 02472000 * IF LRBCMPNOONE&MSDWARCDE=0; /* SAVE RC VALUE */ 03987000 MVI SDWARCDE(GPR01P),X'00' 0878 03988000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 03989000 OI SDWARCRD(GPR01P),B'10000000' 0879 03990000 * GPR15P=ADDR(FRPARM); /* ACCESS RECORD PARAMETER LIST */ 03991000 LA GPR15P,FRPARM 0880 03992000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0881 03993000 * PARAMETERS */ 03994000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0881 03995000 * RESPECIFY 0882 03996000 * (GPR00P, 0882 03997000 * GPR01P, 0882 03998000 * GPR14P, 0882 03999000 * GPR15P) UNRSTD; 0882 04000000 * END; 0883 04001000 * 0883 04002000 * /*****************************************************************/ 04003000 * /* */ 04004000 * /* IF THE PCCA ADDRESS IS VALID THE SAVE AREA POINTER MUST BE */ 04005000 * /* OBTAINED FROM THE PCCA, IOS REG 8 MUST BE SAVED IN THE PCCA */ 04006000 * /* AND THE IOS REG 8 SAVE AREA MUST BE SET TO THE ADDRESS OF THE */ 04007000 * /* PCCA FOR USE BY CCH CENTRAL ON THE RETRY */ 04008000 * /* */ 04009000 * /*****************************************************************/ 04010000 * 0884 04011000 * ELSE 0884 04012000 * DO; /* @YM00991*/ 04013000 B @RC00875 0884 04014000 @RF00875 DS 0H 0885 04015000 * SAVREG=PCCACHSV(3); /* LOAD SAVE AREA POINTER FROM 0885 04016000 * THE PCCA @YM00991*/ 04017000 L SAVREG,PCCACHSV+8(,PCCAPTR) 0885 04018000 * PCCACHSV(3)=SAVREG8; /* SAVE IOS REG 8 IN THE PCCA 0886 04019000 * @YM00991*/ 04020000 L @15,SAVREG8(,SAVREG) 0886 04021000 ST @15,PCCACHSV+8(,PCCAPTR) 0886 04022000 * SAVREG8=PCCAPTR; /* PLACE PCCA ADDRESS IN IOS REG 04023000 * 8 FOR RETRY @YM00991*/ 04024000 * 0887 04025000 ST PCCAPTR,SAVREG8(,SAVREG) 0887 04026000 * /*************************************************************/ 04027000 * /* */ 04028000 * /* THE IOS SAVE AREA WILL BE USED AS THE REGISTER UPDATE */ 04029000 * /* BLOCK (RUB) USED BY THE RTM. SINCE WE ONLY HAVE A 16 BYTE */ 04030000 * /* SAVE AREA, THE SECOND HALF WORD OF THE SAVE AREA WILL BE */ 04031000 * /* AS THE MASK FOR THE RUB. REG 0 WILL HAVE TO BE SAVED IN */ 04032000 * /* THE PCCA UNTIL CCH CENTRAL RECEIVES CONTROL AGAIN. THE */ 04033000 * /* MASK WILL BE SET UP SO THAT ALL OF THE REGISTERS WILL BE */ 04034000 * /* RESTORED EXCEPT GPR0. */ 04035000 * /* */ 04036000 * /*************************************************************/ 04037000 * 0888 04038000 * PCCACHSV(2)=SAVGPR0; /* SAVE GPR0 IN THE PCCA. */ 04039000 L @15,SAVGPR0(,SAVREG) 0888 04040000 ST @15,PCCACHSV+4(,PCCAPTR) 0888 04041000 * SAVEMASK=FRRMASK; /* SET 1-16 BITS ON IN MASK */ 04042000 * 0889 04043000 MVC SAVEMASK(2,SAVREG),FRRMASK 0889 04044000 * /*************************************************************/ 04045000 * /* */ 04046000 * /* SET THE FRR ENTRY CODE IN BYTE 3 BIT 0 OF THE REG1 SAVE */ 04047000 * /* AREA */ 04048000 * /* */ 04049000 * /*************************************************************/ 04050000 * 0890 04051000 * FRRBIT='1'B; /* FRR ENTRY */ 04052000 * 0890 04053000 OI FRRBIT(SAVREG),B'10000000' 0890 04054000 * /*************************************************************/ 04055000 * /* */ 04056000 * /* CHECK TO SEE IF THE ERROR OCCURRED IN THE RECORD BUILD */ 04057000 * /* ROUTINES. IF NOT CHECK TO SEE IF THE ERROR WAS IN */ 04058000 * /* ENCOUNTERED DURING FILL ERPIB OR DEPENDENT ANALYSIS */ 04059000 * /* PROCESSING. IF DURING THE LATTER, SET THE PCCACIOR(I/O */ 04060000 * /* RESTART) BIT IN THE PCCA. */ 04061000 * /* */ 04062000 * /*************************************************************/ 04063000 * 0891 04064000 * IF PCCACF23='0'B THEN 0891 04065000 TM PCCACF23(PCCAPTR),B'00100000' 0891 04066000 BNZ @RF00891 0891 04067000 * IF PCCACF14='1'B|PCCACF15='1'B|PCCACF16='1'B THEN 0892 04068000 TM PCCACF14(PCCAPTR),B'00011100' 0892 04069000 BZ @RF00892 0892 04070000 * PCCACIOR='1'B; /* IF ERROR OCCURRED DURING SI, 04071000 * II OR FE PROCESSING,SET IOR */ 04072000 OI PCCACIOR(PCCAPTR),B'10000000' 0893 04073000 * ELSE 0894 04074000 * ; 0894 04075000 * 0894 04076000 @RF00892 DS 0H 0895 04077000 * /*************************************************************/ 04078000 * /* */ 04079000 * /* ERROR WAS DURING OR AFTER RECORD BUILD. CHECK FOR THE */ 04080000 * /* ERROR DURING RECORD BUILD ,IF SO, SET PCCACNRE IN THE */ 04081000 * /* PCCA. */ 04082000 * /* */ 04083000 * /*************************************************************/ 04084000 * 0895 04085000 * ELSE 0895 04086000 * IF PCCACF26='0'B THEN 0895 04087000 B @RC00891 0895 04088000 @RF00891 TM PCCACF26(PCCAPTR),B'00000100' 0895 04089000 BNZ @RF00895 0895 04090000 * PCCACNRE='1'B; 0896 04091000 OI PCCACNRE(PCCAPTR),B'01000000' 0896 04092000 * ELSE 0897 04093000 * ; 0897 04094000 * 0897 04095000 @RF00895 DS 0H 0898 04096000 * /*************************************************************/ 04097000 * /* */ 04098000 * /* RETRY IS ATTEMPTED REGARDLESS. HOWEVER, CCH FRR IS NO */ 04099000 * /* LONGER IN THE STACK. ISSUE THE SET RETURN PARAMETERS */ 04100000 * /* MACRO(SETRP) & RETURN TO RTM */ 04101000 * /* */ 04102000 * /*************************************************************/ 04103000 * 0898 04104000 * DO; /* SETRP RETADDR(IGFCCHCR)RETREGS 04105000 * (YES)RUB(SAVEMASK)RECORD(YES)R 04106000 * ECPARM(FRPARM)RC(4) */ 04107000 @RC00891 DS 0H 0899 04108000 * RESPECIFY 0899 04109000 * (GPR00P, 0899 04110000 * GPR01P, 0899 04111000 * GPR14P, 0899 04112000 * GPR15P) RSTD; 0899 04113000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 04114000 MVI SDWARCDE(GPR01P),X'04' 0900 04115000 * GPR01P->SDWARTYA=ADDR(IGFCCHCR);/* SAVE RETRY ADDRESS */ 04116000 L @12,@CA00028 0901 04117000 ST @12,SDWARTYA(,GPR01P) 0901 04118000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 04119000 OI SDWARCRD(GPR01P),B'10000000' 0902 04120000 * GPR15P=ADDR(FRPARM); /* ACCESS RECORD PARAMETER LIST */ 04121000 LA GPR15P,FRPARM 0903 04122000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0904 04123000 * PARAMETERS */ 04124000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0904 04125000 * GPR01P->SDWAUPRG='1'B; /* TURN ON RETREGS INDICATOR */ 04126000 OI SDWAUPRG(GPR01P),B'00001000' 0905 04127000 * GPR15P=ADDR(SAVEMASK); /* GET PTR TO REG UPDATE BLOCK */ 04128000 LA GPR15P,SAVEMASK(,SAVREG) 0906 04129000 * GPR00P=GPR15P->I015F; /* ACCESS REGISTER BIT PATTERN */ 04130000 LH GPR00P,I015F(,GPR15P) 0907 04131000 * GPR15P=GPR15P+2; /* CREATE PTR TO USER REG VALUES */ 04132000 AL GPR15P,@CF00223 0908 04133000 * GPR14P=ADDR(GPR01P->SDWASRSV);/* CREATE PTR TO SDWA SAVE 0909 04134000 * AREA */ 04135000 LA GPR14P,SDWASRSV(,GPR01P) 0909 04136000 * GEN(SLL 0,16); /* SHIFT BIT PATTERN TO HIGH 0910 04137000 * ORDER */ 04138000 SLL 0,16 04139000 *R0004: 0911 04140000 * GEN FLOWS(I0004); 0911 04141000 R0004 DS 0H 0911 04142000 ALR 0,0 SHIFT BIT TO SIGN POSITION 04143000 BC 12,I0004 BRANCH IF BIT NOT ON 04144000 MVC 0(4,14),0(15) MODIFY REGISTER IN SDWA 04145000 LA 15,4(15) UPDATE POINTER 04146000 *I0004: 0912 04147000 * GENERATE FLOWS(R0004); 0912 04148000 I0004 DS 0H 0912 04149000 LA 14,4(14) UPDATE PTR IN SDWA 04150000 BC 5,R0004 TEST ALR CONDITION CODE TO TEST 04151000 * IF ALL BITS EXHAUSTED 04152000 * RESPECIFY 0913 04153000 * (GPR00P, 0913 04154000 * GPR01P, 0913 04155000 * GPR14P, 0913 04156000 * GPR15P) UNRSTD; 0913 04157000 * END; 0914 04158000 * IF PCCASLCK='1'B THEN 0915 04159000 TM PCCASLCK(PCCAPTR),B'01000000' 0915 04160000 BNO @RF00915 0915 04161000 * DO; /* RELEASE LOCK IF HELD @G51BPLC*/ 04162000 * RFY 0917 04163000 * (WKREG0, 0917 04164000 * WKREG1, 0917 04165000 * WKREG14, 0917 04166000 * WKREG15) RSTD; /* @G51BPLC*/ 04167000 * GEN REFS(PSALITA); 0918 04168000 * /* @G51BPLC*/ 04169000 SETLOCK RELEASE,TYPE=SALLOC,DISABLED,REGS=USE, XX04170000 RELATED=(IGFCCHRD,'FREE IF CCHRD HAS OBTAINED') 04171000 * RFY 0919 04172000 * (WKREG0, 0919 04173000 * WKREG1, 0919 04174000 * WKREG14, 0919 04175000 * WKREG15) UNRSTD; /* @G51BPLC*/ 04176000 * END; /* @G51BPLC*/ 04177000 * END; /* YM00991 */ 04178000 @RF00915 DS 0H 0922 04179000 * RTNREG=WKREG9; /* RESTORE RETURN REG @YM02589*/ 04180000 @RC00875 LR RTNREG,WKREG9 0922 04181000 * RESPECIFY 0923 04182000 * WKREG9 UNRSTD; /* @YM02589*/ 04183000 * RETURN; /* RETURN TO RTM */ 04184000 * 0924 04185000 @EL00011 DS 0H 0924 04186000 @EF00011 DS 0H 0924 04187000 @ER00011 BR @14 0924 04188000 * /*****************************************************************/ 04189000 * /* */ 04190000 * /* DECLARES USED BY PLS MACROS */ 04191000 * /* */ 04192000 * /*****************************************************************/ 04193000 * 0925 04194000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 04195000 * GPR00P PTR(31) REG(0), 0925 04196000 * GPR01P PTR(31) REG(1), 0925 04197000 * GPR14P PTR(31) REG(14), 0925 04198000 * GPR15P PTR(31) REG(15); 0925 04199000 * DECLARE /* COMMON VARIABLES */ 04200000 * I256C CHAR(256) BASED, 0926 04201000 * I031F FIXED(31) BASED, 0926 04202000 * I031P PTR(31) BASED, 0926 04203000 * I015F FIXED(15) BASED, 0926 04204000 * I015P PTR(15) BASED, 0926 04205000 * I008P PTR(8) BASED, 0926 04206000 * I001C CHAR(1) BASED; 0926 04207000 * END IGFCCHFR; 0927 04208000 * END IGFCCHCR 0928 04209000 * 0928 04210000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 04211000 */*%INCLUDE SYSLIB (IHAASCB ) */ 04212000 */*%INCLUDE SYSLIB (IHAASVT ) */ 04213000 */*%INCLUDE SYSLIB (IECDCAT ) */ 04214000 */*%INCLUDE SYSLIB (IECDCRCA) */ 04215000 */*%INCLUDE SYSLIB (IGFCDA ) */ 04216000 */*%INCLUDE SYSLIB (IHACSD ) */ 04217000 */*%INCLUDE SYSLIB (CVT ) */ 04218000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 04219000 */*%INCLUDE SYSLIB (IECDIOSB) */ 04220000 */*%INCLUDE SYSLIB (IHALCCA ) */ 04221000 */*%INCLUDE SYSLIB (IHASRB ) */ 04222000 */*%INCLUDE SYSLIB (IHALRB ) */ 04223000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 04224000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 04225000 */*%INCLUDE SYSLIB (IHAPSA ) */ 04226000 */*%INCLUDE SYSLIB (IHARVT ) */ 04227000 */*%INCLUDE SYSLIB (IHASDWA ) */ 04228000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 04229000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 04230000 * 0928 04231000 * ; 0928 04232000 @DATA DS 0H 04233000 @SM03522 MVC LRBCCLOG(0,RDLRBPTR),RDLOGOUT(@15) 04234000 @SM03526 MVC WKAREA2+1(0,WKPTR1),WKAREA1(ADDRESS) 04235000 @DATD DSECT 04236000 DS 0F 04237000 IGFCCHCR CSECT 04238000 DS 0F 04239000 @CF00063 DC F'1' 04240000 @CF00223 DC F'2' 04241000 @CH00223 EQU @CF00223+2 04242000 @CF00038 DC F'4' 04243000 @CF00056 DC F'8' 04244000 @CF03119 DC F'9' 04245000 @CF01703 DC F'12' 04246000 @CF00051 DC F'16' 04247000 @CF03122 DC F'17' 04248000 @CF03302 DC F'47' 04249000 @CF03419 DC F'240' 04250000 @CF00986 DC F'256' 04251000 @CF03525 DC F'-240' 04252000 @CF03524 DC F'-4' 04253000 @CF03138 DC XL4'0000000F' 04254000 @CF03306 DC XL4'000000F0' 04255000 @CF03460 DC XL4'02000000' 04256000 @CF03462 DC XL4'0000FF00' 04257000 @CF03517 DC XL4'0000FFFF' 04258000 @CF03134 DC XL4'FFFF' 04259000 @DATD DSECT 04260000 DS 0D 04261000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 04262000 @ENDDATD EQU * 04263000 IGFCCHCR CSECT 04264000 DS 0F 04265000 @SIZDATD DC AL1(0) 04266000 DC AL3(@ENDDATD-@DATD) 04267000 @CA00028 DC A(IGFCCHCR) 04268000 @CV03088 DC V(IGFPSAD0) 04269000 @CV03089 DC V(IGFPSAE0) 04270000 @CV03439 DC V(IECVRSTI) 04271000 @CV03457 DC V(IEAMASCB) 04272000 @CV03458 DC V(IECVIRST) 04273000 DS 0D 04274000 ABSZERO DC A(0) 04275000 CCMASKFE DC XL4'00000FFF' 04276000 @CC03424 DC C'PROC' 04277000 @CC03425 DC C'CHAN' 04278000 @CC03426 DC C'SCU ' 04279000 @CC03427 DC C'STOR' 04280000 @CC03428 DC C'CU ' 04281000 @CC03429 DC C' ' 04282000 @CC03466 DC C'SRB ' 04283000 @CC03423 DC C'XX' 04284000 @CB03136 DC X'FFFFFFFF' 04285000 @CB03132 DC X'0FFF' 04286000 INDEXTAB DC X'0C000408' 04287000 TAB DS CL16 04288000 ORG TAB 04289000 CHAR0 DC CL1'0' 04290000 CHAR1 DC CL1'1' 04291000 CHAR2 DC CL1'2' 04292000 CHAR3 DC CL1'3' 04293000 CHAR4 DC CL1'4' 04294000 CHAR5 DC CL1'5' 04295000 CHAR6 DC CL1'6' 04296000 CHAR7 DC CL1'7' 04297000 CHAR8 DC CL1'8' 04298000 CHAR9 DC CL1'9' 04299000 CHARA DC CL1'A' 04300000 CHARB DC CL1'B' 04301000 CHARC DC CL1'C' 04302000 CHARD DC CL1'D' 04303000 CHARE DC CL1'E' 04304000 CHARF DC CL1'F' 04305000 ORG TAB+16 04306000 CPU165 DC CL4'0165' 04307000 CPU168 DC CL4'0168' 04308000 FRRMASK DC X'7FFF' 04309000 FRPARM DC CL24'IGFCCHCRIGFCCHFRCCH FRR ' 04310000 CCHMAINT DC 50H'0' 04311000 RDCCHTAB DC X'02' 04312000 DC X'05' 04313000 DC 8X'0F' 04314000 DC X'0A' 04315000 DC 5X'0F' 04316000 DC X'01' 04317000 DC X'0F' 04318000 DC X'06' 04319000 DC 13X'0F' 04320000 DC X'03' 04321000 DC 2X'0F' 04322000 DC X'07' 04323000 DC 6X'0F' 04324000 DC X'0A' 04325000 DC 5X'0F' 04326000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 04327000 @01 EQU 01 04328000 @02 EQU 02 04329000 @03 EQU 03 04330000 @04 EQU 04 04331000 @05 EQU 05 04332000 @06 EQU 06 04333000 @07 EQU 07 04334000 @08 EQU 08 04335000 @09 EQU 09 04336000 @10 EQU 10 04337000 @11 EQU 11 04338000 @12 EQU 12 04339000 @13 EQU 13 04340000 @14 EQU 14 04341000 @15 EQU 15 04342000 ALRBCVPT EQU @03 04343000 ASCBPTR EQU @03 04344000 CATPTR EQU @05 04345000 IOSBPTR EQU @02 04346000 SRBPTR EQU @04 04347000 PCCAPTR EQU @08 04348000 SDWAPTR EQU @01 04349000 UCBPTR EQU @07 04350000 SAVREG EQU @13 04351000 ERPIBREG EQU @12 04352000 RTNREG EQU @14 04353000 UAREG EQU @06 04354000 BASEREG EQU @11 04355000 WKREG0 EQU @00 04356000 WKREG1 EQU @01 04357000 WKREG2 EQU @02 04358000 WKREG3 EQU @03 04359000 WKREG4 EQU @04 04360000 WKREG5 EQU @05 04361000 WKREG6 EQU @06 04362000 WKREG9 EQU @09 04363000 WKREG14 EQU @14 04364000 WKREG15 EQU @15 04365000 WRKREG5 EQU @05 04366000 WRKREG3 EQU @03 04367000 RLRBCVPT EQU @05 04368000 RDLRBPTR EQU @09 04369000 RDINDEX EQU @04 04370000 ADLSTPTR EQU @03 04371000 UCBADDR EQU @06 04372000 COUNTER EQU @05 04373000 LIMIT EQU @09 04374000 CHANAD EQU @04 04375000 UCLRBPTR EQU @01 04376000 N EQU @03 04377000 M EQU @04 04378000 INDEX EQU @02 04379000 MPCCAPTR EQU @05 04380000 MPCSREG EQU @07 04381000 CPUALREG EQU @07 04382000 MPCATPTR EQU @06 04383000 MLRBCVPT EQU @12 04384000 RECLNGTH EQU @05 04385000 RECADDR EQU @04 04386000 BRANHREG EQU @15 04387000 COUNT EQU @04 04388000 ADDRESS EQU @03 04389000 WKPTR1 EQU @03 04390000 PARMREG3 EQU @03 04391000 GPR00P EQU @00 04392000 GPR01P EQU @01 04393000 GPR14P EQU @14 04394000 GPR15P EQU @15 04395000 MSGPTR EQU @05 04396000 WKREG10 EQU @10 04397000 WKREG12 EQU @12 04398000 WKREG7 EQU @07 04399000 PSA EQU 0 04400000 FLCRNPSW EQU PSA 04401000 FLCROPSW EQU PSA+8 04402000 FLCICCW2 EQU PSA+16 04403000 FLCCVT EQU FLCICCW2 04404000 FLCCSW EQU PSA+64 04405000 FLCCAW EQU PSA+72 04406000 PSAEEPSW EQU PSA+132 04407000 PSAESPSW EQU PSA+136 04408000 FLCSVILC EQU PSAESPSW+1 04409000 PSAEPPSW EQU PSA+140 04410000 FLCPIILC EQU PSAEPPSW+1 04411000 FLCPICOD EQU PSAEPPSW+2 04412000 PSAPICOD EQU FLCPICOD+1 04413000 FLCTEA EQU PSAEPPSW+4 04414000 FLCPER EQU PSA+152 04415000 FLCMCLA EQU PSA+168 04416000 FLCCHNID EQU FLCMCLA 04417000 FLCCHTM EQU FLCCHNID 04418000 FLCIOEL EQU FLCMCLA+4 04419000 FLCLCL EQU FLCMCLA+8 04420000 FLCIOA EQU FLCMCLA+16 04421000 PSAMEDC EQU FLCMCLA+76 04422000 FLCFSA EQU FLCMCLA+80 04423000 PSAPCCAV EQU PSA+520 04424000 PSAPCCAR EQU PSA+524 04425000 PSALCCAV EQU PSA+528 04426000 PSASUPER EQU PSA+552 04427000 PSASUP1 EQU PSASUPER 04428000 PSASUP2 EQU PSASUPER+1 04429000 PSASUP3 EQU PSASUPER+2 04430000 PSASUP4 EQU PSASUPER+3 04431000 PSACLHT EQU PSA+640 04432000 PSALKSA EQU PSA+696 04433000 PSAHLHI EQU PSA+760 04434000 PSALITA EQU PSA+764 04435000 PSADSSFL EQU PSA+836 04436000 PSADSSF1 EQU PSADSSFL 04437000 PSADSSF3 EQU PSADSSFL+2 04438000 PSADSSF4 EQU PSADSSFL+3 04439000 PSARSVT EQU PSA+896 04440000 PSALSFCC EQU PSA+1012 04441000 ASCB EQU 0 04442000 ASCBSUPC EQU ASCB+16 04443000 ASCBRSM EQU ASCB+52 04444000 ASCBRSMF EQU ASCBRSM 04445000 ASCBFW1 EQU ASCB+100 04446000 ASCBRCTF EQU ASCBFW1+2 04447000 ASCBFLG1 EQU ASCBFW1+3 04448000 ASCBDSP1 EQU ASCB+114 04449000 ASCBFLG2 EQU ASCB+115 04450000 ASCBLKGP EQU ASCB+128 04451000 ASCBJBNI EQU ASCB+172 04452000 ASCBJBNS EQU ASCB+176 04453000 ASCBSRQ EQU ASCB+180 04454000 ASCBSRQ1 EQU ASCBSRQ 04455000 ASCBSRQ2 EQU ASCBSRQ+1 04456000 ASCBSRQ3 EQU ASCBSRQ+2 04457000 ASCBSRQ4 EQU ASCBSRQ+3 04458000 ASVT EQU 0 04459000 ASVTFRST EQU ASVT+524 04460000 ASVTENTY EQU ASVT+528 04461000 CAT EQU 0 04462000 CATENTRY EQU CAT 04463000 CATFLG EQU CATENTRY 04464000 CATNOP EQU CATFLG 04465000 CATNID EQU CATFLG 04466000 CATFLA EQU CAT+1 04467000 CATIORST EQU CATFLA 04468000 CATCCRST EQU CATFLA 04469000 CRCA EQU 0 04470000 CRCAFLGS EQU CRCA+4 04471000 CRCAFLG1 EQU CRCAFLGS 04472000 CRCADIAG EQU CRCAFLG1 04473000 CRCADINT EQU CRCAFLG1 04474000 CRCAMCW EQU CRCA+8 04475000 CRCAMCWZ EQU CRCAMCW 04476000 CRCAMCWF EQU CRCAMCW+3 04477000 CRCAPCCA EQU CRCA+36 04478000 CDA EQU 0 04479000 CDACCHSL EQU CDA+16 04480000 CDACCHM1 EQU CDA+24 04481000 CSD EQU 0 04482000 CSDCPUAL EQU CSD+8 04483000 CSDCPUOL EQU CSD+10 04484000 CSDSCWRD EQU CSD+12 04485000 CSDSCFL1 EQU CSDSCWRD 04486000 CSDSCFL2 EQU CSDSCWRD+1 04487000 CSDSCFL3 EQU CSDSCWRD+2 04488000 CSDSCFL4 EQU CSDSCWRD+3 04489000 CSDFLAGS EQU CSD+23 04490000 CVTMAP EQU 0 04491000 CVTILK2 EQU CVTMAP+40 04492000 CVTDAR EQU CVTMAP+72 04493000 CVTFLGS1 EQU CVTDAR 04494000 CVTBRET EQU CVTMAP+82 04495000 CVTDCB EQU CVTMAP+116 04496000 CVTIOQET EQU CVTMAP+120 04497000 CVTIERLC EQU CVTMAP+144 04498000 CVTHEAD EQU CVTMAP+160 04499000 CVTSV76C EQU CVTHEAD 04500000 CVTOPTA EQU CVTMAP+182 04501000 CVTNIP EQU CVTOPTA 04502000 CVTOPTB EQU CVTMAP+183 04503000 CVTRMS EQU CVTMAP+224 04504000 CVTGTF EQU CVTMAP+236 04505000 CVTGTFST EQU CVTGTF 04506000 CVTGTFS EQU CVTGTFST 04507000 CVTSTATE EQU CVTGTFST 04508000 CVTTMODE EQU CVTGTFST 04509000 CVTFORM EQU CVTGTFST 04510000 CVTAQAVT EQU CVTMAP+240 04511000 CVTTCMFG EQU CVTAQAVT 04512000 CVTVOLM2 EQU CVTMAP+244 04513000 CVTTATA EQU CVTVOLM2 04514000 CVTTSKS EQU CVTTATA 04515000 CVTVOLF2 EQU CVTTSKS 04516000 CVTTAT EQU CVTTATA+1 04517000 CVTATER EQU CVTMAP+248 04518000 CVTEXT1 EQU CVTMAP+252 04519000 CVTPURG EQU CVTMAP+260 04520000 CVTQMSG EQU CVTMAP+268 04521000 CVTDMSR EQU CVTMAP+272 04522000 CVTRSV37 EQU CVTDMSR 04523000 CVTDMSRF EQU CVTRSV37 04524000 CVTTZ EQU CVTMAP+304 04525000 CVTERPV EQU CVTMAP+316 04526000 CVTINTLA EQU CVTMAP+320 04527000 CVTAPF EQU CVTMAP+324 04528000 CVTEXT2 EQU CVTMAP+328 04529000 CVTHJES EQU CVTMAP+332 04530000 CVTPGSIA EQU CVTMAP+348 04531000 CVTA1F1 EQU CVTMAP+356 04532000 CVTSYSK EQU CVTMAP+357 04533000 CVTVOLM1 EQU CVTMAP+380 04534000 CVTVOLF1 EQU CVTVOLM1 04535000 CVTATMCT EQU CVTMAP+388 04536000 CVTXTNT1 EQU 0 04537000 CVTXTNT2 EQU 0 04538000 CVTDSSV EQU CVTXTNT2 04539000 CVTFLGBT EQU CVTXTNT2+5 04540000 CVTQID EQU CVTXTNT2+24 04541000 CVTRV400 EQU CVTXTNT2+52 04542000 CVTRV409 EQU CVTXTNT2+53 04543000 CVTATCVT EQU CVTXTNT2+64 04544000 CVTRV429 EQU CVTXTNT2+84 04545000 CVTRV438 EQU CVTXTNT2+85 04546000 CVTRV457 EQU CVTXTNT2+112 04547000 CVTRV466 EQU CVTXTNT2+113 04548000 CVTFIX EQU 0 04549000 CVTRELNO EQU CVTFIX+252 04550000 FRRS EQU 0 04551000 FRRSHEAD EQU FRRS 04552000 FRRSEMP EQU FRRSHEAD 04553000 FRRSLAST EQU FRRSHEAD+4 04554000 FRRSELEN EQU FRRSHEAD+8 04555000 FRRSCURR EQU FRRSHEAD+12 04556000 FRRSENTR EQU 0 04557000 FRRSFRRA EQU FRRSENTR 04558000 FRRSFLGS EQU FRRSENTR+4 04559000 FRRSFLG1 EQU FRRSFLGS 04560000 FRRSPARM EQU FRRSENTR+8 04561000 IOSB EQU 0 04562000 IOSFLA EQU IOSB 04563000 IOSACHN EQU IOSFLA 04564000 IOSFLB EQU IOSB+1 04565000 IOSFLC EQU IOSB+2 04566000 IOSDVALT EQU IOSFLC 04567000 IOSASID EQU IOSB+6 04568000 IOSPKEY EQU IOSB+12 04569000 IOSOPT EQU IOSB+14 04570000 IOSOPT2 EQU IOSB+15 04571000 @NM00013 EQU IOSB+20 04572000 IOSCSW EQU @NM00013+1 04573000 IOSTATUS EQU IOSCSW+3 04574000 IOSIPIB EQU IOSB+44 04575000 IOSPATH EQU IOSB+86 04576000 IOSCHN EQU IOSPATH 04577000 IOSCKEY EQU IOSB+89 04578000 IOSEEKA EQU IOSB+100 04579000 IOSCCHH EQU IOSEEKA+3 04580000 IOSSKHH EQU IOSCCHH+2 04581000 LCCA EQU 0 04582000 LCCAIHRC EQU LCCA+520 04583000 LCCAIHR1 EQU LCCAIHRC 04584000 LCCAIHR2 EQU LCCAIHRC+1 04585000 LCCAIHR3 EQU LCCAIHRC+2 04586000 LCCAIHR4 EQU LCCAIHRC+3 04587000 LCCASPIN EQU LCCA+524 04588000 LCCASPN1 EQU LCCASPIN 04589000 LCCASPN2 EQU LCCASPIN+1 04590000 LCCASPN3 EQU LCCASPIN+2 04591000 LCCASPN4 EQU LCCASPIN+3 04592000 LCCACPUS EQU LCCA+536 04593000 LCCADSF1 EQU LCCA+540 04594000 LCCADSF2 EQU LCCA+541 04595000 LCCASPSA EQU LCCA+544 04596000 LCCACRFL EQU LCCA+692 04597000 LCCACREX EQU LCCA+693 04598000 LCCALKFG EQU LCCA+694 04599000 LCCASRBF EQU LCCA+720 04600000 SRBSECT EQU 0 04601000 SRB EQU SRBSECT 04602000 SRBID EQU SRB 04603000 SRBFLNK EQU SRB+4 04604000 SRBASCB EQU SRB+8 04605000 SRBFLC EQU SRB+12 04606000 SRBCPAFF EQU SRBFLC 04607000 SRBEP EQU SRB+20 04608000 SRBRMTR EQU SRB+24 04609000 SRBPARM EQU SRB+28 04610000 LRB EQU 0 04611000 LRBHTYPE EQU LRB 04612000 LRBHREL EQU LRB+1 04613000 LRBHSYS EQU LRBHREL 04614000 LRBHSYSB EQU LRBHSYS 04615000 LRBHSW0 EQU LRB+2 04616000 LRBHNS EQU LRBHSW0 04617000 LRBHSW1 EQU LRB+3 04618000 LRBHSW2 EQU LRB+4 04619000 LRBMACT EQU LRBHSW2 04620000 LRBHSW3 EQU LRB+5 04621000 LRBHDATE EQU LRB+8 04622000 LRBHCPID EQU LRB+16 04623000 LRBBASE EQU LRB+24 04624000 LRBCVAR EQU 0 04625000 LRBCFT EQU LRBCVAR 04626000 LRBCMPNO EQU LRBCVAR+6 04627000 LRBCMP EQU LRBCVAR+8 04628000 LRBCMPPA EQU LRBCMP 04629000 LRBCMPCS EQU LRBCMP+2 04630000 PCCA EQU 0 04631000 PCCACPID EQU PCCA+4 04632000 PCCACPUA EQU PCCA+16 04633000 PCCACAFM EQU PCCA+18 04634000 PCCATMST EQU PCCA+128 04635000 PCCATMFL EQU PCCATMST 04636000 PCCATODE EQU PCCATMST+1 04637000 PCCACCE EQU PCCATMST+2 04638000 PCCAINTE EQU PCCATMST+3 04639000 PCCAEMSB EQU PCCA+136 04640000 PCCAEMSI EQU PCCAEMSB 04641000 PCCARISP EQU PCCAEMSI 04642000 PCCAEMS2 EQU PCCAEMSI+1 04643000 PCCAEMS3 EQU PCCAEMSI+2 04644000 PCCARMSB EQU PCCAEMSI+3 04645000 PCCAELAD EQU PCCA+168 04646000 PCCAELBA EQU PCCA+172 04647000 PCCACCHM EQU PCCA+176 04648000 PCCASRB EQU PCCA+180 04649000 PCCACHAN EQU PCCA+224 04650000 PCCASRBL EQU PCCA+225 04651000 PCCAWERP EQU PCCA+280 04652000 PCCACHUB EQU PCCAWERP 04653000 PCCACHPF EQU PCCAWERP+4 04654000 PCCACINT EQU PCCACHPF 04655000 PCCACCNT EQU PCCACHPF 04656000 PCCACNOR EQU PCCACHPF 04657000 PCCACHBL EQU PCCAWERP+5 04658000 PCCACCPU EQU PCCACHBL 04659000 PCCACCHA EQU PCCACHBL 04660000 PCCACSCU EQU PCCACHBL 04661000 PCCACSTG EQU PCCACHBL 04662000 PCCACCUE EQU PCCACHBL 04663000 PCCACHVA EQU PCCAWERP+6 04664000 PCCACSQV EQU PCCACHVA 04665000 PCCACUNS EQU PCCACHVA 04666000 PCCACCMD EQU PCCACHVA 04667000 PCCACCHV EQU PCCACHVA 04668000 PCCACDAV EQU PCCACHVA 04669000 PCCACHTS EQU PCCAWERP+7 04670000 PCCACHS1 EQU PCCA+288 04671000 PCCACNRE EQU PCCACHS1 04672000 PCCACFRR EQU PCCACHS1 04673000 PCCACNLS EQU PCCACHS1 04674000 PCCACAND EQU PCCACHS1 04675000 PCCACIBC EQU PCCACHS1 04676000 PCCACUCB EQU PCCACHS1 04677000 PCCACHS2 EQU PCCA+289 04678000 PCCACIOR EQU PCCACHS2 04679000 PCCACALT EQU PCCACHS2 04680000 PCCACMOD EQU PCCACHS2 04681000 PCCACNLG EQU PCCACHS2 04682000 PCCACURC EQU PCCACHS2 04683000 PCCACCRA EQU PCCACHS2 04684000 PCCACHRB EQU PCCA+290 04685000 PCCACSIB EQU PCCACHRB 04686000 PCCACINB EQU PCCACHRB 04687000 PCCACTIB EQU PCCACHRB 04688000 PCCACHIB EQU PCCACHRB 04689000 PCCAIOSI EQU PCCA+291 04690000 PCCACHW1 EQU PCCA+292 04691000 PCCALOGL EQU PCCA+300 04692000 PCCACELL EQU PCCA+302 04693000 PCCACHF1 EQU PCCA+308 04694000 PCCACF11 EQU PCCACHF1 04695000 PCCACF12 EQU PCCACHF1 04696000 PCCACF13 EQU PCCACHF1 04697000 PCCACF14 EQU PCCACHF1 04698000 PCCACF15 EQU PCCACHF1 04699000 PCCACF16 EQU PCCACHF1 04700000 PCCACHF2 EQU PCCA+309 04701000 PCCACF23 EQU PCCACHF2 04702000 PCCACF24 EQU PCCACHF2 04703000 PCCACF25 EQU PCCACHF2 04704000 PCCACF26 EQU PCCACHF2 04705000 PCCACF27 EQU PCCACHF2 04706000 PCCACF28 EQU PCCACHF2 04707000 PCCACHF3 EQU PCCA+310 04708000 PCCAISRB EQU PCCACHF3 04709000 PCCASLCK EQU PCCACHF3 04710000 PCCACHF4 EQU PCCA+311 04711000 PCCACHSV EQU PCCA+312 04712000 PCCACHID EQU PCCA+324 04713000 PCCALOGA EQU PCCA+332 04714000 PCCAATTR EQU PCCA+376 04715000 PCCACAT EQU PCCA+384 04716000 PCCAVT EQU 0 04717000 PCCAT00P EQU PCCAVT 04718000 RVT EQU 0 04719000 RVTCCHDA EQU RVT+96 04720000 SDWA EQU 0 04721000 SDWAPARM EQU SDWA 04722000 SDWAFIOB EQU SDWA+4 04723000 SDWAABCC EQU SDWAFIOB 04724000 SDWACMPF EQU SDWAABCC 04725000 SDWACTL1 EQU SDWA+8 04726000 SDWACMKA EQU SDWACTL1 04727000 SDWAMWPA EQU SDWACTL1+1 04728000 SDWAPMKA EQU SDWACTL1+4 04729000 SDWACTL2 EQU SDWA+16 04730000 SDWACMKP EQU SDWACTL2 04731000 SDWAMWPP EQU SDWACTL2+1 04732000 SDWAPMKP EQU SDWACTL2+4 04733000 SDWAGRSV EQU SDWA+24 04734000 SDWANAME EQU SDWA+88 04735000 SDWAEC1 EQU SDWA+104 04736000 SDWAEMK1 EQU SDWAEC1 04737000 SDWAMWP1 EQU SDWAEC1+1 04738000 SDWAINT1 EQU SDWAEC1+2 04739000 SDWANXT1 EQU SDWAEC1+4 04740000 SDWAAEC1 EQU SDWA+112 04741000 SDWAILC1 EQU SDWAAEC1+1 04742000 SDWAINC1 EQU SDWAAEC1+2 04743000 SDWAICD1 EQU SDWAINC1+1 04744000 SDWAEC2 EQU SDWA+120 04745000 SDWAEMK2 EQU SDWAEC2 04746000 SDWAMWP2 EQU SDWAEC2+1 04747000 SDWAINT2 EQU SDWAEC2+2 04748000 SDWANXT2 EQU SDWAEC2+4 04749000 SDWAAEC2 EQU SDWA+128 04750000 SDWAILC2 EQU SDWAAEC2+1 04751000 SDWAINC2 EQU SDWAAEC2+2 04752000 SDWAICD2 EQU SDWAINC2+1 04753000 SDWASRSV EQU SDWA+136 04754000 SDWAIDNT EQU SDWA+200 04755000 SDWAMCH EQU SDWA+204 04756000 SDWASTCK EQU SDWAMCH 04757000 SDWAMCHI EQU SDWAMCH+8 04758000 SDWAMCHS EQU SDWAMCHI 04759000 SDWAMCHD EQU SDWAMCHI+1 04760000 SDWARSR1 EQU SDWAMCH+12 04761000 SDWARSR2 EQU SDWAMCH+13 04762000 SDWAFLGS EQU SDWA+232 04763000 SDWAERRA EQU SDWAFLGS 04764000 SDWAERRB EQU SDWAFLGS+1 04765000 SDWAERRC EQU SDWAFLGS+2 04766000 SDWAERRD EQU SDWAFLGS+3 04767000 SDWAIOFS EQU SDWA+238 04768000 SDWARTYA EQU SDWA+240 04769000 SDWACPUA EQU SDWA+248 04770000 SDWAPARQ EQU SDWA+252 04771000 SDWARCDE EQU SDWAPARQ 04772000 SDWAACF2 EQU SDWAPARQ+1 04773000 SDWARCRD EQU SDWAACF2 04774000 SDWAUPRG EQU SDWAACF2 04775000 SDWAACF3 EQU SDWAPARQ+2 04776000 SDWAACF4 EQU SDWAPARQ+3 04777000 SDWALKWA EQU SDWA+256 04778000 SDWALKWS EQU SDWALKWA 04779000 SDWARECP EQU SDWA+292 04780000 SDWASNPA EQU SDWA+320 04781000 SDWADUMP EQU SDWASNPA 04782000 SDWADPFS EQU SDWADUMP+1 04783000 SDWADDAT EQU SDWASNPA+4 04784000 SDWASDAT EQU SDWADDAT 04785000 SDWAPDAT EQU SDWADDAT+2 04786000 SDWADPSA EQU SDWA+328 04787000 SDWADPSL EQU SDWADPSA 04788000 SDWARA EQU SDWA+400 04789000 SDWADPVA EQU SDWARA+2 04790000 UCB EQU 0 04791000 UCBOB EQU 0 04792000 UCBJBNR EQU UCBOB 04793000 UCBFL5 EQU UCBOB+1 04794000 UCBAF EQU UCBFL5 04795000 UCBSTAT EQU UCBOB+3 04796000 UCBCHAN EQU UCBOB+4 04797000 UCBCHA EQU UCBCHAN 04798000 UCBUA EQU UCBCHAN+1 04799000 UCBSFLS EQU UCBOB+6 04800000 UCBFLA EQU UCBSFLS 04801000 UCBFL1 EQU UCBFLA 04802000 UCBBSY EQU UCBFL1 04803000 UCBBUSYD EQU UCBBSY 04804000 UCBNRY EQU UCBFL1 04805000 UCBPST EQU UCBFL1 04806000 UCBUSING EQU UCBPST 04807000 UCBCUB EQU UCBFL1 04808000 UCBFLB EQU UCBSFLS+1 04809000 UCBIORST EQU UCBFLB 04810000 UCBCHM EQU UCBOB+8 04811000 UCBCHM1 EQU UCBCHM 04812000 UCBPTH0 EQU UCBCHM1 04813000 UCBPTH1 EQU UCBCHM1 04814000 UCBCPU EQU UCBOB+11 04815000 UCBWGT EQU UCBOB+12 04816000 UCBTYP EQU UCBOB+16 04817000 UCBTBYT1 EQU UCBTYP 04818000 UCB1FEA5 EQU UCBTBYT1 04819000 UCB1FEA6 EQU UCBTBYT1 04820000 UCBTBYT2 EQU UCBTYP+1 04821000 UCB2OPT2 EQU UCBTBYT2 04822000 UCBDUDN1 EQU UCB2OPT2 04823000 UCB2OPT3 EQU UCBTBYT2 04824000 UCBDUDN2 EQU UCB2OPT3 04825000 UCB2OPT4 EQU UCBTBYT2 04826000 UCBRWTAU EQU UCB2OPT4 04827000 UCB2OPT6 EQU UCBTBYT2 04828000 UCB2OPT7 EQU UCBTBYT2 04829000 UCBTBYT3 EQU UCBTYP+2 04830000 UCBDVCLS EQU UCBTBYT3 04831000 UCBTBYT4 EQU UCBTYP+3 04832000 UCBEXTPT EQU UCBOB+20 04833000 UCBFLC EQU UCBEXTPT 04834000 UCBDEV EQU UCBOB+24 04835000 UCBCMEXT EQU 0 04836000 UCBATI EQU UCBCMEXT+3 04837000 @NM00131 EQU UCBATI 04838000 UCBFLP1 EQU UCBCMEXT+5 04839000 UCBMIHTI EQU UCBCMEXT+16 04840000 @NM00132 EQU UCBMIHTI 04841000 UCBMT EQU 0 04842000 UCBOCR EQU 0 04843000 UCB3540X EQU 0 04844000 UCBDKBYT EQU UCB3540X+6 04845000 UCB3800X EQU 0 04846000 UCBOPTNS EQU UCB3800X 04847000 UCBACTIV EQU UCB3800X+3 04848000 UCBMDRBF EQU UCB3800X+36 04849000 UCBUCS EQU 0 04850000 UCBUCSOP EQU UCBUCS+4 04851000 UCBFCBOP EQU UCBUCS+5 04852000 WSAG EQU 0 04853000 WSAGGMFM EQU WSAG+4 04854000 WSAC EQU 0 04855000 WSACCCH EQU WSAC+52 04856000 SAV EQU 0 04857000 SAVREG0 EQU SAV 04858000 SAVREG1 EQU SAV+4 04859000 SAVIOSB EQU SAV+8 04860000 SAVREG6 EQU SAV+24 04861000 SAVUCB EQU SAV+28 04862000 SAVREG8 EQU SAV+32 04863000 SAVERPIB EQU SAV+48 04864000 SAVRTRN EQU SAV+56 04865000 SAVIGFCR EQU SAV+60 04866000 ERPINFO EQU 0 04867000 ERPERPIB EQU ERPINFO 04868000 ERPFLG EQU ERPERPIB+4 04869000 ERPNOR EQU ERPFLG 04870000 ERPCHA EQU ERPINFO+8 04871000 FRRSAREA EQU 0 04872000 FRRPCCA EQU FRRSAREA 04873000 FRRBASE EQU FRRSAREA+4 04874000 FRRSAVE EQU FRRSAREA+8 04875000 CCHMSGBF EQU 0 04876000 CCHMSGLN EQU CCHMSGBF 04877000 CCHMSGUA EQU CCHMSGBF+38 04878000 CCHMSGPA EQU CCHMSGBF+42 04879000 CCHMSGBL EQU CCHMSGBF+45 04880000 CCHMSGOP EQU CCHMSGBF+50 04881000 CCHMSGST EQU CCHMSGBF+53 04882000 INDEXBYT EQU 0 04883000 IGFCHADR EQU 0 04884000 IGFCRTN EQU 0 04885000 RDJBNAME EQU 0 04886000 RDCFCCW EQU 0 04887000 RDTABINX EQU 0 04888000 RDASVTAD EQU 0 04889000 RDVTAVAL EQU RDASVTAD 04890000 RDLOGOUT EQU 0 04891000 RECBUF EQU 0 04892000 UCBADTAB EQU 0 04893000 TABLE EQU 0 04894000 WKAREA1 EQU 0 04895000 WKAREA2 EQU 0 04896000 SAVIOS EQU 0 04897000 SAVGPR0 EQU SAVIOS 04898000 I256C EQU 0 04899000 I015F EQU 0 04900000 I001C EQU 0 04901000 I008P EQU 0 04902000 I015P EQU 0 04903000 I031F EQU 0 04904000 I031P EQU 0 04905000 RDWORD EQU 0 04906000 UCBBGN EQU 0 04907000 CVTS01 EQU CVTPGSIA 04908000 CVTLPDIA EQU CVTS01+12 04909000 CVTDIRST EQU CVTLPDIA 04910000 CVTSLIDA EQU CVTS01+24 04911000 CVTCTLFG EQU CVTS01+50 04912000 CVTASVT EQU CVTS01+208 04913000 CVTGSMQ EQU CVTS01+264 04914000 CVTCSD EQU CVTS01+312 04915000 CVTGLMN EQU CVTS01+332 04916000 CVTSPSA EQU CVTS01+336 04917000 CVTRECRQ EQU CVTS01+352 04918000 CVTPCCAT EQU CVTS01+416 04919000 CVTRV210 EQU CVTS01+424 04920000 CVTRV219 EQU CVTS01+425 04921000 CVTRV228 EQU CVTS01+426 04922000 CVTRV237 EQU CVTS01+427 04923000 CVTMFRTR EQU CVTS01+452 04924000 CVTRV262 EQU CVTS01+468 04925000 CVTRV271 EQU CVTS01+469 04926000 CVTRV280 EQU CVTS01+470 04927000 CVTRV289 EQU CVTS01+471 04928000 CVTGSDA EQU CVTS01+600 04929000 CVTCRCA EQU CVTS01+612 04930000 ASVTPTR EQU CVTASVT 04931000 CRCAPTR EQU CVTCRCA 04932000 CDAPTR EQU RVTCCHDA 04933000 CVTPTR EQU FLCCVT 04934000 PSARSVTE EQU PSARSVT 04935000 PSACSTK EQU PSARSVTE 04936000 FRRSPTR EQU PSACSTK 04937000 FRREPTR EQU FRRSCURR 04938000 IOSATTSC EQU IOSIPIB 04939000 IOSWTOWA EQU IOSIPIB 04940000 IOSPCISC EQU IOSIPIB 04941000 LCCAPTR EQU PSALCCAV 04942000 LRBPTR EQU PCCAELBA 04943000 LRBHRSW1 EQU LRBHSW1 04944000 LRBHCSW1 EQU LRBHSW1 04945000 LRBCINCO EQU LRBHCSW1 04946000 LRBCNOSP EQU LRBHCSW1 04947000 LRBHMSW1 EQU LRBHSW1 04948000 LRBMMCH EQU LRBBASE 04949000 LRBMCEIA EQU LRBMMCH+8 04950000 LRBMTERM EQU LRBMCEIA 04951000 LRBMHARD EQU LRBMCEIA+1 04952000 LRBMINTM EQU LRBMCEIA+2 04953000 LRBMSOFT EQU LRBMCEIA+3 04954000 LRBMPDAR EQU LRBMMCH+12 04955000 LRBMRSR1 EQU LRBMMCH+13 04956000 LRBMRSR2 EQU LRBMMCH+14 04957000 LRBMFLO EQU LRBMMCH+24 04958000 LRBMCIC EQU LRBMFLO 04959000 @NM00038 EQU LRBMCIC 04960000 @NM00040 EQU LRBMCIC+1 04961000 @NM00042 EQU LRBMCIC+2 04962000 @NM00044 EQU LRBMCIC+3 04963000 @NM00046 EQU LRBMCIC+5 04964000 LRBMEDC EQU LRBMFLO+12 04965000 LRBRDDR EQU LRBBASE 04966000 LRBCCCH EQU LRBBASE 04967000 LRBCJOB EQU LRBCCCH 04968000 LRBCAIO EQU LRBCCCH+8 04969000 LRBCFCCW EQU LRBCCCH+24 04970000 LRBCFCSW EQU LRBCCCH+32 04971000 LRBCECSW EQU LRBCCCH+40 04972000 LRBCDEVT EQU LRBCCCH+44 04973000 LRBCCHID EQU LRBCCCH+48 04974000 LRBCCUA EQU LRBCCCH+49 04975000 LRBCCUA2 EQU LRBCCUA+1 04976000 LRBCHCUA EQU LRBCCCH+52 04977000 LRBCLOGL EQU LRBCCCH+54 04978000 LRBCCLOG EQU LRBCCCH+56 04979000 LRBDMDR EQU LRBBASE 04980000 LRBNMIH EQU LRBBASE 04981000 LRBTTER EQU LRBBASE 04982000 RVTPTR EQU CVTRMS 04983000 UCBOBS01 EQU UCBDEV 04984000 UCBSTAB EQU UCBOBS01+10 04985000 UCBBSVL EQU UCBSTAB 04986000 UCBPRSRS EQU UCBSTAB 04987000 UCBDMCT EQU UCBOBS01+11 04988000 UCBFL4 EQU UCBOBS01+13 04989000 UCBOBS02 EQU UCBDEV 04990000 UCBTFL1 EQU UCBOBS02+19 04991000 UCBXTN EQU UCBOBS02+20 04992000 UCBVOPT EQU UCBXTN 04993000 UCBOBS03 EQU UCBDEV 04994000 UCBXTADR EQU UCBOBS03 04995000 UCBOBS04 EQU UCBDEV 04996000 UCBBTA EQU UCBOBS04+12 04997000 UCBOBS06 EQU UCBDEV 04998000 UCBAOF EQU UCBOBS06 04999000 UCBAOF1 EQU UCBAOF 05000000 UCBAOF2 EQU UCBAOF+1 05001000 @NM00130 EQU UCBOBS06+3 05002000 UCBIRB EQU UCBOBS06+4 05003000 UCBGRAF EQU UCBIRB 05004000 UCBLDNCA EQU UCBOBS06+8 05005000 UCBRDYQ EQU UCBLDNCA 05006000 UCBIRLN EQU UCBRDYQ 05007000 UCBLDNCB EQU UCBRDYQ+1 05008000 UCBCTLNK EQU UCBOBS06+12 05009000 UCBOBS07 EQU UCBDEV 05010000 UCBOBS08 EQU UCBDEV 05011000 UCBCTCAD EQU UCBOBS08 05012000 UCBCTCF1 EQU UCBOBS08+4 05013000 UCBOBS09 EQU UCBDEV 05014000 CATTYPE EQU CAT+4 05015000 CATMODL EQU CAT+5 05016000 CSW EQU FLCCSW 05017000 CSWKEYS EQU CSW 05018000 CSWCMDAD EQU CSW+1 05019000 CSWUSTAT EQU CSW+4 05020000 CSWCSTAT EQU CSW+5 05021000 CSWCCC EQU CSWCSTAT 05022000 CSWICC EQU CSWCSTAT 05023000 LCLOVLY EQU FLCLCL 05024000 @NM00139 EQU LCLOVLY+3 05025000 HUNGINF EQU @NM00139 05026000 IOSBYTE EQU SAVREG1+3 05027000 FRRBIT EQU IOSBYTE 05028000 UNITADR EQU FLCIOA+2 05029000 RDFTPRNT EQU PCCACHF1 05030000 RDSWITCH EQU PCCACHS1 05031000 RDCSWWD EQU LRBCFCSW 05032000 RDCSWCMD EQU RDCSWWD+1 05033000 RDIOA EQU FLCIOA 05034000 RDUNIT EQU RDIOA+2 05035000 @NM00149 EQU PCCACHID 05036000 PER EQU @NM00149 05037000 RDFLCCAW EQU FLCCAW+1 05038000 RDLCTIME EQU LRBHDATE 05039000 CHANNEL EQU UCBCHA 05040000 CPUAD EQU PCCACPUA+1 05041000 FAILCHAN EQU PCCACHW1+2 05042000 DEVADDR EQU PCCACHID 05043000 CPUADDR EQU PCCACHID 05044000 OPCODE EQU PCCACHID 05045000 STATUS EQU PCCACHID 05046000 LOGCPU EQU PCCACPUA 05047000 LOGCODE EQU LRBCFCCW 05048000 LOGSTAT EQU FLCCSW+4 05049000 LOGIOA EQU FLCIOA 05050000 LOGDEV EQU LOGIOA+2 05051000 PARM EQU SAVREG1 05052000 PARMADDR EQU PARM 05053000 PARMCODE EQU PARMADDR 05054000 CHANLOG EQU PSA+304 05055000 SAVEMASK EQU SAVGPR0+2 05056000 FLC EQU PSA 05057000 PCCACSAV EQU PCCACHSV 05058000 RDLRBREL EQU LRBHREL 05059000 AGO .@UNREFD START UNREFERENCED COMPONENTS 05060000 @NM00152 EQU LOGIOA 05061000 @NM00151 EQU @NM00149 05062000 @NM00150 EQU @NM00149 05063000 @NM00148 EQU RDIOA 05064000 @NM00147 EQU RDCSWWD 05065000 @NM00141 EQU @NM00139 05066000 @NM00140 EQU @NM00139 05067000 @NM00138 EQU LCLOVLY+2 05068000 @NM00137 EQU LCLOVLY+1 05069000 @NM00136 EQU LCLOVLY 05070000 CSWBTCNT EQU CSW+6 05071000 CSWCHNCK EQU CSWCSTAT 05072000 CSWCDC EQU CSWCSTAT 05073000 CSWPROCK EQU CSWCSTAT 05074000 CSWPGMCK EQU CSWCSTAT 05075000 CSWINLEN EQU CSWCSTAT 05076000 CSWPCI EQU CSWCSTAT 05077000 CSWUNEXC EQU CSWUSTAT 05078000 CSWUNTCK EQU CSWUSTAT 05079000 CSWDVEND EQU CSWUSTAT 05080000 CSWCHEND EQU CSWUSTAT 05081000 CSWBUSY EQU CSWUSTAT 05082000 CSWCUE EQU CSWUSTAT 05083000 CSWSTMD EQU CSWUSTAT 05084000 CSWATT EQU CSWUSTAT 05085000 CSWKEY EQU CSWKEYS 05086000 UCBRV066 EQU UCBOBS09+4 05087000 UCBIOSBA EQU UCBOBS09 05088000 UCBRV042 EQU UCBOBS08+5 05089000 UCBRV082 EQU UCBCTCF1 05090000 UCBRV081 EQU UCBCTCF1 05091000 UCBRV080 EQU UCBCTCF1 05092000 UCBRV079 EQU UCBCTCF1 05093000 UCBRV078 EQU UCBCTCF1 05094000 UCBRV077 EQU UCBCTCF1 05095000 UCBRV076 EQU UCBCTCF1 05096000 UCBCTC80 EQU UCBCTCF1 05097000 UCBCTCAL EQU UCBCTCAD 05098000 UCBICNCB EQU UCBOBS07+4 05099000 UCBRV040 EQU UCBOBS07 05100000 UCBCTLNA EQU UCBCTLNK+1 05101000 UCBRLN EQU UCBCTLNK 05102000 UCBRDYQA EQU UCBLDNCB 05103000 UCBINRLN EQU UCBIRLN 05104000 UCBIRBA EQU UCBIRB+1 05105000 UCBRV039 EQU UCBGRAF 05106000 UCBDWNR EQU UCBGRAF 05107000 UCBRPND EQU UCBGRAF 05108000 UCBUPM EQU UCBGRAF 05109000 UCBBTAM EQU UCBGRAF 05110000 UCBDRNO EQU UCBGRAF 05111000 UCBDRO EQU UCBGRAF 05112000 UCBOIP EQU UCBGRAF 05113000 UCBATRCD EQU @NM00130 05114000 UCBSKPFG EQU @NM00130 05115000 UCBRIPND EQU @NM00130 05116000 UCBRTIAC EQU @NM00130 05117000 UCBRSV79 EQU @NM00130 05118000 UCBRSV78 EQU @NM00130 05119000 UCBRSV77 EQU @NM00130 05120000 UCBOLTEP EQU @NM00130 05121000 UCBATNCT EQU UCBOBS06+2 05122000 UCBRSV76 EQU UCBAOF2 05123000 UCBRSV75 EQU UCBAOF2 05124000 UCBRSV74 EQU UCBAOF2 05125000 UCBRSV73 EQU UCBAOF2 05126000 UCBRSV72 EQU UCBAOF2 05127000 UCBRSV71 EQU UCBAOF2 05128000 UCBRSV70 EQU UCBAOF2 05129000 UCBRSV69 EQU UCBAOF2 05130000 UCBRSV68 EQU UCBAOF1 05131000 UCBRSV67 EQU UCBAOF1 05132000 UCBRSV66 EQU UCBAOF1 05133000 UCBRSV65 EQU UCBAOF1 05134000 UCBRSV64 EQU UCBAOF1 05135000 UCBOFNL EQU UCBAOF1 05136000 UCBOFSP EQU UCBAOF1 05137000 UCBOFMCR EQU UCBAOF1 05138000 UCBBTB EQU UCBBTA+1 05139000 UCBDI EQU UCBBTA 05140000 UCBSNS EQU UCBOBS04+8 05141000 UCBTEB EQU UCBOBS04+4 05142000 UCBGCB EQU UCBOBS04+3 05143000 UCBOPEN EQU UCBOBS04+2 05144000 UCBSTART EQU UCBOBS04 05145000 UCBXTNB EQU UCBXTN+1 05146000 UCBRSV22 EQU UCBVOPT 05147000 UCBRSV21 EQU UCBVOPT 05148000 UCBRSV20 EQU UCBVOPT 05149000 UCBESVE EQU UCBVOPT 05150000 UCBERPC EQU UCBVOPT 05151000 UCBESVC EQU UCBVOPT 05152000 UCBEVA EQU UCBVOPT 05153000 UCBESV EQU UCBVOPT 05154000 UCBRV009 EQU UCBTFL1 05155000 UCBRV008 EQU UCBTFL1 05156000 UCBRV007 EQU UCBTFL1 05157000 UCBRV006 EQU UCBTFL1 05158000 UCBRV005 EQU UCBTFL1 05159000 UCBDQDSP EQU UCBTFL1 05160000 UCBNSLTP EQU UCBTFL1 05161000 UCBNLTP EQU UCBTFL1 05162000 UCBRES1B EQU UCBOBS02+18 05163000 UCBFSER EQU UCBOBS02+12 05164000 @NM00129 EQU UCBOBS02+4 05165000 UCBFSEQ EQU UCBOBS02+2 05166000 UCBFSCT EQU UCBOBS02 05167000 UCBNEXP EQU UCBOBS01+20 05168000 UCBBASE EQU UCBOBS01+16 05169000 UCBRES1A EQU UCBOBS01+15 05170000 UCBUSER EQU UCBOBS01+14 05171000 UCBFL47 EQU UCBFL4 05172000 UCBMAT EQU UCBFL4 05173000 UCBHOLD EQU UCBFL4 05174000 UCBATTN EQU UCBFL4 05175000 UCBDSS EQU UCBFL4 05176000 UCBRESVP EQU UCBFL4 05177000 UCBWDAV EQU UCBFL4 05178000 UCBDAVV EQU UCBFL4 05179000 UCBSQC EQU UCBOBS01+12 05180000 UCBDATP EQU UCBOBS01+12 05181000 UCBDMC EQU UCBDMCT 05182000 UCBMOUNT EQU UCBDMCT 05183000 UCBBNUL EQU UCBSTAB 05184000 UCBSHAR EQU UCBSTAB 05185000 UCBBSTR EQU UCBSTAB 05186000 UCBBPUB EQU UCBSTAB 05187000 UCBBPRV EQU UCBSTAB 05188000 UCBBALB EQU UCBPRSRS 05189000 UCBPGFL EQU UCBSTAB 05190000 UCBDVSHR EQU UCBBSVL 05191000 UCBVOLI EQU UCBOBS01+4 05192000 UCBVTOC EQU UCBOBS01 05193000 LRBTUSR EQU LRBTTER+8 05194000 LRBTWSC EQU LRBTTER+4 05195000 LRBTLNH EQU LRBTTER 05196000 LRBNINT EQU LRBNMIH+24 05197000 LRBNDEVT EQU LRBNMIH+20 05198000 LRBNVOL EQU LRBNMIH+14 05199000 LRBNCUA1 EQU LRBNMIH+11 05200000 LRBNCUA2 EQU LRBNMIH+8 05201000 LRBNJOB EQU LRBNMIH 05202000 LRBDSENS EQU LRBDMDR+8 05203000 LRBDVOL EQU LRBDMDR+2 05204000 LRBDCUA1 EQU LRBDMDR 05205000 @NM00052 EQU LRBCCUA 05206000 LRBRDEV2 EQU LRBRDDR+32 05207000 LRBRCUA2 EQU LRBRDDR+29 05208000 LRBRPH2 EQU LRBRDDR+28 05209000 LRBRDEV1 EQU LRBRDDR+24 05210000 LRBRCUA1 EQU LRBRDDR+21 05211000 LRBRPH1 EQU LRBRDDR+20 05212000 LRBRVOL2 EQU LRBRDDR+14 05213000 LRBRVOL1 EQU LRBRDDR+8 05214000 LRBRJOB EQU LRBRDDR 05215000 LRBMCEL EQU LRBMMCH+304 05216000 @NM00051 EQU LRBMFLO+20 05217000 LRBMFSA EQU LRBMFLO+16 05218000 @NM00050 EQU LRBMFLO+13 05219000 LRBMDISC EQU LRBMEDC 05220000 LRBMINTR EQU LRBMEDC 05221000 LRBMINST EQU LRBMEDC 05222000 LRBMCCF EQU LRBMEDC 05223000 LRBMCNOP EQU LRBMEDC 05224000 LRBMEXSR EQU LRBMEDC 05225000 LRBMCOPR EQU LRBMEDC 05226000 @NM00049 EQU LRBMEDC 05227000 @NM00048 EQU LRBMFLO+8 05228000 LRBMCELL EQU LRBMCIC+6 05229000 LRBMVCC EQU @NM00046 05230000 LRBMVPT EQU @NM00046 05231000 @NM00047 EQU @NM00046 05232000 @NM00045 EQU LRBMCIC+4 05233000 LRBMVST EQU @NM00044 05234000 LRBMVLG EQU @NM00044 05235000 LRBMVCR EQU @NM00044 05236000 LRBMVGR EQU @NM00044 05237000 LRBMVFP EQU @NM00044 05238000 LRBMVED EQU @NM00044 05239000 LRBMVRC EQU @NM00044 05240000 LRBMVFA EQU @NM00044 05241000 LRBMVIA EQU @NM00042 05242000 LRBMVPM EQU @NM00042 05243000 LRBMVMS EQU @NM00042 05244000 LRBMVWP EQU @NM00042 05245000 @NM00043 EQU @NM00042 05246000 LRBMFKE EQU @NM00042 05247000 LRBMFSC EQU @NM00042 05248000 LRBMFSE EQU @NM00042 05249000 LRBMIDY EQU @NM00040 05250000 LRBMIBU EQU @NM00040 05251000 @NM00041 EQU @NM00040 05252000 LRBMFWN EQU @NM00040 05253000 LRBMFDG EQU @NM00038 05254000 @NM00039 EQU @NM00038 05255000 LRBMFED EQU @NM00038 05256000 LRBMFCD EQU @NM00038 05257000 LRBMFTD EQU @NM00038 05258000 LRBMFSR EQU @NM00038 05259000 LRBMFPD EQU @NM00038 05260000 LRBMFSD EQU @NM00038 05261000 LRBMMOSW EQU LRBMMCH+16 05262000 LRBMPWL EQU LRBMMCH+15 05263000 LRBMVEQR EQU LRBMRSR2 05264000 LRBMPGFX EQU LRBMRSR2 05265000 LRBMLSQA EQU LRBMRSR2 05266000 LRBMFSQA EQU LRBMRSR2 05267000 LRBMNUCL EQU LRBMRSR2 05268000 LRBMSPER EQU LRBMRSR2 05269000 LRBMINTC EQU LRBMRSR2 05270000 LRBMOFLN EQU LRBMRSR2 05271000 LRBMCHNG EQU LRBMRSR1 05272000 LRBMSER EQU LRBMRSR1 05273000 @NM00037 EQU LRBMRSR1 05274000 @NM00036 EQU LRBMPDAR 05275000 LRBMRSRF EQU LRBMPDAR 05276000 LRBMRSRC EQU LRBMPDAR 05277000 LRBMINVP EQU LRBMPDAR 05278000 @NM00035 EQU LRBMPDAR 05279000 LRBMSBUF EQU LRBMSOFT 05280000 LRBMSHIR EQU LRBMSOFT 05281000 LRBMSECC EQU LRBMSOFT 05282000 LRBMSEXD EQU LRBMSOFT 05283000 @NM00034 EQU LRBMSOFT 05284000 LRBMSSFT EQU LRBMSOFT 05285000 LRBMIL80 EQU LRBMINTM 05286000 LRBMICTM EQU LRBMINTM 05287000 LRBMICKC EQU LRBMINTM 05288000 LRBMITOD EQU LRBMINTM 05289000 @NM00033 EQU LRBMINTM 05290000 LRBMHIPD EQU LRBMHARD 05291000 LRBMHSPF EQU LRBMHARD 05292000 LRBMHSTO EQU LRBMHARD 05293000 LRBMHINV EQU LRBMHARD 05294000 LRBMHSD EQU LRBMHARD 05295000 @NM00032 EQU LRBMHARD 05296000 LRBMHHRD EQU LRBMHARD 05297000 LRBMTINV EQU LRBMTERM 05298000 LRBMTDMG EQU LRBMTERM 05299000 LRBMTWRN EQU LRBMTERM 05300000 LRBMTCKS EQU LRBMTERM 05301000 LRBMTSEC EQU LRBMTERM 05302000 LRBMTTHR EQU LRBMTERM 05303000 @NM00031 EQU LRBMTERM 05304000 LRBMWSC EQU LRBMMCH+4 05305000 LRBMLNH EQU LRBMMCH 05306000 @NM00030 EQU LRBHMSW1 05307000 LRBMSYST EQU LRBHMSW1 05308000 @NM00029 EQU LRBHMSW1 05309000 @NM00028 EQU LRBHCSW1 05310000 LRBCERPP EQU LRBHCSW1 05311000 LRBCDATA EQU LRBHCSW1 05312000 LRBCICUA EQU LRBHCSW1 05313000 @NM00027 EQU LRBHCSW1 05314000 LRBCMESG EQU LRBHCSW1 05315000 @NM00026 EQU LRBHRSW1 05316000 LRBRSYSI EQU LRBHRSW1 05317000 LRBROPER EQU LRBHRSW1 05318000 LRBRSEC EQU LRBHRSW1 05319000 LRBRPRIM EQU LRBHRSW1 05320000 IOSPCIWA EQU IOSPCISC+44 05321000 IOSPCIRS EQU IOSPCISC+8 05322000 @NM00018 EQU IOSPCISC+4 05323000 @NM00017 EQU IOSPCISC 05324000 IOSWRNDR EQU IOSWTOWA+4 05325000 IOSWTOPT EQU IOSWTOWA+3 05326000 IOSWTOCP EQU IOSWTOWA+2 05327000 IOSWTOCH EQU IOSWTOWA 05328000 IOSATTWA EQU IOSATTSC+40 05329000 @NM00016 EQU IOSATTSC+24 05330000 IOSATTSN EQU IOSATTSC 05331000 PSARSAV EQU PSARSVTE+60 05332000 PSARSTK EQU PSARSVTE+56 05333000 PSAESAV3 EQU PSARSVTE+52 05334000 PSAESTK3 EQU PSARSVTE+48 05335000 PSAESAV2 EQU PSARSVTE+44 05336000 PSAESTK2 EQU PSARSVTE+40 05337000 PSAESAV1 EQU PSARSVTE+36 05338000 PSAESTK1 EQU PSARSVTE+32 05339000 PSAPSAV EQU PSARSVTE+28 05340000 PSAPSTK EQU PSARSVTE+24 05341000 PSAMSAV EQU PSARSVTE+20 05342000 PSAMSTK EQU PSARSVTE+16 05343000 PSASSAV EQU PSARSVTE+12 05344000 PSASSTK EQU PSARSVTE+8 05345000 PSANSTK EQU PSARSVTE+4 05346000 CVTRV628 EQU CVTS01+728 05347000 CVTRV627 EQU CVTS01+724 05348000 CVTRV626 EQU CVTS01+720 05349000 CVTRV625 EQU CVTS01+716 05350000 CVTRV624 EQU CVTS01+712 05351000 CVTRV623 EQU CVTS01+708 05352000 CVTRV622 EQU CVTS01+704 05353000 CVTRV621 EQU CVTS01+700 05354000 CVTIHASU EQU CVTS01+696 05355000 CVTSUSP EQU CVTS01+692 05356000 CVTT6SVC EQU CVTS01+688 05357000 CVTCDAL EQU CVTS01+684 05358000 CVTTCTL EQU CVTS01+680 05359000 CVTRSUME EQU CVTS01+676 05360000 CVTJTERM EQU CVTS01+672 05361000 CVTASMRM EQU CVTS01+668 05362000 CVTTCASP EQU CVTS01+664 05363000 CVT0PT03 EQU CVTS01+660 05364000 CVT0PT0E EQU CVTS01+656 05365000 CVTRV609 EQU CVTS01+652 05366000 CVTCGK EQU CVTS01+648 05367000 CVTRAC EQU CVTS01+644 05368000 CVTHSM EQU CVTS01+640 05369000 CVTRV605 EQU CVTS01+636 05370000 CVTRV604 EQU CVTS01+632 05371000 CVTEFF02 EQU CVTS01+628 05372000 CVTCBBR EQU CVTS01+624 05373000 CVTSSCR EQU CVTS01+620 05374000 CVTEVENT EQU CVTS01+616 05375000 CVTTPIO EQU CVTS01+608 05376000 CVTADV EQU CVTS01+604 05377000 CVTGSDAB EQU CVTGSDA 05378000 CVTQV3 EQU CVTS01+596 05379000 CVTQV2 EQU CVTS01+592 05380000 CVTQV1 EQU CVTS01+588 05381000 CVTRPT EQU CVTS01+584 05382000 CVTSSRB EQU CVTS01+580 05383000 CVTCSDRL EQU CVTS01+576 05384000 CVTEXP1 EQU CVTS01+572 05385000 CVTRMPMT EQU CVTS01+568 05386000 CVTRMPTT EQU CVTS01+564 05387000 CVTVPSA EQU CVTS01+560 05388000 CVTVSTOP EQU CVTS01+556 05389000 CVTGTFR8 EQU CVTS01+552 05390000 CVTQUIT EQU CVTS01+548 05391000 CVTVACR EQU CVTS01+544 05392000 CVTWTCB EQU CVTS01+540 05393000 CVTSTPRS EQU CVTS01+536 05394000 CVT0PT02 EQU CVTS01+532 05395000 CVTDARCM EQU CVTS01+528 05396000 CVTIRECM EQU CVTS01+524 05397000 CVTJRECM EQU CVTS01+520 05398000 CVTVEMS0 EQU CVTS01+516 05399000 CVTSPFRR EQU CVTS01+512 05400000 CVTRLSTG EQU CVTS01+508 05401000 CVT0TC0A EQU CVTS01+504 05402000 CVTGMBR EQU CVTS01+500 05403000 CVTLFRM EQU CVTS01+496 05404000 CVTRMBR EQU CVTS01+492 05405000 CVTVIOP EQU CVTS01+488 05406000 CVTRV307 EQU CVTS01+486 05407000 CVTRV306 EQU CVTS01+484 05408000 CVTRV305 EQU CVTS01+482 05409000 CVTRV304 EQU CVTS01+480 05410000 CVTRV303 EQU CVTS01+478 05411000 CVTRV302 EQU CVTS01+476 05412000 CVTTRCA EQU CVTS01+472 05413000 CVTRV297 EQU CVTRV289 05414000 CVTRV296 EQU CVTRV289 05415000 CVTRV295 EQU CVTRV289 05416000 CVTRV294 EQU CVTRV289 05417000 CVTRV293 EQU CVTRV289 05418000 CVTRV292 EQU CVTRV289 05419000 CVTRV291 EQU CVTRV289 05420000 CVTRV290 EQU CVTRV289 05421000 CVTRV288 EQU CVTRV280 05422000 CVTRV287 EQU CVTRV280 05423000 CVTRV286 EQU CVTRV280 05424000 CVTRV285 EQU CVTRV280 05425000 CVTRV284 EQU CVTRV280 05426000 CVTRV283 EQU CVTRV280 05427000 CVTRV282 EQU CVTRV280 05428000 CVTRV281 EQU CVTRV280 05429000 CVTRV279 EQU CVTRV271 05430000 CVTRV278 EQU CVTRV271 05431000 CVTRV277 EQU CVTRV271 05432000 CVTRV276 EQU CVTRV271 05433000 CVTRV275 EQU CVTRV271 05434000 CVTRV274 EQU CVTRV271 05435000 CVTRV273 EQU CVTRV271 05436000 CVTRV272 EQU CVTRV271 05437000 CVTRV270 EQU CVTRV262 05438000 CVTRV269 EQU CVTRV262 05439000 CVTRV268 EQU CVTRV262 05440000 CVTRV267 EQU CVTRV262 05441000 CVTRV266 EQU CVTRV262 05442000 CVTRV265 EQU CVTRV262 05443000 CVTRV264 EQU CVTRV262 05444000 CVTRV263 EQU CVTRV262 05445000 CVTVFP EQU CVTS01+464 05446000 CVTVSI EQU CVTS01+460 05447000 CVTVPSIB EQU CVTS01+456 05448000 CVTMFACT EQU CVTMFRTR 05449000 CVTMFCTL EQU CVTS01+448 05450000 CVTPVBP EQU CVTS01+444 05451000 CVTPWI EQU CVTS01+440 05452000 CVTRV254 EQU CVTS01+438 05453000 CVTRV253 EQU CVTS01+436 05454000 CVTRV252 EQU CVTS01+434 05455000 CVTRV251 EQU CVTS01+433 05456000 CVTRV250 EQU CVTS01+432 05457000 CVTRV249 EQU CVTS01+431 05458000 CVTRV248 EQU CVTS01+430 05459000 CVTRV247 EQU CVTS01+429 05460000 CVTRV246 EQU CVTS01+428 05461000 CVTRV245 EQU CVTRV237 05462000 CVTRV244 EQU CVTRV237 05463000 CVTRV243 EQU CVTRV237 05464000 CVTRV242 EQU CVTRV237 05465000 CVTRV241 EQU CVTRV237 05466000 CVTRV240 EQU CVTRV237 05467000 CVTRV239 EQU CVTRV237 05468000 CVTRV238 EQU CVTRV237 05469000 CVTRV236 EQU CVTRV228 05470000 CVTRV235 EQU CVTRV228 05471000 CVTRV234 EQU CVTRV228 05472000 CVTRV233 EQU CVTRV228 05473000 CVTRV232 EQU CVTRV228 05474000 CVTRV231 EQU CVTRV228 05475000 CVTRV230 EQU CVTRV228 05476000 CVTRV229 EQU CVTRV228 05477000 CVTRV227 EQU CVTRV219 05478000 CVTRV226 EQU CVTRV219 05479000 CVTRV225 EQU CVTRV219 05480000 CVTRV224 EQU CVTRV219 05481000 CVTRV223 EQU CVTRV219 05482000 CVTRV222 EQU CVTRV219 05483000 CVTRV221 EQU CVTRV219 05484000 CVTRV220 EQU CVTRV219 05485000 CVTRV218 EQU CVTRV210 05486000 CVTRV217 EQU CVTRV210 05487000 CVTRV216 EQU CVTRV210 05488000 CVTRV215 EQU CVTRV210 05489000 CVTRV214 EQU CVTRV210 05490000 CVTRV213 EQU CVTRV210 05491000 CVTRV212 EQU CVTRV210 05492000 CVTRV211 EQU CVTRV210 05493000 CVTLCCAT EQU CVTS01+420 05494000 CVTIPCRP EQU CVTS01+412 05495000 CVTIPCRI EQU CVTS01+408 05496000 CVTIPCDS EQU CVTS01+404 05497000 CVTAIDVT EQU CVTS01+400 05498000 CVTSSAP EQU CVTS01+396 05499000 CVTEHCIR EQU CVTS01+392 05500000 CVTEHDEF EQU CVTS01+388 05501000 CVTDAIR EQU CVTS01+384 05502000 CVTPERFM EQU CVTS01+380 05503000 CVT044R2 EQU CVTS01+376 05504000 CVTFETCH EQU CVTS01+372 05505000 CVTRSTWD EQU CVTS01+368 05506000 CVTSPOST EQU CVTS01+364 05507000 CVTIOBP EQU CVTS01+360 05508000 CVTASMVT EQU CVTS01+356 05509000 CVTWSAC EQU CVTS01+348 05510000 CVTRV149 EQU CVTS01+344 05511000 CVTWSAL EQU CVTS01+340 05512000 CVTVEAC0 EQU CVTS01+328 05513000 CVT062R1 EQU CVTS01+324 05514000 CVTRPOST EQU CVTS01+320 05515000 CVTDQIQE EQU CVTS01+316 05516000 CVTLKRMA EQU CVTS01+308 05517000 CVTRSPIE EQU CVTS01+304 05518000 CVTRENQ EQU CVTS01+300 05519000 CVTLQCB EQU CVTS01+296 05520000 CVTFQCB EQU CVTS01+292 05521000 CVTQCS01 EQU CVTS01+288 05522000 CVTAPFT EQU CVTS01+284 05523000 CVTPARRL EQU CVTS01+280 05524000 CVTVWAIT EQU CVTS01+276 05525000 CVTGSPL EQU CVTS01+272 05526000 CVTLSMQ EQU CVTS01+268 05527000 CVTEXPRO EQU CVTS01+260 05528000 CVTOPCTP EQU CVTS01+256 05529000 CVTSIC EQU CVTS01+252 05530000 CVTTPIOS EQU CVTS01+248 05531000 CVTRTMS EQU CVTS01+244 05532000 CVTSDBF EQU CVTS01+240 05533000 CVTSCBP EQU CVTS01+236 05534000 CVTSDMP EQU CVTS01+232 05535000 CVTSV60 EQU CVTS01+228 05536000 CVTRTMCT EQU CVTS01+224 05537000 CVTASCBL EQU CVTS01+220 05538000 CVTASCBH EQU CVTS01+216 05539000 CVTGDA EQU CVTS01+212 05540000 CVTVVMDI EQU CVTS01+204 05541000 CVTAQTOP EQU CVTS01+200 05542000 CVTIOSCS EQU CVTS01+196 05543000 CVTSDRM EQU CVTS01+192 05544000 CVTOPTE EQU CVTS01+188 05545000 CVTSTXU EQU CVTS01+184 05546000 CVTQUIS EQU CVTS01+180 05547000 CVTPARS EQU CVTS01+176 05548000 CVTS1EE EQU CVTS01+172 05549000 CVTFRAS EQU CVTS01+168 05550000 CVTQSAS EQU CVTS01+164 05551000 CVTCRAS EQU CVTS01+160 05552000 CVTCRMN EQU CVTS01+156 05553000 CVTDELCP EQU CVTS01+152 05554000 CVTFRECL EQU CVTS01+148 05555000 CVTGETCL EQU CVTS01+144 05556000 CVTBLDCP EQU CVTS01+140 05557000 CVTAUTHL EQU CVTS01+136 05558000 CVTSCAN EQU CVTS01+132 05559000 CVTRV144 EQU CVTS01+130 05560000 CVTMAXMP EQU CVTS01+128 05561000 CVTSTCK EQU CVTS01+124 05562000 CVTRV139 EQU CVTS01+123 05563000 CVTDSSAC EQU CVTS01+122 05564000 CVTRV513 EQU CVTS01+121 05565000 CVTIOSPL EQU CVTS01+120 05566000 CVTPTGT EQU CVTS01+116 05567000 CVTCSPIE EQU CVTS01+112 05568000 CVTSMFEX EQU CVTS01+108 05569000 CVTOLT0A EQU CVTS01+104 05570000 CVTSRBRT EQU CVTS01+100 05571000 CVTPUTL EQU CVTS01+96 05572000 CVTASCRL EQU CVTS01+92 05573000 CVTASCRF EQU CVTS01+88 05574000 CVTRV326 EQU CVTS01+84 05575000 CVTRV325 EQU CVTS01+80 05576000 CVTRV324 EQU CVTS01+76 05577000 CVT0VL01 EQU CVTS01+72 05578000 CVTSHRVM EQU CVTS01+68 05579000 CVTRV332 EQU CVTS01+64 05580000 CVTTAS EQU CVTS01+60 05581000 CVTRSCN EQU CVTS01+56 05582000 CVTTRAC2 EQU CVTS01+54 05583000 CVTTRACE EQU CVTS01+52 05584000 CVTAPG EQU CVTS01+51 05585000 CVTSDTRC EQU CVTCTLFG 05586000 CVTGTRCE EQU CVTCTLFG 05587000 CVTNOMP EQU CVTCTLFG 05588000 CVTRSV79 EQU CVTCTLFG 05589000 CVTDSTAT EQU CVTCTLFG 05590000 CVTRSV78 EQU CVTCTLFG 05591000 CVTRV333 EQU CVTCTLFG 05592000 CVTRV323 EQU CVTCTLFG 05593000 CVTSPVLK EQU CVTS01+49 05594000 CVTRSV77 EQU CVTS01+48 05595000 CVTRV331 EQU CVTS01+44 05596000 CVTRV330 EQU CVTS01+40 05597000 CVTRV329 EQU CVTS01+36 05598000 CVTRV328 EQU CVTS01+32 05599000 CVTRV322 EQU CVTS01+28 05600000 CVTSLID EQU CVTSLIDA+1 05601000 CVTSYLK EQU CVTSLIDA 05602000 CVTRV321 EQU CVTS01+20 05603000 CVTRV320 EQU CVTS01+16 05604000 CVTLPDIR EQU CVTLPDIA+1 05605000 CVTRSV69 EQU CVTDIRST 05606000 CVTRSV68 EQU CVTDIRST 05607000 CVTRSV67 EQU CVTDIRST 05608000 CVTRSV66 EQU CVTDIRST 05609000 CVTRSV65 EQU CVTDIRST 05610000 CVTRSV64 EQU CVTDIRST 05611000 CVTRSV63 EQU CVTDIRST 05612000 CVTDICOM EQU CVTDIRST 05613000 CVTPVTP EQU CVTS01+8 05614000 CVTLPDSR EQU CVTS01+4 05615000 CVTGETL EQU CVTS01 05616000 SAVGPR1 EQU SAVIOS+4 05617000 @NM00146 EQU CCHMSGBF+57 05618000 @NM00145 EQU CCHMSGBF+52 05619000 @NM00144 EQU CCHMSGBF+49 05620000 @NM00143 EQU CCHMSGBF+44 05621000 @NM00142 EQU CCHMSGBF+41 05622000 CCHMSGHR EQU CCHMSGBF+2 05623000 @NM00135 EQU ERPFLG 05624000 @NM00134 EQU ERPERPIB 05625000 SAVSAVE EQU SAV+52 05626000 SAVREG11 EQU SAV+44 05627000 SAVREG10 EQU SAV+40 05628000 SAVREG9 EQU SAV+36 05629000 SAVREG5 EQU SAV+20 05630000 SAVREG4 EQU SAV+16 05631000 SAVREG3 EQU SAV+12 05632000 WSACASMS EQU WSAC+60 05633000 WSACASMD EQU WSAC+56 05634000 WSACRRSA EQU WSAC+48 05635000 WSACREST EQU WSAC+44 05636000 WSACRSTI EQU WSAC+40 05637000 WSACABTM EQU WSAC+36 05638000 WSACMF1 EQU WSAC+32 05639000 WSACEDS0 EQU WSAC+28 05640000 WSACIOS EQU WSAC+24 05641000 WSACRTMK EQU WSAC+20 05642000 WSACACR EQU WSAC+16 05643000 WSACTIME EQU WSAC+12 05644000 WSACOPTM EQU WSAC+8 05645000 WSACGTF EQU WSAC+4 05646000 WSACCWSA EQU WSAC 05647000 WSAGSCHE EQU WSAG+40 05648000 WSAGREST EQU WSAG+36 05649000 WSAGNQDQ EQU WSAG+32 05650000 WSAGMEMT EQU WSAG+28 05651000 WSAGOPTM EQU WSAG+24 05652000 WSAGSTAT EQU WSAG+20 05653000 WSAGEMS0 EQU WSAG+16 05654000 WSAGSSRS EQU WSAG+12 05655000 WSAGRSM EQU WSAG+8 05656000 WSAGPGIO EQU WSAG 05657000 UCBERADR EQU UCBUCS+12 05658000 UCBFCBID EQU UCBUCS+8 05659000 UCBERCNT EQU UCBUCS+7 05660000 UCBRSV51 EQU UCBUCS+6 05661000 UCBFCBPE EQU UCBFCBOP 05662000 UCBRSV49 EQU UCBFCBOP 05663000 UCBRSV48 EQU UCBFCBOP 05664000 UCBRSV47 EQU UCBFCBOP 05665000 UCBRSV46 EQU UCBFCBOP 05666000 UCBRSV45 EQU UCBFCBOP 05667000 UCBRSV44 EQU UCBFCBOP 05668000 UCBFCBO1 EQU UCBFCBOP 05669000 UCBUCSPE EQU UCBUCSOP 05670000 UCBRSV43 EQU UCBUCSOP 05671000 UCBRSV42 EQU UCBUCSOP 05672000 UCBRSV41 EQU UCBUCSOP 05673000 UCBRSV40 EQU UCBUCSOP 05674000 UCBRSV39 EQU UCBUCSOP 05675000 UCBUCSO2 EQU UCBUCSOP 05676000 UCBUCSO1 EQU UCBUCSOP 05677000 UCBUCSID EQU UCBUCS 05678000 UCBMDRBA EQU UCBMDRBF+1 05679000 UCBRV075 EQU UCBMDRBF 05680000 UCBRV074 EQU UCB3800X+32 05681000 UCBIMAGE EQU UCB3800X+28 05682000 UCBFCBNM EQU UCB3800X+24 05683000 UCBCHAR4 EQU UCB3800X+20 05684000 UCBCHAR3 EQU UCB3800X+16 05685000 UCBCHAR2 EQU UCB3800X+12 05686000 UCBCHAR1 EQU UCB3800X+8 05687000 UCBCGMID EQU UCB3800X+4 05688000 UCBBRSTA EQU UCBACTIV 05689000 UCBRV063 EQU UCBACTIV 05690000 UCBRV062 EQU UCBACTIV 05691000 UCBRV061 EQU UCBACTIV 05692000 UCBRV060 EQU UCBACTIV 05693000 UCBRV059 EQU UCBACTIV 05694000 UCBRV058 EQU UCBACTIV 05695000 UCBRV057 EQU UCBACTIV 05696000 UCBRV050 EQU UCB3800X+2 05697000 UCBCGMNO EQU UCB3800X+1 05698000 UCBRV083 EQU UCBOPTNS 05699000 UCBBRSTR EQU UCBOPTNS 05700000 UCBRV056 EQU UCBOPTNS 05701000 UCBRV055 EQU UCBOPTNS 05702000 UCBRV054 EQU UCBOPTNS 05703000 UCBRV053 EQU UCBOPTNS 05704000 UCBRV052 EQU UCBOPTNS 05705000 UCBRV051 EQU UCBOPTNS 05706000 UCBRV073 EQU UCB3540X+7 05707000 UCBRV072 EQU UCBDKBYT 05708000 UCBRV071 EQU UCBDKBYT 05709000 UCBRV070 EQU UCBDKBYT 05710000 UCBRV069 EQU UCBDKBYT 05711000 UCBRV068 EQU UCBDKBYT 05712000 UCBRV067 EQU UCBDKBYT 05713000 UCBVLVER EQU UCBDKBYT 05714000 UCBDKAMX EQU UCBDKBYT 05715000 UCBVLSER EQU UCB3540X 05716000 UCBRDATA EQU UCBOCR+4 05717000 UCBFRID EQU UCBOCR 05718000 UCBCLN EQU UCBMT+14 05719000 UCBERG EQU UCBMT+12 05720000 UCBMS EQU UCBMT+11 05721000 UCBNB EQU UCBMT+10 05722000 UCBPW EQU UCBMT+9 05723000 UCBPR EQU UCBMT+8 05724000 UCBSIO EQU UCBMT+6 05725000 UCBTW EQU UCBMT+5 05726000 UCBTR EQU UCBMT+4 05727000 UCBTWT EQU UCBMT+3 05728000 UCBTRT EQU UCBMT+2 05729000 UCBCTD EQU UCBMT 05730000 UCBWTOID EQU UCBCMEXT+17 05731000 @NM00133 EQU @NM00132 05732000 UCBMIHSF EQU @NM00132 05733000 UCBASID EQU UCBCMEXT+14 05734000 UCBMFCNT EQU UCBCMEXT+12 05735000 UCBPMSK EQU UCBCMEXT+10 05736000 UCBCCWOF EQU UCBCMEXT+8 05737000 UCBRV041 EQU UCBCMEXT+6 05738000 UCBMIHPB EQU UCBFLP1 05739000 UCBMIHTB EQU UCBFLP1 05740000 UCBERLOG EQU UCBFLP1 05741000 UCBSWAPF EQU UCBFLP1 05742000 UCBINHIO EQU UCBFLP1 05743000 UCBNSWAP EQU UCBFLP1 05744000 UCBSHRUP EQU UCBFLP1 05745000 UCBNSRCH EQU UCBFLP1 05746000 UCBSNSCT EQU UCBCMEXT+4 05747000 UCBHPDV EQU @NM00131 05748000 UCBHALI EQU @NM00131 05749000 UCBRSV09 EQU @NM00131 05750000 UCBRSV08 EQU @NM00131 05751000 UCBRSV07 EQU @NM00131 05752000 UCBRSV06 EQU @NM00131 05753000 UCBRSV05 EQU @NM00131 05754000 UCBRSV04 EQU @NM00131 05755000 UCBDTI EQU UCBCMEXT+2 05756000 UCBSTI EQU UCBCMEXT+1 05757000 UCBETI EQU UCBCMEXT 05758000 UCBEXTP EQU UCBEXTPT+1 05759000 UCBDDRSW EQU UCBFLC 05760000 UCBTICBT EQU UCBFLC 05761000 UCBIVRR EQU UCBFLC 05762000 UCBIVRS EQU UCBFLC 05763000 UCBITF EQU UCBFLC 05764000 UCBUDE EQU UCBFLC 05765000 UCBWAA EQU UCBFLC 05766000 UCBATTP EQU UCBFLC 05767000 UCBUNTYP EQU UCBTBYT4 05768000 UCBRSV11 EQU UCBDVCLS 05769000 UCBRSV10 EQU UCBDVCLS 05770000 UCB3CHAR EQU UCBDVCLS 05771000 UCB3UREC EQU UCBDVCLS 05772000 UCB3DISP EQU UCBDVCLS 05773000 UCB3DACC EQU UCBDVCLS 05774000 UCB3COMM EQU UCBDVCLS 05775000 UCB3TAPE EQU UCBDVCLS 05776000 UCBDVPWR EQU UCB2OPT7 05777000 UCBVLPWR EQU UCB2OPT6 05778000 UCB2OPT5 EQU UCBTBYT2 05779000 UCBRVDEV EQU UCBRWTAU 05780000 UCBRPS EQU UCBDUDN2 05781000 UCBRR EQU UCBDUDN1 05782000 UCB2OPT1 EQU UCBTBYT2 05783000 UCB2OPT0 EQU UCBTBYT2 05784000 UCB1FEA7 EQU UCBTBYT1 05785000 UCBD6250 EQU UCB1FEA6 05786000 UCBD1600 EQU UCB1FEA5 05787000 UCB1FEA4 EQU UCBTBYT1 05788000 UCB1FEA3 EQU UCBTBYT1 05789000 UCB1FEA2 EQU UCBTBYT1 05790000 UCB1FEA1 EQU UCBTBYT1 05791000 UCB1FEA0 EQU UCBTBYT1 05792000 UCBNAME EQU UCBOB+13 05793000 UCBRV029 EQU UCBWGT 05794000 UCBVHRSN EQU UCBWGT 05795000 UCBVORSN EQU UCBWGT 05796000 UCBMTPXP EQU UCBWGT 05797000 UCBREW EQU UCBWGT 05798000 UCBPUB EQU UCBWGT 05799000 UCBOUT EQU UCBWGT 05800000 UCBIN EQU UCBWGT 05801000 UCBLCI EQU UCBOB+10 05802000 UCBCNT EQU UCBOB+9 05803000 UCBRV017 EQU UCBCHM1 05804000 UCBRV016 EQU UCBCHM1 05805000 UCBRV015 EQU UCBCHM1 05806000 UCBRV014 EQU UCBCHM1 05807000 UCBSPB EQU UCBPTH1 05808000 UCBPPB EQU UCBPTH1 05809000 UCBSPA EQU UCBPTH0 05810000 UCBPPA EQU UCBPTH0 05811000 UCBSIGP EQU UCBFLB 05812000 UCBVALPH EQU UCBFLB 05813000 UCBCRHSN EQU UCBFLB 05814000 UCBCRHRV EQU UCBFLB 05815000 UCBRESVH EQU UCBFLB 05816000 UCBSPST EQU UCBFLB 05817000 UCBASNS EQU UCBFLB 05818000 UCBQISCE EQU UCBFL1 05819000 UCBACTV EQU UCBFL1 05820000 UCBSAP EQU UCBFL1 05821000 UCBNOTRC EQU UCBCUB 05822000 UCBPSNS EQU UCBFL1 05823000 UCBNOTRD EQU UCBNRY 05824000 UCBDADI EQU UCBSTAT 05825000 UCBSYSR EQU UCBSTAT 05826000 UCBPRES EQU UCBSTAT 05827000 UCBALOC EQU UCBSTAT 05828000 UCBUNLD EQU UCBSTAT 05829000 UCBRESV EQU UCBSTAT 05830000 UCBCHGS EQU UCBSTAT 05831000 UCBONLI EQU UCBSTAT 05832000 UCBID EQU UCBOB+2 05833000 UCBALTPH EQU UCBFL5 05834000 UCBALTCU EQU UCBFL5 05835000 UCBNALOC EQU UCBFL5 05836000 UCBENVRD EQU UCBFL5 05837000 UCBVSDR EQU UCBFL5 05838000 UCBSASK EQU UCBFL5 05839000 UCBAMV EQU UCBAF 05840000 UCBDCC EQU UCBFL5 05841000 UCBMONT EQU UCBJBNR 05842000 UCBRV011 EQU UCBJBNR 05843000 UCBMMSGP EQU UCBJBNR 05844000 UCBOLDSM EQU UCBJBNR 05845000 UCBRV003 EQU UCBJBNR 05846000 UCBDUC EQU UCBJBNR 05847000 UCBJES3 EQU UCBJBNR 05848000 UCBVRDEV EQU UCBJBNR 05849000 UCBCMSEG EQU UCBOB 05850000 UCBPFXND EQU UCB+512 05851000 UCBIOQ EQU UCB+508 05852000 UCBLOCK EQU UCB+504 05853000 UCBPXST EQU UCB+504 05854000 @NM00128 EQU UCB 05855000 @NM00127 EQU SDWA+512 05856000 SDWAVRA EQU SDWARA+4 05857000 SDWAURAL EQU SDWARA+3 05858000 @NM00126 EQU SDWADPVA 05859000 SDWAEBC EQU SDWADPVA 05860000 SDWAHEX EQU SDWADPVA 05861000 SDWAVRAL EQU SDWARA 05862000 @NM00125 EQU SDWA+396 05863000 SDWACOMP EQU SDWA+392 05864000 SDWARCPL EQU SDWA+364 05865000 @NM00124 EQU SDWADPSA+32 05866000 SDWATO4 EQU SDWADPSL+28 05867000 SDWAFRM4 EQU SDWADPSL+24 05868000 SDWATO3 EQU SDWADPSL+20 05869000 SDWAFRM3 EQU SDWADPSL+16 05870000 SDWATO2 EQU SDWADPSL+12 05871000 SDWAFRM2 EQU SDWADPSL+8 05872000 SDWATO1 EQU SDWADPSL+4 05873000 SDWAFRM1 EQU SDWADPSL 05874000 @NM00123 EQU SDWADDAT+3 05875000 @NM00122 EQU SDWAPDAT 05876000 SDWAUSPL EQU SDWAPDAT 05877000 SDWADPSW EQU SDWAPDAT 05878000 SDWATJPA EQU SDWAPDAT 05879000 SDWATLPA EQU SDWAPDAT 05880000 SDWADREG EQU SDWAPDAT 05881000 SDWADSAH EQU SDWAPDAT 05882000 SDWADSAS EQU SDWAPDAT 05883000 @NM00121 EQU SDWADDAT+1 05884000 @NM00120 EQU SDWASDAT 05885000 SDWAQQS EQU SDWASDAT 05886000 SDWACBS EQU SDWASDAT 05887000 SDWAGTF EQU SDWASDAT 05888000 SDWASWA EQU SDWASDAT 05889000 SDWALSQA EQU SDWASDAT 05890000 SDWASQA EQU SDWASDAT 05891000 SDWANUC EQU SDWASDAT 05892000 @NM00119 EQU SDWADUMP+2 05893000 @NM00118 EQU SDWADPFS 05894000 SDWASLST EQU SDWADPFS 05895000 @NM00117 EQU SDWADPFS 05896000 SDWADLST EQU SDWADPFS 05897000 SDWADPT EQU SDWADPFS 05898000 SDWADPID EQU SDWADUMP 05899000 SDWADPLA EQU SDWA+316 05900000 SDWAREXN EQU SDWARECP+16 05901000 SDWACSCT EQU SDWARECP+8 05902000 SDWAMODN EQU SDWARECP 05903000 @NM00116 EQU SDWA+290 05904000 SDWAASID EQU SDWA+288 05905000 SDWATALW EQU SDWALKWS+28 05906000 SDWATDLW EQU SDWALKWS+24 05907000 SDWATNLW EQU SDWALKWS+20 05908000 SDWAAPLW EQU SDWALKWS+16 05909000 SDWAIPLW EQU SDWALKWS+12 05910000 SDWAILLW EQU SDWALKWS+8 05911000 SDWAIULW EQU SDWALKWS+4 05912000 SDWAICLW EQU SDWALKWS 05913000 SDWAFLLK EQU SDWAACF4 05914000 SDWACMS EQU SDWAACF4 05915000 SDWAOPTM EQU SDWAACF4 05916000 SDWATADB EQU SDWAACF4 05917000 SDWATDNB EQU SDWAACF4 05918000 SDWATNCB EQU SDWAACF4 05919000 SDWAILCH EQU SDWAACF4 05920000 SDWAIUCB EQU SDWAACF4 05921000 SDWAICAT EQU SDWAACF3 05922000 SDWAIPRG EQU SDWAACF3 05923000 SDWASALL EQU SDWAACF3 05924000 SDWAASMP EQU SDWAACF3 05925000 SDWADISP EQU SDWAACF3 05926000 @NM00115 EQU SDWAACF3 05927000 @NM00114 EQU SDWAACF2 05928000 SDWAFREE EQU SDWAACF2 05929000 @NM00113 EQU SDWAACF2 05930000 SDWASPIN EQU SDWAACF2 05931000 @NM00112 EQU SDWAACF2 05932000 SDWALCPU EQU SDWACPUA+2 05933000 @NM00111 EQU SDWACPUA 05934000 SDWARECA EQU SDWA+244 05935000 @NM00110 EQU SDWA+239 05936000 @NM00109 EQU SDWAIOFS 05937000 SDWANIOP EQU SDWAIOFS 05938000 SDWANOIO EQU SDWAIOFS 05939000 SDWAIOHT EQU SDWAIOFS 05940000 SDWAIOQR EQU SDWAIOFS 05941000 SDWAFMID EQU SDWA+236 05942000 @NM00108 EQU SDWAERRD 05943000 SDWAMCIV EQU SDWAERRD 05944000 SDWARPIV EQU SDWAERRD 05945000 SDWAMABD EQU SDWAERRD 05946000 SDWACTS EQU SDWAERRD 05947000 SDWASTAE EQU SDWAERRD 05948000 SDWANRBE EQU SDWAERRD 05949000 SDWACLUP EQU SDWAERRD 05950000 @NM00107 EQU SDWAERRC 05951000 SDWAEAS EQU SDWAERRC 05952000 SDWAPERC EQU SDWAERRC 05953000 SDWAIRB EQU SDWAERRC 05954000 SDWASTAI EQU SDWAERRC 05955000 SDWASTAF EQU SDWAERRC 05956000 SDWASRBM EQU SDWAERRB 05957000 SDWALDIS EQU SDWAERRB 05958000 SDWAENRB EQU SDWAERRB 05959000 SDWATYP1 EQU SDWAERRB 05960000 @NM00106 EQU SDWAERRB 05961000 SDWAPGIO EQU SDWAERRA 05962000 SDWATEXC EQU SDWAERRA 05963000 SDWASVCE EQU SDWAERRA 05964000 SDWAABTM EQU SDWAERRA 05965000 SDWASVCD EQU SDWAERRA 05966000 SDWARKEY EQU SDWAERRA 05967000 SDWAPCHK EQU SDWAERRA 05968000 SDWAMCHK EQU SDWAERRA 05969000 SDWATIME EQU SDWAMCH+20 05970000 SDWARFSA EQU SDWAMCH+16 05971000 @NM00105 EQU SDWAMCH+14 05972000 SDWAVEQR EQU SDWARSR2 05973000 SDWAPGFX EQU SDWARSR2 05974000 SDWAFLSQ EQU SDWARSR2 05975000 SDWAFSQA EQU SDWARSR2 05976000 SDWANUCL EQU SDWARSR2 05977000 SDWASPER EQU SDWARSR2 05978000 SDWAINTC EQU SDWARSR2 05979000 SDWAOFLN EQU SDWARSR2 05980000 SDWACHNG EQU SDWARSR1 05981000 SDWAMSER EQU SDWARSR1 05982000 @NM00104 EQU SDWARSR1 05983000 SDWACPID EQU SDWAMCH+10 05984000 SDWATERR EQU SDWAMCHD 05985000 SDWAFPRX EQU SDWAMCHD 05986000 SDWAINSF EQU SDWAMCHD 05987000 SDWAACR EQU SDWAMCHD 05988000 SDWASCK EQU SDWAMCHD 05989000 SDWAPSWU EQU SDWAMCHD 05990000 SDWAREGU EQU SDWAMCHD 05991000 SDWASKYF EQU SDWAMCHD 05992000 @NM00103 EQU SDWAMCHS 05993000 SDWARSRF EQU SDWAMCHS 05994000 SDWARSRC EQU SDWAMCHS 05995000 SDWAINVP EQU SDWAMCHS 05996000 SDWATSVL EQU SDWAMCHS 05997000 SDWARCDF EQU SDWAMCHS 05998000 SDWASRVL EQU SDWAMCHS 05999000 SDWASCKE EQU SDWASTCK+4 06000000 SDWASCKB EQU SDWASTCK 06001000 SDWALNTH EQU SDWAIDNT+1 06002000 SDWASPID EQU SDWAIDNT 06003000 SDWASR15 EQU SDWASRSV+60 06004000 SDWASR14 EQU SDWASRSV+56 06005000 SDWASR13 EQU SDWASRSV+52 06006000 SDWASR12 EQU SDWASRSV+48 06007000 SDWASR11 EQU SDWASRSV+44 06008000 SDWASR10 EQU SDWASRSV+40 06009000 SDWASR09 EQU SDWASRSV+36 06010000 SDWASR08 EQU SDWASRSV+32 06011000 SDWASR07 EQU SDWASRSV+28 06012000 SDWASR06 EQU SDWASRSV+24 06013000 SDWASR05 EQU SDWASRSV+20 06014000 SDWASR04 EQU SDWASRSV+16 06015000 SDWASR03 EQU SDWASRSV+12 06016000 SDWASR02 EQU SDWASRSV+8 06017000 SDWASR01 EQU SDWASRSV+4 06018000 SDWASR00 EQU SDWASRSV 06019000 SDWATRN2 EQU SDWAAEC2+4 06020000 SDWAIPC2 EQU SDWAICD2 06021000 SDWAIMC2 EQU SDWAICD2 06022000 SDWAIPR2 EQU SDWAICD2 06023000 @NM00102 EQU SDWAINC2 06024000 @NM00101 EQU SDWAILC2 06025000 SDWAIL2 EQU SDWAILC2 06026000 @NM00100 EQU SDWAILC2 06027000 @NM00099 EQU SDWAAEC2 06028000 SDWAADD2 EQU SDWANXT2+1 06029000 @NM00098 EQU SDWANXT2 06030000 @NM00097 EQU SDWAEC2+3 06031000 SDWASGN2 EQU SDWAINT2 06032000 SDWAEXP2 EQU SDWAINT2 06033000 SDWADEC2 EQU SDWAINT2 06034000 SDWAFPO2 EQU SDWAINT2 06035000 SDWACC2 EQU SDWAINT2 06036000 @NM00096 EQU SDWAINT2 06037000 SDWAPGM2 EQU SDWAMWP2 06038000 SDWAWAT2 EQU SDWAMWP2 06039000 SDWAMCK2 EQU SDWAMWP2 06040000 SDWAECT2 EQU SDWAMWP2 06041000 SDWAKEY2 EQU SDWAMWP2 06042000 SDWAEXT2 EQU SDWAEMK2 06043000 SDWAIO2 EQU SDWAEMK2 06044000 SDWATRM2 EQU SDWAEMK2 06045000 @NM00095 EQU SDWAEMK2 06046000 SDWAPER2 EQU SDWAEMK2 06047000 @NM00094 EQU SDWAEMK2 06048000 SDWATRAN EQU SDWAAEC1+4 06049000 SDWAIPC1 EQU SDWAICD1 06050000 SDWAIMC1 EQU SDWAICD1 06051000 SDWAIPR1 EQU SDWAICD1 06052000 @NM00093 EQU SDWAINC1 06053000 @NM00092 EQU SDWAILC1 06054000 SDWAIL1 EQU SDWAILC1 06055000 @NM00091 EQU SDWAILC1 06056000 @NM00090 EQU SDWAAEC1 06057000 SDWAADD1 EQU SDWANXT1+1 06058000 @NM00089 EQU SDWANXT1 06059000 @NM00088 EQU SDWAEC1+3 06060000 SDWASGN1 EQU SDWAINT1 06061000 SDWAEXP1 EQU SDWAINT1 06062000 SDWADEC1 EQU SDWAINT1 06063000 SDWAFPO1 EQU SDWAINT1 06064000 SDWACC1 EQU SDWAINT1 06065000 @NM00087 EQU SDWAINT1 06066000 SDWAPGM1 EQU SDWAMWP1 06067000 SDWAWAT1 EQU SDWAMWP1 06068000 SDWAMCK1 EQU SDWAMWP1 06069000 SDWAECT1 EQU SDWAMWP1 06070000 SDWAKEY1 EQU SDWAMWP1 06071000 SDWAEXT1 EQU SDWAEMK1 06072000 SDWAIO1 EQU SDWAEMK1 06073000 SDWATRM1 EQU SDWAEMK1 06074000 @NM00086 EQU SDWAEMK1 06075000 SDWAPER1 EQU SDWAEMK1 06076000 @NM00085 EQU SDWAEMK1 06077000 SDWAIOBR EQU SDWA+100 06078000 SDWAEPA EQU SDWA+96 06079000 @NM00084 EQU SDWANAME+4 06080000 SDWARBAD EQU SDWANAME 06081000 SDWAGR15 EQU SDWAGRSV+60 06082000 SDWAGR14 EQU SDWAGRSV+56 06083000 SDWAGR13 EQU SDWAGRSV+52 06084000 SDWAGR12 EQU SDWAGRSV+48 06085000 SDWAGR11 EQU SDWAGRSV+44 06086000 SDWAGR10 EQU SDWAGRSV+40 06087000 SDWAGR09 EQU SDWAGRSV+36 06088000 SDWAGR08 EQU SDWAGRSV+32 06089000 SDWAGR07 EQU SDWAGRSV+28 06090000 SDWAGR06 EQU SDWAGRSV+24 06091000 SDWAGR05 EQU SDWAGRSV+20 06092000 SDWAGR04 EQU SDWAGRSV+16 06093000 SDWAGR03 EQU SDWAGRSV+12 06094000 SDWAGR02 EQU SDWAGRSV+8 06095000 SDWAGR01 EQU SDWAGRSV+4 06096000 SDWAGR00 EQU SDWAGRSV 06097000 SDWANXTP EQU SDWACTL2+5 06098000 SDWASGP EQU SDWAPMKP 06099000 SDWAEUP EQU SDWAPMKP 06100000 SDWADOP EQU SDWAPMKP 06101000 SDWAFPP EQU SDWAPMKP 06102000 SDWACCP EQU SDWAPMKP 06103000 SDWAILP EQU SDWAPMKP 06104000 SDWAINTP EQU SDWACTL2+2 06105000 SDWASPVP EQU SDWAMWPP 06106000 SDWAWATP EQU SDWAMWPP 06107000 SDWAMCKP EQU SDWAMWPP 06108000 @NM00083 EQU SDWAMWPP 06109000 SDWAKEYP EQU SDWAMWPP 06110000 SDWAEXTP EQU SDWACMKP 06111000 SDWAIOP EQU SDWACMKP 06112000 SDWANXTA EQU SDWACTL1+5 06113000 SDWASGA EQU SDWAPMKA 06114000 SDWAEUA EQU SDWAPMKA 06115000 SDWADOA EQU SDWAPMKA 06116000 SDWAFPA EQU SDWAPMKA 06117000 SDWACCA EQU SDWAPMKA 06118000 SDWAILA EQU SDWAPMKA 06119000 SDWAINTA EQU SDWACTL1+2 06120000 SDWASPVA EQU SDWAMWPA 06121000 SDWAWATA EQU SDWAMWPA 06122000 SDWAMCKA EQU SDWAMWPA 06123000 @NM00082 EQU SDWAMWPA 06124000 SDWAKEYA EQU SDWAMWPA 06125000 SDWAEXTA EQU SDWACMKA 06126000 SDWAIOA EQU SDWACMKA 06127000 SDWACMPC EQU SDWAABCC+1 06128000 @NM00081 EQU SDWACMPF 06129000 SDWASTCC EQU SDWACMPF 06130000 @NM00080 EQU SDWACMPF 06131000 SDWASTEP EQU SDWACMPF 06132000 SDWAREQ EQU SDWACMPF 06133000 RVTMIH2 EQU RVT+108 06134000 RVTMIH EQU RVT+104 06135000 RVTCCHCR EQU RVT+100 06136000 RVTMSGLN EQU RVT+92 06137000 RVTMSGPT EQU RVT+88 06138000 RVTLRBPT EQU RVT+84 06139000 RVTRWAPT EQU RVT+80 06140000 RVT01MMM EQU RVT+76 06141000 RVT00MMM EQU RVT+72 06142000 RVTPEXIT EQU RVT+68 06143000 RVTPKREF EQU RVT+64 06144000 RVTPBUCR EQU RVT+60 06145000 RVTPXMFA EQU RVT+56 06146000 RVTPTAIM EQU RVT+52 06147000 RVTPTCON EQU RVT+48 06148000 RVTPTREC EQU RVT+44 06149000 RVTPTSIG EQU RVT+40 06150000 RVTPTERM EQU RVT+36 06151000 RVTPMKTA EQU RVT+32 06152000 RVTPMMSG EQU RVT+28 06153000 RVTPMTHA EQU RVT+24 06154000 RVTPMPFX EQU RVT+20 06155000 RVTPMSCA EQU RVT+16 06156000 RVTPMHCA EQU RVT+12 06157000 RVTPMFRS EQU RVT+8 06158000 RVTPMRTM EQU RVT+4 06159000 RVTPMCIH EQU RVT 06160000 @NM00053 EQU PCCA+512 06161000 PCCARV36 EQU PCCA+380 06162000 PCCARV35 EQU PCCA+378 06163000 PCCARV01 EQU PCCA+377 06164000 PCCAR105 EQU PCCAATTR 06165000 PCCAR104 EQU PCCAATTR 06166000 PCCAR103 EQU PCCAATTR 06167000 PCCAR102 EQU PCCAATTR 06168000 PCCAR101 EQU PCCAATTR 06169000 PCCAR100 EQU PCCAATTR 06170000 PCCAIO EQU PCCAATTR 06171000 PCCACPUM EQU PCCAATTR 06172000 PCCARV63 EQU PCCA+372 06173000 PCCARV62 EQU PCCA+368 06174000 PCCARV61 EQU PCCA+364 06175000 PCCARV60 EQU PCCA+360 06176000 PCCARV59 EQU PCCA+356 06177000 PCCARV58 EQU PCCA+352 06178000 PCCARV57 EQU PCCA+348 06179000 PCCARV56 EQU PCCA+344 06180000 PCCARV55 EQU PCCA+340 06181000 PCCARV54 EQU PCCA+336 06182000 PCCARV79 EQU PCCACHF4 06183000 PCCARV78 EQU PCCACHF4 06184000 PCCARV77 EQU PCCACHF4 06185000 PCCARV76 EQU PCCACHF4 06186000 PCCARV75 EQU PCCACHF4 06187000 PCCARV74 EQU PCCACHF4 06188000 PCCARV73 EQU PCCACHF4 06189000 PCCARV72 EQU PCCACHF4 06190000 PCCARV71 EQU PCCACHF3 06191000 PCCARV70 EQU PCCACHF3 06192000 PCCARV69 EQU PCCACHF3 06193000 PCCARV68 EQU PCCACHF3 06194000 PCCARV67 EQU PCCACHF3 06195000 PCCARV66 EQU PCCACHF3 06196000 PCCACF22 EQU PCCACHF2 06197000 PCCACF21 EQU PCCACHF2 06198000 PCCACF18 EQU PCCACHF1 06199000 PCCACF17 EQU PCCACHF1 06200000 PCCARV05 EQU PCCA+307 06201000 PCCACHPB EQU PCCA+306 06202000 PCCALGP2 EQU PCCA+305 06203000 PCCALGP1 EQU PCCA+304 06204000 PCCACHW2 EQU PCCA+296 06205000 PCCACNRB EQU PCCACHRB 06206000 PCCACCVB EQU PCCACHRB 06207000 PCCACSNB EQU PCCACHRB 06208000 PCCARV52 EQU PCCACHRB 06209000 PCCARV51 EQU PCCACHS2 06210000 PCCARV50 EQU PCCACHS2 06211000 PCCARV47 EQU PCCACHS1 06212000 PCCACCMP EQU PCCACHS1 06213000 PCCACSEQ EQU PCCACHTS 06214000 PCCACDIN EQU PCCACHTS 06215000 PCCARV44 EQU PCCACHTS 06216000 PCCARV43 EQU PCCACHTS 06217000 PCCACTEC EQU PCCACHTS 06218000 PCCARV42 EQU PCCACHVA 06219000 PCCARV41 EQU PCCACHVA 06220000 PCCACITF EQU PCCACHVA 06221000 PCCARV40 EQU PCCACHBL 06222000 PCCARV39 EQU PCCACHBL 06223000 PCCARV38 EQU PCCACHBL 06224000 PCCACSNS EQU PCCACHPF 06225000 PCCARV37 EQU PCCACHPF 06226000 PCCACHIO EQU PCCACHPF 06227000 PCCACTIO EQU PCCACHPF 06228000 PCCACSIO EQU PCCACHPF 06229000 PCCAR106 EQU PCCA+228 06230000 PCCAR113 EQU PCCA+226 06231000 PCCAR112 EQU PCCACHAN 06232000 PCCAR111 EQU PCCACHAN 06233000 PCCAR110 EQU PCCACHAN 06234000 PCCAR109 EQU PCCACHAN 06235000 PCCAR108 EQU PCCACHAN 06236000 PCCAR107 EQU PCCACHAN 06237000 PCCAEXDM EQU PCCACHAN 06238000 PCCAIRST EQU PCCACHAN 06239000 PCCALRBR EQU PCCA+164 06240000 PCCALRBV EQU PCCA+160 06241000 PCCAPWAR EQU PCCA+156 06242000 PCCAPWAV EQU PCCA+152 06243000 PCCAEMSA EQU PCCAEMSB+12 06244000 PCCAEMSE EQU PCCAEMSB+8 06245000 PCCAEMSP EQU PCCAEMSB+4 06246000 PCCARMS EQU PCCARMSB 06247000 PCCARV34 EQU PCCARMSB 06248000 PCCARV33 EQU PCCARMSB 06249000 PCCARV32 EQU PCCARMSB 06250000 PCCARV31 EQU PCCARMSB 06251000 PCCARV30 EQU PCCARMSB 06252000 PCCARV29 EQU PCCARMSB 06253000 PCCARV28 EQU PCCARMSB 06254000 PCCARV27 EQU PCCAEMS3 06255000 PCCARV26 EQU PCCAEMS3 06256000 PCCARV25 EQU PCCAEMS3 06257000 PCCARV24 EQU PCCAEMS3 06258000 PCCARV23 EQU PCCAEMS3 06259000 PCCARV22 EQU PCCAEMS3 06260000 PCCARV21 EQU PCCAEMS3 06261000 PCCARV20 EQU PCCAEMS3 06262000 PCCARV19 EQU PCCAEMS2 06263000 PCCARV18 EQU PCCAEMS2 06264000 PCCARV17 EQU PCCAEMS2 06265000 PCCARV16 EQU PCCAEMS2 06266000 PCCARV15 EQU PCCAEMS2 06267000 PCCARV14 EQU PCCAEMS2 06268000 PCCARV13 EQU PCCAEMS2 06269000 PCCARV12 EQU PCCAEMS2 06270000 PCCARV11 EQU PCCARISP 06271000 PCCARV10 EQU PCCARISP 06272000 PCCARV09 EQU PCCARISP 06273000 PCCARV08 EQU PCCARISP 06274000 PCCARV07 EQU PCCARISP 06275000 PCCARV06 EQU PCCARISP 06276000 PCCASERL EQU PCCARISP 06277000 PCCAPARL EQU PCCARISP 06278000 PCCARPB EQU PCCA+132 06279000 PCCACTIN EQU PCCAINTE 06280000 PCCANFIN EQU PCCAINTE 06281000 PCCANUIN EQU PCCAINTE 06282000 PCCACTCC EQU PCCACCE 06283000 PCCANFCC EQU PCCACCE 06284000 PCCANUCC EQU PCCACCE 06285000 PCCACTTD EQU PCCATODE 06286000 PCCANFTD EQU PCCATODE 06287000 PCCANUTD EQU PCCATODE 06288000 PCCARV04 EQU PCCATMFL 06289000 PCCARV03 EQU PCCATMFL 06290000 PCCARV02 EQU PCCATMFL 06291000 PCCAMINT EQU PCCATMFL 06292000 PCCAMCC EQU PCCATMFL 06293000 PCCAVKIL EQU PCCATMFL 06294000 PCCASYNC EQU PCCATMFL 06295000 PCCAINIT EQU PCCATMFL 06296000 PCCARV9E EQU PCCA+124 06297000 PCCARV9D EQU PCCA+120 06298000 PCCARV9C EQU PCCA+116 06299000 PCCARV9B EQU PCCA+112 06300000 PCCARV9A EQU PCCA+108 06301000 PCCARV99 EQU PCCA+104 06302000 PCCARV98 EQU PCCA+100 06303000 PCCARV97 EQU PCCA+96 06304000 PCCARV96 EQU PCCA+92 06305000 PCCARV95 EQU PCCA+88 06306000 PCCARV94 EQU PCCA+84 06307000 PCCARV93 EQU PCCA+80 06308000 PCCARV92 EQU PCCA+76 06309000 PCCARV91 EQU PCCA+72 06310000 PCCARV90 EQU PCCA+68 06311000 PCCARV89 EQU PCCA+64 06312000 PCCARV88 EQU PCCA+60 06313000 PCCARV87 EQU PCCA+56 06314000 PCCARV86 EQU PCCA+52 06315000 PCCARV85 EQU PCCA+48 06316000 PCCARV84 EQU PCCA+44 06317000 PCCARV83 EQU PCCA+40 06318000 PCCARV82 EQU PCCA+36 06319000 PCCARV81 EQU PCCA+32 06320000 PCCAPSAR EQU PCCA+28 06321000 PCCAPSAV EQU PCCA+24 06322000 PCCATQEP EQU PCCA+20 06323000 PCCAPCCA EQU PCCA 06324000 LRBCMPF2 EQU LRBCVAR+5 06325000 LRBCMPF1 EQU LRBCVAR+4 06326000 LRBCRESD EQU LRBCVAR+2 06327000 LRBHMCEL EQU LRBHCPID+6 06328000 LRBHMDL EQU LRBHCPID+4 06329000 LRBHCSER EQU LRBHCPID+1 06330000 @NM00025 EQU LRBHCPID 06331000 LRBHTIME EQU LRB+12 06332000 @NM00024 EQU LRB+7 06333000 LRBHCNT EQU LRB+6 06334000 LRBMCLB EQU LRBHSW3 06335000 LRBNDEM EQU LRBMACT 06336000 LRBNCEM EQU LRBMACT 06337000 @NM00023 EQU LRBHSW0 06338000 LRBHTMC EQU LRBHSW0 06339000 @NM00022 EQU LRBHSW0 06340000 LRBHMORE EQU LRBHSW0 06341000 @NM00021 EQU LRBHSYS 06342000 @NM00020 EQU SRB+40 06343000 @NM00019 EQU SRB+38 06344000 SRBPRIOR EQU SRB+37 06345000 SRBPKF EQU SRB+36 06346000 SRBSAVE EQU SRB+32 06347000 SRBPTCB EQU SRBFLC+4 06348000 SRBPASID EQU SRBFLC+2 06349000 LCCAR125 EQU LCCA+964 06350000 LCCAR124 EQU LCCA+960 06351000 LCCASGPR EQU LCCA+896 06352000 LCCADRT2 EQU LCCA+888 06353000 LCCADRT1 EQU LCCA+880 06354000 LCCAR103 EQU LCCA+876 06355000 LCCAESS2 EQU LCCA+872 06356000 LCCASPLJ EQU LCCA+868 06357000 LCCASMQJ EQU LCCA+864 06358000 LCCAIRT EQU LCCA+736 06359000 LCCAASID EQU LCCA+732 06360000 LCCARV89 EQU LCCA+728 06361000 LCCAPGTA EQU LCCASRBF+2 06362000 LCCASAFN EQU LCCASRBF 06363000 LCCAECSA EQU LCCA+716 06364000 LCCAICR0 EQU LCCA+712 06365000 LCCALWTM EQU LCCA+704 06366000 LCCARV78 EQU LCCA+700 06367000 LCCAPINV EQU LCCA+696 06368000 LCCARV88 EQU LCCA+695 06369000 LCCARV87 EQU LCCALKFG 06370000 LCCARV86 EQU LCCALKFG 06371000 LCCARV85 EQU LCCALKFG 06372000 LCCARV84 EQU LCCALKFG 06373000 LCCALKRD EQU LCCALKFG 06374000 LCCALKAQ EQU LCCALKFG 06375000 LCCALKSA EQU LCCALKFG 06376000 LCCALKDP EQU LCCALKFG 06377000 LCCACRST EQU LCCACREX 06378000 LCCACRDP EQU LCCACREX 06379000 LCCACRLM EQU LCCACREX 06380000 LCCACRIN EQU LCCACREX 06381000 LCCACRRT EQU LCCACREX 06382000 LCCACRLE EQU LCCACREX 06383000 LCCACRRM EQU LCCACREX 06384000 LCCACREF EQU LCCACREX 06385000 LCCAVARY EQU LCCACRFL 06386000 LCCARV73 EQU LCCACRFL 06387000 LCCARV72 EQU LCCACRFL 06388000 LCCARV71 EQU LCCACRFL 06389000 LCCARV70 EQU LCCACRFL 06390000 LCCARV69 EQU LCCACRFL 06391000 LCCACLMS EQU LCCACRFL 06392000 LCCACRTM EQU LCCACRFL 06393000 LCCALCR0 EQU LCCA+688 06394000 LCCACRLC EQU LCCA+684 06395000 LCCARCPU EQU LCCA+680 06396000 LCCADCPU EQU LCCA+676 06397000 LCCASRBJ EQU LCCA+672 06398000 LCCADSSR EQU LCCA+668 06399000 LCCADSSC EQU LCCA+660 06400000 LCCADSS3 EQU LCCA+648 06401000 LCCADSS2 EQU LCCA+636 06402000 LCCADSS1 EQU LCCA+624 06403000 LCCAWTIM EQU LCCA+616 06404000 LCCAITOD EQU LCCA+608 06405000 LCCADTOD EQU LCCA+600 06406000 LCCASTOD EQU LCCA+592 06407000 LCCARIR5 EQU LCCASPSA+44 06408000 LCCARIR4 EQU LCCASPSA+40 06409000 LCCARIR3 EQU LCCASPSA+36 06410000 LCCARIR2 EQU LCCASPSA+32 06411000 LCCARPR5 EQU LCCASPSA+28 06412000 LCCARPR4 EQU LCCASPSA+24 06413000 LCCARPR3 EQU LCCASPSA+20 06414000 LCCARPR2 EQU LCCASPSA+16 06415000 LCCADSR5 EQU LCCASPSA+12 06416000 LCCADSR4 EQU LCCASPSA+8 06417000 LCCADSR3 EQU LCCASPSA+4 06418000 LCCADSR2 EQU LCCASPSA 06419000 LCCARV68 EQU LCCA+543 06420000 LCCAPSMK EQU LCCA+542 06421000 LCCARV67 EQU LCCADSF2 06422000 LCCARV66 EQU LCCADSF2 06423000 LCCARV65 EQU LCCADSF2 06424000 LCCARV64 EQU LCCADSF2 06425000 LCCADSRW EQU LCCADSF2 06426000 LCCADSPL EQU LCCADSF2 06427000 LCCAGSRB EQU LCCADSF2 06428000 LCCASRBM EQU LCCADSF2 06429000 LCCARV61 EQU LCCADSF1 06430000 LCCARV60 EQU LCCADSF1 06431000 LCCARV59 EQU LCCADSF1 06432000 LCCARV58 EQU LCCADSF1 06433000 LCCATIMR EQU LCCADSF1 06434000 LCCADSS EQU LCCADSF1 06435000 LCCAVCPU EQU LCCADSF1 06436000 LCCAACR EQU LCCADSF1 06437000 LCCAASCP EQU LCCA+532 06438000 LCCAESSA EQU LCCA+528 06439000 LCCARV55 EQU LCCASPN4 06440000 LCCARV54 EQU LCCASPN4 06441000 LCCARV53 EQU LCCASPN4 06442000 LCCARV52 EQU LCCASPN4 06443000 LCCARV51 EQU LCCASPN4 06444000 LCCARV50 EQU LCCASPN4 06445000 LCCARV49 EQU LCCASPN4 06446000 LCCARV48 EQU LCCASPN4 06447000 LCCARV47 EQU LCCASPN3 06448000 LCCARV46 EQU LCCASPN3 06449000 LCCARV45 EQU LCCASPN3 06450000 LCCARV44 EQU LCCASPN3 06451000 LCCARV43 EQU LCCASPN3 06452000 LCCARV42 EQU LCCASPN3 06453000 LCCARV41 EQU LCCASPN3 06454000 LCCARV40 EQU LCCASPN3 06455000 LCCARV39 EQU LCCASPN2 06456000 LCCARV38 EQU LCCASPN2 06457000 LCCARV37 EQU LCCASPN2 06458000 LCCARV36 EQU LCCASPN2 06459000 LCCARV35 EQU LCCASPN2 06460000 LCCARV34 EQU LCCASPN2 06461000 LCCARV33 EQU LCCASPN2 06462000 LCCARV32 EQU LCCASPN2 06463000 LCCARV31 EQU LCCASPN1 06464000 LCCARV30 EQU LCCASPN1 06465000 LCCAMFIO EQU LCCASPN1 06466000 LCCARSTR EQU LCCASPN1 06467000 LCCATSPN EQU LCCASPN1 06468000 LCCALOCK EQU LCCASPN1 06469000 LCCASIGP EQU LCCASPN1 06470000 LCCAPTLB EQU LCCASPN1 06471000 LCCARV27 EQU LCCAIHR4 06472000 LCCARV26 EQU LCCAIHR4 06473000 LCCARV25 EQU LCCAIHR4 06474000 LCCARV24 EQU LCCAIHR4 06475000 LCCARV23 EQU LCCAIHR4 06476000 LCCARV22 EQU LCCAIHR4 06477000 LCCARV21 EQU LCCAIHR4 06478000 LCCARV20 EQU LCCAIHR4 06479000 LCCARV19 EQU LCCAIHR3 06480000 LCCARV18 EQU LCCAIHR3 06481000 LCCARV17 EQU LCCAIHR3 06482000 LCCARV16 EQU LCCAIHR3 06483000 LCCARV15 EQU LCCAIHR3 06484000 LCCARV14 EQU LCCAIHR3 06485000 LCCARV13 EQU LCCAIHR3 06486000 LCCARV12 EQU LCCAIHR3 06487000 LCCARV11 EQU LCCAIHR2 06488000 LCCARV10 EQU LCCAIHR2 06489000 LCCARV09 EQU LCCAIHR2 06490000 LCCARV08 EQU LCCAIHR2 06491000 LCCARV07 EQU LCCAIHR2 06492000 LCCARV06 EQU LCCAIHR2 06493000 LCCARV05 EQU LCCAIHR2 06494000 LCCARV04 EQU LCCAIHR2 06495000 LCCARV03 EQU LCCAIHR1 06496000 LCCARV02 EQU LCCAIHR1 06497000 LCCARV01 EQU LCCAIHR1 06498000 LCCAPPIE EQU LCCAIHR1 06499000 LCCAPSG1 EQU LCCAIHR1 06500000 LCCAPDAT EQU LCCAIHR1 06501000 LCCAXRC2 EQU LCCAIHR1 06502000 LCCAXRC1 EQU LCCAIHR1 06503000 LCCAIOPS EQU LCCA+512 06504000 LCCAGPGR EQU LCCA+448 06505000 LCCAR133 EQU LCCA+444 06506000 LCCAR132 EQU LCCA+440 06507000 LCCAR131 EQU LCCA+436 06508000 LCCAR130 EQU LCCA+432 06509000 LCCAR129 EQU LCCA+428 06510000 LCCAR128 EQU LCCA+424 06511000 LCCAR127 EQU LCCA+420 06512000 LCCAR126 EQU LCCA+416 06513000 LCCARSGR EQU LCCA+352 06514000 LCCAXGR3 EQU LCCA+288 06515000 LCCAXGR2 EQU LCCA+224 06516000 LCCAXGR1 EQU LCCA+160 06517000 LCCACR0 EQU LCCA+156 06518000 LCCAMCR1 EQU LCCA+152 06519000 LCCAPVAD EQU LCCA+148 06520000 LCCAPINT EQU LCCA+144 06521000 LCCAPPSW EQU LCCA+136 06522000 LCCAPGR2 EQU LCCA+72 06523000 LCCAPGR1 EQU LCCA+8 06524000 LCCARV77 EQU LCCA+6 06525000 LCCACPUA EQU LCCA+4 06526000 LCCALCCA EQU LCCA 06527000 IOSEND EQU IOSB+108 06528000 IOSSKR EQU IOSEEKA+7 06529000 IOSSKH2 EQU IOSSKHH+1 06530000 IOSSKH1 EQU IOSSKHH 06531000 IOSSKCC EQU IOSCCHH 06532000 IOSSKBB EQU IOSEEKA+1 06533000 IOSSKM EQU IOSEEKA 06534000 IOSEEK EQU IOSB+92 06535000 IOSMDM EQU IOSB+91 06536000 IOSMDB EQU IOSB+90 06537000 IOSCKEY7 EQU IOSCKEY 06538000 IOSCKEY6 EQU IOSCKEY 06539000 IOSCKEY5 EQU IOSCKEY 06540000 IOSCKEY4 EQU IOSCKEY 06541000 @NM00015 EQU IOSCKEY 06542000 IOSFMSK EQU IOSB+88 06543000 IOSCUDEV EQU IOSPATH+1 06544000 @NM00014 EQU IOSCHN 06545000 IOSPATH3 EQU IOSCHN 06546000 IOSPATH2 EQU IOSCHN 06547000 IOSEXP EQU IOSCHN 06548000 IOSGDP EQU IOSCHN 06549000 IOSAFF EQU IOSB+85 06550000 IOSRSS1B EQU IOSB+84 06551000 IOSDSID EQU IOSB+80 06552000 IOSVST EQU IOSB+76 06553000 IOSRST EQU IOSB+72 06554000 IOSDIE EQU IOSB+68 06555000 IOSABN EQU IOSB+64 06556000 IOSNRM EQU IOSB+60 06557000 IOSPCI EQU IOSB+56 06558000 IOSERP EQU IOSB+52 06559000 IOSPCHN EQU IOSB+48 06560000 IOSSNS EQU IOSB+42 06561000 IOSAPMSK EQU IOSB+40 06562000 IOSRES4A EQU IOSB+36 06563000 IOSUSE EQU IOSB+32 06564000 IOSSRB EQU IOSB+28 06565000 IOSCSWRC EQU IOSCSW+5 06566000 IOSTSB EQU IOSTATUS+1 06567000 IOSTSA EQU IOSTATUS 06568000 IOSCSWCA EQU IOSCSW 06569000 IOSCC EQU @NM00013 06570000 IOSUCB EQU IOSB+16 06571000 IOSOPT2X EQU IOSOPT2 06572000 IOSIGP EQU IOSOPT2 06573000 IOSHTP EQU IOSOPT2 06574000 IOSRELSE EQU IOSOPT 06575000 IOSAPR EQU IOSOPT 06576000 IOSTSLL EQU IOSOPT 06577000 IOSNERP EQU IOSOPT 06578000 IOSPSLL EQU IOSOPT 06579000 IOSQISCE EQU IOSOPT 06580000 IOSDEP EQU IOSOPT 06581000 IOSBYP EQU IOSOPT 06582000 IOSCOD EQU IOSB+13 06583000 IOSPKY7 EQU IOSPKEY 06584000 IOSPGDPX EQU IOSPKEY 06585000 IOSIDR EQU IOSPKEY 06586000 IOSLCL EQU IOSPKEY 06587000 @NM00012 EQU IOSPKEY 06588000 IOSPGAD EQU IOSB+8 06589000 IOSPRLVL EQU IOSB+5 06590000 IOSDVRID EQU IOSB+4 06591000 IOSPROC EQU IOSB+3 06592000 IOSFLC7 EQU IOSFLC 06593000 IOSCTCNR EQU IOSFLC 06594000 IOSRWAIT EQU IOSFLC 06595000 IOSTP EQU IOSFLC 06596000 IOSCC3WE EQU IOSFLC 06597000 IOSVERIF EQU IOSDVALT 06598000 IOSDVMNT EQU IOSFLC 06599000 IOSLOG EQU IOSFLB 06600000 IOSBDCST EQU IOSFLB 06601000 IOSMSG EQU IOSFLB 06602000 IOSFLB4 EQU IOSFLB 06603000 IOSFLB3 EQU IOSFLB 06604000 IOSNOTRS EQU IOSFLB 06605000 IOSSDR EQU IOSFLB 06606000 IOSDIESE EQU IOSFLB 06607000 IOSIOSB EQU IOSFLA 06608000 IOSDOM EQU IOSFLA 06609000 IOSEX EQU IOSFLA 06610000 IOSSMDB EQU IOSFLA 06611000 IOSSMDA EQU IOSFLA 06612000 IOSERR EQU IOSFLA 06613000 IOSCCHN EQU IOSACHN 06614000 IOSDCHN EQU IOSACHN 06615000 @NM00011 EQU FRRSFLGS+1 06616000 @NM00010 EQU FRRSFLG1 06617000 FRRSNEST EQU FRRSFLG1 06618000 FRRSRCUR EQU FRRSFLG1 06619000 FRRSENTS EQU FRRS+84 06620000 FRRSRTMW EQU FRRS+16 06621000 CVTLEVL EQU CVTRELNO+2 06622000 CVTNUMB EQU CVTRELNO 06623000 CVTMDL EQU CVTFIX+250 06624000 @NM00009 EQU CVTFIX+248 06625000 @NM00008 EQU CVTFIX 06626000 CVTRV482 EQU CVTXTNT2+128 06627000 CVTRV481 EQU CVTXTNT2+124 06628000 CVTRV480 EQU CVTXTNT2+120 06629000 CVTRV479 EQU CVTXTNT2+118 06630000 CVTRV478 EQU CVTXTNT2+117 06631000 CVTRV477 EQU CVTXTNT2+116 06632000 CVTRV476 EQU CVTXTNT2+115 06633000 CVTRV475 EQU CVTXTNT2+114 06634000 CVTRV474 EQU CVTRV466 06635000 CVTRV473 EQU CVTRV466 06636000 CVTRV472 EQU CVTRV466 06637000 CVTRV471 EQU CVTRV466 06638000 CVTRV470 EQU CVTRV466 06639000 CVTRV469 EQU CVTRV466 06640000 CVTRV468 EQU CVTRV466 06641000 CVTRV467 EQU CVTRV466 06642000 CVTRV465 EQU CVTRV457 06643000 CVTRV464 EQU CVTRV457 06644000 CVTRV463 EQU CVTRV457 06645000 CVTRV462 EQU CVTRV457 06646000 CVTRV461 EQU CVTRV457 06647000 CVTRV460 EQU CVTRV457 06648000 CVTRV459 EQU CVTRV457 06649000 CVTRV458 EQU CVTRV457 06650000 CVTRV456 EQU CVTXTNT2+108 06651000 CVTRV455 EQU CVTXTNT2+104 06652000 CVTRV454 EQU CVTXTNT2+100 06653000 CVTRV453 EQU CVTXTNT2+96 06654000 CVTRV452 EQU CVTXTNT2+94 06655000 CVTRV451 EQU CVTXTNT2+92 06656000 CVTRV450 EQU CVTXTNT2+90 06657000 CVTRV449 EQU CVTXTNT2+88 06658000 CVTRV448 EQU CVTXTNT2+87 06659000 CVTRV447 EQU CVTXTNT2+86 06660000 CVTRV446 EQU CVTRV438 06661000 CVTRV445 EQU CVTRV438 06662000 CVTRV444 EQU CVTRV438 06663000 CVTRV443 EQU CVTRV438 06664000 CVTRV442 EQU CVTRV438 06665000 CVTRV441 EQU CVTRV438 06666000 CVTRV440 EQU CVTRV438 06667000 CVTRV439 EQU CVTRV438 06668000 CVTRV437 EQU CVTRV429 06669000 CVTRV436 EQU CVTRV429 06670000 CVTRV435 EQU CVTRV429 06671000 CVTRV434 EQU CVTRV429 06672000 CVTRV433 EQU CVTRV429 06673000 CVTRV432 EQU CVTRV429 06674000 CVTRV431 EQU CVTRV429 06675000 CVTRV430 EQU CVTRV429 06676000 CVTRV428 EQU CVTXTNT2+80 06677000 CVTRV427 EQU CVTXTNT2+76 06678000 CVTRV426 EQU CVTXTNT2+72 06679000 CVTRV425 EQU CVTXTNT2+68 06680000 CVTATACT EQU CVTATCVT 06681000 CVTRV423 EQU CVTXTNT2+62 06682000 CVTRV422 EQU CVTXTNT2+60 06683000 CVTRV421 EQU CVTXTNT2+58 06684000 CVTRV420 EQU CVTXTNT2+56 06685000 CVTRV419 EQU CVTXTNT2+55 06686000 CVTRV418 EQU CVTXTNT2+54 06687000 CVTRV417 EQU CVTRV409 06688000 CVTRV416 EQU CVTRV409 06689000 CVTRV415 EQU CVTRV409 06690000 CVTRV414 EQU CVTRV409 06691000 CVTRV413 EQU CVTRV409 06692000 CVTRV412 EQU CVTRV409 06693000 CVTRV411 EQU CVTRV409 06694000 CVTRV410 EQU CVTRV409 06695000 CVTRV408 EQU CVTRV400 06696000 CVTRV407 EQU CVTRV400 06697000 CVTRV406 EQU CVTRV400 06698000 CVTRV405 EQU CVTRV400 06699000 CVTRV404 EQU CVTRV400 06700000 CVTRV403 EQU CVTRV400 06701000 CVTRV402 EQU CVTRV400 06702000 CVTRV401 EQU CVTRV400 06703000 CVTICB EQU CVTXTNT2+48 06704000 CVTSKTA EQU CVTXTNT2+44 06705000 CVTCCVT EQU CVTXTNT2+40 06706000 CVTRSV98 EQU CVTXTNT2+36 06707000 CVTRSV97 EQU CVTXTNT2+34 06708000 CVTRSV96 EQU CVTXTNT2+32 06709000 CVTOLTEP EQU CVTXTNT2+28 06710000 CVTQIDA EQU CVTQID+1 06711000 CVTRSV95 EQU CVTQID 06712000 CVTRSV94 EQU CVTXTNT2+20 06713000 CVTRSV93 EQU CVTXTNT2+16 06714000 CVTRSV92 EQU CVTXTNT2+12 06715000 CVTDEBVR EQU CVTXTNT2+8 06716000 CVTRSV91 EQU CVTXTNT2+6 06717000 CVTRSV9H EQU CVTFLGBT 06718000 CVTRSV9G EQU CVTFLGBT 06719000 CVTRSV9F EQU CVTFLGBT 06720000 CVTRSV9E EQU CVTFLGBT 06721000 CVTRSV9D EQU CVTFLGBT 06722000 CVTRSV9C EQU CVTFLGBT 06723000 CVTVME EQU CVTFLGBT 06724000 CVTNPE EQU CVTFLGBT 06725000 CVTNUCLS EQU CVTXTNT2+4 06726000 CVTDSSVA EQU CVTDSSV+1 06727000 CVTRSV89 EQU CVTDSSV 06728000 CVTRSV88 EQU CVTXTNT1+8 06729000 CVTRSV87 EQU CVTXTNT1+4 06730000 CVTFACHN EQU CVTXTNT1 06731000 CVTRV488 EQU CVTMAP+412 06732000 CVTRV487 EQU CVTMAP+408 06733000 CVTRV486 EQU CVTMAP+404 06734000 CVTRV485 EQU CVTMAP+400 06735000 CVTACTAP EQU CVTMAP+396 06736000 CVTAUTH EQU CVTMAP+392 06737000 CVTATMCA EQU CVTATMCT+1 06738000 CVTATMST EQU CVTATMCT 06739000 CVTRSV61 EQU CVTMAP+384 06740000 CVTVOLT1 EQU CVTVOLM1+1 06741000 CVTVOLI1 EQU CVTVOLF1 06742000 CVTSTOA EQU CVTMAP+376 06743000 CVTRSV58 EQU CVTMAP+374 06744000 CVTRSV57 EQU CVTMAP+372 06745000 CVTDDCE EQU CVTMAP+368 06746000 CVTPNWFR EQU CVTMAP+364 06747000 CVTSMF EQU CVTMAP+360 06748000 CVTSULK EQU CVTMAP+358 06749000 CVTSLKO EQU CVTSYSK 06750000 CVTSLKP EQU CVTSYSK 06751000 CVTSLKQ EQU CVTSYSK 06752000 CVTSLKR EQU CVTSYSK 06753000 CVTRSV56 EQU CVTSYSK 06754000 CVTRSV55 EQU CVTSYSK 06755000 CVTRSV54 EQU CVTSYSK 06756000 CVTRSV53 EQU CVTSYSK 06757000 CVTRSV52 EQU CVTA1F1 06758000 CVTRSV51 EQU CVTA1F1 06759000 CVTRSV50 EQU CVTA1F1 06760000 CVTRSV49 EQU CVTA1F1 06761000 CVTRSV48 EQU CVTA1F1 06762000 CVTRSV47 EQU CVTA1F1 06763000 CVTSRSW EQU CVTA1F1 06764000 CVTPFSW EQU CVTA1F1 06765000 CVTPCVT EQU CVTMAP+352 06766000 CVTRSV46 EQU CVTMAP+344 06767000 CVTRSV45 EQU CVTMAP+340 06768000 CVTRSV44 EQU CVTMAP+338 06769000 CVTRSV43 EQU CVTMAP+336 06770000 CVTHJESA EQU CVTHJES+1 06771000 CVTRSV42 EQU CVTHJES 06772000 CVTEXT2A EQU CVTEXT2+1 06773000 CVTRSV41 EQU CVTEXT2 06774000 CVTAPFA EQU CVTAPF+1 06775000 CVTRSV40 EQU CVTAPF 06776000 CVTRV518 EQU CVTINTLA 06777000 CVTRV517 EQU CVTERPV 06778000 CVTEORM EQU CVTMAP+312 06779000 CVTMCHPR EQU CVTMAP+308 06780000 CVTJEPS EQU CVTMAP+300 06781000 CVTJESCT EQU CVTMAP+296 06782000 CVTMODE EQU CVTMAP+292 06783000 CVTPTRV EQU CVTMAP+288 06784000 CVTREAL EQU CVTMAP+284 06785000 CVTRSV39 EQU CVTMAP+280 06786000 CVTRSV38 EQU CVTMAP+276 06787000 CVTDMSRA EQU CVTDMSR+1 06788000 CVTRV634 EQU CVTDMSRF 06789000 CVTRV633 EQU CVTDMSRF 06790000 CVTRV632 EQU CVTDMSRF 06791000 CVTRV631 EQU CVTDMSRF 06792000 CVTRV630 EQU CVTDMSRF 06793000 CVTRV629 EQU CVTDMSRF 06794000 CVTUDUMP EQU CVTDMSRF 06795000 CVTSDUMP EQU CVTDMSRF 06796000 CVTQMSGA EQU CVTQMSG+1 06797000 CVTRSV36 EQU CVTQMSG 06798000 CVTAMFF EQU CVTMAP+264 06799000 CVTPURGA EQU CVTPURG+1 06800000 CVTRSV35 EQU CVTPURG 06801000 CVTCBSP EQU CVTMAP+256 06802000 CVTATERA EQU CVTATER+1 06803000 CVTSYST EQU CVTATER 06804000 CVTVOLT2 EQU CVTTAT 06805000 CVTVOLI2 EQU CVTVOLF2 06806000 CVTAQAVB EQU CVTAQAVT+1 06807000 CVTRSV34 EQU CVTTCMFG 06808000 CVTRSV33 EQU CVTTCMFG 06809000 CVTRSV32 EQU CVTTCMFG 06810000 CVTRSV31 EQU CVTTCMFG 06811000 CVTRSV30 EQU CVTTCMFG 06812000 CVTRSV29 EQU CVTTCMFG 06813000 CVTLDEV EQU CVTTCMFG 06814000 CVTTCRDY EQU CVTTCMFG 06815000 CVTGTFA EQU CVTGTF+1 06816000 CVTRSV27 EQU CVTGTFST 06817000 CVTRNIO EQU CVTGTFST 06818000 CVTUSR EQU CVTGTFST 06819000 CVTRV318 EQU CVTFORM 06820000 CVTRV317 EQU CVTTMODE 06821000 CVTRV316 EQU CVTSTATE 06822000 CVTRV315 EQU CVTGTFS 06823000 CVTGTFAV EQU CVTGTFS 06824000 CVT0SCR1 EQU CVTMAP+232 06825000 CVTRV515 EQU CVTMAP+228 06826000 CVTPATCH EQU CVTMAP+220 06827000 CVTTSCE EQU CVTMAP+216 06828000 CVTLNKSC EQU CVTMAP+214 06829000 CVTQABST EQU CVTMAP+212 06830000 CVTMDLDS EQU CVTMAP+208 06831000 CVTUSER EQU CVTMAP+204 06832000 CVTABEND EQU CVTMAP+200 06833000 CVTSMCA EQU CVTMAP+196 06834000 CVTRSV18 EQU CVTMAP+192 06835000 CVTQLPAQ EQU CVTMAP+188 06836000 CVTQCDSR EQU CVTMAP+184 06837000 CVTRSV17 EQU CVTOPTB 06838000 CVTRSV16 EQU CVTOPTB 06839000 CVTFP EQU CVTOPTB 06840000 CVTAPTHR EQU CVTOPTB 06841000 CVTNLOG EQU CVTOPTB 06842000 CVTTOD EQU CVTOPTB 06843000 CVTCTIMS EQU CVTOPTB 06844000 CVTPROT EQU CVTOPTB 06845000 CVTXPFP EQU CVTOPTA 06846000 CVTASCII EQU CVTOPTA 06847000 CVTRSV13 EQU CVTOPTA 06848000 CVTRSV12 EQU CVTOPTA 06849000 CVTDDR EQU CVTOPTA 06850000 CVTAPR EQU CVTOPTA 06851000 CVTCCH EQU CVTOPTA 06852000 CVTSNCTR EQU CVTMAP+180 06853000 CVTQMWR EQU CVTMAP+176 06854000 CVTQOCR EQU CVTMAP+172 06855000 CVT1EF00 EQU CVTMAP+168 06856000 CVTMZ00 EQU CVTMAP+164 06857000 CVTSV76Q EQU CVTSV76C 06858000 CVTRSV11 EQU CVTMAP+156 06859000 CVT0PT01 EQU CVTMAP+152 06860000 CVTMSER EQU CVTMAP+148 06861000 CVTRV516 EQU CVTIERLC 06862000 CVTILCH EQU CVTMAP+140 06863000 CVT0DS EQU CVTMAP+136 06864000 CVTFBOSV EQU CVTMAP+132 06865000 CVTNUCB EQU CVTMAP+128 06866000 CVTIXAVL EQU CVTMAP+124 06867000 CVTSV76M EQU CVTIOQET 06868000 CVTDCBA EQU CVTMAP+117 06869000 CVTMVS2 EQU CVTDCB 06870000 CVT6DAT EQU CVTDCB 06871000 CVT4MPS EQU CVTDCB 06872000 CVTRSV09 EQU CVTDCB 06873000 CVT4MS1 EQU CVTDCB 06874000 CVT2SPS EQU CVTDCB 06875000 CVT1SSS EQU CVTDCB 06876000 CVTRSV08 EQU CVTDCB 06877000 CVTSTB EQU CVTMAP+112 06878000 CVTQTD00 EQU CVTMAP+108 06879000 CVTQTE00 EQU CVTMAP+104 06880000 CVTCUCB EQU CVTMAP+100 06881000 CVTSJQ EQU CVTMAP+96 06882000 CVTPBLDL EQU CVTMAP+92 06883000 CVTTPC EQU CVTMAP+88 06884000 CVTSVDCB EQU CVTMAP+84 06885000 CVTEXIT EQU CVTMAP+80 06886000 CVT0FN00 EQU CVTMAP+76 06887000 CVTDARA EQU CVTDAR+1 06888000 CVTRSV07 EQU CVTFLGS1 06889000 CVTRSV06 EQU CVTFLGS1 06890000 CVTRSV05 EQU CVTFLGS1 06891000 CVTRSV04 EQU CVTFLGS1 06892000 CVTRSV03 EQU CVTFLGS1 06893000 CVTRSV02 EQU CVTFLGS1 06894000 CVTRSV01 EQU CVTFLGS1 06895000 CVTDMPLK EQU CVTFLGS1 06896000 CVTXITP EQU CVTMAP+68 06897000 CVTZDTAB EQU CVTMAP+64 06898000 CVTMSLT EQU CVTMAP+60 06899000 CVTDATE EQU CVTMAP+56 06900000 CVTBTERM EQU CVTMAP+52 06901000 CVTSYSAD EQU CVTMAP+48 06902000 CVTXTLER EQU CVTMAP+44 06903000 CVTILK1 EQU CVTMAP+36 06904000 CVTPRLTV EQU CVTMAP+32 06905000 CVTPCNVT EQU CVTMAP+28 06906000 CVT0VL00 EQU CVTMAP+24 06907000 CVTXAPG EQU CVTMAP+20 06908000 CVTBUF EQU CVTMAP+16 06909000 CVTJOB EQU CVTMAP+12 06910000 CVTLINK EQU CVTMAP+8 06911000 CVT0EF00 EQU CVTMAP+4 06912000 CVTTCBP EQU CVTMAP 06913000 CVT EQU CVTMAP 06914000 @NM00007 EQU CSD+160 06915000 CSDMASK EQU CSD+128 06916000 CSDUCNT EQU CSD+124 06917000 CSDTCNT EQU CSD+120 06918000 CSDGDTOD EQU CSD+116 06919000 CSDGDINT EQU CSD+112 06920000 CSDGDCC EQU CSD+108 06921000 CSDDDRCT EQU CSD+106 06922000 CSDRV044 EQU CSD+104 06923000 CSDMAFF EQU CSD+24 06924000 CSDRV038 EQU CSDFLAGS 06925000 CSDRV037 EQU CSDFLAGS 06926000 CSDRV036 EQU CSDFLAGS 06927000 CSDRV035 EQU CSDFLAGS 06928000 CSDRV034 EQU CSDFLAGS 06929000 CSDRV033 EQU CSDFLAGS 06930000 CSDRV032 EQU CSDFLAGS 06931000 CSDMP EQU CSDFLAGS 06932000 CSDACR EQU CSD+22 06933000 CSDMF1CP EQU CSD+20 06934000 CSDRV043 EQU CSD+16 06935000 CSDRV030 EQU CSDSCFL4 06936000 CSDRV029 EQU CSDSCFL4 06937000 CSDRV028 EQU CSDSCFL4 06938000 CSDRV027 EQU CSDSCFL4 06939000 CSDRV026 EQU CSDSCFL4 06940000 CSDRV025 EQU CSDSCFL4 06941000 CSDRV024 EQU CSDSCFL4 06942000 CSDRV023 EQU CSDSCFL4 06943000 CSDRV022 EQU CSDSCFL3 06944000 CSDRV021 EQU CSDSCFL3 06945000 CSDRV020 EQU CSDSCFL3 06946000 CSDRV019 EQU CSDSCFL3 06947000 CSDRV018 EQU CSDSCFL3 06948000 CSDRV017 EQU CSDSCFL3 06949000 CSDRV016 EQU CSDSCFL3 06950000 CSDRV015 EQU CSDSCFL3 06951000 CSDRV014 EQU CSDSCFL2 06952000 CSDRV013 EQU CSDSCFL2 06953000 CSDRV012 EQU CSDSCFL2 06954000 CSDRV011 EQU CSDSCFL2 06955000 CSDRV010 EQU CSDSCFL2 06956000 CSDRV009 EQU CSDSCFL2 06957000 CSDRV008 EQU CSDSCFL2 06958000 CSDRV007 EQU CSDSCFL2 06959000 CSDRV006 EQU CSDSCFL1 06960000 CSDRV005 EQU CSDSCFL1 06961000 CSDRV004 EQU CSDSCFL1 06962000 CSDRV003 EQU CSDSCFL1 06963000 CSDRV002 EQU CSDSCFL1 06964000 CSDRV001 EQU CSDSCFL1 06965000 CSDSYSND EQU CSDSCFL1 06966000 CSDRV042 EQU CSDSCFL1 06967000 CSDSAFF EQU CSDCPUAL 06968000 CSDCHAD EQU CSD+6 06969000 CSDCPUJS EQU CSD+4 06970000 CSDCSD EQU CSD 06971000 CDACCHRS EQU CDA+17 06972000 CDACCHIA EQU CDA+12 06973000 CDACCH8A EQU CDA+8 06974000 CDACCH7A EQU CDA+4 06975000 CDACCH6A EQU CDA 06976000 CRCAEND EQU CRCA+80 06977000 CRCARSV3 EQU CRCA+72 06978000 CRCAITIM EQU CRCA+64 06979000 CRCACTIM EQU CRCA+56 06980000 CRCARSV2 EQU CRCA+54 06981000 CRCACHAN EQU CRCA+52 06982000 CRCARSV1 EQU CRCA+44 06983000 CRCACAT EQU CRCA+40 06984000 CRCACINT EQU CRCA+32 06985000 CRCACRH3 EQU CRCA+28 06986000 CRCACRH2 EQU CRCA+24 06987000 CRCACRH1 EQU CRCA+20 06988000 CRCACRHT EQU CRCA+16 06989000 @NM00006 EQU CRCAMCW+4 06990000 CRCAMCWC EQU CRCAMCWF 06991000 CRCAMCWM EQU CRCAMCWF 06992000 CRCAMCWI EQU CRCAMCWF 06993000 @NM00005 EQU CRCAMCWF 06994000 @NM00004 EQU CRCAMCW+1 06995000 CRCAMCWY EQU CRCAMCWZ 06996000 @NM00003 EQU CRCAMCWZ 06997000 CRCAFLG4 EQU CRCAFLGS+3 06998000 CRCAFLG3 EQU CRCAFLGS+2 06999000 CRCAFLG2 EQU CRCAFLGS+1 07000000 @NM00002 EQU CRCAFLG1 07001000 CRCAFTIM EQU CRCAFLG1 07002000 CRCAHIO EQU CRCAFLG1 07003000 CRCACCH EQU CRCAFLG1 07004000 CRCAID EQU CRCA 07005000 CATEND EQU CAT+8 07006000 CATCHID EQU CAT+4 07007000 CATSIOCT EQU CAT+2 07008000 CATFLARS EQU CATFLA 07009000 CATSOL EQU CATFLA 07010000 CATMCRST EQU CATFLA 07011000 CATBSY EQU CATFLA 07012000 CATDSABL EQU CATFLG 07013000 CATFLG6 EQU CATFLG 07014000 CATFLG5 EQU CATFLG 07015000 CATNCPU EQU CATFLG 07016000 CATNGEN EQU CATFLG 07017000 CATRES1 EQU CATFLG 07018000 ASVTEND EQU ASVT+528 07019000 ASVTAVAL EQU ASVTENTY 07020000 ASVTAVAI EQU ASVTFRST 07021000 ASVTRS00 EQU ASVT+520 07022000 ASVTMAXU EQU ASVT+516 07023000 ASVTASVT EQU ASVT+512 07024000 ASVTBEGN EQU ASVT+512 07025000 @NM00001 EQU ASVT 07026000 ASCBEND EQU ASCB+208 07027000 ASCBSRBT EQU ASCB+200 07028000 ASCBSWTL EQU ASCB+196 07029000 ASCBRS14 EQU ASCB+195 07030000 ASCBSMCT EQU ASCB+194 07031000 ASCBRS12 EQU ASCB+192 07032000 ASCBPCTT EQU ASCB+188 07033000 ASCBVGTT EQU ASCB+184 07034000 ASCBRV43 EQU ASCBSRQ4 07035000 ASCBRV42 EQU ASCBSRQ4 07036000 ASCBRV41 EQU ASCBSRQ4 07037000 ASCBRV40 EQU ASCBSRQ4 07038000 ASCBRV39 EQU ASCBSRQ4 07039000 ASCBRV38 EQU ASCBSRQ4 07040000 ASCBRV37 EQU ASCBSRQ4 07041000 ASCBRV36 EQU ASCBSRQ4 07042000 ASCBRV35 EQU ASCBSRQ3 07043000 ASCBRV34 EQU ASCBSRQ3 07044000 ASCBRV33 EQU ASCBSRQ3 07045000 ASCBRV32 EQU ASCBSRQ3 07046000 ASCBRV31 EQU ASCBSRQ3 07047000 ASCBRV30 EQU ASCBSRQ3 07048000 ASCBRV29 EQU ASCBSRQ3 07049000 ASCBRV28 EQU ASCBSRQ3 07050000 ASCBRV27 EQU ASCBSRQ2 07051000 ASCBRV26 EQU ASCBSRQ2 07052000 ASCBRV25 EQU ASCBSRQ2 07053000 ASCBRV24 EQU ASCBSRQ2 07054000 ASCBRV23 EQU ASCBSRQ2 07055000 ASCBRV22 EQU ASCBSRQ2 07056000 ASCBRV21 EQU ASCBSRQ2 07057000 ASCBRV20 EQU ASCBSRQ2 07058000 ASCBRV19 EQU ASCBSRQ1 07059000 ASCBRV18 EQU ASCBSRQ1 07060000 ASCBRV17 EQU ASCBSRQ1 07061000 ASCBRV16 EQU ASCBSRQ1 07062000 ASCBRV15 EQU ASCBSRQ1 07063000 ASCBRV14 EQU ASCBSRQ1 07064000 ASCBRV13 EQU ASCBSRQ1 07065000 ASCBSTA EQU ASCBSRQ1 07066000 ASCBMCC EQU ASCB+168 07067000 ASCBRTWA EQU ASCB+164 07068000 ASCBIQEA EQU ASCB+160 07069000 ASCBXMPQ EQU ASCB+156 07070000 ASCBRS01 EQU ASCB+154 07071000 ASCBFMCT EQU ASCB+152 07072000 ASCBOUXB EQU ASCB+148 07073000 ASCBOUCB EQU ASCB+144 07074000 ASCBMECB EQU ASCB+140 07075000 ASCBQECB EQU ASCB+136 07076000 ASCBLSQH EQU ASCBLKGP+4 07077000 ASCBLOCK EQU ASCBLKGP 07078000 ASCBTCBS EQU ASCB+124 07079000 ASCBNVSC EQU ASCB+122 07080000 ASCBVSC EQU ASCB+120 07081000 ASCBSRBS EQU ASCB+118 07082000 ASCBSSRB EQU ASCB+116 07083000 ASCBRV06 EQU ASCBFLG2 07084000 ASCBRV05 EQU ASCBFLG2 07085000 ASCBRV04 EQU ASCBFLG2 07086000 ASCBSNQS EQU ASCBFLG2 07087000 ASCBS2S EQU ASCBFLG2 07088000 ASCBCEXT EQU ASCBFLG2 07089000 ASCBPXMT EQU ASCBFLG2 07090000 ASCBXMPT EQU ASCBFLG2 07091000 ASCBRF07 EQU ASCBDSP1 07092000 ASCBRF06 EQU ASCBDSP1 07093000 ASCBRF05 EQU ASCBDSP1 07094000 ASCBRF04 EQU ASCBDSP1 07095000 ASCBRF03 EQU ASCBDSP1 07096000 ASCBRF02 EQU ASCBDSP1 07097000 ASCBFAIL EQU ASCBDSP1 07098000 ASCBNOQ EQU ASCBDSP1 07099000 ASCBSWCT EQU ASCB+112 07100000 ASCBASXB EQU ASCB+108 07101000 ASCBTMCH EQU ASCB+104 07102000 ASCBNSWP EQU ASCBFLG1 07103000 ASCBTYP1 EQU ASCBFLG1 07104000 ASCBSTND EQU ASCBFLG1 07105000 ASCBABNT EQU ASCBFLG1 07106000 ASCBTERM EQU ASCBFLG1 07107000 ASCBS3S EQU ASCBFLG1 07108000 ASCBCMSH EQU ASCBFLG1 07109000 ASCBTOFF EQU ASCBFLG1 07110000 ASCBRF01 EQU ASCBRCTF 07111000 ASCBTMLW EQU ASCBRCTF 07112000 ASCBOUT EQU ASCBRCTF 07113000 ASCBWAIT EQU ASCBRCTF 07114000 ASCBRV08 EQU ASCBRCTF 07115000 ASCBFQU EQU ASCBRCTF 07116000 ASCBFRS EQU ASCBRCTF 07117000 ASCBTMNO EQU ASCBRCTF 07118000 ASCBAFFN EQU ASCBFW1 07119000 ASCBDUMP EQU ASCB+96 07120000 ASCBRV44 EQU ASCB+92 07121000 ASCBUBET EQU ASCB+88 07122000 ASCBECB EQU ASCB+84 07123000 ASCBJSTL EQU ASCB+80 07124000 ASCBEWST EQU ASCB+72 07125000 ASCBEJST EQU ASCB+64 07126000 ASCBTSB EQU ASCB+60 07127000 ASCBCSCB EQU ASCB+56 07128000 ASCBRSMA EQU ASCBRSM+1 07129000 ASCBRV54 EQU ASCBRSMF 07130000 ASCBRV53 EQU ASCBRSMF 07131000 ASCBRV52 EQU ASCBRSMF 07132000 ASCBRV51 EQU ASCBRSMF 07133000 ASCBVEQR EQU ASCBRSMF 07134000 ASCBN2LP EQU ASCBRSMF 07135000 ASCB1LPU EQU ASCBRSMF 07136000 ASCB2LPU EQU ASCBRSMF 07137000 ASCBLDA EQU ASCB+48 07138000 ASCBSTOR EQU ASCB+44 07139000 ASCBDP EQU ASCB+43 07140000 ASCBRV07 EQU ASCB+42 07141000 ASCBIOSM EQU ASCB+40 07142000 ASCBSEQN EQU ASCB+38 07143000 ASCBASID EQU ASCB+36 07144000 ASCBCPUS EQU ASCB+32 07145000 ASCBSPL EQU ASCB+28 07146000 ASCBIOSP EQU ASCB+24 07147000 ASCBSYNC EQU ASCBSUPC+4 07148000 ASCBSVRB EQU ASCBSUPC 07149000 ASCBCMSF EQU ASCB+12 07150000 ASCBBWDP EQU ASCB+8 07151000 ASCBFWDP EQU ASCB+4 07152000 ASCBASCB EQU ASCB 07153000 ASCBEGIN EQU ASCB 07154000 @NM00079 EQU PSA+3668 07155000 PSASTAK EQU PSA+3072 07156000 @NM00078 EQU PSA+1048 07157000 PSAUSEND EQU PSA+1048 07158000 PSARV062 EQU PSA+1044 07159000 PSACDAL EQU PSA+1040 07160000 PSAWTCOD EQU PSA+1036 07161000 PSAATCVT EQU PSA+1032 07162000 PSAPCPSW EQU PSA+1024 07163000 PSAPIR2 EQU PSA+1020 07164000 PSARV059 EQU PSA+1018 07165000 PSASVC13 EQU PSA+1016 07166000 PSASFACC EQU PSA+1008 07167000 PSASTOP EQU PSA+992 07168000 PSASTART EQU PSA+976 07169000 PSARSPSW EQU PSA+968 07170000 PSASRPSW EQU PSA+960 07171000 PSARV045 EQU PSA+892 07172000 PSARV044 EQU PSA+888 07173000 PSARV043 EQU PSA+884 07174000 PSARV042 EQU PSA+880 07175000 PSARV041 EQU PSA+876 07176000 PSARV040 EQU PSA+872 07177000 PSARV025 EQU PSA+868 07178000 PSADSSED EQU PSA+868 07179000 PSADSSPR EQU PSA+864 07180000 PSADSSFW EQU PSA+860 07181000 PSADSS14 EQU PSA+856 07182000 PSADSSPP EQU PSA+848 07183000 PSADSSRP EQU PSA+840 07184000 PSADSS05 EQU PSADSSF4 07185000 PSADSS10 EQU PSADSSF4 07186000 PSADSSVE EQU PSADSSF4 07187000 PSADSSDE EQU PSADSSF4 07188000 PSADSSC0 EQU PSADSSF4 07189000 PSADSSIE EQU PSADSSF4 07190000 PSADSS12 EQU PSADSSF4 07191000 PSADSSRC EQU PSADSSF4 07192000 PSARV057 EQU PSADSSF3 07193000 PSARV056 EQU PSADSSF3 07194000 PSARV055 EQU PSADSSF3 07195000 PSADSSMC EQU PSADSSF3 07196000 PSADSSRW EQU PSADSSF3 07197000 PSADSSNM EQU PSADSSF3 07198000 PSADSSES EQU PSADSSF3 07199000 PSADSSGP EQU PSADSSF3 07200000 PSADSSF2 EQU PSADSSFL+1 07201000 PSADSSPI EQU PSADSSF1 07202000 PSADSSOI EQU PSADSSF1 07203000 PSADSSSP EQU PSADSSF1 07204000 PSADSSTP EQU PSADSSF1 07205000 PSADSSDW EQU PSADSSF1 07206000 PSADSSDD EQU PSADSSF1 07207000 PSADSSDM EQU PSADSSF1 07208000 PSADSSMV EQU PSADSSF1 07209000 PSADSSTS EQU PSA+816 07210000 PSADSSWK EQU PSA+812 07211000 PSADSSR3 EQU PSA+808 07212000 PSADSSR2 EQU PSA+804 07213000 PSADSSRS EQU PSA+800 07214000 PSASTOR EQU PSA+796 07215000 PSACPUSA EQU PSA+794 07216000 PSAVSTAP EQU PSA+792 07217000 PSAWKVAP EQU PSA+788 07218000 PSAWKRAP EQU PSA+784 07219000 PSAMCHIC EQU PSA+783 07220000 PSAACTCD EQU PSA+782 07221000 PSASYMSK EQU PSA+781 07222000 PSAMCHFL EQU PSA+780 07223000 PSACR0 EQU PSA+776 07224000 PSAPSWSV EQU PSA+768 07225000 PSACLHS EQU PSAHLHI 07226000 PSALKR15 EQU PSALKSA+60 07227000 PSALKR14 EQU PSALKSA+56 07228000 PSALKR13 EQU PSALKSA+52 07229000 PSALKR12 EQU PSALKSA+48 07230000 PSALKR11 EQU PSALKSA+44 07231000 PSALKR10 EQU PSALKSA+40 07232000 PSALKR9 EQU PSALKSA+36 07233000 PSALKR8 EQU PSALKSA+32 07234000 PSALKR7 EQU PSALKSA+28 07235000 PSALKR6 EQU PSALKSA+24 07236000 PSALKR5 EQU PSALKSA+20 07237000 PSALKR4 EQU PSALKSA+16 07238000 PSALKR3 EQU PSALKSA+12 07239000 PSALKR2 EQU PSALKSA+8 07240000 PSALKR1 EQU PSALKSA+4 07241000 PSALKR0 EQU PSALKSA 07242000 PSARV023 EQU PSACLHT+52 07243000 PSALOCAL EQU PSACLHT+48 07244000 PSACMSL EQU PSACLHT+44 07245000 PSAOPTL EQU PSACLHT+40 07246000 PSATPACL EQU PSACLHT+36 07247000 PSATPDNL EQU PSACLHT+32 07248000 PSATPNCL EQU PSACLHT+28 07249000 PSAIOSLL EQU PSACLHT+24 07250000 PSAIOSUL EQU PSACLHT+20 07251000 PSAIOSCL EQU PSACLHT+16 07252000 PSAIOSSL EQU PSACLHT+12 07253000 PSASALCL EQU PSACLHT+8 07254000 PSAASML EQU PSACLHT+4 07255000 PSADISPL EQU PSACLHT 07256000 PSASRSA EQU PSA+636 07257000 PSARV050 EQU PSA+634 07258000 PSADSSGO EQU PSA+633 07259000 PSARECUR EQU PSA+632 07260000 PSAHLHIS EQU PSA+628 07261000 PSAIPCSA EQU PSA+624 07262000 @NM00077 EQU PSA+621 07263000 PSAIPCDM EQU PSA+620 07264000 PSAIPCD EQU PSA+616 07265000 @NM00076 EQU PSA+613 07266000 PSAIPCRM EQU PSA+612 07267000 PSAIPCR EQU PSA+608 07268000 PSAMCHEX EQU PSA+600 07269000 PSAMPSW EQU PSA+592 07270000 PSAEXPS2 EQU PSA+584 07271000 PSAEXPS1 EQU PSA+576 07272000 PSAPIREG EQU PSA+572 07273000 PSARSREG EQU PSA+568 07274000 PSAGPREG EQU PSA+556 07275000 PSARV022 EQU PSASUP4 07276000 PSARV021 EQU PSASUP4 07277000 PSARV020 EQU PSASUP4 07278000 PSARV019 EQU PSASUP4 07279000 PSARV018 EQU PSASUP4 07280000 PSARV017 EQU PSASUP4 07281000 PSARV016 EQU PSASUP4 07282000 PSARV015 EQU PSASUP4 07283000 PSARV014 EQU PSASUP3 07284000 PSAULCMS EQU PSASUP3 07285000 PSARV012 EQU PSASUP3 07286000 PSAESTA EQU PSASUP3 07287000 PSASPR EQU PSASUP3 07288000 PSAPSREG EQU PSASUP3 07289000 PSAPI2 EQU PSASUP3 07290000 PSAIOSUP EQU PSASUP3 07291000 PSALCR EQU PSASUP2 07292000 PSARTM EQU PSASUP2 07293000 PSAACR EQU PSASUP2 07294000 PSAIPCE2 EQU PSASUP2 07295000 PSAIPCES EQU PSASUP2 07296000 PSAIPCEC EQU PSASUP2 07297000 PSAGTF EQU PSASUP2 07298000 PSAIPCRI EQU PSASUP2 07299000 PSATYPE6 EQU PSASUP1 07300000 PSATCTL EQU PSASUP1 07301000 PSADISP EQU PSASUP1 07302000 PSALOCK EQU PSASUP1 07303000 PSAPI EQU PSASUP1 07304000 PSAEXT EQU PSASUP1 07305000 PSASVC EQU PSASUP1 07306000 PSAIO EQU PSASUP1 07307000 PSAAOLD EQU PSA+548 07308000 PSAANEW EQU PSA+544 07309000 PSATOLD EQU PSA+540 07310000 PSATNEW EQU PSA+536 07311000 PSALCCAR EQU PSA+532 07312000 PSACPULA EQU PSA+518 07313000 PSACPUPA EQU PSA+516 07314000 PSAPSA EQU PSA+512 07315000 FLCHDEND EQU PSA+512 07316000 FLCCRSAV EQU FLCMCLA+280 07317000 FLCGRSAV EQU FLCMCLA+216 07318000 FLCFPSAV EQU FLCMCLA+184 07319000 FLCFLA EQU FLCMCLA+88 07320000 FLCRGNCD EQU FLCMCLA+84 07321000 FLCFSAA EQU FLCFSA+1 07322000 @NM00075 EQU FLCFSA 07323000 @NM00074 EQU FLCMCLA+77 07324000 PSAMDISC EQU PSAMEDC 07325000 PSAMINTR EQU PSAMEDC 07326000 PSAMINST EQU PSAMEDC 07327000 PSAMCCF EQU PSAMEDC 07328000 PSAMCNOP EQU PSAMEDC 07329000 PSAMEXSR EQU PSAMEDC 07330000 PSAMCOPR EQU PSAMEDC 07331000 @NM00073 EQU PSAMEDC 07332000 @NM00072 EQU FLCMCLA+72 07333000 FLCMCIC EQU FLCMCLA+64 07334000 @NM00071 EQU FLCMCLA+20 07335000 FLCIOAA EQU FLCIOA+1 07336000 @NM00070 EQU FLCIOA 07337000 @NM00069 EQU FLCMCLA+15 07338000 @NM00068 EQU FLCMCLA+14 07339000 @NM00067 EQU FLCMCLA+12 07340000 FLCIOELA EQU FLCIOEL+1 07341000 @NM00066 EQU FLCIOEL 07342000 FLCCHIL EQU FLCCHNID+2 07343000 FLCCHMOD EQU FLCCHTM 07344000 FLCCHTYP EQU FLCCHTM 07345000 @NM00065 EQU PSA+160 07346000 FLCMTRCD EQU PSA+157 07347000 @NM00064 EQU PSA+156 07348000 FLCPERA EQU FLCPER+1 07349000 @NM00063 EQU FLCPER 07350000 @NM00062 EQU PSA+151 07351000 FLCPERCD EQU PSA+150 07352000 FLCMCNUM EQU PSA+149 07353000 @NM00061 EQU PSA+148 07354000 FLCTEAA EQU FLCTEA+1 07355000 @NM00060 EQU FLCTEA 07356000 PSAPIPC EQU PSAPICOD 07357000 PSAPIMC EQU PSAPICOD 07358000 PSAPIPER EQU PSAPICOD 07359000 PSARV049 EQU FLCPICOD 07360000 FLCPILCB EQU FLCPIILC 07361000 @NM00059 EQU FLCPIILC 07362000 @NM00058 EQU PSAEPPSW 07363000 FLCSVCN EQU PSAESPSW+2 07364000 FLCSILCB EQU FLCSVILC 07365000 @NM00057 EQU FLCSVILC 07366000 @NM00056 EQU PSAESPSW 07367000 FLCEICOD EQU PSAEEPSW+2 07368000 PSASPAD EQU PSAEEPSW 07369000 @NM00055 EQU PSA+128 07370000 FLCINPSW EQU PSA+120 07371000 FLCMNPSW EQU PSA+112 07372000 FLCPNPSW EQU PSA+104 07373000 FLCSNPSW EQU PSA+96 07374000 FLCENPSW EQU PSA+88 07375000 FLCTRACE EQU PSA+84 07376000 FLCTIMER EQU PSA+80 07377000 FLCCVT2 EQU PSA+76 07378000 FLCIOPSW EQU PSA+56 07379000 FLCMOPSW EQU PSA+48 07380000 FLCPOPSW EQU PSA+40 07381000 FLCSOPSW EQU PSA+32 07382000 FLCEOPSW EQU PSA+24 07383000 @NM00054 EQU FLCICCW2+4 07384000 FLCICCW1 EQU FLCROPSW 07385000 FLCIPPSW EQU FLCRNPSW 07386000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 07387000 @RF00305 EQU @EL00002 07388000 @RC00307 EQU @EL00002 07389000 @RT00349 EQU FETSTNIP 07390000 @RT00351 EQU FECON80 07391000 @RT00353 EQU FESIO 07392000 @RT00371 EQU IGFCCHEX 07393000 @RT00383 EQU FESIO 07394000 @RT00385 EQU FERETURN 07395000 @RF00388 EQU FESIO 07396000 @RT00401 EQU FENLS 07397000 @RT00405 EQU FERETURN 07398000 @RT00408 EQU FE103 07399000 @RT00473 EQU RDNOJOB 07400000 @RT00480 EQU RDNOJOB 07401000 @RT00491 EQU RDRSMXL 07402000 @RT00493 EQU RDMOVCSW 07403000 @RT00496 EQU RDMOVCSW 07404000 @RC00308 EQU @RC00307 07405000 @ENDDATA EQU * 07406000 END IGFCCHCR,(C'PLS1715',0701,78117) 07407000