TITLE 'IGCT110D - TCHNG, TCOPY SERVICE ROUTINE' 00001000 IGCT110D CSECT , 0001 00002000 @PROLOG BALR @11,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@11 0001 00005000 IGCT110D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION 00006000 * ROPCAVT=REG1; /* ADDR OF OP CNTRL AVT @Y17XARW*/ 00007000 LR ROPCAVT,REG1 0369 00008000 * AVT=OPCAVTPT; /* ADDRESS OF AVT @Y17XARW*/ 00009000 L AVT,OPCAVTPT(,ROPCAVT) 0370 00010000 * ELMNT=OCCIB; /* ADDR OF PARAM LIST @Y17XARW*/ 00011000 L @10,OPCCOPCE(,ROPCAVT) 0371 00012000 L @10,OCCIB(,@10) 0371 00013000 ST @10,ELMNT(,ROPCAVT) 0371 00014000 * IF ELMNT->WENTCD>='08'X /* IS THIS FOR TCHNG @YM08051*/ 00015000 * THEN 0372 00016000 CLI WENTCD(@10),8 0372 00017000 BL @RF00372 0372 00018000 * TCHNG='1'B; /* PRESERVE TCHNG INDIC @YM08051*/ 00019000 OI TCHNG(ROPCAVT),B'01000000' 0373 00020000 * ELSE 0374 00021000 * TCHNG='0'B; /* INDIC NOT TCHNG @YM08051*/ 00022000 B @RC00372 0374 00023000 @RF00372 NI TCHNG(ROPCAVT),B'10111111' 0374 00024000 * RPRU=OCUNIT; /* ADDR OF RESPONSE UNIT @Y17XARW*/ 00025000 @RC00372 L @10,OPCCOPCE(,ROPCAVT) 0375 00026000 L RPRU,OCUNIT(,@10) 0375 00027000 * ENDUNIT=RPRU+12+AVTKEYLE; /* SETUP END OF UNIT ADDR 0376 00028000 * @Y17XARW*/ 00029000 LA @10,12 0376 00030000 LR @03,RPRU 0376 00031000 ALR @03,@10 0376 00032000 AH @03,AVTKEYLE(,AVT) 0376 00033000 ST @03,ENDUNIT(,ROPCAVT) 0376 00034000 * IF BDUSYRSP^='60'X| /* IS BTU RESPONSE GOOD @Y17XARW*/ 00035000 * PRURHSDI='1'B THEN 0377 00036000 ALR @10,IEDPRUQP 0377 00037000 CLI BDUSYRSP(@10),X'60' 0377 00038000 BNE @RT00377 0377 00039000 LR @10,IEDPRUQP 0377 00040000 AL @10,@CF02106 0377 00041000 TM PRURHSDI(@10),B'00000100' 0377 00042000 BNO @RF00377 0377 00043000 @RT00377 DS 0H 0378 00044000 * DO; /* NO, */ 00045000 * ELMNT->WRTCD='1C'X; /* SET RETURN CODE */ 00046000 L @10,ELMNT(,ROPCAVT) 0379 00047000 MVI WRTCD(@10),X'1C' 0379 00048000 * GO TO POSTAPP1; /* TELL APPLICATION PROGRAM */ 00049000 B POSTAPP1 0380 00050000 * END; 0381 00051000 * RDATA=ADDR(IEDBDU)+LENGTH(IEDBDU)+3;/* POINT TO POLLING CHARS 0382 00052000 * @Y17XARW*/ 00053000 @RF00377 LA @10,21 0382 00054000 ALR @10,IEDPRUQP 0382 00055000 STCM @10,7,RDATA(ROPCAVT) 0382 00056000 * RWORK=RPRU; /* SETUP TEMP PTR TO RU @Y17XARW*/ 00057000 LR RWORK,RPRU 0383 00058000 * GENERATE; 0384 00059000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00060000 * RDATA=RDATA+RDATA->FCOUNT+1; /* POINT TO ADDRESSING CHARS */ 00061000 L @10,RDATA-1(,ROPCAVT) 0385 00062000 LA @10,0(,@10) 0385 00063000 SLR @03,@03 0385 00064000 IC @03,FCOUNT(,@10) 0385 00065000 ALR @03,@10 0385 00066000 AL @03,@CF00084 0385 00067000 STCM @03,7,RDATA(ROPCAVT) 0385 00068000 * GENERATE; 0386 00069000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00070000 * ADDRCHR=RDATA; /* SAVE ADDRESS OF ADDR CHARS */ 00071000 L @10,OPCWORK(,ROPCAVT) 0387 00072000 L @03,RDATA-1(,ROPCAVT) 0387 00073000 LA @03,0(,@03) 0387 00074000 ST @03,ADDRCHR(,@10) 0387 00075000 * RDATA=RDATA+RDATA->FCOUNT+1; /* POINT TO INPUT IDENTIFIER */ 00076000 SLR @10,@10 0388 00077000 IC @10,FCOUNT(,@03) 0388 00078000 ALR @10,@03 0388 00079000 AL @10,@CF00084 0388 00080000 STCM @10,7,RDATA(ROPCAVT) 0388 00081000 * GENERATE; 0389 00082000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00083000 * IF RDATA->FCOUNT=0 /* IS INPUT IDENTIFIER PRESENT */ 00084000 * THEN 0390 00085000 L @10,RDATA-1(,ROPCAVT) 0390 00086000 LA @10,0(,@10) 0390 00087000 CLI FCOUNT(@10),0 0390 00088000 BNE @RF00390 0390 00089000 * RDATA=RDATA+1; /* NO, SKIP ID BYTE */ 00090000 AL @10,@CF00084 0391 00091000 STCM @10,7,RDATA(ROPCAVT) 0391 00092000 * ELSE 0392 00093000 * RDATA=RDATA+4; /* YES, SKIP NEXT THREE FIELDS */ 00094000 B @RC00390 0392 00095000 @RF00390 LA @10,4 0392 00096000 L @03,RDATA-1(,ROPCAVT) 0392 00097000 LA @03,0(,@03) 0392 00098000 ALR @10,@03 0392 00099000 STCM @10,7,RDATA(ROPCAVT) 0392 00100000 * GENERATE; 0393 00101000 @RC00390 DS 0H 0393 00102000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00103000 * IF RDATA->FCOUNT=0 /* IS DIAL DATA PRESENT @Y17XARW*/ 00104000 * THEN 0394 00105000 L @10,RDATA-1(,ROPCAVT) 0394 00106000 CLI FCOUNT(@10),0 0394 00107000 BNE @RF00394 0394 00108000 * DIALCHAR=0; /* NO, INDICATE NO DIAL DATA */ 00109000 L @10,OPCWORK(,ROPCAVT) 0395 00110000 SLR @03,@03 0395 00111000 ST @03,DIALCHAR(,@10) 0395 00112000 * ELSE 0396 00113000 * DO; /* YES, */ 00114000 B @RC00394 0396 00115000 @RF00394 DS 0H 0397 00116000 * RDATA=RDATA+2; /* POINT TO DIAL DIGITS @Y17XARW*/ 00117000 LA @10,2 0397 00118000 L @03,RDATA-1(,ROPCAVT) 0397 00119000 LA @03,0(,@03) 0397 00120000 ALR @10,@03 0397 00121000 STCM @10,7,RDATA(ROPCAVT) 0397 00122000 * GENERATE; 0398 00123000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00124000 * DIALCHAR=RDATA; /* SAVE PTR TO DIAL DIGS @Y17XARW*/ 00125000 L @10,OPCWORK(,ROPCAVT) 0399 00126000 L @03,RDATA-1(,ROPCAVT) 0399 00127000 LA @03,0(,@03) 0399 00128000 ST @03,DIALCHAR(,@10) 0399 00129000 * END; 0400 00130000 * RTO=ELMNT->WTO; /* ADDRESS OF 'TO' AREA */ 00131000 @RC00394 L @10,ELMNT(,ROPCAVT) 0401 00132000 L RTO,WTO-1(,@10) 0401 00133000 LA RTO,0(,RTO) 0401 00134000 * RESTRICT(RFROM); 0402 00135000 * RESPECIFY 0403 00136000 * IEDQTRM BASED(RFROM); 0403 00137000 * RFROM=ELMNT->WFROM; /* ADDRESS OF 'FROM' AREA */ 00138000 L RFROM,WFROM-1(,@10) 0404 00139000 LA RFROM,0(,RFROM) 0404 00140000 * RFLDS=RFROM+17; /* ADDR OF 'FROM' DEV DEP FIELDS */ 00141000 LA RFLDS,17(,RFROM) 0405 00142000 * IF TRMOPTFN='1'B /* ARE OPTION FIELDS PRESENT */ 00143000 * THEN 0406 00144000 TM TRMOPTFN(RFROM),B'00000010' 0406 00145000 BNO @RF00406 0406 00146000 * RFLDS=RFLDS+3+RFLDS->FCOUNT; /* SKIP OPT OFFSET */ 00147000 LA @10,3 0407 00148000 ALR @10,RFLDS 0407 00149000 SLR @03,@03 0407 00150000 IC @03,FCOUNT(,RFLDS) 0407 00151000 ALR @10,@03 0407 00152000 LR RFLDS,@10 0407 00153000 * RESTRICT(RMASK,RLNGTH); 0408 00154000 @RF00406 DS 0H 0409 00155000 * RTO=RTO+(RFLDS-RFROM); /* ADDRESS OF 'TO' DEV DEP FLDS */ 00156000 LR @03,RFLDS 0409 00157000 SLR @03,RFROM 0409 00158000 ALR RTO,@03 0409 00159000 * GENERATE; 0410 00160000 LA RMASK,X'80' GET MASK FOR EXECUTED INST 00161000 LOOP1 EQU * 00162000 CH RMASK,DIALMSK IS THIS MASK FOR DIAL DIGITS 00163000 BE DIALDIGS BRANCH ON YES 00164000 CH RMASK,ADDRMSK IS THIS MASK FOR ADDR CHARS 00165000 BE ADDRCHAR BRANCH ON YES 00166000 EX RMASK,TM1 IS THERE A DEV DEP FIELD 00167000 BNO SHIFT1 BRANCH ON NO 00168000 MOVFLD EQU * 00169000 SR RLNGTH,RLNGTH 0 LENGTH REGISTER @OZ15650 00170000 IC RLNGTH,0(RFLDS) GET LENGTH OF DATA FIELD 00171000 BAL REG12,CHECKAIB CHECK FOR END OF AIB @G36XRRU*/ 00172000 EX RLNGTH,MVC1 MOVE DATA TO USER WORKAREA 00173000 LA RTO,1(RLNGTH,RTO) UPDATE TO AREA POINTER 00174000 LA RFLDS,1(RLNGTH,RFLDS) UPDATE FROM AREA POINTER 00175000 SHIFT1 EQU * 00176000 SRL RMASK,1 SHIFT MASK 1 POSITION 00177000 LTR RMASK,RMASK ARE THER ANY MORE TO CHECK 00178000 BNZ LOOP1 BRANCH ON YES 00179000 LA RMASK,X'80' GET MASK FOR EXECUTED INST 00180000 LOOP2 EQU * 00181000 EX RMASK,TM2 EXECUTE TEST UNDER MASK 00182000 BNO SHIFT2 BRANCH IF BIT NOT ON 00183000 MOVFLD2 EQU * 00184000 SR RLNGTH,RLNGTH 0 LENGTH REGISTER @OZ15650 00185000 IC RLNGTH,0(RFLDS) PICK UP FIELD LENGTH 00186000 BAL REG12,CHECKAIB CHECK FOR END OF AIB @G36XRRU 00187000 EX RLNGTH,MVC1 MOVE FIELD 00188000 LA RTO,1(RLNGTH,RTO) UPDATE TO AREA POINTER 00189000 LA RFLDS,1(RLNGTH,RFLDS) UPDATE FROM AREA POINTER 00190000 SHIFT2 EQU * 00191000 SRL RMASK,1 SHIFT TO NEXT MASK BIT 00192000 LTR RMASK,RMASK ANY MORE BITS TO CHECK 00193000 BNZ LOOP2 BRANCH ON NO 00194000 B SKIP1 00195000 TM1 TM TRMDEVFL(RFROM),0 00196000 TM2 TM TRMDEVFL+1(RFROM),0 00197000 MVC1 MVC 0(0,RTO),0(RFLDS) 00198000 SKIP1 EQU * 00199000 * IF ELMNT->WENTCD<'08'X /* IS THIS FOR TCHNG */ 00200000 * THEN 0411 00201000 L @03,ELMNT(,ROPCAVT) 0411 00202000 CLI WENTCD(@03),8 0411 00203000 BL @RT00411 0411 00204000 * GO TO POSTAPPL; /* NO, POST APPLICATION COMPLETE */ 00205000 * RPRU=OCUNIT; /* SETUP PRU ADDRESS @Y17XARW*/ 00206000 L @15,OPCCOPCE(,ROPCAVT) 0413 00207000 L RPRU,OCUNIT(,@15) 0413 00208000 * ELMNT->WANSCD='0C'X; /* SET ENTRY CODE FOR ANSWER */ 00209000 MVI WANSCD(@03),X'0C' 0414 00210000 * IF CHANGE='1'B THEN 0415 00211000 TM CHANGE(ROPCAVT),B'10000000' 0415 00212000 BNO @RF00415 0415 00213000 * DO; /* IF ADDR CHARS CHANGED @Y17XARW*/ 00214000 * PRURH=TRHFID0; /* SETUP RH FLAGS @Y17XARW*/ 00215000 LR @03,IEDPRUQP 0417 00216000 SL @03,@CF00068 0417 00217000 MVC PRURH(3,@03),@CB01748 0417 00218000 * PRUTH=TTH0BYT0; /* SETUP TH FLAGS @Y17XARW*/ 00219000 MVI PRUTH(@03),X'0C' 0418 00220000 * BDUSYRSP=BDUSYRSP&&BDUSYRSP;/* CLEAR BDU RESPONSE @Y17XARW*/ 00221000 LA @03,12 0419 00222000 ALR @03,IEDPRUQP 0419 00223000 XC BDUSYRSP(1,@03),BDUSYRSP(@03) 0419 00224000 * BDUMODIF='22'X; /* SET MODIFIER TO REPLACE DEVICE 00225000 * SESSION INITIATION INFO 0420 00226000 * @Y17XARW*/ 00227000 MVI BDUMODIF(@03),X'22' 0420 00228000 * BDUHEADR='1'B; /* INDICATE THIS IS HEADER 0421 00229000 * @Y17XARW*/ 00230000 OI BDUHEADR(@03),B'01000000' 0421 00231000 * CALL SAVEBUFF; /* SAVE COPIED BUFFERS @Y17XARW*/ 00232000 BAL @14,SAVEBUFF 0422 00233000 * OCRESP='0'B; /* TURN RESPONSE FLAG OFF 0423 00234000 * @Y17XARW*/ 00235000 L @03,OPCCOPCE(,ROPCAVT) 0423 00236000 NI OCRESP(@03),B'11111110' 0423 00237000 * OCWTG=MODT0; /* SETUP WHERE-TO-GO FLD @Y17XARW*/ 00238000 MVC OCWTG(2,@03),MODT0 0424 00239000 * OPCMODID=MOD02; /* SETUP NEXT MOD ID @Y17XARW*/ 00240000 MVC OPCMODID(2,ROPCAVT),MOD02 0425 00241000 * END; /* @Y17XARW*/ 00242000 * ELSE 0427 00243000 * OPCMODID=MODT0; /* SETUP FOR NEXT MOD @Y17XARW*/ 00244000 B @RC00415 0427 00245000 @RF00415 MVC OPCMODID(2,ROPCAVT),MODT0 0427 00246000 *EXIT: 0428 00247000 * OPCFLAG1=0; /* CLEAR FLAG FIELDS @Y17XARW*/ 00248000 @RC00415 DS 0H 0428 00249000 EXIT MVI OPCFLAG1(ROPCAVT),X'00' 0428 00250000 * REG1=ROPCAVT; /* SETUP OP CONTROL AVT @Y17XARW*/ 00251000 LR REG1,ROPCAVT 0429 00252000 * DO; /* IEDXCTL */ 00253000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 0431 00254000 * /* 00255000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00256000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00257000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00258000 * END; /* END OF IEDXCTL @OZ35627*/ 00259000 *DIALDIGS: 0433 00260000 * IF TRMDEVFL(2)='1'B THEN /* ARE DIAL DIGITS SPECIFIED */ 00261000 * 0433 00262000 DIALDIGS TM TRMDEVFL(RFROM),B'01000000' 0433 00263000 BNO @RF00433 0433 00264000 * /***************************************************************/ 00265000 * /* */ 00266000 * /* WHEN DIAL DIGITS ARE SPECIFIED THE FOLLOWING ACTION IS TAKEN*/ 00267000 * /* BY THIS MODULE: TCOPY DIGITS IN TTE- DIAL DIGITS TRANSFERRED*/ 00268000 * /* TO THE USER WORKARE FROM THE TTE DIGITS IN NCP- DIAL DIGITS */ 00269000 * /* TRANSFERRED TO THE USER WORKAREA FROM THE RESPONSE RU TCHNG */ 00270000 * /* DIGITS IN TTE- DIAL DIGITS TRANSFERRED TO THE TTE FROM THE */ 00271000 * /* USER WORKAREA DIGITS IN NCP- DIAL DIGITS TRANSFERRED TO THE */ 00272000 * /* RU FROM THE USER WORKAREA AND A REPLACE RU IS SENT TO THE */ 00273000 * /* NCP @YM08051*/ 00274000 * /* */ 00275000 * /***************************************************************/ 00276000 * 0434 00277000 * IF TCHNG='1'B THEN /* IS IT TCHNG? @YM08051*/ 00278000 * 0434 00279000 TM TCHNG(ROPCAVT),B'01000000' 0434 00280000 BNO @RF00434 0434 00281000 * /*************************************************************/ 00282000 * /* */ 00283000 * /* TCHNG @YM08051*/ 00284000 * /* */ 00285000 * /*************************************************************/ 00286000 * 0435 00287000 * IF RTO->FDATA='0F'X THEN /* AND DIGITS IN NCP @YM08051*/ 00288000 CLI FDATA(RTO),X'0F' 0435 00289000 BE @RT00435 0435 00290000 * GO TO GETDIAL0; /* GO TRANSFER DIGITS @YM08081*/ 00291000 * ELSE 0437 00292000 * GO TO MOVFLD; /* DIGITS IN TTE @YM08051*/ 00293000 * 0437 00294000 B MOVFLD 0437 00295000 * /*****************************************************************/ 00296000 * /* */ 00297000 * /* TCOPY @YM08051*/ 00298000 * /* */ 00299000 * /*****************************************************************/ 00300000 * 0438 00301000 * ELSE 0438 00302000 * IF RFLDS->FDATA='0F'X /* NO ARE DIGITS IN NCP @YM08051*/ 00303000 * THEN 0438 00304000 @RF00434 CLI FDATA(RFLDS),X'0F' 0438 00305000 BE @RT00438 0438 00306000 * GO TO GETDIAL; /* YES, DIGITS ARE IN RESPONSE */ 00307000 * ELSE 0440 00308000 * GO TO MOVFLD; /* NO, DIGITS ARE IN TERM ENTRY */ 00309000 B MOVFLD 0440 00310000 * GO TO SHIFT1; /* GO CHECK NEXT BIT */ 00311000 B SHIFT1 0441 00312000 *GETDIAL0: 0442 00313000 * RTO=RTO+2; /* INCREMENT TTE REG @YM08081*/ 00314000 GETDIAL0 LA RTO,2(,RTO) 0442 00315000 * GO TO GETDIAL1; /* GO MOVE DATA @YM08081*/ 00316000 B GETDIAL1 0443 00317000 *GETDIAL: 0444 00318000 * RFLDS=RFLDS+2; /* UPDATE 'FROM' DEV DEP PTR */ 00319000 GETDIAL LA RFLDS,2(,RFLDS) 0444 00320000 *GETDIAL1: 0445 00321000 * IF DIALCHAR=0 /* IS THERE ANY DIAL DATA */ 00322000 * THEN 0445 00323000 GETDIAL1 L @03,OPCWORK(,ROPCAVT) 0445 00324000 L @03,DIALCHAR(,@03) 0445 00325000 LTR @03,@03 0445 00326000 BZ @RT00445 0445 00327000 * GO TO SHIFT1; /* NO, GO CHECK NEXT BIT */ 00328000 * CHANGE='1'B; /* INDICATE DIAL DIGITS MUST 0447 00329000 * CHANGE IN NCP @Y17XARW*/ 00330000 OI CHANGE(ROPCAVT),B'10000000' 0447 00331000 * RDATA=DIALCHAR; /* ADDRESS OF DIAL DIGITS 0448 00332000 * @Y17XARW*/ 00333000 STCM @03,7,RDATA(ROPCAVT) 0448 00334000 * IF TCHNG='1'B THEN /* IS IT TCHNG @YM08051*/ 00335000 TM TCHNG(ROPCAVT),B'01000000' 0449 00336000 BO @RT00449 0449 00337000 * GO TO MOVIT0; /* YES GO MOVE DIGITS TO RU 0450 00338000 * @YM08051*/ 00339000 *MOVDATA: 0451 00340000 * RLNGTH=RDATA->FCOUNT+1; /* LENGTH OF FLD TO MOVE @Y17XARW*/ 00341000 MOVDATA L @03,RDATA-1(,ROPCAVT) 0451 00342000 SLR @15,@15 0451 00343000 IC @15,FCOUNT(,@03) 0451 00344000 LA @15,1(,@15) 0451 00345000 LR RLNGTH,@15 0451 00346000 *MOVIT1: 0452 00347000 * GENERATE; 0452 00348000 MOVIT1 DS 0H 0452 00349000 * /* @G36XRRU*/ 00350000 BAL REG12,CHECKAIB /* CHECK FOR END OF AIB @G36XRRU*/ 00351000 * RTO->FIELD=RDATA->FIELD; /* MOVE ONE BYTE OF DATA @Y17XARW*/ 00352000 L @03,RDATA-1(,ROPCAVT) 0453 00353000 LA @03,0(,@03) 0453 00354000 MVC FIELD(1,RTO),FIELD(@03) 0453 00355000 * RLNGTH=RLNGTH-1; /* REDUCE COUNT TO MOVE */ 00356000 BCTR RLNGTH,0 0454 00357000 * RTO=RTO+1; /* UPDATE 'TO' AREA POINTER */ 00358000 LA @15,1 0455 00359000 ALR RTO,@15 0455 00360000 * RDATA=RDATA+1; /* UPDATE 'FROM' AREA PTR 0456 00361000 * @Y17XARW*/ 00362000 ALR @03,@15 0456 00363000 STCM @03,7,RDATA(ROPCAVT) 0456 00364000 * GENERATE; 0457 00365000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00366000 * IF RLNGTH=0 /* HAS ALL DATA BEEN MOVED */ 00367000 * THEN 0458 00368000 LTR RLNGTH,RLNGTH 0458 00369000 BZ @RT00458 0458 00370000 * GO TO SHIFT1; /* YES, GO CHECK NEXT BIT */ 00371000 * GO TO MOVIT1; /* NO, GO TO MOVE MORE */ 00372000 B MOVIT1 0460 00373000 *ADDRCHAR: 0461 00374000 * RDATA=ADDRCHR; /* ADDRESS OF ADDR CHARS @Y17XARW*/ 00375000 ADDRCHAR L @03,OPCWORK(,ROPCAVT) 0461 00376000 L @03,ADDRCHR(,@03) 0461 00377000 STCM @03,7,RDATA(ROPCAVT) 0461 00378000 * IF ELMNT->WENTCD>='08'X /* IS THIS FOR TCHNG */ 00379000 * THEN 0462 00380000 L @15,ELMNT(,ROPCAVT) 0462 00381000 CLI WENTCD(@15),8 0462 00382000 BNL @RT00462 0462 00383000 * GO TO CHANG1; /* YES, GO PROCESS CHANGE */ 00384000 * IF RDATA->FCOUNT=0 /* ANY ADDR CHARS PRESENT 0464 00385000 * @Y17XARW*/ 00386000 * THEN 0464 00387000 CLI FCOUNT(@03),0 0464 00388000 BNE @RF00464 0464 00389000 * IF TRMDEVFL(3)='1'B /* YES, AND ARE ADDR CHARS SPECD */ 00390000 * THEN 0465 00391000 TM TRMDEVFL(RFROM),B'00100000' 0465 00392000 BO @RT00465 0465 00393000 * GO TO MOVFLD; /* GO MOVE ADDR CHARS FROM TERM */ 00394000 * ELSE 0467 00395000 * GO TO SHIFT1; /* NO, NO ADDR CHARS TO MOVE */ 00396000 B SHIFT1 0467 00397000 * ELMNT->WTO->TRMDEVFL(3)='1'B; /* INDICATE ADDR CHARS SPECIFIED */ 00398000 @RF00464 L @03,ELMNT(,ROPCAVT) 0468 00399000 L @03,WTO-1(,@03) 0468 00400000 OI TRMDEVFL(@03),B'00100000' 0468 00401000 * GO TO MOVDATA; /* MOVE ADDR CHARS FROM RESPONSE */ 00402000 B MOVDATA 0469 00403000 *CHANG1: 0470 00404000 * IF ELMNT->WADRCH='1'B /* ARE ADDR CHARS IN 'TO' AREA */ 00405000 * THEN 0470 00406000 CHANG1 L @03,ELMNT(,ROPCAVT) 0470 00407000 TM WADRCH(@03),B'00000010' 0470 00408000 BNO @RF00470 0470 00409000 * IF TRMDEVFL(3)='1'B /* AND AREA ADDR CHARS IN 'FROM' */ 00410000 * THEN 0471 00411000 TM TRMDEVFL(RFROM),B'00100000' 0471 00412000 BO @RT00471 0471 00413000 * GO TO MOVFLD; /* YES, MOVE CHARS FROM 'FROM' */ 00414000 * ELSE 0473 00415000 * DO; /* NO NOTHING TO MOVE */ 00416000 * ELMNT->WTO->TRMDEVFL(3)='0'B;/* INDICATE NO ADDRESSING 0474 00417000 * CHARACTERS */ 00418000 L @03,WTO-1(,@03) 0474 00419000 NI TRMDEVFL(@03),B'11011111' 0474 00420000 * GO TO SHIFT1; /* GO CHECK NEXT */ 00421000 B SHIFT1 0475 00422000 * END; 0476 00423000 * ELSE 0477 00424000 * IF TRMDEVFL(3)='1'B /* ARE ADDR CHARS IN 'FROM' AREA */ 00425000 * THEN 0477 00426000 @RF00470 TM TRMDEVFL(RFROM),B'00100000' 0477 00427000 BNO @RF00477 0477 00428000 * DO; /* YES, */ 00429000 * ELMNT->WTO->TRMDEVFL(3)='0'B;/* INDICATE NO ADDRESSING 0479 00430000 * CHARACTERS */ 00431000 L @03,ELMNT(,ROPCAVT) 0479 00432000 L @03,WTO-1(,@03) 0479 00433000 NI TRMDEVFL(@03),B'11011111' 0479 00434000 * GO TO MOVDATA2; /* MOVE CHARS TO DATA */ 00435000 B MOVDATA2 0480 00436000 * END; 0481 00437000 * GO TO SHIFT1; /* GO CHECK NEXT FIELD */ 00438000 B SHIFT1 0482 00439000 *MOVDATA2: 0483 00440000 * IF RFLDS->FCOUNT^=RDATA->FCOUNT /* ARE COUNTS EQUAL @Y17XARW*/ 00441000 * THEN 0483 00442000 MOVDATA2 L @03,RDATA-1(,ROPCAVT) 0483 00443000 CLC FCOUNT(1,RFLDS),FCOUNT(@03) 0483 00444000 BNE @RT00483 0483 00445000 * GO TO ERREXIT; /* NO, ERROR, EXIT */ 00446000 * CHANGE='1'B; /* INDICATE ADDR CHARS CHANGED 0485 00447000 * @Y17XARW*/ 00448000 OI CHANGE(ROPCAVT),B'10000000' 0485 00449000 *MOVIT0: /* @YM08051*/ 00450000 * RLNGTH=RDATA->FCOUNT+1; /* LENGTH OF DATA TO MOVE 0486 00451000 * @Y17XARW*/ 00452000 MOVIT0 L @03,RDATA-1(,ROPCAVT) 0486 00453000 SLR @15,@15 0486 00454000 IC @15,FCOUNT(,@03) 0486 00455000 LA @15,1(,@15) 0486 00456000 LR RLNGTH,@15 0486 00457000 *MOVIT2: 0487 00458000 * RDATA->FIELD=RFLDS->FIELD; /* MOVE ONE BYTE OF DATA @Y17XARW*/ 00459000 MOVIT2 L @03,RDATA-1(,ROPCAVT) 0487 00460000 LA @03,0(,@03) 0487 00461000 MVC FIELD(1,@03),FIELD(RFLDS) 0487 00462000 * RLNGTH=RLNGTH-1; /* REDUCE COUNT TO MOVE */ 00463000 BCTR RLNGTH,0 0488 00464000 * RFLDS=RFLDS+1; /* UPDATE 'FROM' AREA POINTER */ 00465000 LA @15,1 0489 00466000 ALR RFLDS,@15 0489 00467000 * RDATA=RDATA+1; /* UPDATE 'TO' AREA PTR @Y17XARW*/ 00468000 ALR @03,@15 0490 00469000 STCM @03,7,RDATA(ROPCAVT) 0490 00470000 * GENERATE; 0491 00471000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00472000 * IF RLNGTH=0 /* HAS ALL DATA BEEN MOVED */ 00473000 * THEN 0492 00474000 LTR RLNGTH,RLNGTH 0492 00475000 BZ @RT00492 0492 00476000 * GO TO SHIFT1; /* YES, GO CHECK NEXT BIT */ 00477000 * GO TO MOVIT2; /* NO, GO TO MOVE MORE */ 00478000 B MOVIT2 0494 00479000 *CHKUNIT: 0495 00480000 * IF RDATA>=ENDUNIT /* ARE WE PAST END OF UNIT */ 00481000 * THEN 0495 00482000 CHKUNIT L @03,RDATA-1(,ROPCAVT) 0495 00483000 LA @03,0(,@03) 0495 00484000 L @15,ENDUNIT(,ROPCAVT) 0495 00485000 CR @03,@15 0495 00486000 BL @RF00495 0495 00487000 * DO; /* YES, */ 00488000 * RWORK=RWORK->PRFTIC; /* NEXT UNIT ADDRESS @Y17XARW*/ 00489000 L RWORK,PRFTIC(,RWORK) 0497 00490000 * RDATA=RWORK+12+(RDATA-ENDUNIT);/* POINT TO START OF DATA 0498 00491000 * @Y17XARW*/ 00492000 LA @14,12 0498 00493000 LR @00,RWORK 0498 00494000 ALR @00,@14 0498 00495000 SLR @03,@15 0498 00496000 ALR @00,@03 0498 00497000 STCM @00,7,RDATA(ROPCAVT) 0498 00498000 * ENDUNIT=RWORK+AVTKEYLE+12; /* END OF NEXT UNIT ADDRESS 0499 00499000 * @Y17XARW*/ 00500000 LR @03,RWORK 0499 00501000 AH @03,AVTKEYLE(,AVT) 0499 00502000 ALR @03,@14 0499 00503000 ST @03,ENDUNIT(,ROPCAVT) 0499 00504000 * GO TO CHKUNIT; 0500 00505000 B CHKUNIT 0500 00506000 * END; 0501 00507000 * GENERATE; 0502 00508000 @RF00495 DS 0H 0502 00509000 BR REG12 /* RETURN TO CALLER */ 00510000 *CHECKAIB: /* @G36XRRU*/ 00511000 * IF ELMNT->WENTCD>='08'X /* IF TCHNG REQUEST @G36XRRU*/ 00512000 * THEN 0503 00513000 CHECKAIB L @03,ELMNT(,ROPCAVT) 0503 00514000 CLI WENTCD(@03),8 0503 00515000 BL @RF00503 0503 00516000 * GENERATE; 0504 00517000 * /* @G36XRRU*/ 00518000 BR REG12 /* THEN RETURN TO CALLER @G36XRRU*/ 00519000 * ELSE /* CONTINUE TCOPY CHECK @G36XRRU*/ 00520000 * REG1=RTO+RLNGTH; /* CURRENT AREA PTR PLUS LENGTH 00521000 * FOR MOVE @G36XRRU*/ 00522000 B @RC00503 0505 00523000 @RF00503 LR REG1,RTO 0505 00524000 ALR REG1,RLNGTH 0505 00525000 * IF ELMNT->WAIBEND2WRTCD='18'X; /* RC=DATA>AIB AREA @G36XRRU*/ 00538000 SIZERR L @03,ELMNT(,ROPCAVT) 0509 00539000 MVI WRTCD(@03),X'18' 0509 00540000 * GO TO POSTAPP1; /* PREPARE TO EXIT @G36XRRU*/ 00541000 B POSTAPP1 0510 00542000 *POSTAPPL: /* PREPARE TO GOTO 0A10D @G36XRRU*/ 00543000 * ELMNT->WTO=RTO; /* UPDATE 'TO' AREA PTR @G36XRRU*/ 00544000 POSTAPPL L @03,ELMNT(,ROPCAVT) 0511 00545000 STCM RTO,7,WTO(@03) 0511 00546000 *POSTAPP1: /* @G36XRRU*/ 00547000 * ELMNT->WVERB='FF'X; /* SET FLAG FOR 'RETURN FROM 3705 00548000 * SERVICE ROUTINE' @G36XRRU*/ 00549000 POSTAPP1 L @03,ELMNT(,ROPCAVT) 0512 00550000 MVI WVERB(@03),X'FF' 0512 00551000 * OPCMODID=MOD0A; /* EXIT TO IGC0A10D @G36XRRU*/ 00552000 MVC OPCMODID(2,ROPCAVT),MOD0A 0513 00553000 * OPCFLAG1=0; /* CLEAR CTL FLAG @G36XRRU*/ 00554000 MVI OPCFLAG1(ROPCAVT),X'00' 0514 00555000 * REG1=ROPCAVT; /* PASS OP CTL AVT ADDR @G36XRRU*/ 00556000 LR REG1,ROPCAVT 0515 00557000 * DO; /* IEDXCTL */ 00558000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 0517 00559000 * /* 00560000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00561000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00562000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00563000 * END; /* END OF IEDXCTL @OZ35627*/ 00564000 *ERREXIT: 0519 00565000 * ELMNT->WRTCD='1C'X; /* BAD RETURN CODE @G36XRRU*/ 00566000 ERREXIT L @03,ELMNT(,ROPCAVT) 0519 00567000 MVI WRTCD(@03),X'1C' 0519 00568000 * GO TO POSTAPP1; /* RETURN TO IGC0A10D @G36XRRU*/ 00569000 B POSTAPP1 0520 00570000 *SAVEBUFF: 0521 00571000 * RFY 0521 00572000 * (RSAVE, 0521 00573000 * REG14) RSTD; /* @Y17XARW*/ 00574000 SAVEBUFF DS 0H 0522 00575000 * SAVERET=REG14; /* SAVE RETURN REG @Y17XARW*/ 00576000 L @15,OPCWORK(,ROPCAVT) 0522 00577000 ST REG14,SAVERET(,@15) 0522 00578000 * BUFCOUNT=1; /* SET BUFFER CNT TO ONE @Y17XARW*/ 00579000 MVC BUFCOUNT(4,@15),@CF00084 0523 00580000 * DO RSAVE=PRUDATCT BY-AVTKEYLE WHILE RSAVE>AVTKEYLE;/* DETERMINE 00581000 * NUMBER OF BUFFS NEEDED 0524 00582000 * @Y17XARW*/ 00583000 LH RSAVE,PRUDATCT(,IEDPRUQP) 0524 00584000 B @DE00524 0524 00585000 @DL00524 DS 0H 0525 00586000 * BUFCOUNT=BUFCOUNT+1; /* INCREMENT BUFFER COUNT 0525 00587000 * @Y17XARW*/ 00588000 L @15,OPCWORK(,ROPCAVT) 0525 00589000 LA @03,1 0525 00590000 AL @03,BUFCOUNT(,@15) 0525 00591000 ST @03,BUFCOUNT(,@15) 0525 00592000 * END; /* @Y17XARW*/ 00593000 LH @15,AVTKEYLE(,AVT) 0526 00594000 LCR @15,@15 0526 00595000 ALR RSAVE,@15 0526 00596000 @DE00524 CH RSAVE,AVTKEYLE(,AVT) 0526 00597000 BH @DL00524 0526 00598000 * REG1=BUFCOUNT; /* SETUP BUFFER COUNT @Y17XARW*/ 00599000 L @15,OPCWORK(,ROPCAVT) 0527 00600000 L REG1,BUFCOUNT(,@15) 0527 00601000 * RSAVE=ADDR(OPCSAVE); /* SETUP A SAVEAREA @Y17XARW*/ 00602000 LA RSAVE,OPCSAVE(,ROPCAVT) 0528 00603000 * CALL GETBUFF; /* GET BUFFERS FOR DATA @Y17XARW*/ 00604000 L @15,OPCGETBF(,ROPCAVT) 0529 00605000 BALR @14,@15 0529 00606000 * TTCIN=PRUTTCIN; /* TTCIN, AND DATA COUNT @Y71XARW*/ 00607000 LH @15,PRUTTCIN(,IEDPRUQP) 0530 00608000 N @15,@CF02111 0530 00609000 STH @15,TTCIN(,REG1) 0530 00610000 * DATCT=PRUDATCT; /* FOR CHECKPOINT @Y17XARW*/ 00611000 LH @15,PRUDATCT(,IEDPRUQP) 0531 00612000 STH @15,DATCT(,REG1) 0531 00613000 * PLMVFLG1=0; /* CLEAR FLAG BYTES @Y17XARW*/ 00614000 L @03,OPCWORK(,ROPCAVT) 0532 00615000 MVI PLMVFLG1(@03),X'00' 0532 00616000 * PLMVFLG2=0; /* @Y17XARW*/ 00617000 MVI PLMVFLG2(@03),X'00' 0533 00618000 * PLMVUNCA=0; /* @Y17XARW& */ 00619000 SLR @00,@00 0534 00620000 ST @00,PLMVUNCA(,@03) 0534 00621000 * PLMVTU=REG1; /* SETUP TARGET UNIT @Y17XARW*/ 00622000 ST REG1,PLMVTU(,@03) 0535 00623000 * PLMVTD=ADDR(PRFSUNIT); /* ADDR OF TARGET DATA @Y17XARW*/ 00624000 LA @00,PRFSUNIT(,REG1) 0536 00625000 ST @00,PLMVTD(,@03) 0536 00626000 * PLMVSU=RPRU; /* ADDRESS OF SOURCE UNIT 0537 00627000 * @Y17XARW*/ 00628000 ST RPRU,PLMVSU(,@03) 0537 00629000 * PLMVSD=ADDR(PRUDATA); /* ADDRESS OF SOURCE DATA 0538 00630000 * @Y17XARW*/ 00631000 LA @00,PRUDATA(,IEDPRUQP) 0538 00632000 ST @00,PLMVSD(,@03) 0538 00633000 * PLMVLNTH=PRUDATCT; /* LENGTH OF DATA TO MOVE 0539 00634000 * @Y17XARW*/ 00635000 STH @15,PLMVLNTH(,@03) 0539 00636000 * OCPTRSAV=REG1; /* SAVE BUFFERS IN OPCE @Y17XARW*/ 00637000 L @15,OPCCOPCE(,ROPCAVT) 0540 00638000 ST REG1,OCPTRSAV(,@15) 0540 00639000 * REG1=ADDR(IEDPLMV); /* SETUP PARM LIST @Y17XARW*/ 00640000 LR REG1,@03 0541 00641000 * CALL IEDMVBFR; /* MOVE COPY DATA @Y17XARW*/ 00642000 L @03,AVTSAVTP(,AVT) 0542 00643000 L @15,SAVTMVBF(,@03) 0542 00644000 BALR @14,@15 0542 00645000 * REG14=SAVERET; /* RESTORE RETURN REG @Y17XARW*/ 00646000 L @03,OPCWORK(,ROPCAVT) 0543 00647000 L REG14,SAVERET(,@03) 0543 00648000 * RFY 0544 00649000 * (RSAVE, 0544 00650000 * REG14) UNRSTD; /* @Y17XARW*/ 00651000 * RETURN; /* @Y17XARW*/ 00652000 @EL00001 DS 0H 0545 00653000 @EF00001 DS 0H 0545 00654000 @ER00001 BR @14 0545 00655000 * END IGCT110D 0546 00656000 * 0546 00657000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00658000 */*%INCLUDE SYSLIB (TAVTD ) */ 00659000 */*%INCLUDE SYSLIB (TBDUD ) */ 00660000 */*%INCLUDE SYSLIB (TTRMD ) */ 00661000 */*%INCLUDE SYSLIB (TOPCED ) */ 00662000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00663000 */*%INCLUDE SYSLIB (TPRFD ) */ 00664000 */*%INCLUDE SYSLIB (TPRUD ) */ 00665000 */*%INCLUDE SYSLIB (TRHD ) */ 00666000 */*%INCLUDE SYSLIB (TTHD ) */ 00667000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00668000 * 0546 00669000 * ; 0546 00670000 B @EL00001 0546 00671000 @DATA DS 0H 00672000 DS 0F 00673000 DS 0F 00674000 @CF00084 DC F'1' 00675000 @CF00068 DC F'8' 00676000 @CF02106 DC F'-8' 00677000 @CF02111 DC XL4'0000FFFF' 00678000 DS 0D 00679000 DIALMSK DC H'64' 00680000 ADDRMSK DC H'32' 00681000 @CB01748 DC X'0B8000' 00682000 MOD0A DC CL2'0A' 00683000 MODT0 DC CL2'T0' 00684000 MOD00 DC CL2'00' 00685000 MOD02 DC CL2'02' 00686000 MOD07 DC CL2'07' 00687000 DS CL1 00688000 ZAPAREA DC XL104'0' 00689000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00690000 @01 EQU 01 00691000 @02 EQU 02 00692000 @03 EQU 03 00693000 @04 EQU 04 00694000 @05 EQU 05 00695000 @06 EQU 06 00696000 @07 EQU 07 00697000 @08 EQU 08 00698000 @09 EQU 09 00699000 @10 EQU 10 00700000 @11 EQU 11 00701000 @12 EQU 12 00702000 @13 EQU 13 00703000 @14 EQU 14 00704000 @15 EQU 15 00705000 @0 EQU 00 00706000 @1 EQU 01 00707000 @2 EQU 02 00708000 @3 EQU 03 00709000 @4 EQU 04 00710000 @5 EQU 05 00711000 @6 EQU 06 00712000 @7 EQU 07 00713000 @8 EQU 08 00714000 @9 EQU 09 00715000 @A EQU 10 00716000 @B EQU 11 00717000 @C EQU 12 00718000 @D EQU 13 00719000 @E EQU 14 00720000 @F EQU 15 00721000 REG0 EQU @00 00722000 REG1 EQU @01 00723000 ROPCAVT EQU @02 00724000 AVT EQU @04 00725000 RFLDS EQU @05 00726000 RWORK EQU @06 00727000 RTO EQU @07 00728000 RFROM EQU @08 00729000 IEDPRUQP EQU @09 00730000 RPRU EQU @09 00731000 RMASK EQU @09 00732000 RLNGTH EQU @10 00733000 RBASE EQU @11 00734000 REG12 EQU @12 00735000 RSAVE EQU @13 00736000 REG14 EQU @14 00737000 REG15 EQU @15 00738000 IEDQAPTR EQU 0 00739000 IEDQTPTR EQU 0 00740000 IEDQPPTR EQU 0 00741000 IEDPLMVP EQU 0 00742000 ROPCE EQU 0 00743000 IEDQAVTD EQU 0 00744000 AVTSAVEX EQU IEDQAVTD+288 00745000 AVTREADD EQU IEDQAVTD+380 00746000 AVTBUFSW EQU IEDQAVTD+384 00747000 @NM00004 EQU IEDQAVTD+388 00748000 AVTCKFLG EQU @NM00004 00749000 AVTBASE EQU IEDQAVTD+412 00750000 AVTPKF EQU AVTBASE 00751000 AVTHG02 EQU IEDQAVTD+528 00752000 AVTDISP EQU IEDQAVTD+552 00753000 AVTHD EQU IEDQAVTD+556 00754000 AVTSCOPT EQU AVTHD 00755000 AVTSAVTP EQU IEDQAVTD+612 00756000 AVTSAVTF EQU AVTSAVTP 00757000 AVTCKPEL EQU IEDQAVTD+652 00758000 AVTCKRMV EQU AVTCKPEL 00759000 AVTCKELF EQU IEDQAVTD+680 00760000 AVTCKBYT EQU IEDQAVTD+691 00761000 AVTHG01 EQU IEDQAVTD+692 00762000 AVTCKLNK EQU IEDQAVTD+696 00763000 AVTCRELE EQU IEDQAVTD+708 00764000 AVTCCELE EQU AVTCRELE 00765000 AVTCLRHI EQU IEDQAVTD+716 00766000 AVTADBUF EQU IEDQAVTD+720 00767000 AVTSYSER EQU IEDQAVTD+728 00768000 AVTBFRFG EQU IEDQAVTD+784 00769000 AVTCKPQB EQU IEDQAVTD+804 00770000 AVTCKPTB EQU AVTCKPQB 00771000 AVTCKPEC EQU AVTCKPQB+4 00772000 AVTCKPCC EQU AVTCKPEC 00773000 AVTOPCQB EQU IEDQAVTD+816 00774000 AVTOPCOB EQU AVTOPCQB 00775000 AVTOPCEC EQU AVTOPCQB+4 00776000 AVTOPCCC EQU AVTOPCEC 00777000 AVTOLTQB EQU IEDQAVTD+828 00778000 AVTCWFL1 EQU IEDQAVTD+924 00779000 AVTCWFL2 EQU IEDQAVTD+925 00780000 AVTSUBT EQU IEDQAVTD+948 00781000 AVTIOTR EQU IEDQAVTD+949 00782000 AVTKEYLE EQU IEDQAVTD+1032 00783000 AVTBIT1 EQU IEDQAVTD+1050 00784000 AVTBIT2 EQU IEDQAVTD+1051 00785000 AVTBIT3 EQU IEDQAVTD+1052 00786000 AVTBIT4 EQU IEDQAVTD+1136 00787000 @NM00083 EQU IEDQAVTD+1232 00788000 IEDNSVTD EQU 0 00789000 SAVTDIAG EQU IEDNSVTD 00790000 SAVTDIAF EQU SAVTDIAG 00791000 SAVTLUSQ EQU IEDNSVTD+88 00792000 SAVTMVBF EQU IEDNSVTD+160 00793000 SAVTSCLU EQU IEDNSVTD+168 00794000 SAVTTCPU EQU IEDNSVTD+238 00795000 SAVTZELM EQU IEDNSVTD+270 00796000 SAVTRDRV EQU IEDNSVTD+284 00797000 SAVTCKQB EQU IEDNSVTD+300 00798000 SAVTCKTB EQU SAVTCKQB 00799000 SAVTCKEC EQU SAVTCKQB+4 00800000 SAVTCKCC EQU SAVTCKEC 00801000 SAVTNETF EQU IEDNSVTD+324 00802000 SAVTCDRV EQU IEDNSVTD+332 00803000 IEDBDU EQU 0 00804000 BDUMODIF EQU IEDBDU+1 00805000 BDUFNFLG EQU IEDBDU+2 00806000 BDUHEADR EQU BDUFNFLG 00807000 BDUBDUFG EQU IEDBDU+3 00808000 BDURSP EQU IEDBDU+4 00809000 BDUSYRSP EQU BDURSP 00810000 BDUEXRSP EQU BDURSP+1 00811000 BDUEND EQU IEDBDU+6 00812000 ADDRESS EQU 0 00813000 IEDQTRM EQU 0 00814000 TRMSTATE EQU IEDQTRM 00815000 TRMLOG EQU TRMSTATE 00816000 TRMOPTFN EQU TRMSTATE 00817000 TRMDESTQ EQU IEDQTRM+1 00818000 TRMRSTRT EQU TRMDESTQ+2 00819000 TRMINSEQ EQU IEDQTRM+4 00820000 TLISTCNT EQU TRMINSEQ 00821000 TRMSESCT EQU TLISTCNT 00822000 TRMOUTSQ EQU IEDQTRM+6 00823000 TLISTEN EQU TRMOUTSQ 00824000 TRMDSORG EQU TLISTEN 00825000 TRMPLIM EQU TLISTEN+1 00826000 TRMALTD EQU IEDQTRM+8 00827000 TRMPRILK EQU TRMALTD 00828000 TRMDEVFL EQU IEDQTRM+10 00829000 TRMADDC EQU TRMDEVFL 00830000 TRMNCPI EQU TRMDEVFL+1 00831000 TRMSTAT EQU IEDQTRM+12 00832000 TRMAPB EQU TRMSTAT 00833000 TRMSIO EQU TRMAPB 00834000 TRMOWNER EQU TRMSIO 00835000 TRMSENSE EQU TRMAPB+3 00836000 IEDNTRM EQU 0 00837000 TRMDIALQ EQU IEDNTRM+1 00838000 TRMBYTE7 EQU TRMDIALQ+2 00839000 TRMATNDX EQU IEDNTRM+4 00840000 TRMINDEX EQU IEDNTRM+6 00841000 TRMCOHTG EQU IEDNTRM+8 00842000 TRMBYTE6 EQU TRMCOHTG 00843000 TRMCDF0 EQU TRMBYTE6 00844000 TRMBYTE5 EQU TRMCOHTG+1 00845000 TRMBYTE4 EQU IEDNTRM+10 00846000 TRMBYTE3 EQU IEDNTRM+11 00847000 TRMBYTE2 EQU IEDNTRM+12 00848000 TRMINPG EQU TRMBYTE2 00849000 TRMBYTE1 EQU IEDNTRM+13 00850000 TRMSCPRQ EQU TRMBYTE1 00851000 TRMBYTE0 EQU IEDNTRM+16 00852000 TRMNOWCD EQU TRMBYTE0 00853000 TRMSIBPT EQU IEDNTRM+17 00854000 TRMLTRAC EQU TRMSIBPT 00855000 TRMLBUFR EQU TRMLTRAC 00856000 TRMRLMCT EQU IEDNTRM+20 00857000 TRMLGBST EQU TRMRLMCT 00858000 IEDQOPCE EQU 0 00859000 OCELEM EQU IEDQOPCE+4 00860000 OCUNIT EQU IEDQOPCE+8 00861000 OCRUDEST EQU OCUNIT 00862000 OCCKPKEY EQU OCRUDEST 00863000 OCSCAN EQU OCCKPKEY 00864000 @NM00134 EQU OCRUDEST+1 00865000 OCUNITBF EQU @NM00134+2 00866000 OCOPTCDE EQU IEDQOPCE+12 00867000 OCSWITCH EQU IEDQOPCE+13 00868000 OCFLAG EQU IEDQOPCE+14 00869000 OCRESP EQU OCFLAG 00870000 OCRLN EQU IEDQOPCE+15 00871000 OCCIB EQU IEDQOPCE+16 00872000 OCMSTSAV EQU OCCIB 00873000 OCDEST EQU OCMSTSAV 00874000 OCLINENO EQU IEDQOPCE+22 00875000 OCTIOT EQU OCLINENO 00876000 OCWTGB EQU OCTIOT 00877000 OCTRUNIT EQU IEDQOPCE+24 00878000 OCRSID EQU OCTRUNIT 00879000 OCALSTAT EQU OCRSID 00880000 OCFNAALL EQU OCALSTAT 00881000 OCFLAG1 EQU OCRSID+1 00882000 OCPARM EQU IEDQOPCE+28 00883000 OCWTG EQU IEDQOPCE+30 00884000 OCBACKUP EQU IEDQOPCE+32 00885000 OCBUFNED EQU OCBACKUP 00886000 OCCOUNT1 EQU OCBUFNED 00887000 OCBUFGOT EQU OCBACKUP+2 00888000 OCCOUNT2 EQU OCBUFGOT 00889000 OCMODNME EQU IEDQOPCE+40 00890000 OCIPLWA EQU OCMODNME 00891000 OCPTRSAV EQU OCMODNME+4 00892000 OCCKDATA EQU IEDQOPCE+48 00893000 OCRSTGTM EQU OCCKDATA 00894000 OC379RRT EQU OCRSTGTM 00895000 OCNCP EQU OCRSTGTM+2 00896000 OCOID EQU IEDQOPCE+56 00897000 IEDQOPCN EQU 0 00898000 OCLDNME EQU IEDQOPCN 00899000 OCLINTTE EQU OCLDNME 00900000 OCREQFLG EQU OCLINTTE+2 00901000 OCPREFLG EQU OCLINTTE+3 00902000 IEDPLMV EQU 0 00903000 PLMVTU EQU IEDPLMV 00904000 PLMVTD EQU IEDPLMV+4 00905000 PLMVSU EQU IEDPLMV+8 00906000 PLMVSD EQU IEDPLMV+12 00907000 PLMVLNTH EQU IEDPLMV+16 00908000 PLMVFLGS EQU IEDPLMV+18 00909000 PLMVFLG1 EQU PLMVFLGS 00910000 PLMVFLG2 EQU PLMVFLGS+1 00911000 PLMVUNCA EQU IEDPLMV+20 00912000 IEDQPRF EQU 0 00913000 PRFRCB EQU IEDQPRF 00914000 PRFKEY EQU PRFRCB 00915000 PRFQCBA EQU PRFRCB+1 00916000 PRFPRI EQU PRFRCB+4 00917000 PRFLINK EQU PRFRCB+5 00918000 PRFTIC EQU IEDQPRF+8 00919000 PRFTICC EQU PRFTIC 00920000 PRFTI0 EQU PRFTIC+1 00921000 PRFVTCHK EQU PRFTI0+2 00922000 PRFNBUNT EQU IEDQPRF+12 00923000 PRFSUNIT EQU PRFNBUNT 00924000 PRFPLQCB EQU PRFSUNIT 00925000 PRFLCB EQU IEDQPRF+13 00926000 PRFSRCSZ EQU IEDQPRF+16 00927000 PRFSTAT1 EQU IEDQPRF+20 00928000 PRFCORE EQU IEDQPRF+21 00929000 PRFXTRA EQU PRFCORE 00930000 PRFSCAN EQU IEDQPRF+24 00931000 PRFTQBCK EQU IEDQPRF+26 00932000 PRFNTXT EQU PRFTQBCK 00933000 PRFEOBOF EQU PRFNTXT 00934000 PRFLU2TT EQU PRFNTXT+1 00935000 PRFCRCD EQU IEDQPRF+29 00936000 PRFTSOFL EQU PRFCRCD 00937000 PRFCHDR EQU IEDQPRF+32 00938000 PRFNHDR EQU PRFCHDR 00939000 PRFHQBCK EQU IEDQPRF+35 00940000 IEDPF1 EQU 0 00941000 PRF1FLG1 EQU IEDPF1+3 00942000 PRF1WD2 EQU IEDPF1+4 00943000 PRF1SEQP EQU PRF1WD2 00944000 PRF1SQID EQU PRF1SEQP 00945000 PRF1TAG1 EQU PRF1SQID 00946000 IEDPF2 EQU 0 00947000 PRF2FLG2 EQU IEDPF2 00948000 PRF2WD2 EQU IEDPF2+4 00949000 PRF2SEQP EQU PRF2WD2 00950000 PRF2RFLG EQU PRF2SEQP 00951000 IEDPRUQD EQU 0 00952000 PRUTTCIN EQU IEDPRUQD 00953000 PRUDATCT EQU IEDPRUQD+2 00954000 PRUTIC EQU IEDPRUQD+8 00955000 PRUNUNIT EQU PRUTIC+1 00956000 PRUVTCHK EQU PRUNUNIT+2 00957000 PRUDATA EQU IEDPRUQD+12 00958000 IEDPRUND EQU 0 00959000 PRURHTH EQU IEDPRUND 00960000 PRURH EQU PRURHTH 00961000 PRURHFG0 EQU PRURH 00962000 PRURHSDI EQU PRURHFG0 00963000 PRURHFG1 EQU PRURH+1 00964000 PRURHFG2 EQU PRURH+2 00965000 PRUTH EQU PRURHTH+3 00966000 PRUFIDN EQU PRUTH 00967000 IEDRH EQU 0 00968000 TRHBYTE0 EQU IEDRH 00969000 TRHBYTE1 EQU IEDRH+1 00970000 TRHBYTE2 EQU IEDRH+2 00971000 IEDTH EQU 0 00972000 TTHBYTE0 EQU IEDTH 00973000 TTHSNF EQU IEDTH+6 00974000 TTHTAG EQU TTHSNF 00975000 TTHTAG1 EQU TTHTAG 00976000 IEDQOPCD EQU 0 00977000 OPCAVTPT EQU IEDQOPCD+8 00978000 OPCCOPCE EQU IEDQOPCD+12 00979000 OPCTRACE EQU IEDQOPCD+32 00980000 OPCSAVE EQU IEDQOPCD+56 00981000 OPCWORK EQU IEDQOPCD+140 00982000 OPCFLAG1 EQU IEDQOPCD+146 00983000 OPCAQCTL EQU IEDQOPCD+180 00984000 OPCXCTL EQU IEDQOPCD+204 00985000 OPCLDNME EQU IEDQOPCD+212 00986000 OPCMODID EQU OPCLDNME+3 00987000 OPCGETBF EQU IEDQOPCD+276 00988000 OPCFREBF EQU IEDQOPCD+280 00989000 OPCSPEC EQU IEDQOPCD+300 00990000 OPCWRKSP EQU IEDQOPCD+320 00991000 OPCPWCOB EQU IEDQOPCD+368 00992000 OPCPWQCB EQU OPCPWCOB 00993000 OPCPWECB EQU OPCPWCOB+4 00994000 OPCSESS EQU IEDQOPCD+384 00995000 OPCSFLAG EQU OPCSESS 00996000 OPCSENSE EQU OPCSESS+8 00997000 OPCSNSSY EQU OPCSENSE 00998000 OPCSNSUS EQU OPCSENSE+2 00999000 OPCPCID EQU IEDQOPCD+456 01000000 OPCUNIQP EQU OPCPCID+2 01001000 OPCSESSF EQU IEDQOPCD+464 01002000 WORKAREA EQU 0 01003000 WVERB EQU WORKAREA+8 01004000 WENTCD EQU WORKAREA+9 01005000 WANSCD EQU WORKAREA+10 01006000 WADRCH EQU WANSCD 01007000 WRTCD EQU WORKAREA+11 01008000 WPTR1 EQU WORKAREA+16 01009000 WTO EQU WPTR1+1 01010000 WPTR2 EQU WORKAREA+20 01011000 WFROM EQU WPTR2+1 01012000 WAIBEND EQU WORKAREA+36 01013000 WAIBEND2 EQU WAIBEND+1 01014000 FIELDS EQU 0 01015000 FIELD EQU FIELDS 01016000 FCOUNT EQU FIELD 01017000 FDATA EQU FIELDS+1 01018000 POINTERS EQU 0 01019000 SAVERET EQU POINTERS+24 01020000 BUFCOUNT EQU POINTERS+28 01021000 ADDRCHR EQU POINTERS+32 01022000 DIALCHAR EQU POINTERS+36 01023000 PRUBUFF EQU 0 01024000 TTCIN EQU PRUBUFF 01025000 DATCT EQU PRUBUFF+2 01026000 GETBUFF EQU 0 01027000 IEDMVBFR EQU 0 01028000 FREEBUFF EQU 0 01029000 @NM00113 EQU TRMSTATE 01030000 TRMLUFD0 EQU TRMBYTE7 01031000 TRMSNAST EQU TRMBYTE6 01032000 TRMCDFD0 EQU TRMBYTE5 01033000 TRMPRE1 EQU TRMBYTE4 01034000 TRMNCP1 EQU TRMBYTE4 01035000 TRMLU1 EQU TRMBYTE4 01036000 TRMLINK1 EQU TRMBYTE4 01037000 TRMDCONS EQU TRMLINK1 01038000 TRMPRE EQU TRMBYTE3 01039000 TRMNCP EQU TRMBYTE3 01040000 TRMIPLDM EQU TRMNCP 01041000 TRMPU EQU TRMBYTE3 01042000 TRMLU EQU TRMBYTE3 01043000 TRMCDMGR EQU TRMBYTE3 01044000 TRMLINK EQU TRMBYTE3 01045000 @NM00141 EQU OCCKDATA 01046000 @NM00143 EQU OCCIB 01047000 @NM00144 EQU @NM00143+1 01048000 OCCKPKY1 EQU OCCKPKEY 01049000 OCCKPTYP EQU OCCKPKY1 01050000 OCICACTN EQU OCMODNME 01051000 OCICDADR EQU OCICACTN 01052000 OCICSW EQU OCICDADR+3 01053000 @NM00149 EQU OCBACKUP 01054000 @NM00150 EQU OCCKDATA 01055000 OCMSGFLG EQU OCPREFLG 01056000 OCBKUP1 EQU OCMODNME 01057000 @NM00154 EQU OCMODNME 01058000 OCBKUP2 EQU OCCKDATA 01059000 OCBKUP3 EQU OCLDNME 01060000 OCRESPTR EQU OCBKUP3+4 01061000 OCDIALLN EQU OCRESPTR 01062000 OCIPLDMP EQU OCLDNME+4 01063000 @NM00170 EQU PRFSRCSZ 01064000 PRFOPCTL EQU PRFNHDR 01065000 OPCAQWD EQU OPCAQCTL 01066000 OPCAQWD1 EQU OPCAQWD 01067000 OPCAQWD2 EQU OPCAQWD+4 01068000 OPCAQWD3 EQU OPCAQWD+8 01069000 WRKSPACE EQU OPCWRKSP 01070000 ELMNT EQU WRKSPACE 01071000 ENDUNIT EQU WRKSPACE+4 01072000 RDATA EQU WRKSPACE+9 01073000 FLAGS EQU OPCFLAG1 01074000 CHANGE EQU FLAGS 01075000 TCHNG EQU FLAGS 01076000 BDUTEXT EQU BDUEND 01077000 OCLINRRT EQU OCTRUNIT 01078000 OCPCID EQU OCBACKUP 01079000 OCRSNCDE EQU OCALSTAT 01080000 OCSENSE EQU OCBACKUP 01081000 PRFOID EQU PRFCRCD 01082000 PRFSHDR EQU IEDQPRF+42 01083000 TRMOPT EQU IEDQTRM+20 01084000 TRMPOOLP EQU TRMINSEQ 01085000 TRMSRPTR EQU TRMPLIM 01086000 * START UNREFERENCED COMPONENTS 01087000 @NM00223 EQU WRKSPACE+8 01088000 OPCAQLST EQU OPCAQWD3+1 01089000 OPCAQRQ3 EQU OPCAQWD3 01090000 OPCAQSEC EQU OPCAQWD2+1 01091000 OPCAQRQ2 EQU OPCAQWD2 01092000 OPCAQFST EQU OPCAQWD1+1 01093000 OPCAQREQ EQU OPCAQWD1 01094000 @NM00172 EQU PRFOPCTL+2 01095000 PRFOPFLG EQU PRFOPCTL+1 01096000 @NM00171 EQU PRFOPCTL 01097000 PRFSVFLG EQU @NM00170+3 01098000 PRFSVFFO EQU @NM00170 01099000 @NM00157 EQU OCIPLDMP 01100000 OCACTRQ EQU OCIPLDMP 01101000 OCDACRQ EQU OCIPLDMP 01102000 OCIPLRQ EQU OCIPLDMP 01103000 OCDMPRQ EQU OCIPLDMP 01104000 @NM00156 EQU OCRESPTR+2 01105000 OCOHNATA EQU OCDIALLN 01106000 OCRRTPTR EQU OCBKUP3 01107000 @NM00155 EQU OCBKUP2+4 01108000 OCNHITTC EQU OCBKUP2+2 01109000 OCLINTTC EQU OCBKUP2 01110000 OCCSIB EQU @NM00154 01111000 @NM00153 EQU OCBKUP1+6 01112000 OCTARTTC EQU OCBKUP1+4 01113000 OCSRTTC EQU OCBKUP1+2 01114000 OCRSTTC EQU OCBKUP1 01115000 @NM00152 EQU OCMSGFLG 01116000 OCRRT EQU OCMSGFLG 01117000 OCNAME EQU OCMSGFLG 01118000 OCLU1TTE EQU @NM00150+5 01119000 OCSFLAG EQU @NM00150+4 01120000 OCLU2TTI EQU @NM00150+2 01121000 OCLU1TTI EQU @NM00150 01122000 OCDISTLN EQU @NM00149+6 01123000 OCDISTAD EQU @NM00149+2 01124000 OCDISTNA EQU @NM00149 01125000 OCICINAC EQU OCICSW 01126000 @NM00148 EQU OCICSW 01127000 OCICATST EQU OCICDADR+1 01128000 OCICTYPE EQU OCICDADR 01129000 @NM00147 EQU OCCKPKY1 01130000 OCCKPENV EQU OCCKPKY1 01131000 OCCKPRST EQU OCCKPTYP 01132000 OCCKPNCP EQU OCCKPTYP 01133000 OCCKPINC EQU OCCKPTYP 01134000 @NM00146 EQU @NM00143+2 01135000 @NM00145 EQU @NM00144 01136000 OCTSTAT EQU @NM00144 01137000 OCREASON EQU @NM00143 01138000 @NM00142 EQU @NM00141+4 01139000 OCOIDEP EQU @NM00141 01140000 TRMLDISC EQU TRMLINK 01141000 @NM00132 EQU TRMLINK 01142000 TRMLALOC EQU TRMLINK 01143000 TRMLSTAT EQU TRMLINK 01144000 TRMLINT EQU TRMLINK 01145000 TRMEPMOD EQU TRMLINK 01146000 TRMCDLOG EQU TRMCDMGR 01147000 @NM00131 EQU TRMCDMGR 01148000 @NM00130 EQU TRMCDMGR 01149000 @NM00129 EQU TRMCDMGR 01150000 @NM00128 EQU TRMCDMGR 01151000 @NM00127 EQU TRMCDMGR 01152000 TRMBKDUP EQU TRMCDMGR 01153000 TRMLULOG EQU TRMLU 01154000 @NM00126 EQU TRMLU 01155000 @NM00125 EQU TRMLU 01156000 @NM00124 EQU TRMLU 01157000 TRMTDIFF EQU TRMLU 01158000 @NM00123 EQU TRMLU 01159000 @NM00122 EQU TRMLU 01160000 @NM00121 EQU TRMLU 01161000 TRMPCONT EQU TRMPU 01162000 TRMPDOCQ EQU TRMPU 01163000 TRMPULOC EQU TRMPU 01164000 TRMPDNAS EQU TRMPU 01165000 TRMPALOC EQU TRMPU 01166000 TRMNCONT EQU TRMNCP 01167000 TRMQUCKN EQU TRMNCP 01168000 TRMSLOWN EQU TRMNCP 01169000 TRMSYGEN EQU TRMNCP 01170000 TRMNCPCL EQU TRMNCP 01171000 TRMCONN EQU TRMIPLDM 01172000 TRMINOUT EQU TRMPRE 01173000 TRMRDOUT EQU TRMPRE 01174000 TRMNLOUT EQU TRMPRE 01175000 TRMWROUT EQU TRMPRE 01176000 TRMASNXI EQU TRMPRE 01177000 TRMSTMM EQU TRMPRE 01178000 TRMCMODE EQU TRMPRE 01179000 TRMSTPND EQU TRMPRE 01180000 TRMNCPLK EQU TRMLINK1 01181000 @NM00120 EQU TRMLINK1 01182000 TRMDCONN EQU TRMDCONS 01183000 TRMDCOP EQU TRMDCONS 01184000 TRMPMARY EQU TRMLU1 01185000 TRMLUNAS EQU TRMLU1 01186000 @NM00119 EQU TRMLU1 01187000 TRMLSCVP EQU TRMLU1 01188000 @NM00118 EQU TRMLU1 01189000 TRMCPOPT EQU TRMLU1 01190000 TRMCPREQ EQU TRMLU1 01191000 @NM00117 EQU TRMNCP1 01192000 TRMANS EQU TRMNCP1 01193000 TRMLINOP EQU TRMNCP1 01194000 TRMINOP EQU TRMNCP1 01195000 TRMLYNCH EQU TRMPRE1 01196000 TRMSPOUT EQU TRMPRE1 01197000 TRMERLCK EQU TRMPRE1 01198000 TRMQNPL EQU TRMPRE1 01199000 TRMSPACT EQU TRMPRE1 01200000 TRMOCNI EQU TRMPRE1 01201000 TRMSESSN EQU TRMPRE1 01202000 TRMCONT EQU TRMPRE1 01203000 TRMINERR EQU TRMCDFD0 01204000 TRMLUTM EQU TRMCDFD0 01205000 TRMLUIT EQU TRMCDFD0 01206000 TRMLUREQ EQU TRMCDFD0 01207000 TRMCDPRE EQU TRMCDFD0 01208000 TRMWASCD EQU TRMCDFD0 01209000 TRMSRPFG EQU TRMCDFD0 01210000 TRMSESRQ EQU TRMCDFD0 01211000 @NM00116 EQU TRMSNAST 01212000 TRMDRSRC EQU TRMSNAST 01213000 @NM00115 EQU TRMLUFD0 01214000 TRMNOINP EQU TRMLUFD0 01215000 TRMASSOC EQU TRMLUFD0 01216000 TRMAUTO EQU TRMLUFD0 01217000 @NM00114 EQU @NM00113 01218000 TRMENTRY EQU @NM00113 01219000 @NM00229 EQU POINTERS+20 01220000 @NM00228 EQU POINTERS+16 01221000 @NM00227 EQU POINTERS+12 01222000 @NM00226 EQU POINTERS+8 01223000 @NM00225 EQU POINTERS+4 01224000 @NM00224 EQU POINTERS 01225000 WAIBEND1 EQU WAIBEND 01226000 @NM00222 EQU WORKAREA+28 01227000 WRQTG EQU WORKAREA+26 01228000 WTNTNDX EQU WORKAREA+24 01229000 @NM00221 EQU WPTR2 01230000 @NM00220 EQU WPTR1 01231000 WECBA EQU WORKAREA+12 01232000 WDIALD EQU WANSCD 01233000 @NM00219 EQU WANSCD 01234000 WLINK EQU WORKAREA+5 01235000 WPRI EQU WORKAREA+4 01236000 WQCBADR EQU WORKAREA 01237000 OPCBOTTM EQU IEDQOPCD+3644 01238000 @NM00218 EQU IEDQOPCD+1948 01239000 @NM00217 EQU IEDQOPCD+1860 01240000 @NM00216 EQU IEDQOPCD+1772 01241000 @NM00215 EQU IEDQOPCD+1696 01242000 @NM00214 EQU IEDQOPCD+1620 01243000 OPCDSRWT EQU IEDQOPCD+1616 01244000 @NM00213 EQU IEDQOPCD+1532 01245000 @NM00212 EQU IEDQOPCD+1336 01246000 @NM00211 EQU IEDQOPCD+1328 01247000 @NM00210 EQU IEDQOPCD+528 01248000 OPCRSTRS EQU IEDQOPCD+524 01249000 OPCSAVES EQU IEDQOPCD+520 01250000 OPCRSPBD EQU IEDQOPCD+516 01251000 OPCNFY03 EQU IEDQOPCD+512 01252000 OPCNFY01 EQU IEDQOPCD+508 01253000 OPCURC EQU IEDQOPCD+504 01254000 OPCCINBD EQU IEDQOPCD+500 01255000 OPCCRKEY EQU IEDQOPCD+496 01256000 OPCDRSET EQU IEDQOPCD+492 01257000 OPCDRCLN EQU IEDQOPCD+488 01258000 OPCDRDEL EQU IEDQOPCD+484 01259000 OPCDRLOD EQU IEDQOPCD+480 01260000 OPCDRLOC EQU IEDQOPCD+476 01261000 OPCDRCVT EQU IEDQOPCD+472 01262000 OPCDRFST EQU IEDQOPCD+468 01263000 OPCLSABC EQU IEDQOPCD+466 01264000 @NM00209 EQU IEDQOPCD+465 01265000 @NM00208 EQU OPCSESSF 01266000 OPCUNIQV EQU OPCUNIQP+2 01267000 OPCUNIQU EQU OPCUNIQP 01268000 OPCOSSCP EQU OPCPCID 01269000 @NM00207 EQU IEDQOPCD+452 01270000 @NM00206 EQU IEDQOPCD+448 01271000 OPCSDUPU EQU IEDQOPCD+444 01272000 OPCSDULU EQU IEDQOPCD+440 01273000 OPCSDRVT EQU IEDQOPCD+436 01274000 OPCSDRET EQU IEDQOPCD+432 01275000 OPCSDHSY EQU IEDQOPCD+428 01276000 OPCSDENQ EQU IEDQOPCD+424 01277000 OPCSDDIA EQU IEDQOPCD+420 01278000 OPCSDAPU EQU IEDQOPCD+416 01279000 OPCSDALU EQU IEDQOPCD+412 01280000 OPCCSKEY EQU IEDQOPCD+408 01281000 OPCSSKEY EQU IEDQOPCD+404 01282000 OPCPRTTE EQU IEDQOPCD+400 01283000 OPCLU2TT EQU OPCSESS+14 01284000 OPCLU1TT EQU OPCSESS+12 01285000 OPCSNSU2 EQU OPCSNSUS+1 01286000 OPCSNSU1 EQU OPCSNSUS 01287000 OPCSNSMN EQU OPCSNSSY+1 01288000 OPCSNSMJ EQU OPCSNSSY 01289000 OPCCSIB EQU OPCSESS+4 01290000 OPCCTTE EQU OPCSESS+1 01291000 @NM00205 EQU OPCSFLAG 01292000 OPCISQUD EQU OPCSFLAG 01293000 OPCERRST EQU OPCSFLAG 01294000 OPCISRSP EQU OPCSFLAG 01295000 OPCISQUE EQU OPCSFLAG 01296000 OPCRAPMH EQU OPCSFLAG 01297000 OPCRAPI EQU OPCSFLAG 01298000 OPCGTSIB EQU IEDQOPCD+380 01299000 @NM00204 EQU OPCPWCOB+9 01300000 @NM00203 EQU OPCPWCOB+8 01301000 @NM00202 EQU OPCPWECB+1 01302000 OPCPWCCC EQU OPCPWECB 01303000 OPCPWCHN EQU OPCPWQCB+1 01304000 OPCPWVTO EQU OPCPWQCB 01305000 OPCWAITV EQU IEDQOPCD+364 01306000 OPCTOTCK EQU IEDQOPCD+360 01307000 OPCAPXTL EQU IEDQOPCD+356 01308000 OPCDECR EQU IEDQOPCD+352 01309000 OPCBUFWT EQU IEDQOPCD+348 01310000 OPCADGOT EQU IEDQOPCD+318 01311000 OPCRQCNT EQU IEDQOPCD+316 01312000 OPPOLSTP EQU IEDQOPCD+312 01313000 OPCCKCIB EQU IEDQOPCD+308 01314000 OPCEND EQU IEDQOPCD+307 01315000 OPCSTCBS EQU IEDQOPCD+306 01316000 OPCHNEND EQU IEDQOPCD+302 01317000 OPCOQSW EQU IEDQOPCD+301 01318000 @NM00201 EQU OPCSPEC 01319000 @NM00200 EQU OPCSPEC 01320000 @NM00199 EQU OPCSPEC 01321000 @NM00198 EQU OPCSPEC 01322000 OPCFRMCA EQU OPCSPEC 01323000 OPCRSTRT EQU OPCSPEC 01324000 OPCPART EQU OPCSPEC 01325000 OPCALTD EQU OPCSPEC 01326000 OPCBFEND EQU IEDQOPCD+296 01327000 OPCBFIRS EQU IEDQOPCD+292 01328000 OPCAVBUF EQU IEDQOPCD+290 01329000 OPCIPLCT EQU IEDQOPCD+289 01330000 OPCCLNTS EQU IEDQOPCD+288 01331000 OPCHA8 EQU IEDQOPCD+286 01332000 OPCBFREQ EQU IEDQOPCD+284 01333000 OPCNEXT EQU IEDQOPCD+272 01334000 OPCFMDFC EQU IEDQOPCD+268 01335000 OPCSCNC EQU IEDQOPCD+264 01336000 OPCHORTG EQU IEDQOPCD+260 01337000 OPCHORT EQU IEDQOPCD+256 01338000 OPCCKPTL EQU IEDQOPCD+252 01339000 OPCCKPTF EQU IEDQOPCD+248 01340000 OPCWAITA EQU IEDQOPCD+244 01341000 OPCWAITR EQU IEDQOPCD+240 01342000 OPCWAITP EQU IEDQOPCD+236 01343000 OPCWAITO EQU IEDQOPCD+232 01344000 OPCWAITN EQU IEDQOPCD+228 01345000 OPCWAITL EQU IEDQOPCD+224 01346000 OPCWAITC EQU IEDQOPCD+220 01347000 @NM00197 EQU OPCLDNME+5 01348000 @NM00196 EQU OPCLDNME 01349000 OPCWAIT EQU IEDQOPCD+192 01350000 OPCCKERB EQU IEDQOPCD+164 01351000 OPCBFERB EQU IEDQOPCD+148 01352000 OPCFLAG2 EQU IEDQOPCD+147 01353000 OPCWRKSZ EQU IEDQOPCD+144 01354000 OPCRSAVE EQU IEDQOPCD+132 01355000 OPCQCBAD EQU IEDQOPCD+128 01356000 OPCTRMWA EQU IEDQOPCD+52 01357000 OPCPSTWT EQU IEDQOPCD+48 01358000 OPCTNTEA EQU IEDQOPCD+44 01359000 OPCPGCK EQU IEDQOPCD+40 01360000 OPCLCB EQU IEDQOPCD+36 01361000 OPCIPLAD EQU IEDQOPCD+28 01362000 OPCTOFLK EQU IEDQOPCD+24 01363000 OPCOPTLK EQU IEDQOPCD+20 01364000 OPCDCBLK EQU IEDQOPCD+16 01365000 OPCDOUBL EQU IEDQOPCD 01366000 TTHDCF EQU IEDTH+8 01367000 TTHTAG2 EQU TTHTAG+1 01368000 @NM00195 EQU TTHTAG1 01369000 TTHTAGS EQU TTHTAG1 01370000 TTHOAF EQU IEDTH+4 01371000 TTHDAF EQU IEDTH+2 01372000 TTHBYTE1 EQU IEDTH+1 01373000 TTHEFI EQU TTHBYTE0 01374000 @NM00194 EQU TTHBYTE0 01375000 TTHEBIU EQU TTHBYTE0 01376000 TTHBBIU EQU TTHBYTE0 01377000 TTHFTYPE EQU TTHBYTE0 01378000 @NM00193 EQU TRHBYTE2 01379000 TRHPDI EQU TRHBYTE2 01380000 TRHEDI EQU TRHBYTE2 01381000 TRHCSI EQU TRHBYTE2 01382000 @NM00192 EQU TRHBYTE2 01383000 TRHCDI EQU TRHBYTE2 01384000 TRHEB EQU TRHBYTE2 01385000 TRHBB EQU TRHBYTE2 01386000 TRHPI EQU TRHBYTE1 01387000 TRHQRI EQU TRHBYTE1 01388000 @NM00191 EQU TRHBYTE1 01389000 @NM00190 EQU TRHBYTE1 01390000 TRHER EQU TRHBYTE1 01391000 TRHDR2 EQU TRHBYTE1 01392000 @NM00189 EQU TRHBYTE1 01393000 TRHDR1 EQU TRHBYTE1 01394000 TRHEC EQU TRHBYTE0 01395000 TRHBC EQU TRHBYTE0 01396000 TRHSDI EQU TRHBYTE0 01397000 TRHFI EQU TRHBYTE0 01398000 @NM00188 EQU TRHBYTE0 01399000 TRHRUCAT EQU TRHBYTE0 01400000 TRHTYPE EQU TRHBYTE0 01401000 @NM00187 EQU IEDPRUND+6 01402000 PRUTAG EQU IEDPRUND+4 01403000 PRUTHEFI EQU PRUFIDN 01404000 PRUTHUSS EQU PRUFIDN 01405000 PRUTHEIU EQU PRUFIDN 01406000 PRUTHBIU EQU PRUFIDN 01407000 PRUTHTYE EQU PRUFIDN 01408000 @NM00186 EQU PRURHFG2 01409000 PRURHCSI EQU PRURHFG2 01410000 @NM00185 EQU PRURHFG2 01411000 PRURHCDI EQU PRURHFG2 01412000 PRURHEB EQU PRURHFG2 01413000 PRURHBB EQU PRURHFG2 01414000 PRURHPI EQU PRURHFG1 01415000 @NM00184 EQU PRURHFG1 01416000 PRURHER EQU PRURHFG1 01417000 PRURHDR2 EQU PRURHFG1 01418000 @NM00183 EQU PRURHFG1 01419000 PRURHDR1 EQU PRURHFG1 01420000 PRURHEC EQU PRURHFG0 01421000 PRURHBC EQU PRURHFG0 01422000 PRURHFI EQU PRURHFG0 01423000 @NM00182 EQU PRURHFG0 01424000 PRURUCAT EQU PRURHFG0 01425000 PRURHTYP EQU PRURHFG0 01426000 @NM00181 EQU PRUVTCHK 01427000 PRUITSET EQU PRUVTCHK 01428000 @NM00180 EQU PRUVTCHK 01429000 @NM00179 EQU PRUNUNIT 01430000 @NM00178 EQU PRUTIC 01431000 @NM00177 EQU IEDPRUQD+4 01432000 PRF2RTTI EQU PRF2SEQP+2 01433000 @NM00176 EQU PRF2SEQP+1 01434000 @NM00175 EQU PRF2RFLG 01435000 PRF2RINB EQU PRF2RFLG 01436000 PRF2MDCF EQU IEDPF2+1 01437000 PRF2RAPI EQU PRF2FLG2 01438000 PRF2CSMF EQU PRF2FLG2 01439000 PRF2BNN1 EQU PRF2FLG2 01440000 PRF2NCU2 EQU PRF2FLG2 01441000 PRF2TERM EQU PRF2FLG2 01442000 PRF2SMI EQU PRF2FLG2 01443000 PRF2FORM EQU PRF2FLG2 01444000 PRF2TNTI EQU PRF2FLG2 01445000 PRF1RULN EQU PRF1SEQP+2 01446000 PRF1TAG2 EQU PRF1SQID+1 01447000 @NM00174 EQU PRF1TAG1 01448000 PRF1TAGS EQU PRF1TAG1 01449000 @NM00173 EQU PRF1FLG1 01450000 PRF1LOGD EQU PRF1FLG1 01451000 PRF1USS EQU PRF1FLG1 01452000 PRF1FORM EQU PRF1FLG1 01453000 PRF1EXPI EQU PRF1FLG1 01454000 PRF1FIDI EQU PRF1FLG1 01455000 PRF1RH EQU IEDPF1 01456000 PRFDEST EQU IEDQPRF+40 01457000 PRFISEQ EQU IEDQPRF+38 01458000 PRFSTXT EQU PRFHQBCK 01459000 @NM00169 EQU PRFTSOFL 01460000 PRFNEDIT EQU PRFTSOFL 01461000 PRFSVSEQ EQU PRFLU2TT 01462000 PRFSVPRI EQU PRFEOBOF 01463000 PRFISIZE EQU PRFSCAN+1 01464000 @NM00168 EQU PRFSCAN 01465000 PRFEOB EQU PRFXTRA+1 01466000 PRFSTSO EQU PRFXTRA 01467000 PRFNHDRN EQU PRFSTAT1 01468000 PRFNLSTN EQU PRFSTAT1 01469000 PRFFHP EQU PRFSTAT1 01470000 PRFDUPLN EQU PRFSTAT1 01471000 PRFTSMSG EQU PRFSTAT1 01472000 PRFITCPN EQU PRFSTAT1 01473000 PRFERMGN EQU PRFSTAT1 01474000 PRFCNCLN EQU PRFSTAT1 01475000 PRFSIZE EQU PRFSRCSZ+2 01476000 PRFSRCE EQU PRFSRCSZ 01477000 PRFLU1TT EQU PRFLCB+1 01478000 PRFRCDE EQU PRFLCB 01479000 PRFPIUO EQU PRFPLQCB 01480000 @NM00167 EQU PRFVTCHK 01481000 PRFITSET EQU PRFVTCHK 01482000 @NM00166 EQU PRFVTCHK 01483000 @NM00165 EQU PRFTI0 01484000 @NM00164 EQU PRFTICC 01485000 @NM00163 EQU PRFTICC 01486000 @NM00162 EQU PRFTICC 01487000 PRFTICON EQU PRFTICC 01488000 @NM00161 EQU PRFTICC 01489000 @NM00160 EQU PRFTICC 01490000 PRFBFMM EQU PRFTICC 01491000 PRFEOFN EQU PRFTICC 01492000 PRFCOUNT EQU PRFLINK+1 01493000 @NM00159 EQU PRFLINK 01494000 PRFFLAGS EQU PRFPRI 01495000 PRFIOADR EQU PRFQCBA 01496000 PRFOPCDE EQU PRFKEY 01497000 @NM00158 EQU PLMVFLG1 01498000 PLMVTRIB EQU PLMVFLG1 01499000 PLMVSRIB EQU PLMVFLG1 01500000 PLMVTSKP EQU PLMVFLG1 01501000 PLMVSSKP EQU PLMVFLG1 01502000 PLMVTCTG EQU PLMVFLG1 01503000 PLMVSCTG EQU PLMVFLG1 01504000 PLMVUNCF EQU PLMVFLG1 01505000 @NM00151 EQU OCLDNME+6 01506000 OC1SQID EQU OCLDNME+4 01507000 OCWAITPC EQU OCPREFLG 01508000 OCSRCCLN EQU OCPREFLG 01509000 OCREMCON EQU OCPREFLG 01510000 OCCLNUP EQU OCPREFLG 01511000 OCTOTEP EQU OCPREFLG 01512000 OCREPOST EQU OCPREFLG 01513000 OCRSPSNT EQU OCPREFLG 01514000 OCBFREQ EQU OCPREFLG 01515000 OCIDLE EQU OCREQFLG 01516000 OCFORCE EQU OCREQFLG 01517000 OCDCARD EQU OCREQFLG 01518000 OCPARTAL EQU OCREQFLG 01519000 OCADNCP EQU OCREQFLG 01520000 OCRMPORQ EQU OCREQFLG 01521000 OCCDLACT EQU OCREQFLG 01522000 OCFLUSHZ EQU OCREQFLG 01523000 OCRESPCT EQU OCLINTTE 01524000 @NM00140 EQU IEDQOPCE+60 01525000 OCURC EQU OCOID 01526000 OCCKPTWA EQU OCCKDATA+4 01527000 OCSRCTTC EQU OCNCP 01528000 OCCKDAT2 EQU OC379RRT+1 01529000 OCCKDAT1 EQU OC379RRT 01530000 OCECHOPT EQU OCPTRSAV 01531000 OCPUADR EQU OCIPLWA+2 01532000 OCWTGSAV EQU OCIPLWA 01533000 OCDVRDCT EQU OCBACKUP+6 01534000 @NM00139 EQU OCBACKUP+4 01535000 OCBUFRET EQU OCCOUNT2 01536000 OCBUFUSD EQU OCCOUNT1 01537000 OCRESNUM EQU OCPARM 01538000 OCSEQ EQU OCTRUNIT+2 01539000 OCTYPTRM EQU OCFLAG1 01540000 OCNONE EQU OCALSTAT 01541000 OCSOME EQU OCALSTAT 01542000 OCALLFLG EQU OCALSTAT 01543000 OCACTREQ EQU OCALSTAT 01544000 OCREDRVE EQU OCALSTAT 01545000 OCSEQIND EQU OCALSTAT 01546000 OCDACTIP EQU OCFNAALL 01547000 OCRENTRD EQU OCALSTAT 01548000 OCDIALX EQU OCWTGB 01549000 OCTRMTBL EQU IEDQOPCE+20 01550000 OCATNDX EQU OCMSTSAV+2 01551000 OCREQVAL EQU OCDEST+1 01552000 OCCONID EQU OCDEST 01553000 OCLOCAD EQU OCRLN 01554000 OCATTACH EQU OCFLAG 01555000 OCSSCP EQU OCFLAG 01556000 OCOUTPUT EQU OCFLAG 01557000 OCLINE EQU OCFLAG 01558000 OCMPP EQU OCFLAG 01559000 OCTOTE EQU OCFLAG 01560000 OCCONSOL EQU OCFLAG 01561000 @NM00138 EQU OCSWITCH 01562000 OCQUCKN EQU OCSWITCH 01563000 OCPRIFLG EQU OCOPTCDE 01564000 @NM00137 EQU OCUNITBF 01565000 OCINVTIC EQU OCUNITBF 01566000 @NM00136 EQU OCUNITBF 01567000 @NM00135 EQU @NM00134 01568000 @NM00133 EQU OCSCAN 01569000 OCNOTUCB EQU OCSCAN 01570000 OCNONAME EQU OCSCAN 01571000 OCALLRLN EQU OCSCAN 01572000 OCDDNAME EQU OCSCAN 01573000 OCDDNRLN EQU OCSCAN 01574000 OCADDR EQU OCSCAN 01575000 OCELMPTR EQU OCELEM+1 01576000 OCELMPRI EQU OCELEM 01577000 OCLINK EQU IEDQOPCE 01578000 TRMSUBST EQU IEDNTRM+22 01579000 TRMTYPE EQU IEDNTRM+21 01580000 TRMPRIME EQU TRMLGBST 01581000 TRMOWNR EQU TRMLBUFR+1 01582000 TRMGPCNT EQU TRMLBUFR 01583000 TRMBUFRD EQU TRMBYTE0 01584000 TRMSNA EQU TRMBYTE0 01585000 TRMGP EQU TRMBYTE0 01586000 TRMDIAL EQU TRMBYTE0 01587000 TRMACDC EQU TRMNOWCD 01588000 TRMOUTPT EQU TRMBYTE0 01589000 TRMINPUT EQU TRMBYTE0 01590000 TRMUDEF EQU TRMBYTE0 01591000 TRMCOHRT EQU IEDNTRM+14 01592000 TRMSTOTE EQU TRMBYTE1 01593000 TRMCKPRN EQU TRMBYTE1 01594000 TRMTSATN EQU TRMBYTE1 01595000 TRMTRACE EQU TRMBYTE1 01596000 TRMSWBCK EQU TRMBYTE1 01597000 TRMAUTOC EQU TRMBYTE1 01598000 TRMINPTP EQU TRMBYTE1 01599000 TRMWTNEG EQU TRMSCPRQ 01600000 TRMWRBRK EQU TRMBYTE2 01601000 TRMNOSND EQU TRMBYTE2 01602000 TRMPREP EQU TRMBYTE2 01603000 TRMGPACT EQU TRMBYTE2 01604000 TRMANDL EQU TRMBYTE2 01605000 TRMCLOSN EQU TRMINPG 01606000 TRMREMB EQU TRMBYTE2 01607000 TRMRSACT EQU TRMBYTE2 01608000 TRMCINOP EQU TRMCDF0 01609000 TRMRSTPD EQU TRMCDF0 01610000 TRMCLNXI EQU TRMCDF0 01611000 TRMDVAS0 EQU TRMCDF0 01612000 TRMPURGE EQU TRMCDF0 01613000 TRMCDST EQU TRMINDEX 01614000 TRMASNDX EQU TRMATNDX 01615000 TRMBYTE8 EQU TRMDIALQ+1 01616000 @NM00112 EQU TRMDIALQ 01617000 @NM00111 EQU IEDNTRM 01618000 TRMOPTBL EQU IEDQTRM+18 01619000 TRMOPNO EQU IEDQTRM+17 01620000 TRMCHCIN EQU IEDQTRM+16 01621000 TRMLOCAD EQU TRMSENSE 01622000 TRMTEMPR EQU TRMAPB+2 01623000 TRMNADDR EQU TRMOWNER 01624000 @NM00110 EQU TRMDEVFL+1 01625000 TRMTPIN EQU TRMDEVFL+1 01626000 @NM00109 EQU TRMNCPI 01627000 TRMRNTRM EQU TRMDEVFL+1 01628000 @NM00108 EQU TRMDEVFL+1 01629000 TRMLMD EQU TRMDEVFL+1 01630000 TRMCONC EQU TRMDEVFL+1 01631000 TRMTSOB EQU TRMDEVFL 01632000 TRMBFDY EQU TRMDEVFL 01633000 TRMTBLK EQU TRMDEVFL 01634000 TRMSBLK EQU TRMDEVFL 01635000 TRMBLKS EQU TRMDEVFL 01636000 TRMSCV EQU TRMADDC 01637000 TRMDDIG EQU TRMDEVFL 01638000 TRMBUFS EQU TRMDEVFL 01639000 TRMSTEAL EQU TRMPRILK 01640000 TRMLGB EQU TRMDSORG 01641000 TRMUTERM EQU TRMSESCT 01642000 TRMVERIF EQU TRMRSTRT 01643000 @NM00107 EQU TRMRSTRT 01644000 @NM00106 EQU TRMDESTQ 01645000 TRMSCNYN EQU TRMSTATE 01646000 TRMHELDN EQU TRMSTATE 01647000 TRMACPTN EQU TRMSTATE 01648000 TRMPREF EQU TRMSTATE 01649000 TRMPROC EQU TRMLOG 01650000 TRMLIST EQU TRMLOG 01651000 TRMLINE EQU TRMSTATE 01652000 BDUXGRPH EQU BDUEXRSP 01653000 BDUXFINL EQU BDUEXRSP 01654000 BDUXINIT EQU BDUEXRSP 01655000 BDURESP EQU BDUSYRSP 01656000 BDUPHASE EQU BDUSYRSP 01657000 BDUERROR EQU BDUSYRSP 01658000 BDUXERLK EQU BDUBDUFG 01659000 BDUALTAK EQU BDUFNFLG 01660000 BDUNEGAK EQU BDUFNFLG 01661000 BDUPOSAK EQU BDUFNFLG 01662000 BDUTPTX EQU BDUFNFLG 01663000 BDUFRSTB EQU BDUFNFLG 01664000 BDULEADG EQU BDUFNFLG 01665000 BDUSTHDR EQU BDUFNFLG 01666000 BDUCMND EQU IEDBDU 01667000 SAVTSMAX EQU IEDNSVTD+500 01668000 SAVTSINO EQU IEDNSVTD+498 01669000 SAVTAMAX EQU IEDNSVTD+496 01670000 SAVTAENO EQU IEDNSVTD+494 01671000 SAVTAINO EQU IEDNSVTD+492 01672000 SAVTNMAX EQU IEDNSVTD+490 01673000 SAVTNENO EQU IEDNSVTD+488 01674000 SAVTNINO EQU IEDNSVTD+486 01675000 SAVTRSZE EQU IEDNSVTD+484 01676000 SAVTRMAX EQU IEDNSVTD+482 01677000 SAVTRENO EQU IEDNSVTD+480 01678000 SAVTRINO EQU IEDNSVTD+478 01679000 SAVTRMIN EQU IEDNSVTD+476 01680000 SAVTPMID EQU IEDNSVTD+474 01681000 SAVTRRTC EQU IEDNSVTD+472 01682000 SAVTLUSG EQU IEDNSVTD+468 01683000 SAVTACNQ EQU IEDNSVTD+464 01684000 SAVTCM20 EQU IEDNSVTD+460 01685000 SAVTCFDC EQU IEDNSVTD+456 01686000 SAVTCMOT EQU IEDNSVTD+452 01687000 SAVTCMIN EQU IEDNSVTD+448 01688000 SAVTCPCH EQU IEDNSVTD+444 01689000 SAVTCRGT EQU IEDNSVTD+440 01690000 SAVTNALC EQU IEDNSVTD+436 01691000 SAVTATCT EQU IEDNSVTD+434 01692000 SAVTCRIU EQU IEDNSVTD+432 01693000 SAVTCRHI EQU IEDNSVTD+430 01694000 SAVTCRIB EQU IEDNSVTD+428 01695000 SAVTLCQ EQU IEDNSVTD+424 01696000 SAVTDRSR EQU IEDNSVTD+420 01697000 SAVTATPT EQU IEDNSVTD+416 01698000 SAVTCSMI EQU IEDNSVTD+412 01699000 SAVTNXCR EQU IEDNSVTD+408 01700000 SAVTCRPT EQU IEDNSVTD+404 01701000 SAVTCIPH EQU IEDNSVTD+400 01702000 SAVTBTCO EQU IEDNSVTD+396 01703000 SAVTBTCI EQU IEDNSVTD+392 01704000 SAVTBPCO EQU IEDNSVTD+388 01705000 SAVTBPCI EQU IEDNSVTD+384 01706000 SAVTLLCB EQU IEDNSVTD+380 01707000 SAVTSCF0 EQU IEDNSVTD+376 01708000 SAVTLSNY EQU IEDNSVTD+372 01709000 SAVTLSZP EQU IEDNSVTD+368 01710000 SAVTOMSU EQU IEDNSVTD+364 01711000 SAVTGTSB EQU IEDNSVTD+360 01712000 SAVTHIBL EQU IEDNSVTD+356 01713000 SAVTHISY EQU IEDNSVTD+352 01714000 SAVTNAX2 EQU IEDNSVTD+348 01715000 SAVTCDRU EQU IEDNSVTD+344 01716000 SAVTPOLC EQU IEDNSVTD+342 01717000 SAVTPOLM EQU IEDNSVTD+340 01718000 SAVTPOLR EQU IEDNSVTD+336 01719000 SAVTCDRN EQU SAVTCDRV 01720000 SAVTPOLL EQU IEDNSVTD+328 01721000 SAVTPOLN EQU IEDNSVTD+326 01722000 @NM00105 EQU IEDNSVTD+325 01723000 @NM00104 EQU SAVTNETF 01724000 SAVTSDIS EQU SAVTNETF 01725000 SAVTROUT EQU SAVTNETF 01726000 SAVTNETW EQU SAVTNETF 01727000 SAVTDIAL EQU IEDNSVTD+320 01728000 SAVTRQUT EQU IEDNSVTD+316 01729000 SAVTBITN EQU IEDNSVTD+312 01730000 @NM00103 EQU SAVTCKQB+8 01731000 @NM00102 EQU SAVTCKEC+1 01732000 @NM00101 EQU SAVTCKCC 01733000 SAVTCKPO EQU SAVTCKCC 01734000 SAVTCKWA EQU SAVTCKCC 01735000 SAVTCKCH EQU SAVTCKTB+1 01736000 SAVTCKVT EQU SAVTCKTB 01737000 @NM00100 EQU IEDNSVTD+297 01738000 SAVTRDFG EQU SAVTRDRV+12 01739000 @NM00099 EQU SAVTRDRV+5 01740000 SAVTRDPY EQU SAVTRDRV+4 01741000 SAVTRDQB EQU SAVTRDRV+1 01742000 SAVTRDKY EQU SAVTRDRV 01743000 SAVTNID EQU IEDNSVTD+280 01744000 SAVTDVAS EQU IEDNSVTD+276 01745000 SAVTPLSZ EQU IEDNSVTD+274 01746000 @NM00098 EQU IEDNSVTD+273 01747000 SAVTSUBL EQU IEDNSVTD+272 01748000 @NM00097 EQU SAVTZELM+1 01749000 SAVTSUBM EQU SAVTZELM 01750000 SAVTMHDX EQU IEDNSVTD+268 01751000 SAVTNAT1 EQU IEDNSVTD+266 01752000 SAVTSH20 EQU IEDNSVTD+264 01753000 SAVTLCBS EQU IEDNSVTD+260 01754000 SAVTRNMP EQU IEDNSVTD+256 01755000 SAVTTNTX EQU IEDNSVTD+252 01756000 SAVTNAX EQU IEDNSVTD+248 01757000 SAVTSUBV EQU IEDNSVTD+247 01758000 SAVTSUBA EQU IEDNSVTD+246 01759000 SAVTSIBC EQU IEDNSVTD+244 01760000 SAVTBSM EQU IEDNSVTD+240 01761000 SAVTSCPT EQU SAVTTCPU 01762000 SAVTRQTG EQU IEDNSVTD+236 01763000 SAVTRQCH EQU IEDNSVTD+232 01764000 SAVTMAND EQU IEDNSVTD+228 01765000 SAVTSPLN EQU IEDNSVTD+224 01766000 SAVTNADL EQU IEDNSVTD+222 01767000 SAVTNATL EQU IEDNSVTD+220 01768000 SAVTMHTB EQU IEDNSVTD+216 01769000 SAVTSSMH EQU IEDNSVTD+212 01770000 SAVTQRS EQU IEDNSVTD+208 01771000 SAVTRQIN EQU IEDNSVTD+204 01772000 SAVTDFCO EQU IEDNSVTD+200 01773000 SAVTSAO EQU IEDNSVTD+196 01774000 SAVTSARI EQU IEDNSVTD+192 01775000 SAVTSAC EQU IEDNSVTD+188 01776000 SAVTSAI EQU IEDNSVTD+184 01777000 SAVTCSCI EQU IEDNSVTD+180 01778000 SAVTSSRP EQU IEDNSVTD+176 01779000 SAVTSSRQ EQU IEDNSVTD+172 01780000 SAVTEP EQU SAVTSCLU 01781000 SAVTXTRQ EQU IEDNSVTD+164 01782000 @NM00096 EQU IEDNSVTD+148 01783000 SAVTIPCQ EQU IEDNSVTD+144 01784000 @NM00095 EQU IEDNSVTD+136 01785000 SAVTXFMI EQU IEDNSVTD+132 01786000 @NM00094 EQU IEDNSVTD+124 01787000 SAVTXFMO EQU IEDNSVTD+120 01788000 @NM00093 EQU IEDNSVTD+116 01789000 SAVTSSSR EQU IEDNSVTD+112 01790000 SAVTSCPQ EQU IEDNSVTD+108 01791000 SAVTSLCB EQU IEDNSVTD+104 01792000 SAVTLUSR EQU IEDNSVTD+100 01793000 @NM00092 EQU SAVTLUSQ+8 01794000 SAVTLUSP EQU SAVTLUSQ+4 01795000 SAVTLUSB EQU SAVTLUSQ 01796000 @NM00091 EQU IEDNSVTD+84 01797000 SAVTSAT EQU IEDNSVTD+80 01798000 SAVTNAT EQU IEDNSVTD+76 01799000 SAVTCLUP EQU IEDNSVTD+72 01800000 SAVTPIUT EQU IEDNSVTD+68 01801000 SAVTRNTA EQU IEDNSVTD+64 01802000 SAVTDNIR EQU IEDNSVTD+60 01803000 SAVTCNIR EQU IEDNSVTD+56 01804000 SAVTFLDH EQU IEDNSVTD+52 01805000 SAVTSRTN EQU IEDNSVTD+48 01806000 SAVTSREQ EQU IEDNSVTD+44 01807000 SAVTFAIL EQU IEDNSVTD+42 01808000 SAVTSUSE EQU IEDNSVTD+40 01809000 SAVTSIB EQU IEDNSVTD+36 01810000 SAVTPRTN EQU IEDNSVTD+32 01811000 @NM00090 EQU IEDNSVTD+28 01812000 SAVTWH20 EQU IEDNSVTD+26 01813000 SAVTPWT EQU IEDNSVTD+24 01814000 SAVTPRTQ EQU IEDNSVTD+20 01815000 SAVTPREQ EQU IEDNSVTD+16 01816000 SAVTPH20 EQU IEDNSVTD+14 01817000 SAVTPUSE EQU IEDNSVTD+12 01818000 SAVTPLCB EQU IEDNSVTD+8 01819000 SAVTPOOL EQU IEDNSVTD+4 01820000 SAVTPRMT EQU SAVTDIAF 01821000 SAVTVIRT EQU SAVTDIAF 01822000 AVTTVT EQU IEDQAVTD+1268 01823000 AVTSITS EQU IEDQAVTD+1264 01824000 AVTMSUHI EQU IEDQAVTD+1260 01825000 AVTSITU EQU IEDQAVTD+1256 01826000 AVTSITP EQU IEDQAVTD+1252 01827000 AVTPADDR EQU IEDQAVTD+1248 01828000 @NM00089 EQU IEDQAVTD+1246 01829000 AVTCPBNO EQU IEDQAVTD+1244 01830000 AVTHRESS EQU IEDQAVTD+1243 01831000 @NM00088 EQU IEDQAVTD+1242 01832000 @NM00087 EQU IEDQAVTD+1241 01833000 @NM00086 EQU IEDQAVTD+1240 01834000 @NM00085 EQU IEDQAVTD+1237 01835000 @NM00084 EQU IEDQAVTD+1236 01836000 AVTHRESE EQU @NM00083 01837000 AVTRADDR EQU IEDQAVTD+1228 01838000 AVTNADDR EQU IEDQAVTD+1224 01839000 AVTHRESN EQU IEDQAVTD+1220 01840000 AVTVOLRN EQU IEDQAVTD+1216 01841000 AVTTOTNN EQU IEDQAVTD+1212 01842000 AVTTRCYN EQU IEDQAVTD+1208 01843000 AVTRCTRN EQU IEDQAVTD+1204 01844000 AVTNOVON EQU IEDQAVTD+1200 01845000 AVTADEBN EQU IEDQAVTD+1196 01846000 AVTVOLRR EQU IEDQAVTD+1192 01847000 AVTTOTNR EQU IEDQAVTD+1188 01848000 AVTTRCYR EQU IEDQAVTD+1184 01849000 AVTRCTRR EQU IEDQAVTD+1180 01850000 AVTNOVOR EQU IEDQAVTD+1176 01851000 AVTADEBR EQU IEDQAVTD+1172 01852000 AVTLODPT EQU IEDQAVTD+1168 01853000 AVTIOBN EQU IEDQAVTD+1164 01854000 AVTIOBR EQU IEDQAVTD+1160 01855000 AVTCPBPT EQU IEDQAVTD+1156 01856000 AVTFCPB EQU IEDQAVTD+1152 01857000 @NM00082 EQU IEDQAVTD+1148 01858000 AVTINCPQ EQU IEDQAVTD+1144 01859000 @NM00081 EQU IEDQAVTD+1140 01860000 @NM00080 EQU IEDQAVTD+1137 01861000 @NM00079 EQU AVTBIT4 01862000 @NM00078 EQU AVTBIT4 01863000 @NM00077 EQU AVTBIT4 01864000 @NM00076 EQU AVTBIT4 01865000 @NM00075 EQU AVTBIT4 01866000 @NM00074 EQU AVTBIT4 01867000 @NM00073 EQU AVTBIT4 01868000 AVTRUFTN EQU AVTBIT4 01869000 @NM00072 EQU IEDQAVTD+1132 01870000 AVTNOBFQ EQU IEDQAVTD+1128 01871000 @NM00071 EQU IEDQAVTD+1124 01872000 AVTDKENQ EQU IEDQAVTD+1120 01873000 @NM00070 EQU IEDQAVTD+1116 01874000 AVTDKAPQ EQU IEDQAVTD+1112 01875000 AVTCOPY EQU IEDQAVTD+1108 01876000 AVTIA EQU IEDQAVTD+1104 01877000 AVTFL EQU IEDQAVTD+1100 01878000 @NM00069 EQU IEDQAVTD+1096 01879000 AVTNCPBQ EQU IEDQAVTD+1092 01880000 AVTTOTNC EQU IEDQAVTD+1088 01881000 AVTCMAX EQU IEDQAVTD+1084 01882000 AVTCMIN EQU IEDQAVTD+1080 01883000 AVTHM02 EQU IEDQAVTD+1076 01884000 AVTOPCIN EQU IEDQAVTD+1074 01885000 AVTDCTLN EQU IEDQAVTD+1072 01886000 AVTOPMSK EQU IEDQAVTD+1068 01887000 AVTDDFT EQU IEDQAVTD+1064 01888000 AVTSTEAL EQU IEDQAVTD+1060 01889000 AVTOPTN EQU IEDQAVTD+1056 01890000 AVTDSKCT EQU IEDQAVTD+1054 01891000 AVTCKRST EQU IEDQAVTD+1053 01892000 AVTSTAN EQU AVTBIT3 01893000 AVTSTACN EQU AVTBIT3 01894000 AVTSTAIN EQU AVTBIT3 01895000 AVTSTAYN EQU AVTBIT3 01896000 AVTOLTBN EQU AVTBIT3 01897000 AVTTSAB EQU AVTBIT3 01898000 AVTRFULN EQU AVTBIT3 01899000 AVTRECVN EQU AVTBIT3 01900000 @NM00068 EQU AVTBIT2 01901000 @NM00067 EQU AVTBIT2 01902000 AVTOPEIN EQU AVTBIT2 01903000 AVTSTRTN EQU AVTBIT2 01904000 AVTTOPOL EQU AVTBIT2 01905000 AVTCOPYN EQU AVTBIT2 01906000 AVTREUSN EQU AVTBIT2 01907000 AVTEXTSC EQU AVTBIT2 01908000 AVTDISKN EQU AVTBIT1 01909000 AVTQUCKN EQU AVTBIT1 01910000 AVTCLOSN EQU AVTBIT1 01911000 AVTREADN EQU AVTBIT1 01912000 AVTDLAYN EQU AVTBIT1 01913000 AVTAQTAN EQU AVTBIT1 01914000 AVTTSON EQU AVTBIT1 01915000 AVTAPLKN EQU AVTBIT1 01916000 AVTDUMBR EQU IEDQAVTD+1048 01917000 AVTDLQX EQU IEDQAVTD+1046 01918000 AVTINTLV EQU IEDQAVTD+1044 01919000 AVTSMCNT EQU IEDQAVTD+1042 01920000 AVTAVFCT EQU IEDQAVTD+1040 01921000 AVTOPCON EQU IEDQAVTD+1038 01922000 AVTOPCNT EQU IEDQAVTD+1036 01923000 AVTLNCNT EQU IEDQAVTD+1034 01924000 AVTHA16 EQU IEDQAVTD+1030 01925000 AVTHA7 EQU IEDQAVTD+1028 01926000 AVTHA4 EQU IEDQAVTD+1026 01927000 AVTHA3 EQU IEDQAVTD+1024 01928000 AVTHA2 EQU IEDQAVTD+1022 01929000 AVTGETMS EQU IEDQAVTD+1021 01930000 @NM00066 EQU IEDQAVTD+1020 01931000 AVTGETMD EQU IEDQAVTD+1016 01932000 AVTGETMN EQU IEDQAVTD+1012 01933000 AVTCWTOT EQU IEDQAVTD+1008 01934000 AVTCWINT EQU IEDQAVTD+956 01935000 AVTDTRAP EQU IEDQAVTD+952 01936000 @NM00065 EQU IEDQAVTD+950 01937000 @NM00064 EQU AVTIOTR 01938000 AVTIOTRH EQU AVTIOTR 01939000 AVTIOTRE EQU AVTIOTR 01940000 @NM00063 EQU AVTSUBT 01941000 AVTSUBPT EQU AVTSUBT 01942000 AVTSUBON EQU AVTSUBT 01943000 AVTAFE30 EQU IEDQAVTD+944 01944000 AVTAFE20 EQU IEDQAVTD+940 01945000 AVTAFE10 EQU IEDQAVTD+936 01946000 AVTCWEC2 EQU IEDQAVTD+932 01947000 AVTCWPM2 EQU IEDQAVTD+928 01948000 AVTCWTS2 EQU IEDQAVTD+927 01949000 AVTCWTS1 EQU IEDQAVTD+926 01950000 AVTCWCLD EQU AVTCWFL2 01951000 AVTCWRAP EQU AVTCWFL2 01952000 @NM00062 EQU AVTCWFL2 01953000 @NM00061 EQU AVTCWFL2 01954000 @NM00060 EQU AVTCWFL2 01955000 @NM00059 EQU AVTCWFL2 01956000 @NM00058 EQU AVTCWFL2 01957000 AVTCWACT EQU AVTCWFL2 01958000 @NM00057 EQU AVTCWFL1 01959000 @NM00056 EQU AVTCWFL1 01960000 @NM00055 EQU AVTCWFL1 01961000 @NM00054 EQU AVTCWFL1 01962000 @NM00053 EQU AVTCWFL1 01963000 @NM00052 EQU AVTCWFL1 01964000 @NM00051 EQU AVTCWFL1 01965000 AVTCOMWN EQU AVTCWFL1 01966000 AVTCWEC1 EQU IEDQAVTD+920 01967000 AVTCWPM1 EQU IEDQAVTD+916 01968000 AVTCAREA EQU IEDQAVTD+912 01969000 AVTFZERO EQU IEDQAVTD+908 01970000 AVTCADDR EQU IEDQAVTD+904 01971000 AVTCOREC EQU IEDQAVTD+900 01972000 @NM00050 EQU IEDQAVTD+892 01973000 AVTCPBCB EQU IEDQAVTD+888 01974000 @NM00049 EQU IEDQAVTD+880 01975000 AVTDSIOB EQU IEDQAVTD+876 01976000 @NM00048 EQU IEDQAVTD+868 01977000 AVTCPRMB EQU IEDQAVTD+864 01978000 @NM00047 EQU IEDQAVTD+856 01979000 AVTCLOSB EQU IEDQAVTD+852 01980000 @NM00046 EQU IEDQAVTD+844 01981000 AVTACTIB EQU IEDQAVTD+840 01982000 @NM00045 EQU IEDQAVTD+836 01983000 AVTOLTEB EQU IEDQAVTD+832 01984000 AVTOLTCH EQU AVTOLTQB+1 01985000 AVTOLTVT EQU AVTOLTQB 01986000 @NM00044 EQU AVTOPCQB+8 01987000 @NM00043 EQU AVTOPCEC+1 01988000 @NM00042 EQU AVTOPCCC 01989000 AVTOPCPO EQU AVTOPCCC 01990000 AVTOPCWA EQU AVTOPCCC 01991000 AVTOPCCH EQU AVTOPCOB+1 01992000 AVTOPCVT EQU AVTOPCOB 01993000 @NM00041 EQU AVTCKPQB+9 01994000 AVTCKPTS EQU AVTCKPQB+8 01995000 @NM00040 EQU AVTCKPEC+1 01996000 @NM00039 EQU AVTCKPCC 01997000 AVTCKPPO EQU AVTCKPCC 01998000 AVTCKPWA EQU AVTCKPCC 01999000 AVTCKPCH EQU AVTCKPTB+1 02000000 AVTCKPVT EQU AVTCKPTB 02001000 @NM00038 EQU IEDQAVTD+796 02002000 AVTBFRTB EQU IEDQAVTD+792 02003000 @NM00037 EQU IEDQAVTD+788 02004000 AVTSELCH EQU IEDQAVTD+785 02005000 AVTBFRTN EQU AVTBFRFG 02006000 AVTBFREB EQU IEDQAVTD+780 02007000 AVTTIMQ EQU IEDQAVTD+776 02008000 @NM00036 EQU IEDQAVTD+772 02009000 AVTIMQPS EQU IEDQAVTD+768 02010000 AVTINOUT EQU IEDQAVTD+766 02011000 AVTREFTM EQU IEDQAVTD+764 02012000 @NM00035 EQU IEDQAVTD+752 02013000 AVTDELYB EQU IEDQAVTD+748 02014000 AVTOCQPT EQU IEDQAVTD+744 02015000 AVTTSOPT EQU IEDQAVTD+740 02016000 AVTSUPPT EQU IEDQAVTD+736 02017000 AVTCBQCB EQU IEDQAVTD+732 02018000 AVTMSGS EQU IEDQAVTD+729 02019000 @NM00034 EQU AVTSYSER 02020000 @NM00033 EQU AVTSYSER 02021000 @NM00032 EQU AVTSYSER 02022000 @NM00031 EQU AVTSYSER 02023000 @NM00030 EQU AVTSYSER 02024000 @NM00029 EQU AVTSYSER 02025000 AVTCMAXN EQU AVTSYSER 02026000 AVTCMINN EQU AVTSYSER 02027000 AVT2260L EQU IEDQAVTD+724 02028000 AVTABEPL EQU AVTADBUF 02029000 AVTHFF EQU AVTCLRHI+2 02030000 @NM00028 EQU AVTCLRHI 02031000 AVTCCLNK EQU AVTCRELE+5 02032000 AVTCCPRI EQU AVTCRELE+4 02033000 AVTCCQCB EQU AVTCCELE+1 02034000 AVTCCKEY EQU AVTCCELE 02035000 AVTDELAD EQU IEDQAVTD+704 02036000 AVTDELEM EQU IEDQAVTD+700 02037000 AVTBSX EQU AVTCKLNK 02038000 AVTOPETR EQU AVTHG01 02039000 @NM00027 EQU AVTCKBYT 02040000 AVTCKONQ EQU AVTCKBYT 02041000 @NM00026 EQU AVTCKBYT 02042000 @NM00025 EQU AVTCKBYT 02043000 @NM00024 EQU AVTCKBYT 02044000 @NM00023 EQU AVTCKBYT 02045000 @NM00022 EQU AVTCKBYT 02046000 @NM00021 EQU AVTCKBYT 02047000 AVTOPERT EQU IEDQAVTD+690 02048000 AVTOPXCL EQU IEDQAVTD+688 02049000 AVTOPERL EQU IEDQAVTD+687 02050000 @NM00020 EQU IEDQAVTD+686 02051000 AVTCKTIM EQU IEDQAVTD+684 02052000 AVTCKELV EQU IEDQAVTD+682 02053000 AVTCPRCD EQU IEDQAVTD+681 02054000 AVTWARMN EQU AVTCKELF 02055000 AVTCRTLN EQU AVTCKELF 02056000 AVTCPIPN EQU AVTCKELF 02057000 AVTCCLCN EQU AVTCKELF 02058000 AVTCINCN EQU AVTCKELF 02059000 @NM00019 EQU AVTCKELF 02060000 AVTCMCPN EQU AVTCKELF 02061000 AVTNQBCK EQU AVTCKELF 02062000 AVTCKQAD EQU IEDQAVTD+677 02063000 AVTSCBSZ EQU IEDQAVTD+676 02064000 @NM00018 EQU IEDQAVTD+672 02065000 AVTCKELE EQU IEDQAVTD+668 02066000 @NM00017 EQU AVTCKPEL+8 02067000 AVTCKRLK EQU AVTCKPEL+5 02068000 AVTCKRPR EQU AVTCKPEL+4 02069000 AVTCKRMQ EQU AVTCKRMV+1 02070000 AVTCKRKY EQU AVTCKRMV 02071000 AVTHK EQU IEDQAVTD+648 02072000 AVTHI EQU IEDQAVTD+644 02073000 AVTIOT EQU IEDQAVTD+640 02074000 AVTNX EQU IEDQAVTD+636 02075000 AVTTONE EQU IEDQAVTD+632 02076000 AVTA3TL EQU IEDQAVTD+628 02077000 AVTDMECB EQU IEDQAVTD+624 02078000 AVTABEND EQU IEDQAVTD+618 02079000 AVTPLCBN EQU IEDQAVTD+616 02080000 @NM00016 EQU AVTSAVTP+1 02081000 @NM00015 EQU AVTSAVTF 02082000 AVTRAPI EQU AVTSAVTF 02083000 AVTLCLST EQU AVTSAVTF 02084000 AVT370X EQU AVTSAVTF 02085000 AVTSNA EQU AVTSAVTF 02086000 AVTONSNA EQU AVTSAVTF 02087000 AVTVTMCP EQU AVTSAVTF 02088000 AVTTRNOS EQU IEDQAVTD+608 02089000 AVTCMBSS EQU IEDQAVTD+604 02090000 AVTRCV EQU IEDQAVTD+600 02091000 AVTSEND EQU IEDQAVTD+596 02092000 AVTCSCH EQU IEDQAVTD+592 02093000 AVTQ1 EQU IEDQAVTD+588 02094000 AVTE7 EQU IEDQAVTD+584 02095000 AVTHB EQU IEDQAVTD+580 02096000 AVTR1 EQU IEDQAVTD+576 02097000 AVTBZ EQU IEDQAVTD+572 02098000 AVTEZ EQU IEDQAVTD+568 02099000 AVTEC EQU IEDQAVTD+564 02100000 AVTEW EQU IEDQAVTD+560 02101000 AVTNDIAL EQU AVTSCOPT 02102000 AVTN2741 EQU AVTSCOPT 02103000 AVTCONCO EQU AVTSCOPT 02104000 AVTCONC EQU AVTSCOPT 02105000 AVTCMBUF EQU AVTSCOPT 02106000 AVTAPDMP EQU AVTSCOPT 02107000 @NM00014 EQU AVTSCOPT 02108000 AVTHA EQU AVTDISP 02109000 AVTEA EQU IEDQAVTD+548 02110000 AVTAX EQU IEDQAVTD+544 02111000 AVTA3 EQU IEDQAVTD+540 02112000 AVTGD EQU IEDQAVTD+536 02113000 AVTAL EQU IEDQAVTD+532 02114000 AVTOLTST EQU AVTHG02 02115000 AVTE8 EQU IEDQAVTD+524 02116000 AVTUI EQU IEDQAVTD+520 02117000 AVTCOMPT EQU IEDQAVTD+516 02118000 AVTCRSRF EQU IEDQAVTD+512 02119000 @NM00013 EQU IEDQAVTD+508 02120000 AVTKA02 EQU IEDQAVTD+504 02121000 AVTOPTPT EQU IEDQAVTD+500 02122000 AVTPCBPT EQU IEDQAVTD+496 02123000 AVTECBAD EQU IEDQAVTD+492 02124000 AVTOPECA EQU IEDQAVTD+488 02125000 AVTOLECA EQU IEDQAVTD+484 02126000 AVTCKECA EQU IEDQAVTD+480 02127000 AVTCWECA EQU IEDQAVTD+476 02128000 AVTCWTCB EQU IEDQAVTD+472 02129000 AVTOLTCB EQU IEDQAVTD+468 02130000 AVTOCTCB EQU IEDQAVTD+464 02131000 AVTCKTCB EQU IEDQAVTD+460 02132000 AVTAS EQU IEDQAVTD+456 02133000 AVTNOLBF EQU IEDQAVTD+454 02134000 AVTNCKPR EQU IEDQAVTD+453 02135000 AVTCIB EQU IEDQAVTD+452 02136000 AVTSPLPT EQU IEDQAVTD+448 02137000 AVTMVBFR EQU IEDQAVTD+444 02138000 AVTSBTA EQU IEDQAVTD+440 02139000 AVTRARTN EQU IEDQAVTD+436 02140000 AVTBSCAN EQU IEDQAVTD+432 02141000 AVTRDYA EQU IEDQAVTD+428 02142000 AVTRNMPT EQU IEDQAVTD+424 02143000 AVTDISTR EQU IEDQAVTD+420 02144000 AVTPARM3 EQU IEDQAVTD+416 02145000 @NM00012 EQU AVTPKF 02146000 @NM00011 EQU AVTPKF 02147000 @NM00010 EQU AVTPKF 02148000 AVTFTCHF EQU AVTPKF 02149000 @NM00009 EQU AVTPKF 02150000 @NM00008 EQU AVTPKF 02151000 @NM00007 EQU AVTPKF 02152000 @NM00006 EQU AVTPKF 02153000 AVTPARM EQU IEDQAVTD+408 02154000 AVTEXS2A EQU IEDQAVTD+402 02155000 AVTEXA2S EQU IEDQAVTD+396 02156000 AVTOCGET EQU IEDQAVTD+392 02157000 AVTCKAVT EQU @NM00004+1 02158000 @NM00005 EQU AVTCKFLG 02159000 AVTCKHLT EQU AVTCKFLG 02160000 AVTCKREQ EQU AVTCKFLG 02161000 AVTCKENV EQU AVTCKFLG 02162000 AVTCKNAC EQU AVTCKFLG 02163000 AVTCKTAC EQU AVTCKFLG 02164000 AVTBUENT EQU IEDQAVTD+386 02165000 @NM00003 EQU IEDQAVTD+385 02166000 AVTFULLT EQU AVTBUFSW 02167000 AVTUNCON EQU AVTBUFSW 02168000 AVTTRAPI EQU AVTBUFSW 02169000 @NM00002 EQU AVTBUFSW 02170000 AVTBUFTR EQU AVTREADD 02171000 AVTREADY EQU IEDQAVTD+376 02172000 AVTRACE EQU IEDQAVTD+372 02173000 AVTTCB EQU IEDQAVTD+368 02174000 AVTPASWD EQU IEDQAVTD+360 02175000 AVTCTLCH EQU IEDQAVTD+352 02176000 AVTDOUBL EQU IEDQAVTD+344 02177000 AVTDOUBX EQU IEDQAVTD+336 02178000 AVTDPARM EQU IEDQAVTD+332 02179000 AVTCSTCS EQU IEDQAVTD+328 02180000 AVTDLQ EQU AVTSAVEX+32 02181000 @NM00001 EQU AVTSAVEX 02182000 AVTSAVE4 EQU IEDQAVTD+216 02183000 AVTSAVE3 EQU IEDQAVTD+144 02184000 AVTSAVE2 EQU IEDQAVTD+72 02185000 AVTSAVE1 EQU IEDQAVTD 02186000 * END UNREFERENCED COMPONENTS 02187000 @RT00411 EQU POSTAPPL 02188000 @RT00435 EQU GETDIAL0 02189000 @RF00435 EQU MOVFLD 02190000 @RT00438 EQU GETDIAL 02191000 @RF00438 EQU MOVFLD 02192000 @RF00433 EQU SHIFT1 02193000 @RT00445 EQU SHIFT1 02194000 @RT00449 EQU MOVIT0 02195000 @RT00458 EQU SHIFT1 02196000 @RT00462 EQU CHANG1 02197000 @RT00465 EQU MOVFLD 02198000 @RF00465 EQU SHIFT1 02199000 @RT00471 EQU MOVFLD 02200000 @RF00477 EQU SHIFT1 02201000 @RT00483 EQU ERREXIT 02202000 @RT00492 EQU SHIFT1 02203000 @RT00506 EQU SIZERR 02204000 @EL01 EQU @EL00001 02205000 @ENDDATA EQU * 02206000 @DATEND EQU * 02207000 END IGCT110D 02208000