TITLE 'IGCH010D, HOLD RESOURCE COMMAND PROCESSOR *00001000 ' 00002000 IGCH010D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCH010D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00009000 * OPERATOR CONTROL ADDRESS 02S0337 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0337 00012000 * RFY 02S0338 00013000 * RPARM UNRSTD; /* RELEASE THE PARAMETER REGISTER 00014000 * FOR USE BY THE COMPILER */ 00015000 * REG10=ADDR(CMDTEXT)+CMDLNGTH; /* SET THE BASE REGISTER TO BE 00016000 * USED FOR ADDRESSING AUTOMATIC 00017000 * DATA WITH THE POINTER TO THE 00018000 * OPERATOR CONTROL RESIDENT WORK 00019000 * AREA DISPLACED BY THE AREA 00020000 * USED FOR THE HOLD COMMAND AND 00021000 * ITS DATA */ 00022000 L @09,OPCWORK(,ROPCAVT) 02S0339 00023000 LA REG10,CMDTEXT(,@09) 02S0339 00024000 AH REG10,CMDLNGTH(,@09) 02S0339 00025000 * GEN REFS(REG10) NOSETS; 02S0340 00026000 * /* 00027000 USING @DATD,REG10 INFORM THE ASSEMBLER OF THE 00028000 * BASE REGISTER TO BE USED FOR 00029000 * ADDRESSING AUTOMATIC DATA 00030000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00031000 * REGISTER WITH THE POINTER TO 00032000 * THE OPERATOR CONTROL SAVE AREA*/ 00033000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0341 00034000 * 02S0342 00035000 * /*****************************************************************/ 00036000 * /* */ 00037000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00038000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00039000 * /* */ 00040000 * /*****************************************************************/ 00041000 * 02S0342 00042000 * 03S0342 00043000 * /*****************************************************************/ 00044000 * /* */ 00045000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00046000 * /* */ 00047000 * /*****************************************************************/ 00048000 * 03S0342 00049000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00050000 * TCAM ADDRESS VECTOR TABLE */ 00051000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0342 00052000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00053000 * OPERATOR CONTROL ELEMENT */ 00054000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0343 00055000 * IF OCOPTCDE=OCVARY THEN 03S0344 00056000 CLI OCOPTCDE(ROPCE),X'28' 03S0344 00057000 BNE @RF00344 03S0344 00058000 * REG10=ADDR(CMDTEXT); /* ON A VARY COMMAND RESET REG10 00059000 * TO EIGHT INTO THE OPCTL 03S0345 00060000 * WORKAREA @OY20230*/ 00061000 L REG10,OPCWORK(,ROPCAVT) 03S0345 00062000 LA REG10,CMDTEXT(,REG10) 03S0345 00063000 * RETCODE=0; /* INITIALIZE THE RETURN CODE TO 00064000 * INDICATE SUCCESSFUL PROCESSING 00065000 * OF THE HOLD COMMAND */ 00066000 @RF00344 SLR RETCODE,RETCODE 03S0346 00067000 * REG00=0; /* INITIALIZE REGISTER ZERO (0) 00068000 * TO INDICATE THAT AN 03S0347 00069000 * APPROPRIATE MESSAGE NUMBER HAS 00070000 * NOT BEEN DETERMINED */ 00071000 SLR REG00,REG00 03S0347 00072000 * IF OPCRSTRT=OFF /* RESTART IS NOT IN PROGRESS */ 00073000 * &OCOPTCDE^=OCVARY /* THE HOLD COMMAND WAS 02S0348 00074000 * EXTERNALLY BUILT */ 00075000 * &OCTOTE=OFF /* THE INPUT IS NOT FROM TOTE */ 00076000 * &OCMPP=OFF /* THE INPUT IS NOT FROM AN 02S0348 00077000 * APPLICATION PROGRAM */ 00078000 * THEN /* PARSE THE REMAINING OPERANDS 00079000 * THAT ARE IN THE OPERATOR 02S0348 00080000 * CONTROL RESIDENT WORK AREA */ 00081000 TM OPCRSTRT(ROPCAVT),B'00100000' 02S0348 00082000 BNZ @RF00348 02S0348 00083000 CLI OCOPTCDE(ROPCE),X'28' 02S0348 00084000 BE @RF00348 02S0348 00085000 TM OCTOTE(ROPCE),B'01100000' 02S0348 00086000 BNZ @RF00348 02S0348 00087000 * 03S0349 00088000 * /***************************************************************/ 00089000 * /* */ 00090000 * /* PROCESS.PARSE: THIS SEGMENT PARSES THE REMAINING OPERANDS */ 00091000 * /* THAT ARE IN THE OPERATOR CONTROL RESIDENT WORK AREA. */ 00092000 * /* */ 00093000 * /***************************************************************/ 00094000 * 03S0349 00095000 * DO; 03S0349 00096000 * IF CMDTEXT(1:3)='TP=' /* THE INITIAL CHARACTERS ARE 00097000 * CORRECT */ 00098000 * &CMDLNGTH>3 /* THERE ARE OTHER OPERANDS */ 00099000 * &CMDLNGTH<=15 /* THE COMMAND IS NOT GREATER 00100000 * THAN THE MAXIMUM COMMAND 03S0350 00101000 * LENGTH */ 00102000 * THEN /* CONTINUE SCANNING THE COMMAND 00103000 * TEXT FOR VALID OPERANDS */ 00104000 L @11,OPCWORK(,ROPCAVT) 03S0350 00105000 CLC CMDTEXT(3,@11),@CC01842 03S0350 00106000 BNE @RF00350 03S0350 00107000 LA @07,3 03S0350 00108000 LH @05,CMDLNGTH(,@11) 03S0350 00109000 CR @05,@07 03S0350 00110000 BNH @RF00350 03S0350 00111000 C @05,@CF00104 03S0350 00112000 BH @RF00350 03S0350 00113000 * 04S0351 00114000 * /***********************************************************/ 00115000 * /* */ 00116000 * /* PROCESS.PARSE.OPERANDS: THIS SEGMENT CONTINUES SCANNING */ 00117000 * /* THE COMMAND FOR VALID OPERANDS. */ 00118000 * /* */ 00119000 * /***********************************************************/ 00120000 * 04S0351 00121000 * DO; 04S0351 00122000 * PTRSTOP=ADDR(CMDTEXT)+CMDLNGTH-1;/* SET THE "STOP" 04S0352 00123000 * POINTER FOR THE COMMAND TEXT 00124000 * SCAN */ 00125000 L @01,OPCWORK(,ROPCAVT) 04S0352 00126000 LA @01,CMDTEXT(,@01) 04S0352 00127000 ALR @05,@01 04S0352 00128000 BCTR @05,0 04S0352 00129000 LR PTRSTOP,@05 04S0352 00130000 * DO PTRCHAR=ADDR(CMDTEXT)+3 TO PTRSTOP/* SCAN THE COMMAND 00131000 * AFTER "TP=" */ 00132000 * WHILE(SCANCHAR^=',');/* A COMMA IS NOT ENCOUNTERED */ 00133000 ALR @01,@07 04S0353 00134000 LR PTRCHAR,@01 04S0353 00135000 B @DE00353 04S0353 00136000 @DL00353 CLI SCANCHAR(PTRCHAR),C',' 04S0353 00137000 BE @DC00353 04S0353 00138000 * END; 04S0354 00139000 AL PTRCHAR,@CF00062 04S0354 00140000 @DE00353 CR PTRCHAR,PTRSTOP 04S0354 00141000 BNH @DL00353 04S0354 00142000 @DC00353 DS 0H 04S0355 00143000 * OCBACKUP=CMDTEXT(4:PTRCHAR-ADDR(CMDTEXT));/* SAVE THE 00144000 * RESOURCE NAME OPERAND */ 00145000 MVI OCBACKUP+1(ROPCE),C' ' 04S0355 00146000 MVC OCBACKUP+2(6,ROPCE),OCBACKUP+1(ROPCE) 04S0355 00147000 L @11,OPCWORK(,ROPCAVT) 04S0355 00148000 LA @07,CMDTEXT(,@11) 04S0355 00149000 LR @01,PTRCHAR 04S0355 00150000 SLR @01,@07 04S0355 00151000 SL @01,@CF00256 04S0355 00152000 EX @01,@SM01894 04S0355 00153000 * IF PTRCHAR=ADDR(CMDTEXT)+CMDLNGTH/* THERE IS NO RELATIVE 00154000 * LINE NUMBER OPERAND */ 00155000 * &CMDLNGTH<=11 /* THE LENGTH OF THE RESOURCE 00156000 * OPERAND DOES NOT EXCEED THE 00157000 * MAXIMUM LENGTH */ 00158000 * THEN /* INDICATE THAT THE COMMAND IS 00159000 * NOT FOR A LINK */ 00160000 LH @11,CMDLNGTH(,@11) 04S0356 00161000 ALR @07,@11 04S0356 00162000 CR PTRCHAR,@07 04S0356 00163000 BNE @RF00356 04S0356 00164000 C @11,@CF01844 04S0356 00165000 BH @RF00356 04S0356 00166000 * OCRLN=0; /* SET THE RELATIVE LINE NUMBER 00167000 * INPUT FIELD TO ZERO */ 00168000 MVI OCRLN(ROPCE),X'00' 04S0357 00169000 * ELSE /* CHECK FOR A CORRECT RELATIVE 00170000 * LINE NUMBER OPERAND */ 00171000 * IF SCANCHAR=',' /* THE SCAN STOPPED ON A COMMA */ 00172000 * &CMDLNGTH-EVAL(PTRCHAR-ADDR(CMDTEXT))-1>0/* THE 00173000 * RELATIVE LINE NUMBER OPERAND 00174000 * EXISTS */ 00175000 * &CMDLNGTH-EVAL(PTRCHAR-ADDR(CMDTEXT))-1<=3/* THE 00176000 * RELATIVE LINE NUMBER OPERAND 00177000 * LENGTH DOES NOT EXCEED THE 00178000 * MAXIMUM */ 00179000 * THEN /* PROCESS THE RELATIVE LINE 00180000 * NUMBER OPERAND */ 00181000 B @RC00356 04S0358 00182000 @RF00356 CLI SCANCHAR(PTRCHAR),C',' 04S0358 00183000 BNE @RF00358 04S0358 00184000 L @11,OPCWORK(,ROPCAVT) 04S0358 00185000 LA @07,CMDTEXT(,@11) 04S0358 00186000 LR @01,PTRCHAR 04S0358 00187000 SLR @01,@07 04S0358 00188000 LCR @01,@01 04S0358 00189000 AH @01,CMDLNGTH(,@11) 04S0358 00190000 LR @15,@01 04S0358 00191000 BCTR @15,0 04S0358 00192000 LTR @15,@15 04S0358 00193000 BNP @RF00358 04S0358 00194000 LA @14,3 04S0358 00195000 CR @15,@14 04S0358 00196000 BH @RF00358 04S0358 00197000 * 05S0359 00198000 * /*****************************************************/ 00199000 * /* */ 00200000 * /* PROCESS.PARSE.OPERANDS.RELATIVE: THIS SEGMENT */ 00201000 * /* PROCESSES THE CHARACTER RELATIVE LINE NUMBER */ 00202000 * /* OPERAND. */ 00203000 * /* */ 00204000 * /*****************************************************/ 00205000 * 05S0359 00206000 * DO; 05S0359 00207000 * CHARRLN='000'; /* SET THE CHARACTER FIELD FOR 00208000 * THE RELATIVE LINE NUMBER TO 00209000 * CHARACTER ZEROS */ 00210000 MVC CHARRLN(3),@CC01846 05S0360 00211000 * CHARRLN(4-(CMDLNGTH-EVAL(PTRCHAR-ADDR(CMDTEXT))-1):3) 00212000 * =CMDTEXT(PTRCHAR-ADDR(CMDTEXT)+1:CMDLNGTH);/* 00213000 * OBTAIN THE CHARACTER RELATIVE 00214000 * LINE NUMBER */ 00215000 LCR @01,@01 05S0361 00216000 AL @01,@CF00062 05S0361 00217000 AL @01,@CF00256 05S0361 00218000 LA @15,CHARRLN-1(@01) 05S0361 00219000 SLR @14,@01 05S0361 00220000 LCR @07,@07 05S0361 00221000 ALR @07,PTRCHAR 05S0361 00222000 ALR @11,@07 05S0361 00223000 EX @14,@SM01896 05S0361 00224000 * DO PTRCHAR=ADDR(CHARRLN) TO ADDR(CHARRLN)+LENGTH( 00225000 * CHARRLN) /* SCAN THE RELATIVE LINE NUMBER 00226000 * OPERAND */ 00227000 * WHILE(RETCODE=0);/* THE CHARACTERS ARE 05S0362 00228000 * NUMERIC */ 00229000 LA PTRCHAR,CHARRLN 05S0362 00230000 B @DE00362 05S0362 00231000 @DL00362 LTR RETCODE,RETCODE 05S0362 00232000 BNZ @DC00362 05S0362 00233000 * IF SCANCHAR<'0'|SCANCHAR>'9'/* THE CHARACTER IS 00234000 * NOT NUMERIC */ 00235000 * THEN /* INDICATE THAT AN INVALID 05S0363 00236000 * OPERAND HAS BEEN ENCOUNTERED */ 00237000 CLI SCANCHAR(PTRCHAR),C'0' 05S0363 00238000 BL @RT00363 05S0363 00239000 CLI SCANCHAR(PTRCHAR),C'9' 05S0363 00240000 BNH @RF00363 05S0363 00241000 @RT00363 DS 0H 05S0364 00242000 * DO; 05S0364 00243000 * RETCODE=4; /* SET THE RETURN CODE */ 00244000 LA RETCODE,4 05S0365 00245000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) WITH 00246000 * THE APPROPRIATE MESSAGE NUMBER*/ 00247000 LA REG00,18 05S0366 00248000 * END; 05S0367 00249000 * END; 05S0368 00250000 @RF00363 AL PTRCHAR,@CF00062 05S0368 00251000 @DE00362 LA @11,CHARRLN 05S0368 00252000 AL @11,@CF00075 05S0368 00253000 CR PTRCHAR,@11 05S0368 00254000 BNH @DL00362 05S0368 00255000 @DC00362 DS 0H 05S0369 00256000 * IF RETCODE=0 /* THE RELATIVE LINE NUMBER IS 00257000 * NUMERICS */ 00258000 * THEN /* CONVERT THE CHARACTER RELATIVE 00259000 * LINE NUMBER */ 00260000 SLR @11,@11 05S0369 00261000 CR RETCODE,@11 05S0369 00262000 BNE @RF00369 05S0369 00263000 * 06S0370 00264000 * /*************************************************/ 00265000 * /* */ 00266000 * /* PROCESS.PARSE.OPERANDS.RELATIVE.CONVERT: THIS */ 00267000 * /* SEGMENT CONVERTS THE CHARACTER RELATIVE LINE */ 00268000 * /* NUMBER TO A POSITIVE BINARY INTEGER. */ 00269000 * /* */ 00270000 * /*************************************************/ 00271000 * 06S0370 00272000 * DO; 06S0370 00273000 * PACK(PACKRLN,CHARRLN);/* PACK THE RELATIVE LINE 00274000 * NUMBER */ 00275000 PACK PACKRLN(2),CHARRLN(3) 06S0371 00276000 * CVB(FIXEDRLN,PACKRLN);/* CONVERT THE PACKED 00277000 * RELATIVE LINE NUMBER TO A 00278000 * BINARY FIXED-POINT INTEGER */ 00279000 XC @TS00001(8),@TS00001 06S0372 00280000 MVC @TS00001+6(2),PACKRLN 06S0372 00281000 CVB FIXEDRLN,@TS00001 06S0372 00282000 * IF FIXEDRLN>0&FIXEDRLN<=255/* TEST FOR A 06S0373 00283000 * RELATIVE LINE NUMBER THAT IS 00284000 * IN RANGE */ 00285000 * THEN /* SET THE RELATIVE LINE NUMBER 00286000 * INPUT FIELD */ 00287000 CR FIXEDRLN,@11 06S0373 00288000 BNH @RF00373 06S0373 00289000 C FIXEDRLN,@CF01850 06S0373 00290000 BH @RF00373 06S0373 00291000 * OCRLN=FIXEDRLN; 06S0374 00292000 STC FIXEDRLN,OCRLN(,ROPCE) 06S0374 00293000 * ELSE /* INDICATE THAT AN INVALID 06S0375 00294000 * OPERAND WAS ENCOUNTERED */ 00295000 * DO; 06S0375 00296000 B @RC00373 06S0375 00297000 @RF00373 DS 0H 06S0376 00298000 * RETCODE=4;/* SET THE RETURN CODE */ 00299000 LA RETCODE,4 06S0376 00300000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) 00301000 * WITH THE APPROPRIATE MESSAGE 00302000 * NUMBER */ 00303000 LA REG00,18 06S0377 00304000 * END; 06S0378 00305000 * END; 06S0379 00306000 * END; 05S0380 00307000 * ELSE /* INDICATE THAT AN INVALID 04S0381 00308000 * OPERAND WAS ENCOUNTERED */ 00309000 * DO; 04S0381 00310000 B @RC00358 04S0381 00311000 @RF00358 DS 0H 04S0382 00312000 * RETCODE=4; /* SET THE RETURN CODE */ 00313000 LA RETCODE,4 04S0382 00314000 * REG00=MSGINVOP; /* SET REGISTER ZERO (0) WITH THE 00315000 * APPROPRIATE MESSAGE NUMBER */ 00316000 LA REG00,18 04S0383 00317000 * END; 04S0384 00318000 * END; 04S0385 00319000 * ELSE /* INDICATE THAT AN ERROR HAS 00320000 * BEEN DETECTED */ 00321000 * DO; 03S0386 00322000 B @RC00350 03S0386 00323000 @RF00350 DS 0H 03S0387 00324000 * RETCODE=4; /* SET THE RETURN CODE */ 00325000 LA RETCODE,4 03S0387 00326000 * REG00=MSGINVOP; /* SET REGISTER ZERO (0) WITH THE 00327000 * APPROPRIATE MESSAGE NUMBER */ 00328000 LA REG00,18 03S0388 00329000 * END; 03S0389 00330000 * END; 03S0390 00331000 @RC00350 DS 0H 03S0391 00332000 * IF RETCODE=0 /* NO ERRORS HAVE BEEN 02S0391 00333000 * ENCOUNTERED */ 00334000 * THEN /* VERIFY THAT THE RESOURCE CAN 00335000 * BE HELD AND CONTINUE 02S0391 00336000 * PROCESSING */ 00337000 @RF00348 LTR RETCODE,RETCODE 02S0391 00338000 BNZ @RF00391 02S0391 00339000 * DO; 02S0392 00340000 * 03S0393 00341000 * /*************************************************************/ 00342000 * /* */ 00343000 * /* PROCESS.VERIFY: THIS SEGMENT VERIFIES THAT THE OPERANDS */ 00344000 * /* DESCRIBE A RESOURCE THAT IS KNOWN TO TCAM AND THAT THE */ 00345000 * /* RESOURCE TYPE CAN BE HELD. */ 00346000 * /* */ 00347000 * /*************************************************************/ 00348000 * 03S0393 00349000 * DO; 03S0393 00350000 * OPCDOUBL=OCBACKUP; /* SET THE ARGUMENT FOR THE 03S0394 00351000 * EXTERNAL ROUTINES THAT VERIFY 00352000 * THE RESOURCE NAME */ 00353000 MVC OPCDOUBL(8,ROPCAVT),OCBACKUP(ROPCE) 03S0394 00354000 * 04S0395 00355000 * /***********************************************************/ 00356000 * /* */ 00357000 * /* PROCESS.VERIFY.NAME: THIS SEGMENT VERIFIES THAT THE */ 00358000 * /* RESOURCE NAME IS KNOWN TO TCAM. */ 00359000 * /* */ 00360000 * /***********************************************************/ 00361000 * 04S0395 00362000 * DO; 04S0395 00363000 * RFY 04S0396 00364000 * REG01 RSTD; /* RESTRICT THE REGISTER THAT 00365000 * WILL CONTAIN THE RESULT FROM 00366000 * THE TRMOFLOC EXTERNAL ROUTINE */ 00367000 * CALL TRMOFLOC; /* CHECK THE RESOURCE NAME */ 00368000 L @15,OPCTOFLK(,ROPCAVT) 04S0397 00369000 BALR @14,@15 04S0397 00370000 *TRMOGOOD: /* (REG14+0) */ 00371000 * GO TO AFTERTRM; /* CONTINUE THE VERIFICATION 00372000 * PROCESSING */ 00373000 B AFTERTRM 04S0398 00374000 *TRMOFBAD: /* (REG14+4) */ 00375000 * RETCODE=32; /* SET THE RETURN CODE TO 04S0399 00376000 * INDICATE THAT THE RESOURCE IS 00377000 * UNKNOWN TO TCAM */ 00378000 TRMOFBAD LA RETCODE,32 04S0399 00379000 * REG00=16; /* SET REGISTER ZERO (0) WITH THE 00380000 * APPROPRIATE MESSAGE NUMBER */ 00381000 LA REG00,16 04S0400 00382000 * 05S0401 00383000 * /*********************************************************/ 00384000 * /* */ 00385000 * /* PROCESS.VERIFY.NAMERLN: THIS SEGMENT VERIFIES THAT THE*/ 00386000 * /* LINEGROUP NAME AND RELATIVE LINE NUMBER COMBINATION IS*/ 00387000 * /* KNOWN TO TCAM. */ 00388000 * /* */ 00389000 * /*********************************************************/ 00390000 * 05S0401 00391000 * DO; 05S0401 00392000 * RFY 05S0402 00393000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER*/ 00394000 * REG01=OCRLN; /* SET THE RELAIVE LINE NUMBER 00395000 * ARGUMENT */ 00396000 SLR REG01,REG01 05S0403 00397000 IC REG01,OCRLN(,ROPCE) 05S0403 00398000 * RFY 05S0404 00399000 * REG00 RSTD; /* RESTRICT THE REGISTER THAT 00400000 * WILL CONTAIN THE RESULT FROM 00401000 * THE DCBLOCAT EXTERNAL ROUTINE */ 00402000 * CALL DCBLOCAT; 05S0405 00403000 L @15,OPCDCBLK(,ROPCAVT) 05S0405 00404000 BALR @14,@15 05S0405 00405000 *DCBLGOOD: /* (REG14+0) */ 00406000 * GO TO AFTERDCB; /* CONTINUE THE VERIFICATION 00407000 * PROCESSING */ 00408000 B AFTERDCB 05S0406 00409000 *DCBLOBAD: /* (REG14+4) */ 00410000 * RETCODE=32; /* SET THE RETURN CODE TO 05S0407 00411000 * INDICATE THAT THE RESOURCE IS 00412000 * NOT KNOWN TO TCAM */ 00413000 DCBLOBAD LA RETCODE,32 05S0407 00414000 * REG00=16; /* SET REGISTER ZERO (0) WITH THE 00415000 * APPROPRIATE MESSAGE NUMBER */ 00416000 LA REG00,16 05S0408 00417000 * GO TO ENDNAMER; 05S0409 00418000 B ENDNAMER 05S0409 00419000 *AFTERDCB: 05S0410 00420000 * RETCODE=0; /* GOOD RETURN @YM08564*/ 00421000 AFTERDCB SLR RETCODE,RETCODE 05S0410 00422000 * RTRM=REG00; /* SET THE BASE POINTER FOR THE 00423000 * RESOURCE ENTRY STRUCTURE */ 00424000 LR RTRM,REG00 05S0411 00425000 * REG00=0; /* INDICATE THAT NO MESSAGE 05S0412 00426000 * NUMBER HAS BEEN SET */ 00427000 SLR REG00,REG00 05S0412 00428000 * END; 05S0413 00429000 * GO TO ENDNAMER; /* @YM08564*/ 00430000 B ENDNAMER 04S0414 00431000 *AFTERTRM: 04S0415 00432000 * RTRM=REG01; /* SET THE BASE POINTER FOR THE 00433000 * RESOURCE ENTRY STRUCTURE */ 00434000 AFTERTRM LR RTRM,REG01 04S0415 00435000 * RFY 04S0416 00436000 * REG01 UNRSTD; /* RELEASE THE RESULT REGISTER */ 00437000 * REG00=0; /* INDICATE THAT NO MESSAGE 04S0417 00438000 * NUMBER HAS BEEN SET */ 00439000 SLR REG00,REG00 04S0417 00440000 *ENDNAMER: /* @YM08564*/ 00441000 * END; 04S0418 00442000 ENDNAMER DS 0H 04S0419 00443000 * IF RETCODE=0 /* NO ERRORS HAVE BEEN FOUND */ 00444000 * THEN /* VERIFY THAT THE RESOURCE TYPE 00445000 * CAN BE HELD AND CONTINUE 03S0419 00446000 * PROCESSING */ 00447000 LTR RETCODE,RETCODE 03S0419 00448000 BNZ @RF00419 03S0419 00449000 * 04S0420 00450000 * /*********************************************************/ 00451000 * /* */ 00452000 * /* PROCESS.VERIFY.TYPE: THIS SEGMENT VERIFIES THAT THE */ 00453000 * /* RESOURCE TYPE CAN BE HELD. */ 00454000 * /* */ 00455000 * /*********************************************************/ 00456000 * 04S0420 00457000 * DO; 04S0420 00458000 * IF TRMLIST=ON /* LIST ENTRY */ 00459000 * |TRMPROC=ON /* PROCESS ENTRY */ 00460000 * |TRMPREF=ON&(TRMTYPE=TRMGRP|TRMTYPE=TRMLNCP|TRMTYPE= 00461000 * TRMSSCP|TRMTYPE=TRMNSDLC)/* IF TYRMTYPE IS GROUP, 00462000 * NCP,SSCP,BSC LINE @YM06873*/ 00463000 * |AVTAS=0 /* HOLD PROCESSING IS NOT IN THE 00464000 * SYSTEM */ 00465000 * THEN /* INDICATE THAT AN ERROR HAS 00466000 * BEEN DETECTED */ 00467000 TM TRMLIST(RTRM),B'01100000' 04S0421 00468000 BNZ @RT00421 04S0421 00469000 TM TRMPREF(RTRM),B'00010000' 04S0421 00470000 BNO @GL00010 04S0421 00471000 LR @11,RTRM 04S0421 00472000 SL @11,@CF01880 04S0421 00473000 CLI TRMTYPE(@11),X'00' 04S0421 00474000 BE @RT00421 04S0421 00475000 CLI TRMTYPE(@11),X'0F' 04S0421 00476000 BE @RT00421 04S0421 00477000 CLI TRMTYPE(@11),X'FF' 04S0421 00478000 BE @RT00421 04S0421 00479000 CLI TRMTYPE(@11),X'20' 04S0421 00480000 BE @RT00421 04S0421 00481000 @GL00010 L @11,AVTAS(,RAVT) 04S0421 00482000 LTR @11,@11 04S0421 00483000 BNZ @RF00421 04S0421 00484000 @RT00421 DS 0H 04S0422 00485000 * DO; 04S0422 00486000 * RETCODE=4; /* SET THE RETURN CODE */ 00487000 LA RETCODE,4 04S0423 00488000 * REG00=60; /* SET REGISTER ZERO (0) WITH THE 00489000 * APPROPRIATE MESSAGE NUMBER */ 00490000 LA REG00,60 04S0424 00491000 * END; 04S0425 00492000 * ELSE /* CONTINUE THE VERIFICATION */ 00493000 * IF TRMPREF=OFF&DCTUMASK=ON/* GENERAL POLL */ 00494000 * |TRMPREF=ON&TRMTYPE=TRMCLUST/* CLUSTER */ 00495000 * THEN /* INDICATE AN ERROR HAS BEEN 00496000 * DETECTED */ 00497000 B @RC00421 04S0426 00498000 @RF00421 TM TRMPREF(RTRM),B'00010000' 04S0426 00499000 BNZ @GL00016 04S0426 00500000 SLR @15,@15 04S0426 00501000 IC @15,TRMCHCIN(,RTRM) 04S0426 00502000 BCTR @15,0 04S0426 00503000 MH @15,AVTDCTLN(,RAVT) 04S0426 00504000 AL @15,AVTCSTCS(,RAVT) 04S0426 00505000 TM DCTUMASK(@15),B'00000001' 04S0426 00506000 BO @RT00426 04S0426 00507000 @GL00016 TM TRMPREF(RTRM),B'00010000' 04S0426 00508000 BNO @RF00426 04S0426 00509000 LR @11,RTRM 04S0426 00510000 AL @11,@CF01143 04S0426 00511000 CLI TRMTYPE-11(@11),X'40' 04S0426 00512000 BNE @RF00426 04S0426 00513000 @RT00426 DS 0H 04S0427 00514000 * DO; 04S0427 00515000 * RETCODE=4; /* SET THE RETURN CODE */ 00516000 LA RETCODE,4 04S0428 00517000 * REG00=147; /* SET REGISTER ZERO (0) WITH THE 00518000 * APPROPRIATE MESSAGE NUMBER */ 00519000 LA REG00,147 04S0429 00520000 * END; 04S0430 00521000 * END; 04S0431 00522000 @RF00426 DS 0H 04S0431 00523000 @RC00421 DS 0H 04S0432 00524000 * END; 03S0432 00525000 @RF00419 DS 0H 03S0433 00526000 * IF RETCODE=0 /* THE RESOURCE CAN BE HELD */ 00527000 * THEN /* PROCESS THE HOLD REQUEST FOR 00528000 * THE SPECIFIC TYPE OF RESOURCE */ 00529000 LTR RETCODE,RETCODE 02S0433 00530000 BNZ @RF00433 02S0433 00531000 * 03S0434 00532000 * /***********************************************************/ 00533000 * /* */ 00534000 * /* PROCESS.HOLD: THIS SEGMENT DETERMINES IF MULTIPLE */ 00535000 * /* FUNCTION PROCESSING IS REQUIRED FOR THE HOLD REQUEST AND*/ 00536000 * /* PROCESSES THE HOLD REQUEST ACCORDINGLY. */ 00537000 * /* */ 00538000 * /***********************************************************/ 00539000 * 03S0434 00540000 * DO; 03S0434 00541000 * IF TRMPREF=ON /* A COMMUNICATIONS CONTROLLER 00542000 * RESOURCE */ 00543000 * &OCTOTE=ON /* TOTE CONTROLS THE RESOURCE */ 00544000 * THEN /* INDICATE THAT TOTE CONTROLS 00545000 * THE RESOURCE */ 00546000 TM TRMPREF(RTRM),B'00010000' 03S0435 00547000 BNO @RF00435 03S0435 00548000 TM OCTOTE(ROPCE),B'01000000' 03S0435 00549000 BNO @RF00435 03S0435 00550000 * TRMSTOTE=ON; 03S0436 00551000 LR @11,RTRM 03S0436 00552000 AL @11,@CF01898 03S0436 00553000 OI TRMSTOTE-3(@11),B'00000001' 03S0436 00554000 * OCALSTAT=OCUNSET; /* SET THE STATUS INDICATOR TO 00555000 * THE UNSET STATE */ 00556000 @RF00435 MVI OCALSTAT(ROPCE),X'00' 03S0437 00557000 * IF TRMPREF=OFF /* AN EP TERMINAL */ 00558000 * |TRMTYPE>=TRMLUNT&TRMTYPE<=TRMPSNA/* TERMINAL OR 00559000 * LOGICAL UNIT @YM06487*/ 00560000 * THEN /* PROCESS THE TERMINAL OR 03S0438 00561000 * LOGICAL UNIT HOLD REQUEST */ 00562000 TM TRMPREF(RTRM),B'00010000' 03S0438 00563000 BZ @RT00438 03S0438 00564000 LR @11,RTRM 03S0438 00565000 SL @11,@CF01880 03S0438 00566000 CLI TRMTYPE(@11),X'30' 03S0438 00567000 BL @RF00438 03S0438 00568000 CLI TRMTYPE(@11),X'4F' 03S0438 00569000 BH @RF00438 03S0438 00570000 @RT00438 DS 0H 03S0439 00571000 * DO; 03S0439 00572000 * CALL LOGICAL; 03S0440 00573000 BAL @14,LOGICAL 03S0440 00574000 * IF RETCODE=0 /* NO ERRORS WERE ENCOUNTERED */ 00575000 * THEN /* PREPARE FOR THE SUCCESSFUL 00576000 * HOLD MESSAGE */ 00577000 LTR RETCODE,RETCODE 03S0441 00578000 BNZ @RF00441 03S0441 00579000 * DO; 03S0442 00580000 * IF OCOPTCDE=OCVARY&OCPARM=26 THEN 03S0443 00581000 CLI OCOPTCDE(ROPCE),X'28' 03S0443 00582000 BNE @RF00443 03S0443 00583000 LA @11,26 03S0443 00584000 CH @11,OCPARM(,ROPCE) 03S0443 00585000 BNE @RF00443 03S0443 00586000 * REG00=26; /* THE INPUT WAS THE RESULT OF A 00587000 * VARY COMMAND @OZ30332*/ 00588000 LR REG00,@11 03S0444 00589000 * ELSE 03S0445 00590000 * DO; /* @OZ30332*/ 00591000 B @RC00443 03S0445 00592000 @RF00443 DS 0H 03S0446 00593000 * REG00=51; /* SET REGISTER ZERO (0) WITH THE 00594000 * APPROPRIATE MESSAGE NUMBER */ 00595000 LA REG00,51 03S0446 00596000 * CVD(TRMOUTSQ,OPCDOUBL);/* CONVERT THE OUTPUT 00597000 * SEQUENCE NUMBER TO DECIMAL */ 00598000 LH @11,TRMOUTSQ(,RTRM) 03S0447 00599000 N @11,@CF01899 03S0447 00600000 CVD @11,OPCDOUBL(,ROPCAVT) 03S0447 00601000 * UNPK(OPCDOUBL(1:5),OPCDOUBL(6:8));/* UNPACK 00602000 * THE DECIMAL NUMBER */ 00603000 UNPK OPCDOUBL(5,ROPCAVT),OPCDOUBL+5(3,ROPCAVT) 03S0448 00604000 * OPCDOUBL(5:5)=OPCDOUBL(5:5)|SIGNMASK;/* 03S0449 00605000 * CONVERT THE SIGN TO PRINTABLE 00606000 * BITS @YM08392*/ 00607000 OI OPCDOUBL+4(ROPCAVT),C'0' 03S0449 00608000 * MVC(OCMODNME(1:4),OPCDOUBL(2:5));/* PLACE THE 00609000 * SEQUENCE NUMBER IN THE 03S0450 00610000 * OPERATOR CONTROL ELEMENT */ 00611000 MVC OCMODNME(4,ROPCE),OPCDOUBL+1(ROPCAVT) 03S0450 00612000 * END; /* @OZ30332*/ 00613000 * END; 03S0452 00614000 * END; 03S0453 00615000 * ELSE /* DO THE MULTIPLE FUNCTION 03S0454 00616000 * PROCESSING */ 00617000 * 04S0454 00618000 * /*******************************************************/ 00619000 * /* */ 00620000 * /* PROCESS.HOLD.MULTIPLE: THIS SEGMENT PERFORMS THE */ 00621000 * /* MULTIPLE FUNCTION HOLD PROCESSING. */ 00622000 * /* */ 00623000 * /*******************************************************/ 00624000 * 04S0454 00625000 * DO; 04S0454 00626000 B @RC00438 04S0454 00627000 @RF00438 DS 0H 04S0455 00628000 * IF TRMTYPE=TRMPUNT /* PHYSICAL UNIT */ 00629000 * THEN /* PROCESS THE HOLD REQUEST FOR 00630000 * THE PHYSICAL UNIT */ 00631000 LR @11,RTRM 04S0455 00632000 AL @11,@CF01143 04S0455 00633000 CLI TRMTYPE-11(@11),X'18' 04S0455 00634000 BNE @RF00455 04S0455 00635000 * CALL PHYSICAL; 04S0456 00636000 BAL @14,PHYSICAL 04S0456 00637000 * ELSE /* TEST FOR A LINK */ 00638000 * IF TRMPREF=ON&TRMTYPE=TRMSDLC/* LINK ENTRY */ 00639000 * THEN /* PROCESS THE HOLD REQUEST FOR 00640000 * THE LINK */ 00641000 B @RC00455 04S0457 00642000 @RF00455 TM TRMPREF(RTRM),B'00010000' 04S0457 00643000 BNO @RF00457 04S0457 00644000 LR @11,RTRM 04S0457 00645000 SL @11,@CF01880 04S0457 00646000 CLI TRMTYPE(@11),X'21' 04S0457 00647000 BNE @RF00457 04S0457 00648000 * 05S0458 00649000 * /*************************************************/ 00650000 * /* */ 00651000 * /* PROCESS.HOLD.MULTIPLE.LINK: THIS SEGMENT DOES */ 00652000 * /* THE PROCESSING FOR A LINK HOLD REQUEST. */ 00653000 * /* */ 00654000 * /*************************************************/ 00655000 * 05S0458 00656000 * DO; 05S0458 00657000 * IF TRMSUBST^=0/* TEST FOR AN ATTACHED PHYSICAL 00658000 * UNIT */ 00659000 * THEN /* PROCESS THE PHYSICAL UNIT(S) 00660000 * ON THE LINK */ 00661000 LH @11,TRMSUBST(,@11) 05S0459 00662000 N @11,@CF01899 05S0459 00663000 LTR @11,@11 05S0459 00664000 BZ @RF00459 05S0459 00665000 * DO; 05S0460 00666000 * OCALLFLG=ON;/* INDICATE THAT MULTIPLE 05S0461 00667000 * FUNCTION PROCESSING IS TO BE 00668000 * PERFORMED FOR THIS HOLD 05S0461 00669000 * COMMAND */ 00670000 OI OCALLFLG(ROPCE),B'00000100' 05S0461 00671000 * LNKTTCIN=OCTRMTBL;/* SAVE THE TTCIN FOR THE 00672000 * LINK */ 00673000 LH @09,OCTRMTBL(,ROPCE) 05S0462 00674000 N @09,@CF01899 05S0462 00675000 STH @09,LNKTTCIN 05S0462 00676000 * RFY 05S0463 00677000 * RPARM RSTD; 05S0463 00678000 * RPARM=TRMSUBST;/* GET THE FIRST PHYSICAL 00679000 * UNIT TTCIN */ 00680000 LR RPARM,@11 05S0464 00681000 * DO UNTIL(TRMCOHRT=0|LNKTTCIN=TRMCOHRT);/* 00682000 * PROCESS UNTIL THERE ARE NO 00683000 * MORE PHYSICAL UNITS ON THE 00684000 * LINK TO BE PROCESSED */ 00685000 @DL00465 DS 0H 05S0466 00686000 * OCTRMTBL=RPARM;/* SAVE THE TTCIN FOR THE 00687000 * PHYSICAL UNIT */ 00688000 STH RPARM,OCTRMTBL(,ROPCE) 05S0466 00689000 * CALL IEDQTNT; 05S0467 00690000 L @15,AVTRNMPT(,RAVT) 05S0467 00691000 BALR @14,@15 05S0467 00692000 * RTRM=RPARM;/* SET THE BASE POINTER FOR 00693000 * THE RESOURCE ENTRY STRUCTURE */ 00694000 LR RTRM,RPARM 05S0468 00695000 * IF OCTOTE=ON THEN/* TOTE? */ 00696000 TM OCTOTE(ROPCE),B'01000000' 05S0469 00697000 BNO @RF00469 05S0469 00698000 * TRMSTOTE=ON;/* SET TOTE OWN FLAG */ 00699000 LR @11,RTRM 05S0470 00700000 AL @11,@CF01898 05S0470 00701000 OI TRMSTOTE-3(@11),B'00000001' 05S0470 00702000 * ELSE 05S0471 00703000 * ; /* NORMAL FALL THROUGH */ 00704000 @RF00469 DS 0H 05S0472 00705000 * CALL PHYSICAL; 05S0472 00706000 BAL @14,PHYSICAL 05S0472 00707000 * RPARM=TRMCOHRT;/* GET THE TTCIN OF THE 00708000 * NEXT PHYSICAL UNIT ON THE LINK*/ 00709000 LR @11,RTRM 05S0473 00710000 AL @11,@CF01901 05S0473 00711000 LH RPARM,TRMCOHRT-4(,@11) 05S0473 00712000 N RPARM,@CF01899 05S0473 00713000 * END; 05S0474 00714000 @DE00465 LR @11,RTRM 05S0474 00715000 SL @11,@CF01880 05S0474 00716000 LH @07,TRMCOHRT(,@11) 05S0474 00717000 N @07,@CF01899 05S0474 00718000 LTR @07,@07 05S0474 00719000 BZ @DC00465 05S0474 00720000 CLC LNKTTCIN(2),TRMCOHRT(@11) 05S0474 00721000 BNE @DL00465 05S0474 00722000 @DC00465 DS 0H 05S0475 00723000 * RFY 05S0475 00724000 * RPARM UNRSTD; 05S0475 00725000 * OCTRMTBL=LNKTTCIN;/* RESTORE OCTRMTBL WITH 00726000 * THE TTCIN FOR THE LINK */ 00727000 LH @11,LNKTTCIN 05S0476 00728000 N @11,@CF01899 05S0476 00729000 STH @11,OCTRMTBL(,ROPCE) 05S0476 00730000 * END; 05S0477 00731000 * ELSE /* INDICATE THAT AN ERROR HAS 00732000 * BEEN DETECTED */ 00733000 * DO; 05S0478 00734000 B @RC00459 05S0478 00735000 @RF00459 DS 0H 05S0479 00736000 * RETCODE=4;/* SET THE RETURN CODE */ 00737000 LA RETCODE,4 05S0479 00738000 * REG00=60; /* SET REGISTER ZERO (0) WITH THE 00739000 * APPROPRIATE MESSAGE NUMBER */ 00740000 LA REG00,60 05S0480 00741000 * END; 05S0481 00742000 * END; 05S0482 00743000 * ELSE /* INDICATE THAT AN ERROR HAS 00744000 * BEEN ENCOUNTERED */ 00745000 * DO; 04S0483 00746000 B @RC00457 04S0483 00747000 @RF00457 DS 0H 04S0484 00748000 * RETCODE=4; /* SET THE RETURN CODE */ 00749000 LA RETCODE,4 04S0484 00750000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) WITH 00751000 * THE APPROPRIATE MESSAGE NUMBER*/ 00752000 LA REG00,18 04S0485 00753000 * END; 04S0486 00754000 * 05S0487 00755000 * /*****************************************************/ 00756000 * /* */ 00757000 * /* PROCESS.HOLD.MULTIPLE.MESSAGE: THIS SEGMENT */ 00758000 * /* DETERMINES THE APPROPRIATE MESSAGE NUMBER FOR */ 00759000 * /* MULTIPLE FUNCTION PROCESSING. */ 00760000 * /* */ 00761000 * /*****************************************************/ 00762000 * 05S0487 00763000 * DO; 05S0487 00764000 @RC00457 DS 0H 05S0487 00765000 @RC00455 DS 0H 05S0488 00766000 * IF OCSOME=ON&OCNONE=ON/* THE STATUS INDICATOR IS 00767000 * SET TO "ALL HELD" */ 00768000 * THEN /* SET THE APPROPRIATE MESSAGE 00769000 * NUMBER */ 00770000 TM OCSOME(ROPCE),B'00000011' 05S0488 00771000 BNO @RF00488 05S0488 00772000 * DO; 05S0489 00773000 * RETCODE=0; /* SET THE RETURN CODE */ 00774000 SLR RETCODE,RETCODE 05S0490 00775000 * REG00=522; /* SET REGISTER ZERO (0) WITH THE 00776000 * APPROPRIATE MESSAGE NUMBER */ 00777000 LA REG00,522 05S0491 00778000 * END; 05S0492 00779000 * ELSE /* TEST FOR "SOME HELD" */ 00780000 * IF OCSOME=ON /* THE STATUS INDICATOR IS SET TO 00781000 * "SOME HELD" */ 00782000 * THEN /* SET THE APPROPRIATE MESSAGE 00783000 * NUMBER */ 00784000 B @RC00488 05S0493 00785000 @RF00488 TM OCSOME(ROPCE),B'00000010' 05S0493 00786000 BNO @RF00493 05S0493 00787000 * DO; 05S0494 00788000 * RETCODE=0; /* SET THE RETURN CODE */ 00789000 SLR RETCODE,RETCODE 05S0495 00790000 * REG00=521; /* SET REGISTER ZERO (0) WITH THE 00791000 * APPROPRIATE MESSAGE NUMBER */ 00792000 LA REG00,521 05S0496 00793000 * END; 05S0497 00794000 * ELSE /* TEST FOR "NONE HELD" */ 00795000 * IF OCNONE=ON /* THE STATUS INDICATOR IS SET TO 00796000 * "NONE HELD" */ 00797000 * THEN /* SET THE APPROPRIATE MESSAGE 00798000 * NUMBER */ 00799000 B @RC00493 05S0498 00800000 @RF00493 TM OCNONE(ROPCE),B'00000001' 05S0498 00801000 BNO @RF00498 05S0498 00802000 * DO; 05S0499 00803000 * RETCODE=4;/* SET THE RETURN CODE */ 00804000 LA RETCODE,4 05S0500 00805000 * REG00=523;/* SET REGISTER ZERO (0) WITH THE 00806000 * APPROPRIATE MESSAGE NUMBER */ 00807000 LA REG00,523 05S0501 00808000 * END; 05S0502 00809000 * END; 05S0503 00810000 @RF00498 DS 0H 05S0503 00811000 @RC00493 DS 0H 05S0503 00812000 @RC00488 DS 0H 05S0504 00813000 * END; 04S0504 00814000 * END; 03S0505 00815000 @RC00438 DS 0H 03S0506 00816000 * END; 02S0506 00817000 @RF00433 DS 0H 02S0507 00818000 * 02S0507 00819000 * /*****************************************************************/ 00820000 * /* */ 00821000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00822000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM */ 00823000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00824000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00825000 * /* */ 00826000 * /*****************************************************************/ 00827000 * 02S0507 00828000 * IF OCOPTCDE=OCVARY /* THE INPUT WAS A RESULT OF A 00829000 * VARY COMMAND */ 00830000 * &(OCTOTE=ON&OCPARM=0|OCTOTE=OFF&OCPARM=26)/* THE VARY 02S0507 00831000 * PROCESSING WAS SUCCESSFUL */ 00832000 * &OCSWITCH=OCMIDMSG /* THE RESOURCE IS TO BE REMOVED 00833000 * FROM A "MIDDLE OF MESSAGE" 00834000 * CONDITION */ 00835000 * THEN /* RETURN TO A VARY MODULE */ 00836000 @RF00391 CLI OCOPTCDE(ROPCE),X'28' 02S0507 00837000 BNE @RF00507 02S0507 00838000 TM OCTOTE(ROPCE),B'01000000' 02S0507 00839000 BNO @GL00027 02S0507 00840000 LH @11,OCPARM(,ROPCE) 02S0507 00841000 LTR @11,@11 02S0507 00842000 BZ @GL00025 02S0507 00843000 @GL00027 TM OCTOTE(ROPCE),B'01000000' 02S0507 00844000 BNZ @RF00507 02S0507 00845000 CLC OCPARM(2,ROPCE),@CH01864 02S0507 00846000 BNE @RF00507 02S0507 00847000 @GL00025 CLI OCSWITCH(ROPCE),X'20' 02S0507 00848000 BNE @RF00507 02S0507 00849000 * DO; 02S0508 00850000 * REG00=OCPARM; /* SET REGISTER ZERO (0) WITH THE 00851000 * MESSAGE NUMBER */ 00852000 LH REG00,OCPARM(,ROPCE) 02S0509 00853000 * OPCMODID='V7'; /* SET THE MODULE IDENTIFICATION 00854000 * CHARACTERS */ 00855000 MVC OPCMODID(2,ROPCAVT),@CC01873 02S0510 00856000 * OCWTG=''B; /* ZERO THE "WHERE TO GO" FIELD */ 00857000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 02S0511 00858000 * END; 02S0512 00859000 * ELSE /* DETERMINE WHICH MODULE IS TO 00860000 * RECEIVE CONTROL */ 00861000 * DO; 02S0513 00862000 B @RC00507 02S0513 00863000 @RF00507 DS 0H 02S0514 00864000 * IF OCOPTCDE=OCVARY /* THE INPUT WAS A RESULT OF A 00865000 * VARY COMMAND */ 00866000 * &^(OCTOTE=ON&OCPARM=0|OCTOTE=OFF&OCPARM=26)/* THE VARY 00867000 * PROCESSING WAS NOT SUCCESSFUL */ 00868000 * &RETCODE^=0 /* THE HOLD PROCESSING WAS NOT 00869000 * SUCCESSFUL */ 00870000 * THEN /* SET REGISTER ZERO (0) WITH THE 00871000 * VARY COMMAND ERROR MESSAGE 00872000 * NUMBER */ 00873000 CLI OCOPTCDE(ROPCE),X'28' 02S0514 00874000 BNE @RF00514 02S0514 00875000 TM OCTOTE(ROPCE),B'01000000' 02S0514 00876000 BNO @GL00032 02S0514 00877000 LH @11,OCPARM(,ROPCE) 02S0514 00878000 LTR @11,@11 02S0514 00879000 BZ @RF00514 02S0514 00880000 @GL00032 TM OCTOTE(ROPCE),B'01000000' 02S0514 00881000 BNZ @GL00030 02S0514 00882000 CLC OCPARM(2,ROPCE),@CH01864 02S0514 00883000 BE @RF00514 02S0514 00884000 @GL00030 LTR RETCODE,RETCODE 02S0514 00885000 BZ @RF00514 02S0514 00886000 * REG00=OCPARM; /* SET REGISTER ZERO (0) WITH THE 00887000 * MESSAGE NUMBER FROM THE 02S0515 00888000 * OPERATOR CONTROL ELEMENT */ 00889000 LH REG00,OCPARM(,ROPCE) 02S0515 00890000 * IF OCTOTE=ON /* THE INPUT WAS FROM TOTE */ 00891000 * |OCMPP=ON /* THE INPUT WAS FROM AN 02S0516 00892000 * APPLICATION PROGRAM */ 00893000 * THEN /* PREPARE TO RETURN TO THE 02S0516 00894000 * MESSAGE WRITING MODULE */ 00895000 @RF00514 TM OCTOTE(ROPCE),B'01100000' 02S0516 00896000 BZ @RF00516 02S0516 00897000 * DO; 02S0517 00898000 * OCPARM=RETCODE; /* PUT THE RETURN CODE IN THE 00899000 * OPERATOR CONTROL ELEMENT */ 00900000 STH RETCODE,OCPARM(,ROPCE) 02S0518 00901000 * REG00=RETCODE; /* SET REGISTER ZERO (0) WITH THE 00902000 * RETURN CODE */ 00903000 LR REG00,RETCODE 02S0519 00904000 * OPCMODID='07'; /* SET THE MODULE IDENTIFICATION 00905000 * CHARACTERS */ 00906000 MVC OPCMODID(2,ROPCAVT),@CC01874 02S0520 00907000 * END; 02S0521 00908000 * ELSE /* DETERMINE THE NORMAL HOLD 00909000 * COMMAND RETURN MODULE */ 00910000 * DO; 02S0522 00911000 B @RC00516 02S0522 00912000 @RF00516 DS 0H 02S0523 00913000 * OCPARM=REG00; /* PUT THE MESSAGE NUMBER IN THE 00914000 * OPERATOR CONTROL ELEMENT */ 00915000 STH REG00,OCPARM(,ROPCE) 02S0523 00916000 * OPCMODID='09'; /* SET THE MODULE IDENTIFICATION 00917000 * CHARACTERS */ 00918000 MVC OPCMODID(2,ROPCAVT),@CC01875 02S0524 00919000 * END; 02S0525 00920000 * IF RETCODE=0 /* THE HOLD PROCESSING WAS 02S0526 00921000 * SUCCESSFUL */ 00922000 * |OPCRSTRT=ON /* RESTART IS IN PROGRESS */ 00923000 * THEN /* PREPARE TO CHECKPOINT THE 00924000 * SUCCESSFUL PROCESSING */ 00925000 @RC00516 LTR RETCODE,RETCODE 02S0526 00926000 BZ @RT00526 02S0526 00927000 TM OPCRSTRT(ROPCAVT),B'00100000' 02S0526 00928000 BNO @RF00526 02S0526 00929000 @RT00526 DS 0H 02S0527 00930000 * DO; 02S0527 00931000 * OCWTG=OPCMODID; /* SET THE "WHERE TO GO" 02S0528 00932000 * CHARACTERS */ 00933000 MVC OCWTG(2,ROPCE),OPCMODID(ROPCAVT) 02S0528 00934000 * OPCMODID='06'; /* SET THE MODULE IDENTIFICATION 00935000 * CHARACTERS */ 00936000 MVC OPCMODID(2,ROPCAVT),@CC01876 02S0529 00937000 * END; 02S0530 00938000 * ELSE /* ZERO THE "WHERE TO GO" FIELD */ 00939000 * OCWTG=''B; 02S0531 00940000 B @RC00526 02S0531 00941000 @RF00526 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 02S0531 00942000 * END; 02S0532 00943000 @RC00526 DS 0H 02S0533 00944000 * RFY 02S0533 00945000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00946000 * TO BE USED TO CONTAIN THE 00947000 * POINTER TO THE OPERATOR 02S0533 00948000 * CONTROL ADDRESS VECTOR TABLE 00949000 * FROM USE BY THE COMPILER */ 00950000 @RC00507 DS 0H 02S0534 00951000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00952000 * PREPARATION TO TRANSFERRING 00953000 * CONTROL TO THE NEXT MODULE */ 00954000 LR REG01,ROPCAVT 02S0534 00955000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0535 00956000 * /* 00957000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00958000 * 02S0536 00959000 * /*****************************************************************/ 00960000 * /* */ 00961000 * /* LOGICAL: THIS SEGMENT CONTAINS AN INTERNAL PROCEDURE WHICH */ 00962000 * /* PROCESSES THE HOLD REQUEST FOR A LOGICAL UNIT. */ 00963000 * /* */ 00964000 * /*****************************************************************/ 00965000 * 02S0536 00966000 *LOGICAL: 02S0536 00967000 * PROC OPTIONS(RETREG,SAVE(14)); /* @YM06487*/ 00968000 LOGICAL ST @14,@SA00002 02S0536 00969000 * RETCODE=0; /* INDICATE THAT NO ERROR HAS 00970000 * BEEN DETECTED FOR MULTIPLE 00971000 * FUNCTION PROCESSING */ 00972000 * 02S0537 00973000 SLR RETCODE,RETCODE 02S0537 00974000 * /*****************************************************************/ 00975000 * /* */ 00976000 * /* THIS SEGMENT BUILDS A ELEMENT TO INTERFACE WITH IEDQAS TO HAVE*/ 00977000 * /* A DEVICE QUEUE RELEASED @0Z15629*/ 00978000 * /* */ 00979000 * /*****************************************************************/ 00980000 * 02S0538 00981000 * OPCWRKSP(3)=REG00; /* SAVE REG 0 FOR THE LOOP 02S0538 00982000 * @OZ15629*/ 00983000 ST REG00,OPCWRKSP+8(,ROPCAVT) 02S0538 00984000 * IF OPCRSTRT=ON|OCTOTE=ON THEN 02S0539 00985000 TM OPCRSTRT(ROPCAVT),B'00100000' 02S0539 00986000 BO @RT00539 02S0539 00987000 TM OCTOTE(ROPCE),B'01000000' 02S0539 00988000 BNO @RF00539 02S0539 00989000 @RT00539 DS 0H 02S0540 00990000 * DO; 02S0540 00991000 * END; /* IF RESTART OR TOTE RESOUCE, DO 00992000 * NOT POST BUFFER @OZ15629*/ 00993000 * ELSE 02S0542 00994000 * DO; 02S0542 00995000 B @RC00539 02S0542 00996000 @RF00539 DS 0H 02S0543 00997000 * RPARM=ONE; /* INDICATE ONE BUFFER NEEDED 00998000 * @OZ15629*/ 00999000 LA RPARM,1 02S0543 01000000 * CALL ALLOCBUF; /* GET A BUFFER @OZ15629*/ 01001000 L @15,OPCGETBF(,ROPCAVT) 02S0544 01002000 BALR @14,@15 02S0544 01003000 * RPRF=RPARM; /* EST. ADDRESSABILITY @OZ15629*/ 01004000 LR RPRF,RPARM 02S0545 01005000 * REG00=OPCWRKSP(3); /* RESTORE @OZ15629*/ 01006000 L REG00,OPCWRKSP+8(,ROPCAVT) 02S0546 01007000 * IF OCOPTCDE=OCVARY&OCSWITCH=OCMIDMSG THEN 02S0547 01008000 CLI OCOPTCDE(ROPCE),X'28' 02S0547 01009000 BNE @RF00547 02S0547 01010000 CLI OCSWITCH(ROPCE),X'20' 02S0547 01011000 BNE @RF00547 02S0547 01012000 * PRFSTAT1=ONE; /* IF INTERNAL VARY AND MID MSG 01013000 * REQUIRED SET PRFSTAT1 @OZ15629*/ 01014000 MVI PRFSTAT1(RPRF),B'00000001' 02S0548 01015000 * ELSE 02S0549 01016000 * ; 02S0549 01017000 @RF00547 DS 0H 02S0550 01018000 * PRFQCBA=AVTAS; /* QAS QCB ADDR @OZ15629*/ 01019000 MVC PRFQCBA(3,RPRF),AVTAS+1(RAVT) 02S0550 01020000 * PRFPRI=PRIOPCTL; /* PRIORITY @ZM46691*/ 01021000 MVI PRFPRI(RPRF),X'DC' 02S0551 01022000 * PRFTIC=INVALTIC; /* INDICATE ONE BUFFER UNIT 02S0552 01023000 * @OZ15629*/ 01024000 MVC PRFTIC(4,RPRF),@CB01379 02S0552 01025000 * PRFNBUNT=ONE; /* ONE UNIT @OZ15629*/ 01026000 MVI PRFNBUNT(RPRF),X'01' 02S0553 01027000 * PRFDEST=OCTRMTBL; /* TNT INDEX OF DEVICE @OZ15629*/ 01028000 LH @07,OCTRMTBL(,ROPCE) 02S0554 01029000 N @07,@CF01899 02S0554 01030000 STH @07,PRFDEST(,RPRF) 02S0554 01031000 * OPCAQFST=RPRF; /* BUILD AQCTL PARAMETER LIST 01032000 * @OZ15629*/ 01033000 STCM RPRF,7,OPCAQFST(ROPCAVT) 02S0555 01034000 * OPCAQREQ=TPOST; /* POST CODE @OZ15629*/ 01035000 MVI OPCAQREQ(ROPCAVT),X'0C' 02S0556 01036000 * OPCAQSEC=RPRF; /* ONE ELEMENT TO POST @OZ15629*/ 01037000 STCM RPRF,7,OPCAQSEC(ROPCAVT) 02S0557 01038000 * OPCAQRQ2=ENDLIST; /* END OF LIST CODE @OZ15629*/ 01039000 MVI OPCAQRQ2(ROPCAVT),X'80' 02S0558 01040000 * RPARM=ADDR(OPCAQCTL); /* PARM LIST ADDRESS @OZ15629*/ 01041000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0559 01042000 * SVC(102); /* TCAM CROSS PARTITION 02S0560 01043000 * COMMUNICATION ROUTINE @OZ15629*/ 01044000 SVC 102 02S0560 01045000 * END; /* @OZ15629*/ 01046000 * IF TRMHELDN=OFF /* THE RESOURCE IS NOT IN HOLD 01047000 * MODE */ 01048000 * THEN /* DO QCB CHECKING AND CONTINUE 01049000 * PROCESSING */ 01050000 @RC00539 TM TRMHELDN(RTRM),B'00000100' 02S0562 01051000 BNZ @RF00562 02S0562 01052000 * IF QCBDRQQ=ON /* CONCENTRATOR */ 01053000 * |OCTOTE=ON /* TOTE INPUT */ 01054000 * &TRMPREF=ON /* RESOURCE IS A COMMUNICATIONS 01055000 * CONTROLLER */ 01056000 * |(QCBNREUS=ON|QCBREUS=ON) /* THERE IS DISK QUEUEING */ 01057000 * THEN /* DO CONCENTRATOR HOLD 02S0563 01058000 * PROCESSING */ 01059000 L @07,TRMDESTQ-1(,RTRM) 02S0563 01060000 TM QCBDRQQ(@07),B'00000100' 02S0563 01061000 BO @RT00563 02S0563 01062000 TM OCTOTE(ROPCE),B'01000000' 02S0563 01063000 BNO @GL00038 02S0563 01064000 TM TRMPREF(RTRM),B'00010000' 02S0563 01065000 BO @RT00563 02S0563 01066000 @GL00038 L @07,TRMDESTQ-1(,RTRM) 02S0563 01067000 TM QCBNREUS(@07),B'00110000' 02S0563 01068000 BZ @RF00563 02S0563 01069000 @RT00563 DS 0H 02S0564 01070000 * 03S0564 01071000 * /*************************************************************/ 01072000 * /* */ 01073000 * /* LOGICAL.DCB: THIS SEGMENT CHECKS THE DATA CONTROL BLOCK */ 01074000 * /* AND DOES THE CONCENTRATOR HOLD PROCESSING. */ 01075000 * /* */ 01076000 * /*************************************************************/ 01077000 * 03S0564 01078000 * DO; 03S0564 01079000 * IF DCBOFOPN=OFF /* THE DCB IS NOT OPEN */ 01080000 * &OPCRSTRT=ON /* RESTART IS IN PROGRESS */ 01081000 * |DCBDSGIS=ON /* THIS IS AN LGB */ 01082000 * |DCBOFOPN=ON /* THE DCB IS OPEN */ 01083000 * &DCBDSGIS=OFF /* THIS IS NOT AN LGB */ 01084000 * &QCBRELLN<=DEBNMEXT /* THE RELATIVE LINE NUMBER IS 01085000 * NOT EXCEEDED */ 01086000 * &DEBUCBAD(QCBRELLN)^=0/* THE DEB IS NOT OPENED "DUMMY" 01087000 * @YM08020*/ 01088000 * THEN /* SET THE HOLD STATE INDICATORS */ 01089000 L @07,TRMDESTQ-1(,RTRM) 03S0565 01090000 L @07,QCBDCBAD-1(,@07) 03S0565 01091000 TM DCBOFOPN+40(@07),B'00010000' 03S0565 01092000 BNZ @GL00042 03S0565 01093000 TM OPCRSTRT(ROPCAVT),B'00100000' 03S0565 01094000 BO @RT00565 03S0565 01095000 @GL00042 L @07,TRMDESTQ-1(,RTRM) 03S0565 01096000 LA @07,0(,@07) 03S0565 01097000 L @05,QCBDCBAD-1(,@07) 03S0565 01098000 LA @05,0(,@05) 03S0565 01099000 LA @15,20 03S0565 01100000 ALR @15,@05 03S0565 01101000 TM DCBDSGIS(@15),B'10000000' 03S0565 01102000 BO @RT00565 03S0565 01103000 AL @05,@CF00042 03S0565 01104000 TM DCBOFOPN(@05),B'00010000' 03S0565 01105000 BNO @RF00565 03S0565 01106000 TM DCBDSGIS(@15),B'10000000' 03S0565 01107000 BNZ @RF00565 03S0565 01108000 L @05,DCBDEBAD(,@05) 03S0565 01109000 SL @05,@CF00851 03S0565 01110000 CLC QCBRELLN(1,@07),DEBNMEXT(@05) 03S0565 01111000 BH @RF00565 03S0565 01112000 SLR @15,@15 03S0565 01113000 IC @15,QCBRELLN(,@07) 03S0565 01114000 SLA @15,2 03S0565 01115000 L @07,DEBUCBAD-5(@15,@05) 03S0565 01116000 LA @07,0(,@07) 03S0565 01117000 LTR @07,@07 03S0565 01118000 BZ @RF00565 03S0565 01119000 @RT00565 DS 0H 03S0566 01120000 * DO; 03S0566 01121000 * IF QCBTERMQ=ON /* THERE IS QUEUEING BY TERMINAL */ 01122000 * THEN /* SET THE HOLD INDICATOR */ 01123000 L @07,TRMDESTQ-1(,RTRM) 03S0567 01124000 LA @07,0(,@07) 03S0567 01125000 TM QCBTERMQ(@07),B'00001000' 03S0567 01126000 BNO @RF00567 03S0567 01127000 * QCBTRMHO=ON; 03S0568 01128000 OI QCBTRMHO(@07),B'01000000' 03S0568 01129000 * TRMHELDN=ON; /* SET THE RESOURCE FOR HOLD */ 01130000 @RF00567 OI TRMHELDN(RTRM),B'00000100' 03S0569 01131000 * END; 03S0570 01132000 * ELSE /* INDICATE THAT AN ERROR HAS 01133000 * BEEN ENCOUNTERED */ 01134000 * DO; 03S0571 01135000 B @RC00565 03S0571 01136000 @RF00565 DS 0H 03S0572 01137000 * RETCODE=1; /* SET THE RETURN CODE */ 01138000 LA RETCODE,1 03S0572 01139000 * REG00=60; /* SET REGISTER ZERO (0) WITH THE 01140000 * APPROPRIATE MESSAGE NUMBER */ 01141000 LA REG00,60 03S0573 01142000 * END; 03S0574 01143000 * END; 03S0575 01144000 * ELSE /* INDICATE THAT AN ERROR HAS 01145000 * BEEN ENCOUNTERED */ 01146000 * DO; 02S0576 01147000 B @RC00563 02S0576 01148000 @RF00563 DS 0H 02S0577 01149000 * RETCODE=4; /* SET THE RETURN CODE */ 01150000 LA RETCODE,4 02S0577 01151000 * REG00=60; /* SET REGISTER ZERO (0) WITH THE 01152000 * APPROPRIATE MESSAGE NUMBER */ 01153000 LA REG00,60 02S0578 01154000 * END; 02S0579 01155000 * ELSE /* INDICATE THAT AN ERROR HAS 01156000 * BEEN FOUND */ 01157000 * DO; 02S0580 01158000 B @RC00562 02S0580 01159000 @RF00562 DS 0H 02S0581 01160000 * RETCODE=8; /* SET THE RETURN CODE */ 01161000 LA RETCODE,8 02S0581 01162000 * REG00=52; /* SET REGISTER ZERO (0) WITH THE 01163000 * APPROPRIATE MESSAGE NUMBER */ 01164000 LA REG00,52 02S0582 01165000 * END; 02S0583 01166000 * END LOGICAL; 02S0584 01167000 @EL00002 DS 0H 02S0584 01168000 @EF00002 DS 0H 02S0584 01169000 @ER00002 L @14,@SA00002 02S0584 01170000 BR @14 02S0584 01171000 * 02S0585 01172000 * /*****************************************************************/ 01173000 * /* */ 01174000 * /* PHYSICAL: THIS SEGMENT CONTAINS AN INTERNAL PROCEDURE WHICH */ 01175000 * /* PROCESSES THE HOLD REQUEST FOR A PHYSICAL UNIT. */ 01176000 * /* */ 01177000 * /*****************************************************************/ 01178000 * 02S0585 01179000 *PHYSICAL: 02S0585 01180000 * PROC OPTIONS(RETREG,SAVE(14)); /* @YM06487*/ 01181000 PHYSICAL ST @14,@SA00003 02S0585 01182000 * RETCODE=0; /* INIDCATE THAT NO ERRORS HAVE 01183000 * BEEN DETECTED FOR MULTIPLE 01184000 * FUNCTION PROCESSING */ 01185000 SLR RETCODE,RETCODE 02S0586 01186000 * IF TRMSUBST^=0 /* LOGICAL UNITS ARE ATTACHED TO 01187000 * THE PHYSICAL UNIT */ 01188000 * THEN /* PROCESS TO HOLD THE LOGICAL 01189000 * UNITS */ 01190000 LR @11,RTRM 02S0587 01191000 BCTR @11,0 02S0587 01192000 BCTR @11,0 02S0587 01193000 LH @11,TRMSUBST-12(,@11) 02S0587 01194000 N @11,@CF01899 02S0587 01195000 LTR @11,@11 02S0587 01196000 BZ @RF00587 02S0587 01197000 * DO; 02S0588 01198000 ST @11,@TF00001 02S0588 01199000 * OCALLFLG=ON; /* INDICATE THAT MULTIPLE 02S0589 01200000 * FUNCTION PROCESSING IS TO BE 01201000 * PERFORMED FOR THIS HOLD 02S0589 01202000 * COMMAND */ 01203000 OI OCALLFLG(ROPCE),B'00000100' 02S0589 01204000 * PHYTTCIN=OCTRMTBL; /* SAVE OCTRMTBL */ 01205000 LH PHYTTCIN,OCTRMTBL(,ROPCE) 02S0590 01206000 N PHYTTCIN,@CF01899 02S0590 01207000 * RPARM=TRMSUBST; /* SET THE PARAMETER REGISTER 01208000 * WITH THE TTCIN OF THE FIRST 01209000 * LOGICAL UNIT */ 01210000 L RPARM,@TF00001 02S0591 01211000 * DO UNTIL(TRMCOHRT=0|PHYTTCIN=TRMCOHRT); 02S0592 01212000 @DL00592 DS 0H 02S0593 01213000 * CALL IEDQTNT; 02S0593 01214000 L @15,AVTRNMPT(,RAVT) 02S0593 01215000 BALR @14,@15 02S0593 01216000 * RTRM=RPARM; /* SET THE BASE POINTER FOR THE 01217000 * RESOURCE ENTRY STRUCTURE */ 01218000 LR RTRM,RPARM 02S0594 01219000 * IF OCTOTE=ON THEN /* TOTE? */ 01220000 TM OCTOTE(ROPCE),B'01000000' 02S0595 01221000 BNO @RF00595 02S0595 01222000 * TRMSTOTE=ON; /* SET TOTE OWNED FLAG */ 01223000 LR @09,RTRM 02S0596 01224000 AL @09,@CF01898 02S0596 01225000 OI TRMSTOTE-3(@09),B'00000001' 02S0596 01226000 * ELSE 02S0597 01227000 * ; /* NORMAL FALL THROUGH */ 01228000 @RF00595 DS 0H 02S0598 01229000 * CALL LOGICAL; 02S0598 01230000 BAL @14,LOGICAL 02S0598 01231000 * 03S0599 01232000 * /***********************************************************/ 01233000 * /* */ 01234000 * /* PHYSICAL.REMEMBER: THIS SEGMENT REMEMBERS THE RESULTS OF*/ 01235000 * /* PROCESSING A HOLD REQUEST FOR A LOGICAL UNIT. */ 01236000 * /* */ 01237000 * /***********************************************************/ 01238000 * 03S0599 01239000 * DO; 03S0599 01240000 * IF RETCODE=0 /* THE HOLD REQUEST PROCESSING 01241000 * FOR THE LOGICAL UNIT WAS 03S0600 01242000 * SUCCESSFUL */ 01243000 * THEN /* REMEMBER THE SUCCESS */ 01244000 LTR RETCODE,RETCODE 03S0600 01245000 BNZ @RF00600 03S0600 01246000 * DO; 03S0601 01247000 * IF OCSOME=OFF&OCNONE=OFF/* THE INDICATOR IS UNSET */ 01248000 * THEN /* SET TO "ALL HELD" */ 01249000 TM OCSOME(ROPCE),B'00000011' 03S0602 01250000 BNZ @RF00602 03S0602 01251000 * DO; 03S0603 01252000 * OCSOME=ON; 03S0604 01253000 * OCNONE=ON; 03S0605 01254000 OI OCSOME(ROPCE),B'00000011' 03S0605 01255000 * END; 03S0606 01256000 * ELSE /* TEST THE INDICATOR FOR "NONE 01257000 * HELD" */ 01258000 * IF OCSOME=OFF&OCNONE=ON/* THE INDICATOR IS SET TO 01259000 * "NONE HELD" */ 01260000 * THEN /* SET TO "SOME HELD" */ 01261000 B @RC00602 03S0607 01262000 @RF00602 TM OCNONE(ROPCE),B'00000001' 03S0607 01263000 BNO @RF00607 03S0607 01264000 TM OCSOME(ROPCE),B'00000010' 03S0607 01265000 BNZ @RF00607 03S0607 01266000 * DO; 03S0608 01267000 * OCSOME=ON; 03S0609 01268000 * OCNONE=OFF; 03S0610 01269000 OI OCSOME(ROPCE),B'00000010' 03S0610 01270000 NI OCNONE(ROPCE),B'11111110' 03S0610 01271000 * END; 03S0611 01272000 * END; 03S0612 01273000 * ELSE /* REMEMBER THE FAILURE */ 01274000 * DO; 03S0613 01275000 B @RC00600 03S0613 01276000 @RF00600 DS 0H 03S0614 01277000 * IF OCSOME=OFF&OCNONE=OFF/* THE INDICATOR IS UNSET */ 01278000 * THEN /* SET THE INDICATOR TO "NONE 01279000 * HELD" */ 01280000 TM OCSOME(ROPCE),B'00000011' 03S0614 01281000 BNZ @RF00614 03S0614 01282000 * OCNONE=ON; 03S0615 01283000 OI OCNONE(ROPCE),B'00000001' 03S0615 01284000 * ELSE /* TEST THE INDICATOR FOR "ALL 01285000 * HELD" */ 01286000 * IF OCSOME=ON&OCNONE=ON/* THE INDICATOR IS SET TO 01287000 * "ALL HELD" */ 01288000 * THEN /* SET THE INDICATOR TO "SOME 01289000 * HELD" */ 01290000 B @RC00614 03S0616 01291000 @RF00614 TM OCSOME(ROPCE),B'00000011' 03S0616 01292000 BNO @RF00616 03S0616 01293000 * OCNONE=OFF; 03S0617 01294000 NI OCNONE(ROPCE),B'11111110' 03S0617 01295000 * END; 03S0618 01296000 @RF00616 DS 0H 03S0618 01297000 @RC00614 DS 0H 03S0619 01298000 * END; 03S0619 01299000 @RC00600 DS 0H 03S0620 01300000 * RPARM=TRMCOHRT; /* GET THE TTCIN OF THE NEXT 01301000 * LOGICAL UNIT */ 01302000 LR @07,RTRM 02S0620 01303000 AL @07,@CF01901 02S0620 01304000 LH RPARM,TRMCOHRT-4(,@07) 02S0620 01305000 N RPARM,@CF01899 02S0620 01306000 * END; 02S0621 01307000 @DE00592 LR @07,RTRM 02S0621 01308000 AL @07,@CF01901 02S0621 01309000 LH @07,TRMCOHRT-4(,@07) 02S0621 01310000 N @07,@CF01899 02S0621 01311000 LTR @07,@07 02S0621 01312000 BZ @DC00592 02S0621 01313000 CLR PHYTTCIN,@07 02S0621 01314000 BNE @DL00592 02S0621 01315000 @DC00592 DS 0H 02S0622 01316000 * OCTRMTBL=PHYTTCIN; /* RESTORE THE TTCIN FOR THE 01317000 * PHYSICAL UNIT */ 01318000 STH PHYTTCIN,OCTRMTBL(,ROPCE) 02S0622 01319000 * RPARM=PHYTTCIN; /* SET THE PARAMETER REGISTER 01320000 * WITH PU TTCIN @YM07279*/ 01321000 LR RPARM,PHYTTCIN 02S0623 01322000 * CALL IEDQTNT; /* @YM07279*/ 01323000 L @15,AVTRNMPT(,RAVT) 02S0624 01324000 BALR @14,@15 02S0624 01325000 * RTRM=RPARM; /* @YM07279*/ 01326000 LR RTRM,RPARM 02S0625 01327000 * REG00=0; /* RESET REGISTER ZERO (0) */ 01328000 SLR REG00,REG00 02S0626 01329000 * END; 02S0627 01330000 * ELSE /* INDICATE THAT AN ERROR HAS 01331000 * BEEN FOUND */ 01332000 * DO; 02S0628 01333000 B @RC00587 02S0628 01334000 @RF00587 DS 0H 02S0629 01335000 * RETCODE=4; /* SET THE RETURN CODE */ 01336000 LA RETCODE,4 02S0629 01337000 * REG00=60; /* SET REGISTER ZERO (0) WITH THE 01338000 * APPROPRIATE MESSAGE NUMBER */ 01339000 LA REG00,60 02S0630 01340000 * END; 02S0631 01341000 * END PHYSICAL; 02S0632 01342000 @EL00003 DS 0H 02S0632 01343000 @EF00003 DS 0H 02S0632 01344000 @ER00003 L @14,@SA00003 02S0632 01345000 BR @14 02S0632 01346000 * END IGCH010D 01S0633 01347000 * 01S0633 01348000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01349000 */*%INCLUDE SYSLIB (TAVTD ) */ 01350000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01351000 */*%INCLUDE SYSLIB (IHADCB ) */ 01352000 */*%INCLUDE SYSLIB (TDCTD ) */ 01353000 */*%INCLUDE SYSLIB (TDEBD ) */ 01354000 */*%INCLUDE SYSLIB (TMSGD ) */ 01355000 */*%INCLUDE SYSLIB (TOPCED ) */ 01356000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01357000 */*%INCLUDE SYSLIB (TPRFD ) */ 01358000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01359000 */*%INCLUDE SYSLIB (TQCBD ) */ 01360000 */*%INCLUDE SYSLIB (TTRMD ) */ 01361000 */*%INCLUDE SYSUT5 (RFY ) */ 01362000 */*%INCLUDE SYSUT5 (DCL ) */ 01363000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01364000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01365000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01366000 */*%INCLUDE SYSUT5 (PARSE ) */ 01367000 */*%INCLUDE SYSUT5 (OPERANDS) */ 01368000 */*%INCLUDE SYSUT5 (RELATIVE) */ 01369000 */*%INCLUDE SYSUT5 (CONVERT ) */ 01370000 */*%INCLUDE SYSUT5 (VERIFY ) */ 01371000 */*%INCLUDE SYSUT5 (NAME ) */ 01372000 */*%INCLUDE SYSUT5 (NAMERLN ) */ 01373000 */*%INCLUDE SYSUT5 (TYPE ) */ 01374000 */*%INCLUDE SYSUT5 (HOLD ) */ 01375000 */*%INCLUDE SYSUT5 (MULTIPLE) */ 01376000 */*%INCLUDE SYSUT5 (LINK ) */ 01377000 */*%INCLUDE SYSUT5 (MESSAGE ) */ 01378000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01379000 */*%INCLUDE SYSUT5 (LOGICAL ) */ 01380000 */*%INCLUDE SYSUT5 (DCB ) */ 01381000 */*%INCLUDE SYSUT5 (PHYSICAL) */ 01382000 */*%INCLUDE SYSUT5 (REMEMBER) */ 01383000 * 01S0633 01384000 * ; 01S0633 01385000 @DATA DS 0H 01386000 @CH01864 DC H'26' 01387000 @SM01894 MVC OCBACKUP(0,ROPCE),CMDTEXT+3(@11) 01388000 @SM01896 MVC 0(0,@15),CMDTEXT(@11) 01389000 @DATD DSECT 01390000 DS 0F 01391000 @SA00002 DS 1F 01392000 @SA00003 DS 1F 01393000 @TF00001 DS F 01394000 IGCH010D CSECT 01395000 DS 0F 01396000 @CF00062 DC F'1' 01397000 @CF00075 DC F'3' 01398000 @CF00256 DC F'4' 01399000 @CF01844 DC F'11' 01400000 @CF01880 DC F'14' 01401000 @CF00104 DC F'15' 01402000 @CF00851 DC F'36' 01403000 @CF00042 DC F'40' 01404000 @CF01850 DC F'255' 01405000 @CF01898 DC F'-11' 01406000 @CF01901 DC F'-10' 01407000 @CF01143 DC F'-3' 01408000 @CF01899 DC XL4'0000FFFF' 01409000 @DATD DSECT 01410000 DS 0D 01411000 REG15 DS F 01412000 LNKTTCIN DS H 01413000 DS 0D 01414000 @TS00001 DS CL8 01415000 CHARRLN DS CL3 01416000 PACKRLN DS CL2 01417000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01418000 @ENDDATD EQU * 01419000 IGCH010D CSECT 01420000 DS 0F 01421000 @SIZDATD DC AL1(0) 01422000 DC AL3(@ENDDATD-@DATD) 01423000 DS 0D 01424000 @CC01842 DC C'TP=' 01425000 @CC01846 DC C'000' 01426000 @CC01873 DC C'V7' 01427000 @CC01874 DC C'07' 01428000 @CC01875 DC C'09' 01429000 @CC01876 DC C'06' 01430000 @CB01379 DC X'08000002' 01431000 PATCH DC XL104'0' 01432000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01433000 @01 EQU 01 01434000 @02 EQU 02 01435000 @03 EQU 03 01436000 @04 EQU 04 01437000 @05 EQU 05 01438000 @06 EQU 06 01439000 @07 EQU 07 01440000 @08 EQU 08 01441000 @09 EQU 09 01442000 @10 EQU 10 01443000 @11 EQU 11 01444000 @12 EQU 12 01445000 @13 EQU 13 01446000 @14 EQU 14 01447000 @15 EQU 15 01448000 PTRSTOP EQU @11 01449000 PTRCHAR EQU @05 01450000 RETCODE EQU @09 01451000 PHYTTCIN EQU @11 01452000 FIXEDRLN EQU @05 01453000 ROPCE EQU @03 01454000 ROPCAVT EQU @02 01455000 RAVT EQU @04 01456000 RPRF EQU @06 01457000 RTRM EQU @08 01458000 REG00 EQU @00 01459000 REG01 EQU @01 01460000 RPARM EQU @01 01461000 REG10 EQU @10 01462000 RSAVE EQU @13 01463000 IEDQAVTD EQU 0 01464000 AVTSAVEX EQU IEDQAVTD+288 01465000 AVTCSTCS EQU IEDQAVTD+328 01466000 AVTREADD EQU IEDQAVTD+380 01467000 AVTBUFSW EQU IEDQAVTD+384 01468000 @NM00004 EQU IEDQAVTD+388 01469000 AVTCKFLG EQU @NM00004 01470000 AVTBASE EQU IEDQAVTD+412 01471000 AVTPKF EQU AVTBASE 01472000 AVTRNMPT EQU IEDQAVTD+424 01473000 AVTAS EQU IEDQAVTD+456 01474000 AVTOSECB EQU IEDQAVTD+492 01475000 AVTECB1 EQU AVTOSECB 01476000 AVTHG02 EQU IEDQAVTD+528 01477000 AVTDISP EQU IEDQAVTD+552 01478000 AVTHD EQU IEDQAVTD+556 01479000 AVTSCOPT EQU AVTHD 01480000 AVTSAVTP EQU IEDQAVTD+612 01481000 AVTSAVTF EQU AVTSAVTP 01482000 AVTCKPEL EQU IEDQAVTD+652 01483000 AVTCKRMV EQU AVTCKPEL 01484000 AVTCKELF EQU IEDQAVTD+680 01485000 AVTCKBYT EQU IEDQAVTD+691 01486000 AVTHG01 EQU IEDQAVTD+692 01487000 AVTCKLNK EQU IEDQAVTD+696 01488000 AVTCRELE EQU IEDQAVTD+708 01489000 AVTCCELE EQU AVTCRELE 01490000 AVTCLRHI EQU IEDQAVTD+716 01491000 AVTADBUF EQU IEDQAVTD+720 01492000 AVTSYSER EQU IEDQAVTD+728 01493000 AVTBFRFG EQU IEDQAVTD+784 01494000 AVTCKPQB EQU IEDQAVTD+804 01495000 AVTCKPTB EQU AVTCKPQB 01496000 AVTCKPEC EQU AVTCKPQB+4 01497000 AVTCKPCC EQU AVTCKPEC 01498000 AVTOPCQB EQU IEDQAVTD+816 01499000 AVTOPCOB EQU AVTOPCQB 01500000 AVTOPCEC EQU AVTOPCQB+4 01501000 AVTOPCCC EQU AVTOPCEC 01502000 AVTOLTQB EQU IEDQAVTD+828 01503000 AVTCWFL1 EQU IEDQAVTD+924 01504000 AVTCWFL2 EQU IEDQAVTD+925 01505000 AVTSUBT EQU IEDQAVTD+948 01506000 AVTIOTR EQU IEDQAVTD+949 01507000 AVTBIT1 EQU IEDQAVTD+1050 01508000 AVTBIT2 EQU IEDQAVTD+1051 01509000 AVTBIT3 EQU IEDQAVTD+1052 01510000 AVTDCTLN EQU IEDQAVTD+1072 01511000 AVTBIT4 EQU IEDQAVTD+1136 01512000 @NM00086 EQU IEDQAVTD+1232 01513000 IEDQAPTR EQU 0 01514000 IEDNSVTD EQU 0 01515000 SAVTDIAG EQU IEDNSVTD 01516000 SAVTDIAF EQU SAVTDIAG 01517000 SAVTLUSQ EQU IEDNSVTD+88 01518000 SAVTTCPU EQU IEDNSVTD+238 01519000 SAVTZELM EQU IEDNSVTD+270 01520000 SAVTRDRV EQU IEDNSVTD+284 01521000 SAVTCKQB EQU IEDNSVTD+300 01522000 SAVTCKTB EQU SAVTCKQB 01523000 SAVTCKEC EQU SAVTCKQB+4 01524000 SAVTCKCC EQU SAVTCKEC 01525000 IHADCB EQU 0 01526000 DCBPTR EQU 0 01527000 IHADCS16 EQU 0 01528000 DCBMHA EQU IHADCS16 01529000 DCBBUFOU EQU DCBMHA 01530000 DCBBUFIN EQU DCBBUFOU 01531000 DCBPCI EQU IHADCS16+5 01532000 DCBDSORG EQU IHADCS16+6 01533000 DCBDSRG1 EQU DCBDSORG 01534000 DCBDSGIS EQU DCBDSRG1 01535000 DCBDSRG2 EQU DCBDSORG+1 01536000 IHADCS17 EQU 0 01537000 DCBCLPS EQU IHADCS17 01538000 DCBIOBAD EQU IHADCS17+8 01539000 IHADCS18 EQU 0 01540000 DCBTRANA EQU IHADCS18 01541000 IHADCS19 EQU 0 01542000 DCBLCBAD EQU IHADCS19 01543000 DCBCPRI EQU DCBLCBAD 01544000 DCBEXLST EQU IHADCS19+4 01545000 IHADCS24 EQU 0 01546000 DCBOFLGS EQU IHADCS24+8 01547000 DCBOFLWR EQU DCBOFLGS 01548000 DCBOFOPN EQU DCBOFLGS 01549000 DCBIFLG EQU IHADCS24+9 01550000 DCBIBPCT EQU DCBIFLG 01551000 DCBMACR EQU IHADCS24+10 01552000 DCBMACR1 EQU DCBMACR 01553000 DCBMRFE EQU DCBMACR1 01554000 DCBMRGET EQU DCBMRFE 01555000 DCBMRAPG EQU DCBMACR1 01556000 DCBMRRD EQU DCBMRAPG 01557000 DCBMRCI EQU DCBMACR1 01558000 DCBMRMVG EQU DCBMRCI 01559000 DCBMRLCG EQU DCBMACR1 01560000 DCBMRABC EQU DCBMACR1 01561000 DCBMRPT1 EQU DCBMRABC 01562000 DCBMRSBG EQU DCBMRPT1 01563000 DCBMRCRL EQU DCBMACR1 01564000 DCBMRCHK EQU DCBMRCRL 01565000 DCBMRRDX EQU DCBMRCHK 01566000 DCBMRDMG EQU DCBMACR1 01567000 DCBMACR2 EQU DCBMACR+1 01568000 DCBMRPUT EQU DCBMACR2 01569000 DCBMRWRT EQU DCBMACR2 01570000 DCBMRMVP EQU DCBMACR2 01571000 DCBMR5WD EQU DCBMACR2 01572000 DCBMRLDM EQU DCBMR5WD 01573000 DCBMRLCP EQU DCBMRLDM 01574000 DCBMR4WD EQU DCBMACR2 01575000 DCBMRPT2 EQU DCBMR4WD 01576000 DCBMRTMD EQU DCBMRPT2 01577000 DCBMR3WD EQU DCBMACR2 01578000 DCBMRCTL EQU DCBMR3WD 01579000 DCBMRSTK EQU DCBMRCTL 01580000 DCBMR1WD EQU DCBMACR2 01581000 DCBMRSWA EQU DCBMR1WD 01582000 DCBMRDMD EQU DCBMRSWA 01583000 IHADCS25 EQU 0 01584000 DCBMACRF EQU IHADCS25+2 01585000 DCBMACF1 EQU DCBMACRF 01586000 DCBMFFE EQU DCBMACF1 01587000 DCBMFGET EQU DCBMFFE 01588000 DCBMFAPG EQU DCBMACF1 01589000 DCBMFRD EQU DCBMFAPG 01590000 DCBMFCI EQU DCBMACF1 01591000 DCBMFMVG EQU DCBMFCI 01592000 DCBMFLCG EQU DCBMACF1 01593000 DCBMFABC EQU DCBMACF1 01594000 DCBMFPT1 EQU DCBMFABC 01595000 DCBMFSBG EQU DCBMFPT1 01596000 DCBMFCRL EQU DCBMACF1 01597000 DCBMFCHK EQU DCBMFCRL 01598000 DCBMFDMG EQU DCBMACF1 01599000 DCBMACF2 EQU DCBMACRF+1 01600000 DCBMFPUT EQU DCBMACF2 01601000 DCBMFWRT EQU DCBMACF2 01602000 DCBMFMVP EQU DCBMACF2 01603000 DCBMF5WD EQU DCBMACF2 01604000 DCBMFLDM EQU DCBMF5WD 01605000 DCBMFLCP EQU DCBMFLDM 01606000 DCBMF4WD EQU DCBMACF2 01607000 DCBMFPT2 EQU DCBMF4WD 01608000 DCBMFTMD EQU DCBMFPT2 01609000 DCBMF3WD EQU DCBMACF2 01610000 DCBMFCTL EQU DCBMF3WD 01611000 DCBMFSTK EQU DCBMFCTL 01612000 DCBMF1WD EQU DCBMACF2 01613000 DCBMFSWA EQU DCBMF1WD 01614000 DCBMFDMD EQU DCBMFSWA 01615000 DCBDEBAD EQU IHADCS25+4 01616000 DCBIFLGS EQU DCBDEBAD 01617000 DCBIFPCT EQU DCBIFLGS 01618000 IHADCS43 EQU 0 01619000 DCBSCTAB EQU IHADCS43 01620000 IHADCS2A EQU 0 01621000 DCBRESER EQU IHADCS2A 01622000 DCBINVLI EQU IHADCS2A+4 01623000 DCBINVCI EQU DCBINVLI 01624000 IEDDCT EQU 0 01625000 DCTBYTE1 EQU IEDDCT+1 01626000 DCTUMASK EQU DCTBYTE1 01627000 DCTBYTE2 EQU IEDDCT+2 01628000 DCTBYTE3 EQU IEDDCT+3 01629000 DCTBYTE4 EQU IEDDCT+4 01630000 DCTBYTE5 EQU IEDDCT+5 01631000 IEDQDEB EQU 0 01632000 DEBPRF EQU IEDQDEB 01633000 DEBAPVT EQU DEBPRF 01634000 DEBNMEXT EQU IEDQDEB+52 01635000 DEBUCBS EQU IEDQDEB+68 01636000 IEDQDPTR EQU 0 01637000 IEDQOPCE EQU 0 01638000 OCELEM EQU IEDQOPCE+4 01639000 OCUNIT EQU IEDQOPCE+8 01640000 OCRUDEST EQU OCUNIT 01641000 OCCKPKEY EQU OCRUDEST 01642000 OCSCAN EQU OCCKPKEY 01643000 OCOPTCDE EQU IEDQOPCE+12 01644000 OCSWITCH EQU IEDQOPCE+13 01645000 OCFLAG EQU IEDQOPCE+14 01646000 OCTOTE EQU OCFLAG 01647000 OCMPP EQU OCFLAG 01648000 OCRLN EQU IEDQOPCE+15 01649000 @NM00129 EQU IEDQOPCE+16 01650000 OCDEST EQU @NM00129 01651000 OCREQVAL EQU OCDEST+1 01652000 OCTRMTBL EQU IEDQOPCE+20 01653000 OCLINENO EQU IEDQOPCE+22 01654000 OCTIOT EQU OCLINENO 01655000 OCTRUNIT EQU IEDQOPCE+24 01656000 OCRSID EQU OCTRUNIT 01657000 OCALSTAT EQU OCRSID 01658000 OCALLFLG EQU OCALSTAT 01659000 OCSOME EQU OCALSTAT 01660000 OCNONE EQU OCALSTAT 01661000 OCPARM EQU IEDQOPCE+28 01662000 OCWTG EQU IEDQOPCE+30 01663000 OCBACKUP EQU IEDQOPCE+32 01664000 OCMODNME EQU IEDQOPCE+40 01665000 OCIPLWA EQU OCMODNME 01666000 OCCKDATA EQU IEDQOPCE+48 01667000 OCRSTGTM EQU OCCKDATA 01668000 IEDQOPCN EQU 0 01669000 OCLDNME EQU IEDQOPCN 01670000 OCLINTTE EQU OCLDNME 01671000 OCREQFLG EQU OCLINTTE+2 01672000 OCPREFLG EQU OCLINTTE+3 01673000 IEDQOPCD EQU 0 01674000 OPCDOUBL EQU IEDQOPCD 01675000 OPCAVTPT EQU IEDQOPCD+8 01676000 OPCCOPCE EQU IEDQOPCD+12 01677000 OPCDCBLK EQU IEDQOPCD+16 01678000 OPCTOFLK EQU IEDQOPCD+24 01679000 OPCTRMWA EQU IEDQOPCD+52 01680000 OPCSAVE EQU IEDQOPCD+56 01681000 OPCWORK EQU IEDQOPCD+140 01682000 OPCAQCTL EQU IEDQOPCD+180 01683000 OPCXCTL EQU IEDQOPCD+204 01684000 OPCLDNME EQU IEDQOPCD+212 01685000 OPCMODID EQU OPCLDNME+3 01686000 OPCGETBF EQU IEDQOPCD+276 01687000 OPCSPEC EQU IEDQOPCD+300 01688000 OPCRSTRT EQU OPCSPEC 01689000 OPCWRKSP EQU IEDQOPCD+320 01690000 OPCPWCOB EQU IEDQOPCD+368 01691000 OPCPWQCB EQU OPCPWCOB 01692000 OPCPWECB EQU OPCPWCOB+4 01693000 IEDQPRF EQU 0 01694000 PRFRCB EQU IEDQPRF 01695000 PRFKEY EQU PRFRCB 01696000 PRFQCBA EQU PRFRCB+1 01697000 PRFPRI EQU PRFRCB+4 01698000 PRFLINK EQU PRFRCB+5 01699000 PRFTIC EQU IEDQPRF+8 01700000 PRFTICC EQU PRFTIC 01701000 PRFNBUNT EQU IEDQPRF+12 01702000 PRFSUNIT EQU PRFNBUNT 01703000 PRFPLQCB EQU PRFSUNIT 01704000 @NM00159 EQU IEDQPRF+16 01705000 PRFSVFFO EQU @NM00159 01706000 PRFSTAT1 EQU IEDQPRF+20 01707000 PRFEOFN EQU PRFSTAT1 01708000 PRFCORE EQU IEDQPRF+21 01709000 PRFXTRA EQU PRFCORE 01710000 PRFSCAN EQU IEDQPRF+24 01711000 PRFTQBCK EQU IEDQPRF+26 01712000 PRFNTXT EQU PRFTQBCK 01713000 PRFEOBOF EQU PRFNTXT 01714000 PRFCHDR EQU IEDQPRF+32 01715000 PRFHQBCK EQU IEDQPRF+35 01716000 PRFDEST EQU IEDQPRF+40 01717000 IEDQPPTR EQU 0 01718000 IEDPF1 EQU 0 01719000 PRF1FLG1 EQU IEDPF1+3 01720000 PRF1WD2 EQU IEDPF1+4 01721000 PRF1SEQP EQU PRF1WD2 01722000 PRF1SQID EQU PRF1SEQP 01723000 PRF1TAG1 EQU PRF1SQID 01724000 IEDPF2 EQU 0 01725000 PRF2FLG2 EQU IEDPF2 01726000 PRF2WD2 EQU IEDPF2+4 01727000 IEDQQCB EQU 0 01728000 QCBDSFLG EQU IEDQQCB 01729000 QCBDISK EQU QCBDSFLG 01730000 QCBNREUS EQU QCBDISK 01731000 QCBREUS EQU QCBDISK 01732000 QCBDRQQ EQU QCBDSFLG 01733000 QCBELCHN EQU IEDQQCB+1 01734000 QCBEOLDT EQU IEDQQCB+16 01735000 QCBBYTE1 EQU QCBEOLDT+1 01736000 QCBLKRLN EQU IEDQQCB+18 01737000 QCBRETCT EQU QCBLKRLN 01738000 QCBSTAT EQU IEDQQCB+19 01739000 QCBTRMHO EQU QCBSTAT 01740000 QCBINSRC EQU IEDQQCB+21 01741000 @NM00169 EQU QCBINSRC 01742000 QCBTSOF2 EQU @NM00169+1 01743000 QCBTSOF1 EQU @NM00169+2 01744000 QCBINTVL EQU IEDQQCB+24 01745000 QCBPREN EQU IEDQQCB+28 01746000 QCBLKRRN EQU QCBPREN+1 01747000 QCBRELLN EQU IEDQQCB+32 01748000 QCBDCBAD EQU IEDQQCB+33 01749000 QCBFLAG EQU IEDQQCB+36 01750000 QCBTERMQ EQU QCBFLAG 01751000 IEDQQPTR EQU 0 01752000 IEDQPQCB EQU 0 01753000 QCBFHDLZ EQU IEDQPQCB+3 01754000 QCBPFEFO EQU QCBFHDLZ+1 01755000 QCBFHDTZ EQU IEDQPQCB+6 01756000 QCBINTLF EQU IEDQPQCB+12 01757000 IEDNQCB EQU 0 01758000 QCBSTAT1 EQU IEDNQCB+4 01759000 QCBPLCBA EQU IEDNQCB+5 01760000 IEDQTRM EQU 0 01761000 TRMSTATE EQU IEDQTRM 01762000 TRMLOG EQU TRMSTATE 01763000 TRMLIST EQU TRMLOG 01764000 TRMPROC EQU TRMLOG 01765000 TRMPREF EQU TRMSTATE 01766000 TRMHELDN EQU TRMSTATE 01767000 TRMDESTQ EQU IEDQTRM+1 01768000 TRMINSEQ EQU IEDQTRM+4 01769000 TLISTCNT EQU TRMINSEQ 01770000 TRMOUTSQ EQU IEDQTRM+6 01771000 TLISTEN EQU TRMOUTSQ 01772000 TRMDSORG EQU TLISTEN 01773000 TRMALTD EQU IEDQTRM+8 01774000 TRMDEVFL EQU IEDQTRM+10 01775000 TRMSTAT EQU IEDQTRM+12 01776000 TRMCHCIN EQU IEDQTRM+16 01777000 IEDQTPTR EQU 0 01778000 IEDNTRM EQU 0 01779000 TRMBYTE4 EQU IEDNTRM 01780000 TRMBYTE3 EQU IEDNTRM+1 01781000 TRMBYTE2 EQU IEDNTRM+2 01782000 TRMINPG EQU TRMBYTE2 01783000 TRMBYTE1 EQU IEDNTRM+3 01784000 TRMSCPRQ EQU TRMBYTE1 01785000 TRMSTOTE EQU TRMBYTE1 01786000 TRMCOHRT EQU IEDNTRM+4 01787000 TRMBYTE0 EQU IEDNTRM+6 01788000 TRMSIBPT EQU IEDNTRM+7 01789000 TRMTYPE EQU IEDNTRM+11 01790000 TRMSUBST EQU IEDNTRM+12 01791000 SCANCHAR EQU 0 01792000 ALLOCBUF EQU 0 01793000 DCBLOCAT EQU 0 01794000 IEDQTNT EQU 0 01795000 TRMOFLOC EQU 0 01796000 IEDCMD EQU 0 01797000 CMDDATA EQU IEDCMD 01798000 CMDLNGTH EQU CMDDATA+2 01799000 CMDTEXT EQU IEDCMD+8 01800000 DEBSUBR EQU 0 01801000 IEDQEPTR EQU 0 01802000 IEDQNPTR EQU 0 01803000 QCBLDCB EQU 0 01804000 DEBUCB EQU DEBUCBS 01805000 DEBDVMOD EQU DEBUCB 01806000 DEBUCBAD EQU DEBUCB+1 01807000 OCCKPKY1 EQU OCCKPKEY 01808000 OCCKPTYP EQU OCCKPKY1 01809000 OCICACTN EQU OCMODNME 01810000 OCICDADR EQU OCICACTN 01811000 OCICSW EQU OCICDADR+3 01812000 OPCAQWD EQU OPCAQCTL 01813000 OPCAQWD1 EQU OPCAQWD 01814000 OPCAQREQ EQU OPCAQWD1 01815000 OPCAQFST EQU OPCAQWD1+1 01816000 OPCAQWD2 EQU OPCAQWD+4 01817000 OPCAQRQ2 EQU OPCAQWD2 01818000 OPCAQSEC EQU OPCAQWD2+1 01819000 OPCAQWD3 EQU OPCAQWD+8 01820000 TRMPRE1 EQU TRMBYTE4 01821000 TRMNCP1 EQU TRMBYTE4 01822000 TRMPRE EQU TRMBYTE3 01823000 TRMNCP EQU TRMBYTE3 01824000 TRMPU EQU TRMBYTE3 01825000 TRMLU EQU TRMBYTE3 01826000 TRMLINK EQU TRMBYTE3 01827000 OCCIB EQU OCREQVAL 01828000 PRFSHDR EQU IEDQPRF+42 01829000 TRMOPT EQU IEDQTRM+20 01830000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01831000 @NM00179 EQU TRMLINK 01832000 TRMLSTAT EQU TRMLINK 01833000 TRMLINT EQU TRMLINK 01834000 TRMEPMOD EQU TRMLINK 01835000 TRMLULOG EQU TRMLU 01836000 TRMINERR EQU TRMLU 01837000 TRMLUREQ EQU TRMLU 01838000 TRMSESRQ EQU TRMLU 01839000 TRMTDIFF EQU TRMLU 01840000 TRMLUTM EQU TRMLU 01841000 TRMLUIT EQU TRMLU 01842000 TRMAUTO EQU TRMLU 01843000 TRMPCONT EQU TRMPU 01844000 @NM00178 EQU TRMPU 01845000 TRMNCONT EQU TRMNCP 01846000 TRMQUCKN EQU TRMNCP 01847000 TRMSLOWN EQU TRMNCP 01848000 TRMSYGEN EQU TRMNCP 01849000 TRMNCPCL EQU TRMNCP 01850000 TRMIPLDM EQU TRMNCP 01851000 TRMINOUT EQU TRMPRE 01852000 TRMRDOUT EQU TRMPRE 01853000 TRMNLOUT EQU TRMPRE 01854000 TRMWROUT EQU TRMPRE 01855000 TRMASNXI EQU TRMPRE 01856000 TRMSTMM EQU TRMPRE 01857000 TRMCMODE EQU TRMPRE 01858000 TRMSTPND EQU TRMPRE 01859000 @NM00177 EQU TRMNCP1 01860000 TRMINOP EQU TRMNCP1 01861000 TRMLYNCH EQU TRMPRE1 01862000 TRMSPOUT EQU TRMPRE1 01863000 TRMERLCK EQU TRMPRE1 01864000 TRMQNPL EQU TRMPRE1 01865000 TRMSPACT EQU TRMPRE1 01866000 TRMOCNI EQU TRMPRE1 01867000 TRMSESSN EQU TRMPRE1 01868000 TRMCONT EQU TRMPRE1 01869000 OPCAQLST EQU OPCAQWD3+1 01870000 OPCAQRQ3 EQU OPCAQWD3 01871000 OCICINAC EQU OCICSW 01872000 @NM00134 EQU OCICSW 01873000 OCICATST EQU OCICDADR+1 01874000 OCICTYPE EQU OCICDADR 01875000 @NM00133 EQU OCCKPKY1 01876000 OCCKPENV EQU OCCKPKY1 01877000 OCCKPRST EQU OCCKPTYP 01878000 OCCKPNCP EQU OCCKPTYP 01879000 OCCKPINC EQU OCCKPTYP 01880000 @NM00181 EQU CMDDATA+4 01881000 @NM00180 EQU CMDDATA 01882000 TRMRLMCT EQU IEDNTRM+10 01883000 TRMCOHTG EQU TRMSIBPT+1 01884000 TRMGPCNT EQU TRMSIBPT 01885000 TRMBUFRD EQU TRMBYTE0 01886000 TRMSNA EQU TRMBYTE0 01887000 TRMGP EQU TRMBYTE0 01888000 TRMDIAL EQU TRMBYTE0 01889000 @NM00176 EQU TRMBYTE0 01890000 TRMOUTPT EQU TRMBYTE0 01891000 TRMINPUT EQU TRMBYTE0 01892000 TRMUDEF EQU TRMBYTE0 01893000 TRMCKPRN EQU TRMBYTE1 01894000 TRMTSATN EQU TRMBYTE1 01895000 TRMTRACE EQU TRMBYTE1 01896000 TRMSWBCK EQU TRMBYTE1 01897000 TRMAUTOC EQU TRMBYTE1 01898000 TRMINPTP EQU TRMBYTE1 01899000 TRMWTNEG EQU TRMSCPRQ 01900000 TRMWRBRK EQU TRMBYTE2 01901000 TRMNOSND EQU TRMBYTE2 01902000 TRMPREP EQU TRMBYTE2 01903000 TRMGPACT EQU TRMBYTE2 01904000 TRMANDL EQU TRMBYTE2 01905000 TRMCLOSN EQU TRMINPG 01906000 TRMREMB EQU TRMBYTE2 01907000 TRMRSACT EQU TRMBYTE2 01908000 TRMOPTBL EQU IEDQTRM+18 01909000 TRMOPNO EQU IEDQTRM+17 01910000 TRMSENSE EQU TRMSTAT+3 01911000 TRMTEMPR EQU TRMSTAT+2 01912000 TRMSIO EQU TRMSTAT 01913000 @NM00175 EQU TRMDEVFL+1 01914000 TRMTPIN EQU TRMDEVFL+1 01915000 TRMNCPI EQU TRMDEVFL+1 01916000 TRMRNTRM EQU TRMDEVFL+1 01917000 @NM00174 EQU TRMDEVFL+1 01918000 TRMLMD EQU TRMDEVFL+1 01919000 TRMCONC EQU TRMDEVFL+1 01920000 TRMTSOB EQU TRMDEVFL 01921000 TRMBFDY EQU TRMDEVFL 01922000 TRMTBLK EQU TRMDEVFL 01923000 TRMSBLK EQU TRMDEVFL 01924000 TRMBLKS EQU TRMDEVFL 01925000 TRMADDC EQU TRMDEVFL 01926000 TRMDDIG EQU TRMDEVFL 01927000 TRMBUFS EQU TRMDEVFL 01928000 TRMPRILK EQU TRMALTD 01929000 TRMLGB EQU TRMDSORG 01930000 TRMUTERM EQU TLISTCNT 01931000 TRMSCNYN EQU TRMSTATE 01932000 TRMOPTFN EQU TRMSTATE 01933000 TRMACPTN EQU TRMSTATE 01934000 TRMLINE EQU TRMSTATE 01935000 QCBTTCIN EQU QCBPLCBA+1 01936000 @NM00173 EQU QCBPLCBA 01937000 @NM00172 EQU QCBSTAT1 01938000 QCBFLUSH EQU QCBSTAT1 01939000 QCBNDXRQ EQU QCBSTAT1 01940000 QCBESIG EQU QCBSTAT1 01941000 QCBRCVRQ EQU QCBSTAT1 01942000 QCBSNDRQ EQU QCBSTAT1 01943000 QCBWAITC EQU QCBSTAT1 01944000 QCBPLCBN EQU QCBSTAT1 01945000 QCBCHAIN EQU IEDNQCB 01946000 QCBPQBCK EQU IEDQPQCB+25 01947000 QCBPRIPQ EQU IEDQPQCB+24 01948000 QCBCFHDR EQU IEDQPQCB+21 01949000 QCBLFEFO EQU IEDQPQCB+18 01950000 QCBFFEFO EQU IEDQPQCB+15 01951000 QCBPREVF EQU QCBINTLF 01952000 QCBINTFF EQU IEDQPQCB+9 01953000 QCBDATSQ EQU QCBFHDTZ+1 01954000 @NM00171 EQU QCBFHDTZ 01955000 @NM00170 EQU QCBPFEFO 01956000 QCBDATFL EQU QCBFHDLZ 01957000 QCBDNHDR EQU IEDQPQCB 01958000 QCBQBACK EQU IEDQQCB+37 01959000 QCBCKPT EQU QCBFLAG 01960000 QCBPROC EQU QCBFLAG 01961000 QCBSDFFO EQU QCBFLAG 01962000 QCBRSRV EQU QCBFLAG 01963000 QCBREAD EQU QCBFLAG 01964000 QCBNOBRK EQU QCBFLAG 01965000 QCBTSSES EQU QCBFLAG 01966000 QCBLGBAD EQU QCBDCBAD 01967000 QCBTJID EQU QCBLKRRN+1 01968000 QCBCARCT EQU QCBLKRRN 01969000 QCBPRLVL EQU QCBPREN 01970000 QCBMSGCT EQU IEDQQCB+26 01971000 QCBEXTO EQU QCBINTVL 01972000 QCBDISC EQU QCBTSOF1 01973000 QCBDELAY EQU QCBTSOF1 01974000 QCBPARTO EQU QCBTSOF1 01975000 QCBSATRD EQU QCBTSOF1 01976000 QCBNOBUF EQU QCBTSOF1 01977000 QCBTPUT EQU QCBTSOF1 01978000 QCBTGET EQU QCBTSOF1 01979000 QCBWRBRK EQU QCBTSOF1 01980000 QCBSATLC EQU QCBTSOF2 01981000 QCBSATTI EQU QCBTSOF2 01982000 QCBSATCH EQU QCBTSOF2 01983000 QCBSIMRD EQU QCBTSOF2 01984000 QCBDSSMI EQU QCBTSOF2 01985000 QCBPOSTO EQU QCBTSOF2 01986000 QCBBUFQ EQU QCBTSOF2 01987000 QCBINHBN EQU QCBTSOF2 01988000 QCBSATCT EQU @NM00169 01989000 QCBSCBOF EQU IEDQQCB+20 01990000 QCBTIME EQU QCBSTAT 01991000 QCBCLOCK EQU QCBSTAT 01992000 QCBSCHDL EQU QCBSTAT 01993000 QCBSMODE EQU QCBSTAT 01994000 QCBSEND EQU QCBSTAT 01995000 QCBBUFRD EQU QCBSTAT 01996000 QCBEOM EQU QCBSTAT 01997000 QCBHUCT EQU QCBRETCT 01998000 QCBIEND EQU QCBRETCT 01999000 QCBEND EQU QCBRETCT 02000000 QCBNL EQU QCBRETCT 02001000 QCBLOGCT EQU QCBRETCT 02002000 @NM00168 EQU QCBBYTE1 02003000 QCBRITRM EQU QCBBYTE1 02004000 @NM00167 EQU QCBEOLDT 02005000 QCBSLINK EQU IEDQQCB+13 02006000 QCBSTPRI EQU IEDQQCB+12 02007000 QCBSTCHN EQU IEDQQCB+9 02008000 QCBSTVTO EQU IEDQQCB+8 02009000 QCBLINK EQU IEDQQCB+5 02010000 QCBPRI EQU IEDQQCB+4 02011000 QCBCNTEN EQU QCBELCHN+2 02012000 @NM00166 EQU QCBELCHN+2 02013000 @NM00165 EQU QCBELCHN 02014000 QCBHELD EQU QCBDSFLG 02015000 QCBFQCB EQU QCBDSFLG 02016000 QCBALTMH EQU QCBDSFLG 02017000 QCBCORE EQU QCBDSFLG 02018000 QCBTSQ EQU QCBDSFLG 02019000 PRF2SEQP EQU PRF2WD2 02020000 @NM00164 EQU IEDPF2+1 02021000 @NM00163 EQU PRF2FLG2 02022000 PRF2TERM EQU PRF2FLG2 02023000 PRF2SMI EQU PRF2FLG2 02024000 PRF2FORM EQU PRF2FLG2 02025000 PRF2TNTI EQU PRF2FLG2 02026000 PRF1RULN EQU PRF1SEQP+2 02027000 PRF1TAG2 EQU PRF1SQID+1 02028000 @NM00162 EQU PRF1TAG1 02029000 PRF1TAGS EQU PRF1TAG1 02030000 @NM00161 EQU PRF1FLG1 02031000 PRF1LOGD EQU PRF1FLG1 02032000 PRF1USS EQU PRF1FLG1 02033000 PRF1FORM EQU PRF1FLG1 02034000 PRF1EXPI EQU PRF1FLG1 02035000 PRF1FIDI EQU PRF1FLG1 02036000 PRF1RH EQU IEDPF1 02037000 PRFISEQ EQU IEDQPRF+38 02038000 PRFSTXT EQU PRFHQBCK 02039000 PRFNHDR EQU PRFCHDR 02040000 PRFCRCD EQU IEDQPRF+29 02041000 PRFSVSEQ EQU PRFNTXT+1 02042000 PRFSVPRI EQU PRFEOBOF 02043000 PRFISIZE EQU PRFSCAN+1 02044000 @NM00160 EQU PRFSCAN 02045000 PRFEOB EQU PRFXTRA+1 02046000 PRFSTSO EQU PRFXTRA 02047000 PRFNHDRN EQU PRFSTAT1 02048000 PRFNLSTN EQU PRFSTAT1 02049000 PRFLOCK EQU PRFEOFN 02050000 PRFDUPLN EQU PRFSTAT1 02051000 PRFTSMSG EQU PRFSTAT1 02052000 PRFITCPN EQU PRFSTAT1 02053000 PRFERMGN EQU PRFSTAT1 02054000 PRFCNCLN EQU PRFSTAT1 02055000 PRFSVFLG EQU @NM00159+3 02056000 PRFSIZE EQU PRFSVFFO+2 02057000 PRFSRCE EQU PRFSVFFO 02058000 PRFLCB EQU IEDQPRF+13 02059000 PRFPIUO EQU PRFPLQCB 02060000 PRFTI0 EQU PRFTIC+1 02061000 @NM00158 EQU PRFTICC 02062000 @NM00157 EQU PRFTICC 02063000 @NM00156 EQU PRFTICC 02064000 PRFTICON EQU PRFTICC 02065000 @NM00155 EQU PRFTICC 02066000 @NM00154 EQU PRFTICC 02067000 PRFBFMM EQU PRFTICC 02068000 PRFEOMSG EQU PRFTICC 02069000 PRFCOUNT EQU PRFLINK+1 02070000 @NM00153 EQU PRFLINK 02071000 PRFFLAGS EQU PRFPRI 02072000 PRFIOADR EQU PRFQCBA 02073000 PRFOPCDE EQU PRFKEY 02074000 OPCBOTTM EQU IEDQOPCD+1188 02075000 OPCDSRWT EQU IEDQOPCD+1184 02076000 @NM00152 EQU IEDQOPCD+1100 02077000 @NM00151 EQU IEDQOPCD+948 02078000 @NM00150 EQU IEDQOPCD+940 02079000 @NM00149 EQU IEDQOPCD+380 02080000 @NM00148 EQU OPCPWCOB+9 02081000 @NM00147 EQU OPCPWCOB+8 02082000 @NM00146 EQU OPCPWECB+1 02083000 OPCPWCCC EQU OPCPWECB 02084000 OPCPWCHN EQU OPCPWQCB+1 02085000 OPCPWVTO EQU OPCPWQCB 02086000 OPCWAITV EQU IEDQOPCD+364 02087000 OPCTOTCK EQU IEDQOPCD+360 02088000 OPCAPXTL EQU IEDQOPCD+356 02089000 OPCDECR EQU IEDQOPCD+352 02090000 OPCBUFWT EQU IEDQOPCD+348 02091000 OPCADGOT EQU IEDQOPCD+318 02092000 OPCRQCNT EQU IEDQOPCD+316 02093000 OPPOLSTP EQU IEDQOPCD+312 02094000 OPCCKCIB EQU IEDQOPCD+308 02095000 OPCEND EQU IEDQOPCD+307 02096000 OPCSTCBS EQU IEDQOPCD+306 02097000 OPCHNEND EQU IEDQOPCD+302 02098000 OPCOQSW EQU IEDQOPCD+301 02099000 @NM00145 EQU OPCSPEC 02100000 @NM00144 EQU OPCSPEC 02101000 @NM00143 EQU OPCSPEC 02102000 @NM00142 EQU OPCSPEC 02103000 OPCFRMCA EQU OPCSPEC 02104000 OPCPART EQU OPCSPEC 02105000 OPCALTD EQU OPCSPEC 02106000 OPCBFEND EQU IEDQOPCD+296 02107000 OPCBFIRS EQU IEDQOPCD+292 02108000 OPCAVBUF EQU IEDQOPCD+290 02109000 OPCIPLCT EQU IEDQOPCD+289 02110000 OPCCLNTS EQU IEDQOPCD+288 02111000 OPCHA8 EQU IEDQOPCD+286 02112000 OPCBFREQ EQU IEDQOPCD+284 02113000 OPCFREBF EQU IEDQOPCD+280 02114000 OPCNEXT EQU IEDQOPCD+272 02115000 OPCFMDFC EQU IEDQOPCD+268 02116000 OPCSCNC EQU IEDQOPCD+264 02117000 OPCHORTG EQU IEDQOPCD+260 02118000 OPCHORT EQU IEDQOPCD+256 02119000 OPCCKPTL EQU IEDQOPCD+252 02120000 OPCCKPTF EQU IEDQOPCD+248 02121000 OPCWAITA EQU IEDQOPCD+244 02122000 OPCWAITR EQU IEDQOPCD+240 02123000 OPCWAITP EQU IEDQOPCD+236 02124000 OPCWAITO EQU IEDQOPCD+232 02125000 OPCWAITN EQU IEDQOPCD+228 02126000 OPCWAITL EQU IEDQOPCD+224 02127000 OPCWAITC EQU IEDQOPCD+220 02128000 @NM00141 EQU OPCLDNME+5 02129000 @NM00140 EQU OPCLDNME 02130000 OPCWAIT EQU IEDQOPCD+192 02131000 OPCCKERB EQU IEDQOPCD+164 02132000 OPCBFERB EQU IEDQOPCD+148 02133000 OPCFLAG2 EQU IEDQOPCD+147 02134000 OPCFLAG1 EQU IEDQOPCD+146 02135000 OPCWRKSZ EQU IEDQOPCD+144 02136000 OPCRSAVE EQU IEDQOPCD+132 02137000 OPCQCBAD EQU IEDQOPCD+128 02138000 OPCPSTWT EQU IEDQOPCD+48 02139000 OPCTNTEA EQU IEDQOPCD+44 02140000 OPCPGCK EQU IEDQOPCD+40 02141000 OPCLCB EQU IEDQOPCD+36 02142000 @NM00139 EQU IEDQOPCD+32 02143000 OPCIPLAD EQU IEDQOPCD+28 02144000 OPCOPTLK EQU IEDQOPCD+20 02145000 @NM00138 EQU OCLDNME+4 02146000 @NM00137 EQU OCPREFLG 02147000 OCTOTEP EQU OCPREFLG 02148000 OCREPOST EQU OCPREFLG 02149000 OCRSPSNT EQU OCPREFLG 02150000 OCBFREQ EQU OCPREFLG 02151000 OCIDLE EQU OCREQFLG 02152000 OCFORCE EQU OCREQFLG 02153000 OCDCARD EQU OCREQFLG 02154000 OCPARTAL EQU OCREQFLG 02155000 OCADNCP EQU OCREQFLG 02156000 @NM00136 EQU OCREQFLG 02157000 @NM00135 EQU OCREQFLG 02158000 OCFLUSHZ EQU OCREQFLG 02159000 OCRESPCT EQU OCLINTTE 02160000 OCCKPTWA EQU OCCKDATA+4 02161000 @NM00132 EQU OCRSTGTM+2 02162000 OCCKDAT2 EQU OCRSTGTM+1 02163000 OCCKDAT1 EQU OCRSTGTM 02164000 OCPTRSAV EQU OCMODNME+4 02165000 OCPUADR EQU OCIPLWA+2 02166000 OCWTGSAV EQU OCIPLWA 02167000 OCDVRDCT EQU OCBACKUP+6 02168000 OCNCP EQU OCBACKUP+4 02169000 OCBUFGOT EQU OCBACKUP+2 02170000 OCBUFNED EQU OCBACKUP 02171000 OCRESNUM EQU OCPARM 02172000 OCSEQ EQU OCTRUNIT+2 02173000 @NM00131 EQU OCRSID+1 02174000 OCACTREQ EQU OCALSTAT 02175000 OCREDRVE EQU OCALSTAT 02176000 OCSEQIND EQU OCALSTAT 02177000 OCDACTIP EQU OCALSTAT 02178000 OCRENTRD EQU OCALSTAT 02179000 OCWTGB EQU OCTIOT 02180000 @NM00130 EQU @NM00129+2 02181000 OCCONID EQU OCDEST 02182000 OCRESP EQU OCFLAG 02183000 OCATTACH EQU OCFLAG 02184000 OCSSCP EQU OCFLAG 02185000 OCOUTPUT EQU OCFLAG 02186000 OCLINE EQU OCFLAG 02187000 OCCONSOL EQU OCFLAG 02188000 @NM00128 EQU OCSWITCH 02189000 OCQUCKN EQU OCSWITCH 02190000 OCPRIFLG EQU OCOPTCDE 02191000 @NM00127 EQU OCRUDEST+1 02192000 @NM00126 EQU OCSCAN 02193000 OCNOTUCB EQU OCSCAN 02194000 OCNONAME EQU OCSCAN 02195000 OCALLRLN EQU OCSCAN 02196000 OCDDNAME EQU OCSCAN 02197000 OCDDNRLN EQU OCSCAN 02198000 OCADDR EQU OCSCAN 02199000 OCELMPTR EQU OCELEM+1 02200000 OCELMPRI EQU OCELEM 02201000 OCLINK EQU IEDQOPCE 02202000 DEBAPPAD EQU IEDQDEB+65 02203000 DEBEXSCL EQU IEDQDEB+64 02204000 DEBDCBAD EQU IEDQDEB+61 02205000 DEBPROTG EQU IEDQDEB+60 02206000 DEBECBAD EQU IEDQDEB+57 02207000 DEBPRIOR EQU IEDQDEB+56 02208000 DEBUSRPG EQU IEDQDEB+53 02209000 DEBSYSPG EQU IEDQDEB+49 02210000 DEBOPATB EQU IEDQDEB+48 02211000 DEBIRBAD EQU IEDQDEB+45 02212000 DEBOFLGS EQU IEDQDEB+44 02213000 DEBDEBAD EQU IEDQDEB+41 02214000 DEBAMLNG EQU IEDQDEB+40 02215000 DEBTCBAD EQU IEDQDEB+37 02216000 DEBNMSUB EQU IEDQDEB+36 02217000 @NM00125 EQU DEBPRF+33 02218000 DEBLNGTH EQU DEBPRF+32 02219000 DEBDCBMK EQU DEBPRF+28 02220000 DEBDSCBA EQU DEBPRF+21 02221000 DEBWKARA EQU DEBPRF+20 02222000 DEBXCEA EQU DEBAPVT+16 02223000 DEBCEA EQU DEBAPVT+12 02224000 DEBPCIA EQU DEBAPVT+8 02225000 DEBSIOA EQU DEBAPVT+4 02226000 DEBEOEA EQU DEBAPVT 02227000 @NM00124 EQU DCTBYTE5 02228000 DCTL3270 EQU DCTBYTE5 02229000 DCTSCS EQU DCTBYTE5 02230000 DCTTSPRF EQU DCTBYTE4 02231000 DCTFMPRF EQU DCTBYTE4 02232000 DCT2760 EQU DCTBYTE3 02233000 DCTNOIDL EQU DCTBYTE3 02234000 DCTCONTN EQU DCTBYTE3 02235000 DCTBUFF EQU DCTBYTE3 02236000 DCTCHECK EQU DCTBYTE3 02237000 DCTENCTL EQU DCTBYTE3 02238000 DCTWTTA EQU DCTBYTE3 02239000 DCT1050 EQU DCTBYTE3 02240000 DCTAUDIO EQU DCTBYTE2 02241000 DCTLOCAL EQU DCTBYTE2 02242000 DCTCONT EQU DCTBYTE2 02243000 DCTXMIT EQU DCTBYTE2 02244000 DCTSTCTL EQU DCTBYTE2 02245000 DCTTWX EQU DCTBYTE2 02246000 DCTBRDST EQU DCTBYTE2 02247000 DCTBISYN EQU DCTBYTE2 02248000 DCTSADEV EQU DCTBYTE1 02249000 DCT3270 EQU DCTBYTE1 02250000 DCT2741 EQU DCTBYTE1 02251000 DCT5041 EQU DCTBYTE1 02252000 DCTATTEN EQU DCTBYTE1 02253000 DCTBREAK EQU DCTBYTE1 02254000 DCTINHIB EQU DCTBYTE1 02255000 DCTBYTE0 EQU IEDDCT 02256000 DCBINVLA EQU DCBINVLI+1 02257000 @NM00123 EQU DCBINVCI 02258000 DCBINVB2 EQU DCBINVCI 02259000 @NM00122 EQU DCBINVCI 02260000 DCBINVB1 EQU DCBINVCI 02261000 @NM00121 EQU DCBINVCI 02262000 @NM00120 EQU DCBRESER+2 02263000 DCBRESB2 EQU DCBRESER+1 02264000 DCBRESB1 EQU DCBRESER 02265000 DCBBUFSI EQU IHADCS43+6 02266000 DCBUNTCT EQU IHADCS43+5 02267000 DCBILCT EQU IHADCS43+4 02268000 DCBSCTAD EQU DCBSCTAB+1 02269000 @NM00119 EQU DCBSCTAB 02270000 DCBDEBA EQU DCBDEBAD+1 02271000 @NM00118 EQU DCBIFLGS 02272000 DCBIFIOE EQU DCBIFLGS 02273000 DCBCH12 EQU DCBIFPCT 02274000 DCBCH9 EQU DCBIFPCT 02275000 DCBIFEC EQU DCBIFLGS 02276000 DCBMFSTI EQU DCBMFDMD 02277000 DCBMFAWR EQU DCBMFSTK 02278000 DCBMFUIP EQU DCBMFTMD 02279000 DCBMFIDW EQU DCBMFLCP 02280000 DCBMFWRK EQU DCBMFMVP 02281000 DCBMFRDQ EQU DCBMFWRT 02282000 DCBMFGTQ EQU DCBMFPUT 02283000 DCBMFSTL EQU DCBMACF2 02284000 DCBMFCK EQU DCBMFDMG 02285000 DCBMFRDX EQU DCBMFCHK 02286000 DCBMFDBF EQU DCBMFSBG 02287000 DCBMFRDI EQU DCBMFLCG 02288000 DCBMFRDK EQU DCBMFMVG 02289000 DCBMFWRQ EQU DCBMFRD 02290000 DCBMFPTQ EQU DCBMFGET 02291000 DCBMFECP EQU DCBMACF1 02292000 DCBTIOT EQU IHADCS25 02293000 DCBMRSTI EQU DCBMRDMD 02294000 DCBMRAWR EQU DCBMRSTK 02295000 DCBMRUIP EQU DCBMRTMD 02296000 DCBMRIDW EQU DCBMRLCP 02297000 DCBMRWRK EQU DCBMRMVP 02298000 DCBMRRDQ EQU DCBMRWRT 02299000 DCBMRGTQ EQU DCBMRPUT 02300000 DCBMRSTL EQU DCBMACR2 02301000 DCBMRCK EQU DCBMRDMG 02302000 DCBPGFXA EQU DCBMRRDX 02303000 DCBMRDBF EQU DCBMRSBG 02304000 DCBMRRDI EQU DCBMRLCG 02305000 DCBMRRDK EQU DCBMRMVG 02306000 DCBMRWRQ EQU DCBMRRD 02307000 DCBMRPTQ EQU DCBMRGET 02308000 DCBMRECP EQU DCBMACR1 02309000 @NM00117 EQU DCBIFLG 02310000 DCBIBIOE EQU DCBIFLG 02311000 DCBICH12 EQU DCBIBPCT 02312000 DCBICH9 EQU DCBIBPCT 02313000 DCBIBEC EQU DCBIFLG 02314000 DCBOFIOF EQU DCBOFLGS 02315000 DCBOFUEX EQU DCBOFLGS 02316000 DCBOFTM EQU DCBOFLGS 02317000 DCBOFPPC EQU DCBOFLGS 02318000 DCBOFEOV EQU DCBOFLGS 02319000 DCBOFLRB EQU DCBOFLGS 02320000 DCBOFIOD EQU DCBOFLWR 02321000 DCBDDNAM EQU IHADCS24 02322000 DCBEXLSA EQU DCBEXLST+1 02323000 DCBEIOBX EQU DCBEXLST 02324000 DCBLCBA EQU DCBLCBAD+1 02325000 DCBCPS EQU DCBCPRI 02326000 DCBCPE EQU DCBCPRI 02327000 DCBCPR EQU DCBCPRI 02328000 @NM00116 EQU DCBCPRI 02329000 DCBTRANS EQU DCBTRANA+1 02330000 @NM00115 EQU DCBTRANA 02331000 DCBIOBAA EQU DCBIOBAD+1 02332000 DCBDEVTP EQU DCBIOBAD 02333000 @NM00114 EQU IHADCS17+7 02334000 @NM00113 EQU IHADCS17+6 02335000 @NM00112 EQU IHADCS17+5 02336000 DCBINTVL EQU IHADCS17+4 02337000 DCBCLPSA EQU DCBCLPS+1 02338000 DCBBUFRQ EQU DCBCLPS 02339000 DCBBUFMA EQU IHADCS16+8 02340000 @NM00111 EQU DCBDSRG2 02341000 DCBDSGTR EQU DCBDSRG2 02342000 DCBACBM EQU DCBDSRG2 02343000 @NM00110 EQU DCBDSRG2 02344000 DCBDSGTQ EQU DCBDSRG2 02345000 DCBDSGTX EQU DCBDSRG2 02346000 DCBDSGGS EQU DCBDSRG2 02347000 DCBDSGU EQU DCBDSRG1 02348000 DCBDSGPO EQU DCBDSRG1 02349000 @NM00109 EQU DCBDSRG1 02350000 @NM00108 EQU DCBDSRG1 02351000 DCBDSGCX EQU DCBDSRG1 02352000 DCBDSGDA EQU DCBDSRG1 02353000 DCBDSGPS EQU DCBDSRG1 02354000 DCBPCIR2 EQU DCBPCI 02355000 DCBPCIR1 EQU DCBPCI 02356000 DCBPCIN2 EQU DCBPCI 02357000 DCBPCIN1 EQU DCBPCI 02358000 DCBPCIA2 EQU DCBPCI 02359000 DCBPCIA1 EQU DCBPCI 02360000 DCBPCIX2 EQU DCBPCI 02361000 DCBPCIX1 EQU DCBPCI 02362000 @NM00107 EQU IHADCS16+4 02363000 DCBMH EQU DCBMHA+1 02364000 DCBBFOUT EQU DCBBUFIN 02365000 DCBBFIN EQU DCBBUFIN 02366000 @NM00106 EQU IHADCB 02367000 SAVTLLCB EQU IEDNSVTD+316 02368000 SAVTBITN EQU IEDNSVTD+312 02369000 @NM00105 EQU SAVTCKQB+8 02370000 @NM00104 EQU SAVTCKEC+1 02371000 @NM00103 EQU SAVTCKCC 02372000 SAVTCKPO EQU SAVTCKCC 02373000 SAVTCKWA EQU SAVTCKCC 02374000 SAVTCKCH EQU SAVTCKTB+1 02375000 SAVTCKVT EQU SAVTCKTB 02376000 @NM00102 EQU IEDNSVTD+297 02377000 SAVTRDFG EQU SAVTRDRV+12 02378000 @NM00101 EQU SAVTRDRV+5 02379000 SAVTRDPY EQU SAVTRDRV+4 02380000 SAVTRDQB EQU SAVTRDRV+1 02381000 SAVTRDKY EQU SAVTRDRV 02382000 SAVTNID EQU IEDNSVTD+280 02383000 SAVTDVAS EQU IEDNSVTD+276 02384000 SAVTPLSZ EQU IEDNSVTD+274 02385000 @NM00100 EQU IEDNSVTD+273 02386000 SAVTSUBL EQU IEDNSVTD+272 02387000 @NM00099 EQU SAVTZELM+1 02388000 SAVTSUBM EQU SAVTZELM 02389000 SAVTMHDX EQU IEDNSVTD+268 02390000 SAVTNAT1 EQU IEDNSVTD+266 02391000 SAVTSH20 EQU IEDNSVTD+264 02392000 SAVTLCBS EQU IEDNSVTD+260 02393000 SAVTRNMP EQU IEDNSVTD+256 02394000 SAVTTNTX EQU IEDNSVTD+252 02395000 SAVTNAX EQU IEDNSVTD+248 02396000 SAVTSUBV EQU IEDNSVTD+247 02397000 SAVTSUBA EQU IEDNSVTD+246 02398000 SAVTSIBC EQU IEDNSVTD+244 02399000 SAVTBSM EQU IEDNSVTD+240 02400000 SAVTSCPT EQU SAVTTCPU 02401000 SAVTRQTG EQU IEDNSVTD+236 02402000 SAVTRQCH EQU IEDNSVTD+232 02403000 SAVTMAND EQU IEDNSVTD+228 02404000 SAVTSPLN EQU IEDNSVTD+224 02405000 SAVTNADL EQU IEDNSVTD+222 02406000 SAVTNATL EQU IEDNSVTD+220 02407000 SAVTMHTB EQU IEDNSVTD+216 02408000 SAVTSSMH EQU IEDNSVTD+212 02409000 SAVTQRS EQU IEDNSVTD+208 02410000 SAVTRQIN EQU IEDNSVTD+204 02411000 SAVTDFCO EQU IEDNSVTD+200 02412000 SAVTSAO EQU IEDNSVTD+196 02413000 SAVTSARI EQU IEDNSVTD+192 02414000 SAVTSAC EQU IEDNSVTD+188 02415000 SAVTSAI EQU IEDNSVTD+184 02416000 SAVTCSCI EQU IEDNSVTD+180 02417000 SAVTSSRP EQU IEDNSVTD+176 02418000 SAVTSSRQ EQU IEDNSVTD+172 02419000 SAVTSCLU EQU IEDNSVTD+168 02420000 SAVTXTRQ EQU IEDNSVTD+164 02421000 SAVTMVBF EQU IEDNSVTD+160 02422000 @NM00098 EQU IEDNSVTD+148 02423000 SAVTIPCQ EQU IEDNSVTD+144 02424000 @NM00097 EQU IEDNSVTD+136 02425000 SAVTXFMI EQU IEDNSVTD+132 02426000 @NM00096 EQU IEDNSVTD+124 02427000 SAVTXFMO EQU IEDNSVTD+120 02428000 @NM00095 EQU IEDNSVTD+116 02429000 SAVTSSSR EQU IEDNSVTD+112 02430000 SAVTSCPQ EQU IEDNSVTD+108 02431000 SAVTSLCB EQU IEDNSVTD+104 02432000 SAVTLUSR EQU IEDNSVTD+100 02433000 @NM00094 EQU SAVTLUSQ+8 02434000 SAVTLUSP EQU SAVTLUSQ+4 02435000 SAVTLUSB EQU SAVTLUSQ 02436000 @NM00093 EQU IEDNSVTD+84 02437000 SAVTSAT EQU IEDNSVTD+80 02438000 SAVTNAT EQU IEDNSVTD+76 02439000 SAVTCLUP EQU IEDNSVTD+72 02440000 SAVTPIUT EQU IEDNSVTD+68 02441000 SAVTRNTA EQU IEDNSVTD+64 02442000 SAVTDNIR EQU IEDNSVTD+60 02443000 SAVTCNIR EQU IEDNSVTD+56 02444000 SAVTFLDH EQU IEDNSVTD+52 02445000 SAVTSRTN EQU IEDNSVTD+48 02446000 SAVTSREQ EQU IEDNSVTD+44 02447000 SAVTFAIL EQU IEDNSVTD+42 02448000 SAVTSUSE EQU IEDNSVTD+40 02449000 SAVTSIB EQU IEDNSVTD+36 02450000 SAVTPRTN EQU IEDNSVTD+32 02451000 @NM00092 EQU IEDNSVTD+28 02452000 SAVTWH20 EQU IEDNSVTD+26 02453000 SAVTPWT EQU IEDNSVTD+24 02454000 SAVTPRTQ EQU IEDNSVTD+20 02455000 SAVTPREQ EQU IEDNSVTD+16 02456000 SAVTPH20 EQU IEDNSVTD+14 02457000 SAVTPUSE EQU IEDNSVTD+12 02458000 SAVTPLCB EQU IEDNSVTD+8 02459000 SAVTPOOL EQU IEDNSVTD+4 02460000 SAVTPRMT EQU SAVTDIAF 02461000 SAVTVIRT EQU SAVTDIAF 02462000 AVTCPBNO EQU IEDQAVTD+1244 02463000 AVTHRESS EQU IEDQAVTD+1243 02464000 @NM00091 EQU IEDQAVTD+1242 02465000 @NM00090 EQU IEDQAVTD+1241 02466000 @NM00089 EQU IEDQAVTD+1240 02467000 @NM00088 EQU IEDQAVTD+1237 02468000 @NM00087 EQU IEDQAVTD+1236 02469000 AVTHRESE EQU @NM00086 02470000 AVTRADDR EQU IEDQAVTD+1228 02471000 AVTNADDR EQU IEDQAVTD+1224 02472000 AVTHRESN EQU IEDQAVTD+1220 02473000 AVTVOLRN EQU IEDQAVTD+1216 02474000 AVTTOTNN EQU IEDQAVTD+1212 02475000 AVTTRCYN EQU IEDQAVTD+1208 02476000 AVTRCTRN EQU IEDQAVTD+1204 02477000 AVTNOVON EQU IEDQAVTD+1200 02478000 AVTADEBN EQU IEDQAVTD+1196 02479000 AVTVOLRR EQU IEDQAVTD+1192 02480000 AVTTOTNR EQU IEDQAVTD+1188 02481000 AVTTRCYR EQU IEDQAVTD+1184 02482000 AVTRCTRR EQU IEDQAVTD+1180 02483000 AVTNOVOR EQU IEDQAVTD+1176 02484000 AVTADEBR EQU IEDQAVTD+1172 02485000 AVTLODPT EQU IEDQAVTD+1168 02486000 AVTIOBN EQU IEDQAVTD+1164 02487000 AVTIOBR EQU IEDQAVTD+1160 02488000 AVTCPBPT EQU IEDQAVTD+1156 02489000 AVTFCPB EQU IEDQAVTD+1152 02490000 @NM00085 EQU IEDQAVTD+1148 02491000 AVTINCPQ EQU IEDQAVTD+1144 02492000 @NM00084 EQU IEDQAVTD+1140 02493000 @NM00083 EQU IEDQAVTD+1137 02494000 @NM00082 EQU AVTBIT4 02495000 @NM00081 EQU AVTBIT4 02496000 @NM00080 EQU AVTBIT4 02497000 @NM00079 EQU AVTBIT4 02498000 @NM00078 EQU AVTBIT4 02499000 @NM00077 EQU AVTBIT4 02500000 @NM00076 EQU AVTBIT4 02501000 AVTRUFTN EQU AVTBIT4 02502000 @NM00075 EQU IEDQAVTD+1132 02503000 AVTNOBFQ EQU IEDQAVTD+1128 02504000 @NM00074 EQU IEDQAVTD+1124 02505000 AVTDKENQ EQU IEDQAVTD+1120 02506000 @NM00073 EQU IEDQAVTD+1116 02507000 AVTDKAPQ EQU IEDQAVTD+1112 02508000 AVTCOPY EQU IEDQAVTD+1108 02509000 AVTIA EQU IEDQAVTD+1104 02510000 AVTFL EQU IEDQAVTD+1100 02511000 @NM00072 EQU IEDQAVTD+1096 02512000 AVTNCPBQ EQU IEDQAVTD+1092 02513000 AVTTOTNC EQU IEDQAVTD+1088 02514000 AVTCMAX EQU IEDQAVTD+1084 02515000 AVTCMIN EQU IEDQAVTD+1080 02516000 AVTHM02 EQU IEDQAVTD+1076 02517000 AVTOPCIN EQU IEDQAVTD+1074 02518000 AVTOPMSK EQU IEDQAVTD+1068 02519000 AVTDDFT EQU IEDQAVTD+1064 02520000 AVTSTEAL EQU IEDQAVTD+1060 02521000 AVTOPTN EQU IEDQAVTD+1056 02522000 AVTDSKCT EQU IEDQAVTD+1054 02523000 AVTCKRST EQU IEDQAVTD+1053 02524000 AVTSTAN EQU AVTBIT3 02525000 AVTSTACN EQU AVTBIT3 02526000 AVTSTAIN EQU AVTBIT3 02527000 AVTSTAYN EQU AVTBIT3 02528000 AVTOLTBN EQU AVTBIT3 02529000 AVTTSAB EQU AVTBIT3 02530000 AVTRFULN EQU AVTBIT3 02531000 AVTRECVN EQU AVTBIT3 02532000 @NM00071 EQU AVTBIT2 02533000 @NM00070 EQU AVTBIT2 02534000 AVTOPEIN EQU AVTBIT2 02535000 AVTSTRTN EQU AVTBIT2 02536000 AVTTOPOL EQU AVTBIT2 02537000 AVTCOPYN EQU AVTBIT2 02538000 AVTREUSN EQU AVTBIT2 02539000 AVTEXTSC EQU AVTBIT2 02540000 AVTDISKN EQU AVTBIT1 02541000 AVTQUCKN EQU AVTBIT1 02542000 AVTCLOSN EQU AVTBIT1 02543000 AVTREADN EQU AVTBIT1 02544000 AVTDLAYN EQU AVTBIT1 02545000 AVTAQTAN EQU AVTBIT1 02546000 AVTTSON EQU AVTBIT1 02547000 AVTAPLKN EQU AVTBIT1 02548000 AVTDUMBR EQU IEDQAVTD+1048 02549000 AVTDLQX EQU IEDQAVTD+1046 02550000 AVTINTLV EQU IEDQAVTD+1044 02551000 AVTSMCNT EQU IEDQAVTD+1042 02552000 AVTAVFCT EQU IEDQAVTD+1040 02553000 AVTOPCON EQU IEDQAVTD+1038 02554000 AVTOPCNT EQU IEDQAVTD+1036 02555000 AVTLNCNT EQU IEDQAVTD+1034 02556000 AVTKEYLE EQU IEDQAVTD+1032 02557000 AVTHA16 EQU IEDQAVTD+1030 02558000 AVTHA7 EQU IEDQAVTD+1028 02559000 AVTHA4 EQU IEDQAVTD+1026 02560000 AVTHA3 EQU IEDQAVTD+1024 02561000 AVTHA2 EQU IEDQAVTD+1022 02562000 AVTGETMS EQU IEDQAVTD+1021 02563000 @NM00069 EQU IEDQAVTD+1020 02564000 AVTGETMD EQU IEDQAVTD+1016 02565000 AVTGETMN EQU IEDQAVTD+1012 02566000 AVTCWTOT EQU IEDQAVTD+1008 02567000 AVTCWINT EQU IEDQAVTD+956 02568000 AVTDTRAP EQU IEDQAVTD+952 02569000 @NM00068 EQU IEDQAVTD+950 02570000 @NM00067 EQU AVTIOTR 02571000 AVTIOTRH EQU AVTIOTR 02572000 AVTIOTRE EQU AVTIOTR 02573000 @NM00066 EQU AVTSUBT 02574000 AVTSUBPT EQU AVTSUBT 02575000 AVTSUBON EQU AVTSUBT 02576000 AVTAFE30 EQU IEDQAVTD+944 02577000 AVTAFE20 EQU IEDQAVTD+940 02578000 AVTAFE10 EQU IEDQAVTD+936 02579000 AVTCWEC2 EQU IEDQAVTD+932 02580000 AVTCWPM2 EQU IEDQAVTD+928 02581000 AVTCWTS2 EQU IEDQAVTD+927 02582000 AVTCWTS1 EQU IEDQAVTD+926 02583000 AVTCWCLD EQU AVTCWFL2 02584000 AVTCWRAP EQU AVTCWFL2 02585000 @NM00065 EQU AVTCWFL2 02586000 @NM00064 EQU AVTCWFL2 02587000 @NM00063 EQU AVTCWFL2 02588000 @NM00062 EQU AVTCWFL2 02589000 @NM00061 EQU AVTCWFL2 02590000 AVTCWACT EQU AVTCWFL2 02591000 @NM00060 EQU AVTCWFL1 02592000 @NM00059 EQU AVTCWFL1 02593000 @NM00058 EQU AVTCWFL1 02594000 @NM00057 EQU AVTCWFL1 02595000 @NM00056 EQU AVTCWFL1 02596000 @NM00055 EQU AVTCWFL1 02597000 @NM00054 EQU AVTCWFL1 02598000 AVTCOMWN EQU AVTCWFL1 02599000 AVTCWEC1 EQU IEDQAVTD+920 02600000 AVTCWPM1 EQU IEDQAVTD+916 02601000 AVTCAREA EQU IEDQAVTD+912 02602000 AVTFZERO EQU IEDQAVTD+908 02603000 AVTCADDR EQU IEDQAVTD+904 02604000 AVTCOREC EQU IEDQAVTD+900 02605000 @NM00053 EQU IEDQAVTD+892 02606000 AVTCPBCB EQU IEDQAVTD+888 02607000 @NM00052 EQU IEDQAVTD+880 02608000 AVTDSIOB EQU IEDQAVTD+876 02609000 @NM00051 EQU IEDQAVTD+868 02610000 AVTCPRMB EQU IEDQAVTD+864 02611000 @NM00050 EQU IEDQAVTD+856 02612000 AVTCLOSB EQU IEDQAVTD+852 02613000 @NM00049 EQU IEDQAVTD+844 02614000 AVTACTIB EQU IEDQAVTD+840 02615000 @NM00048 EQU IEDQAVTD+836 02616000 AVTOLTEB EQU IEDQAVTD+832 02617000 AVTOLTCH EQU AVTOLTQB+1 02618000 AVTOLTVT EQU AVTOLTQB 02619000 @NM00047 EQU AVTOPCQB+8 02620000 @NM00046 EQU AVTOPCEC+1 02621000 @NM00045 EQU AVTOPCCC 02622000 AVTOPCPO EQU AVTOPCCC 02623000 AVTOPCWA EQU AVTOPCCC 02624000 AVTOPCCH EQU AVTOPCOB+1 02625000 AVTOPCVT EQU AVTOPCOB 02626000 @NM00044 EQU AVTCKPQB+9 02627000 AVTCKPTS EQU AVTCKPQB+8 02628000 @NM00043 EQU AVTCKPEC+1 02629000 @NM00042 EQU AVTCKPCC 02630000 AVTCKPPO EQU AVTCKPCC 02631000 AVTCKPWA EQU AVTCKPCC 02632000 AVTCKPCH EQU AVTCKPTB+1 02633000 AVTCKPVT EQU AVTCKPTB 02634000 @NM00041 EQU IEDQAVTD+796 02635000 AVTBFRTB EQU IEDQAVTD+792 02636000 @NM00040 EQU IEDQAVTD+788 02637000 AVTSELCH EQU IEDQAVTD+785 02638000 AVTBFRTN EQU AVTBFRFG 02639000 AVTBFREB EQU IEDQAVTD+780 02640000 AVTTIMQ EQU IEDQAVTD+776 02641000 @NM00039 EQU IEDQAVTD+772 02642000 AVTIMQPS EQU IEDQAVTD+768 02643000 AVTINOUT EQU IEDQAVTD+766 02644000 AVTREFTM EQU IEDQAVTD+764 02645000 @NM00038 EQU IEDQAVTD+752 02646000 AVTDELYB EQU IEDQAVTD+748 02647000 AVTOCQPT EQU IEDQAVTD+744 02648000 AVTTSOPT EQU IEDQAVTD+740 02649000 AVTSUPPT EQU IEDQAVTD+736 02650000 AVTCBQCB EQU IEDQAVTD+732 02651000 AVTMSGS EQU IEDQAVTD+729 02652000 @NM00037 EQU AVTSYSER 02653000 @NM00036 EQU AVTSYSER 02654000 @NM00035 EQU AVTSYSER 02655000 @NM00034 EQU AVTSYSER 02656000 @NM00033 EQU AVTSYSER 02657000 @NM00032 EQU AVTSYSER 02658000 AVTCMAXN EQU AVTSYSER 02659000 AVTCMINN EQU AVTSYSER 02660000 AVT2260L EQU IEDQAVTD+724 02661000 AVTABEPL EQU AVTADBUF 02662000 AVTHFF EQU AVTCLRHI+2 02663000 @NM00031 EQU AVTCLRHI 02664000 AVTCCLNK EQU AVTCRELE+5 02665000 AVTCCPRI EQU AVTCRELE+4 02666000 AVTCCQCB EQU AVTCCELE+1 02667000 AVTCCKEY EQU AVTCCELE 02668000 AVTDELAD EQU IEDQAVTD+704 02669000 AVTDELEM EQU IEDQAVTD+700 02670000 AVTBSX EQU AVTCKLNK 02671000 AVTOPETR EQU AVTHG01 02672000 @NM00030 EQU AVTCKBYT 02673000 AVTCKONQ EQU AVTCKBYT 02674000 @NM00029 EQU AVTCKBYT 02675000 @NM00028 EQU AVTCKBYT 02676000 @NM00027 EQU AVTCKBYT 02677000 @NM00026 EQU AVTCKBYT 02678000 @NM00025 EQU AVTCKBYT 02679000 @NM00024 EQU AVTCKBYT 02680000 AVTOPERT EQU IEDQAVTD+690 02681000 AVTOPXCL EQU IEDQAVTD+688 02682000 AVTOPERL EQU IEDQAVTD+687 02683000 @NM00023 EQU IEDQAVTD+686 02684000 AVTCKTIM EQU IEDQAVTD+684 02685000 AVTCKELV EQU IEDQAVTD+682 02686000 AVTCPRCD EQU IEDQAVTD+681 02687000 AVTWARMN EQU AVTCKELF 02688000 AVTCRTLN EQU AVTCKELF 02689000 AVTCPIPN EQU AVTCKELF 02690000 AVTCCLCN EQU AVTCKELF 02691000 AVTCINCN EQU AVTCKELF 02692000 @NM00022 EQU AVTCKELF 02693000 AVTCMCPN EQU AVTCKELF 02694000 AVTNQBCK EQU AVTCKELF 02695000 AVTCKQAD EQU IEDQAVTD+677 02696000 AVTSCBSZ EQU IEDQAVTD+676 02697000 @NM00021 EQU IEDQAVTD+672 02698000 AVTCKELE EQU IEDQAVTD+668 02699000 @NM00020 EQU AVTCKPEL+8 02700000 AVTCKRLK EQU AVTCKPEL+5 02701000 AVTCKRPR EQU AVTCKPEL+4 02702000 AVTCKRMQ EQU AVTCKRMV+1 02703000 AVTCKRKY EQU AVTCKRMV 02704000 AVTHK EQU IEDQAVTD+648 02705000 AVTHI EQU IEDQAVTD+644 02706000 AVTIOT EQU IEDQAVTD+640 02707000 AVTNX EQU IEDQAVTD+636 02708000 AVTTONE EQU IEDQAVTD+632 02709000 AVTA3TL EQU IEDQAVTD+628 02710000 AVTDMECB EQU IEDQAVTD+624 02711000 AVTABEND EQU IEDQAVTD+618 02712000 AVTPLCBN EQU IEDQAVTD+616 02713000 @NM00019 EQU AVTSAVTP+1 02714000 @NM00018 EQU AVTSAVTF 02715000 AVTSNA EQU AVTSAVTF 02716000 AVTONSNA EQU AVTSAVTF 02717000 AVTVTMCP EQU AVTSAVTF 02718000 @NM00017 EQU IEDQAVTD+608 02719000 AVTCMBSS EQU IEDQAVTD+604 02720000 AVTRCV EQU IEDQAVTD+600 02721000 AVTSEND EQU IEDQAVTD+596 02722000 AVTCSCH EQU IEDQAVTD+592 02723000 AVTQ1 EQU IEDQAVTD+588 02724000 AVTE7 EQU IEDQAVTD+584 02725000 AVTHB EQU IEDQAVTD+580 02726000 AVTR1 EQU IEDQAVTD+576 02727000 AVTBZ EQU IEDQAVTD+572 02728000 AVTEZ EQU IEDQAVTD+568 02729000 AVTEC EQU IEDQAVTD+564 02730000 AVTEW EQU IEDQAVTD+560 02731000 AVTNDIAL EQU AVTSCOPT 02732000 AVTN2741 EQU AVTSCOPT 02733000 AVTCONCO EQU AVTSCOPT 02734000 AVTCONC EQU AVTSCOPT 02735000 AVTCMBUF EQU AVTSCOPT 02736000 AVTAPDMP EQU AVTSCOPT 02737000 @NM00016 EQU AVTSCOPT 02738000 AVTHA EQU AVTDISP 02739000 AVTEA EQU IEDQAVTD+548 02740000 AVTAX EQU IEDQAVTD+544 02741000 AVTA3 EQU IEDQAVTD+540 02742000 AVTGD EQU IEDQAVTD+536 02743000 AVTAL EQU IEDQAVTD+532 02744000 AVTOLTST EQU AVTHG02 02745000 AVTE8 EQU IEDQAVTD+524 02746000 AVTUI EQU IEDQAVTD+520 02747000 AVTCOMPT EQU IEDQAVTD+516 02748000 AVTCRSRF EQU IEDQAVTD+512 02749000 @NM00015 EQU IEDQAVTD+508 02750000 AVTKA02 EQU IEDQAVTD+504 02751000 AVTOPTPT EQU IEDQAVTD+500 02752000 AVTPCBPT EQU IEDQAVTD+496 02753000 @NM00014 EQU AVTECB1 02754000 AVTCOMP EQU AVTECB1 02755000 @NM00013 EQU AVTECB1 02756000 AVTOPECA EQU IEDQAVTD+488 02757000 AVTOLECA EQU IEDQAVTD+484 02758000 AVTCKECA EQU IEDQAVTD+480 02759000 AVTCWECA EQU IEDQAVTD+476 02760000 AVTCWTCB EQU IEDQAVTD+472 02761000 AVTOLTCB EQU IEDQAVTD+468 02762000 AVTOCTCB EQU IEDQAVTD+464 02763000 AVTCKTCB EQU IEDQAVTD+460 02764000 AVTNOLBF EQU IEDQAVTD+454 02765000 AVTNCKPR EQU IEDQAVTD+453 02766000 AVTCIB EQU IEDQAVTD+452 02767000 AVTSPLPT EQU IEDQAVTD+448 02768000 AVTMVBFR EQU IEDQAVTD+444 02769000 AVTSBTA EQU IEDQAVTD+440 02770000 AVTRARTN EQU IEDQAVTD+436 02771000 AVTBSCAN EQU IEDQAVTD+432 02772000 AVTRDYA EQU IEDQAVTD+428 02773000 AVTDISTR EQU IEDQAVTD+420 02774000 AVTPARM3 EQU IEDQAVTD+416 02775000 @NM00012 EQU AVTPKF 02776000 @NM00011 EQU AVTPKF 02777000 @NM00010 EQU AVTPKF 02778000 AVTFTCHF EQU AVTPKF 02779000 @NM00009 EQU AVTPKF 02780000 @NM00008 EQU AVTPKF 02781000 @NM00007 EQU AVTPKF 02782000 @NM00006 EQU AVTPKF 02783000 AVTPARM EQU IEDQAVTD+408 02784000 AVTEXS2A EQU IEDQAVTD+402 02785000 AVTEXA2S EQU IEDQAVTD+396 02786000 AVTOCGET EQU IEDQAVTD+392 02787000 AVTCKAVT EQU @NM00004+1 02788000 @NM00005 EQU AVTCKFLG 02789000 AVTCKHLT EQU AVTCKFLG 02790000 AVTCKREQ EQU AVTCKFLG 02791000 AVTCKENV EQU AVTCKFLG 02792000 AVTCKNAC EQU AVTCKFLG 02793000 AVTCKTAC EQU AVTCKFLG 02794000 AVTBUENT EQU IEDQAVTD+386 02795000 @NM00003 EQU IEDQAVTD+385 02796000 AVTFULLT EQU AVTBUFSW 02797000 AVTUNCON EQU AVTBUFSW 02798000 @NM00002 EQU AVTBUFSW 02799000 AVTBUFTR EQU AVTREADD 02800000 AVTREADY EQU IEDQAVTD+376 02801000 AVTRACE EQU IEDQAVTD+372 02802000 AVTTCB EQU IEDQAVTD+368 02803000 AVTPASWD EQU IEDQAVTD+360 02804000 AVTCTLCH EQU IEDQAVTD+352 02805000 AVTDOUBL EQU IEDQAVTD+344 02806000 AVTDOUBX EQU IEDQAVTD+336 02807000 AVTDPARM EQU IEDQAVTD+332 02808000 AVTDLQ EQU AVTSAVEX+32 02809000 @NM00001 EQU AVTSAVEX 02810000 AVTSAVE4 EQU IEDQAVTD+216 02811000 AVTSAVE3 EQU IEDQAVTD+144 02812000 AVTSAVE2 EQU IEDQAVTD+72 02813000 AVTSAVE1 EQU IEDQAVTD 02814000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02815000 @RC00358 EQU @RC00350 02816000 @RC00356 EQU @RC00350 02817000 TRMOGOOD EQU AFTERTRM 02818000 DCBLGOOD EQU AFTERDCB 02819000 @RF00441 EQU @RC00438 02820000 @RC00443 EQU @RC00438 02821000 @RC00459 EQU @RC00457 02822000 @RC00562 EQU @EL00002 02823000 @RF00607 EQU @RC00600 02824000 @RC00602 EQU @RC00600 02825000 @RC00587 EQU @EL00003 02826000 @RF00369 EQU @RC00358 02827000 @RC00373 EQU @RC00358 02828000 @RC00563 EQU @RC00562 02829000 @RC00565 EQU @RC00563 02830000 @ENDDATA EQU * 02831000 END IGCH010D,(C'PLS1610',0701,78090) 02832000