TITLE 'IGCMN10D, OP CTL START/STOP PIU TRACE ROUTINE *00001000 ' 00002000 IGCMN10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* 00007000 IGCMN10D IEDHJN AFTERHJN,HJN IDENTIFICATION MACRO 00008000 * 0259 00009000 */********************************************************************/ 00010000 */* */ 00011000 */* SET UP REGISTERS */ 00012000 */* */ 00013000 */********************************************************************/ 00014000 * 0259 00015000 * ROPCAVT=RPARM; /* OP CNTRL AVT ADDR @Y17XARW*/ 00016000 LR ROPCAVT,RPARM 0259 00017000 * OPCFLAG1=0; /* INITIALIZE FLAGS @Y17XARW*/ 00018000 MVI OPCFLAG1(ROPCAVT),X'00' 0260 00019000 * OCUNIT=INVALTIC; /* INIT INVALID TIC @YM07774*/ 00020000 L @15,INVALTIC 0261 00021000 ST @15,OCUNIT(,ROPCE) 0261 00022000 * GEN(LM 3,7,OPCSAVE(ROPCAVT));/* @Y17XARW*/ 00023000 LM 3,7,OPCSAVE(ROPCAVT) 00024000 */********************************************************************/ 00025000 */* */ 00026000 */* CAN A PIU TRACE BE PERFORMED @Y17XARW*/ 00027000 */* */ 00028000 */********************************************************************/ 00029000 * 0263 00030000 * IF SAVTPIUT=0 /* IS PIU TRACE @Y17XARW*/ 00031000 * THEN /* TABLE PRESENT? */ 00032000 L @15,AVTSAVTP(,IEDQAPTR) 0263 00033000 L @15,SAVTPIUT(,@15) 0263 00034000 LTR @15,@15 0263 00035000 BNZ @RF00263 0263 00036000 * DO; /* IF NOT, THEN */ 00037000 * RMSGNUM=NOTPRSNT; /* LOAD ERROR MESSAGE NO. */ 00038000 LH RMSGNUM,NOTPRSNT 0265 00039000 * GOTO ERRHANDL; 0266 00040000 B ERRHANDL 0266 00041000 * END; 0267 00042000 * 0267 00043000 */********************************************************************/ 00044000 */* */ 00045000 */* SCAN THE OPERANDS */ 00046000 */* */ 00047000 */********************************************************************/ 00048000 * 0268 00049000 * IF OCSWITCH^='04'X /* IF ELEMENT DOES'T INDICATE */ 00050000 * THEN /* PIU TRACE STOP, @Y17XARW*/ 00051000 @RF00263 CLI OCSWITCH(ROPCE),X'04' 0268 00052000 BE @RF00268 0268 00053000 * DO; /* THEN */ 00054000 * GOTO ERRHAND1; 0270 00055000 B ERRHAND1 0270 00056000 * END; 0271 00057000 * ELSE 0272 00058000 * ; 0272 00059000 * 0272 00060000 @RF00268 DS 0H 0273 00061000 */********************************************************************/ 00062000 */* */ 00063000 */* SET DEFAULTS FOR COMMAND TYPES */ 00064000 */* */ 00065000 */********************************************************************/ 00066000 * 0273 00067000 * LINENAME='0'B; /* DEFAULT TO GRPNAME */ 00068000 * NCPNAME='0'B; /* DEFAULT TO GRPNAME @Y17XARW*/ 00069000 * GROUPALL='1'B; /* DEFAULT TO GROUP WITH ALL */ 00070000 OI GROUPALL(RWORKA),B'01000000' 0275 00071000 NI LINENAME(RWORKA),B'01011111' 0275 00072000 * OCRLN='00'X; /* INITIALIZE OCRLN TO 0 */ 00073000 MVI OCRLN(ROPCE),X'00' 0276 00074000 * 0277 00075000 */********************************************************************/ 00076000 */* */ 00077000 */* SCAN FOR GRPNAME,, */ 00078000 */* */ 00079000 */********************************************************************/ 00080000 * 0277 00081000 * IF NEXTCHAR=',' /* IS RLN DEFALTED TO ALL? */ 00082000 * THEN /* IF SO, */ 00083000 CLI NEXTCHAR(RADVPTR),C',' 0277 00084000 BNE @RF00277 0277 00085000 * DO; /* THEN */ 00086000 * RADVPTR=RADVPTR+1; /* ADD ONE TO FORWARD PTR AND */ 00087000 LA RADVPTR,1(,RADVPTR) 0279 00088000 * WORKREG=WORKREG-1; /* SUBTRACT ONE FROM */ 00089000 BCTR WORKREG,0 0280 00090000 * END; /* REMANING LENGTH */ 00091000 */********************************************************************/ 00092000 */* */ 00093000 */* SCAN FOR GRPNAME,ALL, */ 00094000 */* */ 00095000 */********************************************************************/ 00096000 * 0282 00097000 * ELSE 0282 00098000 * DO; 0282 00099000 B @RC00277 0282 00100000 @RF00277 DS 0H 0283 00101000 * IF ALLCHAR='ALL' /* IS RLN SPECIFYED ALL, */ 00102000 * THEN /* IF YES */ 00103000 CLC ALLCHAR(3,RADVPTR),@CC01361 0283 00104000 BNE @RF00283 0283 00105000 * DO; /* THEN */ 00106000 * RADVPTR=RADVPTR+3; /* ADD THREE TO FWRD PT */ 00107000 LA @15,3 0285 00108000 ALR RADVPTR,@15 0285 00109000 * WORKREG=WORKREG-3; /* AND SUBTRACT THREE FROM 0286 00110000 * REMANING LENGTH */ 00111000 SLR WORKREG,@15 0286 00112000 * IF NEXTCHAR^=',' /* IS THERE AN INPROPER */ 00113000 * THEN /* DELIMITER */ 00114000 CLI NEXTCHAR(RADVPTR),C',' 0287 00115000 BE @RF00287 0287 00116000 * DO; 0288 00117000 * GOTO ERRHAND1; 0289 00118000 B ERRHAND1 0289 00119000 * END; 0290 00120000 * ELSE 0291 00121000 * DO; 0291 00122000 @RF00287 DS 0H 0292 00123000 * RADVPTR=RADVPTR+1; /* ADV PAST COMMAND */ 00124000 LA RADVPTR,1(,RADVPTR) 0292 00125000 * WORKREG=WORKREG-1; /* SUB 1 FROM LEN */ 00126000 BCTR WORKREG,0 0293 00127000 * END; 0294 00128000 * END; 0295 00129000 * 0295 00130000 */********************************************************************/ 00131000 */* */ 00132000 */* SCAN FOR GRPNAME,RLN, */ 00133000 */* */ 00134000 */********************************************************************/ 00135000 * 0296 00136000 * ELSE 0296 00137000 * DO; 0296 00138000 B @RC00283 0296 00139000 @RF00283 DS 0H 0297 00140000 * IF NEXTCHAR>='0'&NEXTCHAR<250 THEN/* THEN CALL THE 0297 00141000 * CONVERT TO */ 00142000 CLI NEXTCHAR(RADVPTR),C'0' 0297 00143000 BL @RF00297 0297 00144000 CLI NEXTCHAR(RADVPTR),250 0297 00145000 BNL @RF00297 0297 00146000 * DO; /* BINARY ROUTINE */ 00147000 * GROUPALL='0'B; /* INDICATE NOT ALL BUT RLN ON 0299 00148000 * GRPNAME */ 00149000 NI GROUPALL(RWORKA),B'10111111' 0299 00150000 * CALL CNVTBIN; 0300 00151000 BAL @14,CNVTBIN 0300 00152000 * END; 0301 00153000 * 0302 00154000 */********************************************************************/ 00155000 */* */ 00156000 */* IF NOT A GRPNAME, SET LINENAME AND NCPNAME INDICATOR @Y17XARW*/ 00157000 */* */ 00158000 */********************************************************************/ 00159000 * 0302 00160000 * ELSE 0302 00161000 * DO; /* NOT GRPNAME */ 00162000 B @RC00297 0302 00163000 @RF00297 DS 0H 0303 00164000 * LINENAME='1'B; /* SET LINENAME CMD TYPE */ 00165000 * NCPNAME='1'B; /* SET NCPNAME TYPE @Y17XARW*/ 00166000 OI LINENAME(RWORKA),B'10100000' 0304 00167000 * END; /* @Y17XARW*/ 00168000 * END; 0306 00169000 @RC00297 DS 0H 0307 00170000 * END; 0307 00171000 * 0307 00172000 @RC00283 DS 0H 0308 00173000 */********************************************************************/ 00174000 */* */ 00175000 */* IS COMMAND A START OR STOP */ 00176000 */* */ 00177000 */********************************************************************/ 00178000 * 0308 00179000 * IF ONCHAR='ON' /* IF THE 'ON' OPERAND */ 00180000 * THEN /* IS PRESENT, */ 00181000 @RC00277 CLC ONCHAR(2,RADVPTR),@CC01364 0308 00182000 BNE @RF00308 0308 00183000 * DO; /* THEN */ 00184000 * OCSWITCH='05'X; /* INDICATE IT IN THE ELEMENT */ 00185000 MVI OCSWITCH(ROPCE),X'05' 0310 00186000 * RADVPTR=RADVPTR+2; /* AND UPDATE ADVANSED POINTR */ 00187000 LA @15,2 0311 00188000 ALR RADVPTR,@15 0311 00189000 * WORKREG=WORKREG-2; /* AND REMANING LENGTH. */ 00190000 SLR WORKREG,@15 0312 00191000 * END; 0313 00192000 * ELSE 0314 00193000 * DO; 0314 00194000 B @RC00308 0314 00195000 @RF00308 DS 0H 0315 00196000 * IF OFFCHAR='OFF' /* IF THE 'OFF' OPERAND */ 00197000 * THEN /* IS PRESENT, THEN */ 00198000 CLC OFFCHAR(3,RADVPTR),@CC01365 0315 00199000 BNE @RF00315 0315 00200000 * DO; /* INDICATE IT IN */ 00201000 * RADVPTR=RADVPTR+3; /* THE ELEMENT AND */ 00202000 LA @15,3 0317 00203000 ALR RADVPTR,@15 0317 00204000 * WORKREG=WORKREG-3; /* UPDATE ADVANSED PTR AND 0318 00205000 * REMANING LENGTH. */ 00206000 SLR WORKREG,@15 0318 00207000 * END; 0319 00208000 * ELSE /* IF THE 'ON' OR 'OFF' */ 00209000 * DO; /* OPERANDS AREN'T PRESENT */ 00210000 B @RC00315 0320 00211000 @RF00315 DS 0H 0321 00212000 * GOTO ERRHAND1; 0321 00213000 B ERRHAND1 0321 00214000 * END; 0322 00215000 * END; 0323 00216000 @RC00315 DS 0H 0324 00217000 * 0324 00218000 */********************************************************************/ 00219000 */* */ 00220000 */* CHECK FOR REMAINING OPERANDS */ 00221000 */* */ 00222000 */********************************************************************/ 00223000 * 0324 00224000 * IF WORKREG^=0 /* IF THE BTRACE CMD CONTAINS */ 00225000 * THEN 0324 00226000 @RC00308 SLR @15,@15 0324 00227000 CR WORKREG,@15 0324 00228000 BE @RF00324 0324 00229000 * IF WORKREG>0 /* CHARACTERS FOLLOWING THE */ 00230000 * THEN 0325 00231000 CR WORKREG,@15 0325 00232000 BNH @RF00325 0325 00233000 * IF NEXTCHAR^=' ' /* 'ON/OFF' OPERAND AND THE */ 00234000 * THEN /* NEXT CHARACTER ISN'T A */ 00235000 CLI NEXTCHAR(RADVPTR),C' ' 0326 00236000 BE @RF00326 0326 00237000 * DO; /* BLANK THEN CALL */ 00238000 * GOTO ERRHAND1; 0328 00239000 B ERRHAND1 0328 00240000 * END; 0329 00241000 * ELSE 0330 00242000 * ; 0330 00243000 @RF00326 DS 0H 0331 00244000 * ELSE /* IF REMANING LENGTH IS */ 00245000 * DO; /* LESS THAN ZERO THEN */ 00246000 B @RC00325 0331 00247000 @RF00325 DS 0H 0332 00248000 * GOTO ERRHAND1; 0332 00249000 B ERRHAND1 0332 00250000 * END; 0333 00251000 * ELSE 0334 00252000 * ; 0334 00253000 @RF00324 DS 0H 0335 00254000 * 0335 00255000 */********************************************************************/ 00256000 */* */ 00257000 */* FIND TTE FOR GRPNAME, LINENAME, OR NCPNAME. @Y17XARW*/ 00258000 */* THEN SET TRACE BITS IN ALL RESOURCES FOUND IN HIERARCHY @Y17XARW*/ 00259000 */* BELOW INPUT TTE(NCP, LINE, OR GROUP), AS WELL AS BITS @Y17XARW*/ 00260000 */* IN NCP AND LINE TTE'S. TRACE BITS ARE NOT SET IN GROUP @Y17XARW*/ 00261000 */* TTES. @Y17XARW*/ 00262000 */********************************************************************/ 00263000 * 0335 00264000 * OCBACKUP=OPCDOUBL; /* PLACE LINE NAME IN ELEMENT */ 00265000 @RC00324 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0335 00266000 * SWITCHES='00'X; /* ZERO THE SWITCH FIELD */ 00267000 MVI SWITCHES(RWORKA),X'00' 0336 00268000 * IF LINENAME='0'B&NCPNAME='0'B& /* IF THIS IS GROUP @Y17XARW*/ 00269000 * GROUPALL='0'B THEN /* WITH RLN REQUEST, @Y17XARW*/ 00270000 TM LINENAME(RWORKA),B'11100000' 0337 00271000 BNZ @RF00337 0337 00272000 * DO; /* FIND LINE ENTRY @Y17XARW*/ 00273000 * CALL FINDENTY; /* GOTO DCBLOCAT @Y17XARW*/ 00274000 BAL @14,FINDENTY 0339 00275000 * IEDQTPTR=RMSGNUM; /* SETUP LINE ENTRY @Y17XARW*/ 00276000 STCM RMSGNUM,7,IEDQTPTR(RWORKA) 0340 00277000 * IF TRMPREF='0'B|((TRMTYPE^=TRMSDLC)&(TRMTYPE^=TRMNSDLC))/* IF 00278000 * THIS IS NOT A LINE NOR */ 00279000 * THEN 0341 00280000 L @15,IEDQTPTR-1(,RWORKA) 0341 00281000 LA @15,0(,@15) 0341 00282000 TM TRMPREF(@15),B'00010000' 0341 00283000 BZ @RT00341 0341 00284000 SL @15,@CF01393 0341 00285000 CLI TRMTYPE(@15),X'21' 0341 00286000 BE @RF00341 0341 00287000 CLI TRMTYPE(@15),X'20' 0341 00288000 BNE @RT00341 0341 00289000 * GOTO ERRHAND1; /* A 3705 ENTRY, @Y17XARW 00290000 * GOTO ERROR RTN @Y17XARW*/ 00291000 * END; /* @Y17XARW*/ 00292000 * ELSE 0344 00293000 * CALL TTESRCH; /* ELSE FIND TTE FOR NCPNAME, 0344 00294000 * LINENAME OR GRPALL @Y17XARW*/ 00295000 B @RC00337 0344 00296000 @RF00337 BAL @14,TTESRCH 0344 00297000 * IF GROUPALL='1'B THEN /* IF GROUPALL RQST @Y17XARW*/ 00298000 @RC00337 TM GROUPALL(RWORKA),B'01000000' 0345 00299000 BNO @RF00345 0345 00300000 * CALL SCANGRP; /* SCAN GROUP TTE @Y17XARW*/ 00301000 BAL @14,SCANGRP 0346 00302000 * ELSE /* ELSE SCAN LINE OR @Y17XARR*/ 00303000 * DO; /* NCP TTE @Y17XARW*/ 00304000 B @RC00345 0347 00305000 @RF00345 DS 0H 0348 00306000 * IF TRMLINE='1'B THEN /* LINE? @Y17XARR*/ 00307000 L @15,IEDQTPTR-1(,RWORKA) 0348 00308000 LA @15,0(,@15) 0348 00309000 TM TRMLINE(@15),B'10000000' 0348 00310000 BNO @RF00348 0348 00311000 * SAVELINE=IEDQTPTR; /* SAVE LINE TTE @Y17XARR*/ 00312000 LA @14,OPCWRKSP+12(,ROPCAVT) 0349 00313000 ST @15,SAVELINE(,@14) 0349 00314000 * ELSE 0350 00315000 * ; /* FALL THROUGH @Y17XARR*/ 00316000 @RF00348 DS 0H 0351 00317000 * CALL SCANTTE; /* SCAN @Y17XARR*/ 00318000 BAL @14,SCANTTE 0351 00319000 * END; /* @Y17XARR*/ 00320000 * 0353 00321000 */********************************************************************/ 00322000 */* */ 00323000 */* SELECT THE PROPER COMPLETION MESSAGE */ 00324000 */* */ 00325000 */********************************************************************/ 00326000 * 0353 00327000 *INDICATE: 0353 00328000 * IF TURNEDON='1'B /* IF THE TRACE BIT HAS */ 00329000 * THEN /* BEEN TURNED ON AND */ 00330000 @RC00345 DS 0H 0353 00331000 INDICATE TM TURNEDON(RWORKA),B'00010000' 0353 00332000 BNO @RF00353 0353 00333000 * IF WASON='1'B /* IF A TRACE BIT WAS ON THEN SET*/ 00334000 * THEN /* ERRMSG FOR SAME PIU @Y17XARW*/ 00335000 TM WASON(RWORKA),B'01000000' 0354 00336000 BNO @RF00354 0354 00337000 * RMSGNUM=SOMEON; /* TRACE BITS ALREADY ON. */ 00338000 LH RMSGNUM,SOMEON 0355 00339000 * ELSE /* IF TRACE BIT WAS TURNED ON */ 00340000 * RMSGNUM=TRACEON; /* THEN SET PROPER MSG. */ 00341000 B @RC00354 0356 00342000 @RF00354 LH RMSGNUM,TRACEON 0356 00343000 * ELSE 0357 00344000 * IF TURNDOFF='1'B /* IF TRACE BIT HAS */ 00345000 * THEN /* BEEN TURNED OFF AND */ 00346000 B @RC00353 0357 00347000 @RF00353 TM TURNDOFF(RWORKA),B'00100000' 0357 00348000 BNO @RF00357 0357 00349000 * IF WASOFF='1'B /* IF A TRACE BIT WAS ON */ 00350000 * THEN /* THEN SET ERRMSG FOR SOME */ 00351000 TM WASOFF(RWORKA),B'10000000' 0358 00352000 BNO @RF00358 0358 00353000 * RMSGNUM=SOMEOFF; /* PIU TRACE BITS @Y17XARW 00354000 * ALREADY ON @Y17XARW*/ 00355000 LH RMSGNUM,SOMEOFF 0359 00356000 * ELSE /* IF TRACE WAS TURNED OFF */ 00357000 * RMSGNUM=TRACEOFF; /* THEN SET PROPER MSG. */ 00358000 B @RC00358 0360 00359000 @RF00358 LH RMSGNUM,TRACEOFF 0360 00360000 * ELSE /* IF THE PIU @Y17XARW*/ 00361000 * IF WASON='1'B /* TRACE WAS ALREADY */ 00362000 * THEN /* ON THEN SET UP */ 00363000 B @RC00357 0361 00364000 @RF00357 TM WASON(RWORKA),B'01000000' 0361 00365000 BNO @RF00361 0361 00366000 * RMSGNUM=TRWASON; /* PROPER MESSAGE. */ 00367000 LH RMSGNUM,TRWASON 0362 00368000 * ELSE /* SET UP FOR MESSAGE SAYING */ 00369000 * RMSGNUM=TRWASOFF; /* PIU TRACE @Y17XARW 00370000 * ALREADY OFF @Y17XARW*/ 00371000 B @RC00361 0363 00372000 @RF00361 LH RMSGNUM,TRWASOFF 0363 00373000 * OPCLDNME(4:5)='M3'; /* MESSAGE WRITER MODULE */ 00374000 @RC00361 DS 0H 0364 00375000 @RC00357 DS 0H 0364 00376000 @RC00353 MVC OPCLDNME+3(2,ROPCAVT),@CC01369 0364 00377000 * 0365 00378000 */********************************************************************/ 00379000 */* */ 00380000 */* SET UP TO EXIT */ 00381000 */* */ 00382000 */********************************************************************/ 00383000 * 0365 00384000 *XCTL: 0365 00385000 * IF LINENAME='1'B|NCPNAME='1'B THEN/* IF THIS IS LINENME @Y17XARW*/ 00386000 XCTL TM LINENAME(RWORKA),B'10100000' 0365 00387000 BZ @RF00365 0365 00388000 * DO; /* OR NCPNAME THEN @Y17XARW*/ 00389000 * OCLINE='1'B; /* INDICATE LINE NAME */ 00390000 OI OCLINE(ROPCE),B'00010000' 0367 00391000 * OCRLN='00'X; /* CLEAR RLN INDICATOR */ 00392000 MVI OCRLN(ROPCE),X'00' 0368 00393000 * END; 0369 00394000 * ELSE /* NO, GRPNAME REQUEST */ 00395000 * DO; 0370 00396000 B @RC00365 0370 00397000 @RF00365 DS 0H 0371 00398000 * OCLINE='0'B; /* INDICATE NOT LINE BUT GROUP */ 00399000 NI OCLINE(ROPCE),B'11101111' 0371 00400000 * IF GROUPALL='1'B THEN /* GRPNAME,ALL CMD REQUEST ? */ 00401000 TM GROUPALL(RWORKA),B'01000000' 0372 00402000 BNO @RF00372 0372 00403000 * OCRLN='00'X; /* YES, CLEAR RLN INDICATOR */ 00404000 MVI OCRLN(ROPCE),X'00' 0373 00405000 * END; 0374 00406000 @RF00372 DS 0H 0375 00407000 * RPARM=ROPCAVT; /* PASS AVT ADDRESS */ 00408000 @RC00365 LR RPARM,ROPCAVT 0375 00409000 * GEN(XCTL SF=(E,OPCXCTL(ROPCAVT))); 0376 00410000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00411000 * GEN(EJECT ); 0377 00412000 EJECT 00413000 *ERRHAND1: 0378 00414000 * RMSGNUM=INVALMSG; /* SET UP FOR MSG HANDLER */ 00415000 ERRHAND1 LH RMSGNUM,INVALMSG 0378 00416000 *ERRHANDL: 0379 00417000 * 0379 00418000 */********************************************************************/ 00419000 */* */ 00420000 */* THIS ROUTINE WILL PASS CONTROL TO A MESSAGE HANDLING */ 00421000 */* MODULE, WHICH WILL PRINT THE APPOPRIATE ERROR MESSAGE. */ 00422000 */* TO USE THIS SUBROUTINE REG. 0 MUST CONTAIN THE */ 00423000 */* ERROR MESSAGE NUMBER. */ 00424000 */* */ 00425000 */********************************************************************/ 00426000 * 0379 00427000 * OPCLDNME(4:5)='03'; /* ERR MSG MODULE SET UP */ 00428000 ERRHANDL MVC OPCLDNME+3(2,ROPCAVT),@CC01373 0379 00429000 * GOTO XCTL; /* EXIT */ 00430000 B XCTL 0380 00431000 *SETTRACE: 0381 00432000 * 0381 00433000 */********************************************************************/ 00434000 */* */ 00435000 */* THIS SUBROUTINE WILL START OR STOP THE PIUTRACE @Y17XARW*/ 00436000 */* FACILITY. IT WILL INDICATE THE FUNCTION PERFORMED AND */ 00437000 */* THE PREVIOUS STATE OF THE PIU TRACE. @Y17XARW*/ 00438000 */* */ 00439000 */********************************************************************/ 00440000 * 0381 00441000 * RESPECIFY 0381 00442000 * (RRET, 0381 00443000 * RREGSAV) RSTD; /* @YM07774*/ 00444000 SETTRACE DS 0H 0382 00445000 * RREGSAV=RRET; /* SAVE RETURN REG @YM07774*/ 00446000 LR RREGSAV,RRET 0382 00447000 * RESPECIFY 0383 00448000 * RRET UNRSTD; /* @YM07774*/ 00449000 * SWITCHES='0'B; /* CLEAR SWITCH SET @Y17XARR*/ 00450000 MVI SWITCHES(RWORKA),B'00000000' 0384 00451000 * IF OCSWITCH='04'X /* ARE WE TO TURN OFF */ 00452000 * THEN /* PIU TRACE? @Y17XARW*/ 00453000 CLI OCSWITCH(ROPCE),X'04' 0385 00454000 BNE @RF00385 0385 00455000 * DO; /* IF SO, THEN */ 00456000 * IF TRMTRACE='0'B /* IS TRACE ALREADY OFF? */ 00457000 * THEN 0387 00458000 L @08,IEDQTPTR-1(,RWORKA) 0387 00459000 AL @08,@CF01410 0387 00460000 TM TRMTRACE-3(@08),B'00001000' 0387 00461000 BNZ @RF00387 0387 00462000 * WASOFF='1'B; /* INDICATE IF TRACE ALREADY */ 00463000 OI WASOFF(RWORKA),B'10000000' 0388 00464000 * ELSE /* OFF. */ 00465000 * DO; /* ELSE TURN */ 00466000 B @RC00387 0389 00467000 @RF00387 DS 0H 0390 00468000 * IF OCUNIT=INVALTIC THEN 0390 00469000 CLC OCUNIT(4,ROPCE),INVALTIC 0390 00470000 BNE @RF00390 0390 00471000 * DO; /* IF FIRST ENTRY @YM07774*/ 00472000 * RPARM=1; /* SET NUMBER OF BFRS@YM07020 */ 00473000 LA RPARM,1 0392 00474000 * CALL GETBFR; /* REQUEST A BUFFER @YM07020*/ 00475000 L @15,OPCGETBF(,ROPCAVT) 0393 00476000 BALR @14,@15 0393 00477000 * OCUNIT=RPARM; /* LINK BFR IN TIC @YM07020*/ 00478000 ST RPARM,OCUNIT(,ROPCE) 0394 00479000 * END; 0395 00480000 * RPARM=OCUNIT; /* INIT RPARM @YM07774*/ 00481000 @RF00390 L RPARM,OCUNIT(,ROPCE) 0396 00482000 * SBTFLAGS=''B; /* CLEAR FLAGS @ZM47713*/ 00483000 MVI SBTFLAGS(IEDQSBTR),X'00' 0397 00484000 * SBTECB=''B; /* CLEAR ECB @ZM47713*/ 00485000 SLR @08,@08 0398 00486000 ST @08,SBTECB(,IEDQSBTR) 0398 00487000 * SBTQCBA=AVTSBTA; /* SET QCB ADDRESS @YM07020*/ 00488000 MVC SBTQCBA(3,IEDQSBTR),AVTSBTA+1(IEDQAPTR) 0399 00489000 * SBTECBN='1'B; /* SET POST REQUEST @YM07020*/ 00490000 * SBTNI='1'B; /* REQUEST AND FUNCTION @YM07020*/ 00491000 OI SBTECBN(IEDQSBTR),B'10010000' 0401 00492000 * SBTPRI=PRISBT; /* SET POST PRIORITY @YM07020*/ 00493000 MVI SBTPRI(IEDQSBTR),X'EC' 0402 00494000 * SBTDATA='FF'X; /* SET ALL BITS ON @YM07020*/ 00495000 MVI SBTDATA(IEDQSBTR),X'FF' 0403 00496000 * SBTADDR=ADDR(TRMTRACE); /* SET ADDR OF BYTE @YM07020*/ 00497000 L @08,IEDQTPTR-1(,RWORKA) 0404 00498000 LA @08,0(,@08) 0404 00499000 AL @08,@CF01410 0404 00500000 STCM @08,7,SBTADDR(IEDQSBTR) 0404 00501000 * OPCAQFST=RPARM; /* SET BFR ADDRESS FOR POST 0405 00502000 * @YM07020*/ 00503000 STCM RPARM,7,OPCAQFST(ROPCAVT) 0405 00504000 * OPCAQSEC=RPARM; /* SET BFR ADDRESS @YM07020*/ 00505000 STCM RPARM,7,OPCAQSEC(ROPCAVT) 0406 00506000 * OPCAQREQ='0C'X; /* AQCTL PARAMETER @YM07020*/ 00507000 MVI OPCAQREQ(ROPCAVT),X'0C' 0407 00508000 * OPCAQRQ2='80'X; /* AQCTL PARAMETER @YM07020*/ 00509000 MVI OPCAQRQ2(ROPCAVT),X'80' 0408 00510000 * RPARM=(ADDR(SBTDATA)-(ADDR(TRMTRACE)-ADDR(IEDNTRM)));/* 00511000 * SET BASE FOR SBTDATA @YM07020*/ 00512000 LA @08,SBTDATA(,IEDQSBTR) 0409 00513000 SL @08,@CF00056 0409 00514000 LR RPARM,@08 0409 00515000 * RPARM->TRMTRACE='0'B; /* SET TRACE OFF @YM07020*/ 00516000 NI TRMTRACE(RPARM),B'11110111' 0410 00517000 * RPARM=ADDR(OPCAQCTL); /* SET REG1 TO PARM LIST FOR 0411 00518000 * AQCTL @YM07020*/ 00519000 LA RPARM,OPCAQCTL(,ROPCAVT) 0411 00520000 * GEN( AQCTL , @YM07020); 00521000 AQCTL , @YM07020 00522000 * RPARM=OPCAQFST; /* RELOAD BFR ADDR @YM07020*/ 00523000 L RPARM,OPCAQFST-1(,ROPCAVT) 0413 00524000 LA RPARM,0(,RPARM) 0413 00525000 * RPARM=ADDR(SBTECB); /* ECB ADDRESS @YM07020*/ 00526000 LA @08,SBTECB(,IEDQSBTR) 0414 00527000 LR RPARM,@08 0414 00528000 * GEN( WAIT ECB=(1) @YM07020); 00529000 WAIT ECB=(1) @YM07020 00530000 * TURNDOFF='1'B; /* AND INDICATE TRACE IS OFF. */ 00531000 OI TURNDOFF(RWORKA),B'00100000' 0416 00532000 * END; 0417 00533000 * END; 0418 00534000 * ELSE /* ELSE WE ARE TO TURN ON */ 00535000 * DO; /* THE PIU TRACE. @Y17XARW*/ 00536000 B @RC00385 0419 00537000 @RF00385 DS 0H 0420 00538000 * IF TRMTRACE='1'B /* IS TRACE ALREADY ON? */ 00539000 * THEN 0420 00540000 L @08,IEDQTPTR-1(,RWORKA) 0420 00541000 AL @08,@CF01410 0420 00542000 TM TRMTRACE-3(@08),B'00001000' 0420 00543000 BNO @RF00420 0420 00544000 * WASON='1'B; /* IF SO IND TRACE WAS ON. */ 00545000 OI WASON(RWORKA),B'01000000' 0421 00546000 * ELSE 0422 00547000 * DO; 0422 00548000 B @RC00420 0422 00549000 @RF00420 DS 0H 0423 00550000 * IF OCUNIT=INVALTIC THEN 0423 00551000 CLC OCUNIT(4,ROPCE),INVALTIC 0423 00552000 BNE @RF00423 0423 00553000 * DO; /* IF FIRST ENTRY @YM07774*/ 00554000 * RPARM=1; /* SET NUMBER OF BFRS@YM07020 */ 00555000 LA RPARM,1 0425 00556000 * CALL GETBFR; /* REQUEST A BUFFER @YM07020*/ 00557000 L @15,OPCGETBF(,ROPCAVT) 0426 00558000 BALR @14,@15 0426 00559000 * OCUNIT=RPARM; /* LINK BFR IN TIC @YM07020*/ 00560000 ST RPARM,OCUNIT(,ROPCE) 0427 00561000 * END; /* @YM07774*/ 00562000 * RPARM=OCUNIT; /* INIT REG 1 @YM07774*/ 00563000 @RF00423 L RPARM,OCUNIT(,ROPCE) 0429 00564000 * SBTFLAGS=''B; /* CLEAR FLAGS @ZM47713*/ 00565000 MVI SBTFLAGS(IEDQSBTR),X'00' 0430 00566000 * SBTECB=''B; /* CLEAR ECB @ZM47713*/ 00567000 SLR @08,@08 0431 00568000 ST @08,SBTECB(,IEDQSBTR) 0431 00569000 * SBTQCBA=AVTSBTA; /* SET QCB ADDRESS @YM07020*/ 00570000 MVC SBTQCBA(3,IEDQSBTR),AVTSBTA+1(IEDQAPTR) 0432 00571000 * SBTECBN='1'B; /* SET POST REQUEST @YM07020*/ 00572000 * SBTOI='1'B; /* REQUEST OR FUNCTION @YM07020*/ 00573000 OI SBTECBN(IEDQSBTR),B'10100000' 0434 00574000 * SBTPRI=PRISBT; /* SET POST PRIORITY @YM07020*/ 00575000 MVI SBTPRI(IEDQSBTR),X'EC' 0435 00576000 * SBTADDR=ADDR(TRMTRACE); /* SET ADDR OF BYTE @YM07020*/ 00577000 L @08,IEDQTPTR-1(,RWORKA) 0436 00578000 LA @08,0(,@08) 0436 00579000 AL @08,@CF01410 0436 00580000 STCM @08,7,SBTADDR(IEDQSBTR) 0436 00581000 * OPCAQFST=RPARM; /* SET BFR ADDRESS FOR POST 0437 00582000 * @YM07020*/ 00583000 STCM RPARM,7,OPCAQFST(ROPCAVT) 0437 00584000 * OPCAQSEC=RPARM; /* SET BFR ADDRESS @YM07020*/ 00585000 STCM RPARM,7,OPCAQSEC(ROPCAVT) 0438 00586000 * OPCAQREQ='0C'X; /* AQCTL PARAMETER @YM07020*/ 00587000 MVI OPCAQREQ(ROPCAVT),X'0C' 0439 00588000 * OPCAQRQ2='80'X; /* AQCTL PARAMETER @YM07020*/ 00589000 MVI OPCAQRQ2(ROPCAVT),X'80' 0440 00590000 * RPARM=(ADDR(SBTDATA)-(ADDR(TRMTRACE)-ADDR(IEDNTRM)));/* 00591000 * SET BASE FOR SBTDATA @YM07020*/ 00592000 LA @08,SBTDATA(,IEDQSBTR) 0441 00593000 SL @08,@CF00056 0441 00594000 LR RPARM,@08 0441 00595000 * RPARM->TRMTRACE='1'B; /* SET TRACE ON @YM07020*/ 00596000 OI TRMTRACE(RPARM),B'00001000' 0442 00597000 * RPARM=ADDR(OPCAQCTL); /* SET REG1 TO PARM LIST FOR 0443 00598000 * AQCTL @YM07020*/ 00599000 LA RPARM,OPCAQCTL(,ROPCAVT) 0443 00600000 * GEN( AQCTL , @YM07020); 00601000 AQCTL , @YM07020 00602000 * RPARM=OPCAQFST; /* RELOAD BFR ADDR @YM07020*/ 00603000 L RPARM,OPCAQFST-1(,ROPCAVT) 0445 00604000 LA RPARM,0(,RPARM) 0445 00605000 * RPARM=ADDR(SBTECB); /* ECB ADDRESS @YM07020*/ 00606000 LA @08,SBTECB(,IEDQSBTR) 0446 00607000 LR RPARM,@08 0446 00608000 * GEN( WAIT ECB=(1) @YM07020); 00609000 WAIT ECB=(1) @YM07020 00610000 * TURNEDON='1'B; /* ON AND INDICATE */ 00611000 OI TURNEDON(RWORKA),B'00010000' 0448 00612000 * END; 0449 00613000 * END; 0450 00614000 @RC00420 DS 0H 0451 00615000 * RESPECIFY 0451 00616000 * RRET RSTD; /* @YM07774*/ 00617000 @RC00385 DS 0H 0452 00618000 * RRET=RREGSAV; /* RESTORE REG 14 @YM07774*/ 00619000 LR RRET,RREGSAV 0452 00620000 * RETURN; 0453 00621000 @EL00001 DS 0H 0453 00622000 @EF00001 DS 0H 0453 00623000 @ER00001 BR @14 0453 00624000 * RESPECIFY 0454 00625000 * (RRET, 0454 00626000 * RREGSAV) UNRSTD; /* @YM07774*/ 00627000 * GEN(EJECT); 0455 00628000 EJECT 00629000 *FINDENTY: 0456 00630000 * 0456 00631000 */********************************************************************/ 00632000 */* */ 00633000 */* THIS ROUTINE WILL BALR TO THE DCBLOCAT ROUTINE. */ 00634000 */* IF AN ERROR CONDITION IS RETURNED FROM THE LOOKUP */ 00635000 */* ROUTINE THE PROPER ERROR MESSAGE NUMBER WILL BE GENERATED */ 00636000 */* AND ERRHANDL WILL BE CALLED. THE RETURN WILL BE NORMAL */ 00637000 */* IF NO ERROR IS FOUND. */ 00638000 */* */ 00639000 */********************************************************************/ 00640000 * 0456 00641000 * RFY 0456 00642000 * (RSAVE, 0456 00643000 * RRET, 0456 00644000 * RBRANCH, 0456 00645000 * RREGSAV) RSTD; /* @Y17XARW*/ 00646000 FINDENTY DS 0H 0457 00647000 * RSAVE=ADDR(OPCSAVE); /* SET UP ADDR OP CNT SAVAREA*/ 00648000 LA RSAVE,OPCSAVE(,ROPCAVT) 0457 00649000 * RREGSAV=RRET; /* SAVE REGISTER 14 */ 00650000 LR RREGSAV,RRET 0458 00651000 * RPARM=OCRLN; /* SETUP RLN @Y17XARW*/ 00652000 SLR RPARM,RPARM 0459 00653000 IC RPARM,OCRLN(,ROPCE) 0459 00654000 * CALL DCBLOCAT; /* GOTO DCBLOCAT @Y17XARW*/ 00655000 L @15,OPCDCBLK(,ROPCAVT) 0460 00656000 BALR @14,@15 0460 00657000 * GOTO SKIP; 0461 00658000 B SKIP 0461 00659000 *RET1: /* @Y17XARW*/ 00660000 * IF RMSGNUM=32 THEN /* RETURN CODE 20 FROM CA */ 00661000 RET1 C RMSGNUM,@CF00546 0462 00662000 BNE @RF00462 0462 00663000 * DO; 0463 00664000 * RMSGNUM=18; /* SET MSG NUM 18 */ 00665000 LA RMSGNUM,18 0464 00666000 * GO TO ERRHANDL; /* PREPARE TO EXIT */ 00667000 B ERRHANDL 0465 00668000 * END; 0466 00669000 * RMSGNUM=MSGTAB(RMSGNUM); /* GET ERROR MESSAGE NUMBER */ 00670000 @RF00462 LR @08,RMSGNUM 0467 00671000 ALR @08,@08 0467 00672000 LH @08,MSGTAB-2(@08) 0467 00673000 LR RMSGNUM,@08 0467 00674000 * GOTO ERRHANDL; /* GOTO ERROR RTN @Y17XARW*/ 00675000 B ERRHANDL 0468 00676000 *SKIP: 0469 00677000 * RRET=RREGSAV; /* RESTORE REGISTER 14 */ 00678000 SKIP LR RRET,RREGSAV 0469 00679000 * RFY 0470 00680000 * (RSAVE, 0470 00681000 * RRET, 0470 00682000 * RBRANCH, 0470 00683000 * RREGSAV) UNRSTD; /* @Y17XARW*/ 00684000 * RETURN; /* @Y17XARW*/ 00685000 B @EL00001 0471 00686000 *CNVTBIN: 0472 00687000 * 0472 00688000 */********************************************************************/ 00689000 */* */ 00690000 */* THIS ROUTINE WILL CHECK AND CONVERT THE RLN TO */ 00691000 */* BINARY. THE CONVERTED RLN WILL BE PLACED IN OCRLN. */ 00692000 */* */ 00693000 */********************************************************************/ 00694000 * 0472 00695000 * RFY 0472 00696000 * RCNVWRK RSTD; /* @Y17XARW*/ 00697000 CNVTBIN DS 0H 0473 00698000 * LEN=1; /* SETUP LENGTH */ 00699000 MVC LEN(4,RWORKA),@CF00054 0473 00700000 *SCAN: 0474 00701000 * DIGBASE=RADVPTR+LEN; 0474 00702000 SCAN L @09,LEN(,RWORKA) 0474 00703000 LR @15,RADVPTR 0474 00704000 ALR @15,@09 0474 00705000 ST @15,DIGBASE(,RWORKA) 0474 00706000 * IF DIGIT^=',' /* FIND THE LENGTH */ 00707000 * THEN 0475 00708000 CLI DIGIT(@15),C',' 0475 00709000 BE @RF00475 0475 00710000 * IF LEN=3|DIGIT<240|DIGIT>=250 THEN/* THE INPUT COMMAND */ 00711000 C @09,@CF00056 0476 00712000 BE @RT00476 0476 00713000 CLI DIGIT(@15),240 0476 00714000 BL @RT00476 0476 00715000 CLI DIGIT(@15),250 0476 00716000 BL @RF00476 0476 00717000 @RT00476 DS 0H 0477 00718000 * DO; 0477 00719000 * GOTO ERRHAND1; /* LOAD ERROR MESSAGE NO. */ 00720000 B ERRHAND1 0478 00721000 * END; 0479 00722000 * ELSE 0480 00723000 * DO; 0480 00724000 @RF00476 DS 0H 0481 00725000 * LEN=LEN+1; /* INCREMENT LENGTH COUNTER */ 00726000 LA @09,1 0481 00727000 AL @09,LEN(,RWORKA) 0481 00728000 ST @09,LEN(,RWORKA) 0481 00729000 * GOTO SCAN; /* LOOP */ 00730000 B SCAN 0482 00731000 * END; 0483 00732000 * RCNVWRK='70'X; /* SET LENGTH FOR FIRST OPRAN */ 00733000 @RF00475 LA RCNVWRK,112 0484 00734000 * RCNVWRK=RCNVWRK+LEN-1; /* ADD LENGTH OF SEC OPERAND */ 00735000 LR @09,RCNVWRK 0485 00736000 AL @09,LEN(,RWORKA) 0485 00737000 BCTR @09,0 0485 00738000 LR RCNVWRK,@09 0485 00739000 * GENERATE; 0486 00740000 EX RCNVWRK,PACKRLN 00741000 CVB RCNVWRK,OCMODNME(ROPCE) 00742000 * IF RCNVWRK>255|RCNVWRK<1 /* IF THE RELATIVE */ 00743000 * THEN /* LINE NUMBER IS */ 00744000 C RCNVWRK,@CF01385 0487 00745000 BH @RT00487 0487 00746000 LTR RCNVWRK,RCNVWRK 0487 00747000 BP @RF00487 0487 00748000 @RT00487 DS 0H 0488 00749000 * DO; /* TO SMALL THEN */ 00750000 * GOTO ERRHAND1; 0489 00751000 B ERRHAND1 0489 00752000 * END; 0490 00753000 * OCRLN=RCNVWRK; /* PUT RLN NO. IN ELEMENT */ 00754000 @RF00487 STC RCNVWRK,OCRLN(,ROPCE) 0491 00755000 * RADVPTR=RADVPTR+1+LEN; /* ADD LENGTH TO ADV POINTER */ 00756000 LA @09,1 0492 00757000 ALR @09,RADVPTR 0492 00758000 L @15,LEN(,RWORKA) 0492 00759000 ALR @09,@15 0492 00760000 LR RADVPTR,@09 0492 00761000 * WORKREG=WORKREG-1-LEN; /* SUB RLN LNTH FROM LENGTH */ 00762000 LR @09,WORKREG 0493 00763000 BCTR @09,0 0493 00764000 SLR @09,@15 0493 00765000 LR WORKREG,@09 0493 00766000 * RFY 0494 00767000 * RCNVWRK UNRSTD; /* @Y17XARW*/ 00768000 * RETURN; 0495 00769000 B @EL00001 0495 00770000 * GENERATE; 0496 00771000 PACKRLN PACK OCMODNME(0,ROPCE),0(0,RADVPTR) 00772000 *TTESRCH: 0497 00773000 * 0497 00774000 * /*****************************************************************/ 00775000 * /* */ 00776000 * /* THIS ROUTINE RECEIVES AS INPUT A GROUPNAME, @Y17XARW*/ 00777000 * /* NCPNAME, OR LINENAME WHICH IT WILL RESOLVE TO @Y17XARW*/ 00778000 * /* A TTE ADDRESS. @Y17XARW*/ 00779000 * /* */ 00780000 * /*****************************************************************/ 00781000 * 0497 00782000 * RFY 0497 00783000 * (RSAVE, 0497 00784000 * RRET, 0497 00785000 * RBRANCH, 0497 00786000 * RREGSAV) RSTD; /* @Y17XARW*/ 00787000 TTESRCH DS 0H 0498 00788000 * RSAVE=ADDR(OPCSAVE); /* SAVE ADDR OF SAVEAREA @Y17XARW*/ 00789000 LA RSAVE,OPCSAVE(,ROPCAVT) 0498 00790000 * RREGSAV=RRET; /* SAVE RETURN ADDRESS @Y17XARW*/ 00791000 LR RREGSAV,RRET 0499 00792000 * CALL TRMOFLOC; /* GO FIND TTE @Y17XARW*/ 00793000 L @15,OPCTOFLK(,ROPCAVT) 0500 00794000 BALR @14,@15 0500 00795000 * GEN; 0501 00796000 * /* @Y17XARW*/ 00797000 B SETUP GOOD RETURN-FOUND TTE @Y17XARW 00798000 B ERRHAND1 TTE NOT FOUND-ERROR @Y17XARW 00799000 *SETUP: /* @Y17XARW*/ 00800000 * IEDQTPTR=RPARM; /* SETUP TRM ENTRY ADDR @Y17XARW*/ 00801000 SETUP STCM RPARM,7,IEDQTPTR(RWORKA) 0502 00802000 * IF TRMPREF='0'B THEN /* IS THERE NO NEGATIVE @Y17XARW*/ 00803000 L @08,IEDQTPTR-1(,RWORKA) 0503 00804000 LA @08,0(,@08) 0503 00805000 TM TRMPREF(@08),B'00010000' 0503 00806000 BNZ @RF00503 0503 00807000 * DO; /* PREFIX? @Y17XARW*/ 00808000 * RMSGNUM=400; /* 3705 NOT ACTIVE MSG @Y17XARW*/ 00809000 LA RMSGNUM,400 0505 00810000 * GOTO ERRHAND1; /* GOTO ERROR MODULE @Y17XARW*/ 00811000 B ERRHAND1 0506 00812000 * END; /* @Y17XARW*/ 00813000 * IF TRMTYPE=TRMSDLC|TRMTYPE=TRMNSDLC THEN/* @Y17XARW*/ 00814000 @RF00503 L @08,IEDQTPTR-1(,RWORKA) 0508 00815000 LA @08,0(,@08) 0508 00816000 SL @08,@CF01393 0508 00817000 CLI TRMTYPE(@08),X'21' 0508 00818000 BE @RT00508 0508 00819000 CLI TRMTYPE(@08),X'20' 0508 00820000 BNE @RF00508 0508 00821000 @RT00508 DS 0H 0509 00822000 * DO; /* IF THIS IS A LINE THEN 0509 00823000 * @Y17XARW*/ 00824000 * NCPNAME='0'B; /* RESET NCPNAME FLAG @Y17XARW*/ 00825000 * GROUPALL='0'B; /* RESET GROUPALL FLAG @Y17XARW*/ 00826000 * LINENAME='1'B; /* SET LINENAME FLAG @Y17XARW*/ 00827000 OI LINENAME(RWORKA),B'10000000' 0512 00828000 NI NCPNAME(RWORKA),B'10011111' 0512 00829000 * END; /* @Y17XARW*/ 00830000 * ELSE 0514 00831000 * IF TRMTYPE=TRMGRP THEN /* IF THIS IS GROUP TTE @Y17XARW*/ 00832000 B @RC00508 0514 00833000 @RF00508 L @08,IEDQTPTR-1(,RWORKA) 0514 00834000 AL @08,@CF00405 0514 00835000 CLI TRMTYPE-11(@08),X'00' 0514 00836000 BNE @RF00514 0514 00837000 * DO; /* @Y17XARW*/ 00838000 * NCPNAME='0'B; /* RESET NCPNAME FLAG @Y17XARW*/ 00839000 * LINENAME='0'B; /* RESET LINENAME FLAG @Y17XARW*/ 00840000 * GROUPALL='1'B; /* SET GROUPALL FLAG @Y17XARW*/ 00841000 OI GROUPALL(RWORKA),B'01000000' 0518 00842000 NI NCPNAME(RWORKA),B'01011111' 0518 00843000 * END; /* @Y17XARW*/ 00844000 * ELSE 0520 00845000 * IF TRMTYPE=TRMLNCP THEN /* IF THIS IS NCP TTE @Y17XARW*/ 00846000 B @RC00514 0520 00847000 @RF00514 L @08,IEDQTPTR-1(,RWORKA) 0520 00848000 AL @08,@CF00405 0520 00849000 CLI TRMTYPE-11(@08),X'0F' 0520 00850000 BNE @RF00520 0520 00851000 * DO; /* @Y17XARW*/ 00852000 * LINENAME='0'B; /* RESET LINENAME FLAG @Y17XARW*/ 00853000 * GROUPALL='0'B; /* RESET GROUPALL FLAG @Y17XARW*/ 00854000 * NCPNAME='1'B; /* SET NCPNAME FLAG @Y17XARW*/ 00855000 OI NCPNAME(RWORKA),B'00100000' 0524 00856000 NI LINENAME(RWORKA),B'00111111' 0524 00857000 * END; /* @Y17XARW*/ 00858000 * ELSE /* ELSE THIS IS AN ERROR @Y17XARW*/ 00859000 * DO; /* @Y17XARW*/ 00860000 B @RC00520 0526 00861000 @RF00520 DS 0H 0527 00862000 * RMSGNUM=MSG102; /* INVALID OPERATION @Y17XARW*/ 00863000 LH RMSGNUM,MSG102 0527 00864000 * GOTO ERRHANDL; /* GOTO ERROR MSG MOD @Y17XARW*/ 00865000 B ERRHANDL 0528 00866000 * END; /* @Y17XARW*/ 00867000 * RRET=RREGSAV; /* RESTORE RETURN ADDRESS 0530 00868000 * @Y17XARW*/ 00869000 @RC00520 DS 0H 0530 00870000 @RC00514 DS 0H 0530 00871000 @RC00508 LR RRET,RREGSAV 0530 00872000 * RFY 0531 00873000 * (RSAVE, 0531 00874000 * RRET, 0531 00875000 * RBRANCH, 0531 00876000 * RREGSAV) UNRSTD; /* @Y17XARW*/ 00877000 * RETURN; /* @Y17XARW*/ 00878000 B @EL00001 0532 00879000 *SCANGRP: 0533 00880000 * 0533 00881000 * /*****************************************************************/ 00882000 * /* */ 00883000 * /* THIS ROUTINE RESOLVES A GROUP TTE TO A LINE TTE. @Y17XARW*/ 00884000 * /* IT THEN CALLS THE SCAN RTN TO SET TRACE BITS IN @Y17XARW*/ 00885000 * /* EACH RESOURCE INCLUDING THE LINE TTE. BY USING @Y17XARW*/ 00886000 * /* COHORTG PTRS TO FIND REMAINING LINE TTE'S IN THE @Y17XARW*/ 00887000 * /* GROUP, ALL RESOURCES IN THE HIERARCHY OF THE GROUP @Y17XARW*/ 00888000 * /* TTE WILL BE SCANNED AND HAVE TRACE BITS SET. @Y17XARW*/ 00889000 * /* */ 00890000 * /*****************************************************************/ 00891000 * 0533 00892000 * RFY 0533 00893000 * RRET RSTD; /* @Y17XARW*/ 00894000 SCANGRP DS 0H 0534 00895000 * OPCWRKSP(1)=RRET; /* SAVE RETURN ADDRESS @Y17XARW*/ 00896000 ST RRET,OPCWRKSP(,ROPCAVT) 0534 00897000 * IF TRMSUBST=0 THEN /* @Y17XARW*/ 00898000 L @15,IEDQTPTR-1(,RWORKA) 0535 00899000 BCTR @15,0 0535 00900000 BCTR @15,0 0535 00901000 LH @15,TRMSUBST-12(,@15) 0535 00902000 N @15,@CF01416 0535 00903000 LTR @15,@15 0535 00904000 BNZ @RF00535 0535 00905000 * DO; /* @Y17XARW*/ 00906000 * RMSGNUM=MSG541; /* INVALID COMMAND @Y17XARW*/ 00907000 LH RMSGNUM,MSG541 0537 00908000 * GOTO ERRHANDL; /* GOTO ERROR RTN @Y17XARW*/ 00909000 B ERRHANDL 0538 00910000 * END; /* @Y17XARW*/ 00911000 * RPARM=TRMSUBST; /* GET FIRST LINE TTCIN @Y17XARW*/ 00912000 @RF00535 L @15,IEDQTPTR-1(,RWORKA) 0540 00913000 BCTR @15,0 0540 00914000 BCTR @15,0 0540 00915000 LH RPARM,TRMSUBST-12(,@15) 0540 00916000 N RPARM,@CF01416 0540 00917000 * CALL IEDQTNT; /* FIND TTE ENTRY @Y17XARW*/ 00918000 L @15,AVTRNMPT(,IEDQAPTR) 0541 00919000 BALR @14,@15 0541 00920000 * IEDQTPTR=RPARM; /* SETUP TERM BASE @Y17XARW*/ 00921000 STCM RPARM,7,IEDQTPTR(RWORKA) 0542 00922000 * DO UNTIL(TRMTYPE=TRMGRP); /* SCAN ALL LINE TTE'S UNTIL 0543 00923000 * GROUP TTE FOUND @Y17XARW*/ 00924000 @DL00543 DS 0H 0544 00925000 * CALL SCANTTE; /* SCAN RESOURCES BELOW TTE AND 00926000 * SET TRACE BITS @Y17XARW*/ 00927000 BAL @14,SCANTTE 0544 00928000 * RPARM=TRMCOHTG; /* GET TTCIN FOR NEXT TTE 0545 00929000 * @Y17XARW*/ 00930000 L @15,IEDQTPTR-1(,RWORKA) 0545 00931000 AL @15,@CF01417 0545 00932000 LH RPARM,TRMCOHTG-8(,@15) 0545 00933000 N RPARM,@CF01416 0545 00934000 * CALL IEDQTNT; /* FIND TTE ENTRY @Y17XARW*/ 00935000 L @15,AVTRNMPT(,IEDQAPTR) 0546 00936000 BALR @14,@15 0546 00937000 * IEDQTPTR=RPARM; /* SETUP TERM BASE @Y17XARW*/ 00938000 STCM RPARM,7,IEDQTPTR(RWORKA) 0547 00939000 * END; /* @Y17XARW*/ 00940000 @DE00543 L @15,IEDQTPTR-1(,RWORKA) 0548 00941000 AL @15,@CF00405 0548 00942000 CLI TRMTYPE-11(@15),X'00' 0548 00943000 BNE @DL00543 0548 00944000 * RRET=OPCWRKSP(1); /* RESTORE RETURN ADDRESS 0549 00945000 * @Y17XARW*/ 00946000 L RRET,OPCWRKSP(,ROPCAVT) 0549 00947000 * RETURN; /* @Y17XARW*/ 00948000 B @EL00001 0550 00949000 * RFY 0551 00950000 * RRET UNRSTD; /* @Y17XARW*/ 00951000 *SCANTTE: 0552 00952000 * 0552 00953000 * /*****************************************************************/ 00954000 * /* */ 00955000 * /* THIS ROUTINE RECEIVES AS INPUT AN NCP OR LINE TTE. @Y17XARW*/ 00956000 * /* IT WILL SCAN FOR ALL RESOURCES IN THE HIERARCHY @Y17XARW*/ 00957000 * /* BELOW THE INPUT TTE AND SET TRACE BITS. @Y17XARW*/ 00958000 * /* */ 00959000 * /*****************************************************************/ 00960000 * 0552 00961000 * RFY 0552 00962000 * RRET RSTD; /* @Y17XARW*/ 00963000 SCANTTE DS 0H 0553 00964000 * OPCWRKSP(2)=RRET; /* SAVE RETURN ADDRESS @Y17XARW*/ 00965000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0553 00966000 * SAVETTE=IEDQTPTR; /* SAVE INPUT TTE ADDR @Y17XARW*/ 00967000 LA @15,OPCWRKSP+8(,ROPCAVT) 0554 00968000 L @11,IEDQTPTR-1(,RWORKA) 0554 00969000 LA @11,0(,@11) 0554 00970000 ST @11,SAVETTE(,@15) 0554 00971000 * SCANDONE='0'B; /* INDICATE SCAN NOT DONE 0555 00972000 * @Y17XARW*/ 00973000 NI SCANDONE(ROPCAVT),B'01111111' 0555 00974000 * DO UNTIL(SCANDONE='1'B); /* SCAN ALL RESOURCES @Y17XARW*/ 00975000 @DL00556 DS 0H 0557 00976000 * DO WHILE(TRMSUBST^=0); /* FIND LOWEST RESOURCE @Y17XARW*/ 00977000 B @DE00557 0557 00978000 @DL00557 DS 0H 0558 00979000 * RPARM=TRMSUBST; /* GET TTCIN OF NEXT TTE @Y17XARW*/ 00980000 L @15,IEDQTPTR-1(,RWORKA) 0558 00981000 BCTR @15,0 0558 00982000 BCTR @15,0 0558 00983000 LH RPARM,TRMSUBST-12(,@15) 0558 00984000 N RPARM,@CF01416 0558 00985000 * CALL IEDQTNT; /* GET NEXT TTE ADDRESS @Y17XARW*/ 00986000 L @15,AVTRNMPT(,IEDQAPTR) 0559 00987000 BALR @14,@15 0559 00988000 * IEDQTPTR=RPARM; /* SETUP TERM BASE @Y17XARW*/ 00989000 STCM RPARM,7,IEDQTPTR(RWORKA) 0560 00990000 * IF TRMLINE='1'B THEN /* LINE? @Y17XARR*/ 00991000 L @15,IEDQTPTR-1(,RWORKA) 0561 00992000 LA @15,0(,@15) 0561 00993000 TM TRMLINE(@15),B'10000000' 0561 00994000 BNO @RF00561 0561 00995000 * SAVELINE=IEDQTPTR; /* SAVE LINE @Y17XARR*/ 00996000 LA @11,OPCWRKSP+12(,ROPCAVT) 0562 00997000 ST @15,SAVELINE(,@11) 0562 00998000 * END; /* @Y17XARW*/ 00999000 @RF00561 DS 0H 0563 01000000 @DE00557 L @15,IEDQTPTR-1(,RWORKA) 0563 01001000 BCTR @15,0 0563 01002000 BCTR @15,0 0563 01003000 LH @15,TRMSUBST-12(,@15) 0563 01004000 N @15,@CF01416 0563 01005000 LTR @15,@15 0563 01006000 BNZ @DL00557 0563 01007000 * DO UNTIL(NXTLVL='0'B); /* SCAN RESOURCES UNTIL A TTE IS 01008000 * FOUND AT SAME LEVEL AS 0564 01009000 * PREVIOUS TTE @Y17XARW*/ 01010000 @DL00564 DS 0H 0565 01011000 * NXTLVL='0'B; /* INITIALIZE NXT LVL FLAG 0565 01012000 * @Y17XARW*/ 01013000 NI NXTLVL(ROPCAVT),B'11011111' 0565 01014000 * CALL SETTRACE; /* SET TRACE BITS IN TTE @Y17XARW*/ 01015000 BAL @14,SETTRACE 0566 01016000 * IF IEDQTPTR=SAVETTE THEN /* IF THIS IS ORIGINAL TTE THEN */ 01017000 LA @15,OPCWRKSP+8(,ROPCAVT) 0567 01018000 L @11,IEDQTPTR-1(,RWORKA) 0567 01019000 LA @11,0(,@11) 0567 01020000 C @11,SAVETTE(,@15) 0567 01021000 BNE @RF00567 0567 01022000 * SCANDONE='1'B; /* SCAN IS DONE @Y17XARW*/ 01023000 OI SCANDONE(ROPCAVT),B'10000000' 0568 01024000 * ELSE 0569 01025000 * DO; /* ELSE @Y17XARW*/ 01026000 B @RC00567 0569 01027000 @RF00567 DS 0H 0570 01028000 * CALL LEVELUP; /* FIND NXT HIGHER RSRC @Y17XARW*/ 01029000 BAL @14,LEVELUP 0570 01030000 * RPARM=TRMCOHRT; /* GET TTCIN OF NXT TTE @Y17XARW*/ 01031000 L @15,IEDQTPTR-1(,RWORKA) 0571 01032000 AL @15,@CF01420 0571 01033000 LH RPARM,TRMCOHRT-4(,@15) 0571 01034000 N RPARM,@CF01416 0571 01035000 * CALL IEDQTNT; /* GET NEXT TTE ADDRESS @Y17XARW*/ 01036000 L @15,AVTRNMPT(,IEDQAPTR) 0572 01037000 BALR @14,@15 0572 01038000 * IEDQTPTR=RPARM; /* SETUP TERM BASE @Y17XARW*/ 01039000 STCM RPARM,7,IEDQTPTR(RWORKA) 0573 01040000 * IF TRMTYPE=TABLE(2)|TRMTYPE=TABLE(3) THEN 0574 01041000 L @15,IEDQTPTR-1(,RWORKA) 0574 01042000 LA @15,0(,@15) 0574 01043000 SL @15,@CF01393 0574 01044000 CLC TRMTYPE(1,@15),TABLE+1(RTABLE) 0574 01045000 BE @RT00574 0574 01046000 CLC TRMTYPE(1,@15),TABLE+2(RTABLE) 0574 01047000 BNE @RF00574 0574 01048000 @RT00574 DS 0H 0575 01049000 * NXTLVL='1'B; /* INDICATE IF THIS TTE IS AT NXT 01050000 * HIGHER LEVEL @Y17XARW*/ 01051000 OI NXTLVL(ROPCAVT),B'00100000' 0575 01052000 * END; /* @Y17XARW*/ 01053000 @RF00574 DS 0H 0577 01054000 * END; /* @Y17XARW*/ 01055000 @RC00567 DS 0H 0577 01056000 @DE00564 TM NXTLVL(ROPCAVT),B'00100000' 0577 01057000 BNZ @DL00564 0577 01058000 * END; /* @Y17XARW*/ 01059000 @DE00556 TM SCANDONE(ROPCAVT),B'10000000' 0578 01060000 BNO @DL00556 0578 01061000 * RRET=OPCWRKSP(2); /* RESTORE RETURN ADDR @Y17XARW*/ 01062000 L RRET,OPCWRKSP+4(,ROPCAVT) 0579 01063000 * RETURN; /* @Y17XARW*/ 01064000 B @EL00001 0580 01065000 * RFY 0581 01066000 * RRET UNRSTD; /* @Y17XARW*/ 01067000 *LEVELUP: 0582 01068000 * 0582 01069000 * /*****************************************************************/ 01070000 * /* */ 01071000 * /* THIS ROUTINE FINDS AN ENTRY IN A TABLE OF RESOURCE TTE'S THAT */ 01072000 * /* CORRESPONDS TO THE TTE WHICH HAS JUST BEEN MARKED FOR TRACE. */ 01073000 * /* THIS SAME ENTRY CONTAINS INFO ABOUT TYPES OF TTES FOUND AT NXT*/ 01074000 * /* HIGHER LVL. THIS INFO WILL BE USED BY SCANTTE. @Y17XARW*/ 01075000 * /* */ 01076000 * /*****************************************************************/ 01077000 * 0582 01078000 * RFY 0582 01079000 * (RCNT, 0582 01080000 * RRET) RSTD; /* @Y17XARW*/ 01081000 LEVELUP DS 0H 0583 01082000 * SEARCH='1'B; /* INDICATE SEARCH ON @Y17XARW*/ 01083000 OI SEARCH(ROPCAVT),B'01000000' 0583 01084000 * RTABLE=ADDR(TTETABLE); /* SETUP ADDRESS OF TBL @Y17XARW*/ 01085000 LA RTABLE,TTETABLE 0584 01086000 * RESPECIFY 0585 01087000 * RCNT RSTD; /* @YM07774*/ 01088000 * DO RCNT=1 TO 9 WHILE(SEARCH='1'B);/* SEARCH THRU TABLE FOR A 0586 01089000 * CORRESPONDING TTE @Y17XARW*/ 01090000 LA RCNT,1 0586 01091000 @DL00586 TM SEARCH(ROPCAVT),B'01000000' 0586 01092000 BNO @DC00586 0586 01093000 * IF TABLE(1)=TRMTYPE THEN 0587 01094000 L @15,IEDQTPTR-1(,RWORKA) 0587 01095000 AL @15,@CF00405 0587 01096000 CLC TABLE(1,RTABLE),TRMTYPE-11(@15) 0587 01097000 BNE @RF00587 0587 01098000 * SEARCH='0'B; /* IF TTE ENTRY HAS BEEN FOUND, 01099000 * THEN MARK SEARCH ENDED 0588 01100000 * @Y17XARW*/ 01101000 NI SEARCH(ROPCAVT),B'10111111' 0588 01102000 * ELSE 0589 01103000 * RTABLE=RTABLE+3; /* ELSE GOTO NEXT ENTRY @Y17XARW*/ 01104000 B @RC00587 0589 01105000 @RF00587 AL RTABLE,@CF00056 0589 01106000 * END; /* @Y17XARW*/ 01107000 @RC00587 AL RCNT,@CF00054 0590 01108000 C RCNT,@CF01392 0590 01109000 BNH @DL00586 0590 01110000 @DC00586 DS 0H 0591 01111000 * RESPECIFY 0591 01112000 * RCNT UNRSTD; /* @YM07774*/ 01113000 * IF TABLE(1)=0 THEN /* IF THIS IS END OF @Y17XARW*/ 01114000 CLI TABLE(RTABLE),0 0592 01115000 BNE @RF00592 0592 01116000 * DO; /* TABLE, THEN @Y17XARW*/ 01117000 * RMSGNUM=MSG400; /* SET 3705 NOT ACTIVE @Y17XARW*/ 01118000 LH RMSGNUM,MSG400 0594 01119000 * GOTO ERRHANDL; /* GOTO ERROR MODULE @Y17XARW*/ 01120000 B ERRHANDL 0595 01121000 * END; /* @Y17XARW*/ 01122000 * IF TRMTYPE=TRMPSNA& /* IF THIS IS A PRE-SNA @Y17XARW*/ 01123000 * TRMGP='1'B THEN /* GEN POLL ENTRY, BUMP @Y17XARW*/ 01124000 @RF00592 L @15,IEDQTPTR-1(,RWORKA) 0597 01125000 LA @15,0(,@15) 0597 01126000 SL @15,@CF01393 0597 01127000 CLI TRMTYPE(@15),X'4F' 0597 01128000 BNE @RF00597 0597 01129000 TM TRMGP(@15),B'00000100' 0597 01130000 BNO @RF00597 0597 01131000 * RTABLE=RTABLE+3; /* PTR TO CORRECT ENTRY @Y17XARW*/ 01132000 AL RTABLE,@CF00056 0598 01133000 * RETURN; /* @Y17XARW*/ 01134000 B @EL00001 0599 01135000 * RFY 0600 01136000 * (RCNT, 0600 01137000 * RRET) UNRSTD; /* @Y17XARW*/ 01138000 * END 0601 01139000 * 0601 01140000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01141000 */*%INCLUDE SYSLIB (TOPCED ) */ 01142000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01143000 */*%INCLUDE SYSLIB (TAVTD ) */ 01144000 */*%INCLUDE SYSLIB (TTRMD ) */ 01145000 */*%INCLUDE SYSLIB (TSBTD ) */ 01146000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01147000 * 0601 01148000 * ; 0601 01149000 B @EL00001 0601 01150000 @DATA DS 0H 01151000 DS 0F 01152000 DS 0F 01153000 @CF00054 DC F'1' 01154000 @CF00056 DC F'3' 01155000 @CF01392 DC F'9' 01156000 @CF01393 DC F'14' 01157000 @CF00546 DC F'32' 01158000 @CF01385 DC F'255' 01159000 @CF01410 DC F'-11' 01160000 @CF01420 DC F'-10' 01161000 @CF01417 DC F'-6' 01162000 @CF00405 DC F'-3' 01163000 @CF01416 DC XL4'0000FFFF' 01164000 DS 0D 01165000 INVALTIC DC A(2) 01166000 MSG102 DC H'102' 01167000 MSG400 DC H'400' 01168000 MSG541 DC H'541' 01169000 @CC01361 DC C'ALL' 01170000 @CC01365 DC C'OFF' 01171000 @CC01364 DC C'ON' 01172000 @CC01369 DC C'M3' 01173000 @CC01373 DC C'03' 01174000 TTETABLE DS CL25 01175000 ORG TTETABLE 01176000 @NM00007 DC X'182100' 01177000 @NM00008 DC X'200F00' 01178000 @NM00009 DC X'210F00' 01179000 @NM00010 DC X'301800' 01180000 @NM00011 DC X'402000' 01181000 @NM00012 DC X'482021' 01182000 @NM00013 DC X'4F2000' 01183000 @NM00014 DC X'4F4000' 01184000 @NM00015 DC X'00' 01185000 ORG TTETABLE+25 01186000 DS CL1 01187000 MSGTAB DC H'17' 01188000 DC H'17' 01189000 DC H'188' 01190000 DC H'17' 01191000 DC H'189' 01192000 DC H'190' 01193000 DC H'188' 01194000 DC H'17' 01195000 DC H'189' 01196000 DC H'18' 01197000 DC H'191' 01198000 DC H'187' 01199000 ZAPAREA DC 50X'00' 01200000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01201000 @01 EQU 01 01202000 @02 EQU 02 01203000 @03 EQU 03 01204000 @04 EQU 04 01205000 @05 EQU 05 01206000 @06 EQU 06 01207000 @07 EQU 07 01208000 @08 EQU 08 01209000 @09 EQU 09 01210000 @10 EQU 10 01211000 @11 EQU 11 01212000 @12 EQU 12 01213000 @13 EQU 13 01214000 @14 EQU 14 01215000 @15 EQU 15 01216000 @0 EQU 00 01217000 @1 EQU 01 01218000 @2 EQU 02 01219000 @3 EQU 03 01220000 @4 EQU 04 01221000 @5 EQU 05 01222000 @6 EQU 06 01223000 @7 EQU 07 01224000 @8 EQU 08 01225000 @9 EQU 09 01226000 @A EQU 10 01227000 @B EQU 11 01228000 @C EQU 12 01229000 @D EQU 13 01230000 @E EQU 14 01231000 @F EQU 15 01232000 RMSGNUM EQU @00 01233000 RPARM EQU @01 01234000 IEDQSBTR EQU @01 01235000 ROPCAVT EQU @02 01236000 ROPCE EQU @03 01237000 IEDQAPTR EQU @04 01238000 RWORKA EQU @05 01239000 WORKREG EQU @06 01240000 RTABLE EQU @06 01241000 RADVPTR EQU @07 01242000 RCNVWRK EQU @08 01243000 RCNT EQU @09 01244000 RREGSAV EQU @09 01245000 RSAVE EQU @13 01246000 RRET EQU @14 01247000 RBRANCH EQU @15 01248000 NEXTCHAR EQU 0 01249000 ALLCHAR EQU 0 01250000 ONCHAR EQU 0 01251000 OFFCHAR EQU 0 01252000 @NM00001 EQU 152 01253000 DIGBASE EQU @NM00001 01254000 LEN EQU @NM00001+4 01255000 SWITCHES EQU @NM00001+8 01256000 WASOFF EQU SWITCHES 01257000 WASON EQU SWITCHES 01258000 TURNDOFF EQU SWITCHES 01259000 TURNEDON EQU SWITCHES 01260000 @NM00002 EQU @NM00001+9 01261000 CMDTYPE EQU @NM00002 01262000 LINENAME EQU CMDTYPE 01263000 GROUPALL EQU CMDTYPE 01264000 NCPNAME EQU CMDTYPE 01265000 IEDQTPTR EQU @NM00001+13 01266000 DIGIT EQU 0 01267000 TABLE EQU 0 01268000 IEDQTNT EQU 0 01269000 DCBLOCAT EQU 0 01270000 TRMOFLOC EQU 0 01271000 GETBFR EQU 0 01272000 SAVETTE EQU 0 01273000 SAVELINE EQU 0 01274000 IEDQOPCE EQU 0 01275000 OCELEM EQU IEDQOPCE+4 01276000 OCUNIT EQU IEDQOPCE+8 01277000 OCRUDEST EQU OCUNIT 01278000 OCCKPKEY EQU OCRUDEST 01279000 OCSCAN EQU OCCKPKEY 01280000 OCOPTCDE EQU IEDQOPCE+12 01281000 OCSWITCH EQU IEDQOPCE+13 01282000 OCFLAG EQU IEDQOPCE+14 01283000 OCLINE EQU OCFLAG 01284000 OCRLN EQU IEDQOPCE+15 01285000 @NM00019 EQU IEDQOPCE+16 01286000 OCDEST EQU @NM00019 01287000 OCREQVAL EQU OCDEST+1 01288000 OCLINENO EQU IEDQOPCE+22 01289000 OCTIOT EQU OCLINENO 01290000 OCTRUNIT EQU IEDQOPCE+24 01291000 OCRSID EQU OCTRUNIT 01292000 OCALSTAT EQU OCRSID 01293000 OCPARM EQU IEDQOPCE+28 01294000 OCBACKUP EQU IEDQOPCE+32 01295000 OCMODNME EQU IEDQOPCE+40 01296000 OCIPLWA EQU OCMODNME 01297000 OCCKDATA EQU IEDQOPCE+48 01298000 OCRSTGTM EQU OCCKDATA 01299000 IEDQOPCN EQU 0 01300000 OCLDNME EQU IEDQOPCN 01301000 OCLINTTE EQU OCLDNME 01302000 OCREQFLG EQU OCLINTTE+2 01303000 OCPREFLG EQU OCLINTTE+3 01304000 IEDQOPCD EQU 0 01305000 OPCDOUBL EQU IEDQOPCD 01306000 OPCDCBLK EQU IEDQOPCD+16 01307000 OPCTOFLK EQU IEDQOPCD+24 01308000 OPCSAVE EQU IEDQOPCD+56 01309000 OPCFLAG1 EQU IEDQOPCD+146 01310000 OPCAQCTL EQU IEDQOPCD+180 01311000 OPCLDNME EQU IEDQOPCD+212 01312000 OPCGETBF EQU IEDQOPCD+276 01313000 OPCSPEC EQU IEDQOPCD+300 01314000 OPCWRKSP EQU IEDQOPCD+320 01315000 OPCPWCOB EQU IEDQOPCD+368 01316000 OPCPWQCB EQU OPCPWCOB 01317000 OPCPWECB EQU OPCPWCOB+4 01318000 IEDQAVTD EQU 0 01319000 AVTSAVEX EQU IEDQAVTD+288 01320000 @NM00046 EQU IEDQAVTD+388 01321000 AVTCKFLG EQU @NM00046 01322000 AVTBASE EQU IEDQAVTD+412 01323000 AVTPKF EQU AVTBASE 01324000 AVTRNMPT EQU IEDQAVTD+424 01325000 AVTSBTA EQU IEDQAVTD+440 01326000 AVTOSECB EQU IEDQAVTD+492 01327000 AVTECB1 EQU AVTOSECB 01328000 AVTHG02 EQU IEDQAVTD+528 01329000 AVTDISP EQU IEDQAVTD+552 01330000 AVTHD EQU IEDQAVTD+556 01331000 AVTSCOPT EQU AVTHD 01332000 AVTSAVTP EQU IEDQAVTD+612 01333000 AVTSAVTF EQU AVTSAVTP 01334000 AVTCKPEL EQU IEDQAVTD+652 01335000 AVTCKRMV EQU AVTCKPEL 01336000 AVTCKELF EQU IEDQAVTD+680 01337000 AVTCKBYT EQU IEDQAVTD+691 01338000 AVTHG01 EQU IEDQAVTD+692 01339000 AVTCKLNK EQU IEDQAVTD+696 01340000 AVTCRELE EQU IEDQAVTD+708 01341000 AVTCCELE EQU AVTCRELE 01342000 AVTCLRHI EQU IEDQAVTD+716 01343000 AVTADBUF EQU IEDQAVTD+720 01344000 AVTSYSER EQU IEDQAVTD+728 01345000 AVTCKPQB EQU IEDQAVTD+804 01346000 AVTCKPTB EQU AVTCKPQB 01347000 AVTCKPEC EQU AVTCKPQB+4 01348000 AVTCKPCC EQU AVTCKPEC 01349000 AVTOPCQB EQU IEDQAVTD+816 01350000 AVTOPCOB EQU AVTOPCQB 01351000 AVTOPCEC EQU AVTOPCQB+4 01352000 AVTOPCCC EQU AVTOPCEC 01353000 AVTOLTQB EQU IEDQAVTD+828 01354000 AVTCWFL1 EQU IEDQAVTD+924 01355000 AVTCWFL2 EQU IEDQAVTD+925 01356000 AVTSUBT EQU IEDQAVTD+948 01357000 AVTIOTR EQU IEDQAVTD+949 01358000 AVTBIT1 EQU IEDQAVTD+1050 01359000 AVTBIT2 EQU IEDQAVTD+1051 01360000 AVTBIT3 EQU IEDQAVTD+1052 01361000 AVTBIT4 EQU IEDQAVTD+1136 01362000 @NM00128 EQU IEDQAVTD+1232 01363000 IEDNSVTD EQU 0 01364000 SAVTDIAG EQU IEDNSVTD 01365000 SAVTDIAF EQU SAVTDIAG 01366000 SAVTPIUT EQU IEDNSVTD+68 01367000 SAVTLUSQ EQU IEDNSVTD+88 01368000 SAVTTCPU EQU IEDNSVTD+238 01369000 SAVTZELM EQU IEDNSVTD+270 01370000 SAVTRDRV EQU IEDNSVTD+284 01371000 SAVTCKQB EQU IEDNSVTD+300 01372000 SAVTCKTB EQU SAVTCKQB 01373000 SAVTCKEC EQU SAVTCKQB+4 01374000 SAVTCKCC EQU SAVTCKEC 01375000 IEDQTRM EQU 0 01376000 TRMSTATE EQU IEDQTRM 01377000 TRMLINE EQU TRMSTATE 01378000 TRMLOG EQU TRMSTATE 01379000 TRMPREF EQU TRMSTATE 01380000 TRMINSEQ EQU IEDQTRM+4 01381000 TLISTCNT EQU TRMINSEQ 01382000 TRMOUTSQ EQU IEDQTRM+6 01383000 TLISTEN EQU TRMOUTSQ 01384000 TRMDSORG EQU TLISTEN 01385000 TRMALTD EQU IEDQTRM+8 01386000 TRMDEVFL EQU IEDQTRM+10 01387000 TRMSTAT EQU IEDQTRM+12 01388000 IEDNTRM EQU 0 01389000 TRMBYTE4 EQU IEDNTRM 01390000 TRMBYTE3 EQU IEDNTRM+1 01391000 TRMBYTE2 EQU IEDNTRM+2 01392000 TRMINPG EQU TRMBYTE2 01393000 TRMBYTE1 EQU IEDNTRM+3 01394000 TRMSCPRQ EQU TRMBYTE1 01395000 TRMTRACE EQU TRMBYTE1 01396000 TRMCOHRT EQU IEDNTRM+4 01397000 TRMBYTE0 EQU IEDNTRM+6 01398000 TRMGP EQU TRMBYTE0 01399000 TRMSIBPT EQU IEDNTRM+7 01400000 TRMCOHTG EQU TRMSIBPT+1 01401000 TRMTYPE EQU IEDNTRM+11 01402000 TRMSUBST EQU IEDNTRM+12 01403000 IEDQSBTD EQU 0 01404000 SBTFLAGS EQU IEDQSBTD 01405000 SBTECBN EQU SBTFLAGS 01406000 SBTOI EQU SBTFLAGS 01407000 SBTNI EQU SBTFLAGS 01408000 SBTQCBA EQU IEDQSBTD+1 01409000 SBTPRI EQU IEDQSBTD+4 01410000 SBTDATA EQU IEDQSBTD+12 01411000 SBTADDR EQU IEDQSBTD+13 01412000 SBTECB EQU IEDQSBTD+16 01413000 PIUMSGTB EQU MSGTAB 01414000 TRACEON EQU PIUMSGTB+4 01415000 TRWASOFF EQU PIUMSGTB+8 01416000 TRACEOFF EQU PIUMSGTB+10 01417000 SOMEON EQU PIUMSGTB+12 01418000 SOMEOFF EQU PIUMSGTB+16 01419000 INVALMSG EQU PIUMSGTB+18 01420000 NOTPRSNT EQU PIUMSGTB+20 01421000 TRWASON EQU PIUMSGTB+22 01422000 FLAGS EQU OPCFLAG1 01423000 SCANDONE EQU FLAGS 01424000 SEARCH EQU FLAGS 01425000 NXTLVL EQU FLAGS 01426000 OCCKPKY1 EQU OCCKPKEY 01427000 OCCKPTYP EQU OCCKPKY1 01428000 OCICACTN EQU OCMODNME 01429000 OCICDADR EQU OCICACTN 01430000 OCICSW EQU OCICDADR+3 01431000 OPCAQWD EQU OPCAQCTL 01432000 OPCAQWD1 EQU OPCAQWD 01433000 OPCAQREQ EQU OPCAQWD1 01434000 OPCAQFST EQU OPCAQWD1+1 01435000 OPCAQWD2 EQU OPCAQWD+4 01436000 OPCAQRQ2 EQU OPCAQWD2 01437000 OPCAQSEC EQU OPCAQWD2+1 01438000 OPCAQWD3 EQU OPCAQWD+8 01439000 TRMPRE1 EQU TRMBYTE4 01440000 TRMNCP1 EQU TRMBYTE4 01441000 TRMPRE EQU TRMBYTE3 01442000 TRMNCP EQU TRMBYTE3 01443000 TRMPU EQU TRMBYTE3 01444000 TRMLU EQU TRMBYTE3 01445000 TRMLINK EQU TRMBYTE3 01446000 OCCIB EQU OCREQVAL 01447000 TRMOPT EQU IEDQTRM+20 01448000 * START UNREFERENCED COMPONENTS 01449000 @NM00153 EQU TRMLINK 01450000 TRMLSTAT EQU TRMLINK 01451000 TRMLINT EQU TRMLINK 01452000 TRMEPMOD EQU TRMLINK 01453000 TRMLULOG EQU TRMLU 01454000 TRMINERR EQU TRMLU 01455000 TRMLUREQ EQU TRMLU 01456000 TRMSESRQ EQU TRMLU 01457000 TRMTDIFF EQU TRMLU 01458000 TRMLUTM EQU TRMLU 01459000 TRMLUIT EQU TRMLU 01460000 TRMAUTO EQU TRMLU 01461000 TRMPCONT EQU TRMPU 01462000 @NM00152 EQU TRMPU 01463000 TRMNCONT EQU TRMNCP 01464000 TRMQUCKN EQU TRMNCP 01465000 TRMSLOWN EQU TRMNCP 01466000 TRMSYGEN EQU TRMNCP 01467000 TRMNCPCL EQU TRMNCP 01468000 TRMIPLDM EQU TRMNCP 01469000 TRMINOUT EQU TRMPRE 01470000 TRMRDOUT EQU TRMPRE 01471000 TRMNLOUT EQU TRMPRE 01472000 TRMWROUT EQU TRMPRE 01473000 TRMASNXI EQU TRMPRE 01474000 TRMSTMM EQU TRMPRE 01475000 TRMCMODE EQU TRMPRE 01476000 TRMSTPND EQU TRMPRE 01477000 @NM00151 EQU TRMNCP1 01478000 TRMINOP EQU TRMNCP1 01479000 TRMLYNCH EQU TRMPRE1 01480000 TRMSPOUT EQU TRMPRE1 01481000 TRMERLCK EQU TRMPRE1 01482000 TRMQNPL EQU TRMPRE1 01483000 TRMSPACT EQU TRMPRE1 01484000 TRMOCNI EQU TRMPRE1 01485000 TRMSESSN EQU TRMPRE1 01486000 TRMCONT EQU TRMPRE1 01487000 OPCAQLST EQU OPCAQWD3+1 01488000 OPCAQRQ3 EQU OPCAQWD3 01489000 OCICINAC EQU OCICSW 01490000 @NM00025 EQU OCICSW 01491000 OCICATST EQU OCICDADR+1 01492000 OCICTYPE EQU OCICDADR 01493000 @NM00024 EQU OCCKPKY1 01494000 OCCKPENV EQU OCCKPKY1 01495000 OCCKPRST EQU OCCKPTYP 01496000 OCCKPNCP EQU OCCKPTYP 01497000 OCCKPINC EQU OCCKPTYP 01498000 @NM00006 EQU PIUMSGTB+14 01499000 @NM00005 EQU PIUMSGTB+6 01500000 @NM00004 EQU PIUMSGTB+2 01501000 @NM00003 EQU PIUMSGTB 01502000 @NM00155 EQU IEDQSBTD+8 01503000 SBTLINK EQU IEDQSBTD+5 01504000 @NM00154 EQU SBTFLAGS 01505000 SBTBFRTN EQU SBTFLAGS 01506000 TRMRLMCT EQU IEDNTRM+10 01507000 TRMGPCNT EQU TRMSIBPT 01508000 TRMBUFRD EQU TRMBYTE0 01509000 TRMSNA EQU TRMBYTE0 01510000 TRMDIAL EQU TRMBYTE0 01511000 @NM00150 EQU TRMBYTE0 01512000 TRMOUTPT EQU TRMBYTE0 01513000 TRMINPUT EQU TRMBYTE0 01514000 TRMUDEF EQU TRMBYTE0 01515000 TRMSTOTE EQU TRMBYTE1 01516000 TRMCKPRN EQU TRMBYTE1 01517000 TRMTSATN EQU TRMBYTE1 01518000 TRMSWBCK EQU TRMBYTE1 01519000 TRMAUTOC EQU TRMBYTE1 01520000 TRMINPTP EQU TRMBYTE1 01521000 TRMWTNEG EQU TRMSCPRQ 01522000 TRMWRBRK EQU TRMBYTE2 01523000 TRMNOSND EQU TRMBYTE2 01524000 TRMPREP EQU TRMBYTE2 01525000 TRMGPACT EQU TRMBYTE2 01526000 TRMANDL EQU TRMBYTE2 01527000 TRMCLOSN EQU TRMINPG 01528000 TRMREMB EQU TRMBYTE2 01529000 TRMRSACT EQU TRMBYTE2 01530000 TRMOPTBL EQU IEDQTRM+18 01531000 TRMOPNO EQU IEDQTRM+17 01532000 TRMCHCIN EQU IEDQTRM+16 01533000 TRMSENSE EQU TRMSTAT+3 01534000 TRMTEMPR EQU TRMSTAT+2 01535000 TRMSIO EQU TRMSTAT 01536000 @NM00149 EQU TRMDEVFL+1 01537000 TRMTPIN EQU TRMDEVFL+1 01538000 TRMNCPI EQU TRMDEVFL+1 01539000 TRMRNTRM EQU TRMDEVFL+1 01540000 @NM00148 EQU TRMDEVFL+1 01541000 TRMLMD EQU TRMDEVFL+1 01542000 TRMCONC EQU TRMDEVFL+1 01543000 TRMTSOB EQU TRMDEVFL 01544000 TRMBFDY EQU TRMDEVFL 01545000 TRMTBLK EQU TRMDEVFL 01546000 TRMSBLK EQU TRMDEVFL 01547000 TRMBLKS EQU TRMDEVFL 01548000 TRMADDC EQU TRMDEVFL 01549000 TRMDDIG EQU TRMDEVFL 01550000 TRMBUFS EQU TRMDEVFL 01551000 TRMPRILK EQU TRMALTD 01552000 TRMLGB EQU TRMDSORG 01553000 TRMUTERM EQU TLISTCNT 01554000 TRMDESTQ EQU IEDQTRM+1 01555000 TRMSCNYN EQU TRMSTATE 01556000 TRMOPTFN EQU TRMSTATE 01557000 TRMHELDN EQU TRMSTATE 01558000 TRMACPTN EQU TRMSTATE 01559000 TRMPROC EQU TRMLOG 01560000 TRMLIST EQU TRMLOG 01561000 SAVTBITN EQU IEDNSVTD+312 01562000 @NM00147 EQU SAVTCKQB+8 01563000 @NM00146 EQU SAVTCKEC+1 01564000 @NM00145 EQU SAVTCKCC 01565000 SAVTCKPO EQU SAVTCKCC 01566000 SAVTCKWA EQU SAVTCKCC 01567000 SAVTCKCH EQU SAVTCKTB+1 01568000 SAVTCKVT EQU SAVTCKTB 01569000 @NM00144 EQU IEDNSVTD+297 01570000 SAVTRDFG EQU SAVTRDRV+12 01571000 @NM00143 EQU SAVTRDRV+5 01572000 SAVTRDPY EQU SAVTRDRV+4 01573000 SAVTRDQB EQU SAVTRDRV+1 01574000 SAVTRDKY EQU SAVTRDRV 01575000 SAVTNID EQU IEDNSVTD+280 01576000 SAVTDVAS EQU IEDNSVTD+276 01577000 SAVTPLSZ EQU IEDNSVTD+274 01578000 @NM00142 EQU IEDNSVTD+273 01579000 SAVTSUBL EQU IEDNSVTD+272 01580000 @NM00141 EQU SAVTZELM+1 01581000 SAVTSUBM EQU SAVTZELM 01582000 SAVTMHDX EQU IEDNSVTD+268 01583000 SAVTNAT1 EQU IEDNSVTD+266 01584000 SAVTSH20 EQU IEDNSVTD+264 01585000 SAVTLCBS EQU IEDNSVTD+260 01586000 SAVTRNMP EQU IEDNSVTD+256 01587000 SAVTTNTX EQU IEDNSVTD+252 01588000 SAVTNAX EQU IEDNSVTD+248 01589000 SAVTSUBV EQU IEDNSVTD+247 01590000 SAVTSUBA EQU IEDNSVTD+246 01591000 SAVTSIBC EQU IEDNSVTD+244 01592000 SAVTBSM EQU IEDNSVTD+240 01593000 SAVTSCPT EQU SAVTTCPU 01594000 SAVTRQTG EQU IEDNSVTD+236 01595000 SAVTRQCH EQU IEDNSVTD+232 01596000 SAVTMAND EQU IEDNSVTD+228 01597000 SAVTSPLN EQU IEDNSVTD+224 01598000 SAVTNADL EQU IEDNSVTD+222 01599000 SAVTNATL EQU IEDNSVTD+220 01600000 SAVTMHTB EQU IEDNSVTD+216 01601000 SAVTSSMH EQU IEDNSVTD+212 01602000 SAVTQRS EQU IEDNSVTD+208 01603000 SAVTRQIN EQU IEDNSVTD+204 01604000 SAVTDFCO EQU IEDNSVTD+200 01605000 SAVTSAO EQU IEDNSVTD+196 01606000 SAVTSARI EQU IEDNSVTD+192 01607000 SAVTSAC EQU IEDNSVTD+188 01608000 SAVTSAI EQU IEDNSVTD+184 01609000 SAVTCSCI EQU IEDNSVTD+180 01610000 SAVTSSRP EQU IEDNSVTD+176 01611000 SAVTSSRQ EQU IEDNSVTD+172 01612000 SAVTSCLU EQU IEDNSVTD+168 01613000 SAVTXTRQ EQU IEDNSVTD+164 01614000 SAVTMVBF EQU IEDNSVTD+160 01615000 @NM00140 EQU IEDNSVTD+148 01616000 SAVTIPCQ EQU IEDNSVTD+144 01617000 @NM00139 EQU IEDNSVTD+136 01618000 SAVTXFMI EQU IEDNSVTD+132 01619000 @NM00138 EQU IEDNSVTD+124 01620000 SAVTXFMO EQU IEDNSVTD+120 01621000 @NM00137 EQU IEDNSVTD+116 01622000 SAVTSSSR EQU IEDNSVTD+112 01623000 SAVTSCPQ EQU IEDNSVTD+108 01624000 SAVTSLCB EQU IEDNSVTD+104 01625000 SAVTLUSR EQU IEDNSVTD+100 01626000 @NM00136 EQU SAVTLUSQ+8 01627000 SAVTLUSP EQU SAVTLUSQ+4 01628000 SAVTLUSB EQU SAVTLUSQ 01629000 @NM00135 EQU IEDNSVTD+84 01630000 SAVTSAT EQU IEDNSVTD+80 01631000 SAVTNAT EQU IEDNSVTD+76 01632000 SAVTCLUP EQU IEDNSVTD+72 01633000 SAVTRNTA EQU IEDNSVTD+64 01634000 SAVTDNIR EQU IEDNSVTD+60 01635000 SAVTCNIR EQU IEDNSVTD+56 01636000 SAVTFLDH EQU IEDNSVTD+52 01637000 SAVTSRTN EQU IEDNSVTD+48 01638000 SAVTSREQ EQU IEDNSVTD+44 01639000 SAVTFAIL EQU IEDNSVTD+42 01640000 SAVTSUSE EQU IEDNSVTD+40 01641000 SAVTSIB EQU IEDNSVTD+36 01642000 SAVTPRTN EQU IEDNSVTD+32 01643000 @NM00134 EQU IEDNSVTD+28 01644000 SAVTWH20 EQU IEDNSVTD+26 01645000 SAVTPWT EQU IEDNSVTD+24 01646000 SAVTPRTQ EQU IEDNSVTD+20 01647000 SAVTPREQ EQU IEDNSVTD+16 01648000 SAVTPH20 EQU IEDNSVTD+14 01649000 SAVTPUSE EQU IEDNSVTD+12 01650000 SAVTPLCB EQU IEDNSVTD+8 01651000 SAVTPOOL EQU IEDNSVTD+4 01652000 SAVTPRMT EQU SAVTDIAF 01653000 SAVTVIRT EQU SAVTDIAF 01654000 AVTCPBNO EQU IEDQAVTD+1244 01655000 AVTHRESS EQU IEDQAVTD+1243 01656000 @NM00133 EQU IEDQAVTD+1242 01657000 @NM00132 EQU IEDQAVTD+1241 01658000 @NM00131 EQU IEDQAVTD+1240 01659000 @NM00130 EQU IEDQAVTD+1237 01660000 @NM00129 EQU IEDQAVTD+1236 01661000 AVTHRESE EQU @NM00128 01662000 AVTRADDR EQU IEDQAVTD+1228 01663000 AVTNADDR EQU IEDQAVTD+1224 01664000 AVTHRESN EQU IEDQAVTD+1220 01665000 AVTVOLRN EQU IEDQAVTD+1216 01666000 AVTTOTNN EQU IEDQAVTD+1212 01667000 AVTTRCYN EQU IEDQAVTD+1208 01668000 AVTRCTRN EQU IEDQAVTD+1204 01669000 AVTNOVON EQU IEDQAVTD+1200 01670000 AVTADEBN EQU IEDQAVTD+1196 01671000 AVTVOLRR EQU IEDQAVTD+1192 01672000 AVTTOTNR EQU IEDQAVTD+1188 01673000 AVTTRCYR EQU IEDQAVTD+1184 01674000 AVTRCTRR EQU IEDQAVTD+1180 01675000 AVTNOVOR EQU IEDQAVTD+1176 01676000 AVTADEBR EQU IEDQAVTD+1172 01677000 AVTLODPT EQU IEDQAVTD+1168 01678000 AVTIOBN EQU IEDQAVTD+1164 01679000 AVTIOBR EQU IEDQAVTD+1160 01680000 AVTCPBPT EQU IEDQAVTD+1156 01681000 AVTFCPB EQU IEDQAVTD+1152 01682000 @NM00127 EQU IEDQAVTD+1148 01683000 AVTINCPQ EQU IEDQAVTD+1144 01684000 @NM00126 EQU IEDQAVTD+1140 01685000 @NM00125 EQU IEDQAVTD+1137 01686000 @NM00124 EQU AVTBIT4 01687000 @NM00123 EQU AVTBIT4 01688000 @NM00122 EQU AVTBIT4 01689000 @NM00121 EQU AVTBIT4 01690000 @NM00120 EQU AVTBIT4 01691000 @NM00119 EQU AVTBIT4 01692000 @NM00118 EQU AVTBIT4 01693000 AVTRUFTN EQU AVTBIT4 01694000 @NM00117 EQU IEDQAVTD+1132 01695000 AVTNOBFQ EQU IEDQAVTD+1128 01696000 @NM00116 EQU IEDQAVTD+1124 01697000 AVTDKENQ EQU IEDQAVTD+1120 01698000 @NM00115 EQU IEDQAVTD+1116 01699000 AVTDKAPQ EQU IEDQAVTD+1112 01700000 AVTCOPY EQU IEDQAVTD+1108 01701000 AVTIA EQU IEDQAVTD+1104 01702000 AVTFL EQU IEDQAVTD+1100 01703000 @NM00114 EQU IEDQAVTD+1096 01704000 AVTNCPBQ EQU IEDQAVTD+1092 01705000 AVTTOTNC EQU IEDQAVTD+1088 01706000 AVTCMAX EQU IEDQAVTD+1084 01707000 AVTCMIN EQU IEDQAVTD+1080 01708000 AVTHM02 EQU IEDQAVTD+1076 01709000 AVTOPCIN EQU IEDQAVTD+1074 01710000 AVTDCTLN EQU IEDQAVTD+1072 01711000 AVTOPMSK EQU IEDQAVTD+1068 01712000 AVTDDFT EQU IEDQAVTD+1064 01713000 AVTSTEAL EQU IEDQAVTD+1060 01714000 AVTOPTN EQU IEDQAVTD+1056 01715000 AVTDSKCT EQU IEDQAVTD+1054 01716000 AVTCKRST EQU IEDQAVTD+1053 01717000 AVTSTAN EQU AVTBIT3 01718000 AVTSTACN EQU AVTBIT3 01719000 AVTSTAIN EQU AVTBIT3 01720000 AVTSTAYN EQU AVTBIT3 01721000 AVTOLTBN EQU AVTBIT3 01722000 AVTTSAB EQU AVTBIT3 01723000 AVTRFULN EQU AVTBIT3 01724000 AVTRECVN EQU AVTBIT3 01725000 @NM00113 EQU AVTBIT2 01726000 @NM00112 EQU AVTBIT2 01727000 AVTOPEIN EQU AVTBIT2 01728000 AVTSTRTN EQU AVTBIT2 01729000 AVTTOPOL EQU AVTBIT2 01730000 AVTCOPYN EQU AVTBIT2 01731000 AVTREUSN EQU AVTBIT2 01732000 AVTEXTSC EQU AVTBIT2 01733000 AVTDISKN EQU AVTBIT1 01734000 AVTQUCKN EQU AVTBIT1 01735000 AVTCLOSN EQU AVTBIT1 01736000 AVTREADN EQU AVTBIT1 01737000 AVTDLAYN EQU AVTBIT1 01738000 AVTAQTAN EQU AVTBIT1 01739000 AVTTSON EQU AVTBIT1 01740000 AVTAPLKN EQU AVTBIT1 01741000 AVTDUMBR EQU IEDQAVTD+1048 01742000 AVTDLQX EQU IEDQAVTD+1046 01743000 AVTINTLV EQU IEDQAVTD+1044 01744000 AVTSMCNT EQU IEDQAVTD+1042 01745000 AVTAVFCT EQU IEDQAVTD+1040 01746000 AVTOPCON EQU IEDQAVTD+1038 01747000 AVTOPCNT EQU IEDQAVTD+1036 01748000 AVTLNCNT EQU IEDQAVTD+1034 01749000 AVTKEYLE EQU IEDQAVTD+1032 01750000 AVTHA16 EQU IEDQAVTD+1030 01751000 AVTHA7 EQU IEDQAVTD+1028 01752000 AVTHA4 EQU IEDQAVTD+1026 01753000 AVTHA3 EQU IEDQAVTD+1024 01754000 AVTHA2 EQU IEDQAVTD+1022 01755000 AVTGETMS EQU IEDQAVTD+1021 01756000 @NM00111 EQU IEDQAVTD+1020 01757000 AVTGETMD EQU IEDQAVTD+1016 01758000 AVTGETMN EQU IEDQAVTD+1012 01759000 AVTCWTOT EQU IEDQAVTD+1008 01760000 AVTCWINT EQU IEDQAVTD+956 01761000 AVTDTRAP EQU IEDQAVTD+952 01762000 @NM00110 EQU IEDQAVTD+950 01763000 @NM00109 EQU AVTIOTR 01764000 AVTIOTRH EQU AVTIOTR 01765000 AVTIOTRE EQU AVTIOTR 01766000 @NM00108 EQU AVTSUBT 01767000 AVTSUBPT EQU AVTSUBT 01768000 AVTSUBON EQU AVTSUBT 01769000 AVTAFE30 EQU IEDQAVTD+944 01770000 AVTAFE20 EQU IEDQAVTD+940 01771000 AVTAFE10 EQU IEDQAVTD+936 01772000 AVTCWEC2 EQU IEDQAVTD+932 01773000 AVTCWPM2 EQU IEDQAVTD+928 01774000 AVTCWTS2 EQU IEDQAVTD+927 01775000 AVTCWTS1 EQU IEDQAVTD+926 01776000 AVTCWCLD EQU AVTCWFL2 01777000 AVTCWRAP EQU AVTCWFL2 01778000 @NM00107 EQU AVTCWFL2 01779000 @NM00106 EQU AVTCWFL2 01780000 @NM00105 EQU AVTCWFL2 01781000 @NM00104 EQU AVTCWFL2 01782000 @NM00103 EQU AVTCWFL2 01783000 AVTCWACT EQU AVTCWFL2 01784000 @NM00102 EQU AVTCWFL1 01785000 @NM00101 EQU AVTCWFL1 01786000 @NM00100 EQU AVTCWFL1 01787000 @NM00099 EQU AVTCWFL1 01788000 @NM00098 EQU AVTCWFL1 01789000 @NM00097 EQU AVTCWFL1 01790000 @NM00096 EQU AVTCWFL1 01791000 AVTCOMWN EQU AVTCWFL1 01792000 AVTCWEC1 EQU IEDQAVTD+920 01793000 AVTCWPM1 EQU IEDQAVTD+916 01794000 AVTCAREA EQU IEDQAVTD+912 01795000 AVTFZERO EQU IEDQAVTD+908 01796000 AVTCADDR EQU IEDQAVTD+904 01797000 AVTCOREC EQU IEDQAVTD+900 01798000 @NM00095 EQU IEDQAVTD+892 01799000 AVTCPBCB EQU IEDQAVTD+888 01800000 @NM00094 EQU IEDQAVTD+880 01801000 AVTDSIOB EQU IEDQAVTD+876 01802000 @NM00093 EQU IEDQAVTD+868 01803000 AVTCPRMB EQU IEDQAVTD+864 01804000 @NM00092 EQU IEDQAVTD+856 01805000 AVTCLOSB EQU IEDQAVTD+852 01806000 @NM00091 EQU IEDQAVTD+844 01807000 AVTACTIB EQU IEDQAVTD+840 01808000 @NM00090 EQU IEDQAVTD+836 01809000 AVTOLTEB EQU IEDQAVTD+832 01810000 AVTOLTCH EQU AVTOLTQB+1 01811000 AVTOLTVT EQU AVTOLTQB 01812000 @NM00089 EQU AVTOPCQB+8 01813000 @NM00088 EQU AVTOPCEC+1 01814000 @NM00087 EQU AVTOPCCC 01815000 AVTOPCPO EQU AVTOPCCC 01816000 AVTOPCWA EQU AVTOPCCC 01817000 AVTOPCCH EQU AVTOPCOB+1 01818000 AVTOPCVT EQU AVTOPCOB 01819000 @NM00086 EQU AVTCKPQB+9 01820000 AVTCKPTS EQU AVTCKPQB+8 01821000 @NM00085 EQU AVTCKPEC+1 01822000 @NM00084 EQU AVTCKPCC 01823000 AVTCKPPO EQU AVTCKPCC 01824000 AVTCKPWA EQU AVTCKPCC 01825000 AVTCKPCH EQU AVTCKPTB+1 01826000 AVTCKPVT EQU AVTCKPTB 01827000 @NM00083 EQU IEDQAVTD+796 01828000 AVTBFRTB EQU IEDQAVTD+792 01829000 @NM00082 EQU IEDQAVTD+784 01830000 AVTBFREB EQU IEDQAVTD+780 01831000 AVTTIMQ EQU IEDQAVTD+776 01832000 @NM00081 EQU IEDQAVTD+772 01833000 AVTIMQPS EQU IEDQAVTD+768 01834000 AVTINOUT EQU IEDQAVTD+766 01835000 AVTREFTM EQU IEDQAVTD+764 01836000 @NM00080 EQU IEDQAVTD+752 01837000 AVTDELYB EQU IEDQAVTD+748 01838000 AVTOCQPT EQU IEDQAVTD+744 01839000 AVTTSOPT EQU IEDQAVTD+740 01840000 AVTSUPPT EQU IEDQAVTD+736 01841000 AVTCBQCB EQU IEDQAVTD+732 01842000 AVTMSGS EQU IEDQAVTD+729 01843000 @NM00079 EQU AVTSYSER 01844000 @NM00078 EQU AVTSYSER 01845000 @NM00077 EQU AVTSYSER 01846000 @NM00076 EQU AVTSYSER 01847000 @NM00075 EQU AVTSYSER 01848000 @NM00074 EQU AVTSYSER 01849000 AVTCMAXN EQU AVTSYSER 01850000 AVTCMINN EQU AVTSYSER 01851000 AVT2260L EQU IEDQAVTD+724 01852000 AVTABEPL EQU AVTADBUF 01853000 AVTHFF EQU AVTCLRHI+2 01854000 @NM00073 EQU AVTCLRHI 01855000 AVTCCLNK EQU AVTCRELE+5 01856000 AVTCCPRI EQU AVTCRELE+4 01857000 AVTCCQCB EQU AVTCCELE+1 01858000 AVTCCKEY EQU AVTCCELE 01859000 AVTDELAD EQU IEDQAVTD+704 01860000 AVTDELEM EQU IEDQAVTD+700 01861000 AVTBSX EQU AVTCKLNK 01862000 AVTOPETR EQU AVTHG01 01863000 @NM00072 EQU AVTCKBYT 01864000 AVTCKONQ EQU AVTCKBYT 01865000 @NM00071 EQU AVTCKBYT 01866000 @NM00070 EQU AVTCKBYT 01867000 @NM00069 EQU AVTCKBYT 01868000 @NM00068 EQU AVTCKBYT 01869000 @NM00067 EQU AVTCKBYT 01870000 @NM00066 EQU AVTCKBYT 01871000 AVTOPERT EQU IEDQAVTD+690 01872000 AVTOPXCL EQU IEDQAVTD+688 01873000 AVTOPERL EQU IEDQAVTD+687 01874000 @NM00065 EQU IEDQAVTD+686 01875000 AVTCKTIM EQU IEDQAVTD+684 01876000 AVTCKELV EQU IEDQAVTD+682 01877000 AVTCPRCD EQU IEDQAVTD+681 01878000 AVTWARMN EQU AVTCKELF 01879000 AVTCRTLN EQU AVTCKELF 01880000 AVTCPIPN EQU AVTCKELF 01881000 AVTCCLCN EQU AVTCKELF 01882000 AVTCINCN EQU AVTCKELF 01883000 @NM00064 EQU AVTCKELF 01884000 AVTCMCPN EQU AVTCKELF 01885000 AVTNQBCK EQU AVTCKELF 01886000 AVTCKQAD EQU IEDQAVTD+677 01887000 AVTSCBSZ EQU IEDQAVTD+676 01888000 @NM00063 EQU IEDQAVTD+672 01889000 AVTCKELE EQU IEDQAVTD+668 01890000 @NM00062 EQU AVTCKPEL+8 01891000 AVTCKRLK EQU AVTCKPEL+5 01892000 AVTCKRPR EQU AVTCKPEL+4 01893000 AVTCKRMQ EQU AVTCKRMV+1 01894000 AVTCKRKY EQU AVTCKRMV 01895000 AVTHK EQU IEDQAVTD+648 01896000 AVTHI EQU IEDQAVTD+644 01897000 AVTIOT EQU IEDQAVTD+640 01898000 AVTNX EQU IEDQAVTD+636 01899000 AVTTONE EQU IEDQAVTD+632 01900000 AVTA3TL EQU IEDQAVTD+628 01901000 AVTDMECB EQU IEDQAVTD+624 01902000 AVTABEND EQU IEDQAVTD+618 01903000 AVTPLCBN EQU IEDQAVTD+616 01904000 @NM00061 EQU AVTSAVTP+1 01905000 @NM00060 EQU AVTSAVTF 01906000 AVTSNA EQU AVTSAVTF 01907000 AVTONSNA EQU AVTSAVTF 01908000 AVTVTMCP EQU AVTSAVTF 01909000 @NM00059 EQU IEDQAVTD+608 01910000 AVTCMBSS EQU IEDQAVTD+604 01911000 AVTRCV EQU IEDQAVTD+600 01912000 AVTSEND EQU IEDQAVTD+596 01913000 AVTCSCH EQU IEDQAVTD+592 01914000 AVTQ1 EQU IEDQAVTD+588 01915000 AVTE7 EQU IEDQAVTD+584 01916000 AVTHB EQU IEDQAVTD+580 01917000 AVTR1 EQU IEDQAVTD+576 01918000 AVTBZ EQU IEDQAVTD+572 01919000 AVTEZ EQU IEDQAVTD+568 01920000 AVTEC EQU IEDQAVTD+564 01921000 AVTEW EQU IEDQAVTD+560 01922000 AVTNDIAL EQU AVTSCOPT 01923000 AVTN2741 EQU AVTSCOPT 01924000 AVTCONCO EQU AVTSCOPT 01925000 AVTCONC EQU AVTSCOPT 01926000 AVTCMBUF EQU AVTSCOPT 01927000 AVTAPDMP EQU AVTSCOPT 01928000 @NM00058 EQU AVTSCOPT 01929000 AVTHA EQU AVTDISP 01930000 AVTEA EQU IEDQAVTD+548 01931000 AVTAX EQU IEDQAVTD+544 01932000 AVTA3 EQU IEDQAVTD+540 01933000 AVTGD EQU IEDQAVTD+536 01934000 AVTAL EQU IEDQAVTD+532 01935000 AVTOLTST EQU AVTHG02 01936000 AVTE8 EQU IEDQAVTD+524 01937000 AVTUI EQU IEDQAVTD+520 01938000 AVTCOMPT EQU IEDQAVTD+516 01939000 AVTCRSRF EQU IEDQAVTD+512 01940000 @NM00057 EQU IEDQAVTD+508 01941000 AVTKA02 EQU IEDQAVTD+504 01942000 AVTOPTPT EQU IEDQAVTD+500 01943000 AVTPCBPT EQU IEDQAVTD+496 01944000 @NM00056 EQU AVTECB1 01945000 AVTCOMP EQU AVTECB1 01946000 @NM00055 EQU AVTECB1 01947000 AVTOPECA EQU IEDQAVTD+488 01948000 AVTOLECA EQU IEDQAVTD+484 01949000 AVTCKECA EQU IEDQAVTD+480 01950000 AVTCWECA EQU IEDQAVTD+476 01951000 AVTCWTCB EQU IEDQAVTD+472 01952000 AVTOLTCB EQU IEDQAVTD+468 01953000 AVTOCTCB EQU IEDQAVTD+464 01954000 AVTCKTCB EQU IEDQAVTD+460 01955000 AVTAS EQU IEDQAVTD+456 01956000 AVTNOLBF EQU IEDQAVTD+454 01957000 AVTNCKPR EQU IEDQAVTD+453 01958000 AVTCIB EQU IEDQAVTD+452 01959000 AVTSPLPT EQU IEDQAVTD+448 01960000 AVTMVBFR EQU IEDQAVTD+444 01961000 AVTRARTN EQU IEDQAVTD+436 01962000 AVTBSCAN EQU IEDQAVTD+432 01963000 AVTRDYA EQU IEDQAVTD+428 01964000 AVTDISTR EQU IEDQAVTD+420 01965000 AVTPARM3 EQU IEDQAVTD+416 01966000 @NM00054 EQU AVTPKF 01967000 @NM00053 EQU AVTPKF 01968000 @NM00052 EQU AVTPKF 01969000 AVTFTCHF EQU AVTPKF 01970000 @NM00051 EQU AVTPKF 01971000 @NM00050 EQU AVTPKF 01972000 @NM00049 EQU AVTPKF 01973000 @NM00048 EQU AVTPKF 01974000 AVTPARM EQU IEDQAVTD+408 01975000 AVTEXS2A EQU IEDQAVTD+402 01976000 AVTEXA2S EQU IEDQAVTD+396 01977000 AVTOCGET EQU IEDQAVTD+392 01978000 AVTCKAVT EQU @NM00046+1 01979000 @NM00047 EQU AVTCKFLG 01980000 AVTCKHLT EQU AVTCKFLG 01981000 AVTCKREQ EQU AVTCKFLG 01982000 AVTCKENV EQU AVTCKFLG 01983000 AVTCKNAC EQU AVTCKFLG 01984000 AVTCKTAC EQU AVTCKFLG 01985000 @NM00045 EQU IEDQAVTD+384 01986000 AVTREADD EQU IEDQAVTD+380 01987000 AVTREADY EQU IEDQAVTD+376 01988000 AVTRACE EQU IEDQAVTD+372 01989000 AVTTCB EQU IEDQAVTD+368 01990000 AVTPASWD EQU IEDQAVTD+360 01991000 AVTCTLCH EQU IEDQAVTD+352 01992000 AVTDOUBL EQU IEDQAVTD+344 01993000 AVTDOUBX EQU IEDQAVTD+336 01994000 AVTDPARM EQU IEDQAVTD+332 01995000 AVTCSTCS EQU IEDQAVTD+328 01996000 AVTDLQ EQU AVTSAVEX+32 01997000 @NM00044 EQU AVTSAVEX 01998000 AVTSAVE4 EQU IEDQAVTD+216 01999000 AVTSAVE3 EQU IEDQAVTD+144 02000000 AVTSAVE2 EQU IEDQAVTD+72 02001000 AVTSAVE1 EQU IEDQAVTD 02002000 OPCBOTTM EQU IEDQOPCD+1184 02003000 @NM00043 EQU IEDQOPCD+1100 02004000 @NM00042 EQU IEDQOPCD+948 02005000 @NM00041 EQU IEDQOPCD+940 02006000 @NM00040 EQU IEDQOPCD+380 02007000 @NM00039 EQU OPCPWCOB+9 02008000 @NM00038 EQU OPCPWCOB+8 02009000 @NM00037 EQU OPCPWECB+1 02010000 OPCPWCCC EQU OPCPWECB 02011000 OPCPWCHN EQU OPCPWQCB+1 02012000 OPCPWVTO EQU OPCPWQCB 02013000 OPCWAITV EQU IEDQOPCD+364 02014000 OPCTOTCK EQU IEDQOPCD+360 02015000 OPCAPXTL EQU IEDQOPCD+356 02016000 OPCDECR EQU IEDQOPCD+352 02017000 OPCBUFWT EQU IEDQOPCD+348 02018000 OPCADGOT EQU IEDQOPCD+318 02019000 OPCRQCNT EQU IEDQOPCD+316 02020000 OPPOLSTP EQU IEDQOPCD+312 02021000 OPCCKCIB EQU IEDQOPCD+308 02022000 OPCEND EQU IEDQOPCD+307 02023000 OPCSTCBS EQU IEDQOPCD+306 02024000 OPCHNEND EQU IEDQOPCD+302 02025000 OPCOQSW EQU IEDQOPCD+301 02026000 @NM00036 EQU OPCSPEC 02027000 @NM00035 EQU OPCSPEC 02028000 @NM00034 EQU OPCSPEC 02029000 @NM00033 EQU OPCSPEC 02030000 OPCFRMCA EQU OPCSPEC 02031000 OPCRSTRT EQU OPCSPEC 02032000 OPCPART EQU OPCSPEC 02033000 OPCALTD EQU OPCSPEC 02034000 OPCBFEND EQU IEDQOPCD+296 02035000 OPCBFIRS EQU IEDQOPCD+292 02036000 OPCAVBUF EQU IEDQOPCD+290 02037000 OPCIPLCT EQU IEDQOPCD+289 02038000 OPCCLNTS EQU IEDQOPCD+288 02039000 OPCHA8 EQU IEDQOPCD+286 02040000 OPCBFREQ EQU IEDQOPCD+284 02041000 OPCFREBF EQU IEDQOPCD+280 02042000 OPCNEXT EQU IEDQOPCD+272 02043000 OPCFMDFC EQU IEDQOPCD+268 02044000 OPCSCNC EQU IEDQOPCD+264 02045000 OPCHORTG EQU IEDQOPCD+260 02046000 OPCHORT EQU IEDQOPCD+256 02047000 OPCCKPTL EQU IEDQOPCD+252 02048000 OPCCKPTF EQU IEDQOPCD+248 02049000 OPCWAITA EQU IEDQOPCD+244 02050000 OPCWAITR EQU IEDQOPCD+240 02051000 OPCWAITP EQU IEDQOPCD+236 02052000 OPCWAITO EQU IEDQOPCD+232 02053000 OPCWAITN EQU IEDQOPCD+228 02054000 OPCWAITL EQU IEDQOPCD+224 02055000 OPCWAITC EQU IEDQOPCD+220 02056000 @NM00032 EQU OPCLDNME+5 02057000 OPCMODID EQU OPCLDNME+3 02058000 @NM00031 EQU OPCLDNME 02059000 OPCXCTL EQU IEDQOPCD+204 02060000 OPCWAIT EQU IEDQOPCD+192 02061000 OPCCKERB EQU IEDQOPCD+164 02062000 OPCBFERB EQU IEDQOPCD+148 02063000 OPCFLAG2 EQU IEDQOPCD+147 02064000 OPCWRKSZ EQU IEDQOPCD+144 02065000 OPCWORK EQU IEDQOPCD+140 02066000 OPCRSAVE EQU IEDQOPCD+132 02067000 OPCQCBAD EQU IEDQOPCD+128 02068000 OPCTRMWA EQU IEDQOPCD+52 02069000 OPCPSTWT EQU IEDQOPCD+48 02070000 OPCTNTEA EQU IEDQOPCD+44 02071000 OPCPGCK EQU IEDQOPCD+40 02072000 OPCLCB EQU IEDQOPCD+36 02073000 @NM00030 EQU IEDQOPCD+32 02074000 OPCIPLAD EQU IEDQOPCD+28 02075000 OPCOPTLK EQU IEDQOPCD+20 02076000 OPCCOPCE EQU IEDQOPCD+12 02077000 OPCAVTPT EQU IEDQOPCD+8 02078000 @NM00029 EQU OCLDNME+4 02079000 @NM00028 EQU OCPREFLG 02080000 OCTOTEP EQU OCPREFLG 02081000 OCREPOST EQU OCPREFLG 02082000 OCRSPSNT EQU OCPREFLG 02083000 OCBFREQ EQU OCPREFLG 02084000 OCIDLE EQU OCREQFLG 02085000 OCFORCE EQU OCREQFLG 02086000 OCDCARD EQU OCREQFLG 02087000 OCPARTAL EQU OCREQFLG 02088000 OCADNCP EQU OCREQFLG 02089000 @NM00027 EQU OCREQFLG 02090000 @NM00026 EQU OCREQFLG 02091000 OCFLUSHZ EQU OCREQFLG 02092000 OCRESPCT EQU OCLINTTE 02093000 OCCKPTWA EQU OCCKDATA+4 02094000 @NM00023 EQU OCRSTGTM+2 02095000 OCCKDAT2 EQU OCRSTGTM+1 02096000 OCCKDAT1 EQU OCRSTGTM 02097000 OCPTRSAV EQU OCMODNME+4 02098000 OCPUADR EQU OCIPLWA+2 02099000 OCWTGSAV EQU OCIPLWA 02100000 OCDVRDCT EQU OCBACKUP+6 02101000 OCNCP EQU OCBACKUP+4 02102000 OCBUFGOT EQU OCBACKUP+2 02103000 OCBUFNED EQU OCBACKUP 02104000 OCWTG EQU IEDQOPCE+30 02105000 OCRESNUM EQU OCPARM 02106000 OCSEQ EQU OCTRUNIT+2 02107000 @NM00022 EQU OCRSID+1 02108000 OCNONE EQU OCALSTAT 02109000 OCSOME EQU OCALSTAT 02110000 OCALLFLG EQU OCALSTAT 02111000 OCACTREQ EQU OCALSTAT 02112000 OCREDRVE EQU OCALSTAT 02113000 OCSEQIND EQU OCALSTAT 02114000 @NM00021 EQU OCALSTAT 02115000 OCRENTRD EQU OCALSTAT 02116000 OCWTGB EQU OCTIOT 02117000 OCTRMTBL EQU IEDQOPCE+20 02118000 @NM00020 EQU @NM00019+2 02119000 OCCONID EQU OCDEST 02120000 OCRESP EQU OCFLAG 02121000 OCATTACH EQU OCFLAG 02122000 OCSSCP EQU OCFLAG 02123000 OCOUTPUT EQU OCFLAG 02124000 OCMPP EQU OCFLAG 02125000 OCTOTE EQU OCFLAG 02126000 OCCONSOL EQU OCFLAG 02127000 @NM00018 EQU OCSWITCH 02128000 OCQUCKN EQU OCSWITCH 02129000 OCPRIFLG EQU OCOPTCDE 02130000 @NM00017 EQU OCRUDEST+1 02131000 @NM00016 EQU OCSCAN 02132000 OCNOTUCB EQU OCSCAN 02133000 OCNONAME EQU OCSCAN 02134000 OCALLRLN EQU OCSCAN 02135000 OCDDNAME EQU OCSCAN 02136000 OCDDNRLN EQU OCSCAN 02137000 OCADDR EQU OCSCAN 02138000 OCELMPTR EQU OCELEM+1 02139000 OCELMPRI EQU OCELEM 02140000 OCLINK EQU IEDQOPCE 02141000 INLOOP EQU SWITCHES 02142000 * END UNREFERENCED COMPONENTS 02143000 @RC00325 EQU @RC00324 02144000 @RT00341 EQU ERRHAND1 02145000 @RF00341 EQU @RC00337 02146000 @RC00354 EQU @RC00353 02147000 @RC00358 EQU @RC00357 02148000 @RC00387 EQU @RC00385 02149000 @RF00597 EQU @EL00001 02150000 @EL01 EQU @EL00001 02151000 @ENDDATA EQU * 02152000 @DATEND EQU * 02153000 END IGCMN10D,(C'PLS1531',0701,77199) 02154000