TITLE 'IGCMS10D, COMMAND PROCESSOR FOR BHSET, TRANLMT, AND SES*00001000 SSION ' 00002000 IGCMS10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCMS10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00009000 * OPERATOR CONTROL ADDRESS 02S0439 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0439 00012000 * RFY 02S0440 00013000 * RPARM UNRSTD; /* RELEASE THE PARAMETER REGISTER 00014000 * FOR USE BY THE COMPILER */ 00015000 * REG10=OPCWORK+56; /* 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 MAXIMUM 00020000 * LENGTH OF A COMMAND THAT IS TO 00021000 * BE PROCESSED */ 00022000 LA REG10,56 02S0441 00023000 AL REG10,OPCWORK(,ROPCAVT) 02S0441 00024000 * GEN REFS(REG10) NOSETS; 02S0442 00025000 * /* 00026000 USING @DATD,REG10 INFORM THE ASSEMBLER OF THE 00027000 * BASE REGISTER TO BE USED FOR 00028000 * ADDRESSING AUTOMATIC DATA 00029000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00030000 * REGISTER WITH THE POINTER TO 00031000 * THE OPERATOR CONTROL SAVE AREA*/ 00032000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0443 00033000 * 02S0444 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00037000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 02S0444 00041000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00042000 * OPCE */ 00043000 L ROPCE,OPCCOPCE(,ROPCAVT) 02S0444 00044000 * IF OCRESP=OFF /* THE OPCE HAS NO RESPONSE 02S0445 00045000 * ASSOCIATED WITH IT */ 00046000 * THEN /* VERIFY THE COMMAND OPERANDS 00047000 * AND EITHER PREPARE TO SEND THE 00048000 * APPROPRIATE REQUEST UNIT OR 00049000 * SET REGISTER ZERO (0) WITH AN 00050000 * ERROR MESSAGE NUMBER */ 00051000 TM OCRESP(ROPCE),B'00000001' 02S0445 00052000 BNZ @RF00445 02S0445 00053000 * 03S0446 00054000 * /***************************************************************/ 00055000 * /* */ 00056000 * /* PROCESS.REQUEST: THIS SEGMENT VERIFIES THE INPUT COMMAND */ 00057000 * /* OPERANDS AND PREPARES TO SEND THE APPROPRIATE REQUEST UNIT */ 00058000 * /* OR SETS REGISTER ZERO (0) WITH AN ERROR MESSAGE NUMBER. */ 00059000 * /* */ 00060000 * /***************************************************************/ 00061000 * 03S0446 00062000 * DO; 03S0446 00063000 * 04S0447 00064000 * /*************************************************************/ 00065000 * /* */ 00066000 * /* PROCESS.REQUEST.INITIAL: THIS SEGMENT DOES THE INITIAL */ 00067000 * /* REQUEST PROCESSING. DELIMITING POINTERS TO THE COMMAND */ 00068000 * /* TEXT ARE SET AND A BUFFER UNIT IS OBTAINED. */ 00069000 * /* */ 00070000 * /*************************************************************/ 00071000 * 04S0447 00072000 * DO; 04S0447 00073000 * RAVT=OPCAVTPT; /* SET THE BASE REGISTER FOR THE 00074000 * TCAM AVT */ 00075000 L RAVT,OPCAVTPT(,ROPCAVT) 04S0448 00076000 * PTRCHAR=OPCSAVE(5); /* SET THE POINTER TO THE FIRST 00077000 * CHARACTER TO BE SCANNED */ 00078000 L PTRCHAR,OPCSAVE+16(,ROPCAVT) 04S0449 00079000 * PTRLAST=PTRCHAR+OPCSAVE(4)-1;/* SET THE POINTER TO THE LAST 00080000 * CHARACTER IN THE REMAINING 00081000 * COMMAND TEXT */ 00082000 LR PTRLAST,PTRCHAR 04S0450 00083000 AL PTRLAST,OPCSAVE+12(,ROPCAVT) 04S0450 00084000 BCTR PTRLAST,0 04S0450 00085000 * REG01=1; /* SET REGISTER ONE (1) TO 04S0451 00086000 * INDICATE THAT ONE BUFFER UNIT 00087000 * IS DESIRED FOR THE PACKED 00088000 * REQUEST UNIT */ 00089000 LA REG01,1 04S0451 00090000 * CALL ALLOCBUF; 04S0452 00091000 L @15,OPCGETBF(,ROPCAVT) 04S0452 00092000 BALR @14,@15 04S0452 00093000 * OCUNIT=REG01; /* ATTACH THE BUFFER UNIT TO THE 00094000 * OPCE */ 00095000 ST REG01,OCUNIT(,ROPCE) 04S0453 00096000 * REG00=0; /* INDICATE THAT NO ERRORS HAVE 00097000 * BEEN FOUND */ 00098000 SLR REG00,REG00 04S0454 00099000 * END; 04S0455 00100000 * IF OCSWITCH=OCBHSET /* THE INPUT IS A "MODIFY BLOCK 00101000 * HANDLER SET" COMMAND */ 00102000 * THEN /* VERIFY THE COMMAND AND PREPARE 00103000 * TO SEND THE APPROPRIATE 03S0456 00104000 * REQUEST UNIT */ 00105000 CLI OCSWITCH(ROPCE),X'1D' 03S0456 00106000 BNE @RF00456 03S0456 00107000 * 04S0457 00108000 * /***********************************************************/ 00109000 * /* */ 00110000 * /* PROCESS.REQUEST.BHSET: THIS SEGMENT VERIFIES THE INPUT */ 00111000 * /* FROM THE "MODIFY BLOCK HANDLER SET" COMMAND AND EITHER */ 00112000 * /* PREPARES TO SEND THE APPROPRIATE REQUEST UNIT OR SETS AN*/ 00113000 * /* ERROR MESSAGE NUMBER IN REGISTER ZERO (0). */ 00114000 * /* */ 00115000 * /***********************************************************/ 00116000 * 04S0457 00117000 * DO; 04S0457 00118000 * CALL RESOURCE; 04S0458 00119000 BAL @14,RESOURCE 04S0458 00120000 * IF REG00=0 /* THE RESOURCE IS KNOWN TO TCAM */ 00121000 * THEN /* CONTINUE PROCESSING THE BHSET 00122000 * COMMAND */ 00123000 LTR REG00,REG00 04S0459 00124000 BNZ @RF00459 04S0459 00125000 * IF TRMPREF=ON&(TRMTYPE=TRMPSNA/* THE RESOURCE IS 04S0460 00126000 * NON-SNA */ 00127000 * |TRMTYPE=TRMCLUST)/* THE RESOURCE IS A CLUSTER */ 00128000 * THEN /* DETERMINE THE ACTION THAT IS 00129000 * TO BE PERFORMED */ 00130000 TM TRMPREF(RTRM),B'00010000' 04S0460 00131000 BNO @RF00460 04S0460 00132000 LR @15,RTRM 04S0460 00133000 SL @15,@CF01621 04S0460 00134000 CLI TRMTYPE(@15),X'4F' 04S0460 00135000 BE @RT00460 04S0460 00136000 CLI TRMTYPE(@15),X'40' 04S0460 00137000 BNE @RF00460 04S0460 00138000 @RT00460 DS 0H 04S0461 00139000 * DO; 04S0461 00140000 * IF ACTION='C' /* THE BLOCK HANDLER SET 04S0462 00141000 * ASSOCIATION IS TO BE CHANGED */ 00142000 * THEN /* CHECK FOR A CORRECT "RELATIVE 00143000 * POSITION" OPERAND */ 00144000 CLI ACTION(PTRCHAR),C'C' 04S0462 00145000 BNE @RF00462 04S0462 00146000 * 05S0463 00147000 * /*************************************************/ 00148000 * /* */ 00149000 * /* PROCESS.REQUEST.BHSET.DOUBLE: THIS SEGMENT */ 00150000 * /* SCANS FOR THE "RELATIVE POSITION" OPERAND AND */ 00151000 * /* SETS THE APPROPRIATE FIELDS IN THE BDU OR SETS*/ 00152000 * /* REGISTER ZERO (0) WITH AN ERROR MESSAGE. */ 00153000 * /* */ 00154000 * /*************************************************/ 00155000 * 05S0463 00156000 * DO; 05S0463 00157000 * IF CHARNEXT=','/* THE OPERAND DELIMITER IS 00158000 * CORRECT */ 00159000 * &PTRLAST-PTRCHAR>1/* THERE IS A "RELATIVE 00160000 * POSITION" OPERAND */ 00161000 * THEN /* CONVERT THE CHARACTER NUMERIC 00162000 * OPERAND */ 00163000 CLI CHARNEXT(PTRCHAR),C',' 05S0464 00164000 BNE @RF00464 05S0464 00165000 LR @15,PTRLAST 05S0464 00166000 SLR @15,PTRCHAR 05S0464 00167000 C @15,@CF00060 05S0464 00168000 BNH @RF00464 05S0464 00169000 * DO; 05S0465 00170000 * PTRCHAR=PTRCHAR+2;/* SET THE CHARACTER 00171000 * POINTER TO THE FIRST CHARACTER 00172000 * OF THE OPERAND */ 00173000 AL PTRCHAR,@CF00127 05S0466 00174000 * CALL NUMBOPER; 05S0467 00175000 BAL @14,NUMBOPER 05S0467 00176000 * IF REG00=0/* ALL OF THE COMMAND OPERANDS 00177000 * ARE VALID */ 00178000 * &PTRCHAR>PTRLAST/* THERE ARE NO 05S0468 00179000 * EXTRANEOUS CHARACTERS */ 00180000 * THEN /* SET THE APPROPRIATE BDU FIELDS*/ 00181000 LTR REG00,REG00 05S0468 00182000 BNZ @RF00468 05S0468 00183000 CR PTRCHAR,PTRLAST 05S0468 00184000 BNH @RF00468 05S0468 00185000 * DO; 05S0469 00186000 * PRUDATCT=LENGTH(IEDBDU)+2;/* SET THE 00187000 * COMMAND LENGTH */ 00188000 L @11,OCUNIT(,ROPCE) 05S0470 00189000 MVC PRUDATCT(2,@11),@CH00045 05S0470 00190000 * BDUTEXT(1)=BDUMBHSC;/* SET THE BDU 00191000 * FIRST TEXT BYTE */ 00192000 AL @11,@CF00235 05S0471 00193000 MVI BDUTEXT(@11),X'80' 05S0471 00194000 * BDUTEXT(2)=FIXEDNUM;/* SET THE 05S0472 00195000 * "RELATIVE POSITION" VALUE DATA 00196000 * FIELD OF THE BDU */ 00197000 STC FIXEDNUM,BDUTEXT+1(,@11) 05S0472 00198000 * OCCKDAT2=FIXEDNUM;/* SAVE THE "RELATIVE 00199000 * POSITION" OPERAND FOR 05S0473 00200000 * CHECKPOINT */ 00201000 STC FIXEDNUM,OCCKDAT2(,ROPCE) 05S0473 00202000 * END; 05S0474 00203000 * END; 05S0475 00204000 * ELSE /* INDICATE THAT THE COMMAND 00205000 * SYNTAX IS INCORRECT */ 00206000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) WITH 00207000 * AN ERROR MESSAGE NUMBER */ 00208000 B @RC00464 05S0476 00209000 @RF00464 LA REG00,18 05S0476 00210000 * END; 05S0477 00211000 * ELSE /* DETERMINE THE TYPE OF THE 00212000 * SINGLE TEXT BYTE COMMAND */ 00213000 * 05S0478 00214000 * /*************************************************/ 00215000 * /* */ 00216000 * /* PROCESS.REQUEST.BHSET.SINGLE: THIS SEGMENT */ 00217000 * /* DETERMINES THE TYPE OF THE SINGLE DATA BYTE */ 00218000 * /* COMMAND AND SETS THE RELEVANT FIELDS IN THE */ 00219000 * /* BDU OR SETS REGISTER ZERO (0) WITH AN ERROR */ 00220000 * /* MESSAGE NUMBER. */ 00221000 * /* */ 00222000 * /*************************************************/ 00223000 * 05S0478 00224000 * DO; 05S0478 00225000 B @RC00462 05S0478 00226000 @RF00462 DS 0H 05S0479 00227000 * IF PTRLAST=PTRCHAR/* THE COMMAND LENGTH IS 00228000 * CORRECT */ 00229000 * THEN /* SET THE COMMAND FIELDS */ 00230000 CR PTRLAST,PTRCHAR 05S0479 00231000 BNE @RF00479 05S0479 00232000 * DO; 05S0480 00233000 * IF ACTION='A'/* THE CURRENT BH SET IS TO BE 00234000 * ACTIVATED */ 00235000 * THEN /* CHANGE THE COMMAND DATA TYPE */ 00236000 CLI ACTION(PTRCHAR),C'A' 05S0481 00237000 BNE @RF00481 05S0481 00238000 * BDUTEXT(1)=BDUMBHSA;/* SET THE BDU TEXT 00239000 * DATA */ 00240000 L @11,OCUNIT(,ROPCE) 05S0482 00241000 MVI BDUTEXT+12(@11),X'40' 05S0482 00242000 * ELSE 05S0483 00243000 * IF ACTION='D'/* THE COMMAND INDICATES 00244000 * THAT THE CURRENT BH SET IS TO 00245000 * BE DEACTIVATED */ 00246000 * THEN /* CHANGE THE COMMAND DATA */ 00247000 B @RC00481 05S0483 00248000 @RF00481 CLI ACTION(PTRCHAR),C'D' 05S0483 00249000 BNE @RF00483 05S0483 00250000 * BDUTEXT(1)=BDUMBHSD;/* SET THE BDU TEXT 00251000 * DATA */ 00252000 L @11,OCUNIT(,ROPCE) 05S0484 00253000 MVI BDUTEXT+12(@11),X'20' 05S0484 00254000 * ELSE /* INDICATE THAT THE "MODIFIER" 00255000 * OPERAND IS INVALID */ 00256000 * REG00=MSGINVOP; 05S0485 00257000 B @RC00483 05S0485 00258000 @RF00483 LA REG00,18 05S0485 00259000 * IF REG00=0/* THE "ACTION" OPERAND IS 05S0486 00260000 * CORRECT */ 00261000 * THEN /* SET THE DATA COUNT FIELD */ 00262000 @RC00483 DS 0H 05S0486 00263000 @RC00481 LTR REG00,REG00 05S0486 00264000 BNZ @RF00486 05S0486 00265000 * PRUDATCT=LENGTH(IEDBDU)+1; 05S0487 00266000 L @11,OCUNIT(,ROPCE) 05S0487 00267000 MVC PRUDATCT(2,@11),@CH00569 05S0487 00268000 * END; 05S0488 00269000 * ELSE /* INDICATE THAT THE COMMAND IS 00270000 * TOO LONG */ 00271000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) WITH 00272000 * THE APPROPRIATE MESSAGE NUMBER*/ 00273000 B @RC00479 05S0489 00274000 @RF00479 LA REG00,18 05S0489 00275000 * END; 05S0490 00276000 @RC00479 DS 0H 05S0491 00277000 * IF REG00=0 /* NO ERRORS HAVE BEEN FOUND IN 00278000 * THE COMMAND TEXT */ 00279000 * THEN /* SET THE COMMON BHSET COMMAND 00280000 * FIELDS */ 00281000 @RC00462 LTR REG00,REG00 04S0491 00282000 BNZ @RF00491 04S0491 00283000 * 05S0492 00284000 * /*************************************************/ 00285000 * /* */ 00286000 * /* PROCESS.REQUEST.BHSET.BLDBHSET: THIS SEGMENT */ 00287000 * /* BUILDS THE BH SET PACKED REQUEST UNIT. */ 00288000 * /* */ 00289000 * /*************************************************/ 00290000 * 05S0492 00291000 * DO; 05S0492 00292000 * PRURHTH(1:3)=TRHFID0;/* SET THE PACKED REQUEST 00293000 * UNIT REQUEST HEADER */ 00294000 L @11,OCUNIT(,ROPCE) 05S0493 00295000 LR @09,@11 05S0493 00296000 SL @09,@CF00045 05S0493 00297000 MVC PRURHTH(3,@09),@CB01372 05S0493 00298000 * PRUFIDN=TTH0BYT0;/* SET THE PACKED REQUEST UNIT 00299000 * TRANSMISSION HEADER */ 00300000 MVI PRUFIDN(@09),X'0C' 05S0494 00301000 * PRUTTCIN=OCTRMTBL;/* SET THE DESTINATION FROM 00302000 * THE TTCIN OF THE RESOURCE */ 00303000 LH @09,OCTRMTBL(,ROPCE) 05S0495 00304000 N @09,@CF01646 05S0495 00305000 STH @09,PRUTTCIN(,@11) 05S0495 00306000 * BDUCMND=CD0CTRL;/* SET THE BDU COMMAND CODE */ 00307000 AL @11,@CF00235 05S0496 00308000 MVI BDUCMND(@11),X'08' 05S0496 00309000 * BDUMODIF=CD0CMBHS;/* SET THE BDU MODIFIER VALUE*/ 00310000 MVI BDUMODIF(@11),X'8D' 05S0497 00311000 * OCCKDAT1=BDUTEXT(1);/* SAVE THE FIRST BDU TEXT 00312000 * BYTE FOR CHECKPOINT */ 00313000 MVC OCCKDAT1(1,ROPCE),BDUTEXT(@11) 05S0498 00314000 * END; 05S0499 00315000 * END; 04S0500 00316000 * ELSE /* INDICATE THAT THE COMMAND IS 00317000 * INVALID FOR THE PARTICULAR 00318000 * RESOURCE */ 00319000 * REG00=525; 04S0501 00320000 B @RC00460 04S0501 00321000 @RF00460 LA REG00,525 04S0501 00322000 * END; 04S0502 00323000 * ELSE 03S0503 00324000 * IF OCSWITCH=OCTRANL /* THE INPUT IS FROM A "MODIFY 00325000 * TRANSMISSION LIMIT" COMMAND */ 00326000 * THEN /* VERIFY THE COMMAND AND PREPARE 00327000 * TO SEND THE APPROPRIATE 03S0503 00328000 * REQUEST UNIT */ 00329000 B @RC00456 03S0503 00330000 @RF00456 CLI OCSWITCH(ROPCE),X'1F' 03S0503 00331000 BNE @RF00503 03S0503 00332000 * 04S0504 00333000 * /*********************************************************/ 00334000 * /* */ 00335000 * /* PROCESS.REQUEST.TRANLMT: THIS SEGMENT PROCESSES THE */ 00336000 * /* INPUT FROM A "CHANGE TRANSMISSION LIMIT" COMMAND AND */ 00337000 * /* EITHER PREPARES TO SEND THE APPROPRIATE PACKED REQUEST*/ 00338000 * /* UNIT OR SETS AN ERROR MESSAGE NUMBER IN REGISTER ZERO */ 00339000 * /* (0). */ 00340000 * /* */ 00341000 * /*********************************************************/ 00342000 * 04S0504 00343000 * DO; 04S0504 00344000 * CALL RESOURCE; 04S0505 00345000 BAL @14,RESOURCE 04S0505 00346000 * IF REG00=0 /* THE RESOURCE IS KNOWN TO TCAM */ 00347000 * THEN /* CONTINUE PROCESSING THE 04S0506 00348000 * TRANLMT COMMAND */ 00349000 LTR REG00,REG00 04S0506 00350000 BNZ @RF00506 04S0506 00351000 * IF TRMPREF=ON&TRMTYPE=TRMPSNA/* THE RESOURCE IS 04S0507 00352000 * NON-SNA */ 00353000 * THEN /* BUILD THE "CHANGE TRANSMISSION 00354000 * LIMIT" PACKED REQUEST UNIT */ 00355000 TM TRMPREF(RTRM),B'00010000' 04S0507 00356000 BNO @RF00507 04S0507 00357000 LR @15,RTRM 04S0507 00358000 AL @15,@CF01155 04S0507 00359000 CLI TRMTYPE-11(@15),X'4F' 04S0507 00360000 BNE @RF00507 04S0507 00361000 * 05S0508 00362000 * /***************************************************/ 00363000 * /* */ 00364000 * /* PROCESS.REQUEST.TRANLMT.BLDTRANL: THIS SEGMENT */ 00365000 * /* BUILDS THE PACKED REQUEST UNIT FOR THE "CHANGE */ 00366000 * /* TRANSMISSION LIMIT" COMMAND. */ 00367000 * /* */ 00368000 * /***************************************************/ 00369000 * 05S0508 00370000 * DO; 05S0508 00371000 * IF PTRLAST-PTRCHAR<=2&PTRLAST>=PTRCHAR/* THE 00372000 * "TRANSMISSION LIMIT" OPERAND 00373000 * EXITS */ 00374000 * THEN /* CONVERT THE OPERAND */ 00375000 LR @15,PTRLAST 05S0509 00376000 SLR @15,PTRCHAR 05S0509 00377000 C @15,@CF00127 05S0509 00378000 BH @RF00509 05S0509 00379000 CR PTRLAST,PTRCHAR 05S0509 00380000 BL @RF00509 05S0509 00381000 * DO; 05S0510 00382000 * CALL NUMBOPER; 05S0511 00383000 BAL @14,NUMBOPER 05S0511 00384000 * IF REG00=0 /* THE "TRANSMISSION LIMIT" 05S0512 00385000 * OPERAND IS CORRECT */ 00386000 * THEN /* BUILD THE REQUEST UNIT */ 00387000 LTR REG00,REG00 05S0512 00388000 BNZ @RF00512 05S0512 00389000 * DO; 05S0513 00390000 * REG01=0;/* @YM08101*/ 00391000 SLR REG01,REG01 05S0514 00392000 * REG01=OCTRMTBL;/* SET THE ARGUMENT 05S0515 00393000 * REGISTER @YM08101*/ 00394000 LH REG01,OCTRMTBL(,ROPCE) 05S0515 00395000 N REG01,@CF01646 05S0515 00396000 * RFY 05S0516 00397000 * REG15 RSTD;/* RESTRICT THE RESULT 05S0516 00398000 * REGISTER @YM08101*/ 00399000 * CALL IEDIAP04;/* @YM08101*/ 00400000 L @11,AVTSAVTP(,RAVT) 05S0517 00401000 L @15,SAVTTNTX(,@11) 05S0517 00402000 BALR @14,@15 05S0517 00403000 * CMDNETAD=REG15;/* SET THE DEVICE NETWORK 00404000 * ADDRESS @YM08101*/ 00405000 L @14,OCUNIT(,ROPCE) 05S0518 00406000 STCM REG15,3,CMDNETAD(@14) 05S0518 00407000 * RFY 05S0519 00408000 * REG15 UNRSTD;/* UNRESTRICT THE RESULT 00409000 * REGISTER @YM08101*/ 00410000 * 06S0520 00411000 * /*****************************************/ 00412000 * /* */ 00413000 * /* PROCESS.REQUEST.TRANLMT.BLDTRANL.DESTI*/ 00414000 * /* NAT: THIS SEGMENT SETS THE DESTINATION*/ 00415000 * /* FIELDS OF THE PACKED REQUEST UNIT FOR */ 00416000 * /* THE "CHANGE TRANSMISSION LIMIT" */ 00417000 * /* COMMAND. */ 00418000 * /* */ 00419000 * /*****************************************/ 00420000 * 06S0520 00421000 * DO; 06S0520 00422000 * REG01=RTRM;/* SET THE ARGUMENT REGISTER*/ 00423000 LR REG01,RTRM 06S0521 00424000 * DO UNTIL(TRMTYPE=TRMLNCP);/* THE 06S0522 00425000 * COMMUNICATIONS CONTROLLER 00426000 * ENTRY IS FOUND */ 00427000 @DL00522 DS 0H 06S0523 00428000 * CALL COHORTLK; 06S0523 00429000 L @15,OPCHORT(,ROPCAVT) 06S0523 00430000 BALR @14,@15 06S0523 00431000 * RTRM=REG01;/* SET THE BASE POINTER 00432000 * FOR THE TRM STRUCTURE */ 00433000 LR RTRM,REG01 06S0524 00434000 * END; 06S0525 00435000 @DE00522 LR @11,RTRM 06S0525 00436000 AL @11,@CF01155 06S0525 00437000 CLI TRMTYPE-11(@11),X'0F' 06S0525 00438000 BNE @DL00522 06S0525 00439000 * PRUTTCIN=REG00;/* SET THE DESTINATION 00440000 * TTCIN */ 00441000 L @11,OCUNIT(,ROPCE) 06S0526 00442000 STH REG00,PRUTTCIN(,@11) 06S0526 00443000 * REG00=0;/* INDICATE THAT NO ERRORS HAVE 00444000 * BEEN DETECTED */ 00445000 SLR REG00,REG00 06S0527 00446000 * END; 06S0528 00447000 * PRURHTH=RHPACKTH;/* SET THE PACKED 05S0529 00448000 * REQUEST UNIT RH AND TH */ 00449000 LR @05,@11 05S0529 00450000 AL @05,@CF01647 05S0529 00451000 MVC PRURHTH(4,@05),@CB01593 05S0529 00452000 * PRUDATCT=LENGTH(CMDDATA);/* SET THE 05S0530 00453000 * PACKED REQUEST UNIT DATA COUNT 00454000 * FIELD */ 00455000 MVC PRUDATCT(2,@11),@CH00071 05S0530 00456000 * CMDCODES=CD1XDTL;/* SET THE NETWORK 05S0531 00457000 * SERVICES, BSC/SS, AND REQUEST 00458000 * CODE INDICATORS */ 00459000 MVC CMDCODES(3,@11),@CB00897 05S0531 00460000 * CMDVALUE=FIXEDNUM;/* SET THE NEW 05S0532 00461000 * TRANSMISSION LIMIT VALUE */ 00462000 STC FIXEDNUM,CMDVALUE(,@11) 05S0532 00463000 * OCCKDAT1=FIXEDNUM;/* SAVE THE NEW 05S0533 00464000 * TRANSMISSION LIMIT FOR 05S0533 00465000 * CHECKPOINT */ 00466000 STC FIXEDNUM,OCCKDAT1(,ROPCE) 05S0533 00467000 * END; 05S0534 00468000 * END; 05S0535 00469000 * ELSE /* INDICATE THAT THE OPERANDS ARE 00470000 * INVALID */ 00471000 * REG00=MSGINVOP;/* SET REGISTER ZERO (0) WITH AN 00472000 * ERROR MESSAGE NUMBER */ 00473000 B @RC00509 05S0536 00474000 @RF00509 LA REG00,18 05S0536 00475000 * END; 05S0537 00476000 * ELSE /* INDICATE THAT THE COMMAND IS 00477000 * INVALID FOR THE PARTICULAR 00478000 * RESOURCE TYPE */ 00479000 * REG00=525; 04S0538 00480000 B @RC00507 04S0538 00481000 @RF00507 LA REG00,525 04S0538 00482000 * END; 04S0539 00483000 * ELSE /* VERIFY THE "MODIFY SESSION 00484000 * LIMIT" COMMAND INPUT AND 03S0540 00485000 * PREPARE TO SEND THE 03S0540 00486000 * APPROPRIATE REQUEST UNIT */ 00487000 * 04S0540 00488000 * /*********************************************************/ 00489000 * /* */ 00490000 * /* PROCESS.REQUEST.SESSION: THIS SEGMENT PROCESSES THE */ 00491000 * /* INPUT FROM A "CHANGE SESSION LIMIT" COMMAND. */ 00492000 * /* */ 00493000 * /*********************************************************/ 00494000 * 04S0540 00495000 * DO; 04S0540 00496000 B @RC00503 04S0540 00497000 @RF00503 DS 0H 04S0541 00498000 * IF PTRLAST-PTRCHAR>=2 /* THERE ARE TWO MORE OPERANDS */ 00499000 * THEN /* PROCESS THE "RELATIVE LINE 00500000 * NUMBER" OPERAND */ 00501000 LR @15,PTRLAST 04S0541 00502000 SLR @15,PTRCHAR 04S0541 00503000 C @15,@CF00127 04S0541 00504000 BL @RF00541 04S0541 00505000 * DO; 04S0542 00506000 * CALL NUMBOPER; 04S0543 00507000 BAL @14,NUMBOPER 04S0543 00508000 * IF REG00=0 /* IF NO ERRORS WERE ENCOUNTERED 00509000 * DURING THE CONVERSION */ 00510000 * THEN /* CONTINUE */ 00511000 LTR REG00,REG00 04S0544 00512000 BNZ @RF00544 04S0544 00513000 * DO; 04S0545 00514000 * OCLINE=ON; /* INDICATE THAT THERE IS A VALID 00515000 * RELATIVE LINE NUMBER OPERAND */ 00516000 OI OCLINE(ROPCE),B'00010000' 04S0546 00517000 * OCRLN=FIXEDNUM;/* STORE THE RELATIVE LINE 04S0547 00518000 * NUMBER IN THE OPCE */ 00519000 STC FIXEDNUM,OCRLN(,ROPCE) 04S0547 00520000 * 05S0548 00521000 * /***********************************************/ 00522000 * /* */ 00523000 * /* PROCESS.REQUEST.SESSION.DCBLOCAT: THIS */ 00524000 * /* SEGMENT USES THE DCBLOCAT EXTERNAL PROCEDURE*/ 00525000 * /* TO VERIFY THAT A SPECIFIC RESOURCE NAME IS */ 00526000 * /* KNOWN TO TCAM. */ 00527000 * /* */ 00528000 * /***********************************************/ 00529000 * 05S0548 00530000 * DO; 05S0548 00531000 * REG01=FIXEDNUM;/* SET THE RELATIVE LINE 05S0549 00532000 * NUMBER ARGUMENT */ 00533000 LR REG01,FIXEDNUM 05S0549 00534000 * OCBACKUP=OPCDOUBL;/* SET THE RESOURCE NAME 00535000 * FOR MESSAGE GENERATION */ 00536000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 05S0550 00537000 * CALL DCBLOCAT; 05S0551 00538000 L @15,OPCDCBLK(,ROPCAVT) 05S0551 00539000 BALR @14,@15 05S0551 00540000 *DCBLGOOD: /* (REG14+0) */ 00541000 * GO TO AFTERDCB;/* CONTINUE THE VERIFICATION 00542000 * PROCESSING */ 00543000 B AFTERDCB 05S0552 00544000 *DCBLOBAD: /* (REG14+4) */ 00545000 * REG00=MSGLNNOP;/* SET REGISTER ZERO (0) WITH 00546000 * THE APPROPRIATE MESSAGE NUMBER*/ 00547000 DCBLOBAD LA REG00,17 05S0553 00548000 * GO TO ENDDCBLO; 05S0554 00549000 B ENDDCBLO 05S0554 00550000 *AFTERDCB: 05S0555 00551000 * RTRM=REG00; /* SET THE BASE POINTER FOR THE 00552000 * RESOURCE ENTRY STRUCTURE OF 00553000 * THE LINE */ 00554000 AFTERDCB LR RTRM,REG00 05S0555 00555000 * REG00=0; /* INDICATE THAT NO MESSAGE 05S0556 00556000 * NUMBER HAS BEEN SET */ 00557000 SLR REG00,REG00 05S0556 00558000 *ENDDCBLO: 05S0557 00559000 * END; 05S0557 00560000 ENDDCBLO DS 0H 05S0558 00561000 * IF REG00=0 /* NO ERRORS WERE FOUND */ 00562000 * THEN /* CONTINUE THE VERIFICATION */ 00563000 LTR REG00,REG00 04S0558 00564000 BNZ @RF00558 04S0558 00565000 * IF TRMPREF=ON&TRMTYPE=TRMNSDLC/* THE RESOURCE 00566000 * IS A NON-SNA COMMUNICATIONS 00567000 * CONTROLLER RESOURCE */ 00568000 * THEN /* BUILD THE "CHANGE SESSION 00569000 * LIMIT" PACKED REQUEST UNIT */ 00570000 TM TRMPREF(RTRM),B'00010000' 04S0559 00571000 BNO @RF00559 04S0559 00572000 LR @15,RTRM 04S0559 00573000 AL @15,@CF01155 04S0559 00574000 CLI TRMTYPE-11(@15),X'20' 04S0559 00575000 BNE @RF00559 04S0559 00576000 * 05S0560 00577000 * /*******************************************/ 00578000 * /* */ 00579000 * /* PROCESS.REQUEST.SESSION.BLDSESSI: THIS */ 00580000 * /* SEGMENT BUILDS THE "CHANGE SESSION */ 00581000 * /* LIMIT" PACKED REQUEST UNIT. */ 00582000 * /* */ 00583000 * /*******************************************/ 00584000 * 05S0560 00585000 * DO; 05S0560 00586000 * IF PTRLAST-PTRCHAR<=3/* THE "SESSION 00587000 * LIMIT" OPERAND EXISTS */ 00588000 * &SCANCHAR=','/* THE DELIMITER IS 00589000 * CORRECT */ 00590000 * THEN /* CONVERT THE OPERAND */ 00591000 LR @15,PTRLAST 05S0561 00592000 SLR @15,PTRCHAR 05S0561 00593000 C @15,@CF00066 05S0561 00594000 BH @RF00561 05S0561 00595000 CLI SCANCHAR(PTRCHAR),C',' 05S0561 00596000 BNE @RF00561 05S0561 00597000 * DO; 05S0562 00598000 * PTRCHAR=PTRCHAR+1;/* SET THE SCAN 00599000 * POINTER TO THE FIRST CHARACTER 00600000 * OF THE "SESSION LIMIT" COMMAND*/ 00601000 AL PTRCHAR,@CF00060 05S0563 00602000 * CALL NUMBOPER; 05S0564 00603000 BAL @14,NUMBOPER 05S0564 00604000 * IF REG00=0/* THE "SESSION LIMIT" 00605000 * OPERAND IS CORRECT */ 00606000 * THEN/* BUILD THE REQUEST UNIT */ 00607000 LTR REG00,REG00 05S0565 00608000 BNZ @RF00565 05S0565 00609000 * DO; 05S0566 00610000 * CMDNETAD=OCRSID;/* SET THE 05S0567 00611000 * NETWORK ADDRESS OF THE BSC/SS 00612000 * LINE */ 00613000 L @11,OCUNIT(,ROPCE) 05S0567 00614000 MVC CMDNETAD(2,@11),OCRSID(ROPCE) 05S0567 00615000 * REG01=RTRM;/* SET THE ARGUMENT 00616000 * REGISTER */ 00617000 LR REG01,RTRM 05S0568 00618000 * CALL COHORTLK; 05S0569 00619000 L @15,OPCHORT(,ROPCAVT) 05S0569 00620000 BALR @14,@15 05S0569 00621000 * PRUTTCIN=REG00;/* SET THE 05S0570 00622000 * DESTINATION TTCIN */ 00623000 L @11,OCUNIT(,ROPCE) 05S0570 00624000 STH REG00,PRUTTCIN(,@11) 05S0570 00625000 * REG00=0;/* RESTORE REGISTER ZERO 00626000 * (0) TO INDICATE NO ERRORS 00627000 * @YM06510*/ 00628000 SLR REG00,REG00 05S0571 00629000 * PRUDATCT=LENGTH(CMDDATA);/* SET 00630000 * THE DATA COUNT FIELD OF THE 00631000 * PACKED REQUEST UNIT */ 00632000 MVC PRUDATCT(2,@11),@CH00071 05S0572 00633000 * CMDCODES=CD1XSNL;/* SET THE 05S0573 00634000 * NETWORK SERVICES, BSC/SS, AND 00635000 * REQUEST CODE INDICATORS */ 00636000 MVC CMDCODES(3,@11),@CB00901 05S0573 00637000 * CMDVALUE=FIXEDNUM;/* SET THE NEW 00638000 * SESSION LIMIT */ 00639000 STC FIXEDNUM,CMDVALUE(,@11) 05S0574 00640000 * OCCKDAT1=FIXEDNUM;/* SAVE THE NEW 00641000 * SESSION LIMIT FOR CHECKPOINT */ 00642000 STC FIXEDNUM,OCCKDAT1(,ROPCE) 05S0575 00643000 * PRURHTH=RHPACKTH;/* SET THE 05S0576 00644000 * PACKED REQUEST UNIT RH AND TH */ 00645000 AL @11,@CF01647 05S0576 00646000 MVC PRURHTH(4,@11),@CB01593 05S0576 00647000 * END; 05S0577 00648000 * END; 05S0578 00649000 * ELSE /* INDICATE THAT A COMMAND 05S0579 00650000 * OPERAND IS INVALID */ 00651000 * REG00=MSGINVOP; 05S0579 00652000 B @RC00561 05S0579 00653000 @RF00561 LA REG00,18 05S0579 00654000 * END; 05S0580 00655000 * ELSE /* INDICATE THAT AN ERROR HAS 00656000 * BEEN FOUND */ 00657000 * REG00=525;/* SET REGISTER ZERO (0) WITH THE 00658000 * APPROPRIATE ERROR MESSAGE 00659000 * NUMBER */ 00660000 B @RC00559 04S0581 00661000 @RF00559 LA REG00,525 04S0581 00662000 * END; 04S0582 00663000 * END; 04S0583 00664000 * ELSE /* INDICATE THAT THE OPERANDS ARE 00665000 * INVALID */ 00666000 * REG00=MSGINVOP; /* SET REGISTER ZERO (0) WITH THE 00667000 * APPROPRIATE MESSAGE NUMBER */ 00668000 B @RC00541 04S0584 00669000 @RF00541 LA REG00,18 04S0584 00670000 * END; 04S0585 00671000 @RC00541 DS 0H 04S0586 00672000 * IF REG00=0 /* NO ERRORS WERE ENCOUNTERED 00673000 * DURING THE COMMAND PROCESSING */ 00674000 * THEN /* PREPARE TO SEND OUT THE 03S0586 00675000 * REQUEST */ 00676000 @RC00503 DS 0H 03S0586 00677000 @RC00456 LTR REG00,REG00 03S0586 00678000 BNZ @RF00586 03S0586 00679000 * DO; 03S0587 00680000 * OPCMODID=IDRUHAND; /* SET THE MODULE IDENTIFICATION 00681000 * CHARACTERS */ 00682000 MVC OPCMODID(2,ROPCAVT),@CC00913 03S0588 00683000 * OCWTG=IDBHSTLS; /* INDICATE THAT THE RESPONSE IS 00684000 * TO BE RETURNED TO THIS MODULE */ 00685000 MVC OCWTG(2,ROPCE),@CC00911 03S0589 00686000 * END; 03S0590 00687000 * ELSE /* PREPARE TO HAVE AN ERROR 03S0591 00688000 * MESSAGE SENT */ 00689000 * DO; 03S0591 00690000 B @RC00586 03S0591 00691000 @RF00586 DS 0H 03S0592 00692000 * OPCMODID=IDMSGCHN; /* SET THE MODULE IDENTIFICATION 00693000 * CHARACTERS */ 00694000 MVC OPCMODID(2,ROPCAVT),@CC00909 03S0592 00695000 * OCWTG=''B; /* INDICATE THAT A RETURN IS NOT 00696000 * EXPECTED */ 00697000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 03S0593 00698000 * END; 03S0594 00699000 * END; 03S0595 00700000 * ELSE /* VERIFY THE RESPONSE AND SET 00701000 * REGISTER ZERO (0) WITH THE 00702000 * APPROPRIATE MESSAGE NUMBER */ 00703000 * 03S0596 00704000 * /***************************************************************/ 00705000 * /* */ 00706000 * /* PROCESS.RESPONSE: THIS SEGMENT PROCESSES THE RESPONSES THAT */ 00707000 * /* ARE RECEIVED. */ 00708000 * /* */ 00709000 * /***************************************************************/ 00710000 * 03S0596 00711000 * DO; 03S0596 00712000 B @RC00445 03S0596 00713000 @RF00445 DS 0H 03S0597 00714000 * IF PRUTHTYE=PRUTHFD1&PRURHSDI=OFF|PRUTHTYE^=PRUTHFD1&BDUERROR= 00715000 * OFF /* THE COMMAND COMPLETED 03S0597 00716000 * SUCCESSFULLY @YM07044*/ 00717000 * THEN /* PREPARE TO CHECKPOINT THE 00718000 * COMMAND */ 00719000 L @11,OCUNIT(,ROPCE) 03S0597 00720000 SL @11,@CF00045 03S0597 00721000 TM PRUTHTYE(@11),B'00010000' 03S0597 00722000 BNO @GL00009 03S0597 00723000 TM PRUTHTYE(@11),B'11100000' 03S0597 00724000 BNZ @GL00009 03S0597 00725000 TM PRURHSDI(@11),B'00000100' 03S0597 00726000 BZ @RT00597 03S0597 00727000 @GL00009 L @11,OCUNIT(,ROPCE) 03S0597 00728000 AL @11,@CF01649 03S0597 00729000 TM PRUTHTYE-3(@11),B'00010000' 03S0597 00730000 BNO @GL00011 03S0597 00731000 TM PRUTHTYE-3(@11),B'11100000' 03S0597 00732000 BZ @RF00597 03S0597 00733000 @GL00011 L @11,OCUNIT(,ROPCE) 03S0597 00734000 TM BDUERROR+12(@11),B'10000000' 03S0597 00735000 BNZ @RF00597 03S0597 00736000 @RT00597 DS 0H 03S0598 00737000 * DO; 03S0598 00738000 * IF OCSWITCH=OCBHSET /* THE RESPONSE IS FROM A BHSET 00739000 * COMMAND */ 00740000 * THEN /* SET A GOOD MESSAGE NUMBER IN 00741000 * THE OPCE */ 00742000 CLI OCSWITCH(ROPCE),X'1D' 03S0599 00743000 BNE @RF00599 03S0599 00744000 * OCPARM=MSGBHSAM; 03S0600 00745000 MVC OCPARM(2,ROPCE),@CH00923 03S0600 00746000 * ELSE 03S0601 00747000 * IF OCSWITCH=OCTRANL /* THE RESPONSE IS FROM A TRANL 00748000 * COMMAND */ 00749000 * THEN 03S0601 00750000 B @RC00599 03S0601 00751000 @RF00599 CLI OCSWITCH(ROPCE),X'1F' 03S0601 00752000 BNE @RF00601 03S0601 00753000 * OCPARM=MSGTRALM; /* SET A GOOD MESSAGE NUMBER IN 00754000 * THE OPCE */ 00755000 MVC OCPARM(2,ROPCE),@CH00929 03S0602 00756000 * ELSE /* SET A GOOD MESSAGE FOR THE 00757000 * SESSION COMMAND IN THE OPCE */ 00758000 * OCPARM=MSGSESLM; 03S0603 00759000 B @RC00601 03S0603 00760000 @RF00601 MVC OCPARM(2,ROPCE),@CH00921 03S0603 00761000 * OPCMODID=IDCHCKPT; /* SET THE MODULE IDENTIFICATION 00762000 * CHARACTERS FOR CHECKPOINT */ 00763000 @RC00601 DS 0H 03S0604 00764000 @RC00599 MVC OPCMODID(2,ROPCAVT),@CC00905 03S0604 00765000 * OCWTG=IDMSGOOD; /* SET THE "WHERE TO GO" FIELD */ 00766000 MVC OCWTG(2,ROPCE),@CC00907 03S0605 00767000 * END; 03S0606 00768000 * ELSE /* PREPARE TO TRANSFER CONTROL 00769000 * DIRECTLY TO A MESSAGE MODULE */ 00770000 * DO; 03S0607 00771000 B @RC00597 03S0607 00772000 @RF00597 DS 0H 03S0608 00773000 * REG00=MSGCCCFC; /* SET REGISTER ZERO (0) WITH THE 00774000 * APPROPRIATE ERROR MESSAGE 00775000 * NUMBER */ 00776000 LA REG00,199 03S0608 00777000 * OPCMODID=IDMSGCHN; /* SET THE MODULE IDENTIFICATION 00778000 * CHARACTERS */ 00779000 MVC OPCMODID(2,ROPCAVT),@CC00909 03S0609 00780000 * OCWTG=''B; /* INDICATE THAT NO RETURN IS 00781000 * EXPECTED */ 00782000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 03S0610 00783000 * END; 03S0611 00784000 * END; 03S0612 00785000 @RC00597 DS 0H 03S0613 00786000 * 02S0613 00787000 * /*****************************************************************/ 00788000 * /* */ 00789000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00790000 * /* ALTERED BY THE EXTERNAL PROCEDURE STATEMENT. THE XCTL SYSTEM */ 00791000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00792000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00793000 * /* */ 00794000 * /*****************************************************************/ 00795000 * 02S0613 00796000 * RFY 02S0613 00797000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00798000 * TO BE USED TO CONTAIN THE 00799000 * POINTER TO THE OPERATOR 02S0613 00800000 * CONTROL ADDRESS VECTOR TABLE 00801000 * FROM USE BY THE COMPILER */ 00802000 @RC00445 DS 0H 02S0614 00803000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00804000 * PREPARATION TO TRANSFERRING 00805000 * CONTROL TO THE NEXT MODULE */ 00806000 LR REG01,ROPCAVT 02S0614 00807000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0615 00808000 * /* 00809000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00810000 * 02S0616 00811000 * /*****************************************************************/ 00812000 * /* */ 00813000 * /* NUMBOPER: THIS SEGMENT CONTAINS AN INTERNAL PROCEDURE WHICH */ 00814000 * /* SCANS A NUMERIC CHARACTER OPERAND AND CONVERTS THE OPERAND TO */ 00815000 * /* A FIXED POINT BINARY INTEGER OR SETS REGISTER ZERO (0) WITH AN*/ 00816000 * /* ERROR MESSAGE NUMBER. */ 00817000 * /* */ 00818000 * /*****************************************************************/ 00819000 * 02S0616 00820000 *NUMBOPER: 02S0616 00821000 * PROC OPTIONS(RETREG,SAVE(14)); /* @YM06473*/ 00822000 NUMBOPER ST @14,12(,@13) 02S0616 00823000 * 03S0617 00824000 * /*****************************************************************/ 00825000 * /* */ 00826000 * /* NUMBOPER.DATA: THIS SEGMENT DECLARES ALL OF THE VARIABLES THAT*/ 00827000 * /* ARE LOCAL TO THE NUMBOPER INTERNAL PROCEDURE. */ 00828000 * /* */ 00829000 * /*****************************************************************/ 00830000 * 03S0617 00831000 * DCL 03S0617 00832000 * PTRSTART PTR(31); /* STARTING POINTER VALUE */ 00833000 * DCL 03S0618 00834000 * PTRSTOP PTR(31); /* STOPPING POINTER VALUE */ 00835000 * DCL 03S0619 00836000 * CHARNUMB CHAR(3); /* NUMERIC CHARACTER OPERAND TO 00837000 * BE CONVERTED */ 00838000 * DCL 03S0620 00839000 * PACKNUMB CHAR(8) BDY(DWORD); /* PACKED DECIMAL NUMBER */ 00840000 * DCL 03S0621 00841000 * OPERAND CHAR(8) BASED(PTRSTART);/* CHARACTER OPERAND FIELD */ 00842000 * PTRSTART=PTRCHAR; /* SET THE STARTING POINTER FOR 00843000 * THE SCAN */ 00844000 ST PTRCHAR,PTRSTART 02S0622 00845000 * PTRSTOP=PTRSTART+LENGTH(CHARNUMB)-1;/* SET THE STOP VALUE 02S0623 00846000 * COMPARAND FOR THE TEXT SCAN */ 00847000 L @05,PTRSTART 02S0623 00848000 LR @15,@05 02S0623 00849000 SL @15,@CF01153 02S0623 00850000 ST @15,PTRSTOP 02S0623 00851000 * DO PTRCHAR=PTRSTART TO PTRSTOP /* SCAN THE OPERAND */ 00852000 * WHILE(REG00=0&SCANCHAR^=','&PTRCHAR<=PTRLAST); 02S0624 00853000 L @15,PTRSTART 02S0624 00854000 LR PTRCHAR,@15 02S0624 00855000 B @DE00624 02S0624 00856000 @DL00624 LTR REG00,REG00 02S0624 00857000 BNZ @DC00624 02S0624 00858000 CLI SCANCHAR(PTRCHAR),C',' 02S0624 00859000 BE @DC00624 02S0624 00860000 CR PTRCHAR,PTRLAST 02S0624 00861000 BH @DC00624 02S0624 00862000 * IF SCANCHAR<'0'|SCANCHAR>'9' /* THE CHARACTER IS NOT NUMERIC */ 00863000 * THEN /* INDICATE THAT AN INVALID 02S0625 00864000 * OPERAND HAS BEEN ENCOUNTERED */ 00865000 CLI SCANCHAR(PTRCHAR),C'0' 02S0625 00866000 BL @RT00625 02S0625 00867000 CLI SCANCHAR(PTRCHAR),C'9' 02S0625 00868000 BNH @RF00625 02S0625 00869000 @RT00625 DS 0H 02S0626 00870000 * REG00=MSGINVOP; /* SET REGISTER ZERO WITH THE 00871000 * APPROPRIATE MESSAGE NUMBER */ 00872000 LA REG00,18 02S0626 00873000 * END; 02S0627 00874000 @RF00625 AL PTRCHAR,@CF00060 02S0627 00875000 @DE00624 C PTRCHAR,PTRSTOP 02S0627 00876000 BNH @DL00624 02S0627 00877000 @DC00624 DS 0H 02S0628 00878000 * IF REG00=0 /* THE OPERAND IS NUMERIC */ 00879000 * THEN /* CONVERT THE CHARACTER OPERAND 00880000 * TO A BINARY INTEGER */ 00881000 LTR REG00,REG00 02S0628 00882000 BNZ @RF00628 02S0628 00883000 * DO; 02S0629 00884000 * CHARNUMB='000'; /* SET THE CHARACTER FIELD FOR 00885000 * THE OPERAND TO CHARACTER ZEROS*/ 00886000 MVC CHARNUMB(3),@CC01629 02S0630 00887000 * CHARNUMB(4-EVAL(PTRCHAR-PTRSTART):LENGTH(CHARNUMB))=OPERAND(1: 00888000 * PTRCHAR-PTRSTART); /* OBTAIN THE CHARACTER OPERAND */ 00889000 L @15,PTRSTART 02S0631 00890000 LR @14,PTRCHAR 02S0631 00891000 SLR @14,@15 02S0631 00892000 LCR @14,@14 02S0631 00893000 AL @14,@CF00327 02S0631 00894000 LA @07,CHARNUMB-1(@14) 02S0631 00895000 LCR @14,@14 02S0631 00896000 AL @14,@CF00066 02S0631 00897000 EX @14,@SM01650 02S0631 00898000 * PACK(PACKNUMB,CHARNUMB); /* PACK THE CHARACTER NUMBER */ 00899000 PACK PACKNUMB(8),CHARNUMB(3) 02S0632 00900000 * CVB(FIXEDNUM,PACKNUMB); /* CONVERT THE PACKED DECIMAL 00901000 * NUMBER TO A BINARY FIXED-POINT 00902000 * INTEGER */ 00903000 CVB FIXEDNUM,PACKNUMB 02S0633 00904000 * IF FIXEDNUM>255 /* THE NUMBER IS OUT OF RANGE */ 00905000 * THEN /* INDICATE THAT AN ERROR HAS 00906000 * BEEN FOUND */ 00907000 C FIXEDNUM,@CF01633 02S0634 00908000 BNH @RF00634 02S0634 00909000 * REG00=MSGINVOP; /* SET REGISTER ZERO (0) WITH THE 00910000 * APPROPRIATE MESSAGE NUMBER */ 00911000 LA REG00,18 02S0635 00912000 * END; 02S0636 00913000 * END NUMBOPER; 02S0637 00914000 @EL00002 DS 0H 02S0637 00915000 @EF00002 DS 0H 02S0637 00916000 @ER00002 L @14,12(,@13) 02S0637 00917000 BR @14 02S0637 00918000 * 02S0638 00919000 * /*****************************************************************/ 00920000 * /* */ 00921000 * /* RESOURCE: THIS SEGMENT CONTAINS AN INTERNAL PROCEDURE THAT */ 00922000 * /* USES THE TRMOFLOC EXTERNAL PROCEDURE TO VERIFY THAT A */ 00923000 * /* PARTICULAR RESOURCE NAME IS KNOWN TO TCAM. */ 00924000 * /* */ 00925000 * /*****************************************************************/ 00926000 * 02S0638 00927000 *RESOURCE: 02S0638 00928000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0638 00929000 RESOURCE ST @14,@SA00003 02S0638 00930000 * DCL 02S0639 00931000 * TRMOFLOC ENTRY BASED(OPCTOFLK) VALRG(*) OPTIONS(REFS(OPCDOUBL, 00932000 * RAVT,ROPCAVT,ROPCE,RSAVE),SETS(OCTRMTBL,REG01),FLOWS(TRMOGOOD 00933000 * ,TRMOFBAD)); /* RESOURCE NAME VERIFICATION 00934000 * ROUTINE */ 00935000 * OCBACKUP=OPCDOUBL; /* SET THE RESOURCE NAME FOR 00936000 * MESSAGE GENERATION */ 00937000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 02S0640 00938000 * CALL TRMOFLOC; 02S0641 00939000 L @15,OPCTOFLK(,ROPCAVT) 02S0641 00940000 BALR @14,@15 02S0641 00941000 *TRMOGOOD: /* (REG14+0) */ 00942000 * GO TO AFTERTRM; 02S0642 00943000 B AFTERTRM 02S0642 00944000 *TRMOFBAD: /* (REG14+4) */ 00945000 * REG00=MSGSTANF; /* INDICATE THAT AN ERROR HAS 00946000 * BEEN ENCOUNTERED */ 00947000 TRMOFBAD LA REG00,16 02S0643 00948000 * GO TO ENDTRMOF; 02S0644 00949000 B ENDTRMOF 02S0644 00950000 *AFTERTRM: 02S0645 00951000 * RTRM=REG01; /* SET THE BASE POINTER FOR THE 00952000 * TRM STRUCTURE */ 00953000 AFTERTRM LR RTRM,REG01 02S0645 00954000 * REG00=0; /* INDICATE THAT NO ERRORS HAVE 00955000 * BEEN FOUND */ 00956000 SLR REG00,REG00 02S0646 00957000 *ENDTRMOF: 02S0647 00958000 * END RESOURCE; 02S0647 00959000 @EL00003 DS 0H 02S0647 00960000 @EF00003 DS 0H 02S0647 00961000 @ER00003 L @14,@SA00003 02S0647 00962000 BR @14 02S0647 00963000 * END IGCMS10D 01S0648 00964000 * 01S0648 00965000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00966000 */*%INCLUDE SYSLIB (TAVTD ) */ 00967000 */*%INCLUDE SYSLIB (TBDUD ) */ 00968000 */*%INCLUDE SYSLIB (TCD0D ) */ 00969000 */*%INCLUDE SYSLIB (TCD1D ) */ 00970000 */*%INCLUDE SYSLIB (TIDD ) */ 00971000 */*%INCLUDE SYSLIB (TMSGD ) */ 00972000 */*%INCLUDE SYSLIB (TOPCED ) */ 00973000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00974000 */*%INCLUDE SYSLIB (TPRUD ) */ 00975000 */*%INCLUDE SYSLIB (TRHD ) */ 00976000 */*%INCLUDE SYSLIB (TTRMD ) */ 00977000 */*%INCLUDE SYSLIB (TTHD ) */ 00978000 */*%INCLUDE SYSUT5 (RFY ) */ 00979000 */*%INCLUDE SYSUT5 (DCL ) */ 00980000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00981000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00982000 */*%INCLUDE SYSUT5 (REQUEST ) */ 00983000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00984000 */*%INCLUDE SYSUT5 (BHSET ) */ 00985000 */*%INCLUDE SYSUT5 (DOUBLE ) */ 00986000 */*%INCLUDE SYSUT5 (SINGLE ) */ 00987000 */*%INCLUDE SYSUT5 (BLDBHSET) */ 00988000 */*%INCLUDE SYSUT5 (TRANLMT ) */ 00989000 */*%INCLUDE SYSUT5 (BLDTRANL) */ 00990000 */*%INCLUDE SYSUT5 (DESTINAT) */ 00991000 */*%INCLUDE SYSUT5 (SESSION ) */ 00992000 */*%INCLUDE SYSUT5 (DCBLOCAT) */ 00993000 */*%INCLUDE SYSUT5 (BLDSESSI) */ 00994000 */*%INCLUDE SYSUT5 (RESPONSE) */ 00995000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00996000 */*%INCLUDE SYSUT5 (NUMBOPER) */ 00997000 */*%INCLUDE SYSUT5 (DATA ) */ 00998000 */*%INCLUDE SYSUT5 (RESOURCE) */ 00999000 * 01S0648 01000000 * ; 01S0648 01001000 @DATA DS 0H 01002000 @CH00071 DC H'6' 01003000 @CH00569 DC H'7' 01004000 @CH00921 DC H'192' 01005000 @CH00923 DC H'193' 01006000 @CH00929 DC H'208' 01007000 @SM01650 MVC 0(0,@07),OPERAND(@15) 01008000 @DATD DSECT 01009000 DS 0F 01010000 @SA00003 DS 1F 01011000 IGCMS10D CSECT 01012000 DS 0F 01013000 @CF00060 DC F'1' 01014000 @CF00127 DC F'2' 01015000 @CF00066 DC F'3' 01016000 @CF00327 DC F'4' 01017000 @CF00045 DC F'8' 01018000 @CH00045 EQU @CF00045+2 01019000 @CF00235 DC F'12' 01020000 @CF01621 DC F'14' 01021000 @CF01633 DC F'255' 01022000 @CF01647 DC F'-8' 01023000 @CF01649 DC F'-5' 01024000 @CF01155 DC F'-3' 01025000 @CF01153 DC F'-2' 01026000 @CF01646 DC XL4'0000FFFF' 01027000 @DATD DSECT 01028000 DS 0D 01029000 PTRSTART DS A 01030000 PTRSTOP DS A 01031000 CHARNUMB DS CL3 01032000 DS CL5 01033000 PACKNUMB DS CL8 01034000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01035000 @ENDDATD EQU * 01036000 IGCMS10D CSECT 01037000 DS 0F 01038000 @SIZDATD DC AL1(0) 01039000 DC AL3(@ENDDATD-@DATD) 01040000 DS 0D 01041000 @CC01629 DC C'000' 01042000 @CC00905 DC C'06' 01043000 @CC00907 DC C'M3' 01044000 @CC00909 DC C'09' 01045000 @CC00911 DC C'MS' 01046000 @CC00913 DC C'02' 01047000 @CB01593 DC X'0B80001C' 01048000 @CB00897 DC X'010001' 01049000 @CB00901 DC X'010003' 01050000 @CB01372 EQU @CB01593 01051000 DS CL1 01052000 PATCH DC XL104'0' 01053000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01054000 @01 EQU 01 01055000 @02 EQU 02 01056000 @03 EQU 03 01057000 @04 EQU 04 01058000 @05 EQU 05 01059000 @06 EQU 06 01060000 @07 EQU 07 01061000 @08 EQU 08 01062000 @09 EQU 09 01063000 @10 EQU 10 01064000 @11 EQU 11 01065000 @12 EQU 12 01066000 @13 EQU 13 01067000 @14 EQU 14 01068000 @15 EQU 15 01069000 PTRLAST EQU @11 01070000 PTRCHAR EQU @05 01071000 FIXEDNUM EQU @09 01072000 ROPCE EQU @03 01073000 ROPCAVT EQU @02 01074000 RAVT EQU @04 01075000 RTRM EQU @08 01076000 REG00 EQU @00 01077000 REG01 EQU @01 01078000 RPARM EQU @01 01079000 REG10 EQU @10 01080000 RSAVE EQU @13 01081000 REG15 EQU @15 01082000 IEDQAVTD EQU 0 01083000 AVTSAVEX EQU IEDQAVTD+288 01084000 @NM00003 EQU IEDQAVTD+388 01085000 AVTCKFLG EQU @NM00003 01086000 AVTBASE EQU IEDQAVTD+412 01087000 AVTPKF EQU AVTBASE 01088000 AVTHG02 EQU IEDQAVTD+528 01089000 AVTDISP EQU IEDQAVTD+552 01090000 AVTHD EQU IEDQAVTD+556 01091000 AVTSCOPT EQU AVTHD 01092000 AVTSAVTP EQU IEDQAVTD+612 01093000 AVTSAVTF EQU AVTSAVTP 01094000 AVTCKPEL EQU IEDQAVTD+652 01095000 AVTCKRMV EQU AVTCKPEL 01096000 AVTCKELF EQU IEDQAVTD+680 01097000 AVTCKBYT EQU IEDQAVTD+691 01098000 AVTHG01 EQU IEDQAVTD+692 01099000 AVTCKLNK EQU IEDQAVTD+696 01100000 AVTCRELE EQU IEDQAVTD+708 01101000 AVTCCELE EQU AVTCRELE 01102000 AVTCLRHI EQU IEDQAVTD+716 01103000 AVTADBUF EQU IEDQAVTD+720 01104000 AVTSYSER EQU IEDQAVTD+728 01105000 AVTCKPQB EQU IEDQAVTD+804 01106000 AVTCKPTB EQU AVTCKPQB 01107000 AVTCKPEC EQU AVTCKPQB+4 01108000 AVTCKPCC EQU AVTCKPEC 01109000 AVTOPCQB EQU IEDQAVTD+816 01110000 AVTOPCOB EQU AVTOPCQB 01111000 AVTOPCEC EQU AVTOPCQB+4 01112000 AVTOPCCC EQU AVTOPCEC 01113000 AVTOLTQB EQU IEDQAVTD+828 01114000 AVTCWFL1 EQU IEDQAVTD+924 01115000 AVTCWFL2 EQU IEDQAVTD+925 01116000 AVTSUBT EQU IEDQAVTD+948 01117000 AVTIOTR EQU IEDQAVTD+949 01118000 AVTBIT1 EQU IEDQAVTD+1050 01119000 AVTBIT2 EQU IEDQAVTD+1051 01120000 AVTBIT3 EQU IEDQAVTD+1052 01121000 AVTBIT4 EQU IEDQAVTD+1136 01122000 @NM00083 EQU IEDQAVTD+1232 01123000 IEDQAPTR EQU 0 01124000 IEDNSVTD EQU 0 01125000 SAVTDIAG EQU IEDNSVTD 01126000 SAVTDIAF EQU SAVTDIAG 01127000 SAVTLUSQ EQU IEDNSVTD+88 01128000 SAVTTCPU EQU IEDNSVTD+238 01129000 SAVTTNTX EQU IEDNSVTD+252 01130000 SAVTZELM EQU IEDNSVTD+270 01131000 SAVTRDRV EQU IEDNSVTD+284 01132000 SAVTCKQB EQU IEDNSVTD+300 01133000 SAVTCKTB EQU SAVTCKQB 01134000 SAVTCKEC EQU SAVTCKQB+4 01135000 SAVTCKCC EQU SAVTCKEC 01136000 IEDBDU EQU 0 01137000 BDUCMND EQU IEDBDU 01138000 BDUMODIF EQU IEDBDU+1 01139000 BDUFNFLG EQU IEDBDU+2 01140000 BDUBDUFG EQU IEDBDU+3 01141000 BDURSP EQU IEDBDU+4 01142000 BDUSYRSP EQU BDURSP 01143000 BDUERROR EQU BDUSYRSP 01144000 BDUEXRSP EQU BDURSP+1 01145000 BDUEND EQU IEDBDU+6 01146000 IEDQOPCE EQU 0 01147000 OCELEM EQU IEDQOPCE+4 01148000 OCUNIT EQU IEDQOPCE+8 01149000 OCRUDEST EQU OCUNIT 01150000 OCCKPKEY EQU OCRUDEST 01151000 OCSCAN EQU OCCKPKEY 01152000 OCOPTCDE EQU IEDQOPCE+12 01153000 OCSWITCH EQU IEDQOPCE+13 01154000 OCFLAG EQU IEDQOPCE+14 01155000 OCLINE EQU OCFLAG 01156000 OCRESP EQU OCFLAG 01157000 OCRLN EQU IEDQOPCE+15 01158000 @NM00106 EQU IEDQOPCE+16 01159000 OCDEST EQU @NM00106 01160000 OCREQVAL EQU OCDEST+1 01161000 OCTRMTBL EQU IEDQOPCE+20 01162000 OCLINENO EQU IEDQOPCE+22 01163000 OCTIOT EQU OCLINENO 01164000 OCTRUNIT EQU IEDQOPCE+24 01165000 OCRSID EQU OCTRUNIT 01166000 OCALSTAT EQU OCRSID 01167000 OCPARM EQU IEDQOPCE+28 01168000 OCWTG EQU IEDQOPCE+30 01169000 OCBACKUP EQU IEDQOPCE+32 01170000 OCMODNME EQU IEDQOPCE+40 01171000 OCIPLWA EQU OCMODNME 01172000 OCCKDATA EQU IEDQOPCE+48 01173000 OCRSTGTM EQU OCCKDATA 01174000 OCCKDAT1 EQU OCRSTGTM 01175000 OCCKDAT2 EQU OCRSTGTM+1 01176000 IEDQOPCN EQU 0 01177000 OCLDNME EQU IEDQOPCN 01178000 OCLINTTE EQU OCLDNME 01179000 OCREQFLG EQU OCLINTTE+2 01180000 OCPREFLG EQU OCLINTTE+3 01181000 IEDQOPCD EQU 0 01182000 OPCDOUBL EQU IEDQOPCD 01183000 OPCAVTPT EQU IEDQOPCD+8 01184000 OPCCOPCE EQU IEDQOPCD+12 01185000 OPCDCBLK EQU IEDQOPCD+16 01186000 OPCTOFLK EQU IEDQOPCD+24 01187000 OPCSAVE EQU IEDQOPCD+56 01188000 OPCWORK EQU IEDQOPCD+140 01189000 OPCAQCTL EQU IEDQOPCD+180 01190000 OPCXCTL EQU IEDQOPCD+204 01191000 OPCLDNME EQU IEDQOPCD+212 01192000 OPCMODID EQU OPCLDNME+3 01193000 OPCHORT EQU IEDQOPCD+256 01194000 OPCGETBF EQU IEDQOPCD+276 01195000 OPCSPEC EQU IEDQOPCD+300 01196000 IEDPRUQD EQU 0 01197000 PRUTTCIN EQU IEDPRUQD 01198000 PRUDATCT EQU IEDPRUQD+2 01199000 PRUTIC EQU IEDPRUQD+8 01200000 PRUDATA EQU IEDPRUQD+12 01201000 IEDPRUQP EQU 0 01202000 IEDPRUND EQU 0 01203000 PRURHTH EQU IEDPRUND 01204000 PRURH EQU PRURHTH 01205000 PRURHFG0 EQU PRURH 01206000 PRURHSDI EQU PRURHFG0 01207000 PRURHFG1 EQU PRURH+1 01208000 PRURHFG2 EQU PRURH+2 01209000 PRUTH EQU PRURHTH+3 01210000 PRUFIDN EQU PRUTH 01211000 PRUTHTYE EQU PRUFIDN 01212000 IEDRH EQU 0 01213000 TRHBYTE0 EQU IEDRH 01214000 TRHBYTE1 EQU IEDRH+1 01215000 TRHBYTE2 EQU IEDRH+2 01216000 IEDQTRM EQU 0 01217000 TRMSTATE EQU IEDQTRM 01218000 TRMLOG EQU TRMSTATE 01219000 TRMPREF EQU TRMSTATE 01220000 TRMINSEQ EQU IEDQTRM+4 01221000 TLISTCNT EQU TRMINSEQ 01222000 TRMOUTSQ EQU IEDQTRM+6 01223000 TLISTEN EQU TRMOUTSQ 01224000 TRMDSORG EQU TLISTEN 01225000 TRMALTD EQU IEDQTRM+8 01226000 TRMDEVFL EQU IEDQTRM+10 01227000 TRMSTAT EQU IEDQTRM+12 01228000 IEDQTPTR EQU 0 01229000 IEDNTRM EQU 0 01230000 TRMBYTE4 EQU IEDNTRM 01231000 TRMBYTE3 EQU IEDNTRM+1 01232000 TRMBYTE2 EQU IEDNTRM+2 01233000 TRMINPG EQU TRMBYTE2 01234000 TRMBYTE1 EQU IEDNTRM+3 01235000 TRMSCPRQ EQU TRMBYTE1 01236000 TRMBYTE0 EQU IEDNTRM+6 01237000 TRMSIBPT EQU IEDNTRM+7 01238000 TRMTYPE EQU IEDNTRM+11 01239000 IEDTH EQU 0 01240000 TTHBYTE0 EQU IEDTH 01241000 TTHSNF EQU IEDTH+6 01242000 TTHTAG EQU TTHSNF 01243000 TTHTAG1 EQU TTHTAG 01244000 ACTION EQU 0 01245000 CHARNEXT EQU 1 01246000 SCANCHAR EQU 0 01247000 ALLOCBUF EQU 0 01248000 COHORTLK EQU 0 01249000 DCBLOCAT EQU 0 01250000 IEDIAP04 EQU 0 01251000 OPERAND EQU 0 01252000 TRMOFLOC EQU 0 01253000 IEDQEPTR EQU 0 01254000 IEDQQPTR EQU 0 01255000 BDUTEXT EQU BDUEND 01256000 OCCKPKY1 EQU OCCKPKEY 01257000 OCCKPTYP EQU OCCKPKY1 01258000 OCICACTN EQU OCMODNME 01259000 OCICDADR EQU OCICACTN 01260000 OCICSW EQU OCICDADR+3 01261000 OPCAQWD EQU OPCAQCTL 01262000 OPCAQWD1 EQU OPCAQWD 01263000 OPCAQWD2 EQU OPCAQWD+4 01264000 OPCAQWD3 EQU OPCAQWD+8 01265000 TRMPRE1 EQU TRMBYTE4 01266000 TRMPRE EQU TRMBYTE3 01267000 TRMNCP EQU TRMBYTE3 01268000 TRMPU EQU TRMBYTE3 01269000 TRMLU EQU TRMBYTE3 01270000 TRMLINK EQU TRMBYTE3 01271000 CMDDATA EQU PRUDATA 01272000 CMDCODES EQU CMDDATA 01273000 CMDNETAD EQU CMDDATA+3 01274000 CMDVALUE EQU CMDDATA+5 01275000 OCCIB EQU OCREQVAL 01276000 TRMOPT EQU IEDQTRM+20 01277000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01278000 @NM00150 EQU TRMLINK 01279000 TRMLSTAT EQU TRMLINK 01280000 TRMLINT EQU TRMLINK 01281000 TRMEPMOD EQU TRMLINK 01282000 TRMLULOG EQU TRMLU 01283000 TRMINERR EQU TRMLU 01284000 TRMLUREQ EQU TRMLU 01285000 TRMSESRQ EQU TRMLU 01286000 TRMTDIFF EQU TRMLU 01287000 TRMLUTM EQU TRMLU 01288000 TRMLUIT EQU TRMLU 01289000 TRMAUTO EQU TRMLU 01290000 TRMPCONT EQU TRMPU 01291000 @NM00149 EQU TRMPU 01292000 TRMNCONT EQU TRMNCP 01293000 TRMQUCKN EQU TRMNCP 01294000 TRMSLOWN EQU TRMNCP 01295000 TRMSYGEN EQU TRMNCP 01296000 TRMNCPCL EQU TRMNCP 01297000 TRMIPLDM EQU TRMNCP 01298000 TRMINOUT EQU TRMPRE 01299000 TRMRDOUT EQU TRMPRE 01300000 TRMNLOUT EQU TRMPRE 01301000 TRMWROUT EQU TRMPRE 01302000 TRMASNXI EQU TRMPRE 01303000 TRMSTMM EQU TRMPRE 01304000 TRMCMODE EQU TRMPRE 01305000 TRMSTPND EQU TRMPRE 01306000 TRMLYNCH EQU TRMPRE1 01307000 TRMSPOUT EQU TRMPRE1 01308000 TRMERLCK EQU TRMPRE1 01309000 TRMQNPL EQU TRMPRE1 01310000 TRMSPACT EQU TRMPRE1 01311000 TRMOCNI EQU TRMPRE1 01312000 TRMSESSN EQU TRMPRE1 01313000 TRMCONT EQU TRMPRE1 01314000 OPCAQLST EQU OPCAQWD3+1 01315000 OPCAQRQ3 EQU OPCAQWD3 01316000 OPCAQSEC EQU OPCAQWD2+1 01317000 OPCAQRQ2 EQU OPCAQWD2 01318000 OPCAQFST EQU OPCAQWD1+1 01319000 OPCAQREQ EQU OPCAQWD1 01320000 OCICINAC EQU OCICSW 01321000 @NM00112 EQU OCICSW 01322000 OCICATST EQU OCICDADR+1 01323000 OCICTYPE EQU OCICDADR 01324000 @NM00111 EQU OCCKPKY1 01325000 OCCKPENV EQU OCCKPKY1 01326000 OCCKPRST EQU OCCKPTYP 01327000 OCCKPNCP EQU OCCKPTYP 01328000 OCCKPINC EQU OCCKPTYP 01329000 TTHDCF EQU IEDTH+8 01330000 TTHTAG2 EQU TTHTAG+1 01331000 @NM00152 EQU TTHTAG1 01332000 TTHTAGS EQU TTHTAG1 01333000 TTHOAF EQU IEDTH+4 01334000 TTHDAF EQU IEDTH+2 01335000 TTHBYTE1 EQU IEDTH+1 01336000 TTHEFI EQU TTHBYTE0 01337000 @NM00151 EQU TTHBYTE0 01338000 TTHEBIU EQU TTHBYTE0 01339000 TTHBBIU EQU TTHBYTE0 01340000 TTHFTYPE EQU TTHBYTE0 01341000 TRMSUBST EQU IEDNTRM+12 01342000 TRMRLMCT EQU IEDNTRM+10 01343000 TRMCOHTG EQU TRMSIBPT+1 01344000 TRMGPCNT EQU TRMSIBPT 01345000 TRMBUFRD EQU TRMBYTE0 01346000 TRMSNA EQU TRMBYTE0 01347000 TRMGP EQU TRMBYTE0 01348000 TRMDIAL EQU TRMBYTE0 01349000 @NM00148 EQU TRMBYTE0 01350000 TRMOUTPT EQU TRMBYTE0 01351000 TRMINPUT EQU TRMBYTE0 01352000 TRMUDEF EQU TRMBYTE0 01353000 TRMCOHRT EQU IEDNTRM+4 01354000 TRMSTOTE EQU TRMBYTE1 01355000 TRMCKPRN EQU TRMBYTE1 01356000 TRMTSATN EQU TRMBYTE1 01357000 TRMTRACE EQU TRMBYTE1 01358000 TRMSWBCK EQU TRMBYTE1 01359000 TRMAUTOC EQU TRMBYTE1 01360000 TRMINPTP EQU TRMBYTE1 01361000 TRMWTNEG EQU TRMSCPRQ 01362000 TRMWRBRK EQU TRMBYTE2 01363000 TRMNOSND EQU TRMBYTE2 01364000 TRMPREP EQU TRMBYTE2 01365000 TRMGPACT EQU TRMBYTE2 01366000 TRMANDL EQU TRMBYTE2 01367000 TRMCLOSN EQU TRMINPG 01368000 TRMREMB EQU TRMBYTE2 01369000 TRMRSACT EQU TRMBYTE2 01370000 TRMOPTBL EQU IEDQTRM+18 01371000 TRMOPNO EQU IEDQTRM+17 01372000 TRMCHCIN EQU IEDQTRM+16 01373000 TRMSENSE EQU TRMSTAT+3 01374000 TRMTEMPR EQU TRMSTAT+2 01375000 TRMSIO EQU TRMSTAT 01376000 @NM00147 EQU TRMDEVFL+1 01377000 TRMTPIN EQU TRMDEVFL+1 01378000 TRMNCPI EQU TRMDEVFL+1 01379000 TRMRNTRM EQU TRMDEVFL+1 01380000 @NM00146 EQU TRMDEVFL+1 01381000 TRMLMD EQU TRMDEVFL+1 01382000 TRMCONC EQU TRMDEVFL+1 01383000 TRMTSOB EQU TRMDEVFL 01384000 TRMBFDY EQU TRMDEVFL 01385000 TRMTBLK EQU TRMDEVFL 01386000 TRMSBLK EQU TRMDEVFL 01387000 TRMBLKS EQU TRMDEVFL 01388000 TRMADDC EQU TRMDEVFL 01389000 TRMDDIG EQU TRMDEVFL 01390000 TRMBUFS EQU TRMDEVFL 01391000 TRMPRILK EQU TRMALTD 01392000 TRMLGB EQU TRMDSORG 01393000 TRMUTERM EQU TLISTCNT 01394000 TRMDESTQ EQU IEDQTRM+1 01395000 TRMSCNYN EQU TRMSTATE 01396000 TRMOPTFN EQU TRMSTATE 01397000 TRMHELDN EQU TRMSTATE 01398000 TRMACPTN EQU TRMSTATE 01399000 TRMPROC EQU TRMLOG 01400000 TRMLIST EQU TRMLOG 01401000 TRMLINE EQU TRMSTATE 01402000 @NM00145 EQU TRHBYTE2 01403000 @NM00144 EQU TRHBYTE2 01404000 @NM00143 EQU TRHBYTE2 01405000 TRHCSI EQU TRHBYTE2 01406000 @NM00142 EQU TRHBYTE2 01407000 TRHCDI EQU TRHBYTE2 01408000 TRHEB EQU TRHBYTE2 01409000 TRHBB EQU TRHBYTE2 01410000 TRHPI EQU TRHBYTE1 01411000 @NM00141 EQU TRHBYTE1 01412000 @NM00140 EQU TRHBYTE1 01413000 @NM00139 EQU TRHBYTE1 01414000 TRHER EQU TRHBYTE1 01415000 TRHDR2 EQU TRHBYTE1 01416000 @NM00138 EQU TRHBYTE1 01417000 TRHDR1 EQU TRHBYTE1 01418000 TRHEC EQU TRHBYTE0 01419000 TRHBC EQU TRHBYTE0 01420000 TRHSDI EQU TRHBYTE0 01421000 TRHFI EQU TRHBYTE0 01422000 @NM00137 EQU TRHBYTE0 01423000 TRHRUCAT EQU TRHBYTE0 01424000 TRHTYPE EQU TRHBYTE0 01425000 @NM00136 EQU IEDPRUND+4 01426000 PRUTHEFI EQU PRUFIDN 01427000 PRUTHUSS EQU PRUFIDN 01428000 PRUTHEIU EQU PRUFIDN 01429000 PRUTHBIU EQU PRUFIDN 01430000 @NM00135 EQU PRURHFG2 01431000 PRURHCSI EQU PRURHFG2 01432000 @NM00134 EQU PRURHFG2 01433000 PRURHCDI EQU PRURHFG2 01434000 PRURHEB EQU PRURHFG2 01435000 PRURHBB EQU PRURHFG2 01436000 PRURHPI EQU PRURHFG1 01437000 @NM00133 EQU PRURHFG1 01438000 PRURHER EQU PRURHFG1 01439000 PRURHDR2 EQU PRURHFG1 01440000 @NM00132 EQU PRURHFG1 01441000 PRURHDR1 EQU PRURHFG1 01442000 PRURHEC EQU PRURHFG0 01443000 PRURHBC EQU PRURHFG0 01444000 PRURHFI EQU PRURHFG0 01445000 @NM00131 EQU PRURHFG0 01446000 PRURUCAT EQU PRURHFG0 01447000 PRURHTYP EQU PRURHFG0 01448000 PRUNUNIT EQU PRUTIC+1 01449000 @NM00130 EQU PRUTIC 01450000 @NM00129 EQU IEDPRUQD+4 01451000 OPCBOTTM EQU IEDQOPCD+1172 01452000 @NM00128 EQU IEDQOPCD+1088 01453000 @NM00127 EQU IEDQOPCD+936 01454000 @NM00126 EQU IEDQOPCD+928 01455000 @NM00125 EQU IEDQOPCD+368 01456000 OPCWAITV EQU IEDQOPCD+364 01457000 OPCTOTCK EQU IEDQOPCD+360 01458000 OPCAPXTL EQU IEDQOPCD+356 01459000 OPCDECR EQU IEDQOPCD+352 01460000 OPCBUFWT EQU IEDQOPCD+348 01461000 OPCWRKSP EQU IEDQOPCD+320 01462000 OPCADGOT EQU IEDQOPCD+318 01463000 OPCRQCNT EQU IEDQOPCD+316 01464000 OPPOLSTP EQU IEDQOPCD+312 01465000 OPCCKCIB EQU IEDQOPCD+308 01466000 OPCEND EQU IEDQOPCD+307 01467000 OPCSTCBS EQU IEDQOPCD+306 01468000 OPCHNEND EQU IEDQOPCD+302 01469000 OPCOQSW EQU IEDQOPCD+301 01470000 @NM00124 EQU OPCSPEC 01471000 @NM00123 EQU OPCSPEC 01472000 @NM00122 EQU OPCSPEC 01473000 @NM00121 EQU OPCSPEC 01474000 OPCFRMCA EQU OPCSPEC 01475000 OPCRSTRT EQU OPCSPEC 01476000 OPCPART EQU OPCSPEC 01477000 OPCALTD EQU OPCSPEC 01478000 OPCBFEND EQU IEDQOPCD+296 01479000 OPCBFIRS EQU IEDQOPCD+292 01480000 OPCAVBUF EQU IEDQOPCD+290 01481000 @NM00120 EQU IEDQOPCD+289 01482000 OPCCLNTS EQU IEDQOPCD+288 01483000 OPCHA8 EQU IEDQOPCD+286 01484000 OPCBFREQ EQU IEDQOPCD+284 01485000 OPCFREBF EQU IEDQOPCD+280 01486000 OPCNEXT EQU IEDQOPCD+272 01487000 OPCFMDFC EQU IEDQOPCD+268 01488000 OPCSCNC EQU IEDQOPCD+264 01489000 OPCHORTG EQU IEDQOPCD+260 01490000 OPCCKPTL EQU IEDQOPCD+252 01491000 OPCCKPTF EQU IEDQOPCD+248 01492000 OPCWAITA EQU IEDQOPCD+244 01493000 OPCWAITR EQU IEDQOPCD+240 01494000 OPCWAITP EQU IEDQOPCD+236 01495000 OPCWAITO EQU IEDQOPCD+232 01496000 OPCWAITN EQU IEDQOPCD+228 01497000 OPCWAITL EQU IEDQOPCD+224 01498000 OPCWAITC EQU IEDQOPCD+220 01499000 @NM00119 EQU OPCLDNME+5 01500000 @NM00118 EQU OPCLDNME 01501000 OPCWAIT EQU IEDQOPCD+192 01502000 OPCCKERB EQU IEDQOPCD+164 01503000 OPCBFERB EQU IEDQOPCD+148 01504000 OPCFLAG2 EQU IEDQOPCD+147 01505000 OPCFLAG1 EQU IEDQOPCD+146 01506000 OPCWRKSZ EQU IEDQOPCD+144 01507000 OPCRSAVE EQU IEDQOPCD+132 01508000 OPCQCBAD EQU IEDQOPCD+128 01509000 OPCTRMWA EQU IEDQOPCD+52 01510000 OPCPSTWT EQU IEDQOPCD+48 01511000 OPCTNTEA EQU IEDQOPCD+44 01512000 OPCPGCK EQU IEDQOPCD+40 01513000 OPCLCB EQU IEDQOPCD+36 01514000 @NM00117 EQU IEDQOPCD+32 01515000 OPCIPLAD EQU IEDQOPCD+28 01516000 OPCOPTLK EQU IEDQOPCD+20 01517000 @NM00116 EQU OCLDNME+4 01518000 @NM00115 EQU OCPREFLG 01519000 OCTOTEP EQU OCPREFLG 01520000 OCREPOST EQU OCPREFLG 01521000 OCRSPSNT EQU OCPREFLG 01522000 OCBFREQ EQU OCPREFLG 01523000 OCIDLE EQU OCREQFLG 01524000 OCFORCE EQU OCREQFLG 01525000 OCDCARD EQU OCREQFLG 01526000 OCPARTAL EQU OCREQFLG 01527000 OCADNCP EQU OCREQFLG 01528000 @NM00114 EQU OCREQFLG 01529000 @NM00113 EQU OCREQFLG 01530000 OCFLUSHZ EQU OCREQFLG 01531000 OCRESPCT EQU OCLINTTE 01532000 OCCKPTWA EQU OCCKDATA+4 01533000 @NM00110 EQU OCRSTGTM+2 01534000 OCPTRSAV EQU OCMODNME+4 01535000 OCPUADR EQU OCIPLWA+2 01536000 OCWTGSAV EQU OCIPLWA 01537000 OCDVRDCT EQU OCBACKUP+6 01538000 OCNCP EQU OCBACKUP+4 01539000 OCBUFGOT EQU OCBACKUP+2 01540000 OCBUFNED EQU OCBACKUP 01541000 OCRESNUM EQU OCPARM 01542000 OCSEQ EQU OCTRUNIT+2 01543000 @NM00109 EQU OCRSID+1 01544000 OCNONE EQU OCALSTAT 01545000 OCSOME EQU OCALSTAT 01546000 OCALLFLG EQU OCALSTAT 01547000 OCACTREQ EQU OCALSTAT 01548000 OCREDRVE EQU OCALSTAT 01549000 OCSEQIND EQU OCALSTAT 01550000 @NM00108 EQU OCALSTAT 01551000 OCRENTRD EQU OCALSTAT 01552000 OCWTGB EQU OCTIOT 01553000 @NM00107 EQU @NM00106+2 01554000 OCCONID EQU OCDEST 01555000 OCATTACH EQU OCFLAG 01556000 OCSSCP EQU OCFLAG 01557000 OCOUTPUT EQU OCFLAG 01558000 OCMPP EQU OCFLAG 01559000 OCTOTE EQU OCFLAG 01560000 OCCONSOL EQU OCFLAG 01561000 @NM00105 EQU OCSWITCH 01562000 OCQUCKN EQU OCSWITCH 01563000 OCPRIFLG EQU OCOPTCDE 01564000 @NM00104 EQU OCRUDEST+1 01565000 @NM00103 EQU OCSCAN 01566000 OCNOTUCB EQU OCSCAN 01567000 OCNONAME EQU OCSCAN 01568000 OCALLRLN EQU OCSCAN 01569000 OCDDNAME EQU OCSCAN 01570000 OCDDNRLN EQU OCSCAN 01571000 OCADDR EQU OCSCAN 01572000 OCELMPTR EQU OCELEM+1 01573000 OCELMPRI EQU OCELEM 01574000 OCLINK EQU IEDQOPCE 01575000 BDUXGRPH EQU BDUEXRSP 01576000 BDUXFINL EQU BDUEXRSP 01577000 BDUXINIT EQU BDUEXRSP 01578000 BDURESP EQU BDUSYRSP 01579000 BDUPHASE EQU BDUSYRSP 01580000 BDUXERLK EQU BDUBDUFG 01581000 BDUALTAK EQU BDUFNFLG 01582000 BDUNEGAK EQU BDUFNFLG 01583000 BDUPOSAK EQU BDUFNFLG 01584000 BDUTPTX EQU BDUFNFLG 01585000 BDUFRSTB EQU BDUFNFLG 01586000 BDULEADG EQU BDUFNFLG 01587000 BDUHEADR EQU BDUFNFLG 01588000 BDUSTHDR EQU BDUFNFLG 01589000 SAVTBITN EQU IEDNSVTD+312 01590000 @NM00102 EQU SAVTCKQB+8 01591000 @NM00101 EQU SAVTCKEC+1 01592000 @NM00100 EQU SAVTCKCC 01593000 SAVTCKPO EQU SAVTCKCC 01594000 SAVTCKWA EQU SAVTCKCC 01595000 SAVTCKCH EQU SAVTCKTB+1 01596000 SAVTCKVT EQU SAVTCKTB 01597000 @NM00099 EQU IEDNSVTD+297 01598000 SAVTRDFG EQU SAVTRDRV+12 01599000 @NM00098 EQU SAVTRDRV+5 01600000 SAVTRDPY EQU SAVTRDRV+4 01601000 SAVTRDQB EQU SAVTRDRV+1 01602000 SAVTRDKY EQU SAVTRDRV 01603000 SAVTNID EQU IEDNSVTD+280 01604000 SAVTDVAS EQU IEDNSVTD+276 01605000 SAVTPLSZ EQU IEDNSVTD+274 01606000 @NM00097 EQU IEDNSVTD+273 01607000 SAVTSUBL EQU IEDNSVTD+272 01608000 @NM00096 EQU SAVTZELM+1 01609000 SAVTSUBM EQU SAVTZELM 01610000 SAVTMHDX EQU IEDNSVTD+268 01611000 SAVTNAT1 EQU IEDNSVTD+266 01612000 SAVTSH20 EQU IEDNSVTD+264 01613000 SAVTLCBS EQU IEDNSVTD+260 01614000 SAVTRNMP EQU IEDNSVTD+256 01615000 SAVTNAX EQU IEDNSVTD+248 01616000 SAVTSUBV EQU IEDNSVTD+247 01617000 SAVTSUBA EQU IEDNSVTD+246 01618000 SAVTSIBC EQU IEDNSVTD+244 01619000 SAVTBSM EQU IEDNSVTD+240 01620000 SAVTSCPT EQU SAVTTCPU 01621000 SAVTRQTG EQU IEDNSVTD+236 01622000 SAVTRQCH EQU IEDNSVTD+232 01623000 SAVTMAND EQU IEDNSVTD+228 01624000 SAVTSPLN EQU IEDNSVTD+224 01625000 SAVTNADL EQU IEDNSVTD+222 01626000 SAVTNATL EQU IEDNSVTD+220 01627000 SAVTMHTB EQU IEDNSVTD+216 01628000 SAVTSSMH EQU IEDNSVTD+212 01629000 SAVTQRS EQU IEDNSVTD+208 01630000 SAVTRQIN EQU IEDNSVTD+204 01631000 SAVTDFCO EQU IEDNSVTD+200 01632000 SAVTSAO EQU IEDNSVTD+196 01633000 SAVTSARI EQU IEDNSVTD+192 01634000 SAVTSAC EQU IEDNSVTD+188 01635000 SAVTSAI EQU IEDNSVTD+184 01636000 SAVTCSCI EQU IEDNSVTD+180 01637000 SAVTSSRP EQU IEDNSVTD+176 01638000 SAVTSSRQ EQU IEDNSVTD+172 01639000 SAVTSCLU EQU IEDNSVTD+168 01640000 SAVTXTRQ EQU IEDNSVTD+164 01641000 SAVTMVBF EQU IEDNSVTD+160 01642000 @NM00095 EQU IEDNSVTD+148 01643000 SAVTIPCQ EQU IEDNSVTD+144 01644000 @NM00094 EQU IEDNSVTD+136 01645000 SAVTXFMI EQU IEDNSVTD+132 01646000 @NM00093 EQU IEDNSVTD+124 01647000 SAVTXFMO EQU IEDNSVTD+120 01648000 @NM00092 EQU IEDNSVTD+116 01649000 SAVTSSSR EQU IEDNSVTD+112 01650000 SAVTSCPQ EQU IEDNSVTD+108 01651000 SAVTSLCB EQU IEDNSVTD+104 01652000 SAVTLUSR EQU IEDNSVTD+100 01653000 @NM00091 EQU SAVTLUSQ+8 01654000 SAVTLUSP EQU SAVTLUSQ+4 01655000 SAVTLUSB EQU SAVTLUSQ 01656000 @NM00090 EQU IEDNSVTD+84 01657000 SAVTSAT EQU IEDNSVTD+80 01658000 SAVTNAT EQU IEDNSVTD+76 01659000 SAVTCLUP EQU IEDNSVTD+72 01660000 SAVTPIUT EQU IEDNSVTD+68 01661000 SAVTRNTA EQU IEDNSVTD+64 01662000 SAVTDNIR EQU IEDNSVTD+60 01663000 SAVTCNIR EQU IEDNSVTD+56 01664000 SAVTFLDH EQU IEDNSVTD+52 01665000 SAVTSRTN EQU IEDNSVTD+48 01666000 SAVTSREQ EQU IEDNSVTD+44 01667000 SAVTFAIL EQU IEDNSVTD+42 01668000 SAVTSUSE EQU IEDNSVTD+40 01669000 SAVTSIB EQU IEDNSVTD+36 01670000 SAVTPRTN EQU IEDNSVTD+32 01671000 @NM00089 EQU IEDNSVTD+28 01672000 SAVTWH20 EQU IEDNSVTD+26 01673000 SAVTPWT EQU IEDNSVTD+24 01674000 SAVTPRTQ EQU IEDNSVTD+20 01675000 SAVTPREQ EQU IEDNSVTD+16 01676000 SAVTPH20 EQU IEDNSVTD+14 01677000 SAVTPUSE EQU IEDNSVTD+12 01678000 SAVTPLCB EQU IEDNSVTD+8 01679000 SAVTPOOL EQU IEDNSVTD+4 01680000 SAVTPRMT EQU SAVTDIAF 01681000 SAVTVIRT EQU SAVTDIAF 01682000 AVTCPBNO EQU IEDQAVTD+1244 01683000 AVTHRESS EQU IEDQAVTD+1243 01684000 @NM00088 EQU IEDQAVTD+1242 01685000 @NM00087 EQU IEDQAVTD+1241 01686000 @NM00086 EQU IEDQAVTD+1240 01687000 @NM00085 EQU IEDQAVTD+1237 01688000 @NM00084 EQU IEDQAVTD+1236 01689000 AVTHRESE EQU @NM00083 01690000 AVTRADDR EQU IEDQAVTD+1228 01691000 AVTNADDR EQU IEDQAVTD+1224 01692000 AVTHRESN EQU IEDQAVTD+1220 01693000 AVTVOLRN EQU IEDQAVTD+1216 01694000 AVTTOTNN EQU IEDQAVTD+1212 01695000 AVTTRCYN EQU IEDQAVTD+1208 01696000 AVTRCTRN EQU IEDQAVTD+1204 01697000 AVTNOVON EQU IEDQAVTD+1200 01698000 AVTADEBN EQU IEDQAVTD+1196 01699000 AVTVOLRR EQU IEDQAVTD+1192 01700000 AVTTOTNR EQU IEDQAVTD+1188 01701000 AVTTRCYR EQU IEDQAVTD+1184 01702000 AVTRCTRR EQU IEDQAVTD+1180 01703000 AVTNOVOR EQU IEDQAVTD+1176 01704000 AVTADEBR EQU IEDQAVTD+1172 01705000 AVTLODPT EQU IEDQAVTD+1168 01706000 AVTIOBN EQU IEDQAVTD+1164 01707000 AVTIOBR EQU IEDQAVTD+1160 01708000 AVTCPBPT EQU IEDQAVTD+1156 01709000 AVTFCPB EQU IEDQAVTD+1152 01710000 @NM00082 EQU IEDQAVTD+1148 01711000 AVTINCPQ EQU IEDQAVTD+1144 01712000 @NM00081 EQU IEDQAVTD+1140 01713000 @NM00080 EQU IEDQAVTD+1137 01714000 @NM00079 EQU AVTBIT4 01715000 @NM00078 EQU AVTBIT4 01716000 @NM00077 EQU AVTBIT4 01717000 @NM00076 EQU AVTBIT4 01718000 @NM00075 EQU AVTBIT4 01719000 @NM00074 EQU AVTBIT4 01720000 @NM00073 EQU AVTBIT4 01721000 AVTRUFTN EQU AVTBIT4 01722000 @NM00072 EQU IEDQAVTD+1132 01723000 AVTNOBFQ EQU IEDQAVTD+1128 01724000 @NM00071 EQU IEDQAVTD+1124 01725000 AVTDKENQ EQU IEDQAVTD+1120 01726000 @NM00070 EQU IEDQAVTD+1116 01727000 AVTDKAPQ EQU IEDQAVTD+1112 01728000 AVTCOPY EQU IEDQAVTD+1108 01729000 AVTIA EQU IEDQAVTD+1104 01730000 AVTFL EQU IEDQAVTD+1100 01731000 @NM00069 EQU IEDQAVTD+1096 01732000 AVTNCPBQ EQU IEDQAVTD+1092 01733000 AVTTOTNC EQU IEDQAVTD+1088 01734000 AVTCMAX EQU IEDQAVTD+1084 01735000 AVTCMIN EQU IEDQAVTD+1080 01736000 AVTHM02 EQU IEDQAVTD+1076 01737000 AVTOPCIN EQU IEDQAVTD+1074 01738000 AVTDCTLN EQU IEDQAVTD+1072 01739000 AVTOPMSK EQU IEDQAVTD+1068 01740000 AVTDDFT EQU IEDQAVTD+1064 01741000 AVTSTEAL EQU IEDQAVTD+1060 01742000 AVTOPTN EQU IEDQAVTD+1056 01743000 AVTDSKCT EQU IEDQAVTD+1054 01744000 AVTCKRST EQU IEDQAVTD+1053 01745000 AVTSTAN EQU AVTBIT3 01746000 AVTSTACN EQU AVTBIT3 01747000 AVTSTAIN EQU AVTBIT3 01748000 AVTSTAYN EQU AVTBIT3 01749000 AVTOLTBN EQU AVTBIT3 01750000 AVTTSAB EQU AVTBIT3 01751000 AVTRFULN EQU AVTBIT3 01752000 AVTRECVN EQU AVTBIT3 01753000 @NM00068 EQU AVTBIT2 01754000 @NM00067 EQU AVTBIT2 01755000 AVTOPEIN EQU AVTBIT2 01756000 AVTSTRTN EQU AVTBIT2 01757000 AVTTOPOL EQU AVTBIT2 01758000 AVTCOPYN EQU AVTBIT2 01759000 AVTREUSN EQU AVTBIT2 01760000 AVTEXTSC EQU AVTBIT2 01761000 AVTDISKN EQU AVTBIT1 01762000 AVTQUCKN EQU AVTBIT1 01763000 AVTCLOSN EQU AVTBIT1 01764000 AVTREADN EQU AVTBIT1 01765000 AVTDLAYN EQU AVTBIT1 01766000 AVTAQTAN EQU AVTBIT1 01767000 AVTTSON EQU AVTBIT1 01768000 AVTAPLKN EQU AVTBIT1 01769000 AVTDUMBR EQU IEDQAVTD+1048 01770000 AVTDLQX EQU IEDQAVTD+1046 01771000 AVTINTLV EQU IEDQAVTD+1044 01772000 AVTSMCNT EQU IEDQAVTD+1042 01773000 AVTAVFCT EQU IEDQAVTD+1040 01774000 AVTOPCON EQU IEDQAVTD+1038 01775000 AVTOPCNT EQU IEDQAVTD+1036 01776000 AVTLNCNT EQU IEDQAVTD+1034 01777000 AVTKEYLE EQU IEDQAVTD+1032 01778000 AVTHA16 EQU IEDQAVTD+1030 01779000 AVTHA7 EQU IEDQAVTD+1028 01780000 AVTHA4 EQU IEDQAVTD+1026 01781000 AVTHA3 EQU IEDQAVTD+1024 01782000 AVTHA2 EQU IEDQAVTD+1022 01783000 AVTGETMS EQU IEDQAVTD+1021 01784000 @NM00066 EQU IEDQAVTD+1020 01785000 AVTGETMD EQU IEDQAVTD+1016 01786000 AVTGETMN EQU IEDQAVTD+1012 01787000 AVTCWTOT EQU IEDQAVTD+1008 01788000 AVTCWINT EQU IEDQAVTD+956 01789000 AVTDTRAP EQU IEDQAVTD+952 01790000 @NM00065 EQU IEDQAVTD+950 01791000 @NM00064 EQU AVTIOTR 01792000 AVTIOTRH EQU AVTIOTR 01793000 AVTIOTRE EQU AVTIOTR 01794000 @NM00063 EQU AVTSUBT 01795000 AVTSUBPT EQU AVTSUBT 01796000 AVTSUBON EQU AVTSUBT 01797000 AVTAFE30 EQU IEDQAVTD+944 01798000 AVTAFE20 EQU IEDQAVTD+940 01799000 AVTAFE10 EQU IEDQAVTD+936 01800000 AVTCWEC2 EQU IEDQAVTD+932 01801000 AVTCWPM2 EQU IEDQAVTD+928 01802000 AVTCWTS2 EQU IEDQAVTD+927 01803000 AVTCWTS1 EQU IEDQAVTD+926 01804000 AVTCWCLD EQU AVTCWFL2 01805000 AVTCWRAP EQU AVTCWFL2 01806000 @NM00062 EQU AVTCWFL2 01807000 @NM00061 EQU AVTCWFL2 01808000 @NM00060 EQU AVTCWFL2 01809000 @NM00059 EQU AVTCWFL2 01810000 @NM00058 EQU AVTCWFL2 01811000 AVTCWACT EQU AVTCWFL2 01812000 @NM00057 EQU AVTCWFL1 01813000 @NM00056 EQU AVTCWFL1 01814000 @NM00055 EQU AVTCWFL1 01815000 @NM00054 EQU AVTCWFL1 01816000 @NM00053 EQU AVTCWFL1 01817000 @NM00052 EQU AVTCWFL1 01818000 @NM00051 EQU AVTCWFL1 01819000 AVTCOMWN EQU AVTCWFL1 01820000 AVTCWEC1 EQU IEDQAVTD+920 01821000 AVTCWPM1 EQU IEDQAVTD+916 01822000 AVTCAREA EQU IEDQAVTD+912 01823000 AVTFZERO EQU IEDQAVTD+908 01824000 AVTCADDR EQU IEDQAVTD+904 01825000 AVTCOREC EQU IEDQAVTD+900 01826000 @NM00050 EQU IEDQAVTD+892 01827000 AVTCPBCB EQU IEDQAVTD+888 01828000 @NM00049 EQU IEDQAVTD+880 01829000 AVTDSIOB EQU IEDQAVTD+876 01830000 @NM00048 EQU IEDQAVTD+868 01831000 AVTCPRMB EQU IEDQAVTD+864 01832000 @NM00047 EQU IEDQAVTD+856 01833000 AVTCLOSB EQU IEDQAVTD+852 01834000 @NM00046 EQU IEDQAVTD+844 01835000 AVTACTIB EQU IEDQAVTD+840 01836000 @NM00045 EQU IEDQAVTD+836 01837000 AVTOLTEB EQU IEDQAVTD+832 01838000 AVTOLTCH EQU AVTOLTQB+1 01839000 AVTOLTVT EQU AVTOLTQB 01840000 @NM00044 EQU AVTOPCQB+8 01841000 @NM00043 EQU AVTOPCEC+1 01842000 @NM00042 EQU AVTOPCCC 01843000 AVTOPCPO EQU AVTOPCCC 01844000 AVTOPCWA EQU AVTOPCCC 01845000 AVTOPCCH EQU AVTOPCOB+1 01846000 AVTOPCVT EQU AVTOPCOB 01847000 @NM00041 EQU AVTCKPQB+9 01848000 AVTCKPTS EQU AVTCKPQB+8 01849000 @NM00040 EQU AVTCKPEC+1 01850000 @NM00039 EQU AVTCKPCC 01851000 AVTCKPPO EQU AVTCKPCC 01852000 AVTCKPWA EQU AVTCKPCC 01853000 AVTCKPCH EQU AVTCKPTB+1 01854000 AVTCKPVT EQU AVTCKPTB 01855000 @NM00038 EQU IEDQAVTD+796 01856000 AVTBFRTB EQU IEDQAVTD+792 01857000 @NM00037 EQU IEDQAVTD+784 01858000 AVTBFREB EQU IEDQAVTD+780 01859000 AVTTIMQ EQU IEDQAVTD+776 01860000 @NM00036 EQU IEDQAVTD+772 01861000 AVTIMQPS EQU IEDQAVTD+768 01862000 AVTINOUT EQU IEDQAVTD+766 01863000 AVTREFTM EQU IEDQAVTD+764 01864000 @NM00035 EQU IEDQAVTD+752 01865000 AVTDELYB EQU IEDQAVTD+748 01866000 AVTOCQPT EQU IEDQAVTD+744 01867000 AVTTSOPT EQU IEDQAVTD+740 01868000 AVTSUPPT EQU IEDQAVTD+736 01869000 AVTCBQCB EQU IEDQAVTD+732 01870000 AVTMSGS EQU IEDQAVTD+729 01871000 @NM00034 EQU AVTSYSER 01872000 @NM00033 EQU AVTSYSER 01873000 @NM00032 EQU AVTSYSER 01874000 @NM00031 EQU AVTSYSER 01875000 @NM00030 EQU AVTSYSER 01876000 @NM00029 EQU AVTSYSER 01877000 AVTCMAXN EQU AVTSYSER 01878000 AVTCMINN EQU AVTSYSER 01879000 AVT2260L EQU IEDQAVTD+724 01880000 AVTABEPL EQU AVTADBUF 01881000 AVTHFF EQU AVTCLRHI+2 01882000 @NM00028 EQU AVTCLRHI 01883000 AVTCCLNK EQU AVTCRELE+5 01884000 AVTCCPRI EQU AVTCRELE+4 01885000 AVTCCQCB EQU AVTCCELE+1 01886000 AVTCCKEY EQU AVTCCELE 01887000 AVTDELAD EQU IEDQAVTD+704 01888000 AVTDELEM EQU IEDQAVTD+700 01889000 AVTBSX EQU AVTCKLNK 01890000 AVTOPETR EQU AVTHG01 01891000 @NM00027 EQU AVTCKBYT 01892000 AVTCKONQ EQU AVTCKBYT 01893000 @NM00026 EQU AVTCKBYT 01894000 @NM00025 EQU AVTCKBYT 01895000 @NM00024 EQU AVTCKBYT 01896000 @NM00023 EQU AVTCKBYT 01897000 @NM00022 EQU AVTCKBYT 01898000 @NM00021 EQU AVTCKBYT 01899000 AVTOPERT EQU IEDQAVTD+690 01900000 AVTOPXCL EQU IEDQAVTD+688 01901000 AVTOPERL EQU IEDQAVTD+687 01902000 @NM00020 EQU IEDQAVTD+686 01903000 AVTCKTIM EQU IEDQAVTD+684 01904000 AVTCKELV EQU IEDQAVTD+682 01905000 AVTCPRCD EQU IEDQAVTD+681 01906000 AVTWARMN EQU AVTCKELF 01907000 AVTCRTLN EQU AVTCKELF 01908000 AVTCPIPN EQU AVTCKELF 01909000 AVTCCLCN EQU AVTCKELF 01910000 AVTCINCN EQU AVTCKELF 01911000 @NM00019 EQU AVTCKELF 01912000 AVTCMCPN EQU AVTCKELF 01913000 AVTCRDYN EQU AVTCKELF 01914000 AVTCKQAD EQU IEDQAVTD+677 01915000 AVTSCBSZ EQU IEDQAVTD+676 01916000 @NM00018 EQU IEDQAVTD+672 01917000 AVTCKELE EQU IEDQAVTD+668 01918000 @NM00017 EQU AVTCKPEL+8 01919000 AVTCKRLK EQU AVTCKPEL+5 01920000 AVTCKRPR EQU AVTCKPEL+4 01921000 AVTCKRMQ EQU AVTCKRMV+1 01922000 AVTCKRKY EQU AVTCKRMV 01923000 AVTHK EQU IEDQAVTD+648 01924000 AVTHI EQU IEDQAVTD+644 01925000 AVTIOT EQU IEDQAVTD+640 01926000 AVTNX EQU IEDQAVTD+636 01927000 AVTTONE EQU IEDQAVTD+632 01928000 AVTA3TL EQU IEDQAVTD+628 01929000 AVTDMECB EQU IEDQAVTD+624 01930000 AVTABEND EQU IEDQAVTD+618 01931000 AVTPLCBN EQU IEDQAVTD+616 01932000 @NM00016 EQU AVTSAVTP+1 01933000 @NM00015 EQU AVTSAVTF 01934000 AVTSNA EQU AVTSAVTF 01935000 AVTONSNA EQU AVTSAVTF 01936000 AVTVTMCP EQU AVTSAVTF 01937000 @NM00014 EQU IEDQAVTD+608 01938000 AVTCMBSS EQU IEDQAVTD+604 01939000 AVTRCV EQU IEDQAVTD+600 01940000 AVTSEND EQU IEDQAVTD+596 01941000 AVTCSCH EQU IEDQAVTD+592 01942000 AVTQ1 EQU IEDQAVTD+588 01943000 AVTE7 EQU IEDQAVTD+584 01944000 AVTHB EQU IEDQAVTD+580 01945000 AVTR1 EQU IEDQAVTD+576 01946000 AVTBZ EQU IEDQAVTD+572 01947000 AVTEZ EQU IEDQAVTD+568 01948000 AVTEC EQU IEDQAVTD+564 01949000 AVTEW EQU IEDQAVTD+560 01950000 AVTNDIAL EQU AVTSCOPT 01951000 AVTN2741 EQU AVTSCOPT 01952000 AVTCONCO EQU AVTSCOPT 01953000 AVTCONC EQU AVTSCOPT 01954000 AVTCMBUF EQU AVTSCOPT 01955000 AVTAPDMP EQU AVTSCOPT 01956000 @NM00013 EQU AVTSCOPT 01957000 AVTHA EQU AVTDISP 01958000 AVTEA EQU IEDQAVTD+548 01959000 AVTAX EQU IEDQAVTD+544 01960000 AVTA3 EQU IEDQAVTD+540 01961000 AVTGD EQU IEDQAVTD+536 01962000 AVTAL EQU IEDQAVTD+532 01963000 AVTOLTST EQU AVTHG02 01964000 AVTE8 EQU IEDQAVTD+524 01965000 AVTUI EQU IEDQAVTD+520 01966000 AVTCOMPT EQU IEDQAVTD+516 01967000 AVTCRSRF EQU IEDQAVTD+512 01968000 @NM00012 EQU IEDQAVTD+508 01969000 AVTKA02 EQU IEDQAVTD+504 01970000 AVTOPTPT EQU IEDQAVTD+500 01971000 AVTPCBPT EQU IEDQAVTD+496 01972000 AVTOSECB EQU IEDQAVTD+492 01973000 AVTOPECA EQU IEDQAVTD+488 01974000 AVTOLECA EQU IEDQAVTD+484 01975000 AVTCKECA EQU IEDQAVTD+480 01976000 AVTCWECA EQU IEDQAVTD+476 01977000 AVTCWTCB EQU IEDQAVTD+472 01978000 AVTOLTCB EQU IEDQAVTD+468 01979000 AVTOCTCB EQU IEDQAVTD+464 01980000 AVTCKTCB EQU IEDQAVTD+460 01981000 AVTAS EQU IEDQAVTD+456 01982000 AVTNOLBF EQU IEDQAVTD+454 01983000 AVTNCKPR EQU IEDQAVTD+453 01984000 AVTCIB EQU IEDQAVTD+452 01985000 AVTSPLPT EQU IEDQAVTD+448 01986000 AVTMVBFR EQU IEDQAVTD+444 01987000 AVTSBTA EQU IEDQAVTD+440 01988000 AVTRARTN EQU IEDQAVTD+436 01989000 AVTBSCAN EQU IEDQAVTD+432 01990000 AVTRDYA EQU IEDQAVTD+428 01991000 AVTRNMPT EQU IEDQAVTD+424 01992000 AVTDISTR EQU IEDQAVTD+420 01993000 AVTPARM3 EQU IEDQAVTD+416 01994000 @NM00011 EQU AVTPKF 01995000 @NM00010 EQU AVTPKF 01996000 @NM00009 EQU AVTPKF 01997000 AVTFTCHF EQU AVTPKF 01998000 @NM00008 EQU AVTPKF 01999000 @NM00007 EQU AVTPKF 02000000 @NM00006 EQU AVTPKF 02001000 @NM00005 EQU AVTPKF 02002000 AVTPARM EQU IEDQAVTD+408 02003000 AVTEXS2A EQU IEDQAVTD+402 02004000 AVTEXA2S EQU IEDQAVTD+396 02005000 AVTOCGET EQU IEDQAVTD+392 02006000 AVTCKAVT EQU @NM00003+1 02007000 @NM00004 EQU AVTCKFLG 02008000 AVTCKHLT EQU AVTCKFLG 02009000 AVTCKREQ EQU AVTCKFLG 02010000 AVTCKENV EQU AVTCKFLG 02011000 AVTCKNAC EQU AVTCKFLG 02012000 AVTCKTAC EQU AVTCKFLG 02013000 @NM00002 EQU IEDQAVTD+384 02014000 AVTREADD EQU IEDQAVTD+380 02015000 AVTREADY EQU IEDQAVTD+376 02016000 AVTRACE EQU IEDQAVTD+372 02017000 AVTTCB EQU IEDQAVTD+368 02018000 AVTPASWD EQU IEDQAVTD+360 02019000 AVTCTLCH EQU IEDQAVTD+352 02020000 AVTDOUBL EQU IEDQAVTD+344 02021000 AVTDOUBX EQU IEDQAVTD+336 02022000 AVTDPARM EQU IEDQAVTD+332 02023000 AVTCSTCS EQU IEDQAVTD+328 02024000 AVTDLQ EQU AVTSAVEX+32 02025000 @NM00001 EQU AVTSAVEX 02026000 AVTSAVE4 EQU IEDQAVTD+216 02027000 AVTSAVE3 EQU IEDQAVTD+144 02028000 AVTSAVE2 EQU IEDQAVTD+72 02029000 AVTSAVE1 EQU IEDQAVTD 02030000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02031000 @RC00464 EQU @RC00462 02032000 @RF00486 EQU @RC00479 02033000 @RC00460 EQU @RC00456 02034000 @RF00459 EQU @RC00456 02035000 @RC00507 EQU @RC00503 02036000 @RF00506 EQU @RC00503 02037000 DCBLGOOD EQU AFTERDCB 02038000 @RF00544 EQU @RC00541 02039000 @RC00559 EQU @RC00541 02040000 @RF00558 EQU @RC00541 02041000 @RC00586 EQU @RC00445 02042000 @RF00628 EQU @EL00002 02043000 @RF00634 EQU @EL00002 02044000 TRMOGOOD EQU AFTERTRM 02045000 ENDTRMOF EQU @EL00003 02046000 @RF00468 EQU @RC00464 02047000 @RF00491 EQU @RC00460 02048000 @RC00509 EQU @RC00507 02049000 @RC00561 EQU @RC00559 02050000 @RF00512 EQU @RC00509 02051000 @RF00565 EQU @RC00561 02052000 @ENDDATA EQU * 02053000 END IGCMS10D,(C'PLS1843',0701,77004) 02054000