TITLE 'IGCMV10D - CHNGMODE PROCESSING *00001000 ' 00002000 IGCMV10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* @Y17XZRX*/ 00007000 * /* @Y17XARX 00008000 IGCMV10D IEDHJN AFTERHJN,HJN @Y17XARX 00009000 * 0256 00010000 */********************************************************************/ 00011000 */* INITIALIZE WORK REGISTERS AND ESTABLISH ADDRESSABILITY FOR */ 00012000 */* CONTROL BLOCKS */ 00013000 */********************************************************************/ 00014000 * 0256 00015000 * ROPCAVT=RPARM; /* SET BASE FOR OP CNTRL AVT */ 00016000 LR ROPCAVT,RPARM 0256 00017000 * ROPCE=OPCCOPCE; /* GET ELEMENT POINTER */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 0257 00019000 * IEDQAPTR=OPCAVTPT; /* SET BASE FOR TCAM'S AVT */ 00020000 L IEDQAPTR,OPCAVTPT(,ROPCAVT) 0258 00021000 * RWORKA=OPCWORK; /* ADDR WORK AREA M0 PASSED */ 00022000 L RWORKA,OPCWORK(,ROPCAVT) 0259 00023000 * ERRX=OFF; /* RESET ERROR FLAG @Y17XARX*/ 00024000 NI ERRX(ROPCE),B'11101111' 0260 00025000 * MSGNUM=ZERO; /* RESET ERROR NUMBER @Y17XARX*/ 00026000 SLR @15,@15 0261 00027000 STH @15,MSGNUM(,ROPCE) 0261 00028000 * OPCLDNME(4:5)=ERRMOD1; /* SET EXIT TO ERROR MOD */ 00029000 MVC OPCLDNME+3(2,ROPCAVT),ERRMOD1 0262 00030000 * IF OCRESP=OFF THEN /* TEST FOR NORMAL CMD ENTRY */ 00031000 TM OCRESP(ROPCE),B'00000001' 0263 00032000 BNZ @RF00263 0263 00033000 * DO; /* PROCESS INPUT COMMAND */ 00034000 * OCBACKUP=OPCDOUBL; /* SAVE GROUPNAME */ 00035000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0265 00036000 * OCGRPSW=OFF; /* GROUP PROCESS SWITCH RESET 0266 00037000 * @Y17XARX*/ 00038000 * 0266 00039000 NI OCGRPSW(ROPCE),B'11111011' 0266 00040000 * /*************************************************************/ 00041000 * /* */ 00042000 * /* CKCOMND - THIS SUBRTN WILL COMPLETE THE SCANNING OF THE */ 00043000 * /* INPUT COMMAND.IF NO ERROR IS FOUND, THE TERMINAL ENTRY FOR*/ 00044000 * /* THE LINE OR THE NEXT LINE IN THE GROUP WILL BE LOCATED AND*/ 00045000 * /* EXAMINED. */ 00046000 * /* */ 00047000 * /*************************************************************/ 00048000 * 0267 00049000 * IF RWORK6>ZERO THEN /* ANY OPERANDS LEFT TO SCAN */ 00050000 CR RWORK6,@15 0267 00051000 BNH @RF00267 0267 00052000 * DO; /* SCAN REST OF COMMAND */ 00053000 * IF FIELDR(1)^='6B'X&FIELDR(1)^='A' THEN/* NOT GROUP=ALL */ 00054000 CLI FIELDR(RWORK7),X'6B' 0269 00055000 BE @RF00269 0269 00056000 CLI FIELDR(RWORK7),C'A' 0269 00057000 BE @RF00269 0269 00058000 * IF FIELDR(1)>='F0'X THEN/* IS IT A VALID RLN? */ 00059000 CLI FIELDR(RWORK7),X'F0' 0270 00060000 BL @RF00270 0270 00061000 * DO; /* SCAN AND CONVERT THE RLN */ 00062000 * RWORK6=RWORK6-1; /* TEMP. LOC. FOR SCAN COUNT */ 00063000 BCTR RWORK6,0 0272 00064000 * RESPECIFY 0273 00065000 * COUNT RSTD; /* @Y17XARX*/ 00066000 * COUNT=1; /* SET RLN CHARACTER COUNT */ 00067000 LA COUNT,1 0274 00068000 * COUNTSW='1'B; /* SET START RLN COUNT SW */ 00069000 OI COUNTSW(ROPCE),B'00100000' 0275 00070000 * DO WHILE(COUNTSW='1'B);/* GET ALL RLN CHARACTERS */ 00071000 B @DE00276 0276 00072000 @DL00276 DS 0H 0277 00073000 * COUNT=COUNT+1; /* INCR.RLN CHARACTER COUNT */ 00074000 LA COUNT,1(,COUNT) 0277 00075000 * IF RWORK6=ZERO /* END OF COMMAND? */ 00076000 * |FIELDR(COUNT)='6B'X THEN/* OR END OF RLN 0278 00077000 * OPERAND */ 00078000 LTR RWORK6,RWORK6 0278 00079000 BZ @RT00278 0278 00080000 LR @11,RWORK7 0278 00081000 ALR @11,COUNT 0278 00082000 BCTR @11,0 0278 00083000 CLI FIELDR(@11),X'6B' 0278 00084000 BNE @RF00278 0278 00085000 @RT00278 DS 0H 0279 00086000 * COUNTSW=OFF; /* FOUND END OF RLN SWITCH- */ 00087000 NI COUNTSW(ROPCE),B'11011111' 0279 00088000 * ELSE /* CHECK VALIDITY OF OPERAND */ 00089000 * IF COUNT>3 /* INVALID RLN LENGTH ? */ 00090000 * |FIELDR(COUNT)<'F0'X THEN/* RLN=INVALID 0280 00091000 * CHAR */ 00092000 B @RC00278 0280 00093000 @RF00278 C COUNT,@CF00049 0280 00094000 BH @RT00280 0280 00095000 LR @11,RWORK7 0280 00096000 ALR @11,COUNT 0280 00097000 BCTR @11,0 0280 00098000 CLI FIELDR(@11),X'F0' 0280 00099000 BNL @RF00280 0280 00100000 @RT00280 DS 0H 0281 00101000 * DO; /* SET FOR ERROR EXIT */ 00102000 * MSGNUM=18;/* INVALID OPERAND MSG NUMBER */ 00103000 MVC MSGNUM(2,ROPCE),@CH00181 0282 00104000 * ERRX='1'B;/* SET ERROR SWITCH */ 00105000 * COUNTSW=OFF;/* SET TO GET OUT OF DO LOOP */ 00106000 OI ERRX(ROPCE),B'00010000' 0284 00107000 NI COUNTSW(ROPCE),B'11011111' 0284 00108000 * END; /* ERROR EXIT */ 00109000 * IF RWORK6^=ZERO THEN/* CONTINUE THE SCAN */ 00110000 @RF00280 DS 0H 0286 00111000 @RC00278 LTR RWORK6,RWORK6 0286 00112000 BZ @RF00286 0286 00113000 * RWORK6=RWORK6-1;/* DECR. SCAN LENGTH */ 00114000 BCTR RWORK6,0 0287 00115000 * END; /* ENDWHILE FOR FINDING RLN */ 00116000 @RF00286 DS 0H 0288 00117000 @DE00276 TM COUNTSW(ROPCE),B'00100000' 0288 00118000 BO @DL00276 0288 00119000 * IF ERRX=OFF THEN /* NO ERROR FOUND YET ? */ 00120000 TM ERRX(ROPCE),B'00010000' 0289 00121000 BNZ @RF00289 0289 00122000 * DO; /* STORE RLN,FIND @TTE */ 00123000 * OCBACKUP=OCBACKUP&&OCBACKUP;/* CLEAR FOR WORK */ 00124000 XC OCBACKUP(8,ROPCE),OCBACKUP(ROPCE) 0291 00125000 * COUNT=COUNT-1;/* DECR. COUNT FOR MOVE INSTR */ 00126000 BCTR COUNT,0 0292 00127000 * RESPECIFY 0293 00128000 * I RSTD; /* @Y17XARX*/ 00129000 * DO I=1 TO COUNT;/* STORE RLN FOR CONVERSION */ 00130000 LA I,1 0294 00131000 B @DE00294 0294 00132000 @DL00294 DS 0H 0295 00133000 * OCBACKUP(8-COUNT+I)=FIELDR(I);/* STORE RLN */ 00134000 LA @14,8 0295 00135000 SLR @14,COUNT 0295 00136000 ALR @14,I 0295 00137000 ALR @14,ROPCE 0295 00138000 LR @11,RWORK7 0295 00139000 ALR @11,I 0295 00140000 BCTR @11,0 0295 00141000 MVC OCBACKUP-1(1,@14),FIELDR(@11) 0295 00142000 * END; /* RLN IN OCBACKUP LAST WORD */ 00143000 AL I,@CF00045 0296 00144000 @DE00294 CR I,COUNT 0296 00145000 BNH @DL00294 0296 00146000 * RESPECIFY 0297 00147000 * I UNRSTD; /* @Y17XARX*/ 00148000 * PACK(OCBACKUP,OCBACKUP);/* PACK RLN */ 00149000 PACK OCBACKUP(8,ROPCE),OCBACKUP(8,ROPCE) 0298 00150000 * CVB(RWORK9,OCBACKUP);/* CONVERT TO BINARY -RLN */ 00151000 CVB RWORK9,OCBACKUP(,ROPCE) 0299 00152000 * OCBACKUP=OPCDOUBL;/* SAVE GROUPNAME */ 00153000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0300 00154000 * IF RWORK9=255 THEN/* IN RANGE */ 00155000 LTR RWORK9,RWORK9 0301 00156000 BNP @RT00301 0301 00157000 C RWORK9,@CF02008 0301 00158000 BNH @RF00301 0301 00159000 @RT00301 DS 0H 0302 00160000 * DO; 0302 00161000 * MSGNUM=18;/* RLN NOT WITHIN RANGE */ 00162000 MVC MSGNUM(2,ROPCE),@CH00181 0303 00163000 * ERRX='1'B;/* SET ERROR BIT */ 00164000 OI ERRX(ROPCE),B'00010000' 0304 00165000 * GO TO ERREXIT;/* TAKE ERROR EXIT */ 00166000 B ERREXIT 0305 00167000 * END; 0306 00168000 * ELSE 0307 00169000 * ; 0307 00170000 @RF00301 DS 0H 0308 00171000 * RWORK7=RWORK7+COUNT;/* UPDATE SCAN PTR */ 00172000 ALR RWORK7,COUNT 0308 00173000 * RESPECIFY 0309 00174000 * COUNT UNRSTD;/* @Y17XARX*/ 00175000 * IF FIELDR='6B'X THEN/* IF MORE OPERANDS TO 0310 00176000 * CHECK */ 00177000 CLI FIELDR(RWORK7),X'6B' 0310 00178000 BNE @RF00310 0310 00179000 * RWORK7=RWORK7+1;/* UPDATE PTR PASS COMMA */ 00180000 LA RWORK7,1(,RWORK7) 0311 00181000 * RWORK8=RWORK9;/* PARM TO CALLING RTN */ 00182000 @RF00310 LR RWORK8,RWORK9 0312 00183000 * CALL CALDCBLK;/* LGB,TTE LOOKUP CALLING RTN */ 00184000 BAL @14,CALDCBLK 0313 00185000 * IF MSGNUM^=ZERO THEN/* ERROR FROM DCBLOCAT? */ 00186000 LH @15,MSGNUM(,ROPCE) 0314 00187000 LTR @15,@15 0314 00188000 BZ @RF00314 0314 00189000 * ERRX='1'B; /* SET TO TAKE ERROR EXIT */ 00190000 OI ERRX(ROPCE),B'00010000' 0315 00191000 * END; 0316 00192000 * END; /* END RLN SCAN */ 00193000 * ELSE /* FIRST RLN CHAR INVALID */ 00194000 * DO; /* SET UP FOR ERROR EXIT */ 00195000 B @RC00270 0318 00196000 @RF00270 DS 0H 0319 00197000 * MSGNUM=18; /* INVALID OPERAND MSG NUMBER */ 00198000 MVC MSGNUM(2,ROPCE),@CH00181 0319 00199000 * ERRX='1'B; /* ERROR EXIT SWITCH SET */ 00200000 OI ERRX(ROPCE),B'00010000' 0320 00201000 * END; /* TAKE ERROR EXIT */ 00202000 * ELSE /* NO RLN OPERAND */ 00203000 * IF FIELDR='6B'X|(RWORK6>=3/* 'GRPNAME,' SPECIFIED ? */ 00204000 * &OPTNALL='ALL') THEN/* GRPNAME=ALL SPECIFIED */ 00205000 B @RC00269 0322 00206000 @RF00269 CLI FIELDR(RWORK7),X'6B' 0322 00207000 BE @RT00322 0322 00208000 C RWORK6,@CF00049 0322 00209000 BL @RF00322 0322 00210000 CLC OPTNALL(3,RWORK7),@CC02010 0322 00211000 BNE @RF00322 0322 00212000 @RT00322 DS 0H 0323 00213000 * DO; /* GROUP PROCESSING REQUESTED */ 00214000 * IF FIELDR^='6B'X THEN/* GRPNAME, SPECIFIED */ 00215000 CLI FIELDR(RWORK7),X'6B' 0324 00216000 BE @RF00324 0324 00217000 * DO; /* YES, UPDATE */ 00218000 * RWORK8=3; /* UPDATE FOR SCAN PTR */ 00219000 LA RWORK8,3 0326 00220000 * RWORK7=RWORK7+RWORK8;/* UPDATE SCAN PTR */ 00221000 ALR RWORK7,RWORK8 0327 00222000 * RWORK6=RWORK6-RWORK8;/* UPDATE LENGTH TO SCAN */ 00223000 SLR RWORK6,RWORK8 0328 00224000 * END; 0329 00225000 * IF RWORK6>ZERO&FIELDR='6B'X THEN/* MORE OPERANDS ? */ 00226000 @RF00324 LTR RWORK6,RWORK6 0330 00227000 BNP @RF00330 0330 00228000 CLI FIELDR(RWORK7),X'6B' 0330 00229000 BNE @RF00330 0330 00230000 * DO; /* BUMP PASS COMMA IF THERE */ 00231000 * RWORK6=RWORK6-1;/* DECR. BYTES TO SCAN */ 00232000 BCTR RWORK6,0 0332 00233000 * RWORK7=RWORK7+1;/* UPDATE SCAN PTR PASS ',' */ 00234000 LA RWORK7,1(,RWORK7) 0333 00235000 * END; 0334 00236000 * OCGRPSW='1'B; /* GROUP PROCESS SWITCH SET */ 00237000 @RF00330 OI OCGRPSW(ROPCE),B'00000100' 0335 00238000 * RSAVE=ADDR(OPCSAVE);/* SET SAVE AREA PTR @Y17XARX*/ 00239000 LA RSAVE,OPCSAVE(,ROPCAVT) 0336 00240000 * CALL TRMOFLOC; /* GET TTE FOR OPCDOUBL @Y17XARX*/ 00241000 L @15,OPCTOFLK(,ROPCAVT) 0337 00242000 BALR @14,@15 0337 00243000 * GO TO FOUNDTTE; /* TTE FOUND IN SEARCH @Y17XARX*/ 00244000 B FOUNDTTE 0338 00245000 *ERRORTTE: 0339 00246000 * ERRX='1'B; /* ERROR EXIT SWITCH SET @Y17XARX*/ 00247000 ERRORTTE OI ERRX(ROPCE),B'00010000' 0339 00248000 * MSGNUM=18; /* INVALID OPERAND MSG NUMBER 0340 00249000 * @Y17XARX*/ 00250000 MVC MSGNUM(2,ROPCE),@CH00181 0340 00251000 *FOUNDTTE: /* @Y17XARX*/ 00252000 * IF ERRX=OFF THEN /* IF NO ERROR YET @Y17XARX*/ 00253000 FOUNDTTE TM ERRX(ROPCE),B'00010000' 0341 00254000 BNZ @RF00341 0341 00255000 * DO; /* @Y17XARX*/ 00256000 * RTERM=RPARM; /* SET ADDR @Y17XARX*/ 00257000 LR RTERM,RPARM 0343 00258000 * IF TRMPROC=OFF&TRMPREF='1'B&TRMTYPE=TRMGRP/* IS 00259000 * IT GROUP TTE @Y17XARX*/ 00260000 * &TRMSUBST^=ZERO THEN/* WITH LINES @Y17XARX*/ 00261000 TM TRMPREF(RTERM),B'00010000' 0344 00262000 BNO @RF00344 0344 00263000 TM TRMPROC(RTERM),B'00100000' 0344 00264000 BNZ @RF00344 0344 00265000 LR @15,RTERM 0344 00266000 SL @15,@CF02042 0344 00267000 CLI TRMTYPE(@15),X'00' 0344 00268000 BNE @RF00344 0344 00269000 LH @15,TRMSUBST(,@15) 0344 00270000 N @15,@CF02051 0344 00271000 LTR @15,@15 0344 00272000 BZ @RF00344 0344 00273000 * DO; /* YES @Y17XARX*/ 00274000 * RPARM=TRMSUBST;/* GET TTCIN OF FIRST LINE 00275000 * @Y17XARX*/ 00276000 LR RPARM,@15 0346 00277000 * CALL GETNXT;/* GET TTE OF FIRST LINE 0347 00278000 * @Y17XARX*/ 00279000 BAL @14,GETNXT 0347 00280000 * END; /* @Y17XARX*/ 00281000 * ELSE /* NOT VALID GROUP @Y17XARX*/ 00282000 * DO; /* @Y17XARX*/ 00283000 B @RC00344 0349 00284000 @RF00344 DS 0H 0350 00285000 * ERRX='1'B;/* SET ERROR FLAG @Y17XARX*/ 00286000 OI ERRX(ROPCE),B'00010000' 0350 00287000 * MSGNUM=173;/* SET MSG NUMBER @Y17XARX*/ 00288000 MVC MSGNUM(2,ROPCE),@CH02015 0351 00289000 * END; /* @Y17XARX*/ 00290000 * END; /* @Y17XARX*/ 00291000 * END; /* GROUP PROCESS BEGUN */ 00292000 * ELSE /* GRPNAME SPECIFIED INVALID */ 00293000 * DO; /* SET TO TAKE ERROR EXIT */ 00294000 B @RC00322 0355 00295000 @RF00322 DS 0H 0356 00296000 * ERRX='1'B; /* ERROR EXIT SWITCH SET */ 00297000 OI ERRX(ROPCE),B'00010000' 0356 00298000 * MSGNUM=18; /* INVALID OPERAND MSG NUMBER */ 00299000 MVC MSGNUM(2,ROPCE),@CH00181 0357 00300000 * END; /* TAKE ERROR EXIT */ 00301000 * WRKSAVE2=RTERM; /* SAVE TTE PTR @Y17XARX*/ 00302000 @RC00322 DS 0H 0359 00303000 @RC00269 ST RTERM,WRKSAVE2(,ROPCE) 0359 00304000 * IF RWORK6>ZERO&ERRX=OFF THEN/* MORE TO SCAN & NO ERROR */ 00305000 LTR RWORK6,RWORK6 0360 00306000 BNP @RF00360 0360 00307000 TM ERRX(ROPCE),B'00010000' 0360 00308000 BNZ @RF00360 0360 00309000 * DO; /* CHECK FOR OPTIONAL OPERAND */ 00310000 * OPCLDNME(4:5)=ERRMOD2;/* SET UP FOR IGC0B10D EXIT */ 00311000 MVC OPCLDNME+3(2,ROPCAVT),ERRMOD2 0362 00312000 * IF RWORK6=4 /* SCAN LENGTH=4 ? */ 00313000 * &AUTOPTN='AUTO' THEN/* AND OPERAND IS AUTO */ 00314000 C RWORK6,@CF00054 0363 00315000 BNE @RF00363 0363 00316000 CLC AUTOPTN(4,RWORK7),@CC02016 0363 00317000 BNE @RF00363 0363 00318000 * AUTOSW='1'B; /* SET FOR AUTO DIAL REQUEST */ 00319000 OI AUTOSW(ROPCE),B'10000000' 0364 00320000 * ELSE /* NOT AUTO SPECIFICATION */ 00321000 * IF RWORK6=6 /* SCAN LENGTH=6 */ 00322000 * &MANLOPT='MANUAL' THEN/* AND MANUAL IS OPERAND */ 00323000 B @RC00363 0365 00324000 @RF00363 C RWORK6,@CF00052 0365 00325000 BNE @RF00365 0365 00326000 CLC MANLOPT(6,RWORK7),@CC02017 0365 00327000 BNE @RF00365 0365 00328000 * MANULSW='1'B; /* SET FOR MANUAL DIAL REQ. */ 00329000 OI MANULSW(ROPCE),B'01000000' 0366 00330000 * ELSE /* OTHERWISE, INVALID OPERAND */ 00331000 * DO; 0367 00332000 B @RC00365 0367 00333000 @RF00365 DS 0H 0368 00334000 * ERRX='1'B; /* SET TO TAKE ERROR EXIT */ 00335000 OI ERRX(ROPCE),B'00010000' 0368 00336000 * MSGNUM=433; /* INVALID OPTION MESSAGE */ 00337000 MVC MSGNUM(2,ROPCE),@CH02018 0369 00338000 * END; /* TAKE ERROR EXIT */ 00339000 * END; /* END OPTIONAL OPERAND CHECK */ 00340000 * ELSE /* NOTHING LEFT TO SCAN */ 00341000 * IF ERRX='1'B THEN /* ERROR SWITCH SET,EXIT */ 00342000 B @RC00360 0372 00343000 @RF00360 TM ERRX(ROPCE),B'00010000' 0372 00344000 BO @RT00372 0372 00345000 * GO TO ERREXIT; /* EXIT */ 00346000 * ELSE /* NO ERROR FOUND YET */ 00347000 * MANULSW='1'B; /* SET UP MANUAL DIAL DEFAULT */ 00348000 OI MANULSW(ROPCE),B'01000000' 0374 00349000 * END; /* END OPERAND SCAN */ 00350000 * ELSE /* NO OPERANDS AFTER GRPNAME */ 00351000 * DO; /* SET TO TAKE ERROR EXIT */ 00352000 B @RC00267 0376 00353000 @RF00267 DS 0H 0377 00354000 * ERRX='1'B; /* ERROR EXIT SWITCH SET */ 00355000 OI ERRX(ROPCE),B'00010000' 0377 00356000 * MSGNUM=18; /* INVALID OPERAND MSG NUMBER */ 00357000 MVC MSGNUM(2,ROPCE),@CH00181 0378 00358000 * END; /* TAKE ERROR EXIT */ 00359000 * IF ERRX=OFF THEN 0380 00360000 @RC00267 TM ERRX(ROPCE),B'00010000' 0380 00361000 BNZ @RF00380 0380 00362000 * DO; 0381 00363000 * RPARM=1; /* REQUEST ONLY ONE BUFFER */ 00364000 LA RPARM,1 0382 00365000 * RBRNCH=OPCGETBF; /* ADDR. ALLOCBUF SUBRTN */ 00366000 L RBRNCH,OPCGETBF(,ROPCAVT) 0383 00367000 * GEN(BALR RRETRN,RBRNCH GET BUFFER FOR BTU BUILD); 00368000 BALR RRETRN,RBRNCH GET BUFFER FOR BTU BUILD 00369000 * RPRFIX=RPARM; /* BUFFER UNIT ADDRESS */ 00370000 LR RPRFIX,RPARM 0385 00371000 * PRUTIC=INVALTIC; /* SET INVALID TIC FIELD */ 00372000 L @15,INVALTIC 0386 00373000 ST @15,PRUTIC(,IEDPRUQP) 0386 00374000 * CALL BUILDCPY; /* CALL TO BUILD COPY BTU */ 00375000 BAL @14,BUILDCPY 0387 00376000 * IF ERRX=OFF THEN /* IF NO ERRORS */ 00377000 TM ERRX(ROPCE),B'00010000' 0388 00378000 BZ @RT00388 0388 00379000 * GO TO EXIT1; /* EXIT: RETURN W/RESPONSE */ 00380000 * END; 0390 00381000 * GO TO ERREXIT; /* ERRX SWITCH SET TO ONE */ 00382000 B ERREXIT 0391 00383000 * END; /* TPOSTED COPY CMD/ EXITED */ 00384000 * ELSE /* ENTERED FOR RESPONSE BTU */ 00385000 * DO; /* RETURN BTU PROCESSING */ 00386000 @RF00263 DS 0H 0394 00387000 * RTERM=WRKSAVE2; /* RESTORE TTE PTR */ 00388000 L RTERM,WRKSAVE2(,ROPCE) 0394 00389000 * RPRFIX=OCUNIT; /* ADDRESS BUFFER UNIT */ 00390000 L RPRFIX,OCUNIT(,ROPCE) 0395 00391000 * IF PRURHSDI=OFF&PRUDATA(5)='60'X THEN/* NO ERROR RESPONSE 0396 00392000 * @Y17XARX*/ 00393000 LR @15,IEDPRUQP 0396 00394000 AL @15,@CF02054 0396 00395000 TM PRURHSDI(@15),B'00000100' 0396 00396000 BNZ @RF00396 0396 00397000 CLI PRUDATA+4(IEDPRUQP),X'60' 0396 00398000 BNE @RF00396 0396 00399000 * IF PRUDATA(2)='05'X THEN /* RESPONSE FOR COPY SESSION? 0397 00400000 * @Y17XARX*/ 00401000 CLI PRUDATA+1(IEDPRUQP),X'05' 0397 00402000 BNE @RF00397 0397 00403000 * DO; /* CHECK RESP & DEVICE RECORD */ 00404000 * 0398 00405000 * /*******************************************************/ 00406000 * /* */ 00407000 * /* CHECK RESPONSE FROM A COPY SESSION INITIATION */ 00408000 * /* COMMAND ISSUE A REPLACE COMMAND,IF NECESSARY. */ 00409000 * /* */ 00410000 * /*******************************************************/ 00411000 * 0399 00412000 * IF PRUDATCT>6 THEN /* IF TEXT IS RTRNED W/BTU 0399 00413000 * @Y17XARX*/ 00414000 LA @15,6 0399 00415000 CH @15,PRUDATCT(,IEDPRUQP) 0399 00416000 BNL @RF00399 0399 00417000 * DO; /* DETERMINE IF REPLACE */ 00418000 * TXTPTR=ADDR(PRUDATA)+6;/* GET ADDR. LINE INFORMAT'N*/ 00419000 LA TXTPTR,PRUDATA(,IEDPRUQP) 0401 00420000 ALR TXTPTR,@15 0401 00421000 * IF AUTOUNIT='1'B THEN/* IS AUTO UNIT AVAILABLE */ 00422000 TM AUTOUNIT(TXTPTR),B'10000000' 0402 00423000 BNO @RF00402 0402 00424000 * IF AUTOSW='1'B THEN/* AUTO DIAL REQUEST? */ 00425000 TM AUTOSW(ROPCE),B'10000000' 0403 00426000 BNO @RF00403 0403 00427000 * IF LINESW=OFF THEN/* LINE NOW IN MANUAL MODE */ 00428000 TM LINESW(TXTPTR),B'01000000' 0404 00429000 BNZ @RF00404 0404 00430000 * LINESW='1'B;/* PLACE LINE IN AUTO MODE */ 00431000 OI LINESW(TXTPTR),B'01000000' 0405 00432000 * ELSE /* LINE ALREADY IN AUTO DIAL */ 00433000 * DO; 0406 00434000 B @RC00404 0406 00435000 @RF00404 DS 0H 0407 00436000 * MSGNUM=431;/* SET MSG ALREADY AUTO DIAL */ 00437000 MVC MSGNUM(2,ROPCE),@CH02020 0407 00438000 * ERRX='1'B;/* SET TO TAKE ERROR EXIT */ 00439000 OI ERRX(ROPCE),B'00010000' 0408 00440000 * END; /* SET UP TO SEND MESSAGE */ 00441000 * ELSE /* OTHER REQUEST */ 00442000 * IF MANULSW='1'B THEN/* MANUAL DIAL MODE 0410 00443000 * REQUEST? */ 00444000 B @RC00403 0410 00445000 @RF00403 TM MANULSW(ROPCE),B'01000000' 0410 00446000 BNO @RF00410 0410 00447000 * IF LINESW='1'B THEN/* LINE NOW IN AUTO MODE ?*/ 00448000 TM LINESW(TXTPTR),B'01000000' 0411 00449000 BNO @RF00411 0411 00450000 * DO; /* SEE IF IEDPMD LOADED */ 00451000 * LINESW=OFF;/* PLACE LINE IN MANUAL DIAL */ 00452000 NI LINESW(TXTPTR),B'10111111' 0413 00453000 * IF SAVTMAND=ZERO THEN/* MAN'L DIAL IN 0414 00454000 * CORE */ 00455000 L @15,AVTSAVTP(,IEDQAPTR) 0414 00456000 L @15,SAVTMAND(,@15) 0414 00457000 LTR @15,@15 0414 00458000 BNZ @RF00414 0414 00459000 * DO; /* NO, THEN LOAD IT */ 00460000 * GEN(LOAD EP=IEDPMD);/* LOAD IEDPMD */ 00461000 LOAD EP=IEDPMD 00462000 * SAVTMAND=RZERO;/* PLACE ADDR IN SAVT */ 00463000 L @15,AVTSAVTP(,IEDQAPTR) 0417 00464000 ST RZERO,SAVTMAND(,@15) 0417 00465000 * END; 0418 00466000 * END; /* END CHECK FOR MAN'L DIAL */ 00467000 * ELSE /* ALREADY IN MANUAL MODE */ 00468000 * DO; /* SET UP MSG FOR ALREADY */ 00469000 B @RC00411 0420 00470000 @RF00411 DS 0H 0421 00471000 * MSGNUM=431;/* MANUAL DIAL MODE */ 00472000 MVC MSGNUM(2,ROPCE),@CH02020 0421 00473000 * ERRX='1'B;/* SET TO TAKE ERROR EXIT */ 00474000 OI ERRX(ROPCE),B'00010000' 0422 00475000 * END; 0423 00476000 * ELSE 0424 00477000 * ; /* NO REQUEST ? */ 00478000 @RF00410 DS 0H 0425 00479000 * ELSE /* NO AUTO UNIT,NO CHNGMODE */ 00480000 * DO; 0425 00481000 B @RC00402 0425 00482000 @RF00402 DS 0H 0426 00483000 * MSGNUM=430; /* ERR MSG FOR NO AUTO UNIT */ 00484000 MVC MSGNUM(2,ROPCE),@CH02021 0426 00485000 * ERRX='1'B; /* SET TO TAKE ERROR EXIT */ 00486000 OI ERRX(ROPCE),B'00010000' 0427 00487000 * END; 0428 00488000 * IF ERRX=OFF THEN /* NO ERRORS FOUND */ 00489000 @RC00402 TM ERRX(ROPCE),B'00010000' 0429 00490000 BNZ @RF00429 0429 00491000 * DO; /* ALRIGHT TO REPLACE SESSION*/ 00492000 * RWORK7=PRUDATCT;/* SAVE BTUCOUNT FOR SEND 0431 00493000 * @Y17XARX*/ 00494000 LH RWORK7,PRUDATCT(,IEDPRUQP) 0431 00495000 * CALL BUILDCPY;/* SET UP THE BTU IN BUFFER */ 00496000 BAL @14,BUILDCPY 0432 00497000 * PRUDATCT=RWORK7;/* RESTORE BTUCOUNT @Y17XARX*/ 00498000 STH RWORK7,PRUDATCT(,IEDPRUQP) 0433 00499000 * PRUDATA(2)='02'X;/* SET FOR REPLACE COMMAND 0434 00500000 * @Y17XARX*/ 00501000 MVI PRUDATA+1(IEDPRUQP),X'02' 0434 00502000 * GO TO EXIT1; /* XCTL TO BTU DISPATCHER */ 00503000 B EXIT1 0435 00504000 * END; /* REPLACE CMD ISSUED */ 00505000 * ELSE /* NO REPLACE FOR THIS LINE */ 00506000 * GO TO ERREXIT; /* SEE IF PROCESSING A GROUP */ 00507000 * END; /* END/RETURN COPY BTU */ 00508000 * ELSE 0439 00509000 * DO; 0439 00510000 @RF00399 DS 0H 0440 00511000 * ERRX='1'B; /* SET ERROR BIT ON */ 00512000 OI ERRX(ROPCE),B'00010000' 0440 00513000 * MSGNUM=199; /* SET SYSTEM ERROR */ 00514000 MVC MSGNUM(2,ROPCE),@CH02023 0441 00515000 * GO TO ERREXIT; /* GO TO ERROR EXIT */ 00516000 B ERREXIT 0442 00517000 * END; 0443 00518000 * END; /* TPOSTED REPL CMD/ EXITED */ 00519000 * ELSE /* NOT RESPONSE TOCOPY CMD */ 00520000 * IF PRUDATA(2)='02'X THEN/* RESPONSE FOR REPLACE CMD? */ 00521000 @RF00397 CLI PRUDATA+1(IEDPRUQP),X'02' 0445 00522000 BNE @RF00445 0445 00523000 * DO; /* DETERMINE IF PROCESSING */ 00524000 * 0446 00525000 * /*****************************************************/ 00526000 * /* */ 00527000 * /* CHECK RESPONSE TO REPLACE COMMAND. IF GOOD */ 00528000 * /* RESPONSE, AND NO GROUP IS BEING PROCESSED(OR END */ 00529000 * /* OF GROUP),THEN ISSUE MESSAGE FOR CHNGMODE */ 00530000 * /* COMPLETE. OTHERWISE,GET NEXT RLN TO PROCESS AND */ 00531000 * /* BUILD A COPY COMMAND. IF ERROR RESPONSE,ISSUE */ 00532000 * /* ERROR MESSAGE FIRST. */ 00533000 * /* */ 00534000 * /*****************************************************/ 00535000 * 0447 00536000 * IF OCGRPSW='1'B THEN/* GROUP BEING PROCESSED */ 00537000 TM OCGRPSW(ROPCE),B'00000100' 0447 00538000 BNO @RF00447 0447 00539000 * DO; /* SEE IF MORE TO COPY @Y17XARX*/ 00540000 * DO UNTIL(TRMTYPE=TRMGRP);/* TRY TO FIND A LINE 0449 00541000 * @Y17XARX*/ 00542000 @DL00449 DS 0H 0450 00543000 * RPARM=TRMCOHTG;/* GET TTCIN OF NXT LINE 0450 00544000 * @Y17XARX*/ 00545000 LR @15,RTERM 0450 00546000 AL @15,@CF02056 0450 00547000 LH RPARM,TRMCOHTG-8(,@15) 0450 00548000 N RPARM,@CF02051 0450 00549000 * CALL GETNXT; /* GET TTE OF NXT LINE @Y17XARX*/ 00550000 BAL @14,GETNXT 0451 00551000 * IF TRMTYPE=TRMNSDLC THEN/* IF NON-SNA LINE 0452 00552000 * @Y17XARX*/ 00553000 LR @15,RTERM 0452 00554000 AL @15,@CF00513 0452 00555000 CLI TRMTYPE-11(@15),X'20' 0452 00556000 BNE @RF00452 0452 00557000 * DO; /* @Y17XARX*/ 00558000 * CALL BUILDCPY;/* BUILD COPY CMMD @Y17XARX*/ 00559000 BAL @14,BUILDCPY 0454 00560000 * IF ERRX=OFF THEN 0455 00561000 TM ERRX(ROPCE),B'00010000' 0455 00562000 BZ @RT00455 0455 00563000 * GO TO EXIT1;/* IF NO ERROR, SEND @Y17XARX*/ 00564000 * END; /* @Y17XARX*/ 00565000 * END; /* @Y17XARX*/ 00566000 @RF00452 DS 0H 0458 00567000 @DE00449 LR @15,RTERM 0458 00568000 AL @15,@CF00513 0458 00569000 CLI TRMTYPE-11(@15),X'00' 0458 00570000 BNE @DL00449 0458 00571000 * IF ERRX='1'B THEN/* IF ERROR @Y17XARX*/ 00572000 TM ERRX(ROPCE),B'00010000' 0459 00573000 BO @RT00459 0459 00574000 * GO TO ERREXIT;/* PROCESS ERROR @Y17XARX*/ 00575000 * END; /* END SET UP FOR COPYNEW RLN */ 00576000 * OPCLDNME(4:5)=GOODMSGR;/* GOOD EXIT */ 00577000 @RF00447 MVC OPCLDNME+3(2,ROPCAVT),GOODMSGR 0462 00578000 * MSGNUM=432; /* GOOD MSG EXIT CODE */ 00579000 MVC MSGNUM(2,ROPCE),@CH02024 0463 00580000 * GO TO EXIT1; /* EXIT TO MSG MODULE */ 00581000 B EXIT1 0464 00582000 * END; /* */ 00583000 * ELSE /* UNSOLICITED BTU RESPONSE */ 00584000 * DO; /* ASSUME RETURN FOR GROUP */ 00585000 @RF00445 DS 0H 0467 00586000 * MSGNUM=199; /* ASSUME SYSTEM ERROR */ 00587000 MVC MSGNUM(2,ROPCE),@CH02023 0467 00588000 * ERRX='1'B; /* SET UP FOR ERR EXIT RTN */ 00589000 OI ERRX(ROPCE),B'00010000' 0468 00590000 * GO TO ERREXIT; /* GO TO ERROR PROCESS. RTN */ 00591000 B ERREXIT 0469 00592000 * END; 0470 00593000 * ELSE /* SYSTEM ERROR RESPONSE */ 00594000 * DO; /* HANDLE ERROR MESSAGE */ 00595000 @RF00396 DS 0H 0472 00596000 * MSGNUM=199; /* ASSUME SYSTEM ERROR */ 00597000 MVC MSGNUM(2,ROPCE),@CH02023 0472 00598000 *ERREXIT: 0473 00599000 * 0473 00600000 * /*********************************************************/ 00601000 * /* */ 00602000 * /* ERREXIT- IF THE ERRX SWITCH IS SET TO ONE, THEN */ 00603000 * /* CONTROL IS PASSED HERE FOR SENDING AN ERROR MESSAGE TO*/ 00604000 * /* THE CONSOLE OPERATOR. IF NO GROUP PROCESSING IS TO BE */ 00605000 * /* DONE THEN RETURN WILL NOT BE MADE TO THIS RTN FOR */ 00606000 * /* PROCESSING THE CHNGMODE COMMAND. IF THERE IS STILL */ 00607000 * /* GROUP PROCESSING TO BE DONE,DECIDE WHAT IS TO BE DONE */ 00608000 * /* AND CALL THE APPROPRIATE RTNS. */ 00609000 * /* */ 00610000 * /*********************************************************/ 00611000 * 0473 00612000 * ERRX=OFF; /* SET TO END ERROR PROCESS */ 00613000 ERREXIT NI ERRX(ROPCE),B'11101111' 0473 00614000 * OPCLDNME(4:5)=ERRMOD1; /* SET EXIT TO ERROR MOD @YM06962*/ 00615000 MVC OPCLDNME+3(2,ROPCAVT),ERRMOD1 0474 00616000 * IF MSGNUM=18|MSGNUM=17|MSGNUM=173/* EXISTING ERROR MSG 0475 00617000 * FOR CMD */ 00618000 * |MSGNUM=433 THEN /* INVALID OPTN SPECIFIED */ 00619000 LH @15,MSGNUM(,ROPCE) 0475 00620000 C @15,@CF00181 0475 00621000 BE @RT00475 0475 00622000 C @15,@CF02026 0475 00623000 BE @RT00475 0475 00624000 C @15,@CF02015 0475 00625000 BE @RT00475 0475 00626000 C @15,@CF02018 0475 00627000 BE @RT00475 0475 00628000 * GO TO EXIT1; /* EXIT TO ERR MOD '03' */ 00629000 * IF OCGRPSW='1'B THEN /* GROUP PROCESSING ? */ 00630000 TM OCGRPSW(ROPCE),B'00000100' 0477 00631000 BNO @RF00477 0477 00632000 * DO UNTIL(TRMTYPE=TRMGRP);/* TRY TO FIND A LINE @Y17XARX*/ 00633000 @DL00478 DS 0H 0479 00634000 * RPARM=TRMCOHTG; /* GET TTCIN OF NXT LINE @Y17XARX*/ 00635000 LR @15,RTERM 0479 00636000 AL @15,@CF02056 0479 00637000 LH RPARM,TRMCOHTG-8(,@15) 0479 00638000 N RPARM,@CF02051 0479 00639000 * CALL GETNXT; /* GET TTE OF NXT LINE @Y17XARX*/ 00640000 BAL @14,GETNXT 0480 00641000 * IF TRMTYPE=TRMNSDLC THEN/* IF NON-SNA LINE @Y17XARX*/ 00642000 LR @15,RTERM 0481 00643000 AL @15,@CF00513 0481 00644000 CLI TRMTYPE-11(@15),X'20' 0481 00645000 BNE @RF00481 0481 00646000 * DO; /* @Y17XARX*/ 00647000 * CALL BUILDCPY; /* BUILD COPY CMMD @Y17XARX*/ 00648000 BAL @14,BUILDCPY 0483 00649000 * IF ERRX=OFF THEN 0484 00650000 TM ERRX(ROPCE),B'00010000' 0484 00651000 BZ @RT00484 0484 00652000 * GO TO EXIT1; /* IF NO ERROR, SEND @Y17XARX*/ 00653000 * END; /* @Y17XARX*/ 00654000 * END; /* @Y17XARX*/ 00655000 * 0487 00656000 @RF00481 DS 0H 0487 00657000 @DE00478 LR @15,RTERM 0487 00658000 AL @15,@CF00513 0487 00659000 CLI TRMTYPE-11(@15),X'00' 0487 00660000 BNE @DL00478 0487 00661000 * /*********************************************************/ 00662000 * /* */ 00663000 * /* WRITE FINAL MESSAGE */ 00664000 * /* */ 00665000 * /*********************************************************/ 00666000 * 0488 00667000 * GO TO EXIT1; 0488 00668000 B EXIT1 0488 00669000 * END; /* ERROR EXITED */ 00670000 * END; /* END RETURN BTU PROCESSING */ 00671000 * 0491 00672000 * /*****************************************************************/ 00673000 * /* */ 00674000 * /* THIS ROUTINE WILL CALL THE DCBLOCAT ROUTINE TO FIND THE LGB */ 00675000 * /* AND TERMINAL ENTRY ADDRESSES. IT ASSUMES R1 CONTAINS THE */ 00676000 * /* RELATIVE LINE NUMBER. ROUTINE PASSES CONTROL TO DCBLOCAT WITH */ 00677000 * /* THE FOLLOWING PARAMETERS: R1 = 0 (OPCDOUBL CONTAINS EBCDIC */ 00678000 * /* RLN) R1 = RLN (OPCDOUBL HAS DDNAME) R2 = PTR TO OP CONTROL AVT*/ 00679000 * /* R3 = PTR TO OPCE R4 = PTR TO TCAM AVT R13= PTR TO OP CONTROL */ 00680000 * /* SAVE AREA R14= RETURN ADDRESS UPON GOOD RETURN FROM DCBLOCAT, */ 00681000 * /* THIS ROUTINE WILL RETURN TO ITS CALLER. UPON ERROR RETURN, THE*/ 00682000 * /* ERROR EXIT INDICAT- OR WILL BE SET AND A MSG NUMBER SELECTED */ 00683000 * /* BEFORE RETURNING TO THE CALLER. NORMAL RETURN: R0 = UCB */ 00684000 * /* ADDRESS R1 = DCB ADDRESS OPCE CONTAINS THE RLN IF GROUPNAME, */ 00685000 * /* RLN LOOKUP THEN: R0 = LINE ENTRY ADDRESS R1 = LGB ADDRESS */ 00686000 * /* ABNORMAL RETURN: R0 = RETURN CODE */ 00687000 * /* */ 00688000 * /*****************************************************************/ 00689000 * 0491 00690000 *CALDCBLK: 0491 00691000 * WORKSAVE=RRETRN; /* SAVE RETURN ADDRESS */ 00692000 CALDCBLK STCM RRETRN,7,WORKSAVE(ROPCE) 0491 00693000 * RBRNCH=OPCDCBLK; /* DCBLOCAT RTN ADDRESS */ 00694000 L RBRNCH,OPCDCBLK(,ROPCAVT) 0492 00695000 * RPARM=RWORK8; /* RLN-SPECIFIED/NEXT/DUMMY */ 00696000 LR RPARM,RWORK8 0493 00697000 * GEN(BALR RRETRN,RBRNCH CALL DCBLOCAT); 0494 00698000 BALR RRETRN,RBRNCH CALL DCBLOCAT 00699000 * BC(15,GOODRTRN); /* RETURN IF NO ERROR FOUND */ 00700000 BC 15,GOODRTRN 0495 00701000 *BADRTRN: /* ERROR RETURN FROM DCBLOCAT */ 00702000 * IF RZERO='20'X /* IF ERROR CODE=X'20' */ 00703000 * |RZERO=4 THEN /* NAME NOT FOUND */ 00704000 BADRTRN C RZERO,@CF00411 0496 00705000 BE @RT00496 0496 00706000 C RZERO,@CF00054 0496 00707000 BNE @RF00496 0496 00708000 @RT00496 DS 0H 0497 00709000 * MSGNUM=173; /* MSG FOR INVALID GROUP */ 00710000 MVC MSGNUM(2,ROPCE),@CH02015 0497 00711000 * ELSE /* NOT INVALID GROUP PROBLEM */ 00712000 * MSGNUM=17; /* DCB NOT OPEN MESSAGE */ 00713000 B @RC00496 0498 00714000 @RF00496 MVC MSGNUM(2,ROPCE),@CH02026 0498 00715000 * RRETRN=WORKSAVE; /* RESTORE RETURN ADDRESS */ 00716000 @RC00496 L RRETRN,WORKSAVE-1(,ROPCE) 0499 00717000 LA RRETRN,0(,RRETRN) 0499 00718000 * GEN(BR RRETRN RETURN TO CALLER); 0500 00719000 BR RRETRN RETURN TO CALLER 00720000 *GOODRTRN: /* NO ERROR FROM DCBLOCAT */ 00721000 * RESPECIFY 0501 00722000 * RZERO RESTRICTED; 0501 00723000 GOODRTRN DS 0H 0502 00724000 * RTERM=RZERO; /* ADDR. TTE */ 00725000 LR RTERM,RZERO 0502 00726000 * RESPECIFY 0503 00727000 * RZERO UNRESTRICTED; 0503 00728000 * RRETRN=WORKSAVE; /* RESTORE RETURN ADDRESS */ 00729000 L RRETRN,WORKSAVE-1(,ROPCE) 0504 00730000 LA RRETRN,0(,RRETRN) 0504 00731000 * GEN(BR RRETRN RETURN TO CALLER); 0505 00732000 BR RRETRN RETURN TO CALLER 00733000 * 0506 00734000 */********************************************************************/ 00735000 */* SET UP FOR ISUING A COPY SESSION INITIATION COMMAND */ 00736000 */********************************************************************/ 00737000 * 0506 00738000 *BUILDCPY: 0506 00739000 * WORKSAVE=RRETRN; /* SAVE RETURN ADDRESS */ 00740000 BUILDCPY STCM RRETRN,7,WORKSAVE(ROPCE) 0506 00741000 * OCUNIT=RPRFIX; /* SET UP BUFFER ADDR.FOR 02 */ 00742000 ST RPRFIX,OCUNIT(,ROPCE) 0507 00743000 * RESPECIFY 0508 00744000 * RZERO RESTRICTED; /* @Y17XARX*/ 00745000 * RESPECIFY 0509 00746000 * RPARM RESTRICTED; /* @Y17XARX*/ 00747000 * IF TRMTYPE=TRMNSDLC&TRMCOHRT^=ZERO THEN/* IF NON-SNA LINE W NCP 00748000 * @Y17XARX*/ 00749000 LR @15,RTERM 0510 00750000 SL @15,@CF02042 0510 00751000 CLI TRMTYPE(@15),X'20' 0510 00752000 BNE @RF00510 0510 00753000 LH @15,TRMCOHRT(,@15) 0510 00754000 N @15,@CF02051 0510 00755000 LTR @15,@15 0510 00756000 BZ @RF00510 0510 00757000 * DO; /* YES @Y17XARX*/ 00758000 * RPARM=RTERM; /* SET TTE PTR @Y17XARX*/ 00759000 LR RPARM,RTERM 0512 00760000 * RSAVE=ADDR(OPCSAVE); /* SET SAVE PTR @Y17XARX*/ 00761000 LA RSAVE,OPCSAVE(,ROPCAVT) 0513 00762000 * CALL COHORTLK; /* GET NCP TTE @Y17XARX*/ 00763000 L @15,OPCHORT(,ROPCAVT) 0514 00764000 BALR @14,@15 0514 00765000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO NEG PREFIX @YM06961*/ 00766000 LA @15,14 0515 00767000 SLR RPARM,@15 0515 00768000 * IF RPARM->TRMINPG='1'B THEN /* NCP IN PROG @Y17XARX*/ 00769000 TM TRMINPG(RPARM),B'00100000' 0516 00770000 BNO @RF00516 0516 00771000 * DO; /* YES @Y17XARX*/ 00772000 * RFY 0518 00773000 * IHADCB BASED(RPARM); /* DCB DSECT @XM05704*/ 00774000 * RPARM=RPARM+LENGTH(IEDNTRM);/* BACK TO TTE DSECT @XM05704*/ 00775000 ALR RPARM,@15 0519 00776000 * RPARM=RPARM->TRMDESTQ->QCBDCBAD;/* GET THE DEB ADDR */ 00777000 L @15,TRMDESTQ-1(,RPARM) 0520 00778000 L @15,QCBDCBAD-1(,@15) 0520 00779000 LA @15,0(,@15) 0520 00780000 LR RPARM,@15 0520 00781000 * RPARM=DCBDEBAD; /* GET DEB ADDR @XM05704*/ 00782000 L @15,DCBDEBAD+40(,RPARM) 0521 00783000 LR RPARM,@15 0521 00784000 * RFY 0522 00785000 * IHADCB BASED; 0522 00786000 * RFY 0523 00787000 * IEDQDEB BASED(RPARM); 0523 00788000 * RPARM=RPARM-(ADDR(DEBNMSUB)-ADDR(IEDQDEB));/* BACKUP */ 00789000 SL RPARM,@CF01221 0524 00790000 * OCBACKUP=''B; /* CLEAR TO INSERT THE UCB 0525 00791000 * ADDRESS */ 00792000 XC OCBACKUP(8,ROPCE),OCBACKUP(ROPCE) 0525 00793000 * OCBACKUP(1:3)=DEBUCBAD->UCBNAME;/* GET UCB ADDR */ 00794000 L @15,DEBUCBAD-1(,RPARM) 0526 00795000 MVC OCBACKUP(3,ROPCE),UCBNAME(@15) 0526 00796000 * MSGNUM=INPROGM; /* SET MSG NUMBER @Y17XARX*/ 00797000 MVC MSGNUM(2,ROPCE),@CH00124 0527 00798000 * ERRX='1'B; /* SET ERROR EXIT @Y17XARX*/ 00799000 OI ERRX(ROPCE),B'00010000' 0528 00800000 * OCTRMTBL=RZERO; /* SET NCP TTCIN @Y17XARX*/ 00801000 STH RZERO,OCTRMTBL(,ROPCE) 0529 00802000 * END; /* @Y17XARX*/ 00803000 * END; /* @Y17XARX*/ 00804000 * ELSE /* TTE NOT CONCECTED TO NCP 0532 00805000 * @Y17XARX*/ 00806000 * DO; /* @Y17XARX*/ 00807000 B @RC00510 0532 00808000 @RF00510 DS 0H 0533 00809000 * ERRX='1'B; /* SET ERROR EXIT @Y17XARX*/ 00810000 OI ERRX(ROPCE),B'00010000' 0533 00811000 * IF TRMTYPE=TRMSDLC THEN /* IF SNA LINE @Y17XARX*/ 00812000 LR @15,RTERM 0534 00813000 AL @15,@CF00513 0534 00814000 CLI TRMTYPE-11(@15),X'21' 0534 00815000 BNE @RF00534 0534 00816000 * MSGNUM=18; /* INVALID OPERAND MESSAGE 0535 00817000 * @Y17XARX*/ 00818000 MVC MSGNUM(2,ROPCE),@CH00181 0535 00819000 * ELSE /* NO HIERARCHY @Y17XARX*/ 00820000 * MSGNUM=NCPNOTA; /* SET MSG NUMBER @Y17XARX*/ 00821000 B @RC00534 0536 00822000 @RF00534 MVC MSGNUM(2,ROPCE),@CH00126 0536 00823000 * END; /* @Y17XARX*/ 00824000 @RC00534 DS 0H 0538 00825000 * IF ERRX=OFF THEN /* IF NO ERRORS @Y17XARX*/ 00826000 @RC00510 TM ERRX(ROPCE),B'00010000' 0538 00827000 BNZ @RF00538 0538 00828000 * DO; /* @Y17XARX*/ 00829000 * RESPECIFY 0540 00830000 * RPARM UNRESTRICTED; /* @Y17XARX*/ 00831000 * RESPECIFY 0541 00832000 * RZERO UNRESTRICTED; /* @Y17XARX*/ 00833000 * PRURHTH=FID0PRUH; /* SET UP FID0 RH/TH */ 00834000 L @01,FID0PRUH 0542 00835000 LR @15,IEDPRUQP 0542 00836000 AL @15,@CF02054 0542 00837000 ST @01,PRURHTH(,@15) 0542 00838000 * PRUTTCIN=OCTRMTBL; /* SET UP DESTINATION */ 00839000 LH @01,OCTRMTBL(,ROPCE) 0543 00840000 N @01,@CF02051 0543 00841000 STH @01,PRUTTCIN(,IEDPRUQP) 0543 00842000 * PRUDATCT=6; /* SET DATA COUNT */ 00843000 MVC PRUDATCT(2,IEDPRUQP),@CH00052 0544 00844000 * PRUDATA(1:2)=COPYDSII; /* SET UP COPY CMMD */ 00845000 MVC PRUDATA(2,IEDPRUQP),COPYDSII 0545 00846000 * PRUDATA(3:6)=ZERO; /* CLEAR FLAGS AND RESP */ 00847000 SLR @01,@01 0546 00848000 STCM @01,15,PRUDATA+2(IEDPRUQP) 0546 00849000 * OCACTREQ='1'B; /* SET NO 02 NCP CHECKS */ 00850000 OI OCACTREQ(ROPCE),B'00001000' 0547 00851000 * OPCLDNME(4:5)=BTUDISP; /* MODULE ID CHARS FOR 02 */ 00852000 MVC OPCLDNME+3(2,ROPCAVT),BTUDISP 0548 00853000 * OCWTG=MVRTN; /* THIS RTN IS WHERE TO GO */ 00854000 MVC OCWTG(2,ROPCE),MVRTN 0549 00855000 * END; /* @YM06961*/ 00856000 * RRETRN=WORKSAVE; /* RESTORE RETURN ADDRESS */ 00857000 @RF00538 L RRETRN,WORKSAVE-1(,ROPCE) 0551 00858000 LA RRETRN,0(,RRETRN) 0551 00859000 * GEN(BR RRETRN); 0552 00860000 BR RRETRN 00861000 *GETNXT: 0553 00862000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA);/* @Y17XARX*/ 00863000 B @PB00002 0553 00864000 GETNXT DS 0H 0554 00865000 * RESPECIFY 0554 00866000 * (ROPCE, 0554 00867000 * RPARM, 0554 00868000 * IEDQAPTR, 0554 00869000 * RTERM) RSTD; /* @Y17XARR*/ 00870000 * WORKSAVE=RRETRN; /* SAVE RTRN REG @Y17XARX*/ 00871000 STCM RRETRN,7,WORKSAVE(ROPCE) 0555 00872000 * OCTRMTBL=RPARM; /* SAVE TTCIN @Y17XARX*/ 00873000 STH RPARM,OCTRMTBL(,ROPCE) 0556 00874000 * CALL TNTLOOK; /* GET TTE @Y17XARX*/ 00875000 L @15,AVTRNMPT(,IEDQAPTR) 0557 00876000 BALR @14,@15 0557 00877000 * RTERM=RPARM; /* SET ADDR OF TTE @Y17XARX*/ 00878000 LR RTERM,RPARM 0558 00879000 * WRKSAVE2=RTERM; /* SAVE TTE PTR @Y17XARX*/ 00880000 ST RTERM,WRKSAVE2(,ROPCE) 0559 00881000 * OCRLN=TRMDESTQ->QCBRELLN; /* SAVE RLN NO @Y17XARR*/ 00882000 L @15,TRMDESTQ-1(,RTERM) 0560 00883000 IC @14,QCBRELLN(,@15) 0560 00884000 STC @14,OCRLN(,ROPCE) 0560 00885000 * RRETRN=WORKSAVE; /* RESTORE RTRN REG @Y17XARX*/ 00886000 L RRETRN,WORKSAVE-1(,ROPCE) 0561 00887000 LA RRETRN,0(,RRETRN) 0561 00888000 * RETURN; /* RETURN @Y17XARX*/ 00889000 @EL00002 DS 0H 0562 00890000 @EF00002 DS 0H 0562 00891000 @ER00002 BR @14 0562 00892000 * END; /* @Y17XARX*/ 00893000 @PB00002 DS 0H 0564 00894000 *EXIT1: 0564 00895000 * 0564 00896000 */********************************************************************/ 00897000 */* EXIT WILL BE MADE TO ONE OF THE MODULES LISTED BELOW */ 00898000 */* IGC0210D */ 00899000 */* IGC0310D */ 00900000 */* IGC0B10D */ 00901000 */* IGC0D10D */ 00902000 */********************************************************************/ 00903000 * 0564 00904000 * RMSGNO=MSGNUM; /* ERROR MSG NO= PARAMETER */ 00905000 EXIT1 LH @15,MSGNUM(,ROPCE) 0564 00906000 LR RMSGNO,@15 0564 00907000 * IF MSGNUM=432&OCGRPSW='1'B THEN /* IF GOODMSG AND 'GRPNAME' */ 00908000 C @15,@CF02024 0565 00909000 BNE @RF00565 0565 00910000 TM OCGRPSW(ROPCE),B'00000100' 0565 00911000 BNO @RF00565 0565 00912000 * OCRLN='00'X; /* SET 'ALL' FOR MSG MODULE */ 00913000 MVI OCRLN(ROPCE),X'00' 0566 00914000 * RPARM=ROPCAVT; /* ADDR. OPCAVT AS PARAM */ 00915000 @RF00565 LR RPARM,ROPCAVT 0567 00916000 * GEN REFS(OPCXCTL)(XCTL SF=(E,OPCXCTL(ROPCAVT)));/* XCTL TO NEXT 00917000 * OP CNTRL MOD @Y17XARX*/ 00918000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00919000 * END IGCMV10D 0569 00920000 * 0569 00921000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00922000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00923000 */*%INCLUDE SYSLIB (TOPCED ) */ 00924000 */*%INCLUDE SYSLIB (TAVTD ) */ 00925000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00926000 */*%INCLUDE SYSLIB (IHADCB ) */ 00927000 */*%INCLUDE SYSLIB (TDEBD ) */ 00928000 */*%INCLUDE SYSLIB (TPRUD ) */ 00929000 */*%INCLUDE SYSLIB (TQCBD ) */ 00930000 */*%INCLUDE SYSLIB (TTRMD ) */ 00931000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00932000 * 0569 00933000 * ; 0569 00934000 @EL00001 DS 0H 0569 00935000 @EF00001 DS 0H 0569 00936000 @ER00001 BR @14 0569 00937000 @DATA DS 0H 00938000 @CH02023 DC H'199' 00939000 @CH00124 DC H'210' 00940000 @CH00126 DC H'400' 00941000 @CH02021 DC H'430' 00942000 @CH02020 DC H'431' 00943000 DS 0F 00944000 DS 0F 00945000 @CF00045 DC F'1' 00946000 @CF00049 DC F'3' 00947000 @CF00054 DC F'4' 00948000 @CF00052 DC F'6' 00949000 @CH00052 EQU @CF00052+2 00950000 @CF02042 DC F'14' 00951000 @CF02026 DC F'17' 00952000 @CH02026 EQU @CF02026+2 00953000 @CF00181 DC F'18' 00954000 @CH00181 EQU @CF00181+2 00955000 @CF01221 DC F'36' 00956000 @CF02015 DC F'173' 00957000 @CH02015 EQU @CF02015+2 00958000 @CF02008 DC F'255' 00959000 @CF02024 DC F'432' 00960000 @CH02024 EQU @CF02024+2 00961000 @CF02018 DC F'433' 00962000 @CH02018 EQU @CF02018+2 00963000 @CF02054 DC F'-8' 00964000 @CF02056 DC F'-6' 00965000 @CF00513 DC F'-3' 00966000 @CF02051 DC XL4'0000FFFF' 00967000 @CF00411 DC XL4'20' 00968000 DS 0D 00969000 FID0PRUH DC XL4'0B80000C' 00970000 INVALTIC DC XL4'08000002' 00971000 COPYDSII DC XL2'0805' 00972000 @CC02017 DC C'MANUAL' 00973000 @CC02016 DC C'AUTO' 00974000 @CC02010 DC C'ALL' 00975000 BTUDISP DC CL2'02' 00976000 ERRMOD1 DC CL2'03' 00977000 ERRMOD2 DC CL2'0B' 00978000 GOODMSGR DC CL2'0D' 00979000 MVRTN DC CL2'MV' 00980000 ZAPAREA DC 50X'00' 00981000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00982000 @01 EQU 01 00983000 @02 EQU 02 00984000 @03 EQU 03 00985000 @04 EQU 04 00986000 @05 EQU 05 00987000 @06 EQU 06 00988000 @07 EQU 07 00989000 @08 EQU 08 00990000 @09 EQU 09 00991000 @10 EQU 10 00992000 @11 EQU 11 00993000 @12 EQU 12 00994000 @13 EQU 13 00995000 @14 EQU 14 00996000 @15 EQU 15 00997000 RPARM EQU @01 00998000 RZERO EQU @00 00999000 RMSGNO EQU @00 01000000 ROPCAVT EQU @02 01001000 ROPCE EQU @03 01002000 IEDQAPTR EQU @04 01003000 RWORKA EQU @05 01004000 RWORK6 EQU @06 01005000 RWORK7 EQU @07 01006000 TXTPTR EQU @05 01007000 IEDQTPTR EQU @06 01008000 IEDPRUQP EQU @09 01009000 RTERM EQU @08 01010000 RPRFIX EQU @09 01011000 I EQU @15 01012000 RWORK8 EQU @08 01013000 RWORK9 EQU @09 01014000 RSAVE EQU @13 01015000 RRETRN EQU @14 01016000 RBRNCH EQU @15 01017000 COUNT EQU @10 01018000 IEDQPPTR EQU @06 01019000 ENTRY BUILDCPY 01020000 ENTRY CALDCBLK 01021000 FIELDR EQU 0 01022000 DEFNFLD1 EQU 0 01023000 RLNOPTN EQU DEFNFLD1 01024000 OPTNALL EQU RLNOPTN 01025000 DEFNFLD2 EQU 0 01026000 MANLOPT EQU DEFNFLD2 01027000 AUTOPTN EQU MANLOPT 01028000 CPYTEXT EQU 0 01029000 AUTOUNIT EQU CPYTEXT 01030000 LINESW EQU CPYTEXT 01031000 IEDQDPTR EQU 0 01032000 IEDQQPTR EQU 0 01033000 TRMOFLOC EQU 0 01034000 COHORTLK EQU 0 01035000 TNTLOOK EQU 0 01036000 IEDQOPCD EQU 0 01037000 OPCDOUBL EQU IEDQOPCD 01038000 OPCAVTPT EQU IEDQOPCD+8 01039000 OPCCOPCE EQU IEDQOPCD+12 01040000 OPCDCBLK EQU IEDQOPCD+16 01041000 OPCTOFLK EQU IEDQOPCD+24 01042000 OPCSAVE EQU IEDQOPCD+56 01043000 OPCWORK EQU IEDQOPCD+140 01044000 OPCAQCTL EQU IEDQOPCD+180 01045000 OPCXCTL EQU IEDQOPCD+204 01046000 OPCLDNME EQU IEDQOPCD+212 01047000 OPCHORT EQU IEDQOPCD+256 01048000 OPCGETBF EQU IEDQOPCD+276 01049000 OPCSPEC EQU IEDQOPCD+300 01050000 OPCPWCOB EQU IEDQOPCD+368 01051000 OPCPWQCB EQU OPCPWCOB 01052000 OPCPWECB EQU OPCPWCOB+4 01053000 IEDQOPCE EQU 0 01054000 OCELEM EQU IEDQOPCE+4 01055000 OCUNIT EQU IEDQOPCE+8 01056000 OCRUDEST EQU OCUNIT 01057000 OCCKPKEY EQU OCRUDEST 01058000 OCSCAN EQU OCCKPKEY 01059000 OCOPTCDE EQU IEDQOPCE+12 01060000 OCSWITCH EQU IEDQOPCE+13 01061000 OCFLAG EQU IEDQOPCE+14 01062000 OCRESP EQU OCFLAG 01063000 OCRLN EQU IEDQOPCE+15 01064000 @NM00018 EQU IEDQOPCE+16 01065000 OCDEST EQU @NM00018 01066000 OCREQVAL EQU OCDEST+1 01067000 OCTRMTBL EQU IEDQOPCE+20 01068000 OCLINENO EQU IEDQOPCE+22 01069000 OCTIOT EQU OCLINENO 01070000 OCTRUNIT EQU IEDQOPCE+24 01071000 OCRSID EQU OCTRUNIT 01072000 OCALSTAT EQU OCRSID 01073000 OCACTREQ EQU OCALSTAT 01074000 OCPARM EQU IEDQOPCE+28 01075000 OCWTG EQU IEDQOPCE+30 01076000 OCBACKUP EQU IEDQOPCE+32 01077000 OCMODNME EQU IEDQOPCE+40 01078000 OCIPLWA EQU OCMODNME 01079000 OCCKDATA EQU IEDQOPCE+48 01080000 OCRSTGTM EQU OCCKDATA 01081000 IEDQOPCN EQU 0 01082000 OCLDNME EQU IEDQOPCN 01083000 OCLINTTE EQU OCLDNME 01084000 OCREQFLG EQU OCLINTTE+2 01085000 OCPREFLG EQU OCLINTTE+3 01086000 IEDQAVTD EQU 0 01087000 AVTSAVEX EQU IEDQAVTD+288 01088000 @NM00031 EQU IEDQAVTD+388 01089000 AVTCKFLG EQU @NM00031 01090000 AVTBASE EQU IEDQAVTD+412 01091000 AVTPKF EQU AVTBASE 01092000 AVTRNMPT EQU IEDQAVTD+424 01093000 AVTOSECB EQU IEDQAVTD+492 01094000 AVTECB1 EQU AVTOSECB 01095000 AVTHG02 EQU IEDQAVTD+528 01096000 AVTDISP EQU IEDQAVTD+552 01097000 AVTHD EQU IEDQAVTD+556 01098000 AVTSCOPT EQU AVTHD 01099000 AVTSAVTP EQU IEDQAVTD+612 01100000 AVTSAVTF EQU AVTSAVTP 01101000 AVTCKPEL EQU IEDQAVTD+652 01102000 AVTCKRMV EQU AVTCKPEL 01103000 AVTCKELF EQU IEDQAVTD+680 01104000 AVTCKBYT EQU IEDQAVTD+691 01105000 AVTHG01 EQU IEDQAVTD+692 01106000 AVTCKLNK EQU IEDQAVTD+696 01107000 AVTCRELE EQU IEDQAVTD+708 01108000 AVTCCELE EQU AVTCRELE 01109000 AVTCLRHI EQU IEDQAVTD+716 01110000 AVTADBUF EQU IEDQAVTD+720 01111000 AVTSYSER EQU IEDQAVTD+728 01112000 AVTCKPQB EQU IEDQAVTD+804 01113000 AVTCKPTB EQU AVTCKPQB 01114000 AVTCKPEC EQU AVTCKPQB+4 01115000 AVTCKPCC EQU AVTCKPEC 01116000 AVTOPCQB EQU IEDQAVTD+816 01117000 AVTOPCOB EQU AVTOPCQB 01118000 AVTOPCEC EQU AVTOPCQB+4 01119000 AVTOPCCC EQU AVTOPCEC 01120000 AVTOLTQB EQU IEDQAVTD+828 01121000 AVTCWFL1 EQU IEDQAVTD+924 01122000 AVTCWFL2 EQU IEDQAVTD+925 01123000 AVTSUBT EQU IEDQAVTD+948 01124000 AVTIOTR EQU IEDQAVTD+949 01125000 AVTBIT1 EQU IEDQAVTD+1050 01126000 AVTBIT2 EQU IEDQAVTD+1051 01127000 AVTBIT3 EQU IEDQAVTD+1052 01128000 AVTBIT4 EQU IEDQAVTD+1136 01129000 @NM00113 EQU IEDQAVTD+1232 01130000 IEDNSVTD EQU 0 01131000 SAVTDIAG EQU IEDNSVTD 01132000 SAVTDIAF EQU SAVTDIAG 01133000 SAVTLUSQ EQU IEDNSVTD+88 01134000 SAVTMAND EQU IEDNSVTD+228 01135000 SAVTTCPU EQU IEDNSVTD+238 01136000 SAVTZELM EQU IEDNSVTD+270 01137000 SAVTRDRV EQU IEDNSVTD+284 01138000 SAVTCKQB EQU IEDNSVTD+300 01139000 SAVTCKTB EQU SAVTCKQB 01140000 SAVTCKEC EQU SAVTCKQB+4 01141000 SAVTCKCC EQU SAVTCKEC 01142000 IHADCB EQU 0 01143000 IHADCS1A EQU 0 01144000 DCBBCKUP EQU IHADCS1A+8 01145000 IHADCS2K EQU 0 01146000 DCBDUMPD EQU IHADCS2K 01147000 DCBTRSTA EQU IHADCS2K+5 01148000 DCBDSORG EQU IHADCS2K+6 01149000 DCBDSRG2 EQU DCBDSORG+1 01150000 DCBRNCKD EQU IHADCS2K+12 01151000 DCBEXLST EQU IHADCS2K+16 01152000 IHADCS24 EQU 0 01153000 DCBOFLGS EQU IHADCS24+8 01154000 DCBOFLWR EQU DCBOFLGS 01155000 DCBIFLG EQU IHADCS24+9 01156000 DCBIBPCT EQU DCBIFLG 01157000 DCBMACR EQU IHADCS24+10 01158000 DCBMACR1 EQU DCBMACR 01159000 DCBMRFE EQU DCBMACR1 01160000 DCBMRGET EQU DCBMRFE 01161000 DCBMRAPG EQU DCBMACR1 01162000 DCBMRRD EQU DCBMRAPG 01163000 DCBMRCI EQU DCBMACR1 01164000 DCBMRMVG EQU DCBMRCI 01165000 DCBMRLCG EQU DCBMACR1 01166000 DCBMRABC EQU DCBMACR1 01167000 DCBMRPT1 EQU DCBMRABC 01168000 DCBMRSBG EQU DCBMRPT1 01169000 DCBMRCRL EQU DCBMACR1 01170000 DCBMRCHK EQU DCBMRCRL 01171000 DCBMRRDX EQU DCBMRCHK 01172000 DCBMRDMG EQU DCBMACR1 01173000 DCBMACR2 EQU DCBMACR+1 01174000 DCBMRPUT EQU DCBMACR2 01175000 DCBMRWRT EQU DCBMACR2 01176000 DCBMRMVP EQU DCBMACR2 01177000 DCBMR5WD EQU DCBMACR2 01178000 DCBMRLDM EQU DCBMR5WD 01179000 DCBMRLCP EQU DCBMRLDM 01180000 DCBMR4WD EQU DCBMACR2 01181000 DCBMRPT2 EQU DCBMR4WD 01182000 DCBMRTMD EQU DCBMRPT2 01183000 DCBMR3WD EQU DCBMACR2 01184000 DCBMRCTL EQU DCBMR3WD 01185000 DCBMRSTK EQU DCBMRCTL 01186000 DCBMR1WD EQU DCBMACR2 01187000 DCBMRSWA EQU DCBMR1WD 01188000 DCBMRDMD EQU DCBMRSWA 01189000 IHADCS25 EQU 0 01190000 DCBMACRF EQU IHADCS25+2 01191000 DCBMACF1 EQU DCBMACRF 01192000 DCBMFFE EQU DCBMACF1 01193000 DCBMFGET EQU DCBMFFE 01194000 DCBMFAPG EQU DCBMACF1 01195000 DCBMFRD EQU DCBMFAPG 01196000 DCBMFCI EQU DCBMACF1 01197000 DCBMFMVG EQU DCBMFCI 01198000 DCBMFLCG EQU DCBMACF1 01199000 DCBMFABC EQU DCBMACF1 01200000 DCBMFPT1 EQU DCBMFABC 01201000 DCBMFSBG EQU DCBMFPT1 01202000 DCBMFCRL EQU DCBMACF1 01203000 DCBMFCHK EQU DCBMFCRL 01204000 DCBMFDMG EQU DCBMACF1 01205000 DCBMACF2 EQU DCBMACRF+1 01206000 DCBMFPUT EQU DCBMACF2 01207000 DCBMFWRT EQU DCBMACF2 01208000 DCBMFMVP EQU DCBMACF2 01209000 DCBMF5WD EQU DCBMACF2 01210000 DCBMFLDM EQU DCBMF5WD 01211000 DCBMFLCP EQU DCBMFLDM 01212000 DCBMF4WD EQU DCBMACF2 01213000 DCBMFPT2 EQU DCBMF4WD 01214000 DCBMFTMD EQU DCBMFPT2 01215000 DCBMF3WD EQU DCBMACF2 01216000 DCBMFCTL EQU DCBMF3WD 01217000 DCBMFSTK EQU DCBMFCTL 01218000 DCBMF1WD EQU DCBMACF2 01219000 DCBMFSWA EQU DCBMF1WD 01220000 DCBMFDMD EQU DCBMFSWA 01221000 DCBDEBAD EQU IHADCS25+4 01222000 DCBIFLGS EQU DCBDEBAD 01223000 DCBIFPCT EQU DCBIFLGS 01224000 IHADCS27 EQU 0 01225000 DCBGET EQU IHADCS27 01226000 DCBPUT EQU DCBGET 01227000 DCBGETA EQU DCBPUT+1 01228000 IHADCS43 EQU 0 01229000 DCBSCTAB EQU IHADCS43 01230000 IEDQDEB EQU 0 01231000 DEBPRF EQU IEDQDEB 01232000 DEBAPVT EQU DEBPRF 01233000 DEBNMSUB EQU IEDQDEB+36 01234000 DEBNMEXT EQU IEDQDEB+52 01235000 DEBUCBS EQU IEDQDEB+68 01236000 IEDPRUQD EQU 0 01237000 PRUTTCIN EQU IEDPRUQD 01238000 PRUDATCT EQU IEDPRUQD+2 01239000 PRUTIC EQU IEDPRUQD+8 01240000 PRUDATA EQU IEDPRUQD+12 01241000 IEDPRUND EQU 0 01242000 PRURHTH EQU IEDPRUND 01243000 PRURH EQU PRURHTH 01244000 PRURHFG0 EQU PRURH 01245000 PRURHSDI EQU PRURHFG0 01246000 PRURHFG1 EQU PRURH+1 01247000 PRURHFG2 EQU PRURH+2 01248000 PRUTH EQU PRURHTH+3 01249000 PRUFIDN EQU PRUTH 01250000 IEDQQCB EQU 0 01251000 QCBDSFLG EQU IEDQQCB 01252000 QCBDISK EQU QCBDSFLG 01253000 QCBEOLDT EQU IEDQQCB+16 01254000 QCBBYTE1 EQU QCBEOLDT+1 01255000 QCBLKRLN EQU IEDQQCB+18 01256000 QCBRETCT EQU QCBLKRLN 01257000 QCBSTAT EQU IEDQQCB+19 01258000 QCBINSRC EQU IEDQQCB+21 01259000 @NM00153 EQU QCBINSRC 01260000 QCBTSOF2 EQU @NM00153+1 01261000 QCBTSOF1 EQU @NM00153+2 01262000 QCBINTVL EQU IEDQQCB+24 01263000 QCBPREN EQU IEDQQCB+28 01264000 QCBLKRRN EQU QCBPREN+1 01265000 QCBRELLN EQU IEDQQCB+32 01266000 QCBDCBAD EQU IEDQQCB+33 01267000 QCBFLAG EQU IEDQQCB+36 01268000 IEDQPQCB EQU 0 01269000 QCBFHDLZ EQU IEDQPQCB+3 01270000 QCBPFEFO EQU QCBFHDLZ+1 01271000 QCBFHDTZ EQU IEDQPQCB+6 01272000 QCBINTLF EQU IEDQPQCB+12 01273000 IEDNQCB EQU 0 01274000 QCBSTAT1 EQU IEDNQCB+4 01275000 QCBPLCBA EQU IEDNQCB+5 01276000 IEDQTRM EQU 0 01277000 TRMSTATE EQU IEDQTRM 01278000 TRMLOG EQU TRMSTATE 01279000 TRMPROC EQU TRMLOG 01280000 TRMPREF EQU TRMSTATE 01281000 TRMDESTQ EQU IEDQTRM+1 01282000 TRMINSEQ EQU IEDQTRM+4 01283000 TLISTCNT EQU TRMINSEQ 01284000 TRMOUTSQ EQU IEDQTRM+6 01285000 TLISTEN EQU TRMOUTSQ 01286000 TRMDSORG EQU TLISTEN 01287000 TRMALTD EQU IEDQTRM+8 01288000 TRMDEVFL EQU IEDQTRM+10 01289000 TRMSTAT EQU IEDQTRM+12 01290000 IEDNTRM EQU 0 01291000 TRMBYTE4 EQU IEDNTRM 01292000 TRMBYTE3 EQU IEDNTRM+1 01293000 TRMBYTE2 EQU IEDNTRM+2 01294000 TRMINPG EQU TRMBYTE2 01295000 TRMBYTE1 EQU IEDNTRM+3 01296000 TRMSCPRQ EQU TRMBYTE1 01297000 TRMCOHRT EQU IEDNTRM+4 01298000 TRMBYTE0 EQU IEDNTRM+6 01299000 TRMSIBPT EQU IEDNTRM+7 01300000 TRMCOHTG EQU TRMSIBPT+1 01301000 TRMTYPE EQU IEDNTRM+11 01302000 TRMSUBST EQU IEDNTRM+12 01303000 UCB EQU 0 01304000 UCBOB EQU 0 01305000 UCBJBNR EQU UCBOB 01306000 UCBFL5 EQU UCBOB+1 01307000 UCBAF EQU UCBFL5 01308000 UCBSTAT EQU UCBOB+3 01309000 UCBCHAN EQU UCBOB+4 01310000 UCBSFLS EQU UCBOB+6 01311000 UCBFLA EQU UCBSFLS 01312000 UCBFL1 EQU UCBFLA 01313000 UCBBSY EQU UCBFL1 01314000 UCBNRY EQU UCBFL1 01315000 UCBPST EQU UCBFL1 01316000 UCBCUB EQU UCBFL1 01317000 UCBFLB EQU UCBSFLS+1 01318000 UCBCHM EQU UCBOB+8 01319000 UCBCHM1 EQU UCBCHM 01320000 UCBPTH0 EQU UCBCHM1 01321000 UCBPTH1 EQU UCBCHM1 01322000 UCBWGT EQU UCBOB+12 01323000 UCBNAME EQU UCBOB+13 01324000 UCBTYP EQU UCBOB+16 01325000 UCBTBYT1 EQU UCBTYP 01326000 UCB1FEA5 EQU UCBTBYT1 01327000 UCB1FEA6 EQU UCBTBYT1 01328000 UCBTBYT2 EQU UCBTYP+1 01329000 UCB2OPT2 EQU UCBTBYT2 01330000 UCBDUDN1 EQU UCB2OPT2 01331000 UCB2OPT3 EQU UCBTBYT2 01332000 UCBDUDN2 EQU UCB2OPT3 01333000 UCB2OPT4 EQU UCBTBYT2 01334000 UCBRWTAU EQU UCB2OPT4 01335000 UCB2OPT6 EQU UCBTBYT2 01336000 UCB2OPT7 EQU UCBTBYT2 01337000 UCBTBYT3 EQU UCBTYP+2 01338000 UCBDVCLS EQU UCBTBYT3 01339000 UCBTBYT4 EQU UCBTYP+3 01340000 UCBEXTPT EQU UCBOB+20 01341000 UCBFLC EQU UCBEXTPT 01342000 UCBDEV EQU UCBOB+24 01343000 UCBCMEXT EQU 0 01344000 UCBATI EQU UCBCMEXT+3 01345000 @NM00167 EQU UCBATI 01346000 UCBFLP1 EQU UCBCMEXT+5 01347000 UCBMT EQU 0 01348000 UCBOCR EQU 0 01349000 UCB3540X EQU 0 01350000 UCBDKBYT EQU UCB3540X+6 01351000 UCB3800X EQU 0 01352000 UCBOPTNS EQU UCB3800X 01353000 UCBACTIV EQU UCB3800X+3 01354000 UCBMDRBF EQU UCB3800X+36 01355000 UCBUCS EQU 0 01356000 UCBUCSOP EQU UCBUCS+4 01357000 UCBFCBOP EQU UCBUCS+5 01358000 DEBSUBR EQU 0 01359000 LGBRLNCT EQU 0 01360000 QCBLDCB EQU 0 01361000 UCBBGN EQU 0 01362000 UCBDCPTR EQU 0 01363000 MSGNUM EQU OCLINENO 01364000 DCBPTR EQU QCBDCBAD 01365000 DEBUCB EQU DEBUCBS 01366000 DEBDVMOD EQU DEBUCB 01367000 DEBUCBAD EQU DEBUCB+1 01368000 UCBPTR EQU DEBUCBAD 01369000 MVWORK EQU OCMODNME 01370000 SWITCHES EQU MVWORK 01371000 AUTOSW EQU SWITCHES 01372000 MANULSW EQU SWITCHES 01373000 COUNTSW EQU SWITCHES 01374000 ERRX EQU SWITCHES 01375000 OCGRPSW EQU SWITCHES 01376000 WORKSAVE EQU MVWORK+1 01377000 WRKSAVE2 EQU MVWORK+4 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 UCBOBS01 EQU UCBDEV 01395000 UCBSTAB EQU UCBOBS01+10 01396000 UCBBSVL EQU UCBSTAB 01397000 UCBPRSRS EQU UCBSTAB 01398000 UCBDMCT EQU UCBOBS01+11 01399000 UCBFL4 EQU UCBOBS01+13 01400000 UCBOBS02 EQU UCBDEV 01401000 UCBTFL1 EQU UCBOBS02+19 01402000 UCBXTN EQU UCBOBS02+20 01403000 UCBVOPT EQU UCBXTN 01404000 UCBOBS03 EQU UCBDEV 01405000 UCBXTADR EQU UCBOBS03 01406000 UCBOBS04 EQU UCBDEV 01407000 UCBBTA EQU UCBOBS04+12 01408000 UCBOBS06 EQU UCBDEV 01409000 UCBAOF EQU UCBOBS06 01410000 UCBAOF1 EQU UCBAOF 01411000 UCBAOF2 EQU UCBAOF+1 01412000 @NM00166 EQU UCBOBS06+3 01413000 UCBIRB EQU UCBOBS06+4 01414000 UCBGRAF EQU UCBIRB 01415000 UCBLDNCA EQU UCBOBS06+8 01416000 UCBRDYQ EQU UCBLDNCA 01417000 UCBIRLN EQU UCBRDYQ 01418000 UCBLDNCB EQU UCBRDYQ+1 01419000 UCBCTLNK EQU UCBOBS06+12 01420000 UCBOBS07 EQU UCBDEV 01421000 UCBOBS08 EQU UCBDEV 01422000 UCBCTCAD EQU UCBOBS08 01423000 UCBCTCF1 EQU UCBOBS08+4 01424000 UCBOBS09 EQU UCBDEV 01425000 OCCIB EQU OCREQVAL 01426000 TRMOPT EQU IEDQTRM+20 01427000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01428000 UCBRV066 EQU UCBOBS09+4 01429000 UCBIOSBA EQU UCBOBS09 01430000 UCBRV042 EQU UCBOBS08+5 01431000 UCBRV082 EQU UCBCTCF1 01432000 UCBRV081 EQU UCBCTCF1 01433000 UCBRV080 EQU UCBCTCF1 01434000 UCBRV079 EQU UCBCTCF1 01435000 UCBRV078 EQU UCBCTCF1 01436000 UCBRV077 EQU UCBCTCF1 01437000 UCBRV076 EQU UCBCTCF1 01438000 UCBCTC80 EQU UCBCTCF1 01439000 UCBCTCAL EQU UCBCTCAD 01440000 UCBICNCB EQU UCBOBS07+4 01441000 UCBRV040 EQU UCBOBS07 01442000 UCBCTLNA EQU UCBCTLNK+1 01443000 UCBRLN EQU UCBCTLNK 01444000 UCBRDYQA EQU UCBLDNCB 01445000 UCBINRLN EQU UCBIRLN 01446000 UCBIRBA EQU UCBIRB+1 01447000 UCBRV039 EQU UCBGRAF 01448000 UCBDWNR EQU UCBGRAF 01449000 UCBRPND EQU UCBGRAF 01450000 UCBUPM EQU UCBGRAF 01451000 UCBBTAM EQU UCBGRAF 01452000 UCBDRNO EQU UCBGRAF 01453000 UCBDRO EQU UCBGRAF 01454000 UCBOIP EQU UCBGRAF 01455000 UCBATRCD EQU @NM00166 01456000 UCBSKPFG EQU @NM00166 01457000 UCBRIPND EQU @NM00166 01458000 UCBRTIAC EQU @NM00166 01459000 UCBRSV79 EQU @NM00166 01460000 UCBRSV78 EQU @NM00166 01461000 UCBRSV77 EQU @NM00166 01462000 UCBOLTEP EQU @NM00166 01463000 UCBATNCT EQU UCBOBS06+2 01464000 UCBRSV76 EQU UCBAOF2 01465000 UCBRSV75 EQU UCBAOF2 01466000 UCBRSV74 EQU UCBAOF2 01467000 UCBRSV73 EQU UCBAOF2 01468000 UCBRSV72 EQU UCBAOF2 01469000 UCBRSV71 EQU UCBAOF2 01470000 UCBRSV70 EQU UCBAOF2 01471000 UCBRSV69 EQU UCBAOF2 01472000 UCBRSV68 EQU UCBAOF1 01473000 UCBRSV67 EQU UCBAOF1 01474000 UCBRSV66 EQU UCBAOF1 01475000 UCBRSV65 EQU UCBAOF1 01476000 UCBRSV64 EQU UCBAOF1 01477000 UCBOFNL EQU UCBAOF1 01478000 UCBOFSP EQU UCBAOF1 01479000 UCBOFMCR EQU UCBAOF1 01480000 UCBBTB EQU UCBBTA+1 01481000 UCBDI EQU UCBBTA 01482000 UCBSNS EQU UCBOBS04+8 01483000 UCBTEB EQU UCBOBS04+4 01484000 UCBGCB EQU UCBOBS04+3 01485000 UCBOPEN EQU UCBOBS04+2 01486000 UCBSTART EQU UCBOBS04 01487000 UCBXTNB EQU UCBXTN+1 01488000 UCBRSV22 EQU UCBVOPT 01489000 UCBRSV21 EQU UCBVOPT 01490000 UCBRSV20 EQU UCBVOPT 01491000 UCBESVE EQU UCBVOPT 01492000 UCBERPC EQU UCBVOPT 01493000 UCBESVC EQU UCBVOPT 01494000 UCBEVA EQU UCBVOPT 01495000 UCBESV EQU UCBVOPT 01496000 UCBRV009 EQU UCBTFL1 01497000 UCBRV008 EQU UCBTFL1 01498000 UCBRV007 EQU UCBTFL1 01499000 UCBRV006 EQU UCBTFL1 01500000 UCBRV005 EQU UCBTFL1 01501000 UCBRV038 EQU UCBTFL1 01502000 UCBNSLTP EQU UCBTFL1 01503000 UCBNLTP EQU UCBTFL1 01504000 UCBRES1B EQU UCBOBS02+18 01505000 UCBFSER EQU UCBOBS02+12 01506000 @NM00165 EQU UCBOBS02+4 01507000 UCBFSEQ EQU UCBOBS02+2 01508000 UCBFSCT EQU UCBOBS02 01509000 UCBNEXP EQU UCBOBS01+20 01510000 UCBBASE EQU UCBOBS01+16 01511000 UCBRES1A EQU UCBOBS01+15 01512000 UCBUSER EQU UCBOBS01+14 01513000 UCBFL47 EQU UCBFL4 01514000 UCBFL46 EQU UCBFL4 01515000 UCBFL45 EQU UCBFL4 01516000 UCBRV065 EQU UCBFL4 01517000 UCBDSS EQU UCBFL4 01518000 UCBRV028 EQU UCBFL4 01519000 UCBWDAV EQU UCBFL4 01520000 UCBDAVV EQU UCBFL4 01521000 UCBSQC EQU UCBOBS01+12 01522000 UCBDATP EQU UCBOBS01+12 01523000 UCBDMC EQU UCBDMCT 01524000 UCBMOUNT EQU UCBDMCT 01525000 UCBBNUL EQU UCBSTAB 01526000 UCBSHAR EQU UCBSTAB 01527000 UCBBSTR EQU UCBSTAB 01528000 UCBBPUB EQU UCBSTAB 01529000 UCBBPRV EQU UCBSTAB 01530000 UCBBALB EQU UCBPRSRS 01531000 UCBPGFL EQU UCBSTAB 01532000 UCBDVSHR EQU UCBBSVL 01533000 UCBVOLI EQU UCBOBS01+4 01534000 UCBVTOC EQU UCBOBS01 01535000 @NM00163 EQU TRMLINK 01536000 TRMLSTAT EQU TRMLINK 01537000 TRMLINT EQU TRMLINK 01538000 TRMEPMOD EQU TRMLINK 01539000 TRMLULOG EQU TRMLU 01540000 TRMINERR EQU TRMLU 01541000 TRMLUREQ EQU TRMLU 01542000 TRMSESRQ EQU TRMLU 01543000 TRMTDIFF EQU TRMLU 01544000 TRMLUTM EQU TRMLU 01545000 TRMLUIT EQU TRMLU 01546000 TRMAUTO EQU TRMLU 01547000 TRMPCONT EQU TRMPU 01548000 @NM00162 EQU TRMPU 01549000 TRMNCONT EQU TRMNCP 01550000 TRMQUCKN EQU TRMNCP 01551000 TRMSLOWN EQU TRMNCP 01552000 TRMSYGEN EQU TRMNCP 01553000 TRMNCPCL EQU TRMNCP 01554000 TRMIPLDM EQU TRMNCP 01555000 TRMINOUT EQU TRMPRE 01556000 TRMRDOUT EQU TRMPRE 01557000 TRMNLOUT EQU TRMPRE 01558000 TRMWROUT EQU TRMPRE 01559000 TRMASNXI EQU TRMPRE 01560000 TRMSTMM EQU TRMPRE 01561000 TRMCMODE EQU TRMPRE 01562000 TRMSTPND EQU TRMPRE 01563000 @NM00161 EQU TRMNCP1 01564000 TRMINOP EQU TRMNCP1 01565000 TRMLYNCH EQU TRMPRE1 01566000 TRMSPOUT EQU TRMPRE1 01567000 TRMERLCK EQU TRMPRE1 01568000 TRMQNPL EQU TRMPRE1 01569000 TRMSPACT EQU TRMPRE1 01570000 TRMOCNI EQU TRMPRE1 01571000 TRMSESSN EQU TRMPRE1 01572000 TRMCONT EQU TRMPRE1 01573000 OCICINAC EQU OCICSW 01574000 @NM00024 EQU OCICSW 01575000 OCICATST EQU OCICDADR+1 01576000 OCICTYPE EQU OCICDADR 01577000 @NM00023 EQU OCCKPKY1 01578000 OCCKPENV EQU OCCKPKY1 01579000 OCCKPRST EQU OCCKPTYP 01580000 OCCKPNCP EQU OCCKPTYP 01581000 OCCKPINC EQU OCCKPTYP 01582000 OPCAQLST EQU OPCAQWD3+1 01583000 OPCAQRQ3 EQU OPCAQWD3 01584000 OPCAQSEC EQU OPCAQWD2+1 01585000 OPCAQRQ2 EQU OPCAQWD2 01586000 OPCAQFST EQU OPCAQWD1+1 01587000 OPCAQREQ EQU OPCAQWD1 01588000 DUMMYSW1 EQU SWITCHES 01589000 DUMMYSW EQU SWITCHES 01590000 RETRNSW EQU SWITCHES 01591000 UCBERADR EQU UCBUCS+12 01592000 UCBFCBID EQU UCBUCS+8 01593000 UCBERCNT EQU UCBUCS+7 01594000 UCBRSV51 EQU UCBUCS+6 01595000 UCBRSV50 EQU UCBFCBOP 01596000 UCBRSV49 EQU UCBFCBOP 01597000 UCBRSV48 EQU UCBFCBOP 01598000 UCBRSV47 EQU UCBFCBOP 01599000 UCBRSV46 EQU UCBFCBOP 01600000 UCBRSV45 EQU UCBFCBOP 01601000 UCBRSV44 EQU UCBFCBOP 01602000 UCBFCBO1 EQU UCBFCBOP 01603000 UCBUCSPE EQU UCBUCSOP 01604000 UCBRSV43 EQU UCBUCSOP 01605000 UCBRSV42 EQU UCBUCSOP 01606000 UCBRSV41 EQU UCBUCSOP 01607000 UCBRSV40 EQU UCBUCSOP 01608000 UCBRSV39 EQU UCBUCSOP 01609000 UCBUCSO2 EQU UCBUCSOP 01610000 UCBUCSO1 EQU UCBUCSOP 01611000 UCBUCSID EQU UCBUCS 01612000 UCBMDRBA EQU UCBMDRBF+1 01613000 UCBRV075 EQU UCBMDRBF 01614000 UCBRV074 EQU UCB3800X+32 01615000 UCBIMAGE EQU UCB3800X+28 01616000 UCBFCBNM EQU UCB3800X+24 01617000 UCBCHAR4 EQU UCB3800X+20 01618000 UCBCHAR3 EQU UCB3800X+16 01619000 UCBCHAR2 EQU UCB3800X+12 01620000 UCBCHAR1 EQU UCB3800X+8 01621000 UCBCGMID EQU UCB3800X+4 01622000 UCBBRSTA EQU UCBACTIV 01623000 UCBRV063 EQU UCBACTIV 01624000 UCBRV062 EQU UCBACTIV 01625000 UCBRV061 EQU UCBACTIV 01626000 UCBRV060 EQU UCBACTIV 01627000 UCBRV059 EQU UCBACTIV 01628000 UCBRV058 EQU UCBACTIV 01629000 UCBRV057 EQU UCBACTIV 01630000 UCBRV050 EQU UCB3800X+2 01631000 UCBCGMNO EQU UCB3800X+1 01632000 UCBRV083 EQU UCBOPTNS 01633000 UCBBRSTR EQU UCBOPTNS 01634000 UCBRV056 EQU UCBOPTNS 01635000 UCBRV055 EQU UCBOPTNS 01636000 UCBRV054 EQU UCBOPTNS 01637000 UCBRV053 EQU UCBOPTNS 01638000 UCBRV052 EQU UCBOPTNS 01639000 UCBRV051 EQU UCBOPTNS 01640000 UCBRV073 EQU UCB3540X+7 01641000 UCBRV072 EQU UCBDKBYT 01642000 UCBRV071 EQU UCBDKBYT 01643000 UCBRV070 EQU UCBDKBYT 01644000 UCBRV069 EQU UCBDKBYT 01645000 UCBRV068 EQU UCBDKBYT 01646000 UCBRV067 EQU UCBDKBYT 01647000 UCBVLVER EQU UCBDKBYT 01648000 UCBDKAMX EQU UCBDKBYT 01649000 UCBVLSER EQU UCB3540X 01650000 UCBRDATA EQU UCBOCR+4 01651000 UCBFRID EQU UCBOCR 01652000 UCBCLN EQU UCBMT+14 01653000 UCBERG EQU UCBMT+12 01654000 UCBMS EQU UCBMT+11 01655000 UCBNB EQU UCBMT+10 01656000 UCBPW EQU UCBMT+9 01657000 UCBPR EQU UCBMT+8 01658000 UCBSIO EQU UCBMT+6 01659000 UCBTW EQU UCBMT+5 01660000 UCBTR EQU UCBMT+4 01661000 UCBTWT EQU UCBMT+3 01662000 UCBTRT EQU UCBMT+2 01663000 UCBCTD EQU UCBMT 01664000 UCBWTOID EQU UCBCMEXT+17 01665000 UCBRV043 EQU UCBCMEXT+16 01666000 UCBASID EQU UCBCMEXT+14 01667000 UCBMFCNT EQU UCBCMEXT+12 01668000 UCBPMSK EQU UCBCMEXT+10 01669000 UCBCCWOF EQU UCBCMEXT+8 01670000 UCBRV041 EQU UCBCMEXT+6 01671000 UCBRV036 EQU UCBFLP1 01672000 UCBRV035 EQU UCBFLP1 01673000 UCBERLOG EQU UCBFLP1 01674000 UCBRV033 EQU UCBFLP1 01675000 UCBRV032 EQU UCBFLP1 01676000 UCBRV031 EQU UCBFLP1 01677000 UCBSHRUP EQU UCBFLP1 01678000 UCBNSRCH EQU UCBFLP1 01679000 UCBSNSCT EQU UCBCMEXT+4 01680000 UCBHPDV EQU @NM00167 01681000 UCBHALI EQU @NM00167 01682000 UCBRSV09 EQU @NM00167 01683000 UCBRSV08 EQU @NM00167 01684000 UCBRSV07 EQU @NM00167 01685000 UCBRSV06 EQU @NM00167 01686000 UCBRSV05 EQU @NM00167 01687000 UCBRSV04 EQU @NM00167 01688000 UCBDTI EQU UCBCMEXT+2 01689000 UCBSTI EQU UCBCMEXT+1 01690000 UCBETI EQU UCBCMEXT 01691000 UCBEXTP EQU UCBEXTPT+1 01692000 UCBDDRSW EQU UCBFLC 01693000 UCBTICBT EQU UCBFLC 01694000 UCBIVRR EQU UCBFLC 01695000 UCBIVRS EQU UCBFLC 01696000 UCBITF EQU UCBFLC 01697000 UCBUDE EQU UCBFLC 01698000 UCBWAA EQU UCBFLC 01699000 UCBATTP EQU UCBFLC 01700000 UCBUNTYP EQU UCBTBYT4 01701000 UCBRSV11 EQU UCBDVCLS 01702000 UCBRSV10 EQU UCBDVCLS 01703000 UCB3CHAR EQU UCBDVCLS 01704000 UCB3UREC EQU UCBDVCLS 01705000 UCB3DISP EQU UCBDVCLS 01706000 UCB3DACC EQU UCBDVCLS 01707000 UCB3COMM EQU UCBDVCLS 01708000 UCB3TAPE EQU UCBDVCLS 01709000 UCBDVPWR EQU UCB2OPT7 01710000 UCBVLPWR EQU UCB2OPT6 01711000 UCB2OPT5 EQU UCBTBYT2 01712000 UCBRVDEV EQU UCBRWTAU 01713000 UCBRPS EQU UCBDUDN2 01714000 UCBRR EQU UCBDUDN1 01715000 UCB2OPT1 EQU UCBTBYT2 01716000 UCB2OPT0 EQU UCBTBYT2 01717000 UCB1FEA7 EQU UCBTBYT1 01718000 UCBD6250 EQU UCB1FEA6 01719000 UCBD1600 EQU UCB1FEA5 01720000 UCB1FEA4 EQU UCBTBYT1 01721000 UCB1FEA3 EQU UCBTBYT1 01722000 UCB1FEA2 EQU UCBTBYT1 01723000 UCB1FEA1 EQU UCBTBYT1 01724000 UCB1FEA0 EQU UCBTBYT1 01725000 UCBRV029 EQU UCBWGT 01726000 UCBVHRSN EQU UCBWGT 01727000 UCBVORSN EQU UCBWGT 01728000 UCBMTPXP EQU UCBWGT 01729000 UCBREW EQU UCBWGT 01730000 UCBPUB EQU UCBWGT 01731000 UCBOUT EQU UCBWGT 01732000 UCBIN EQU UCBWGT 01733000 UCBCPU EQU UCBOB+11 01734000 UCBLCI EQU UCBOB+10 01735000 UCBCNT EQU UCBOB+9 01736000 UCBRV017 EQU UCBCHM1 01737000 UCBRV016 EQU UCBCHM1 01738000 UCBRV015 EQU UCBCHM1 01739000 UCBRV014 EQU UCBCHM1 01740000 UCBSPB EQU UCBPTH1 01741000 UCBPPB EQU UCBPTH1 01742000 UCBSPA EQU UCBPTH0 01743000 UCBPPA EQU UCBPTH0 01744000 UCBSIGP EQU UCBFLB 01745000 UCBVALPH EQU UCBFLB 01746000 UCBCRHSN EQU UCBFLB 01747000 UCBCRHRV EQU UCBFLB 01748000 UCBRESVH EQU UCBFLB 01749000 UCBSPST EQU UCBFLB 01750000 UCBASNS EQU UCBFLB 01751000 UCBIORST EQU UCBFLB 01752000 UCBQISCE EQU UCBFL1 01753000 UCBACTV EQU UCBFL1 01754000 UCBSAP EQU UCBFL1 01755000 UCBNOTRC EQU UCBCUB 01756000 UCBPSNS EQU UCBFL1 01757000 UCBUSING EQU UCBPST 01758000 UCBNOTRD EQU UCBNRY 01759000 UCBBUSYD EQU UCBBSY 01760000 UCBUA EQU UCBCHAN+1 01761000 UCBCHA EQU UCBCHAN 01762000 UCBDADI EQU UCBSTAT 01763000 UCBSYSR EQU UCBSTAT 01764000 UCBPRES EQU UCBSTAT 01765000 UCBALOC EQU UCBSTAT 01766000 UCBUNLD EQU UCBSTAT 01767000 UCBRESV EQU UCBSTAT 01768000 UCBCHGS EQU UCBSTAT 01769000 UCBONLI EQU UCBSTAT 01770000 UCBID EQU UCBOB+2 01771000 UCBALTPH EQU UCBFL5 01772000 UCBALTCU EQU UCBFL5 01773000 UCBNALOC EQU UCBFL5 01774000 UCBENVRD EQU UCBFL5 01775000 UCBVSDR EQU UCBFL5 01776000 UCBSASK EQU UCBFL5 01777000 UCBAMV EQU UCBAF 01778000 UCBDCC EQU UCBFL5 01779000 UCBMONT EQU UCBJBNR 01780000 UCBRV011 EQU UCBJBNR 01781000 UCBRSV02 EQU UCBJBNR 01782000 UCBOLDSM EQU UCBJBNR 01783000 UCBRV003 EQU UCBJBNR 01784000 UCBDUC EQU UCBJBNR 01785000 UCBJES3 EQU UCBJBNR 01786000 UCBVRDEV EQU UCBJBNR 01787000 UCBCMSEG EQU UCBOB 01788000 UCBPFXND EQU UCB+512 01789000 UCBIOQ EQU UCB+508 01790000 UCBLOCK EQU UCB+504 01791000 UCBPXST EQU UCB+504 01792000 @NM00164 EQU UCB 01793000 TRMRLMCT EQU IEDNTRM+10 01794000 TRMGPCNT EQU TRMSIBPT 01795000 TRMBUFRD EQU TRMBYTE0 01796000 TRMSNA EQU TRMBYTE0 01797000 TRMGP EQU TRMBYTE0 01798000 TRMDIAL EQU TRMBYTE0 01799000 @NM00160 EQU TRMBYTE0 01800000 TRMOUTPT EQU TRMBYTE0 01801000 TRMINPUT EQU TRMBYTE0 01802000 TRMUDEF EQU TRMBYTE0 01803000 TRMSTOTE EQU TRMBYTE1 01804000 TRMCKPRN EQU TRMBYTE1 01805000 TRMTSATN EQU TRMBYTE1 01806000 TRMTRACE EQU TRMBYTE1 01807000 TRMSWBCK EQU TRMBYTE1 01808000 TRMAUTOC EQU TRMBYTE1 01809000 TRMINPTP EQU TRMBYTE1 01810000 TRMWTNEG EQU TRMSCPRQ 01811000 TRMWRBRK EQU TRMBYTE2 01812000 TRMNOSND EQU TRMBYTE2 01813000 TRMPREP EQU TRMBYTE2 01814000 TRMGPACT EQU TRMBYTE2 01815000 TRMANDL EQU TRMBYTE2 01816000 TRMCLOSN EQU TRMINPG 01817000 TRMREMB EQU TRMBYTE2 01818000 TRMRSACT EQU TRMBYTE2 01819000 TRMOPTBL EQU IEDQTRM+18 01820000 TRMOPNO EQU IEDQTRM+17 01821000 TRMCHCIN EQU IEDQTRM+16 01822000 TRMSENSE EQU TRMSTAT+3 01823000 TRMTEMPR EQU TRMSTAT+2 01824000 TRMSIO EQU TRMSTAT 01825000 @NM00159 EQU TRMDEVFL+1 01826000 TRMTPIN EQU TRMDEVFL+1 01827000 TRMNCPI EQU TRMDEVFL+1 01828000 TRMRNTRM EQU TRMDEVFL+1 01829000 @NM00158 EQU TRMDEVFL+1 01830000 TRMLMD EQU TRMDEVFL+1 01831000 TRMCONC EQU TRMDEVFL+1 01832000 TRMTSOB EQU TRMDEVFL 01833000 TRMBFDY EQU TRMDEVFL 01834000 TRMTBLK EQU TRMDEVFL 01835000 TRMSBLK EQU TRMDEVFL 01836000 TRMBLKS EQU TRMDEVFL 01837000 TRMADDC EQU TRMDEVFL 01838000 TRMDDIG EQU TRMDEVFL 01839000 TRMBUFS EQU TRMDEVFL 01840000 TRMPRILK EQU TRMALTD 01841000 TRMLGB EQU TRMDSORG 01842000 TRMUTERM EQU TLISTCNT 01843000 TRMSCNYN EQU TRMSTATE 01844000 TRMOPTFN EQU TRMSTATE 01845000 TRMHELDN EQU TRMSTATE 01846000 TRMACPTN EQU TRMSTATE 01847000 TRMLIST EQU TRMLOG 01848000 TRMLINE EQU TRMSTATE 01849000 QCBTTCIN EQU QCBPLCBA+1 01850000 @NM00157 EQU QCBPLCBA 01851000 @NM00156 EQU QCBSTAT1 01852000 QCBFLUSH EQU QCBSTAT1 01853000 QCBNDXRQ EQU QCBSTAT1 01854000 QCBESIG EQU QCBSTAT1 01855000 QCBRCVRQ EQU QCBSTAT1 01856000 QCBSNDRQ EQU QCBSTAT1 01857000 QCBWAITC EQU QCBSTAT1 01858000 QCBPLCBN EQU QCBSTAT1 01859000 QCBCHAIN EQU IEDNQCB 01860000 QCBPQBCK EQU IEDQPQCB+25 01861000 QCBPRIPQ EQU IEDQPQCB+24 01862000 QCBCFHDR EQU IEDQPQCB+21 01863000 QCBLFEFO EQU IEDQPQCB+18 01864000 QCBFFEFO EQU IEDQPQCB+15 01865000 QCBPREVF EQU QCBINTLF 01866000 QCBINTFF EQU IEDQPQCB+9 01867000 QCBDATSQ EQU QCBFHDTZ+1 01868000 @NM00155 EQU QCBFHDTZ 01869000 @NM00154 EQU QCBPFEFO 01870000 QCBDATFL EQU QCBFHDLZ 01871000 QCBDNHDR EQU IEDQPQCB 01872000 QCBQBACK EQU IEDQQCB+37 01873000 QCBCKPT EQU QCBFLAG 01874000 QCBPROC EQU QCBFLAG 01875000 QCBSDFFO EQU QCBFLAG 01876000 QCBTERMQ EQU QCBFLAG 01877000 QCBRSRV EQU QCBFLAG 01878000 QCBREAD EQU QCBFLAG 01879000 QCBNOBRK EQU QCBFLAG 01880000 QCBTSSES EQU QCBFLAG 01881000 QCBLGBAD EQU QCBDCBAD 01882000 QCBTJID EQU QCBLKRRN+1 01883000 QCBCARCT EQU QCBLKRRN 01884000 QCBPRLVL EQU QCBPREN 01885000 QCBMSGCT EQU IEDQQCB+26 01886000 QCBEXTO EQU QCBINTVL 01887000 QCBDISC EQU QCBTSOF1 01888000 QCBDELAY EQU QCBTSOF1 01889000 QCBPARTO EQU QCBTSOF1 01890000 QCBSATRD EQU QCBTSOF1 01891000 QCBNOBUF EQU QCBTSOF1 01892000 QCBTPUT EQU QCBTSOF1 01893000 QCBTGET EQU QCBTSOF1 01894000 QCBWRBRK EQU QCBTSOF1 01895000 QCBSATLC EQU QCBTSOF2 01896000 QCBSATTI EQU QCBTSOF2 01897000 QCBSATCH EQU QCBTSOF2 01898000 QCBSIMRD EQU QCBTSOF2 01899000 QCBDSSMI EQU QCBTSOF2 01900000 QCBPOSTO EQU QCBTSOF2 01901000 QCBBUFQ EQU QCBTSOF2 01902000 QCBINHBN EQU QCBTSOF2 01903000 QCBSATCT EQU @NM00153 01904000 QCBSCBOF EQU IEDQQCB+20 01905000 QCBTIME EQU QCBSTAT 01906000 QCBCLOCK EQU QCBSTAT 01907000 QCBSCHDL EQU QCBSTAT 01908000 QCBSMODE EQU QCBSTAT 01909000 QCBSEND EQU QCBSTAT 01910000 QCBBUFRD EQU QCBSTAT 01911000 QCBTRMHO EQU QCBSTAT 01912000 QCBEOM EQU QCBSTAT 01913000 QCBHUCT EQU QCBRETCT 01914000 QCBIEND EQU QCBRETCT 01915000 QCBEND EQU QCBRETCT 01916000 QCBNL EQU QCBRETCT 01917000 QCBLOGCT EQU QCBRETCT 01918000 @NM00152 EQU QCBBYTE1 01919000 QCBRITRM EQU QCBBYTE1 01920000 @NM00151 EQU QCBEOLDT 01921000 QCBSLINK EQU IEDQQCB+13 01922000 QCBSTPRI EQU IEDQQCB+12 01923000 QCBSTCHN EQU IEDQQCB+9 01924000 QCBSTVTO EQU IEDQQCB+8 01925000 QCBLINK EQU IEDQQCB+5 01926000 QCBPRI EQU IEDQQCB+4 01927000 QCBELCHN EQU IEDQQCB+1 01928000 QCBHELD EQU QCBDSFLG 01929000 QCBFQCB EQU QCBDSFLG 01930000 QCBDRQQ EQU QCBDSFLG 01931000 QCBALTMH EQU QCBDSFLG 01932000 QCBREUS EQU QCBDISK 01933000 QCBNREUS EQU QCBDISK 01934000 QCBCORE EQU QCBDSFLG 01935000 QCBTSQ EQU QCBDSFLG 01936000 @NM00150 EQU IEDPRUND+4 01937000 PRUTHEFI EQU PRUFIDN 01938000 PRUTHUSS EQU PRUFIDN 01939000 PRUTHEIU EQU PRUFIDN 01940000 PRUTHBIU EQU PRUFIDN 01941000 PRUTHTYE EQU PRUFIDN 01942000 @NM00149 EQU PRURHFG2 01943000 PRURHCSI EQU PRURHFG2 01944000 @NM00148 EQU PRURHFG2 01945000 PRURHCDI EQU PRURHFG2 01946000 PRURHEB EQU PRURHFG2 01947000 PRURHBB EQU PRURHFG2 01948000 PRURHPI EQU PRURHFG1 01949000 @NM00147 EQU PRURHFG1 01950000 PRURHER EQU PRURHFG1 01951000 PRURHDR2 EQU PRURHFG1 01952000 @NM00146 EQU PRURHFG1 01953000 PRURHDR1 EQU PRURHFG1 01954000 PRURHEC EQU PRURHFG0 01955000 PRURHBC EQU PRURHFG0 01956000 PRURHFI EQU PRURHFG0 01957000 @NM00145 EQU PRURHFG0 01958000 PRURUCAT EQU PRURHFG0 01959000 PRURHTYP EQU PRURHFG0 01960000 PRUNUNIT EQU PRUTIC+1 01961000 @NM00144 EQU PRUTIC 01962000 @NM00143 EQU IEDPRUQD+4 01963000 DEBAPPAD EQU IEDQDEB+65 01964000 DEBEXSCL EQU IEDQDEB+64 01965000 DEBDCBAD EQU IEDQDEB+61 01966000 DEBPROTG EQU IEDQDEB+60 01967000 DEBECBAD EQU IEDQDEB+57 01968000 DEBPRIOR EQU IEDQDEB+56 01969000 DEBUSRPG EQU IEDQDEB+53 01970000 DEBSYSPG EQU IEDQDEB+49 01971000 DEBOPATB EQU IEDQDEB+48 01972000 DEBIRBAD EQU IEDQDEB+45 01973000 DEBOFLGS EQU IEDQDEB+44 01974000 DEBDEBAD EQU IEDQDEB+41 01975000 DEBAMLNG EQU IEDQDEB+40 01976000 DEBTCBAD EQU IEDQDEB+37 01977000 @NM00142 EQU DEBPRF+33 01978000 DEBLNGTH EQU DEBPRF+32 01979000 DEBDCBMK EQU DEBPRF+28 01980000 DEBDSCBA EQU DEBPRF+21 01981000 DEBWKARA EQU DEBPRF+20 01982000 DEBXCEA EQU DEBAPVT+16 01983000 DEBCEA EQU DEBAPVT+12 01984000 DEBPCIA EQU DEBAPVT+8 01985000 DEBSIOA EQU DEBAPVT+4 01986000 DEBEOEA EQU DEBAPVT 01987000 DCBBUFSI EQU IHADCS43+6 01988000 DCBUNTCT EQU IHADCS43+5 01989000 DCBILCT EQU IHADCS43+4 01990000 DCBSCTAD EQU DCBSCTAB+1 01991000 @NM00141 EQU DCBSCTAB 01992000 DCBPUTA EQU DCBGETA 01993000 @NM00140 EQU DCBPUT 01994000 DCBDEBA EQU DCBDEBAD+1 01995000 @NM00139 EQU DCBIFLGS 01996000 DCBIFIOE EQU DCBIFLGS 01997000 DCBCH12 EQU DCBIFPCT 01998000 DCBCH9 EQU DCBIFPCT 01999000 DCBIFEC EQU DCBIFLGS 02000000 DCBMFSTI EQU DCBMFDMD 02001000 DCBMFAWR EQU DCBMFSTK 02002000 DCBMFUIP EQU DCBMFTMD 02003000 DCBMFIDW EQU DCBMFLCP 02004000 DCBMFWRK EQU DCBMFMVP 02005000 DCBMFRDQ EQU DCBMFWRT 02006000 DCBMFGTQ EQU DCBMFPUT 02007000 DCBMFSTL EQU DCBMACF2 02008000 DCBMFCK EQU DCBMFDMG 02009000 DCBMFRDX EQU DCBMFCHK 02010000 DCBMFDBF EQU DCBMFSBG 02011000 DCBMFRDI EQU DCBMFLCG 02012000 DCBMFRDK EQU DCBMFMVG 02013000 DCBMFWRQ EQU DCBMFRD 02014000 DCBMFPTQ EQU DCBMFGET 02015000 DCBMFECP EQU DCBMACF1 02016000 DCBTIOT EQU IHADCS25 02017000 DCBMRSTI EQU DCBMRDMD 02018000 DCBMRAWR EQU DCBMRSTK 02019000 DCBMRUIP EQU DCBMRTMD 02020000 DCBMRIDW EQU DCBMRLCP 02021000 DCBMRWRK EQU DCBMRMVP 02022000 DCBMRRDQ EQU DCBMRWRT 02023000 DCBMRGTQ EQU DCBMRPUT 02024000 DCBMRSTL EQU DCBMACR2 02025000 DCBMRCK EQU DCBMRDMG 02026000 DCBPGFXA EQU DCBMRRDX 02027000 DCBMRDBF EQU DCBMRSBG 02028000 DCBMRRDI EQU DCBMRLCG 02029000 DCBMRRDK EQU DCBMRMVG 02030000 DCBMRWRQ EQU DCBMRRD 02031000 DCBMRPTQ EQU DCBMRGET 02032000 DCBMRECP EQU DCBMACR1 02033000 @NM00138 EQU DCBIFLG 02034000 DCBIBIOE EQU DCBIFLG 02035000 DCBICH12 EQU DCBIBPCT 02036000 DCBICH9 EQU DCBIBPCT 02037000 DCBIBEC EQU DCBIFLG 02038000 DCBOFIOF EQU DCBOFLGS 02039000 DCBOFUEX EQU DCBOFLGS 02040000 DCBOFTM EQU DCBOFLGS 02041000 DCBOFPPC EQU DCBOFLGS 02042000 DCBOFOPN EQU DCBOFLGS 02043000 DCBOFEOV EQU DCBOFLGS 02044000 DCBOFLRB EQU DCBOFLGS 02045000 DCBOFIOD EQU DCBOFLWR 02046000 DCBDDNAM EQU IHADCS24 02047000 DCBEXLSA EQU DCBEXLST+1 02048000 DCBEIOBX EQU DCBEXLST 02049000 DCBRNCKA EQU DCBRNCKD+1 02050000 @NM00137 EQU DCBRNCKD 02051000 DCBIOBAD EQU IHADCS2K+8 02052000 DCBDSGTR EQU DCBDSRG2 02053000 @NM00136 EQU DCBDSRG2 02054000 DCBDSRG1 EQU DCBDSORG 02055000 DCBCHNGL EQU DCBTRSTA 02056000 DCBNIDLE EQU DCBTRSTA 02057000 DCBBAKUP EQU DCBTRSTA 02058000 DCBIPLED EQU DCBTRSTA 02059000 DCBRSTRT EQU DCBTRSTA 02060000 DCBINITL EQU DCBTRSTA 02061000 DCBAUTOD EQU DCBTRSTA 02062000 DCBAUTOI EQU DCBTRSTA 02063000 @NM00135 EQU IHADCS2K+4 02064000 DCBDUMPA EQU DCBDUMPD+1 02065000 DCBUNITN EQU DCBDUMPD 02066000 DCBBCKUA EQU DCBBCKUP+1 02067000 @NM00134 EQU DCBBCKUP 02068000 DCBIPLTX EQU IHADCS1A 02069000 @NM00133 EQU IHADCB 02070000 SAVTBITN EQU IEDNSVTD+312 02071000 @NM00132 EQU SAVTCKQB+8 02072000 @NM00131 EQU SAVTCKEC+1 02073000 @NM00130 EQU SAVTCKCC 02074000 SAVTCKPO EQU SAVTCKCC 02075000 SAVTCKWA EQU SAVTCKCC 02076000 SAVTCKCH EQU SAVTCKTB+1 02077000 SAVTCKVT EQU SAVTCKTB 02078000 @NM00129 EQU IEDNSVTD+297 02079000 SAVTRDFG EQU SAVTRDRV+12 02080000 @NM00128 EQU SAVTRDRV+5 02081000 SAVTRDPY EQU SAVTRDRV+4 02082000 SAVTRDQB EQU SAVTRDRV+1 02083000 SAVTRDKY EQU SAVTRDRV 02084000 SAVTNID EQU IEDNSVTD+280 02085000 SAVTDVAS EQU IEDNSVTD+276 02086000 SAVTPLSZ EQU IEDNSVTD+274 02087000 @NM00127 EQU IEDNSVTD+273 02088000 SAVTSUBL EQU IEDNSVTD+272 02089000 @NM00126 EQU SAVTZELM+1 02090000 SAVTSUBM EQU SAVTZELM 02091000 SAVTMHDX EQU IEDNSVTD+268 02092000 SAVTNAT1 EQU IEDNSVTD+266 02093000 SAVTSH20 EQU IEDNSVTD+264 02094000 SAVTLCBS EQU IEDNSVTD+260 02095000 SAVTRNMP EQU IEDNSVTD+256 02096000 SAVTTNTX EQU IEDNSVTD+252 02097000 SAVTNAX EQU IEDNSVTD+248 02098000 SAVTSUBV EQU IEDNSVTD+247 02099000 SAVTSUBA EQU IEDNSVTD+246 02100000 SAVTSIBC EQU IEDNSVTD+244 02101000 SAVTBSM EQU IEDNSVTD+240 02102000 SAVTSCPT EQU SAVTTCPU 02103000 SAVTRQTG EQU IEDNSVTD+236 02104000 SAVTRQCH EQU IEDNSVTD+232 02105000 SAVTSPLN EQU IEDNSVTD+224 02106000 SAVTNADL EQU IEDNSVTD+222 02107000 SAVTNATL EQU IEDNSVTD+220 02108000 SAVTMHTB EQU IEDNSVTD+216 02109000 SAVTSSMH EQU IEDNSVTD+212 02110000 SAVTQRS EQU IEDNSVTD+208 02111000 SAVTRQIN EQU IEDNSVTD+204 02112000 SAVTDFCO EQU IEDNSVTD+200 02113000 SAVTSAO EQU IEDNSVTD+196 02114000 SAVTSARI EQU IEDNSVTD+192 02115000 SAVTSAC EQU IEDNSVTD+188 02116000 SAVTSAI EQU IEDNSVTD+184 02117000 SAVTCSCI EQU IEDNSVTD+180 02118000 SAVTSSRP EQU IEDNSVTD+176 02119000 SAVTSSRQ EQU IEDNSVTD+172 02120000 SAVTSCLU EQU IEDNSVTD+168 02121000 SAVTXTRQ EQU IEDNSVTD+164 02122000 SAVTMVBF EQU IEDNSVTD+160 02123000 @NM00125 EQU IEDNSVTD+148 02124000 SAVTIPCQ EQU IEDNSVTD+144 02125000 @NM00124 EQU IEDNSVTD+136 02126000 SAVTXFMI EQU IEDNSVTD+132 02127000 @NM00123 EQU IEDNSVTD+124 02128000 SAVTXFMO EQU IEDNSVTD+120 02129000 @NM00122 EQU IEDNSVTD+116 02130000 SAVTSSSR EQU IEDNSVTD+112 02131000 SAVTSCPQ EQU IEDNSVTD+108 02132000 SAVTSLCB EQU IEDNSVTD+104 02133000 SAVTLUSR EQU IEDNSVTD+100 02134000 @NM00121 EQU SAVTLUSQ+8 02135000 SAVTLUSP EQU SAVTLUSQ+4 02136000 SAVTLUSB EQU SAVTLUSQ 02137000 @NM00120 EQU IEDNSVTD+84 02138000 SAVTSAT EQU IEDNSVTD+80 02139000 SAVTNAT EQU IEDNSVTD+76 02140000 SAVTCLUP EQU IEDNSVTD+72 02141000 SAVTPIUT EQU IEDNSVTD+68 02142000 SAVTRNTA EQU IEDNSVTD+64 02143000 SAVTDNIR EQU IEDNSVTD+60 02144000 SAVTCNIR EQU IEDNSVTD+56 02145000 SAVTFLDH EQU IEDNSVTD+52 02146000 SAVTSRTN EQU IEDNSVTD+48 02147000 SAVTSREQ EQU IEDNSVTD+44 02148000 SAVTFAIL EQU IEDNSVTD+42 02149000 SAVTSUSE EQU IEDNSVTD+40 02150000 SAVTSIB EQU IEDNSVTD+36 02151000 SAVTPRTN EQU IEDNSVTD+32 02152000 @NM00119 EQU IEDNSVTD+28 02153000 SAVTWH20 EQU IEDNSVTD+26 02154000 SAVTPWT EQU IEDNSVTD+24 02155000 SAVTPRTQ EQU IEDNSVTD+20 02156000 SAVTPREQ EQU IEDNSVTD+16 02157000 SAVTPH20 EQU IEDNSVTD+14 02158000 SAVTPUSE EQU IEDNSVTD+12 02159000 SAVTPLCB EQU IEDNSVTD+8 02160000 SAVTPOOL EQU IEDNSVTD+4 02161000 SAVTPRMT EQU SAVTDIAF 02162000 SAVTVIRT EQU SAVTDIAF 02163000 AVTCPBNO EQU IEDQAVTD+1244 02164000 AVTHRESS EQU IEDQAVTD+1243 02165000 @NM00118 EQU IEDQAVTD+1242 02166000 @NM00117 EQU IEDQAVTD+1241 02167000 @NM00116 EQU IEDQAVTD+1240 02168000 @NM00115 EQU IEDQAVTD+1237 02169000 @NM00114 EQU IEDQAVTD+1236 02170000 AVTHRESE EQU @NM00113 02171000 AVTRADDR EQU IEDQAVTD+1228 02172000 AVTNADDR EQU IEDQAVTD+1224 02173000 AVTHRESN EQU IEDQAVTD+1220 02174000 AVTVOLRN EQU IEDQAVTD+1216 02175000 AVTTOTNN EQU IEDQAVTD+1212 02176000 AVTTRCYN EQU IEDQAVTD+1208 02177000 AVTRCTRN EQU IEDQAVTD+1204 02178000 AVTNOVON EQU IEDQAVTD+1200 02179000 AVTADEBN EQU IEDQAVTD+1196 02180000 AVTVOLRR EQU IEDQAVTD+1192 02181000 AVTTOTNR EQU IEDQAVTD+1188 02182000 AVTTRCYR EQU IEDQAVTD+1184 02183000 AVTRCTRR EQU IEDQAVTD+1180 02184000 AVTNOVOR EQU IEDQAVTD+1176 02185000 AVTADEBR EQU IEDQAVTD+1172 02186000 AVTLODPT EQU IEDQAVTD+1168 02187000 AVTIOBN EQU IEDQAVTD+1164 02188000 AVTIOBR EQU IEDQAVTD+1160 02189000 AVTCPBPT EQU IEDQAVTD+1156 02190000 AVTFCPB EQU IEDQAVTD+1152 02191000 @NM00112 EQU IEDQAVTD+1148 02192000 AVTINCPQ EQU IEDQAVTD+1144 02193000 @NM00111 EQU IEDQAVTD+1140 02194000 @NM00110 EQU IEDQAVTD+1137 02195000 @NM00109 EQU AVTBIT4 02196000 @NM00108 EQU AVTBIT4 02197000 @NM00107 EQU AVTBIT4 02198000 @NM00106 EQU AVTBIT4 02199000 @NM00105 EQU AVTBIT4 02200000 @NM00104 EQU AVTBIT4 02201000 @NM00103 EQU AVTBIT4 02202000 AVTRUFTN EQU AVTBIT4 02203000 @NM00102 EQU IEDQAVTD+1132 02204000 AVTNOBFQ EQU IEDQAVTD+1128 02205000 @NM00101 EQU IEDQAVTD+1124 02206000 AVTDKENQ EQU IEDQAVTD+1120 02207000 @NM00100 EQU IEDQAVTD+1116 02208000 AVTDKAPQ EQU IEDQAVTD+1112 02209000 AVTCOPY EQU IEDQAVTD+1108 02210000 AVTIA EQU IEDQAVTD+1104 02211000 AVTFL EQU IEDQAVTD+1100 02212000 @NM00099 EQU IEDQAVTD+1096 02213000 AVTNCPBQ EQU IEDQAVTD+1092 02214000 AVTTOTNC EQU IEDQAVTD+1088 02215000 AVTCMAX EQU IEDQAVTD+1084 02216000 AVTCMIN EQU IEDQAVTD+1080 02217000 AVTHM02 EQU IEDQAVTD+1076 02218000 AVTOPCIN EQU IEDQAVTD+1074 02219000 AVTDCTLN EQU IEDQAVTD+1072 02220000 AVTOPMSK EQU IEDQAVTD+1068 02221000 AVTDDFT EQU IEDQAVTD+1064 02222000 AVTSTEAL EQU IEDQAVTD+1060 02223000 AVTOPTN EQU IEDQAVTD+1056 02224000 AVTDSKCT EQU IEDQAVTD+1054 02225000 AVTCKRST EQU IEDQAVTD+1053 02226000 AVTSTAN EQU AVTBIT3 02227000 AVTSTACN EQU AVTBIT3 02228000 AVTSTAIN EQU AVTBIT3 02229000 AVTSTAYN EQU AVTBIT3 02230000 AVTOLTBN EQU AVTBIT3 02231000 AVTTSAB EQU AVTBIT3 02232000 AVTRFULN EQU AVTBIT3 02233000 AVTRECVN EQU AVTBIT3 02234000 @NM00098 EQU AVTBIT2 02235000 @NM00097 EQU AVTBIT2 02236000 AVTOPEIN EQU AVTBIT2 02237000 AVTSTRTN EQU AVTBIT2 02238000 AVTTOPOL EQU AVTBIT2 02239000 AVTCOPYN EQU AVTBIT2 02240000 AVTREUSN EQU AVTBIT2 02241000 AVTEXTSC EQU AVTBIT2 02242000 AVTDISKN EQU AVTBIT1 02243000 AVTQUCKN EQU AVTBIT1 02244000 AVTCLOSN EQU AVTBIT1 02245000 AVTREADN EQU AVTBIT1 02246000 AVTDLAYN EQU AVTBIT1 02247000 AVTAQTAN EQU AVTBIT1 02248000 AVTTSON EQU AVTBIT1 02249000 AVTAPLKN EQU AVTBIT1 02250000 AVTDUMBR EQU IEDQAVTD+1048 02251000 AVTDLQX EQU IEDQAVTD+1046 02252000 AVTINTLV EQU IEDQAVTD+1044 02253000 AVTSMCNT EQU IEDQAVTD+1042 02254000 AVTAVFCT EQU IEDQAVTD+1040 02255000 AVTOPCON EQU IEDQAVTD+1038 02256000 AVTOPCNT EQU IEDQAVTD+1036 02257000 AVTLNCNT EQU IEDQAVTD+1034 02258000 AVTKEYLE EQU IEDQAVTD+1032 02259000 AVTHA16 EQU IEDQAVTD+1030 02260000 AVTHA7 EQU IEDQAVTD+1028 02261000 AVTHA4 EQU IEDQAVTD+1026 02262000 AVTHA3 EQU IEDQAVTD+1024 02263000 AVTHA2 EQU IEDQAVTD+1022 02264000 AVTGETMS EQU IEDQAVTD+1021 02265000 @NM00096 EQU IEDQAVTD+1020 02266000 AVTGETMD EQU IEDQAVTD+1016 02267000 AVTGETMN EQU IEDQAVTD+1012 02268000 AVTCWTOT EQU IEDQAVTD+1008 02269000 AVTCWINT EQU IEDQAVTD+956 02270000 AVTDTRAP EQU IEDQAVTD+952 02271000 @NM00095 EQU IEDQAVTD+950 02272000 @NM00094 EQU AVTIOTR 02273000 AVTIOTRH EQU AVTIOTR 02274000 AVTIOTRE EQU AVTIOTR 02275000 @NM00093 EQU AVTSUBT 02276000 AVTSUBPT EQU AVTSUBT 02277000 AVTSUBON EQU AVTSUBT 02278000 AVTAFE30 EQU IEDQAVTD+944 02279000 AVTAFE20 EQU IEDQAVTD+940 02280000 AVTAFE10 EQU IEDQAVTD+936 02281000 AVTCWEC2 EQU IEDQAVTD+932 02282000 AVTCWPM2 EQU IEDQAVTD+928 02283000 AVTCWTS2 EQU IEDQAVTD+927 02284000 AVTCWTS1 EQU IEDQAVTD+926 02285000 AVTCWCLD EQU AVTCWFL2 02286000 AVTCWRAP EQU AVTCWFL2 02287000 @NM00092 EQU AVTCWFL2 02288000 @NM00091 EQU AVTCWFL2 02289000 @NM00090 EQU AVTCWFL2 02290000 @NM00089 EQU AVTCWFL2 02291000 @NM00088 EQU AVTCWFL2 02292000 AVTCWACT EQU AVTCWFL2 02293000 @NM00087 EQU AVTCWFL1 02294000 @NM00086 EQU AVTCWFL1 02295000 @NM00085 EQU AVTCWFL1 02296000 @NM00084 EQU AVTCWFL1 02297000 @NM00083 EQU AVTCWFL1 02298000 @NM00082 EQU AVTCWFL1 02299000 @NM00081 EQU AVTCWFL1 02300000 AVTCOMWN EQU AVTCWFL1 02301000 AVTCWEC1 EQU IEDQAVTD+920 02302000 AVTCWPM1 EQU IEDQAVTD+916 02303000 AVTCAREA EQU IEDQAVTD+912 02304000 AVTFZERO EQU IEDQAVTD+908 02305000 AVTCADDR EQU IEDQAVTD+904 02306000 AVTCOREC EQU IEDQAVTD+900 02307000 @NM00080 EQU IEDQAVTD+892 02308000 AVTCPBCB EQU IEDQAVTD+888 02309000 @NM00079 EQU IEDQAVTD+880 02310000 AVTDSIOB EQU IEDQAVTD+876 02311000 @NM00078 EQU IEDQAVTD+868 02312000 AVTCPRMB EQU IEDQAVTD+864 02313000 @NM00077 EQU IEDQAVTD+856 02314000 AVTCLOSB EQU IEDQAVTD+852 02315000 @NM00076 EQU IEDQAVTD+844 02316000 AVTACTIB EQU IEDQAVTD+840 02317000 @NM00075 EQU IEDQAVTD+836 02318000 AVTOLTEB EQU IEDQAVTD+832 02319000 AVTOLTCH EQU AVTOLTQB+1 02320000 AVTOLTVT EQU AVTOLTQB 02321000 @NM00074 EQU AVTOPCQB+8 02322000 @NM00073 EQU AVTOPCEC+1 02323000 @NM00072 EQU AVTOPCCC 02324000 AVTOPCPO EQU AVTOPCCC 02325000 AVTOPCWA EQU AVTOPCCC 02326000 AVTOPCCH EQU AVTOPCOB+1 02327000 AVTOPCVT EQU AVTOPCOB 02328000 @NM00071 EQU AVTCKPQB+9 02329000 AVTCKPTS EQU AVTCKPQB+8 02330000 @NM00070 EQU AVTCKPEC+1 02331000 @NM00069 EQU AVTCKPCC 02332000 AVTCKPPO EQU AVTCKPCC 02333000 AVTCKPWA EQU AVTCKPCC 02334000 AVTCKPCH EQU AVTCKPTB+1 02335000 AVTCKPVT EQU AVTCKPTB 02336000 @NM00068 EQU IEDQAVTD+796 02337000 AVTBFRTB EQU IEDQAVTD+792 02338000 @NM00067 EQU IEDQAVTD+784 02339000 AVTBFREB EQU IEDQAVTD+780 02340000 AVTTIMQ EQU IEDQAVTD+776 02341000 @NM00066 EQU IEDQAVTD+772 02342000 AVTIMQPS EQU IEDQAVTD+768 02343000 AVTINOUT EQU IEDQAVTD+766 02344000 AVTREFTM EQU IEDQAVTD+764 02345000 @NM00065 EQU IEDQAVTD+752 02346000 AVTDELYB EQU IEDQAVTD+748 02347000 AVTOCQPT EQU IEDQAVTD+744 02348000 AVTTSOPT EQU IEDQAVTD+740 02349000 AVTSUPPT EQU IEDQAVTD+736 02350000 AVTCBQCB EQU IEDQAVTD+732 02351000 AVTMSGS EQU IEDQAVTD+729 02352000 @NM00064 EQU AVTSYSER 02353000 @NM00063 EQU AVTSYSER 02354000 @NM00062 EQU AVTSYSER 02355000 @NM00061 EQU AVTSYSER 02356000 @NM00060 EQU AVTSYSER 02357000 @NM00059 EQU AVTSYSER 02358000 AVTCMAXN EQU AVTSYSER 02359000 AVTCMINN EQU AVTSYSER 02360000 AVT2260L EQU IEDQAVTD+724 02361000 AVTABEPL EQU AVTADBUF 02362000 AVTHFF EQU AVTCLRHI+2 02363000 @NM00058 EQU AVTCLRHI 02364000 AVTCCLNK EQU AVTCRELE+5 02365000 AVTCCPRI EQU AVTCRELE+4 02366000 AVTCCQCB EQU AVTCCELE+1 02367000 AVTCCKEY EQU AVTCCELE 02368000 AVTDELAD EQU IEDQAVTD+704 02369000 AVTDELEM EQU IEDQAVTD+700 02370000 AVTBSX EQU AVTCKLNK 02371000 AVTOPETR EQU AVTHG01 02372000 @NM00057 EQU AVTCKBYT 02373000 AVTCKONQ EQU AVTCKBYT 02374000 @NM00056 EQU AVTCKBYT 02375000 @NM00055 EQU AVTCKBYT 02376000 @NM00054 EQU AVTCKBYT 02377000 @NM00053 EQU AVTCKBYT 02378000 @NM00052 EQU AVTCKBYT 02379000 @NM00051 EQU AVTCKBYT 02380000 AVTOPERT EQU IEDQAVTD+690 02381000 AVTOPXCL EQU IEDQAVTD+688 02382000 AVTOPERL EQU IEDQAVTD+687 02383000 @NM00050 EQU IEDQAVTD+686 02384000 AVTCKTIM EQU IEDQAVTD+684 02385000 AVTCKELV EQU IEDQAVTD+682 02386000 AVTCPRCD EQU IEDQAVTD+681 02387000 AVTWARMN EQU AVTCKELF 02388000 AVTCRTLN EQU AVTCKELF 02389000 AVTCPIPN EQU AVTCKELF 02390000 AVTCCLCN EQU AVTCKELF 02391000 AVTCINCN EQU AVTCKELF 02392000 @NM00049 EQU AVTCKELF 02393000 AVTCMCPN EQU AVTCKELF 02394000 AVTNQBCK EQU AVTCKELF 02395000 AVTCKQAD EQU IEDQAVTD+677 02396000 AVTSCBSZ EQU IEDQAVTD+676 02397000 @NM00048 EQU IEDQAVTD+672 02398000 AVTCKELE EQU IEDQAVTD+668 02399000 @NM00047 EQU AVTCKPEL+8 02400000 AVTCKRLK EQU AVTCKPEL+5 02401000 AVTCKRPR EQU AVTCKPEL+4 02402000 AVTCKRMQ EQU AVTCKRMV+1 02403000 AVTCKRKY EQU AVTCKRMV 02404000 AVTHK EQU IEDQAVTD+648 02405000 AVTHI EQU IEDQAVTD+644 02406000 AVTIOT EQU IEDQAVTD+640 02407000 AVTNX EQU IEDQAVTD+636 02408000 AVTTONE EQU IEDQAVTD+632 02409000 AVTA3TL EQU IEDQAVTD+628 02410000 AVTDMECB EQU IEDQAVTD+624 02411000 AVTABEND EQU IEDQAVTD+618 02412000 AVTPLCBN EQU IEDQAVTD+616 02413000 @NM00046 EQU AVTSAVTP+1 02414000 @NM00045 EQU AVTSAVTF 02415000 AVTSNA EQU AVTSAVTF 02416000 AVTONSNA EQU AVTSAVTF 02417000 AVTVTMCP EQU AVTSAVTF 02418000 @NM00044 EQU IEDQAVTD+608 02419000 AVTCMBSS EQU IEDQAVTD+604 02420000 AVTRCV EQU IEDQAVTD+600 02421000 AVTSEND EQU IEDQAVTD+596 02422000 AVTCSCH EQU IEDQAVTD+592 02423000 AVTQ1 EQU IEDQAVTD+588 02424000 AVTE7 EQU IEDQAVTD+584 02425000 AVTHB EQU IEDQAVTD+580 02426000 AVTR1 EQU IEDQAVTD+576 02427000 AVTBZ EQU IEDQAVTD+572 02428000 AVTEZ EQU IEDQAVTD+568 02429000 AVTEC EQU IEDQAVTD+564 02430000 AVTEW EQU IEDQAVTD+560 02431000 AVTNDIAL EQU AVTSCOPT 02432000 AVTN2741 EQU AVTSCOPT 02433000 AVTCONCO EQU AVTSCOPT 02434000 AVTCONC EQU AVTSCOPT 02435000 AVTCMBUF EQU AVTSCOPT 02436000 AVTAPDMP EQU AVTSCOPT 02437000 @NM00043 EQU AVTSCOPT 02438000 AVTHA EQU AVTDISP 02439000 AVTEA EQU IEDQAVTD+548 02440000 AVTAX EQU IEDQAVTD+544 02441000 AVTA3 EQU IEDQAVTD+540 02442000 AVTGD EQU IEDQAVTD+536 02443000 AVTAL EQU IEDQAVTD+532 02444000 AVTOLTST EQU AVTHG02 02445000 AVTE8 EQU IEDQAVTD+524 02446000 AVTUI EQU IEDQAVTD+520 02447000 AVTCOMPT EQU IEDQAVTD+516 02448000 AVTCRSRF EQU IEDQAVTD+512 02449000 @NM00042 EQU IEDQAVTD+508 02450000 AVTKA02 EQU IEDQAVTD+504 02451000 AVTOPTPT EQU IEDQAVTD+500 02452000 AVTPCBPT EQU IEDQAVTD+496 02453000 @NM00041 EQU AVTECB1 02454000 AVTCOMP EQU AVTECB1 02455000 @NM00040 EQU AVTECB1 02456000 AVTOPECA EQU IEDQAVTD+488 02457000 AVTOLECA EQU IEDQAVTD+484 02458000 AVTCKECA EQU IEDQAVTD+480 02459000 AVTCWECA EQU IEDQAVTD+476 02460000 AVTCWTCB EQU IEDQAVTD+472 02461000 AVTOLTCB EQU IEDQAVTD+468 02462000 AVTOCTCB EQU IEDQAVTD+464 02463000 AVTCKTCB EQU IEDQAVTD+460 02464000 AVTAS EQU IEDQAVTD+456 02465000 AVTNOLBF EQU IEDQAVTD+454 02466000 AVTNCKPR EQU IEDQAVTD+453 02467000 AVTCIB EQU IEDQAVTD+452 02468000 AVTSPLPT EQU IEDQAVTD+448 02469000 AVTMVBFR EQU IEDQAVTD+444 02470000 AVTSBTA EQU IEDQAVTD+440 02471000 AVTRARTN EQU IEDQAVTD+436 02472000 AVTBSCAN EQU IEDQAVTD+432 02473000 AVTRDYA EQU IEDQAVTD+428 02474000 AVTDISTR EQU IEDQAVTD+420 02475000 AVTPARM3 EQU IEDQAVTD+416 02476000 @NM00039 EQU AVTPKF 02477000 @NM00038 EQU AVTPKF 02478000 @NM00037 EQU AVTPKF 02479000 AVTFTCHF EQU AVTPKF 02480000 @NM00036 EQU AVTPKF 02481000 @NM00035 EQU AVTPKF 02482000 @NM00034 EQU AVTPKF 02483000 @NM00033 EQU AVTPKF 02484000 AVTPARM EQU IEDQAVTD+408 02485000 AVTEXS2A EQU IEDQAVTD+402 02486000 AVTEXA2S EQU IEDQAVTD+396 02487000 AVTOCGET EQU IEDQAVTD+392 02488000 AVTCKAVT EQU @NM00031+1 02489000 @NM00032 EQU AVTCKFLG 02490000 AVTCKHLT EQU AVTCKFLG 02491000 AVTCKREQ EQU AVTCKFLG 02492000 AVTCKENV EQU AVTCKFLG 02493000 AVTCKNAC EQU AVTCKFLG 02494000 AVTCKTAC EQU AVTCKFLG 02495000 @NM00030 EQU IEDQAVTD+384 02496000 AVTREADD EQU IEDQAVTD+380 02497000 AVTREADY EQU IEDQAVTD+376 02498000 AVTRACE EQU IEDQAVTD+372 02499000 AVTTCB EQU IEDQAVTD+368 02500000 AVTPASWD EQU IEDQAVTD+360 02501000 AVTCTLCH EQU IEDQAVTD+352 02502000 AVTDOUBL EQU IEDQAVTD+344 02503000 AVTDOUBX EQU IEDQAVTD+336 02504000 AVTDPARM EQU IEDQAVTD+332 02505000 AVTCSTCS EQU IEDQAVTD+328 02506000 AVTDLQ EQU AVTSAVEX+32 02507000 @NM00029 EQU AVTSAVEX 02508000 AVTSAVE4 EQU IEDQAVTD+216 02509000 AVTSAVE3 EQU IEDQAVTD+144 02510000 AVTSAVE2 EQU IEDQAVTD+72 02511000 AVTSAVE1 EQU IEDQAVTD 02512000 @NM00028 EQU OCLDNME+4 02513000 @NM00027 EQU OCPREFLG 02514000 OCTOTEP EQU OCPREFLG 02515000 OCREPOST EQU OCPREFLG 02516000 OCRSPSNT EQU OCPREFLG 02517000 OCBFREQ EQU OCPREFLG 02518000 OCIDLE EQU OCREQFLG 02519000 OCFORCE EQU OCREQFLG 02520000 OCDCARD EQU OCREQFLG 02521000 OCPARTAL EQU OCREQFLG 02522000 OCADNCP EQU OCREQFLG 02523000 @NM00026 EQU OCREQFLG 02524000 @NM00025 EQU OCREQFLG 02525000 OCFLUSHZ EQU OCREQFLG 02526000 OCRESPCT EQU OCLINTTE 02527000 OCCKPTWA EQU OCCKDATA+4 02528000 @NM00022 EQU OCRSTGTM+2 02529000 OCCKDAT2 EQU OCRSTGTM+1 02530000 OCCKDAT1 EQU OCRSTGTM 02531000 OCPTRSAV EQU OCMODNME+4 02532000 OCPUADR EQU OCIPLWA+2 02533000 OCWTGSAV EQU OCIPLWA 02534000 OCDVRDCT EQU OCBACKUP+6 02535000 OCNCP EQU OCBACKUP+4 02536000 OCBUFGOT EQU OCBACKUP+2 02537000 OCBUFNED EQU OCBACKUP 02538000 OCRESNUM EQU OCPARM 02539000 OCSEQ EQU OCTRUNIT+2 02540000 @NM00021 EQU OCRSID+1 02541000 OCNONE EQU OCALSTAT 02542000 OCSOME EQU OCALSTAT 02543000 OCALLFLG EQU OCALSTAT 02544000 OCREDRVE EQU OCALSTAT 02545000 OCSEQIND EQU OCALSTAT 02546000 @NM00020 EQU OCALSTAT 02547000 OCRENTRD EQU OCALSTAT 02548000 OCWTGB EQU OCTIOT 02549000 @NM00019 EQU @NM00018+2 02550000 OCCONID EQU OCDEST 02551000 OCATTACH EQU OCFLAG 02552000 OCSSCP EQU OCFLAG 02553000 OCOUTPUT EQU OCFLAG 02554000 OCLINE EQU OCFLAG 02555000 OCMPP EQU OCFLAG 02556000 OCTOTE EQU OCFLAG 02557000 OCCONSOL EQU OCFLAG 02558000 @NM00017 EQU OCSWITCH 02559000 OCQUCKN EQU OCSWITCH 02560000 OCPRIFLG EQU OCOPTCDE 02561000 @NM00016 EQU OCRUDEST+1 02562000 @NM00015 EQU OCSCAN 02563000 OCNOTUCB EQU OCSCAN 02564000 OCNONAME EQU OCSCAN 02565000 OCALLRLN EQU OCSCAN 02566000 OCDDNAME EQU OCSCAN 02567000 OCDDNRLN EQU OCSCAN 02568000 OCADDR EQU OCSCAN 02569000 OCELMPTR EQU OCELEM+1 02570000 OCELMPRI EQU OCELEM 02571000 OCLINK EQU IEDQOPCE 02572000 OPCBOTTM EQU IEDQOPCD+1184 02573000 @NM00014 EQU IEDQOPCD+1100 02574000 @NM00013 EQU IEDQOPCD+948 02575000 @NM00012 EQU IEDQOPCD+940 02576000 @NM00011 EQU IEDQOPCD+380 02577000 @NM00010 EQU OPCPWCOB+9 02578000 @NM00009 EQU OPCPWCOB+8 02579000 @NM00008 EQU OPCPWECB+1 02580000 OPCPWCCC EQU OPCPWECB 02581000 OPCPWCHN EQU OPCPWQCB+1 02582000 OPCPWVTO EQU OPCPWQCB 02583000 OPCWAITV EQU IEDQOPCD+364 02584000 OPCTOTCK EQU IEDQOPCD+360 02585000 OPCAPXTL EQU IEDQOPCD+356 02586000 OPCDECR EQU IEDQOPCD+352 02587000 OPCBUFWT EQU IEDQOPCD+348 02588000 OPCWRKSP EQU IEDQOPCD+320 02589000 OPCADGOT EQU IEDQOPCD+318 02590000 OPCRQCNT EQU IEDQOPCD+316 02591000 OPPOLSTP EQU IEDQOPCD+312 02592000 OPCCKCIB EQU IEDQOPCD+308 02593000 OPCEND EQU IEDQOPCD+307 02594000 OPCSTCBS EQU IEDQOPCD+306 02595000 OPCHNEND EQU IEDQOPCD+302 02596000 OPCOQSW EQU IEDQOPCD+301 02597000 @NM00007 EQU OPCSPEC 02598000 @NM00006 EQU OPCSPEC 02599000 @NM00005 EQU OPCSPEC 02600000 @NM00004 EQU OPCSPEC 02601000 OPCFRMCA EQU OPCSPEC 02602000 OPCRSTRT EQU OPCSPEC 02603000 OPCPART EQU OPCSPEC 02604000 OPCALTD EQU OPCSPEC 02605000 OPCBFEND EQU IEDQOPCD+296 02606000 OPCBFIRS EQU IEDQOPCD+292 02607000 OPCAVBUF EQU IEDQOPCD+290 02608000 OPCIPLCT EQU IEDQOPCD+289 02609000 OPCCLNTS EQU IEDQOPCD+288 02610000 OPCHA8 EQU IEDQOPCD+286 02611000 OPCBFREQ EQU IEDQOPCD+284 02612000 OPCFREBF EQU IEDQOPCD+280 02613000 OPCNEXT EQU IEDQOPCD+272 02614000 OPCFMDFC EQU IEDQOPCD+268 02615000 OPCSCNC EQU IEDQOPCD+264 02616000 OPCHORTG EQU IEDQOPCD+260 02617000 OPCCKPTL EQU IEDQOPCD+252 02618000 OPCCKPTF EQU IEDQOPCD+248 02619000 OPCWAITA EQU IEDQOPCD+244 02620000 OPCWAITR EQU IEDQOPCD+240 02621000 OPCWAITP EQU IEDQOPCD+236 02622000 OPCWAITO EQU IEDQOPCD+232 02623000 OPCWAITN EQU IEDQOPCD+228 02624000 OPCWAITL EQU IEDQOPCD+224 02625000 OPCWAITC EQU IEDQOPCD+220 02626000 @NM00003 EQU OPCLDNME+5 02627000 OPCMODID EQU OPCLDNME+3 02628000 @NM00002 EQU OPCLDNME 02629000 OPCWAIT EQU IEDQOPCD+192 02630000 OPCCKERB EQU IEDQOPCD+164 02631000 OPCBFERB EQU IEDQOPCD+148 02632000 OPCFLAG2 EQU IEDQOPCD+147 02633000 OPCFLAG1 EQU IEDQOPCD+146 02634000 OPCWRKSZ EQU IEDQOPCD+144 02635000 OPCRSAVE EQU IEDQOPCD+132 02636000 OPCQCBAD EQU IEDQOPCD+128 02637000 OPCTRMWA EQU IEDQOPCD+52 02638000 OPCPSTWT EQU IEDQOPCD+48 02639000 OPCTNTEA EQU IEDQOPCD+44 02640000 OPCPGCK EQU IEDQOPCD+40 02641000 OPCLCB EQU IEDQOPCD+36 02642000 @NM00001 EQU IEDQOPCD+32 02643000 OPCIPLAD EQU IEDQOPCD+28 02644000 OPCOPTLK EQU IEDQOPCD+20 02645000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02646000 @RC00270 EQU @RC00269 02647000 @RF00341 EQU @RC00322 02648000 @RC00344 EQU @RC00322 02649000 @RT00372 EQU ERREXIT 02650000 @RC00360 EQU @RC00267 02651000 @RT00388 EQU EXIT1 02652000 @RF00380 EQU ERREXIT 02653000 @RC00410 EQU @RC00402 02654000 @RC00403 EQU @RC00402 02655000 @RF00429 EQU ERREXIT 02656000 @RT00455 EQU EXIT1 02657000 @RT00459 EQU ERREXIT 02658000 @RT00475 EQU EXIT1 02659000 @RT00484 EQU EXIT1 02660000 @RF00477 EQU EXIT1 02661000 @RF00516 EQU @RC00510 02662000 @RF00289 EQU @RC00270 02663000 @RF00314 EQU @RC00270 02664000 @RC00365 EQU @RC00360 02665000 @RC00363 EQU @RC00360 02666000 @RC00404 EQU @RC00403 02667000 @RC00411 EQU @RC00410 02668000 @RF00414 EQU @RC00411 02669000 @ENDDATA EQU * 02670000 END IGCMV10D,(C'PLS1902',0701,77120) 02671000