TITLE 'IGCT210D, ICOPY SERVICE ROUTINE *00001000 ' 00002000 IGCT210D CSECT , 0001 00003000 @PROLOG BALR @11,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@11 0001 00006000 * AVT=REG1->OPCAVTPT; /* ADDRESS OF AVT @SA71947*/ 00007000 L AVT,OPCAVTPT(,REG1) 0230 00008000 * GEN NOREFS NOSETS; 0231 00009000 * /* 00010000 IGCT210D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00011000 * UNIT=OCUNIT; /* GET UNIT ADDRESS @Y17XAR5*/ 00012000 L @12,AVTOCGET(,AVT) 0232 00013000 L @10,ROPCE(,@12) 0232 00014000 L UNIT,OCUNIT(,@10) 0232 00015000 * ELMNT=OCCIB; /* GET PARM LIST ADDRESS @Y17XAR5*/ 00016000 L ELMNT,OCCIB-1(,@10) 0233 00017000 LA ELMNT,0(,ELMNT) 0233 00018000 * RWRK1=UNIT; /* SAVE FIRST UNIT ADDRESS */ 00019000 LR RWRK1,UNIT 0234 00020000 * ENDUNIT=UNIT+AVTKEYLE+12; /* END OF UNIT ADDRESS */ 00021000 L @12,OPCWORK(,@12) 0235 00022000 LA @10,12 0235 00023000 LR @00,UNIT 0235 00024000 AH @00,AVTKEYLE(,AVT) 0235 00025000 ALR @00,@10 0235 00026000 ST @00,ENDUNIT(,@12) 0235 00027000 * RAREA=ELMNT->WTO; /* ADDRESS OF USER WORKAREA */ 00028000 L RAREA,WTO(,ELMNT) 0236 00029000 * CONTROL=CONTROL&&CONTROL; /* CLEAR CONTROL AREA TO ZERO */ 00030000 XC CONTROL(8,RAREA),CONTROL(RAREA) 0237 00031000 * CNTFLG=1; /* INITIALIZE COUNT TO ONE */ 00032000 MVI CNTFLG(RAREA),X'01' 0238 00033000 * IF PRURHSDI='1'B|BDUSYRSP^='60'X/* WAS RESPONSE GOOD @Y17XAR5*/ 00034000 * THEN 0239 00035000 LR @12,UNIT 0239 00036000 AL @12,@CF02102 0239 00037000 TM PRURHSDI(@12),B'00000100' 0239 00038000 BO @RT00239 0239 00039000 ALR @10,UNIT 0239 00040000 CLI BDUSYRSP(@10),X'60' 0239 00041000 BE @RF00239 0239 00042000 @RT00239 DS 0H 0240 00043000 * DO; /* NO, */ 00044000 * ELMNT->WRTCD='1C'X; /* SET RETURN CODE */ 00045000 MVI WRTCD(ELMNT),X'1C' 0241 00046000 * GO TO ALLDONE; /* TELL APPLICATION PROGRAM */ 00047000 B ALLDONE 0242 00048000 * END; 0243 00049000 * DATA=ADDR(IEDBDU)+LENGTH(IEDBDU);/* ADDR OF RESPONSE DATA 0244 00050000 * @Y17XAR5*/ 00051000 @RF00239 LA DATA,18(,UNIT) 0244 00052000 * IF DATA->BIT2='1'B /* NCP 2.0 OR GREATER? @YA10207*/ 00053000 * THEN 0245 00054000 TM BIT2(DATA),B'00100000' 0245 00055000 BNO @RF00245 0245 00056000 * DATA=DATA+1; /* IF SO, CONTROL FIELD WILL BE 00057000 * 15 BYTES LONG @YA10207*/ 00058000 LA DATA,1(,DATA) 0246 00059000 * GENERATE; 0247 00060000 @RF00245 DS 0H 0247 00061000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00062000 * IF DATA->FIELD=0 /* IS THIS SWITCH ID VERIFICATION*/ 00063000 * THEN 0248 00064000 CLI FIELD(DATA),0 0248 00065000 BE @RT00248 0248 00066000 * GO TO SWTCHID; /* YES, GO PROCESS */ 00067000 * IF DATA->FIELD='02'X /* IS THIS A MULTIPOINT LINE */ 00068000 * THEN 0250 00069000 CLI FIELD(DATA),X'02' 0250 00070000 BNE @RF00250 0250 00071000 * DO; /* YES, */ 00072000 * DATA=DATA+2; /* POINT TO NMBR OF DEVICE RCRDS */ 00073000 LA DATA,2(,DATA) 0252 00074000 * GENERATE; 0253 00075000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00076000 * TOTENT=DATA->FIELD; /* COUNT OF DEVICE RECORDS */ 00077000 IC @12,FIELD(,DATA) 0254 00078000 STC @12,TOTENT(,RAREA) 0254 00079000 * END; 0255 00080000 * ELSE 0256 00081000 * TOTENT=1; /* SET ONE DEVICE RECORD */ 00082000 B @RC00250 0256 00083000 @RF00250 MVI TOTENT(RAREA),X'01' 0256 00084000 * DATA=DATA+1; /* POINT TO DEVICE RECORD */ 00085000 @RC00250 LA DATA,1(,DATA) 0257 00086000 * GENERATE; 0258 00087000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00088000 * RFY 0259 00089000 * RLNGTH RSTD; /* @Y17XAR5*/ 00090000 * RLNGTH=DATA+3; /* GRT WIDTH ADDRESS @ZA01116*/ 00091000 LA RLNGTH,3(,DATA) 0260 00092000 * IF RLNGTH>=ENDUNIT /* CHECK FOR END OF @Y17XAR5*/ 00093000 * THEN 0261 00094000 L @12,AVTOCGET(,AVT) 0261 00095000 L @12,OPCWORK(,@12) 0261 00096000 L @12,ENDUNIT(,@12) 0261 00097000 CR RLNGTH,@12 0261 00098000 BL @RF00261 0261 00099000 * DO; /* UNIT EXCEEDED @ZA01116*/ 00100000 * RLNGTH=RWRK1->PRFTIC+12+RLNGTH-ENDUNIT;/* @Y17XAR5*/ 00101000 LA @10,12 0263 00102000 AL @10,PRFTIC(,RWRK1) 0263 00103000 ALR @10,RLNGTH 0263 00104000 SLR @10,@12 0263 00105000 LR RLNGTH,@10 0263 00106000 * END; /* SET PTR TO WIDTH @ZA01116*/ 00107000 * WIDTH=RLNGTH->FCOUNT; /* GET ENTRY WIDTH @ZA01116*/ 00108000 @RF00261 SLR @12,@12 0265 00109000 IC @12,FCOUNT(,RLNGTH) 0265 00110000 STC @12,WIDTH(,RAREA) 0265 00111000 * RACT=RAREA+8; /* ADDRESS OF FIRST ACTIVE ENTRY */ 00112000 LA RACT,8(,RAREA) 0266 00113000 * RINACT=TOTENT-1; /* ONE LESS THAN TOTAL ENTRIES */ 00114000 SLR RINACT,RINACT 0267 00115000 IC RINACT,TOTENT(,RAREA) 0267 00116000 BCTR RINACT,0 0267 00117000 * RLNGTH=WIDTH; /* GET ENTRY WIDTH */ 00118000 LR RLNGTH,@12 0268 00119000 * IF RLNGTH=0 /* IS WIDTH ZERO */ 00120000 * THEN 0269 00121000 LTR RLNGTH,RLNGTH 0269 00122000 BNZ @RF00269 0269 00123000 * RLNGTH=1; /* WIDTH IS ONE FOR DUMMY ENTRY */ 00124000 LA RLNGTH,1 0270 00125000 * RINACT=RACT+RINACT*(RLNGTH+1)+1;/* ADDRESS OF LAST INACTIVE ENTRY*/ 00126000 @RF00269 LA @12,1 0271 00127000 LR @15,RLNGTH 0271 00128000 ALR @15,@12 0271 00129000 MR @14,RINACT 0271 00130000 ALR @15,RACT 0271 00131000 ALR @15,@12 0271 00132000 LR RINACT,@15 0271 00133000 * ELMNT->WFROM=RINACT+RLNGTH; /* END OF DATA AREA @G36XRRU*/ 00134000 LR @12,RINACT 0272 00135000 ALR @12,RLNGTH 0272 00136000 ST @12,WFROM(,ELMNT) 0272 00137000 * IF ELMNT->WFROM>ELMNT->WAIBEND /* IF AIB TOO SMALL @G36XRRU*/ 00138000 * THEN 0273 00139000 C @12,WAIBEND(,ELMNT) 0273 00140000 BH @RT00273 0273 00141000 * GO TO SIZERR; /* TAKE ERROR EXIT @G36XRRU*/ 00142000 *MOVPOLL: 0275 00143000 * NEXTRCD=DATA+DATA->FCOUNT; /* ADDRESS NXT DEV RECORD 0275 00144000 * @Y17XAR5*/ 00145000 MOVPOLL L @12,AVTOCGET(,AVT) 0275 00146000 L @12,OPCWORK(,@12) 0275 00147000 LR @10,DATA 0275 00148000 SLR @00,@00 0275 00149000 IC @00,FCOUNT(,DATA) 0275 00150000 ALR @10,@00 0275 00151000 ST @10,NEXTRCD(,@12) 0275 00152000 * RESTRICT(REG1); 0276 00153000 * DATA=DATA+1; /* BUMP TO RSID @ZA01116*/ 00154000 LA DATA,1(,DATA) 0277 00155000 * GENERATE; 0278 00156000 * /* @ZA01116*/ 00157000 BAL REG12,CHKUNIT /* CHECK END OF UNIT @ZA01116*/ 00158000 * REG1=DATA->FIELD; /* GET FIRST BYTE @ZA01116*/ 00159000 SLR REG1,REG1 0279 00160000 IC REG1,FIELD(,DATA) 0279 00161000 * DATA=DATA+1; /* BUMP TO 2 ND BYTE @ZA01116*/ 00162000 LA DATA,1(,DATA) 0280 00163000 * GENERATE; 0281 00164000 * /* @ZA01116*/ 00165000 BAL REG12,CHKUNIT /* CHECK END OF UNIT @ZA01116*/ 00166000 * REG1=REG1*256+DATA->FIELD; /* GET RSID @ZA01116*/ 00167000 LR @12,REG1 0282 00168000 SLA @12,8 0282 00169000 SLR @10,@10 0282 00170000 IC @10,FIELD(,DATA) 0282 00171000 ALR @12,@10 0282 00172000 LR REG1,@12 0282 00173000 * CALL IEDIAP03; /* GET TNT OFFSET @Y17XAR5*/ 00174000 L @12,AVTSAVTP(,AVT) 0283 00175000 L @15,SAVTNAX(,@12) 0283 00176000 BALR @14,@15 0283 00177000 * REG1=REG15; /* TNT OFFSET FOR THIS DEVICE */ 00178000 LR REG1,REG15 0284 00179000 * IF REG1=0 /* IS TNT OFFSET ZERO */ 00180000 * THEN 0285 00181000 LTR REG1,REG1 0285 00182000 BZ @RT00285 0285 00183000 * GO TO MOVUPD; /* YES, SKIP PROCESSING RECORD */ 00184000 * REG15=AVTRNMPT; /* TNT ROUTINE ADDRESS */ 00185000 L REG15,AVTRNMPT(,AVT) 0287 00186000 * GENERATE; 0288 00187000 BALR REG14,REG15 /* LINK TO TERMNAME CODE */ 00188000 * RTRM=REG1-LENGTH(IEDNTRM); /* SAVE TERM ENTRY PREFIX ADDR 0289 00189000 * @Y17XAR5*/ 00190000 L @12,AVTOCGET(,AVT) 0289 00191000 L @12,OPCWORK(,@12) 0289 00192000 LR @10,REG1 0289 00193000 SL @10,@CF01414 0289 00194000 ST @10,RTRM(,@12) 0289 00195000 * DATA=DATA+1; /* BUMP TO WIDTH @ZA01116*/ 00196000 LA DATA,1(,DATA) 0290 00197000 * GENERATE; 0291 00198000 * /* @ZA01116*/ 00199000 BAL REG12,CHKUNIT /* CHECK END OF UNIT @ZA01116*/ 00200000 * IF DATA->FCOUNT^=WIDTH /* IF ENTRY WIDTH IS @ZA01116*/ 00201000 * THEN 0292 00202000 CLC FCOUNT(1,DATA),WIDTH(RAREA) 0292 00203000 BE @RF00292 0292 00204000 * IF DATA->FCOUNT^=0 /* DIFFERENT BUT NOT @ZA01116*/ 00205000 * THEN 0293 00206000 CLI FCOUNT(DATA),0 0293 00207000 BNE @RT00293 0293 00208000 * GOTO ERREXIT; /* ZERO, THEN ERROR @ZA01116*/ 00209000 * RLNGTH=WIDTH; /* AMOUNT OF DATA TO MOVE */ 00210000 @RF00292 SLR RLNGTH,RLNGTH 0295 00211000 IC RLNGTH,WIDTH(,RAREA) 0295 00212000 * IF TRMBUFRD='1'B /* IS THIS BUFFERED TERMINAL? 0296 00213000 * @Y17XAR5*/ 00214000 * THEN 0296 00215000 L @12,AVTOCGET(,AVT) 0296 00216000 L @12,OPCWORK(,@12) 0296 00217000 L @12,RTRM(,@12) 0296 00218000 TM TRMBUFRD(@12),B'00000001' 0296 00219000 BNO @RF00296 0296 00220000 * DO; /* YES, */ 00221000 * TOTSND=TOTENT; /* SET NUMBER SENDING */ 00222000 IC @12,TOTENT(,RAREA) 0298 00223000 STC @12,TOTSND(,RAREA) 0298 00224000 * TOTTRM=TOTENT; /* SET TOTAL TERMINALS */ 00225000 IC @12,TOTENT(,RAREA) 0299 00226000 STC @12,TOTTRM(,RAREA) 0299 00227000 * END; 0300 00228000 * IF TRMRSACT='0'B /* IS TERMINAL INACTIVE @Y17XAR5*/ 00229000 * THEN 0301 00230000 @RF00296 L @12,AVTOCGET(,AVT) 0301 00231000 L @12,OPCWORK(,@12) 0301 00232000 L @12,RTRM(,@12) 0301 00233000 TM TRMRSACT(@12),B'10000000' 0301 00234000 BZ @RT00301 0301 00235000 * GO TO MOVEI; /* YES, GO MOVE ENTRY */ 00236000 * RELEASE(REG1); 0303 00237000 *MOVEA: 0304 00238000 * IF DATA->FIELD=0& /* ARE POLLING CHARS PRESENT AND */ 00239000 * RLNGTH^=0 /* IS WIDTH NOT ZERO */ 00240000 * THEN 0304 00241000 MOVEA CLI FIELD(DATA),0 0304 00242000 BNE @RF00304 0304 00243000 LTR RLNGTH,RLNGTH 0304 00244000 BZ @RF00304 0304 00245000 * DO; /* NO, INSERT ZERO FOR CHARS */ 00246000 * RACT->FIELD(1:RLNGTH)=RACT->FIELD(1:RLNGTH)&&RACT->FIELD(1: 00247000 * RLNGTH); 0306 00248000 LR @12,RLNGTH 0306 00249000 BCTR @12,0 0306 00250000 EX @12,@SX02103 0306 00251000 * RACT=RACT+RLNGTH; /* ADD FIELD LENGTH */ 00252000 ALR RACT,RLNGTH 0307 00253000 * GO TO MOVEA1; /* GO SET INDEX */ 00254000 B MOVEA1 0308 00255000 * END; 0309 00256000 * DATA=DATA+1; /* POINT TO POLLING CHARS */ 00257000 @RF00304 LA DATA,1(,DATA) 0310 00258000 * GENERATE; 0311 00259000 * /* CHECK END OF UNIT @ZA01116*/ 00260000 BAL REG12,CHKUNIT /* EXCEEDED @ZA01116*/ 00261000 *MOVEA2: /* @ZA01116*/ 00262000 * GEN(BAL REG12,CHKUNIT); /* END OF UNIT ? @SA71947*/ 00263000 MOVEA2 BAL REG12,CHKUNIT 00264000 * IF RLNGTH=0 /* ARE POLLING CHARS PRESENT */ 00265000 * THEN 0313 00266000 LTR RLNGTH,RLNGTH 0313 00267000 BNZ @RF00313 0313 00268000 * DO; /* NO, */ 00269000 * RACT->FIELD='DF'X; /* INSERT DUMMY CHARACTER */ 00270000 MVI FIELD(RACT),X'DF' 0315 00271000 * GO TO UPRACT; /* GO UPDATE POINTER */ 00272000 B UPRACT 0316 00273000 * END; 0317 00274000 * RACT->FIELD=DATA->FIELD; /* MOVE ONE BYTE OF DATA */ 00275000 @RF00313 MVC FIELD(1,RACT),FIELD(DATA) 0318 00276000 * RLNGTH=RLNGTH-1; /* REDUCE AMOUNT TO MOVE */ 00277000 BCTR RLNGTH,0 0319 00278000 * DATA=DATA+1; /* UPDATE 'FROM' AREA POINTER */ 00279000 LA DATA,1(,DATA) 0320 00280000 * GENERATE; 0321 00281000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00282000 *UPRACT: 0322 00283000 * RACT=RACT+1; /* UPDATE 'TO' AREA POINTER */ 00284000 UPRACT LA RACT,1(,RACT) 0322 00285000 * IF RLNGTH^=0 /* HAS ALL DATA BEEN MOVED */ 00286000 * THEN 0323 00287000 LTR RLNGTH,RLNGTH 0323 00288000 BNZ @RT00323 0323 00289000 * GO TO MOVEA2; /* NO, GO MOVE MORE */ 00290000 *MOVEA1: 0325 00291000 * RACT->FIELD=CNTFLG; /* SET ENTRY INDEX */ 00292000 MOVEA1 MVC FIELD(1,RACT),CNTFLG(RAREA) 0325 00293000 * ACTENT=ACTENT+1; /* UPDATE NUMBER OF ACTIVE */ 00294000 LA @12,1 0326 00295000 SLR @10,@10 0326 00296000 IC @10,ACTENT(,RAREA) 0326 00297000 ALR @10,@12 0326 00298000 STC @10,ACTENT(,RAREA) 0326 00299000 * RACT=RACT+1; /* UPDATE 'TO' AREA POINTER */ 00300000 ALR RACT,@12 0327 00301000 * GO TO MOVUPD; /* PREPARE TO CHECK NEXT */ 00302000 B MOVUPD 0328 00303000 *MOVEI: 0329 00304000 * IF DATA->FIELD=0& /* ARE POLLING CHARS PRESENT AND */ 00305000 * RLNGTH^=0 /* IS WIDTH NOT ZERO */ 00306000 * THEN 0329 00307000 MOVEI CLI FIELD(DATA),0 0329 00308000 BNE @RF00329 0329 00309000 LTR RLNGTH,RLNGTH 0329 00310000 BZ @RF00329 0329 00311000 * DO; /* NO, INSERT ZERO FOR CHARS */ 00312000 * RINACT->FIELD(1:RLNGTH)=RINACT->FIELD(1:RLNGTH)&&RINACT->FIELD( 00313000 * 1:RLNGTH); 0331 00314000 LR @12,RLNGTH 0331 00315000 BCTR @12,0 0331 00316000 EX @12,@SX02105 0331 00317000 * RINACT=RINACT+RLNGTH; /* ADD FIELD LENGTH */ 00318000 ALR RINACT,RLNGTH 0332 00319000 * GO TO MOVEI1; /* GO SET INDEX */ 00320000 B MOVEI1 0333 00321000 * END; 0334 00322000 * DATA=DATA+1; /* POINT TO POLLING CHARS */ 00323000 @RF00329 LA DATA,1(,DATA) 0335 00324000 * GENERATE; 0336 00325000 * /* CHECK END OF UNIT @ZA01116*/ 00326000 BAL REG12,CHKUNIT /* EXCEEDED @ZA01116*/ 00327000 *MOVEI2: /* @ZA01116*/ 00328000 * GEN(BAL REG12,CHKUNIT); /* END OF UNIT ? @SA71947*/ 00329000 MOVEI2 BAL REG12,CHKUNIT 00330000 * IF RLNGTH=0 /* ARE POLLING CHARS PRESENT */ 00331000 * THEN 0338 00332000 LTR RLNGTH,RLNGTH 0338 00333000 BNZ @RF00338 0338 00334000 * DO; /* NO, */ 00335000 * RINACT->FIELD='DF'X; /* INSERT DUMMY CHARACTER */ 00336000 MVI FIELD(RINACT),X'DF' 0340 00337000 * GO TO UPRINACT; /* GO UPDATE POINTER */ 00338000 B UPRINACT 0341 00339000 * END; 0342 00340000 * RINACT->FIELD=DATA->FIELD; /* MOVE ONE BYTE OF DATA */ 00341000 @RF00338 MVC FIELD(1,RINACT),FIELD(DATA) 0343 00342000 * RLNGTH=RLNGTH-1; /* REDUCE AMOUNT TO MOVE */ 00343000 BCTR RLNGTH,0 0344 00344000 * DATA=DATA+1; /* UPDATE 'FROM' AREA POINTER */ 00345000 LA DATA,1(,DATA) 0345 00346000 * GENERATE; 0346 00347000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00348000 *UPRINACT: 0347 00349000 * RINACT=RINACT+1; /* UPDATE 'TO' AREA POINTER */ 00350000 UPRINACT LA RINACT,1(,RINACT) 0347 00351000 * IF RLNGTH^=0 /* HAS ALL DATA BEEN MOVED */ 00352000 * THEN 0348 00353000 LTR RLNGTH,RLNGTH 0348 00354000 BNZ @RT00348 0348 00355000 * GO TO MOVEI2; /* NO, GO MOVE MORE */ 00356000 *MOVEI1: 0350 00357000 * RINACT->FIELD=CNTFLG; /* SET ENTRY INDEX */ 00358000 MOVEI1 MVC FIELD(1,RINACT),CNTFLG(RAREA) 0350 00359000 * RINACT=RINACT-(WIDTH*2+1); /* ADDRESS OF NEXT INACTIVE */ 00360000 SLR @12,@12 0351 00361000 IC @12,WIDTH(,RAREA) 0351 00362000 ALR @12,@12 0351 00363000 AL @12,@CF00094 0351 00364000 SLR RINACT,@12 0351 00365000 *MOVUPD: 0352 00366000 * CNTFLG=CNTFLG+1; /* UPDATE COUNT OF NMBR MOVED */ 00367000 MOVUPD LA @12,1 0352 00368000 SLR @10,@10 0352 00369000 IC @10,CNTFLG(,RAREA) 0352 00370000 ALR @12,@10 0352 00371000 STC @12,CNTFLG(,RAREA) 0352 00372000 * IF CNTFLG>TOTENT /* HAVE ALL ENTRIES BEEN MOVED */ 00373000 * THEN 0353 00374000 CLC CNTFLG(1,RAREA),TOTENT(RAREA) 0353 00375000 BNH @RF00353 0353 00376000 * DO; /* YES, */ 00377000 * CNTFLG=2; /* SET FLAGS TO ACTIVE */ 00378000 MVI CNTFLG(RAREA),X'02' 0355 00379000 * IF WIDTH=0 /* ARE DUMMY CHARS USED */ 00380000 * THEN 0356 00381000 CLI WIDTH(RAREA),0 0356 00382000 BNE @RF00356 0356 00383000 * WIDTH=2; /* YES, SET WIDTH TO TWO */ 00384000 MVI WIDTH(RAREA),X'02' 0357 00385000 * ELSE 0358 00386000 * WIDTH=WIDTH+1; /* NO, INCLUDE INDEX IN WIDTH */ 00387000 B @RC00356 0358 00388000 @RF00356 LA @12,1 0358 00389000 SLR @10,@10 0358 00390000 IC @10,WIDTH(,RAREA) 0358 00391000 ALR @12,@10 0358 00392000 STC @12,WIDTH(,RAREA) 0358 00393000 * RACT->FIELD='FE'X; /* SET END OF ACTIVE ENTRIES */ 00394000 @RC00356 MVI FIELD(RACT),X'FE' 0359 00395000 * GO TO ALLDONE; /* GO POST APPLICATION */ 00396000 B ALLDONE 0360 00397000 * END; 0361 00398000 * DATA=NEXTRCD; /* ADDRESS OF NEXT DEVICE RECORD 00399000 * @Y17XAR5*/ 00400000 @RF00353 L @12,AVTOCGET(,AVT) 0362 00401000 L @12,OPCWORK(,@12) 0362 00402000 L DATA,NEXTRCD(,@12) 0362 00403000 * GENERATE; 0363 00404000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00405000 * GO TO MOVPOLL; /* GO MOVE NEXT ENTRY */ 00406000 B MOVPOLL 0364 00407000 * RFY 0365 00408000 * REG12 RSTD; /* @Y17XAR5*/ 00409000 *CHKUNIT: 0366 00410000 * IF DATA>=ENDUNIT /* ARE WE PAST END OF UNIT 0366 00411000 * @Y17XAR5*/ 00412000 * THEN 0366 00413000 CHKUNIT L @10,AVTOCGET(,AVT) 0366 00414000 L @10,OPCWORK(,@10) 0366 00415000 L @15,ENDUNIT(,@10) 0366 00416000 CR DATA,@15 0366 00417000 BL @RF00366 0366 00418000 * DO; /* YES, */ 00419000 * DATA=RWRK1->PRFTIC+12+DATA-ENDUNIT;/* @Y17XAR5*/ 00420000 LA @14,12 0368 00421000 L @01,PRFTIC(,RWRK1) 0368 00422000 LR @00,@01 0368 00423000 ALR @00,@14 0368 00424000 LR @01,DATA 0368 00425000 ALR @01,@00 0368 00426000 SLR @01,@15 0368 00427000 LR DATA,@01 0368 00428000 * NEXTRCD=RWRK1->PRFTIC+12+NEXTRCD-ENDUNIT;/* @Y17XAR5 00429000 * RESET NEXT DATA @ZA01116 00430000 * RECORD POINTER @ZA01116*/ 00431000 AL @00,NEXTRCD(,@10) 0369 00432000 SLR @00,@15 0369 00433000 ST @00,NEXTRCD(,@10) 0369 00434000 * ENDUNIT=RWRK1->PRFTIC+AVTKEYLE+12;/* ENDOF NEXT UNIT ADDRESS 00435000 * @Y17XAR5*/ 00436000 L @15,PRFTIC(,RWRK1) 0370 00437000 LH @01,AVTKEYLE(,AVT) 0370 00438000 ALR @01,@15 0370 00439000 ALR @01,@14 0370 00440000 ST @01,ENDUNIT(,@10) 0370 00441000 * RWRK1=RWRK1->PRFTIC; /* NEXT UNIT ADDRESS */ 00442000 LR RWRK1,@15 0371 00443000 * GO TO CHKUNIT; 0372 00444000 B CHKUNIT 0372 00445000 * END; 0373 00446000 * GENERATE; 0374 00447000 @RF00366 DS 0H 0374 00448000 BR REG12 /* RETURN TO CALLER */ 00449000 * RFY 0375 00450000 * REG12 UNRSTD; /* @Y17XAR5*/ 00451000 *SWTCHID: 0376 00452000 * RTO=RAREA+8; /* ADDRESS TO MOVE DATA TO 0376 00453000 * @Y17XAR5*/ 00454000 SWTCHID LA RTO,8(,RAREA) 0376 00455000 * DATA=DATA+1; /* POINT TO DEVICE RECORD */ 00456000 LA DATA,1(,DATA) 0377 00457000 * GENERATE; 0378 00458000 * /* CHECK END OF UNIT @ZA01116*/ 00459000 BAL REG12,CHKUNIT /* EXCEEDED @ZA01116*/ 00460000 * DATA=DATA+DATA->FIELD(1)+2; /* SKIP DEVICE RECORD */ 00461000 LR @12,DATA 0379 00462000 SLR @10,@10 0379 00463000 IC @10,FIELD(,DATA) 0379 00464000 ALR @12,@10 0379 00465000 LA @12,2(,@12) 0379 00466000 LR DATA,@12 0379 00467000 * GENERATE; 0380 00468000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00469000 * RAREA->FIELD(3)=DATA->FIELD(1); /* ENTRY WIDTH */ 00470000 MVC FIELD+2(1,RAREA),FIELD(DATA) 0381 00471000 *MOVSWID: 0382 00472000 * NEXTRCD=DATA+DATA->FCOUNT+2; /* ADDR OF NEXT ID @Y17XAR5*/ 00473000 MOVSWID L @12,AVTOCGET(,AVT) 0382 00474000 L @12,OPCWORK(,@12) 0382 00475000 LR @10,DATA 0382 00476000 SLR @15,@15 0382 00477000 IC @15,FCOUNT(,DATA) 0382 00478000 ALR @10,@15 0382 00479000 AL @10,@CF00105 0382 00480000 ST @10,NEXTRCD(,@12) 0382 00481000 * DATA=DATA+1; /* POINT TO ID FLAGS */ 00482000 LA DATA,1(,DATA) 0383 00483000 * GENERATE; 0384 00484000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00485000 * RAREA->FIELD(1)=RAREA->FIELD(1)+1;/* UPDATE ID COUNT */ 00486000 LA @12,1 0385 00487000 SLR @10,@10 0385 00488000 IC @10,FIELD(,RAREA) 0385 00489000 ALR @12,@10 0385 00490000 STC @12,FIELD(,RAREA) 0385 00491000 * IF DATA->LASTID='1'B /* IS THIS LAST ID */ 00492000 * THEN 0386 00493000 TM LASTID(DATA),B'01000000' 0386 00494000 BNO @RF00386 0386 00495000 * RAREA->FIELD(2)=RAREA->FIELD(1);/* INDICATE LAST ID */ 00496000 MVC FIELD+1(1,RAREA),FIELD(RAREA) 0387 00497000 * IF DATA->DEVASSO='1'B /* IS RSID PRESENT IN ID */ 00498000 * THEN 0388 00499000 @RF00386 TM DEVASSO(DATA),B'10000000' 0388 00500000 BNO @RF00388 0388 00501000 * DO; /* YES, */ 00502000 * DATA=DATA+3; /* ADJUST FOR RSID AND FLAGS */ 00503000 LA DATA,3(,DATA) 0390 00504000 * NEXTRCD=NEXTRCD+2; /* ADJUST FOR RSID @Y17XAR5*/ 00505000 L @12,AVTOCGET(,AVT) 0391 00506000 L @12,OPCWORK(,@12) 0391 00507000 LA @10,2 0391 00508000 AL @10,NEXTRCD(,@12) 0391 00509000 ST @10,NEXTRCD(,@12) 0391 00510000 * END; 0392 00511000 * ELSE 0393 00512000 * DATA=DATA+1; /* ADJUST FOR FLAGS */ 00513000 B @RC00388 0393 00514000 @RF00388 LA DATA,1(,DATA) 0393 00515000 * GENERATE; 0394 00516000 @RC00388 DS 0H 0394 00517000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00518000 * RLNGTH=RAREA->FIELD(3); /* COUNT OF DATA TO MOVE */ 00519000 SLR RLNGTH,RLNGTH 0395 00520000 IC RLNGTH,FIELD+2(,RAREA) 0395 00521000 *MOVID: 0396 00522000 * RTO->FIELD=DATA->FIELD; /* MOVE ONE BYTE OF DATA */ 00523000 MOVID MVC FIELD(1,RTO),FIELD(DATA) 0396 00524000 * RLNGTH=RLNGTH-1; /* REDUCE COUNT TO MOVE */ 00525000 BCTR RLNGTH,0 0397 00526000 * RTO=RTO+1; /* UPDATE 'TO' AREA ADDRESS */ 00527000 LA @12,1 0398 00528000 ALR RTO,@12 0398 00529000 * DATA=DATA+1; /* UPDATE 'FROM' AREA ADDRESS */ 00530000 ALR DATA,@12 0399 00531000 * GENERATE; 0400 00532000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00533000 * IF RLNGTH^=0 /* HAS ALL DATA BEEN MOVED */ 00534000 * THEN 0401 00535000 LTR RLNGTH,RLNGTH 0401 00536000 BNZ @RT00401 0401 00537000 * GO TO MOVID; /* NO, GO MOVE MORE */ 00538000 * RTO->FIELD=RAREA->FIELD(1); /* SET INDEX */ 00539000 MVC FIELD(1,RTO),FIELD(RAREA) 0403 00540000 * RTO=RTO+1; /* UPDATE 'TO' AREA POINTER */ 00541000 LA RTO,1(,RTO) 0404 00542000 * DATA=NEXTRCD; /* ADDRESS OF NEXT ID @Y17XAR5*/ 00543000 L @12,AVTOCGET(,AVT) 0405 00544000 L @12,OPCWORK(,@12) 0405 00545000 L DATA,NEXTRCD(,@12) 0405 00546000 * GENERATE; 0406 00547000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00548000 * IF RAREA->FIELD(1)^=RAREA->FIELD(2)/* HAVE ALL ENTRIES BEEN MOVED*/ 00549000 * THEN 0407 00550000 CLC FIELD(1,RAREA),FIELD+1(RAREA) 0407 00551000 BNE @RT00407 0407 00552000 * GO TO MOVSWID; /* NO, MORE TO MOVE */ 00553000 * RTO->FIELD='FE'X; /* INDICATE END OF LIST */ 00554000 MVI FIELD(RTO),X'FE' 0409 00555000 * RAREA->FIELD(3)=RAREA->FIELD(3)+1;/* BUMP WIDTH TO INCLUDE INDEX 00556000 * @Y17XAR5*/ 00557000 LA @12,1 0410 00558000 SLR @10,@10 0410 00559000 IC @10,FIELD+2(,RAREA) 0410 00560000 ALR @12,@10 0410 00561000 STC @12,FIELD+2(,RAREA) 0410 00562000 * ELMNT->WFROM=RTO; /* SAVE ADDRESS @G36XRRU*/ 00563000 ST RTO,WFROM(,ELMNT) 0411 00564000 * IF ELMNT->WFROM>ELMNT->WAIBEND /* AIB SIZE EXCEEDED @G36XRRU*/ 00565000 * THEN 0412 00566000 L @12,WFROM(,ELMNT) 0412 00567000 C @12,WAIBEND(,ELMNT) 0412 00568000 BH @RT00412 0412 00569000 * GO TO SIZERR; /* YES, ERROR @G36XRRU*/ 00570000 * RFY 0414 00571000 * RLNGTH UNRSTD; 0414 00572000 *ALLDONE: 0415 00573000 * OCTIC=UNIT; /* CHAIN UNITS OFF OPCE */ 00574000 ALLDONE L @12,AVTOCGET(,AVT) 0415 00575000 L @12,ROPCE(,@12) 0415 00576000 STCM UNIT,7,OCTIC(@12) 0415 00577000 * ELMNT->WTO=RTO; /* UPDATE 'TO' AREA POINTER */ 00578000 ST RTO,WTO(,ELMNT) 0416 00579000 *EXIT: 0417 00580000 * ELMNT->WVERB='FF'X; /* INDICATE RETURN FROM 3705 0417 00581000 * SERVICE ROUTINE @G36XRRU*/ 00582000 EXIT MVI WVERB(ELMNT),X'FF' 0417 00583000 * OPCMODID=MOD0A; /* SET XCTL MOD ID @G36XRRU*/ 00584000 L @12,AVTOCGET(,AVT) 0418 00585000 MVC OPCMODID(2,@12),MOD0A 0418 00586000 * OPCFLAG1=0; /* CLEAR CTL FLAG @G36XRRU*/ 00587000 MVI OPCFLAG1(@12),X'00' 0419 00588000 * REG1=REG12; /* PASS OP CTL AVT ADDR @ZM46776*/ 00589000 LR REG1,REG12 0420 00590000 * GEN EXIT REFS(OPCXCTL,REG12); 0421 00591000 * /* @ZM46776*/ 00592000 XCTL SF=(E,OPCXCTL(REG12)) /* EXIT TO IGC0A10D @ZM46776*/ 00593000 *SIZERR: /* AIB AREA TOO SMALL @G36XRRU*/ 00594000 * ELMNT->WRTCD='18'X; /* RC=DATA>AIB AREA @G36XRRU*/ 00595000 SIZERR MVI WRTCD(ELMNT),X'18' 0422 00596000 * GO TO ALLDONE; /* RETURN TO CALLER @G36XRRU*/ 00597000 B ALLDONE 0423 00598000 *ERREXIT: 0424 00599000 * ELMNT->WRTCD=28; /* SET RETURN CODE @ZA03052*/ 00600000 ERREXIT MVI WRTCD(ELMNT),X'1C' 0424 00601000 * GO TO ALLDONE; /* GO RETURN BUFFER */ 00602000 B ALLDONE 0425 00603000 * GENERATE; 0426 00604000 XC1 XC 0(0,RTO),0(RFROM) /* EXECUTED INSTRUCTIONS TO */ 00605000 XC2 XC 0(0,RFROM),0(RTO) /* SWAP IVLIST ENTRIES */ 00606000 * END IGCT210D 0427 00607000 * 0427 00608000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00609000 */*%INCLUDE SYSLIB (CVT ) */ 00610000 */*%INCLUDE SYSLIB (TAVTD ) */ 00611000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00612000 */*%INCLUDE SYSLIB (TTRMD ) */ 00613000 */*%INCLUDE SYSLIB (TBDUD ) */ 00614000 */*%INCLUDE SYSLIB (TPRUD ) */ 00615000 */*%INCLUDE SYSLIB (TOPCED ) */ 00616000 */*%INCLUDE SYSLIB (TPRFD ) */ 00617000 * 0427 00618000 * ; 0427 00619000 @EL00001 DS 0H 0427 00620000 @EF00001 DS 0H 0427 00621000 @ER00001 BR @14 0427 00622000 @DATA DS 0H 00623000 @SX02103 XC FIELD(0,RACT),FIELD(RACT) 00624000 @SX02105 XC FIELD(0,RINACT),FIELD(RINACT) 00625000 DS 0F 00626000 DS 0F 00627000 @CF00094 DC F'1' 00628000 @CF00105 DC F'2' 00629000 @CF01414 DC F'14' 00630000 @CF02102 DC F'-8' 00631000 DS 0D 00632000 MOD0A DC CL2'0A' 00633000 PATCH DC XL104'0' 00634000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00635000 @01 EQU 01 00636000 @02 EQU 02 00637000 @03 EQU 03 00638000 @04 EQU 04 00639000 @05 EQU 05 00640000 @06 EQU 06 00641000 @07 EQU 07 00642000 @08 EQU 08 00643000 @09 EQU 09 00644000 @10 EQU 10 00645000 @11 EQU 11 00646000 @12 EQU 12 00647000 @13 EQU 13 00648000 @14 EQU 14 00649000 @15 EQU 15 00650000 @0 EQU 00 00651000 @1 EQU 01 00652000 @2 EQU 02 00653000 @3 EQU 03 00654000 @4 EQU 04 00655000 @5 EQU 05 00656000 @6 EQU 06 00657000 @7 EQU 07 00658000 @8 EQU 08 00659000 @9 EQU 09 00660000 @A EQU 10 00661000 @B EQU 11 00662000 @C EQU 12 00663000 @D EQU 13 00664000 @E EQU 14 00665000 @F EQU 15 00666000 ROPCAVT EQU @02 00667000 REG0 EQU @00 00668000 REG1 EQU @01 00669000 AVT EQU @02 00670000 TNTNDX EQU @03 00671000 RWRK1 EQU @03 00672000 ELMNT EQU @04 00673000 UNIT EQU @05 00674000 RWORK EQU @06 00675000 RTO EQU @06 00676000 RACT EQU @06 00677000 BTU EQU @07 00678000 DATA EQU @07 00679000 LCB EQU @08 00680000 PARAM EQU @08 00681000 RINACT EQU @08 00682000 RAREA EQU @09 00683000 REG12 EQU @12 00684000 RLNGTH EQU @13 00685000 REG15 EQU @15 00686000 REG14 EQU @14 00687000 RFROM EQU @08 00688000 TRMNTRY EQU @08 00689000 CVTPTR EQU 16 00690000 IEDQAPTR EQU 0 00691000 IEDQPPTR EQU 0 00692000 IEDPRUQP EQU 0 00693000 CVTMAP EQU 0 00694000 CVTDAR EQU CVTMAP+72 00695000 CVTFLGS1 EQU CVTDAR 00696000 CVTDCB EQU CVTMAP+116 00697000 CVTIERLC EQU CVTMAP+144 00698000 CVTOPTA EQU CVTMAP+182 00699000 CVTOPTB EQU CVTMAP+183 00700000 CVTGTF EQU CVTMAP+236 00701000 CVTGTFST EQU CVTGTF 00702000 CVTGTFS EQU CVTGTFST 00703000 CVTSTATE EQU CVTGTFST 00704000 CVTTMODE EQU CVTGTFST 00705000 CVTFORM EQU CVTGTFST 00706000 CVTAQAVT EQU CVTMAP+240 00707000 CVTTCMFG EQU CVTAQAVT 00708000 CVTVOLM2 EQU CVTMAP+244 00709000 CVTTATA EQU CVTVOLM2 00710000 CVTTSKS EQU CVTTATA 00711000 CVTVOLF2 EQU CVTTSKS 00712000 CVTTAT EQU CVTTATA+1 00713000 CVTATER EQU CVTMAP+248 00714000 CVTEXT1 EQU CVTMAP+252 00715000 CVTPURG EQU CVTMAP+260 00716000 CVTQMSG EQU CVTMAP+268 00717000 CVTDMSR EQU CVTMAP+272 00718000 CVTRSV37 EQU CVTDMSR 00719000 CVTDMSRF EQU CVTRSV37 00720000 CVTERPV EQU CVTMAP+316 00721000 CVTINTLA EQU CVTMAP+320 00722000 CVTAPF EQU CVTMAP+324 00723000 CVTEXT2 EQU CVTMAP+328 00724000 CVTHJES EQU CVTMAP+332 00725000 CVTPGSIA EQU CVTMAP+348 00726000 CVTA1F1 EQU CVTMAP+356 00727000 CVTSYSK EQU CVTMAP+357 00728000 CVTVOLM1 EQU CVTMAP+380 00729000 CVTVOLF1 EQU CVTVOLM1 00730000 CVTATMCT EQU CVTMAP+388 00731000 CVTXTNT1 EQU 0 00732000 CVTXTNT2 EQU 0 00733000 CVTDSSV EQU CVTXTNT2 00734000 CVTFLGBT EQU CVTXTNT2+5 00735000 CVTQID EQU CVTXTNT2+24 00736000 CVTSHS EQU CVTXTNT2+40 00737000 CVTRV400 EQU CVTXTNT2+52 00738000 CVTRV409 EQU CVTXTNT2+53 00739000 CVTATCVT EQU CVTXTNT2+64 00740000 CVTRV429 EQU CVTXTNT2+84 00741000 CVTRV438 EQU CVTXTNT2+85 00742000 CVTRV457 EQU CVTXTNT2+112 00743000 CVTRV466 EQU CVTXTNT2+113 00744000 CVTFIX EQU -256 00745000 CVTRELNO EQU CVTFIX+252 00746000 IEDQAVTD EQU 0 00747000 AVTSAVEX EQU IEDQAVTD+288 00748000 @NM00005 EQU IEDQAVTD+388 00749000 AVTCKFLG EQU @NM00005 00750000 AVTOCGET EQU IEDQAVTD+392 00751000 AVTBASE EQU IEDQAVTD+412 00752000 AVTPKF EQU AVTBASE 00753000 AVTRNMPT EQU IEDQAVTD+424 00754000 AVTOSECB EQU IEDQAVTD+492 00755000 AVTECB1 EQU AVTOSECB 00756000 AVTHG02 EQU IEDQAVTD+528 00757000 AVTDISP EQU IEDQAVTD+552 00758000 AVTHD EQU IEDQAVTD+556 00759000 AVTSCOPT EQU AVTHD 00760000 AVTSAVTP EQU IEDQAVTD+612 00761000 AVTSAVTF EQU AVTSAVTP 00762000 AVTCKPEL EQU IEDQAVTD+652 00763000 AVTCKRMV EQU AVTCKPEL 00764000 AVTCKELF EQU IEDQAVTD+680 00765000 AVTCKBYT EQU IEDQAVTD+691 00766000 AVTHG01 EQU IEDQAVTD+692 00767000 AVTCKLNK EQU IEDQAVTD+696 00768000 AVTCRELE EQU IEDQAVTD+708 00769000 AVTCCELE EQU AVTCRELE 00770000 AVTCLRHI EQU IEDQAVTD+716 00771000 AVTADBUF EQU IEDQAVTD+720 00772000 AVTSYSER EQU IEDQAVTD+728 00773000 AVTCKPQB EQU IEDQAVTD+804 00774000 AVTCKPTB EQU AVTCKPQB 00775000 AVTCKPEC EQU AVTCKPQB+4 00776000 AVTCKPCC EQU AVTCKPEC 00777000 AVTOPCQB EQU IEDQAVTD+816 00778000 AVTOPCOB EQU AVTOPCQB 00779000 AVTOPCEC EQU AVTOPCQB+4 00780000 AVTOPCCC EQU AVTOPCEC 00781000 AVTOLTQB EQU IEDQAVTD+828 00782000 AVTCWFL1 EQU IEDQAVTD+924 00783000 AVTCWFL2 EQU IEDQAVTD+925 00784000 AVTSUBT EQU IEDQAVTD+948 00785000 AVTIOTR EQU IEDQAVTD+949 00786000 AVTKEYLE EQU IEDQAVTD+1032 00787000 AVTBIT1 EQU IEDQAVTD+1050 00788000 AVTBIT2 EQU IEDQAVTD+1051 00789000 AVTBIT3 EQU IEDQAVTD+1052 00790000 AVTBIT4 EQU IEDQAVTD+1136 00791000 @NM00087 EQU IEDQAVTD+1232 00792000 IEDNSVTD EQU 0 00793000 SAVTDIAG EQU IEDNSVTD 00794000 SAVTDIAF EQU SAVTDIAG 00795000 SAVTLUSQ EQU IEDNSVTD+88 00796000 SAVTTCPU EQU IEDNSVTD+238 00797000 SAVTNAX EQU IEDNSVTD+248 00798000 SAVTZELM EQU IEDNSVTD+270 00799000 SAVTRDRV EQU IEDNSVTD+284 00800000 SAVTCKQB EQU IEDNSVTD+300 00801000 SAVTCKTB EQU SAVTCKQB 00802000 SAVTCKEC EQU SAVTCKQB+4 00803000 SAVTCKCC EQU SAVTCKEC 00804000 IEDQOPCD EQU 0 00805000 OPCAVTPT EQU IEDQOPCD+8 00806000 OPCCOPCE EQU IEDQOPCD+12 00807000 OPCWORK EQU IEDQOPCD+140 00808000 OPCFLAG1 EQU IEDQOPCD+146 00809000 OPCAQCTL EQU IEDQOPCD+180 00810000 OPCXCTL EQU IEDQOPCD+204 00811000 OPCLDNME EQU IEDQOPCD+212 00812000 OPCMODID EQU OPCLDNME+3 00813000 OPCSPEC EQU IEDQOPCD+300 00814000 OPCPWCOB EQU IEDQOPCD+368 00815000 OPCPWQCB EQU OPCPWCOB 00816000 OPCPWECB EQU OPCPWCOB+4 00817000 IEDTRM EQU 0 00818000 IEDNTRM EQU IEDTRM 00819000 TRMBYTE4 EQU IEDNTRM 00820000 TRMBYTE3 EQU IEDNTRM+1 00821000 TRMBYTE2 EQU IEDNTRM+2 00822000 TRMRSACT EQU TRMBYTE2 00823000 TRMINPG EQU TRMBYTE2 00824000 TRMBYTE1 EQU IEDNTRM+3 00825000 TRMSCPRQ EQU TRMBYTE1 00826000 TRMBYTE0 EQU IEDNTRM+6 00827000 TRMBUFRD EQU TRMBYTE0 00828000 TRMSIBPT EQU IEDNTRM+7 00829000 IEDQTRM EQU IEDTRM+14 00830000 TRMSTATE EQU IEDQTRM 00831000 TRMLOG EQU TRMSTATE 00832000 TRMINSEQ EQU IEDQTRM+4 00833000 TLISTCNT EQU TRMINSEQ 00834000 TRMOUTSQ EQU IEDQTRM+6 00835000 TLISTEN EQU TRMOUTSQ 00836000 TRMDSORG EQU TLISTEN 00837000 TRMALTD EQU IEDQTRM+8 00838000 TRMDEVFL EQU IEDQTRM+10 00839000 TRMSTAT EQU IEDQTRM+12 00840000 IEDBDU EQU 0 00841000 BDUFNFLG EQU IEDBDU+2 00842000 BDUBDUFG EQU IEDBDU+3 00843000 BDURSP EQU IEDBDU+4 00844000 BDUSYRSP EQU BDURSP 00845000 BDUEXRSP EQU BDURSP+1 00846000 BDUEND EQU IEDBDU+6 00847000 IEDPRUQD EQU 0 00848000 PRUTIC EQU IEDPRUQD+8 00849000 PRUDATA EQU IEDPRUQD+12 00850000 IEDPRUND EQU 0 00851000 PRURHTH EQU IEDPRUND 00852000 PRURH EQU PRURHTH 00853000 PRURHFG0 EQU PRURH 00854000 PRURHSDI EQU PRURHFG0 00855000 PRURHFG1 EQU PRURH+1 00856000 PRURHFG2 EQU PRURH+2 00857000 PRUTH EQU PRURHTH+3 00858000 PRUFIDN EQU PRUTH 00859000 IEDQOPCE EQU 0 00860000 OCELEM EQU IEDQOPCE+4 00861000 OCUNIT EQU IEDQOPCE+8 00862000 OCRUDEST EQU OCUNIT 00863000 OCCKPKEY EQU OCRUDEST 00864000 OCSCAN EQU OCCKPKEY 00865000 OCOPTCDE EQU IEDQOPCE+12 00866000 OCSWITCH EQU IEDQOPCE+13 00867000 OCFLAG EQU IEDQOPCE+14 00868000 @NM00139 EQU IEDQOPCE+16 00869000 OCDEST EQU @NM00139 00870000 OCREQVAL EQU OCDEST+1 00871000 OCTRMTBL EQU IEDQOPCE+20 00872000 OCLINENO EQU IEDQOPCE+22 00873000 OCTIOT EQU OCLINENO 00874000 OCTRUNIT EQU IEDQOPCE+24 00875000 OCRSID EQU OCTRUNIT 00876000 OCALSTAT EQU OCRSID 00877000 OCPARM EQU IEDQOPCE+28 00878000 OCBACKUP EQU IEDQOPCE+32 00879000 OCMODNME EQU IEDQOPCE+40 00880000 OCIPLWA EQU OCMODNME 00881000 OCCKDATA EQU IEDQOPCE+48 00882000 OCRSTGTM EQU OCCKDATA 00883000 IEDQOPCN EQU 0 00884000 OCLDNME EQU IEDQOPCN 00885000 OCLINTTE EQU OCLDNME 00886000 OCREQFLG EQU OCLINTTE+2 00887000 OCPREFLG EQU OCLINTTE+3 00888000 IEDQPRF EQU 0 00889000 PRFRCB EQU IEDQPRF 00890000 PRFKEY EQU PRFRCB 00891000 PRFQCBA EQU PRFRCB+1 00892000 PRFPRI EQU PRFRCB+4 00893000 PRFLINK EQU PRFRCB+5 00894000 PRFTIC EQU IEDQPRF+8 00895000 PRFTICC EQU PRFTIC 00896000 PRFNBUNT EQU IEDQPRF+12 00897000 PRFSUNIT EQU PRFNBUNT 00898000 PRFPLQCB EQU PRFSUNIT 00899000 @NM00156 EQU IEDQPRF+16 00900000 PRFSVFFO EQU @NM00156 00901000 PRFSTAT1 EQU IEDQPRF+20 00902000 PRFEOFN EQU PRFSTAT1 00903000 PRFCORE EQU IEDQPRF+21 00904000 PRFXTRA EQU PRFCORE 00905000 PRFSCAN EQU IEDQPRF+24 00906000 PRFTQBCK EQU IEDQPRF+26 00907000 PRFNTXT EQU PRFTQBCK 00908000 PRFEOBOF EQU PRFNTXT 00909000 PRFCHDR EQU IEDQPRF+32 00910000 PRFHQBCK EQU IEDQPRF+35 00911000 IEDPF1 EQU 0 00912000 PRF1FLG1 EQU IEDPF1+3 00913000 PRF1WD2 EQU IEDPF1+4 00914000 PRF1SEQP EQU PRF1WD2 00915000 PRF1SQID EQU PRF1SEQP 00916000 PRF1TAG1 EQU PRF1SQID 00917000 IEDPF2 EQU 0 00918000 PRF2FLG2 EQU IEDPF2 00919000 PRF2WD2 EQU IEDPF2+4 00920000 IEDNTNTD EQU 0 00921000 WORKAREA EQU 0 00922000 WVERB EQU WORKAREA+8 00923000 WRTCD EQU WORKAREA+11 00924000 WTO EQU WORKAREA+16 00925000 WFROM EQU WORKAREA+20 00926000 WAIBEND EQU WORKAREA+36 00927000 FIELD EQU 0 00928000 FCOUNT EQU FIELD 00929000 FLAGS EQU FCOUNT 00930000 DEVASSO EQU FLAGS 00931000 LASTID EQU FLAGS 00932000 BIT2 EQU FLAGS 00933000 CONTROL EQU 0 00934000 TOTENT EQU CONTROL 00935000 ACTENT EQU CONTROL+1 00936000 WIDTH EQU CONTROL+2 00937000 CNTFLG EQU CONTROL+3 00938000 CPUID EQU CONTROL+4 00939000 TOTSND EQU CPUID 00940000 TOTTRM EQU CPUID+3 00941000 WA EQU 0 00942000 NEXTRCD EQU WA 00943000 ENDUNIT EQU WA+4 00944000 RTRM EQU WA+8 00945000 IEDIAP03 EQU 0 00946000 AVTADDR EQU 0 00947000 IEDNBPTR EQU 0 00948000 IEDNLPTR EQU 0 00949000 IEDQLPTR EQU 0 00950000 IEDQQPTR EQU 0 00951000 IEDQTPTR EQU 0 00952000 CVTS01 EQU CVTPGSIA 00953000 CVTLPDIA EQU CVTS01+12 00954000 CVTDIRST EQU CVTLPDIA 00955000 CVTSLIDA EQU CVTS01+24 00956000 CVTCTLFG EQU CVTS01+50 00957000 CVTRV210 EQU CVTS01+424 00958000 CVTRV219 EQU CVTS01+425 00959000 CVTRV228 EQU CVTS01+426 00960000 CVTRV237 EQU CVTS01+427 00961000 CVTMFRTR EQU CVTS01+452 00962000 CVTRV262 EQU CVTS01+468 00963000 CVTRV271 EQU CVTS01+469 00964000 CVTRV280 EQU CVTS01+470 00965000 CVTRV289 EQU CVTS01+471 00966000 CVTGSDA EQU CVTS01+600 00967000 AVTECBCC EQU AVTOSECB 00968000 OPCAQWD EQU OPCAQCTL 00969000 OPCAQWD1 EQU OPCAQWD 00970000 OPCAQWD2 EQU OPCAQWD+4 00971000 OPCAQWD3 EQU OPCAQWD+8 00972000 TRMPRE1 EQU TRMBYTE4 00973000 TRMNCP1 EQU TRMBYTE4 00974000 TRMPRE EQU TRMBYTE3 00975000 TRMNCP EQU TRMBYTE3 00976000 TRMPU EQU TRMBYTE3 00977000 TRMLU EQU TRMBYTE3 00978000 TRMLINK EQU TRMBYTE3 00979000 ROPCE EQU OPCCOPCE 00980000 OCCIB EQU OCREQVAL 00981000 OCCKPKY1 EQU OCCKPKEY 00982000 OCCKPTYP EQU OCCKPKY1 00983000 OCICACTN EQU OCMODNME 00984000 OCICDADR EQU OCICACTN 00985000 OCICSW EQU OCICDADR+3 00986000 OCTIC EQU OCUNIT+1 00987000 AQLIST EQU OCTRMTBL 00988000 OCQCTL1 EQU AQLIST 00989000 OCQCTL2 EQU AQLIST+4 00990000 BDUTEXT EQU BDUEND 00991000 PRFSHDR EQU IEDQPRF+42 00992000 * START UNREFERENCED COMPONENTS 00993000 OCQCTLND EQU OCQCTL2 00994000 OCQCTLCD EQU OCQCTL1 00995000 OCICINAC EQU OCICSW 00996000 @NM00145 EQU OCICSW 00997000 OCICATST EQU OCICDADR+1 00998000 OCICTYPE EQU OCICDADR 00999000 @NM00144 EQU OCCKPKY1 01000000 OCCKPENV EQU OCCKPKY1 01001000 OCCKPRST EQU OCCKPTYP 01002000 OCCKPNCP EQU OCCKPTYP 01003000 OCCKPINC EQU OCCKPTYP 01004000 @NM00127 EQU TRMLINK 01005000 TRMLSTAT EQU TRMLINK 01006000 TRMLINT EQU TRMLINK 01007000 TRMEPMOD EQU TRMLINK 01008000 TRMLULOG EQU TRMLU 01009000 TRMINERR EQU TRMLU 01010000 TRMLUREQ EQU TRMLU 01011000 TRMSESRQ EQU TRMLU 01012000 TRMTDIFF EQU TRMLU 01013000 TRMLUTM EQU TRMLU 01014000 TRMLUIT EQU TRMLU 01015000 TRMAUTO EQU TRMLU 01016000 TRMPCONT EQU TRMPU 01017000 @NM00126 EQU TRMPU 01018000 TRMNCONT EQU TRMNCP 01019000 TRMQUCKN EQU TRMNCP 01020000 TRMSLOWN EQU TRMNCP 01021000 TRMSYGEN EQU TRMNCP 01022000 TRMNCPCL EQU TRMNCP 01023000 TRMIPLDM EQU TRMNCP 01024000 TRMINOUT EQU TRMPRE 01025000 TRMRDOUT EQU TRMPRE 01026000 TRMNLOUT EQU TRMPRE 01027000 TRMWROUT EQU TRMPRE 01028000 TRMASNXI EQU TRMPRE 01029000 TRMSTMM EQU TRMPRE 01030000 TRMCMODE EQU TRMPRE 01031000 TRMSTPND EQU TRMPRE 01032000 @NM00125 EQU TRMNCP1 01033000 TRMINOP EQU TRMNCP1 01034000 TRMLYNCH EQU TRMPRE1 01035000 TRMSPOUT EQU TRMPRE1 01036000 TRMERLCK EQU TRMPRE1 01037000 TRMQNPL EQU TRMPRE1 01038000 TRMSPACT EQU TRMPRE1 01039000 TRMOCNI EQU TRMPRE1 01040000 TRMSESSN EQU TRMPRE1 01041000 TRMCONT EQU TRMPRE1 01042000 OPCAQLST EQU OPCAQWD3+1 01043000 OPCAQRQ3 EQU OPCAQWD3 01044000 OPCAQSEC EQU OPCAQWD2+1 01045000 OPCAQRQ2 EQU OPCAQWD2 01046000 OPCAQFST EQU OPCAQWD1+1 01047000 OPCAQREQ EQU OPCAQWD1 01048000 AVTECBCP EQU AVTECBCC 01049000 @NM00107 EQU AVTECBCC 01050000 CVTRV628 EQU CVTS01+728 01051000 CVTRV627 EQU CVTS01+724 01052000 CVTRV626 EQU CVTS01+720 01053000 CVTRV625 EQU CVTS01+716 01054000 CVTRV624 EQU CVTS01+712 01055000 CVTRV623 EQU CVTS01+708 01056000 CVTRV622 EQU CVTS01+704 01057000 CVTRV621 EQU CVTS01+700 01058000 CVTRV620 EQU CVTS01+696 01059000 CVTRV619 EQU CVTS01+692 01060000 CVTRV618 EQU CVTS01+688 01061000 CVTRV617 EQU CVTS01+684 01062000 CVTRV616 EQU CVTS01+680 01063000 CVTRV615 EQU CVTS01+676 01064000 CVTRV614 EQU CVTS01+672 01065000 CVTRV613 EQU CVTS01+668 01066000 CVTTCASP EQU CVTS01+664 01067000 CVT0PT03 EQU CVTS01+660 01068000 CVT0PT0E EQU CVTS01+656 01069000 CVTIRM EQU CVTS01+652 01070000 CVTCGK EQU CVTS01+648 01071000 CVTRV607 EQU CVTS01+644 01072000 CVTRV606 EQU CVTS01+640 01073000 CVTRV605 EQU CVTS01+636 01074000 CVTRV604 EQU CVTS01+632 01075000 CVTEFF02 EQU CVTS01+628 01076000 CVTCBBR EQU CVTS01+624 01077000 CVTSSCR EQU CVTS01+620 01078000 CVTEVENT EQU CVTS01+616 01079000 CVTCRCA EQU CVTS01+612 01080000 CVTTPIO EQU CVTS01+608 01081000 CVTADV EQU CVTS01+604 01082000 CVTGSDAB EQU CVTGSDA 01083000 CVTQV3 EQU CVTS01+596 01084000 CVTQV2 EQU CVTS01+592 01085000 CVTQV1 EQU CVTS01+588 01086000 CVTRPT EQU CVTS01+584 01087000 CVTSSRB EQU CVTS01+580 01088000 CVTCSDRL EQU CVTS01+576 01089000 CVTEXP1 EQU CVTS01+572 01090000 CVTRMPMT EQU CVTS01+568 01091000 CVTRMPTT EQU CVTS01+564 01092000 CVTVPSA EQU CVTS01+560 01093000 CVTVSTOP EQU CVTS01+556 01094000 CVTGTFR8 EQU CVTS01+552 01095000 CVTQUIT EQU CVTS01+548 01096000 CVTVACR EQU CVTS01+544 01097000 CVTWTCB EQU CVTS01+540 01098000 CVTSTPRS EQU CVTS01+536 01099000 CVT0PT02 EQU CVTS01+532 01100000 CVTDARCM EQU CVTS01+528 01101000 CVTIRECM EQU CVTS01+524 01102000 CVTJRECM EQU CVTS01+520 01103000 CVTVEMS0 EQU CVTS01+516 01104000 CVTSPFRR EQU CVTS01+512 01105000 CVTRLSTG EQU CVTS01+508 01106000 CVT0TC0A EQU CVTS01+504 01107000 CVTGMBR EQU CVTS01+500 01108000 CVTLFRM EQU CVTS01+496 01109000 CVTRMBR EQU CVTS01+492 01110000 CVTVIOP EQU CVTS01+488 01111000 CVTRV307 EQU CVTS01+486 01112000 CVTRV306 EQU CVTS01+484 01113000 CVTRV305 EQU CVTS01+482 01114000 CVTRV304 EQU CVTS01+480 01115000 CVTRV303 EQU CVTS01+478 01116000 CVTRV302 EQU CVTS01+476 01117000 CVTTRCA EQU CVTS01+472 01118000 CVTRV297 EQU CVTRV289 01119000 CVTRV296 EQU CVTRV289 01120000 CVTRV295 EQU CVTRV289 01121000 CVTRV294 EQU CVTRV289 01122000 CVTRV293 EQU CVTRV289 01123000 CVTRV292 EQU CVTRV289 01124000 CVTRV291 EQU CVTRV289 01125000 CVTRV290 EQU CVTRV289 01126000 CVTRV288 EQU CVTRV280 01127000 CVTRV287 EQU CVTRV280 01128000 CVTRV286 EQU CVTRV280 01129000 CVTRV285 EQU CVTRV280 01130000 CVTRV284 EQU CVTRV280 01131000 CVTRV283 EQU CVTRV280 01132000 CVTRV282 EQU CVTRV280 01133000 CVTRV281 EQU CVTRV280 01134000 CVTRV279 EQU CVTRV271 01135000 CVTRV278 EQU CVTRV271 01136000 CVTRV277 EQU CVTRV271 01137000 CVTRV276 EQU CVTRV271 01138000 CVTRV275 EQU CVTRV271 01139000 CVTRV274 EQU CVTRV271 01140000 CVTRV273 EQU CVTRV271 01141000 CVTRV272 EQU CVTRV271 01142000 CVTRV270 EQU CVTRV262 01143000 CVTRV269 EQU CVTRV262 01144000 CVTRV268 EQU CVTRV262 01145000 CVTRV267 EQU CVTRV262 01146000 CVTRV266 EQU CVTRV262 01147000 CVTRV265 EQU CVTRV262 01148000 CVTRV264 EQU CVTRV262 01149000 CVTRV263 EQU CVTRV262 01150000 CVTVFP EQU CVTS01+464 01151000 CVTVSI EQU CVTS01+460 01152000 CVTVPSIB EQU CVTS01+456 01153000 CVTMFACT EQU CVTMFRTR 01154000 CVTMFCTL EQU CVTS01+448 01155000 CVTPVBP EQU CVTS01+444 01156000 CVTPWI EQU CVTS01+440 01157000 CVTRV254 EQU CVTS01+438 01158000 CVTRV253 EQU CVTS01+436 01159000 CVTRV252 EQU CVTS01+434 01160000 CVTRV251 EQU CVTS01+433 01161000 CVTRV250 EQU CVTS01+432 01162000 CVTRV249 EQU CVTS01+431 01163000 CVTRV248 EQU CVTS01+430 01164000 CVTRV247 EQU CVTS01+429 01165000 CVTRV246 EQU CVTS01+428 01166000 CVTRV245 EQU CVTRV237 01167000 CVTRV244 EQU CVTRV237 01168000 CVTRV243 EQU CVTRV237 01169000 CVTRV242 EQU CVTRV237 01170000 CVTRV241 EQU CVTRV237 01171000 CVTRV240 EQU CVTRV237 01172000 CVTRV239 EQU CVTRV237 01173000 CVTRV238 EQU CVTRV237 01174000 CVTRV236 EQU CVTRV228 01175000 CVTRV235 EQU CVTRV228 01176000 CVTRV234 EQU CVTRV228 01177000 CVTRV233 EQU CVTRV228 01178000 CVTRV232 EQU CVTRV228 01179000 CVTRV231 EQU CVTRV228 01180000 CVTRV230 EQU CVTRV228 01181000 CVTRV229 EQU CVTRV228 01182000 CVTRV227 EQU CVTRV219 01183000 CVTRV226 EQU CVTRV219 01184000 CVTRV225 EQU CVTRV219 01185000 CVTRV224 EQU CVTRV219 01186000 CVTRV223 EQU CVTRV219 01187000 CVTRV222 EQU CVTRV219 01188000 CVTRV221 EQU CVTRV219 01189000 CVTRV220 EQU CVTRV219 01190000 CVTRV218 EQU CVTRV210 01191000 CVTRV217 EQU CVTRV210 01192000 CVTRV216 EQU CVTRV210 01193000 CVTRV215 EQU CVTRV210 01194000 CVTRV214 EQU CVTRV210 01195000 CVTRV213 EQU CVTRV210 01196000 CVTRV212 EQU CVTRV210 01197000 CVTRV211 EQU CVTRV210 01198000 CVTLCCAT EQU CVTS01+420 01199000 CVTPCCAT EQU CVTS01+416 01200000 CVTIPCRP EQU CVTS01+412 01201000 CVTIPCRI EQU CVTS01+408 01202000 CVTIPCDS EQU CVTS01+404 01203000 CVTAIDVT EQU CVTS01+400 01204000 CVTSSAP EQU CVTS01+396 01205000 CVTEHCIR EQU CVTS01+392 01206000 CVTEHDEF EQU CVTS01+388 01207000 CVTDAIR EQU CVTS01+384 01208000 CVTPERFM EQU CVTS01+380 01209000 CVT044R2 EQU CVTS01+376 01210000 CVTFETCH EQU CVTS01+372 01211000 CVTRSTWD EQU CVTS01+368 01212000 CVTSPOST EQU CVTS01+364 01213000 CVTIOBP EQU CVTS01+360 01214000 CVTASMVT EQU CVTS01+356 01215000 CVTRECRQ EQU CVTS01+352 01216000 CVTWSAC EQU CVTS01+348 01217000 CVTRV149 EQU CVTS01+344 01218000 CVTWSAL EQU CVTS01+340 01219000 CVTSPSA EQU CVTS01+336 01220000 CVTGLMN EQU CVTS01+332 01221000 CVTVEAC0 EQU CVTS01+328 01222000 CVT062R1 EQU CVTS01+324 01223000 CVTRPOST EQU CVTS01+320 01224000 CVTDQIQE EQU CVTS01+316 01225000 CVTCSD EQU CVTS01+312 01226000 CVTLKRMA EQU CVTS01+308 01227000 CVTRSPIE EQU CVTS01+304 01228000 CVTRENQ EQU CVTS01+300 01229000 CVTLQCB EQU CVTS01+296 01230000 CVTFQCB EQU CVTS01+292 01231000 CVTQCS01 EQU CVTS01+288 01232000 CVTAPFT EQU CVTS01+284 01233000 CVTPARRL EQU CVTS01+280 01234000 CVTVWAIT EQU CVTS01+276 01235000 CVTGSPL EQU CVTS01+272 01236000 CVTLSMQ EQU CVTS01+268 01237000 CVTGSMQ EQU CVTS01+264 01238000 CVTEXPRO EQU CVTS01+260 01239000 CVTOPCTP EQU CVTS01+256 01240000 CVTSIC EQU CVTS01+252 01241000 CVTTPIOS EQU CVTS01+248 01242000 CVTRTMS EQU CVTS01+244 01243000 CVTSDBF EQU CVTS01+240 01244000 CVTSCBP EQU CVTS01+236 01245000 CVTSDMP EQU CVTS01+232 01246000 CVTSV60 EQU CVTS01+228 01247000 CVTRTMCT EQU CVTS01+224 01248000 CVTASCBL EQU CVTS01+220 01249000 CVTASCBH EQU CVTS01+216 01250000 CVTGDA EQU CVTS01+212 01251000 CVTASVT EQU CVTS01+208 01252000 CVTVVMDI EQU CVTS01+204 01253000 CVTAQTOP EQU CVTS01+200 01254000 CVTIOSCS EQU CVTS01+196 01255000 CVTSDRM EQU CVTS01+192 01256000 CVTOPTE EQU CVTS01+188 01257000 CVTSTXU EQU CVTS01+184 01258000 CVTQUIS EQU CVTS01+180 01259000 CVTPARS EQU CVTS01+176 01260000 CVTS1EE EQU CVTS01+172 01261000 CVTFRAS EQU CVTS01+168 01262000 CVTQSAS EQU CVTS01+164 01263000 CVTCRAS EQU CVTS01+160 01264000 CVTCRMN EQU CVTS01+156 01265000 CVTDELCP EQU CVTS01+152 01266000 CVTFRECL EQU CVTS01+148 01267000 CVTGETCL EQU CVTS01+144 01268000 CVTBLDCP EQU CVTS01+140 01269000 CVTAUTHL EQU CVTS01+136 01270000 CVTSCAN EQU CVTS01+132 01271000 CVTRV144 EQU CVTS01+130 01272000 CVTMAXMP EQU CVTS01+128 01273000 CVTSTCK EQU CVTS01+124 01274000 CVTRV139 EQU CVTS01+123 01275000 CVTDSSAC EQU CVTS01+122 01276000 CVTRV513 EQU CVTS01+121 01277000 CVTIOSPL EQU CVTS01+120 01278000 CVTPTGT EQU CVTS01+116 01279000 CVTCSPIE EQU CVTS01+112 01280000 CVTSMFEX EQU CVTS01+108 01281000 CVTOLT0A EQU CVTS01+104 01282000 CVTSRBRT EQU CVTS01+100 01283000 CVTPUTL EQU CVTS01+96 01284000 CVTASCRL EQU CVTS01+92 01285000 CVTASCRF EQU CVTS01+88 01286000 CVTRV326 EQU CVTS01+84 01287000 CVTRV325 EQU CVTS01+80 01288000 CVTRV324 EQU CVTS01+76 01289000 CVT0VL01 EQU CVTS01+72 01290000 CVTSHRVM EQU CVTS01+68 01291000 CVTRV332 EQU CVTS01+64 01292000 CVTTAS EQU CVTS01+60 01293000 CVTRSCN EQU CVTS01+56 01294000 CVTTRAC2 EQU CVTS01+54 01295000 CVTTRACE EQU CVTS01+52 01296000 CVTAPG EQU CVTS01+51 01297000 CVTSDTRC EQU CVTCTLFG 01298000 CVTGTRCE EQU CVTCTLFG 01299000 CVTNOMP EQU CVTCTLFG 01300000 CVTRSV79 EQU CVTCTLFG 01301000 CVTDSTAT EQU CVTCTLFG 01302000 CVTRSV78 EQU CVTCTLFG 01303000 CVTRV333 EQU CVTCTLFG 01304000 CVTRV323 EQU CVTCTLFG 01305000 CVTSPVLK EQU CVTS01+49 01306000 CVTRSV77 EQU CVTS01+48 01307000 CVTRV331 EQU CVTS01+44 01308000 CVTRV330 EQU CVTS01+40 01309000 CVTRV329 EQU CVTS01+36 01310000 CVTRV328 EQU CVTS01+32 01311000 CVTRV322 EQU CVTS01+28 01312000 CVTSLID EQU CVTSLIDA+1 01313000 CVTSYLK EQU CVTSLIDA 01314000 CVTRV321 EQU CVTS01+20 01315000 CVTRV320 EQU CVTS01+16 01316000 CVTLPDIR EQU CVTLPDIA+1 01317000 CVTRSV69 EQU CVTDIRST 01318000 CVTRSV68 EQU CVTDIRST 01319000 CVTRSV67 EQU CVTDIRST 01320000 CVTRSV66 EQU CVTDIRST 01321000 CVTRSV65 EQU CVTDIRST 01322000 CVTRSV64 EQU CVTDIRST 01323000 CVTRSV63 EQU CVTDIRST 01324000 CVTDICOM EQU CVTDIRST 01325000 CVTPVTP EQU CVTS01+8 01326000 CVTLPDSR EQU CVTS01+4 01327000 CVTGETL EQU CVTS01 01328000 @NM00165 EQU CPUID+1 01329000 @NM00164 EQU WORKAREA+28 01330000 WRQTG EQU WORKAREA+26 01331000 WTNTNDX EQU WORKAREA+24 01332000 WECBA EQU WORKAREA+12 01333000 WANSCD EQU WORKAREA+10 01334000 WENTCD EQU WORKAREA+9 01335000 WLINK EQU WORKAREA+5 01336000 WPRI EQU WORKAREA+4 01337000 WQCBADR EQU WORKAREA 01338000 TNTFIRST EQU IEDNTNTD+82 01339000 @NM00163 EQU IEDNTNTD+41 01340000 TNTENLEN EQU IEDNTNTD+40 01341000 @NM00162 EQU IEDNTNTD 01342000 PRF2SEQP EQU PRF2WD2 01343000 @NM00161 EQU IEDPF2+1 01344000 @NM00160 EQU PRF2FLG2 01345000 PRF2TERM EQU PRF2FLG2 01346000 PRF2SMI EQU PRF2FLG2 01347000 PRF2FORM EQU PRF2FLG2 01348000 PRF2TNTI EQU PRF2FLG2 01349000 PRF1RULN EQU PRF1SEQP+2 01350000 PRF1TAG2 EQU PRF1SQID+1 01351000 @NM00159 EQU PRF1TAG1 01352000 PRF1TAGS EQU PRF1TAG1 01353000 @NM00158 EQU PRF1FLG1 01354000 PRF1LOGD EQU PRF1FLG1 01355000 PRF1USS EQU PRF1FLG1 01356000 PRF1FORM EQU PRF1FLG1 01357000 PRF1EXPI EQU PRF1FLG1 01358000 PRF1FIDI EQU PRF1FLG1 01359000 PRF1RH EQU IEDPF1 01360000 PRFDEST EQU IEDQPRF+40 01361000 PRFISEQ EQU IEDQPRF+38 01362000 PRFSTXT EQU PRFHQBCK 01363000 PRFNHDR EQU PRFCHDR 01364000 PRFCRCD EQU IEDQPRF+29 01365000 PRFSVSEQ EQU PRFNTXT+1 01366000 PRFSVPRI EQU PRFEOBOF 01367000 PRFISIZE EQU PRFSCAN+1 01368000 @NM00157 EQU PRFSCAN 01369000 PRFEOB EQU PRFXTRA+1 01370000 PRFSTSO EQU PRFXTRA 01371000 PRFNHDRN EQU PRFSTAT1 01372000 PRFNLSTN EQU PRFSTAT1 01373000 PRFLOCK EQU PRFEOFN 01374000 PRFDUPLN EQU PRFSTAT1 01375000 PRFTSMSG EQU PRFSTAT1 01376000 PRFITCPN EQU PRFSTAT1 01377000 PRFERMGN EQU PRFSTAT1 01378000 PRFCNCLN EQU PRFSTAT1 01379000 PRFSVFLG EQU @NM00156+3 01380000 PRFSIZE EQU PRFSVFFO+2 01381000 PRFSRCE EQU PRFSVFFO 01382000 PRFLCB EQU IEDQPRF+13 01383000 PRFPIUO EQU PRFPLQCB 01384000 PRFTI0 EQU PRFTIC+1 01385000 @NM00155 EQU PRFTICC 01386000 @NM00154 EQU PRFTICC 01387000 @NM00153 EQU PRFTICC 01388000 PRFTICON EQU PRFTICC 01389000 @NM00152 EQU PRFTICC 01390000 @NM00151 EQU PRFTICC 01391000 PRFBFMM EQU PRFTICC 01392000 PRFEOMSG EQU PRFTICC 01393000 PRFCOUNT EQU PRFLINK+1 01394000 @NM00150 EQU PRFLINK 01395000 PRFFLAGS EQU PRFPRI 01396000 PRFIOADR EQU PRFQCBA 01397000 PRFOPCDE EQU PRFKEY 01398000 @NM00149 EQU OCLDNME+4 01399000 @NM00148 EQU OCPREFLG 01400000 OCTOTEP EQU OCPREFLG 01401000 OCREPOST EQU OCPREFLG 01402000 OCRSPSNT EQU OCPREFLG 01403000 OCBFREQ EQU OCPREFLG 01404000 OCIDLE EQU OCREQFLG 01405000 OCFORCE EQU OCREQFLG 01406000 OCDCARD EQU OCREQFLG 01407000 OCPARTAL EQU OCREQFLG 01408000 OCADNCP EQU OCREQFLG 01409000 @NM00147 EQU OCREQFLG 01410000 @NM00146 EQU OCREQFLG 01411000 OCFLUSHZ EQU OCREQFLG 01412000 OCRESPCT EQU OCLINTTE 01413000 OCCKPTWA EQU OCCKDATA+4 01414000 @NM00143 EQU OCRSTGTM+2 01415000 OCCKDAT2 EQU OCRSTGTM+1 01416000 OCCKDAT1 EQU OCRSTGTM 01417000 OCPTRSAV EQU OCMODNME+4 01418000 OCPUADR EQU OCIPLWA+2 01419000 OCWTGSAV EQU OCIPLWA 01420000 OCDVRDCT EQU OCBACKUP+6 01421000 OCNCP EQU OCBACKUP+4 01422000 OCBUFGOT EQU OCBACKUP+2 01423000 OCBUFNED EQU OCBACKUP 01424000 OCWTG EQU IEDQOPCE+30 01425000 OCRESNUM EQU OCPARM 01426000 OCSEQ EQU OCTRUNIT+2 01427000 @NM00142 EQU OCRSID+1 01428000 OCNONE EQU OCALSTAT 01429000 OCSOME EQU OCALSTAT 01430000 OCALLFLG EQU OCALSTAT 01431000 OCACTREQ EQU OCALSTAT 01432000 OCREDRVE EQU OCALSTAT 01433000 OCSEQIND EQU OCALSTAT 01434000 @NM00141 EQU OCALSTAT 01435000 OCRENTRD EQU OCALSTAT 01436000 OCWTGB EQU OCTIOT 01437000 @NM00140 EQU @NM00139+2 01438000 OCCONID EQU OCDEST 01439000 OCRLN EQU IEDQOPCE+15 01440000 OCRESP EQU OCFLAG 01441000 OCATTACH EQU OCFLAG 01442000 OCSSCP EQU OCFLAG 01443000 OCOUTPUT EQU OCFLAG 01444000 OCLINE EQU OCFLAG 01445000 OCMPP EQU OCFLAG 01446000 OCTOTE EQU OCFLAG 01447000 OCCONSOL EQU OCFLAG 01448000 @NM00138 EQU OCSWITCH 01449000 OCQUCKN EQU OCSWITCH 01450000 OCPRIFLG EQU OCOPTCDE 01451000 @NM00137 EQU OCRUDEST+1 01452000 @NM00136 EQU OCSCAN 01453000 OCNOTUCB EQU OCSCAN 01454000 OCNONAME EQU OCSCAN 01455000 OCALLRLN EQU OCSCAN 01456000 OCDDNAME EQU OCSCAN 01457000 OCDDNRLN EQU OCSCAN 01458000 OCADDR EQU OCSCAN 01459000 OCELMPTR EQU OCELEM+1 01460000 OCELMPRI EQU OCELEM 01461000 OCLINK EQU IEDQOPCE 01462000 @NM00135 EQU IEDPRUND+4 01463000 PRUTHEFI EQU PRUFIDN 01464000 PRUTHUSS EQU PRUFIDN 01465000 PRUTHEIU EQU PRUFIDN 01466000 PRUTHBIU EQU PRUFIDN 01467000 PRUTHTYE EQU PRUFIDN 01468000 @NM00134 EQU PRURHFG2 01469000 PRURHCSI EQU PRURHFG2 01470000 @NM00133 EQU PRURHFG2 01471000 PRURHCDI EQU PRURHFG2 01472000 PRURHEB EQU PRURHFG2 01473000 PRURHBB EQU PRURHFG2 01474000 PRURHPI EQU PRURHFG1 01475000 @NM00132 EQU PRURHFG1 01476000 PRURHER EQU PRURHFG1 01477000 PRURHDR2 EQU PRURHFG1 01478000 @NM00131 EQU PRURHFG1 01479000 PRURHDR1 EQU PRURHFG1 01480000 PRURHEC EQU PRURHFG0 01481000 PRURHBC EQU PRURHFG0 01482000 PRURHFI EQU PRURHFG0 01483000 @NM00130 EQU PRURHFG0 01484000 PRURUCAT EQU PRURHFG0 01485000 PRURHTYP EQU PRURHFG0 01486000 PRUNUNIT EQU PRUTIC+1 01487000 @NM00129 EQU PRUTIC 01488000 @NM00128 EQU IEDPRUQD+4 01489000 PRUDATCT EQU IEDPRUQD+2 01490000 PRUTTCIN EQU IEDPRUQD 01491000 BDUXGRPH EQU BDUEXRSP 01492000 BDUXFINL EQU BDUEXRSP 01493000 BDUXINIT EQU BDUEXRSP 01494000 BDURESP EQU BDUSYRSP 01495000 BDUPHASE EQU BDUSYRSP 01496000 BDUERROR EQU BDUSYRSP 01497000 BDUXERLK EQU BDUBDUFG 01498000 BDUALTAK EQU BDUFNFLG 01499000 BDUNEGAK EQU BDUFNFLG 01500000 BDUPOSAK EQU BDUFNFLG 01501000 BDUTPTX EQU BDUFNFLG 01502000 BDUFRSTB EQU BDUFNFLG 01503000 BDULEADG EQU BDUFNFLG 01504000 BDUHEADR EQU BDUFNFLG 01505000 BDUSTHDR EQU BDUFNFLG 01506000 BDUMODIF EQU IEDBDU+1 01507000 BDUCMND EQU IEDBDU 01508000 TRMOPT EQU IEDTRM+34 01509000 TRMOPTBL EQU IEDQTRM+18 01510000 TRMOPNO EQU IEDQTRM+17 01511000 TRMCHCIN EQU IEDQTRM+16 01512000 TRMSENSE EQU TRMSTAT+3 01513000 TRMTEMPR EQU TRMSTAT+2 01514000 TRMSIO EQU TRMSTAT 01515000 @NM00124 EQU TRMDEVFL+1 01516000 TRMTPIN EQU TRMDEVFL+1 01517000 TRMNCPI EQU TRMDEVFL+1 01518000 TRMRNTRM EQU TRMDEVFL+1 01519000 @NM00123 EQU TRMDEVFL+1 01520000 TRMLMD EQU TRMDEVFL+1 01521000 TRMCONC EQU TRMDEVFL+1 01522000 TRMTSOB EQU TRMDEVFL 01523000 TRMBFDY EQU TRMDEVFL 01524000 TRMTBLK EQU TRMDEVFL 01525000 TRMSBLK EQU TRMDEVFL 01526000 TRMBLKS EQU TRMDEVFL 01527000 TRMADDC EQU TRMDEVFL 01528000 TRMDDIG EQU TRMDEVFL 01529000 TRMBUFS EQU TRMDEVFL 01530000 TRMPRILK EQU TRMALTD 01531000 TRMLGB EQU TRMDSORG 01532000 TRMUTERM EQU TLISTCNT 01533000 TRMDESTQ EQU IEDQTRM+1 01534000 TRMSCNYN EQU TRMSTATE 01535000 TRMOPTFN EQU TRMSTATE 01536000 TRMHELDN EQU TRMSTATE 01537000 TRMACPTN EQU TRMSTATE 01538000 TRMPREF EQU TRMSTATE 01539000 TRMPROC EQU TRMLOG 01540000 TRMLIST EQU TRMLOG 01541000 TRMLINE EQU TRMSTATE 01542000 TRMSUBST EQU IEDNTRM+12 01543000 TRMTYPE EQU IEDNTRM+11 01544000 TRMRLMCT EQU IEDNTRM+10 01545000 TRMCOHTG EQU TRMSIBPT+1 01546000 TRMGPCNT EQU TRMSIBPT 01547000 TRMSNA EQU TRMBYTE0 01548000 TRMGP EQU TRMBYTE0 01549000 TRMDIAL EQU TRMBYTE0 01550000 @NM00122 EQU TRMBYTE0 01551000 TRMOUTPT EQU TRMBYTE0 01552000 TRMINPUT EQU TRMBYTE0 01553000 TRMUDEF EQU TRMBYTE0 01554000 TRMCOHRT EQU IEDNTRM+4 01555000 TRMSTOTE EQU TRMBYTE1 01556000 TRMCKPRN EQU TRMBYTE1 01557000 TRMTSATN EQU TRMBYTE1 01558000 TRMTRACE EQU TRMBYTE1 01559000 TRMSWBCK EQU TRMBYTE1 01560000 TRMAUTOC EQU TRMBYTE1 01561000 TRMINPTP EQU TRMBYTE1 01562000 TRMWTNEG EQU TRMSCPRQ 01563000 TRMWRBRK EQU TRMBYTE2 01564000 TRMNOSND EQU TRMBYTE2 01565000 TRMPREP EQU TRMBYTE2 01566000 TRMGPACT EQU TRMBYTE2 01567000 TRMANDL EQU TRMBYTE2 01568000 TRMCLOSN EQU TRMINPG 01569000 TRMREMB EQU TRMBYTE2 01570000 OPCBOTTM EQU IEDQOPCD+1184 01571000 @NM00121 EQU IEDQOPCD+1100 01572000 @NM00120 EQU IEDQOPCD+948 01573000 @NM00119 EQU IEDQOPCD+940 01574000 @NM00118 EQU IEDQOPCD+380 01575000 @NM00117 EQU OPCPWCOB+9 01576000 @NM00116 EQU OPCPWCOB+8 01577000 @NM00115 EQU OPCPWECB+1 01578000 OPCPWCCC EQU OPCPWECB 01579000 OPCPWCHN EQU OPCPWQCB+1 01580000 OPCPWVTO EQU OPCPWQCB 01581000 OPCWAITV EQU IEDQOPCD+364 01582000 OPCTOTCK EQU IEDQOPCD+360 01583000 OPCAPXTL EQU IEDQOPCD+356 01584000 OPCDECR EQU IEDQOPCD+352 01585000 OPCBUFWT EQU IEDQOPCD+348 01586000 OPCWRKSP EQU IEDQOPCD+320 01587000 OPCADGOT EQU IEDQOPCD+318 01588000 OPCRQCNT EQU IEDQOPCD+316 01589000 OPPOLSTP EQU IEDQOPCD+312 01590000 OPCCKCIB EQU IEDQOPCD+308 01591000 OPCEND EQU IEDQOPCD+307 01592000 OPCSTCBS EQU IEDQOPCD+306 01593000 OPCHNEND EQU IEDQOPCD+302 01594000 OPCOQSW EQU IEDQOPCD+301 01595000 @NM00114 EQU OPCSPEC 01596000 @NM00113 EQU OPCSPEC 01597000 @NM00112 EQU OPCSPEC 01598000 @NM00111 EQU OPCSPEC 01599000 OPCFRMCA EQU OPCSPEC 01600000 OPCRSTRT EQU OPCSPEC 01601000 OPCPART EQU OPCSPEC 01602000 OPCALTD EQU OPCSPEC 01603000 OPCBFEND EQU IEDQOPCD+296 01604000 OPCBFIRS EQU IEDQOPCD+292 01605000 OPCAVBUF EQU IEDQOPCD+290 01606000 OPCIPLCT EQU IEDQOPCD+289 01607000 OPCCLNTS EQU IEDQOPCD+288 01608000 OPCHA8 EQU IEDQOPCD+286 01609000 OPCBFREQ EQU IEDQOPCD+284 01610000 OPCFREBF EQU IEDQOPCD+280 01611000 OPCGETBF EQU IEDQOPCD+276 01612000 OPCNEXT EQU IEDQOPCD+272 01613000 OPCFMDFC EQU IEDQOPCD+268 01614000 OPCSCNC EQU IEDQOPCD+264 01615000 OPCHORTG EQU IEDQOPCD+260 01616000 OPCHORT EQU IEDQOPCD+256 01617000 OPCCKPTL EQU IEDQOPCD+252 01618000 OPCCKPTF EQU IEDQOPCD+248 01619000 OPCWAITA EQU IEDQOPCD+244 01620000 OPCWAITR EQU IEDQOPCD+240 01621000 OPCWAITP EQU IEDQOPCD+236 01622000 OPCWAITO EQU IEDQOPCD+232 01623000 OPCWAITN EQU IEDQOPCD+228 01624000 OPCWAITL EQU IEDQOPCD+224 01625000 OPCWAITC EQU IEDQOPCD+220 01626000 @NM00110 EQU OPCLDNME+5 01627000 @NM00109 EQU OPCLDNME 01628000 OPCWAIT EQU IEDQOPCD+192 01629000 OPCCKERB EQU IEDQOPCD+164 01630000 OPCBFERB EQU IEDQOPCD+148 01631000 OPCFLAG2 EQU IEDQOPCD+147 01632000 OPCWRKSZ EQU IEDQOPCD+144 01633000 OPCRSAVE EQU IEDQOPCD+132 01634000 OPCQCBAD EQU IEDQOPCD+128 01635000 OPCSAVE EQU IEDQOPCD+56 01636000 OPCTRMWA EQU IEDQOPCD+52 01637000 OPCPSTWT EQU IEDQOPCD+48 01638000 OPCTNTEA EQU IEDQOPCD+44 01639000 OPCPGCK EQU IEDQOPCD+40 01640000 OPCLCB EQU IEDQOPCD+36 01641000 @NM00108 EQU IEDQOPCD+32 01642000 OPCIPLAD EQU IEDQOPCD+28 01643000 OPCTOFLK EQU IEDQOPCD+24 01644000 OPCOPTLK EQU IEDQOPCD+20 01645000 OPCDCBLK EQU IEDQOPCD+16 01646000 OPCDOUBL EQU IEDQOPCD 01647000 SAVTBITN EQU IEDNSVTD+312 01648000 @NM00106 EQU SAVTCKQB+8 01649000 @NM00105 EQU SAVTCKEC+1 01650000 @NM00104 EQU SAVTCKCC 01651000 SAVTCKPO EQU SAVTCKCC 01652000 SAVTCKWA EQU SAVTCKCC 01653000 SAVTCKCH EQU SAVTCKTB+1 01654000 SAVTCKVT EQU SAVTCKTB 01655000 @NM00103 EQU IEDNSVTD+297 01656000 SAVTRDFG EQU SAVTRDRV+12 01657000 @NM00102 EQU SAVTRDRV+5 01658000 SAVTRDPY EQU SAVTRDRV+4 01659000 SAVTRDQB EQU SAVTRDRV+1 01660000 SAVTRDKY EQU SAVTRDRV 01661000 SAVTNID EQU IEDNSVTD+280 01662000 SAVTDVAS EQU IEDNSVTD+276 01663000 SAVTPLSZ EQU IEDNSVTD+274 01664000 @NM00101 EQU IEDNSVTD+273 01665000 SAVTSUBL EQU IEDNSVTD+272 01666000 @NM00100 EQU SAVTZELM+1 01667000 SAVTSUBM EQU SAVTZELM 01668000 SAVTMHDX EQU IEDNSVTD+268 01669000 SAVTNAT1 EQU IEDNSVTD+266 01670000 SAVTSH20 EQU IEDNSVTD+264 01671000 SAVTLCBS EQU IEDNSVTD+260 01672000 SAVTRNMP EQU IEDNSVTD+256 01673000 SAVTTNTX EQU IEDNSVTD+252 01674000 SAVTSUBV EQU IEDNSVTD+247 01675000 SAVTSUBA EQU IEDNSVTD+246 01676000 SAVTSIBC EQU IEDNSVTD+244 01677000 SAVTBSM EQU IEDNSVTD+240 01678000 SAVTSCPT EQU SAVTTCPU 01679000 SAVTRQTG EQU IEDNSVTD+236 01680000 SAVTRQCH EQU IEDNSVTD+232 01681000 SAVTMAND EQU IEDNSVTD+228 01682000 SAVTSPLN EQU IEDNSVTD+224 01683000 SAVTNADL EQU IEDNSVTD+222 01684000 SAVTNATL EQU IEDNSVTD+220 01685000 SAVTMHTB EQU IEDNSVTD+216 01686000 SAVTSSMH EQU IEDNSVTD+212 01687000 SAVTQRS EQU IEDNSVTD+208 01688000 SAVTRQIN EQU IEDNSVTD+204 01689000 SAVTDFCO EQU IEDNSVTD+200 01690000 SAVTSAO EQU IEDNSVTD+196 01691000 SAVTSARI EQU IEDNSVTD+192 01692000 SAVTSAC EQU IEDNSVTD+188 01693000 SAVTSAI EQU IEDNSVTD+184 01694000 SAVTCSCI EQU IEDNSVTD+180 01695000 SAVTSSRP EQU IEDNSVTD+176 01696000 SAVTSSRQ EQU IEDNSVTD+172 01697000 SAVTSCLU EQU IEDNSVTD+168 01698000 SAVTXTRQ EQU IEDNSVTD+164 01699000 SAVTMVBF EQU IEDNSVTD+160 01700000 @NM00099 EQU IEDNSVTD+148 01701000 SAVTIPCQ EQU IEDNSVTD+144 01702000 @NM00098 EQU IEDNSVTD+136 01703000 SAVTXFMI EQU IEDNSVTD+132 01704000 @NM00097 EQU IEDNSVTD+124 01705000 SAVTXFMO EQU IEDNSVTD+120 01706000 @NM00096 EQU IEDNSVTD+116 01707000 SAVTSSSR EQU IEDNSVTD+112 01708000 SAVTSCPQ EQU IEDNSVTD+108 01709000 SAVTSLCB EQU IEDNSVTD+104 01710000 SAVTLUSR EQU IEDNSVTD+100 01711000 @NM00095 EQU SAVTLUSQ+8 01712000 SAVTLUSP EQU SAVTLUSQ+4 01713000 SAVTLUSB EQU SAVTLUSQ 01714000 @NM00094 EQU IEDNSVTD+84 01715000 SAVTSAT EQU IEDNSVTD+80 01716000 SAVTNAT EQU IEDNSVTD+76 01717000 SAVTCLUP EQU IEDNSVTD+72 01718000 SAVTPIUT EQU IEDNSVTD+68 01719000 SAVTRNTA EQU IEDNSVTD+64 01720000 SAVTDNIR EQU IEDNSVTD+60 01721000 SAVTCNIR EQU IEDNSVTD+56 01722000 SAVTFLDH EQU IEDNSVTD+52 01723000 SAVTSRTN EQU IEDNSVTD+48 01724000 SAVTSREQ EQU IEDNSVTD+44 01725000 SAVTFAIL EQU IEDNSVTD+42 01726000 SAVTSUSE EQU IEDNSVTD+40 01727000 SAVTSIB EQU IEDNSVTD+36 01728000 SAVTPRTN EQU IEDNSVTD+32 01729000 @NM00093 EQU IEDNSVTD+28 01730000 SAVTWH20 EQU IEDNSVTD+26 01731000 SAVTPWT EQU IEDNSVTD+24 01732000 SAVTPRTQ EQU IEDNSVTD+20 01733000 SAVTPREQ EQU IEDNSVTD+16 01734000 SAVTPH20 EQU IEDNSVTD+14 01735000 SAVTPUSE EQU IEDNSVTD+12 01736000 SAVTPLCB EQU IEDNSVTD+8 01737000 SAVTPOOL EQU IEDNSVTD+4 01738000 SAVTPRMT EQU SAVTDIAF 01739000 SAVTVIRT EQU SAVTDIAF 01740000 AVTCPBNO EQU IEDQAVTD+1244 01741000 AVTHRESS EQU IEDQAVTD+1243 01742000 @NM00092 EQU IEDQAVTD+1242 01743000 @NM00091 EQU IEDQAVTD+1241 01744000 @NM00090 EQU IEDQAVTD+1240 01745000 @NM00089 EQU IEDQAVTD+1237 01746000 @NM00088 EQU IEDQAVTD+1236 01747000 AVTHRESE EQU @NM00087 01748000 AVTRADDR EQU IEDQAVTD+1228 01749000 AVTNADDR EQU IEDQAVTD+1224 01750000 AVTHRESN EQU IEDQAVTD+1220 01751000 AVTVOLRN EQU IEDQAVTD+1216 01752000 AVTTOTNN EQU IEDQAVTD+1212 01753000 AVTTRCYN EQU IEDQAVTD+1208 01754000 AVTRCTRN EQU IEDQAVTD+1204 01755000 AVTNOVON EQU IEDQAVTD+1200 01756000 AVTADEBN EQU IEDQAVTD+1196 01757000 AVTVOLRR EQU IEDQAVTD+1192 01758000 AVTTOTNR EQU IEDQAVTD+1188 01759000 AVTTRCYR EQU IEDQAVTD+1184 01760000 AVTRCTRR EQU IEDQAVTD+1180 01761000 AVTNOVOR EQU IEDQAVTD+1176 01762000 AVTADEBR EQU IEDQAVTD+1172 01763000 AVTLODPT EQU IEDQAVTD+1168 01764000 AVTIOBN EQU IEDQAVTD+1164 01765000 AVTIOBR EQU IEDQAVTD+1160 01766000 AVTCPBPT EQU IEDQAVTD+1156 01767000 AVTFCPB EQU IEDQAVTD+1152 01768000 @NM00086 EQU IEDQAVTD+1148 01769000 AVTINCPQ EQU IEDQAVTD+1144 01770000 @NM00085 EQU IEDQAVTD+1140 01771000 @NM00084 EQU IEDQAVTD+1137 01772000 @NM00083 EQU AVTBIT4 01773000 @NM00082 EQU AVTBIT4 01774000 @NM00081 EQU AVTBIT4 01775000 @NM00080 EQU AVTBIT4 01776000 @NM00079 EQU AVTBIT4 01777000 @NM00078 EQU AVTBIT4 01778000 @NM00077 EQU AVTBIT4 01779000 AVTRUFTN EQU AVTBIT4 01780000 @NM00076 EQU IEDQAVTD+1132 01781000 AVTNOBFQ EQU IEDQAVTD+1128 01782000 @NM00075 EQU IEDQAVTD+1124 01783000 AVTDKENQ EQU IEDQAVTD+1120 01784000 @NM00074 EQU IEDQAVTD+1116 01785000 AVTDKAPQ EQU IEDQAVTD+1112 01786000 AVTCOPY EQU IEDQAVTD+1108 01787000 AVTIA EQU IEDQAVTD+1104 01788000 AVTFL EQU IEDQAVTD+1100 01789000 @NM00073 EQU IEDQAVTD+1096 01790000 AVTNCPBQ EQU IEDQAVTD+1092 01791000 AVTTOTNC EQU IEDQAVTD+1088 01792000 AVTCMAX EQU IEDQAVTD+1084 01793000 AVTCMIN EQU IEDQAVTD+1080 01794000 AVTHM02 EQU IEDQAVTD+1076 01795000 AVTOPCIN EQU IEDQAVTD+1074 01796000 AVTDCTLN EQU IEDQAVTD+1072 01797000 AVTOPMSK EQU IEDQAVTD+1068 01798000 AVTDDFT EQU IEDQAVTD+1064 01799000 AVTSTEAL EQU IEDQAVTD+1060 01800000 AVTOPTN EQU IEDQAVTD+1056 01801000 AVTDSKCT EQU IEDQAVTD+1054 01802000 AVTCKRST EQU IEDQAVTD+1053 01803000 AVTSTAN EQU AVTBIT3 01804000 AVTSTACN EQU AVTBIT3 01805000 AVTSTAIN EQU AVTBIT3 01806000 AVTSTAYN EQU AVTBIT3 01807000 AVTOLTBN EQU AVTBIT3 01808000 AVTTSAB EQU AVTBIT3 01809000 AVTRFULN EQU AVTBIT3 01810000 AVTRECVN EQU AVTBIT3 01811000 @NM00072 EQU AVTBIT2 01812000 @NM00071 EQU AVTBIT2 01813000 AVTOPEIN EQU AVTBIT2 01814000 AVTSTRTN EQU AVTBIT2 01815000 AVTTOPOL EQU AVTBIT2 01816000 AVTCOPYN EQU AVTBIT2 01817000 AVTREUSN EQU AVTBIT2 01818000 AVTEXTSC EQU AVTBIT2 01819000 AVTDISKN EQU AVTBIT1 01820000 AVTQUCKN EQU AVTBIT1 01821000 AVTCLOSN EQU AVTBIT1 01822000 AVTREADN EQU AVTBIT1 01823000 AVTDLAYN EQU AVTBIT1 01824000 AVTAQTAN EQU AVTBIT1 01825000 AVTTSON EQU AVTBIT1 01826000 AVTAPLKN EQU AVTBIT1 01827000 AVTDUMBR EQU IEDQAVTD+1048 01828000 AVTDLQX EQU IEDQAVTD+1046 01829000 AVTINTLV EQU IEDQAVTD+1044 01830000 AVTSMCNT EQU IEDQAVTD+1042 01831000 AVTAVFCT EQU IEDQAVTD+1040 01832000 AVTOPCON EQU IEDQAVTD+1038 01833000 AVTOPCNT EQU IEDQAVTD+1036 01834000 AVTLNCNT EQU IEDQAVTD+1034 01835000 AVTHA16 EQU IEDQAVTD+1030 01836000 AVTHA7 EQU IEDQAVTD+1028 01837000 AVTHA4 EQU IEDQAVTD+1026 01838000 AVTHA3 EQU IEDQAVTD+1024 01839000 AVTHA2 EQU IEDQAVTD+1022 01840000 AVTGETMS EQU IEDQAVTD+1021 01841000 @NM00070 EQU IEDQAVTD+1020 01842000 AVTGETMD EQU IEDQAVTD+1016 01843000 AVTGETMN EQU IEDQAVTD+1012 01844000 AVTCWTOT EQU IEDQAVTD+1008 01845000 AVTCWINT EQU IEDQAVTD+956 01846000 AVTDTRAP EQU IEDQAVTD+952 01847000 @NM00069 EQU IEDQAVTD+950 01848000 @NM00068 EQU AVTIOTR 01849000 AVTIOTRH EQU AVTIOTR 01850000 AVTIOTRE EQU AVTIOTR 01851000 @NM00067 EQU AVTSUBT 01852000 AVTSUBPT EQU AVTSUBT 01853000 AVTSUBON EQU AVTSUBT 01854000 AVTAFE30 EQU IEDQAVTD+944 01855000 AVTAFE20 EQU IEDQAVTD+940 01856000 AVTAFE10 EQU IEDQAVTD+936 01857000 AVTCWEC2 EQU IEDQAVTD+932 01858000 AVTCWPM2 EQU IEDQAVTD+928 01859000 AVTCWTS2 EQU IEDQAVTD+927 01860000 AVTCWTS1 EQU IEDQAVTD+926 01861000 AVTCWCLD EQU AVTCWFL2 01862000 AVTCWRAP EQU AVTCWFL2 01863000 @NM00066 EQU AVTCWFL2 01864000 @NM00065 EQU AVTCWFL2 01865000 @NM00064 EQU AVTCWFL2 01866000 @NM00063 EQU AVTCWFL2 01867000 @NM00062 EQU AVTCWFL2 01868000 AVTCWACT EQU AVTCWFL2 01869000 @NM00061 EQU AVTCWFL1 01870000 @NM00060 EQU AVTCWFL1 01871000 @NM00059 EQU AVTCWFL1 01872000 @NM00058 EQU AVTCWFL1 01873000 @NM00057 EQU AVTCWFL1 01874000 @NM00056 EQU AVTCWFL1 01875000 @NM00055 EQU AVTCWFL1 01876000 AVTCOMWN EQU AVTCWFL1 01877000 AVTCWEC1 EQU IEDQAVTD+920 01878000 AVTCWPM1 EQU IEDQAVTD+916 01879000 AVTCAREA EQU IEDQAVTD+912 01880000 AVTFZERO EQU IEDQAVTD+908 01881000 AVTCADDR EQU IEDQAVTD+904 01882000 AVTCOREC EQU IEDQAVTD+900 01883000 @NM00054 EQU IEDQAVTD+892 01884000 AVTCPBCB EQU IEDQAVTD+888 01885000 @NM00053 EQU IEDQAVTD+880 01886000 AVTDSIOB EQU IEDQAVTD+876 01887000 @NM00052 EQU IEDQAVTD+868 01888000 AVTCPRMB EQU IEDQAVTD+864 01889000 @NM00051 EQU IEDQAVTD+856 01890000 AVTCLOSB EQU IEDQAVTD+852 01891000 @NM00050 EQU IEDQAVTD+844 01892000 AVTACTIB EQU IEDQAVTD+840 01893000 @NM00049 EQU IEDQAVTD+836 01894000 AVTOLTEB EQU IEDQAVTD+832 01895000 AVTOLTCH EQU AVTOLTQB+1 01896000 AVTOLTVT EQU AVTOLTQB 01897000 @NM00048 EQU AVTOPCQB+8 01898000 @NM00047 EQU AVTOPCEC+1 01899000 @NM00046 EQU AVTOPCCC 01900000 AVTOPCPO EQU AVTOPCCC 01901000 AVTOPCWA EQU AVTOPCCC 01902000 AVTOPCCH EQU AVTOPCOB+1 01903000 AVTOPCVT EQU AVTOPCOB 01904000 @NM00045 EQU AVTCKPQB+9 01905000 AVTCKPTS EQU AVTCKPQB+8 01906000 @NM00044 EQU AVTCKPEC+1 01907000 @NM00043 EQU AVTCKPCC 01908000 AVTCKPPO EQU AVTCKPCC 01909000 AVTCKPWA EQU AVTCKPCC 01910000 AVTCKPCH EQU AVTCKPTB+1 01911000 AVTCKPVT EQU AVTCKPTB 01912000 @NM00042 EQU IEDQAVTD+796 01913000 AVTBFRTB EQU IEDQAVTD+792 01914000 @NM00041 EQU IEDQAVTD+784 01915000 AVTBFREB EQU IEDQAVTD+780 01916000 AVTTIMQ EQU IEDQAVTD+776 01917000 @NM00040 EQU IEDQAVTD+772 01918000 AVTIMQPS EQU IEDQAVTD+768 01919000 AVTINOUT EQU IEDQAVTD+766 01920000 AVTREFTM EQU IEDQAVTD+764 01921000 @NM00039 EQU IEDQAVTD+752 01922000 AVTDELYB EQU IEDQAVTD+748 01923000 AVTOCQPT EQU IEDQAVTD+744 01924000 AVTTSOPT EQU IEDQAVTD+740 01925000 AVTSUPPT EQU IEDQAVTD+736 01926000 AVTCBQCB EQU IEDQAVTD+732 01927000 AVTMSGS EQU IEDQAVTD+729 01928000 @NM00038 EQU AVTSYSER 01929000 @NM00037 EQU AVTSYSER 01930000 @NM00036 EQU AVTSYSER 01931000 @NM00035 EQU AVTSYSER 01932000 @NM00034 EQU AVTSYSER 01933000 @NM00033 EQU AVTSYSER 01934000 AVTCMAXN EQU AVTSYSER 01935000 AVTCMINN EQU AVTSYSER 01936000 AVT2260L EQU IEDQAVTD+724 01937000 AVTABEPL EQU AVTADBUF 01938000 AVTHFF EQU AVTCLRHI+2 01939000 @NM00032 EQU AVTCLRHI 01940000 AVTCCLNK EQU AVTCRELE+5 01941000 AVTCCPRI EQU AVTCRELE+4 01942000 AVTCCQCB EQU AVTCCELE+1 01943000 AVTCCKEY EQU AVTCCELE 01944000 AVTDELAD EQU IEDQAVTD+704 01945000 AVTDELEM EQU IEDQAVTD+700 01946000 AVTBSX EQU AVTCKLNK 01947000 AVTOPETR EQU AVTHG01 01948000 @NM00031 EQU AVTCKBYT 01949000 AVTCKONQ EQU AVTCKBYT 01950000 @NM00030 EQU AVTCKBYT 01951000 @NM00029 EQU AVTCKBYT 01952000 @NM00028 EQU AVTCKBYT 01953000 @NM00027 EQU AVTCKBYT 01954000 @NM00026 EQU AVTCKBYT 01955000 @NM00025 EQU AVTCKBYT 01956000 AVTOPERT EQU IEDQAVTD+690 01957000 AVTOPXCL EQU IEDQAVTD+688 01958000 AVTOPERL EQU IEDQAVTD+687 01959000 @NM00024 EQU IEDQAVTD+686 01960000 AVTCKTIM EQU IEDQAVTD+684 01961000 AVTCKELV EQU IEDQAVTD+682 01962000 AVTCPRCD EQU IEDQAVTD+681 01963000 AVTWARMN EQU AVTCKELF 01964000 AVTCRTLN EQU AVTCKELF 01965000 AVTCPIPN EQU AVTCKELF 01966000 AVTCCLCN EQU AVTCKELF 01967000 AVTCINCN EQU AVTCKELF 01968000 @NM00023 EQU AVTCKELF 01969000 AVTCMCPN EQU AVTCKELF 01970000 AVTNQBCK EQU AVTCKELF 01971000 AVTCKQAD EQU IEDQAVTD+677 01972000 AVTSCBSZ EQU IEDQAVTD+676 01973000 @NM00022 EQU IEDQAVTD+672 01974000 AVTCKELE EQU IEDQAVTD+668 01975000 @NM00021 EQU AVTCKPEL+8 01976000 AVTCKRLK EQU AVTCKPEL+5 01977000 AVTCKRPR EQU AVTCKPEL+4 01978000 AVTCKRMQ EQU AVTCKRMV+1 01979000 AVTCKRKY EQU AVTCKRMV 01980000 AVTHK EQU IEDQAVTD+648 01981000 AVTHI EQU IEDQAVTD+644 01982000 AVTIOT EQU IEDQAVTD+640 01983000 AVTNX EQU IEDQAVTD+636 01984000 AVTTONE EQU IEDQAVTD+632 01985000 AVTA3TL EQU IEDQAVTD+628 01986000 AVTDMECB EQU IEDQAVTD+624 01987000 AVTABEND EQU IEDQAVTD+618 01988000 AVTPLCBN EQU IEDQAVTD+616 01989000 @NM00020 EQU AVTSAVTP+1 01990000 @NM00019 EQU AVTSAVTF 01991000 AVTSNA EQU AVTSAVTF 01992000 AVTONSNA EQU AVTSAVTF 01993000 AVTVTMCP EQU AVTSAVTF 01994000 @NM00018 EQU IEDQAVTD+608 01995000 AVTCMBSS EQU IEDQAVTD+604 01996000 AVTRCV EQU IEDQAVTD+600 01997000 AVTSEND EQU IEDQAVTD+596 01998000 AVTCSCH EQU IEDQAVTD+592 01999000 AVTQ1 EQU IEDQAVTD+588 02000000 AVTE7 EQU IEDQAVTD+584 02001000 AVTHB EQU IEDQAVTD+580 02002000 AVTR1 EQU IEDQAVTD+576 02003000 AVTBZ EQU IEDQAVTD+572 02004000 AVTEZ EQU IEDQAVTD+568 02005000 AVTEC EQU IEDQAVTD+564 02006000 AVTEW EQU IEDQAVTD+560 02007000 AVTNDIAL EQU AVTSCOPT 02008000 AVTN2741 EQU AVTSCOPT 02009000 AVTCONCO EQU AVTSCOPT 02010000 AVTCONC EQU AVTSCOPT 02011000 AVTCMBUF EQU AVTSCOPT 02012000 AVTAPDMP EQU AVTSCOPT 02013000 @NM00017 EQU AVTSCOPT 02014000 AVTHA EQU AVTDISP 02015000 AVTEA EQU IEDQAVTD+548 02016000 AVTAX EQU IEDQAVTD+544 02017000 AVTA3 EQU IEDQAVTD+540 02018000 AVTGD EQU IEDQAVTD+536 02019000 AVTAL EQU IEDQAVTD+532 02020000 AVTOLTST EQU AVTHG02 02021000 AVTE8 EQU IEDQAVTD+524 02022000 AVTUI EQU IEDQAVTD+520 02023000 AVTCOMPT EQU IEDQAVTD+516 02024000 AVTCRSRF EQU IEDQAVTD+512 02025000 @NM00016 EQU IEDQAVTD+508 02026000 AVTKA02 EQU IEDQAVTD+504 02027000 AVTOPTPT EQU IEDQAVTD+500 02028000 AVTPCBPT EQU IEDQAVTD+496 02029000 @NM00015 EQU AVTECB1 02030000 AVTCOMP EQU AVTECB1 02031000 @NM00014 EQU AVTECB1 02032000 AVTOPECA EQU IEDQAVTD+488 02033000 AVTOLECA EQU IEDQAVTD+484 02034000 AVTCKECA EQU IEDQAVTD+480 02035000 AVTCWECA EQU IEDQAVTD+476 02036000 AVTCWTCB EQU IEDQAVTD+472 02037000 AVTOLTCB EQU IEDQAVTD+468 02038000 AVTOCTCB EQU IEDQAVTD+464 02039000 AVTCKTCB EQU IEDQAVTD+460 02040000 AVTAS EQU IEDQAVTD+456 02041000 AVTNOLBF EQU IEDQAVTD+454 02042000 AVTNCKPR EQU IEDQAVTD+453 02043000 AVTCIB EQU IEDQAVTD+452 02044000 AVTSPLPT EQU IEDQAVTD+448 02045000 AVTMVBFR EQU IEDQAVTD+444 02046000 AVTSBTA EQU IEDQAVTD+440 02047000 AVTRARTN EQU IEDQAVTD+436 02048000 AVTBSCAN EQU IEDQAVTD+432 02049000 AVTRDYA EQU IEDQAVTD+428 02050000 AVTDISTR EQU IEDQAVTD+420 02051000 AVTPARM3 EQU IEDQAVTD+416 02052000 @NM00013 EQU AVTPKF 02053000 @NM00012 EQU AVTPKF 02054000 @NM00011 EQU AVTPKF 02055000 AVTFTCHF EQU AVTPKF 02056000 @NM00010 EQU AVTPKF 02057000 @NM00009 EQU AVTPKF 02058000 @NM00008 EQU AVTPKF 02059000 @NM00007 EQU AVTPKF 02060000 AVTPARM EQU IEDQAVTD+408 02061000 AVTEXS2A EQU IEDQAVTD+402 02062000 AVTEXA2S EQU IEDQAVTD+396 02063000 AVTCKAVT EQU @NM00005+1 02064000 @NM00006 EQU AVTCKFLG 02065000 AVTCKHLT EQU AVTCKFLG 02066000 AVTCKREQ EQU AVTCKFLG 02067000 AVTCKENV EQU AVTCKFLG 02068000 AVTCKNAC EQU AVTCKFLG 02069000 AVTCKTAC EQU AVTCKFLG 02070000 @NM00004 EQU IEDQAVTD+384 02071000 AVTREADD EQU IEDQAVTD+380 02072000 AVTREADY EQU IEDQAVTD+376 02073000 AVTRACE EQU IEDQAVTD+372 02074000 AVTTCB EQU IEDQAVTD+368 02075000 AVTPASWD EQU IEDQAVTD+360 02076000 AVTCTLCH EQU IEDQAVTD+352 02077000 AVTDOUBL EQU IEDQAVTD+344 02078000 AVTDOUBX EQU IEDQAVTD+336 02079000 AVTDPARM EQU IEDQAVTD+332 02080000 AVTCSTCS EQU IEDQAVTD+328 02081000 AVTDLQ EQU AVTSAVEX+32 02082000 @NM00003 EQU AVTSAVEX 02083000 AVTSAVE4 EQU IEDQAVTD+216 02084000 AVTSAVE3 EQU IEDQAVTD+144 02085000 AVTSAVE2 EQU IEDQAVTD+72 02086000 AVTSAVE1 EQU IEDQAVTD 02087000 CVTLEVL EQU CVTRELNO+2 02088000 CVTNUMB EQU CVTRELNO 02089000 CVTMDL EQU CVTFIX+250 02090000 @NM00002 EQU CVTFIX+248 02091000 @NM00001 EQU CVTFIX 02092000 CVTRV482 EQU CVTXTNT2+128 02093000 CVTRV481 EQU CVTXTNT2+124 02094000 CVTRV480 EQU CVTXTNT2+120 02095000 CVTRV479 EQU CVTXTNT2+118 02096000 CVTRV478 EQU CVTXTNT2+117 02097000 CVTRV477 EQU CVTXTNT2+116 02098000 CVTRV476 EQU CVTXTNT2+115 02099000 CVTRV475 EQU CVTXTNT2+114 02100000 CVTRV474 EQU CVTRV466 02101000 CVTRV473 EQU CVTRV466 02102000 CVTRV472 EQU CVTRV466 02103000 CVTRV471 EQU CVTRV466 02104000 CVTRV470 EQU CVTRV466 02105000 CVTRV469 EQU CVTRV466 02106000 CVTRV468 EQU CVTRV466 02107000 CVTRV467 EQU CVTRV466 02108000 CVTRV465 EQU CVTRV457 02109000 CVTRV464 EQU CVTRV457 02110000 CVTRV463 EQU CVTRV457 02111000 CVTRV462 EQU CVTRV457 02112000 CVTRV461 EQU CVTRV457 02113000 CVTRV460 EQU CVTRV457 02114000 CVTRV459 EQU CVTRV457 02115000 CVTRV458 EQU CVTRV457 02116000 CVTRV456 EQU CVTXTNT2+108 02117000 CVTRV455 EQU CVTXTNT2+104 02118000 CVTRV454 EQU CVTXTNT2+100 02119000 CVTRV453 EQU CVTXTNT2+96 02120000 CVTRV452 EQU CVTXTNT2+94 02121000 CVTRV451 EQU CVTXTNT2+92 02122000 CVTRV450 EQU CVTXTNT2+90 02123000 CVTRV449 EQU CVTXTNT2+88 02124000 CVTRV448 EQU CVTXTNT2+87 02125000 CVTRV447 EQU CVTXTNT2+86 02126000 CVTRV446 EQU CVTRV438 02127000 CVTRV445 EQU CVTRV438 02128000 CVTRV444 EQU CVTRV438 02129000 CVTRV443 EQU CVTRV438 02130000 CVTRV442 EQU CVTRV438 02131000 CVTRV441 EQU CVTRV438 02132000 CVTRV440 EQU CVTRV438 02133000 CVTRV439 EQU CVTRV438 02134000 CVTRV437 EQU CVTRV429 02135000 CVTRV436 EQU CVTRV429 02136000 CVTRV435 EQU CVTRV429 02137000 CVTRV434 EQU CVTRV429 02138000 CVTRV433 EQU CVTRV429 02139000 CVTRV432 EQU CVTRV429 02140000 CVTRV431 EQU CVTRV429 02141000 CVTRV430 EQU CVTRV429 02142000 CVTRV428 EQU CVTXTNT2+80 02143000 CVTRV427 EQU CVTXTNT2+76 02144000 CVTRV426 EQU CVTXTNT2+72 02145000 CVTRV425 EQU CVTXTNT2+68 02146000 CVTATACT EQU CVTATCVT 02147000 CVTRV423 EQU CVTXTNT2+62 02148000 CVTRV422 EQU CVTXTNT2+60 02149000 CVTRV421 EQU CVTXTNT2+58 02150000 CVTRV420 EQU CVTXTNT2+56 02151000 CVTRV419 EQU CVTXTNT2+55 02152000 CVTRV418 EQU CVTXTNT2+54 02153000 CVTRV417 EQU CVTRV409 02154000 CVTRV416 EQU CVTRV409 02155000 CVTRV415 EQU CVTRV409 02156000 CVTRV414 EQU CVTRV409 02157000 CVTRV413 EQU CVTRV409 02158000 CVTRV412 EQU CVTRV409 02159000 CVTRV411 EQU CVTRV409 02160000 CVTRV410 EQU CVTRV409 02161000 CVTRV408 EQU CVTRV400 02162000 CVTRV407 EQU CVTRV400 02163000 CVTRV406 EQU CVTRV400 02164000 CVTRV405 EQU CVTRV400 02165000 CVTRV404 EQU CVTRV400 02166000 CVTRV403 EQU CVTRV400 02167000 CVTRV402 EQU CVTRV400 02168000 CVTRV401 EQU CVTRV400 02169000 CVTICB EQU CVTXTNT2+48 02170000 CVTSKTA EQU CVTXTNT2+44 02171000 CVTSHSB EQU CVTSHS 02172000 CVTRSV98 EQU CVTXTNT2+36 02173000 CVTRSV97 EQU CVTXTNT2+34 02174000 CVTRSV96 EQU CVTXTNT2+32 02175000 CVTOLTEP EQU CVTXTNT2+28 02176000 CVTQIDA EQU CVTQID+1 02177000 CVTRSV95 EQU CVTQID 02178000 CVTRSV94 EQU CVTXTNT2+20 02179000 CVTRSV93 EQU CVTXTNT2+16 02180000 CVTRSV92 EQU CVTXTNT2+12 02181000 CVTDEBVR EQU CVTXTNT2+8 02182000 CVTRSV91 EQU CVTXTNT2+6 02183000 CVTRSV9H EQU CVTFLGBT 02184000 CVTRSV9G EQU CVTFLGBT 02185000 CVTRSV9F EQU CVTFLGBT 02186000 CVTRSV9E EQU CVTFLGBT 02187000 CVTRSV9D EQU CVTFLGBT 02188000 CVTRSV9C EQU CVTFLGBT 02189000 CVTVME EQU CVTFLGBT 02190000 CVTNPE EQU CVTFLGBT 02191000 CVTNUCLS EQU CVTXTNT2+4 02192000 CVTDSSVA EQU CVTDSSV+1 02193000 CVTRSV89 EQU CVTDSSV 02194000 CVTRSV88 EQU CVTXTNT1+8 02195000 CVTRSV87 EQU CVTXTNT1+4 02196000 CVTFACHN EQU CVTXTNT1 02197000 CVTRV488 EQU CVTMAP+412 02198000 CVTRV487 EQU CVTMAP+408 02199000 CVTRV486 EQU CVTMAP+404 02200000 CVTRV485 EQU CVTMAP+400 02201000 CVTACTAP EQU CVTMAP+396 02202000 CVTAUTH EQU CVTMAP+392 02203000 CVTATMCA EQU CVTATMCT+1 02204000 CVTATMST EQU CVTATMCT 02205000 CVTRSV61 EQU CVTMAP+384 02206000 CVTVOLT1 EQU CVTVOLM1+1 02207000 CVTVOLI1 EQU CVTVOLF1 02208000 CVTSTOA EQU CVTMAP+376 02209000 CVTRSV58 EQU CVTMAP+374 02210000 CVTRSV57 EQU CVTMAP+372 02211000 CVTDDCE EQU CVTMAP+368 02212000 CVTPNWFR EQU CVTMAP+364 02213000 CVTSMF EQU CVTMAP+360 02214000 CVTSULK EQU CVTMAP+358 02215000 CVTSLKO EQU CVTSYSK 02216000 CVTSLKP EQU CVTSYSK 02217000 CVTSLKQ EQU CVTSYSK 02218000 CVTSLKR EQU CVTSYSK 02219000 CVTRSV56 EQU CVTSYSK 02220000 CVTRSV55 EQU CVTSYSK 02221000 CVTRSV54 EQU CVTSYSK 02222000 CVTRSV53 EQU CVTSYSK 02223000 CVTRSV52 EQU CVTA1F1 02224000 CVTRSV51 EQU CVTA1F1 02225000 CVTRSV50 EQU CVTA1F1 02226000 CVTRSV49 EQU CVTA1F1 02227000 CVTRSV48 EQU CVTA1F1 02228000 CVTRSV47 EQU CVTA1F1 02229000 CVTSRSW EQU CVTA1F1 02230000 CVTPFSW EQU CVTA1F1 02231000 CVTPCVT EQU CVTMAP+352 02232000 CVTRSV46 EQU CVTMAP+344 02233000 CVTRSV45 EQU CVTMAP+340 02234000 CVTRSV44 EQU CVTMAP+338 02235000 CVTRSV43 EQU CVTMAP+336 02236000 CVTHJESA EQU CVTHJES+1 02237000 CVTRSV42 EQU CVTHJES 02238000 CVTEXT2A EQU CVTEXT2+1 02239000 CVTRSV41 EQU CVTEXT2 02240000 CVTAPFA EQU CVTAPF+1 02241000 CVTRSV40 EQU CVTAPF 02242000 CVTRV518 EQU CVTINTLA 02243000 CVTRV517 EQU CVTERPV 02244000 CVTEORM EQU CVTMAP+312 02245000 CVTMCHPR EQU CVTMAP+308 02246000 CVTTZ EQU CVTMAP+304 02247000 CVTJEPS EQU CVTMAP+300 02248000 CVTJESCT EQU CVTMAP+296 02249000 CVTMODE EQU CVTMAP+292 02250000 CVTPTRV EQU CVTMAP+288 02251000 CVTREAL EQU CVTMAP+284 02252000 CVTRSV39 EQU CVTMAP+280 02253000 CVTRSV38 EQU CVTMAP+276 02254000 CVTDMSRA EQU CVTDMSR+1 02255000 CVTRV634 EQU CVTDMSRF 02256000 CVTRV633 EQU CVTDMSRF 02257000 CVTRV632 EQU CVTDMSRF 02258000 CVTRV631 EQU CVTDMSRF 02259000 CVTRV630 EQU CVTDMSRF 02260000 CVTRV629 EQU CVTDMSRF 02261000 CVTUDUMP EQU CVTDMSRF 02262000 CVTSDUMP EQU CVTDMSRF 02263000 CVTQMSGA EQU CVTQMSG+1 02264000 CVTRSV36 EQU CVTQMSG 02265000 CVTAMFF EQU CVTMAP+264 02266000 CVTPURGA EQU CVTPURG+1 02267000 CVTRSV35 EQU CVTPURG 02268000 CVTCBSP EQU CVTMAP+256 02269000 CVTATERA EQU CVTATER+1 02270000 CVTSYST EQU CVTATER 02271000 CVTVOLT2 EQU CVTTAT 02272000 CVTVOLI2 EQU CVTVOLF2 02273000 CVTAQAVB EQU CVTAQAVT+1 02274000 CVTRSV34 EQU CVTTCMFG 02275000 CVTRSV33 EQU CVTTCMFG 02276000 CVTRSV32 EQU CVTTCMFG 02277000 CVTRSV31 EQU CVTTCMFG 02278000 CVTRSV30 EQU CVTTCMFG 02279000 CVTRSV29 EQU CVTTCMFG 02280000 CVTRSV28 EQU CVTTCMFG 02281000 CVTTCRDY EQU CVTTCMFG 02282000 CVTGTFA EQU CVTGTF+1 02283000 CVTRSV27 EQU CVTGTFST 02284000 CVTRNIO EQU CVTGTFST 02285000 CVTUSR EQU CVTGTFST 02286000 CVTRV318 EQU CVTFORM 02287000 CVTRV317 EQU CVTTMODE 02288000 CVTRV316 EQU CVTSTATE 02289000 CVTRV315 EQU CVTGTFS 02290000 CVTGTFAV EQU CVTGTFS 02291000 CVT0SCR1 EQU CVTMAP+232 02292000 CVTRV515 EQU CVTMAP+228 02293000 CVTRMS EQU CVTMAP+224 02294000 CVTPATCH EQU CVTMAP+220 02295000 CVTTSCE EQU CVTMAP+216 02296000 CVTLNKSC EQU CVTMAP+214 02297000 CVTQABST EQU CVTMAP+212 02298000 CVTMDLDS EQU CVTMAP+208 02299000 CVTUSER EQU CVTMAP+204 02300000 CVTABEND EQU CVTMAP+200 02301000 CVTSMCA EQU CVTMAP+196 02302000 CVTRSV18 EQU CVTMAP+192 02303000 CVTQLPAQ EQU CVTMAP+188 02304000 CVTQCDSR EQU CVTMAP+184 02305000 CVTRSV17 EQU CVTOPTB 02306000 CVTRSV16 EQU CVTOPTB 02307000 CVTFP EQU CVTOPTB 02308000 CVTAPTHR EQU CVTOPTB 02309000 CVTNLOG EQU CVTOPTB 02310000 CVTTOD EQU CVTOPTB 02311000 CVTCTIMS EQU CVTOPTB 02312000 CVTPROT EQU CVTOPTB 02313000 CVTXPFP EQU CVTOPTA 02314000 CVTASCII EQU CVTOPTA 02315000 CVTRSV13 EQU CVTOPTA 02316000 CVTRSV12 EQU CVTOPTA 02317000 CVTNIP EQU CVTOPTA 02318000 CVTDDR EQU CVTOPTA 02319000 CVTAPR EQU CVTOPTA 02320000 CVTCCH EQU CVTOPTA 02321000 CVTSNCTR EQU CVTMAP+180 02322000 CVTQMWR EQU CVTMAP+176 02323000 CVTQOCR EQU CVTMAP+172 02324000 CVT1EF00 EQU CVTMAP+168 02325000 CVTMZ00 EQU CVTMAP+164 02326000 CVTHEAD EQU CVTMAP+160 02327000 CVTRSV11 EQU CVTMAP+156 02328000 CVT0PT01 EQU CVTMAP+152 02329000 CVTMSER EQU CVTMAP+148 02330000 CVTRV516 EQU CVTIERLC 02331000 CVTILCH EQU CVTMAP+140 02332000 CVT0DS EQU CVTMAP+136 02333000 CVTFBOSV EQU CVTMAP+132 02334000 CVTNUCB EQU CVTMAP+128 02335000 CVTIXAVL EQU CVTMAP+124 02336000 CVTIOQET EQU CVTMAP+120 02337000 CVTDCBA EQU CVTMAP+117 02338000 CVTMVS2 EQU CVTDCB 02339000 CVT6DAT EQU CVTDCB 02340000 CVT4MPS EQU CVTDCB 02341000 CVTRSV09 EQU CVTDCB 02342000 CVT4MS1 EQU CVTDCB 02343000 CVT2SPS EQU CVTDCB 02344000 CVT1SSS EQU CVTDCB 02345000 CVTRSV08 EQU CVTDCB 02346000 CVTSTB EQU CVTMAP+112 02347000 CVTQTD00 EQU CVTMAP+108 02348000 CVTQTE00 EQU CVTMAP+104 02349000 CVTCUCB EQU CVTMAP+100 02350000 CVTSJQ EQU CVTMAP+96 02351000 CVTPBLDL EQU CVTMAP+92 02352000 CVTTPC EQU CVTMAP+88 02353000 CVTSVDCB EQU CVTMAP+84 02354000 CVTBRET EQU CVTMAP+82 02355000 CVTEXIT EQU CVTMAP+80 02356000 CVT0FN00 EQU CVTMAP+76 02357000 CVTDARA EQU CVTDAR+1 02358000 CVTRSV07 EQU CVTFLGS1 02359000 CVTRSV06 EQU CVTFLGS1 02360000 CVTRSV05 EQU CVTFLGS1 02361000 CVTRSV04 EQU CVTFLGS1 02362000 CVTRSV03 EQU CVTFLGS1 02363000 CVTRSV02 EQU CVTFLGS1 02364000 CVTRSV01 EQU CVTFLGS1 02365000 CVTDMPLK EQU CVTFLGS1 02366000 CVTXITP EQU CVTMAP+68 02367000 CVTZDTAB EQU CVTMAP+64 02368000 CVTMSLT EQU CVTMAP+60 02369000 CVTDATE EQU CVTMAP+56 02370000 CVTBTERM EQU CVTMAP+52 02371000 CVTSYSAD EQU CVTMAP+48 02372000 CVTXTLER EQU CVTMAP+44 02373000 CVTILK2 EQU CVTMAP+40 02374000 CVTILK1 EQU CVTMAP+36 02375000 CVTPRLTV EQU CVTMAP+32 02376000 CVTPCNVT EQU CVTMAP+28 02377000 CVT0VL00 EQU CVTMAP+24 02378000 CVTXAPG EQU CVTMAP+20 02379000 CVTBUF EQU CVTMAP+16 02380000 CVTJOB EQU CVTMAP+12 02381000 CVTLINK EQU CVTMAP+8 02382000 CVT0EF00 EQU CVTMAP+4 02383000 CVTTCBP EQU CVTMAP 02384000 CVT EQU CVTMAP 02385000 * END UNREFERENCED COMPONENTS 02386000 @RT00248 EQU SWTCHID 02387000 @RT00273 EQU SIZERR 02388000 @RT00285 EQU MOVUPD 02389000 @RT00293 EQU ERREXIT 02390000 @RT00301 EQU MOVEI 02391000 @RT00323 EQU MOVEA2 02392000 @RT00348 EQU MOVEI2 02393000 @RT00401 EQU MOVID 02394000 @RT00407 EQU MOVSWID 02395000 @RT00412 EQU SIZERR 02396000 @EL01 EQU @EL00001 02397000 @ENDDATA EQU * 02398000 @DATEND EQU * 02399000 END IGCT210D,(C'PLS1227',0701,77172) 02400000