TITLE 'IGCV910D, 3705 START/STOP TERMINAL LOAD MODULE 1 *00001000 ' 00002000 IGCV910D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 USING *,RBASE EST. ADDRESSABILITY 00005000 LR RBASE,RLINK EST. MODULE BASE 00006000 * /* 00007000 IGCV910D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * 02S0352 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00012000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00013000 * /* */ 00014000 * /*****************************************************************/ 00015000 * 02S0352 00016000 * 03S0352 00017000 * /*****************************************************************/ 00018000 * /* */ 00019000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00020000 * /* */ 00021000 * /*****************************************************************/ 00022000 * 03S0352 00023000 * ROPCAVT=RPARM; /* EST. ADDRESSABILITY FOR OP 00024000 * CNTL AVT */ 00025000 LR ROPCAVT,RPARM 03S0352 00026000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00027000 * TCAM ADDRESS VECTOR TABLE */ 00028000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0353 00029000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00030000 * OPERATOR CONTROL ELEMENT */ 00031000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0354 00032000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00033000 * REGISTER WITH THE POINTER TO 00034000 * THE OPERATOR CONTROL SAVE AREA*/ 00035000 LA RSAVE,OPCSAVE(,ROPCAVT) 03S0355 00036000 * RTRM=SAVEDTRM; /* SET TERMINAL ENTRY ADDRESS */ 00037000 L RTRM,SAVEDTRM(,ROPCE) 03S0356 00038000 * RTRM=RTRM-LENGTH(IEDNTRM); /* ES. ADDRESSABILITY */ 00039000 SH RTRM,@CH00610 03S0357 00040000 * SWITCHES=''B; /* INTIALIZE EXITS SWITCH 03S0358 00041000 * @YM06075*/ 00042000 LA @09,147 03S0358 00043000 ALR @09,ROPCAVT 03S0358 00044000 MVI SWITCHES(@09),X'00' 03S0358 00045000 * IF TRMTYPE=TRMCLUST THEN /* CLUSTER? */ 00046000 CLI TRMTYPE(RTRM),X'40' 02S0359 00047000 BNE @RF00359 02S0359 00048000 * DO; /* YES */ 00049000 * ROPCE->OPREPRI=PRIMEDFG; /* PRIORITY TO INTERFACE(VA) */ 00050000 MVI OPREPRI(ROPCE),X'DF' 02S0361 00051000 * ROPCE->OPREFLG1=OPRVAVF; /* VA FLAG ROUTER */ 00052000 MVI OPREFLG1(ROPCE),X'0B' 02S0362 00053000 * EXITTIME=ON; /* SET EXIT INDICATOR */ 00054000 OI EXITTIME(@09),B'10000000' 02S0363 00055000 * OPCMODID=IGCVA; /* XCTL NEXT TO IGCVA10D */ 00056000 MVC OPCMODID(2,ROPCAVT),@CC01593 02S0364 00057000 * END; /* READY TO EXIT */ 00058000 * ELSE /* RESTART OR INITIAL */ 00059000 * DO; /* ENTRY */ 00060000 B @RC00359 02S0366 00061000 @RF00359 DS 0H 02S0367 00062000 * IF OPCRSTRT=ON THEN /* RESTART? */ 00063000 TM OPCRSTRT(ROPCAVT),B'00100000' 02S0367 00064000 BNO @RF00367 02S0367 00065000 * CALL EXITVF; /* READY TO EXIT TO VF */ 00066000 BAL @14,EXITVF 02S0368 00067000 * ELSE /* INITIAL ENTRY */ 00068000 * DO; /* YES */ 00069000 B @RC00367 02S0369 00070000 @RF00367 DS 0H 02S0370 00071000 * 03S0370 00072000 * /*********************************************************/ 00073000 * /* */ 00074000 * /* PROCESS.VERIFY: THIS SUBROUTINE VERIFIES THE TYPE OF */ 00075000 * /* RESOURCE IS VALID. */ 00076000 * /* */ 00077000 * /*********************************************************/ 00078000 * 03S0370 00079000 * DO; 03S0370 00080000 * OCUNIT=INVALTIC; /* SET INVALID TIC */ 00081000 MVC OCUNIT(4,ROPCE),@CF01150 03S0371 00082000 * OCPARM=RETCODE4; /* RETURN CODE */ 00083000 MVC OCPARM(2,ROPCE),@CH00331 03S0372 00084000 * RZERO=MSG46; /* OUTPUT ONLY */ 00085000 LA RZERO,46 03S0373 00086000 * IF TRMSNA=OFF&TRMINPUT=OFF THEN/* OUTPUT ONLY? @YM06084*/ 00087000 TM TRMSNA(RTRM),B'01000010' 03S0374 00088000 BNZ @RF00374 03S0374 00089000 * CALL EXIT; /* TO NOTIFY REQUESTOR */ 00090000 BAL @14,EXIT 03S0375 00091000 * ELSE /* NOT OUTPUT ONLY */ 00092000 * DO; /* SO DETERMINE VALID RESOURCE 00093000 * TYPE */ 00094000 B @RC00374 03S0376 00095000 @RF00374 DS 0H 03S0377 00096000 * RQCB=TRMDESTQ; /* QCB ADDRESS */ 00097000 SLR RQCB,RQCB 03S0377 00098000 ICM RQCB,7,TRMDESTQ(RTRM) 03S0377 00099000 * RZERO=MSG12; /* IN TSO SESSION */ 00100000 LA RZERO,12 03S0378 00101000 * IF QCBTSSES=ON THEN/* TSO SESSION? */ 00102000 TM QCBTSSES(RQCB),B'10000000' 03S0379 00103000 BNO @RF00379 03S0379 00104000 * CALL EXIT; /* TO NOTIFY THE REQUESTOR */ 00105000 BAL @14,EXIT 03S0380 00106000 * ELSE /* NON TSO @ZM47552*/ 00107000 * IF TRMSNA=OFF THEN/* PRESNA ? @ZM47552*/ 00108000 B @RC00379 03S0381 00109000 @RF00379 TM TRMSNA(RTRM),B'00000010' 03S0381 00110000 BNZ @RF00381 03S0381 00111000 * IF OCTOTE=OFF THEN/* TOTE REQ? */ 00112000 TM OCTOTE(ROPCE),B'01000000' 03S0382 00113000 BNZ @RF00382 03S0382 00114000 * DO; /* NO */ 00115000 * RZERO=MSG88;/* DIAL - CAN'T VARY */ 00116000 LA RZERO,88 03S0384 00117000 * IF TRMDIAL=ON THEN/* DIAL? */ 00118000 TM TRMDIAL(RTRM),B'00001000' 03S0385 00119000 BNO @RF00385 03S0385 00120000 * CALL EXIT;/* GET READY TO EXIT */ 00121000 BAL @14,EXIT 03S0386 00122000 * ELSE /* NOT DIAL */ 00123000 * DO; /* TOTE THEN DO */ 00124000 B @RC00385 03S0387 00125000 @RF00385 DS 0H 03S0388 00126000 * RZERO=MSG49;/* TOTE OWN */ 00127000 LA RZERO,49 03S0388 00128000 * IF TRMSTOTE=ON THEN/* TOTE OWNERSHIP? */ 00129000 TM TRMSTOTE(RTRM),B'00000001' 03S0389 00130000 BNO @RF00389 03S0389 00131000 * CALL EXIT;/* GET READY TO EXIT */ 00132000 BAL @14,EXIT 03S0390 00133000 * ELSE 03S0391 00134000 * ; /* TOTE DOES NOT OWN */ 00135000 @RF00389 DS 0H 03S0392 00136000 * END; /* PROCESSED TOTE REQUEST */ 00137000 * END; 03S0393 00138000 * ELSE 03S0394 00139000 * ; /* TOTE */ 00140000 @RF00382 DS 0H 03S0395 00141000 * ELSE 03S0395 00142000 * ; /* SNA TERM @ZM47552*/ 00143000 @RF00381 DS 0H 03S0396 00144000 * END; 03S0396 00145000 @RC00381 DS 0H 03S0396 00146000 @RC00379 DS 0H 03S0397 00147000 * END; 03S0397 00148000 @RC00374 DS 0H 03S0398 00149000 * IF EXITTIME=OFF THEN /* VALID RESOURCE TYPE? */ 00150000 TM EXITTIME+147(ROPCAVT),B'10000000' 02S0398 00151000 BNZ @RF00398 02S0398 00152000 * DO; /* YES */ 00153000 * OPCFLAG1=''B; /* INITIALIZE THE MID MSG 02S0400 00154000 * INDICATOR */ 00155000 MVI OPCFLAG1(ROPCAVT),X'00' 02S0400 00156000 * 03S0401 00157000 * /*****************************************************/ 00158000 * /* */ 00159000 * /* PROCESS.TESTTYPE: THIS SEGMENT DETERMINES THE TYPE*/ 00160000 * /* OF RESOURCE IN THE REQUEST. */ 00161000 * /* */ 00162000 * /*****************************************************/ 00163000 * 03S0401 00164000 * DO; 03S0401 00165000 * IF TRMSNA=ON&TRMTYPE=TRMPUNT THEN/* SNA AND A PU? */ 00166000 TM TRMSNA(RTRM),B'00000010' 03S0402 00167000 BNO @RF00402 03S0402 00168000 CLI TRMTYPE(RTRM),X'18' 03S0402 00169000 BNE @RF00402 03S0402 00170000 * 04S0403 00171000 * /*************************************************/ 00172000 * /* */ 00173000 * /* PROCESS.TESTTYPE.PU: THIS SEGMENT PROCESSES A */ 00174000 * /* VARY FOR PU. */ 00175000 * /* */ 00176000 * /*************************************************/ 00177000 * 04S0403 00178000 * DO; 04S0403 00179000 * IF OCSWITCH=OCOFTPEM|OCSWITCH=OCOFTPBM THEN/* 00180000 * MIDMSG STOP? */ 00181000 CLI OCSWITCH(ROPCE),X'25' 04S0404 00182000 BE @RT00404 04S0404 00183000 CLI OCSWITCH(ROPCE),X'26' 04S0404 00184000 BNE @RF00404 04S0404 00185000 @RT00404 DS 0H 04S0405 00186000 * DO; /* YES */ 00187000 * OPCFLAG1=MIDMSG;/* SAVE MIDMSG JUST IN CASE*/ 00188000 MVI OPCFLAG1(ROPCAVT),X'20' 04S0406 00189000 * OCSWITCH=OCSWITCH&MIDMSGMK;/* MAP */ 00190000 NI OCSWITCH(ROPCE),X'DF' 04S0407 00191000 * END; 04S0408 00192000 * ELSE 04S0409 00193000 * ; /* LEAVE AS INITIALIZED */ 00194000 @RF00404 DS 0H 04S0410 00195000 * RZERO=ZEROS; /* RESET ALL INDICATORS */ 00196000 SLR RZERO,RZERO 04S0410 00197000 * OCALSTAT=''B; 04S0411 00198000 MVI OCALSTAT(ROPCE),X'00' 04S0411 00199000 * ERREXIT=OFF; 04S0412 00200000 NI ERREXIT+147(ROPCAVT),B'10111111' 04S0412 00201000 * IF TRMSUBST^=ZEROS THEN/* SUBSTRUCTURES? */ 00202000 SLR @09,@09 04S0413 00203000 ICM @09,3,TRMSUBST(RTRM) 04S0413 00204000 LTR @09,@09 04S0413 00205000 BZ @RF00413 04S0413 00206000 * DO; /* YES */ 00207000 * RPARM=TRMSUBST;/* SETUP INTERFACE TO GETTRM*/ 00208000 LR RPARM,@09 04S0415 00209000 * CALL GETTRM;/* GET TRM ENTRY */ 00210000 BAL @14,GETTRM 04S0416 00211000 * DO UNTIL(TRMTYPE=TRMPUNT|ERREXIT=ON); 04S0417 00212000 @DL00417 DS 0H 04S0418 00213000 * 05S0418 00214000 * /*****************************************/ 00215000 * /* */ 00216000 * /* PROCESS.TESTTYPE.PU.VARYLUPU: THIS */ 00217000 * /* SEGMENT DETERMINES BASED ON REQUEST */ 00218000 * /* TYPE WHICH SEGMENT SHOULD GET CONTROL.*/ 00219000 * /* */ 00220000 * /*****************************************/ 00221000 * 05S0418 00222000 * DO; 05S0418 00223000 * IF OCSWITCH=OCONTPE THEN/* ENTERING? */ 00224000 CLI OCSWITCH(ROPCE),X'0A' 05S0419 00225000 BNE @RF00419 05S0419 00226000 * DO; /* PROCESS TO ENTER */ 00227000 * 06S0421 00228000 * /***********************************/ 00229000 * /* */ 00230000 * /* PROCESS.TESTTYPE.PU.VARYLUPU.ONT*/ 00231000 * /* PELU: THIS SEGMENT SETS LOGON */ 00232000 * /* ARE ALLOWED INDICATOR. */ 00233000 * /* */ 00234000 * /***********************************/ 00235000 * 06S0421 00236000 * DO; 06S0421 00237000 * IF TRMLULOG=ON THEN/* CAPABLE OF 00238000 * LOGON */ 00239000 TM TRMLULOG(RTRM),B'00000001' 06S0422 00240000 BNO @RF00422 06S0422 00241000 * RZERO=MSG19;/* ALREADY DONE */ 00242000 LA RZERO,19 06S0423 00243000 * ELSE/* NO */ 00244000 * CALL SETLOGON;/* SET CAPABLE OF 00245000 * LOGON */ 00246000 B @RC00422 06S0424 00247000 @RF00422 BAL @14,SETLOGON 06S0424 00248000 * END; 06S0425 00249000 @RC00422 DS 0H 06S0426 00250000 * IF OCTOTE=ON THEN/* TOTE? */ 00251000 TM OCTOTE(ROPCE),B'01000000' 05S0426 00252000 BNO @RF00426 05S0426 00253000 * TRMSTOTE=OFF;/* RESET TOTE */ 00254000 NI TRMSTOTE(RTRM),B'11111110' 05S0427 00255000 * ELSE 05S0428 00256000 * ;/* NOT TOTE */ 00257000 @RF00426 DS 0H 05S0429 00258000 * END;/* PROCESSED ONTPE */ 00259000 * ELSE /* DETERMINE TYPE */ 00260000 * DO; /* ONTPB REQUEST? */ 00261000 B @RC00419 05S0430 00262000 @RF00419 DS 0H 05S0431 00263000 * IF OCSWITCH=OCONTPB THEN/* BOTH 00264000 * ALLOWED? */ 00265000 CLI OCSWITCH(ROPCE),X'0B' 05S0431 00266000 BNE @RF00431 05S0431 00267000 * DO;/* YES */ 00268000 * 06S0433 00269000 * /********************************/ 00270000 * /* */ 00271000 * /* PROCESS.TESTTYPE.PU.VARYLUPU.*/ 00272000 * /* ONTPBLU: THIS SEGMENT */ 00273000 * /* INTIATES A RELEASE OF THE */ 00274000 * /* QUEUE IF NECESSARY AND ALLOWS*/ 00275000 * /* LOGONS. */ 00276000 * /* */ 00277000 * /********************************/ 00278000 * 06S0433 00279000 * DO; 06S0433 00280000 * IF TRMLULOG=ON&TRMHELDN=OFF THEN 00281000 TM TRMLULOG(RTRM),B'00000001' 06S0434 00282000 BNO @RF00434 06S0434 00283000 TM TRMHELDN(RTRM),B'00000100' 06S0434 00284000 BNZ @RF00434 06S0434 00285000 * /* CAPABLE OF LOGON OR HELD */ 00286000 * RZERO=MSG19;/* YES, AND NOT 00287000 * HELD */ 00288000 LA RZERO,19 06S0435 00289000 * ELSE/* STILL CAPABLE OF LOGON */ 00290000 * DO;/* SO */ 00291000 B @RC00434 06S0436 00292000 @RF00434 DS 0H 06S0437 00293000 * CALL SETLOGON;/* SET */ 00294000 BAL @14,SETLOGON 06S0437 00295000 * IF TRMRSACT=ON&TRMHELDN=ON THEN 00296000 TM TRMRSACT(RTRM),B'10000000' 06S0438 00297000 BNO @RF00438 06S0438 00298000 TM TRMHELDN(RTRM),B'00000100' 06S0438 00299000 BNO @RF00438 06S0438 00300000 * /* ACTLU'D AND HELD? */ 00301000 * CALL BUILDREL;/* YES, 06S0439 00302000 * REQUEST A RELEASE */ 00303000 BAL @14,BUILDREL 06S0439 00304000 * ELSE/* NOT ACTLU'D OR HELD */ 00305000 * DO;/* SO */ 00306000 B @RC00438 06S0440 00307000 @RF00438 DS 0H 06S0441 00308000 * TRMHELDN=OFF;/* RESET HELD */ 00309000 NI TRMHELDN(RTRM),B'11111011' 06S0441 00310000 * QCBTRMHO=OFF;/* STATE */ 00311000 NI QCBTRMHO(RQCB),B'10111111' 06S0442 00312000 * END; 06S0443 00313000 * END; 06S0444 00314000 @RC00438 DS 0H 06S0445 00315000 * END; 06S0445 00316000 @RC00434 DS 0H 06S0446 00317000 * IF OCTOTE=ON THEN/* TOTE REQ? */ 00318000 TM OCTOTE(ROPCE),B'01000000' 05S0446 00319000 BNO @RF00446 05S0446 00320000 * TRMSTOTE=OFF;/* RESET TOTE 00321000 * OWNERSHIP FLAG */ 00322000 NI TRMSTOTE(RTRM),B'11111110' 05S0447 00323000 * ELSE 05S0448 00324000 * ;/* NOT TOTE */ 00325000 @RF00446 DS 0H 05S0449 00326000 * END;/* PERFORM ONTPB FUNCTION */ 00327000 * ELSE/* ... TYPE? ... */ 00328000 * DO;/* PROCESS THE OTHER TYPE WHEN 00329000 * FOUND */ 00330000 B @RC00431 05S0450 00331000 @RF00431 DS 0H 05S0451 00332000 * IF OCSWITCH=OCOFFTPE THEN/* STOP 00333000 * ENTERING */ 00334000 CLI OCSWITCH(ROPCE),X'05' 05S0451 00335000 BNE @RF00451 05S0451 00336000 * CALL OFFTPELU;/* YES */ 00337000 BAL @14,OFFTPELU 05S0452 00338000 * ELSE/* ... TYPE? ... */ 00339000 * IF OCSWITCH=OCOFFTPB THEN/* 00340000 * STOP BOTH */ 00341000 B @RC00451 05S0453 00342000 @RF00451 CLI OCSWITCH(ROPCE),X'06' 05S0453 00343000 BNE @RF00453 05S0453 00344000 * 06S0454 00345000 * /******************************/ 00346000 * /* */ 00347000 * /* PROCESS.TESTTYPE.PU.VARYLUP*/ 00348000 * /* U.OFFTPBLU: THIS SEGMENT */ 00349000 * /* INTIATES HOLD OF THE LU'S */ 00350000 * /* QUEUE AND SET NO LOGON */ 00351000 * /* POSSIBLE AFTER LOGGING OFF.*/ 00352000 * /* */ 00353000 * /******************************/ 00354000 * 06S0454 00355000 * DO; 06S0454 00356000 * IF AVTAS^=ZEROS THEN/* IEDQAS 00357000 * IN SYSTEM? */ 00358000 ICM @09,15,AVTAS(RAVT) 06S0455 00359000 BZ @RF00455 06S0455 00360000 * DO;/* YES */ 00361000 * RQCB=TRMDESTQ;/* QCB 06S0457 00362000 * ADDRESS */ 00363000 SLR RQCB,RQCB 06S0457 00364000 ICM RQCB,7,TRMDESTQ(RTRM) 06S0457 00365000 * IF QCBREUS=OFF&QCBNREUS=OFF& 00366000 * OCTOTE=OFF THEN 06S0458 00367000 TM QCBREUS(RQCB),B'00110000' 06S0458 00368000 BNZ @RF00458 06S0458 00369000 TM OCTOTE(ROPCE),B'01000000' 06S0458 00370000 BNZ @RF00458 06S0458 00371000 * DO;/* DISK QUEUEING OR 00372000 * TOTE .... NO .... */ 00373000 * CALL OFFTPELU;/* CALL 00374000 * ENTERING @YM07729*/ 00375000 BAL @14,OFFTPELU 06S0460 00376000 * END; 06S0461 00377000 * ELSE/* DISK QUEUEING / TOTE 00378000 * FALL THRU */ 00379000 * DO;/* YES,CONTINUE */ 00380000 B @RC00458 06S0462 00381000 @RF00458 DS 0H 06S0463 00382000 * IF TRMHELDN=ON THEN/* 00383000 * HELD? */ 00384000 TM TRMHELDN(RTRM),B'00000100' 06S0463 00385000 BNO @RF00463 06S0463 00386000 * CALL OFFTPELU;/* YES, 00387000 * PERFORM VARYIE */ 00388000 BAL @14,OFFTPELU 06S0464 00389000 * ELSE/* NOT HELD */ 00390000 * DO;/* YES */ 00391000 B @RC00463 06S0465 00392000 @RF00463 DS 0H 06S0466 00393000 * TRMHELDN=ON;/* SET */ 00394000 OI TRMHELDN(RTRM),B'00000100' 06S0466 00395000 * CALL BUILDREL;/* SEND 00396000 * REQUEST TO REMOVE QCB FROM 00397000 * TIME DELAY QUEUE FOR THE 06S0467 00398000 * RESOURSE @ZM46691*/ 00399000 BAL @14,BUILDREL 06S0467 00400000 * QCBTRMHO=ON;/* HELD 00401000 * STATE */ 00402000 OI QCBTRMHO(RQCB),B'01000000' 06S0468 00403000 * CALL SETLOGOF;/* RESET 00404000 * LOGON CAPABILITY */ 00405000 BAL @14,SETLOGOF 06S0469 00406000 * END; 06S0470 00407000 * END; 06S0471 00408000 * END; 06S0472 00409000 * ELSE/* QAS IS NOT IN SYSTEM */ 00410000 * DO;/* SO */ 00411000 B @RC00455 06S0473 00412000 @RF00455 DS 0H 06S0474 00413000 * CALL OFFTPELU;/* CALL 06S0474 00414000 * ENTERING @YM07729*/ 00415000 BAL @14,OFFTPELU 06S0474 00416000 * END; 06S0475 00417000 * END; 06S0476 00418000 * ELSE/* INVALID */ 00419000 * DO;/* REJECT */ 00420000 B @RC00453 05S0477 00421000 @RF00453 DS 0H 05S0478 00422000 * RZERO=MSG18;/* SETUP MSG 00423000 * NUMBER */ 00424000 LA RZERO,18 05S0478 00425000 * CALL EXIT;/* GET READY TO 00426000 * EXIT */ 00427000 BAL @14,EXIT 05S0479 00428000 * END; 05S0480 00429000 * IF OCTOTE=ON THEN/* TOTE? */ 00430000 @RC00453 DS 0H 05S0481 00431000 @RC00451 TM OCTOTE(ROPCE),B'01000000' 05S0481 00432000 BNO @RF00481 05S0481 00433000 * TRMSTOTE=ON;/* SET TOTE 05S0482 00434000 * OWNERSHIP */ 00435000 OI TRMSTOTE(RTRM),B'00000001' 05S0482 00436000 * ELSE 05S0483 00437000 * ;/* NOT TOTE */ 00438000 @RF00481 DS 0H 05S0484 00439000 * END;/* COMPLETED REQUESTED 05S0484 00440000 * FUNCTION */ 00441000 * END;/* REQ TYPE ESTABLISHED */ 00442000 @RC00431 DS 0H 05S0486 00443000 * END; 05S0486 00444000 @RC00419 DS 0H 05S0487 00445000 * IF RZERO^=ZEROS&(OCSOME=OFF&OCNONE=OFF) 00446000 * THEN 04S0487 00447000 * 04S0487 00448000 LTR RZERO,RZERO 04S0487 00449000 BZ @RF00487 04S0487 00450000 TM OCSOME(ROPCE),B'00000011' 04S0487 00451000 BNZ @RF00487 04S0487 00452000 * /***************************************/ 00453000 * /* */ 00454000 * /* MSG NUM AND STATE IS RESET @YM06144*/ 00455000 * /* */ 00456000 * /***************************************/ 00457000 * 04S0488 00458000 * OCNONE=ON;/* INDICATE NONE WERE VARIED */ 00459000 OI OCNONE(ROPCE),B'00000001' 04S0488 00460000 * ELSE /* DETERMINE THE STATUS OF VARY */ 00461000 * DO; /* ALL STATUS */ 00462000 B @RC00487 04S0489 00463000 @RF00487 DS 0H 04S0490 00464000 * IF RZERO^=ZEROS&(OCSOME=ON&OCNONE=ON) 00465000 * THEN 04S0490 00466000 * 04S0490 00467000 LTR RZERO,RZERO 04S0490 00468000 BZ @RF00490 04S0490 00469000 TM OCSOME(ROPCE),B'00000011' 04S0490 00470000 BNO @RF00490 04S0490 00471000 */* GOOD RESPONSE ALL DONE @YM06144 */ 00472000 * 04S0491 00473000 * DO; 04S0491 00474000 * OCALSTAT=CLEAR;/* MAKE ONLY ONE 00475000 * INDICATOR ON AT A TIME */ 00476000 MVI OCALSTAT(ROPCE),X'00' 04S0492 00477000 * OCSOME=ON; 04S0493 00478000 OI OCSOME(ROPCE),B'00000010' 04S0493 00479000 * END; 04S0494 00480000 * ELSE 04S0495 00481000 * DO;/* FIND OUT THE STATUS */ 00482000 B @RC00490 04S0495 00483000 @RF00490 DS 0H 04S0496 00484000 * IF RZERO=ZEROS&(OCSOME=OFF&OCNONE= 00485000 * OFF) THEN 04S0496 00486000 * 04S0496 00487000 LTR RZERO,RZERO 04S0496 00488000 BNZ @RF00496 04S0496 00489000 TM OCSOME(ROPCE),B'00000011' 04S0496 00490000 BNZ @RF00496 04S0496 00491000 * /********************************/ 00492000 * /* */ 00493000 * /* NO MSG NUMBER AND STATUS IS */ 00494000 * /* RESET @YM06144*/ 00495000 * /* */ 00496000 * /********************************/ 00497000 * 04S0497 00498000 * OCALSTAT=OCALL;/* SET ALL DONE */ 00499000 MVI OCALSTAT(ROPCE),X'03' 04S0497 00500000 * ELSE/* DETERMINE CURRENT STATE */ 00501000 * DO;/* ELIMINATED ONE STATUS */ 00502000 B @RC00496 04S0498 00503000 @RF00496 DS 0H 04S0499 00504000 * IF RZERO=ZEROS&(OCSOME=OFF&OCNONE 00505000 * =ON) THEN 04S0499 00506000 * 04S0499 00507000 LTR RZERO,RZERO 04S0499 00508000 BNZ @RF00499 04S0499 00509000 TM OCNONE(ROPCE),B'00000001' 04S0499 00510000 BNO @RF00499 04S0499 00511000 TM OCSOME(ROPCE),B'00000010' 04S0499 00512000 BNZ @RF00499 04S0499 00513000 * /******************************/ 00514000 * /* */ 00515000 * /* NO MSG AND STATUS IS NONE */ 00516000 * /* @YM06144*/ 00517000 * /* */ 00518000 * /******************************/ 00519000 * 04S0500 00520000 * DO;/* YES */ 00521000 * OCNONE=OFF;/* RESET NONE 00522000 * STATUS */ 00523000 * OCSOME=ON;/* SET SOME 04S0502 00524000 * INDICATOR */ 00525000 OI OCSOME(ROPCE),B'00000010' 04S0502 00526000 NI OCNONE(ROPCE),B'11111110' 04S0502 00527000 * END;/* RESET AND SET STATUS */ 00528000 * ELSE 04S0504 00529000 * ;/* LEAVE AS IS */ 00530000 @RF00499 DS 0H 04S0505 00531000 * END;/* THE STATUS HAS BEEN 04S0505 00532000 * UPDATED */ 00533000 * END;/* GOT THE STATUS */ 00534000 @RC00496 DS 0H 04S0507 00535000 * END; /* SOME,ALL,NONE */ 00536000 @RC00490 DS 0H 04S0508 00537000 * RPARM=TRMCOHRT;/* GET NEXT TNT INDEX */ 00538000 @RC00487 SLR RPARM,RPARM 04S0508 00539000 ICM RPARM,3,TRMCOHRT(RTRM) 04S0508 00540000 * CALL GETTRM;/* GET TRM ENTRY */ 00541000 BAL @14,GETTRM 04S0509 00542000 * RZERO=ZEROS;/* INTIALIZE FOR NEXT LU */ 00543000 SLR RZERO,RZERO 04S0510 00544000 * END; /* END OF DO UNTIL */ 00545000 @DE00417 CLI TRMTYPE(RTRM),X'18' 04S0511 00546000 BE @DC00417 04S0511 00547000 TM ERREXIT+147(ROPCAVT),B'01000000' 04S0511 00548000 BNO @DL00417 04S0511 00549000 @DC00417 DS 0H 04S0512 00550000 * IF ERREXIT=OFF THEN/* ERROR CONDITION? */ 00551000 TM ERREXIT+147(ROPCAVT),B'01000000' 04S0512 00552000 BNZ @RF00512 04S0512 00553000 * CALL EXITVF;/* NORMAL EXIT TO VF */ 00554000 BAL @14,EXITVF 04S0513 00555000 * ELSE 04S0514 00556000 * ; /* ERROR DO NO MORE */ 00557000 @RF00512 DS 0H 04S0515 00558000 * END; /* SUBSTRUCTURE PROCESSED */ 00559000 * ELSE /* NO SUBSTRUCTURES */ 00560000 * DO; /* YES */ 00561000 B @RC00413 04S0516 00562000 @RF00413 DS 0H 04S0517 00563000 * IF OCTOTE=ON THEN/* TOTE? */ 00564000 TM OCTOTE(ROPCE),B'01000000' 04S0517 00565000 BNO @RF00517 04S0517 00566000 * DO; /* YES */ 00567000 * OCPARM=RETCODE8;/* EIGHT AS RETURN CODE*/ 00568000 MVC OCPARM(2,ROPCE),@CH00045 04S0519 00569000 * CALL EXIT;/* GET READY TO EXIT */ 00570000 BAL @14,EXIT 04S0520 00571000 * END; /* NOW */ 00572000 * ELSE /* NOT TOTE */ 00573000 * DO; /* SO */ 00574000 B @RC00517 04S0522 00575000 @RF00517 DS 0H 04S0523 00576000 * RZERO=MSG561;/* INVALID COMMAND */ 00577000 LA RZERO,561 04S0523 00578000 * CALL EXIT;/* GET READY TO EXIT */ 00579000 BAL @14,EXIT 04S0524 00580000 * END; /* TO NOTIFY THE USER */ 00581000 * END; /* READY TO WARN THE USER */ 00582000 * END; 04S0527 00583000 * ELSE /* EITHER A LU OR PRESNA DEVICE */ 00584000 * 04S0528 00585000 * /*************************************************/ 00586000 * /* */ 00587000 * /* PROCESS.TESTTYPE.SINGLTRM: THIS SEGMENT */ 00588000 * /* PROCESS THE START/STOP TERMINAL OPERATOR */ 00589000 * /* CONTROL COMMAND AGAINST A PRESNA DEVICE OR A */ 00590000 * /* LU. */ 00591000 * /* */ 00592000 * /*************************************************/ 00593000 * 04S0528 00594000 * DO; 04S0528 00595000 B @RC00402 04S0528 00596000 @RF00402 DS 0H 04S0529 00597000 * IF OCSWITCH=OCOFTPEM|OCSWITCH=OCOFTPBM THEN/* 00598000 * MIDMSG STOP */ 00599000 CLI OCSWITCH(ROPCE),X'25' 04S0529 00600000 BE @RT00529 04S0529 00601000 CLI OCSWITCH(ROPCE),X'26' 04S0529 00602000 BNE @RF00529 04S0529 00603000 @RT00529 DS 0H 04S0530 00604000 * DO; /* YES */ 00605000 * OPCFLAG1=MIDMSG;/* SET MIDMSG */ 00606000 MVI OPCFLAG1(ROPCAVT),X'20' 04S0531 00607000 * OCSWITCH=OCSWITCH&MIDMSGMK;/* TURN OFF 00608000 * MIDDLE MSG */ 00609000 NI OCSWITCH(ROPCE),X'DF' 04S0532 00610000 * END; 04S0533 00611000 * ELSE 04S0534 00612000 * ; /* LEAVE AS INITIALIZED */ 00613000 @RF00529 DS 0H 04S0535 00614000 * IF OCSWITCH=OCONTPE THEN/* ENTERING REQ? */ 00615000 CLI OCSWITCH(ROPCE),X'0A' 04S0535 00616000 BNE @RF00535 04S0535 00617000 * DO; /* YES */ 00618000 * IF TRMTYPE=TRMLUNT THEN/* LU? */ 00619000 CLI TRMTYPE(RTRM),X'30' 04S0537 00620000 BNE @RF00537 04S0537 00621000 * 05S0538 00622000 * /*****************************************/ 00623000 * /* */ 00624000 * /* PROCESS.TESTTYPE.SINGLTRM.LUONTPE: */ 00625000 * /* THIS SEGMENT PERFORMS VARY,ONTPE FOR A*/ 00626000 * /* LU..... ALLOW LOGONS. */ 00627000 * /* */ 00628000 * /*****************************************/ 00629000 * 05S0538 00630000 * DO; 05S0538 00631000 * IF TRMLULOG=ON THEN/* LOGON ALLOWED? */ 00632000 TM TRMLULOG(RTRM),B'00000001' 05S0539 00633000 BNO @RF00539 05S0539 00634000 * DO; /* YES */ 00635000 * RZERO=MSG19;/* WARN THE USER */ 00636000 LA RZERO,19 05S0541 00637000 * CALL EXIT;/* GET READY TO EXIT */ 00638000 BAL @14,EXIT 05S0542 00639000 * END;/* DONE */ 00640000 * ELSE /* LOGONS NOT POSSIBLE */ 00641000 * DO; /* NO */ 00642000 B @RC00539 05S0544 00643000 @RF00539 DS 0H 05S0545 00644000 * CALL SETLOGON;/* MARK LOGON 05S0545 00645000 * POSSIBLE */ 00646000 BAL @14,SETLOGON 05S0545 00647000 * CALL EXITVF;/* XCTL TO VF */ 00648000 BAL @14,EXITVF 05S0546 00649000 * END; 05S0547 00650000 * END; 05S0548 00651000 * ELSE /* PRESNA */ 00652000 * CALL ONTPE;/* YES, PROCESS IT */ 00653000 B @RC00537 04S0549 00654000 @RF00537 BAL @14,ONTPE 04S0549 00655000 * END; /* PROCESSED ONTPE */ 00656000 * ELSE /* NO DETERMINE REQ TYPE */ 00657000 * DO; /* WHICH TYPE */ 00658000 B @RC00535 04S0551 00659000 @RF00535 DS 0H 04S0552 00660000 * IF OCSWITCH=OCONTPB THEN/* BOTH? */ 00661000 CLI OCSWITCH(ROPCE),X'0B' 04S0552 00662000 BNE @RF00552 04S0552 00663000 * DO; /* YES */ 00664000 * IF TRMTYPE=TRMLUNT THEN/* LU? */ 00665000 CLI TRMTYPE(RTRM),X'30' 04S0554 00666000 BNE @RF00554 04S0554 00667000 * 05S0555 00668000 * /*************************************/ 00669000 * /* */ 00670000 * /* PROCESS.TESTTYPE.SINGLTRM.LUONTPB:*/ 00671000 * /* THIS SEGMENT INTIATES A RELEASE OF*/ 00672000 * /* LU'S QUE AND ALLOWS LOGONS. */ 00673000 * /* */ 00674000 * /*************************************/ 00675000 * 05S0555 00676000 * DO; 05S0555 00677000 * IF TRMLULOG=ON&TRMHELDN=OFF THEN/* 00678000 * LOGON ALLOWED AND QUE IS */ 00679000 TM TRMLULOG(RTRM),B'00000001' 05S0556 00680000 BNO @RF00556 05S0556 00681000 TM TRMHELDN(RTRM),B'00000100' 05S0556 00682000 BNZ @RF00556 05S0556 00683000 * DO;/* NOT HELD THEN */ 00684000 * RZERO=MSG19;/* MSG NUMBER */ 00685000 LA RZERO,19 05S0558 00686000 * CALL EXIT;/* GET READY TO EXIT */ 00687000 BAL @14,EXIT 05S0559 00688000 * END; 05S0560 00689000 * ELSE/* INCAPABLE OF LOGONS */ 00690000 * DO;/* SO */ 00691000 B @RC00556 05S0561 00692000 @RF00556 DS 0H 05S0562 00693000 * CALL SETLOGON;/* NOW CAPABLE OF 00694000 * LOGONS */ 00695000 BAL @14,SETLOGON 05S0562 00696000 * IF TRMRSACT=ON&TRMHELDN=ON THEN 00697000 TM TRMRSACT(RTRM),B'10000000' 05S0563 00698000 BNO @RF00563 05S0563 00699000 TM TRMHELDN(RTRM),B'00000100' 05S0563 00700000 BNO @RF00563 05S0563 00701000 * /* ACTLU'D AND QUE HELD */ 00702000 * DO;/* THEN */ 00703000 * IF AVTAS^=ZEROS THEN/* RELEASE 00704000 * IN SYSTEM? */ 00705000 ICM @09,15,AVTAS(RAVT) 05S0565 00706000 BZ @RF00565 05S0565 00707000 * DO;/* YES */ 00708000 * CALL BUILDREL;/* BUILD 05S0567 00709000 * REQUEST ELEMENT */ 00710000 BAL @14,BUILDREL 05S0567 00711000 * CALL EXITVF;/* XCTL TO VF */ 00712000 BAL @14,EXITVF 05S0568 00713000 * END; 05S0569 00714000 * ELSE/* QAS NOT IN THE SYSTEM */ 00715000 * DO;/* YES */ 00716000 B @RC00565 05S0570 00717000 @RF00565 DS 0H 05S0571 00718000 * RZERO=MSG60;/* MSG NUMBER */ 00719000 LA RZERO,60 05S0571 00720000 * CALL EXIT;/* GET READY TO 00721000 * EXIT */ 00722000 BAL @14,EXIT 05S0572 00723000 * END; 05S0573 00724000 * END; 05S0574 00725000 * ELSE/* INACTIVE */ 00726000 * DO;/* THEN */ 00727000 B @RC00563 05S0575 00728000 @RF00563 DS 0H 05S0576 00729000 * TRMHELDN=OFF;/* RESET HELD */ 00730000 NI TRMHELDN(RTRM),B'11111011' 05S0576 00731000 * QCBTRMHO=OFF;/* STATE */ 00732000 NI QCBTRMHO(RQCB),B'10111111' 05S0577 00733000 * CALL EXITVF;/* TIME TO EXIT */ 00734000 BAL @14,EXITVF 05S0578 00735000 * END; 05S0579 00736000 * END; 05S0580 00737000 * END; 05S0581 00738000 * ELSE /* PRESNA */ 00739000 * 05S0582 00740000 * /*************************************/ 00741000 * /* */ 00742000 * /* PROCESS.TESTTYPE.ONTPB: THIS */ 00743000 * /* SEGMENT PROCESSES THE VARY,ONTPB */ 00744000 * /* FOR A PRESNA DEVICE. */ 00745000 * /* */ 00746000 * /*************************************/ 00747000 * 05S0582 00748000 * DO; 05S0582 00749000 B @RC00554 05S0582 00750000 @RF00554 DS 0H 05S0583 00751000 * CALL ONTPE;/* CALL ENTERING 05S0583 00752000 * @YM07729*/ 00753000 BAL @14,ONTPE 05S0583 00754000 * IF TRMHELDN=ON THEN/* HELD? */ 00755000 TM TRMHELDN(RTRM),B'00000100' 05S0584 00756000 BNO @RF00584 05S0584 00757000 * DO;/* YES */ 00758000 * IF TRMRSACT=OFF THEN/* INACTIVE?*/ 00759000 TM TRMRSACT(RTRM),B'10000000' 05S0586 00760000 BNZ @RF00586 05S0586 00761000 * DO;/* YES */ 00762000 * IF TRMGP=ON&TRMGPACT=ON THEN/* 00763000 * CAPABLE OF GP AND */ 00764000 TM TRMGP(RTRM),B'00000100' 05S0588 00765000 BNO @RF00588 05S0588 00766000 TM TRMGPACT(RTRM),B'00001000' 05S0588 00767000 BNO @RF00588 05S0588 00768000 * DO;/* GP ACTIVE */ 00769000 * NOTALLMG=ON;/* OMIT ALL IN 00770000 * THE MSG @YM06140*/ 00771000 OI NOTALLMG(ROPCE),B'01000000' 05S0590 00772000 * EXITTIME=ON;/* SET EXIT 00773000 * INDICATORS */ 00774000 OI EXITTIME+147(ROPCAVT),B'10000000' 05S0591 00775000 * OPCMODID=IGCR0;/* XCTL TO 00776000 * RELEASE */ 00777000 MVC OPCMODID(2,ROPCAVT),@CC01591 05S0592 00778000 * END;/* READY TO GIVE R0 05S0593 00779000 * CONTROL */ 00780000 * ELSE/* NON-GP */ 00781000 * CALL BUILDREL;/* BUILD & POST 00782000 * RELEASE REQ */ 00783000 B @RC00588 05S0594 00784000 @RF00588 BAL @14,BUILDREL 05S0594 00785000 * END;/* DONE FINI WITH GP */ 00786000 * ELSE/* ACTIVE */ 00787000 * DO;/* YES */ 00788000 B @RC00586 05S0596 00789000 @RF00586 DS 0H 05S0597 00790000 * NOTALLMG=ON;/* OMIT ALL IN THE 00791000 * MSG @YM06140*/ 00792000 OI NOTALLMG(ROPCE),B'01000000' 05S0597 00793000 * EXITTIME=ON;/* SER EXIT 05S0598 00794000 * INDICATOR */ 00795000 OI EXITTIME+147(ROPCAVT),B'10000000' 05S0598 00796000 * OPCMODID=IGCR0;/* XCTL TO 00797000 * RELEASE */ 00798000 MVC OPCMODID(2,ROPCAVT),@CC01591 05S0599 00799000 * END;/* ACTIVE DONE... */ 00800000 * END;/* HELD QUE */ 00801000 * ELSE 05S0602 00802000 * ;/* NOT HELD @YM07729*/ 00803000 @RF00584 DS 0H 05S0603 00804000 * END; 05S0603 00805000 * END; /* PORCESSED ONTPB */ 00806000 * ELSE /* TYPE? */ 00807000 * DO; /* FIND OUT WHICH TYPE */ 00808000 B @RC00552 04S0605 00809000 @RF00552 DS 0H 04S0606 00810000 * IF OCSWITCH=OCOFFTPE THEN 04S0606 00811000 CLI OCSWITCH(ROPCE),X'05' 04S0606 00812000 BNE @RF00606 04S0606 00813000 * DO; /* YES */ 00814000 * IF TRMTYPE=TRMLUNT THEN/* LU? */ 00815000 CLI TRMTYPE(RTRM),X'30' 04S0608 00816000 BNE @RF00608 04S0608 00817000 * CALL LUOFFTPE;/* PROCESS IT */ 00818000 BAL @14,LUOFFTPE 04S0609 00819000 * ELSE/* PRESNA */ 00820000 * 05S0610 00821000 * /*********************************/ 00822000 * /* */ 00823000 * /* PROCESS.TESTTYPE.OFFTPE: THIS */ 00824000 * /* SEGMENT PROCESSES A */ 00825000 * /* VARY,OFFTPE COMMAND FOR A */ 00826000 * /* PRESNA DEVICE. */ 00827000 * /* */ 00828000 * /*********************************/ 00829000 * 05S0610 00830000 * DO; 05S0610 00831000 B @RC00608 05S0610 00832000 @RF00608 DS 0H 05S0611 00833000 * IF TRMRSACT=OFF THEN/* ACTIVE */ 00834000 TM TRMRSACT(RTRM),B'10000000' 05S0611 00835000 BNZ @RF00611 05S0611 00836000 * DO;/* NO */ 00837000 * IF OCTOTE=ON THEN/* TOTE */ 00838000 TM OCTOTE(ROPCE),B'01000000' 05S0613 00839000 BNO @RF00613 05S0613 00840000 * DO;/* YES */ 00841000 * TRMSTOTE=ON;/* SET TOTE 00842000 * OWNERSHIP */ 00843000 OI TRMSTOTE(RTRM),B'00000001' 05S0615 00844000 * OCPARM=RETCODE8;/* BAD 05S0616 00845000 * RETURN CODE */ 00846000 MVC OCPARM(2,ROPCE),@CH00045 05S0616 00847000 * END; 05S0617 00848000 * ELSE/* ERROR WHEN THE 05S0618 00849000 * REQUESTOR WAS NOT TOTE */ 00850000 * RZERO=MSG25;/* ALREADY 05S0618 00851000 * STOPPED */ 00852000 B @RC00613 05S0618 00853000 @RF00613 LA RZERO,25 05S0618 00854000 * CALL EXIT;/* GET READY TO EXIT*/ 00855000 @RC00613 BAL @14,EXIT 05S0619 00856000 * END;/* FINI WITH ERROR 05S0620 00857000 * CONDITION */ 00858000 * ELSE 05S0621 00859000 * ;/* ACTIVE */ 00860000 @RF00611 DS 0H 05S0622 00861000 * END; 05S0622 00862000 * END;/* PROCESSED OFFTPE */ 00863000 * ELSE /* ... TYPE ... */ 00864000 * DO; /* ...ELIMINATED ONE... */ 00865000 B @RC00606 04S0624 00866000 @RF00606 DS 0H 04S0625 00867000 * IF OCSWITCH=OCOFFTPB THEN 04S0625 00868000 CLI OCSWITCH(ROPCE),X'06' 04S0625 00869000 BNE @RF00625 04S0625 00870000 * DO;/* YES */ 00871000 * IF TRMTYPE=TRMLUNT THEN/* LU? */ 00872000 CLI TRMTYPE(RTRM),X'30' 04S0627 00873000 BNE @RF00627 04S0627 00874000 * 05S0628 00875000 * /*******************************/ 00876000 * /* */ 00877000 * /* PROCESS.TESTTYPE.SINGLTRM.LU*/ 00878000 * /* OFFTPB: THIS SEGMENT RESETS */ 00879000 * /* THE LU'S CAPABILITY TO LOGON*/ 00880000 * /* AND SET HOLD. */ 00881000 * /* */ 00882000 * /*******************************/ 00883000 * 05S0628 00884000 * DO; 05S0628 00885000 * IF AVTAS^=ZEROS THEN/* IEDQAS 00886000 * IS IN SYSTEM? */ 00887000 ICM @09,15,AVTAS(RAVT) 05S0629 00888000 BZ @RF00629 05S0629 00889000 * DO;/* YES */ 00890000 * RQCB=TRMDESTQ;/* GET QCB 00891000 * ADDRESS */ 00892000 SLR RQCB,RQCB 05S0631 00893000 ICM RQCB,7,TRMDESTQ(RTRM) 05S0631 00894000 * IF QCBREUS=OFF&QCBNREUS=OFF& 00895000 * OCTOTE=OFF THEN 05S0632 00896000 TM QCBREUS(RQCB),B'00110000' 05S0632 00897000 BNZ @RF00632 05S0632 00898000 TM OCTOTE(ROPCE),B'01000000' 05S0632 00899000 BNZ @RF00632 05S0632 00900000 * DO;/* DISK QUEUEING OR TOTE 00901000 * ....NO.... */ 00902000 * CALL LUOFFTPE;/* CALL 00903000 * ENTERING @YM07729*/ 00904000 BAL @14,LUOFFTPE 05S0634 00905000 * END; 05S0635 00906000 * ELSE/* DISK QUEUEING OR TOTE 00907000 * FALL THRU */ 00908000 * DO; 05S0636 00909000 B @RC00632 05S0636 00910000 @RF00632 DS 0H 05S0637 00911000 * IF TRMHELDN=ON THEN/* 00912000 * HELD? */ 00913000 TM TRMHELDN(RTRM),B'00000100' 05S0637 00914000 BNO @RF00637 05S0637 00915000 * CALL LUOFFTPE;/* THEN 00916000 * PERFORM VARY,OFFTPE */ 00917000 BAL @14,LUOFFTPE 05S0638 00918000 * ELSE/* NO */ 00919000 * DO;/* THEN SET HELD */ 00920000 B @RC00637 05S0639 00921000 @RF00637 DS 0H 05S0640 00922000 * TRMHELDN=ON;/* SET HELD */ 00923000 OI TRMHELDN(RTRM),B'00000100' 05S0640 00924000 * CALL BUILDREL;/* SEND 00925000 * REQUEST TO REMOVE QCB FROM 00926000 * TIME DELAY QUEUE FOR RESOURCE 00927000 * @ZM46691*/ 00928000 BAL @14,BUILDREL 05S0641 00929000 * QCBTRMHO=ON;/* STATE */ 00930000 OI QCBTRMHO(RQCB),B'01000000' 05S0642 00931000 * CALL SETLOGOF;/* RESET 00932000 * LOGON CAPABILITY */ 00933000 BAL @14,SETLOGOF 05S0643 00934000 * CALL EXITVF;/* XCTL TO 00935000 * VF */ 00936000 BAL @14,EXITVF 05S0644 00937000 * END; 05S0645 00938000 * END; 05S0646 00939000 * END; 05S0647 00940000 * ELSE/* QAS IS NOT IN SYSTEM */ 00941000 * CALL LUOFFTPE;/* CALL 05S0648 00942000 * ENTERING @YM07729*/ 00943000 B @RC00629 05S0648 00944000 @RF00629 BAL @14,LUOFFTPE 05S0648 00945000 * END; 05S0649 00946000 * ELSE/* PRESNA */ 00947000 * 05S0650 00948000 * /*******************************/ 00949000 * /* */ 00950000 * /* PROCESS.TESTTYPE.OFFTPB: */ 00951000 * /* THIS SEGMENT PROCESSES A */ 00952000 * /* VARY,OFFTPB COMMAND FOR A */ 00953000 * /* PRESNA DEVICE. */ 00954000 * /* */ 00955000 * /*******************************/ 00956000 * 05S0650 00957000 * DO; 05S0650 00958000 B @RC00627 05S0650 00959000 @RF00627 DS 0H 05S0651 00960000 * RQCB=TRMDESTQ;/* GET QCB 05S0651 00961000 * ADDRESS @OY12258*/ 00962000 SLR RQCB,RQCB 05S0651 00963000 ICM RQCB,7,TRMDESTQ(RTRM) 05S0651 00964000 * IF AVTAS^=ZEROS&/* RELEASE IN 00965000 * SYSTEM? @OY12258*/ 00966000 * (QCBREUS=ON|QCBNREUS=ON| 00967000 * OCTOTE=ON) THEN/* DISK 00968000 * QUEUES? AND NOT TOTE @OY12258*/ 00969000 ICM @09,15,AVTAS(RAVT) 05S0652 00970000 BZ @RF00652 05S0652 00971000 TM QCBREUS(RQCB),B'00110000' 05S0652 00972000 BNZ @RT00652 05S0652 00973000 TM OCTOTE(ROPCE),B'01000000' 05S0652 00974000 BNO @RF00652 05S0652 00975000 @RT00652 DS 0H 05S0653 00976000 * DO;/* RIGHT */ 00977000 * IF TRMHELDN=ON THEN/* HELD? */ 00978000 TM TRMHELDN(RTRM),B'00000100' 05S0654 00979000 BNO @RF00654 05S0654 00980000 * DO;/* YES */ 00981000 * IF TRMRSACT=OFF THEN/* 00982000 * INACTIVE? @YM06094*/ 00983000 TM TRMRSACT(RTRM),B'10000000' 05S0656 00984000 BNZ @RF00656 05S0656 00985000 * DO;/* YES @YM06094*/ 00986000 * IF OCTOTE=ON THEN/* 00987000 * TOTE? */ 00988000 TM OCTOTE(ROPCE),B'01000000' 05S0658 00989000 BNO @RF00658 05S0658 00990000 * TRMSTOTE=ON;/* , OTE 00991000 * OWNERSHIP */ 00992000 OI TRMSTOTE(RTRM),B'00000001' 05S0659 00993000 * ELSE/* NOT TOTE */ 00994000 * DO;/* SO DO */ 00995000 B @RC00658 05S0660 00996000 @RF00658 DS 0H 05S0661 00997000 * RZERO=MSG25;/* MSG 00998000 * NUMBER */ 00999000 LA RZERO,25 05S0661 01000000 * OPCMODID=IGC03;/* MSG 01001000 * MOD ID */ 01002000 MVC OPCMODID(2,ROPCAVT),@CC01599 05S0662 01003000 * NOTALLMG=ON;/* OMIT 01004000 * ALL IN THE MSG @YM06140*/ 01005000 OI NOTALLMG(ROPCE),B'01000000' 05S0663 01006000 * EXITTIME=ON;/* SET 01007000 * EXIT SWITCH */ 01008000 OI EXITTIME+147(ROPCAVT),B'10000000' 05S0664 01009000 * END;/* DONE */ 01010000 * END;/* @YM06094*/ 01011000 * ELSE 05S0667 01012000 * ;/* ACTIVE @YM06094*/ 01013000 @RF00656 DS 0H 05S0668 01014000 * END;/* READY TO NOTIFY USER 01015000 * OF ERROR */ 01016000 * ELSE/* NOT HELD */ 01017000 * DO;/* INDICATE HELD STATE */ 01018000 B @RC00654 05S0669 01019000 @RF00654 DS 0H 05S0670 01020000 * TRMHELDN=ON;/* SET HELD */ 01021000 OI TRMHELDN(RTRM),B'00000100' 05S0670 01022000 * CALL BUILDREL;/* BUILD 01023000 * REQUEST TO REMOVE QCB FROM 01024000 * TIME DELAY QUEUE FOR THE 05S0671 01025000 * RESOURCE @ZM46691*/ 01026000 BAL @14,BUILDREL 05S0671 01027000 * QCBTRMHO=ON;/* SET HELD IN 01028000 * QCB */ 01029000 OI QCBTRMHO(RQCB),B'01000000' 05S0672 01030000 * END;/* ....DONE... */ 01031000 * END; 05S0674 01032000 * ELSE/* QAS NOT IN OR CANNOT BE 01033000 * HELD @OY12258*/ 01034000 * DO;/* YES @OY12258*/ 01035000 B @RC00652 05S0675 01036000 @RF00652 DS 0H 05S0676 01037000 * IF TRMRSACT=OFF THEN/* 05S0676 01038000 * INACTIVE? @OY12258*/ 01039000 TM TRMRSACT(RTRM),B'10000000' 05S0676 01040000 BNZ @RF00676 05S0676 01041000 * DO;/* YES @OY12258*/ 01042000 * IF OCTOTE=ON THEN/* TOTE? 01043000 * @OY12258*/ 01044000 TM OCTOTE(ROPCE),B'01000000' 05S0678 01045000 BNO @RF00678 05S0678 01046000 * TRMSTOTE=ON;/* , OTE 01047000 * OWNERSHIP @OY12258*/ 01048000 OI TRMSTOTE(RTRM),B'00000001' 05S0679 01049000 * ELSE/* NOT TOTE @OY12258*/ 01050000 * DO;/* SO DO @OY12258*/ 01051000 B @RC00678 05S0680 01052000 @RF00678 DS 0H 05S0681 01053000 * RZERO=MSG25;/* MSG 05S0681 01054000 * NUMBER @OY12258*/ 01055000 LA RZERO,25 05S0681 01056000 * OPCMODID=IGC03;/* MSG 01057000 * MOD ID @OY12258*/ 01058000 MVC OPCMODID(2,ROPCAVT),@CC01599 05S0682 01059000 * NOTALLMG=ON;/* OMIT ALL 01060000 * IN THE MSG @OY12258*/ 01061000 OI NOTALLMG(ROPCE),B'01000000' 05S0683 01062000 * EXITTIME=ON;/* SET EXIT 01063000 * SWITCH @OY12258*/ 01064000 OI EXITTIME+147(ROPCAVT),B'10000000' 05S0684 01065000 * END;/* DONE @OY12258*/ 01066000 * END;/* @OY12258*/ 01067000 * ELSE 05S0687 01068000 * ;/* ACTIVE @OY12258*/ 01069000 @RF00676 DS 0H 05S0688 01070000 * END;/* READY TO NOTIFY USER 01071000 * OF ERROR @OY12258*/ 01072000 * END; 05S0689 01073000 * END;/* PROCESSED OFFTPB */ 01074000 * ELSE/* INVALID REQ TYPE */ 01075000 * DO;/* SET UP THE MSG */ 01076000 B @RC00625 04S0691 01077000 @RF00625 DS 0H 04S0692 01078000 * RZERO=MSG18;/* INVALID MSG 04S0692 01079000 * WARNING */ 01080000 LA RZERO,18 04S0692 01081000 * CALL EXIT;/* GET READY TO EXIT */ 01082000 BAL @14,EXIT 04S0693 01083000 * END;/* ERROR */ 01084000 * END;/* DETERMINED THE REQUEST TYPE */ 01085000 @RC00625 DS 0H 04S0696 01086000 * END; /* FOUND OUT THE TYPE BASED ON 01087000 * RESOURCE */ 01088000 @RC00606 DS 0H 04S0697 01089000 * END; /* OR EXIT WITH INVALID TYPE */ 01090000 @RC00552 DS 0H 04S0698 01091000 * END; 04S0698 01092000 @RC00535 DS 0H 04S0699 01093000 * END; 03S0699 01094000 @RC00402 DS 0H 03S0700 01095000 * END; /* OK TO PERFORM THE REQUEST */ 01096000 * ELSE 02S0701 01097000 * ; /* INVALID DEVICE TYPE FOR THE 01098000 * REQUEST */ 01099000 @RF00398 DS 0H 02S0702 01100000 * END; /* PROCESSED INITIAL REQ */ 01101000 * END; /* REQUEST FOR IGCV910D */ 01102000 @RC00367 DS 0H 02S0704 01103000 * IF EXITTIME=OFF THEN /* TIME TO EXIT */ 01104000 @RC00359 TM EXITTIME+147(ROPCAVT),B'10000000' 02S0704 01105000 BNZ @RF00704 02S0704 01106000 * DO; /* @OZ15629*/ 01107000 * 03S0706 01108000 * /*************************************************************/ 01109000 * /* */ 01110000 * /* PROCESS.BUILDNSL: THIS SEGMENT BUILDS A REQUEST TO */ 01111000 * /* INTERFACE WITH IEDNSL TO INITIATE STOPPING OF I/O FOR THIS*/ 01112000 * /* PRESNA RESOURCE. */ 01113000 * /* */ 01114000 * /*************************************************************/ 01115000 * 03S0706 01116000 * DO; 03S0706 01117000 * OPCWRKSP(5)=RZERO; /* SAVE REG 0 FOR THE LOOP 03S0707 01118000 * @YM06121*/ 01119000 ST RZERO,OPCWRKSP+16(,ROPCAVT) 03S0707 01120000 * RPARM=ONE; /* ONE BUFFER REQUESTED */ 01121000 LA RPARM,1 03S0708 01122000 * CALL ALLOCBUF; /* GET THE BUFFER */ 01123000 L @15,OPCGETBF(,ROPCAVT) 03S0709 01124000 BALR @14,@15 03S0709 01125000 * RNSL=RPARM; /* EST. ADDRESSABILITY */ 01126000 LR RNSL,RPARM 03S0710 01127000 * OCUNIT=RPARM; /* SAVE NSL BUFFER ADDRESS 03S0711 01128000 * @YA10019*/ 01129000 ST RPARM,OCUNIT(,ROPCE) 03S0711 01130000 * RZERO=OPCWRKSP(5); /* RESTORE @YM06121*/ 01131000 L RZERO,OPCWRKSP+16(,ROPCAVT) 03S0712 01132000 * IEDNSLD=''B; /* CLEAR */ 01133000 XC IEDNSLD(48,RNSL),IEDNSLD(RNSL) 03S0713 01134000 * NSLOPCEP=ROPCE; /* SAVE OPCE@ FOR VF */ 01135000 ST ROPCE,NSLOPCEP(,RNSL) 03S0714 01136000 * NSLTTEPT=SAVEDTRM; /* TERM ENTRY @ */ 01137000 MVC NSLTTEPT(4,RNSL),SAVEDTRM(ROPCE) 03S0715 01138000 * NSLTTCIN=OCTRMTBL; /* TNT INDEX */ 01139000 MVC NSLTTCIN(2,RNSL),OCTRMTBL(ROPCE) 03S0716 01140000 * IF OCSWITCH=OCONTPE|OCSWITCH=OCONTPB THEN/* START? */ 01141000 CLI OCSWITCH(ROPCE),X'0A' 03S0717 01142000 BE @RT00717 03S0717 01143000 CLI OCSWITCH(ROPCE),X'0B' 03S0717 01144000 BNE @RF00717 03S0717 01145000 @RT00717 DS 0H 03S0718 01146000 * NSLREQTY=NSLSTRTR; /* SET START */ 01147000 MVI NSLREQTY(RNSL),X'03' 03S0718 01148000 * ELSE /* NO,STOP */ 01149000 * NSLREQTY=NSLSTPTR; /* SET STOP */ 01150000 B @RC00717 03S0719 01151000 @RF00717 MVI NSLREQTY(RNSL),X'04' 03S0719 01152000 * IF OPCFLAG1^=CLEAR THEN /* CLEAR? */ 01153000 @RC00717 CLI OPCFLAG1(ROPCAVT),X'00' 03S0720 01154000 BE @RF00720 03S0720 01155000 * NSLREQTY=NSLSTPTR+NSLSTMSG;/* NO, SET MIDDLE OF MSG */ 01156000 MVI NSLREQTY(RNSL),X'0C' 03S0721 01157000 * ELSE 03S0722 01158000 * ; /* CLEAR, DO NO MORE */ 01159000 @RF00720 DS 0H 03S0723 01160000 * NSLPRIBK=PRIMEDFG; /* PRIORITY TO RETURN TO OP 03S0723 01161000 * CONTROL */ 01162000 MVI NSLPRIBK(RNSL),X'DF' 03S0723 01163000 * NSLFLGBK=OPRVF; /* FLAGS - ROUTER TO VF */ 01164000 MVI NSLFLGBK(RNSL),X'07' 03S0724 01165000 * RNSL->OPREQCB=SAVTSPLN; /* NSL QCB */ 01166000 L @09,AVTSAVTP(,RAVT) 03S0725 01167000 MVC OPREQCB(3,RNSL),SAVTSPLN+1(@09) 03S0725 01168000 * RNSL->OPREPRI=PRIOPCTL; /* PRIORITY */ 01169000 MVI OPREPRI(RNSL),X'DC' 03S0726 01170000 * IF OCSWITCH=OCONTPB&TRMHELDN=ON THEN/* ONTPB AND HELD? */ 01171000 CLI OCSWITCH(ROPCE),X'0B' 03S0727 01172000 BNE @RF00727 03S0727 01173000 TM TRMHELDN(RTRM),B'00000100' 03S0727 01174000 BNO @RF00727 03S0727 01175000 * NSLBUFFR=OPCWRKSP(6); /* SAVE REL BUFFER TO BE POSTED 01176000 * BY NSL */ 01177000 MVC NSLBUFFR(3,RNSL),OPCWRKSP+21(ROPCAVT) 03S0728 01178000 * ELSE 03S0729 01179000 * ; /* NOT ONTPB OR HELD */ 01180000 @RF00727 DS 0H 03S0730 01181000 * OPCAQFST=RNSL; /* BUILD PARAMETER LIST */ 01182000 STCM RNSL,7,OPCAQFST(ROPCAVT) 03S0730 01183000 * OPCAQREQ=TPOST; /* POST CODE */ 01184000 MVI OPCAQREQ(ROPCAVT),X'0C' 03S0731 01185000 * OPCAQSEC=RNSL; /* ONE ELEMENT TO POST */ 01186000 STCM RNSL,7,OPCAQSEC(ROPCAVT) 03S0732 01187000 * OPCAQRQ2=ENDLIST; /* END OF LIST CODE */ 01188000 MVI OPCAQRQ2(ROPCAVT),X'80' 03S0733 01189000 * RPARM=ADDR(OPCAQCTL); /* PARAMETER LIST ADDRESS */ 01190000 LA RPARM,OPCAQCTL(,ROPCAVT) 03S0734 01191000 * SVC(102); /* SVC 102 */ 01192000 SVC 102 03S0735 01193000 * OCWTG=IGCVF; /* VF TO GET CONTROL NEXT */ 01194000 MVC OCWTG(2,ROPCE),@CC01595 03S0736 01195000 * OCLINK=OPCWAITV; /* LINK OPCE ON WAIT CHAIN */ 01196000 MVC OCLINK(4,ROPCE),OPCWAITV(ROPCAVT) 03S0737 01197000 * OPCWAITV=ROPCE; /* AT THE TOP */ 01198000 ST ROPCE,OPCWAITV(,ROPCAVT) 03S0738 01199000 * OPCWAITV=OPCWAITV&MASKBYTE;/* CLEAR HIGH ORDER BYTE */ 01200000 L @09,OPCWAITV(,ROPCAVT) 03S0739 01201000 N @09,@CF01617 03S0739 01202000 ST @09,OPCWAITV(,ROPCAVT) 03S0739 01203000 * OPCMODID=IGC00; /* NEXT TO GET CONTROL */ 01204000 MVC OPCMODID(2,ROPCAVT),@CC01597 03S0740 01205000 * RZERO=CLEAR; /* CLEAR AS INTERFACE TO 00 */ 01206000 SLR RZERO,RZERO 03S0741 01207000 * END; 03S0742 01208000 * END; /* @OZ15629*/ 01209000 * ELSE 02S0744 01210000 * ; /* READY TO EXIT */ 01211000 @RF00704 DS 0H 02S0745 01212000 * 02S0745 01213000 * /*****************************************************************/ 01214000 * /* */ 01215000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 01216000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM */ 01217000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 01218000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 01219000 * /* */ 01220000 * /*****************************************************************/ 01221000 * 02S0745 01222000 * RPARM=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 01223000 * PREPARATION TO TRANSFERRING 01224000 * CONTROL TO THE NEXT MODULE */ 01225000 LR RPARM,ROPCAVT 02S0745 01226000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(RLINK); 02S0746 01227000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 01228000 * 02S0747 01229000 * /*****************************************************************/ 01230000 * /* */ 01231000 * /* EXITVF: THIS SEGMENT CONTAINS THE EXIT CODE TO IGCVF10D WITH */ 01232000 * /* AN OPCE. */ 01233000 * /* */ 01234000 * /*****************************************************************/ 01235000 * 02S0747 01236000 *EXITVF: 02S0747 01237000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0747 01238000 EXITVF DS 0H 02S0748 01239000 * OPCWRKSP(5)=RRETURN; /* SAVE THE RETURN ADDRESS */ 01240000 ST RRETURN,OPCWRKSP+16(,ROPCAVT) 02S0748 01241000 * EXITTIME=ON; /* TIME TO EXIT */ 01242000 OI EXITTIME+147(ROPCAVT),B'10000000' 02S0749 01243000 * OPCMODID=IGCVF; /* VF TO GET CONTROL NEXT */ 01244000 MVC OPCMODID(2,ROPCAVT),@CC01595 02S0750 01245000 * ROPCE->OPREPRI=PRIMEDFG; /* PRIORITY */ 01246000 MVI OPREPRI(ROPCE),X'DF' 02S0751 01247000 * ROPCE->OPREFLG1=OPRVAVF; /* FLAG */ 01248000 MVI OPREFLG1(ROPCE),X'0B' 02S0752 01249000 * RRETURN=OPCWRKSP(5); /* RESTORE RETURN ADDRESS */ 01250000 L @09,OPCWRKSP+16(,ROPCAVT) 02S0753 01251000 LR RRETURN,@09 02S0753 01252000 * END EXITVF; /* EXIT NOW */ 01253000 @EL00002 DS 0H 02S0754 01254000 @EF00002 DS 0H 02S0754 01255000 @ER00002 BR @14 02S0754 01256000 * 02S0755 01257000 * /*****************************************************************/ 01258000 * /* */ 01259000 * /* ONTPE: THIS SEGMENT CONTAINS ONTPE INTERNAL PROCEDURE WHICH */ 01260000 * /* PROCESSES THE VARY,ONTPE COMMAND FOR A PRESNA DEVICE. */ 01261000 * /* */ 01262000 * /*****************************************************************/ 01263000 * 02S0755 01264000 *ONTPE: 02S0755 01265000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0755 01266000 ONTPE DS 0H 02S0756 01267000 * OPCWRKSP(1)=RRETURN; /* SAVE THE RETURN ADDRESS */ 01268000 ST RRETURN,OPCWRKSP(,ROPCAVT) 02S0756 01269000 * IF TRMRSACT=OFF THEN /* INACTIVE */ 01270000 TM TRMRSACT(RTRM),B'10000000' 02S0757 01271000 BNZ @RF00757 02S0757 01272000 * DO; /* YES */ 01273000 * IF TRMGP=ON&TRMGPACT=ON THEN/* CAPABLE OF GENERAL POLL AND GP 01274000 * ACTIVE */ 01275000 TM TRMGP(RTRM),B'00000100' 02S0759 01276000 BNO @RF00759 02S0759 01277000 TM TRMGPACT(RTRM),B'00001000' 02S0759 01278000 BNO @RF00759 02S0759 01279000 * DO; 02S0760 01280000 * RZERO=MSG19; /* ALREADY ACTIVE */ 01281000 LA RZERO,19 02S0761 01282000 * CALL EXIT; /* GET READY TO EXIT */ 01283000 BAL @14,EXIT 02S0762 01284000 * END; /* FINI WITH GP */ 01285000 * ELSE 02S0764 01286000 * ; /* NOT GP */ 01287000 @RF00759 DS 0H 02S0765 01288000 * END; /* INACTIVE */ 01289000 * ELSE /* ACTIVE */ 01290000 * DO; /* SO DO */ 01291000 B @RC00757 02S0766 01292000 @RF00757 DS 0H 02S0767 01293000 * RZERO=MSG19; /* ALREADY STARTED */ 01294000 LA RZERO,19 02S0767 01295000 * CALL EXIT; /* GET READY TO EXIT */ 01296000 BAL @14,EXIT 02S0768 01297000 * END; /* FINI WITH ACTIVE DEVICE */ 01298000 * RRETURN=OPCWRKSP(1); /* RESTORE THE RETURN ADDRESS */ 01299000 @RC00757 L RRETURN,OPCWRKSP(,ROPCAVT) 02S0770 01300000 * END ONTPE; /* PERFORMED THE VARY,ONTPE 02S0771 01301000 * COMMAND */ 01302000 @EL00003 DS 0H 02S0771 01303000 @EF00003 DS 0H 02S0771 01304000 @ER00003 BR @14 02S0771 01305000 * 02S0772 01306000 * /*****************************************************************/ 01307000 * /* */ 01308000 * /* BUILDREL: THIS SEGMENT BUILDS A ELEMENT TO INTERFACE WITH */ 01309000 * /* IEDQAS TO HAVE A DEVICE QUEUE RELEASED */ 01310000 * /* */ 01311000 * /*****************************************************************/ 01312000 * 02S0772 01313000 *BUILDREL: 02S0772 01314000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0772 01315000 BUILDREL DS 0H 02S0773 01316000 * OPCWRKSP(4)=RRETURN; /* SAVE THE RETURN ADDRESS */ 01317000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 02S0773 01318000 * OPCWRKSP(3)=RZERO; /* SAVE REG 0 FOR THE LOOP 02S0774 01319000 * @YM06121*/ 01320000 ST RZERO,OPCWRKSP+8(,ROPCAVT) 02S0774 01321000 * RPARM=ONE; /* INDICATE ONE BUFFER NEEDED */ 01322000 LA RPARM,1 02S0775 01323000 * CALL ALLOCBUF; /* GET A BUFFER */ 01324000 L @15,OPCGETBF(,ROPCAVT) 02S0776 01325000 BALR @14,@15 02S0776 01326000 * RPRF=RPARM; /* EST. ADDRESSABILITY */ 01327000 LR RPRF,RPARM 02S0777 01328000 * RZERO=OPCWRKSP(3); /* RESTORE @YM06121*/ 01329000 L RZERO,OPCWRKSP+8(,ROPCAVT) 02S0778 01330000 * PRFQCBA=AVTAS; /* QAS QCB ADDR */ 01331000 MVC PRFQCBA(3,RPRF),AVTAS+1(RAVT) 02S0779 01332000 * PRFPRI=PRIRELSE; /* PRIORITY */ 01333000 MVI PRFPRI(RPRF),X'E0' 02S0780 01334000 * IF OCSWITCH=OCOFFTPB THEN /* IF SENDING REQUEST TO @ZM46691*/ 01335000 CLI OCSWITCH(ROPCE),X'06' 02S0781 01336000 BNE @RF00781 02S0781 01337000 * DO; /* REMOVE QCB FROM TIME @ZM46691*/ 01338000 * PRFPRI=PRIOPCTL; /* QUEUE SET CORRECT @ZM46691*/ 01339000 MVI PRFPRI(RPRF),X'DC' 02S0783 01340000 * END; /* PRIORITY @ZM46691*/ 01341000 * ELSE 02S0785 01342000 * ; /* @ZM46691*/ 01343000 @RF00781 DS 0H 02S0786 01344000 * PRFTIC=INVALTIC; /* INDICATE ONE BUFFER UNIT */ 01345000 MVC PRFTIC(4,RPRF),@CB01150 02S0786 01346000 * IF OPCFLAG1=MIDMSG THEN /* IF MID MESSAGE INDICATOR ON 01347000 * SET PRFSTAT1 @OZ15629*/ 01348000 CLI OPCFLAG1(ROPCAVT),X'20' 02S0787 01349000 BNE @RF00787 02S0787 01350000 * PRFSTAT1=ONE; 02S0788 01351000 MVI PRFSTAT1(RPRF),B'00000001' 02S0788 01352000 * ELSE 02S0789 01353000 * ; 02S0789 01354000 @RF00787 DS 0H 02S0790 01355000 * PRFNBUNT=ONE; /* ONE UNIT */ 01356000 MVI PRFNBUNT(RPRF),X'01' 02S0790 01357000 * PRFDEST=OCTRMTBL; /* TNT INDEX OF DEVICE */ 01358000 MVC PRFDEST(2,RPRF),OCTRMTBL(ROPCE) 02S0791 01359000 * IF OCSWITCH=OCONTPB&TRMSNA=OFF THEN/* ONTP COMMAND AND PRE-SNA? 01360000 * @OZ15629*/ 01361000 CLI OCSWITCH(ROPCE),X'0B' 02S0792 01362000 BNE @RF00792 02S0792 01363000 TM TRMSNA(RTRM),B'00000010' 02S0792 01364000 BNZ @RF00792 02S0792 01365000 * OPCWRKSP(6)=RPRF; /* SAVE THE POINTER */ 01366000 ST RPRF,OPCWRKSP+20(,ROPCAVT) 02S0793 01367000 * ELSE /* SNA */ 01368000 * DO; /* GO AHEAD AND POST THE REQ NOW */ 01369000 B @RC00792 02S0794 01370000 @RF00792 DS 0H 02S0795 01371000 * OPCAQFST=RPRF; /* BUILD AQCTL PARAMETER LIST */ 01372000 STCM RPRF,7,OPCAQFST(ROPCAVT) 02S0795 01373000 * OPCAQREQ=TPOST; /* POST CODE */ 01374000 MVI OPCAQREQ(ROPCAVT),X'0C' 02S0796 01375000 * OPCAQSEC=RPRF; /* ONE ELEMENT TO POST */ 01376000 STCM RPRF,7,OPCAQSEC(ROPCAVT) 02S0797 01377000 * OPCAQRQ2=ENDLIST; /* END OF LIST CODE */ 01378000 MVI OPCAQRQ2(ROPCAVT),X'80' 02S0798 01379000 * RPARM=ADDR(OPCAQCTL); /* PARM LIST ADDRESS */ 01380000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0799 01381000 * SVC(102); /* TCAM CROSS PARTITION 02S0800 01382000 * COMMUNICATION ROUTINE */ 01383000 SVC 102 02S0800 01384000 * END; 02S0801 01385000 * RRETURN=OPCWRKSP(4); /* RESTORE THE RETURN ADDRESS */ 01386000 @RC00792 L RRETURN,OPCWRKSP+12(,ROPCAVT) 02S0802 01387000 * END BUILDREL; /* BUILT THE ELEMENT AND PUT IT 01388000 * ON READY QUEUE */ 01389000 @EL00004 DS 0H 02S0803 01390000 @EF00004 DS 0H 02S0803 01391000 @ER00004 BR @14 02S0803 01392000 * 02S0804 01393000 * /*****************************************************************/ 01394000 * /* */ 01395000 * /* LUOFFTPE: THIS SEGMENT PROCESSES VARY,OFFTPE FOR LU THAT IS */ 01396000 * /* DISALLOW ANY MORE LOGONS. */ 01397000 * /* */ 01398000 * /*****************************************************************/ 01399000 * 02S0804 01400000 *LUOFFTPE: 02S0804 01401000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0804 01402000 LUOFFTPE DS 0H 02S0805 01403000 * OPCWRKSP(2)=RRETURN; /* SAVE RETURN ADDRESS */ 01404000 ST RRETURN,OPCWRKSP+4(,ROPCAVT) 02S0805 01405000 * IF TRMLULOG=ON THEN /* LOGONS ALLOWED? */ 01406000 TM TRMLULOG(RTRM),B'00000001' 02S0806 01407000 BNO @RF00806 02S0806 01408000 * DO; /* YES */ 01409000 * CALL SETLOGOF; /* RESET LOGON CAPABILITY */ 01410000 BAL @14,SETLOGOF 02S0808 01411000 * CALL EXITVF; /* XCTL TO VF */ 01412000 BAL @14,EXITVF 02S0809 01413000 * END; /* ...FINIS */ 01414000 * ELSE /* LOGON NOT ALLOWED */ 01415000 * DO; /* SO */ 01416000 B @RC00806 02S0811 01417000 @RF00806 DS 0H 02S0812 01418000 * RZERO=MSG25; /* SET ALREADY */ 01419000 LA RZERO,25 02S0812 01420000 * IF OCTOTE=ON THEN /* TOTE? */ 01421000 TM OCTOTE(ROPCE),B'01000000' 02S0813 01422000 BNO @RF00813 02S0813 01423000 * DO; /* YES */ 01424000 * TRMSTOTE=ON; /* TOTE OWNS NOW */ 01425000 OI TRMSTOTE(RTRM),B'00000001' 02S0815 01426000 * OCPARM=RETCODE8; /* SET RETURN EODE */ 01427000 MVC OCPARM(2,ROPCE),@CH00045 02S0816 01428000 * END; 02S0817 01429000 * ELSE 02S0818 01430000 * ; /* NOT TOTE */ 01431000 @RF00813 DS 0H 02S0819 01432000 * CALL EXIT; /* GET READY TO EXIT */ 01433000 BAL @14,EXIT 02S0819 01434000 * END; 02S0820 01435000 * RRETURN=OPCWRKSP(2); /* RESTORE RETURN ADDRESS */ 01436000 @RC00806 L RRETURN,OPCWRKSP+4(,ROPCAVT) 02S0821 01437000 * END LUOFFTPE; 02S0822 01438000 @EL00005 DS 0H 02S0822 01439000 @EF00005 DS 0H 02S0822 01440000 @ER00005 BR @14 02S0822 01441000 * 02S0823 01442000 * /*****************************************************************/ 01443000 * /* */ 01444000 * /* OFFTPELU: THIS SEGMENT PROCESSES A VARY,OFFTPE FOR LU WHEN THE*/ 01445000 * /* INPUT RESOURCE WAS A PU. */ 01446000 * /* */ 01447000 * /*****************************************************************/ 01448000 * 02S0823 01449000 *OFFTPELU: 02S0823 01450000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0823 01451000 OFFTPELU DS 0H 02S0824 01452000 * OPCWRKSP(3)=RRETURN; 02S0824 01453000 ST RRETURN,OPCWRKSP+8(,ROPCAVT) 02S0824 01454000 * IF TRMLULOG=OFF THEN /* CAPABLE OF LOGONS */ 01455000 TM TRMLULOG(RTRM),B'00000001' 02S0825 01456000 BNZ @RF00825 02S0825 01457000 * RZERO=MSG25; /* NO, */ 01458000 LA RZERO,25 02S0826 01459000 * ELSE /* YES */ 01460000 * CALL SETLOGOF; /* RESET CAPABILITY */ 01461000 B @RC00825 02S0827 01462000 @RF00825 BAL @14,SETLOGOF 02S0827 01463000 * RRETURN=OPCWRKSP(3); /* RESTORE RETURN ADDRESS */ 01464000 @RC00825 L RRETURN,OPCWRKSP+8(,ROPCAVT) 02S0828 01465000 * END OFFTPELU; 02S0829 01466000 @EL00006 DS 0H 02S0829 01467000 @EF00006 DS 0H 02S0829 01468000 @ER00006 BR @14 02S0829 01469000 * 02S0830 01470000 * /*****************************************************************/ 01471000 * /* */ 01472000 * /* GETTRM: THIS SEGMENT GET A TERMINAL ENTRY ADDRESS. */ 01473000 * /* */ 01474000 * /*****************************************************************/ 01475000 * 02S0830 01476000 *GETTRM: 02S0830 01477000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0830 01478000 GETTRM DS 0H 02S0831 01479000 * OPCWRKSP(7)=RRETURN; /* SAVE THE RETURN ADDRESS */ 01480000 ST RRETURN,OPCWRKSP+24(,ROPCAVT) 02S0831 01481000 * OCTRMTBL=RPARM; /* SET UP THIS RES TNT INDEX */ 01482000 STH RPARM,OCTRMTBL(,ROPCE) 02S0832 01483000 * OPCWRKSP(1)=RZERO; /* SAVE REG 0 @YM06121*/ 01484000 ST RZERO,OPCWRKSP(,ROPCAVT) 02S0833 01485000 * CALL IEDQTNT; /* GET TRM ENTRY ADDRESS */ 01486000 L @15,AVTRNMPT(,RAVT) 02S0834 01487000 BALR @14,@15 02S0834 01488000 * RTRM=RPARM-LENGTH(IEDNTRM); /* BACKUP TO PREFIX */ 01489000 LR RTRM,RPARM 02S0835 01490000 SH RTRM,@CH00610 02S0835 01491000 * RZERO=OPCWRKSP(1); /* RESTORE REG 0 @YM06121*/ 01492000 L RZERO,OPCWRKSP(,ROPCAVT) 02S0836 01493000 * RRETURN=OPCWRKSP(7); /* RESTORE THE RETURN ADDRESS */ 01494000 L RRETURN,OPCWRKSP+24(,ROPCAVT) 02S0837 01495000 * END GETTRM; 02S0838 01496000 @EL00007 DS 0H 02S0838 01497000 @EF00007 DS 0H 02S0838 01498000 @ER00007 BR @14 02S0838 01499000 * 02S0839 01500000 * /*****************************************************************/ 01501000 * /* */ 01502000 * /* EXIT: THIS SEGMENT SETUP TO NOTIFY THE REQUESTOR. */ 01503000 * /* */ 01504000 * /*****************************************************************/ 01505000 * 02S0839 01506000 *EXIT: 02S0839 01507000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0839 01508000 EXIT DS 0H 02S0840 01509000 * IF OCTOTE=ON THEN /* TOTE? */ 01510000 TM OCTOTE(ROPCE),B'01000000' 02S0840 01511000 BNO @RF00840 02S0840 01512000 * DO; /* YES */ 01513000 * RZERO=OCPARM; /* SETUP RETCODE INTERFACE WITH 01514000 * 07 */ 01515000 LH RZERO,OCPARM(,ROPCE) 02S0842 01516000 * OPCMODID=IGC07; /* NOTIFY TOTE OF THE RESULTS */ 01517000 MVC OPCMODID(2,ROPCAVT),@CC01601 02S0843 01518000 * END; /* DONE... */ 01519000 * ELSE /* NORMAL FLOW */ 01520000 * DO; /* YES */ 01521000 B @RC00840 02S0845 01522000 @RF00840 DS 0H 02S0846 01523000 * NOTALLMG=ON; /* OMIT ALL IN THE MSG @YM06140*/ 01524000 OI NOTALLMG(ROPCE),B'01000000' 02S0846 01525000 * OPCMODID=IGC03; /* MSG MOD */ 01526000 MVC OPCMODID(2,ROPCAVT),@CC01599 02S0847 01527000 * END; 02S0848 01528000 * EXITTIME=ON; /* SET EXIT SWITCH */ 01529000 @RC00840 OI EXITTIME+147(ROPCAVT),B'10000000' 02S0849 01530000 * END EXIT; 02S0850 01531000 @EL00008 DS 0H 02S0850 01532000 @EF00008 DS 0H 02S0850 01533000 @ER00008 BR @14 02S0850 01534000 * 02S0851 01535000 * /*****************************************************************/ 01536000 * /* */ 01537000 * /* SETLOGON: THIS SEGMENT SETS TRMLULOG ON. */ 01538000 * /* */ 01539000 * /*****************************************************************/ 01540000 * 02S0851 01541000 *SETLOGON: 02S0851 01542000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0851 01543000 SETLOGON DS 0H 02S0852 01544000 * TRMLULOG=ON; /* CAPABLE OF LOGON TO TCAM */ 01545000 LA @11,TRMLULOG(,RTRM) 02S0852 01546000 LR @10,@11 02S0852 01547000 LA @09,3 02S0852 01548000 NR @10,@09 02S0852 01549000 LCR @10,@10 02S0852 01550000 ALR @11,@10 02S0852 01551000 L @09,0(,@11) 02S0852 01552000 @GL00022 LR @05,@09 02S0852 01553000 O @05,@CB01682+3(@10) 02S0852 01554000 CS @09,@05,0(@11) 02S0852 01555000 BNE @GL00022 02S0852 01556000 * END SETLOGON; 02S0853 01557000 @EL00009 DS 0H 02S0853 01558000 @EF00009 DS 0H 02S0853 01559000 @ER00009 BR @14 02S0853 01560000 * 02S0854 01561000 * /*****************************************************************/ 01562000 * /* */ 01563000 * /* SETLOGOF: THIS SEGMENT SETS TRMLULOG OFF. */ 01564000 * /* */ 01565000 * /*****************************************************************/ 01566000 * 02S0854 01567000 *SETLOGOF: 02S0854 01568000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 02S0854 01569000 SETLOGOF DS 0H 02S0855 01570000 * TRMLULOG=OFF; /* INCAPABLE OF LOGON TO TCAM 01571000 * AFTER SESSION TERM */ 01572000 LA @11,TRMLULOG(,RTRM) 02S0855 01573000 LR @10,@11 02S0855 01574000 LA @09,3 02S0855 01575000 NR @10,@09 02S0855 01576000 LCR @10,@10 02S0855 01577000 ALR @11,@10 02S0855 01578000 L @09,0(,@11) 02S0855 01579000 @GL00023 LR @05,@09 02S0855 01580000 N @05,@CB01686+3(@10) 02S0855 01581000 CS @09,@05,0(@11) 02S0855 01582000 BNE @GL00023 02S0855 01583000 * END SETLOGOF; 02S0856 01584000 @EL00010 DS 0H 02S0856 01585000 @EF00010 DS 0H 02S0856 01586000 @ER00010 BR @14 02S0856 01587000 * END IGCV910D 01S0857 01588000 * 01S0857 01589000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01590000 */*%INCLUDE SYSLIB (TAVTD ) */ 01591000 */*%INCLUDE SYSLIB (TNSLD ) */ 01592000 */*%INCLUDE SYSLIB (TOPCED ) */ 01593000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01594000 */*%INCLUDE SYSLIB (TOPRED ) */ 01595000 */*%INCLUDE SYSLIB (TPRFD ) */ 01596000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01597000 */*%INCLUDE SYSLIB (TQCBD ) */ 01598000 */*%INCLUDE SYSLIB (TTRMD ) */ 01599000 */*%INCLUDE SYSUT5 (RFY ) */ 01600000 */*%INCLUDE SYSUT5 (DCL ) */ 01601000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01602000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01603000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01604000 */*%INCLUDE SYSUT5 (VERIFY ) */ 01605000 */*%INCLUDE SYSUT5 (TESTTYPE) */ 01606000 */*%INCLUDE SYSUT5 (PU ) */ 01607000 */*%INCLUDE SYSUT5 (VARYLUPU) */ 01608000 */*%INCLUDE SYSUT5 (ONTPELU ) */ 01609000 */*%INCLUDE SYSUT5 (ONTPBLU ) */ 01610000 */*%INCLUDE SYSUT5 (OFFTPBLU) */ 01611000 */*%INCLUDE SYSUT5 (SINGLTRM) */ 01612000 */*%INCLUDE SYSUT5 (LUONTPE ) */ 01613000 */*%INCLUDE SYSUT5 (LUONTPB ) */ 01614000 */*%INCLUDE SYSUT5 (ONTPB ) */ 01615000 */*%INCLUDE SYSUT5 (OFFTPE ) */ 01616000 */*%INCLUDE SYSUT5 (LUOFFTPB) */ 01617000 */*%INCLUDE SYSUT5 (OFFTPB ) */ 01618000 */*%INCLUDE SYSUT5 (BUILDNSL) */ 01619000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01620000 */*%INCLUDE SYSUT5 (EXITVF ) */ 01621000 */*%INCLUDE SYSUT5 (ONTPE ) */ 01622000 */*%INCLUDE SYSUT5 (BUILDREL) */ 01623000 */*%INCLUDE SYSUT5 (LUOFFTPE) */ 01624000 */*%INCLUDE SYSUT5 (OFFTPELU) */ 01625000 */*%INCLUDE SYSUT5 (GETTRM ) */ 01626000 */*%INCLUDE SYSUT5 (EXIT ) */ 01627000 */*%INCLUDE SYSUT5 (SETLOGON) */ 01628000 */*%INCLUDE SYSUT5 (SETLOGOF) */ 01629000 * 01S0857 01630000 * ; 01S0857 01631000 @DATA DS 0H 01632000 @CH00331 DC H'4' 01633000 @CH00045 DC H'8' 01634000 @CH00610 DC H'14' 01635000 @DATD DSECT 01636000 DS 0F 01637000 IGCV910D CSECT 01638000 DS 0F 01639000 @CF01150 DC XL4'08000002' 01640000 @CF01617 DC XL4'00FFFFFF' 01641000 @DATD DSECT 01642000 DS 0D 01643000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01644000 @ENDDATD EQU * 01645000 IGCV910D CSECT 01646000 DS 0F 01647000 @SIZDATD DC AL1(0) 01648000 DC AL3(@ENDDATD-@DATD) 01649000 DS 0D 01650000 @CC01591 DC C'R0' 01651000 @CC01593 DC C'VA' 01652000 @CC01595 DC C'VF' 01653000 @CC01597 DC C'00' 01654000 @CC01599 DC C'03' 01655000 @CC01601 DC C'07' 01656000 @CB01150 DC X'08000002' 01657000 @CB01682 DC B'000000000000000000000000000000010000000000000000000000C01658000 00' 01659000 @CB01686 DC B'111111111111111111111111111111101111111111111111111111C01660000 11' 01661000 PATCH DC XL10'0' 01662000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01663000 @01 EQU 01 01664000 @02 EQU 02 01665000 @03 EQU 03 01666000 @04 EQU 04 01667000 @05 EQU 05 01668000 @06 EQU 06 01669000 @07 EQU 07 01670000 @08 EQU 08 01671000 @09 EQU 09 01672000 @10 EQU 10 01673000 @11 EQU 11 01674000 @12 EQU 12 01675000 @13 EQU 13 01676000 @14 EQU 14 01677000 @15 EQU 15 01678000 ROPCE EQU @03 01679000 ROPCAVT EQU @02 01680000 RTRM EQU @08 01681000 RAVT EQU @04 01682000 RPRF EQU @06 01683000 RQCB EQU @07 01684000 RNSL EQU @06 01685000 RZERO EQU @00 01686000 RPARM EQU @01 01687000 ROPRE EQU @03 01688000 RBASE EQU @12 01689000 RSAVE EQU @13 01690000 RRETURN EQU @14 01691000 RLINK EQU @15 01692000 IEDQAVTD EQU 0 01693000 AVTSAVEX EQU IEDQAVTD+288 01694000 @NM00003 EQU IEDQAVTD+388 01695000 AVTCKFLG EQU @NM00003 01696000 AVTBASE EQU IEDQAVTD+412 01697000 AVTPKF EQU AVTBASE 01698000 AVTRNMPT EQU IEDQAVTD+424 01699000 AVTAS EQU IEDQAVTD+456 01700000 AVTOSECB EQU IEDQAVTD+492 01701000 AVTECB1 EQU AVTOSECB 01702000 AVTHG02 EQU IEDQAVTD+528 01703000 AVTDISP EQU IEDQAVTD+552 01704000 AVTHD EQU IEDQAVTD+556 01705000 AVTSCOPT EQU AVTHD 01706000 AVTSAVTP EQU IEDQAVTD+612 01707000 AVTSAVTF EQU AVTSAVTP 01708000 AVTCKPEL EQU IEDQAVTD+652 01709000 AVTCKRMV EQU AVTCKPEL 01710000 AVTCKELF EQU IEDQAVTD+680 01711000 AVTCKBYT EQU IEDQAVTD+691 01712000 AVTHG01 EQU IEDQAVTD+692 01713000 AVTCKLNK EQU IEDQAVTD+696 01714000 AVTCRELE EQU IEDQAVTD+708 01715000 AVTCCELE EQU AVTCRELE 01716000 AVTCLRHI EQU IEDQAVTD+716 01717000 AVTADBUF EQU IEDQAVTD+720 01718000 AVTSYSER EQU IEDQAVTD+728 01719000 AVTCKPQB EQU IEDQAVTD+804 01720000 AVTCKPTB EQU AVTCKPQB 01721000 AVTCKPEC EQU AVTCKPQB+4 01722000 AVTCKPCC EQU AVTCKPEC 01723000 AVTOPCQB EQU IEDQAVTD+816 01724000 AVTOPCOB EQU AVTOPCQB 01725000 AVTOPCEC EQU AVTOPCQB+4 01726000 AVTOPCCC EQU AVTOPCEC 01727000 AVTOLTQB EQU IEDQAVTD+828 01728000 AVTCWFL1 EQU IEDQAVTD+924 01729000 AVTCWFL2 EQU IEDQAVTD+925 01730000 AVTSUBT EQU IEDQAVTD+948 01731000 AVTIOTR EQU IEDQAVTD+949 01732000 AVTBIT1 EQU IEDQAVTD+1050 01733000 AVTBIT2 EQU IEDQAVTD+1051 01734000 AVTBIT3 EQU IEDQAVTD+1052 01735000 AVTBIT4 EQU IEDQAVTD+1136 01736000 @NM00085 EQU IEDQAVTD+1232 01737000 IEDQAPTR EQU 0 01738000 IEDNSVTD EQU 0 01739000 SAVTDIAG EQU IEDNSVTD 01740000 SAVTDIAF EQU SAVTDIAG 01741000 SAVTLUSQ EQU IEDNSVTD+88 01742000 SAVTSPLN EQU IEDNSVTD+224 01743000 SAVTTCPU EQU IEDNSVTD+238 01744000 SAVTZELM EQU IEDNSVTD+270 01745000 SAVTRDRV EQU IEDNSVTD+284 01746000 SAVTCKQB EQU IEDNSVTD+300 01747000 SAVTCKTB EQU SAVTCKQB 01748000 SAVTCKEC EQU SAVTCKQB+4 01749000 SAVTCKCC EQU SAVTCKEC 01750000 IEDNNSLD EQU 0 01751000 IEDNSLD EQU 0 01752000 NSLPLCB EQU IEDNSLD+8 01753000 NSLGPCUS EQU IEDNSLD+12 01754000 NSLTTCIN EQU IEDNSLD+16 01755000 NSLPRIBK EQU IEDNSLD+18 01756000 NSLFLGBK EQU IEDNSLD+19 01757000 NSLERB EQU IEDNSLD+20 01758000 NSLESTAT EQU NSLERB+8 01759000 NSLBUFFR EQU NSLERB+9 01760000 NSLREQTY EQU IEDNSLD+35 01761000 NSLGRPNM EQU IEDNSLD+36 01762000 NSLOPCEP EQU NSLGRPNM 01763000 NSLTTEPT EQU IEDNSLD+44 01764000 IEDNSLP EQU 0 01765000 IEDQOPCE EQU 0 01766000 OCLINK EQU IEDQOPCE 01767000 OCELEM EQU IEDQOPCE+4 01768000 OCUNIT EQU IEDQOPCE+8 01769000 OCRUDEST EQU OCUNIT 01770000 OCCKPKEY EQU OCRUDEST 01771000 OCSCAN EQU OCCKPKEY 01772000 OCOPTCDE EQU IEDQOPCE+12 01773000 OCSWITCH EQU IEDQOPCE+13 01774000 OCFLAG EQU IEDQOPCE+14 01775000 OCTOTE EQU OCFLAG 01776000 @NM00114 EQU IEDQOPCE+16 01777000 OCDEST EQU @NM00114 01778000 OCREQVAL EQU OCDEST+1 01779000 OCTRMTBL EQU IEDQOPCE+20 01780000 OCLINENO EQU IEDQOPCE+22 01781000 OCTIOT EQU OCLINENO 01782000 OCTRUNIT EQU IEDQOPCE+24 01783000 OCRSID EQU OCTRUNIT 01784000 OCALSTAT EQU OCRSID 01785000 OCSOME EQU OCALSTAT 01786000 OCNONE EQU OCALSTAT 01787000 OCPARM EQU IEDQOPCE+28 01788000 OCWTG EQU IEDQOPCE+30 01789000 OCBACKUP EQU IEDQOPCE+32 01790000 OCMODNME EQU IEDQOPCE+40 01791000 OCIPLWA EQU OCMODNME 01792000 OCCKDATA EQU IEDQOPCE+48 01793000 OCRSTGTM EQU OCCKDATA 01794000 IEDQOPCN EQU 0 01795000 OCLDNME EQU IEDQOPCN 01796000 OCLINTTE EQU OCLDNME 01797000 OCREQFLG EQU OCLINTTE+2 01798000 OCPREFLG EQU OCLINTTE+3 01799000 IEDQOPCD EQU 0 01800000 OPCAVTPT EQU IEDQOPCD+8 01801000 OPCCOPCE EQU IEDQOPCD+12 01802000 OPCSAVE EQU IEDQOPCD+56 01803000 OPCFLAG1 EQU IEDQOPCD+146 01804000 OPCFLAG2 EQU IEDQOPCD+147 01805000 OPCAQCTL EQU IEDQOPCD+180 01806000 OPCXCTL EQU IEDQOPCD+204 01807000 OPCLDNME EQU IEDQOPCD+212 01808000 OPCMODID EQU OPCLDNME+3 01809000 OPCGETBF EQU IEDQOPCD+276 01810000 OPCSPEC EQU IEDQOPCD+300 01811000 OPCRSTRT EQU OPCSPEC 01812000 OPCWRKSP EQU IEDQOPCD+320 01813000 OPCWAITV EQU IEDQOPCD+364 01814000 OPCPWCOB EQU IEDQOPCD+368 01815000 OPCPWQCB EQU OPCPWCOB 01816000 OPCPWECB EQU OPCPWCOB+4 01817000 IEDOPRED EQU 0 01818000 OPREQCB EQU IEDOPRED+1 01819000 OPREPRI EQU IEDOPRED+4 01820000 OPRESAVE EQU IEDOPRED+8 01821000 OPREFLG1 EQU IEDOPRED+12 01822000 OPREFLG3 EQU IEDOPRED+14 01823000 IEDQPRF EQU 0 01824000 PRFRCB EQU IEDQPRF 01825000 PRFKEY EQU PRFRCB 01826000 PRFQCBA EQU PRFRCB+1 01827000 PRFPRI EQU PRFRCB+4 01828000 PRFLINK EQU PRFRCB+5 01829000 PRFTIC EQU IEDQPRF+8 01830000 PRFTICC EQU PRFTIC 01831000 PRFNBUNT EQU IEDQPRF+12 01832000 PRFSUNIT EQU PRFNBUNT 01833000 PRFPLQCB EQU PRFSUNIT 01834000 @NM00147 EQU IEDQPRF+16 01835000 PRFSVFFO EQU @NM00147 01836000 PRFSTAT1 EQU IEDQPRF+20 01837000 PRFEOFN EQU PRFSTAT1 01838000 PRFCORE EQU IEDQPRF+21 01839000 PRFXTRA EQU PRFCORE 01840000 PRFSCAN EQU IEDQPRF+24 01841000 PRFTQBCK EQU IEDQPRF+26 01842000 PRFNTXT EQU PRFTQBCK 01843000 PRFEOBOF EQU PRFNTXT 01844000 PRFCHDR EQU IEDQPRF+32 01845000 PRFHQBCK EQU IEDQPRF+35 01846000 PRFDEST EQU IEDQPRF+40 01847000 IEDQPPTR EQU 0 01848000 IEDPF1 EQU 0 01849000 PRF1FLG1 EQU IEDPF1+3 01850000 PRF1WD2 EQU IEDPF1+4 01851000 PRF1SEQP EQU PRF1WD2 01852000 PRF1SQID EQU PRF1SEQP 01853000 PRF1TAG1 EQU PRF1SQID 01854000 IEDPF2 EQU 0 01855000 PRF2FLG2 EQU IEDPF2 01856000 PRF2WD2 EQU IEDPF2+4 01857000 IEDQQCB EQU 0 01858000 QCBDSFLG EQU IEDQQCB 01859000 QCBDISK EQU QCBDSFLG 01860000 QCBNREUS EQU QCBDISK 01861000 QCBREUS EQU QCBDISK 01862000 QCBEOLDT EQU IEDQQCB+16 01863000 QCBBYTE1 EQU QCBEOLDT+1 01864000 QCBLKRLN EQU IEDQQCB+18 01865000 QCBRETCT EQU QCBLKRLN 01866000 QCBSTAT EQU IEDQQCB+19 01867000 QCBTRMHO EQU QCBSTAT 01868000 QCBINSRC EQU IEDQQCB+21 01869000 @NM00155 EQU QCBINSRC 01870000 QCBTSOF2 EQU @NM00155+1 01871000 QCBTSOF1 EQU @NM00155+2 01872000 QCBINTVL EQU IEDQQCB+24 01873000 QCBPREN EQU IEDQQCB+28 01874000 QCBLKRRN EQU QCBPREN+1 01875000 QCBDCBAD EQU IEDQQCB+33 01876000 QCBFLAG EQU IEDQQCB+36 01877000 QCBTSSES EQU QCBFLAG 01878000 IEDQQPTR EQU 0 01879000 IEDQPQCB EQU 0 01880000 QCBFHDLZ EQU IEDQPQCB+3 01881000 QCBPFEFO EQU QCBFHDLZ+1 01882000 QCBFHDTZ EQU IEDQPQCB+6 01883000 QCBINTLF EQU IEDQPQCB+12 01884000 IEDNQCB EQU 0 01885000 QCBSTAT1 EQU IEDNQCB+4 01886000 QCBPLCBA EQU IEDNQCB+5 01887000 IEDTRM EQU 0 01888000 IEDNTRM EQU IEDTRM 01889000 TRMBYTE4 EQU IEDNTRM 01890000 TRMBYTE3 EQU IEDNTRM+1 01891000 TRMBYTE2 EQU IEDNTRM+2 01892000 TRMRSACT EQU TRMBYTE2 01893000 TRMINPG EQU TRMBYTE2 01894000 TRMGPACT EQU TRMBYTE2 01895000 TRMBYTE1 EQU IEDNTRM+3 01896000 TRMSCPRQ EQU TRMBYTE1 01897000 TRMSTOTE EQU TRMBYTE1 01898000 TRMCOHRT EQU IEDNTRM+4 01899000 TRMBYTE0 EQU IEDNTRM+6 01900000 TRMINPUT EQU TRMBYTE0 01901000 TRMDIAL EQU TRMBYTE0 01902000 TRMGP EQU TRMBYTE0 01903000 TRMSNA EQU TRMBYTE0 01904000 TRMSIBPT EQU IEDNTRM+7 01905000 TRMTYPE EQU IEDNTRM+11 01906000 TRMSUBST EQU IEDNTRM+12 01907000 IEDQTRM EQU IEDTRM+14 01908000 TRMSTATE EQU IEDQTRM 01909000 TRMLOG EQU TRMSTATE 01910000 TRMHELDN EQU TRMSTATE 01911000 TRMDESTQ EQU IEDQTRM+1 01912000 TRMINSEQ EQU IEDQTRM+4 01913000 TLISTCNT EQU TRMINSEQ 01914000 TRMOUTSQ EQU IEDQTRM+6 01915000 TLISTEN EQU TRMOUTSQ 01916000 TRMDSORG EQU TLISTEN 01917000 TRMALTD EQU IEDQTRM+8 01918000 TRMDEVFL EQU IEDQTRM+10 01919000 TRMSTAT EQU IEDQTRM+12 01920000 ALLOCBUF EQU 0 01921000 IEDQTNT EQU 0 01922000 SWITCHES EQU 0 01923000 EXITTIME EQU SWITCHES 01924000 ERREXIT EQU SWITCHES 01925000 QCBLDCB EQU 0 01926000 OCCKPKY1 EQU OCCKPKEY 01927000 OCCKPTYP EQU OCCKPKY1 01928000 OCICACTN EQU OCMODNME 01929000 OCICDADR EQU OCICACTN 01930000 OCICSW EQU OCICDADR+3 01931000 OPCAQWD EQU OPCAQCTL 01932000 OPCAQWD1 EQU OPCAQWD 01933000 OPCAQREQ EQU OPCAQWD1 01934000 OPCAQFST EQU OPCAQWD1+1 01935000 OPCAQWD2 EQU OPCAQWD+4 01936000 OPCAQRQ2 EQU OPCAQWD2 01937000 OPCAQSEC EQU OPCAQWD2+1 01938000 OPCAQWD3 EQU OPCAQWD+8 01939000 TRMPRE1 EQU TRMBYTE4 01940000 TRMNCP1 EQU TRMBYTE4 01941000 TRMPRE EQU TRMBYTE3 01942000 TRMNCP EQU TRMBYTE3 01943000 TRMPU EQU TRMBYTE3 01944000 TRMLU EQU TRMBYTE3 01945000 TRMLULOG EQU TRMLU 01946000 TRMLINK EQU TRMBYTE3 01947000 SAVEDTRM EQU OCMODNME 01948000 SWITCH EQU OCSWITCH 01949000 NOTALLMG EQU SWITCH 01950000 OCCIB EQU OCREQVAL 01951000 PRFSHDR EQU IEDQPRF+42 01952000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01953000 @NM00167 EQU SWITCH 01954000 @NM00166 EQU SWITCH 01955000 @NM00165 EQU TRMLINK 01956000 TRMLSTAT EQU TRMLINK 01957000 TRMLINT EQU TRMLINK 01958000 TRMEPMOD EQU TRMLINK 01959000 TRMINERR EQU TRMLU 01960000 TRMLUREQ EQU TRMLU 01961000 TRMSESRQ EQU TRMLU 01962000 TRMTDIFF EQU TRMLU 01963000 TRMLUTM EQU TRMLU 01964000 TRMLUIT EQU TRMLU 01965000 TRMAUTO EQU TRMLU 01966000 TRMPCONT EQU TRMPU 01967000 @NM00164 EQU TRMPU 01968000 TRMNCONT EQU TRMNCP 01969000 TRMQUCKN EQU TRMNCP 01970000 TRMSLOWN EQU TRMNCP 01971000 TRMSYGEN EQU TRMNCP 01972000 TRMNCPCL EQU TRMNCP 01973000 TRMIPLDM EQU TRMNCP 01974000 TRMINOUT EQU TRMPRE 01975000 TRMRDOUT EQU TRMPRE 01976000 TRMNLOUT EQU TRMPRE 01977000 TRMWROUT EQU TRMPRE 01978000 TRMASNXI EQU TRMPRE 01979000 TRMSTMM EQU TRMPRE 01980000 TRMCMODE EQU TRMPRE 01981000 TRMSTPND EQU TRMPRE 01982000 @NM00163 EQU TRMNCP1 01983000 TRMINOP EQU TRMNCP1 01984000 TRMLYNCH EQU TRMPRE1 01985000 TRMSPOUT EQU TRMPRE1 01986000 TRMERLCK EQU TRMPRE1 01987000 TRMQNPL EQU TRMPRE1 01988000 TRMSPACT EQU TRMPRE1 01989000 TRMOCNI EQU TRMPRE1 01990000 TRMSESSN EQU TRMPRE1 01991000 TRMCONT EQU TRMPRE1 01992000 OPCAQLST EQU OPCAQWD3+1 01993000 OPCAQRQ3 EQU OPCAQWD3 01994000 OCICINAC EQU OCICSW 01995000 @NM00120 EQU OCICSW 01996000 OCICATST EQU OCICDADR+1 01997000 OCICTYPE EQU OCICDADR 01998000 @NM00119 EQU OCCKPKY1 01999000 OCCKPENV EQU OCCKPKY1 02000000 OCCKPRST EQU OCCKPTYP 02001000 OCCKPNCP EQU OCCKPTYP 02002000 OCCKPINC EQU OCCKPTYP 02003000 @NM00168 EQU SWITCHES 02004000 TRMOPT EQU IEDTRM+34 02005000 TRMOPTBL EQU IEDQTRM+18 02006000 TRMOPNO EQU IEDQTRM+17 02007000 TRMCHCIN EQU IEDQTRM+16 02008000 TRMSENSE EQU TRMSTAT+3 02009000 TRMTEMPR EQU TRMSTAT+2 02010000 TRMSIO EQU TRMSTAT 02011000 @NM00162 EQU TRMDEVFL+1 02012000 TRMTPIN EQU TRMDEVFL+1 02013000 TRMNCPI EQU TRMDEVFL+1 02014000 TRMRNTRM EQU TRMDEVFL+1 02015000 @NM00161 EQU TRMDEVFL+1 02016000 TRMLMD EQU TRMDEVFL+1 02017000 TRMCONC EQU TRMDEVFL+1 02018000 TRMTSOB EQU TRMDEVFL 02019000 TRMBFDY EQU TRMDEVFL 02020000 TRMTBLK EQU TRMDEVFL 02021000 TRMSBLK EQU TRMDEVFL 02022000 TRMBLKS EQU TRMDEVFL 02023000 TRMADDC EQU TRMDEVFL 02024000 TRMDDIG EQU TRMDEVFL 02025000 TRMBUFS EQU TRMDEVFL 02026000 TRMPRILK EQU TRMALTD 02027000 TRMLGB EQU TRMDSORG 02028000 TRMUTERM EQU TLISTCNT 02029000 TRMSCNYN EQU TRMSTATE 02030000 TRMOPTFN EQU TRMSTATE 02031000 TRMACPTN EQU TRMSTATE 02032000 TRMPREF EQU TRMSTATE 02033000 TRMPROC EQU TRMLOG 02034000 TRMLIST EQU TRMLOG 02035000 TRMLINE EQU TRMSTATE 02036000 TRMRLMCT EQU IEDNTRM+10 02037000 TRMCOHTG EQU TRMSIBPT+1 02038000 TRMGPCNT EQU TRMSIBPT 02039000 TRMBUFRD EQU TRMBYTE0 02040000 @NM00160 EQU TRMBYTE0 02041000 TRMOUTPT EQU TRMBYTE0 02042000 TRMUDEF EQU TRMBYTE0 02043000 TRMCKPRN EQU TRMBYTE1 02044000 TRMTSATN EQU TRMBYTE1 02045000 TRMTRACE EQU TRMBYTE1 02046000 TRMSWBCK EQU TRMBYTE1 02047000 TRMAUTOC EQU TRMBYTE1 02048000 TRMINPTP EQU TRMBYTE1 02049000 TRMWTNEG EQU TRMSCPRQ 02050000 TRMWRBRK EQU TRMBYTE2 02051000 TRMNOSND EQU TRMBYTE2 02052000 TRMPREP EQU TRMBYTE2 02053000 TRMANDL EQU TRMBYTE2 02054000 TRMCLOSN EQU TRMINPG 02055000 TRMREMB EQU TRMBYTE2 02056000 QCBTTCIN EQU QCBPLCBA+1 02057000 @NM00159 EQU QCBPLCBA 02058000 @NM00158 EQU QCBSTAT1 02059000 QCBFLUSH EQU QCBSTAT1 02060000 QCBNDXRQ EQU QCBSTAT1 02061000 QCBESIG EQU QCBSTAT1 02062000 QCBRCVRQ EQU QCBSTAT1 02063000 QCBSNDRQ EQU QCBSTAT1 02064000 QCBWAITC EQU QCBSTAT1 02065000 QCBPLCBN EQU QCBSTAT1 02066000 QCBCHAIN EQU IEDNQCB 02067000 QCBPQBCK EQU IEDQPQCB+25 02068000 QCBPRIPQ EQU IEDQPQCB+24 02069000 QCBCFHDR EQU IEDQPQCB+21 02070000 QCBLFEFO EQU IEDQPQCB+18 02071000 QCBFFEFO EQU IEDQPQCB+15 02072000 QCBPREVF EQU QCBINTLF 02073000 QCBINTFF EQU IEDQPQCB+9 02074000 QCBDATSQ EQU QCBFHDTZ+1 02075000 @NM00157 EQU QCBFHDTZ 02076000 @NM00156 EQU QCBPFEFO 02077000 QCBDATFL EQU QCBFHDLZ 02078000 QCBDNHDR EQU IEDQPQCB 02079000 QCBQBACK EQU IEDQQCB+37 02080000 QCBCKPT EQU QCBFLAG 02081000 QCBPROC EQU QCBFLAG 02082000 QCBSDFFO EQU QCBFLAG 02083000 QCBTERMQ EQU QCBFLAG 02084000 QCBRSRV EQU QCBFLAG 02085000 QCBREAD EQU QCBFLAG 02086000 QCBNOBRK EQU QCBFLAG 02087000 QCBLGBAD EQU QCBDCBAD 02088000 QCBRELLN EQU IEDQQCB+32 02089000 QCBTJID EQU QCBLKRRN+1 02090000 QCBCARCT EQU QCBLKRRN 02091000 QCBPRLVL EQU QCBPREN 02092000 QCBMSGCT EQU IEDQQCB+26 02093000 QCBEXTO EQU QCBINTVL 02094000 QCBDISC EQU QCBTSOF1 02095000 QCBDELAY EQU QCBTSOF1 02096000 QCBPARTO EQU QCBTSOF1 02097000 QCBSATRD EQU QCBTSOF1 02098000 QCBNOBUF EQU QCBTSOF1 02099000 QCBTPUT EQU QCBTSOF1 02100000 QCBTGET EQU QCBTSOF1 02101000 QCBWRBRK EQU QCBTSOF1 02102000 QCBSATLC EQU QCBTSOF2 02103000 QCBSATTI EQU QCBTSOF2 02104000 QCBSATCH EQU QCBTSOF2 02105000 QCBSIMRD EQU QCBTSOF2 02106000 QCBDSSMI EQU QCBTSOF2 02107000 QCBPOSTO EQU QCBTSOF2 02108000 QCBBUFQ EQU QCBTSOF2 02109000 QCBINHBN EQU QCBTSOF2 02110000 QCBSATCT EQU @NM00155 02111000 QCBSCBOF EQU IEDQQCB+20 02112000 QCBTIME EQU QCBSTAT 02113000 QCBCLOCK EQU QCBSTAT 02114000 QCBSCHDL EQU QCBSTAT 02115000 QCBSMODE EQU QCBSTAT 02116000 QCBSEND EQU QCBSTAT 02117000 QCBBUFRD EQU QCBSTAT 02118000 QCBEOM EQU QCBSTAT 02119000 QCBHUCT EQU QCBRETCT 02120000 QCBIEND EQU QCBRETCT 02121000 QCBEND EQU QCBRETCT 02122000 QCBNL EQU QCBRETCT 02123000 QCBLOGCT EQU QCBRETCT 02124000 @NM00154 EQU QCBBYTE1 02125000 QCBRITRM EQU QCBBYTE1 02126000 @NM00153 EQU QCBEOLDT 02127000 QCBSLINK EQU IEDQQCB+13 02128000 QCBSTPRI EQU IEDQQCB+12 02129000 QCBSTCHN EQU IEDQQCB+9 02130000 QCBSTVTO EQU IEDQQCB+8 02131000 QCBLINK EQU IEDQQCB+5 02132000 QCBPRI EQU IEDQQCB+4 02133000 QCBELCHN EQU IEDQQCB+1 02134000 QCBHELD EQU QCBDSFLG 02135000 QCBFQCB EQU QCBDSFLG 02136000 QCBDRQQ EQU QCBDSFLG 02137000 QCBALTMH EQU QCBDSFLG 02138000 QCBCORE EQU QCBDSFLG 02139000 QCBTSQ EQU QCBDSFLG 02140000 PRF2SEQP EQU PRF2WD2 02141000 @NM00152 EQU IEDPF2+1 02142000 @NM00151 EQU PRF2FLG2 02143000 PRF2TERM EQU PRF2FLG2 02144000 PRF2SMI EQU PRF2FLG2 02145000 PRF2FORM EQU PRF2FLG2 02146000 PRF2TNTI EQU PRF2FLG2 02147000 PRF1RULN EQU PRF1SEQP+2 02148000 PRF1TAG2 EQU PRF1SQID+1 02149000 @NM00150 EQU PRF1TAG1 02150000 PRF1TAGS EQU PRF1TAG1 02151000 @NM00149 EQU PRF1FLG1 02152000 PRF1LOGD EQU PRF1FLG1 02153000 PRF1USS EQU PRF1FLG1 02154000 PRF1FORM EQU PRF1FLG1 02155000 PRF1EXPI EQU PRF1FLG1 02156000 PRF1FIDI EQU PRF1FLG1 02157000 PRF1RH EQU IEDPF1 02158000 PRFISEQ EQU IEDQPRF+38 02159000 PRFSTXT EQU PRFHQBCK 02160000 PRFNHDR EQU PRFCHDR 02161000 PRFCRCD EQU IEDQPRF+29 02162000 PRFSVSEQ EQU PRFNTXT+1 02163000 PRFSVPRI EQU PRFEOBOF 02164000 PRFISIZE EQU PRFSCAN+1 02165000 @NM00148 EQU PRFSCAN 02166000 PRFEOB EQU PRFXTRA+1 02167000 PRFSTSO EQU PRFXTRA 02168000 PRFNHDRN EQU PRFSTAT1 02169000 PRFNLSTN EQU PRFSTAT1 02170000 PRFLOCK EQU PRFEOFN 02171000 PRFDUPLN EQU PRFSTAT1 02172000 PRFTSMSG EQU PRFSTAT1 02173000 PRFITCPN EQU PRFSTAT1 02174000 PRFERMGN EQU PRFSTAT1 02175000 PRFCNCLN EQU PRFSTAT1 02176000 PRFSVFLG EQU @NM00147+3 02177000 PRFSIZE EQU PRFSVFFO+2 02178000 PRFSRCE EQU PRFSVFFO 02179000 PRFLCB EQU IEDQPRF+13 02180000 PRFPIUO EQU PRFPLQCB 02181000 PRFTI0 EQU PRFTIC+1 02182000 @NM00146 EQU PRFTICC 02183000 @NM00145 EQU PRFTICC 02184000 @NM00144 EQU PRFTICC 02185000 PRFTICON EQU PRFTICC 02186000 @NM00143 EQU PRFTICC 02187000 @NM00142 EQU PRFTICC 02188000 PRFBFMM EQU PRFTICC 02189000 PRFEOMSG EQU PRFTICC 02190000 PRFCOUNT EQU PRFLINK+1 02191000 @NM00141 EQU PRFLINK 02192000 PRFFLAGS EQU PRFPRI 02193000 PRFIOADR EQU PRFQCBA 02194000 PRFOPCDE EQU PRFKEY 02195000 @NM00140 EQU OPREFLG3 02196000 OPREATCH EQU OPREFLG3 02197000 @NM00139 EQU OPREFLG3 02198000 OPREFLG2 EQU IEDOPRED+13 02199000 OPRETIC EQU OPRESAVE 02200000 OPRELINK EQU IEDOPRED+5 02201000 OPREKEY EQU IEDOPRED 02202000 OPCBOTTM EQU IEDQOPCD+1184 02203000 @NM00138 EQU IEDQOPCD+1100 02204000 @NM00137 EQU IEDQOPCD+948 02205000 @NM00136 EQU IEDQOPCD+940 02206000 @NM00135 EQU IEDQOPCD+380 02207000 @NM00134 EQU OPCPWCOB+9 02208000 @NM00133 EQU OPCPWCOB+8 02209000 @NM00132 EQU OPCPWECB+1 02210000 OPCPWCCC EQU OPCPWECB 02211000 OPCPWCHN EQU OPCPWQCB+1 02212000 OPCPWVTO EQU OPCPWQCB 02213000 OPCTOTCK EQU IEDQOPCD+360 02214000 OPCAPXTL EQU IEDQOPCD+356 02215000 OPCDECR EQU IEDQOPCD+352 02216000 OPCBUFWT EQU IEDQOPCD+348 02217000 OPCADGOT EQU IEDQOPCD+318 02218000 OPCRQCNT EQU IEDQOPCD+316 02219000 OPPOLSTP EQU IEDQOPCD+312 02220000 OPCCKCIB EQU IEDQOPCD+308 02221000 OPCEND EQU IEDQOPCD+307 02222000 OPCSTCBS EQU IEDQOPCD+306 02223000 OPCHNEND EQU IEDQOPCD+302 02224000 OPCOQSW EQU IEDQOPCD+301 02225000 @NM00131 EQU OPCSPEC 02226000 @NM00130 EQU OPCSPEC 02227000 @NM00129 EQU OPCSPEC 02228000 @NM00128 EQU OPCSPEC 02229000 OPCFRMCA EQU OPCSPEC 02230000 OPCPART EQU OPCSPEC 02231000 OPCALTD EQU OPCSPEC 02232000 OPCBFEND EQU IEDQOPCD+296 02233000 OPCBFIRS EQU IEDQOPCD+292 02234000 OPCAVBUF EQU IEDQOPCD+290 02235000 OPCIPLCT EQU IEDQOPCD+289 02236000 OPCCLNTS EQU IEDQOPCD+288 02237000 OPCHA8 EQU IEDQOPCD+286 02238000 OPCBFREQ EQU IEDQOPCD+284 02239000 OPCFREBF EQU IEDQOPCD+280 02240000 OPCNEXT EQU IEDQOPCD+272 02241000 OPCFMDFC EQU IEDQOPCD+268 02242000 OPCSCNC EQU IEDQOPCD+264 02243000 OPCHORTG EQU IEDQOPCD+260 02244000 OPCHORT EQU IEDQOPCD+256 02245000 OPCCKPTL EQU IEDQOPCD+252 02246000 OPCCKPTF EQU IEDQOPCD+248 02247000 OPCWAITA EQU IEDQOPCD+244 02248000 OPCWAITR EQU IEDQOPCD+240 02249000 OPCWAITP EQU IEDQOPCD+236 02250000 OPCWAITO EQU IEDQOPCD+232 02251000 OPCWAITN EQU IEDQOPCD+228 02252000 OPCWAITL EQU IEDQOPCD+224 02253000 OPCWAITC EQU IEDQOPCD+220 02254000 @NM00127 EQU OPCLDNME+5 02255000 @NM00126 EQU OPCLDNME 02256000 OPCWAIT EQU IEDQOPCD+192 02257000 OPCCKERB EQU IEDQOPCD+164 02258000 OPCBFERB EQU IEDQOPCD+148 02259000 OPCWRKSZ EQU IEDQOPCD+144 02260000 OPCWORK EQU IEDQOPCD+140 02261000 OPCRSAVE EQU IEDQOPCD+132 02262000 OPCQCBAD EQU IEDQOPCD+128 02263000 OPCTRMWA EQU IEDQOPCD+52 02264000 OPCPSTWT EQU IEDQOPCD+48 02265000 OPCTNTEA EQU IEDQOPCD+44 02266000 OPCPGCK EQU IEDQOPCD+40 02267000 OPCLCB EQU IEDQOPCD+36 02268000 @NM00125 EQU IEDQOPCD+32 02269000 OPCIPLAD EQU IEDQOPCD+28 02270000 OPCTOFLK EQU IEDQOPCD+24 02271000 OPCOPTLK EQU IEDQOPCD+20 02272000 OPCDCBLK EQU IEDQOPCD+16 02273000 OPCDOUBL EQU IEDQOPCD 02274000 @NM00124 EQU OCLDNME+4 02275000 @NM00123 EQU OCPREFLG 02276000 OCTOTEP EQU OCPREFLG 02277000 OCREPOST EQU OCPREFLG 02278000 OCRSPSNT EQU OCPREFLG 02279000 OCBFREQ EQU OCPREFLG 02280000 OCIDLE EQU OCREQFLG 02281000 OCFORCE EQU OCREQFLG 02282000 OCDCARD EQU OCREQFLG 02283000 OCPARTAL EQU OCREQFLG 02284000 OCADNCP EQU OCREQFLG 02285000 @NM00122 EQU OCREQFLG 02286000 @NM00121 EQU OCREQFLG 02287000 OCFLUSHZ EQU OCREQFLG 02288000 OCRESPCT EQU OCLINTTE 02289000 OCCKPTWA EQU OCCKDATA+4 02290000 @NM00118 EQU OCRSTGTM+2 02291000 OCCKDAT2 EQU OCRSTGTM+1 02292000 OCCKDAT1 EQU OCRSTGTM 02293000 OCPTRSAV EQU OCMODNME+4 02294000 OCPUADR EQU OCIPLWA+2 02295000 OCWTGSAV EQU OCIPLWA 02296000 OCDVRDCT EQU OCBACKUP+6 02297000 OCNCP EQU OCBACKUP+4 02298000 OCBUFGOT EQU OCBACKUP+2 02299000 OCBUFNED EQU OCBACKUP 02300000 OCRESNUM EQU OCPARM 02301000 OCSEQ EQU OCTRUNIT+2 02302000 @NM00117 EQU OCRSID+1 02303000 OCALLFLG EQU OCALSTAT 02304000 OCACTREQ EQU OCALSTAT 02305000 OCREDRVE EQU OCALSTAT 02306000 OCSEQIND EQU OCALSTAT 02307000 @NM00116 EQU OCALSTAT 02308000 OCRENTRD EQU OCALSTAT 02309000 OCWTGB EQU OCTIOT 02310000 @NM00115 EQU @NM00114+2 02311000 OCCONID EQU OCDEST 02312000 OCRLN EQU IEDQOPCE+15 02313000 OCRESP EQU OCFLAG 02314000 OCATTACH EQU OCFLAG 02315000 OCSSCP EQU OCFLAG 02316000 OCOUTPUT EQU OCFLAG 02317000 OCLINE EQU OCFLAG 02318000 OCMPP EQU OCFLAG 02319000 OCCONSOL EQU OCFLAG 02320000 @NM00113 EQU OCSWITCH 02321000 OCQUCKN EQU OCSWITCH 02322000 OCPRIFLG EQU OCOPTCDE 02323000 @NM00112 EQU OCRUDEST+1 02324000 @NM00111 EQU OCSCAN 02325000 OCNOTUCB EQU OCSCAN 02326000 OCNONAME EQU OCSCAN 02327000 OCALLRLN EQU OCSCAN 02328000 OCDDNAME EQU OCSCAN 02329000 OCDDNRLN EQU OCSCAN 02330000 OCADDR EQU OCSCAN 02331000 OCELMPTR EQU OCELEM+1 02332000 OCELMPRI EQU OCELEM 02333000 @NM00110 EQU NSLGRPNM+4 02334000 @NM00109 EQU IEDNSLD+34 02335000 NSLUNCNT EQU NSLERB+12 02336000 @NM00108 EQU NSLESTAT 02337000 NSLMPPI EQU NSLESTAT 02338000 @NM00107 EQU NSLESTAT 02339000 NSLELINK EQU NSLERB+5 02340000 NSLERBPR EQU NSLERB+4 02341000 NSLERQCB EQU NSLERB 02342000 NSLCTTRM EQU IEDNSLD+13 02343000 @NM00106 EQU NSLGPCUS 02344000 NSLDRDRV EQU NSLGPCUS 02345000 NSLSDIAL EQU NSLGPCUS 02346000 NSLNGPSL EQU NSLGPCUS 02347000 NSLGPTSP EQU NSLGPCUS 02348000 NSLNGPST EQU NSLGPCUS 02349000 NSLSAVE EQU IEDNSLD+9 02350000 @NM00105 EQU NSLPLCB 02351000 NSLPLCBR EQU NSLPLCB 02352000 NSLOPRE EQU IEDNSLD 02353000 NSLSAVE2 EQU IEDNNSLD+4 02354000 NSLSAVE1 EQU IEDNNSLD 02355000 SAVTBITN EQU IEDNSVTD+312 02356000 @NM00104 EQU SAVTCKQB+8 02357000 @NM00103 EQU SAVTCKEC+1 02358000 @NM00102 EQU SAVTCKCC 02359000 SAVTCKPO EQU SAVTCKCC 02360000 SAVTCKWA EQU SAVTCKCC 02361000 SAVTCKCH EQU SAVTCKTB+1 02362000 SAVTCKVT EQU SAVTCKTB 02363000 @NM00101 EQU IEDNSVTD+297 02364000 SAVTRDFG EQU SAVTRDRV+12 02365000 @NM00100 EQU SAVTRDRV+5 02366000 SAVTRDPY EQU SAVTRDRV+4 02367000 SAVTRDQB EQU SAVTRDRV+1 02368000 SAVTRDKY EQU SAVTRDRV 02369000 SAVTNID EQU IEDNSVTD+280 02370000 SAVTDVAS EQU IEDNSVTD+276 02371000 SAVTPLSZ EQU IEDNSVTD+274 02372000 @NM00099 EQU IEDNSVTD+273 02373000 SAVTSUBL EQU IEDNSVTD+272 02374000 @NM00098 EQU SAVTZELM+1 02375000 SAVTSUBM EQU SAVTZELM 02376000 SAVTMHDX EQU IEDNSVTD+268 02377000 SAVTNAT1 EQU IEDNSVTD+266 02378000 SAVTSH20 EQU IEDNSVTD+264 02379000 SAVTLCBS EQU IEDNSVTD+260 02380000 SAVTRNMP EQU IEDNSVTD+256 02381000 SAVTTNTX EQU IEDNSVTD+252 02382000 SAVTNAX EQU IEDNSVTD+248 02383000 SAVTSUBV EQU IEDNSVTD+247 02384000 SAVTSUBA EQU IEDNSVTD+246 02385000 SAVTSIBC EQU IEDNSVTD+244 02386000 SAVTBSM EQU IEDNSVTD+240 02387000 SAVTSCPT EQU SAVTTCPU 02388000 SAVTRQTG EQU IEDNSVTD+236 02389000 SAVTRQCH EQU IEDNSVTD+232 02390000 SAVTMAND EQU IEDNSVTD+228 02391000 SAVTNADL EQU IEDNSVTD+222 02392000 SAVTNATL EQU IEDNSVTD+220 02393000 SAVTMHTB EQU IEDNSVTD+216 02394000 SAVTSSMH EQU IEDNSVTD+212 02395000 SAVTQRS EQU IEDNSVTD+208 02396000 SAVTRQIN EQU IEDNSVTD+204 02397000 SAVTDFCO EQU IEDNSVTD+200 02398000 SAVTSAO EQU IEDNSVTD+196 02399000 SAVTSARI EQU IEDNSVTD+192 02400000 SAVTSAC EQU IEDNSVTD+188 02401000 SAVTSAI EQU IEDNSVTD+184 02402000 SAVTCSCI EQU IEDNSVTD+180 02403000 SAVTSSRP EQU IEDNSVTD+176 02404000 SAVTSSRQ EQU IEDNSVTD+172 02405000 SAVTSCLU EQU IEDNSVTD+168 02406000 SAVTXTRQ EQU IEDNSVTD+164 02407000 SAVTMVBF EQU IEDNSVTD+160 02408000 @NM00097 EQU IEDNSVTD+148 02409000 SAVTIPCQ EQU IEDNSVTD+144 02410000 @NM00096 EQU IEDNSVTD+136 02411000 SAVTXFMI EQU IEDNSVTD+132 02412000 @NM00095 EQU IEDNSVTD+124 02413000 SAVTXFMO EQU IEDNSVTD+120 02414000 @NM00094 EQU IEDNSVTD+116 02415000 SAVTSSSR EQU IEDNSVTD+112 02416000 SAVTSCPQ EQU IEDNSVTD+108 02417000 SAVTSLCB EQU IEDNSVTD+104 02418000 SAVTLUSR EQU IEDNSVTD+100 02419000 @NM00093 EQU SAVTLUSQ+8 02420000 SAVTLUSP EQU SAVTLUSQ+4 02421000 SAVTLUSB EQU SAVTLUSQ 02422000 @NM00092 EQU IEDNSVTD+84 02423000 SAVTSAT EQU IEDNSVTD+80 02424000 SAVTNAT EQU IEDNSVTD+76 02425000 SAVTCLUP EQU IEDNSVTD+72 02426000 SAVTPIUT EQU IEDNSVTD+68 02427000 SAVTRNTA EQU IEDNSVTD+64 02428000 SAVTDNIR EQU IEDNSVTD+60 02429000 SAVTCNIR EQU IEDNSVTD+56 02430000 SAVTFLDH EQU IEDNSVTD+52 02431000 SAVTSRTN EQU IEDNSVTD+48 02432000 SAVTSREQ EQU IEDNSVTD+44 02433000 SAVTFAIL EQU IEDNSVTD+42 02434000 SAVTSUSE EQU IEDNSVTD+40 02435000 SAVTSIB EQU IEDNSVTD+36 02436000 SAVTPRTN EQU IEDNSVTD+32 02437000 @NM00091 EQU IEDNSVTD+28 02438000 SAVTWH20 EQU IEDNSVTD+26 02439000 SAVTPWT EQU IEDNSVTD+24 02440000 SAVTPRTQ EQU IEDNSVTD+20 02441000 SAVTPREQ EQU IEDNSVTD+16 02442000 SAVTPH20 EQU IEDNSVTD+14 02443000 SAVTPUSE EQU IEDNSVTD+12 02444000 SAVTPLCB EQU IEDNSVTD+8 02445000 SAVTPOOL EQU IEDNSVTD+4 02446000 SAVTPRMT EQU SAVTDIAF 02447000 SAVTVIRT EQU SAVTDIAF 02448000 AVTCPBNO EQU IEDQAVTD+1244 02449000 AVTHRESS EQU IEDQAVTD+1243 02450000 @NM00090 EQU IEDQAVTD+1242 02451000 @NM00089 EQU IEDQAVTD+1241 02452000 @NM00088 EQU IEDQAVTD+1240 02453000 @NM00087 EQU IEDQAVTD+1237 02454000 @NM00086 EQU IEDQAVTD+1236 02455000 AVTHRESE EQU @NM00085 02456000 AVTRADDR EQU IEDQAVTD+1228 02457000 AVTNADDR EQU IEDQAVTD+1224 02458000 AVTHRESN EQU IEDQAVTD+1220 02459000 AVTVOLRN EQU IEDQAVTD+1216 02460000 AVTTOTNN EQU IEDQAVTD+1212 02461000 AVTTRCYN EQU IEDQAVTD+1208 02462000 AVTRCTRN EQU IEDQAVTD+1204 02463000 AVTNOVON EQU IEDQAVTD+1200 02464000 AVTADEBN EQU IEDQAVTD+1196 02465000 AVTVOLRR EQU IEDQAVTD+1192 02466000 AVTTOTNR EQU IEDQAVTD+1188 02467000 AVTTRCYR EQU IEDQAVTD+1184 02468000 AVTRCTRR EQU IEDQAVTD+1180 02469000 AVTNOVOR EQU IEDQAVTD+1176 02470000 AVTADEBR EQU IEDQAVTD+1172 02471000 AVTLODPT EQU IEDQAVTD+1168 02472000 AVTIOBN EQU IEDQAVTD+1164 02473000 AVTIOBR EQU IEDQAVTD+1160 02474000 AVTCPBPT EQU IEDQAVTD+1156 02475000 AVTFCPB EQU IEDQAVTD+1152 02476000 @NM00084 EQU IEDQAVTD+1148 02477000 AVTINCPQ EQU IEDQAVTD+1144 02478000 @NM00083 EQU IEDQAVTD+1140 02479000 @NM00082 EQU IEDQAVTD+1137 02480000 @NM00081 EQU AVTBIT4 02481000 @NM00080 EQU AVTBIT4 02482000 @NM00079 EQU AVTBIT4 02483000 @NM00078 EQU AVTBIT4 02484000 @NM00077 EQU AVTBIT4 02485000 @NM00076 EQU AVTBIT4 02486000 @NM00075 EQU AVTBIT4 02487000 AVTRUFTN EQU AVTBIT4 02488000 @NM00074 EQU IEDQAVTD+1132 02489000 AVTNOBFQ EQU IEDQAVTD+1128 02490000 @NM00073 EQU IEDQAVTD+1124 02491000 AVTDKENQ EQU IEDQAVTD+1120 02492000 @NM00072 EQU IEDQAVTD+1116 02493000 AVTDKAPQ EQU IEDQAVTD+1112 02494000 AVTCOPY EQU IEDQAVTD+1108 02495000 AVTIA EQU IEDQAVTD+1104 02496000 AVTFL EQU IEDQAVTD+1100 02497000 @NM00071 EQU IEDQAVTD+1096 02498000 AVTNCPBQ EQU IEDQAVTD+1092 02499000 AVTTOTNC EQU IEDQAVTD+1088 02500000 AVTCMAX EQU IEDQAVTD+1084 02501000 AVTCMIN EQU IEDQAVTD+1080 02502000 AVTHM02 EQU IEDQAVTD+1076 02503000 AVTOPCIN EQU IEDQAVTD+1074 02504000 AVTDCTLN EQU IEDQAVTD+1072 02505000 AVTOPMSK EQU IEDQAVTD+1068 02506000 AVTDDFT EQU IEDQAVTD+1064 02507000 AVTSTEAL EQU IEDQAVTD+1060 02508000 AVTOPTN EQU IEDQAVTD+1056 02509000 AVTDSKCT EQU IEDQAVTD+1054 02510000 AVTCKRST EQU IEDQAVTD+1053 02511000 AVTSTAN EQU AVTBIT3 02512000 AVTSTACN EQU AVTBIT3 02513000 AVTSTAIN EQU AVTBIT3 02514000 AVTSTAYN EQU AVTBIT3 02515000 AVTOLTBN EQU AVTBIT3 02516000 AVTTSAB EQU AVTBIT3 02517000 AVTRFULN EQU AVTBIT3 02518000 AVTRECVN EQU AVTBIT3 02519000 @NM00070 EQU AVTBIT2 02520000 @NM00069 EQU AVTBIT2 02521000 AVTOPEIN EQU AVTBIT2 02522000 AVTSTRTN EQU AVTBIT2 02523000 AVTTOPOL EQU AVTBIT2 02524000 AVTCOPYN EQU AVTBIT2 02525000 AVTREUSN EQU AVTBIT2 02526000 AVTEXTSC EQU AVTBIT2 02527000 AVTDISKN EQU AVTBIT1 02528000 AVTQUCKN EQU AVTBIT1 02529000 AVTCLOSN EQU AVTBIT1 02530000 AVTREADN EQU AVTBIT1 02531000 AVTDLAYN EQU AVTBIT1 02532000 AVTAQTAN EQU AVTBIT1 02533000 AVTTSON EQU AVTBIT1 02534000 AVTAPLKN EQU AVTBIT1 02535000 AVTDUMBR EQU IEDQAVTD+1048 02536000 AVTDLQX EQU IEDQAVTD+1046 02537000 AVTINTLV EQU IEDQAVTD+1044 02538000 AVTSMCNT EQU IEDQAVTD+1042 02539000 AVTAVFCT EQU IEDQAVTD+1040 02540000 AVTOPCON EQU IEDQAVTD+1038 02541000 AVTOPCNT EQU IEDQAVTD+1036 02542000 AVTLNCNT EQU IEDQAVTD+1034 02543000 AVTKEYLE EQU IEDQAVTD+1032 02544000 AVTHA16 EQU IEDQAVTD+1030 02545000 AVTHA7 EQU IEDQAVTD+1028 02546000 AVTHA4 EQU IEDQAVTD+1026 02547000 AVTHA3 EQU IEDQAVTD+1024 02548000 AVTHA2 EQU IEDQAVTD+1022 02549000 AVTGETMS EQU IEDQAVTD+1021 02550000 @NM00068 EQU IEDQAVTD+1020 02551000 AVTGETMD EQU IEDQAVTD+1016 02552000 AVTGETMN EQU IEDQAVTD+1012 02553000 AVTCWTOT EQU IEDQAVTD+1008 02554000 AVTCWINT EQU IEDQAVTD+956 02555000 AVTDTRAP EQU IEDQAVTD+952 02556000 @NM00067 EQU IEDQAVTD+950 02557000 @NM00066 EQU AVTIOTR 02558000 AVTIOTRH EQU AVTIOTR 02559000 AVTIOTRE EQU AVTIOTR 02560000 @NM00065 EQU AVTSUBT 02561000 AVTSUBPT EQU AVTSUBT 02562000 AVTSUBON EQU AVTSUBT 02563000 AVTAFE30 EQU IEDQAVTD+944 02564000 AVTAFE20 EQU IEDQAVTD+940 02565000 AVTAFE10 EQU IEDQAVTD+936 02566000 AVTCWEC2 EQU IEDQAVTD+932 02567000 AVTCWPM2 EQU IEDQAVTD+928 02568000 AVTCWTS2 EQU IEDQAVTD+927 02569000 AVTCWTS1 EQU IEDQAVTD+926 02570000 AVTCWCLD EQU AVTCWFL2 02571000 AVTCWRAP EQU AVTCWFL2 02572000 @NM00064 EQU AVTCWFL2 02573000 @NM00063 EQU AVTCWFL2 02574000 @NM00062 EQU AVTCWFL2 02575000 @NM00061 EQU AVTCWFL2 02576000 @NM00060 EQU AVTCWFL2 02577000 AVTCWACT EQU AVTCWFL2 02578000 @NM00059 EQU AVTCWFL1 02579000 @NM00058 EQU AVTCWFL1 02580000 @NM00057 EQU AVTCWFL1 02581000 @NM00056 EQU AVTCWFL1 02582000 @NM00055 EQU AVTCWFL1 02583000 @NM00054 EQU AVTCWFL1 02584000 @NM00053 EQU AVTCWFL1 02585000 AVTCOMWN EQU AVTCWFL1 02586000 AVTCWEC1 EQU IEDQAVTD+920 02587000 AVTCWPM1 EQU IEDQAVTD+916 02588000 AVTCAREA EQU IEDQAVTD+912 02589000 AVTFZERO EQU IEDQAVTD+908 02590000 AVTCADDR EQU IEDQAVTD+904 02591000 AVTCOREC EQU IEDQAVTD+900 02592000 @NM00052 EQU IEDQAVTD+892 02593000 AVTCPBCB EQU IEDQAVTD+888 02594000 @NM00051 EQU IEDQAVTD+880 02595000 AVTDSIOB EQU IEDQAVTD+876 02596000 @NM00050 EQU IEDQAVTD+868 02597000 AVTCPRMB EQU IEDQAVTD+864 02598000 @NM00049 EQU IEDQAVTD+856 02599000 AVTCLOSB EQU IEDQAVTD+852 02600000 @NM00048 EQU IEDQAVTD+844 02601000 AVTACTIB EQU IEDQAVTD+840 02602000 @NM00047 EQU IEDQAVTD+836 02603000 AVTOLTEB EQU IEDQAVTD+832 02604000 AVTOLTCH EQU AVTOLTQB+1 02605000 AVTOLTVT EQU AVTOLTQB 02606000 @NM00046 EQU AVTOPCQB+8 02607000 @NM00045 EQU AVTOPCEC+1 02608000 @NM00044 EQU AVTOPCCC 02609000 AVTOPCPO EQU AVTOPCCC 02610000 AVTOPCWA EQU AVTOPCCC 02611000 AVTOPCCH EQU AVTOPCOB+1 02612000 AVTOPCVT EQU AVTOPCOB 02613000 @NM00043 EQU AVTCKPQB+9 02614000 AVTCKPTS EQU AVTCKPQB+8 02615000 @NM00042 EQU AVTCKPEC+1 02616000 @NM00041 EQU AVTCKPCC 02617000 AVTCKPPO EQU AVTCKPCC 02618000 AVTCKPWA EQU AVTCKPCC 02619000 AVTCKPCH EQU AVTCKPTB+1 02620000 AVTCKPVT EQU AVTCKPTB 02621000 @NM00040 EQU IEDQAVTD+796 02622000 AVTBFRTB EQU IEDQAVTD+792 02623000 @NM00039 EQU IEDQAVTD+784 02624000 AVTBFREB EQU IEDQAVTD+780 02625000 AVTTIMQ EQU IEDQAVTD+776 02626000 @NM00038 EQU IEDQAVTD+772 02627000 AVTIMQPS EQU IEDQAVTD+768 02628000 AVTINOUT EQU IEDQAVTD+766 02629000 AVTREFTM EQU IEDQAVTD+764 02630000 @NM00037 EQU IEDQAVTD+752 02631000 AVTDELYB EQU IEDQAVTD+748 02632000 AVTOCQPT EQU IEDQAVTD+744 02633000 AVTTSOPT EQU IEDQAVTD+740 02634000 AVTSUPPT EQU IEDQAVTD+736 02635000 AVTCBQCB EQU IEDQAVTD+732 02636000 AVTMSGS EQU IEDQAVTD+729 02637000 @NM00036 EQU AVTSYSER 02638000 @NM00035 EQU AVTSYSER 02639000 @NM00034 EQU AVTSYSER 02640000 @NM00033 EQU AVTSYSER 02641000 @NM00032 EQU AVTSYSER 02642000 @NM00031 EQU AVTSYSER 02643000 AVTCMAXN EQU AVTSYSER 02644000 AVTCMINN EQU AVTSYSER 02645000 AVT2260L EQU IEDQAVTD+724 02646000 AVTABEPL EQU AVTADBUF 02647000 AVTHFF EQU AVTCLRHI+2 02648000 @NM00030 EQU AVTCLRHI 02649000 AVTCCLNK EQU AVTCRELE+5 02650000 AVTCCPRI EQU AVTCRELE+4 02651000 AVTCCQCB EQU AVTCCELE+1 02652000 AVTCCKEY EQU AVTCCELE 02653000 AVTDELAD EQU IEDQAVTD+704 02654000 AVTDELEM EQU IEDQAVTD+700 02655000 AVTBSX EQU AVTCKLNK 02656000 AVTOPETR EQU AVTHG01 02657000 @NM00029 EQU AVTCKBYT 02658000 AVTCKONQ EQU AVTCKBYT 02659000 @NM00028 EQU AVTCKBYT 02660000 @NM00027 EQU AVTCKBYT 02661000 @NM00026 EQU AVTCKBYT 02662000 @NM00025 EQU AVTCKBYT 02663000 @NM00024 EQU AVTCKBYT 02664000 @NM00023 EQU AVTCKBYT 02665000 AVTOPERT EQU IEDQAVTD+690 02666000 AVTOPXCL EQU IEDQAVTD+688 02667000 AVTOPERL EQU IEDQAVTD+687 02668000 @NM00022 EQU IEDQAVTD+686 02669000 AVTCKTIM EQU IEDQAVTD+684 02670000 AVTCKELV EQU IEDQAVTD+682 02671000 AVTCPRCD EQU IEDQAVTD+681 02672000 AVTWARMN EQU AVTCKELF 02673000 AVTCRTLN EQU AVTCKELF 02674000 AVTCPIPN EQU AVTCKELF 02675000 AVTCCLCN EQU AVTCKELF 02676000 AVTCINCN EQU AVTCKELF 02677000 @NM00021 EQU AVTCKELF 02678000 AVTCMCPN EQU AVTCKELF 02679000 AVTNQBCK EQU AVTCKELF 02680000 AVTCKQAD EQU IEDQAVTD+677 02681000 AVTSCBSZ EQU IEDQAVTD+676 02682000 @NM00020 EQU IEDQAVTD+672 02683000 AVTCKELE EQU IEDQAVTD+668 02684000 @NM00019 EQU AVTCKPEL+8 02685000 AVTCKRLK EQU AVTCKPEL+5 02686000 AVTCKRPR EQU AVTCKPEL+4 02687000 AVTCKRMQ EQU AVTCKRMV+1 02688000 AVTCKRKY EQU AVTCKRMV 02689000 AVTHK EQU IEDQAVTD+648 02690000 AVTHI EQU IEDQAVTD+644 02691000 AVTIOT EQU IEDQAVTD+640 02692000 AVTNX EQU IEDQAVTD+636 02693000 AVTTONE EQU IEDQAVTD+632 02694000 AVTA3TL EQU IEDQAVTD+628 02695000 AVTDMECB EQU IEDQAVTD+624 02696000 AVTABEND EQU IEDQAVTD+618 02697000 AVTPLCBN EQU IEDQAVTD+616 02698000 @NM00018 EQU AVTSAVTP+1 02699000 @NM00017 EQU AVTSAVTF 02700000 AVTSNA EQU AVTSAVTF 02701000 AVTONSNA EQU AVTSAVTF 02702000 AVTVTMCP EQU AVTSAVTF 02703000 @NM00016 EQU IEDQAVTD+608 02704000 AVTCMBSS EQU IEDQAVTD+604 02705000 AVTRCV EQU IEDQAVTD+600 02706000 AVTSEND EQU IEDQAVTD+596 02707000 AVTCSCH EQU IEDQAVTD+592 02708000 AVTQ1 EQU IEDQAVTD+588 02709000 AVTE7 EQU IEDQAVTD+584 02710000 AVTHB EQU IEDQAVTD+580 02711000 AVTR1 EQU IEDQAVTD+576 02712000 AVTBZ EQU IEDQAVTD+572 02713000 AVTEZ EQU IEDQAVTD+568 02714000 AVTEC EQU IEDQAVTD+564 02715000 AVTEW EQU IEDQAVTD+560 02716000 AVTNDIAL EQU AVTSCOPT 02717000 AVTN2741 EQU AVTSCOPT 02718000 AVTCONCO EQU AVTSCOPT 02719000 AVTCONC EQU AVTSCOPT 02720000 AVTCMBUF EQU AVTSCOPT 02721000 AVTAPDMP EQU AVTSCOPT 02722000 @NM00015 EQU AVTSCOPT 02723000 AVTHA EQU AVTDISP 02724000 AVTEA EQU IEDQAVTD+548 02725000 AVTAX EQU IEDQAVTD+544 02726000 AVTA3 EQU IEDQAVTD+540 02727000 AVTGD EQU IEDQAVTD+536 02728000 AVTAL EQU IEDQAVTD+532 02729000 AVTOLTST EQU AVTHG02 02730000 AVTE8 EQU IEDQAVTD+524 02731000 AVTUI EQU IEDQAVTD+520 02732000 AVTCOMPT EQU IEDQAVTD+516 02733000 AVTCRSRF EQU IEDQAVTD+512 02734000 @NM00014 EQU IEDQAVTD+508 02735000 AVTKA02 EQU IEDQAVTD+504 02736000 AVTOPTPT EQU IEDQAVTD+500 02737000 AVTPCBPT EQU IEDQAVTD+496 02738000 @NM00013 EQU AVTECB1 02739000 AVTCOMP EQU AVTECB1 02740000 @NM00012 EQU AVTECB1 02741000 AVTOPECA EQU IEDQAVTD+488 02742000 AVTOLECA EQU IEDQAVTD+484 02743000 AVTCKECA EQU IEDQAVTD+480 02744000 AVTCWECA EQU IEDQAVTD+476 02745000 AVTCWTCB EQU IEDQAVTD+472 02746000 AVTOLTCB EQU IEDQAVTD+468 02747000 AVTOCTCB EQU IEDQAVTD+464 02748000 AVTCKTCB EQU IEDQAVTD+460 02749000 AVTNOLBF EQU IEDQAVTD+454 02750000 AVTNCKPR EQU IEDQAVTD+453 02751000 AVTCIB EQU IEDQAVTD+452 02752000 AVTSPLPT EQU IEDQAVTD+448 02753000 AVTMVBFR EQU IEDQAVTD+444 02754000 AVTSBTA EQU IEDQAVTD+440 02755000 AVTRARTN EQU IEDQAVTD+436 02756000 AVTBSCAN EQU IEDQAVTD+432 02757000 AVTRDYA EQU IEDQAVTD+428 02758000 AVTDISTR EQU IEDQAVTD+420 02759000 AVTPARM3 EQU IEDQAVTD+416 02760000 @NM00011 EQU AVTPKF 02761000 @NM00010 EQU AVTPKF 02762000 @NM00009 EQU AVTPKF 02763000 AVTFTCHF EQU AVTPKF 02764000 @NM00008 EQU AVTPKF 02765000 @NM00007 EQU AVTPKF 02766000 @NM00006 EQU AVTPKF 02767000 @NM00005 EQU AVTPKF 02768000 AVTPARM EQU IEDQAVTD+408 02769000 AVTEXS2A EQU IEDQAVTD+402 02770000 AVTEXA2S EQU IEDQAVTD+396 02771000 AVTOCGET EQU IEDQAVTD+392 02772000 AVTCKAVT EQU @NM00003+1 02773000 @NM00004 EQU AVTCKFLG 02774000 AVTCKHLT EQU AVTCKFLG 02775000 AVTCKREQ EQU AVTCKFLG 02776000 AVTCKENV EQU AVTCKFLG 02777000 AVTCKNAC EQU AVTCKFLG 02778000 AVTCKTAC EQU AVTCKFLG 02779000 @NM00002 EQU IEDQAVTD+384 02780000 AVTREADD EQU IEDQAVTD+380 02781000 AVTREADY EQU IEDQAVTD+376 02782000 AVTRACE EQU IEDQAVTD+372 02783000 AVTTCB EQU IEDQAVTD+368 02784000 AVTPASWD EQU IEDQAVTD+360 02785000 AVTCTLCH EQU IEDQAVTD+352 02786000 AVTDOUBL EQU IEDQAVTD+344 02787000 AVTDOUBX EQU IEDQAVTD+336 02788000 AVTDPARM EQU IEDQAVTD+332 02789000 AVTCSTCS EQU IEDQAVTD+328 02790000 AVTDLQ EQU AVTSAVEX+32 02791000 @NM00001 EQU AVTSAVEX 02792000 AVTSAVE4 EQU IEDQAVTD+216 02793000 AVTSAVE3 EQU IEDQAVTD+144 02794000 AVTSAVE2 EQU IEDQAVTD+72 02795000 AVTSAVE1 EQU IEDQAVTD 02796000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02797000 @RC00382 EQU @RC00381 02798000 @RC00455 EQU @RC00453 02799000 @RC00413 EQU @RC00402 02800000 @RC00517 EQU @RC00402 02801000 @RC00537 EQU @RC00535 02802000 @RC00554 EQU @RC00552 02803000 @RC00584 EQU @RC00552 02804000 @RC00608 EQU @RC00606 02805000 @RC00627 EQU @RC00625 02806000 @RC00652 EQU @RC00625 02807000 @RC00676 EQU @RC00625 02808000 @RC00385 EQU @RC00382 02809000 @RC00458 EQU @RC00455 02810000 @RC00463 EQU @RC00455 02811000 @RC00539 EQU @RC00537 02812000 @RC00556 EQU @RC00554 02813000 @RC00563 EQU @RC00554 02814000 @RC00586 EQU @RC00584 02815000 @RC00629 EQU @RC00627 02816000 @RC00654 EQU @RC00652 02817000 @RC00678 EQU @RC00676 02818000 @RC00565 EQU @RC00563 02819000 @RC00588 EQU @RC00586 02820000 @RC00632 EQU @RC00629 02821000 @RC00637 EQU @RC00629 02822000 @RC00656 EQU @RC00654 02823000 @RC00658 EQU @RC00656 02824000 @ENDDATA EQU * 02825000 END IGCV910D,(C'PLS1733',0701,77206) 02826000