TITLE 'IGC0610D, OPERATOR CONTROL CHECKPOINT/RESTART ROUTINE *00001000 ' 00002000 IGC0610D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGC0610D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00009000 * OPERATOR CONTROL ADDRESS 02S0385 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0385 00012000 * RDATA=OPCWORK; /* SET THE BASE REGISTER TO BE 00013000 * USED FOR ADDRESSING AUTOMATIC 00014000 * DATA WITH THE POINTER TO THE 00015000 * OPCTL RESIDENT WORK AREA */ 00016000 L RDATA,OPCWORK(,ROPCAVT) 02S0386 00017000 * GEN REFS(RDATA) NOSETS; 02S0387 00018000 * /* 00019000 USING @DATD,RDATA INFORM THE ASSEMBLER OF THE 00020000 * BASE REGISTER TO BE USED FOR 00021000 * ADDRESSING AUTOMATIC DATA 00022000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVEAREA POINTER 02S0388 00023000 * REGISTER WITH THE POINTER TO 00024000 * THE OPERATOR CONTROL SAVE AREA*/ 00025000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0388 00026000 * 02S0389 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00030000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 02S0389 00034000 * 03S0389 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00038000 * /* GENERAL REGISTERS ARE INITIALIZED. WORKAREAS AND STATE FIELDS */ 00039000 * /* WHICH ARE DEFINED IN THE AUTOMATIC DATA AREA WHICH RESIDES IN */ 00040000 * /* THE OP CONTROL WORK AREA ARE CLEARED. */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 03S0389 00044000 * DO; 03S0389 00045000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR 03S0390 00046000 * TCAM'S AVT */ 00047000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0390 00048000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00049000 * CURRENT OPCTL ELEMENT */ 00050000 L @10,OPCCOPCE(,ROPCAVT) 03S0391 00051000 LR ROPCE,@10 03S0391 00052000 * STATES=0; /* INITIALIZE STATE FIELDS */ 00053000 MVI STATES,X'00' 03S0392 00054000 * END; 03S0393 00055000 * IF OPCCOPCE=ADDR(AVTCRELE) /* IS THE CURRENT ELEMENT THE 00056000 * CKPT REQUEST ELEMENT */ 00057000 * THEN /* THIS IS A RETURN FROM THE CKPT 00058000 * SUBTASK */ 00059000 LA @09,AVTCRELE(,RAVT) 02S0394 00060000 CR @10,@09 02S0394 00061000 BNE @RF00394 02S0394 00062000 * 03S0395 00063000 * /***************************************************************/ 00064000 * /* */ 00065000 * /* PROCESS.RETCKPT: THIS SEGMENT PROCESSES THE RETURN FROM THE */ 00066000 * /* CHECKPOINT SUBTASK TO OPERATOR CONTROL. THE TOP ELEMENT ON */ 00067000 * /* THE OP CONTROL CHECKPOINT QUEUE IS REMOVED. IF ANOTHER */ 00068000 * /* ELEMENT IS ON THE QUEUE, THEN A SUBROUTINE IS CALLED TO POST*/ 00069000 * /* THE CHECKPOINT SUBTASK. */ 00070000 * /* */ 00071000 * /***************************************************************/ 00072000 * 03S0395 00073000 * DO; 03S0395 00074000 * OPCCOPCE=OPCCKPTF; /* MAKE TOP ELEMENT ON QUEUE TO 00075000 * CKPT THE CURRENT OPERATOR 00076000 * CONTROL ELEMENT */ 00077000 L @10,OPCCKPTF(,ROPCAVT) 03S0396 00078000 ST @10,OPCCOPCE(,ROPCAVT) 03S0396 00079000 * ROPCE=OPCCOPCE; /* RESET CURRENT ELEMENT POINTER */ 00080000 LR ROPCE,@10 03S0397 00081000 * OCCKPKEY=TIC; /* RESTORE TIC COMMAND TO THE 00082000 * OPCE */ 00083000 MVI OCCKPKEY(ROPCE),X'08' 03S0398 00084000 * OPCCKPTF=OCLINK; /* GET LINK FROM CURRENT ELEMENT 00085000 * AND MAKE IT THE TOP ELEMENT ON 00086000 * THE QUEUE */ 00087000 L @10,OCLINK(,ROPCE) 03S0399 00088000 ST @10,OPCCKPTF(,ROPCAVT) 03S0399 00089000 * AVTCKENV=OFF; /* RESET ENVIRONMENT CKPT REQUEST 00090000 * FLAG */ 00091000 NI AVTCKENV(RAVT),B'11011111' 03S0400 00092000 * IF OPCCKPTF^=0 /* CHECK FOR QUEUE NOT EMPTY */ 00093000 * THEN /* THERE IS AN ELEMENT ON THE 00094000 * QUEUE */ 00095000 LTR @10,@10 03S0401 00096000 BZ @RF00401 03S0401 00097000 * IF AVTCKHLT=OFF /* TEST FOR HALT COMMAND 03S0402 00098000 * PROCESSED BY CKPT */ 00099000 * THEN /* HALT COMMAND HAS NOT BEEN 00100000 * PROCESSED */ 00101000 TM AVTCKHLT(RAVT),B'00001000' 03S0402 00102000 BNZ @RF00402 03S0402 00103000 * CALL POSTCKPT; /* CALL SUBROUTINE TO POST THE 00104000 * CKPT SUBTASK */ 00105000 BAL @14,POSTCKPT 03S0403 00106000 * END; 03S0404 00107000 * ELSE /* NOT A RETURN FROM CHECKPOINT 00108000 * SUBTASK */ 00109000 * IF OPCRSTRT=ON /* TEST FOR A RESTART OF TCAM */ 00110000 * THEN /* THIS IS A RESTART */ 00111000 B @RC00394 02S0405 00112000 @RF00394 TM OPCRSTRT(ROPCAVT),B'00100000' 02S0405 00113000 BNO @RF00405 02S0405 00114000 * DO; 02S0406 00115000 * AVTOPCCC=0; /* CLEAR OP CONTROL COMPLETION 00116000 * CODE */ 00117000 MVI AVTOPCCC(RAVT),X'00' 02S0407 00118000 * GEN NODEFS NOEXIT NOFLOWS REFS(AVTCKPEC) SEQFLOW SETS(REG00, 00119000 * RPARM); 02S0408 00120000 POST AVTCKPEC(RAVT) POST CKPT ECB COMPLETE 00121000 * TCAMRST=ON; /* SET TCAM RESTART STATE */ 00122000 OI TCAMRST,B'10000000' 02S0409 00123000 * END; 02S0410 00124000 * ELSE /* NOT RESTART */ 00125000 * IF OCTOTE=ON /* TEST FOR TOTE REQUEST */ 00126000 * THEN /* THIS IS A TOTE REQUEST */ 00127000 B @RC00405 02S0411 00128000 @RF00405 TM OCTOTE(ROPCE),B'01000000' 02S0411 00129000 BNO @RF00411 02S0411 00130000 * DO; 02S0412 00131000 * OPCMODID=WRITEMOD; /* SET TO EXIT TO THE OPCTL WRITE 00132000 * MODULE */ 00133000 MVC OPCMODID(2,ROPCAVT),@CC02517 02S0413 00134000 * REG00=OCPARM; /* SET RETURN CODE */ 00135000 LH REG00,OCPARM(,ROPCE) 02S0414 00136000 * OCWTG=0; /* CLEAR THE WHERE TO GO FIELD */ 00137000 SLR @10,@10 02S0415 00138000 STH @10,OCWTG(,ROPCE) 02S0415 00139000 * EXITSET=ON; /* EXIT PARAMETERS HAVE BEEN SET */ 00140000 OI EXITSET,B'01000000' 02S0416 00141000 * END; 02S0417 00142000 * ELSE /* NOT TOTE => PROCESS THE 02S0418 00143000 * COMMAND */ 00144000 * DO; 02S0418 00145000 B @RC00411 02S0418 00146000 @RF00411 DS 0H 02S0419 00147000 * OCCKPKEY=0; /* CLEAR REQUEST KEY FIELD */ 00148000 MVI OCCKPKEY(ROPCE),X'00' 02S0419 00149000 * IF OCOPTCDE=OCHALT|OCOPTCDE=OCCLOSEQ|OCOPTCDE=OCCLOSEF THEN 00150000 CLI OCOPTCDE(ROPCE),X'3C' 02S0420 00151000 BE @RT00420 02S0420 00152000 CLI OCOPTCDE(ROPCE),X'10' 02S0420 00153000 BE @RT00420 02S0420 00154000 CLI OCOPTCDE(ROPCE),X'11' 02S0420 00155000 BNE @RF00420 02S0420 00156000 @RT00420 DS 0H 02S0421 00157000 * /* IF THIS IS HALT, MPP FLUSH, OR 00158000 * MPP QUICK, PROCESS CMD 02S0421 00159000 * @YM08529*/ 00160000 * 03S0421 00161000 * /*******************************************************/ 00162000 * /* */ 00163000 * /* PROCESS.HALT: THIS SEGMENT PROCESSES A HALT TCAM */ 00164000 * /* COMMAND. IF TCAM CHECKPOINT IS ACTIVE, THEN REQUEST */ 00165000 * /* AN ENVIRONMENT CHECKPOINT. OTHERWISE, TPOST THE */ 00166000 * /* COMPLETION ELEMENT TO INDICATE THAT CLOSEDOWN IS */ 00167000 * /* COMPLETE. */ 00168000 * /* */ 00169000 * /*******************************************************/ 00170000 * 03S0421 00171000 * DO; 03S0421 00172000 * IF AVTCKTAC=ON /* TEST FOR TCAM CKPT ACTIVE */ 00173000 * THEN /* TCAM CKPT IS ACTIVE */ 00174000 TM AVTCKTAC(RAVT),B'10000000' 03S0422 00175000 BNO @RF00422 03S0422 00176000 * DO; 03S0423 00177000 * OCCKPINC=ON; /* TREAT HALT COMMAND AS AN 03S0424 00178000 * INCIDENT ... */ 00179000 * OCCKPENV=ON; /* ... THAT REQUESTS A FORCED 00180000 * ENVIRONMENT */ 00181000 OI OCCKPINC(ROPCE),B'10010000' 03S0425 00182000 * AVTCMCPN=ON; /* INDICATE CHKPT REQUESTED 03S0426 00183000 * @YM08529*/ 00184000 OI AVTCMCPN(RAVT),B'01000000' 03S0426 00185000 * CALL QUEUE; /* QUEUE THE HALT COMMAND FOR 00186000 * CKPT */ 00187000 BAL @14,QUEUE 03S0427 00188000 * END; 03S0428 00189000 * ELSE /* TCAM CKPT IS NOT ACTIVE */ 00190000 * DO; 03S0429 00191000 B @RC00422 03S0429 00192000 @RF00422 DS 0H 03S0430 00193000 * RPARM=ADDR(AVTCLOSB);/* ELEMENT TO TPOST IS THE 00194000 * COMPLETION ELEMENT */ 00195000 LA RPARM,AVTCLOSB(,RAVT) 03S0430 00196000 * RPARM->RECBPRI=PRICLSDN;/* SET PRIORITY */ 00197000 MVI RECBPRI(RPARM),X'10' 03S0431 00198000 * POSTTCAM=ON; /* REQUEST POST OF TCAM */ 00199000 OI POSTTCAM,B'00100000' 03S0432 00200000 * CALL UPDRDYQ; /* REQUEST THAT ELEMENT BE PUT ON 00201000 * THE ASYNCHRONOUS READY QUEUE */ 00202000 BAL @14,UPDRDYQ 03S0433 00203000 * END; 03S0434 00204000 * END; 03S0435 00205000 * ELSE /* NOT A HALT TCAM COMMAND */ 00206000 * IF(AVTCKTAC=ON|AVTCKNAC=ON)/* TEST FOR CKPT ACTIVE */ 00207000 * THEN /* EITHER TCAM OR 3705 CKPT IS 00208000 * ACTIVE */ 00209000 B @RC00420 02S0436 00210000 @RF00420 TM AVTCKTAC(RAVT),B'11000000' 02S0436 00211000 BZ @RF00436 02S0436 00212000 * 03S0437 00213000 * /*****************************************************/ 00214000 * /* */ 00215000 * /* PROCESS.COMMAND: THIS SEGMENT DETERMINES THE TYPE */ 00216000 * /* OF COMMAND. EACH COMMAND CAUSES A CHECKPOINT */ 00217000 * /* REQUEST TO BE QUEUED FOR THE CHECKPOINT SUBTASK. */ 00218000 * /* */ 00219000 * /*****************************************************/ 00220000 * 03S0437 00221000 * DO; 03S0437 00222000 * IF OCOPTCDE=OCMODIFY/* TEST FOR COMMAND TYPE */ 00223000 * THEN /* THIS IS A MODIFY COMMAND */ 00224000 CLI OCOPTCDE(ROPCE),X'44' 03S0438 00225000 BNE @RF00438 03S0438 00226000 * 04S0439 00227000 * /*************************************************/ 00228000 * /* */ 00229000 * /* PROCESS.COMMAND.MODIFY: THIS SEGMENT PROCESSES*/ 00230000 * /* THE MODIFY COMMANDS. SPECIAL PROCESSING IS */ 00231000 * /* DONE FOR ACTIVATE/DEACTIVTE COMMANDS AND FOR */ 00232000 * /* 3705 RESTART COMMANDS. THE OTHER COMMANDS ARE */ 00233000 * /* PROCESSED VIA A COMMAND TABLE SEARCH TO */ 00234000 * /* DETERMINE WHETHER A 3705 CHECKPOINT OR AN */ 00235000 * /* INCIDENT CHECKPOINT IS REQUIRED. */ 00236000 * /* */ 00237000 * /*************************************************/ 00238000 * 04S0439 00239000 * DO; 04S0439 00240000 * IF(OCSWITCH=OCACTVTE|OCSWITCH=OCDEACTE)/* TEST 00241000 * COMMAND TYPE */ 00242000 * THEN /* THIS IS AN ACT/DEACT CMD */ 00243000 CLI OCSWITCH(ROPCE),X'22' 04S0440 00244000 BE @RT00440 04S0440 00245000 CLI OCSWITCH(ROPCE),X'23' 04S0440 00246000 BNE @RF00440 04S0440 00247000 @RT00440 DS 0H 04S0441 00248000 * 05S0441 00249000 * /*********************************************/ 00250000 * /* */ 00251000 * /* PROCESS.COMMAND.MODIFY.ACTDEACT: THIS */ 00252000 * /* SEGMENT PROCESSES ACTIVATE/DEACTIVATE */ 00253000 * /* COMMANDS.ACTIVTE 3705 COMMANDS RESULT IN A*/ 00254000 * /* REQUEST FOR 3705 CHECKPOINT. ACTIVATE AND */ 00255000 * /* DEACTIVTE 3705 COMMANDS RESULT IN A */ 00256000 * /* REQUEST FOR AN ENVIRONMENT CHECKPOINT IF */ 00257000 * /* ONE HAS NOT ALREADY BEEN REQUESTED. OTHER */ 00258000 * /* TYPES OF ACT/DEACT'S RESULT IN A REQUEST */ 00259000 * /* FOR AN INCIDENT CHECKPOINT. */ 00260000 * /* */ 00261000 * /*********************************************/ 00262000 * 05S0441 00263000 * DO; 05S0441 00264000 * IF AVTVTMCP=ON&OCADNCP=ON/* TEST FOR TYPE 00265000 * OF ACT/DEACT COMMAND */ 00266000 * THEN /* THIS IS AN ACT/DEACT OF AN NCP*/ 00267000 TM AVTVTMCP(RAVT),B'10000000' 05S0442 00268000 BNO @RF00442 05S0442 00269000 LR @10,ROPCE 05S0442 00270000 AL @10,@CF02576 05S0442 00271000 TM OCADNCP-2(@10),B'00010000' 05S0442 00272000 BNO @RF00442 05S0442 00273000 * DO; 05S0443 00274000 * IF OCSWITCH=OCACTVTE/* TEST COMMAND 00275000 * TYPE */ 00276000 * THEN/* ACTIVATE COMMAND */ 00277000 CLI OCSWITCH(ROPCE),X'22' 05S0444 00278000 BNE @RF00444 05S0444 00279000 * OCCKPNCP=ON;/* INDICATE THAT 3705 00280000 * CKPT REQUESTED */ 00281000 OI OCCKPNCP(ROPCE),B'01000000' 05S0445 00282000 * ELSE /* NOT ACTIVATE => DEACTIVTE */ 00283000 * OCCKPINC=ON;/* INDICATE THAT A TCAM 00284000 * CKPT IS REQUESTED */ 00285000 B @RC00444 05S0446 00286000 @RF00444 OI OCCKPINC(ROPCE),B'10000000' 05S0446 00287000 * IF AVTCKREQ=OFF/* TEST FOR EXISTING 00288000 * ENVIRONMENT REQUEST ON THE OP 00289000 * CONTROL CKPT QUEUE */ 00290000 * THEN/* NO EXISTING ENVIRONMENT 05S0447 00291000 * REQUEST */ 00292000 @RC00444 TM AVTCKREQ(RAVT),B'00010000' 05S0447 00293000 BNZ @RF00447 05S0447 00294000 * OCCKPENV=ON;/* INDICATE THAT AN 05S0448 00295000 * ENVIRONMANT CKPT IS NEEDED */ 00296000 OI OCCKPENV(ROPCE),B'00010000' 05S0448 00297000 * END; 05S0449 00298000 * ELSE /* ACT/DEACT NOT FOR THE NCP */ 00299000 * OCCKPINC=ON;/* INDICATE THAT AN INCIDENT 00300000 * CKPT IS TO BE TAKEN */ 00301000 B @RC00442 05S0450 00302000 @RF00442 OI OCCKPINC(ROPCE),B'10000000' 05S0450 00303000 * END; 05S0451 00304000 * ELSE /* NOT AN ACT/DEACT */ 00305000 * IF OCSWITCH=OCRSTART/* TEST COMMAND TYPE */ 00306000 * THEN /* THIS IS A 3705 RESTART */ 00307000 B @RC00440 04S0452 00308000 @RF00440 CLI OCSWITCH(ROPCE),X'F1' 04S0452 00309000 BNE @RF00452 04S0452 00310000 * OCCKPRST=ON;/* INDICATE THAT 3705 RESTART 00311000 * IS REQUESTED */ 00312000 OI OCCKPRST(ROPCE),B'00100000' 04S0453 00313000 * ELSE /* NOT AN 3705 RESTART */ 00314000 * DO; 04S0454 00315000 B @RC00452 04S0454 00316000 @RF00452 DS 0H 04S0455 00317000 * OCCKPINC=ON;/* ASSUME THAT AN INCIDENT 00318000 * CKPT WILL BE TAKEN IF THIS IS 00319000 * NOT A 3705 CKPT REQUEST */ 00320000 OI OCCKPINC(ROPCE),B'10000000' 04S0455 00321000 * RPARM=ADDR(MODTABLE);/* GET ADDR OF THE 00322000 * TABLE OF VALID 3705 CKPT 04S0456 00323000 * MODIFY TYPES */ 00324000 LA RPARM,MODTABLE 04S0456 00325000 * DO COUNT=1 TO NUMENT WHILE(OCCKPINC=ON); 00326000 LA COUNT,1 04S0457 00327000 B @DE00457 04S0457 00328000 @DL00457 TM OCCKPINC(ROPCE),B'10000000' 04S0457 00329000 BNO @DC00457 04S0457 00330000 * /* SCAN THROUGH THE TABLE 04S0458 00331000 * COMPARING THE CURRENT COMMAND 00332000 * WITH THE TABLE ENTRIES */ 00333000 * IF OCSWITCH=TABENTRY/* COMPARE COMMAND 00334000 * TO CURRENT TABLE ENTRY */ 00335000 * THEN/* COMMAND EQUALS THE CURRENT 00336000 * TABLE ENTRY */ 00337000 CLC OCSWITCH(1,ROPCE),TABENTRY(RPARM) 04S0458 00338000 BNE @RF00458 04S0458 00339000 * DO; 04S0459 00340000 * OCCKPNCP=ON;/* REQUEST A 3705 CKPT */ 00341000 * OCCKPINC=OFF;/* RESET REQUEST FOR 00342000 * INCIDENT CKPT */ 00343000 OI OCCKPNCP(ROPCE),B'01000000' 04S0461 00344000 NI OCCKPINC(ROPCE),B'01111111' 04S0461 00345000 * END; 04S0462 00346000 * ELSE /* COMMAND IS NOT EQUAL TO 04S0463 00347000 * CURRENT ENTRY */ 00348000 * RPARM=RPARM+LENGTH(TABENTRY);/* POINT 00349000 * TO NEXT ENTRY IN THE TABLE */ 00350000 B @RC00458 04S0463 00351000 @RF00458 AL RPARM,@CF00061 04S0463 00352000 * END; 04S0464 00353000 @RC00458 AL COUNT,@CF00061 04S0464 00354000 @DE00457 SLR @10,@10 04S0464 00355000 IC @10,NUMENT 04S0464 00356000 CR COUNT,@10 04S0464 00357000 BNH @DL00457 04S0464 00358000 @DC00457 DS 0H 04S0465 00359000 * END; 04S0465 00360000 * END; 04S0466 00361000 * ELSE /* NOT A MODIFY COMMAND */ 00362000 * IF OCOPTCDE=OCTCHNG/* TEST COMMAND TYPE */ 00363000 * THEN /* THIS IS A TCHNG COMMAND */ 00364000 B @RC00438 03S0467 00365000 @RF00438 CLI OCOPTCDE(ROPCE),X'56' 03S0467 00366000 BNE @RF00467 03S0467 00367000 * OCCKPNCP=ON; /* INDICATE THAT 3705 CKPT IS 00368000 * REQUESTED */ 00369000 OI OCCKPNCP(ROPCE),B'01000000' 03S0468 00370000 * ELSE /* NOT A TCHNG COMMAND */ 00371000 * 04S0469 00372000 * /***********************************************/ 00373000 * /* */ 00374000 * /* PROCESS.COMMAND.OTHERCMD: THIS SEGMENT */ 00375000 * /* PROCESSES THOSE COMMANDS THAT ARE NOT */ 00376000 * /* MODIFIES. IF INVITATION LISTS ARE */ 00377000 * /* CHECKPOINTED, THEN THE COMMAND IS */ 00378000 * /* CHECKPOINTED. SPECIAL CHECKPOINT PROCESSING */ 00379000 * /* IS REQUIRED BY AN ICHNG COMMAND IF IT IS */ 00380000 * /* DIRECTED TO 3705 LINE. OTHER COMMANDS GET */ 00381000 * /* INCIDENT CHECKPOINTS. IF INVITATION LIST ARE*/ 00382000 * /* NOT CHECKPOINTED, THEN ICHNG, START TERM */ 00383000 * /* (E), STOP TERM (E), AND STOP TERM (EM) */ 00384000 * /* COMMANDS ARE NOT CHECKPOINTED. */ 00385000 * /* */ 00386000 * /***********************************************/ 00387000 * 04S0469 00388000 * DO; 04S0469 00389000 B @RC00467 04S0469 00390000 @RF00467 DS 0H 04S0470 00391000 * IF AVTSTAIN=ON/* TEST COLD START VALUE OF 00392000 * INVITATION LIST CKPT */ 00393000 * THEN /* INVITATION LIST (AND RELATED 00394000 * TYPE FIELDS) ARE TO BE CKPT'ED*/ 00395000 TM AVTSTAIN(RAVT),B'00000100' 04S0470 00396000 BNO @RF00470 04S0470 00397000 * DO; 04S0471 00398000 * OCCKPINC=ON;/* DEFAULT TO REQUEST AN 00399000 * INCIDENT CKPT */ 00400000 OI OCCKPINC(ROPCE),B'10000000' 04S0472 00401000 * IF OCOPTCDE=OCICHNG/* TEST COMMAND TYPE */ 00402000 * THEN /* THIS IS AN ICHNG COMMAND */ 00403000 CLI OCOPTCDE(ROPCE),X'49' 04S0473 00404000 BNE @RF00473 04S0473 00405000 * IF(OCMODNME(1:4)^='00000000'X&OCMODNME(1: 00406000 * 4)^='00000001'X)/* TEST ICHNG TYPE */ 00407000 * THEN/* THIS IS NOT AN ACT OR DEACT 00408000 * ICHNG */ 00409000 CLC OCMODNME(4,ROPCE),@CB02547 04S0474 00410000 BE @RF00474 04S0474 00411000 CLC OCMODNME(4,ROPCE),@CB02548 04S0474 00412000 BE @RF00474 04S0474 00413000 * DO; 04S0475 00414000 * RPARM=OCTRMTBL;/* GET TNT OFFSET 00415000 * FOR THE LINE */ 00416000 LH RPARM,OCTRMTBL(,ROPCE) 04S0476 00417000 N RPARM,@CF02578 04S0476 00418000 * CALL IEDQTNT;/* GET TERMINAL ENTRY 00419000 * ADDRESS */ 00420000 L @15,AVTRNMPT(,RAVT) 04S0477 00421000 BALR @14,@15 04S0477 00422000 * RTRM=RPARM-LENGTH(IEDNTRM);/* GET 00423000 * ADDRESS OF TERM ENTRY PREFIX */ 00424000 LR RTRM,RPARM 04S0478 00425000 SL RTRM,@CF02324 04S0478 00426000 * IF TRMPREF=ON/* TEST TYPE OF 04S0479 00427000 * RESOURCE */ 00428000 * THEN/* THIS IS A 3705 RESOURCE */ 00429000 TM TRMPREF(RTRM),B'00010000' 04S0479 00430000 BNO @RF00479 04S0479 00431000 * DO; 04S0480 00432000 * OCCKPNCP=ON;/* REQUEST 3705 CKPT*/ 00433000 * OCCKPINC=OFF;/* RESET REQUEST 00434000 * FOR INCIDENT CKPT */ 00435000 OI OCCKPNCP(ROPCE),B'01000000' 04S0482 00436000 NI OCCKPINC(ROPCE),B'01111111' 04S0482 00437000 * END; 04S0483 00438000 * END; 04S0484 00439000 * END; 04S0485 00440000 * ELSE /* DO NOT CKPT COMMANDS THAT 00441000 * AFFECT INVITATION LISTS OR 00442000 * RELATED FIELDS */ 00443000 * 05S0486 00444000 * /*******************************************/ 00445000 * /* */ 00446000 * /* PROCESS.COMMAND.OTHERCMD.INVLIST: THIS */ 00447000 * /* SEGMENT DETERMINES WHETHER OR NOT THIS */ 00448000 * /* COMMAND SHOULD BE CHECKPOINTED IF */ 00449000 * /* INVITATION LISTS ARE NOT CHECKPOINTED. */ 00450000 * /* */ 00451000 * /*******************************************/ 00452000 * 05S0486 00453000 * DO; 05S0486 00454000 B @RC00470 05S0486 00455000 @RF00470 DS 0H 05S0487 00456000 * IF OCOPTCDE=OCICHNG/* TEST COMMAND TYPE */ 00457000 * THEN 05S0487 00458000 CLI OCOPTCDE(ROPCE),X'49' 05S0487 00459000 BE @RT00487 05S0487 00460000 * ; /* THIS IS AN ICHNG COMMAND => NO 00461000 * CKPT */ 00462000 * ELSE /* NOT AN ICHNG */ 00463000 * IF OCOPTCDE=OCVARY/* TEST COMMAND TYPE */ 00464000 * THEN/* THIS IS A VARY COMMAND */ 00465000 CLI OCOPTCDE(ROPCE),X'28' 05S0489 00466000 BNE @RF00489 05S0489 00467000 * DO; 05S0490 00468000 * IF SSTERM1=ON&/* TEST FOR ... */ 00469000 * SSTERM3=ON&/* ... START ... */ 00470000 * SSTERM4=ON/* ...... TERM,B 00471000 * COMMAND */ 00472000 * THEN/* THIS IS A START TERM,B */ 00473000 TM SSTERM1(ROPCE),B'00001011' 05S0491 00474000 BNO @RF00491 05S0491 00475000 * OCCKPINC=ON;/* REQUEST AN 05S0492 00476000 * INCIDENT CKPT */ 00477000 OI OCCKPINC(ROPCE),B'10000000' 05S0492 00478000 * ELSE/* NOT START TERM,B */ 00479000 * IF SSTERM2=ON&/* TEST FOR STOP 00480000 * TERM ... */ 00481000 * SSTERM4=ON/* ... E OR EM CMD */ 00482000 * THEN 05S0493 00483000 B @RC00491 05S0493 00484000 @RF00491 TM SSTERM2(ROPCE),B'00000101' 05S0493 00485000 BO @RT00493 05S0493 00486000 * ;/* THIS IS A STOP TERM E OR EM 00487000 * => NO CKPT */ 00488000 * ELSE/* NOT A STOP TERM E OR EM */ 00489000 * IF SSTERM1=ON&/* TEST FOR ... */ 00490000 * SSTERM3=ON/* ... START 05S0495 00491000 * TERM,E CMD */ 00492000 * THEN 05S0495 00493000 TM SSTERM1(ROPCE),B'00001010' 05S0495 00494000 BO @RT00495 05S0495 00495000 * ;/* THIS IS A START TERM,E => 00496000 * NO CKPT */ 00497000 * ELSE/* NOT A START TERM,E */ 00498000 * OCCKPINC=ON;/* INDICATE THAT AN 00499000 * INCIDENT CKPT IS REQUESTED */ 00500000 OI OCCKPINC(ROPCE),B'10000000' 05S0497 00501000 * END; 05S0498 00502000 * ELSE /* NOT A VARY COMMAND */ 00503000 * OCCKPINC=ON;/* REQUEST AN INCIDENT 00504000 * CKPT */ 00505000 B @RC00489 05S0499 00506000 @RF00489 OI OCCKPINC(ROPCE),B'10000000' 05S0499 00507000 * END; 05S0500 00508000 @RC00489 DS 0H 05S0500 00509000 @RT00487 DS 0H 05S0501 00510000 * END; 04S0501 00511000 @RC00470 DS 0H 04S0502 00512000 * IF OCCKPINC=ON /* TEST TYPE OF CKPT REQUEST */ 00513000 * THEN /* THIS IS AN INCIDENT REQUEST */ 00514000 @RC00467 DS 0H 03S0502 00515000 @RC00438 TM OCCKPINC(ROPCE),B'10000000' 03S0502 00516000 BNO @RF00502 03S0502 00517000 * IF AVTCKTAC=ON /* TEST FOR PRESENCE OF TCAM CKPT*/ 00518000 * THEN /* TCAM CKPT IS ACTIVE */ 00519000 TM AVTCKTAC(RAVT),B'10000000' 03S0503 00520000 BNO @RF00503 03S0503 00521000 * DO; 03S0504 00522000 * IF AVTCKREQ=ON/* TEST FOR EXISTING 03S0505 00523000 * ENVIRONMENT REQUEST ON THE OP 00524000 * CONTROL CKPT QUEUE */ 00525000 * THEN /* AN ENVIRONMENT REQUEST IS ON 00526000 * THE QUEUE */ 00527000 TM AVTCKREQ(RAVT),B'00010000' 03S0505 00528000 BNO @RF00505 03S0505 00529000 * OCCKPINC=OFF;/* RESET INCIDENT REQUEST */ 00530000 NI OCCKPINC(ROPCE),B'01111111' 03S0506 00531000 * CALL QUEUE; /* QUEUE THE COMMAND FOR CKPT */ 00532000 @RF00505 BAL @14,QUEUE 03S0507 00533000 * END; 03S0508 00534000 * ELSE 03S0509 00535000 * ; /* TCAM CKPT NOT ACTIVE */ 00536000 @RF00503 DS 0H 03S0510 00537000 * ELSE /* NOT AN INCIDENT REQUEST */ 00538000 * IF OCCKPNCP=ON|OCCKPRST=ON/* TEST CKPT REQUEST 00539000 * TYPE */ 00540000 * THEN /* REQUEST IS FOR 3705 CKPT OR 00541000 * FOR 3705 RESTART */ 00542000 B @RC00502 03S0510 00543000 @RF00502 TM OCCKPNCP(ROPCE),B'01100000' 03S0510 00544000 BZ @RF00510 03S0510 00545000 * 04S0511 00546000 * /***********************************************/ 00547000 * /* */ 00548000 * /* PROCESS.COMMAND.TEST3705: THIS SEGMENT */ 00549000 * /* DETERMINES WHETHER OR NOT THE 3705 */ 00550000 * /* CHECKPOINT DATA SET IS OPENED. IF IT IS */ 00551000 * /* OPENED, THEN A 3705 CHECKPOINT REQUEST IS */ 00552000 * /* QUEUED. OTHERWISE, 3705 ACTIVATE AND ICHNG */ 00553000 * /* COMMANDS ARE CONVERTED INTO TCAM CHECKPOINT */ 00554000 * /* REQUESTS. */ 00555000 * /* */ 00556000 * /***********************************************/ 00557000 * 04S0511 00558000 * DO; 04S0511 00559000 * OCCKPTWA=0; /* CLEAR WORK AREA POINTER FOR 00560000 * LATER COMPARE */ 00561000 SLR @10,@10 04S0512 00562000 ST @10,OCCKPTWA(,ROPCE) 04S0512 00563000 * IF AVTCKNAC=ON/* TEST FOR PRESENCE OF 3705 00564000 * CKPT */ 00565000 * THEN /* 3705 CKPT IS ACTIVE */ 00566000 TM AVTCKNAC(RAVT),B'01000000' 04S0513 00567000 BNO @RF00513 04S0513 00568000 * DO; 04S0514 00569000 * 05S0515 00570000 * /*****************************************/ 00571000 * /* */ 00572000 * /* PROCESS.COMMAND.FINDLNCP: THIS SEGMENT*/ 00573000 * /* FINDS THE TERMINAL ENTRY FOR THE LOCAL*/ 00574000 * /* NCP TO WHICH THE 3705 RESOURCE IS */ 00575000 * /* ATTACHED AND GETS THE ADDRESS OF THE */ 00576000 * /* DEVICE DEPENDENT FIELD. AT EXIT FROM */ 00577000 * /* THIS SEGMENT REG15 CONTAINS THE */ 00578000 * /* ADDRESS OF THE 3705 DEVICE DEPENDENT */ 00579000 * /* FIELD. */ 00580000 * /* */ 00581000 * /*****************************************/ 00582000 * 05S0515 00583000 * DO; 05S0515 00584000 * RPARM=OCTRMTBL;/* GET TNT OFFSET OF THE 00585000 * RESOURCE TO WHICH THE COMMAND 00586000 * WAS DIRECTED */ 00587000 LH RPARM,OCTRMTBL(,ROPCE) 05S0516 00588000 N RPARM,@CF02578 05S0516 00589000 * CALL IEDQTNT;/* CALL THE TNT OFFSET TO 00590000 * TERMINAL ENTRY ADDR CONVERSION 00591000 * ROUTINE */ 00592000 L @15,AVTRNMPT(,RAVT) 05S0517 00593000 BALR @14,@15 05S0517 00594000 * RTRM=RPARM-LENGTH(IEDNTRM);/* BACKUP TO 00595000 * THE ADDR OF THE PREFIX OF THE 00596000 * TERMINAL ENTRY */ 00597000 LR RTRM,RPARM 05S0518 00598000 SL RTRM,@CF02324 05S0518 00599000 * DO WHILE TRMTYPE^=TRMLNCP;/* LOOK FOR 00600000 * THE TERMINAL ENTRY OF THE 00601000 * LOCAL NCP TO WHICH THE 05S0519 00602000 * RESOURCE IS ATTACHED */ 00603000 B @DE00519 05S0519 00604000 @DL00519 DS 0H 05S0520 00605000 * CALL COHORTLK;/* CALL LOOKUP ROUTINE 00606000 * TO GET THE ADDRESS OF THE NEXT 00607000 * SUPERIOR RESOURCE */ 00608000 L @15,OPCHORT(,ROPCAVT) 05S0520 00609000 BALR @14,@15 05S0520 00610000 * RTRM=RPARM-LENGTH(IEDNTRM);/* GET 00611000 * ADDR OF THE TERMINAL ENTRY 00612000 * PREFIX OF THE HIGHER RESOURCE */ 00613000 LR RTRM,RPARM 05S0521 00614000 SL RTRM,@CF02324 05S0521 00615000 * END; 05S0522 00616000 @DE00519 CLI TRMTYPE(RTRM),X'0F' 05S0522 00617000 BNE @DL00519 05S0522 00618000 * REG00=TRMNCPIM;/* SET MASK FOR NCP 00619000 * DEVICE DEPENDENT FIELD LOOKUP */ 00620000 LA REG00,8 05S0523 00621000 * CALL IEDQTL;/* CALL DEVICE DEPENDENT 00622000 * FIELD LOOKUP ROUTINE */ 00623000 L @15,AVTDDFT(,RAVT) 05S0524 00624000 BALR @14,@15 05S0524 00625000 * END; 05S0525 00626000 * 05S0526 00627000 * /*****************************************/ 00628000 * /* */ 00629000 * /* PROCESS.COMMAND.CKOPEN: THIS SEGMENT */ 00630000 * /* DETERMINES WHETHER OR NOT THE */ 00631000 * /* CHECKPOINT DATA SET IS USABLE. (AT */ 00632000 * /* ENTRY REG15 POINTS TO THE 3705 DEVICE */ 00633000 * /* DEPENDENT FIELD). */ 00634000 * /* */ 00635000 * /*****************************************/ 00636000 * 05S0526 00637000 * DO; 05S0526 00638000 * RFY 05S0527 00639000 * REG15 RSTD; 05S0527 00640000 * IF NCPCKPT^=0/* TEST FOR 3705 CKPT DCB 00641000 * CODED */ 00642000 * THEN/* 3705 DCB IS CODED */ 00643000 SLR @14,@14 05S0528 00644000 ICM @10,15,NCPCKPT(REG15) 05S0528 00645000 CLR @14,@10 05S0528 00646000 BE @RF00528 05S0528 00647000 * IF DCBOFOPN=ON/* TEST OPEN STATUS OF 00648000 * THE DCB */ 00649000 * THEN/* THE DCB IS OPEN */ 00650000 ICM @10,15,DCBPTR(REG15) 05S0529 00651000 TM DCBOFOPN+40(@10),B'00010000' 05S0529 00652000 BNO @RF00529 05S0529 00653000 * IF DCBIOBAD^=0/* TEST FOR PRESENCE 00654000 * OF A CKPT WORK AREA */ 00655000 * THEN/* THE CKPT WORK AREA IS 00656000 * PRESENT */ 00657000 L @10,DCBIOBAD+20(,@10) 05S0530 00658000 CR @10,@14 05S0530 00659000 BE @RF00530 05S0530 00660000 * DO; 05S0531 00661000 * OCCKPTWA=DCBIOBAD;/* SAVE ADDR 00662000 * OF THE CKPT WORKAREA */ 00663000 ST @10,OCCKPTWA(,ROPCE) 05S0532 00664000 * IF OCSWITCH^=OCRSTART/* TEST 00665000 * COMMAND TYPE */ 00666000 * THEN/* THIS IS NOT A RESTART 00667000 * OF A 3705 */ 00668000 CLI OCSWITCH(ROPCE),X'F1' 05S0533 00669000 BE @RF00533 05S0533 00670000 * DO; 05S0534 00671000 * RPARM=OCTRMTBL;/* GET TNT 00672000 * OFFSET OF THE RESOURCE */ 00673000 LH RPARM,OCTRMTBL(,ROPCE) 05S0535 00674000 N RPARM,@CF02578 05S0535 00675000 * CALL IEDIAP04;/* CALL TNT 00676000 * OFFSET TO NETWORK ADDR 05S0536 00677000 * CONVERSION ROUTINE */ 00678000 L @10,AVTSAVTP(,RAVT) 05S0536 00679000 L @15,SAVTTNTX(,@10) 05S0536 00680000 BALR @14,@15 05S0536 00681000 * OCRSID=(SAVTZELM&&'FFFF'X)®15 00682000 * ;/* CLEAR SUBAREA ADDR 00683000 * FROM THE NETWORK ADDR AND SAVE 00684000 * THE RESULT IN THE OPCE FOR 00685000 * CKPT */ 00686000 L @14,AVTSAVTP(,RAVT) 05S0537 00687000 L @10,@CF02549 05S0537 00688000 LH @14,SAVTZELM(,@14) 05S0537 00689000 N @14,@CF02578 05S0537 00690000 XR @10,@14 05S0537 00691000 NR @10,REG15 05S0537 00692000 STH @10,OCRSID(,ROPCE) 05S0537 00693000 * END; 05S0538 00694000 * END; 05S0539 00695000 @RF00533 DS 0H 05S0540 00696000 * END; 05S0540 00697000 @RF00530 DS 0H 05S0540 00698000 @RF00529 DS 0H 05S0540 00699000 @RF00528 DS 0H 05S0541 00700000 * RFY 05S0541 00701000 * REG15 UNRSTD; 05S0541 00702000 * END; 04S0542 00703000 * IF OCCKPTWA=0/* TEST FOR 3705 CKPT DATA SET 00704000 * USABLE */ 00705000 * THEN /* DATA SET NOT USABLE */ 00706000 @RF00513 L @10,OCCKPTWA(,ROPCE) 04S0543 00707000 LTR @10,@10 04S0543 00708000 BNZ @RF00543 04S0543 00709000 * DO; 04S0544 00710000 * IF AVTCKTAC=ON/* TEST FOR PRESENCE OF 00711000 * TCAM CKPT */ 00712000 * THEN /* TCAM CKPT IS ACTIVE */ 00713000 TM AVTCKTAC(RAVT),B'10000000' 04S0545 00714000 BNO @RF00545 04S0545 00715000 * IF(OCOPTCDE=OCMODIFY&OCSWITCH=OCACTVTE)|( 00716000 * OCOPTCDE=OCICHNG&OCICTYPE^=OCICSID) 00717000 * /* TEST COMMAND TYPE */ 00718000 * THEN/* THIS IS A ACTIVATE 3705 OR AN 00719000 * ICHNG (NOT SWITCH ID LINE) */ 00720000 CLI OCOPTCDE(ROPCE),X'44' 04S0546 00721000 BNE @GL00006 04S0546 00722000 CLI OCSWITCH(ROPCE),X'22' 04S0546 00723000 BE @RT00546 04S0546 00724000 @GL00006 CLI OCOPTCDE(ROPCE),X'49' 04S0546 00725000 BNE @RF00546 04S0546 00726000 CLI OCICTYPE(ROPCE),0 04S0546 00727000 BE @RF00546 04S0546 00728000 @RT00546 DS 0H 04S0547 00729000 * DO; 04S0547 00730000 * OCCKPNCP=OFF;/* RESET 3705 CKPT 00731000 * REQUESTED */ 00732000 NI OCCKPNCP(ROPCE),B'10111111' 04S0548 00733000 * IF AVTCKREQ=OFF/* TEST FOR 04S0549 00734000 * ENVIRONMENT CKPT ALREADY 04S0549 00735000 * REQUESTED */ 00736000 * THEN/* ENVIRONMENT CKPT NOT 04S0549 00737000 * ALREADY REQUESTED */ 00738000 TM AVTCKREQ(RAVT),B'00010000' 04S0549 00739000 BNZ @RF00549 04S0549 00740000 * OCCKPINC=ON;/* REQUEST AN 04S0550 00741000 * INCIDENT CKPT */ 00742000 OI OCCKPINC(ROPCE),B'10000000' 04S0550 00743000 * CALL QUEUE;/* QUEUE THE COMMAND FOR 00744000 * CKPT */ 00745000 @RF00549 BAL @14,QUEUE 04S0551 00746000 * END; 04S0552 00747000 * END; 04S0553 00748000 * ELSE /* 3705 CKPT DATA SET IS USABLE */ 00749000 * CALL QUEUE;/* QUEUE THE COMMAND FOR CKPT */ 00750000 B @RC00543 04S0554 00751000 @RF00543 BAL @14,QUEUE 04S0554 00752000 * END; 04S0555 00753000 @RC00543 DS 0H 04S0556 00754000 * END; 03S0556 00755000 @RF00510 DS 0H 03S0556 00756000 @RC00502 DS 0H 03S0557 00757000 * END; 02S0557 00758000 @RF00436 DS 0H 02S0557 00759000 @RC00420 DS 0H 02S0558 00760000 * 02S0558 00761000 * /*****************************************************************/ 00762000 * /* */ 00763000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00764000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. IF THIS IS A TCAM */ 00765000 * /* RESTART, THEN CONTROL IS RETURNED TO IEDQCA VIA A BRANCH ON */ 00766000 * /* REGISTER 14 AFTER THE CHECKPOINT ECB IS POSTED. OTHERWISE, THE*/ 00767000 * /* XCTL SYSTEM MACRO INSTRUCTION IS USED TO TRANSFER CONTROL TO */ 00768000 * /* THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00769000 * /* */ 00770000 * /*****************************************************************/ 00771000 * 02S0558 00772000 * RFY 02S0558 00773000 * (REG14, 02S0558 00774000 * REG15) RSTD; 02S0558 00775000 @RC00411 DS 0H 02S0558 00776000 @RC00405 DS 0H 02S0558 00777000 @RC00394 DS 0H 02S0559 00778000 * IF TCAMRST=ON /* TEST FOR TCAM RESTART */ 00779000 * THEN /* THIS IS A TCAM RESTART */ 00780000 TM TCAMRST,B'10000000' 02S0559 00781000 BNO @RF00559 02S0559 00782000 * DO; 02S0560 00783000 * REG14=OPCRSAVE(1); /* RESTORE IEDQCA'S REGISTER 14 - 00784000 * SAVED BY IGC0010D */ 00785000 L REG14,OPCRSAVE(,ROPCAVT) 02S0561 00786000 * REG15=OPCRSAVE(2); /* RESTORE IEDQCA'S REGISTER 15 - 00787000 * SAVED BY IGC0010D */ 00788000 L REG15,OPCRSAVE+4(,ROPCAVT) 02S0562 00789000 * RETURN; /* RETURN TO IEDQCA */ 00790000 @EL00001 DS 0H 02S0563 00791000 @EF00001 DS 0H 02S0563 00792000 @ER00001 BR @14 02S0563 00793000 * END; 02S0564 00794000 * ELSE /* RETURN STATE NOT SET */ 00795000 * DO; 02S0565 00796000 @RF00559 DS 0H 02S0566 00797000 * IF EXITSET=OFF /* TEST FOR EXIT PARAMETERS SET */ 00798000 * THEN /* EXIT PARAMETERS ARE NOT SET */ 00799000 TM EXITSET,B'01000000' 02S0566 00800000 BNZ @RF00566 02S0566 00801000 * DO; 02S0567 00802000 * OPCMODID=OCWTG; /* SET NEXT MODULE TO GET CONTROL*/ 00803000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 02S0568 00804000 * OCWTG=0; /* CLEAR WHERE TO GO FIELD */ 00805000 SLR @10,@10 02S0569 00806000 STH @10,OCWTG(,ROPCE) 02S0569 00807000 * REG00=OCPARM; /* SET MESSAGE NUMBER */ 00808000 LH REG00,OCPARM(,ROPCE) 02S0570 00809000 * END; 02S0571 00810000 * RPARM=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00811000 * PREPARATION TO TRANSFERRING 00812000 * CONTROL TO THE NEXT MODULE */ 00813000 @RF00566 LR RPARM,ROPCAVT 02S0572 00814000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0573 00815000 * /* 00816000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00817000 * RFY 02S0574 00818000 * (REG14, 02S0574 00819000 * REG15) UNRSTD; 02S0574 00820000 * END; 02S0575 00821000 * 02S0576 00822000 * /*****************************************************************/ 00823000 * /* */ 00824000 * /* POSTCKPT: THIS SUBROUTINE SETS UP THE OP CONTROL CHECKPOINT */ 00825000 * /* REQUEST ELEMENT FOR A TPOST TO CHECKPOINT. */ 00826000 * /* */ 00827000 * /*****************************************************************/ 00828000 * 02S0576 00829000 *POSTCKPT: 02S0576 00830000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0576 00831000 POSTCKPT ST @14,@SA00002 02S0576 00832000 * 03S0577 00833000 * /*****************************************************************/ 00834000 * /* */ 00835000 * /* POSTCKPT.REQTYPE: THIS SEGMENT SETS UP THE QCB POINTER AND THE*/ 00836000 * /* KEY FIELD IN THE OPERATOR CONTROL CHECKPOINT REQUEST ELEMENT. */ 00837000 * /* IF NONE OF THE REQUEST BITS ARE ON IN OCCKPTYP, THEN THIS CKPT*/ 00838000 * /* REQUEST WAS RECORDED WITH AN ENVIRONMENT CHECKPOINTTHAT */ 00839000 * /* PRECEDED THIS REQUEST ON THE CKPT QUEUE. TPOST THE REQUEST */ 00840000 * /* ELEMENT BACK TO THIS MODULE AS IF A CKPT WERE TAKEN. */ 00841000 * /* */ 00842000 * /*****************************************************************/ 00843000 * 03S0577 00844000 * DO; 03S0577 00845000 * RPARM=OPCCKPTF; /* GET ADDRESS OF TOP OPCE ON THE 00846000 * QUEUE FOR CKPT */ 00847000 L RPARM,OPCCKPTF(,ROPCAVT) 03S0578 00848000 * IF RPARM->OCCKPENV=ON /* TEST FOR ENVIRONMENT REQUESTED*/ 00849000 * THEN /* ENVIRONMENT IS REQUESTED */ 00850000 TM OCCKPENV(RPARM),B'00010000' 03S0579 00851000 BNO @RF00579 03S0579 00852000 * DO; 03S0580 00853000 * AVTCKREQ=OFF; /* RESET INDICATOR THAT AN 03S0581 00854000 * ENVIRONMET REQUEST IS ON THE 00855000 * QUEUE */ 00856000 * AVTCKENV=ON; /* TELL CKPT THAT A 'FORCED' 00857000 * ENVIRONMENT IS REQUESTED */ 00858000 OI AVTCKENV(RAVT),B'00100000' 03S0582 00859000 NI AVTCKREQ(RAVT),B'11101111' 03S0582 00860000 * END; 03S0583 00861000 * IF RPARM->OCCKPINC=ON /* TEST FOR TYPE OF CKPT REQUEST */ 00862000 * THEN /* THIS IS AN INCIDENT REQUEST */ 00863000 @RF00579 TM OCCKPINC(RPARM),B'10000000' 03S0584 00864000 BNO @RF00584 03S0584 00865000 * DO; 03S0585 00866000 * AVTCCQCB=ADDR(AVTCKPQB); /* QUEUE THE OPERATOR CONTROL 00867000 * CKPT REQUEST ELEMENT TO TCAM 00868000 * CKPT */ 00869000 LA @10,AVTCKPQB(,RAVT) 03S0586 00870000 STCM @10,7,AVTCCQCB(RAVT) 03S0586 00871000 * AVTCCKEY=CREOPC; /* SET KEY FOR INCIDENT CKPT */ 00872000 MVI AVTCCKEY(RAVT),X'40' 03S0587 00873000 * END; 03S0588 00874000 * ELSE /* NOT AN INCIDENT REQUEST */ 00875000 * DO; 03S0589 00876000 B @RC00584 03S0589 00877000 @RF00584 DS 0H 03S0590 00878000 * AVTCCQCB=ADDR(SAVTCKQB); /* QUEUE THE OPERATOR CONTROL 00879000 * CKPT REQUEST ELEMENT TO 3705 00880000 * CKPT QUEUE */ 00881000 L @10,AVTSAVTP(,RAVT) 03S0590 00882000 LA @10,SAVTCKQB(,@10) 03S0590 00883000 STCM @10,7,AVTCCQCB(RAVT) 03S0590 00884000 * IF RPARM->OCCKPNCP=ON /* TEST TYPE OF REQUEST */ 00885000 * THEN /* THIS IS A REQUEST FOR 3705 00886000 * CKPT */ 00887000 TM OCCKPNCP(RPARM),B'01000000' 03S0591 00888000 BNO @RF00591 03S0591 00889000 * AVTCCKEY=CRECNCP; /* SET KEY FOR 3705 CKPT */ 00890000 MVI AVTCCKEY(RAVT),X'D0' 03S0592 00891000 * ELSE /* NOT 3705 CKPT REQUEST */ 00892000 * IF RPARM->OCCKPRST=ON /* TEST TYPE OF REQUEST */ 00893000 * THEN /* THIS IS A REQUEST FOR 3705 00894000 * RESTART */ 00895000 B @RC00591 03S0593 00896000 @RF00591 TM OCCKPRST(RPARM),B'00100000' 03S0593 00897000 BNO @RF00593 03S0593 00898000 * AVTCCKEY=CRERNCP; /* SET KEY FOR 3705 RESTART */ 00899000 MVI AVTCCKEY(RAVT),X'E0' 03S0594 00900000 * ELSE /* NOT 3705 RESTART => POST 03S0595 00901000 * ELEMENT BACK TO THIS MODULE 00902000 * FOR REDRIVE */ 00903000 * AVTCCQCB=ADDR(AVTOPCQB);/* QUEUE THE OPERATOR CONTROL 00904000 * CKPT REQUEST ELEMENT TO OPCTL 00905000 * TO REDRIVE THIS MODULE */ 00906000 B @RC00593 03S0595 00907000 @RF00593 LA @10,AVTOPCQB(,RAVT) 03S0595 00908000 STCM @10,7,AVTCCQCB(RAVT) 03S0595 00909000 * END; 03S0596 00910000 @RC00593 DS 0H 03S0596 00911000 @RC00591 DS 0H 03S0597 00912000 * END; 03S0597 00913000 @RC00584 DS 0H 03S0598 00914000 * AVTCCPRI=PRIOPCKP; /* SET PRIORITY */ 00915000 MVI AVTCCPRI(RAVT),X'EC' 02S0598 00916000 * RPARM=ADDR(AVTCRELE); /* OP CONTROL CKPT REQUEST 02S0599 00917000 * ELEMENT IS ELEMENT TO PUT ON 00918000 * THE READY QUEUE */ 00919000 LA RPARM,AVTCRELE(,RAVT) 02S0599 00920000 * POSTTCAM=ON; /* REQUEST POST OF TCAM AFTER 00921000 * READY QUEUE UPDATE @YM05746*/ 00922000 OI POSTTCAM,B'00100000' 02S0600 00923000 * CALL UPDRDYQ; /* REQUEST THAT ELEMENT BE PUT ON 00924000 * THE ASYNCHRONOUS READY QUEUE */ 00925000 BAL @14,UPDRDYQ 02S0601 00926000 * END POSTCKPT; 02S0602 00927000 @EL00002 DS 0H 02S0602 00928000 @EF00002 DS 0H 02S0602 00929000 @ER00002 L @14,@SA00002 02S0602 00930000 BR @14 02S0602 00931000 * 02S0603 00932000 * /*****************************************************************/ 00933000 * /* */ 00934000 * /* QUEUE: THIS SUBROUTINE QUEUES THE ELEMENT ON THE OPERATOR */ 00935000 * /* CONTROL CHECKPOINT QUEUE. IF THIS IS THE ONLY ELEMENT ON THE */ 00936000 * /* QUEUE, THEN THE CHECKPOINT SUBTASK IS POSTED TO PROCESS THE */ 00937000 * /* TOP ELEMENT ON THE QUEUE. OPCE'S ATTACHED TO THE OPCE ARE */ 00938000 * /* PASSED TO THE OP CONTROL DISPATCHER. */ 00939000 * /* */ 00940000 * /*****************************************************************/ 00941000 * 02S0603 00942000 *QUEUE: 02S0603 00943000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0603 00944000 QUEUE ST @14,@SA00003 02S0603 00945000 * OCLINK=0; /* CLEAR THE LINK FIELD IN THE 00946000 * CURRENT ELEMENT */ 00947000 SLR @10,@10 02S0604 00948000 ST @10,OCLINK(,ROPCE) 02S0604 00949000 * IF OPCCKPTF=0 /* TEST FOR AN ELEMENT ON THE 00950000 * QUEUE FOR CKPT */ 00951000 * THEN /* THE QUEUE IS EMPTY */ 00952000 C @10,OPCCKPTF(,ROPCAVT) 02S0605 00953000 BNE @RF00605 02S0605 00954000 * DO; 02S0606 00955000 * OPCCKPTF=ROPCE; /* FIRST ON QUEUE IS THE CURRENT 00956000 * ELEMENT */ 00957000 ST ROPCE,OPCCKPTF(,ROPCAVT) 02S0607 00958000 * OPCCKPTL=ROPCE; /* LAST ON QUEUE IS THE CURRENT 00959000 * ELEMEENT */ 00960000 ST ROPCE,OPCCKPTL(,ROPCAVT) 02S0608 00961000 * CALL POSTCKPT; /* POST THE OP CONTROL REQUEST 00962000 * ELEMENT TO CKPT */ 00963000 BAL @14,POSTCKPT 02S0609 00964000 * END; 02S0610 00965000 * ELSE /* QUEUE IS NOT EMPTY */ 00966000 * DO; 02S0611 00967000 B @RC00605 02S0611 00968000 @RF00605 DS 0H 02S0612 00969000 * OPCCKPTL->OCLINK=ROPCE; /* MAKE LAST ELEMENT ON THE QUEUE 00970000 * LINK TO THE CURRENT ELEMENT */ 00971000 L @10,OPCCKPTL(,ROPCAVT) 02S0612 00972000 ST ROPCE,OCLINK(,@10) 02S0612 00973000 * OPCCKPTL=ROPCE; /* MAKE CURRENT THE LAST ON THE 00974000 * QUEUE */ 00975000 ST ROPCE,OPCCKPTL(,ROPCAVT) 02S0613 00976000 * IF OCCKPENV=ON /* TEST FOR ENVIRONMENT NEEDED */ 00977000 * THEN /* AN ENVIRONMENT CKPT WILL BE 00978000 * REQUESTED */ 00979000 TM OCCKPENV(ROPCE),B'00010000' 02S0614 00980000 BNO @RF00614 02S0614 00981000 * AVTCKREQ=ON; /* INDICATE THAT AN ENV CKPT WILL 00982000 * BE REQUESTED */ 00983000 OI AVTCKREQ(RAVT),B'00010000' 02S0615 00984000 * END; 02S0616 00985000 @RF00614 DS 0H 02S0617 00986000 * IF OCATTACH=ON /* TEST FOR OPCE'S ATTACHED 02S0617 00987000 * @YM06958*/ 00988000 * THEN /* OPCE'S ARE ATTACHED @YM06958*/ 00989000 @RC00605 TM OCATTACH(ROPCE),B'00000010' 02S0617 00990000 BNO @RF00617 02S0617 00991000 * DO; /* @YM06958*/ 00992000 * OPCNEXT=OCELMPTR; /* MOVE ATTACHED OPCE'S SO THAT 00993000 * THE OP CONTROL DISPATCHER CAN 00994000 * PROCESS THEM @YM06958*/ 00995000 L @10,OCELMPTR-1(,ROPCE) 02S0619 00996000 LA @10,0(,@10) 02S0619 00997000 ST @10,OPCNEXT(,ROPCAVT) 02S0619 00998000 * OCATTACH=OFF; /* INDICATE THAT NO OPCE'S ARE 00999000 * ATTACHED @YM06958*/ 01000000 NI OCATTACH(ROPCE),B'11111101' 02S0620 01001000 * END; /* @YM06958*/ 01002000 * OPCMODID=DISPATCH; /* EXIT TO THE OPCTL DISPATCHER */ 01003000 @RF00617 MVC OPCMODID(2,ROPCAVT),@CC02515 02S0622 01004000 * REG00=0; /* CLEAR FOR ENTRY TO OPCTL 02S0623 01005000 * DISPATCHER */ 01006000 SLR REG00,REG00 02S0623 01007000 * EXITSET=ON; /* EXIT PARAMETERS HAVE BEEN SET */ 01008000 OI EXITSET,B'01000000' 02S0624 01009000 * END QUEUE; 02S0625 01010000 @EL00003 DS 0H 02S0625 01011000 @EF00003 DS 0H 02S0625 01012000 @ER00003 L @14,@SA00003 02S0625 01013000 BR @14 02S0625 01014000 * 02S0626 01015000 * /*****************************************************************/ 01016000 * /* */ 01017000 * /* UPDRDYQ: THIS SUBROUTINE PLACES AN ELEMENT ADDRESSED BY RPARM */ 01018000 * /* ON THE ASYNCHRONOUS READY QUEUE. IF THE POSTTCAM STATE BIT IS */ 01019000 * /* SET, THEN POST THE TCAM MCP'S ECB COMPLETE. */ 01020000 * /* */ 01021000 * /*****************************************************************/ 01022000 * 02S0626 01023000 *UPDRDYQ: 02S0626 01024000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0626 01025000 UPDRDYQ ST @14,@SA00004 02S0626 01026000 * RFY 02S0627 01027000 * REG15 RSTD; 02S0627 01028000 * REG15=CVTAQAVT; /* GET ADDRESS OF TCX */ 01029000 L @10,CVTPTR 02S0628 01030000 L REG15,CVTAQAVT(,@10) 02S0628 01031000 * REG00=TCXREADY; /* GET ADDR OF TOP ELEMENT ON 01032000 * ASYNCHRONOUS READY QUEUE */ 01033000 L REG00,TCXREADY(,REG15) 02S0629 01034000 *AGAIN: 02S0630 01035000 * RPARM->RECBLINK=REG00; /* LINK CURRENT ELEMENT TO TOP ON 01036000 * THE QUEUE */ 01037000 AGAIN STCM REG00,7,RECBLINK(RPARM) 02S0630 01038000 * CS(REG00,RPARM,TCXREADY); /* UPDATE ASYNCHRONOUS READY 01039000 * QUEUE */ 01040000 CS REG00,@01,TCXREADY(REG15) 02S0631 01041000 * BC(7,AGAIN); /* IF QUEUE WAS UPDATED 02S0632 01042000 * ASYNCHRONOUSLY, TRY AGAIN */ 01043000 BC 7,AGAIN 02S0632 01044000 * IF POSTTCAM=ON /* TEST FOR REQUEST TO POST TCAM 01045000 * MCP'S ECB COMPLETE @YM05746*/ 01046000 * THEN /* POST OF TCAM IS REQUESTED 01047000 * @YM05746*/ 01048000 TM POSTTCAM,B'00100000' 02S0633 01049000 BNO @RF00633 02S0633 01050000 * DO; /* @YM05746*/ 01051000 * GEN NODEFS NOEXIT NOFLOWS REFS(AVTOSECB) SEQFLOW SETS(REG00, 01052000 * RPARM); 02S0635 01053000 POST AVTOSECB(RAVT) POST TCAM COMPLETE 01054000 * END; /* @YM05746*/ 01055000 * RFY 02S0637 01056000 * REG15 UNRSTD; 02S0637 01057000 * END UPDRDYQ; 02S0638 01058000 @EL00004 DS 0H 02S0638 01059000 @EF00004 DS 0H 02S0638 01060000 @ER00004 L @14,@SA00004 02S0638 01061000 BR @14 02S0638 01062000 * END IGC0610D 01S0639 01063000 * 01S0639 01064000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01065000 */*%INCLUDE SYSLIB (TAVTD ) */ 01066000 */*%INCLUDE SYSLIB (TCKPD ) */ 01067000 */*%INCLUDE SYSLIB (CVT ) */ 01068000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01069000 */*%INCLUDE SYSLIB (IHADCB ) */ 01070000 */*%INCLUDE SYSLIB (TDEBD ) */ 01071000 */*%INCLUDE SYSLIB (TNCPID ) */ 01072000 */*%INCLUDE SYSLIB (TOPCED ) */ 01073000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01074000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01075000 */*%INCLUDE SYSLIB (TRECBD ) */ 01076000 */*%INCLUDE SYSLIB (TTCXD ) */ 01077000 */*%INCLUDE SYSLIB (TTNTD ) */ 01078000 */*%INCLUDE SYSLIB (TTRMD ) */ 01079000 */*%INCLUDE SYSUT5 (RFY ) */ 01080000 */*%INCLUDE SYSUT5 (DCL ) */ 01081000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01082000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01083000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01084000 */*%INCLUDE SYSUT5 (RETCKPT ) */ 01085000 */*%INCLUDE SYSUT5 (HALT ) */ 01086000 */*%INCLUDE SYSUT5 (COMMAND ) */ 01087000 */*%INCLUDE SYSUT5 (MODIFY ) */ 01088000 */*%INCLUDE SYSUT5 (ACTDEACT) */ 01089000 */*%INCLUDE SYSUT5 (OTHERCMD) */ 01090000 */*%INCLUDE SYSUT5 (INVLIST ) */ 01091000 */*%INCLUDE SYSUT5 (TEST3705) */ 01092000 */*%INCLUDE SYSUT5 (FINDLNCP) */ 01093000 */*%INCLUDE SYSUT5 (CKOPEN ) */ 01094000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01095000 */*%INCLUDE SYSUT5 (POSTCKPT) */ 01096000 */*%INCLUDE SYSUT5 (REQTYPE ) */ 01097000 */*%INCLUDE SYSUT5 (QUEUE ) */ 01098000 */*%INCLUDE SYSUT5 (UPDRDYQ ) */ 01099000 * 01S0639 01100000 * ; 01S0639 01101000 @DATA DS 0H 01102000 @DATD DSECT 01103000 DS 0F 01104000 @SA00002 DS 1F 01105000 @SA00003 DS 1F 01106000 @SA00004 DS 1F 01107000 IGC0610D CSECT 01108000 DS 0F 01109000 @CF00061 DC F'1' 01110000 @CF02324 DC F'14' 01111000 @CF02576 DC F'-6' 01112000 @CF02578 DC XL4'0000FFFF' 01113000 @CF02549 DC XL4'FFFF' 01114000 @DATD DSECT 01115000 DS 0D 01116000 STATES DS CL1 01117000 ORG STATES 01118000 TCAMRST DS BL1 01119000 EXITSET EQU STATES+0 01120000 POSTTCAM EQU STATES+0 01121000 ORG STATES+1 01122000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01123000 @ENDDATD EQU * 01124000 IGC0610D CSECT 01125000 DS 0F 01126000 @SIZDATD DC AL1(0) 01127000 DC AL3(@ENDDATD-@DATD) 01128000 DS 0D 01129000 NUMENT DC AL1(10/1) 01130000 @CC02515 DC C'00' 01131000 @CC02517 DC C'07' 01132000 @CB02547 DC X'00000000' 01133000 @CB02548 DC X'00000001' 01134000 MODTABLE DS CL10 01135000 ORG MODTABLE 01136000 @NM00177 DC X'07' 01137000 @NM00178 DC X'03' 01138000 @NM00179 DC X'11' 01139000 @NM00180 DC X'16' 01140000 @NM00181 DC X'1D' 01141000 @NM00182 DC X'1E' 01142000 @NM00183 DC X'1F' 01143000 @NM00184 DC X'26' 01144000 @NM00185 DC X'A0' 01145000 @NM00186 DC X'90' 01146000 ORG MODTABLE+10 01147000 DS CL1 01148000 PATCH DC XL104'0' 01149000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01150000 @01 EQU 01 01151000 @02 EQU 02 01152000 @03 EQU 03 01153000 @04 EQU 04 01154000 @05 EQU 05 01155000 @06 EQU 06 01156000 @07 EQU 07 01157000 @08 EQU 08 01158000 @09 EQU 09 01159000 @10 EQU 10 01160000 @11 EQU 11 01161000 @12 EQU 12 01162000 @13 EQU 13 01163000 @14 EQU 14 01164000 @15 EQU 15 01165000 COUNT EQU @05 01166000 ROPCE EQU @03 01167000 ROPCAVT EQU @02 01168000 RTRM EQU @08 01169000 RAVT EQU @04 01170000 REG15 EQU @15 01171000 REG00 EQU @00 01172000 RPARM EQU @01 01173000 RDATA EQU @11 01174000 RBASE EQU @12 01175000 RSAVE EQU @13 01176000 REG14 EQU @14 01177000 CVTPTR EQU 16 01178000 IEDQAVTD EQU 0 01179000 AVTSAVEX EQU IEDQAVTD+288 01180000 @NM00003 EQU IEDQAVTD+388 01181000 AVTCKFLG EQU @NM00003 01182000 AVTCKTAC EQU AVTCKFLG 01183000 AVTCKNAC EQU AVTCKFLG 01184000 AVTCKENV EQU AVTCKFLG 01185000 AVTCKREQ EQU AVTCKFLG 01186000 AVTCKHLT EQU AVTCKFLG 01187000 AVTBASE EQU IEDQAVTD+412 01188000 AVTPKF EQU AVTBASE 01189000 AVTRNMPT EQU IEDQAVTD+424 01190000 AVTOSECB EQU IEDQAVTD+492 01191000 AVTECB1 EQU AVTOSECB 01192000 AVTHG02 EQU IEDQAVTD+528 01193000 AVTDISP EQU IEDQAVTD+552 01194000 AVTHD EQU IEDQAVTD+556 01195000 AVTSCOPT EQU AVTHD 01196000 AVTSAVTP EQU IEDQAVTD+612 01197000 AVTSAVTF EQU AVTSAVTP 01198000 AVTVTMCP EQU AVTSAVTF 01199000 AVTCKPEL EQU IEDQAVTD+652 01200000 AVTCKRMV EQU AVTCKPEL 01201000 AVTCKELF EQU IEDQAVTD+680 01202000 AVTCMCPN EQU AVTCKELF 01203000 AVTCKBYT EQU IEDQAVTD+691 01204000 AVTHG01 EQU IEDQAVTD+692 01205000 AVTCKLNK EQU IEDQAVTD+696 01206000 AVTCRELE EQU IEDQAVTD+708 01207000 AVTCCELE EQU AVTCRELE 01208000 AVTCCKEY EQU AVTCCELE 01209000 AVTCCQCB EQU AVTCCELE+1 01210000 AVTCCPRI EQU AVTCRELE+4 01211000 AVTCLRHI EQU IEDQAVTD+716 01212000 AVTADBUF EQU IEDQAVTD+720 01213000 AVTSYSER EQU IEDQAVTD+728 01214000 AVTCKPQB EQU IEDQAVTD+804 01215000 AVTCKPTB EQU AVTCKPQB 01216000 AVTCKPEC EQU AVTCKPQB+4 01217000 AVTCKPCC EQU AVTCKPEC 01218000 AVTOPCQB EQU IEDQAVTD+816 01219000 AVTOPCOB EQU AVTOPCQB 01220000 AVTOPCEC EQU AVTOPCQB+4 01221000 AVTOPCCC EQU AVTOPCEC 01222000 AVTOLTQB EQU IEDQAVTD+828 01223000 AVTCLOSB EQU IEDQAVTD+852 01224000 AVTCWFL1 EQU IEDQAVTD+924 01225000 AVTCWFL2 EQU IEDQAVTD+925 01226000 AVTSUBT EQU IEDQAVTD+948 01227000 AVTIOTR EQU IEDQAVTD+949 01228000 AVTBIT1 EQU IEDQAVTD+1050 01229000 AVTBIT2 EQU IEDQAVTD+1051 01230000 AVTBIT3 EQU IEDQAVTD+1052 01231000 AVTSTAIN EQU AVTBIT3 01232000 AVTDDFT EQU IEDQAVTD+1064 01233000 AVTBIT4 EQU IEDQAVTD+1136 01234000 @NM00085 EQU IEDQAVTD+1232 01235000 IEDQAPTR EQU 0 01236000 IEDNSVTD EQU 0 01237000 SAVTDIAG EQU IEDNSVTD 01238000 SAVTDIAF EQU SAVTDIAG 01239000 SAVTLUSQ EQU IEDNSVTD+88 01240000 SAVTTCPU EQU IEDNSVTD+238 01241000 SAVTTNTX EQU IEDNSVTD+252 01242000 SAVTZELM EQU IEDNSVTD+270 01243000 SAVTRDRV EQU IEDNSVTD+284 01244000 SAVTCKQB EQU IEDNSVTD+300 01245000 SAVTCKTB EQU SAVTCKQB 01246000 SAVTCKEC EQU SAVTCKQB+4 01247000 SAVTCKCC EQU SAVTCKEC 01248000 IEDQCKPD EQU 0 01249000 CKPIOB EQU IEDQCKPD+72 01250000 CKPIOECB EQU CKPIOB+4 01251000 CKPIOSK EQU CKPIOB+32 01252000 CKPEXCP EQU IEDQCKPD+116 01253000 CKPECBL EQU IEDQCKPD+120 01254000 CKPCNVRT EQU CKPECBL 01255000 CKPIOQL EQU IEDQCKPD+132 01256000 @NM00108 EQU CKPIOQL 01257000 CKPCTTRB EQU IEDQCKPD+144 01258000 CKPCCWS EQU IEDQCKPD+168 01259000 CKPTIC EQU CKPCCWS+24 01260000 CKPRW EQU CKPCCWS+32 01261000 @NM00111 EQU IEDQCKPD+208 01262000 CKPMSG EQU IEDQCKPD+220 01263000 CKPMSGTX EQU CKPMSG+4 01264000 CKPMSGTP EQU CKPMSG+41 01265000 CKPCNTLR EQU IEDQCKPD+288 01266000 CKPFLAGS EQU CKPCNTLR 01267000 CKPPRQNO EQU CKPCNTLR+17 01268000 RCKPT EQU 0 01269000 IEDQCDRD EQU 0 01270000 CDRTTRLI EQU IEDQCDRD+9 01271000 CDRDATA EQU IEDQCDRD+12 01272000 IEDQCRED EQU 0 01273000 CRELINK EQU IEDQCRED+4 01274000 CREOFFS EQU IEDQCRED+12 01275000 CKPREQTB EQU 0 01276000 CKPCTFLG EQU CKPREQTB 01277000 CKPNRES EQU 0 01278000 CKPNFLG EQU CKPNRES+4 01279000 CKPAVT EQU 0 01280000 CVTMAP EQU 0 01281000 CVTDAR EQU CVTMAP+72 01282000 CVTFLGS1 EQU CVTDAR 01283000 CVTDCB EQU CVTMAP+116 01284000 CVTIERLC EQU CVTMAP+144 01285000 CVTOPTA EQU CVTMAP+182 01286000 CVTOPTB EQU CVTMAP+183 01287000 CVTGTF EQU CVTMAP+236 01288000 CVTGTFST EQU CVTGTF 01289000 CVTGTFS EQU CVTGTFST 01290000 CVTSTATE EQU CVTGTFST 01291000 CVTTMODE EQU CVTGTFST 01292000 CVTFORM EQU CVTGTFST 01293000 CVTAQAVT EQU CVTMAP+240 01294000 CVTTCMFG EQU CVTAQAVT 01295000 CVTVOLM2 EQU CVTMAP+244 01296000 CVTTATA EQU CVTVOLM2 01297000 CVTTSKS EQU CVTTATA 01298000 CVTVOLF2 EQU CVTTSKS 01299000 CVTTAT EQU CVTTATA+1 01300000 CVTATER EQU CVTMAP+248 01301000 CVTEXT1 EQU CVTMAP+252 01302000 CVTPURG EQU CVTMAP+260 01303000 CVTQMSG EQU CVTMAP+268 01304000 CVTDMSR EQU CVTMAP+272 01305000 CVTRSV37 EQU CVTDMSR 01306000 CVTDMSRF EQU CVTRSV37 01307000 CVTERPV EQU CVTMAP+316 01308000 CVTINTLA EQU CVTMAP+320 01309000 CVTAPF EQU CVTMAP+324 01310000 CVTEXT2 EQU CVTMAP+328 01311000 CVTHJES EQU CVTMAP+332 01312000 CVTPGSIA EQU CVTMAP+348 01313000 CVTA1F1 EQU CVTMAP+356 01314000 CVTSYSK EQU CVTMAP+357 01315000 CVTVOLM1 EQU CVTMAP+380 01316000 CVTVOLF1 EQU CVTVOLM1 01317000 CVTATMCT EQU CVTMAP+388 01318000 CVTXTNT1 EQU 0 01319000 CVTXTNT2 EQU 0 01320000 CVTDSSV EQU CVTXTNT2 01321000 CVTFLGBT EQU CVTXTNT2+5 01322000 CVTQID EQU CVTXTNT2+24 01323000 CVTSHS EQU CVTXTNT2+40 01324000 CVTRV400 EQU CVTXTNT2+52 01325000 CVTRV409 EQU CVTXTNT2+53 01326000 CVTATCVT EQU CVTXTNT2+64 01327000 CVTRV429 EQU CVTXTNT2+84 01328000 CVTRV438 EQU CVTXTNT2+85 01329000 CVTRV457 EQU CVTXTNT2+112 01330000 CVTRV466 EQU CVTXTNT2+113 01331000 CVTFIX EQU 0 01332000 CVTRELNO EQU CVTFIX+252 01333000 IHADCB EQU 0 01334000 IHADCS1A EQU 0 01335000 DCBBCKUP EQU IHADCS1A+8 01336000 IHADCS2K EQU 0 01337000 DCBDUMPD EQU IHADCS2K 01338000 DCBTRSTA EQU IHADCS2K+5 01339000 DCBDSORG EQU IHADCS2K+6 01340000 DCBDSRG2 EQU DCBDSORG+1 01341000 DCBIOBAD EQU IHADCS2K+8 01342000 DCBRNCKD EQU IHADCS2K+12 01343000 DCBEXLST EQU IHADCS2K+16 01344000 IHADCS24 EQU 0 01345000 DCBOFLGS EQU IHADCS24+8 01346000 DCBOFLWR EQU DCBOFLGS 01347000 DCBOFOPN EQU DCBOFLGS 01348000 DCBIFLG EQU IHADCS24+9 01349000 DCBIBPCT EQU DCBIFLG 01350000 DCBMACR EQU IHADCS24+10 01351000 DCBMACR1 EQU DCBMACR 01352000 DCBMRFE EQU DCBMACR1 01353000 DCBMRGET EQU DCBMRFE 01354000 DCBMRAPG EQU DCBMACR1 01355000 DCBMRRD EQU DCBMRAPG 01356000 DCBMRCI EQU DCBMACR1 01357000 DCBMRMVG EQU DCBMRCI 01358000 DCBMRLCG EQU DCBMACR1 01359000 DCBMRABC EQU DCBMACR1 01360000 DCBMRPT1 EQU DCBMRABC 01361000 DCBMRSBG EQU DCBMRPT1 01362000 DCBMRCRL EQU DCBMACR1 01363000 DCBMRCHK EQU DCBMRCRL 01364000 DCBMRRDX EQU DCBMRCHK 01365000 DCBMRDMG EQU DCBMACR1 01366000 DCBMACR2 EQU DCBMACR+1 01367000 DCBMRPUT EQU DCBMACR2 01368000 DCBMRWRT EQU DCBMACR2 01369000 DCBMRMVP EQU DCBMACR2 01370000 DCBMR5WD EQU DCBMACR2 01371000 DCBMRLDM EQU DCBMR5WD 01372000 DCBMRLCP EQU DCBMRLDM 01373000 DCBMR4WD EQU DCBMACR2 01374000 DCBMRPT2 EQU DCBMR4WD 01375000 DCBMRTMD EQU DCBMRPT2 01376000 DCBMR3WD EQU DCBMACR2 01377000 DCBMRCTL EQU DCBMR3WD 01378000 DCBMRSTK EQU DCBMRCTL 01379000 DCBMR1WD EQU DCBMACR2 01380000 DCBMRSWA EQU DCBMR1WD 01381000 DCBMRDMD EQU DCBMRSWA 01382000 IHADCS25 EQU 0 01383000 DCBMACRF EQU IHADCS25+2 01384000 DCBMACF1 EQU DCBMACRF 01385000 DCBMFFE EQU DCBMACF1 01386000 DCBMFGET EQU DCBMFFE 01387000 DCBMFAPG EQU DCBMACF1 01388000 DCBMFRD EQU DCBMFAPG 01389000 DCBMFCI EQU DCBMACF1 01390000 DCBMFMVG EQU DCBMFCI 01391000 DCBMFLCG EQU DCBMACF1 01392000 DCBMFABC EQU DCBMACF1 01393000 DCBMFPT1 EQU DCBMFABC 01394000 DCBMFSBG EQU DCBMFPT1 01395000 DCBMFCRL EQU DCBMACF1 01396000 DCBMFCHK EQU DCBMFCRL 01397000 DCBMFDMG EQU DCBMACF1 01398000 DCBMACF2 EQU DCBMACRF+1 01399000 DCBMFPUT EQU DCBMACF2 01400000 DCBMFWRT EQU DCBMACF2 01401000 DCBMFMVP EQU DCBMACF2 01402000 DCBMF5WD EQU DCBMACF2 01403000 DCBMFLDM EQU DCBMF5WD 01404000 DCBMFLCP EQU DCBMFLDM 01405000 DCBMF4WD EQU DCBMACF2 01406000 DCBMFPT2 EQU DCBMF4WD 01407000 DCBMFTMD EQU DCBMFPT2 01408000 DCBMF3WD EQU DCBMACF2 01409000 DCBMFCTL EQU DCBMF3WD 01410000 DCBMFSTK EQU DCBMFCTL 01411000 DCBMF1WD EQU DCBMACF2 01412000 DCBMFSWA EQU DCBMF1WD 01413000 DCBMFDMD EQU DCBMFSWA 01414000 DCBDEBAD EQU IHADCS25+4 01415000 DCBIFLGS EQU DCBDEBAD 01416000 DCBIFPCT EQU DCBIFLGS 01417000 IHADCS27 EQU 0 01418000 DCBGET EQU IHADCS27 01419000 DCBPUT EQU DCBGET 01420000 DCBGETA EQU DCBPUT+1 01421000 IHADCS43 EQU 0 01422000 DCBSCTAB EQU IHADCS43 01423000 IEDQDEB EQU 0 01424000 DEBPRF EQU IEDQDEB 01425000 DEBAPVT EQU DEBPRF 01426000 DEBNMEXT EQU IEDQDEB+52 01427000 DEBUCBS EQU IEDQDEB+68 01428000 IEDQDPTR EQU 0 01429000 IEDNCP EQU 0 01430000 NCPFLAG1 EQU IEDNCP+1 01431000 NCPCKPT EQU IEDNCP+22 01432000 IEDQOPCE EQU 0 01433000 OCLINK EQU IEDQOPCE 01434000 OCELEM EQU IEDQOPCE+4 01435000 OCELMPTR EQU OCELEM+1 01436000 OCUNIT EQU IEDQOPCE+8 01437000 OCRUDEST EQU OCUNIT 01438000 OCCKPKEY EQU OCRUDEST 01439000 OCSCAN EQU OCCKPKEY 01440000 OCOPTCDE EQU IEDQOPCE+12 01441000 OCSWITCH EQU IEDQOPCE+13 01442000 OCFLAG EQU IEDQOPCE+14 01443000 OCTOTE EQU OCFLAG 01444000 OCATTACH EQU OCFLAG 01445000 @NM00144 EQU IEDQOPCE+16 01446000 OCDEST EQU @NM00144 01447000 OCREQVAL EQU OCDEST+1 01448000 OCTRMTBL EQU IEDQOPCE+20 01449000 OCLINENO EQU IEDQOPCE+22 01450000 OCTIOT EQU OCLINENO 01451000 OCTRUNIT EQU IEDQOPCE+24 01452000 OCRSID EQU OCTRUNIT 01453000 OCALSTAT EQU OCRSID 01454000 OCPARM EQU IEDQOPCE+28 01455000 OCWTG EQU IEDQOPCE+30 01456000 OCBACKUP EQU IEDQOPCE+32 01457000 OCMODNME EQU IEDQOPCE+40 01458000 OCIPLWA EQU OCMODNME 01459000 OCCKDATA EQU IEDQOPCE+48 01460000 OCRSTGTM EQU OCCKDATA 01461000 OCCKPTWA EQU OCCKDATA+4 01462000 IEDQOPCN EQU 0 01463000 OCLDNME EQU IEDQOPCN 01464000 OCLINTTE EQU OCLDNME 01465000 OCREQFLG EQU OCLINTTE+2 01466000 OCADNCP EQU OCREQFLG 01467000 OCPREFLG EQU OCLINTTE+3 01468000 IEDQOPCD EQU 0 01469000 OPCAVTPT EQU IEDQOPCD+8 01470000 OPCCOPCE EQU IEDQOPCD+12 01471000 OPCSAVE EQU IEDQOPCD+56 01472000 OPCRSAVE EQU IEDQOPCD+132 01473000 OPCWORK EQU IEDQOPCD+140 01474000 OPCAQCTL EQU IEDQOPCD+180 01475000 OPCXCTL EQU IEDQOPCD+204 01476000 OPCLDNME EQU IEDQOPCD+212 01477000 OPCMODID EQU OPCLDNME+3 01478000 OPCCKPTF EQU IEDQOPCD+248 01479000 OPCCKPTL EQU IEDQOPCD+252 01480000 OPCHORT EQU IEDQOPCD+256 01481000 OPCNEXT EQU IEDQOPCD+272 01482000 OPCSPEC EQU IEDQOPCD+300 01483000 OPCRSTRT EQU OPCSPEC 01484000 OPCPWCOB EQU IEDQOPCD+368 01485000 OPCPWQCB EQU OPCPWCOB 01486000 OPCPWECB EQU OPCPWCOB+4 01487000 IEDQRECB EQU 0 01488000 RECBPRI EQU IEDQRECB+4 01489000 RECBLINK EQU IEDQRECB+5 01490000 IEDQTCXD EQU 0 01491000 TCXATTEN EQU IEDQTCXD+4 01492000 TCXREADY EQU IEDQTCXD+24 01493000 TCXFLAG1 EQU IEDQTCXD+34 01494000 TCXBUFA EQU IEDQTCXD+80 01495000 TCXDSAVE EQU IEDQTCXD+104 01496000 TCXQE8 EQU IEDQTCXD+216 01497000 TCXPTR EQU 0 01498000 IEDQTNTD EQU 0 01499000 IEDQTCDE EQU IEDQTNTD 01500000 IEDQTDCE EQU IEDQTNTD+46 01501000 IEDQNPTR EQU 0 01502000 IEDTNTA EQU 0 01503000 IEDTRM EQU 0 01504000 IEDNTRM EQU IEDTRM 01505000 TRMBYTE4 EQU IEDNTRM 01506000 TRMBYTE3 EQU IEDNTRM+1 01507000 TRMBYTE2 EQU IEDNTRM+2 01508000 TRMINPG EQU TRMBYTE2 01509000 TRMBYTE1 EQU IEDNTRM+3 01510000 TRMSCPRQ EQU TRMBYTE1 01511000 TRMBYTE0 EQU IEDNTRM+6 01512000 TRMSIBPT EQU IEDNTRM+7 01513000 TRMTYPE EQU IEDNTRM+11 01514000 IEDQTRM EQU IEDTRM+14 01515000 TRMSTATE EQU IEDQTRM 01516000 TRMLOG EQU TRMSTATE 01517000 TRMPREF EQU TRMSTATE 01518000 TRMINSEQ EQU IEDQTRM+4 01519000 TLISTCNT EQU TRMINSEQ 01520000 TRMOUTSQ EQU IEDQTRM+6 01521000 TLISTEN EQU TRMOUTSQ 01522000 TRMDSORG EQU TLISTEN 01523000 TRMALTD EQU IEDQTRM+8 01524000 TRMDEVFL EQU IEDQTRM+10 01525000 TRMSTAT EQU IEDQTRM+12 01526000 TABENTRY EQU 0 01527000 COHORTLK EQU 0 01528000 IEDQTL EQU 0 01529000 IEDQTNT EQU 0 01530000 IEDIAP04 EQU 0 01531000 DEBSUBR EQU 0 01532000 TNTCODE EQU 0 01533000 TNTDCODE EQU 0 01534000 TNTFIRST EQU 0 01535000 CKPINIT EQU CKPEXCP 01536000 CKPTWA EQU CKPMSGTX 01537000 CKPNCNTL EQU CKPCNTLR 01538000 CKPDATTM EQU CKPNCNTL+22 01539000 CKPNFLDS EQU CKPEXCP 01540000 CKPNSELT EQU CKPNFLDS+16 01541000 CKPOVER EQU CKPMSGTP+1 01542000 CKPOPNFL EQU CKPFLAGS 01543000 CDRINCFM EQU CDRTTRLI 01544000 CDRCREQR EQU IEDQCDRD 01545000 CDRCKFLG EQU CDRCREQR 01546000 CVTS01 EQU CVTPGSIA 01547000 CVTLPDIA EQU CVTS01+12 01548000 CVTDIRST EQU CVTLPDIA 01549000 CVTSLIDA EQU CVTS01+24 01550000 CVTCTLFG EQU CVTS01+50 01551000 CVTRV210 EQU CVTS01+424 01552000 CVTRV219 EQU CVTS01+425 01553000 CVTRV228 EQU CVTS01+426 01554000 CVTRV237 EQU CVTS01+427 01555000 CVTMFRTR EQU CVTS01+452 01556000 CVTRV262 EQU CVTS01+468 01557000 CVTRV271 EQU CVTS01+469 01558000 CVTRV280 EQU CVTS01+470 01559000 CVTRV289 EQU CVTS01+471 01560000 CVTGSDA EQU CVTS01+600 01561000 DCBPTR EQU NCPCKPT 01562000 DEBUCB EQU DEBUCBS 01563000 DEBDVMOD EQU DEBUCB 01564000 DEBUCBAD EQU DEBUCB+1 01565000 OCCKPKY1 EQU OCCKPKEY 01566000 OCCKPTYP EQU OCCKPKY1 01567000 OCCKPINC EQU OCCKPTYP 01568000 OCCKPNCP EQU OCCKPTYP 01569000 OCCKPRST EQU OCCKPTYP 01570000 OCCKPENV EQU OCCKPKY1 01571000 OCICACTN EQU OCMODNME 01572000 OCICDADR EQU OCICACTN 01573000 OCICTYPE EQU OCICDADR 01574000 OCICSW EQU OCICDADR+3 01575000 OPCAQWD EQU OPCAQCTL 01576000 OPCAQWD1 EQU OPCAQWD 01577000 OPCAQWD2 EQU OPCAQWD+4 01578000 OPCAQWD3 EQU OPCAQWD+8 01579000 TRMPRE1 EQU TRMBYTE4 01580000 TRMNCP1 EQU TRMBYTE4 01581000 TRMPRE EQU TRMBYTE3 01582000 TRMNCP EQU TRMBYTE3 01583000 TRMPU EQU TRMBYTE3 01584000 TRMLU EQU TRMBYTE3 01585000 TRMLINK EQU TRMBYTE3 01586000 SSTERME EQU OCSWITCH 01587000 SSTERM1 EQU SSTERME 01588000 SSTERM2 EQU SSTERME 01589000 SSTERM3 EQU SSTERME 01590000 SSTERM4 EQU SSTERME 01591000 CDROPCB EQU CDRDATA 01592000 CKPMSGPN EQU CKPMSGTP+6 01593000 CKPSLVAL EQU CKPNSELT 01594000 CKPTTRLT EQU CKPTIC+5 01595000 OCCIB EQU OCREQVAL 01596000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01597000 @NM00187 EQU SSTERME 01598000 @NM00176 EQU TRMLINK 01599000 TRMLSTAT EQU TRMLINK 01600000 TRMLINT EQU TRMLINK 01601000 TRMEPMOD EQU TRMLINK 01602000 TRMLULOG EQU TRMLU 01603000 TRMINERR EQU TRMLU 01604000 TRMLUREQ EQU TRMLU 01605000 TRMSESRQ EQU TRMLU 01606000 TRMTDIFF EQU TRMLU 01607000 TRMLUTM EQU TRMLU 01608000 TRMLUIT EQU TRMLU 01609000 TRMAUTO EQU TRMLU 01610000 TRMPCONT EQU TRMPU 01611000 @NM00175 EQU TRMPU 01612000 TRMNCONT EQU TRMNCP 01613000 TRMQUCKN EQU TRMNCP 01614000 TRMSLOWN EQU TRMNCP 01615000 TRMSYGEN EQU TRMNCP 01616000 TRMNCPCL EQU TRMNCP 01617000 TRMIPLDM EQU TRMNCP 01618000 TRMINOUT EQU TRMPRE 01619000 TRMRDOUT EQU TRMPRE 01620000 TRMNLOUT EQU TRMPRE 01621000 TRMWROUT EQU TRMPRE 01622000 TRMASNXI EQU TRMPRE 01623000 TRMSTMM EQU TRMPRE 01624000 TRMCMODE EQU TRMPRE 01625000 TRMSTPND EQU TRMPRE 01626000 @NM00174 EQU TRMNCP1 01627000 TRMINOP EQU TRMNCP1 01628000 TRMLYNCH EQU TRMPRE1 01629000 TRMSPOUT EQU TRMPRE1 01630000 TRMERLCK EQU TRMPRE1 01631000 TRMQNPL EQU TRMPRE1 01632000 TRMSPACT EQU TRMPRE1 01633000 TRMOCNI EQU TRMPRE1 01634000 TRMSESSN EQU TRMPRE1 01635000 TRMCONT EQU TRMPRE1 01636000 OPCAQLST EQU OPCAQWD3+1 01637000 OPCAQRQ3 EQU OPCAQWD3 01638000 OPCAQSEC EQU OPCAQWD2+1 01639000 OPCAQRQ2 EQU OPCAQWD2 01640000 OPCAQFST EQU OPCAQWD1+1 01641000 OPCAQREQ EQU OPCAQWD1 01642000 OCICINAC EQU OCICSW 01643000 @NM00150 EQU OCICSW 01644000 OCICATST EQU OCICDADR+1 01645000 @NM00149 EQU OCCKPKY1 01646000 CVTRV628 EQU CVTS01+728 01647000 CVTRV627 EQU CVTS01+724 01648000 CVTRV626 EQU CVTS01+720 01649000 CVTRV625 EQU CVTS01+716 01650000 CVTRV624 EQU CVTS01+712 01651000 CVTRV623 EQU CVTS01+708 01652000 CVTRV622 EQU CVTS01+704 01653000 CVTRV621 EQU CVTS01+700 01654000 CVTRV620 EQU CVTS01+696 01655000 CVTRV619 EQU CVTS01+692 01656000 CVTRV618 EQU CVTS01+688 01657000 CVTRV617 EQU CVTS01+684 01658000 CVTRV616 EQU CVTS01+680 01659000 CVTRV615 EQU CVTS01+676 01660000 CVTRV614 EQU CVTS01+672 01661000 CVTRV613 EQU CVTS01+668 01662000 CVTTCASP EQU CVTS01+664 01663000 CVT0PT03 EQU CVTS01+660 01664000 CVT0PT0E EQU CVTS01+656 01665000 CVTIRM EQU CVTS01+652 01666000 CVTCGK EQU CVTS01+648 01667000 CVTRV607 EQU CVTS01+644 01668000 CVTRV606 EQU CVTS01+640 01669000 CVTRV605 EQU CVTS01+636 01670000 CVTRV604 EQU CVTS01+632 01671000 CVTEFF02 EQU CVTS01+628 01672000 CVTCBBR EQU CVTS01+624 01673000 CVTSSCR EQU CVTS01+620 01674000 CVTEVENT EQU CVTS01+616 01675000 CVTCRCA EQU CVTS01+612 01676000 CVTTPIO EQU CVTS01+608 01677000 CVTADV EQU CVTS01+604 01678000 CVTGSDAB EQU CVTGSDA 01679000 CVTQV3 EQU CVTS01+596 01680000 CVTQV2 EQU CVTS01+592 01681000 CVTQV1 EQU CVTS01+588 01682000 CVTRPT EQU CVTS01+584 01683000 CVTSSRB EQU CVTS01+580 01684000 CVTCSDRL EQU CVTS01+576 01685000 CVTEXP1 EQU CVTS01+572 01686000 CVTRMPMT EQU CVTS01+568 01687000 CVTRMPTT EQU CVTS01+564 01688000 CVTVPSA EQU CVTS01+560 01689000 CVTVSTOP EQU CVTS01+556 01690000 CVTGTFR8 EQU CVTS01+552 01691000 CVTQUIT EQU CVTS01+548 01692000 CVTVACR EQU CVTS01+544 01693000 CVTWTCB EQU CVTS01+540 01694000 CVTSTPRS EQU CVTS01+536 01695000 CVT0PT02 EQU CVTS01+532 01696000 CVTDARCM EQU CVTS01+528 01697000 CVTIRECM EQU CVTS01+524 01698000 CVTJRECM EQU CVTS01+520 01699000 CVTVEMS0 EQU CVTS01+516 01700000 CVTSPFRR EQU CVTS01+512 01701000 CVTRLSTG EQU CVTS01+508 01702000 CVT0TC0A EQU CVTS01+504 01703000 CVTGMBR EQU CVTS01+500 01704000 CVTLFRM EQU CVTS01+496 01705000 CVTRMBR EQU CVTS01+492 01706000 CVTVIOP EQU CVTS01+488 01707000 CVTRV307 EQU CVTS01+486 01708000 CVTRV306 EQU CVTS01+484 01709000 CVTRV305 EQU CVTS01+482 01710000 CVTRV304 EQU CVTS01+480 01711000 CVTRV303 EQU CVTS01+478 01712000 CVTRV302 EQU CVTS01+476 01713000 CVTTRCA EQU CVTS01+472 01714000 CVTRV297 EQU CVTRV289 01715000 CVTRV296 EQU CVTRV289 01716000 CVTRV295 EQU CVTRV289 01717000 CVTRV294 EQU CVTRV289 01718000 CVTRV293 EQU CVTRV289 01719000 CVTRV292 EQU CVTRV289 01720000 CVTRV291 EQU CVTRV289 01721000 CVTRV290 EQU CVTRV289 01722000 CVTRV288 EQU CVTRV280 01723000 CVTRV287 EQU CVTRV280 01724000 CVTRV286 EQU CVTRV280 01725000 CVTRV285 EQU CVTRV280 01726000 CVTRV284 EQU CVTRV280 01727000 CVTRV283 EQU CVTRV280 01728000 CVTRV282 EQU CVTRV280 01729000 CVTRV281 EQU CVTRV280 01730000 CVTRV279 EQU CVTRV271 01731000 CVTRV278 EQU CVTRV271 01732000 CVTRV277 EQU CVTRV271 01733000 CVTRV276 EQU CVTRV271 01734000 CVTRV275 EQU CVTRV271 01735000 CVTRV274 EQU CVTRV271 01736000 CVTRV273 EQU CVTRV271 01737000 CVTRV272 EQU CVTRV271 01738000 CVTRV270 EQU CVTRV262 01739000 CVTRV269 EQU CVTRV262 01740000 CVTRV268 EQU CVTRV262 01741000 CVTRV267 EQU CVTRV262 01742000 CVTRV266 EQU CVTRV262 01743000 CVTRV265 EQU CVTRV262 01744000 CVTRV264 EQU CVTRV262 01745000 CVTRV263 EQU CVTRV262 01746000 CVTVFP EQU CVTS01+464 01747000 CVTVSI EQU CVTS01+460 01748000 CVTVPSIB EQU CVTS01+456 01749000 CVTMFACT EQU CVTMFRTR 01750000 CVTMFCTL EQU CVTS01+448 01751000 CVTPVBP EQU CVTS01+444 01752000 CVTPWI EQU CVTS01+440 01753000 CVTRV254 EQU CVTS01+438 01754000 CVTRV253 EQU CVTS01+436 01755000 CVTRV252 EQU CVTS01+434 01756000 CVTRV251 EQU CVTS01+433 01757000 CVTRV250 EQU CVTS01+432 01758000 CVTRV249 EQU CVTS01+431 01759000 CVTRV248 EQU CVTS01+430 01760000 CVTRV247 EQU CVTS01+429 01761000 CVTRV246 EQU CVTS01+428 01762000 CVTRV245 EQU CVTRV237 01763000 CVTRV244 EQU CVTRV237 01764000 CVTRV243 EQU CVTRV237 01765000 CVTRV242 EQU CVTRV237 01766000 CVTRV241 EQU CVTRV237 01767000 CVTRV240 EQU CVTRV237 01768000 CVTRV239 EQU CVTRV237 01769000 CVTRV238 EQU CVTRV237 01770000 CVTRV236 EQU CVTRV228 01771000 CVTRV235 EQU CVTRV228 01772000 CVTRV234 EQU CVTRV228 01773000 CVTRV233 EQU CVTRV228 01774000 CVTRV232 EQU CVTRV228 01775000 CVTRV231 EQU CVTRV228 01776000 CVTRV230 EQU CVTRV228 01777000 CVTRV229 EQU CVTRV228 01778000 CVTRV227 EQU CVTRV219 01779000 CVTRV226 EQU CVTRV219 01780000 CVTRV225 EQU CVTRV219 01781000 CVTRV224 EQU CVTRV219 01782000 CVTRV223 EQU CVTRV219 01783000 CVTRV222 EQU CVTRV219 01784000 CVTRV221 EQU CVTRV219 01785000 CVTRV220 EQU CVTRV219 01786000 CVTRV218 EQU CVTRV210 01787000 CVTRV217 EQU CVTRV210 01788000 CVTRV216 EQU CVTRV210 01789000 CVTRV215 EQU CVTRV210 01790000 CVTRV214 EQU CVTRV210 01791000 CVTRV213 EQU CVTRV210 01792000 CVTRV212 EQU CVTRV210 01793000 CVTRV211 EQU CVTRV210 01794000 CVTLCCAT EQU CVTS01+420 01795000 CVTPCCAT EQU CVTS01+416 01796000 CVTIPCRP EQU CVTS01+412 01797000 CVTIPCRI EQU CVTS01+408 01798000 CVTIPCDS EQU CVTS01+404 01799000 CVTAIDVT EQU CVTS01+400 01800000 CVTSSAP EQU CVTS01+396 01801000 CVTEHCIR EQU CVTS01+392 01802000 CVTEHDEF EQU CVTS01+388 01803000 CVTDAIR EQU CVTS01+384 01804000 CVTPERFM EQU CVTS01+380 01805000 CVT044R2 EQU CVTS01+376 01806000 CVTFETCH EQU CVTS01+372 01807000 CVTRSTWD EQU CVTS01+368 01808000 CVTSPOST EQU CVTS01+364 01809000 CVTIOBP EQU CVTS01+360 01810000 CVTASMVT EQU CVTS01+356 01811000 CVTRECRQ EQU CVTS01+352 01812000 CVTWSAC EQU CVTS01+348 01813000 CVTRV149 EQU CVTS01+344 01814000 CVTWSAL EQU CVTS01+340 01815000 CVTSPSA EQU CVTS01+336 01816000 CVTGLMN EQU CVTS01+332 01817000 CVTVEAC0 EQU CVTS01+328 01818000 CVT062R1 EQU CVTS01+324 01819000 CVTRPOST EQU CVTS01+320 01820000 CVTDQIQE EQU CVTS01+316 01821000 CVTCSD EQU CVTS01+312 01822000 CVTLKRMA EQU CVTS01+308 01823000 CVTRSPIE EQU CVTS01+304 01824000 CVTRENQ EQU CVTS01+300 01825000 CVTLQCB EQU CVTS01+296 01826000 CVTFQCB EQU CVTS01+292 01827000 CVTQCS01 EQU CVTS01+288 01828000 CVTAPFT EQU CVTS01+284 01829000 CVTPARRL EQU CVTS01+280 01830000 CVTVWAIT EQU CVTS01+276 01831000 CVTGSPL EQU CVTS01+272 01832000 CVTLSMQ EQU CVTS01+268 01833000 CVTGSMQ EQU CVTS01+264 01834000 CVTEXPRO EQU CVTS01+260 01835000 CVTOPCTP EQU CVTS01+256 01836000 CVTSIC EQU CVTS01+252 01837000 CVTTPIOS EQU CVTS01+248 01838000 CVTRTMS EQU CVTS01+244 01839000 CVTSDBF EQU CVTS01+240 01840000 CVTSCBP EQU CVTS01+236 01841000 CVTSDMP EQU CVTS01+232 01842000 CVTSV60 EQU CVTS01+228 01843000 CVTRTMCT EQU CVTS01+224 01844000 CVTASCBL EQU CVTS01+220 01845000 CVTASCBH EQU CVTS01+216 01846000 CVTGDA EQU CVTS01+212 01847000 CVTASVT EQU CVTS01+208 01848000 CVTVVMDI EQU CVTS01+204 01849000 CVTAQTOP EQU CVTS01+200 01850000 CVTIOSCS EQU CVTS01+196 01851000 CVTSDRM EQU CVTS01+192 01852000 CVTOPTE EQU CVTS01+188 01853000 CVTSTXU EQU CVTS01+184 01854000 CVTQUIS EQU CVTS01+180 01855000 CVTPARS EQU CVTS01+176 01856000 CVTS1EE EQU CVTS01+172 01857000 CVTFRAS EQU CVTS01+168 01858000 CVTQSAS EQU CVTS01+164 01859000 CVTCRAS EQU CVTS01+160 01860000 CVTCRMN EQU CVTS01+156 01861000 CVTDELCP EQU CVTS01+152 01862000 CVTFRECL EQU CVTS01+148 01863000 CVTGETCL EQU CVTS01+144 01864000 CVTBLDCP EQU CVTS01+140 01865000 CVTAUTHL EQU CVTS01+136 01866000 CVTSCAN EQU CVTS01+132 01867000 CVTRV144 EQU CVTS01+130 01868000 CVTMAXMP EQU CVTS01+128 01869000 CVTSTCK EQU CVTS01+124 01870000 CVTRV139 EQU CVTS01+123 01871000 CVTDSSAC EQU CVTS01+122 01872000 CVTRV513 EQU CVTS01+121 01873000 CVTIOSPL EQU CVTS01+120 01874000 CVTPTGT EQU CVTS01+116 01875000 CVTCSPIE EQU CVTS01+112 01876000 CVTSMFEX EQU CVTS01+108 01877000 CVTOLT0A EQU CVTS01+104 01878000 CVTSRBRT EQU CVTS01+100 01879000 CVTPUTL EQU CVTS01+96 01880000 CVTASCRL EQU CVTS01+92 01881000 CVTASCRF EQU CVTS01+88 01882000 CVTRV326 EQU CVTS01+84 01883000 CVTRV325 EQU CVTS01+80 01884000 CVTRV324 EQU CVTS01+76 01885000 CVT0VL01 EQU CVTS01+72 01886000 CVTSHRVM EQU CVTS01+68 01887000 CVTRV332 EQU CVTS01+64 01888000 CVTTAS EQU CVTS01+60 01889000 CVTRSCN EQU CVTS01+56 01890000 CVTTRAC2 EQU CVTS01+54 01891000 CVTTRACE EQU CVTS01+52 01892000 CVTAPG EQU CVTS01+51 01893000 CVTSDTRC EQU CVTCTLFG 01894000 CVTGTRCE EQU CVTCTLFG 01895000 CVTNOMP EQU CVTCTLFG 01896000 CVTRSV79 EQU CVTCTLFG 01897000 CVTDSTAT EQU CVTCTLFG 01898000 CVTRSV78 EQU CVTCTLFG 01899000 CVTRV333 EQU CVTCTLFG 01900000 CVTRV323 EQU CVTCTLFG 01901000 CVTSPVLK EQU CVTS01+49 01902000 CVTRSV77 EQU CVTS01+48 01903000 CVTRV331 EQU CVTS01+44 01904000 CVTRV330 EQU CVTS01+40 01905000 CVTRV329 EQU CVTS01+36 01906000 CVTRV328 EQU CVTS01+32 01907000 CVTRV322 EQU CVTS01+28 01908000 CVTSLID EQU CVTSLIDA+1 01909000 CVTSYLK EQU CVTSLIDA 01910000 CVTRV321 EQU CVTS01+20 01911000 CVTRV320 EQU CVTS01+16 01912000 CVTLPDIR EQU CVTLPDIA+1 01913000 CVTRSV69 EQU CVTDIRST 01914000 CVTRSV68 EQU CVTDIRST 01915000 CVTRSV67 EQU CVTDIRST 01916000 CVTRSV66 EQU CVTDIRST 01917000 CVTRSV65 EQU CVTDIRST 01918000 CVTRSV64 EQU CVTDIRST 01919000 CVTRSV63 EQU CVTDIRST 01920000 CVTDICOM EQU CVTDIRST 01921000 CVTPVTP EQU CVTS01+8 01922000 CVTLPDSR EQU CVTS01+4 01923000 CVTGETL EQU CVTS01 01924000 CDRCKOPT EQU CDRCREQR+41 01925000 CDRCKPQB EQU CDRCREQR+38 01926000 CDRCKQCB EQU CDRCREQR+17 01927000 CDRCKQBC EQU CDRCREQR+14 01928000 CDRCKMSG EQU CDRCREQR+12 01929000 CDRCKOFF EQU CDRCREQR+10 01930000 @NM00125 EQU CDRCREQR+9 01931000 @NM00124 EQU CDRCREQR+8 01932000 CDRCKOUT EQU CDRCREQR+6 01933000 CDRCKIN EQU CDRCREQR+4 01934000 @NM00123 EQU CDRCREQR+1 01935000 CDRCKRNC EQU CDRCKFLG 01936000 CDROPTN EQU CDRINCFM+7 01937000 CDRSEQOU EQU CDRINCFM+5 01938000 CDRSEQIN EQU CDRINCFM+3 01939000 CDROFFS EQU CDRINCFM+1 01940000 CDRSTAT EQU CDRINCFM 01941000 @NM00122 EQU CKPOPNFL 01942000 CKPOPNCR EQU CKPOPNFL 01943000 CKPOPNIN EQU CKPOPNFL 01944000 CKPOPNEN EQU CKPOPNFL 01945000 @NM00121 EQU CKPOPNFL 01946000 CKPTRKSA EQU CKPOVER+4 01947000 CKPTRKLN EQU CKPOVER+2 01948000 CKPRCDSR EQU CKPOVER 01949000 CKPNRSID EQU CKPNFLDS+22 01950000 CKPNTRK EQU CKPNFLDS+20 01951000 CKPSLNEW EQU CKPNSELT+1 01952000 CKPCUSEL EQU CKPNSELT 01953000 CKPNDEVF EQU CKPNFLDS+12 01954000 CKPNTTE EQU CKPNFLDS+8 01955000 CKPENCDE EQU CKPNFLDS+7 01956000 @NM00120 EQU CKPNFLDS 01957000 CKPBCKUP EQU CKPNCNTL+30 01958000 CKPTIME EQU CKPDATTM+4 01959000 CKPDATE EQU CKPDATTM 01960000 @NM00119 EQU CKPNCNTL+21 01961000 CKPBLKPT EQU CKPNCNTL+20 01962000 @NM00118 EQU CKPNCNTL+18 01963000 CKPTRKCN EQU CKPNCNTL+16 01964000 @NM00117 EQU CKPNCNTL+14 01965000 CKPBLKSZ EQU CKPNCNTL+12 01966000 CKPIPLTX EQU CKPNCNTL+4 01967000 CKPSWTCH EQU CKPNCNTL+3 01968000 CKPTRSTA EQU CKPNCNTL+2 01969000 @NM00116 EQU CKPNCNTL 01970000 CKPTRMAD EQU CKPTWA+60 01971000 CKPSAVE2 EQU CKPTWA 01972000 CKPCTTRA EQU CKPINIT+24 01973000 @NM00115 EQU CKPINIT+22 01974000 CKPIPERE EQU CKPINIT+20 01975000 CKPDATIM EQU CKPINIT+12 01976000 CKPCTTRC EQU CKPINIT+8 01977000 CKPDATLN EQU CKPINIT+6 01978000 CKPKEYLN EQU CKPINIT+5 01979000 CKPRCDNO EQU CKPINIT+4 01980000 CKPHEDNO EQU CKPINIT+2 01981000 CKPCYLNO EQU CKPINIT 01982000 TRMOPT EQU IEDTRM+34 01983000 TRMOPTBL EQU IEDQTRM+18 01984000 TRMOPNO EQU IEDQTRM+17 01985000 TRMCHCIN EQU IEDQTRM+16 01986000 TRMSENSE EQU TRMSTAT+3 01987000 TRMTEMPR EQU TRMSTAT+2 01988000 TRMSIO EQU TRMSTAT 01989000 @NM00173 EQU TRMDEVFL+1 01990000 TRMTPIN EQU TRMDEVFL+1 01991000 TRMNCPI EQU TRMDEVFL+1 01992000 TRMRNTRM EQU TRMDEVFL+1 01993000 @NM00172 EQU TRMDEVFL+1 01994000 TRMLMD EQU TRMDEVFL+1 01995000 TRMCONC EQU TRMDEVFL+1 01996000 TRMTSOB EQU TRMDEVFL 01997000 TRMBFDY EQU TRMDEVFL 01998000 TRMTBLK EQU TRMDEVFL 01999000 TRMSBLK EQU TRMDEVFL 02000000 TRMBLKS EQU TRMDEVFL 02001000 TRMADDC EQU TRMDEVFL 02002000 TRMDDIG EQU TRMDEVFL 02003000 TRMBUFS EQU TRMDEVFL 02004000 TRMPRILK EQU TRMALTD 02005000 TRMLGB EQU TRMDSORG 02006000 TRMUTERM EQU TLISTCNT 02007000 TRMDESTQ EQU IEDQTRM+1 02008000 TRMSCNYN EQU TRMSTATE 02009000 TRMOPTFN EQU TRMSTATE 02010000 TRMHELDN EQU TRMSTATE 02011000 TRMACPTN EQU TRMSTATE 02012000 TRMPROC EQU TRMLOG 02013000 TRMLIST EQU TRMLOG 02014000 TRMLINE EQU TRMSTATE 02015000 TRMSUBST EQU IEDNTRM+12 02016000 TRMRLMCT EQU IEDNTRM+10 02017000 TRMCOHTG EQU TRMSIBPT+1 02018000 TRMGPCNT EQU TRMSIBPT 02019000 TRMBUFRD EQU TRMBYTE0 02020000 TRMSNA EQU TRMBYTE0 02021000 TRMGP EQU TRMBYTE0 02022000 TRMDIAL EQU TRMBYTE0 02023000 @NM00171 EQU TRMBYTE0 02024000 TRMOUTPT EQU TRMBYTE0 02025000 TRMINPUT EQU TRMBYTE0 02026000 TRMUDEF EQU TRMBYTE0 02027000 TRMCOHRT EQU IEDNTRM+4 02028000 TRMSTOTE EQU TRMBYTE1 02029000 TRMCKPRN EQU TRMBYTE1 02030000 TRMTSATN EQU TRMBYTE1 02031000 TRMTRACE EQU TRMBYTE1 02032000 TRMSWBCK EQU TRMBYTE1 02033000 TRMAUTOC EQU TRMBYTE1 02034000 TRMINPTP EQU TRMBYTE1 02035000 TRMWTNEG EQU TRMSCPRQ 02036000 TRMWRBRK EQU TRMBYTE2 02037000 TRMNOSND EQU TRMBYTE2 02038000 TRMPREP EQU TRMBYTE2 02039000 TRMGPACT EQU TRMBYTE2 02040000 TRMANDL EQU TRMBYTE2 02041000 TRMCLOSN EQU TRMINPG 02042000 TRMREMB EQU TRMBYTE2 02043000 TRMRSACT EQU TRMBYTE2 02044000 TNTTRMAD EQU IEDTNTA 02045000 TNTLEN EQU IEDQTNTD+44 02046000 TNTMIDEN EQU IEDQTNTD+41 02047000 TNTENLEN EQU IEDQTNTD+40 02048000 TNTSRCHX EQU IEDQTNTD+38 02049000 TCXEND EQU IEDQTCXD+224 02050000 TCXNCPIO EQU IEDQTCXD+220 02051000 TCXACTE8 EQU TCXQE8 02052000 TCXABEPL EQU IEDQTCXD+212 02053000 TCXSRBS EQU IEDQTCXD+208 02054000 TCXSIOSB EQU IEDQTCXD+204 02055000 TCXESAVE EQU IEDQTCXD+132 02056000 TCXERPPM EQU IEDQTCXD+128 02057000 TCXERPSV EQU IEDQTCXD+116 02058000 TCXSATTN EQU IEDQTCXD+112 02059000 @NM00170 EQU TCXDSAVE+4 02060000 @NM00169 EQU TCXDSAVE 02061000 TCXPLCB EQU IEDQTCXD+100 02062000 TCXBITS EQU IEDQTCXD+98 02063000 TCXSCBSZ EQU IEDQTCXD+97 02064000 TCXBIT1 EQU IEDQTCXD+96 02065000 TCXCOMPT EQU IEDQTCXD+92 02066000 TCXAVAIL EQU IEDQTCXD+88 02067000 TCXBUFL EQU IEDQTCXD+84 02068000 TCXTOTE EQU TCXBUFA 02069000 TCXCKPM EQU IEDQTCXD+79 02070000 TCXNCKPR EQU IEDQTCXD+78 02071000 TCXSZAIB EQU IEDQTCXD+76 02072000 TCXAIBC EQU IEDQTCXD+72 02073000 TCXPEBC EQU IEDQTCXD+68 02074000 TCXPEWAC EQU IEDQTCXD+64 02075000 TCXQRQ EQU IEDQTCXD+60 02076000 TCXOCQ EQU IEDQTCXD+56 02077000 TCXPNTQ EQU IEDQTCXD+52 02078000 TCXPUTQ EQU IEDQTCXD+48 02079000 TCXGETQ EQU IEDQTCXD+44 02080000 TCXTSI EQU IEDQTCXD+40 02081000 TCXRPT EQU IEDQTCXD+36 02082000 TCXCC3TS EQU IEDQTCXD+35 02083000 TCXAPDMP EQU TCXFLAG1 02084000 TCXAPPL EQU TCXFLAG1 02085000 TCXRTM EQU TCXFLAG1 02086000 TCXMCPCD EQU TCXFLAG1 02087000 TCXAUTH EQU TCXFLAG1 02088000 TCXASID EQU IEDQTCXD+32 02089000 TCXASCB EQU IEDQTCXD+28 02090000 TCXPASWD EQU IEDQTCXD+16 02091000 TCXDISP EQU IEDQTCXD+12 02092000 TCXTCB EQU IEDQTCXD+8 02093000 TCXATTLN EQU TCXATTEN 02094000 TCXAVT EQU IEDQTCXD 02095000 RECBQCBA EQU IEDQRECB+1 02096000 RECBKEY EQU IEDQRECB 02097000 OPCBOTTM EQU IEDQOPCD+1184 02098000 @NM00168 EQU IEDQOPCD+1100 02099000 @NM00167 EQU IEDQOPCD+948 02100000 @NM00166 EQU IEDQOPCD+940 02101000 @NM00165 EQU IEDQOPCD+380 02102000 @NM00164 EQU OPCPWCOB+9 02103000 @NM00163 EQU OPCPWCOB+8 02104000 @NM00162 EQU OPCPWECB+1 02105000 OPCPWCCC EQU OPCPWECB 02106000 OPCPWCHN EQU OPCPWQCB+1 02107000 OPCPWVTO EQU OPCPWQCB 02108000 OPCWAITV EQU IEDQOPCD+364 02109000 OPCTOTCK EQU IEDQOPCD+360 02110000 OPCAPXTL EQU IEDQOPCD+356 02111000 OPCDECR EQU IEDQOPCD+352 02112000 OPCBUFWT EQU IEDQOPCD+348 02113000 OPCWRKSP EQU IEDQOPCD+320 02114000 OPCADGOT EQU IEDQOPCD+318 02115000 OPCRQCNT EQU IEDQOPCD+316 02116000 OPPOLSTP EQU IEDQOPCD+312 02117000 OPCCKCIB EQU IEDQOPCD+308 02118000 OPCEND EQU IEDQOPCD+307 02119000 OPCSTCBS EQU IEDQOPCD+306 02120000 OPCHNEND EQU IEDQOPCD+302 02121000 OPCOQSW EQU IEDQOPCD+301 02122000 @NM00161 EQU OPCSPEC 02123000 @NM00160 EQU OPCSPEC 02124000 @NM00159 EQU OPCSPEC 02125000 @NM00158 EQU OPCSPEC 02126000 OPCFRMCA EQU OPCSPEC 02127000 OPCPART EQU OPCSPEC 02128000 OPCALTD EQU OPCSPEC 02129000 OPCBFEND EQU IEDQOPCD+296 02130000 OPCBFIRS EQU IEDQOPCD+292 02131000 OPCAVBUF EQU IEDQOPCD+290 02132000 OPCIPLCT EQU IEDQOPCD+289 02133000 OPCCLNTS EQU IEDQOPCD+288 02134000 OPCHA8 EQU IEDQOPCD+286 02135000 OPCBFREQ EQU IEDQOPCD+284 02136000 OPCFREBF EQU IEDQOPCD+280 02137000 OPCGETBF EQU IEDQOPCD+276 02138000 OPCFMDFC EQU IEDQOPCD+268 02139000 OPCSCNC EQU IEDQOPCD+264 02140000 OPCHORTG EQU IEDQOPCD+260 02141000 OPCWAITA EQU IEDQOPCD+244 02142000 OPCWAITR EQU IEDQOPCD+240 02143000 OPCWAITP EQU IEDQOPCD+236 02144000 OPCWAITO EQU IEDQOPCD+232 02145000 OPCWAITN EQU IEDQOPCD+228 02146000 OPCWAITL EQU IEDQOPCD+224 02147000 OPCWAITC EQU IEDQOPCD+220 02148000 @NM00157 EQU OPCLDNME+5 02149000 @NM00156 EQU OPCLDNME 02150000 OPCWAIT EQU IEDQOPCD+192 02151000 OPCCKERB EQU IEDQOPCD+164 02152000 OPCBFERB EQU IEDQOPCD+148 02153000 OPCFLAG2 EQU IEDQOPCD+147 02154000 OPCFLAG1 EQU IEDQOPCD+146 02155000 OPCWRKSZ EQU IEDQOPCD+144 02156000 OPCQCBAD EQU IEDQOPCD+128 02157000 OPCTRMWA EQU IEDQOPCD+52 02158000 OPCPSTWT EQU IEDQOPCD+48 02159000 OPCTNTEA EQU IEDQOPCD+44 02160000 OPCPGCK EQU IEDQOPCD+40 02161000 OPCLCB EQU IEDQOPCD+36 02162000 @NM00155 EQU IEDQOPCD+32 02163000 OPCIPLAD EQU IEDQOPCD+28 02164000 OPCTOFLK EQU IEDQOPCD+24 02165000 OPCOPTLK EQU IEDQOPCD+20 02166000 OPCDCBLK EQU IEDQOPCD+16 02167000 OPCDOUBL EQU IEDQOPCD 02168000 @NM00154 EQU OCLDNME+4 02169000 @NM00153 EQU OCPREFLG 02170000 OCTOTEP EQU OCPREFLG 02171000 OCREPOST EQU OCPREFLG 02172000 OCRSPSNT EQU OCPREFLG 02173000 OCBFREQ EQU OCPREFLG 02174000 OCIDLE EQU OCREQFLG 02175000 OCFORCE EQU OCREQFLG 02176000 OCDCARD EQU OCREQFLG 02177000 OCPARTAL EQU OCREQFLG 02178000 @NM00152 EQU OCREQFLG 02179000 @NM00151 EQU OCREQFLG 02180000 OCFLUSHZ EQU OCREQFLG 02181000 OCRESPCT EQU OCLINTTE 02182000 @NM00148 EQU OCRSTGTM+2 02183000 OCCKDAT2 EQU OCRSTGTM+1 02184000 OCCKDAT1 EQU OCRSTGTM 02185000 OCPTRSAV EQU OCMODNME+4 02186000 OCPUADR EQU OCIPLWA+2 02187000 OCWTGSAV EQU OCIPLWA 02188000 OCDVRDCT EQU OCBACKUP+6 02189000 OCNCP EQU OCBACKUP+4 02190000 OCBUFGOT EQU OCBACKUP+2 02191000 OCBUFNED EQU OCBACKUP 02192000 OCRESNUM EQU OCPARM 02193000 OCSEQ EQU OCTRUNIT+2 02194000 @NM00147 EQU OCRSID+1 02195000 OCNONE EQU OCALSTAT 02196000 OCSOME EQU OCALSTAT 02197000 OCALLFLG EQU OCALSTAT 02198000 OCACTREQ EQU OCALSTAT 02199000 OCREDRVE EQU OCALSTAT 02200000 OCSEQIND EQU OCALSTAT 02201000 @NM00146 EQU OCALSTAT 02202000 OCRENTRD EQU OCALSTAT 02203000 OCWTGB EQU OCTIOT 02204000 @NM00145 EQU @NM00144+2 02205000 OCCONID EQU OCDEST 02206000 OCRLN EQU IEDQOPCE+15 02207000 OCRESP EQU OCFLAG 02208000 OCSSCP EQU OCFLAG 02209000 OCOUTPUT EQU OCFLAG 02210000 OCLINE EQU OCFLAG 02211000 OCMPP EQU OCFLAG 02212000 OCCONSOL EQU OCFLAG 02213000 @NM00143 EQU OCSWITCH 02214000 OCQUCKN EQU OCSWITCH 02215000 OCPRIFLG EQU OCOPTCDE 02216000 @NM00142 EQU OCRUDEST+1 02217000 @NM00141 EQU OCSCAN 02218000 OCNOTUCB EQU OCSCAN 02219000 OCNONAME EQU OCSCAN 02220000 OCALLRLN EQU OCSCAN 02221000 OCDDNAME EQU OCSCAN 02222000 OCDDNRLN EQU OCSCAN 02223000 OCADDR EQU OCSCAN 02224000 OCELMPRI EQU OCELEM 02225000 NCPLTRAC EQU IEDNCP+26 02226000 NCPDPDCB EQU IEDNCP+18 02227000 NCPTXID EQU IEDNCP+10 02228000 NCPBKUPN EQU IEDNCP+2 02229000 @NM00140 EQU NCPFLAG1 02230000 NCPTRACE EQU NCPFLAG1 02231000 NCPBKUP EQU NCPFLAG1 02232000 NCPIPLD EQU NCPFLAG1 02233000 NCPREST EQU NCPFLAG1 02234000 NCPBGUP EQU NCPFLAG1 02235000 NCPDAUTO EQU NCPFLAG1 02236000 NCPIAUTO EQU NCPFLAG1 02237000 NCPLEN EQU IEDNCP 02238000 DEBAPPAD EQU IEDQDEB+65 02239000 DEBEXSCL EQU IEDQDEB+64 02240000 DEBDCBAD EQU IEDQDEB+61 02241000 DEBPROTG EQU IEDQDEB+60 02242000 DEBECBAD EQU IEDQDEB+57 02243000 DEBPRIOR EQU IEDQDEB+56 02244000 DEBUSRPG EQU IEDQDEB+53 02245000 DEBSYSPG EQU IEDQDEB+49 02246000 DEBOPATB EQU IEDQDEB+48 02247000 DEBIRBAD EQU IEDQDEB+45 02248000 DEBOFLGS EQU IEDQDEB+44 02249000 DEBDEBAD EQU IEDQDEB+41 02250000 DEBAMLNG EQU IEDQDEB+40 02251000 DEBTCBAD EQU IEDQDEB+37 02252000 DEBNMSUB EQU IEDQDEB+36 02253000 @NM00139 EQU DEBPRF+33 02254000 DEBLNGTH EQU DEBPRF+32 02255000 DEBDCBMK EQU DEBPRF+28 02256000 DEBDSCBA EQU DEBPRF+21 02257000 DEBWKARA EQU DEBPRF+20 02258000 DEBXCEA EQU DEBAPVT+16 02259000 DEBCEA EQU DEBAPVT+12 02260000 DEBPCIA EQU DEBAPVT+8 02261000 DEBSIOA EQU DEBAPVT+4 02262000 DEBEOEA EQU DEBAPVT 02263000 DCBBUFSI EQU IHADCS43+6 02264000 DCBUNTCT EQU IHADCS43+5 02265000 DCBILCT EQU IHADCS43+4 02266000 DCBSCTAD EQU DCBSCTAB+1 02267000 @NM00138 EQU DCBSCTAB 02268000 DCBPUTA EQU DCBGETA 02269000 @NM00137 EQU DCBPUT 02270000 DCBDEBA EQU DCBDEBAD+1 02271000 @NM00136 EQU DCBIFLGS 02272000 DCBIFIOE EQU DCBIFLGS 02273000 DCBCH12 EQU DCBIFPCT 02274000 DCBCH9 EQU DCBIFPCT 02275000 DCBIFEC EQU DCBIFLGS 02276000 DCBMFSTI EQU DCBMFDMD 02277000 DCBMFAWR EQU DCBMFSTK 02278000 DCBMFUIP EQU DCBMFTMD 02279000 DCBMFIDW EQU DCBMFLCP 02280000 DCBMFWRK EQU DCBMFMVP 02281000 DCBMFRDQ EQU DCBMFWRT 02282000 DCBMFGTQ EQU DCBMFPUT 02283000 DCBMFSTL EQU DCBMACF2 02284000 DCBMFCK EQU DCBMFDMG 02285000 DCBMFRDX EQU DCBMFCHK 02286000 DCBMFDBF EQU DCBMFSBG 02287000 DCBMFRDI EQU DCBMFLCG 02288000 DCBMFRDK EQU DCBMFMVG 02289000 DCBMFWRQ EQU DCBMFRD 02290000 DCBMFPTQ EQU DCBMFGET 02291000 DCBMFECP EQU DCBMACF1 02292000 DCBTIOT EQU IHADCS25 02293000 DCBMRSTI EQU DCBMRDMD 02294000 DCBMRAWR EQU DCBMRSTK 02295000 DCBMRUIP EQU DCBMRTMD 02296000 DCBMRIDW EQU DCBMRLCP 02297000 DCBMRWRK EQU DCBMRMVP 02298000 DCBMRRDQ EQU DCBMRWRT 02299000 DCBMRGTQ EQU DCBMRPUT 02300000 DCBMRSTL EQU DCBMACR2 02301000 DCBMRCK EQU DCBMRDMG 02302000 DCBPGFXA EQU DCBMRRDX 02303000 DCBMRDBF EQU DCBMRSBG 02304000 DCBMRRDI EQU DCBMRLCG 02305000 DCBMRRDK EQU DCBMRMVG 02306000 DCBMRWRQ EQU DCBMRRD 02307000 DCBMRPTQ EQU DCBMRGET 02308000 DCBMRECP EQU DCBMACR1 02309000 @NM00135 EQU DCBIFLG 02310000 DCBIBIOE EQU DCBIFLG 02311000 DCBICH12 EQU DCBIBPCT 02312000 DCBICH9 EQU DCBIBPCT 02313000 DCBIBEC EQU DCBIFLG 02314000 DCBOFIOF EQU DCBOFLGS 02315000 DCBOFUEX EQU DCBOFLGS 02316000 DCBOFTM EQU DCBOFLGS 02317000 DCBOFPPC EQU DCBOFLGS 02318000 DCBOFEOV EQU DCBOFLGS 02319000 DCBOFLRB EQU DCBOFLGS 02320000 DCBOFIOD EQU DCBOFLWR 02321000 DCBDDNAM EQU IHADCS24 02322000 DCBEXLSA EQU DCBEXLST+1 02323000 DCBEIOBX EQU DCBEXLST 02324000 DCBRNCKA EQU DCBRNCKD+1 02325000 @NM00134 EQU DCBRNCKD 02326000 DCBDSGTR EQU DCBDSRG2 02327000 @NM00133 EQU DCBDSRG2 02328000 DCBDSRG1 EQU DCBDSORG 02329000 DCBCHNGL EQU DCBTRSTA 02330000 DCBNIDLE EQU DCBTRSTA 02331000 DCBBAKUP EQU DCBTRSTA 02332000 DCBIPLED EQU DCBTRSTA 02333000 DCBRSTRT EQU DCBTRSTA 02334000 DCBINITL EQU DCBTRSTA 02335000 DCBAUTOD EQU DCBTRSTA 02336000 DCBAUTOI EQU DCBTRSTA 02337000 @NM00132 EQU IHADCS2K+4 02338000 DCBDUMPA EQU DCBDUMPD+1 02339000 DCBUNITN EQU DCBDUMPD 02340000 DCBBCKUA EQU DCBBCKUP+1 02341000 @NM00131 EQU DCBBCKUP 02342000 DCBIPLTX EQU IHADCS1A 02343000 @NM00130 EQU IHADCB 02344000 CVTLEVL EQU CVTRELNO+2 02345000 CVTNUMB EQU CVTRELNO 02346000 CVTMDL EQU CVTFIX+250 02347000 @NM00129 EQU CVTFIX+248 02348000 @NM00128 EQU CVTFIX 02349000 CVTRV482 EQU CVTXTNT2+128 02350000 CVTRV481 EQU CVTXTNT2+124 02351000 CVTRV480 EQU CVTXTNT2+120 02352000 CVTRV479 EQU CVTXTNT2+118 02353000 CVTRV478 EQU CVTXTNT2+117 02354000 CVTRV477 EQU CVTXTNT2+116 02355000 CVTRV476 EQU CVTXTNT2+115 02356000 CVTRV475 EQU CVTXTNT2+114 02357000 CVTRV474 EQU CVTRV466 02358000 CVTRV473 EQU CVTRV466 02359000 CVTRV472 EQU CVTRV466 02360000 CVTRV471 EQU CVTRV466 02361000 CVTRV470 EQU CVTRV466 02362000 CVTRV469 EQU CVTRV466 02363000 CVTRV468 EQU CVTRV466 02364000 CVTRV467 EQU CVTRV466 02365000 CVTRV465 EQU CVTRV457 02366000 CVTRV464 EQU CVTRV457 02367000 CVTRV463 EQU CVTRV457 02368000 CVTRV462 EQU CVTRV457 02369000 CVTRV461 EQU CVTRV457 02370000 CVTRV460 EQU CVTRV457 02371000 CVTRV459 EQU CVTRV457 02372000 CVTRV458 EQU CVTRV457 02373000 CVTRV456 EQU CVTXTNT2+108 02374000 CVTRV455 EQU CVTXTNT2+104 02375000 CVTRV454 EQU CVTXTNT2+100 02376000 CVTRV453 EQU CVTXTNT2+96 02377000 CVTRV452 EQU CVTXTNT2+94 02378000 CVTRV451 EQU CVTXTNT2+92 02379000 CVTRV450 EQU CVTXTNT2+90 02380000 CVTRV449 EQU CVTXTNT2+88 02381000 CVTRV448 EQU CVTXTNT2+87 02382000 CVTRV447 EQU CVTXTNT2+86 02383000 CVTRV446 EQU CVTRV438 02384000 CVTRV445 EQU CVTRV438 02385000 CVTRV444 EQU CVTRV438 02386000 CVTRV443 EQU CVTRV438 02387000 CVTRV442 EQU CVTRV438 02388000 CVTRV441 EQU CVTRV438 02389000 CVTRV440 EQU CVTRV438 02390000 CVTRV439 EQU CVTRV438 02391000 CVTRV437 EQU CVTRV429 02392000 CVTRV436 EQU CVTRV429 02393000 CVTRV435 EQU CVTRV429 02394000 CVTRV434 EQU CVTRV429 02395000 CVTRV433 EQU CVTRV429 02396000 CVTRV432 EQU CVTRV429 02397000 CVTRV431 EQU CVTRV429 02398000 CVTRV430 EQU CVTRV429 02399000 CVTRV428 EQU CVTXTNT2+80 02400000 CVTRV427 EQU CVTXTNT2+76 02401000 CVTRV426 EQU CVTXTNT2+72 02402000 CVTRV425 EQU CVTXTNT2+68 02403000 CVTATACT EQU CVTATCVT 02404000 CVTRV423 EQU CVTXTNT2+62 02405000 CVTRV422 EQU CVTXTNT2+60 02406000 CVTRV421 EQU CVTXTNT2+58 02407000 CVTRV420 EQU CVTXTNT2+56 02408000 CVTRV419 EQU CVTXTNT2+55 02409000 CVTRV418 EQU CVTXTNT2+54 02410000 CVTRV417 EQU CVTRV409 02411000 CVTRV416 EQU CVTRV409 02412000 CVTRV415 EQU CVTRV409 02413000 CVTRV414 EQU CVTRV409 02414000 CVTRV413 EQU CVTRV409 02415000 CVTRV412 EQU CVTRV409 02416000 CVTRV411 EQU CVTRV409 02417000 CVTRV410 EQU CVTRV409 02418000 CVTRV408 EQU CVTRV400 02419000 CVTRV407 EQU CVTRV400 02420000 CVTRV406 EQU CVTRV400 02421000 CVTRV405 EQU CVTRV400 02422000 CVTRV404 EQU CVTRV400 02423000 CVTRV403 EQU CVTRV400 02424000 CVTRV402 EQU CVTRV400 02425000 CVTRV401 EQU CVTRV400 02426000 CVTICB EQU CVTXTNT2+48 02427000 CVTSKTA EQU CVTXTNT2+44 02428000 CVTSHSB EQU CVTSHS 02429000 CVTRSV98 EQU CVTXTNT2+36 02430000 CVTRSV97 EQU CVTXTNT2+34 02431000 CVTRSV96 EQU CVTXTNT2+32 02432000 CVTOLTEP EQU CVTXTNT2+28 02433000 CVTQIDA EQU CVTQID+1 02434000 CVTRSV95 EQU CVTQID 02435000 CVTRSV94 EQU CVTXTNT2+20 02436000 CVTRSV93 EQU CVTXTNT2+16 02437000 CVTRSV92 EQU CVTXTNT2+12 02438000 CVTDEBVR EQU CVTXTNT2+8 02439000 CVTRSV91 EQU CVTXTNT2+6 02440000 CVTRSV9H EQU CVTFLGBT 02441000 CVTRSV9G EQU CVTFLGBT 02442000 CVTRSV9F EQU CVTFLGBT 02443000 CVTRSV9E EQU CVTFLGBT 02444000 CVTRSV9D EQU CVTFLGBT 02445000 CVTRSV9C EQU CVTFLGBT 02446000 CVTVME EQU CVTFLGBT 02447000 CVTNPE EQU CVTFLGBT 02448000 CVTNUCLS EQU CVTXTNT2+4 02449000 CVTDSSVA EQU CVTDSSV+1 02450000 CVTRSV89 EQU CVTDSSV 02451000 CVTRSV88 EQU CVTXTNT1+8 02452000 CVTRSV87 EQU CVTXTNT1+4 02453000 CVTFACHN EQU CVTXTNT1 02454000 CVTRV488 EQU CVTMAP+412 02455000 CVTRV487 EQU CVTMAP+408 02456000 CVTRV486 EQU CVTMAP+404 02457000 CVTRV485 EQU CVTMAP+400 02458000 CVTACTAP EQU CVTMAP+396 02459000 CVTAUTH EQU CVTMAP+392 02460000 CVTATMCA EQU CVTATMCT+1 02461000 CVTATMST EQU CVTATMCT 02462000 CVTRSV61 EQU CVTMAP+384 02463000 CVTVOLT1 EQU CVTVOLM1+1 02464000 CVTVOLI1 EQU CVTVOLF1 02465000 CVTSTOA EQU CVTMAP+376 02466000 CVTRSV58 EQU CVTMAP+374 02467000 CVTRSV57 EQU CVTMAP+372 02468000 CVTDDCE EQU CVTMAP+368 02469000 CVTPNWFR EQU CVTMAP+364 02470000 CVTSMF EQU CVTMAP+360 02471000 CVTSULK EQU CVTMAP+358 02472000 CVTSLKO EQU CVTSYSK 02473000 CVTSLKP EQU CVTSYSK 02474000 CVTSLKQ EQU CVTSYSK 02475000 CVTSLKR EQU CVTSYSK 02476000 CVTRSV56 EQU CVTSYSK 02477000 CVTRSV55 EQU CVTSYSK 02478000 CVTRSV54 EQU CVTSYSK 02479000 CVTRSV53 EQU CVTSYSK 02480000 CVTRSV52 EQU CVTA1F1 02481000 CVTRSV51 EQU CVTA1F1 02482000 CVTRSV50 EQU CVTA1F1 02483000 CVTRSV49 EQU CVTA1F1 02484000 CVTRSV48 EQU CVTA1F1 02485000 CVTRSV47 EQU CVTA1F1 02486000 CVTSRSW EQU CVTA1F1 02487000 CVTPFSW EQU CVTA1F1 02488000 CVTPCVT EQU CVTMAP+352 02489000 CVTRSV46 EQU CVTMAP+344 02490000 CVTRSV45 EQU CVTMAP+340 02491000 CVTRSV44 EQU CVTMAP+338 02492000 CVTRSV43 EQU CVTMAP+336 02493000 CVTHJESA EQU CVTHJES+1 02494000 CVTRSV42 EQU CVTHJES 02495000 CVTEXT2A EQU CVTEXT2+1 02496000 CVTRSV41 EQU CVTEXT2 02497000 CVTAPFA EQU CVTAPF+1 02498000 CVTRSV40 EQU CVTAPF 02499000 CVTRV518 EQU CVTINTLA 02500000 CVTRV517 EQU CVTERPV 02501000 CVTEORM EQU CVTMAP+312 02502000 CVTMCHPR EQU CVTMAP+308 02503000 CVTTZ EQU CVTMAP+304 02504000 CVTJEPS EQU CVTMAP+300 02505000 CVTJESCT EQU CVTMAP+296 02506000 CVTMODE EQU CVTMAP+292 02507000 CVTPTRV EQU CVTMAP+288 02508000 CVTREAL EQU CVTMAP+284 02509000 CVTRSV39 EQU CVTMAP+280 02510000 CVTRSV38 EQU CVTMAP+276 02511000 CVTDMSRA EQU CVTDMSR+1 02512000 CVTRV634 EQU CVTDMSRF 02513000 CVTRV633 EQU CVTDMSRF 02514000 CVTRV632 EQU CVTDMSRF 02515000 CVTRV631 EQU CVTDMSRF 02516000 CVTRV630 EQU CVTDMSRF 02517000 CVTRV629 EQU CVTDMSRF 02518000 CVTUDUMP EQU CVTDMSRF 02519000 CVTSDUMP EQU CVTDMSRF 02520000 CVTQMSGA EQU CVTQMSG+1 02521000 CVTRSV36 EQU CVTQMSG 02522000 CVTAMFF EQU CVTMAP+264 02523000 CVTPURGA EQU CVTPURG+1 02524000 CVTRSV35 EQU CVTPURG 02525000 CVTCBSP EQU CVTMAP+256 02526000 CVTATERA EQU CVTATER+1 02527000 CVTSYST EQU CVTATER 02528000 CVTVOLT2 EQU CVTTAT 02529000 CVTVOLI2 EQU CVTVOLF2 02530000 CVTAQAVB EQU CVTAQAVT+1 02531000 CVTRSV34 EQU CVTTCMFG 02532000 CVTRSV33 EQU CVTTCMFG 02533000 CVTRSV32 EQU CVTTCMFG 02534000 CVTRSV31 EQU CVTTCMFG 02535000 CVTRSV30 EQU CVTTCMFG 02536000 CVTRSV29 EQU CVTTCMFG 02537000 CVTRSV28 EQU CVTTCMFG 02538000 CVTTCRDY EQU CVTTCMFG 02539000 CVTGTFA EQU CVTGTF+1 02540000 CVTRSV27 EQU CVTGTFST 02541000 CVTRNIO EQU CVTGTFST 02542000 CVTUSR EQU CVTGTFST 02543000 CVTRV318 EQU CVTFORM 02544000 CVTRV317 EQU CVTTMODE 02545000 CVTRV316 EQU CVTSTATE 02546000 CVTRV315 EQU CVTGTFS 02547000 CVTGTFAV EQU CVTGTFS 02548000 CVT0SCR1 EQU CVTMAP+232 02549000 CVTRV515 EQU CVTMAP+228 02550000 CVTRMS EQU CVTMAP+224 02551000 CVTPATCH EQU CVTMAP+220 02552000 CVTTSCE EQU CVTMAP+216 02553000 CVTLNKSC EQU CVTMAP+214 02554000 CVTQABST EQU CVTMAP+212 02555000 CVTMDLDS EQU CVTMAP+208 02556000 CVTUSER EQU CVTMAP+204 02557000 CVTABEND EQU CVTMAP+200 02558000 CVTSMCA EQU CVTMAP+196 02559000 CVTRSV18 EQU CVTMAP+192 02560000 CVTQLPAQ EQU CVTMAP+188 02561000 CVTQCDSR EQU CVTMAP+184 02562000 CVTRSV17 EQU CVTOPTB 02563000 CVTRSV16 EQU CVTOPTB 02564000 CVTFP EQU CVTOPTB 02565000 CVTAPTHR EQU CVTOPTB 02566000 CVTNLOG EQU CVTOPTB 02567000 CVTTOD EQU CVTOPTB 02568000 CVTCTIMS EQU CVTOPTB 02569000 CVTPROT EQU CVTOPTB 02570000 CVTXPFP EQU CVTOPTA 02571000 CVTASCII EQU CVTOPTA 02572000 CVTRSV13 EQU CVTOPTA 02573000 CVTRSV12 EQU CVTOPTA 02574000 CVTNIP EQU CVTOPTA 02575000 CVTDDR EQU CVTOPTA 02576000 CVTAPR EQU CVTOPTA 02577000 CVTCCH EQU CVTOPTA 02578000 CVTSNCTR EQU CVTMAP+180 02579000 CVTQMWR EQU CVTMAP+176 02580000 CVTQOCR EQU CVTMAP+172 02581000 CVT1EF00 EQU CVTMAP+168 02582000 CVTMZ00 EQU CVTMAP+164 02583000 CVTHEAD EQU CVTMAP+160 02584000 CVTRSV11 EQU CVTMAP+156 02585000 CVT0PT01 EQU CVTMAP+152 02586000 CVTMSER EQU CVTMAP+148 02587000 CVTRV516 EQU CVTIERLC 02588000 CVTILCH EQU CVTMAP+140 02589000 CVT0DS EQU CVTMAP+136 02590000 CVTFBOSV EQU CVTMAP+132 02591000 CVTNUCB EQU CVTMAP+128 02592000 CVTIXAVL EQU CVTMAP+124 02593000 CVTIOQET EQU CVTMAP+120 02594000 CVTDCBA EQU CVTMAP+117 02595000 CVTMVS2 EQU CVTDCB 02596000 CVT6DAT EQU CVTDCB 02597000 CVT4MPS EQU CVTDCB 02598000 CVTRSV09 EQU CVTDCB 02599000 CVT4MS1 EQU CVTDCB 02600000 CVT2SPS EQU CVTDCB 02601000 CVT1SSS EQU CVTDCB 02602000 CVTRSV08 EQU CVTDCB 02603000 CVTSTB EQU CVTMAP+112 02604000 CVTQTD00 EQU CVTMAP+108 02605000 CVTQTE00 EQU CVTMAP+104 02606000 CVTCUCB EQU CVTMAP+100 02607000 CVTSJQ EQU CVTMAP+96 02608000 CVTPBLDL EQU CVTMAP+92 02609000 CVTTPC EQU CVTMAP+88 02610000 CVTSVDCB EQU CVTMAP+84 02611000 CVTBRET EQU CVTMAP+82 02612000 CVTEXIT EQU CVTMAP+80 02613000 CVT0FN00 EQU CVTMAP+76 02614000 CVTDARA EQU CVTDAR+1 02615000 CVTRSV07 EQU CVTFLGS1 02616000 CVTRSV06 EQU CVTFLGS1 02617000 CVTRSV05 EQU CVTFLGS1 02618000 CVTRSV04 EQU CVTFLGS1 02619000 CVTRSV03 EQU CVTFLGS1 02620000 CVTRSV02 EQU CVTFLGS1 02621000 CVTRSV01 EQU CVTFLGS1 02622000 CVTDMPLK EQU CVTFLGS1 02623000 CVTXITP EQU CVTMAP+68 02624000 CVTZDTAB EQU CVTMAP+64 02625000 CVTMSLT EQU CVTMAP+60 02626000 CVTDATE EQU CVTMAP+56 02627000 CVTBTERM EQU CVTMAP+52 02628000 CVTSYSAD EQU CVTMAP+48 02629000 CVTXTLER EQU CVTMAP+44 02630000 CVTILK2 EQU CVTMAP+40 02631000 CVTILK1 EQU CVTMAP+36 02632000 CVTPRLTV EQU CVTMAP+32 02633000 CVTPCNVT EQU CVTMAP+28 02634000 CVT0VL00 EQU CVTMAP+24 02635000 CVTXAPG EQU CVTMAP+20 02636000 CVTBUF EQU CVTMAP+16 02637000 CVTJOB EQU CVTMAP+12 02638000 CVTLINK EQU CVTMAP+8 02639000 CVT0EF00 EQU CVTMAP+4 02640000 CVTTCBP EQU CVTMAP 02641000 CVT EQU CVTMAP 02642000 CKPIOTR EQU CKPAVT+21 02643000 CKPSUBT EQU CKPAVT+20 02644000 CKPLODPT EQU CKPAVT+16 02645000 CKPRADDR EQU CKPAVT+12 02646000 CKPNADDR EQU CKPAVT+8 02647000 CKPBIT2 EQU CKPAVT+7 02648000 CKPBIT1 EQU CKPAVT+6 02649000 CKPINTLV EQU CKPAVT+4 02650000 CKPOPCIN EQU CKPAVT+2 02651000 CKPOPCON EQU CKPAVT 02652000 CKPTYPE EQU CKPNRES+5 02653000 @NM00127 EQU CKPNFLG 02654000 CKPLULOG EQU CKPNFLG 02655000 CKPEPMOD EQU CKPNFLG 02656000 CKPRSACT EQU CKPNFLG 02657000 CKPREMB EQU CKPNFLG 02658000 CKPCOHRT EQU CKPNRES+2 02659000 CKPSUBST EQU CKPNRES 02660000 CKPCTSEC EQU CKPREQTB+6 02661000 CKPCTOFF EQU CKPREQTB+4 02662000 CKPCTTTR EQU CKPREQTB+1 02663000 CKPCTDER EQU CKPCTFLG 02664000 CKPCTACT EQU CKPCTFLG 02665000 CREDEB EQU CREOFFS 02666000 CREECB EQU IEDQCRED+8 02667000 @NM00126 EQU CRELINK+1 02668000 CREPRI EQU CRELINK 02669000 CREQCBAD EQU IEDQCRED+1 02670000 CREKEY EQU IEDQCRED 02671000 CDRKEY EQU IEDQCDRD+8 02672000 CDRTIME EQU IEDQCDRD+4 02673000 CDRDATE EQU IEDQCDRD 02674000 CKPSECT1 EQU CKPCNTLR+37 02675000 CKPTTRT1 EQU CKPCNTLR+34 02676000 CKPSECIN EQU CKPCNTLR+32 02677000 CKPSECCR EQU CKPCNTLR+30 02678000 CKPSECLI EQU CKPCNTLR+28 02679000 CKPSECLT EQU CKPCNTLR+26 02680000 CKPINCLN EQU CKPCNTLR+24 02681000 CKPTTRLI EQU CKPCNTLR+21 02682000 CKPRPERT EQU CKPCNTLR+20 02683000 CKPCKRLN EQU CKPCNTLR+18 02684000 CKPCPERT EQU CKPPRQNO 02685000 CKPIPERT EQU CKPCNTLR+16 02686000 CKPCPRCD EQU CKPCNTLR+15 02687000 CKPCKRQS EQU CKPCNTLR+14 02688000 CKPBPERR EQU CKPCNTLR+12 02689000 CKPTTRIN EQU CKPCNTLR+9 02690000 CKPINRNO EQU CKPCNTLR+8 02691000 CKPTTRCR EQU CKPCNTLR+5 02692000 CKPCRRNO EQU CKPCNTLR+4 02693000 CKPINCNO EQU CKPCNTLR+3 02694000 CKPINCNT EQU CKPCNTLR+2 02695000 CKPTTRCT EQU CKPCNTLR+1 02696000 CKPOPCRD EQU CKPFLAGS 02697000 CKPOPTFN EQU CKPFLAGS 02698000 CKPSTAIN EQU CKPFLAGS 02699000 CKPERR EQU CKPFLAGS 02700000 @NM00114 EQU CKPFLAGS 02701000 CKPFSCN2 EQU CKPFLAGS 02702000 CKPFSCN1 EQU CKPFLAGS 02703000 CKPNORML EQU CKPFLAGS 02704000 @NM00113 EQU CKPMSG+65 02705000 CKPMSGGL EQU CKPMSG+61 02706000 @NM00112 EQU CKPMSG+2 02707000 CKPMSGLN EQU CKPMSG 02708000 CKPWKALN EQU @NM00111+10 02709000 CKPGETML EQU @NM00111 02710000 CKPRWBC EQU CKPRW+6 02711000 @NM00110 EQU CKPRW+5 02712000 CKPRWFLG EQU CKPRW+4 02713000 CKPRWADD EQU CKPRW+1 02714000 CKPRWCMD EQU CKPRW 02715000 CKPSCHID EQU CKPCCWS+16 02716000 CKPSETSC EQU CKPCCWS+8 02717000 CKPSEEKC EQU CKPCCWS 02718000 @NM00109 EQU IEDQCKPD+164 02719000 CKPERRCT EQU IEDQCKPD+163 02720000 CKPSWCH2 EQU IEDQCKPD+162 02721000 CKPSWCH1 EQU IEDQCKPD+161 02722000 CKPCRLEN EQU IEDQCKPD+160 02723000 CKPPARM2 EQU IEDQCKPD+156 02724000 CKPCPARM EQU IEDQCKPD+148 02725000 CKPSECTR EQU CKPCTTRB 02726000 CKPLDRB EQU IEDQCKPD+140 02727000 CKPLREB EQU IEDQCKPD+136 02728000 CKPNDRB EQU @NM00108 02729000 CKPIOQF EQU IEDQCKPD+128 02730000 CKPEPLOC EQU CKPCNVRT 02731000 CKPECB EQU IEDQCKPD+112 02732000 CKPIOR EQU CKPIOSK+7 02733000 CKPIOHH EQU CKPIOSK+5 02734000 CKPIOCC EQU CKPIOSK+3 02735000 CKPIOBB EQU CKPIOSK+1 02736000 CKPIOM EQU CKPIOSK 02737000 CKPIORC EQU CKPIOB+30 02738000 CKPIOBCI EQU CKPIOB+28 02739000 CKPIORST EQU CKPIOB+25 02740000 @NM00107 EQU CKPIOB+24 02741000 CKPIODCB EQU CKPIOB+21 02742000 @NM00106 EQU CKPIOB+20 02743000 CKPIOCPA EQU CKPIOB+17 02744000 CKPIOSIO EQU CKPIOB+16 02745000 CKPIOCSW EQU CKPIOB+9 02746000 CKPIOFL3 EQU CKPIOB+8 02747000 @NM00105 EQU CKPIOECB+1 02748000 CKPIOECC EQU CKPIOECB 02749000 CKPIOSN1 EQU CKPIOB+3 02750000 CKPIOSN0 EQU CKPIOB+2 02751000 CKPIOFL2 EQU CKPIOB+1 02752000 CKPIOFL1 EQU CKPIOB 02753000 CKPSAVE1 EQU IEDQCKPD 02754000 SAVTBITN EQU IEDNSVTD+312 02755000 @NM00104 EQU SAVTCKQB+8 02756000 @NM00103 EQU SAVTCKEC+1 02757000 @NM00102 EQU SAVTCKCC 02758000 SAVTCKPO EQU SAVTCKCC 02759000 SAVTCKWA EQU SAVTCKCC 02760000 SAVTCKCH EQU SAVTCKTB+1 02761000 SAVTCKVT EQU SAVTCKTB 02762000 @NM00101 EQU IEDNSVTD+297 02763000 SAVTRDFG EQU SAVTRDRV+12 02764000 @NM00100 EQU SAVTRDRV+5 02765000 SAVTRDPY EQU SAVTRDRV+4 02766000 SAVTRDQB EQU SAVTRDRV+1 02767000 SAVTRDKY EQU SAVTRDRV 02768000 SAVTNID EQU IEDNSVTD+280 02769000 SAVTDVAS EQU IEDNSVTD+276 02770000 SAVTPLSZ EQU IEDNSVTD+274 02771000 @NM00099 EQU IEDNSVTD+273 02772000 SAVTSUBL EQU IEDNSVTD+272 02773000 @NM00098 EQU SAVTZELM+1 02774000 SAVTSUBM EQU SAVTZELM 02775000 SAVTMHDX EQU IEDNSVTD+268 02776000 SAVTNAT1 EQU IEDNSVTD+266 02777000 SAVTSH20 EQU IEDNSVTD+264 02778000 SAVTLCBS EQU IEDNSVTD+260 02779000 SAVTRNMP EQU IEDNSVTD+256 02780000 SAVTNAX EQU IEDNSVTD+248 02781000 SAVTSUBV EQU IEDNSVTD+247 02782000 SAVTSUBA EQU IEDNSVTD+246 02783000 SAVTSIBC EQU IEDNSVTD+244 02784000 SAVTBSM EQU IEDNSVTD+240 02785000 SAVTSCPT EQU SAVTTCPU 02786000 SAVTRQTG EQU IEDNSVTD+236 02787000 SAVTRQCH EQU IEDNSVTD+232 02788000 SAVTMAND EQU IEDNSVTD+228 02789000 SAVTSPLN EQU IEDNSVTD+224 02790000 SAVTNADL EQU IEDNSVTD+222 02791000 SAVTNATL EQU IEDNSVTD+220 02792000 SAVTMHTB EQU IEDNSVTD+216 02793000 SAVTSSMH EQU IEDNSVTD+212 02794000 SAVTQRS EQU IEDNSVTD+208 02795000 SAVTRQIN EQU IEDNSVTD+204 02796000 SAVTDFCO EQU IEDNSVTD+200 02797000 SAVTSAO EQU IEDNSVTD+196 02798000 SAVTSARI EQU IEDNSVTD+192 02799000 SAVTSAC EQU IEDNSVTD+188 02800000 SAVTSAI EQU IEDNSVTD+184 02801000 SAVTCSCI EQU IEDNSVTD+180 02802000 SAVTSSRP EQU IEDNSVTD+176 02803000 SAVTSSRQ EQU IEDNSVTD+172 02804000 SAVTSCLU EQU IEDNSVTD+168 02805000 SAVTXTRQ EQU IEDNSVTD+164 02806000 SAVTMVBF EQU IEDNSVTD+160 02807000 @NM00097 EQU IEDNSVTD+148 02808000 SAVTIPCQ EQU IEDNSVTD+144 02809000 @NM00096 EQU IEDNSVTD+136 02810000 SAVTXFMI EQU IEDNSVTD+132 02811000 @NM00095 EQU IEDNSVTD+124 02812000 SAVTXFMO EQU IEDNSVTD+120 02813000 @NM00094 EQU IEDNSVTD+116 02814000 SAVTSSSR EQU IEDNSVTD+112 02815000 SAVTSCPQ EQU IEDNSVTD+108 02816000 SAVTSLCB EQU IEDNSVTD+104 02817000 SAVTLUSR EQU IEDNSVTD+100 02818000 @NM00093 EQU SAVTLUSQ+8 02819000 SAVTLUSP EQU SAVTLUSQ+4 02820000 SAVTLUSB EQU SAVTLUSQ 02821000 @NM00092 EQU IEDNSVTD+84 02822000 SAVTSAT EQU IEDNSVTD+80 02823000 SAVTNAT EQU IEDNSVTD+76 02824000 SAVTCLUP EQU IEDNSVTD+72 02825000 SAVTPIUT EQU IEDNSVTD+68 02826000 SAVTRNTA EQU IEDNSVTD+64 02827000 SAVTDNIR EQU IEDNSVTD+60 02828000 SAVTCNIR EQU IEDNSVTD+56 02829000 SAVTFLDH EQU IEDNSVTD+52 02830000 SAVTSRTN EQU IEDNSVTD+48 02831000 SAVTSREQ EQU IEDNSVTD+44 02832000 SAVTFAIL EQU IEDNSVTD+42 02833000 SAVTSUSE EQU IEDNSVTD+40 02834000 SAVTSIB EQU IEDNSVTD+36 02835000 SAVTPRTN EQU IEDNSVTD+32 02836000 @NM00091 EQU IEDNSVTD+28 02837000 SAVTWH20 EQU IEDNSVTD+26 02838000 SAVTPWT EQU IEDNSVTD+24 02839000 SAVTPRTQ EQU IEDNSVTD+20 02840000 SAVTPREQ EQU IEDNSVTD+16 02841000 SAVTPH20 EQU IEDNSVTD+14 02842000 SAVTPUSE EQU IEDNSVTD+12 02843000 SAVTPLCB EQU IEDNSVTD+8 02844000 SAVTPOOL EQU IEDNSVTD+4 02845000 SAVTPRMT EQU SAVTDIAF 02846000 SAVTVIRT EQU SAVTDIAF 02847000 AVTCPBNO EQU IEDQAVTD+1244 02848000 AVTHRESS EQU IEDQAVTD+1243 02849000 @NM00090 EQU IEDQAVTD+1242 02850000 @NM00089 EQU IEDQAVTD+1241 02851000 @NM00088 EQU IEDQAVTD+1240 02852000 @NM00087 EQU IEDQAVTD+1237 02853000 @NM00086 EQU IEDQAVTD+1236 02854000 AVTHRESE EQU @NM00085 02855000 AVTRADDR EQU IEDQAVTD+1228 02856000 AVTNADDR EQU IEDQAVTD+1224 02857000 AVTHRESN EQU IEDQAVTD+1220 02858000 AVTVOLRN EQU IEDQAVTD+1216 02859000 AVTTOTNN EQU IEDQAVTD+1212 02860000 AVTTRCYN EQU IEDQAVTD+1208 02861000 AVTRCTRN EQU IEDQAVTD+1204 02862000 AVTNOVON EQU IEDQAVTD+1200 02863000 AVTADEBN EQU IEDQAVTD+1196 02864000 AVTVOLRR EQU IEDQAVTD+1192 02865000 AVTTOTNR EQU IEDQAVTD+1188 02866000 AVTTRCYR EQU IEDQAVTD+1184 02867000 AVTRCTRR EQU IEDQAVTD+1180 02868000 AVTNOVOR EQU IEDQAVTD+1176 02869000 AVTADEBR EQU IEDQAVTD+1172 02870000 AVTLODPT EQU IEDQAVTD+1168 02871000 AVTIOBN EQU IEDQAVTD+1164 02872000 AVTIOBR EQU IEDQAVTD+1160 02873000 AVTCPBPT EQU IEDQAVTD+1156 02874000 AVTFCPB EQU IEDQAVTD+1152 02875000 @NM00084 EQU IEDQAVTD+1148 02876000 AVTINCPQ EQU IEDQAVTD+1144 02877000 @NM00083 EQU IEDQAVTD+1140 02878000 @NM00082 EQU IEDQAVTD+1137 02879000 @NM00081 EQU AVTBIT4 02880000 @NM00080 EQU AVTBIT4 02881000 @NM00079 EQU AVTBIT4 02882000 @NM00078 EQU AVTBIT4 02883000 @NM00077 EQU AVTBIT4 02884000 @NM00076 EQU AVTBIT4 02885000 @NM00075 EQU AVTBIT4 02886000 AVTRUFTN EQU AVTBIT4 02887000 @NM00074 EQU IEDQAVTD+1132 02888000 AVTNOBFQ EQU IEDQAVTD+1128 02889000 @NM00073 EQU IEDQAVTD+1124 02890000 AVTDKENQ EQU IEDQAVTD+1120 02891000 @NM00072 EQU IEDQAVTD+1116 02892000 AVTDKAPQ EQU IEDQAVTD+1112 02893000 AVTCOPY EQU IEDQAVTD+1108 02894000 AVTIA EQU IEDQAVTD+1104 02895000 AVTFL EQU IEDQAVTD+1100 02896000 @NM00071 EQU IEDQAVTD+1096 02897000 AVTNCPBQ EQU IEDQAVTD+1092 02898000 AVTTOTNC EQU IEDQAVTD+1088 02899000 AVTCMAX EQU IEDQAVTD+1084 02900000 AVTCMIN EQU IEDQAVTD+1080 02901000 AVTHM02 EQU IEDQAVTD+1076 02902000 AVTOPCIN EQU IEDQAVTD+1074 02903000 AVTDCTLN EQU IEDQAVTD+1072 02904000 AVTOPMSK EQU IEDQAVTD+1068 02905000 AVTSTEAL EQU IEDQAVTD+1060 02906000 AVTOPTN EQU IEDQAVTD+1056 02907000 AVTDSKCT EQU IEDQAVTD+1054 02908000 AVTCKRST EQU IEDQAVTD+1053 02909000 AVTSTAN EQU AVTBIT3 02910000 AVTSTACN EQU AVTBIT3 02911000 AVTSTAYN EQU AVTBIT3 02912000 AVTOLTBN EQU AVTBIT3 02913000 AVTTSAB EQU AVTBIT3 02914000 AVTRFULN EQU AVTBIT3 02915000 AVTRECVN EQU AVTBIT3 02916000 @NM00070 EQU AVTBIT2 02917000 @NM00069 EQU AVTBIT2 02918000 AVTOPEIN EQU AVTBIT2 02919000 AVTSTRTN EQU AVTBIT2 02920000 AVTTOPOL EQU AVTBIT2 02921000 AVTCOPYN EQU AVTBIT2 02922000 AVTREUSN EQU AVTBIT2 02923000 AVTEXTSC EQU AVTBIT2 02924000 AVTDISKN EQU AVTBIT1 02925000 AVTQUCKN EQU AVTBIT1 02926000 AVTCLOSN EQU AVTBIT1 02927000 AVTREADN EQU AVTBIT1 02928000 AVTDLAYN EQU AVTBIT1 02929000 AVTAQTAN EQU AVTBIT1 02930000 AVTTSON EQU AVTBIT1 02931000 AVTAPLKN EQU AVTBIT1 02932000 AVTDUMBR EQU IEDQAVTD+1048 02933000 AVTDLQX EQU IEDQAVTD+1046 02934000 AVTINTLV EQU IEDQAVTD+1044 02935000 AVTSMCNT EQU IEDQAVTD+1042 02936000 AVTAVFCT EQU IEDQAVTD+1040 02937000 AVTOPCON EQU IEDQAVTD+1038 02938000 AVTOPCNT EQU IEDQAVTD+1036 02939000 AVTLNCNT EQU IEDQAVTD+1034 02940000 AVTKEYLE EQU IEDQAVTD+1032 02941000 AVTHA16 EQU IEDQAVTD+1030 02942000 AVTHA7 EQU IEDQAVTD+1028 02943000 AVTHA4 EQU IEDQAVTD+1026 02944000 AVTHA3 EQU IEDQAVTD+1024 02945000 AVTHA2 EQU IEDQAVTD+1022 02946000 AVTGETMS EQU IEDQAVTD+1021 02947000 @NM00068 EQU IEDQAVTD+1020 02948000 AVTGETMD EQU IEDQAVTD+1016 02949000 AVTGETMN EQU IEDQAVTD+1012 02950000 AVTCWTOT EQU IEDQAVTD+1008 02951000 AVTCWINT EQU IEDQAVTD+956 02952000 AVTDTRAP EQU IEDQAVTD+952 02953000 @NM00067 EQU IEDQAVTD+950 02954000 @NM00066 EQU AVTIOTR 02955000 AVTIOTRH EQU AVTIOTR 02956000 AVTIOTRE EQU AVTIOTR 02957000 @NM00065 EQU AVTSUBT 02958000 AVTSUBPT EQU AVTSUBT 02959000 AVTSUBON EQU AVTSUBT 02960000 AVTAFE30 EQU IEDQAVTD+944 02961000 AVTAFE20 EQU IEDQAVTD+940 02962000 AVTAFE10 EQU IEDQAVTD+936 02963000 AVTCWEC2 EQU IEDQAVTD+932 02964000 AVTCWPM2 EQU IEDQAVTD+928 02965000 AVTCWTS2 EQU IEDQAVTD+927 02966000 AVTCWTS1 EQU IEDQAVTD+926 02967000 AVTCWCLD EQU AVTCWFL2 02968000 AVTCWRAP EQU AVTCWFL2 02969000 @NM00064 EQU AVTCWFL2 02970000 @NM00063 EQU AVTCWFL2 02971000 @NM00062 EQU AVTCWFL2 02972000 @NM00061 EQU AVTCWFL2 02973000 @NM00060 EQU AVTCWFL2 02974000 AVTCWACT EQU AVTCWFL2 02975000 @NM00059 EQU AVTCWFL1 02976000 @NM00058 EQU AVTCWFL1 02977000 @NM00057 EQU AVTCWFL1 02978000 @NM00056 EQU AVTCWFL1 02979000 @NM00055 EQU AVTCWFL1 02980000 @NM00054 EQU AVTCWFL1 02981000 @NM00053 EQU AVTCWFL1 02982000 AVTCOMWN EQU AVTCWFL1 02983000 AVTCWEC1 EQU IEDQAVTD+920 02984000 AVTCWPM1 EQU IEDQAVTD+916 02985000 AVTCAREA EQU IEDQAVTD+912 02986000 AVTFZERO EQU IEDQAVTD+908 02987000 AVTCADDR EQU IEDQAVTD+904 02988000 AVTCOREC EQU IEDQAVTD+900 02989000 @NM00052 EQU IEDQAVTD+892 02990000 AVTCPBCB EQU IEDQAVTD+888 02991000 @NM00051 EQU IEDQAVTD+880 02992000 AVTDSIOB EQU IEDQAVTD+876 02993000 @NM00050 EQU IEDQAVTD+868 02994000 AVTCPRMB EQU IEDQAVTD+864 02995000 @NM00049 EQU IEDQAVTD+856 02996000 @NM00048 EQU IEDQAVTD+844 02997000 AVTACTIB EQU IEDQAVTD+840 02998000 @NM00047 EQU IEDQAVTD+836 02999000 AVTOLTEB EQU IEDQAVTD+832 03000000 AVTOLTCH EQU AVTOLTQB+1 03001000 AVTOLTVT EQU AVTOLTQB 03002000 @NM00046 EQU AVTOPCQB+8 03003000 @NM00045 EQU AVTOPCEC+1 03004000 @NM00044 EQU AVTOPCCC 03005000 AVTOPCPO EQU AVTOPCCC 03006000 AVTOPCWA EQU AVTOPCCC 03007000 AVTOPCCH EQU AVTOPCOB+1 03008000 AVTOPCVT EQU AVTOPCOB 03009000 @NM00043 EQU AVTCKPQB+9 03010000 AVTCKPTS EQU AVTCKPQB+8 03011000 @NM00042 EQU AVTCKPEC+1 03012000 @NM00041 EQU AVTCKPCC 03013000 AVTCKPPO EQU AVTCKPCC 03014000 AVTCKPWA EQU AVTCKPCC 03015000 AVTCKPCH EQU AVTCKPTB+1 03016000 AVTCKPVT EQU AVTCKPTB 03017000 @NM00040 EQU IEDQAVTD+796 03018000 AVTBFRTB EQU IEDQAVTD+792 03019000 @NM00039 EQU IEDQAVTD+784 03020000 AVTBFREB EQU IEDQAVTD+780 03021000 AVTTIMQ EQU IEDQAVTD+776 03022000 @NM00038 EQU IEDQAVTD+772 03023000 AVTIMQPS EQU IEDQAVTD+768 03024000 AVTINOUT EQU IEDQAVTD+766 03025000 AVTREFTM EQU IEDQAVTD+764 03026000 @NM00037 EQU IEDQAVTD+752 03027000 AVTDELYB EQU IEDQAVTD+748 03028000 AVTOCQPT EQU IEDQAVTD+744 03029000 AVTTSOPT EQU IEDQAVTD+740 03030000 AVTSUPPT EQU IEDQAVTD+736 03031000 AVTCBQCB EQU IEDQAVTD+732 03032000 AVTMSGS EQU IEDQAVTD+729 03033000 @NM00036 EQU AVTSYSER 03034000 @NM00035 EQU AVTSYSER 03035000 @NM00034 EQU AVTSYSER 03036000 @NM00033 EQU AVTSYSER 03037000 @NM00032 EQU AVTSYSER 03038000 @NM00031 EQU AVTSYSER 03039000 AVTCMAXN EQU AVTSYSER 03040000 AVTCMINN EQU AVTSYSER 03041000 AVT2260L EQU IEDQAVTD+724 03042000 AVTABEPL EQU AVTADBUF 03043000 AVTHFF EQU AVTCLRHI+2 03044000 @NM00030 EQU AVTCLRHI 03045000 AVTCCLNK EQU AVTCRELE+5 03046000 AVTDELAD EQU IEDQAVTD+704 03047000 AVTDELEM EQU IEDQAVTD+700 03048000 AVTBSX EQU AVTCKLNK 03049000 AVTOPETR EQU AVTHG01 03050000 @NM00029 EQU AVTCKBYT 03051000 AVTCKONQ EQU AVTCKBYT 03052000 @NM00028 EQU AVTCKBYT 03053000 @NM00027 EQU AVTCKBYT 03054000 @NM00026 EQU AVTCKBYT 03055000 @NM00025 EQU AVTCKBYT 03056000 @NM00024 EQU AVTCKBYT 03057000 @NM00023 EQU AVTCKBYT 03058000 AVTOPERT EQU IEDQAVTD+690 03059000 AVTOPXCL EQU IEDQAVTD+688 03060000 AVTOPERL EQU IEDQAVTD+687 03061000 @NM00022 EQU IEDQAVTD+686 03062000 AVTCKTIM EQU IEDQAVTD+684 03063000 AVTCKELV EQU IEDQAVTD+682 03064000 AVTCPRCD EQU IEDQAVTD+681 03065000 AVTWARMN EQU AVTCKELF 03066000 AVTCRTLN EQU AVTCKELF 03067000 AVTCPIPN EQU AVTCKELF 03068000 AVTCCLCN EQU AVTCKELF 03069000 AVTCINCN EQU AVTCKELF 03070000 @NM00021 EQU AVTCKELF 03071000 AVTNQBCK EQU AVTCKELF 03072000 AVTCKQAD EQU IEDQAVTD+677 03073000 AVTSCBSZ EQU IEDQAVTD+676 03074000 @NM00020 EQU IEDQAVTD+672 03075000 AVTCKELE EQU IEDQAVTD+668 03076000 @NM00019 EQU AVTCKPEL+8 03077000 AVTCKRLK EQU AVTCKPEL+5 03078000 AVTCKRPR EQU AVTCKPEL+4 03079000 AVTCKRMQ EQU AVTCKRMV+1 03080000 AVTCKRKY EQU AVTCKRMV 03081000 AVTHK EQU IEDQAVTD+648 03082000 AVTHI EQU IEDQAVTD+644 03083000 AVTIOT EQU IEDQAVTD+640 03084000 AVTNX EQU IEDQAVTD+636 03085000 AVTTONE EQU IEDQAVTD+632 03086000 AVTA3TL EQU IEDQAVTD+628 03087000 AVTDMECB EQU IEDQAVTD+624 03088000 AVTABEND EQU IEDQAVTD+618 03089000 AVTPLCBN EQU IEDQAVTD+616 03090000 @NM00018 EQU AVTSAVTP+1 03091000 @NM00017 EQU AVTSAVTF 03092000 AVTSNA EQU AVTSAVTF 03093000 AVTONSNA EQU AVTSAVTF 03094000 @NM00016 EQU IEDQAVTD+608 03095000 AVTCMBSS EQU IEDQAVTD+604 03096000 AVTRCV EQU IEDQAVTD+600 03097000 AVTSEND EQU IEDQAVTD+596 03098000 AVTCSCH EQU IEDQAVTD+592 03099000 AVTQ1 EQU IEDQAVTD+588 03100000 AVTE7 EQU IEDQAVTD+584 03101000 AVTHB EQU IEDQAVTD+580 03102000 AVTR1 EQU IEDQAVTD+576 03103000 AVTBZ EQU IEDQAVTD+572 03104000 AVTEZ EQU IEDQAVTD+568 03105000 AVTEC EQU IEDQAVTD+564 03106000 AVTEW EQU IEDQAVTD+560 03107000 AVTNDIAL EQU AVTSCOPT 03108000 AVTN2741 EQU AVTSCOPT 03109000 AVTCONCO EQU AVTSCOPT 03110000 AVTCONC EQU AVTSCOPT 03111000 AVTCMBUF EQU AVTSCOPT 03112000 AVTAPDMP EQU AVTSCOPT 03113000 @NM00015 EQU AVTSCOPT 03114000 AVTHA EQU AVTDISP 03115000 AVTEA EQU IEDQAVTD+548 03116000 AVTAX EQU IEDQAVTD+544 03117000 AVTA3 EQU IEDQAVTD+540 03118000 AVTGD EQU IEDQAVTD+536 03119000 AVTAL EQU IEDQAVTD+532 03120000 AVTOLTST EQU AVTHG02 03121000 AVTE8 EQU IEDQAVTD+524 03122000 AVTUI EQU IEDQAVTD+520 03123000 AVTCOMPT EQU IEDQAVTD+516 03124000 AVTCRSRF EQU IEDQAVTD+512 03125000 @NM00014 EQU IEDQAVTD+508 03126000 AVTKA02 EQU IEDQAVTD+504 03127000 AVTOPTPT EQU IEDQAVTD+500 03128000 AVTPCBPT EQU IEDQAVTD+496 03129000 @NM00013 EQU AVTECB1 03130000 AVTCOMP EQU AVTECB1 03131000 @NM00012 EQU AVTECB1 03132000 AVTOPECA EQU IEDQAVTD+488 03133000 AVTOLECA EQU IEDQAVTD+484 03134000 AVTCKECA EQU IEDQAVTD+480 03135000 AVTCWECA EQU IEDQAVTD+476 03136000 AVTCWTCB EQU IEDQAVTD+472 03137000 AVTOLTCB EQU IEDQAVTD+468 03138000 AVTOCTCB EQU IEDQAVTD+464 03139000 AVTCKTCB EQU IEDQAVTD+460 03140000 AVTAS EQU IEDQAVTD+456 03141000 AVTNOLBF EQU IEDQAVTD+454 03142000 AVTNCKPR EQU IEDQAVTD+453 03143000 AVTCIB EQU IEDQAVTD+452 03144000 AVTSPLPT EQU IEDQAVTD+448 03145000 AVTMVBFR EQU IEDQAVTD+444 03146000 AVTSBTA EQU IEDQAVTD+440 03147000 AVTRARTN EQU IEDQAVTD+436 03148000 AVTBSCAN EQU IEDQAVTD+432 03149000 AVTRDYA EQU IEDQAVTD+428 03150000 AVTDISTR EQU IEDQAVTD+420 03151000 AVTPARM3 EQU IEDQAVTD+416 03152000 @NM00011 EQU AVTPKF 03153000 @NM00010 EQU AVTPKF 03154000 @NM00009 EQU AVTPKF 03155000 AVTFTCHF EQU AVTPKF 03156000 @NM00008 EQU AVTPKF 03157000 @NM00007 EQU AVTPKF 03158000 @NM00006 EQU AVTPKF 03159000 @NM00005 EQU AVTPKF 03160000 AVTPARM EQU IEDQAVTD+408 03161000 AVTEXS2A EQU IEDQAVTD+402 03162000 AVTEXA2S EQU IEDQAVTD+396 03163000 AVTOCGET EQU IEDQAVTD+392 03164000 AVTCKAVT EQU @NM00003+1 03165000 @NM00004 EQU AVTCKFLG 03166000 @NM00002 EQU IEDQAVTD+384 03167000 AVTREADD EQU IEDQAVTD+380 03168000 AVTREADY EQU IEDQAVTD+376 03169000 AVTRACE EQU IEDQAVTD+372 03170000 AVTTCB EQU IEDQAVTD+368 03171000 AVTPASWD EQU IEDQAVTD+360 03172000 AVTCTLCH EQU IEDQAVTD+352 03173000 AVTDOUBL EQU IEDQAVTD+344 03174000 AVTDOUBX EQU IEDQAVTD+336 03175000 AVTDPARM EQU IEDQAVTD+332 03176000 AVTCSTCS EQU IEDQAVTD+328 03177000 AVTDLQ EQU AVTSAVEX+32 03178000 @NM00001 EQU AVTSAVEX 03179000 AVTSAVE4 EQU IEDQAVTD+216 03180000 AVTSAVE3 EQU IEDQAVTD+144 03181000 AVTSAVE2 EQU IEDQAVTD+72 03182000 AVTSAVE1 EQU IEDQAVTD 03183000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03184000 @RF00402 EQU @RC00394 03185000 @RF00401 EQU @RC00394 03186000 @RC00422 EQU @RC00420 03187000 @RC00452 EQU @RC00438 03188000 @RC00440 EQU @RC00438 03189000 @RF00474 EQU @RC00470 03190000 @RF00473 EQU @RC00470 03191000 @RF00479 EQU @RC00470 03192000 @RT00495 EQU @RC00489 03193000 @RT00493 EQU @RC00489 03194000 @RC00491 EQU @RC00489 03195000 @RF00546 EQU @RC00543 03196000 @RF00545 EQU @RC00543 03197000 @RF00633 EQU @EL00004 03198000 @RC00442 EQU @RC00440 03199000 @RF00447 EQU @RC00442 03200000 @ENDDATA EQU * 03201000 END IGC0610D,(C'PLS0432',0701,77144) 03202000