TITLE 'IGCMT10D, 3705-SWITCH NETWORK BACKUP *00001000 ' 00002000 IGCMT10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* @Y17XARX 00007000 IGCMT10D IEDHJN AFTERHJN,HJN @Y17XARX 00008000 * 0228 00009000 */********************************************************************/ 00010000 */* SET UP CONTROL BLOCK REGISTERS */ 00011000 */********************************************************************/ 00012000 * 0228 00013000 * ROPCAVT=RPARM; /* SET BASE FOR OP CTL AVT */ 00014000 LR ROPCAVT,RPARM 0228 00015000 * IEDQAPTR=OPCAVTPT; /* SET BASE FOT TCAM'S AVT */ 00016000 L IEDQAPTR,OPCAVTPT(,ROPCAVT) 0229 00017000 * ROPCE=OPCCOPCE; /* SET POINTER TO OP CTL ELEMENT */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 0230 00019000 * RSAVE=ADDR(OPCSAVE); /* GET SAVE AREA ADDRESSY06328 */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0231 00021000 * RWORKA=OPCWORK; /* GET ADDRESS OF WORK AREA */ 00022000 L RWORKA,OPCWORK(,ROPCAVT) 0232 00023000 */********************************************************************/ 00024000 */* CHECK FOR RESPONSE RU: @Y17XARX*/ 00025000 */* OCRESP=OFF - ELEMENT IS ASSOCIATED WITH Y06328*/ 00026000 */* INITIAL SWITCH NETWORK BACKUP Y06328*/ 00027000 */* COMMAND WHICH NEEDS OPERAND Y06328*/ 00028000 */* CHECKING AND AN RU SENT. @Y17XARX*/ 00029000 */* OCRESP=ON - ELEMENT IS ASSOCIATED WITH A Y06328*/ 00030000 */* RESPONSE RU SENT ON A @Y17XARX*/ 00031000 */* PREVIOUS ENTRY INTO THIS @Y17XARX*/ 00032000 */* MODULE. Y06328*/ 00033000 */********************************************************************/ 00034000 * 0233 00035000 * IF OCRESP='1'B THEN /* IS ENTRY INTO IGCMT10D TO 0233 00036000 * PROCESS A RETURN BTU ? */ 00037000 TM OCRESP(ROPCE),B'00000001' 0233 00038000 BO @RT00233 0233 00039000 * GOTO PROCBTU; /* YES, PROCESS THE BTU */ 00040000 * 0235 00041000 */********************************************************************/ 00042000 */* CALL IEDQCA AT TERM ENTRY LOOKUP TO VERIFY STATION NAME. THE */ 00043000 */* STATION NAME IS IN OPCDOUBL AT ENTRY TO THIS MODULE. RETURN FROM */ 00044000 */* IEDQCA IS AT: */ 00045000 */* RRET+0 - VALID TERM ENTRY NAME */ 00046000 */* RRET+4 - INVALID TERM ENTRY NAME */ 00047000 */* IF VALID RETURN, THEN THE TERM ENTRY ADDRESS IS IN RPARM. */ 00048000 */********************************************************************/ 00049000 * 0235 00050000 * OCBACKUP=OPCDOUBL; /* SAVE STATION NAME */ 00051000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0235 00052000 * CALL TRMOFLOC; /* LOOK UP TERM ENTRY @YM06893*/ 00053000 L @15,OPCTOFLK(,ROPCAVT) 0236 00054000 BALR @14,@15 0236 00055000 * GOTO GOODTRM; /* GOOD RETURN - CONTINUE */ 00056000 B GOODTRM 0237 00057000 *DLABEL1: /* @Y17XARX*/ 00058000 * RMSGNUM=16; /* BAD RETURN - SET MSG NUM */ 00059000 DLABEL1 LA RMSGNUM,16 0238 00060000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE */ 00061000 B ERREXIT 0239 00062000 *GOODTRM: 0240 00063000 * IEDQTPTR=RPARM; /* SAVE TERM ENTRY ADDRESS */ 00064000 GOODTRM LR IEDQTPTR,RPARM 0240 00065000 * 0241 00066000 */********************************************************************/ 00067000 */* VERIFY THAT ENTRY IS A STATION ON A 3705 */ 00068000 */********************************************************************/ 00069000 * 0241 00070000 * IF TRMKIND='000'B THEN /* IS ENTRY A SINGLE ENTRY ? 0241 00071000 * @Y17XARX*/ 00072000 TM TRMKIND(IEDQTPTR),B'11100000' 0241 00073000 BNZ @RF00241 0241 00074000 * DO; /* YES */ 00075000 * IF TRMPREF='1'B THEN /* IS ENTRY ON A 3705/ @Y17XARX*/ 00076000 TM TRMPREF(IEDQTPTR),B'00010000' 0243 00077000 BNO @RF00243 0243 00078000 * DO; /* YES */ 00079000 * IF TRMTYPE=TRMGRP THEN /* IS ENTRY AN LGB ? @Y17XARX*/ 00080000 LR @11,IEDQTPTR 0245 00081000 AL @11,@CF01044 0245 00082000 CLI TRMTYPE-11(@11),X'00' 0245 00083000 BNE @RF00245 0245 00084000 * DO; /* YES */ 00085000 * RMSGNUM=90; /* ERROR - NOT SINGLE ENTRY */ 00086000 LA RMSGNUM,90 0247 00087000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE */ 00088000 B ERREXIT 0248 00089000 * END; /* */ 00090000 * IF OCCONSOL='0'B& /* REQUEST IS NEITHER CONSOLE 0250 00091000 * @Y17XARX*/ 00092000 * OCTOTE='0'B THEN /* NOR TOTE REQUEST? @Y17XARX*/ 00093000 @RF00245 TM OCCONSOL(ROPCE),B'11000000' 0250 00094000 BNZ @RF00250 0250 00095000 * IF AVTOPCIN=OCTRMTBL THEN/* SWITCHING PRIOP @YM07033*/ 00096000 CLC AVTOPCIN(2,IEDQAPTR),OCTRMTBL(ROPCE) 0251 00097000 BE @RT00251 0251 00098000 * GO TO CMDINV; /* YES, ERROR @Y17XARX*/ 00099000 * END; 0253 00100000 * ELSE 0254 00101000 * DO; 0254 00102000 B @RC00243 0254 00103000 @RF00243 DS 0H 0255 00104000 * RMSGNUM=173; /* ERROR - NOT ON A 3705 */ 00105000 LA RMSGNUM,173 0255 00106000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE */ 00107000 B ERREXIT 0256 00108000 * END; 0257 00109000 * END; 0258 00110000 * ELSE 0259 00111000 * DO; 0259 00112000 B @RC00241 0259 00113000 @RF00241 DS 0H 0260 00114000 * RMSGNUM=90; /* ERROR - NOT SINGLE ENTRY */ 00115000 LA RMSGNUM,90 0260 00116000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE */ 00117000 B ERREXIT 0261 00118000 * END; 0262 00119000 * IF TRMINPUT='1'B THEN /* IS ENTRY CAPABLE OF INPUT */ 00120000 @RC00241 LR @11,IEDQTPTR 0263 00121000 SL @11,@CF01509 0263 00122000 TM TRMINPUT(@11),B'01000000' 0263 00123000 BNO @RF00263 0263 00124000 * DO; /* YES Y06328*/ 00125000 * IF TRMRSACT='1'B THEN /* IS ENTRY ACTIVE @Y17XARX*/ 00126000 TM TRMRSACT(@11),B'10000000' 0265 00127000 BNO @RF00265 0265 00128000 * DO; /* YES Y06328*/ 00129000 * RMSGNUM=442; /* ERROR - ENTRY ACTIVE Y06328*/ 00130000 LA RMSGNUM,442 0267 00131000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE Y06328*/ 00132000 B ERREXIT 0268 00133000 * END; /* Y06328*/ 00134000 * END; /* Y06328*/ 00135000 @RF00265 DS 0H 0271 00136000 * IF TRMHELDN='0'B THEN /* IS ENTRY HELD FOR OUTPUT */ 00137000 @RF00263 TM TRMHELDN(IEDQTPTR),B'00000100' 0271 00138000 BNZ @RF00271 0271 00139000 * DO; /* NO Y06328*/ 00140000 * RMSGNUM=442; /* ERROR - ENTRY ACTIVE Y06328*/ 00141000 LA RMSGNUM,442 0273 00142000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE Y06328*/ 00143000 B ERREXIT 0274 00144000 * END; /* Y06328*/ 00145000 * OCELEM=IEDQTPTR; /* SAVE STATION ADDR Y06328*/ 00146000 @RF00271 ST IEDQTPTR,OCELEM(,ROPCE) 0276 00147000 * OCUNIT=OCTRMTBL; /* SAVE STATION TTCIN @Y17XARX*/ 00148000 LH @11,OCTRMTBL(,ROPCE) 0277 00149000 N @11,@CF01511 0277 00150000 ST @11,OCUNIT(,ROPCE) 0277 00151000 * 0278 00152000 */********************************************************************/ 00153000 */* CHECK FOR REQUEST BEING FROM TOTE */ 00154000 */********************************************************************/ 00155000 * 0278 00156000 * IF OCTOTE='1'B THEN /* TOTE REQUEST ? */ 00157000 TM OCTOTE(ROPCE),B'01000000' 0278 00158000 BNO @RF00278 0278 00159000 * DO; /* YES */ 00160000 * IF OCOPTCDE='50'X& /* SWITCH TO PRIMARY AND */ 00161000 * TRMSWBCK='0'B| /* ALREADY PRIMARY ? -OR- */ 00162000 * OCOPTCDE='51'X& /* SWITCH TO BACKUP AND */ 00163000 * TRMSWBCK='1'B THEN /* ALREADY BACKUP ? */ 00164000 CLI OCOPTCDE(ROPCE),X'50' 0280 00165000 BNE @GL00001 0280 00166000 LR @11,IEDQTPTR 0280 00167000 AL @11,@CF01512 0280 00168000 TM TRMSWBCK-3(@11),B'00010000' 0280 00169000 BZ @RT00280 0280 00170000 @GL00001 CLI OCOPTCDE(ROPCE),X'51' 0280 00171000 BNE @RF00280 0280 00172000 LR @11,IEDQTPTR 0280 00173000 AL @11,@CF01512 0280 00174000 TM TRMSWBCK-3(@11),B'00010000' 0280 00175000 BNO @RF00280 0280 00176000 @RT00280 DS 0H 0281 00177000 * DO; /* YES */ 00178000 * TRMSTOTE='1'B; /* SET TOTE IN CONTROL SWITCH */ 00179000 LR @11,IEDQTPTR 0282 00180000 AL @11,@CF01512 0282 00181000 OI TRMSTOTE-3(@11),B'00000001' 0282 00182000 * RZERO=8; /* SET IN REQUESTED STATE */ 00183000 LA RZERO,8 0283 00184000 * GOTO TOTEOUT; /* EXIT */ 00185000 B TOTEOUT 0284 00186000 * END; 0285 00187000 * ELSE /* NOT REQUEST FOR EXISTING STATE*/ 00188000 * GOTO CHKREQ; /* PROCESS THE REQUEST Y06328*/ 00189000 * END; 0287 00190000 * ELSE 0288 00191000 * IF TRMSTOTE='1'B THEN /* TOTE CONTROLLING THE RESOURCE 00192000 * ? */ 00193000 @RF00278 LR @11,IEDQTPTR 0288 00194000 AL @11,@CF01512 0288 00195000 TM TRMSTOTE-3(@11),B'00000001' 0288 00196000 BNO @RF00288 0288 00197000 * DO; /* YES */ 00198000 * RMSGNUM=49; /* SET ERROR MSG */ 00199000 LA RMSGNUM,49 0290 00200000 * GOTO ERREXIT; /* EXIT TO ERROR MODULE */ 00201000 B ERREXIT 0291 00202000 * END; 0292 00203000 * 0293 00204000 */********************************************************************/ 00205000 */* SCAN COMMAND FOR BACKUP(B) OR PRIMARY(P) OPERAND Y06328*/ 00206000 */* 'B' - INDICATES SWITCH TO BACKUP Y06328*/ 00207000 */* 'P' - INDICATES SWITCH TO PRIMARY Y06328*/ 00208000 */* BLANK - DEFAULTS TO SWITCH TO BACKUP Y06328*/ 00209000 */* SKIPPED - DEFAULTS TO SWITCH TO BACKUP Y06328*/ 00210000 */********************************************************************/ 00211000 * 0293 00212000 * IF RLEN^=0 THEN /* ANOTHER OPERAND ? Y06328*/ 00213000 @RF00288 LTR RLEN,RLEN 0293 00214000 BZ @RF00293 0293 00215000 * DO; /* YES Y06328*/ 00216000 * CALL SCAN; /* SCAN THE OPERAND Y06328*/ 00217000 BAL @14,SCAN 0295 00218000 * IF RBYSCN>1 THEN /* NEXT OPERAND MORE THAN ONE 0296 00219000 * CHARACTER ? Y06328*/ 00220000 C RBYSCN,@CF00063 0296 00221000 BH @RT00296 0296 00222000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00223000 * IF RBYSCN=0 THEN /* WAS OPERAND SKIPPED ?Y06328 */ 00224000 SLR @11,@11 0298 00225000 CR RBYSCN,@11 0298 00226000 BNE @RF00298 0298 00227000 * DO; /* YES Y06328*/ 00228000 * IF RLEN=0 THEN /* ANY MORE OPERANDS ? Y06328*/ 00229000 CR RLEN,@11 0300 00230000 BE @RT00300 0300 00231000 * GOTO CMDINV; /* NO, COMMAND INVALID Y06328*/ 00232000 * ELSE /* YES, MORE OPERANDS Y06328*/ 00233000 * GOTO CHKNEXT; /* CHECK NEXT OPERAND Y06328*/ 00234000 B CHKNEXT 0302 00235000 * END; /* Y06328*/ 00236000 * IEDQTPTR=OCELEM; /* GET TERMINAL ADDRESS Y06328*/ 00237000 @RF00298 L IEDQTPTR,OCELEM(,ROPCE) 0304 00238000 * IF OPERAND='B' THEN /* OPERAND = B ? Y06328*/ 00239000 CLI OPERAND(RRPTR),C'B' 0305 00240000 BNE @RF00305 0305 00241000 * OCSWITCH='20'X; /* INDICATE BACKUP Y06328*/ 00242000 MVI OCSWITCH(ROPCE),X'20' 0306 00243000 * ELSE /* Y06328*/ 00244000 * IF OPERAND='P' THEN /* OPERAND = P ? Y06328*/ 00245000 B @RC00305 0307 00246000 @RF00305 CLI OPERAND(RRPTR),C'P' 0307 00247000 BNE @RF00307 0307 00248000 * DO; /* YES Y06328*/ 00249000 * IF RLEN^=0| /* ANY MORE OPERANDS OR Y06328*/ 00250000 * LASTCHAR=',' THEN /* LAST CHAR A COMMA ?Y06328 */ 00251000 LTR RLEN,RLEN 0309 00252000 BNZ @RT00309 0309 00253000 LR @11,RAPTR 0309 00254000 BCTR @11,0 0309 00255000 CLI LASTCHAR+1(@11),C',' 0309 00256000 BE @RT00309 0309 00257000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00258000 * ELSE /* NO MORE OPERANDS Y06328*/ 00259000 * OCSWITCH='21'X; /* INDICATE PRIMARY Y06328*/ 00260000 MVI OCSWITCH(ROPCE),X'21' 0311 00261000 * END; /* Y06328*/ 00262000 * ELSE /* Y06328*/ 00263000 * GOTO CMDINV; /* NO, COMMAND INVALID Y06328*/ 00264000 * END; /* Y06328*/ 00265000 * ELSE /* NO OPERANDS AFTER STATION NAME 00266000 * Y06328*/ 00267000 * OCSWITCH='20'X; /* INDICATE BACKUP Y06328*/ 00268000 B @RC00293 0315 00269000 @RF00293 MVI OCSWITCH(ROPCE),X'20' 0315 00270000 * IF RLEN=0 THEN /* ANY MORE OPERANDS ? Y06328*/ 00271000 @RC00293 LTR RLEN,RLEN 0316 00272000 BNZ @RF00316 0316 00273000 * DO; /* NO Y06328*/ 00274000 * IF LASTCHAR=',' THEN /* WAS LAST CHAR A COMMAY06328 */ 00275000 LR @11,RAPTR 0318 00276000 BCTR @11,0 0318 00277000 CLI LASTCHAR+1(@11),C',' 0318 00278000 BE @RT00318 0318 00279000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00280000 * ELSE /* NO Y06328*/ 00281000 * GOTO CHKREQ; /* SKIP REMAINDER OF OPERAND 0320 00282000 * CHECKING Y06328*/ 00283000 B CHKREQ 0320 00284000 * END; /* Y06328*/ 00285000 * 0322 00286000 */********************************************************************/ 00287000 */* SCAN REMAINDER OF OPERANDS. IF TWO OPERANDS, ASSUME THAT Y06328*/ 00288000 */* THEY ARE THE GRPNAME AND THE RLN. Y06328*/ 00289000 */********************************************************************/ 00290000 * 0322 00291000 *CHKNEXT: /* Y06328*/ 00292000 * CALL SCAN; /* SCAN THE OPERAND Y06328*/ 00293000 @RF00316 DS 0H 0322 00294000 CHKNEXT BAL @14,SCAN 0322 00295000 * IF RBYSCN=0| /* OPERAND SKIPPED OR Y06328*/ 00296000 * RBYSCN>8 THEN /* WAS ITS LENGTH GREATER THAN 0323 00297000 * EIGHT ? Y06328*/ 00298000 LTR RBYSCN,RBYSCN 0323 00299000 BZ @RT00323 0323 00300000 C RBYSCN,@CF00057 0323 00301000 BH @RT00323 0323 00302000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00303000 * RBYSCN=RBYSCN-1; /* REDUCE CHAR COUNT FOR EXECUTE 00304000 * Y06328*/ 00305000 BCTR RBYSCN,0 0325 00306000 * GEN( EX RBYSCN,MOVE ); /* OPERAND IN OPCDOUBL Y06328*/ 00307000 EX RBYSCN,MOVE 00308000 * IF RLEN=0 THEN /* WAS THAT LAST OPERANDY06328 */ 00309000 LTR RLEN,RLEN 0327 00310000 BZ @RT00327 0327 00311000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00312000 * CALL SCAN; /* SCAN OPERAND Y06328*/ 00313000 BAL @14,SCAN 0329 00314000 * IF RBYSCN=0| /* WAS OPERAND SKIPPED OR06328 */ 00315000 * RBYSCN>AVTHA3| /* OPERAND LENGTH > 3 ORY06328 */ 00316000 * LASTCHAR=','| /* LAST CHAR A COMMA OR Y06328*/ 00317000 * RLEN^=0 THEN /* ANOTHER OPERAND ? Y06328*/ 00318000 SLR @11,@11 0330 00319000 CR RBYSCN,@11 0330 00320000 BE @RT00330 0330 00321000 CH RBYSCN,AVTHA3(,IEDQAPTR) 0330 00322000 BH @RT00330 0330 00323000 LR @10,RAPTR 0330 00324000 BCTR @10,0 0330 00325000 CLI LASTCHAR+1(@10),C',' 0330 00326000 BE @RT00330 0330 00327000 CR RLEN,@11 0330 00328000 BNE @RT00330 0330 00329000 * GOTO CMDINV; /* YES TO ANY OF ABOVE - COMMAND 00330000 * INVALID Y06328*/ 00331000 */********************************************************************/ 00332000 */* CHECK LAST OPERAND FOR VALID NUMERIC. Y06328*/ 00333000 */********************************************************************/ 00334000 * 0332 00335000 * RAPTR=RRPTR; /* POINT BACK TO 1ST DIGIT OF RLN 00336000 * Y06328*/ 00337000 LR RAPTR,RRPTR 0332 00338000 * RLEN=RBYSCN-1; /* GET NUMBER OF DIGITS LESS 1 0333 00339000 * FOR EXECUTE INSTRUCTIONY06328 */ 00340000 LR RLEN,RBYSCN 0333 00341000 BCTR RLEN,0 0333 00342000 *NUMERIC: /* Y06328*/ 00343000 * IF RBYSCN^=0 THEN /* ANY DIGITS LEFT ? Y06328*/ 00344000 NUMERIC LTR RBYSCN,RBYSCN 0334 00345000 BZ @RF00334 0334 00346000 * DO; /* YES Y06328*/ 00347000 * IF SCANBYTE<'0' THEN /* DIGIT A VALID NUMERICY06328 */ 00348000 CLI SCANBYTE(RAPTR),C'0' 0336 00349000 BL @RT00336 0336 00350000 * GOTO CMDINV; /* NO, COMMAND INVALID Y06328*/ 00351000 * RBYSCN=RBYSCN-1; /* REDUCE NO. OF DIGITS TO CHECK 00352000 * Y06328*/ 00353000 BCTR RBYSCN,0 0338 00354000 * RAPTR=RAPTR+1; /* POINT TO NEXT DIGIT Y06328*/ 00355000 LA RAPTR,1(,RAPTR) 0339 00356000 * GOTO NUMERIC; /* CHECK NEXT DIGIT Y06328*/ 00357000 B NUMERIC 0340 00358000 * END; /* Y06328*/ 00359000 */********************************************************************/ 00360000 */* CONVERT RLN FROM EBCDIC TO BINARY AND TEST FOR VALID RLN Y06328*/ 00361000 */* --- 0 < RLN = < 255 --- Y06328*/ 00362000 */********************************************************************/ 00363000 * 0342 00364000 * GEN; 0342 00365000 @RF00334 DS 0H 0342 00366000 * /* Y06328*/ 00367000 EX RLEN,MOVERLN PUT RLN IN WORK AREA Y06328 00368000 EX RLEN,PACK PACK RLN IN WORK AREA Y06328 00369000 XC OPCSAVE(EQU6,ROPCAVT),OPCSAVE(ROPCAVT) Y06328 00370000 CVB RPARM,OPCSAVE(ROPCAVT) CONVERT RLN TO BINARY Y06328 00371000 * IF RPARM=0| /* RLN = 0 OR Y06328*/ 00372000 * RPARM>255 THEN /* RLN GREATER THAN MAX Y06328*/ 00373000 LTR RPARM,RPARM 0343 00374000 BZ @RT00343 0343 00375000 C RPARM,@CF01453 0343 00376000 BH @RT00343 0343 00377000 * GOTO CMDINV; /* YES, COMMAND INVALID Y06328*/ 00378000 * 0345 00379000 */********************************************************************/ 00380000 */* CALL IEDQCA AT ENTRY POINT FOR 'GRPNAME,RLN' LOOKUP. Y06328*/ 00381000 */* RETURN WILL BE THE FOLLOWING: Y06328*/ 00382000 */* RRET+0 -- SUCCESSFUL Y06328*/ 00383000 */* RRET+4 -- UNSUCCESSFUL Y06328*/ 00384000 */* IF UNSUCCESSFUL, ONE OF THE FOLLOWING RETURN CODES WILL BE Y06328*/ 00385000 */* IN RZERO: Y06328*/ 00386000 */* X'01' - LGB NOT OPEN (NOTOPEN) Y06328*/ 00387000 */* X'04' - NAME NOT FOUND (NONAME) Y06328*/ 00388000 */* X'08' - INVALID RLN (INVRLN) Y06328*/ 00389000 */* X'20' - NOT A 3705 LINE (NOT3705L) Y06328*/ 00390000 */********************************************************************/ 00391000 * 0345 00392000 * CALL DCBLOCAT; /* @Y17XARX*/ 00393000 L @15,OPCDCBLK(,ROPCAVT) 0345 00394000 BALR @14,@15 0345 00395000 * GOTO SAVELINE; /* GOOD RETURN - SAVE LINE ENTRY 00396000 * ADDRESS * Y06328*/ 00397000 B SAVELINE 0346 00398000 *DLABEL2: /* @Y17XARX*/ 00399000 * OCBACKUP=OPCDOUBL; /* MOVE LGBNAME FOR MSG Y06328*/ 00400000 DLABEL2 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0347 00401000 * IF RZERO=1| /* LGB NOT OPEN OR Y06328*/ 00402000 * RZERO=8 THEN /* RLN IS INVALID ? Y06328*/ 00403000 C RZERO,@CF00063 0348 00404000 BE @RT00348 0348 00405000 C RZERO,@CF00057 0348 00406000 BNE @RF00348 0348 00407000 @RT00348 DS 0H 0349 00408000 * RMSGNUM=17; /* YES, SET 'LINE NOT OPEN' 0349 00409000 * MESSAGE Y06328*/ 00410000 LA RMSGNUM,17 0349 00411000 * ELSE /* Y06328*/ 00412000 * RMSGNUM=173; /* SET 'NOT A 3705 RESOURCE' 0350 00413000 * MESSAGE Y06328*/ 00414000 B @RC00348 0350 00415000 @RF00348 LA RMSGNUM,173 0350 00416000 * GOTO ERREXIT; /* WRITE THE MESSAGE Y06328*/ 00417000 B ERREXIT 0351 00418000 *SAVELINE: /* Y06328*/ 00419000 * IEDQTPTR=RZERO; /* SAVE LINE ENTRY ADDR Y06328*/ 00420000 SAVELINE LR IEDQTPTR,RZERO 0352 00421000 * IF TRMPREF='0'B| /* IF NOT 3705 RESOURCE @Y17XARX*/ 00422000 * TRMTYPE^=TRMNSDLC THEN /* OR NOT PSNA LINE @Y17XARX*/ 00423000 TM TRMPREF(IEDQTPTR),B'00010000' 0353 00424000 BZ @RT00353 0353 00425000 LR @11,IEDQTPTR 0353 00426000 AL @11,@CF01044 0353 00427000 CLI TRMTYPE-11(@11),X'20' 0353 00428000 BE @RF00353 0353 00429000 @RT00353 DS 0H 0354 00430000 * DO; /* NO, INVALID ENTRY Y06328*/ 00431000 * RMSGNUM=173; /* SET 'NOT A 3705 RESOURCE' 0355 00432000 * MESSAGE Y06328*/ 00433000 LA RMSGNUM,173 0355 00434000 * GOTO ERREXIT; /* WRITE THE MESSAGE Y06328*/ 00435000 B ERREXIT 0356 00436000 * END; /* Y06328*/ 00437000 * RLINE=OCRSID; /* SAVE RSID OF THE LINE @Y17XARX*/ 00438000 @RF00353 LH RLINE,OCRSID(,ROPCE) 0358 00439000 N RLINE,@CF01511 0358 00440000 * GOTO CHKREQ1; /* CHECK TYPE OF REQUESTY06328 */ 00441000 B CHKREQ1 0359 00442000 *CHKREQ: /* Y06328*/ 00443000 * RLINE=0; /* NO SPECIFIC LINE Y06328*/ 00444000 CHKREQ SLR RLINE,RLINE 0360 00445000 *CHKREQ1: /* Y06328*/ 00446000 * IEDQTPTR=OCELEM; /* GET TERMINAL ADDR * Y06328*/ 00447000 CHKREQ1 L IEDQTPTR,OCELEM(,ROPCE) 0361 00448000 * OCTRMTBL=OCUNIT; /* RESTORE DEVICE TTCIN @Y17XARX*/ 00449000 L @11,OCUNIT(,ROPCE) 0362 00450000 STH @11,OCTRMTBL(,ROPCE) 0362 00451000 * TERMADDR=IEDQTPTR; /* SAVE TERM ENTRY ADDR IN THE 0363 00452000 * OPCE Y06328*/ 00453000 ST IEDQTPTR,TERMADDR(,ROPCE) 0363 00454000 * 0364 00455000 */********************************************************************/ 00456000 */* GET A BUFFER UNIT INTO WHICH A BTU WILL BE BUILT */ 00457000 */********************************************************************/ 00458000 * 0364 00459000 * RPARM=1; /* GET ONE BUFFER UNIT */ 00460000 LA RPARM,1 0364 00461000 * RBRANCH=OPCGETBF; /* ADDR OF BUFFER ALLOCATION */ 00462000 L RBRANCH,OPCGETBF(,ROPCAVT) 0365 00463000 * GEN( BALR RRET,RBRANCH ); /* CALL BUFFER ALLOCATION */ 00464000 BALR RRET,RBRANCH 00465000 * OCUNIT=RPARM; /* SAVE ADDR OF UNIT */ 00466000 ST RPARM,OCUNIT(,ROPCE) 0367 00467000 */********************************************************************/ 00468000 */* BUILD THE BTU */ 00469000 */****************************************************************** */ 00470000 * 0368 00471000 * PRURHTH=FID0PRUH; /* SET UP FID0 RH/TH @Y17XARX*/ 00472000 L @11,OCUNIT(,ROPCE) 0368 00473000 LR @10,@11 0368 00474000 AL @10,@CF01514 0368 00475000 MVC PRURHTH(4,@10),FID0PRUH 0368 00476000 * PRUTTCIN=OCTRMTBL; /* SET UP DESTINATION @Y17XARX*/ 00477000 LH @10,OCTRMTBL(,ROPCE) 0369 00478000 N @10,@CF01511 0369 00479000 STH @10,PRUTTCIN(,@11) 0369 00480000 * PRUDATA(3:6)=0; /* CLEAR FLAGS AND RESPONSE 0370 00481000 * @Y17XARX*/ 00482000 SLR @10,@10 0370 00483000 STCM @10,15,PRUDATA+2(@11) 0370 00484000 * PRUTIC=INVALTIC; /* SET INVALID TIC FIELD @Y17XARX*/ 00485000 MVC PRUTIC(4,@11),INVALTIC 0371 00486000 * PRUDATA(1)='08'X; /* CONTROL COMMAND @Y17XARX*/ 00487000 MVI PRUDATA(@11),X'08' 0372 00488000 * PRUDATCT=6; /* INITIALIZE LENGTH TO 006328 0373 00489000 * @Y17XARX*/ 00490000 MVC PRUDATCT(2,@11),@CH00112 0373 00491000 * IF OCTOTE='1'B& /* IF TOTE SWITCH TO PRIMARY */ 00492000 * OCOPTCDE='50'X| /* REQUEST OR OP. CTL. */ 00493000 * OCSWITCH='21'X THEN /* SWITCH TO PRIMARY, THEN */ 00494000 TM OCTOTE(ROPCE),B'01000000' 0374 00495000 BNO @GL00012 0374 00496000 CLI OCOPTCDE(ROPCE),X'50' 0374 00497000 BE @RT00374 0374 00498000 @GL00012 CLI OCSWITCH(ROPCE),X'21' 0374 00499000 BNE @RF00374 0374 00500000 @RT00374 DS 0H 0375 00501000 * PRUDATA(2)='4C'X; /* SET MODIFIER TO PRIMARY 0375 00502000 * @Y17XARX*/ 00503000 L @11,OCUNIT(,ROPCE) 0375 00504000 MVI PRUDATA+1(@11),X'4C' 0375 00505000 * ELSE /* NO - BACKUP REQUEST Y06328*/ 00506000 * DO; /* YES Y06328*/ 00507000 B @RC00374 0376 00508000 @RF00374 DS 0H 0377 00509000 * PRUDATA(2)='4A'X; /* SET BACKUP REQUEST @Y17XARX*/ 00510000 L @11,OCUNIT(,ROPCE) 0377 00511000 MVI PRUDATA+1(@11),X'4A' 0377 00512000 * IF RLINE^=0 THEN /* SPECIFIC LINE REQUESTY06328 */ 00513000 LTR RLINE,RLINE 0378 00514000 BZ @RF00378 0378 00515000 * DO; /* YES Y06328*/ 00516000 * PRUDATA(7:8)=RLINE; /* INSERT RSID OF LINE @Y17XARX*/ 00517000 STCM RLINE,3,PRUDATA+6(@11) 0380 00518000 * PRUDATCT=8; /* SET TEXT LENGTH @Y17XARX*/ 00519000 MVC PRUDATCT(2,@11),@CH00057 0381 00520000 * END; /* Y06328*/ 00521000 * END; /* Y06328*/ 00522000 @RF00378 DS 0H 0384 00523000 * 0384 00524000 */********************************************************************/ 00525000 */* SET UP TO CALL BTU DISPATCHER */ 00526000 */***************************************************************** **/ 00527000 * 0384 00528000 *RUDISP: /* @Y17XARX*/ 00529000 * OCWTG='MT'; /* INDICATE THIS MODULE TO 0384 00530000 * PROCESS RETURN BTU */ 00531000 @RC00374 DS 0H 0384 00532000 RUDISP MVC OCWTG(2,ROPCE),@CC01463 0384 00533000 * OPCLDNME(4:5)='02'; /* SET TO XCTL TO BTU DISPATCHER 00534000 * * */ 00535000 MVC OPCLDNME+3(2,ROPCAVT),@CC01465 0385 00536000 * OCACTREQ='0'B; /* SET 02 NCP CHECKS @Y17XARX*/ 00537000 NI OCACTREQ(ROPCE),B'11110111' 0386 00538000 * GOTO XCTL; /* LINK TO NEXT MODULE */ 00539000 B XCTL 0387 00540000 */********************************************************************/ 00541000 */* SCAN ROUTINE. Y06328*/ 00542000 */********************************************************************/ 00543000 * 0388 00544000 *SCAN: /* Y06328*/ 00545000 * RRPTR=RAPTR; /* SAVE POINTER TO 1ST Y06328*/ 00546000 SCAN LR RRPTR,RAPTR 0388 00547000 * RBYSCN=0; /* INITIALIZE BYTES Y06328*/ 00548000 SLR RBYSCN,RBYSCN 0389 00549000 *SCANLOOP: /* Y06328*/ 00550000 * IF RLEN^=0 THEN /* END OF SCAN ? Y06328*/ 00551000 SCANLOOP LTR RLEN,RLEN 0390 00552000 BZ @RF00390 0390 00553000 * DO; /* NO, CONTINUE TO SCAN Y06328*/ 00554000 * IF SCANBYTE=',' THEN /* SCAN BYTE A COMMA ? Y06328*/ 00555000 CLI SCANBYTE(RAPTR),C',' 0392 00556000 BNE @RF00392 0392 00557000 * DO; /* YES Y06328*/ 00558000 * RLEN=RLEN-1; /* REDUCE BYTES LEFT Y06328*/ 00559000 BCTR RLEN,0 0394 00560000 * RAPTR=RAPTR+1; /* INCREMENT PAST COMMA Y06328*/ 00561000 LA RAPTR,1(,RAPTR) 0395 00562000 * END; /* Y06328*/ 00563000 * ELSE /* NO Y06328*/ 00564000 * IF SCANBYTE>='A'|SCANBYTE='$'/* VALID CHAR ? */ 00565000 * |SCANBYTE='#'|SCANBYTE='@' THEN/* @OY15463*/ 00566000 B @RC00392 0397 00567000 @RF00392 CLI SCANBYTE(RAPTR),C'A' 0397 00568000 BNL @RT00397 0397 00569000 CLI SCANBYTE(RAPTR),C'$' 0397 00570000 BE @RT00397 0397 00571000 CLI SCANBYTE(RAPTR),C'#' 0397 00572000 BE @RT00397 0397 00573000 CLI SCANBYTE(RAPTR),C'@' 0397 00574000 BNE @RF00397 0397 00575000 @RT00397 DS 0H 0398 00576000 * DO; /* YES Y06328*/ 00577000 * RBYSCN=RBYSCN+1; /* INCREMENT BYTES Y06328*/ 00578000 LA @11,1 0399 00579000 ALR RBYSCN,@11 0399 00580000 * RAPTR=RAPTR+1; /* INCREMENT TO NEXT BYTE06328 */ 00581000 ALR RAPTR,@11 0400 00582000 * RLEN=RLEN-1; /* REDUCE BYTES LEFT Y06328*/ 00583000 BCTR RLEN,0 0401 00584000 * GOTO SCANLOOP; /* CONTINUE SCAN Y06328*/ 00585000 B SCANLOOP 0402 00586000 * END; /* Y06328*/ 00587000 * ELSE /* NO Y06328*/ 00588000 * GOTO CMDINV; /* COMMAND INVALID Y06328*/ 00589000 * END; /* Y06328*/ 00590000 * RETURN; /* RETURN TO CALLER Y06328*/ 00591000 @EL00001 DS 0H 0406 00592000 @EF00001 DS 0H 0406 00593000 @ER00001 BR @14 0406 00594000 * 0407 00595000 */********************************************************************/ 00596000 */* PROCESS THE RESPONSE BTU. THE RESPONSES FOLLOW: Y06328*/ 00597000 */* */ 00598000 */* GOOD : X'60' - NORMAL RESPONSE Y06328*/ 00599000 */* X'20' - PHASE 1 RESPONSE : NEED MANUAL DIALY06328*/ 00600000 */* */ 00601000 */* ERROR : X'99' - TERMINAL ALREADY IN REQUESTED MODE Y06328*/ 00602000 */* X'AC' - LINE ALREADY AT MAX DEVICES Y06328*/ 00603000 */* X'9F83' - LINE SPECIFIED IS UNAVAILABLE Y06328*/ 00604000 */* X'9F84' - LINE ALREADY PROCESSING SWITCH Y06328*/ 00605000 */********************************************************************/ 00606000 * 0407 00607000 *PROCBTU: /* */ 00608000 * IF PRURHSDI='1'B THEN /* SENSE DATA @Y17XARX*/ 00609000 PROCBTU L @11,OCUNIT(,ROPCE) 0407 00610000 AL @11,@CF01514 0407 00611000 TM PRURHSDI(@11),B'00000100' 0407 00612000 BNO @RF00407 0407 00613000 * DO; /* YES - ALWAYS ERROR @Y17XARX*/ 00614000 * RMSGNUM=199; /* SET MSG NUMBER @Y17XARX*/ 00615000 LA RMSGNUM,199 0409 00616000 * GO TO ERREXIT; /* TAKE ERROR EXIT @Y17XARX*/ 00617000 B ERREXIT 0410 00618000 * END; /* @Y17XARX*/ 00619000 * IEDQTPTR=TERMADDR; /* GET TERM ADDR @Y17XARX*/ 00620000 @RF00407 L IEDQTPTR,TERMADDR(,ROPCE) 0412 00621000 * IF PRUDATA(5)^='60'X THEN /* NORMAL RESPONSE? @Y17XARX*/ 00622000 L @11,OCUNIT(,ROPCE) 0413 00623000 CLI PRUDATA+4(@11),X'60' 0413 00624000 BNE @RT00413 0413 00625000 * GOTO NOTNORM; /* NO - CHECK OTHERS Y06328*/ 00626000 * IF OCTOTE='1'B& /* REQUEST */ 00627000 * OCOPTCDE='51'X| /* FOR */ 00628000 * OCSWITCH='20'X THEN /* BACKUP */ 00629000 TM OCTOTE(ROPCE),B'01000000' 0415 00630000 BNO @GL00017 0415 00631000 CLI OCOPTCDE(ROPCE),X'51' 0415 00632000 BE @RT00415 0415 00633000 @GL00017 CLI OCSWITCH(ROPCE),X'20' 0415 00634000 BNE @RF00415 0415 00635000 @RT00415 DS 0H 0416 00636000 * DO; /* YES * */ 00637000 * RPARM=PRUDATA(7:8); /* GET NA OF LINE @Y17XARX*/ 00638000 L @11,OCUNIT(,ROPCE) 0417 00639000 SLR RPARM,RPARM 0417 00640000 ICM RPARM,3,PRUDATA+6(@11) 0417 00641000 * CALL NATOTCIN; /* CONVERT TO TTCIN @Y17XARX*/ 00642000 L @11,AVTSAVTP(,IEDQAPTR) 0418 00643000 L @15,SAVTNAX(,@11) 0418 00644000 BALR @14,@15 0418 00645000 * RPARM=RBRANCH; /* USE TTCIN AS ARGUMENT @Y17XARX*/ 00646000 LR RPARM,RBRANCH 0419 00647000 * TARTTCIN=RBRANCH; /* SAVE TTCIN @Y17XARX*/ 00648000 STH RBRANCH,TARTTCIN(,ROPCE) 0420 00649000 * CALL TNTCODE; /* RESOLVE TO TTE @Y17XARX*/ 00650000 L @15,AVTRNMPT(,IEDQAPTR) 0421 00651000 BALR @14,@15 0421 00652000 * RLINE=RPARM; /* SAVE TTE PTR AS TARGET 0422 00653000 * @Y17XARX*/ 00654000 LR RLINE,RPARM 0422 00655000 * RPARM=IEDQTPTR; /* SET UP TTE PTR FOR COHORTLK 0423 00656000 * @Y17XARX*/ 00657000 LR RPARM,IEDQTPTR 0423 00658000 * CALL COHORTLK; /* GET NEXT HIGHER TTE @Y17XARX*/ 00659000 L @15,OPCHORT(,ROPCAVT) 0424 00660000 BALR @14,@15 0424 00661000 * RLINE->TRMPRILK=RZERO; /* SAVE TTCIN OF PRI LINK 0425 00662000 * @Y17XARX*/ 00663000 STH RZERO,TRMPRILK(,RLINE) 0425 00664000 * SRTTCIN=RZERO; /* SAVE PRIMARY LINK AS SRCE 0426 00665000 * @Y17XARX*/ 00666000 STH RZERO,SRTTCIN(,ROPCE) 0426 00667000 * CALL HICHNG; /* CHANGE THE HIERARCHY @Y17XARX*/ 00668000 BAL @14,HICHNG 0427 00669000 * IEDQQPTR=RLINE->TRMDESTQ; /* GET ADDR OF QCB @Y17XARX*/ 00670000 L IEDQQPTR,TRMDESTQ-1(,RLINE) 0428 00671000 LA IEDQQPTR,0(,IEDQQPTR) 0428 00672000 * OCRLN=QCBRELLN; /* GET RLN OF THE LINE */ 00673000 IC @11,QCBRELLN(,IEDQQPTR) 0429 00674000 STC @11,OCRLN(,ROPCE) 0429 00675000 * IEDNLPTR=QCBLGBAD; /* GET ADDR OF LGB * */ 00676000 L IEDNLPTR,QCBLGBAD-1(,IEDQQPTR) 0430 00677000 LA IEDNLPTR,0(,IEDNLPTR) 0430 00678000 * IEDQTPTR=TERMADDR; /* GET TERM ENTRY ADDR FROM THE 00679000 * OPCE @Y17XARX*/ 00680000 L IEDQTPTR,TERMADDR(,ROPCE) 0431 00681000 * OCMODNME=LGBNAME; /* GET LGB NAME FOR GROUP 0432 00682000 * CONTAINING THE LINE */ 00683000 MVC OCMODNME(8,ROPCE),LGBNAME(IEDNLPTR) 0432 00684000 * RMSGNUM=422; /* MSG NUMBER FOR SWITCH TO 0433 00685000 * BACKUP */ 00686000 LA RMSGNUM,422 0433 00687000 * TRMSWBCK='1'B; /* INDICATE BACKUP */ 00688000 LR @11,IEDQTPTR 0434 00689000 AL @11,@CF01512 0434 00690000 OI TRMSWBCK-3(@11),B'00010000' 0434 00691000 * END; 0435 00692000 * ELSE /* NO */ 00693000 * DO; /* */ 00694000 B @RC00415 0436 00695000 @RF00415 DS 0H 0437 00696000 * RPARM=IEDQTPTR; /* SET COHORTLK TTE PTR @Y17XARX*/ 00697000 LR RPARM,IEDQTPTR 0437 00698000 * CALL COHORTLK; /* GET NEXT HIGHER TTE @Y17XARX*/ 00699000 L @15,OPCHORT(,ROPCAVT) 0438 00700000 BALR @14,@15 0438 00701000 * SRTTCIN=RZERO; /* SAVE AS SOURCE TTCIN @Y17XARX*/ 00702000 STH RZERO,SRTTCIN(,ROPCE) 0439 00703000 * RLINE=RPARM; /* SAVE TTE PTR(SRCE) @Y17XARX*/ 00704000 LR RLINE,RPARM 0440 00705000 * RPARM=RLINE->TRMPRILK; /* GET PRI LINK TTCIN @Y17XARX*/ 00706000 LH RPARM,TRMPRILK(,RLINE) 0441 00707000 N RPARM,@CF01511 0441 00708000 * TARTTCIN=RPARM; /* SAVE AS TARGET TTCIN @Y17XARX*/ 00709000 STH RPARM,TARTTCIN(,ROPCE) 0442 00710000 * CALL TNTCODE; /* GET TTE PTR @Y17XARX*/ 00711000 L @15,AVTRNMPT(,IEDQAPTR) 0443 00712000 BALR @14,@15 0443 00713000 * RZERO=RPARM; /* SAVE TTE PTR (TAR) @Y17XARX*/ 00714000 LR RZERO,RPARM 0444 00715000 * RPARM=RLINE; /* SET SOURCE TTE PTR @Y17XARX*/ 00716000 LR RPARM,RLINE 0445 00717000 * RLINE=RZERO; /* SET TARGET TTE PTR @Y17XARX*/ 00718000 LR RLINE,RZERO 0446 00719000 * CALL HICHNG; /* CHANGE HIERARCHY @Y17XARX*/ 00720000 BAL @14,HICHNG 0447 00721000 * RMSGNUM=383; /* MSG NUMBER FOR SWITCH TO 0448 00722000 * PRIMARY */ 00723000 LA RMSGNUM,383 0448 00724000 * TRMSWBCK='0'B; /* INDICATE PRIMARY */ 00725000 LR @11,IEDQTPTR 0449 00726000 AL @11,@CF01512 0449 00727000 NI TRMSWBCK-3(@11),B'11101111' 0449 00728000 * END; 0450 00729000 * IF OCTOTE='1'B THEN /* TOTE REQUEST ? */ 00730000 @RC00415 TM OCTOTE(ROPCE),B'01000000' 0451 00731000 BNO @RF00451 0451 00732000 * DO; /* YES */ 00733000 * TRMSTOTE='1'B; /* SET 'TOTE IN CONTROL' */ 00734000 LR @11,IEDQTPTR 0453 00735000 AL @11,@CF01512 0453 00736000 OI TRMSTOTE-3(@11),B'00000001' 0453 00737000 * GOTO EXIT; /* EXIT FROM THIS MODULE */ 00738000 B EXIT 0454 00739000 * END; 0455 00740000 * OPCLDNME(4:5)='M3'; /* MESSAGE MODULE ID Y06328*/ 00741000 @RF00451 MVC OPCLDNME+3(2,ROPCAVT),@CC01481 0456 00742000 * GOTO XCTL1; /* EXIT */ 00743000 B XCTL1 0457 00744000 *NOTNORM: /* Y06328*/ 00745000 * IF PRUDATA(5)='20'X THEN /* PHASE 1 RESPONSE ? @Y17XARX*/ 00746000 NOTNORM L @11,OCUNIT(,ROPCE) 0458 00747000 CLI PRUDATA+4(@11),X'20' 0458 00748000 BE @RT00458 0458 00749000 * GOTO MANDIAL; /* YES, PROCESS NEED FOR MANUAL 00750000 * DIAL Y06328*/ 00751000 * IF PRUDATA(5)='9F'X& /* LINE SPECIFIED @Y17XARX*/ 00752000 * PRUDATA(6)='83'X THEN /* UNAVAILABLE @Y17XARX*/ 00753000 CLI PRUDATA+4(@11),X'9F' 0460 00754000 BNE @RF00460 0460 00755000 CLI PRUDATA+5(@11),X'83' 0460 00756000 BNE @RF00460 0460 00757000 * DO; /* YES, DO Y06328*/ 00758000 * IF PRUDATCT=6 THEN /* WAS RSID OF BACKUP LINE 0462 00759000 * @Y17XARX 00760000 * RETURNED Y06328*/ 00761000 CLC PRUDATCT(2,@11),@CH00112 0462 00762000 BNE @RF00462 0462 00763000 * DO; /* NO, SET UP MESSAGE Y06328*/ 00764000 * OCRLN=0; /* SET ZERO RLN Y06328*/ 00765000 MVI OCRLN(ROPCE),X'00' 0464 00766000 * OCBACKUP=UNKNOWN; /* INDICATE GROUP UNKNOWY06328 */ 00767000 MVC OCBACKUP(8,ROPCE),UNKNOWN 0465 00768000 * GOTO NOTKNOWN; /* SKIP TNT LOOKUP Y06328*/ 00769000 B NOTKNOWN 0466 00770000 * END; /* Y06328 */ 00771000 * RPARM=PRUDATA(7:8); /* GET NA OF BACKED UP LINE 0468 00772000 * @Y17XARX*/ 00773000 @RF00462 L @11,OCUNIT(,ROPCE) 0468 00774000 SLR RPARM,RPARM 0468 00775000 ICM RPARM,3,PRUDATA+6(@11) 0468 00776000 * CALL NATOTCIN; /* GET TTCIN OF LINE @Y17XARX*/ 00777000 L @11,AVTSAVTP(,IEDQAPTR) 0469 00778000 L @15,SAVTNAX(,@11) 0469 00779000 BALR @14,@15 0469 00780000 * RPARM=RBRANCH; /* SET TTCIN OF LINE @Y17XARX*/ 00781000 LR RPARM,RBRANCH 0470 00782000 * CALL TNTCODE; /* CALL TNTCODE TO GET ADDR OF 0471 00783000 * TERM ENTRY FOR LINE Y06328*/ 00784000 L @15,AVTRNMPT(,IEDQAPTR) 0471 00785000 BALR @14,@15 0471 00786000 * IEDQQPTR=RPARM->TRMDESTQ; /* GET ADDR OF QCB Y06328*/ 00787000 L IEDQQPTR,TRMDESTQ-1(,RPARM) 0472 00788000 LA IEDQQPTR,0(,IEDQQPTR) 0472 00789000 * OCRLN=QCBRELLN; /* GET RLN OF THE LINE Y06328*/ 00790000 IC @11,QCBRELLN(,IEDQQPTR) 0473 00791000 STC @11,OCRLN(,ROPCE) 0473 00792000 * IEDNLPTR=QCBLGBAD; /* GET ADDR OF LGB Y06328*/ 00793000 L IEDNLPTR,QCBLGBAD-1(,IEDQQPTR) 0474 00794000 LA IEDNLPTR,0(,IEDNLPTR) 0474 00795000 * OCBACKUP=LGBNAME; /* GET LGB NAME FOR GROUP 0475 00796000 * CONTAINING THE LINE Y06328*/ 00797000 MVC OCBACKUP(8,ROPCE),LGBNAME(IEDNLPTR) 0475 00798000 *NOTKNOWN: /* Y06328*/ 00799000 * RMSGNUM=448; /* SET ERROR MESSAGE Y06328*/ 00800000 NOTKNOWN LA RMSGNUM,448 0476 00801000 * END; /* Y06328*/ 00802000 * ELSE /* Y06328*/ 00803000 * IF PRUDATA(5)='99'X THEN /* TERM ALREADY IN MODE @Y17XARX*/ 00804000 B @RC00460 0478 00805000 @RF00460 L @11,OCUNIT(,ROPCE) 0478 00806000 CLI PRUDATA+4(@11),X'99' 0478 00807000 BNE @RF00478 0478 00808000 * DO; /* YES, DO Y06328*/ 00809000 * IF OCSWITCH='20'X THEN /* REQUEST FOR BACKUP Y06328*/ 00810000 CLI OCSWITCH(ROPCE),X'20' 0480 00811000 BNE @RF00480 0480 00812000 * DO; /* YES Y06328*/ 00813000 * OCMODNME=BACK; /* ALREADY IN BACKUP Y06328*/ 00814000 MVC OCMODNME(8,ROPCE),BACK 0482 00815000 * TRMSWBCK='1'B; /* INDICATE BACKUP Y06328*/ 00816000 LR @11,IEDQTPTR 0483 00817000 AL @11,@CF01512 0483 00818000 OI TRMSWBCK-3(@11),B'00010000' 0483 00819000 * END; /* Y06328*/ 00820000 * ELSE /* NO Y06328*/ 00821000 * DO; /* Y06328*/ 00822000 B @RC00480 0485 00823000 @RF00480 DS 0H 0486 00824000 * OCMODNME=PRIM; /* ALREADY IN PRIMARY Y06328*/ 00825000 MVC OCMODNME(8,ROPCE),PRIM 0486 00826000 * TRMSWBCK='0'B; /* INDICATE PRIMARY Y06328*/ 00827000 LR @11,IEDQTPTR 0487 00828000 AL @11,@CF01512 0487 00829000 NI TRMSWBCK-3(@11),B'11101111' 0487 00830000 * END; /* Y06328*/ 00831000 * RMSGNUM=384; /* SET ERROR MESSAGE Y06328*/ 00832000 @RC00480 LA RMSGNUM,384 0489 00833000 * END; /* Y06328*/ 00834000 * ELSE /* Y06328*/ 00835000 * IF PRUDATA(5)='AC'X THEN /* LINE ALREADY AT MAX @Y17XARX*/ 00836000 B @RC00478 0491 00837000 @RF00478 L @11,OCUNIT(,ROPCE) 0491 00838000 CLI PRUDATA+4(@11),X'AC' 0491 00839000 BNE @RF00491 0491 00840000 * RMSGNUM=445; /* YES, SET ERROR MSG Y06328*/ 00841000 LA RMSGNUM,445 0492 00842000 * ELSE /* Y06328*/ 00843000 * IF PRUDATA(5)='9F'X& /* LINE SPECIFIED @Y17XARX*/ 00844000 * PRUDATA(6)='84'X THEN /* ALREADY PROCESSING @Y17XARX*/ 00845000 B @RC00491 0493 00846000 @RF00491 L @11,OCUNIT(,ROPCE) 0493 00847000 CLI PRUDATA+4(@11),X'9F' 0493 00848000 BNE @RF00493 0493 00849000 CLI PRUDATA+5(@11),X'84' 0493 00850000 BNE @RF00493 0493 00851000 * RMSGNUM=436; /* YES, SET ERROR MSG Y06328*/ 00852000 LA RMSGNUM,436 0494 00853000 * ELSE /* Y06328*/ 00854000 * RMSGNUM=199; /* SET ERROR MESSAGE Y06328*/ 00855000 B @RC00493 0495 00856000 @RF00493 LA RMSGNUM,199 0495 00857000 * GOTO ERREXIT; /* WRITE THE MESSAGE Y06328*/ 00858000 B ERREXIT 0496 00859000 * 0497 00860000 */********************************************************************/ 00861000 */* PHASE 1 RESPONSE IMPLIES A NEED FOR MANUAL DIAL. THE MODULEY06328*/ 00862000 */* IEDPMD WILL BE CALLED WITH FOLLOWING INPUT: Y06328*/ 00863000 */* REG1 - ADDR OF PTR TO ADDR OF BUFFER Y06328*/ 00864000 */* UNIT CONTAINING THE BTU Y06328*/ 00865000 */* REG4 - ADDRESS OF TCAM'S AVT Y06328*/ 00866000 */* IEDPMD WILL INFORM THE OPERATOR OF THE NEED FOR MANUAL DIAL.06328*/ 00867000 */* ON RETURN FROM IEDPMD, THE OPCE WILL BE PUT BACK ON THE Y06328*/ 00868000 */* OPCWAITN CHAIN TO AWAIT THE RESPONSE BTU FOR DATA SET READY.06328*/ 00869000 */********************************************************************/ 00870000 * 0497 00871000 *MANDIAL: /* Y06328*/ 00872000 * IF SAVTMAND=0 THEN /* MANUAL DIAL ADDR SPECY06328 */ 00873000 MANDIAL L @11,AVTSAVTP(,IEDQAPTR) 0497 00874000 L @11,SAVTMAND(,@11) 0497 00875000 LTR @11,@11 0497 00876000 BNZ @RF00497 0497 00877000 * DO; /* NO, COMMAND INVALID Y06328*/ 00878000 * RMSGNUM=444; /* SET 'CANNOT MANUAL DIAL' 0499 00879000 * MESSAGE Y06328*/ 00880000 LA RMSGNUM,444 0499 00881000 * GOTO ERREXIT; /* WRITE THE MESSAGE Y06328*/ 00882000 B ERREXIT 0500 00883000 * END; /* Y06328 */ 00884000 * PRIORITY=0; /* CLEAR PRU PRIORITY @Y17XARX*/ 00885000 @RF00497 L @11,OCUNIT(,ROPCE) 0502 00886000 SLR @10,@10 0502 00887000 ST @10,PRIORITY+4(,@11) 0502 00888000 * RPARM=OCUNIT; /* SET RPARM AS PTR @Y17XARX*/ 00889000 LR RPARM,@11 0503 00890000 * RSAVE=ADDR(AVTSAVE2); /* SET SAVE PTR @Y17XARX*/ 00891000 LA RSAVE,AVTSAVE2(,IEDQAPTR) 0504 00892000 * CALL DIALMAN; /* PRINT OUT DIAL DIGITS @Y17XARX*/ 00893000 L @11,AVTSAVTP(,IEDQAPTR) 0505 00894000 L @15,SAVTMAND(,@11) 0505 00895000 BALR @14,@15 0505 00896000 * RPARM=OCUNIT; /* FREE RU @Y17XARX*/ 00897000 L RPARM,OCUNIT(,ROPCE) 0506 00898000 * CALL FREEBUFF; /* @Y17XARX*/ 00899000 L @15,OPCFREBF(,ROPCAVT) 0507 00900000 BALR @14,@15 0507 00901000 * OCUNIT=INVALTIC; /* CLEAR OCUNIT @Y17XARX*/ 00902000 L @11,INVALTIC 0508 00903000 ST @11,OCUNIT(,ROPCE) 0508 00904000 * GO TO RUDISP; /* EXIT TO RU DISPATCHER @Y17XARX*/ 00905000 B RUDISP 0509 00906000 * 0510 00907000 */************************************************************* ******/ 00908000 */* ERROR EXITS * */ 00909000 */************************************************************* ******/ 00910000 * 0510 00911000 *CMDINV: 0510 00912000 * RMSGNUM=18; /* SET COMMAND INVALID */ 00913000 CMDINV LA RMSGNUM,18 0510 00914000 */********************************************************************/ 00915000 */* EXIT CODE */ 00916000 */********************************************************************/ 00917000 * 0511 00918000 *ERREXIT: 0511 00919000 * OPCLDNME(4:5)='03'; /* SET ERROR MODULE NAME */ 00920000 ERREXIT MVC OPCLDNME+3(2,ROPCAVT),@CC01499 0511 00921000 * IF OCTOTE='1'B THEN /* TOTE REQUEST ? */ 00922000 TM OCTOTE(ROPCE),B'01000000' 0512 00923000 BNO @RF00512 0512 00924000 * DO; /* YES */ 00925000 * RZERO=4; /* INVALID REQUEST RETURN CODE */ 00926000 LA RZERO,4 0514 00927000 * GOTO TOTEOUT; /* EXIT */ 00928000 B TOTEOUT 0515 00929000 * END; 0516 00930000 *EXIT: 0517 00931000 * IF OCTOTE='1'B THEN /* TOTE REQUEST ? */ 00932000 @RF00512 DS 0H 0517 00933000 EXIT TM OCTOTE(ROPCE),B'01000000' 0517 00934000 BNO @RF00517 0517 00935000 * RZERO=0; /* YES, GOOD TOTE RETURN */ 00936000 SLR RZERO,RZERO 0518 00937000 *TOTEOUT: 0519 00938000 * IF OCTOTE='1'B THEN /* TOTE REQUEST ? */ 00939000 @RF00517 DS 0H 0519 00940000 TOTEOUT TM OCTOTE(ROPCE),B'01000000' 0519 00941000 BNO @RF00519 0519 00942000 * OPCLDNME(4:5)='07'; /* NAME OF TOTE RETURN */ 00943000 MVC OPCLDNME+3(2,ROPCAVT),@CC01503 0520 00944000 *XCTL1: 0521 00945000 *XCTL: 0521 00946000 * RPARM=ROPCAVT; /* SET POINTER TO OP CTL AVT */ 00947000 @RF00519 DS 0H 0521 00948000 XCTL1 DS 0H 0521 00949000 XCTL LR RPARM,ROPCAVT 0521 00950000 * GEN REFS(OPCXCTL)(XCTL SF=(E,OPCXCTL(ROPCAVT)));/* CALL * NEXT 0522 00951000 * MODULE @Y17XARX*/ 00952000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00953000 *HICHNG: 0523 00954000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XARX*/ 00955000 B @PB00002 0523 00956000 HICHNG DS 0H 0524 00957000 */* INPUT TO MOVE RESOURCE FROM SOURCE TO TARGET @Y17XARX */ 00958000 */* OCTRMTBL - TTCIN OF RESOURCE @Y17XARX */ 00959000 */* SRTTCIN - TTCIN OF SOURCE @Y17XARX */ 00960000 */* TARTTCIN - TTCIN OF TARGET @Y17XARX */ 00961000 */* IEDQTPTR - TTE PTR OF RESOURCE @Y17XARX */ 00962000 */* RPARM - TTE PTR OF SOURCE @Y17XARX */ 00963000 */* RLINE - TTE PTR OF TARGET @Y17XARX */ 00964000 * 0524 00965000 * RESPECIFY 0524 00966000 * (RZERO, 0524 00967000 * RPARM, 0524 00968000 * ROPCE, 0524 00969000 * IEDQAPTR, 0524 00970000 * IEDQTPTR, 0524 00971000 * RLINE, 0524 00972000 * RWORKA) RSTD; /* @Y17XARX*/ 00973000 * RWORKA=RRET; /* SAVE RTRN REG @Y17XARX*/ 00974000 LR RWORKA,RRET 0525 00975000 * RPARM=RPARM-LENGTH(IEDNTRM); /* BACKUP TTE PTR @Y17XARX*/ 00976000 LA @02,14 0526 00977000 SLR RPARM,@02 0526 00978000 * RLINE=RLINE-LENGTH(IEDNTRM); /* BACKUP TTE PTR @Y17XARX*/ 00979000 SLR RLINE,@02 0527 00980000 * IF RPARM->TRMSUBST=OCTRMTBL THEN/* WHERE IS RES @Y17XARX*/ 00981000 CLC TRMSUBST(2,RPARM),OCTRMTBL(ROPCE) 0528 00982000 BNE @RF00528 0528 00983000 * DO; /* FIRST UNDER LINE @Y17XARX*/ 00984000 * RPARM->TRMSUBST=TRMCOHRT; /* SET SOURCE PAST RES @Y17XARX*/ 00985000 LCR @02,@02 0530 00986000 ALR @02,IEDQTPTR 0530 00987000 LH @15,TRMCOHRT(,@02) 0530 00988000 N @15,@CF01511 0530 00989000 STH @15,TRMSUBST(,RPARM) 0530 00990000 * IF TRMCOHRT=SRTTCIN THEN /* IF NONE BELOW @Y17XARX*/ 00991000 CLC TRMCOHRT(2,@02),SRTTCIN(ROPCE) 0531 00992000 BNE @RF00531 0531 00993000 * RPARM->TRMSUBST=0; /* ZERO SUBSTRUCT @Y17XARX*/ 00994000 SLR @02,@02 0532 00995000 STH @02,TRMSUBST(,RPARM) 0532 00996000 * END; /* @Y17XARX*/ 00997000 * ELSE /* @Y17XARX*/ 00998000 * DO; /* FIRST UNDER LINE @Y17XARX*/ 00999000 B @RC00528 0534 01000000 @RF00528 DS 0H 0535 01001000 * RZERO=RPARM->TRMSUBST; /* GET FIRST TTCIN @Y17XARX*/ 01002000 LH RZERO,TRMSUBST(,RPARM) 0535 01003000 N RZERO,@CF01511 0535 01004000 * DO UNTIL RZERO=OCTRMTBL; /* LOOP UNTIL TTE BEFORE RES IS 01005000 * FOUND @Y17XARX*/ 01006000 @DL00536 DS 0H 0537 01007000 * RPARM=RZERO; /* RESOLVE TTCIN TO TTE @Y17XARX*/ 01008000 LR RPARM,RZERO 0537 01009000 * CALL TNTCODE; /* @Y17XARX*/ 01010000 L @15,AVTRNMPT(,IEDQAPTR) 0538 01011000 BALR @14,@15 0538 01012000 * RZERO=RPARM->TRMCOHRT; /* GET TTCIN OF NEXT @Y17XARX*/ 01013000 LH RZERO,TRMCOHRT(,RPARM) 0539 01014000 N RZERO,@CF01511 0539 01015000 * END; /* @Y17XARX*/ 01016000 @DE00536 LH @02,OCTRMTBL(,ROPCE) 0540 01017000 N @02,@CF01511 0540 01018000 CR RZERO,@02 0540 01019000 BNE @DL00536 0540 01020000 * RPARM->TRMCOHRT=TRMCOHRT; /* POINT TTE AROUND @Y17XARX*/ 01021000 LR @02,IEDQTPTR 0541 01022000 AL @02,@CF01518 0541 01023000 LH @02,TRMCOHRT-4(,@02) 0541 01024000 N @02,@CF01511 0541 01025000 STH @02,TRMCOHRT(,RPARM) 0541 01026000 * END; /* @Y17XARX*/ 01027000 * IF RLINE->TRMSUBST=0 THEN /* IF TARGET IS EMPTIED @Y17XARX*/ 01028000 @RC00528 LH @02,TRMSUBST(,RLINE) 0543 01029000 N @02,@CF01511 0543 01030000 LTR @02,@02 0543 01031000 BNZ @RF00543 0543 01032000 * TRMCOHRT=TARTTCIN; /* SET PTR UP @Y17XARX*/ 01033000 LH @02,TARTTCIN(,ROPCE) 0544 01034000 N @02,@CF01511 0544 01035000 LR @15,IEDQTPTR 0544 01036000 AL @15,@CF01518 0544 01037000 STH @02,TRMCOHRT-4(,@15) 0544 01038000 * ELSE /* @Y17XARX*/ 01039000 * TRMCOHRT=RLINE->TRMSUBST; /* SET PTR TO OLD FIRST @Y17XARX*/ 01040000 B @RC00543 0545 01041000 @RF00543 LH @02,TRMSUBST(,RLINE) 0545 01042000 N @02,@CF01511 0545 01043000 LR @15,IEDQTPTR 0545 01044000 AL @15,@CF01518 0545 01045000 STH @02,TRMCOHRT-4(,@15) 0545 01046000 * RLINE->TRMSUBST=OCTRMTBL; /* SET NEW SUBST @Y17XARX*/ 01047000 @RC00543 LH @02,OCTRMTBL(,ROPCE) 0546 01048000 N @02,@CF01511 0546 01049000 STH @02,TRMSUBST(,RLINE) 0546 01050000 * RPARM=RPARM+LENGTH(IEDNTRM); /* ADVANCE TTE PTR @Y17XARX*/ 01051000 LA @02,14 0547 01052000 ALR RPARM,@02 0547 01053000 * RLINE=RLINE+LENGTH(IEDNTRM); /* ADVANCE TTE PTR @Y17XARX*/ 01054000 ALR RLINE,@02 0548 01055000 * RRET=RWORKA; /* RESTORE RTRN REG @Y17XARX*/ 01056000 LR RRET,RWORKA 0549 01057000 * RESPECIFY 0550 01058000 * RZERO UNRSTD; /* @Y17XARX*/ 01059000 * RESPECIFY 0551 01060000 * RPARM UNRSTD; /* @Y17XARX*/ 01061000 * END; /* RETURN @Y17XARX*/ 01062000 @EL00002 DS 0H 0552 01063000 @EF00002 DS 0H 0552 01064000 @ER00002 BR @14 0552 01065000 @PB00002 DS 0H 0553 01066000 * GEN; 0553 01067000 MOVE MVC OPCDOUBL(EQU0,ROPCAVT),EQU0(RRPTR) MOVE GRPNAME Y06328 01068000 MOVERLN MVC OPCSAVE(EQU0,ROPCAVT),EQU0(RRPTR) MOVE RLN Y06328 01069000 PACK PACK OPCSAVE+EQU6(EQU2,ROPCAVT),OPCSAVE(EQU0,ROPCAVT) Y06328 01070000 * PACK BINARY RLN Y06328 01071000 EQU0 EQU 0 EQUATE 0 Y06328 01072000 EQU2 EQU 2 EQUATE 2 Y06328 01073000 EQU6 EQU 6 EQUATE 6 Y06328 01074000 * END IGCMT10D 0554 01075000 * 0554 01076000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01077000 */*%INCLUDE SYSLIB (TAVTD ) */ 01078000 */*%INCLUDE SYSLIB (TLGBD ) */ 01079000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01080000 */*%INCLUDE SYSLIB (TOPCED ) */ 01081000 */*%INCLUDE SYSLIB (TPRUD ) */ 01082000 */*%INCLUDE SYSLIB (TQCBD ) */ 01083000 */*%INCLUDE SYSLIB (TTRMD ) */ 01084000 */*%INCLUDE SYSLIB (TTNTD ) */ 01085000 * 0554 01086000 * ; 0554 01087000 B @EL00001 0554 01088000 @DATA DS 0H 01089000 @CH00112 DC H'6' 01090000 DS 0F 01091000 DS 0F 01092000 @CF00063 DC F'1' 01093000 @CF00057 DC F'8' 01094000 @CH00057 EQU @CF00057+2 01095000 @CF01509 DC F'14' 01096000 @CF01453 DC F'255' 01097000 @CF01512 DC F'-11' 01098000 @CF01518 DC F'-10' 01099000 @CF01514 DC F'-8' 01100000 @CF01044 DC F'-3' 01101000 @CF01511 DC XL4'0000FFFF' 01102000 DS 0D 01103000 FID0PRUH DC XL4'0B80000C' 01104000 INVALTIC DC XL4'08000002' 01105000 DS CL1 01106000 IEDPRUQP DS AL3 01107000 @CC01463 DC C'MT' 01108000 @CC01465 DC C'02' 01109000 @CC01481 DC C'M3' 01110000 @CC01499 DC C'03' 01111000 @CC01503 DC C'07' 01112000 BACK DC CL8'BACKUP' 01113000 PRIM DC CL8'PRIMARY' 01114000 UNKNOWN DC CL8'UNKNOWN' 01115000 ZAPAREA DC 50X'00' 01116000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01117000 @01 EQU 01 01118000 @02 EQU 02 01119000 @03 EQU 03 01120000 @04 EQU 04 01121000 @05 EQU 05 01122000 @06 EQU 06 01123000 @07 EQU 07 01124000 @08 EQU 08 01125000 @09 EQU 09 01126000 @10 EQU 10 01127000 @11 EQU 11 01128000 @12 EQU 12 01129000 @13 EQU 13 01130000 @14 EQU 14 01131000 @15 EQU 15 01132000 @0 EQU 00 01133000 @1 EQU 01 01134000 @2 EQU 02 01135000 @3 EQU 03 01136000 @4 EQU 04 01137000 @5 EQU 05 01138000 @6 EQU 06 01139000 @7 EQU 07 01140000 @8 EQU 08 01141000 @9 EQU 09 01142000 @A EQU 10 01143000 @B EQU 11 01144000 @C EQU 12 01145000 @D EQU 13 01146000 @E EQU 14 01147000 @F EQU 15 01148000 RZERO EQU @00 01149000 RMSGNUM EQU @00 01150000 RPARM EQU @01 01151000 ROPCAVT EQU @02 01152000 ROPCE EQU @03 01153000 IEDQAPTR EQU @04 01154000 RWORKA EQU @05 01155000 RLEN EQU @06 01156000 RAPTR EQU @07 01157000 IEDNLPTR EQU @07 01158000 RRPTR EQU @08 01159000 RLINE EQU @08 01160000 RBYSCN EQU @09 01161000 IEDQTPTR EQU @09 01162000 IEDQQPTR EQU @09 01163000 RSAVE EQU @13 01164000 RRET EQU @14 01165000 RBRANCH EQU @15 01166000 SCANBYTE EQU 0 01167000 OPERAND EQU 0 01168000 LASTCHAR EQU -1 01169000 PRIORITY EQU 0 01170000 IEDPRUQD EQU 0 01171000 PRUTTCIN EQU IEDPRUQD 01172000 PRUDATCT EQU IEDPRUQD+2 01173000 PRUTIC EQU IEDPRUQD+8 01174000 PRUDATA EQU IEDPRUQD+12 01175000 IEDQAVTD EQU 0 01176000 AVTSAVE2 EQU IEDQAVTD+72 01177000 AVTSAVEX EQU IEDQAVTD+288 01178000 @NM00004 EQU IEDQAVTD+388 01179000 AVTCKFLG EQU @NM00004 01180000 AVTBASE EQU IEDQAVTD+412 01181000 AVTPKF EQU AVTBASE 01182000 AVTRNMPT EQU IEDQAVTD+424 01183000 AVTOSECB EQU IEDQAVTD+492 01184000 AVTECB1 EQU AVTOSECB 01185000 AVTHG02 EQU IEDQAVTD+528 01186000 AVTDISP EQU IEDQAVTD+552 01187000 AVTHD EQU IEDQAVTD+556 01188000 AVTSCOPT EQU AVTHD 01189000 AVTSAVTP EQU IEDQAVTD+612 01190000 AVTSAVTF EQU AVTSAVTP 01191000 AVTCKPEL EQU IEDQAVTD+652 01192000 AVTCKRMV EQU AVTCKPEL 01193000 AVTCKELF EQU IEDQAVTD+680 01194000 AVTCKBYT EQU IEDQAVTD+691 01195000 AVTHG01 EQU IEDQAVTD+692 01196000 AVTCKLNK EQU IEDQAVTD+696 01197000 AVTCRELE EQU IEDQAVTD+708 01198000 AVTCCELE EQU AVTCRELE 01199000 AVTCLRHI EQU IEDQAVTD+716 01200000 AVTADBUF EQU IEDQAVTD+720 01201000 AVTSYSER EQU IEDQAVTD+728 01202000 AVTCKPQB EQU IEDQAVTD+804 01203000 AVTCKPTB EQU AVTCKPQB 01204000 AVTCKPEC EQU AVTCKPQB+4 01205000 AVTCKPCC EQU AVTCKPEC 01206000 AVTOPCQB EQU IEDQAVTD+816 01207000 AVTOPCOB EQU AVTOPCQB 01208000 AVTOPCEC EQU AVTOPCQB+4 01209000 AVTOPCCC EQU AVTOPCEC 01210000 AVTOLTQB EQU IEDQAVTD+828 01211000 AVTCWFL1 EQU IEDQAVTD+924 01212000 AVTCWFL2 EQU IEDQAVTD+925 01213000 AVTSUBT EQU IEDQAVTD+948 01214000 AVTIOTR EQU IEDQAVTD+949 01215000 AVTHA3 EQU IEDQAVTD+1024 01216000 AVTBIT1 EQU IEDQAVTD+1050 01217000 AVTBIT2 EQU IEDQAVTD+1051 01218000 AVTBIT3 EQU IEDQAVTD+1052 01219000 AVTOPCIN EQU IEDQAVTD+1074 01220000 AVTBIT4 EQU IEDQAVTD+1136 01221000 @NM00086 EQU IEDQAVTD+1232 01222000 IEDNSVTD EQU 0 01223000 SAVTDIAG EQU IEDNSVTD 01224000 SAVTDIAF EQU SAVTDIAG 01225000 SAVTLUSQ EQU IEDNSVTD+88 01226000 SAVTMAND EQU IEDNSVTD+228 01227000 SAVTTCPU EQU IEDNSVTD+238 01228000 SAVTNAX EQU IEDNSVTD+248 01229000 SAVTZELM EQU IEDNSVTD+270 01230000 SAVTRDRV EQU IEDNSVTD+284 01231000 SAVTCKQB EQU IEDNSVTD+300 01232000 SAVTCKTB EQU SAVTCKQB 01233000 SAVTCKEC EQU SAVTCKQB+4 01234000 SAVTCKCC EQU SAVTCKEC 01235000 IEDNLGB EQU 0 01236000 LGBBUFOU EQU IEDNLGB+20 01237000 LGBPCI EQU IEDNLGB+25 01238000 LGBBYTE EQU IEDNLGB+29 01239000 LGBNAME EQU IEDNLGB+40 01240000 LGBOFLGS EQU IEDNLGB+48 01241000 LGBRESER EQU IEDNLGB+56 01242000 IEDQOPCD EQU 0 01243000 OPCDOUBL EQU IEDQOPCD 01244000 OPCAVTPT EQU IEDQOPCD+8 01245000 OPCCOPCE EQU IEDQOPCD+12 01246000 OPCDCBLK EQU IEDQOPCD+16 01247000 OPCTOFLK EQU IEDQOPCD+24 01248000 OPCSAVE EQU IEDQOPCD+56 01249000 OPCWORK EQU IEDQOPCD+140 01250000 OPCAQCTL EQU IEDQOPCD+180 01251000 OPCXCTL EQU IEDQOPCD+204 01252000 OPCLDNME EQU IEDQOPCD+212 01253000 OPCHORT EQU IEDQOPCD+256 01254000 OPCGETBF EQU IEDQOPCD+276 01255000 OPCFREBF EQU IEDQOPCD+280 01256000 OPCSPEC EQU IEDQOPCD+300 01257000 OPCPWCOB EQU IEDQOPCD+368 01258000 OPCPWQCB EQU OPCPWCOB 01259000 OPCPWECB EQU OPCPWCOB+4 01260000 IEDQOPCE EQU 0 01261000 OCELEM EQU IEDQOPCE+4 01262000 OCUNIT EQU IEDQOPCE+8 01263000 OCRUDEST EQU OCUNIT 01264000 OCCKPKEY EQU OCRUDEST 01265000 OCSCAN EQU OCCKPKEY 01266000 OCOPTCDE EQU IEDQOPCE+12 01267000 OCSWITCH EQU IEDQOPCE+13 01268000 OCFLAG EQU IEDQOPCE+14 01269000 OCCONSOL EQU OCFLAG 01270000 OCTOTE EQU OCFLAG 01271000 OCRESP EQU OCFLAG 01272000 OCRLN EQU IEDQOPCE+15 01273000 @NM00140 EQU IEDQOPCE+16 01274000 OCDEST EQU @NM00140 01275000 OCREQVAL EQU OCDEST+1 01276000 OCTRMTBL EQU IEDQOPCE+20 01277000 OCLINENO EQU IEDQOPCE+22 01278000 OCTIOT EQU OCLINENO 01279000 OCTRUNIT EQU IEDQOPCE+24 01280000 OCRSID EQU OCTRUNIT 01281000 OCALSTAT EQU OCRSID 01282000 OCACTREQ EQU OCALSTAT 01283000 OCPARM EQU IEDQOPCE+28 01284000 OCWTG EQU IEDQOPCE+30 01285000 OCBACKUP EQU IEDQOPCE+32 01286000 OCMODNME EQU IEDQOPCE+40 01287000 OCIPLWA EQU OCMODNME 01288000 OCCKDATA EQU IEDQOPCE+48 01289000 OCRSTGTM EQU OCCKDATA 01290000 IEDQOPCN EQU 0 01291000 OCLDNME EQU IEDQOPCN 01292000 OCLINTTE EQU OCLDNME 01293000 OCREQFLG EQU OCLINTTE+2 01294000 OCPREFLG EQU OCLINTTE+3 01295000 IEDPRUND EQU 0 01296000 PRURHTH EQU IEDPRUND 01297000 PRURH EQU PRURHTH 01298000 PRURHFG0 EQU PRURH 01299000 PRURHSDI EQU PRURHFG0 01300000 PRURHFG1 EQU PRURH+1 01301000 PRURHFG2 EQU PRURH+2 01302000 PRUTH EQU PRURHTH+3 01303000 PRUFIDN EQU PRUTH 01304000 IEDQQCB EQU 0 01305000 QCBDSFLG EQU IEDQQCB 01306000 QCBDISK EQU QCBDSFLG 01307000 QCBEOLDT EQU IEDQQCB+16 01308000 QCBBYTE1 EQU QCBEOLDT+1 01309000 QCBLKRLN EQU IEDQQCB+18 01310000 QCBRETCT EQU QCBLKRLN 01311000 QCBSTAT EQU IEDQQCB+19 01312000 QCBINSRC EQU IEDQQCB+21 01313000 @NM00161 EQU QCBINSRC 01314000 QCBTSOF2 EQU @NM00161+1 01315000 QCBTSOF1 EQU @NM00161+2 01316000 QCBINTVL EQU IEDQQCB+24 01317000 QCBPREN EQU IEDQQCB+28 01318000 QCBLKRRN EQU QCBPREN+1 01319000 QCBRELLN EQU IEDQQCB+32 01320000 QCBDCBAD EQU IEDQQCB+33 01321000 QCBLGBAD EQU QCBDCBAD 01322000 QCBFLAG EQU IEDQQCB+36 01323000 IEDQPQCB EQU 40 01324000 QCBFHDLZ EQU IEDQPQCB+3 01325000 QCBPFEFO EQU QCBFHDLZ+1 01326000 QCBFHDTZ EQU IEDQPQCB+6 01327000 QCBINTLF EQU IEDQPQCB+12 01328000 IEDNQCB EQU 0 01329000 QCBSTAT1 EQU IEDNQCB+4 01330000 QCBPLCBA EQU IEDNQCB+5 01331000 IEDQTRM EQU 0 01332000 TRMSTATE EQU IEDQTRM 01333000 TRMLOG EQU TRMSTATE 01334000 TRMPREF EQU TRMSTATE 01335000 TRMHELDN EQU TRMSTATE 01336000 TRMDESTQ EQU IEDQTRM+1 01337000 TRMINSEQ EQU IEDQTRM+4 01338000 TLISTCNT EQU TRMINSEQ 01339000 TRMOUTSQ EQU IEDQTRM+6 01340000 TLISTEN EQU TRMOUTSQ 01341000 TRMDSORG EQU TLISTEN 01342000 TRMALTD EQU IEDQTRM+8 01343000 TRMPRILK EQU TRMALTD 01344000 TRMDEVFL EQU IEDQTRM+10 01345000 TRMSTAT EQU IEDQTRM+12 01346000 IEDNTRM EQU 0 01347000 TRMBYTE4 EQU IEDNTRM 01348000 TRMBYTE3 EQU IEDNTRM+1 01349000 TRMBYTE2 EQU IEDNTRM+2 01350000 TRMRSACT EQU TRMBYTE2 01351000 TRMINPG EQU TRMBYTE2 01352000 TRMBYTE1 EQU IEDNTRM+3 01353000 TRMSCPRQ EQU TRMBYTE1 01354000 TRMSWBCK EQU TRMBYTE1 01355000 TRMSTOTE EQU TRMBYTE1 01356000 TRMCOHRT EQU IEDNTRM+4 01357000 TRMBYTE0 EQU IEDNTRM+6 01358000 TRMINPUT EQU TRMBYTE0 01359000 TRMSIBPT EQU IEDNTRM+7 01360000 TRMTYPE EQU IEDNTRM+11 01361000 TRMSUBST EQU IEDNTRM+12 01362000 IEDQNPTR EQU 0 01363000 IEDQTNTD EQU 0 01364000 IEDQTCDE EQU IEDQTNTD 01365000 IEDQTDCE EQU IEDQTNTD+46 01366000 IEDTNTA EQU 0 01367000 NATOTCIN EQU 0 01368000 COHORTLK EQU 0 01369000 FREEBUFF EQU 0 01370000 DIALMAN EQU 0 01371000 DCBLOCAT EQU 0 01372000 TRMOFLOC EQU 0 01373000 TRMXXXXX EQU TRMSTATE 01374000 TRMKIND EQU TRMXXXXX 01375000 @NM00001 EQU OCELEM 01376000 SRTTCIN EQU @NM00001 01377000 TARTTCIN EQU @NM00001+2 01378000 OPCAQWD EQU OPCAQCTL 01379000 OPCAQWD1 EQU OPCAQWD 01380000 OPCAQWD2 EQU OPCAQWD+4 01381000 OPCAQWD3 EQU OPCAQWD+8 01382000 OCCKPKY1 EQU OCCKPKEY 01383000 OCCKPTYP EQU OCCKPKY1 01384000 OCICACTN EQU OCMODNME 01385000 OCICDADR EQU OCICACTN 01386000 OCICSW EQU OCICDADR+3 01387000 TRMPRE1 EQU TRMBYTE4 01388000 TRMNCP1 EQU TRMBYTE4 01389000 TRMPRE EQU TRMBYTE3 01390000 TRMNCP EQU TRMBYTE3 01391000 TRMPU EQU TRMBYTE3 01392000 TRMLU EQU TRMBYTE3 01393000 TRMLINK EQU TRMBYTE3 01394000 TNTCODE EQU IEDQTCDE 01395000 TERMADDR EQU OCMODNME 01396000 OCCIB EQU OCREQVAL 01397000 QCBLDCB EQU IEDQQCB+120 01398000 TNTDCODE EQU IEDQTDCE 01399000 TNTFIRST EQU IEDQTNTD+82 01400000 TRMOPT EQU IEDQTRM+20 01401000 * START UNREFERENCED COMPONENTS 01402000 @NM00171 EQU TRMLINK 01403000 TRMLSTAT EQU TRMLINK 01404000 TRMLINT EQU TRMLINK 01405000 TRMEPMOD EQU TRMLINK 01406000 TRMLULOG EQU TRMLU 01407000 TRMINERR EQU TRMLU 01408000 TRMLUREQ EQU TRMLU 01409000 TRMSESRQ EQU TRMLU 01410000 TRMTDIFF EQU TRMLU 01411000 TRMLUTM EQU TRMLU 01412000 TRMLUIT EQU TRMLU 01413000 TRMAUTO EQU TRMLU 01414000 TRMPCONT EQU TRMPU 01415000 @NM00170 EQU TRMPU 01416000 TRMNCONT EQU TRMNCP 01417000 TRMQUCKN EQU TRMNCP 01418000 TRMSLOWN EQU TRMNCP 01419000 TRMSYGEN EQU TRMNCP 01420000 TRMNCPCL EQU TRMNCP 01421000 TRMIPLDM EQU TRMNCP 01422000 TRMINOUT EQU TRMPRE 01423000 TRMRDOUT EQU TRMPRE 01424000 TRMNLOUT EQU TRMPRE 01425000 TRMWROUT EQU TRMPRE 01426000 TRMASNXI EQU TRMPRE 01427000 TRMSTMM EQU TRMPRE 01428000 TRMCMODE EQU TRMPRE 01429000 TRMSTPND EQU TRMPRE 01430000 @NM00169 EQU TRMNCP1 01431000 TRMINOP EQU TRMNCP1 01432000 TRMLYNCH EQU TRMPRE1 01433000 TRMSPOUT EQU TRMPRE1 01434000 TRMERLCK EQU TRMPRE1 01435000 TRMQNPL EQU TRMPRE1 01436000 TRMSPACT EQU TRMPRE1 01437000 TRMOCNI EQU TRMPRE1 01438000 TRMSESSN EQU TRMPRE1 01439000 TRMCONT EQU TRMPRE1 01440000 OCICINAC EQU OCICSW 01441000 @NM00146 EQU OCICSW 01442000 OCICATST EQU OCICDADR+1 01443000 OCICTYPE EQU OCICDADR 01444000 @NM00145 EQU OCCKPKY1 01445000 OCCKPENV EQU OCCKPKY1 01446000 OCCKPRST EQU OCCKPTYP 01447000 OCCKPNCP EQU OCCKPTYP 01448000 OCCKPINC EQU OCCKPTYP 01449000 OPCAQLST EQU OPCAQWD3+1 01450000 OPCAQRQ3 EQU OPCAQWD3 01451000 OPCAQSEC EQU OPCAQWD2+1 01452000 OPCAQRQ2 EQU OPCAQWD2 01453000 OPCAQFST EQU OPCAQWD1+1 01454000 OPCAQREQ EQU OPCAQWD1 01455000 TNTTRMAD EQU IEDTNTA 01456000 TNTLEN EQU IEDQTNTD+44 01457000 TNTMIDEN EQU IEDQTNTD+41 01458000 TNTENLEN EQU IEDQTNTD+40 01459000 TNTSRCHX EQU IEDQTNTD+38 01460000 TRMRLMCT EQU IEDNTRM+10 01461000 TRMCOHTG EQU TRMSIBPT+1 01462000 TRMGPCNT EQU TRMSIBPT 01463000 TRMBUFRD EQU TRMBYTE0 01464000 TRMSNA EQU TRMBYTE0 01465000 TRMGP EQU TRMBYTE0 01466000 TRMDIAL EQU TRMBYTE0 01467000 @NM00168 EQU TRMBYTE0 01468000 TRMOUTPT EQU TRMBYTE0 01469000 TRMUDEF EQU TRMBYTE0 01470000 TRMCKPRN EQU TRMBYTE1 01471000 TRMTSATN EQU TRMBYTE1 01472000 TRMTRACE EQU TRMBYTE1 01473000 TRMAUTOC EQU TRMBYTE1 01474000 TRMINPTP EQU TRMBYTE1 01475000 TRMWTNEG EQU TRMSCPRQ 01476000 TRMWRBRK EQU TRMBYTE2 01477000 TRMNOSND EQU TRMBYTE2 01478000 TRMPREP EQU TRMBYTE2 01479000 TRMGPACT EQU TRMBYTE2 01480000 TRMANDL EQU TRMBYTE2 01481000 TRMCLOSN EQU TRMINPG 01482000 TRMREMB EQU TRMBYTE2 01483000 TRMOPTBL EQU IEDQTRM+18 01484000 TRMOPNO EQU IEDQTRM+17 01485000 TRMCHCIN EQU IEDQTRM+16 01486000 TRMSENSE EQU TRMSTAT+3 01487000 TRMTEMPR EQU TRMSTAT+2 01488000 TRMSIO EQU TRMSTAT 01489000 @NM00167 EQU TRMDEVFL+1 01490000 TRMTPIN EQU TRMDEVFL+1 01491000 TRMNCPI EQU TRMDEVFL+1 01492000 TRMRNTRM EQU TRMDEVFL+1 01493000 @NM00166 EQU TRMDEVFL+1 01494000 TRMLMD EQU TRMDEVFL+1 01495000 TRMCONC EQU TRMDEVFL+1 01496000 TRMTSOB EQU TRMDEVFL 01497000 TRMBFDY EQU TRMDEVFL 01498000 TRMTBLK EQU TRMDEVFL 01499000 TRMSBLK EQU TRMDEVFL 01500000 TRMBLKS EQU TRMDEVFL 01501000 TRMADDC EQU TRMDEVFL 01502000 TRMDDIG EQU TRMDEVFL 01503000 TRMBUFS EQU TRMDEVFL 01504000 TRMLGB EQU TRMDSORG 01505000 TRMUTERM EQU TLISTCNT 01506000 TRMSCNYN EQU TRMSTATE 01507000 TRMOPTFN EQU TRMSTATE 01508000 TRMACPTN EQU TRMSTATE 01509000 TRMPROC EQU TRMLOG 01510000 TRMLIST EQU TRMLOG 01511000 TRMLINE EQU TRMSTATE 01512000 QCBTTCIN EQU QCBPLCBA+1 01513000 @NM00165 EQU QCBPLCBA 01514000 @NM00164 EQU QCBSTAT1 01515000 QCBFLUSH EQU QCBSTAT1 01516000 QCBNDXRQ EQU QCBSTAT1 01517000 QCBESIG EQU QCBSTAT1 01518000 QCBRCVRQ EQU QCBSTAT1 01519000 QCBSNDRQ EQU QCBSTAT1 01520000 QCBWAITC EQU QCBSTAT1 01521000 QCBPLCBN EQU QCBSTAT1 01522000 QCBCHAIN EQU IEDNQCB 01523000 QCBPQBCK EQU IEDQPQCB+25 01524000 QCBPRIPQ EQU IEDQPQCB+24 01525000 QCBCFHDR EQU IEDQPQCB+21 01526000 QCBLFEFO EQU IEDQPQCB+18 01527000 QCBFFEFO EQU IEDQPQCB+15 01528000 QCBPREVF EQU QCBINTLF 01529000 QCBINTFF EQU IEDQPQCB+9 01530000 QCBDATSQ EQU QCBFHDTZ+1 01531000 @NM00163 EQU QCBFHDTZ 01532000 @NM00162 EQU QCBPFEFO 01533000 QCBDATFL EQU QCBFHDLZ 01534000 QCBDNHDR EQU IEDQPQCB 01535000 QCBQBACK EQU IEDQQCB+37 01536000 QCBCKPT EQU QCBFLAG 01537000 QCBPROC EQU QCBFLAG 01538000 QCBSDFFO EQU QCBFLAG 01539000 QCBTERMQ EQU QCBFLAG 01540000 QCBRSRV EQU QCBFLAG 01541000 QCBREAD EQU QCBFLAG 01542000 QCBNOBRK EQU QCBFLAG 01543000 QCBTSSES EQU QCBFLAG 01544000 QCBTJID EQU QCBLKRRN+1 01545000 QCBCARCT EQU QCBLKRRN 01546000 QCBPRLVL EQU QCBPREN 01547000 QCBMSGCT EQU IEDQQCB+26 01548000 QCBEXTO EQU QCBINTVL 01549000 QCBDISC EQU QCBTSOF1 01550000 QCBDELAY EQU QCBTSOF1 01551000 QCBPARTO EQU QCBTSOF1 01552000 QCBSATRD EQU QCBTSOF1 01553000 QCBNOBUF EQU QCBTSOF1 01554000 QCBTPUT EQU QCBTSOF1 01555000 QCBTGET EQU QCBTSOF1 01556000 QCBWRBRK EQU QCBTSOF1 01557000 QCBSATLC EQU QCBTSOF2 01558000 QCBSATTI EQU QCBTSOF2 01559000 QCBSATCH EQU QCBTSOF2 01560000 QCBSIMRD EQU QCBTSOF2 01561000 QCBDSSMI EQU QCBTSOF2 01562000 QCBPOSTO EQU QCBTSOF2 01563000 QCBBUFQ EQU QCBTSOF2 01564000 QCBINHBN EQU QCBTSOF2 01565000 QCBSATCT EQU @NM00161 01566000 QCBSCBOF EQU IEDQQCB+20 01567000 QCBTIME EQU QCBSTAT 01568000 QCBCLOCK EQU QCBSTAT 01569000 QCBSCHDL EQU QCBSTAT 01570000 QCBSMODE EQU QCBSTAT 01571000 QCBSEND EQU QCBSTAT 01572000 QCBBUFRD EQU QCBSTAT 01573000 QCBTRMHO EQU QCBSTAT 01574000 QCBEOM EQU QCBSTAT 01575000 QCBHUCT EQU QCBRETCT 01576000 QCBIEND EQU QCBRETCT 01577000 QCBEND EQU QCBRETCT 01578000 QCBNL EQU QCBRETCT 01579000 QCBLOGCT EQU QCBRETCT 01580000 @NM00160 EQU QCBBYTE1 01581000 QCBRITRM EQU QCBBYTE1 01582000 @NM00159 EQU QCBEOLDT 01583000 QCBSLINK EQU IEDQQCB+13 01584000 QCBSTPRI EQU IEDQQCB+12 01585000 QCBSTCHN EQU IEDQQCB+9 01586000 QCBSTVTO EQU IEDQQCB+8 01587000 QCBLINK EQU IEDQQCB+5 01588000 QCBPRI EQU IEDQQCB+4 01589000 QCBELCHN EQU IEDQQCB+1 01590000 QCBHELD EQU QCBDSFLG 01591000 QCBFQCB EQU QCBDSFLG 01592000 QCBDRQQ EQU QCBDSFLG 01593000 QCBALTMH EQU QCBDSFLG 01594000 QCBREUS EQU QCBDISK 01595000 QCBNREUS EQU QCBDISK 01596000 QCBCORE EQU QCBDSFLG 01597000 QCBTSQ EQU QCBDSFLG 01598000 @NM00158 EQU IEDPRUND+4 01599000 PRUTHEFI EQU PRUFIDN 01600000 PRUTHUSS EQU PRUFIDN 01601000 PRUTHEIU EQU PRUFIDN 01602000 PRUTHBIU EQU PRUFIDN 01603000 PRUTHTYE EQU PRUFIDN 01604000 @NM00157 EQU PRURHFG2 01605000 PRURHCSI EQU PRURHFG2 01606000 @NM00156 EQU PRURHFG2 01607000 PRURHCDI EQU PRURHFG2 01608000 PRURHEB EQU PRURHFG2 01609000 PRURHBB EQU PRURHFG2 01610000 PRURHPI EQU PRURHFG1 01611000 @NM00155 EQU PRURHFG1 01612000 PRURHER EQU PRURHFG1 01613000 PRURHDR2 EQU PRURHFG1 01614000 @NM00154 EQU PRURHFG1 01615000 PRURHDR1 EQU PRURHFG1 01616000 PRURHEC EQU PRURHFG0 01617000 PRURHBC EQU PRURHFG0 01618000 PRURHFI EQU PRURHFG0 01619000 @NM00153 EQU PRURHFG0 01620000 PRURUCAT EQU PRURHFG0 01621000 PRURHTYP EQU PRURHFG0 01622000 @NM00150 EQU OCLDNME+4 01623000 @NM00149 EQU OCPREFLG 01624000 OCTOTEP EQU OCPREFLG 01625000 OCREPOST EQU OCPREFLG 01626000 OCRSPSNT EQU OCPREFLG 01627000 OCBFREQ EQU OCPREFLG 01628000 OCIDLE EQU OCREQFLG 01629000 OCFORCE EQU OCREQFLG 01630000 OCDCARD EQU OCREQFLG 01631000 OCPARTAL EQU OCREQFLG 01632000 OCADNCP EQU OCREQFLG 01633000 @NM00148 EQU OCREQFLG 01634000 @NM00147 EQU OCREQFLG 01635000 OCFLUSHZ EQU OCREQFLG 01636000 OCRESPCT EQU OCLINTTE 01637000 OCCKPTWA EQU OCCKDATA+4 01638000 @NM00144 EQU OCRSTGTM+2 01639000 OCCKDAT2 EQU OCRSTGTM+1 01640000 OCCKDAT1 EQU OCRSTGTM 01641000 OCPTRSAV EQU OCMODNME+4 01642000 OCPUADR EQU OCIPLWA+2 01643000 OCWTGSAV EQU OCIPLWA 01644000 OCDVRDCT EQU OCBACKUP+6 01645000 OCNCP EQU OCBACKUP+4 01646000 OCBUFGOT EQU OCBACKUP+2 01647000 OCBUFNED EQU OCBACKUP 01648000 OCRESNUM EQU OCPARM 01649000 OCSEQ EQU OCTRUNIT+2 01650000 @NM00143 EQU OCRSID+1 01651000 OCNONE EQU OCALSTAT 01652000 OCSOME EQU OCALSTAT 01653000 OCALLFLG EQU OCALSTAT 01654000 OCREDRVE EQU OCALSTAT 01655000 OCSEQIND EQU OCALSTAT 01656000 @NM00142 EQU OCALSTAT 01657000 OCRENTRD EQU OCALSTAT 01658000 OCWTGB EQU OCTIOT 01659000 @NM00141 EQU @NM00140+2 01660000 OCCONID EQU OCDEST 01661000 OCATTACH EQU OCFLAG 01662000 OCSSCP EQU OCFLAG 01663000 OCOUTPUT EQU OCFLAG 01664000 OCLINE EQU OCFLAG 01665000 OCMPP EQU OCFLAG 01666000 @NM00139 EQU OCSWITCH 01667000 OCQUCKN EQU OCSWITCH 01668000 OCPRIFLG EQU OCOPTCDE 01669000 @NM00138 EQU OCRUDEST+1 01670000 @NM00137 EQU OCSCAN 01671000 OCNOTUCB EQU OCSCAN 01672000 OCNONAME EQU OCSCAN 01673000 OCALLRLN EQU OCSCAN 01674000 OCDDNAME EQU OCSCAN 01675000 OCDDNRLN EQU OCSCAN 01676000 OCADDR EQU OCSCAN 01677000 OCELMPTR EQU OCELEM+1 01678000 OCELMPRI EQU OCELEM 01679000 OCLINK EQU IEDQOPCE 01680000 OPCBOTTM EQU IEDQOPCD+1184 01681000 @NM00136 EQU IEDQOPCD+1100 01682000 @NM00135 EQU IEDQOPCD+948 01683000 @NM00134 EQU IEDQOPCD+940 01684000 @NM00133 EQU IEDQOPCD+380 01685000 @NM00132 EQU OPCPWCOB+9 01686000 @NM00131 EQU OPCPWCOB+8 01687000 @NM00130 EQU OPCPWECB+1 01688000 OPCPWCCC EQU OPCPWECB 01689000 OPCPWCHN EQU OPCPWQCB+1 01690000 OPCPWVTO EQU OPCPWQCB 01691000 OPCWAITV EQU IEDQOPCD+364 01692000 OPCTOTCK EQU IEDQOPCD+360 01693000 OPCAPXTL EQU IEDQOPCD+356 01694000 OPCDECR EQU IEDQOPCD+352 01695000 OPCBUFWT EQU IEDQOPCD+348 01696000 OPCWRKSP EQU IEDQOPCD+320 01697000 OPCADGOT EQU IEDQOPCD+318 01698000 OPCRQCNT EQU IEDQOPCD+316 01699000 OPPOLSTP EQU IEDQOPCD+312 01700000 OPCCKCIB EQU IEDQOPCD+308 01701000 OPCEND EQU IEDQOPCD+307 01702000 OPCSTCBS EQU IEDQOPCD+306 01703000 OPCHNEND EQU IEDQOPCD+302 01704000 OPCOQSW EQU IEDQOPCD+301 01705000 @NM00129 EQU OPCSPEC 01706000 @NM00128 EQU OPCSPEC 01707000 @NM00127 EQU OPCSPEC 01708000 @NM00126 EQU OPCSPEC 01709000 OPCFRMCA EQU OPCSPEC 01710000 OPCRSTRT EQU OPCSPEC 01711000 OPCPART EQU OPCSPEC 01712000 OPCALTD EQU OPCSPEC 01713000 OPCBFEND EQU IEDQOPCD+296 01714000 OPCBFIRS EQU IEDQOPCD+292 01715000 OPCAVBUF EQU IEDQOPCD+290 01716000 OPCIPLCT EQU IEDQOPCD+289 01717000 OPCCLNTS EQU IEDQOPCD+288 01718000 OPCHA8 EQU IEDQOPCD+286 01719000 OPCBFREQ EQU IEDQOPCD+284 01720000 OPCNEXT EQU IEDQOPCD+272 01721000 OPCFMDFC EQU IEDQOPCD+268 01722000 OPCSCNC EQU IEDQOPCD+264 01723000 OPCHORTG EQU IEDQOPCD+260 01724000 OPCCKPTL EQU IEDQOPCD+252 01725000 OPCCKPTF EQU IEDQOPCD+248 01726000 OPCWAITA EQU IEDQOPCD+244 01727000 OPCWAITR EQU IEDQOPCD+240 01728000 OPCWAITP EQU IEDQOPCD+236 01729000 OPCWAITO EQU IEDQOPCD+232 01730000 OPCWAITN EQU IEDQOPCD+228 01731000 OPCWAITL EQU IEDQOPCD+224 01732000 OPCWAITC EQU IEDQOPCD+220 01733000 @NM00125 EQU OPCLDNME+5 01734000 OPCMODID EQU OPCLDNME+3 01735000 @NM00124 EQU OPCLDNME 01736000 OPCWAIT EQU IEDQOPCD+192 01737000 OPCCKERB EQU IEDQOPCD+164 01738000 OPCBFERB EQU IEDQOPCD+148 01739000 OPCFLAG2 EQU IEDQOPCD+147 01740000 OPCFLAG1 EQU IEDQOPCD+146 01741000 OPCWRKSZ EQU IEDQOPCD+144 01742000 OPCRSAVE EQU IEDQOPCD+132 01743000 OPCQCBAD EQU IEDQOPCD+128 01744000 OPCTRMWA EQU IEDQOPCD+52 01745000 OPCPSTWT EQU IEDQOPCD+48 01746000 OPCTNTEA EQU IEDQOPCD+44 01747000 OPCPGCK EQU IEDQOPCD+40 01748000 OPCLCB EQU IEDQOPCD+36 01749000 @NM00123 EQU IEDQOPCD+32 01750000 OPCIPLAD EQU IEDQOPCD+28 01751000 OPCOPTLK EQU IEDQOPCD+20 01752000 LGBIVLST EQU IEDNLGB+60 01753000 LGBRESV4 EQU LGBRESER+3 01754000 LGBRESV3 EQU LGBRESER+2 01755000 LGBRESV2 EQU LGBRESER+1 01756000 LGBRESV1 EQU LGBRESER 01757000 LGBBUFSI EQU IEDNLGB+54 01758000 @NM00122 EQU IEDNLGB+53 01759000 LGBILCT EQU IEDNLGB+52 01760000 LGBSCTAD EQU IEDNLGB+49 01761000 @NM00121 EQU LGBOFLGS 01762000 LGBOPEN EQU LGBOFLGS 01763000 @NM00120 EQU LGBOFLGS 01764000 @NM00119 EQU IEDNLGB+36 01765000 LGBTRANS EQU IEDNLGB+33 01766000 @NM00118 EQU IEDNLGB+32 01767000 @NM00117 EQU IEDNLGB+31 01768000 LGBOPACE EQU IEDNLGB+30 01769000 @NM00116 EQU LGBBYTE 01770000 LGBPACK EQU LGBBYTE 01771000 LGBBUFMA EQU IEDNLGB+28 01772000 LGBDSORG EQU IEDNLGB+26 01773000 @NM00115 EQU LGBPCI 01774000 @NM00114 EQU LGBPCI 01775000 LGBPCINO EQU LGBPCI 01776000 @NM00113 EQU LGBPCI 01777000 LGBPCIAO EQU LGBPCI 01778000 @NM00112 EQU LGBPCI 01779000 @NM00111 EQU LGBPCI 01780000 @NM00110 EQU LGBPCI 01781000 @NM00109 EQU IEDNLGB+24 01782000 LGBMHA EQU IEDNLGB+21 01783000 @NM00108 EQU LGBBUFOU 01784000 LGBPREF EQU LGBBUFOU 01785000 @NM00107 EQU LGBBUFOU 01786000 LGBSUBST EQU IEDNLGB+18 01787000 LGBTYPE EQU IEDNLGB+17 01788000 @NM00106 EQU IEDNLGB 01789000 SAVTBITN EQU IEDNSVTD+312 01790000 @NM00105 EQU SAVTCKQB+8 01791000 @NM00104 EQU SAVTCKEC+1 01792000 @NM00103 EQU SAVTCKCC 01793000 SAVTCKPO EQU SAVTCKCC 01794000 SAVTCKWA EQU SAVTCKCC 01795000 SAVTCKCH EQU SAVTCKTB+1 01796000 SAVTCKVT EQU SAVTCKTB 01797000 @NM00102 EQU IEDNSVTD+297 01798000 SAVTRDFG EQU SAVTRDRV+12 01799000 @NM00101 EQU SAVTRDRV+5 01800000 SAVTRDPY EQU SAVTRDRV+4 01801000 SAVTRDQB EQU SAVTRDRV+1 01802000 SAVTRDKY EQU SAVTRDRV 01803000 SAVTNID EQU IEDNSVTD+280 01804000 SAVTDVAS EQU IEDNSVTD+276 01805000 SAVTPLSZ EQU IEDNSVTD+274 01806000 @NM00100 EQU IEDNSVTD+273 01807000 SAVTSUBL EQU IEDNSVTD+272 01808000 @NM00099 EQU SAVTZELM+1 01809000 SAVTSUBM EQU SAVTZELM 01810000 SAVTMHDX EQU IEDNSVTD+268 01811000 SAVTNAT1 EQU IEDNSVTD+266 01812000 SAVTSH20 EQU IEDNSVTD+264 01813000 SAVTLCBS EQU IEDNSVTD+260 01814000 SAVTRNMP EQU IEDNSVTD+256 01815000 SAVTTNTX EQU IEDNSVTD+252 01816000 SAVTSUBV EQU IEDNSVTD+247 01817000 SAVTSUBA EQU IEDNSVTD+246 01818000 SAVTSIBC EQU IEDNSVTD+244 01819000 SAVTBSM EQU IEDNSVTD+240 01820000 SAVTSCPT EQU SAVTTCPU 01821000 SAVTRQTG EQU IEDNSVTD+236 01822000 SAVTRQCH EQU IEDNSVTD+232 01823000 SAVTSPLN EQU IEDNSVTD+224 01824000 SAVTNADL EQU IEDNSVTD+222 01825000 SAVTNATL EQU IEDNSVTD+220 01826000 SAVTMHTB EQU IEDNSVTD+216 01827000 SAVTSSMH EQU IEDNSVTD+212 01828000 SAVTQRS EQU IEDNSVTD+208 01829000 SAVTRQIN EQU IEDNSVTD+204 01830000 SAVTDFCO EQU IEDNSVTD+200 01831000 SAVTSAO EQU IEDNSVTD+196 01832000 SAVTSARI EQU IEDNSVTD+192 01833000 SAVTSAC EQU IEDNSVTD+188 01834000 SAVTSAI EQU IEDNSVTD+184 01835000 SAVTCSCI EQU IEDNSVTD+180 01836000 SAVTSSRP EQU IEDNSVTD+176 01837000 SAVTSSRQ EQU IEDNSVTD+172 01838000 SAVTSCLU EQU IEDNSVTD+168 01839000 SAVTXTRQ EQU IEDNSVTD+164 01840000 SAVTMVBF EQU IEDNSVTD+160 01841000 @NM00098 EQU IEDNSVTD+148 01842000 SAVTIPCQ EQU IEDNSVTD+144 01843000 @NM00097 EQU IEDNSVTD+136 01844000 SAVTXFMI EQU IEDNSVTD+132 01845000 @NM00096 EQU IEDNSVTD+124 01846000 SAVTXFMO EQU IEDNSVTD+120 01847000 @NM00095 EQU IEDNSVTD+116 01848000 SAVTSSSR EQU IEDNSVTD+112 01849000 SAVTSCPQ EQU IEDNSVTD+108 01850000 SAVTSLCB EQU IEDNSVTD+104 01851000 SAVTLUSR EQU IEDNSVTD+100 01852000 @NM00094 EQU SAVTLUSQ+8 01853000 SAVTLUSP EQU SAVTLUSQ+4 01854000 SAVTLUSB EQU SAVTLUSQ 01855000 @NM00093 EQU IEDNSVTD+84 01856000 SAVTSAT EQU IEDNSVTD+80 01857000 SAVTNAT EQU IEDNSVTD+76 01858000 SAVTCLUP EQU IEDNSVTD+72 01859000 SAVTPIUT EQU IEDNSVTD+68 01860000 SAVTRNTA EQU IEDNSVTD+64 01861000 SAVTDNIR EQU IEDNSVTD+60 01862000 SAVTCNIR EQU IEDNSVTD+56 01863000 SAVTFLDH EQU IEDNSVTD+52 01864000 SAVTSRTN EQU IEDNSVTD+48 01865000 SAVTSREQ EQU IEDNSVTD+44 01866000 SAVTFAIL EQU IEDNSVTD+42 01867000 SAVTSUSE EQU IEDNSVTD+40 01868000 SAVTSIB EQU IEDNSVTD+36 01869000 SAVTPRTN EQU IEDNSVTD+32 01870000 @NM00092 EQU IEDNSVTD+28 01871000 SAVTWH20 EQU IEDNSVTD+26 01872000 SAVTPWT EQU IEDNSVTD+24 01873000 SAVTPRTQ EQU IEDNSVTD+20 01874000 SAVTPREQ EQU IEDNSVTD+16 01875000 SAVTPH20 EQU IEDNSVTD+14 01876000 SAVTPUSE EQU IEDNSVTD+12 01877000 SAVTPLCB EQU IEDNSVTD+8 01878000 SAVTPOOL EQU IEDNSVTD+4 01879000 SAVTPRMT EQU SAVTDIAF 01880000 SAVTVIRT EQU SAVTDIAF 01881000 AVTCPBNO EQU IEDQAVTD+1244 01882000 AVTHRESS EQU IEDQAVTD+1243 01883000 @NM00091 EQU IEDQAVTD+1242 01884000 @NM00090 EQU IEDQAVTD+1241 01885000 @NM00089 EQU IEDQAVTD+1240 01886000 @NM00088 EQU IEDQAVTD+1237 01887000 @NM00087 EQU IEDQAVTD+1236 01888000 AVTHRESE EQU @NM00086 01889000 AVTRADDR EQU IEDQAVTD+1228 01890000 AVTNADDR EQU IEDQAVTD+1224 01891000 AVTHRESN EQU IEDQAVTD+1220 01892000 AVTVOLRN EQU IEDQAVTD+1216 01893000 AVTTOTNN EQU IEDQAVTD+1212 01894000 AVTTRCYN EQU IEDQAVTD+1208 01895000 AVTRCTRN EQU IEDQAVTD+1204 01896000 AVTNOVON EQU IEDQAVTD+1200 01897000 AVTADEBN EQU IEDQAVTD+1196 01898000 AVTVOLRR EQU IEDQAVTD+1192 01899000 AVTTOTNR EQU IEDQAVTD+1188 01900000 AVTTRCYR EQU IEDQAVTD+1184 01901000 AVTRCTRR EQU IEDQAVTD+1180 01902000 AVTNOVOR EQU IEDQAVTD+1176 01903000 AVTADEBR EQU IEDQAVTD+1172 01904000 AVTLODPT EQU IEDQAVTD+1168 01905000 AVTIOBN EQU IEDQAVTD+1164 01906000 AVTIOBR EQU IEDQAVTD+1160 01907000 AVTCPBPT EQU IEDQAVTD+1156 01908000 AVTFCPB EQU IEDQAVTD+1152 01909000 @NM00085 EQU IEDQAVTD+1148 01910000 AVTINCPQ EQU IEDQAVTD+1144 01911000 @NM00084 EQU IEDQAVTD+1140 01912000 @NM00083 EQU IEDQAVTD+1137 01913000 @NM00082 EQU AVTBIT4 01914000 @NM00081 EQU AVTBIT4 01915000 @NM00080 EQU AVTBIT4 01916000 @NM00079 EQU AVTBIT4 01917000 @NM00078 EQU AVTBIT4 01918000 @NM00077 EQU AVTBIT4 01919000 @NM00076 EQU AVTBIT4 01920000 AVTRUFTN EQU AVTBIT4 01921000 @NM00075 EQU IEDQAVTD+1132 01922000 AVTNOBFQ EQU IEDQAVTD+1128 01923000 @NM00074 EQU IEDQAVTD+1124 01924000 AVTDKENQ EQU IEDQAVTD+1120 01925000 @NM00073 EQU IEDQAVTD+1116 01926000 AVTDKAPQ EQU IEDQAVTD+1112 01927000 AVTCOPY EQU IEDQAVTD+1108 01928000 AVTIA EQU IEDQAVTD+1104 01929000 AVTFL EQU IEDQAVTD+1100 01930000 @NM00072 EQU IEDQAVTD+1096 01931000 AVTNCPBQ EQU IEDQAVTD+1092 01932000 AVTTOTNC EQU IEDQAVTD+1088 01933000 AVTCMAX EQU IEDQAVTD+1084 01934000 AVTCMIN EQU IEDQAVTD+1080 01935000 AVTHM02 EQU IEDQAVTD+1076 01936000 AVTDCTLN EQU IEDQAVTD+1072 01937000 AVTOPMSK EQU IEDQAVTD+1068 01938000 AVTDDFT EQU IEDQAVTD+1064 01939000 AVTSTEAL EQU IEDQAVTD+1060 01940000 AVTOPTN EQU IEDQAVTD+1056 01941000 AVTDSKCT EQU IEDQAVTD+1054 01942000 AVTCKRST EQU IEDQAVTD+1053 01943000 AVTSTAN EQU AVTBIT3 01944000 AVTSTACN EQU AVTBIT3 01945000 AVTSTAIN EQU AVTBIT3 01946000 AVTSTAYN EQU AVTBIT3 01947000 AVTOLTBN EQU AVTBIT3 01948000 AVTTSAB EQU AVTBIT3 01949000 AVTRFULN EQU AVTBIT3 01950000 AVTRECVN EQU AVTBIT3 01951000 @NM00071 EQU AVTBIT2 01952000 @NM00070 EQU AVTBIT2 01953000 AVTOPEIN EQU AVTBIT2 01954000 AVTSTRTN EQU AVTBIT2 01955000 AVTTOPOL EQU AVTBIT2 01956000 AVTCOPYN EQU AVTBIT2 01957000 AVTREUSN EQU AVTBIT2 01958000 AVTEXTSC EQU AVTBIT2 01959000 AVTDISKN EQU AVTBIT1 01960000 AVTQUCKN EQU AVTBIT1 01961000 AVTCLOSN EQU AVTBIT1 01962000 AVTREADN EQU AVTBIT1 01963000 AVTDLAYN EQU AVTBIT1 01964000 AVTAQTAN EQU AVTBIT1 01965000 AVTTSON EQU AVTBIT1 01966000 AVTAPLKN EQU AVTBIT1 01967000 AVTDUMBR EQU IEDQAVTD+1048 01968000 AVTDLQX EQU IEDQAVTD+1046 01969000 AVTINTLV EQU IEDQAVTD+1044 01970000 AVTSMCNT EQU IEDQAVTD+1042 01971000 AVTAVFCT EQU IEDQAVTD+1040 01972000 AVTOPCON EQU IEDQAVTD+1038 01973000 AVTOPCNT EQU IEDQAVTD+1036 01974000 AVTLNCNT EQU IEDQAVTD+1034 01975000 AVTKEYLE EQU IEDQAVTD+1032 01976000 AVTHA16 EQU IEDQAVTD+1030 01977000 AVTHA7 EQU IEDQAVTD+1028 01978000 AVTHA4 EQU IEDQAVTD+1026 01979000 AVTHA2 EQU IEDQAVTD+1022 01980000 AVTGETMS EQU IEDQAVTD+1021 01981000 @NM00069 EQU IEDQAVTD+1020 01982000 AVTGETMD EQU IEDQAVTD+1016 01983000 AVTGETMN EQU IEDQAVTD+1012 01984000 AVTCWTOT EQU IEDQAVTD+1008 01985000 AVTCWINT EQU IEDQAVTD+956 01986000 AVTDTRAP EQU IEDQAVTD+952 01987000 @NM00068 EQU IEDQAVTD+950 01988000 @NM00067 EQU AVTIOTR 01989000 AVTIOTRH EQU AVTIOTR 01990000 AVTIOTRE EQU AVTIOTR 01991000 @NM00066 EQU AVTSUBT 01992000 AVTSUBPT EQU AVTSUBT 01993000 AVTSUBON EQU AVTSUBT 01994000 AVTAFE30 EQU IEDQAVTD+944 01995000 AVTAFE20 EQU IEDQAVTD+940 01996000 AVTAFE10 EQU IEDQAVTD+936 01997000 AVTCWEC2 EQU IEDQAVTD+932 01998000 AVTCWPM2 EQU IEDQAVTD+928 01999000 AVTCWTS2 EQU IEDQAVTD+927 02000000 AVTCWTS1 EQU IEDQAVTD+926 02001000 AVTCWCLD EQU AVTCWFL2 02002000 AVTCWRAP EQU AVTCWFL2 02003000 @NM00065 EQU AVTCWFL2 02004000 @NM00064 EQU AVTCWFL2 02005000 @NM00063 EQU AVTCWFL2 02006000 @NM00062 EQU AVTCWFL2 02007000 @NM00061 EQU AVTCWFL2 02008000 AVTCWACT EQU AVTCWFL2 02009000 @NM00060 EQU AVTCWFL1 02010000 @NM00059 EQU AVTCWFL1 02011000 @NM00058 EQU AVTCWFL1 02012000 @NM00057 EQU AVTCWFL1 02013000 @NM00056 EQU AVTCWFL1 02014000 @NM00055 EQU AVTCWFL1 02015000 @NM00054 EQU AVTCWFL1 02016000 AVTCOMWN EQU AVTCWFL1 02017000 AVTCWEC1 EQU IEDQAVTD+920 02018000 AVTCWPM1 EQU IEDQAVTD+916 02019000 AVTCAREA EQU IEDQAVTD+912 02020000 AVTFZERO EQU IEDQAVTD+908 02021000 AVTCADDR EQU IEDQAVTD+904 02022000 AVTCOREC EQU IEDQAVTD+900 02023000 @NM00053 EQU IEDQAVTD+892 02024000 AVTCPBCB EQU IEDQAVTD+888 02025000 @NM00052 EQU IEDQAVTD+880 02026000 AVTDSIOB EQU IEDQAVTD+876 02027000 @NM00051 EQU IEDQAVTD+868 02028000 AVTCPRMB EQU IEDQAVTD+864 02029000 @NM00050 EQU IEDQAVTD+856 02030000 AVTCLOSB EQU IEDQAVTD+852 02031000 @NM00049 EQU IEDQAVTD+844 02032000 AVTACTIB EQU IEDQAVTD+840 02033000 @NM00048 EQU IEDQAVTD+836 02034000 AVTOLTEB EQU IEDQAVTD+832 02035000 AVTOLTCH EQU AVTOLTQB+1 02036000 AVTOLTVT EQU AVTOLTQB 02037000 @NM00047 EQU AVTOPCQB+8 02038000 @NM00046 EQU AVTOPCEC+1 02039000 @NM00045 EQU AVTOPCCC 02040000 AVTOPCPO EQU AVTOPCCC 02041000 AVTOPCWA EQU AVTOPCCC 02042000 AVTOPCCH EQU AVTOPCOB+1 02043000 AVTOPCVT EQU AVTOPCOB 02044000 @NM00044 EQU AVTCKPQB+9 02045000 AVTCKPTS EQU AVTCKPQB+8 02046000 @NM00043 EQU AVTCKPEC+1 02047000 @NM00042 EQU AVTCKPCC 02048000 AVTCKPPO EQU AVTCKPCC 02049000 AVTCKPWA EQU AVTCKPCC 02050000 AVTCKPCH EQU AVTCKPTB+1 02051000 AVTCKPVT EQU AVTCKPTB 02052000 @NM00041 EQU IEDQAVTD+796 02053000 AVTBFRTB EQU IEDQAVTD+792 02054000 @NM00040 EQU IEDQAVTD+784 02055000 AVTBFREB EQU IEDQAVTD+780 02056000 AVTTIMQ EQU IEDQAVTD+776 02057000 @NM00039 EQU IEDQAVTD+772 02058000 AVTIMQPS EQU IEDQAVTD+768 02059000 AVTINOUT EQU IEDQAVTD+766 02060000 AVTREFTM EQU IEDQAVTD+764 02061000 @NM00038 EQU IEDQAVTD+752 02062000 AVTDELYB EQU IEDQAVTD+748 02063000 AVTOCQPT EQU IEDQAVTD+744 02064000 AVTTSOPT EQU IEDQAVTD+740 02065000 AVTSUPPT EQU IEDQAVTD+736 02066000 AVTCBQCB EQU IEDQAVTD+732 02067000 AVTMSGS EQU IEDQAVTD+729 02068000 @NM00037 EQU AVTSYSER 02069000 @NM00036 EQU AVTSYSER 02070000 @NM00035 EQU AVTSYSER 02071000 @NM00034 EQU AVTSYSER 02072000 @NM00033 EQU AVTSYSER 02073000 @NM00032 EQU AVTSYSER 02074000 AVTCMAXN EQU AVTSYSER 02075000 AVTCMINN EQU AVTSYSER 02076000 AVT2260L EQU IEDQAVTD+724 02077000 AVTABEPL EQU AVTADBUF 02078000 AVTHFF EQU AVTCLRHI+2 02079000 @NM00031 EQU AVTCLRHI 02080000 AVTCCLNK EQU AVTCRELE+5 02081000 AVTCCPRI EQU AVTCRELE+4 02082000 AVTCCQCB EQU AVTCCELE+1 02083000 AVTCCKEY EQU AVTCCELE 02084000 AVTDELAD EQU IEDQAVTD+704 02085000 AVTDELEM EQU IEDQAVTD+700 02086000 AVTBSX EQU AVTCKLNK 02087000 AVTOPETR EQU AVTHG01 02088000 @NM00030 EQU AVTCKBYT 02089000 AVTCKONQ EQU AVTCKBYT 02090000 @NM00029 EQU AVTCKBYT 02091000 @NM00028 EQU AVTCKBYT 02092000 @NM00027 EQU AVTCKBYT 02093000 @NM00026 EQU AVTCKBYT 02094000 @NM00025 EQU AVTCKBYT 02095000 @NM00024 EQU AVTCKBYT 02096000 AVTOPERT EQU IEDQAVTD+690 02097000 AVTOPXCL EQU IEDQAVTD+688 02098000 AVTOPERL EQU IEDQAVTD+687 02099000 @NM00023 EQU IEDQAVTD+686 02100000 AVTCKTIM EQU IEDQAVTD+684 02101000 AVTCKELV EQU IEDQAVTD+682 02102000 AVTCPRCD EQU IEDQAVTD+681 02103000 AVTWARMN EQU AVTCKELF 02104000 AVTCRTLN EQU AVTCKELF 02105000 AVTCPIPN EQU AVTCKELF 02106000 AVTCCLCN EQU AVTCKELF 02107000 AVTCINCN EQU AVTCKELF 02108000 @NM00022 EQU AVTCKELF 02109000 AVTCMCPN EQU AVTCKELF 02110000 AVTNQBCK EQU AVTCKELF 02111000 AVTCKQAD EQU IEDQAVTD+677 02112000 AVTSCBSZ EQU IEDQAVTD+676 02113000 @NM00021 EQU IEDQAVTD+672 02114000 AVTCKELE EQU IEDQAVTD+668 02115000 @NM00020 EQU AVTCKPEL+8 02116000 AVTCKRLK EQU AVTCKPEL+5 02117000 AVTCKRPR EQU AVTCKPEL+4 02118000 AVTCKRMQ EQU AVTCKRMV+1 02119000 AVTCKRKY EQU AVTCKRMV 02120000 AVTHK EQU IEDQAVTD+648 02121000 AVTHI EQU IEDQAVTD+644 02122000 AVTIOT EQU IEDQAVTD+640 02123000 AVTNX EQU IEDQAVTD+636 02124000 AVTTONE EQU IEDQAVTD+632 02125000 AVTA3TL EQU IEDQAVTD+628 02126000 AVTDMECB EQU IEDQAVTD+624 02127000 AVTABEND EQU IEDQAVTD+618 02128000 AVTPLCBN EQU IEDQAVTD+616 02129000 @NM00019 EQU AVTSAVTP+1 02130000 @NM00018 EQU AVTSAVTF 02131000 AVTSNA EQU AVTSAVTF 02132000 AVTONSNA EQU AVTSAVTF 02133000 AVTVTMCP EQU AVTSAVTF 02134000 @NM00017 EQU IEDQAVTD+608 02135000 AVTCMBSS EQU IEDQAVTD+604 02136000 AVTRCV EQU IEDQAVTD+600 02137000 AVTSEND EQU IEDQAVTD+596 02138000 AVTCSCH EQU IEDQAVTD+592 02139000 AVTQ1 EQU IEDQAVTD+588 02140000 AVTE7 EQU IEDQAVTD+584 02141000 AVTHB EQU IEDQAVTD+580 02142000 AVTR1 EQU IEDQAVTD+576 02143000 AVTBZ EQU IEDQAVTD+572 02144000 AVTEZ EQU IEDQAVTD+568 02145000 AVTEC EQU IEDQAVTD+564 02146000 AVTEW EQU IEDQAVTD+560 02147000 AVTNDIAL EQU AVTSCOPT 02148000 AVTN2741 EQU AVTSCOPT 02149000 AVTCONCO EQU AVTSCOPT 02150000 AVTCONC EQU AVTSCOPT 02151000 AVTCMBUF EQU AVTSCOPT 02152000 AVTAPDMP EQU AVTSCOPT 02153000 @NM00016 EQU AVTSCOPT 02154000 AVTHA EQU AVTDISP 02155000 AVTEA EQU IEDQAVTD+548 02156000 AVTAX EQU IEDQAVTD+544 02157000 AVTA3 EQU IEDQAVTD+540 02158000 AVTGD EQU IEDQAVTD+536 02159000 AVTAL EQU IEDQAVTD+532 02160000 AVTOLTST EQU AVTHG02 02161000 AVTE8 EQU IEDQAVTD+524 02162000 AVTUI EQU IEDQAVTD+520 02163000 AVTCOMPT EQU IEDQAVTD+516 02164000 AVTCRSRF EQU IEDQAVTD+512 02165000 @NM00015 EQU IEDQAVTD+508 02166000 AVTKA02 EQU IEDQAVTD+504 02167000 AVTOPTPT EQU IEDQAVTD+500 02168000 AVTPCBPT EQU IEDQAVTD+496 02169000 @NM00014 EQU AVTECB1 02170000 AVTCOMP EQU AVTECB1 02171000 @NM00013 EQU AVTECB1 02172000 AVTOPECA EQU IEDQAVTD+488 02173000 AVTOLECA EQU IEDQAVTD+484 02174000 AVTCKECA EQU IEDQAVTD+480 02175000 AVTCWECA EQU IEDQAVTD+476 02176000 AVTCWTCB EQU IEDQAVTD+472 02177000 AVTOLTCB EQU IEDQAVTD+468 02178000 AVTOCTCB EQU IEDQAVTD+464 02179000 AVTCKTCB EQU IEDQAVTD+460 02180000 AVTAS EQU IEDQAVTD+456 02181000 AVTNOLBF EQU IEDQAVTD+454 02182000 AVTNCKPR EQU IEDQAVTD+453 02183000 AVTCIB EQU IEDQAVTD+452 02184000 AVTSPLPT EQU IEDQAVTD+448 02185000 AVTMVBFR EQU IEDQAVTD+444 02186000 AVTSBTA EQU IEDQAVTD+440 02187000 AVTRARTN EQU IEDQAVTD+436 02188000 AVTBSCAN EQU IEDQAVTD+432 02189000 AVTRDYA EQU IEDQAVTD+428 02190000 AVTDISTR EQU IEDQAVTD+420 02191000 AVTPARM3 EQU IEDQAVTD+416 02192000 @NM00012 EQU AVTPKF 02193000 @NM00011 EQU AVTPKF 02194000 @NM00010 EQU AVTPKF 02195000 AVTFTCHF EQU AVTPKF 02196000 @NM00009 EQU AVTPKF 02197000 @NM00008 EQU AVTPKF 02198000 @NM00007 EQU AVTPKF 02199000 @NM00006 EQU AVTPKF 02200000 AVTPARM EQU IEDQAVTD+408 02201000 AVTEXS2A EQU IEDQAVTD+402 02202000 AVTEXA2S EQU IEDQAVTD+396 02203000 AVTOCGET EQU IEDQAVTD+392 02204000 AVTCKAVT EQU @NM00004+1 02205000 @NM00005 EQU AVTCKFLG 02206000 AVTCKHLT EQU AVTCKFLG 02207000 AVTCKREQ EQU AVTCKFLG 02208000 AVTCKENV EQU AVTCKFLG 02209000 AVTCKNAC EQU AVTCKFLG 02210000 AVTCKTAC EQU AVTCKFLG 02211000 @NM00003 EQU IEDQAVTD+384 02212000 AVTREADD EQU IEDQAVTD+380 02213000 AVTREADY EQU IEDQAVTD+376 02214000 AVTRACE EQU IEDQAVTD+372 02215000 AVTTCB EQU IEDQAVTD+368 02216000 AVTPASWD EQU IEDQAVTD+360 02217000 AVTCTLCH EQU IEDQAVTD+352 02218000 AVTDOUBL EQU IEDQAVTD+344 02219000 AVTDOUBX EQU IEDQAVTD+336 02220000 AVTDPARM EQU IEDQAVTD+332 02221000 AVTCSTCS EQU IEDQAVTD+328 02222000 AVTDLQ EQU AVTSAVEX+32 02223000 @NM00002 EQU AVTSAVEX 02224000 AVTSAVE4 EQU IEDQAVTD+216 02225000 AVTSAVE3 EQU IEDQAVTD+144 02226000 AVTSAVE1 EQU IEDQAVTD 02227000 PRUNUNIT EQU PRUTIC+1 02228000 @NM00152 EQU PRUTIC 02229000 @NM00151 EQU IEDPRUQD+4 02230000 * END UNREFERENCED COMPONENTS 02231000 @RT00233 EQU PROCBTU 02232000 @RT00251 EQU CMDINV 02233000 @RC00243 EQU @RC00241 02234000 @RF00280 EQU CHKREQ 02235000 @RT00296 EQU CMDINV 02236000 @RT00300 EQU CMDINV 02237000 @RF00300 EQU CHKNEXT 02238000 @RT00309 EQU CMDINV 02239000 @RF00307 EQU CMDINV 02240000 @RC00305 EQU @RC00293 02241000 @RT00318 EQU CMDINV 02242000 @RF00318 EQU CHKREQ 02243000 @RT00323 EQU CMDINV 02244000 @RT00327 EQU CMDINV 02245000 @RT00330 EQU CMDINV 02246000 @RT00336 EQU CMDINV 02247000 @RT00343 EQU CMDINV 02248000 @RC00348 EQU ERREXIT 02249000 @RF00397 EQU CMDINV 02250000 @RF00390 EQU @EL00001 02251000 @RC00392 EQU @EL00001 02252000 @RT00413 EQU NOTNORM 02253000 @RT00458 EQU MANDIAL 02254000 @RC00493 EQU ERREXIT 02255000 @RC00491 EQU ERREXIT 02256000 @RC00478 EQU ERREXIT 02257000 @RC00460 EQU ERREXIT 02258000 @RF00531 EQU @RC00528 02259000 @RF00250 EQU @RC00243 02260000 @EL01 EQU @EL00001 02261000 @ENDDATA EQU * 02262000 @DATEND EQU * 02263000 END IGCMT10D,(C'PLS1858',0701,77120) 02264000