TITLE 'AHLTSYFL - GTF FILTERING ROUTINE *00001000 ' 00002000 AHLTSYFL CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'AHLTSYFL 73.286' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * /* EQUATES FOR BAL */ 00011000 OFFSET1 EQU 12 OFFSET FOR REG SAVE 00012000 BYTMOV EQU 3 SHIFT CONSTANT 00013000 BITMOV EQU 29 SHIFT CONSTANT 00014000 PINTMSK EQU X'80' PRECISE INTRPT MASK 00015000 OUGHT EQU 0 CONSTANT 0 00016000 AHLFIO DS 0H 0092 00017000 * /* BEGIN I/O ROUTINE */ 00018000 *********************************************************************** 00019000 * * 00020000 * I/O ROUTINE ENTRY POINT. PROCESS I/O INTERRUPT * 00021000 * * 00022000 *********************************************************************** 00023000 USING AHLFIO,ENTRYREG USE R15 TO REF BASEADDR @Y02014 00024000 L BASEREG,BASEADDR ESTABLISH ADDRESSING 00025000 DROP ENTRYREG DROP R15 AS BASE REG 00026000 USING AHLTSYFL,BASEREG SET BASE REG @Y02014 00027000 * RTRNREG=RTRNAD; /* SAVE RETURN ADDRESS @Y02014*/ 00028000 LR RTRNREG,RTRNAD 0096 00029000 * CALL AHLFLIN; /* TO INITIATOR ROUTINE */ 00030000 BAL @14,AHLFLIN 0097 00031000 * RFY 0098 00032000 * (RTRNAD, 0098 00033000 * RTRNREG) UNRSTD; /* @Y02014*/ 00034000 * MCATRAIL=IOMASK; /* TURN ON IO BIT IN MCAWSA 0099 00035000 * @Y02014*/ 00036000 MVC MCATRAIL(8,AWSAPTR),IOMASK 0099 00037000 * ROUTBYTE=IOROUT; /* INDICATE I/O ROUTINE @Y02014*/ 00038000 MVI ROUTBYTE(R10PARM),X'40' 0100 00039000 * BLDRTADR=GTFIOBL; /* SET PTR TO ADDR OF IO BUILD 0101 00040000 * ROUTINE @Y02014*/ 00041000 L BLDRTADR,GTFIOBL(,PCTPTR) 0101 00042000 * FLTBPTR=GTFIOFT; /* SET PTR TO ADDR OF IO FILTER 00043000 * TABLE @Y02014*/ 00044000 L FLTBPTR,GTFIOFT(,PCTPTR) 0102 00045000 * GO TO AHLCMP01; /* TO IO/SIO COMPARE ROUT TO 0103 00046000 * CHECK FOR FILTER TBL ENTRY 0103 00047000 * THIS INTERRUPT 0103 00048000 * */ 00049000 B AHLCMP01 0103 00050000 * 0104 00051000 */********************************************************************/ 00052000 */* */ 00053000 */* SIO ROUTINE ENTRY POINT. PROCESS SIO OPERATION */ 00054000 */* */ 00055000 */********************************************************************/ 00056000 */********************************************************************/ 00057000 */* */ 00058000 */* ESTABLISH ADDRESSABILITY */ 00059000 */* */ 00060000 */********************************************************************/ 00061000 * 0104 00062000 *AHLFSIO: /* @Y02014*/ 00063000 * GENERATE; 0104 00064000 AHLFSIO DS 0H 0104 00065000 * /* SIO ROUTINE */ 00066000 USING AHLFSIO,ENTRYREG USE R15 TO REF BASEADDR @Y02014 00067000 L BASEREG,BASEADDR ESTABLISH ADDRESSING 00068000 DROP ENTRYREG DROP R15 AS BASE REG 00069000 USING AHLTSYFL,BASEREG SET BASE REG @Y02014 00070000 * RFY 0105 00071000 * (RTRNAD, 0105 00072000 * RTRNREG) RSTD; /* @Y02014*/ 00073000 * RTRNREG=RTRNAD; /* SAVE RETURN ADDRESS @Y02014*/ 00074000 LR RTRNREG,RTRNAD 0106 00075000 * CALL AHLFLIN; /* TO INITIATOR ROUTINE */ 00076000 BAL @14,AHLFLIN 0107 00077000 * RFY 0108 00078000 * (RTRNAD, 0108 00079000 * RTRNREG) UNRSTD; /* @Y02014*/ 00080000 * MCATRAIL=SIOMASK; /* TURN ON SIO BIT IN MCAWSA 0109 00081000 * @Y02014*/ 00082000 MVC MCATRAIL(8,AWSAPTR),SIOMASK 0109 00083000 * ROUTBYTE=SIOROUT; /* INDICATE SIO ROUTINE @Y02014*/ 00084000 MVI ROUTBYTE(R10PARM),X'20' 0110 00085000 * BLDRTADR=GTFSIOBL; /* SET PTR TO ADDR OF SIO BUILD 00086000 * ROUTINE @Y02014*/ 00087000 L BLDRTADR,GTFSIOBL(,PCTPTR) 0111 00088000 * FLTBPTR=GTFSIOFT; /* SET PTR TO ADDR OF SIO FILTER 00089000 * TABLE @Y02014 00090000 * */ 00091000 L FLTBPTR,GTFSIOFT(,PCTPTR) 0112 00092000 * 0113 00093000 */********************************************************************/ 00094000 */* */ 00095000 */* IO AND SIO FILTER TABLE SEARCH ROUTINE */ 00096000 */* */ 00097000 */********************************************************************/ 00098000 * 0113 00099000 *AHLCMP01: 0113 00100000 * ROUTBYTE=IOSIO; /* INDICATE IN CODE COMMON TO I/O 00101000 * AND SIO @Y02014*/ 00102000 AHLCMP01 MVI ROUTBYTE(R10PARM),X'60' 0113 00103000 * PSWPTR=ADDR(LCCAPGR2(REG6)); /* GET PTR TO DEVICE ADDRESS 0114 00104000 * (FROM R6 OF PROGRAM CHECK FLIH 00105000 * REG SAVEAREA 2) @Y02014*/ 00106000 L PSWPTR,PSALCCAV 0114 00107000 LA PSWPTR,LCCAPGR2+24(,PSWPTR) 0114 00108000 * CHANNEL=CHAN+ONE; /* SETUP INDEX TO FILTER TBL FROM 00109000 * CHAN NUMBER */ 00110000 LA @12,1 0115 00111000 SLR CHANNEL,CHANNEL 0115 00112000 IC CHANNEL,CHAN(,PSWPTR) 0115 00113000 ALR CHANNEL,@12 0115 00114000 * FLTBPTR=FLTBPTR+2; /* BUMP PAST LENGTH FIELD */ 00115000 AH FLTBPTR,@CH00288 0116 00116000 * FLTBPTR=FLTBPTR+DVADPTR(CHANNEL);/* ADD OFFSET FOR CHAN TO FILTER 00117000 * TBL PTR TO REF DEVICE ADDR 0117 00118000 * ENTRIES FOR THAT CHANNEL */ 00119000 LR @15,FLTBPTR 0117 00120000 AL @15,@CF02254 0117 00121000 SLR @14,@14 0117 00122000 IC @14,DVADPTR(CHANNEL,@15) 0117 00123000 ALR FLTBPTR,@14 0117 00124000 */********************************************************************/ 00125000 */* */ 00126000 */* BEGIN IO/SIO FILTER TABLE SEARCH */ 00127000 */* */ 00128000 */********************************************************************/ 00129000 * 0118 00130000 * DO UNIT=ONE TO MAXFIL BY ONE; /* INDEX THRU FILTER TBL FOR MAX 00131000 * OF 50 ENTRIES */ 00132000 LR UNIT,@12 0118 00133000 @DL00118 DS 0H 0119 00134000 */********************************************************************/ 00135000 */* */ 00136000 */* CHECK FOR LAST ENTRY, THIS CHANNEL, IN FILTER TABLE */ 00137000 */* */ 00138000 */********************************************************************/ 00139000 * 0119 00140000 * IF FLTDVAD(UNIT)=ENLSTIND /* CK FOR END OF LIST IND */ 00141000 * THEN /* END FILTER IF TRUE */ 00142000 LR @12,UNIT 0119 00143000 ALR @12,@12 0119 00144000 ALR @12,FLTBPTR 0119 00145000 CLC FLTDVAD-2(2,@12),ENLSTIND 0119 00146000 BE @RT00119 0119 00147000 * GO TO AHLFLEND; /* TO FILTER EXIT ROUTINE */ 00148000 */********************************************************************/ 00149000 */* */ 00150000 */* CHECK FOR FILTER TABLE ENTRY = DEVICE ADDRESS */ 00151000 */* */ 00152000 */********************************************************************/ 00153000 * 0121 00154000 * IF FLTDVAD(UNIT)=DEVADR /* CK IO PSW OR SIO REG */ 00155000 * THEN /* ALTER RETURN ADDR IF Y */ 00156000 LR @12,UNIT 0121 00157000 ALR @12,@12 0121 00158000 ALR @12,FLTBPTR 0121 00159000 CLC FLTDVAD-2(2,@12),DEVADR(PSWPTR) 0121 00160000 BNE @RF00121 0121 00161000 * DO; /* ADDR OF BUILD ROUT TO */ 00162000 * RTRNSAV=BLDRTADR; /* RETURN SAVE AREA @Y02014*/ 00163000 ST BLDRTADR,RTRNSAV(,R10PARM) 0123 00164000 * GO TO AHLFLEND; /* TO EXIT ROUTINE */ 00165000 B AHLFLEND 0124 00166000 * END; 0125 00167000 * END; 0126 00168000 @RF00121 AH UNIT,@CH00064 0126 00169000 CH UNIT,@CH02079 0126 00170000 BNH @DL00118 0126 00171000 * GO TO AHLFLEND; /* TO EXIT ROUTINE IF LIST 0127 00172000 * EXHAUSTED WITH NO MATCH 0127 00173000 * */ 00174000 B AHLFLEND 0127 00175000 * 0128 00176000 */********************************************************************/ 00177000 */* */ 00178000 */* SVC ROUTINE ENTRY POINT. PROCESS SVC INTERRUPT */ 00179000 */* */ 00180000 */********************************************************************/ 00181000 */********************************************************************/ 00182000 */* */ 00183000 */* ESTABLISH ADDRESSABILITY */ 00184000 */* */ 00185000 */********************************************************************/ 00186000 * 0128 00187000 *AHLFSVC: /* @Y02014*/ 00188000 * GENERATE; 0128 00189000 AHLFSVC DS 0H 0128 00190000 * /* SVC ROUTINE */ 00191000 USING AHLFSVC,ENTRYREG USE R15 TO REF BASEADDR @Y02014 00192000 L BASEREG,BASEADDR ESTABLISH ADDRESSING 00193000 DROP ENTRYREG DROP R15 AS BASE REG 00194000 USING AHLTSYFL,BASEREG SET BASE REG @Y02014 00195000 * RFY 0129 00196000 * (RTRNAD, 0129 00197000 * RTRNREG) RSTD; /* @Y02014*/ 00198000 * RTRNREG=RTRNAD; /* SAVE RETURN ADDRESS @Y02014*/ 00199000 LR RTRNREG,RTRNAD 0130 00200000 * CALL AHLFLIN; /* TO INITIATOR ROUTINE */ 00201000 BAL @14,AHLFLIN 0131 00202000 * RFY 0132 00203000 * (RTRNAD, 0132 00204000 * RTRNREG) UNRSTD; /* @Y02014*/ 00205000 * MCATRAIL=SVCMASK; /* TURN ON SVC BIT IN MCAWSA 0133 00206000 * @Y02014*/ 00207000 MVC MCATRAIL(8,AWSAPTR),SVCMASK 0133 00208000 * ROUTBYTE=SVCROUT; /* INDICATE SVC ROUTINE @Y02014*/ 00209000 MVI ROUTBYTE(R10PARM),X'80' 0134 00210000 * PSWPTR=ADDR(SVCCODE); /* ADDR OF SVC INTERRUPT CODE 0135 00211000 * @Y02014*/ 00212000 LA PSWPTR,SVCCODE 0135 00213000 * BLDRTADR=GTFSVCBL; /* SET PTR TO ADDR OF SVC BUILD 00214000 * ROUTINE @Y02014*/ 00215000 L BLDRTADR,GTFSVCBL(,PCTPTR) 0136 00216000 * FLTBPTR=GTFSVCFT; /* SET PTR TO ADDR OF SVC FILTER 00217000 * TABLE @Y02014*/ 00218000 L FLTBPTR,GTFSVCFT(,PCTPTR) 0137 00219000 * GO TO AHLCMP02; /* TO SVC/PI COMPARE ROUT TO 0138 00220000 * CHECK FOR FILTER TBL ENTRY 0138 00221000 * THIS INTERRUPT 0138 00222000 * */ 00223000 B AHLCMP02 0138 00224000 * 0139 00225000 */********************************************************************/ 00226000 */* */ 00227000 */* PI ROUTINE ENTRY POINT. PROCESS PGM INTERRUPT */ 00228000 */* */ 00229000 */********************************************************************/ 00230000 */********************************************************************/ 00231000 */* */ 00232000 */* ESTABLISH ADDRESSABILITY */ 00233000 */* */ 00234000 */********************************************************************/ 00235000 * 0139 00236000 *AHLFPI: /* @Y02014*/ 00237000 * GENERATE; 0139 00238000 AHLFPI DS 0H 0139 00239000 * /* PI ROUTINE */ 00240000 USING AHLFPI,ENTRYREG USE R15 TO REF BASEADDR @Y02014 00241000 L BASEREG,BASEADDR ESTABLISH ADDRESSING 00242000 DROP ENTRYREG DROP R15 AS BASE REG 00243000 USING AHLTSYFL,BASEREG SET BASE REG @Y02014 00244000 * RFY 0140 00245000 * (RTRNAD, 0140 00246000 * RTRNREG) RSTD; /* @Y02014*/ 00247000 * RTRNREG=RTRNAD; /* SAVE RETURN ADDRESS @Y02014*/ 00248000 LR RTRNREG,RTRNAD 0141 00249000 * CALL AHLFLIN; /* TO INITIATOR ROUTINE */ 00250000 BAL @14,AHLFLIN 0142 00251000 * RFY 0143 00252000 * (RTRNAD, 0143 00253000 * RTRNREG) UNRSTD; /* @Y02014*/ 00254000 * MCATRAIL=PIMASK; /* TURN ON PI BIT IN MCAWSA 0144 00255000 * @Y02014*/ 00256000 MVC MCATRAIL(8,AWSAPTR),PIMASK 0144 00257000 * ROUTBYTE=PIROUT; /* INDICATE PI ROUTINE @Y02014*/ 00258000 MVI ROUTBYTE(R10PARM),X'10' 0145 00259000 * PSWPTR=ADDR(LCCAPICD); /* ADDR OF PI INTERRUPT CODE 0146 00260000 * @Y02014*/ 00261000 L PSWPTR,PSALCCAV 0146 00262000 LA PSWPTR,LCCAPICD(,PSWPTR) 0146 00263000 * BLDRTADR=GTFPIBL; /* SET PTR TO ADDR OF PI BUILD 0147 00264000 * ROUTINE @Y02014*/ 00265000 L BLDRTADR,GTFPIBL(,PCTPTR) 0147 00266000 * FLTBPTR=GTFPIFT; /* SET PTR TO ADDR OF PI FILTER 00267000 * TABLE @Y02014*/ 00268000 L FLTBPTR,GTFPIFT(,PCTPTR) 0148 00269000 */********************************************************************/ 00270000 */* */ 00271000 */* FILTER TABLE SEARCH ROUTINE FOR SVC'S,AND PRECISE PI */ 00272000 */* */ 00273000 */********************************************************************/ 00274000 * 0149 00275000 *AHLCMP02: 0149 00276000 * ROUTBYTE=PISVC; /* INDICATE IN CODE COMMON TO PI 00277000 * AND SVC @Y02014*/ 00278000 AHLCMP02 MVI ROUTBYTE(R10PARM),X'90' 0149 00279000 * FLTBPTR=FLTBPTR+2; /* BUMP PAST LENGTH FIELD */ 00280000 AH FLTBPTR,@CH00288 0150 00281000 * GENERATE; 0151 00282000 * /* SVC PI SEARCH */ 00283000 SR BYTEPSN,BYTEPSN CLEAR REG FOR INT/SVC 00284000 IC BYTEPSN,0(PSWPTR) INT/SVC # TO REG 00285000 SRDL BYTEPSN,BYTMOV GET BYTE # OF INT/SVC 00286000 SRL MOVNUM,BITMOV MOVE TO LOW ORDER PSN 00287000 AR FLTBPTR,BYTEPSN GET ADDR OF THIS INT 00288000 LA MASKREG,PINTMSK SETUP MASK 00289000 SRL MASKREG,OUGHT(MOVNUM) GET BIT PSN OF INT/SVC 00290000 EX MASKREG,TEST TEST BIT IN FILTER TBL 00291000 BZ AHLFLEND END AHLTFIL IF 0 00292000 * RTRNSAV=BLDRTADR; /* ADDR OF BUILD ROUT TO RETURN 00293000 * SAVE AREA IF INTERRUPT ON THIS 00294000 * PSN @Y02014 00295000 * */ 00296000 ST BLDRTADR,RTRNSAV(,R10PARM) 0152 00297000 * 0153 00298000 */********************************************************************/ 00299000 */* */ 00300000 */* AHLTSYFL EXIT ROUTINE */ 00301000 */* */ 00302000 */********************************************************************/ 00303000 * 0153 00304000 *AHLFLEND: 0153 00305000 * 0153 00306000 */********************************************************************/ 00307000 */* */ 00308000 */* EXIT TO BUILD ROUTINE IF MATCH IN FILTER TABLE, */ 00309000 */* EXIT TO AHLMCER IF NO MATCH. */ 00310000 */* */ 00311000 */********************************************************************/ 00312000 * 0153 00313000 * ROUTBYTE=ALLROUT; /* INDICATE IN COMMON EXIT CODE 00314000 * @Y02014*/ 00315000 AHLFLEND MVI ROUTBYTE(R10PARM),X'F0' 0153 00316000 * RFY 0154 00317000 * (RTRNAD, 0154 00318000 * RTRNREG) RSTD; /* @Y02014*/ 00319000 * RTRNREG=RTRNSAV; /* GET ADDRESS TO BRANCH TO 0155 00320000 * @Y02014*/ 00321000 L RTRNREG,RTRNSAV(,R10PARM) 0155 00322000 * RTRNAD=MCERRTRN; /* RESTORE MCER'S RETURN ADDR IN 00323000 * CASE BRANCH IS TO FGBR @Y02014*/ 00324000 L RTRNAD,MCERRTRN(,R10PARM) 0156 00325000 * GEN SETS(R8WORK,R9WORK) NOEXIT SEQFLOW NOFLOWS; 0157 00326000 * /* @Y02014*/ 00327000 SETFRR D,WRKREGS=(R8WORK,R9WORK) 00328000 BR RTRNREG TO AHLMCER OR BLD ROUT 00329000 * RFY 0158 00330000 * (RTRNAD, 0158 00331000 * RTRNREG) UNRSTD; /* @Y02014 00332000 * */ 00333000 * 0159 00334000 */********************************************************************/ 00335000 */* */ 00336000 */* TEST INSTRUCTION FOR SVC/PI COMPARE ROUTINE */ 00337000 */* */ 00338000 */********************************************************************/ 00339000 * 0159 00340000 * GENERATE; 0159 00341000 * /* TEST BIT IN TABLE */ 00342000 TEST TM OUGHT(FLTBPTR),OUGHT TEST FILTER TBL 00343000 * 0160 00344000 */********************************************************************/ 00345000 */* */ 00346000 */* AHLTSYFL ERROR ROUTINE */ 00347000 */* */ 00348000 */********************************************************************/ 00349000 */********************************************************************/ 00350000 */* */ 00351000 */* ESTABLISH ADDRESSABILITY */ 00352000 */* */ 00353000 */********************************************************************/ 00354000 * 0160 00355000 *AHLTFILE: /* @Y02014*/ 00356000 * GENERATE; 0160 00357000 AHLTFILE DS 0H 0160 00358000 * /* ERROR ROUTINE */ 00359000 USING AHLTFILE,ENTRYREG USE R15 TO REF BASEADDR @Y02014 00360000 L BASEREG,BASEADDR ESTABLISH ADDRESSING 00361000 DROP ENTRYREG DROP R15 AS BASE REG 00362000 USING AHLTSYFL,BASEREG SET BASE REG @Y02014 00363000 * RFY 0161 00364000 * MCRWSA BASED(WSACGTF); /* @Y02014*/ 00365000 * R10PARM=SDWAPARM; /* PICK UP ADDRESS OF FRR PARM 0162 00366000 * FIELD @Y02014*/ 00367000 L R10PARM,SDWAPARM(,SDWAPTR) 0162 00368000 * RFY 0163 00369000 * RTRNAD RSTD; /* @Y02014*/ 00370000 * RTMRTRN=RTRNAD; /* SAVE RETURN ADDR @Y02014*/ 00371000 ST RTRNAD,RTMRTRN(,R10PARM) 0164 00372000 * RFY 0165 00373000 * RTRNAD UNRSTD; /* @Y02014*/ 00374000 * AWSAPTR=MCRMCA; /* GET ADDRESS OF MCAWSA AT ERROR 00375000 * FROM MCRWSA @Y02014*/ 00376000 L @12,PSALCCAV 0166 00377000 L @12,LCCACPUS(,@12) 0166 00378000 L @12,WSACGTF(,@12) 0166 00379000 L AWSAPTR,MCRMCA(,@12) 0166 00380000 * RFY 0167 00381000 * MCRWSA BASED(MCAMCR); /* @Y02014*/ 00382000 * MCAERROR=ON; /* INDICATE ERROR ROUTINE IN 0168 00383000 * CONTROL @Y02014*/ 00384000 OI MCAERROR(AWSAPTR),B'00000100' 0168 00385000 * R0=MCRREG0; /* GET @ OF MCQE AT TIME OF ERROR 00386000 * FROM MCRWSA @Y02014*/ 00387000 L @12,MCAMCR(,AWSAPTR) 0169 00388000 L R0,MCRREG0(,@12) 0169 00389000 * PCTPTR=MCQEAT; /* GET @ OF PCT AT TIME OF ERROR 00390000 * FROM MCQE @Y02014*/ 00391000 LR @12,R0 0170 00392000 L PCTPTR,MCQEAT(,@12) 0170 00393000 * DO; /* SETRP RECPARM(RECID) 0171 00394000 * RECORD(YES) */ 00395000 * RESPECIFY 0172 00396000 * (GPR00P, 0172 00397000 * GPR01P, 0172 00398000 * GPR14P, 0172 00399000 * GPR15P) RSTD; 0172 00400000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00401000 MVI SDWARCDE(GPR01P),X'00' 0173 00402000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00403000 OI SDWARCRD(GPR01P),B'10000000' 0174 00404000 * GPR15P=ADDR(RECID); /* ACCESS RECORD PARAMETER LIST */ 00405000 LA GPR15P,RECID 0175 00406000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00407000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0176 00408000 * RESPECIFY 0177 00409000 * (GPR00P, 0177 00410000 * GPR01P, 0177 00411000 * GPR14P, 0177 00412000 * GPR15P) UNRSTD; 0177 00413000 * END; /* @Y02014*/ 00414000 */********************************************************************/ 00415000 */* */ 00416000 */* CHECK FOR ALTERNATE CPU RECOVERY ERROR */ 00417000 */* */ 00418000 */********************************************************************/ 00419000 * 0179 00420000 * IF SDWAMCHK=ON THEN /* @Y02014*/ 00421000 TM SDWAMCHK(SDWAPTR),B'10000000' 0179 00422000 BNO @RF00179 0179 00423000 * IF SDWAINSF=ON THEN /* @Y02014*/ 00424000 TM SDWAINSF(SDWAPTR),B'00000100' 0180 00425000 BNO @RF00180 0180 00426000 * IF SDWAREGU=OFF&SDWAPSWU=OFF THEN/* @Y02014*/ 00427000 TM SDWAREGU(SDWAPTR),B'01100000' 0181 00428000 BNZ @RF00181 0181 00429000 * DO; /* @Y02014*/ 00430000 * DO; /* SETRP RETADDR(ACRADDR) 0183 00431000 * RC(SDWARETY) */ 00432000 * RESPECIFY 0184 00433000 * (GPR00P, 0184 00434000 * GPR01P, 0184 00435000 * GPR14P, 0184 00436000 * GPR15P) RSTD; 0184 00437000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 00438000 MVI SDWARCDE(GPR01P),X'04' 0185 00439000 * GPR01P->SDWARTYA=ADDR(ACRADDR);/* SAVE RETRY ADDRESS */ 00440000 MVC SDWARTYA(4,GPR01P),SDWANXT1(SDWAPTR) 0186 00441000 * RESPECIFY 0187 00442000 * (GPR00P, 0187 00443000 * GPR01P, 0187 00444000 * GPR14P, 0187 00445000 * GPR15P) UNRSTD; 0187 00446000 * END; /* @Y02014*/ 00447000 * MCAERROR=OFF; /* RESET ERROR INDICATOR @Y02014*/ 00448000 NI MCAERROR(AWSAPTR),B'11111011' 0189 00449000 * RFY 0190 00450000 * RTRNAD RSTD; /* @Y02014*/ 00451000 * RTRNAD=RTMRTRN; /* GET RTMS RETURN ADDRESS 0191 00452000 * @Y02014*/ 00453000 L @12,RTMRTRN(,R10PARM) 0191 00454000 LR RTRNAD,@12 0191 00455000 * RFY 0192 00456000 * RTRNAD UNRSTD; /* @Y02014*/ 00457000 * END; /* @Y02014*/ 00458000 * ELSE /* @Y02014*/ 00459000 * DO; /* @Y02014*/ 00460000 B @RC00181 0194 00461000 @RF00181 DS 0H 0195 00462000 * ROUTBYTE=ALLROUT; /* INDICATE TO DISABLE ALL 0195 00463000 * ROUTINES @Y02014*/ 00464000 MVI ROUTBYTE(R10PARM),X'F0' 0195 00465000 * GOTO CATERR; /* @Y02014*/ 00466000 B CATERR 0196 00467000 * END; /* @Y02014*/ 00468000 * ELSE /* @Y02014*/ 00469000 * DO; /* @Y02014*/ 00470000 B @RC00180 0198 00471000 @RF00180 DS 0H 0199 00472000 * ROUTBYTE=ALLROUT; /* INDICATE TO DISABLE ALL 0199 00473000 * ROUTINES @Y02014*/ 00474000 MVI ROUTBYTE(R10PARM),X'F0' 0199 00475000 * GOTO CATERR; /* @Y02014*/ 00476000 B CATERR 0200 00477000 * END; /* @Y02014 00478000 * */ 00479000 * ELSE /* @Y02014*/ 00480000 *CATERR: /* @Y02014*/ 00481000 * DO; /* @Y02014*/ 00482000 * 0202 00483000 B @RC00179 0202 00484000 @RF00179 DS 0H 0202 00485000 CATERR DS 0H 0203 00486000 * /*************************************************************/ 00487000 * /* */ 00488000 * /* TAKE AN SVCDUMP TO RECORD THE ERROR */ 00489000 * /* */ 00490000 * /*************************************************************/ 00491000 * 0203 00492000 * MCQESAV=R0; /* SAVE MCQE ADDRESS */ 00493000 ST R0,MCQESAV(,R10PARM) 0203 00494000 * R0=ADDR(SDUMPLST); /* PASS SDUMP ROUTINE THE PLIST 00495000 * IN R0 - R1 MUST HAVE THE RTCA 00496000 * ADDRESS IN IT */ 00497000 LA R0,SDUMPLST 0204 00498000 * CALL DUMPMOD; /* TAKE A DUMP @Y02014*/ 00499000 L @15,PCTDMPMD(,PCTPTR) 0205 00500000 BALR @14,@15 0205 00501000 * DMPINDSV=R15RC; /* DUMP ROUTINE PASSES BACK 0206 00502000 * INDICATOR IN R15 */ 00503000 STH R15RC,DMPINDSV(,R10PARM) 0206 00504000 * R0=MCQESAV; /* RESTORE MCQE ADDRESS */ 00505000 L R0,MCQESAV(,R10PARM) 0207 00506000 */********************************************************************/ 00507000 */* */ 00508000 */* DETERMINE WHERE ERROR OCCURRED AND ISSUE SETEVENT CHANGE TO */ 00509000 */* ELIMINATE FILTERING FOR THAT EVENT */ 00510000 */* */ 00511000 */********************************************************************/ 00512000 * 0208 00513000 * RFY 0208 00514000 * (R8WORK, 0208 00515000 * R9WORK) RSTD; /* @Y02014*/ 00516000 * IF MCATRL3=0 THEN /* IF ERROR IN ENTRY CODE DISABLE 00517000 * @Y02014*/ 00518000 CLI MCATRL3(AWSAPTR),0 0209 00519000 BNE @RF00209 0209 00520000 * ROUTBYTE=ALLROUT; /* ALL FILTERING @Y02014*/ 00521000 MVI ROUTBYTE(R10PARM),X'F0' 0210 00522000 * IF IOFLAG=ON THEN /* CHECK IF ERROR IN I/O CODE 0211 00523000 * @Y02014*/ 00524000 @RF00209 TM IOFLAG(R10PARM),B'01000000' 0211 00525000 BNO @RF00211 0211 00526000 * DO; /* YES - DISABLE IO FILTERING 0212 00527000 * @Y02014*/ 00528000 *CKIOBIT: /* @Y02014*/ 00529000 * R8WORK=IOACTIV; /* GET I/O BIT @Y02014*/ 00530000 CKIOBIT L R8WORK,@CF02163 0213 00531000 * R9WORK=PCTCATF; /* GET BITS FOR CURRENT FILTER 0214 00532000 * FUNCTIONS @Y02014*/ 00533000 L R9WORK,PCTCATF(,PCTPTR) 0214 00534000 * IF(R8WORK&R9WORK)^=0 THEN/* SEE IF ACTIVE @Y02014*/ 00535000 LR @12,R8WORK 0215 00536000 NR @12,R9WORK 0215 00537000 LTR @12,@12 0215 00538000 BZ @RF00215 0215 00539000 * DO; /* @Y02014*/ 00540000 * R8WORK=R8WORK&&R9WORK;/* TURN OFF BIT TO PREPARE FOR 00541000 * C&S @Y02014*/ 00542000 XR R8WORK,R9WORK 0217 00543000 * CS(R9WORK,R8WORK,PCTCATF);/* TURN OFF BIT @Y02014*/ 00544000 CS R9WORK,R8WORK,PCTCATF(PCTPTR) 0218 00545000 * BC(4,CKIOBIT); /* IF CHANGED, START OVER @Y02014*/ 00546000 BC 4,CKIOBIT 0219 00547000 * SDWASAV=SDWAPTR; /* SAVE PTR TO SDWA SINCE 0220 00548000 * SETEVENT WILL DESTROY IT 0220 00549000 * @Y02014*/ 00550000 ST SDWAPTR,SDWASAV(,R10PARM) 0220 00551000 * WTOPARM(1:LENGTH(WTOSKELT))=WTOSKELT;/* MOVE COMMON 00552000 * DATA TO WTO PLIST */ 00553000 MVC WTOPARM(16,AWSAPTR),WTOSKELT 0221 00554000 * DUMPIND=DMPINDSV; /* MOVE SDUMP INDICATOR TO PLIST */ 00555000 MVC DUMPIND(2,AWSAPTR),DMPINDSV(R10PARM) 0222 00556000 * WTOFNCT=IOIND; /* MOVE IO ID INTO WTO PLIST */ 00557000 MVC WTOFNCT(4,AWSAPTR),IOIND 0223 00558000 * R1=ADDR(WTOPARM); /* POINT TO WTO PLIST */ 00559000 LA R1,WTOPARM(,AWSAPTR) 0224 00560000 * CALL WTOMOD; /* GO ISSUE WTO */ 00561000 L @15,PCTWTOMD(,PCTPTR) 0225 00562000 BALR @14,@15 0225 00563000 * EIDVAL(1)=IECEOS; /* PUT EIDS IN WORKAREA @Y02014*/ 00564000 MVC EIDVAL(2,AWSAPTR),@CB01939 0226 00565000 * EIDVAL(2)=IECIO2; /* @Y02014*/ 00566000 MVC EIDVAL+6(2,AWSAPTR),@CB01925 0227 00567000 * EIDVAL(3)=IECPCI; /* @YM03677*/ 00568000 MVC EIDVAL+12(2,AWSAPTR),@CB01917 0228 00569000 * FGBRADDR(1)=GTFIOBL;/* PUT FGBR ADDRESSES IN @Y02014*/ 00570000 L @12,GTFIOBL(,PCTPTR) 0229 00571000 ST @12,FGBRADDR(,AWSAPTR) 0229 00572000 * FGBRADDR(2)=GTFIOBL;/* WORKAREA @Y02014*/ 00573000 ST @12,FGBRADDR+6(,AWSAPTR) 0230 00574000 * FGBRADDR(3)=GTFIOBL;/* @Y02014*/ 00575000 ST @12,FGBRADDR+12(,AWSAPTR) 0231 00576000 * DO; /* SETEVENT NAME('GTF') 0232 00577000 * MCQE(MCQE) ACTION(CHANGE) 0232 00578000 * EIDAD(FRREIDS) EIDNO(4) 0232 00579000 * MF(E,SETELIST,COMPLETE) */ 00580000 * 0232 00581000 * /***************************************************/ 00582000 * /* */ 00583000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY */ 00584000 * /* THE SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 00585000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE */ 00586000 * /* RESULT OF STANDARD OR EXECUTE FORM IT WILL FILL */ 00587000 * /* in the list, GENERATE ALL LINKAGES AND CALL THE */ 00588000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00589000 * /* */ 00590000 * /***************************************************/ 00591000 * 0233 00592000 * DCL 0233 00593000 * AHLPPTR REG(1) PTR(31) RSTD;/* PARAMETER LIST 0233 00594000 * ADDRESS */ 00595000 * DCL 0234 00596000 * AHLSETEV ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETE) 00597000 * VALRG(0); /* ENTRY FOR ADD ACTIVAT,FREE */ 00598000 * DCL 0235 00599000 * AHLSETD ENTRY OPTIONS(EXIT,SEQFLOW) BASED(MCHSETD) 00600000 * VALRG(0); /* ENTRY FOR DISABLE AND CHANGE */ 00601000 * DCL 0236 00602000 * 1 SEPL BASED(AHLPPTR) BDY(WORD),/* DSECT 0236 00603000 * PARAMETER LIST */ 00604000 * 2 SEFG PTR(8), /* ACTION GLAGS */ 00605000 * 2 * PTR(8), 0236 00606000 * 2 SEEN PTR(8), /* EID COUNT */ 00607000 * 2 SECN PTR(8), /* CLASS COUNT */ 00608000 * 2 SENM CHAR(8),/* APPLICATION NMAE */ 00609000 * 2 SEEL PTR(31),/* ADDRESS OF LIST OF EIDS */ 00610000 * 2 SECL PTR(31),/* ADDRESS OF LIST OF CLASSES */ 00611000 * 2 SEMC PTR(31);/* MCQE ADDRESS */ 00612000 * AHLPPTR=ADDR(SETELIST);/* SET UP PLIST PTR */ 00613000 LA AHLPPTR,SETELIST(,AWSAPTR) 0237 00614000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 00615000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0238 00616000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00617000 ST R0,SEMC(,AHLPPTR) 0239 00618000 * SENM='GTF'; /* MOVE NAME INTO PLIST */ 00619000 MVI SENM+3(AHLPPTR),C' ' 0240 00620000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 0240 00621000 MVC SENM(3,AHLPPTR),@CC02235 0240 00622000 * SEFG=8; /* MOVE FLAGS INTO PLIST */ 00623000 MVI SEFG(AHLPPTR),X'08' 0241 00624000 * SEEN=4; /* SET TO VALUE SPECIFIED */ 00625000 MVI SEEN(AHLPPTR),X'04' 0242 00626000 * SEEL=ADDR(FRREIDS);/* SET TO VALUE SPECIFIED */ 00627000 LA @12,FRREIDS(,AWSAPTR) 0243 00628000 ST @12,SEEL(,AHLPPTR) 0243 00629000 * IF SEFG=32|SEFG=8 THEN/* CHECK FOR DISABLE OR * 0244 00630000 * CHANGE */ 00631000 CLI SEFG(AHLPPTR),32 0244 00632000 BE @RT00244 0244 00633000 CLI SEFG(AHLPPTR),8 0244 00634000 BNE @RF00244 0244 00635000 @RT00244 DS 0H 0245 00636000 * CALL AHLSETD; /* YES */ 00637000 L @12,CVTPTR 0245 00638000 L @12,CVTGTF(,@12) 0245 00639000 L @15,MCHSETD(,@12) 0245 00640000 BALR @14,@15 0245 00641000 * ELSE /* NO */ 00642000 * CALL AHLSETEV; 0246 00643000 B @RC00244 0246 00644000 @RF00244 L @12,CVTPTR 0246 00645000 L @12,CVTGTF(,@12) 0246 00646000 L @15,MCHSETE(,@12) 0246 00647000 BALR @14,@15 0246 00648000 * END; /* @Y02014*/ 00649000 @RC00244 DS 0H 0248 00650000 * SDWAPTR=SDWASAV; /* RESTORE SDWA PTR @Y02014*/ 00651000 L SDWAPTR,SDWASAV(,R10PARM) 0248 00652000 * END; /* @Y02014*/ 00653000 * END; /* @Y02014*/ 00654000 @RF00215 DS 0H 0251 00655000 * IF SIOFLAG=ON THEN /* CHECK IF SIO ROUTINE TO BE 0251 00656000 * DISABLED @Y02014*/ 00657000 @RF00211 TM SIOFLAG(R10PARM),B'00100000' 0251 00658000 BNO @RF00251 0251 00659000 * DO; /* @Y02014*/ 00660000 *CKSIOBIT: /* @Y02014*/ 00661000 * R8WORK=SIOACTIV; /* @Y02014*/ 00662000 CKSIOBIT L R8WORK,@CF02165 0253 00663000 * R9WORK=PCTCATF; /* GET BITS FOR CURRENT FILTER 0254 00664000 * FUNCTIONS @Y02014*/ 00665000 L R9WORK,PCTCATF(,PCTPTR) 0254 00666000 * IF(R8WORK&R9WORK)^=0 THEN/* SEE IF ACTIVE @Y02014*/ 00667000 LR @12,R8WORK 0255 00668000 NR @12,R9WORK 0255 00669000 LTR @12,@12 0255 00670000 BZ @RF00255 0255 00671000 * DO; /* @Y02014*/ 00672000 * R8WORK=R8WORK&&R9WORK;/* TURN OFF BIT TO PREPARE FOR 00673000 * C&S @Y02014*/ 00674000 XR R8WORK,R9WORK 0257 00675000 * CS(R9WORK,R8WORK,PCTCATF);/* TURN OFF BIT @Y02014*/ 00676000 CS R9WORK,R8WORK,PCTCATF(PCTPTR) 0258 00677000 * BC(4,CKSIOBIT); /* IF CHANGED, START OVER @Y02014*/ 00678000 BC 4,CKSIOBIT 0259 00679000 * SDWASAV=SDWAPTR; /* SAVE PTR TO SDWA SINCE 0260 00680000 * SETEVENT WILL DESTROY IT 0260 00681000 * @Y02014*/ 00682000 ST SDWAPTR,SDWASAV(,R10PARM) 0260 00683000 * WTOPARM(1:LENGTH(WTOSKELT))=WTOSKELT;/* MOVE COMMON 00684000 * DATA TO WTO PLIST */ 00685000 MVC WTOPARM(16,AWSAPTR),WTOSKELT 0261 00686000 * DUMPIND=DMPINDSV; /* MOVE SDUMP INDICATOR TO PLIST */ 00687000 MVC DUMPIND(2,AWSAPTR),DMPINDSV(R10PARM) 0262 00688000 * WTOFNCT=SIOIND; /* MOVE SIO IND TO PLIST */ 00689000 MVC WTOFNCT(4,AWSAPTR),SIOIND 0263 00690000 * R1=ADDR(WTOPARM); /* POINT TO WTO PLIST */ 00691000 LA R1,WTOPARM(,AWSAPTR) 0264 00692000 * CALL WTOMOD; /* GO ISSUE WTO */ 00693000 L @15,PCTWTOMD(,PCTPTR) 0265 00694000 BALR @14,@15 0265 00695000 * EIDVAL(1)=IECSIO; /* MOVE EID TO WORKAREA @Y02014*/ 00696000 MVC EIDVAL(2,AWSAPTR),@CB01927 0266 00697000 * FGBRADDR(1)=GTFSIOBL;/* FILL IN FGBR ADDR @Y02014*/ 00698000 MVC FGBRADDR(4,AWSAPTR),GTFSIOBL(PCTPTR) 0267 00699000 * DO; /* SETEVENT NAME('GTF') 0268 00700000 * MCQE(MCQE) ACTION(CHANGE) 0268 00701000 * EIDNO(1) EIDAD(FRREIDS) 0268 00702000 * MF(E,SETELIST,COMPLETE) */ 00703000 * 0268 00704000 * /***************************************************/ 00705000 * /* */ 00706000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY */ 00707000 * /* THE SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 00708000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE */ 00709000 * /* RESULT OF STANDARD OR EXECUTE FORM IT WILL FILL */ 00710000 * /* in the list, GENERATE ALL LINKAGES AND CALL THE */ 00711000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00712000 * /* */ 00713000 * /***************************************************/ 00714000 * 0269 00715000 * AHLPPTR=ADDR(SETELIST);/* SET UP PLIST PTR */ 00716000 LA AHLPPTR,SETELIST(,AWSAPTR) 0269 00717000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 00718000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0270 00719000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00720000 ST R0,SEMC(,AHLPPTR) 0271 00721000 * SENM='GTF'; /* MOVE NAME INTO PLIST */ 00722000 MVI SENM+3(AHLPPTR),C' ' 0272 00723000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 0272 00724000 MVC SENM(3,AHLPPTR),@CC02235 0272 00725000 * SEFG=8; /* MOVE FLAGS INTO PLIST */ 00726000 MVI SEFG(AHLPPTR),X'08' 0273 00727000 * SEEN=1; /* SET TO VALUE SPECIFIED */ 00728000 MVI SEEN(AHLPPTR),X'01' 0274 00729000 * SEEL=ADDR(FRREIDS);/* SET TO VALUE SPECIFIED */ 00730000 LA @12,FRREIDS(,AWSAPTR) 0275 00731000 ST @12,SEEL(,AHLPPTR) 0275 00732000 * IF SEFG=32|SEFG=8 THEN/* CHECK FOR DISABLE OR * 0276 00733000 * CHANGE */ 00734000 CLI SEFG(AHLPPTR),32 0276 00735000 BE @RT00276 0276 00736000 CLI SEFG(AHLPPTR),8 0276 00737000 BNE @RF00276 0276 00738000 @RT00276 DS 0H 0277 00739000 * CALL AHLSETD; /* YES */ 00740000 L @12,CVTPTR 0277 00741000 L @12,CVTGTF(,@12) 0277 00742000 L @15,MCHSETD(,@12) 0277 00743000 BALR @14,@15 0277 00744000 * ELSE /* NO */ 00745000 * CALL AHLSETEV; 0278 00746000 B @RC00276 0278 00747000 @RF00276 L @12,CVTPTR 0278 00748000 L @12,CVTGTF(,@12) 0278 00749000 L @15,MCHSETE(,@12) 0278 00750000 BALR @14,@15 0278 00751000 * END; /* @Y02014*/ 00752000 @RC00276 DS 0H 0280 00753000 * SDWAPTR=SDWASAV; /* RESTORE SDWAPTR @Y02014*/ 00754000 L SDWAPTR,SDWASAV(,R10PARM) 0280 00755000 * END; /* @Y02014*/ 00756000 * END; /* @Y02014*/ 00757000 @RF00255 DS 0H 0283 00758000 * IF PIFLAG=ON THEN /* CHECK IF PI ROUTINE TO BE 0283 00759000 * DISABLED @Y02014*/ 00760000 @RF00251 TM PIFLAG(R10PARM),B'00010000' 0283 00761000 BNO @RF00283 0283 00762000 * DO; /* @Y02014*/ 00763000 *CKPIBIT: /* @Y02014*/ 00764000 * R8WORK=PIACTIV; /* GET PI BIT @Y02014*/ 00765000 CKPIBIT L R8WORK,@CF02167 0285 00766000 * R9WORK=PCTCATF; /* GET BITS FOR CURRENT FILTER 0286 00767000 * FUNCTIONS @Y02014*/ 00768000 L R9WORK,PCTCATF(,PCTPTR) 0286 00769000 * IF(R8WORK&R9WORK)^=0 THEN/* SEE IF ACTIVE @Y02014*/ 00770000 LR @12,R8WORK 0287 00771000 NR @12,R9WORK 0287 00772000 LTR @12,@12 0287 00773000 BZ @RF00287 0287 00774000 * DO; /* @Y02014*/ 00775000 * R8WORK=R8WORK&&R9WORK;/* TURN OFF BIT TO PREPARE FOR 00776000 * C&S @Y02014*/ 00777000 XR R8WORK,R9WORK 0289 00778000 * CS(R9WORK,R8WORK,PCTCATF);/* TURN OFF BIT @Y02014*/ 00779000 CS R9WORK,R8WORK,PCTCATF(PCTPTR) 0290 00780000 * BC(4,CKPIBIT); /* IF CHANGED, START OVER @Y02014*/ 00781000 BC 4,CKPIBIT 0291 00782000 * SDWASAV=SDWAPTR; /* SAVE PTR TO SDWA SINCE 0292 00783000 * SETEVENT WILL DESTROY IT 0292 00784000 * @Y02014*/ 00785000 ST SDWAPTR,SDWASAV(,R10PARM) 0292 00786000 * WTOPARM(1:LENGTH(WTOSKELT))=WTOSKELT;/* MOVE COMMON 00787000 * DATA TO WTO PLIST */ 00788000 MVC WTOPARM(16,AWSAPTR),WTOSKELT 0293 00789000 * DUMPIND=DMPINDSV; /* MOVE SDUMP INDICATOR TO PLIST */ 00790000 MVC DUMPIND(2,AWSAPTR),DMPINDSV(R10PARM) 0294 00791000 * WTOFNCT=PIIND; /* MOVE PI ID INTO WTO PLIST */ 00792000 MVC WTOFNCT(4,AWSAPTR),PIIND 0295 00793000 * R1=ADDR(WTOPARM); /* POINT TO WTO PLIST */ 00794000 LA R1,WTOPARM(,AWSAPTR) 0296 00795000 * CALL WTOMOD; /* GO ISSUE WTO */ 00796000 L @15,PCTWTOMD(,PCTPTR) 0297 00797000 BALR @14,@15 0297 00798000 * EIDVAL(1)=IEATINT; /* MOVE EIDS TO WORKAREA @Y02014*/ 00799000 MVC EIDVAL(2,AWSAPTR),@CB01937 0298 00800000 * EIDVAL(2)=IEAPINT; /* @Y02014*/ 00801000 MVC EIDVAL+6(2,AWSAPTR),@CB01933 0299 00802000 * FGBRADDR(1)=GTFPIBL;/* FILL IN FGBR ADDR @Y02014*/ 00803000 L @12,GTFPIBL(,PCTPTR) 0300 00804000 ST @12,FGBRADDR(,AWSAPTR) 0300 00805000 * FGBRADDR(2)=GTFPIBL;/* @Y02014*/ 00806000 ST @12,FGBRADDR+6(,AWSAPTR) 0301 00807000 * DO; /* SETEVENT NAME('GTF') 0302 00808000 * MCQE(MCQE) ACTION(CHANGE) 0302 00809000 * EIDAD(FRREIDS) EIDNO(2) 0302 00810000 * MF(E,SETELIST,COMPLETE) */ 00811000 * 0302 00812000 * /***************************************************/ 00813000 * /* */ 00814000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY */ 00815000 * /* THE SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 00816000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE */ 00817000 * /* RESULT OF STANDARD OR EXECUTE FORM IT WILL FILL */ 00818000 * /* in the list, GENERATE ALL LINKAGES AND CALL THE */ 00819000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00820000 * /* */ 00821000 * /***************************************************/ 00822000 * 0303 00823000 * AHLPPTR=ADDR(SETELIST);/* SET UP PLIST PTR */ 00824000 LA AHLPPTR,SETELIST(,AWSAPTR) 0303 00825000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 00826000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0304 00827000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00828000 ST R0,SEMC(,AHLPPTR) 0305 00829000 * SENM='GTF'; /* MOVE NAME INTO PLIST */ 00830000 MVI SENM+3(AHLPPTR),C' ' 0306 00831000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 0306 00832000 MVC SENM(3,AHLPPTR),@CC02235 0306 00833000 * SEFG=8; /* MOVE FLAGS INTO PLIST */ 00834000 MVI SEFG(AHLPPTR),X'08' 0307 00835000 * SEEN=2; /* SET TO VALUE SPECIFIED */ 00836000 MVI SEEN(AHLPPTR),X'02' 0308 00837000 * SEEL=ADDR(FRREIDS);/* SET TO VALUE SPECIFIED */ 00838000 LA @12,FRREIDS(,AWSAPTR) 0309 00839000 ST @12,SEEL(,AHLPPTR) 0309 00840000 * IF SEFG=32|SEFG=8 THEN/* CHECK FOR DISABLE OR * 0310 00841000 * CHANGE */ 00842000 CLI SEFG(AHLPPTR),32 0310 00843000 BE @RT00310 0310 00844000 CLI SEFG(AHLPPTR),8 0310 00845000 BNE @RF00310 0310 00846000 @RT00310 DS 0H 0311 00847000 * CALL AHLSETD; /* YES */ 00848000 L @12,CVTPTR 0311 00849000 L @12,CVTGTF(,@12) 0311 00850000 L @15,MCHSETD(,@12) 0311 00851000 BALR @14,@15 0311 00852000 * ELSE /* NO */ 00853000 * CALL AHLSETEV; 0312 00854000 B @RC00310 0312 00855000 @RF00310 L @12,CVTPTR 0312 00856000 L @12,CVTGTF(,@12) 0312 00857000 L @15,MCHSETE(,@12) 0312 00858000 BALR @14,@15 0312 00859000 * END; /* @Y02014*/ 00860000 @RC00310 DS 0H 0314 00861000 * SDWAPTR=SDWASAV; /* RESTORE SDWA PTR @Y02014*/ 00862000 L SDWAPTR,SDWASAV(,R10PARM) 0314 00863000 * END; /* @Y02014*/ 00864000 * END; /* @Y02014*/ 00865000 @RF00287 DS 0H 0317 00866000 * IF SVCFLAG=ON THEN /* CHECK IF SVC ROUTINE TO BE 0317 00867000 * DISABLED @Y02014*/ 00868000 @RF00283 TM SVCFLAG(R10PARM),B'10000000' 0317 00869000 BNO @RF00317 0317 00870000 * DO; /* @Y02014*/ 00871000 *CKSVCBIT: /* @Y02014*/ 00872000 * R8WORK=SVCACTIV; /* GET SVC BIT @Y02014*/ 00873000 CKSVCBIT L R8WORK,@CF02161 0319 00874000 * R9WORK=PCTCATF; /* GET BITS FOR CURRENT FILTER 0320 00875000 * FUNCTIONS @Y02014*/ 00876000 L R9WORK,PCTCATF(,PCTPTR) 0320 00877000 * IF(R8WORK&R9WORK)^=0 THEN/* SEE IF ACTIVE @Y02014*/ 00878000 LR @12,R8WORK 0321 00879000 NR @12,R9WORK 0321 00880000 LTR @12,@12 0321 00881000 BZ @RF00321 0321 00882000 * DO; /* @Y02014*/ 00883000 * R8WORK=R8WORK&&R9WORK;/* TURN OFF BIT TO PREPARE FOR 00884000 * C&S @Y02014*/ 00885000 XR R8WORK,R9WORK 0323 00886000 * CS(R9WORK,R8WORK,PCTCATF);/* TURN OFF BIT @Y02014*/ 00887000 CS R9WORK,R8WORK,PCTCATF(PCTPTR) 0324 00888000 * BC(4,CKSVCBIT); /* IF CHANGED, START OVER @Y02014*/ 00889000 BC 4,CKSVCBIT 0325 00890000 * SDWASAV=SDWAPTR; /* SAVE PTR TO SDWA SINCE 0326 00891000 * SETEVENT WILL DESTROY IT 0326 00892000 * @Y02014*/ 00893000 ST SDWAPTR,SDWASAV(,R10PARM) 0326 00894000 * WTOPARM(1:LENGTH(WTOSKELT))=WTOSKELT;/* MOVE COMMON 00895000 * DATA TO WTO PLIST */ 00896000 MVC WTOPARM(16,AWSAPTR),WTOSKELT 0327 00897000 * DUMPIND=DMPINDSV; /* MOVE SDUMP INDICATOR TO PLIST */ 00898000 MVC DUMPIND(2,AWSAPTR),DMPINDSV(R10PARM) 0328 00899000 * WTOFNCT=SVCIND; /* MOVE SVC ID INTO WTO PLIST */ 00900000 MVC WTOFNCT(4,AWSAPTR),SVCIND 0329 00901000 * R1=ADDR(WTOPARM); /* POINT TO WTO PLIST */ 00902000 LA R1,WTOPARM(,AWSAPTR) 0330 00903000 * CALL WTOMOD; /* GO ISSUE WTO */ 00904000 L @15,PCTWTOMD(,PCTPTR) 0331 00905000 BALR @14,@15 0331 00906000 * EIDVAL(1)=IEASVCH; /* MOVE EID TO WORKAREA @Y02014*/ 00907000 MVC EIDVAL(2,AWSAPTR),@CB01919 0332 00908000 * FGBRADDR(1)=GTFSVCBL;/* FILL IN FGBR ADDR @Y02014*/ 00909000 MVC FGBRADDR(4,AWSAPTR),GTFSVCBL(PCTPTR) 0333 00910000 * DO; /* SETEVENT NAME('GTF') 0334 00911000 * MCQE(MCQE) ACTION(CHANGE) 0334 00912000 * EIDNO(1) EIDAD(FRREIDS) 0334 00913000 * MF(E,SETELIST,COMPLETE) */ 00914000 * 0334 00915000 * /***************************************************/ 00916000 * /* */ 00917000 * /* THE FOLLOWING SECTION OF CODE IS GENERATED BY */ 00918000 * /* THE SETEVENT MACRO. THIS CODE WILL BE EITHER AN */ 00919000 * /* INITIALIZED PARAMETER LIST, OR IF IT IS THE */ 00920000 * /* RESULT OF STANDARD OR EXECUTE FORM IT WILL FILL */ 00921000 * /* in the list, GENERATE ALL LINKAGES AND CALL THE */ 00922000 * /* PROPER sERVICE, EITHER AHLSETEV OR AHLSETD */ 00923000 * /* */ 00924000 * /***************************************************/ 00925000 * 0335 00926000 * AHLPPTR=ADDR(SETELIST);/* SET UP PLIST PTR */ 00927000 LA AHLPPTR,SETELIST(,AWSAPTR) 0335 00928000 * SEPL=SEPL&&SEPL; /* INIT PLIST TO ZERO */ 00929000 XC SEPL(24,AHLPPTR),SEPL(AHLPPTR) 0336 00930000 * SEMC=ADDR(MCQE); /* SET UP MCQE ADDRESS */ 00931000 ST R0,SEMC(,AHLPPTR) 0337 00932000 * SENM='GTF'; /* MOVE NAME INTO PLIST */ 00933000 MVI SENM+3(AHLPPTR),C' ' 0338 00934000 MVC SENM+4(4,AHLPPTR),SENM+3(AHLPPTR) 0338 00935000 MVC SENM(3,AHLPPTR),@CC02235 0338 00936000 * SEFG=8; /* MOVE FLAGS INTO PLIST */ 00937000 MVI SEFG(AHLPPTR),X'08' 0339 00938000 * SEEN=1; /* SET TO VALUE SPECIFIED */ 00939000 MVI SEEN(AHLPPTR),X'01' 0340 00940000 * SEEL=ADDR(FRREIDS);/* SET TO VALUE SPECIFIED */ 00941000 LA @12,FRREIDS(,AWSAPTR) 0341 00942000 ST @12,SEEL(,AHLPPTR) 0341 00943000 * IF SEFG=32|SEFG=8 THEN/* CHECK FOR DISABLE OR * 0342 00944000 * CHANGE */ 00945000 CLI SEFG(AHLPPTR),32 0342 00946000 BE @RT00342 0342 00947000 CLI SEFG(AHLPPTR),8 0342 00948000 BNE @RF00342 0342 00949000 @RT00342 DS 0H 0343 00950000 * CALL AHLSETD; /* YES */ 00951000 L @12,CVTPTR 0343 00952000 L @12,CVTGTF(,@12) 0343 00953000 L @15,MCHSETD(,@12) 0343 00954000 BALR @14,@15 0343 00955000 * ELSE /* NO */ 00956000 * CALL AHLSETEV; 0344 00957000 B @RC00342 0344 00958000 @RF00342 L @12,CVTPTR 0344 00959000 L @12,CVTGTF(,@12) 0344 00960000 L @15,MCHSETE(,@12) 0344 00961000 BALR @14,@15 0344 00962000 * END; /* @Y02014*/ 00963000 @RC00342 DS 0H 0346 00964000 * SDWAPTR=SDWASAV; /* RESTORE SDWA PTR @Y02014*/ 00965000 L SDWAPTR,SDWASAV(,R10PARM) 0346 00966000 * END; /* @Y02014*/ 00967000 * END; /* @Y02014*/ 00968000 @RF00321 DS 0H 0349 00969000 */********************************************************************/ 00970000 */* */ 00971000 */* CHECK FOR DEBUG MODE */ 00972000 */* */ 00973000 */********************************************************************/ 00974000 * 0349 00975000 * IF GTFDEBUG=ON THEN /* CK FOR DEBUG MODE @Y02014*/ 00976000 @RF00317 TM GTFDEBUG(PCTPTR),B'01000000' 0349 00977000 BNO @RF00349 0349 00978000 * DO; /* @Y02014*/ 00979000 * DO; /* SETRP RC(SDWACWT) */ 00980000 * RESPECIFY 0352 00981000 * (GPR00P, 0352 00982000 * GPR01P, 0352 00983000 * GPR14P, 0352 00984000 * GPR15P) RSTD; 0352 00985000 * GPR01P->SDWARCDE=SDWACWT;/* SAVE RC VALUE */ 00986000 MVI SDWARCDE(GPR01P),X'00' 0353 00987000 * RESPECIFY 0354 00988000 * (GPR00P, 0354 00989000 * GPR01P, 0354 00990000 * GPR14P, 0354 00991000 * GPR15P) UNRSTD; 0354 00992000 * END; /* @Y02014*/ 00993000 * RFY 0356 00994000 * RTRNAD RSTD; /* @Y02014*/ 00995000 * RTRNAD=RTMRTRN; /* GET RTMS RETURN ADDRESS 0357 00996000 * @Y02014*/ 00997000 L RTRNAD,RTMRTRN(,R10PARM) 0357 00998000 * RFY 0358 00999000 * RTRNAD UNRSTD; /* @Y02014*/ 01000000 * END; /* @Y02014*/ 01001000 * ELSE 0360 01002000 * DO; 0360 01003000 * 0360 01004000 B @RC00349 0360 01005000 @RF00349 DS 0H 0361 01006000 * /*********************************************************/ 01007000 * /* */ 01008000 * /* RETRY TO FGBR TO TRACE THIS EVENT */ 01009000 * /* */ 01010000 * /*********************************************************/ 01011000 * 0361 01012000 * RFY 0361 01013000 * RTRNAD RSTD; /* @Y02014*/ 01014000 * RTRNAD=RTMRTRN; /* GET RTMS RETURN ADDRESS 0362 01015000 * @Y02014*/ 01016000 L RTRNAD,RTMRTRN(,R10PARM) 0362 01017000 * SDWASRSV=MCROUTSA; /* SET UP RETRY REGS FOR FGBR */ 01018000 L @15,MCAMCR(,AWSAPTR) 0363 01019000 MVC SDWASRSV(64,SDWAPTR),MCROUTSA(@15) 0363 01020000 * SDWASR14=MCERRTRN; /* RETURN ADDRESS ALSO */ 01021000 MVC SDWASR14(4,SDWAPTR),MCERRTRN(R10PARM) 0364 01022000 * IF MCAIOF=ON THEN 0365 01023000 TM MCAIOF(AWSAPTR),B'01000000' 0365 01024000 BNO @RF00365 0365 01025000 * BLDRTADR=GTFIOBL; /* RETRY TO IO ROUTINE IF SO 0366 01026000 * INDICATED */ 01027000 L BLDRTADR,GTFIOBL(,PCTPTR) 0366 01028000 * ELSE 0367 01029000 * IF MCASIOF=ON THEN 0367 01030000 B @RC00365 0367 01031000 @RF00365 TM MCASIOF(AWSAPTR),B'00100000' 0367 01032000 BNO @RF00367 0367 01033000 * BLDRTADR=GTFSIOBL; /* RETRY TO SIO ROUTINE IF SO 0368 01034000 * INDICATED */ 01035000 L BLDRTADR,GTFSIOBL(,PCTPTR) 0368 01036000 * ELSE 0369 01037000 * IF MCAPIF=ON THEN 0369 01038000 B @RC00367 0369 01039000 @RF00367 TM MCAPIF(AWSAPTR),B'00010000' 0369 01040000 BNO @RF00369 0369 01041000 * BLDRTADR=GTFPIBL; /* RETRY TO PI ROUTINE IF SO 0370 01042000 * INDICATED */ 01043000 L BLDRTADR,GTFPIBL(,PCTPTR) 0370 01044000 * ELSE 0371 01045000 * IF MCASVCF=ON THEN 0371 01046000 B @RC00369 0371 01047000 @RF00369 TM MCASVCF(AWSAPTR),B'10000000' 0371 01048000 BNO @RF00371 0371 01049000 * BLDRTADR=GTFSVCBL;/* RETRY TO SVC ROUTINE IF SO 01050000 * INDICATED */ 01051000 L BLDRTADR,GTFSVCBL(,PCTPTR) 0372 01052000 * ELSE 0373 01053000 * BLDRTADR=MCERRTRN;/* RETRY BACK TO MCER IF 0373 01054000 * UNKNOWN */ 01055000 B @RC00371 0373 01056000 @RF00371 L BLDRTADR,MCERRTRN(,R10PARM) 0373 01057000 * GEN SETS(R8WORK,R9WORK) NOEXIT SEQFLOW NOFLOWS; 0374 01058000 @RC00371 DS 0H 0374 01059000 @RC00369 DS 0H 0374 01060000 @RC00367 DS 0H 0374 01061000 @RC00365 DS 0H 0374 01062000 * /* @Y02014*/ 01063000 SETFRR D,WRKREGS=(R8WORK,R9WORK) @Y02014 01064000 * DO; /* SETRP RETADDR(FGBRRETY) 0375 01065000 * RC(SDWARETY) RETREGS(YES) */ 01066000 * RESPECIFY 0376 01067000 * (GPR00P, 0376 01068000 * GPR01P, 0376 01069000 * GPR14P, 0376 01070000 * GPR15P) RSTD; 0376 01071000 * GPR01P->SDWARCDE=SDWARETY;/* STORE RC INTO SDWA */ 01072000 MVI SDWARCDE(GPR01P),X'04' 0377 01073000 * GPR01P->SDWARTYA=ADDR(FGBRRETY);/* SAVE RETRY ADDRESS */ 01074000 ST BLDRTADR,SDWARTYA(,GPR01P) 0378 01075000 * GPR01P->SDWAUPRG='1'B;/* TURN ON RETREGS INDICATOR */ 01076000 OI SDWAUPRG(GPR01P),B'00001000' 0379 01077000 * RESPECIFY 0380 01078000 * (GPR00P, 0380 01079000 * GPR01P, 0380 01080000 * GPR14P, 0380 01081000 * GPR15P) UNRSTD; 0380 01082000 * END; /* @Y02014*/ 01083000 * RFY 0382 01084000 * RTRNAD UNRSTD; /* @Y02014*/ 01085000 * END; /* @Y02014*/ 01086000 * END; /* @Y02014*/ 01087000 @RC00349 DS 0H 0385 01088000 * GEN SETS(RTRNAD) EXIT(BR RTRNAD RETURN TO CALLER);/* @Y02014 01089000 * */ 01090000 @RC00179 DS 0H 0385 01091000 BR RTRNAD RETURN TO CALLER 01092000 * 0386 01093000 */********************************************************************/ 01094000 */* */ 01095000 */* AHLTSYFL INITIALIZATION ROUTINE */ 01096000 */* */ 01097000 */********************************************************************/ 01098000 * 0386 01099000 *AHLFLIN: 0386 01100000 * PROC OPTIONS(NOSAVEAREA, /* DEFINE PROC OPTIONS */ 01101000 * NOSAVE); /* @Y02014*/ 01102000 AHLFLIN DS 0H 0387 01103000 * RFY 0387 01104000 * RTRNREG RSTD; /* @Y02014*/ 01105000 * R10FRRAD=ADDR(AHLTFILE); /* GET ADDRESS OF FRR @Y02014*/ 01106000 LA R10FRRAD,AHLTFILE 0388 01107000 * GEN REFS(AHLTFILE) SETS(R10PARM,R8WORK,R9WORK) NOEXIT SEQFLOW 0389 01108000 * NOFLOWS; 0389 01109000 * /* @Y02014*/ 01110000 SETFRR A,FRRAD=(R10FRRAD),PARMAD=(R10PARM),WRKREGS=(R8WORK,R9WORK) 01111000 * RTRNSAV=RTRNREG; /* SAVE AHLMCERS RETURN ADDRESS 01112000 * @Y02014*/ 01113000 ST RTRNREG,RTRNSAV(,R10PARM) 0390 01114000 * MCERRTRN=RTRNREG; /* SAVE AHLMCERS RETURN ADDRESS 01115000 * @Y02014*/ 01116000 ST RTRNREG,MCERRTRN(,R10PARM) 0391 01117000 * END AHLFLIN; /* RETURN TO ROUTINE */ 01118000 @EL00002 DS 0H 0392 01119000 @EF00002 DS 0H 0392 01120000 @ER00002 BR @14 0392 01121000 * RFY 0393 01122000 * RTRNREG UNRSTD; /* @Y02014*/ 01123000 */********************************************************************/ 01124000 */* */ 01125000 */* END OF AHLTSYFL */ 01126000 */* */ 01127000 */********************************************************************/ 01128000 * 0394 01129000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01130000 * GPR00P PTR(31) REG(0), 0394 01131000 * GPR01P PTR(31) REG(1), 0394 01132000 * GPR14P PTR(31) REG(14), 0394 01133000 * GPR15P PTR(31) REG(15); 0394 01134000 * DECLARE /* COMMON VARIABLES */ 01135000 * I256C CHAR(256) BASED, 0395 01136000 * I031F FIXED(31) BASED, 0395 01137000 * I031P PTR(31) BASED, 0395 01138000 * I015F FIXED(15) BASED, 0395 01139000 * I015P PTR(15) BASED, 0395 01140000 * I008P PTR(8) BASED, 0395 01141000 * I001C CHAR(1) BASED; 0395 01142000 * 0395 01143000 */* @Y02014 */ 01144000 * 0396 01145000 *AHLTSYFN: /* @Y02014*/ 01146000 * END AHLTSYFL /* @Y02014 01147000 * */ 01148000 * 0396 01149000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01150000 */*%INCLUDE SYSLIB (GTFPCT ) */ 01151000 */*%INCLUDE SYSLIB (MCAWSA ) */ 01152000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01153000 */*%INCLUDE SYSLIB (IHALCCA ) */ 01154000 */*%INCLUDE SYSLIB (IHASDWA ) */ 01155000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01156000 */*%INCLUDE SYSLIB (CVT ) */ 01157000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 01158000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01159000 */*%INCLUDE SYSLIB (IMDMEDIT) */ 01160000 */*%INCLUDE SYSLIB (MCRWSA ) */ 01161000 */*%INCLUDE SYSLIB (IHASRB ) */ 01162000 */*%INCLUDE SYSLIB (MCQE ) */ 01163000 */*%INCLUDE SYSLIB (MCHEAD ) */ 01164000 * 0396 01165000 * ; 0396 01166000 @DATA DS 0H 01167000 @CH00064 DC H'1' 01168000 @CH00288 DC H'2' 01169000 @CH02079 DC H'50' 01170000 @DATD DSECT 01171000 DS 0F 01172000 AHLTSYFL CSECT 01173000 DS 0F 01174000 @CF02254 DC F'-1' 01175000 @CF02161 DC XL4'00100000' 01176000 @CF02163 DC XL4'00080000' 01177000 @CF02165 DC XL4'00040000' 01178000 @CF02167 DC XL4'00020000' 01179000 @DATD DSECT 01180000 DS 0D 01181000 @ENDDATD EQU * 01182000 AHLTSYFL CSECT 01183000 NOPR ((@ENDDATD-@DATD)*16) 01184000 DS 0F 01185000 @SIZDATD DC AL1(0) 01186000 DC AL3(@ENDDATD-@DATD) 01187000 DS 0D 01188000 BASEADDR DC AL4(AHLTSYFL) 01189000 @CC02235 DC C'GTF' 01190000 @CB01917 DC X'2100' 01191000 @CB01919 DC X'1000' 01192000 @CB01925 DC X'5200' 01193000 @CB01927 DC X'5100' 01194000 @CB01933 DC X'6101' 01195000 @CB01937 DC X'6200' 01196000 @CB01939 DC X'5101' 01197000 ENLSTIND DC X'FFFF' 01198000 SUFFIX DC CL4'SYFL' 01199000 RECID DC CL24'AHLTSYFLAHLTSYFLAHLTFILE' 01200000 DS CL1 01201000 SDUMPLST DS CL12 01202000 ORG SDUMPLST 01203000 @NM00095 DC AL4(SDUMPHDR) 01204000 @NM00096 DC AL4(AHLTSYFL) 01205000 @NM00097 DC XL1'80' 01206000 @NM00098 DC AL3(@ENDDATA) 01207000 ORG SDUMPLST+12 01208000 SDUMPHDR DS CL28 01209000 ORG SDUMPHDR 01210000 @NM00099 DC AL1(27) 01211000 HDRDATA DC CL27'DUMP OF GTF MODULE AHLTSYFL' 01212000 ORG SDUMPHDR+28 01213000 WTOSKELT DC CL16'SYFL FILTER ' 01214000 IOIND DC CL4'IO' 01215000 SIOIND DC CL4'SIO' 01216000 PIIND DC CL4'PI' 01217000 SVCIND DC CL4'SVC' 01218000 SIOMASK DC X'0000200000000000' 01219000 IOMASK DC X'0000400000000000' 01220000 SVCMASK DC X'0000800000000000' 01221000 PIMASK DC X'0000100000000000' 01222000 FILPTCH DC CL70'PATCH AREA' 01223000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01224000 @01 EQU 01 01225000 @02 EQU 02 01226000 @03 EQU 03 01227000 @04 EQU 04 01228000 @05 EQU 05 01229000 @06 EQU 06 01230000 @07 EQU 07 01231000 @08 EQU 08 01232000 @09 EQU 09 01233000 @10 EQU 10 01234000 @11 EQU 11 01235000 @12 EQU 12 01236000 @13 EQU 13 01237000 @14 EQU 14 01238000 @15 EQU 15 01239000 R0 EQU @00 01240000 R1 EQU @01 01241000 SDWAPTR EQU @01 01242000 PCTPTR EQU @02 01243000 AWSAPTR EQU @03 01244000 PSWPTR EQU @05 01245000 R10 EQU @10 01246000 FLTBPTR EQU @06 01247000 BLDRTADR EQU @07 01248000 BASEREG EQU @11 01249000 RTRNAD EQU @14 01250000 RTRNREG EQU @15 01251000 CHANNEL EQU @04 01252000 UNIT EQU @04 01253000 R10FRRAD EQU @10 01254000 R10PARM EQU @10 01255000 R8WORK EQU @08 01256000 R9WORK EQU @09 01257000 R15RC EQU @15 01258000 GPR00P EQU @00 01259000 GPR01P EQU @01 01260000 GPR14P EQU @14 01261000 GPR15P EQU @15 01262000 AHLPPTR EQU @01 01263000 BYTEPSN EQU @08 01264000 ENTRYREG EQU @15 01265000 MASKREG EQU @08 01266000 MOVNUM EQU @09 01267000 R4MOVE EQU @04 01268000 R5MOVE EQU @05 01269000 R9 EQU @09 01270000 ENTRY AHLFIO 01271000 ENTRY AHLFSIO 01272000 ENTRY AHLFSVC 01273000 ENTRY AHLFPI 01274000 PSA EQU 0 01275000 FLCRNPSW EQU PSA 01276000 FLCROPSW EQU PSA+8 01277000 FLCICCW2 EQU PSA+16 01278000 PSAEEPSW EQU PSA+132 01279000 PSAESPSW EQU PSA+136 01280000 FLCSVILC EQU PSAESPSW+1 01281000 FLCSVCN EQU PSAESPSW+2 01282000 PSAEPPSW EQU PSA+140 01283000 FLCPIILC EQU PSAEPPSW+1 01284000 FLCPICOD EQU PSAEPPSW+2 01285000 PSAPICOD EQU FLCPICOD+1 01286000 FLCTEA EQU PSAEPPSW+4 01287000 FLCPER EQU PSA+152 01288000 FLCMCLA EQU PSA+168 01289000 FLCIOEL EQU FLCMCLA+4 01290000 FLCIOA EQU FLCMCLA+16 01291000 FLCFSA EQU FLCMCLA+80 01292000 PSALCCAV EQU PSA+528 01293000 PSASUPER EQU PSA+552 01294000 PSASUP1 EQU PSASUPER 01295000 PSASUP2 EQU PSASUPER+1 01296000 PSASUP3 EQU PSASUPER+2 01297000 PSASUP4 EQU PSASUPER+3 01298000 PSACLHT EQU PSA+640 01299000 PSALKSA EQU PSA+696 01300000 PSAHLHI EQU PSA+760 01301000 PSADSSFL EQU PSA+836 01302000 PSADSSF1 EQU PSADSSFL 01303000 PSADSSF3 EQU PSADSSFL+2 01304000 PSADSSF4 EQU PSADSSFL+3 01305000 PSARSVT EQU PSA+896 01306000 CVTPTR EQU 16 01307000 GTFPCT EQU 0 01308000 GTFSTAT EQU GTFPCT+8 01309000 GTFDEBUG EQU GTFSTAT 01310000 GTFOPTS EQU GTFPCT+12 01311000 GTFOPTS1 EQU GTFOPTS 01312000 GTFOPTS2 EQU GTFOPTS+1 01313000 GTFOPTS3 EQU GTFOPTS+2 01314000 GTFOPTS4 EQU GTFOPTS+3 01315000 PCTCATF EQU GTFPCT+16 01316000 GTFSIOFT EQU GTFPCT+20 01317000 GTFSIOBL EQU GTFPCT+24 01318000 GTFIOFT EQU GTFPCT+28 01319000 GTFIOBL EQU GTFPCT+32 01320000 GTFSVCFT EQU GTFPCT+36 01321000 GTFSVCBL EQU GTFPCT+40 01322000 GTFPIFT EQU GTFPCT+44 01323000 GTFPIBL EQU GTFPCT+48 01324000 NEXTBLOK EQU GTFPCT+180 01325000 WRTRCOM EQU GTFPCT+204 01326000 TRMWRIT EQU GTFPCT+212 01327000 WRTRERR EQU GTFPCT+216 01328000 GTFSSRB EQU GTFPCT+220 01329000 QLOCKWRD EQU GTFPCT+236 01330000 QLOCKECB EQU GTFPCT+240 01331000 AUDITFLG EQU GTFPCT+296 01332000 PCTDMPMD EQU GTFPCT+308 01333000 PCTWTOMD EQU GTFPCT+312 01334000 MCAWSA EQU 0 01335000 MCATRAIL EQU MCAWSA+256 01336000 MCATRL1 EQU MCATRAIL 01337000 MCATRL2 EQU MCATRAIL+1 01338000 MCAERROR EQU MCATRL2 01339000 MCATRL3 EQU MCATRAIL+2 01340000 MCASVCF EQU MCATRL3 01341000 MCAIOF EQU MCATRL3 01342000 MCASIOF EQU MCATRL3 01343000 MCAPIF EQU MCATRL3 01344000 MCATRL4 EQU MCATRAIL+3 01345000 MCATRL5 EQU MCATRAIL+4 01346000 MCATRL6 EQU MCATRAIL+5 01347000 MCATRL7 EQU MCATRAIL+6 01348000 MCAMCR EQU MCAWSA+264 01349000 MCAWORK EQU MCAWSA+584 01350000 LCCA EQU 0 01351000 LCCAPGR2 EQU LCCA+72 01352000 LCCAPINT EQU LCCA+144 01353000 LCCAIHRC EQU LCCA+520 01354000 LCCAIHR1 EQU LCCAIHRC 01355000 LCCAIHR2 EQU LCCAIHRC+1 01356000 LCCAIHR3 EQU LCCAIHRC+2 01357000 LCCAIHR4 EQU LCCAIHRC+3 01358000 LCCASPIN EQU LCCA+524 01359000 LCCASPN1 EQU LCCASPIN 01360000 LCCASPN2 EQU LCCASPIN+1 01361000 LCCASPN3 EQU LCCASPIN+2 01362000 LCCASPN4 EQU LCCASPIN+3 01363000 LCCACPUS EQU LCCA+536 01364000 LCCADSF1 EQU LCCA+540 01365000 LCCADSF2 EQU LCCA+541 01366000 LCCASPSA EQU LCCA+544 01367000 LCCACRFL EQU LCCA+692 01368000 LCCACREX EQU LCCA+693 01369000 LCCALKFG EQU LCCA+694 01370000 LCCASRBF EQU LCCA+720 01371000 LCCAPTR EQU 0 01372000 SDWA EQU 0 01373000 SDWAPARM EQU SDWA 01374000 SDWAFIOB EQU SDWA+4 01375000 SDWAABCC EQU SDWAFIOB 01376000 SDWACMPF EQU SDWAABCC 01377000 SDWACTL1 EQU SDWA+8 01378000 SDWACMKA EQU SDWACTL1 01379000 SDWAMWPA EQU SDWACTL1+1 01380000 SDWAPMKA EQU SDWACTL1+4 01381000 SDWACTL2 EQU SDWA+16 01382000 SDWACMKP EQU SDWACTL2 01383000 SDWAMWPP EQU SDWACTL2+1 01384000 SDWAPMKP EQU SDWACTL2+4 01385000 SDWAGRSV EQU SDWA+24 01386000 SDWANAME EQU SDWA+88 01387000 SDWAEC1 EQU SDWA+104 01388000 SDWAEMK1 EQU SDWAEC1 01389000 SDWAMWP1 EQU SDWAEC1+1 01390000 SDWAINT1 EQU SDWAEC1+2 01391000 SDWANXT1 EQU SDWAEC1+4 01392000 SDWAAEC1 EQU SDWA+112 01393000 SDWAILC1 EQU SDWAAEC1+1 01394000 SDWAINC1 EQU SDWAAEC1+2 01395000 SDWAICD1 EQU SDWAINC1+1 01396000 SDWAEC2 EQU SDWA+120 01397000 SDWAEMK2 EQU SDWAEC2 01398000 SDWAMWP2 EQU SDWAEC2+1 01399000 SDWAINT2 EQU SDWAEC2+2 01400000 SDWANXT2 EQU SDWAEC2+4 01401000 SDWAAEC2 EQU SDWA+128 01402000 SDWAILC2 EQU SDWAAEC2+1 01403000 SDWAINC2 EQU SDWAAEC2+2 01404000 SDWAICD2 EQU SDWAINC2+1 01405000 SDWASRSV EQU SDWA+136 01406000 SDWASR14 EQU SDWASRSV+56 01407000 SDWAIDNT EQU SDWA+200 01408000 SDWAMCH EQU SDWA+204 01409000 SDWASTCK EQU SDWAMCH 01410000 SDWAMCHI EQU SDWAMCH+8 01411000 SDWAMCHS EQU SDWAMCHI 01412000 SDWAMCHD EQU SDWAMCHI+1 01413000 SDWAREGU EQU SDWAMCHD 01414000 SDWAPSWU EQU SDWAMCHD 01415000 SDWAINSF EQU SDWAMCHD 01416000 SDWARSR1 EQU SDWAMCH+12 01417000 SDWARSR2 EQU SDWAMCH+13 01418000 SDWAFLGS EQU SDWA+232 01419000 SDWAERRA EQU SDWAFLGS 01420000 SDWAMCHK EQU SDWAERRA 01421000 SDWAERRB EQU SDWAFLGS+1 01422000 SDWAERRC EQU SDWAFLGS+2 01423000 SDWAERRD EQU SDWAFLGS+3 01424000 SDWAIOFS EQU SDWA+238 01425000 SDWARTYA EQU SDWA+240 01426000 SDWACPUA EQU SDWA+248 01427000 SDWAPARQ EQU SDWA+252 01428000 SDWARCDE EQU SDWAPARQ 01429000 SDWAACF2 EQU SDWAPARQ+1 01430000 SDWARCRD EQU SDWAACF2 01431000 SDWAUPRG EQU SDWAACF2 01432000 SDWAACF3 EQU SDWAPARQ+2 01433000 SDWAACF4 EQU SDWAPARQ+3 01434000 SDWALKWA EQU SDWA+256 01435000 SDWALKWS EQU SDWALKWA 01436000 SDWARECP EQU SDWA+292 01437000 SDWASNPA EQU SDWA+320 01438000 SDWADUMP EQU SDWASNPA 01439000 SDWADPFS EQU SDWADUMP+1 01440000 SDWADDAT EQU SDWASNPA+4 01441000 SDWASDAT EQU SDWADDAT 01442000 SDWAPDAT EQU SDWADDAT+2 01443000 SDWADPSA EQU SDWA+328 01444000 SDWADPSL EQU SDWADPSA 01445000 SDWARA EQU SDWA+400 01446000 SDWADPVA EQU SDWARA+2 01447000 FRRS EQU 0 01448000 FRRSHEAD EQU FRRS 01449000 FRRSPTR EQU 0 01450000 FRRSENTR EQU 0 01451000 FRRSFLGS EQU FRRSENTR+4 01452000 FRRSFLG1 EQU FRRSFLGS 01453000 FRREPTR EQU 0 01454000 CVTMAP EQU 0 01455000 CVTDAR EQU CVTMAP+72 01456000 CVTFLGS1 EQU CVTDAR 01457000 CVTDCB EQU CVTMAP+116 01458000 CVTOPTA EQU CVTMAP+182 01459000 CVTOPTB EQU CVTMAP+183 01460000 CVTGTF EQU CVTMAP+236 01461000 CVTGTFST EQU CVTGTF 01462000 CVTGTFS EQU CVTGTFST 01463000 CVTSTATE EQU CVTGTFST 01464000 CVTTMODE EQU CVTGTFST 01465000 CVTFORM EQU CVTGTFST 01466000 CVTUSR EQU CVTGTFST 01467000 CVTAQAVT EQU CVTMAP+240 01468000 CVTTCMFG EQU CVTAQAVT 01469000 CVTVOLM2 EQU CVTMAP+244 01470000 CVTTATA EQU CVTVOLM2 01471000 CVTTSKS EQU CVTTATA 01472000 CVTVOLF2 EQU CVTTSKS 01473000 CVTTAT EQU CVTTATA+1 01474000 CVTATER EQU CVTMAP+248 01475000 CVTEXT1 EQU CVTMAP+252 01476000 CVTPURG EQU CVTMAP+260 01477000 CVTQMSG EQU CVTMAP+268 01478000 CVTDMSR EQU CVTMAP+272 01479000 CVTAPF EQU CVTMAP+324 01480000 CVTEXT2 EQU CVTMAP+328 01481000 CVTHJES EQU CVTMAP+332 01482000 CVTPGSIA EQU CVTMAP+348 01483000 CVTA1F1 EQU CVTMAP+356 01484000 CVTSYSK EQU CVTMAP+357 01485000 CVTVOLM1 EQU CVTMAP+380 01486000 CVTVOLF1 EQU CVTVOLM1 01487000 CVTATMCT EQU CVTMAP+388 01488000 CVTXTNT1 EQU 0 01489000 CVTXTNT2 EQU 0 01490000 CVTDSSV EQU CVTXTNT2 01491000 CVTRSV90 EQU CVTXTNT2+5 01492000 CVTQID EQU CVTXTNT2+24 01493000 CVTRV400 EQU CVTXTNT2+52 01494000 CVTRV409 EQU CVTXTNT2+53 01495000 CVTATCVT EQU CVTXTNT2+64 01496000 CVTRV429 EQU CVTXTNT2+84 01497000 CVTRV438 EQU CVTXTNT2+85 01498000 CVTRV457 EQU CVTXTNT2+112 01499000 CVTRV466 EQU CVTXTNT2+113 01500000 CVTFIX EQU 0 01501000 CVTRELNO EQU CVTFIX+252 01502000 WSAG EQU 0 01503000 WSAC EQU 0 01504000 WSACGTF EQU WSAC+4 01505000 ASCB EQU 0 01506000 ASCBFW1 EQU ASCB+100 01507000 ASCBRCTF EQU ASCBFW1+2 01508000 ASCBFLG1 EQU ASCBFW1+3 01509000 ASCBDSP1 EQU ASCB+114 01510000 ASCBFLG2 EQU ASCB+115 01511000 ASCBPTR EQU 0 01512000 MCRWSA EQU 0 01513000 MCROUTSA EQU MCRWSA+64 01514000 MCRMCA EQU MCRWSA+128 01515000 MCRWSAF EQU MCRWSA+132 01516000 SRBSECT EQU 0 01517000 SRB EQU SRBSECT 01518000 SRBFLC EQU SRB+12 01519000 SRBPTR EQU 0 01520000 MCQE EQU 0 01521000 MCQEAT EQU MCQE+32 01522000 MCQEFLGS EQU MCQE+41 01523000 MCHEAD EQU 0 01524000 MCHFLGS EQU MCHEAD+24 01525000 MCHFLG1 EQU MCHFLGS 01526000 MCHSETE EQU MCHEAD+28 01527000 MCHSETD EQU MCHEAD+32 01528000 IOPSW EQU 0 01529000 DEVADR EQU IOPSW+2 01530000 CHAN EQU DEVADR 01531000 IOFLTB EQU 0 01532000 DVADPTR EQU IOFLTB 01533000 FLTDVAD EQU IOFLTB+16 01534000 FRRPARM EQU 0 01535000 RTRNSAV EQU FRRPARM 01536000 MCERRTRN EQU FRRPARM+4 01537000 RTMRTRN EQU FRRPARM+8 01538000 MCQESAV EQU FRRPARM+12 01539000 SDWASAV EQU FRRPARM+16 01540000 ROUTBYTE EQU FRRPARM+20 01541000 SVCFLAG EQU ROUTBYTE 01542000 IOFLAG EQU ROUTBYTE 01543000 SIOFLAG EQU ROUTBYTE 01544000 PIFLAG EQU ROUTBYTE 01545000 DMPINDSV EQU FRRPARM+22 01546000 FGBRRETY EQU 0 01547000 ACRADDR EQU 0 01548000 DUMPMOD EQU 0 01549000 WTOMOD EQU 0 01550000 I256C EQU 0 01551000 AHLSETEV EQU 0 01552000 AHLSETD EQU 0 01553000 SEPL EQU 0 01554000 SEFG EQU SEPL 01555000 SEEN EQU SEPL+2 01556000 SENM EQU SEPL+4 01557000 SEEL EQU SEPL+12 01558000 SEMC EQU SEPL+20 01559000 I001C EQU 0 01560000 I008P EQU 0 01561000 I015F EQU 0 01562000 I015P EQU 0 01563000 I031F EQU 0 01564000 I031P EQU 0 01565000 MCERADDR EQU 0 01566000 SVPIFLTB EQU 0 01567000 PSARSVTE EQU PSARSVT 01568000 CVTS01 EQU CVTPGSIA 01569000 CVTLPDIA EQU CVTS01+12 01570000 CVTDIRST EQU CVTLPDIA 01571000 CVTSLIDA EQU CVTS01+24 01572000 CVTCTLFG EQU CVTS01+50 01573000 CVTSDBF EQU CVTS01+240 01574000 CVTSPSA EQU CVTS01+336 01575000 CVTRV210 EQU CVTS01+424 01576000 CVTRV219 EQU CVTS01+425 01577000 CVTRV228 EQU CVTS01+426 01578000 CVTRV237 EQU CVTS01+427 01579000 CVTMFRTR EQU CVTS01+452 01580000 CVTRV262 EQU CVTS01+468 01581000 CVTRV271 EQU CVTS01+469 01582000 CVTRV280 EQU CVTS01+470 01583000 CVTRV289 EQU CVTS01+471 01584000 CVTGSDA EQU CVTS01+600 01585000 LCCAPICD EQU LCCAPINT+3 01586000 SVCCODE EQU FLCSVCN+1 01587000 MCRREGS EQU MCROUTSA 01588000 MCRREG0 EQU MCRREGS 01589000 WTOPARM EQU MCAWORK 01590000 WTOFNCT EQU WTOPARM+4 01591000 DUMPIND EQU WTOPARM+14 01592000 FRREIDS EQU MCAWORK 01593000 EIDNTRY EQU FRREIDS 01594000 EIDVAL EQU EIDNTRY 01595000 FGBRADDR EQU EIDNTRY+2 01596000 SETELIST EQU MCAWORK+23 01597000 FLC EQU PSA 01598000 SDMPBIT EQU CVTSDBF 01599000 * START UNREFERENCED COMPONENTS 01600000 @NM00101 EQU WTOPARM+8 01601000 @NM00100 EQU WTOPARM 01602000 CVTTPIO EQU CVTS01+608 01603000 CVTADV EQU CVTS01+604 01604000 CVTGSDAB EQU CVTGSDA 01605000 CVTQV3 EQU CVTS01+596 01606000 CVTQV2 EQU CVTS01+592 01607000 CVTQV1 EQU CVTS01+588 01608000 CVTRPT EQU CVTS01+584 01609000 CVTSSRB EQU CVTS01+580 01610000 CVTCSDRL EQU CVTS01+576 01611000 CVTEXP1 EQU CVTS01+572 01612000 CVTRMPMT EQU CVTS01+568 01613000 CVTRMPTT EQU CVTS01+564 01614000 CVTVPSA EQU CVTS01+560 01615000 CVTVSTOP EQU CVTS01+556 01616000 CVTGTFR8 EQU CVTS01+552 01617000 CVTQUIT EQU CVTS01+548 01618000 CVTVACR EQU CVTS01+544 01619000 CVTWTCB EQU CVTS01+540 01620000 CVTSTPRS EQU CVTS01+536 01621000 CVT0PT02 EQU CVTS01+532 01622000 CVTDARCM EQU CVTS01+528 01623000 CVTIRECM EQU CVTS01+524 01624000 CVTJRECM EQU CVTS01+520 01625000 CVTVEMS0 EQU CVTS01+516 01626000 CVTSPFRR EQU CVTS01+512 01627000 CVTRLSTG EQU CVTS01+508 01628000 CVT0TC0A EQU CVTS01+504 01629000 CVTGMBR EQU CVTS01+500 01630000 CVTLFRM EQU CVTS01+496 01631000 CVTRMBR EQU CVTS01+492 01632000 CVTVIOP EQU CVTS01+488 01633000 CVTRV307 EQU CVTS01+486 01634000 CVTRV306 EQU CVTS01+484 01635000 CVTRV305 EQU CVTS01+482 01636000 CVTRV304 EQU CVTS01+480 01637000 CVTRV303 EQU CVTS01+478 01638000 CVTRV302 EQU CVTS01+476 01639000 CVTRV301 EQU CVTS01+475 01640000 CVTRV300 EQU CVTS01+474 01641000 CVTRV299 EQU CVTS01+473 01642000 CVTRV298 EQU CVTS01+472 01643000 CVTRV297 EQU CVTRV289 01644000 CVTRV296 EQU CVTRV289 01645000 CVTRV295 EQU CVTRV289 01646000 CVTRV294 EQU CVTRV289 01647000 CVTRV293 EQU CVTRV289 01648000 CVTRV292 EQU CVTRV289 01649000 CVTRV291 EQU CVTRV289 01650000 CVTRV290 EQU CVTRV289 01651000 CVTRV288 EQU CVTRV280 01652000 CVTRV287 EQU CVTRV280 01653000 CVTRV286 EQU CVTRV280 01654000 CVTRV285 EQU CVTRV280 01655000 CVTRV284 EQU CVTRV280 01656000 CVTRV283 EQU CVTRV280 01657000 CVTRV282 EQU CVTRV280 01658000 CVTRV281 EQU CVTRV280 01659000 CVTRV279 EQU CVTRV271 01660000 CVTRV278 EQU CVTRV271 01661000 CVTRV277 EQU CVTRV271 01662000 CVTRV276 EQU CVTRV271 01663000 CVTRV275 EQU CVTRV271 01664000 CVTRV274 EQU CVTRV271 01665000 CVTRV273 EQU CVTRV271 01666000 CVTRV272 EQU CVTRV271 01667000 CVTRV270 EQU CVTRV262 01668000 CVTRV269 EQU CVTRV262 01669000 CVTRV268 EQU CVTRV262 01670000 CVTRV267 EQU CVTRV262 01671000 CVTRV266 EQU CVTRV262 01672000 CVTRV265 EQU CVTRV262 01673000 CVTRV264 EQU CVTRV262 01674000 CVTRV263 EQU CVTRV262 01675000 CVTVFP EQU CVTS01+464 01676000 CVTVSI EQU CVTS01+460 01677000 CVTVPSIB EQU CVTS01+456 01678000 CVTMFACT EQU CVTMFRTR 01679000 CVTMFCTL EQU CVTS01+448 01680000 CVTPVBP EQU CVTS01+444 01681000 CVTPWI EQU CVTS01+440 01682000 CVTRV254 EQU CVTS01+438 01683000 CVTRV253 EQU CVTS01+436 01684000 CVTRV252 EQU CVTS01+434 01685000 CVTRV251 EQU CVTS01+433 01686000 CVTRV250 EQU CVTS01+432 01687000 CVTRV249 EQU CVTS01+431 01688000 CVTRV248 EQU CVTS01+430 01689000 CVTRV247 EQU CVTS01+429 01690000 CVTRV246 EQU CVTS01+428 01691000 CVTRV245 EQU CVTRV237 01692000 CVTRV244 EQU CVTRV237 01693000 CVTRV243 EQU CVTRV237 01694000 CVTRV242 EQU CVTRV237 01695000 CVTRV241 EQU CVTRV237 01696000 CVTRV240 EQU CVTRV237 01697000 CVTRV239 EQU CVTRV237 01698000 CVTRV238 EQU CVTRV237 01699000 CVTRV236 EQU CVTRV228 01700000 CVTRV235 EQU CVTRV228 01701000 CVTRV234 EQU CVTRV228 01702000 CVTRV233 EQU CVTRV228 01703000 CVTRV232 EQU CVTRV228 01704000 CVTRV231 EQU CVTRV228 01705000 CVTRV230 EQU CVTRV228 01706000 CVTRV229 EQU CVTRV228 01707000 CVTRV227 EQU CVTRV219 01708000 CVTRV226 EQU CVTRV219 01709000 CVTRV225 EQU CVTRV219 01710000 CVTRV224 EQU CVTRV219 01711000 CVTRV223 EQU CVTRV219 01712000 CVTRV222 EQU CVTRV219 01713000 CVTRV221 EQU CVTRV219 01714000 CVTRV220 EQU CVTRV219 01715000 CVTRV218 EQU CVTRV210 01716000 CVTRV217 EQU CVTRV210 01717000 CVTRV216 EQU CVTRV210 01718000 CVTRV215 EQU CVTRV210 01719000 CVTRV214 EQU CVTRV210 01720000 CVTRV213 EQU CVTRV210 01721000 CVTRV212 EQU CVTRV210 01722000 CVTRV211 EQU CVTRV210 01723000 CVTLCCAT EQU CVTS01+420 01724000 CVTPCCAT EQU CVTS01+416 01725000 CVTIPCRP EQU CVTS01+412 01726000 CVTIPCRI EQU CVTS01+408 01727000 CVTIPCDS EQU CVTS01+404 01728000 CVTAIDVT EQU CVTS01+400 01729000 CVTSSAP EQU CVTS01+396 01730000 CVTEHCIR EQU CVTS01+392 01731000 CVTEHDEF EQU CVTS01+388 01732000 CVTDAIR EQU CVTS01+384 01733000 CVTPERFM EQU CVTS01+380 01734000 CVT044R2 EQU CVTS01+376 01735000 CVTFETCH EQU CVTS01+372 01736000 CVTRSTWD EQU CVTS01+368 01737000 CVTSPOST EQU CVTS01+364 01738000 CVTIOBP EQU CVTS01+360 01739000 CVTASMVT EQU CVTS01+356 01740000 CVTRECRQ EQU CVTS01+352 01741000 CVTWSAC EQU CVTS01+348 01742000 CVTWSAG EQU CVTS01+344 01743000 CVTWSAL EQU CVTS01+340 01744000 CVTGLMN EQU CVTS01+332 01745000 CVTVEAC0 EQU CVTS01+328 01746000 CVT062R1 EQU CVTS01+324 01747000 CVTRPOST EQU CVTS01+320 01748000 CVTDQIQE EQU CVTS01+316 01749000 CVTCSD EQU CVTS01+312 01750000 CVTLKRMA EQU CVTS01+308 01751000 CVTRSPIE EQU CVTS01+304 01752000 CVTRENQ EQU CVTS01+300 01753000 CVTLQCB EQU CVTS01+296 01754000 CVTFQCB EQU CVTS01+292 01755000 CVTQCS01 EQU CVTS01+288 01756000 CVTAPFT EQU CVTS01+284 01757000 CVTPARRL EQU CVTS01+280 01758000 CVTVWAIT EQU CVTS01+276 01759000 CVTGSPL EQU CVTS01+272 01760000 CVTLSMQ EQU CVTS01+268 01761000 CVTGSMQ EQU CVTS01+264 01762000 CVTEXPRO EQU CVTS01+260 01763000 CVTOPCTP EQU CVTS01+256 01764000 CVTSIC EQU CVTS01+252 01765000 CVTTPIOS EQU CVTS01+248 01766000 CVTRTMS EQU CVTS01+244 01767000 CVTSCBP EQU CVTS01+236 01768000 CVTSDMP EQU CVTS01+232 01769000 CVTSV60 EQU CVTS01+228 01770000 CVTRTMCT EQU CVTS01+224 01771000 CVTASCBL EQU CVTS01+220 01772000 CVTASCBH EQU CVTS01+216 01773000 CVTGDA EQU CVTS01+212 01774000 CVTASVT EQU CVTS01+208 01775000 CVTVVMDI EQU CVTS01+204 01776000 CVTAQTOP EQU CVTS01+200 01777000 CVTIOSCS EQU CVTS01+196 01778000 CVTSDRM EQU CVTS01+192 01779000 CVTOPTE EQU CVTS01+188 01780000 CVTSTXU EQU CVTS01+184 01781000 CVTQUIS EQU CVTS01+180 01782000 CVTPARS EQU CVTS01+176 01783000 CVTS1EE EQU CVTS01+172 01784000 CVTFRAS EQU CVTS01+168 01785000 CVTQSAS EQU CVTS01+164 01786000 CVTCRAS EQU CVTS01+160 01787000 CVTCRMN EQU CVTS01+156 01788000 CVTDELCP EQU CVTS01+152 01789000 CVTFRECL EQU CVTS01+148 01790000 CVTGETCL EQU CVTS01+144 01791000 CVTBLDCP EQU CVTS01+140 01792000 CVTAUTHL EQU CVTS01+136 01793000 CVTSCAN EQU CVTS01+132 01794000 CVTRV144 EQU CVTS01+130 01795000 CVTMAXMP EQU CVTS01+128 01796000 CVTSTCK EQU CVTS01+124 01797000 CVTRV139 EQU CVTS01+123 01798000 CVTDSSAC EQU CVTS01+122 01799000 CVTRV513 EQU CVTS01+121 01800000 CVTIOSPL EQU CVTS01+120 01801000 CVTPTGT EQU CVTS01+116 01802000 CVTCSPIE EQU CVTS01+112 01803000 CVTSMFEX EQU CVTS01+108 01804000 CVTOLT0A EQU CVTS01+104 01805000 CVTSRBRT EQU CVTS01+100 01806000 CVTPUTL EQU CVTS01+96 01807000 CVTSYSWT EQU CVTS01+92 01808000 CVTRV327 EQU CVTS01+88 01809000 CVTRV326 EQU CVTS01+84 01810000 CVTRV325 EQU CVTS01+80 01811000 CVTRV324 EQU CVTS01+76 01812000 CVT0VL01 EQU CVTS01+72 01813000 CVTSHRVM EQU CVTS01+68 01814000 CVTRV332 EQU CVTS01+64 01815000 CVTTAS EQU CVTS01+60 01816000 CVTRSCN EQU CVTS01+56 01817000 CVTTRAC2 EQU CVTS01+54 01818000 CVTTRACE EQU CVTS01+52 01819000 CVTAPG EQU CVTS01+51 01820000 CVTSDTRC EQU CVTCTLFG 01821000 CVTGTRCE EQU CVTCTLFG 01822000 CVTNOMP EQU CVTCTLFG 01823000 CVTRSV79 EQU CVTCTLFG 01824000 CVTDSTAT EQU CVTCTLFG 01825000 CVTRSV78 EQU CVTCTLFG 01826000 CVTRV333 EQU CVTCTLFG 01827000 CVTRV323 EQU CVTCTLFG 01828000 CVTSPVLK EQU CVTS01+49 01829000 CVTRSV77 EQU CVTS01+48 01830000 CVTRV331 EQU CVTS01+44 01831000 CVTRV330 EQU CVTS01+40 01832000 CVTRV329 EQU CVTS01+36 01833000 CVTRV328 EQU CVTS01+32 01834000 CVTRV322 EQU CVTS01+28 01835000 CVTSLID EQU CVTSLIDA+1 01836000 CVTSYLK EQU CVTSLIDA 01837000 CVTRV321 EQU CVTS01+20 01838000 CVTRV320 EQU CVTS01+16 01839000 CVTLPDIR EQU CVTLPDIA+1 01840000 CVTRSV69 EQU CVTDIRST 01841000 CVTRSV68 EQU CVTDIRST 01842000 CVTRSV67 EQU CVTDIRST 01843000 CVTRSV66 EQU CVTDIRST 01844000 CVTRSV65 EQU CVTDIRST 01845000 CVTRSV64 EQU CVTDIRST 01846000 CVTRSV63 EQU CVTDIRST 01847000 CVTDICOM EQU CVTDIRST 01848000 CVTPVTP EQU CVTS01+8 01849000 CVTLPDSR EQU CVTS01+4 01850000 CVTGETL EQU CVTS01 01851000 PSARSAV EQU PSARSVTE+60 01852000 PSARSTK EQU PSARSVTE+56 01853000 PSAESAV3 EQU PSARSVTE+52 01854000 PSAESTK3 EQU PSARSVTE+48 01855000 PSAESAV2 EQU PSARSVTE+44 01856000 PSAESTK2 EQU PSARSVTE+40 01857000 PSAESAV1 EQU PSARSVTE+36 01858000 PSAESTK1 EQU PSARSVTE+32 01859000 PSAPSAV EQU PSARSVTE+28 01860000 PSAPSTK EQU PSARSVTE+24 01861000 PSAMSAV EQU PSARSVTE+20 01862000 PSAMSTK EQU PSARSVTE+16 01863000 PSASSAV EQU PSARSVTE+12 01864000 PSASSTK EQU PSARSVTE+8 01865000 PSANSTK EQU PSARSVTE+4 01866000 PSACSTK EQU PSARSVTE 01867000 SECL EQU SEPL+16 01868000 SECN EQU SEPL+3 01869000 @NM00102 EQU SEPL+1 01870000 @NM00094 EQU FRRPARM+21 01871000 @NM00093 EQU ROUTBYTE 01872000 @NM00092 EQU IOPSW 01873000 MCHEADTR EQU MCHEAD+48 01874000 MCHEADRD EQU MCHEAD+44 01875000 MCHFRRAD EQU MCHEAD+40 01876000 MCHMCER EQU MCHEAD+36 01877000 @NM00091 EQU MCHFLGS+1 01878000 @NM00090 EQU MCHFLG1 01879000 MCHTERM EQU MCHFLG1 01880000 MCHACT EQU MCHFLG1 01881000 MCHDIS EQU MCHEAD+20 01882000 MCHCTL EQU MCHEAD+16 01883000 MCHCNT EQU MCHEAD+12 01884000 MCHCUR EQU MCHEAD+8 01885000 MCHIDEN EQU MCHEAD 01886000 MCQESRB EQU MCQE+44 01887000 @NM00089 EQU MCQE+42 01888000 @NM00088 EQU MCQEFLGS 01889000 MCQEACT EQU MCQEFLGS 01890000 MCQESCHE EQU MCQE+40 01891000 MCQETECB EQU MCQE+36 01892000 MCQEMCCL EQU MCQE+28 01893000 MCQEMCEE EQU MCQE+24 01894000 MCQEMCQE EQU MCQE+20 01895000 MCQEASCB EQU MCQE+16 01896000 MCQENAME EQU MCQE+8 01897000 MCQEIDEN EQU MCQE 01898000 @NM00087 EQU SRB+40 01899000 @NM00086 EQU SRB+38 01900000 SRBPRIOR EQU SRB+37 01901000 SRBPKF EQU SRB+36 01902000 SRBSAVE EQU SRB+32 01903000 SRBPARM EQU SRB+28 01904000 SRBRMTR EQU SRB+24 01905000 SRBEP EQU SRB+20 01906000 SRBPTCB EQU SRBFLC+4 01907000 SRBPASID EQU SRBFLC+2 01908000 SRBCPAFF EQU SRBFLC 01909000 SRBASCB EQU SRB+8 01910000 SRBFLNK EQU SRB+4 01911000 SRBID EQU SRB 01912000 MCREID EQU MCRWSA+134 01913000 MCRRESV EQU MCRWSAF 01914000 MCRBRENT EQU MCRWSAF 01915000 MCERROR EQU MCRWSAF 01916000 MCINFGBR EQU MCRWSAF 01917000 MCINCTL EQU MCRWSAF 01918000 MCRMCIH EQU MCRWSA 01919000 ASCBEND EQU ASCB+208 01920000 ASCBSRBT EQU ASCB+200 01921000 ASCBSWTL EQU ASCB+196 01922000 ASCBRS14 EQU ASCB+195 01923000 ASCBSMCT EQU ASCB+194 01924000 ASCBRS12 EQU ASCB+192 01925000 ASCBPCTT EQU ASCB+188 01926000 ASCBVGTT EQU ASCB+184 01927000 ASCBLGCB EQU ASCB+180 01928000 ASCBJBNS EQU ASCB+176 01929000 ASCBJBNI EQU ASCB+172 01930000 ASCBMCC EQU ASCB+168 01931000 ASCBRTWA EQU ASCB+164 01932000 ASCBIQEA EQU ASCB+160 01933000 ASCBXMPQ EQU ASCB+156 01934000 ASCBRS01 EQU ASCB+154 01935000 ASCBFMCT EQU ASCB+152 01936000 ASCBOUXB EQU ASCB+148 01937000 ASCBOUCB EQU ASCB+144 01938000 ASCBMECB EQU ASCB+140 01939000 ASCBQECB EQU ASCB+136 01940000 ASCBCMSB EQU ASCB+132 01941000 ASCBCMSF EQU ASCB+128 01942000 ASCBTCBS EQU ASCB+124 01943000 ASCBNVSC EQU ASCB+122 01944000 ASCBVSC EQU ASCB+120 01945000 ASCBSRBS EQU ASCB+118 01946000 ASCBSSRB EQU ASCB+116 01947000 ASCBRV06 EQU ASCBFLG2 01948000 ASCBRV05 EQU ASCBFLG2 01949000 ASCBRV04 EQU ASCBFLG2 01950000 ASCBSNQS EQU ASCBFLG2 01951000 ASCBS2S EQU ASCBFLG2 01952000 ASCBCEXT EQU ASCBFLG2 01953000 ASCBPXMT EQU ASCBFLG2 01954000 ASCBXMPT EQU ASCBFLG2 01955000 ASCBRF07 EQU ASCBDSP1 01956000 ASCBRF06 EQU ASCBDSP1 01957000 ASCBRF05 EQU ASCBDSP1 01958000 ASCBRF04 EQU ASCBDSP1 01959000 ASCBRF03 EQU ASCBDSP1 01960000 ASCBRF02 EQU ASCBDSP1 01961000 ASCBFAIL EQU ASCBDSP1 01962000 ASCBNOQ EQU ASCBDSP1 01963000 ASCBSWCT EQU ASCB+112 01964000 ASCBASXB EQU ASCB+108 01965000 ASCBTMCH EQU ASCB+104 01966000 ASCBNSWP EQU ASCBFLG1 01967000 ASCBTYP1 EQU ASCBFLG1 01968000 ASCBSTND EQU ASCBFLG1 01969000 ASCBABNT EQU ASCBFLG1 01970000 ASCBTERM EQU ASCBFLG1 01971000 ASCBS3S EQU ASCBFLG1 01972000 ASCBCMSH EQU ASCBFLG1 01973000 ASCBTOFF EQU ASCBFLG1 01974000 ASCBRF01 EQU ASCBRCTF 01975000 ASCBTMLW EQU ASCBRCTF 01976000 ASCBOUT EQU ASCBRCTF 01977000 ASCBWAIT EQU ASCBRCTF 01978000 ASCBRV08 EQU ASCBRCTF 01979000 ASCBFQU EQU ASCBRCTF 01980000 ASCBFRS EQU ASCBRCTF 01981000 ASCBTMNO EQU ASCBRCTF 01982000 ASCBAFFN EQU ASCBFW1 01983000 ASCBDUMP EQU ASCB+96 01984000 ASCBQSVC EQU ASCB+92 01985000 ASCBUBET EQU ASCB+88 01986000 ASCBECB EQU ASCB+84 01987000 ASCBJSTL EQU ASCB+80 01988000 ASCBEWST EQU ASCB+72 01989000 ASCBEJST EQU ASCB+64 01990000 ASCBTSB EQU ASCB+60 01991000 ASCBCSCB EQU ASCB+56 01992000 ASCBRSM EQU ASCB+52 01993000 ASCBLDA EQU ASCB+48 01994000 ASCBSTOR EQU ASCB+44 01995000 ASCBDP EQU ASCB+43 01996000 ASCBRV07 EQU ASCB+42 01997000 ASCBIOSM EQU ASCB+40 01998000 ASCBSEQN EQU ASCB+38 01999000 ASCBASID EQU ASCB+36 02000000 ASCBCPUS EQU ASCB+32 02001000 ASCBSPL EQU ASCB+28 02002000 ASCBLSLQ EQU ASCB+24 02003000 ASCBFSLQ EQU ASCB+20 02004000 ASCBIOSP EQU ASCB+16 02005000 ASCBLOCK EQU ASCB+12 02006000 ASCBBWDP EQU ASCB+8 02007000 ASCBFWDP EQU ASCB+4 02008000 ASCBASCB EQU ASCB 02009000 ASCBEGIN EQU ASCB 02010000 WSACCCH EQU WSAC+52 02011000 WSACRRSA EQU WSAC+48 02012000 WSACREST EQU WSAC+44 02013000 WSACRSTI EQU WSAC+40 02014000 WSACABTM EQU WSAC+36 02015000 WSACMF1 EQU WSAC+32 02016000 WSACEDS0 EQU WSAC+28 02017000 WSACIOS EQU WSAC+24 02018000 WSACRTMK EQU WSAC+20 02019000 WSACACR EQU WSAC+16 02020000 WSACTIME EQU WSAC+12 02021000 WSACOPTM EQU WSAC+8 02022000 WSACCWSA EQU WSAC 02023000 WSAGSCHE EQU WSAG+40 02024000 WSAGREST EQU WSAG+36 02025000 WSAGNQDQ EQU WSAG+32 02026000 WSAGMEMT EQU WSAG+28 02027000 WSAGOPTM EQU WSAG+24 02028000 WSAGSTAT EQU WSAG+20 02029000 WSAGEMS0 EQU WSAG+16 02030000 WSAGSSRS EQU WSAG+12 02031000 WSAGRSM EQU WSAG+8 02032000 WSAGGMFM EQU WSAG+4 02033000 WSAGPGIO EQU WSAG 02034000 CVTLEVL EQU CVTRELNO+2 02035000 CVTNUMB EQU CVTRELNO 02036000 CVTMDL EQU CVTFIX+250 02037000 @NM00085 EQU CVTFIX+248 02038000 @NM00084 EQU CVTFIX 02039000 CVTRV482 EQU CVTXTNT2+128 02040000 CVTRV481 EQU CVTXTNT2+124 02041000 CVTRV480 EQU CVTXTNT2+120 02042000 CVTRV479 EQU CVTXTNT2+118 02043000 CVTRV478 EQU CVTXTNT2+117 02044000 CVTRV477 EQU CVTXTNT2+116 02045000 CVTRV476 EQU CVTXTNT2+115 02046000 CVTRV475 EQU CVTXTNT2+114 02047000 CVTRV474 EQU CVTRV466 02048000 CVTRV473 EQU CVTRV466 02049000 CVTRV472 EQU CVTRV466 02050000 CVTRV471 EQU CVTRV466 02051000 CVTRV470 EQU CVTRV466 02052000 CVTRV469 EQU CVTRV466 02053000 CVTRV468 EQU CVTRV466 02054000 CVTRV467 EQU CVTRV466 02055000 CVTRV465 EQU CVTRV457 02056000 CVTRV464 EQU CVTRV457 02057000 CVTRV463 EQU CVTRV457 02058000 CVTRV462 EQU CVTRV457 02059000 CVTRV461 EQU CVTRV457 02060000 CVTRV460 EQU CVTRV457 02061000 CVTRV459 EQU CVTRV457 02062000 CVTRV458 EQU CVTRV457 02063000 CVTRV456 EQU CVTXTNT2+108 02064000 CVTRV455 EQU CVTXTNT2+104 02065000 CVTRV454 EQU CVTXTNT2+100 02066000 CVTRV453 EQU CVTXTNT2+96 02067000 CVTRV452 EQU CVTXTNT2+94 02068000 CVTRV451 EQU CVTXTNT2+92 02069000 CVTRV450 EQU CVTXTNT2+90 02070000 CVTRV449 EQU CVTXTNT2+88 02071000 CVTRV448 EQU CVTXTNT2+87 02072000 CVTRV447 EQU CVTXTNT2+86 02073000 CVTRV446 EQU CVTRV438 02074000 CVTRV445 EQU CVTRV438 02075000 CVTRV444 EQU CVTRV438 02076000 CVTRV443 EQU CVTRV438 02077000 CVTRV442 EQU CVTRV438 02078000 CVTRV441 EQU CVTRV438 02079000 CVTRV440 EQU CVTRV438 02080000 CVTRV439 EQU CVTRV438 02081000 CVTRV437 EQU CVTRV429 02082000 CVTRV436 EQU CVTRV429 02083000 CVTRV435 EQU CVTRV429 02084000 CVTRV434 EQU CVTRV429 02085000 CVTRV433 EQU CVTRV429 02086000 CVTRV432 EQU CVTRV429 02087000 CVTRV431 EQU CVTRV429 02088000 CVTRV430 EQU CVTRV429 02089000 CVTRV428 EQU CVTXTNT2+80 02090000 CVTRV427 EQU CVTXTNT2+76 02091000 CVTRV426 EQU CVTXTNT2+72 02092000 CVTRV425 EQU CVTXTNT2+68 02093000 CVTATACT EQU CVTATCVT 02094000 CVTRV423 EQU CVTXTNT2+62 02095000 CVTRV422 EQU CVTXTNT2+60 02096000 CVTRV421 EQU CVTXTNT2+58 02097000 CVTRV420 EQU CVTXTNT2+56 02098000 CVTRV419 EQU CVTXTNT2+55 02099000 CVTRV418 EQU CVTXTNT2+54 02100000 CVTRV417 EQU CVTRV409 02101000 CVTRV416 EQU CVTRV409 02102000 CVTRV415 EQU CVTRV409 02103000 CVTRV414 EQU CVTRV409 02104000 CVTRV413 EQU CVTRV409 02105000 CVTRV412 EQU CVTRV409 02106000 CVTRV411 EQU CVTRV409 02107000 CVTRV410 EQU CVTRV409 02108000 CVTRV408 EQU CVTRV400 02109000 CVTRV407 EQU CVTRV400 02110000 CVTRV406 EQU CVTRV400 02111000 CVTRV405 EQU CVTRV400 02112000 CVTRV404 EQU CVTRV400 02113000 CVTRV403 EQU CVTRV400 02114000 CVTRV402 EQU CVTRV400 02115000 CVTRV401 EQU CVTRV400 02116000 CVTRSVA1 EQU CVTXTNT2+48 02117000 CVTRSVA0 EQU CVTXTNT2+44 02118000 CVTRSV99 EQU CVTXTNT2+40 02119000 CVTRSV98 EQU CVTXTNT2+36 02120000 CVTRSV97 EQU CVTXTNT2+34 02121000 CVTRSV96 EQU CVTXTNT2+32 02122000 CVTOLTEP EQU CVTXTNT2+28 02123000 CVTQIDA EQU CVTQID+1 02124000 CVTRSV95 EQU CVTQID 02125000 CVTRSV94 EQU CVTXTNT2+20 02126000 CVTRSV93 EQU CVTXTNT2+16 02127000 CVTRSV92 EQU CVTXTNT2+12 02128000 CVTDEBVR EQU CVTXTNT2+8 02129000 CVTRSV91 EQU CVTXTNT2+6 02130000 CVTRSV9H EQU CVTRSV90 02131000 CVTRSV9G EQU CVTRSV90 02132000 CVTRSV9F EQU CVTRSV90 02133000 CVTRSV9E EQU CVTRSV90 02134000 CVTRSV9D EQU CVTRSV90 02135000 CVTRSV9C EQU CVTRSV90 02136000 CVTRSV9B EQU CVTRSV90 02137000 CVTRSV9A EQU CVTRSV90 02138000 CVTNUCLS EQU CVTXTNT2+4 02139000 CVTDSSVA EQU CVTDSSV+1 02140000 CVTRSV89 EQU CVTDSSV 02141000 CVTRSV88 EQU CVTXTNT1+8 02142000 CVTRSV87 EQU CVTXTNT1+4 02143000 CVTFACHN EQU CVTXTNT1 02144000 CVTRV488 EQU CVTMAP+412 02145000 CVTRV487 EQU CVTMAP+408 02146000 CVTRV486 EQU CVTMAP+404 02147000 CVTRV485 EQU CVTMAP+400 02148000 CVTRV484 EQU CVTMAP+396 02149000 CVTAUTH EQU CVTMAP+392 02150000 CVTATMCA EQU CVTATMCT+1 02151000 CVTATMST EQU CVTATMCT 02152000 CVTRSV61 EQU CVTMAP+384 02153000 CVTVOLT1 EQU CVTVOLM1+1 02154000 CVTVOLI1 EQU CVTVOLF1 02155000 CVTSTOA EQU CVTMAP+376 02156000 CVTRSV58 EQU CVTMAP+374 02157000 CVTRSV57 EQU CVTMAP+372 02158000 CVTDDCE EQU CVTMAP+368 02159000 CVTPNWFR EQU CVTMAP+364 02160000 CVTSMF EQU CVTMAP+360 02161000 CVTSULK EQU CVTMAP+358 02162000 CVTSLKO EQU CVTSYSK 02163000 CVTSLKP EQU CVTSYSK 02164000 CVTSLKQ EQU CVTSYSK 02165000 CVTSLKR EQU CVTSYSK 02166000 CVTRSV56 EQU CVTSYSK 02167000 CVTRSV55 EQU CVTSYSK 02168000 CVTRSV54 EQU CVTSYSK 02169000 CVTRSV53 EQU CVTSYSK 02170000 CVTRSV52 EQU CVTA1F1 02171000 CVTRSV51 EQU CVTA1F1 02172000 CVTRSV50 EQU CVTA1F1 02173000 CVTRSV49 EQU CVTA1F1 02174000 CVTRSV48 EQU CVTA1F1 02175000 CVTRSV47 EQU CVTA1F1 02176000 CVTSRSW EQU CVTA1F1 02177000 CVTPFSW EQU CVTA1F1 02178000 CVTPCVT EQU CVTMAP+352 02179000 CVTRSV46 EQU CVTMAP+344 02180000 CVTRSV45 EQU CVTMAP+340 02181000 CVTRSV44 EQU CVTMAP+338 02182000 CVTRSV43 EQU CVTMAP+336 02183000 CVTHJESA EQU CVTHJES+1 02184000 CVTRSV42 EQU CVTHJES 02185000 CVTEXT2A EQU CVTEXT2+1 02186000 CVTRSV41 EQU CVTEXT2 02187000 CVTAPFA EQU CVTAPF+1 02188000 CVTRSV40 EQU CVTAPF 02189000 CVTINTLA EQU CVTMAP+320 02190000 CVTERPV EQU CVTMAP+316 02191000 CVTEORM EQU CVTMAP+312 02192000 CVTMCHPR EQU CVTMAP+308 02193000 CVTTZ EQU CVTMAP+304 02194000 CVTJEPS EQU CVTMAP+300 02195000 CVTJESCT EQU CVTMAP+296 02196000 CVTMODE EQU CVTMAP+292 02197000 CVTPTRV EQU CVTMAP+288 02198000 CVTREAL EQU CVTMAP+284 02199000 CVTRSV39 EQU CVTMAP+280 02200000 CVTRSV38 EQU CVTMAP+276 02201000 CVTDMSRA EQU CVTDMSR+1 02202000 CVTRSV37 EQU CVTDMSR 02203000 CVTQMSGA EQU CVTQMSG+1 02204000 CVTRSV36 EQU CVTQMSG 02205000 CVTAMFF EQU CVTMAP+264 02206000 CVTPURGA EQU CVTPURG+1 02207000 CVTRSV35 EQU CVTPURG 02208000 CVTCBSP EQU CVTMAP+256 02209000 CVTATERA EQU CVTATER+1 02210000 CVTSYST EQU CVTATER 02211000 CVTVOLT2 EQU CVTTAT 02212000 CVTVOLI2 EQU CVTVOLF2 02213000 CVTAQAVB EQU CVTAQAVT+1 02214000 CVTRSV34 EQU CVTTCMFG 02215000 CVTRSV33 EQU CVTTCMFG 02216000 CVTRSV32 EQU CVTTCMFG 02217000 CVTRSV31 EQU CVTTCMFG 02218000 CVTRSV30 EQU CVTTCMFG 02219000 CVTRSV29 EQU CVTTCMFG 02220000 CVTRSV28 EQU CVTTCMFG 02221000 CVTTCRDY EQU CVTTCMFG 02222000 CVTGTFA EQU CVTGTF+1 02223000 CVTRSV27 EQU CVTGTFST 02224000 CVTRNIO EQU CVTGTFST 02225000 CVTRV319 EQU CVTUSR 02226000 CVTRV318 EQU CVTFORM 02227000 CVTRV317 EQU CVTTMODE 02228000 CVTRV316 EQU CVTSTATE 02229000 CVTRV315 EQU CVTGTFS 02230000 CVTGTFAV EQU CVTGTFS 02231000 CVT0SCR1 EQU CVTMAP+232 02232000 CVTRV515 EQU CVTMAP+228 02233000 CVTRMS EQU CVTMAP+224 02234000 CVTPATCH EQU CVTMAP+220 02235000 CVTTSCE EQU CVTMAP+216 02236000 CVTLNKSC EQU CVTMAP+214 02237000 CVTQABST EQU CVTMAP+212 02238000 CVTMDLDS EQU CVTMAP+208 02239000 CVTUSER EQU CVTMAP+204 02240000 CVTABEND EQU CVTMAP+200 02241000 CVTSMCA EQU CVTMAP+196 02242000 CVTRSV18 EQU CVTMAP+192 02243000 CVTQLPAQ EQU CVTMAP+188 02244000 CVTQCDSR EQU CVTMAP+184 02245000 CVTRSV17 EQU CVTOPTB 02246000 CVTRSV16 EQU CVTOPTB 02247000 CVTFP EQU CVTOPTB 02248000 CVTAPTHR EQU CVTOPTB 02249000 CVTNLOG EQU CVTOPTB 02250000 CVTTOD EQU CVTOPTB 02251000 CVTCTIMS EQU CVTOPTB 02252000 CVTPROT EQU CVTOPTB 02253000 CVTXPFP EQU CVTOPTA 02254000 CVTASCII EQU CVTOPTA 02255000 CVTRSV13 EQU CVTOPTA 02256000 CVTRSV12 EQU CVTOPTA 02257000 CVTNIP EQU CVTOPTA 02258000 CVTDDR EQU CVTOPTA 02259000 CVTAPR EQU CVTOPTA 02260000 CVTCCH EQU CVTOPTA 02261000 CVTSNCTR EQU CVTMAP+180 02262000 CVTQMWR EQU CVTMAP+176 02263000 CVTQOCR EQU CVTMAP+172 02264000 CVT1EF00 EQU CVTMAP+168 02265000 CVTMZ00 EQU CVTMAP+164 02266000 CVTHEAD EQU CVTMAP+160 02267000 CVTRSV11 EQU CVTMAP+156 02268000 CVT0PT01 EQU CVTMAP+152 02269000 CVTMSER EQU CVTMAP+148 02270000 CVTIERLC EQU CVTMAP+144 02271000 CVTILCH EQU CVTMAP+140 02272000 CVT0DS EQU CVTMAP+136 02273000 CVTFBOSV EQU CVTMAP+132 02274000 CVTNUCB EQU CVTMAP+128 02275000 CVTIXAVL EQU CVTMAP+124 02276000 CVTIOQET EQU CVTMAP+120 02277000 CVTDCBA EQU CVTMAP+117 02278000 CVTMVS2 EQU CVTDCB 02279000 CVT6DAT EQU CVTDCB 02280000 CVT4MPS EQU CVTDCB 02281000 CVTRSV09 EQU CVTDCB 02282000 CVT4MS1 EQU CVTDCB 02283000 CVT2SPS EQU CVTDCB 02284000 CVT1SSS EQU CVTDCB 02285000 CVTRSV08 EQU CVTDCB 02286000 CVTSTB EQU CVTMAP+112 02287000 CVTQTD00 EQU CVTMAP+108 02288000 CVTQTE00 EQU CVTMAP+104 02289000 CVTCUCB EQU CVTMAP+100 02290000 CVTSJQ EQU CVTMAP+96 02291000 CVTPBLDL EQU CVTMAP+92 02292000 CVTTPC EQU CVTMAP+88 02293000 CVTSVDCB EQU CVTMAP+84 02294000 CVTBRET EQU CVTMAP+82 02295000 CVTEXIT EQU CVTMAP+80 02296000 CVT0FN00 EQU CVTMAP+76 02297000 CVTDARA EQU CVTDAR+1 02298000 CVTRSV07 EQU CVTFLGS1 02299000 CVTRSV06 EQU CVTFLGS1 02300000 CVTRSV05 EQU CVTFLGS1 02301000 CVTRSV04 EQU CVTFLGS1 02302000 CVTRSV03 EQU CVTFLGS1 02303000 CVTRSV02 EQU CVTFLGS1 02304000 CVTRSV01 EQU CVTFLGS1 02305000 CVTDMPLK EQU CVTFLGS1 02306000 CVTXITP EQU CVTMAP+68 02307000 CVTZDTAB EQU CVTMAP+64 02308000 CVTMSLT EQU CVTMAP+60 02309000 CVTDATE EQU CVTMAP+56 02310000 CVTBTERM EQU CVTMAP+52 02311000 CVTSYSAD EQU CVTMAP+48 02312000 CVTXTLER EQU CVTMAP+44 02313000 CVTILK2 EQU CVTMAP+40 02314000 CVTILK1 EQU CVTMAP+36 02315000 CVTPRLTV EQU CVTMAP+32 02316000 CVTPCNVT EQU CVTMAP+28 02317000 CVT0VL00 EQU CVTMAP+24 02318000 CVTXAPG EQU CVTMAP+20 02319000 CVTBUF EQU CVTMAP+16 02320000 CVTJOB EQU CVTMAP+12 02321000 CVTLINK EQU CVTMAP+8 02322000 CVT0EF00 EQU CVTMAP+4 02323000 CVTTCBP EQU CVTMAP 02324000 CVT EQU CVTMAP 02325000 FRRSPARM EQU FRRSENTR+8 02326000 @NM00083 EQU FRRSFLGS+1 02327000 @NM00082 EQU FRRSFLG1 02328000 FRRSNEST EQU FRRSFLG1 02329000 FRRSRCUR EQU FRRSFLG1 02330000 FRRSFRRA EQU FRRSENTR 02331000 FRRSENTS EQU FRRS+84 02332000 FRRSRTMW EQU FRRS+16 02333000 FRRSCURR EQU FRRSHEAD+12 02334000 FRRSELEN EQU FRRSHEAD+8 02335000 FRRSLAST EQU FRRSHEAD+4 02336000 FRRSEMP EQU FRRSHEAD 02337000 @NM00081 EQU SDWA+512 02338000 SDWAVRA EQU SDWARA+4 02339000 SDWAURAL EQU SDWARA+3 02340000 @NM00080 EQU SDWADPVA 02341000 SDWAEBC EQU SDWADPVA 02342000 SDWAHEX EQU SDWADPVA 02343000 SDWAVRAL EQU SDWARA 02344000 @NM00079 EQU SDWA+396 02345000 SDWACOMP EQU SDWA+392 02346000 SDWARCPL EQU SDWA+364 02347000 @NM00078 EQU SDWADPSA+32 02348000 SDWATO4 EQU SDWADPSL+28 02349000 SDWAFRM4 EQU SDWADPSL+24 02350000 SDWATO3 EQU SDWADPSL+20 02351000 SDWAFRM3 EQU SDWADPSL+16 02352000 SDWATO2 EQU SDWADPSL+12 02353000 SDWAFRM2 EQU SDWADPSL+8 02354000 SDWATO1 EQU SDWADPSL+4 02355000 SDWAFRM1 EQU SDWADPSL 02356000 @NM00077 EQU SDWADDAT+3 02357000 @NM00076 EQU SDWAPDAT 02358000 SDWAUSPL EQU SDWAPDAT 02359000 SDWADPSW EQU SDWAPDAT 02360000 SDWATJPA EQU SDWAPDAT 02361000 SDWATLPA EQU SDWAPDAT 02362000 SDWADREG EQU SDWAPDAT 02363000 SDWADSAH EQU SDWAPDAT 02364000 SDWADSAS EQU SDWAPDAT 02365000 @NM00075 EQU SDWADDAT+1 02366000 @NM00074 EQU SDWASDAT 02367000 SDWAQQS EQU SDWASDAT 02368000 SDWACBS EQU SDWASDAT 02369000 SDWAGTF EQU SDWASDAT 02370000 SDWASWA EQU SDWASDAT 02371000 SDWALSQA EQU SDWASDAT 02372000 SDWASQA EQU SDWASDAT 02373000 SDWANUC EQU SDWASDAT 02374000 @NM00073 EQU SDWADUMP+2 02375000 @NM00072 EQU SDWADPFS 02376000 SDWASLST EQU SDWADPFS 02377000 @NM00071 EQU SDWADPFS 02378000 SDWADLST EQU SDWADPFS 02379000 SDWADPT EQU SDWADPFS 02380000 SDWADPID EQU SDWADUMP 02381000 SDWADPLA EQU SDWA+316 02382000 SDWAREXN EQU SDWARECP+16 02383000 SDWACSCT EQU SDWARECP+8 02384000 SDWAMODN EQU SDWARECP 02385000 @NM00070 EQU SDWALKWA+32 02386000 SDWATALW EQU SDWALKWS+28 02387000 SDWATDLW EQU SDWALKWS+24 02388000 SDWATNLW EQU SDWALKWS+20 02389000 SDWAAPLW EQU SDWALKWS+16 02390000 SDWAIPLW EQU SDWALKWS+12 02391000 SDWAILLW EQU SDWALKWS+8 02392000 SDWAIULW EQU SDWALKWS+4 02393000 SDWAICLW EQU SDWALKWS 02394000 SDWAFLLK EQU SDWAACF4 02395000 SDWACMS EQU SDWAACF4 02396000 SDWAOPTM EQU SDWAACF4 02397000 SDWATADB EQU SDWAACF4 02398000 SDWATDNB EQU SDWAACF4 02399000 SDWATNCB EQU SDWAACF4 02400000 SDWAILCH EQU SDWAACF4 02401000 SDWAIUCB EQU SDWAACF4 02402000 SDWAICAT EQU SDWAACF3 02403000 SDWAIPRG EQU SDWAACF3 02404000 SDWASALL EQU SDWAACF3 02405000 SDWAASMP EQU SDWAACF3 02406000 SDWADISP EQU SDWAACF3 02407000 @NM00069 EQU SDWAACF3 02408000 @NM00068 EQU SDWAACF2 02409000 SDWAFREE EQU SDWAACF2 02410000 @NM00067 EQU SDWAACF2 02411000 SDWASPIN EQU SDWAACF2 02412000 @NM00066 EQU SDWAACF2 02413000 SDWALCPU EQU SDWACPUA+2 02414000 @NM00065 EQU SDWACPUA 02415000 SDWARECA EQU SDWA+244 02416000 @NM00064 EQU SDWA+239 02417000 @NM00063 EQU SDWAIOFS 02418000 SDWANIOP EQU SDWAIOFS 02419000 SDWANOIO EQU SDWAIOFS 02420000 SDWAIOHT EQU SDWAIOFS 02421000 SDWAIOQR EQU SDWAIOFS 02422000 SDWAFMID EQU SDWA+236 02423000 @NM00062 EQU SDWAERRD 02424000 SDWAMCIV EQU SDWAERRD 02425000 SDWARPIV EQU SDWAERRD 02426000 SDWAMABD EQU SDWAERRD 02427000 SDWACTS EQU SDWAERRD 02428000 SDWASTAE EQU SDWAERRD 02429000 SDWANRBE EQU SDWAERRD 02430000 SDWACLUP EQU SDWAERRD 02431000 @NM00061 EQU SDWAERRC 02432000 SDWAEAS EQU SDWAERRC 02433000 SDWAPERC EQU SDWAERRC 02434000 SDWAIRB EQU SDWAERRC 02435000 SDWASTAI EQU SDWAERRC 02436000 SDWASTAF EQU SDWAERRC 02437000 SDWASRBM EQU SDWAERRB 02438000 SDWALDIS EQU SDWAERRB 02439000 SDWAENRB EQU SDWAERRB 02440000 SDWATYP1 EQU SDWAERRB 02441000 @NM00060 EQU SDWAERRB 02442000 SDWAPGIO EQU SDWAERRA 02443000 SDWATEXC EQU SDWAERRA 02444000 SDWASVCE EQU SDWAERRA 02445000 SDWAABTM EQU SDWAERRA 02446000 SDWASVCD EQU SDWAERRA 02447000 SDWARKEY EQU SDWAERRA 02448000 SDWAPCHK EQU SDWAERRA 02449000 SDWATIME EQU SDWAMCH+20 02450000 SDWARFSA EQU SDWAMCH+16 02451000 @NM00059 EQU SDWAMCH+14 02452000 SDWAVEQR EQU SDWARSR2 02453000 SDWAPGFX EQU SDWARSR2 02454000 SDWAFLSQ EQU SDWARSR2 02455000 SDWAFSQA EQU SDWARSR2 02456000 SDWANUCL EQU SDWARSR2 02457000 SDWASPER EQU SDWARSR2 02458000 SDWAINTC EQU SDWARSR2 02459000 SDWAOFLN EQU SDWARSR2 02460000 SDWACHNG EQU SDWARSR1 02461000 SDWAMSER EQU SDWARSR1 02462000 @NM00058 EQU SDWARSR1 02463000 SDWACPID EQU SDWAMCH+10 02464000 SDWATERR EQU SDWAMCHD 02465000 SDWAFPRX EQU SDWAMCHD 02466000 SDWAACR EQU SDWAMCHD 02467000 SDWASCK EQU SDWAMCHD 02468000 SDWASKYF EQU SDWAMCHD 02469000 @NM00057 EQU SDWAMCHS 02470000 SDWARSRF EQU SDWAMCHS 02471000 SDWARSRC EQU SDWAMCHS 02472000 SDWAINVP EQU SDWAMCHS 02473000 SDWATSVL EQU SDWAMCHS 02474000 SDWARCDF EQU SDWAMCHS 02475000 SDWASRVL EQU SDWAMCHS 02476000 SDWASCKE EQU SDWASTCK+4 02477000 SDWASCKB EQU SDWASTCK 02478000 SDWALNTH EQU SDWAIDNT+1 02479000 SDWASPID EQU SDWAIDNT 02480000 SDWASR15 EQU SDWASRSV+60 02481000 SDWASR13 EQU SDWASRSV+52 02482000 SDWASR12 EQU SDWASRSV+48 02483000 SDWASR11 EQU SDWASRSV+44 02484000 SDWASR10 EQU SDWASRSV+40 02485000 SDWASR09 EQU SDWASRSV+36 02486000 SDWASR08 EQU SDWASRSV+32 02487000 SDWASR07 EQU SDWASRSV+28 02488000 SDWASR06 EQU SDWASRSV+24 02489000 SDWASR05 EQU SDWASRSV+20 02490000 SDWASR04 EQU SDWASRSV+16 02491000 SDWASR03 EQU SDWASRSV+12 02492000 SDWASR02 EQU SDWASRSV+8 02493000 SDWASR01 EQU SDWASRSV+4 02494000 SDWASR00 EQU SDWASRSV 02495000 SDWATRN2 EQU SDWAAEC2+4 02496000 SDWAIPC2 EQU SDWAICD2 02497000 SDWAIMC2 EQU SDWAICD2 02498000 SDWAIPR2 EQU SDWAICD2 02499000 @NM00056 EQU SDWAINC2 02500000 @NM00055 EQU SDWAILC2 02501000 SDWAIL2 EQU SDWAILC2 02502000 @NM00054 EQU SDWAILC2 02503000 @NM00053 EQU SDWAAEC2 02504000 SDWAADD2 EQU SDWANXT2+1 02505000 @NM00052 EQU SDWANXT2 02506000 @NM00051 EQU SDWAEC2+3 02507000 SDWASGN2 EQU SDWAINT2 02508000 SDWAEXP2 EQU SDWAINT2 02509000 SDWADEC2 EQU SDWAINT2 02510000 SDWAFPO2 EQU SDWAINT2 02511000 SDWACC2 EQU SDWAINT2 02512000 @NM00050 EQU SDWAINT2 02513000 SDWAPGM2 EQU SDWAMWP2 02514000 SDWAWAT2 EQU SDWAMWP2 02515000 SDWAMCK2 EQU SDWAMWP2 02516000 SDWAECT2 EQU SDWAMWP2 02517000 SDWAKEY2 EQU SDWAMWP2 02518000 SDWAEXT2 EQU SDWAEMK2 02519000 SDWAIO2 EQU SDWAEMK2 02520000 SDWATRM2 EQU SDWAEMK2 02521000 @NM00049 EQU SDWAEMK2 02522000 SDWAPER2 EQU SDWAEMK2 02523000 @NM00048 EQU SDWAEMK2 02524000 SDWATRAN EQU SDWAAEC1+4 02525000 SDWAIPC1 EQU SDWAICD1 02526000 SDWAIMC1 EQU SDWAICD1 02527000 SDWAIPR1 EQU SDWAICD1 02528000 @NM00047 EQU SDWAINC1 02529000 @NM00046 EQU SDWAILC1 02530000 SDWAIL1 EQU SDWAILC1 02531000 @NM00045 EQU SDWAILC1 02532000 @NM00044 EQU SDWAAEC1 02533000 SDWAADD1 EQU SDWANXT1+1 02534000 @NM00043 EQU SDWANXT1 02535000 @NM00042 EQU SDWAEC1+3 02536000 SDWASGN1 EQU SDWAINT1 02537000 SDWAEXP1 EQU SDWAINT1 02538000 SDWADEC1 EQU SDWAINT1 02539000 SDWAFPO1 EQU SDWAINT1 02540000 SDWACC1 EQU SDWAINT1 02541000 @NM00041 EQU SDWAINT1 02542000 SDWAPGM1 EQU SDWAMWP1 02543000 SDWAWAT1 EQU SDWAMWP1 02544000 SDWAMCK1 EQU SDWAMWP1 02545000 SDWAECT1 EQU SDWAMWP1 02546000 SDWAKEY1 EQU SDWAMWP1 02547000 SDWAEXT1 EQU SDWAEMK1 02548000 SDWAIO1 EQU SDWAEMK1 02549000 SDWATRM1 EQU SDWAEMK1 02550000 @NM00040 EQU SDWAEMK1 02551000 SDWAPER1 EQU SDWAEMK1 02552000 @NM00039 EQU SDWAEMK1 02553000 SDWAIOBR EQU SDWA+100 02554000 SDWAEPA EQU SDWA+96 02555000 @NM00038 EQU SDWANAME+4 02556000 SDWARBAD EQU SDWANAME 02557000 SDWAGR15 EQU SDWAGRSV+60 02558000 SDWAGR14 EQU SDWAGRSV+56 02559000 SDWAGR13 EQU SDWAGRSV+52 02560000 SDWAGR12 EQU SDWAGRSV+48 02561000 SDWAGR11 EQU SDWAGRSV+44 02562000 SDWAGR10 EQU SDWAGRSV+40 02563000 SDWAGR09 EQU SDWAGRSV+36 02564000 SDWAGR08 EQU SDWAGRSV+32 02565000 SDWAGR07 EQU SDWAGRSV+28 02566000 SDWAGR06 EQU SDWAGRSV+24 02567000 SDWAGR05 EQU SDWAGRSV+20 02568000 SDWAGR04 EQU SDWAGRSV+16 02569000 SDWAGR03 EQU SDWAGRSV+12 02570000 SDWAGR02 EQU SDWAGRSV+8 02571000 SDWAGR01 EQU SDWAGRSV+4 02572000 SDWAGR00 EQU SDWAGRSV 02573000 SDWANXTP EQU SDWACTL2+5 02574000 SDWASGP EQU SDWAPMKP 02575000 SDWAEUP EQU SDWAPMKP 02576000 SDWADOP EQU SDWAPMKP 02577000 SDWAFPP EQU SDWAPMKP 02578000 SDWACCP EQU SDWAPMKP 02579000 SDWAILP EQU SDWAPMKP 02580000 SDWAINTP EQU SDWACTL2+2 02581000 SDWASPVP EQU SDWAMWPP 02582000 SDWAWATP EQU SDWAMWPP 02583000 SDWAMCKP EQU SDWAMWPP 02584000 @NM00037 EQU SDWAMWPP 02585000 SDWAKEYP EQU SDWAMWPP 02586000 SDWAEXTP EQU SDWACMKP 02587000 SDWAIOP EQU SDWACMKP 02588000 SDWANXTA EQU SDWACTL1+5 02589000 SDWASGA EQU SDWAPMKA 02590000 SDWAEUA EQU SDWAPMKA 02591000 SDWADOA EQU SDWAPMKA 02592000 SDWAFPA EQU SDWAPMKA 02593000 SDWACCA EQU SDWAPMKA 02594000 SDWAILA EQU SDWAPMKA 02595000 SDWAINTA EQU SDWACTL1+2 02596000 SDWASPVA EQU SDWAMWPA 02597000 SDWAWATA EQU SDWAMWPA 02598000 SDWAMCKA EQU SDWAMWPA 02599000 @NM00036 EQU SDWAMWPA 02600000 SDWAKEYA EQU SDWAMWPA 02601000 SDWAEXTA EQU SDWACMKA 02602000 SDWAIOA EQU SDWACMKA 02603000 SDWACMPC EQU SDWAABCC+1 02604000 @NM00035 EQU SDWACMPF 02605000 SDWASTCC EQU SDWACMPF 02606000 @NM00034 EQU SDWACMPF 02607000 SDWASTEP EQU SDWACMPF 02608000 SDWAREQ EQU SDWACMPF 02609000 LCCAR125 EQU LCCA+964 02610000 LCCAR124 EQU LCCA+960 02611000 LCCAR123 EQU LCCA+956 02612000 LCCAR122 EQU LCCA+952 02613000 LCCAR121 EQU LCCA+948 02614000 LCCAR120 EQU LCCA+944 02615000 LCCAR119 EQU LCCA+940 02616000 LCCAR118 EQU LCCA+936 02617000 LCCAR117 EQU LCCA+932 02618000 LCCAR116 EQU LCCA+928 02619000 LCCAR115 EQU LCCA+924 02620000 LCCAR114 EQU LCCA+920 02621000 LCCAR113 EQU LCCA+916 02622000 LCCAR112 EQU LCCA+912 02623000 LCCAR111 EQU LCCA+908 02624000 LCCAR110 EQU LCCA+904 02625000 LCCAR109 EQU LCCA+900 02626000 LCCAR108 EQU LCCA+896 02627000 LCCADRT2 EQU LCCA+888 02628000 LCCADRT1 EQU LCCA+880 02629000 LCCAR103 EQU LCCA+876 02630000 LCCAESS2 EQU LCCA+872 02631000 LCCASPLJ EQU LCCA+868 02632000 LCCASMQJ EQU LCCA+864 02633000 LCCAIRT EQU LCCA+736 02634000 LCCARV90 EQU LCCA+732 02635000 LCCARV89 EQU LCCA+728 02636000 LCCAPGTA EQU LCCASRBF+2 02637000 LCCASAFN EQU LCCASRBF 02638000 LCCAECSA EQU LCCA+716 02639000 LCCAICR0 EQU LCCA+712 02640000 LCCALWTM EQU LCCA+704 02641000 LCCARV78 EQU LCCA+700 02642000 LCCAPINV EQU LCCA+696 02643000 LCCARV88 EQU LCCA+695 02644000 LCCARV87 EQU LCCALKFG 02645000 LCCARV86 EQU LCCALKFG 02646000 LCCARV85 EQU LCCALKFG 02647000 LCCARV84 EQU LCCALKFG 02648000 LCCALKRD EQU LCCALKFG 02649000 LCCALKAQ EQU LCCALKFG 02650000 LCCALKSA EQU LCCALKFG 02651000 LCCALKDP EQU LCCALKFG 02652000 LCCACRST EQU LCCACREX 02653000 LCCACRDP EQU LCCACREX 02654000 LCCACRLM EQU LCCACREX 02655000 LCCACRIN EQU LCCACREX 02656000 LCCACRRT EQU LCCACREX 02657000 LCCACRLE EQU LCCACREX 02658000 LCCACRRM EQU LCCACREX 02659000 LCCACREF EQU LCCACREX 02660000 LCCAVARY EQU LCCACRFL 02661000 LCCARV73 EQU LCCACRFL 02662000 LCCARV72 EQU LCCACRFL 02663000 LCCARV71 EQU LCCACRFL 02664000 LCCARV70 EQU LCCACRFL 02665000 LCCARV69 EQU LCCACRFL 02666000 LCCACLMS EQU LCCACRFL 02667000 LCCACRTM EQU LCCACRFL 02668000 LCCALCR0 EQU LCCA+688 02669000 LCCACRLC EQU LCCA+684 02670000 LCCARCPU EQU LCCA+680 02671000 LCCADCPU EQU LCCA+676 02672000 LCCASRBJ EQU LCCA+672 02673000 LCCADSSR EQU LCCA+668 02674000 LCCADSSC EQU LCCA+660 02675000 LCCADSS3 EQU LCCA+648 02676000 LCCADSS2 EQU LCCA+636 02677000 LCCADSS1 EQU LCCA+624 02678000 LCCAWTIM EQU LCCA+616 02679000 LCCAITOD EQU LCCA+608 02680000 LCCADTOD EQU LCCA+600 02681000 LCCASTOD EQU LCCA+592 02682000 LCCARIR5 EQU LCCASPSA+44 02683000 LCCARIR4 EQU LCCASPSA+40 02684000 LCCARIR3 EQU LCCASPSA+36 02685000 LCCARIR2 EQU LCCASPSA+32 02686000 LCCARPR5 EQU LCCASPSA+28 02687000 LCCARPR4 EQU LCCASPSA+24 02688000 LCCARPR3 EQU LCCASPSA+20 02689000 LCCARPR2 EQU LCCASPSA+16 02690000 LCCADSR5 EQU LCCASPSA+12 02691000 LCCADSR4 EQU LCCASPSA+8 02692000 LCCADSR3 EQU LCCASPSA+4 02693000 LCCADSR2 EQU LCCASPSA 02694000 LCCARV68 EQU LCCA+543 02695000 LCCAPSMK EQU LCCA+542 02696000 LCCARV67 EQU LCCADSF2 02697000 LCCARV66 EQU LCCADSF2 02698000 LCCARV65 EQU LCCADSF2 02699000 LCCARV64 EQU LCCADSF2 02700000 LCCADSRW EQU LCCADSF2 02701000 LCCADSPL EQU LCCADSF2 02702000 LCCAGSRB EQU LCCADSF2 02703000 LCCASRBM EQU LCCADSF2 02704000 LCCARV61 EQU LCCADSF1 02705000 LCCARV60 EQU LCCADSF1 02706000 LCCARV59 EQU LCCADSF1 02707000 LCCARV58 EQU LCCADSF1 02708000 LCCATIMR EQU LCCADSF1 02709000 LCCADSS EQU LCCADSF1 02710000 LCCAVCPU EQU LCCADSF1 02711000 LCCAACR EQU LCCADSF1 02712000 LCCAASCP EQU LCCA+532 02713000 LCCAESSA EQU LCCA+528 02714000 LCCARV55 EQU LCCASPN4 02715000 LCCARV54 EQU LCCASPN4 02716000 LCCARV53 EQU LCCASPN4 02717000 LCCARV52 EQU LCCASPN4 02718000 LCCARV51 EQU LCCASPN4 02719000 LCCARV50 EQU LCCASPN4 02720000 LCCARV49 EQU LCCASPN4 02721000 LCCARV48 EQU LCCASPN4 02722000 LCCARV47 EQU LCCASPN3 02723000 LCCARV46 EQU LCCASPN3 02724000 LCCARV45 EQU LCCASPN3 02725000 LCCARV44 EQU LCCASPN3 02726000 LCCARV43 EQU LCCASPN3 02727000 LCCARV42 EQU LCCASPN3 02728000 LCCARV41 EQU LCCASPN3 02729000 LCCARV40 EQU LCCASPN3 02730000 LCCARV39 EQU LCCASPN2 02731000 LCCARV38 EQU LCCASPN2 02732000 LCCARV37 EQU LCCASPN2 02733000 LCCARV36 EQU LCCASPN2 02734000 LCCARV35 EQU LCCASPN2 02735000 LCCARV34 EQU LCCASPN2 02736000 LCCARV33 EQU LCCASPN2 02737000 LCCARV32 EQU LCCASPN2 02738000 LCCARV31 EQU LCCASPN1 02739000 LCCARV30 EQU LCCASPN1 02740000 LCCAMFIO EQU LCCASPN1 02741000 LCCARSTR EQU LCCASPN1 02742000 LCCATSPN EQU LCCASPN1 02743000 LCCALOCK EQU LCCASPN1 02744000 LCCASIGP EQU LCCASPN1 02745000 LCCAPTLB EQU LCCASPN1 02746000 LCCARV27 EQU LCCAIHR4 02747000 LCCARV26 EQU LCCAIHR4 02748000 LCCARV25 EQU LCCAIHR4 02749000 LCCARV24 EQU LCCAIHR4 02750000 LCCARV23 EQU LCCAIHR4 02751000 LCCARV22 EQU LCCAIHR4 02752000 LCCARV21 EQU LCCAIHR4 02753000 LCCARV20 EQU LCCAIHR4 02754000 LCCARV19 EQU LCCAIHR3 02755000 LCCARV18 EQU LCCAIHR3 02756000 LCCARV17 EQU LCCAIHR3 02757000 LCCARV16 EQU LCCAIHR3 02758000 LCCARV15 EQU LCCAIHR3 02759000 LCCARV14 EQU LCCAIHR3 02760000 LCCARV13 EQU LCCAIHR3 02761000 LCCARV12 EQU LCCAIHR3 02762000 LCCARV11 EQU LCCAIHR2 02763000 LCCARV10 EQU LCCAIHR2 02764000 LCCARV09 EQU LCCAIHR2 02765000 LCCARV08 EQU LCCAIHR2 02766000 LCCARV07 EQU LCCAIHR2 02767000 LCCARV06 EQU LCCAIHR2 02768000 LCCARV05 EQU LCCAIHR2 02769000 LCCARV04 EQU LCCAIHR2 02770000 LCCARV03 EQU LCCAIHR1 02771000 LCCARV02 EQU LCCAIHR1 02772000 LCCARV01 EQU LCCAIHR1 02773000 LCCAPPIE EQU LCCAIHR1 02774000 LCCAPSG1 EQU LCCAIHR1 02775000 LCCAPDAT EQU LCCAIHR1 02776000 LCCAXRC2 EQU LCCAIHR1 02777000 LCCAXRC1 EQU LCCAIHR1 02778000 LCCAIOPS EQU LCCA+512 02779000 LCCAGPGR EQU LCCA+448 02780000 LCCARSFP EQU LCCA+416 02781000 LCCARSGR EQU LCCA+352 02782000 LCCAXGR3 EQU LCCA+288 02783000 LCCAXGR2 EQU LCCA+224 02784000 LCCAXGR1 EQU LCCA+160 02785000 LCCACR0 EQU LCCA+156 02786000 LCCAMCR1 EQU LCCA+152 02787000 LCCAPVAD EQU LCCA+148 02788000 LCCAPPSW EQU LCCA+136 02789000 LCCAPGR1 EQU LCCA+8 02790000 LCCARV77 EQU LCCA+6 02791000 LCCACPUA EQU LCCA+4 02792000 LCCALCCA EQU LCCA 02793000 MCASWORK EQU MCAWSA+644 02794000 MCAREC EQU MCAWSA+284 02795000 MCARECPR EQU MCAWSA+268 02796000 MCATRL8 EQU MCATRAIL+7 02797000 MCAFRECT EQU MCATRL7 02798000 MCAFRECC EQU MCATRL7 02799000 MCAFRESP EQU MCATRL7 02800000 MCAFREXJ EQU MCATRL7 02801000 MCAFRSBR EQU MCATRL6 02802000 MCAFRDMJ EQU MCATRL6 02803000 MCAFRDPC EQU MCATRL6 02804000 MCAFRPIC EQU MCATRL6 02805000 MCAFRPIJ EQU MCATRL6 02806000 @NM00009 EQU MCATRL5 02807000 MCADREGS EQU MCATRL5 02808000 MCAFRRB EQU MCATRL5 02809000 MCAFRRJ EQU MCATRL5 02810000 MCAFRRA EQU MCATRL5 02811000 MCAFRERT EQU MCATRL5 02812000 MCAFREPC EQU MCATRL5 02813000 MCAMJOBN EQU MCATRL4 02814000 MCAMSDWA EQU MCATRL4 02815000 MCAMBTU EQU MCATRL4 02816000 MCAMIOSB EQU MCATRL4 02817000 MCAMTCB EQU MCATRL4 02818000 MCAMASCB EQU MCATRL4 02819000 MCAMUCB EQU MCATRL4 02820000 MCAMEXT EQU MCATRL4 02821000 MCAFRFRT EQU MCATRL3 02822000 MCAFRFA EQU MCATRL3 02823000 MCAFRSJ EQU MCATRL3 02824000 MCAFRSA EQU MCATRL3 02825000 MCATDIR EQU MCATRL2 02826000 MCALSR EQU MCATRL2 02827000 MCAUIO EQU MCATRL2 02828000 MCASTA EQU MCATRL2 02829000 MCAFRR EQU MCATRL2 02830000 MCASRM EQU MCATRL2 02831000 MCARNIO EQU MCATRL2 02832000 MCAUSR EQU MCATRL1 02833000 MCAPI EQU MCATRL1 02834000 MCASRB EQU MCATRL1 02835000 MCADSP EQU MCATRL1 02836000 MCASIO EQU MCATRL1 02837000 MCAIO EQU MCATRL1 02838000 MCAEXT EQU MCATRL1 02839000 MCASVC EQU MCATRL1 02840000 MCAMSG EQU MCAWSA+192 02841000 MCASETEV EQU MCAWSA+128 02842000 MCAFWORK EQU MCAWSA+112 02843000 MCASFEOB EQU MCAWSA+56 02844000 MCASBLOK EQU MCAWSA 02845000 TRANSMAX EQU GTFPCT+304 02846000 GTFASCB EQU GTFPCT+300 02847000 @NM00008 EQU AUDITFLG+3 02848000 AFSLEBLD EQU AUDITFLG+3 02849000 WSERFG06 EQU AUDITFLG+3 02850000 WSERFG05 EQU AUDITFLG+3 02851000 WSERFG04 EQU AUDITFLG+3 02852000 WSERFG03 EQU AUDITFLG+3 02853000 WSERFG02 EQU AUDITFLG+2 02854000 WSERFLAG EQU AUDITFLG+2 02855000 TERMFLAG EQU AUDITFLG+2 02856000 AFXWRIT EQU AUDITFLG+2 02857000 AFQLWAIT EQU AUDITFLG+2 02858000 AFSLEGET EQU AUDITFLG+2 02859000 AFBUFGET EQU AUDITFLG+2 02860000 AFFEOB EQU AUDITFLG+2 02861000 AFBLKFIX EQU AUDITFLG+1 02862000 AFEQFIX EQU AUDITFLG+1 02863000 AFPGRLSE EQU AUDITFLG+1 02864000 AFWRAP EQU AUDITFLG+1 02865000 AFBUFOFF EQU AUDITFLG+1 02866000 AFLDFX EQU AUDITFLG+1 02867000 AFCLOSE EQU AUDITFLG+1 02868000 AFOPEN EQU AUDITFLG+1 02869000 AFGMBLOK EQU AUDITFLG 02870000 AFGMSRB EQU AUDITFLG 02871000 AFWAIT EQU AUDITFLG 02872000 AFTERM EQU AUDITFLG 02873000 AFINIT EQU AUDITFLG 02874000 AFWWRIT EQU AUDITFLG 02875000 AFCWRIT EQU AUDITFLG 02876000 AFIWRIT EQU AUDITFLG 02877000 EQSHORT EQU GTFPCT+292 02878000 SLEMAX EQU GTFPCT+288 02879000 SLECNT EQU GTFPCT+284 02880000 RQPURGE EQU GTFPCT+280 02881000 RQTOTAL EQU GTFPCT+276 02882000 WRTDLST EQU GTFPCT+272 02883000 NUMOFBUF EQU GTFPCT+268 02884000 SBUFDISA EQU GTFPCT+264 02885000 SLESUSED EQU GTFPCT+260 02886000 EQMIN EQU GTFPCT+256 02887000 EQLENGTH EQU GTFPCT+252 02888000 WQMAX EQU GTFPCT+248 02889000 WQLENGTH EQU GTFPCT+244 02890000 QLECBP EQU QLOCKECB 02891000 @NM00007 EQU QLOCKECB 02892000 @NM00006 EQU QLOCKWRD+3 02893000 SCHEDBUF EQU QLOCKWRD+2 02894000 POSTWRIT EQU QLOCKWRD+1 02895000 QLOCK EQU QLOCKWRD 02896000 WRITERDD EQU GTFPCT+228 02897000 GTFLOSTR EQU GTFPCT+224 02898000 SRBAVAIL EQU GTFSSRB 02899000 WRTRERRP EQU WRTRERR 02900000 @NM00005 EQU WRTRERR 02901000 TRMWRITP EQU TRMWRIT 02902000 @NM00004 EQU TRMWRIT 02903000 GTFCMECB EQU GTFPCT+208 02904000 WRTRCOMP EQU WRTRCOM 02905000 @NM00003 EQU WRTRCOM 02906000 TRANSCNT EQU GTFPCT+200 02907000 AHLRDPLQ EQU GTFPCT+196 02908000 SFEOBRTN EQU GTFPCT+192 02909000 SBLOKRTN EQU GTFPCT+188 02910000 CURRBLOK EQU GTFPCT+184 02911000 GBCDS EQU NEXTBLOK 02912000 WSMODEND EQU GTFPCT+176 02913000 WSMODBEG EQU GTFPCT+172 02914000 BCBPAGE EQU GTFPCT+156 02915000 SLEPAGE EQU GTFPCT+152 02916000 SAVECNT EQU GTFPCT+148 02917000 SLQHEAD EQU GTFPCT+144 02918000 HQLENGTH EQU GTFPCT+140 02919000 QTAIL EQU GTFPCT+136 02920000 HQHEAD EQU GTFPCT+132 02921000 WQHEAD EQU GTFPCT+128 02922000 RQHEAD EQU GTFPCT+124 02923000 EQHEAD EQU GTFPCT+120 02924000 WPOSTSRB EQU GTFPCT+116 02925000 WTSKTCBA EQU GTFPCT+112 02926000 WRTRTCBA EQU GTFPCT+108 02927000 TRMWTASK EQU GTFPCT+104 02928000 WTSKATTH EQU GTFPCT+100 02929000 WTSKINIT EQU GTFPCT+96 02930000 WTASKECB EQU GTFPCT+92 02931000 WMTABPTR EQU GTFPCT+88 02932000 ATTCHECB EQU GTFPCT+84 02933000 AHLECB EQU GTFPCT+80 02934000 STOPECBA EQU GTFPCT+76 02935000 ECBADRLT EQU GTFPCT+72 02936000 FIXLEN EQU GTFPCT+68 02937000 FIXPTR EQU GTFPCT+64 02938000 INITPTR EQU GTFPCT+60 02939000 MCQEPTR EQU GTFPCT+56 02940000 GTFEIDL EQU GTFPCT+52 02941000 @NM00002 EQU PCTCATF+1 02942000 PCTPIF EQU PCTCATF+1 02943000 PCTSIOF EQU PCTCATF+1 02944000 PCTIOF EQU PCTCATF+1 02945000 PCTSVCF EQU PCTCATF+1 02946000 PCTRR EQU PCTCATF+1 02947000 PCTSRM EQU PCTCATF+1 02948000 PCTRNIO EQU PCTCATF+1 02949000 PCTUSR EQU PCTCATF 02950000 PCTPI EQU PCTCATF 02951000 @NM00001 EQU PCTCATF 02952000 PCTDSP EQU PCTCATF 02953000 PCTSIO EQU PCTCATF 02954000 PCTIO EQU PCTCATF 02955000 PCTEXT EQU PCTCATF 02956000 PCTSVC EQU PCTCATF 02957000 OPTTIME EQU GTFOPTS4 02958000 OPTRES3 EQU GTFOPTS4 02959000 OPTIOSIO EQU GTFOPTS3 02960000 OPTRES2 EQU GTFOPTS3 02961000 OPTRR EQU GTFOPTS3 02962000 OPTSRM EQU GTFOPTS3 02963000 OPTRNIO EQU GTFOPTS3 02964000 OPTEXT EQU GTFOPTS3 02965000 OPTIOP EQU GTFOPTS2 02966000 OPTIO EQU GTFOPTS2 02967000 OPTPIP EQU GTFOPTS2 02968000 OPTPI EQU GTFOPTS2 02969000 OPTSIOP EQU GTFOPTS2 02970000 OPTSIO EQU GTFOPTS2 02971000 OPTSVCP EQU GTFOPTS2 02972000 OPTSVC EQU GTFOPTS2 02973000 OPTPCI EQU GTFOPTS1 02974000 OPTRES1 EQU GTFOPTS1 02975000 OPTDSP EQU GTFOPTS1 02976000 OPTTRC EQU GTFOPTS1 02977000 OPTUSR EQU GTFOPTS1 02978000 OPTSYS EQU GTFOPTS1 02979000 OPTSYSP EQU GTFOPTS1 02980000 OPTSYSM EQU GTFOPTS1 02981000 GTFRESV EQU GTFSTAT 02982000 GTFMODE EQU GTFSTAT 02983000 GTFPCTID EQU GTFPCT 02984000 @NM00033 EQU PSA+3412 02985000 PSASTAK EQU PSA+3072 02986000 @NM00032 EQU PSA+1032 02987000 PSAUSEND EQU PSA+1032 02988000 PSAPCPSW EQU PSA+1024 02989000 PSARV060 EQU PSA+1020 02990000 PSARV059 EQU PSA+1018 02991000 PSASVC13 EQU PSA+1016 02992000 PSALSFCC EQU PSA+1012 02993000 PSASFACC EQU PSA+1008 02994000 PSASTOP EQU PSA+992 02995000 PSASTART EQU PSA+976 02996000 PSARSPSW EQU PSA+968 02997000 PSASRPSW EQU PSA+960 02998000 PSARV045 EQU PSA+892 02999000 PSARV044 EQU PSA+888 03000000 PSARV043 EQU PSA+884 03001000 PSARV042 EQU PSA+880 03002000 PSARV041 EQU PSA+876 03003000 PSARV040 EQU PSA+872 03004000 PSARV025 EQU PSA+868 03005000 PSADSSED EQU PSA+868 03006000 PSADSSPR EQU PSA+864 03007000 PSADSSFW EQU PSA+860 03008000 PSADSS14 EQU PSA+856 03009000 PSADSSPP EQU PSA+848 03010000 PSADSSRP EQU PSA+840 03011000 PSADSS05 EQU PSADSSF4 03012000 PSADSS10 EQU PSADSSF4 03013000 PSADSSVE EQU PSADSSF4 03014000 PSADSSDE EQU PSADSSF4 03015000 PSADSSC0 EQU PSADSSF4 03016000 PSADSSIE EQU PSADSSF4 03017000 PSADSS12 EQU PSADSSF4 03018000 PSADSSRC EQU PSADSSF4 03019000 PSARV057 EQU PSADSSF3 03020000 PSARV056 EQU PSADSSF3 03021000 PSARV055 EQU PSADSSF3 03022000 PSARV054 EQU PSADSSF3 03023000 PSADSSRW EQU PSADSSF3 03024000 PSADSSNM EQU PSADSSF3 03025000 PSADSSES EQU PSADSSF3 03026000 PSADSSGP EQU PSADSSF3 03027000 PSADSSF2 EQU PSADSSFL+1 03028000 PSADSSPI EQU PSADSSF1 03029000 PSADSSOI EQU PSADSSF1 03030000 PSADSSSP EQU PSADSSF1 03031000 PSADSSTP EQU PSADSSF1 03032000 PSADSSDW EQU PSADSSF1 03033000 PSADSSDD EQU PSADSSF1 03034000 PSADSSDM EQU PSADSSF1 03035000 PSADSSMV EQU PSADSSF1 03036000 PSADSSTS EQU PSA+816 03037000 PSADSSWK EQU PSA+812 03038000 PSADSSR3 EQU PSA+808 03039000 PSADSSR2 EQU PSA+804 03040000 PSADSSRS EQU PSA+800 03041000 PSASTOR EQU PSA+796 03042000 PSARV058 EQU PSA+794 03043000 PSAVSTAP EQU PSA+792 03044000 PSAWKVAP EQU PSA+788 03045000 PSAWKRAP EQU PSA+784 03046000 PSAMCHIC EQU PSA+783 03047000 PSAMODE EQU PSA+782 03048000 PSASYMSK EQU PSA+781 03049000 PSAMCHFL EQU PSA+780 03050000 PSACR0 EQU PSA+776 03051000 PSAPSWSV EQU PSA+768 03052000 PSALITA EQU PSA+764 03053000 PSACLHS EQU PSAHLHI 03054000 PSALKR15 EQU PSALKSA+60 03055000 PSALKR14 EQU PSALKSA+56 03056000 PSALKR13 EQU PSALKSA+52 03057000 PSALKR12 EQU PSALKSA+48 03058000 PSALKR11 EQU PSALKSA+44 03059000 PSALKR10 EQU PSALKSA+40 03060000 PSALKR9 EQU PSALKSA+36 03061000 PSALKR8 EQU PSALKSA+32 03062000 PSALKR7 EQU PSALKSA+28 03063000 PSALKR6 EQU PSALKSA+24 03064000 PSALKR5 EQU PSALKSA+20 03065000 PSALKR4 EQU PSALKSA+16 03066000 PSALKR3 EQU PSALKSA+12 03067000 PSALKR2 EQU PSALKSA+8 03068000 PSALKR1 EQU PSALKSA+4 03069000 PSALKR0 EQU PSALKSA 03070000 PSARV023 EQU PSACLHT+52 03071000 PSALOCAL EQU PSACLHT+48 03072000 PSACMSL EQU PSACLHT+44 03073000 PSAOPTL EQU PSACLHT+40 03074000 PSATPACL EQU PSACLHT+36 03075000 PSATPDNL EQU PSACLHT+32 03076000 PSATPNCL EQU PSACLHT+28 03077000 PSAIOSLL EQU PSACLHT+24 03078000 PSAIOSUL EQU PSACLHT+20 03079000 PSAIOSCL EQU PSACLHT+16 03080000 PSAIOSSL EQU PSACLHT+12 03081000 PSASALCL EQU PSACLHT+8 03082000 PSAASML EQU PSACLHT+4 03083000 PSADISPL EQU PSACLHT 03084000 PSASRSA EQU PSA+636 03085000 PSARV050 EQU PSA+634 03086000 PSADSSGO EQU PSA+633 03087000 PSARECUR EQU PSA+632 03088000 PSAHLHIS EQU PSA+628 03089000 PSAIPCSA EQU PSA+624 03090000 @NM00031 EQU PSA+621 03091000 PSAIPCDM EQU PSA+620 03092000 PSAIPCD EQU PSA+616 03093000 @NM00030 EQU PSA+613 03094000 PSAIPCRM EQU PSA+612 03095000 PSAIPCR EQU PSA+608 03096000 PSAMCHEX EQU PSA+600 03097000 PSAMPSW EQU PSA+592 03098000 PSAEXPS2 EQU PSA+584 03099000 PSAEXPS1 EQU PSA+576 03100000 PSAPIREG EQU PSA+572 03101000 PSARSREG EQU PSA+568 03102000 PSAGPREG EQU PSA+556 03103000 PSARV022 EQU PSASUP4 03104000 PSARV021 EQU PSASUP4 03105000 PSARV020 EQU PSASUP4 03106000 PSARV019 EQU PSASUP4 03107000 PSARV018 EQU PSASUP4 03108000 PSARV017 EQU PSASUP4 03109000 PSARV016 EQU PSASUP4 03110000 PSARV015 EQU PSASUP4 03111000 PSARV014 EQU PSASUP3 03112000 PSARV013 EQU PSASUP3 03113000 PSARV012 EQU PSASUP3 03114000 PSARV011 EQU PSASUP3 03115000 PSARV010 EQU PSASUP3 03116000 PSARV009 EQU PSASUP3 03117000 PSARV008 EQU PSASUP3 03118000 PSAIOSUP EQU PSASUP3 03119000 PSALCR EQU PSASUP2 03120000 PSARTM EQU PSASUP2 03121000 PSAACR EQU PSASUP2 03122000 PSAIPCE2 EQU PSASUP2 03123000 PSAIPCES EQU PSASUP2 03124000 PSAIPCEC EQU PSASUP2 03125000 PSAGTF EQU PSASUP2 03126000 PSAIPCRI EQU PSASUP2 03127000 PSAIPCRP EQU PSASUP1 03128000 PSAIPCDR EQU PSASUP1 03129000 PSADISP EQU PSASUP1 03130000 PSALOCK EQU PSASUP1 03131000 PSAPI EQU PSASUP1 03132000 PSAEXT EQU PSASUP1 03133000 PSASVC EQU PSASUP1 03134000 PSAIO EQU PSASUP1 03135000 PSAAOLD EQU PSA+548 03136000 PSAANEW EQU PSA+544 03137000 PSATOLD EQU PSA+540 03138000 PSATNEW EQU PSA+536 03139000 PSALCCAR EQU PSA+532 03140000 PSAPCCAR EQU PSA+524 03141000 PSAPCCAV EQU PSA+520 03142000 PSACPULA EQU PSA+518 03143000 PSACPUPA EQU PSA+516 03144000 PSAPSA EQU PSA+512 03145000 FLCHDEND EQU PSA+512 03146000 FLCCRSAV EQU FLCMCLA+280 03147000 FLCGRSAV EQU FLCMCLA+216 03148000 FLCFPSAV EQU FLCMCLA+184 03149000 FLCFLA EQU FLCMCLA+88 03150000 FLCRGNCD EQU FLCMCLA+84 03151000 FLCFSAA EQU FLCFSA+1 03152000 @NM00029 EQU FLCFSA 03153000 @NM00028 EQU FLCMCLA+72 03154000 FLCMCIC EQU FLCMCLA+64 03155000 @NM00027 EQU FLCMCLA+20 03156000 FLCIOAA EQU FLCIOA+1 03157000 @NM00026 EQU FLCIOA 03158000 @NM00025 EQU FLCMCLA+15 03159000 @NM00024 EQU FLCMCLA+14 03160000 @NM00023 EQU FLCMCLA+12 03161000 FLCLCL EQU FLCMCLA+8 03162000 FLCIOELA EQU FLCIOEL+1 03163000 @NM00022 EQU FLCIOEL 03164000 FLCCHNID EQU FLCMCLA 03165000 @NM00021 EQU PSA+160 03166000 FLCMTRCD EQU PSA+157 03167000 @NM00020 EQU PSA+156 03168000 FLCPERA EQU FLCPER+1 03169000 @NM00019 EQU FLCPER 03170000 @NM00018 EQU PSA+151 03171000 FLCPERCD EQU PSA+150 03172000 FLCMCNUM EQU PSA+149 03173000 @NM00017 EQU PSA+148 03174000 FLCTEAA EQU FLCTEA+1 03175000 @NM00016 EQU FLCTEA 03176000 PSAPIPC EQU PSAPICOD 03177000 PSAPIMC EQU PSAPICOD 03178000 PSAPIPER EQU PSAPICOD 03179000 PSARV049 EQU FLCPICOD 03180000 FLCPILCB EQU FLCPIILC 03181000 @NM00015 EQU FLCPIILC 03182000 @NM00014 EQU PSAEPPSW 03183000 FLCSILCB EQU FLCSVILC 03184000 @NM00013 EQU FLCSVILC 03185000 @NM00012 EQU PSAESPSW 03186000 FLCEICOD EQU PSAEEPSW+2 03187000 PSASPAD EQU PSAEEPSW 03188000 @NM00011 EQU PSA+128 03189000 FLCINPSW EQU PSA+120 03190000 FLCMNPSW EQU PSA+112 03191000 FLCPNPSW EQU PSA+104 03192000 FLCSNPSW EQU PSA+96 03193000 FLCENPSW EQU PSA+88 03194000 FLCTRACE EQU PSA+84 03195000 FLCTIMER EQU PSA+80 03196000 FLCCVT2 EQU PSA+76 03197000 FLCCAW EQU PSA+72 03198000 FLCCSW EQU PSA+64 03199000 FLCIOPSW EQU PSA+56 03200000 FLCMOPSW EQU PSA+48 03201000 FLCPOPSW EQU PSA+40 03202000 FLCSOPSW EQU PSA+32 03203000 FLCEOPSW EQU PSA+24 03204000 @NM00010 EQU FLCICCW2+4 03205000 FLCCVT EQU FLCICCW2 03206000 FLCICCW1 EQU FLCROPSW 03207000 FLCIPPSW EQU FLCRNPSW 03208000 * END UNREFERENCED COMPONENTS 03209000 @RT00119 EQU AHLFLEND 03210000 @RC00180 EQU @RC00179 03211000 @RC00181 EQU @RC00180 03212000 @ENDDATA EQU * 03213000 END AHLTSYFL,(C'PL/S-II',0503,73286) 03214000