TITLE 'IDA019C1: CONTROL BLOCK MANIPULATION ROUTINE *00001000 ' 00002000 IDA019C1 CSECT 00003000 USING *,@15 BASE REGISTER 1 00004000 USING *+4095,@12 BASE REGISTER 2 00005000 @PSTART EQU * 00006000 * BC(15,DECODE); /* GO DECODE REQUEST */ 00007000 BC 15,DECODE 0320 00008000 *PROCBRTB: 0321 00009000 * 0321 00010000 * /*****************************************************************/ 00011000 * /* */ 00012000 * /* FUNCTION/BLOCK TYPE BRANCH TABLE */ 00013000 * /* */ 00014000 * /*****************************************************************/ 00015000 * 0321 00016000 *PRFUNCER: 0321 00017000 * BC(15,FUNCERRR); /* FUNCTION ERROR */ 00018000 PROCBRTB DS 0H 0321 00019000 PRFUNCER BC 15,FUNCERRR 0321 00020000 *PRACBGEN: 0322 00021000 * BC(15,ACBGEN); /* GENCB/ACB */ 00022000 PRACBGEN BC 15,ACBGEN 0322 00023000 *PRRPLGEN: 0323 00024000 * BC(15,RPLGENCB); /* GENCB/RPL */ 00025000 PRRPLGEN BC 15,RPLGENCB 0323 00026000 *PREXLSTG: 0324 00027000 * BC(15,EXLSTGEN); /* GENCB/EXLST */ 00028000 PREXLSTG BC 15,EXLSTGEN 0324 00029000 *PRNIBGEN: 0325 00030000 * BC(15,NIBGEN); /* GENCB/NIB */ 00031000 PRNIBGEN BC 15,NIBGEN 0325 00032000 *PRACBMOD: 0326 00033000 * BC(15,ACBMOD); /* MODCB/ACB */ 00034000 PRACBMOD BC 15,ACBMOD 0326 00035000 *PRRPLMOD: 0327 00036000 * BC(15,RPLMOD); /* MODCB/RPL */ 00037000 PRRPLMOD BC 15,RPLMOD 0327 00038000 *PREXLSTM: 0328 00039000 * BC(15,EXLSTMOD); /* MODCB/EXLST */ 00040000 PREXLSTM BC 15,EXLSTMOD 0328 00041000 *PRNIBMOD: 0329 00042000 * BC(15,NIBMOD); /* MODCB/NIB */ 00043000 PRNIBMOD BC 15,NIBMOD 0329 00044000 *PRACBSHO: 0330 00045000 * BC(15,ACBSHOW); /* SHOWCB/ACB */ 00046000 PRACBSHO BC 15,ACBSHOW 0330 00047000 *PRRPLSHO: 0331 00048000 * BC(15,RPLSHOW); /* SHOWCB/RPL */ 00049000 PRRPLSHO BC 15,RPLSHOW 0331 00050000 *PREXLSTS: 0332 00051000 * BC(15,EXLSSHOW); /* SHOWCB/EXLST */ 00052000 PREXLSTS BC 15,EXLSSHOW 0332 00053000 *PRNIBSHO: 0333 00054000 * BC(15,NIBSHOW); /* SHOWCB/EXLST */ 00055000 PRNIBSHO BC 15,NIBSHOW 0333 00056000 *PRACBTES: 0334 00057000 * BC(15,ACBTEST); /* TESTCB/ACB */ 00058000 PRACBTES BC 15,ACBTEST 0334 00059000 *PRRPLTES: 0335 00060000 * BC(15,RPLTEST); /* TESTCB/RPL */ 00061000 PRRPLTES BC 15,RPLTEST 0335 00062000 *PREXLSTT: 0336 00063000 * BC(15,EXLSTEST); /* TESTCB/EXLST */ 00064000 PREXLSTT BC 15,EXLSTEST 0336 00065000 *PRNIBTES: 0337 00066000 * BC(15,NIBTEST); /* TESTCB/NIB */ 00067000 PRNIBTES BC 15,NIBTEST 0337 00068000 *PRBLKLEN: 0338 00069000 * BC(15,BLKLNKW); /* BLOCK LENGTH */ 00070000 PRBLKLEN BC 15,BLKLNKW 0338 00071000 * BC(15,REGSHORL); /* REGISTER SHOWCB */ 00072000 BC 15,REGSHORL 0339 00073000 *REGMODRL: 0340 00074000 * 0340 00075000 * /*****************************************************************/ 00076000 * /* */ 00077000 * /* REGISTER FORM OF MODCB/BLOCK TYPE OF RPL. THE ONLY FUNCTION */ 00078000 * /* ALLOWED IS MODIFICATION OF THE RECLEN FIELD INPUT CONSISTS OF */ 00079000 * /* A POINTER TO THE RPL IN REGISTER 1 AND THE VALUE TO BE STORED */ 00080000 * /* IN REGISTER 0. ENTRY IS VIA DIRECT BRANCH INTO THIS SECTION BY*/ 00081000 * /* THE USER. THE BRANCH INSTRUCTION SHOULD BE BAL 14,80(,15) OR */ 00082000 * /* SOME FUNCTIONAL EQUIVLANT. OUTPUT IS THE MODIFIED BLOCK AND */ 00083000 * /* REGISTER 15 IS SET TO 0 IF SUCCESSFUL. ERRORS CONSIST OF */ 00084000 * /* REGISTER 1 NOT POINTING TO A RPL OR THE RPL BEING ACTIVE. */ 00085000 * /* STANDARD CODES ARE RETURNED IN REGISTERS 0 AND 15 IN ERROR */ 00086000 * /* CONDITIONS. THIS IS HIGH PERFORMANCE CODE AND CARE MUST BE */ 00087000 * /* TAKEN NOT TO EXTEND PATH LENGTH OR CROSS PAGE BOUNDRIES. */ 00088000 * /* */ 00089000 * /*****************************************************************/ 00090000 * 0340 00091000 * RESPECIFY 0340 00092000 * IFGRPL BASED(REG1); 0340 00093000 REGMODRL DS 0H 0341 00094000 * IF RPLID^=IDXRPL THEN /* POINTING TO RPL */ 00095000 CLI RPLID(REG1),X'00' 0341 00096000 BE @RF00341 0341 00097000 * DO; /* PROCESS ERROR */ 00098000 * REG0=BLKERR; /* INDICATE NOT POINTING TO RPL */ 00099000 LA @09,4 0343 00100000 LR REG0,@09 0343 00101000 * REG15=NOTOKRET; /* LOAD BAD RETURN CODE */ 00102000 LR REG15,@09 0344 00103000 * GEN(BR REG14); /* RETURN */ 00104000 BR REG14 00105000 * END; 0346 00106000 * TS(RPLACTIV); /* SET RPL ACTIVE ON */ 00107000 @RF00341 TS RPLACTIV(REG1) 0347 00108000 * BC(8,RNOTACT); /* BRANCH NOT ACTIVE */ 00109000 BC 8,RNOTACT 0348 00110000 * REG0=RPLISACT; /* LOAD ACTIVE RETURN CODE */ 00111000 LA REG0,11 0349 00112000 * REG15=NOTOKRET; /* LOAD BAD RETURN CODE */ 00113000 LA REG15,4 0350 00114000 * GEN(BR REG14); /* RETURN */ 00115000 BR REG14 00116000 *RNOTACT: 0352 00117000 * RPLRLEN=REG0; /* SET RECORD LENGTH */ 00118000 RNOTACT ST REG0,RPLRLEN(,REG1) 0352 00119000 * RPLACTIV=ZERO; /* RESET ACTIVE BYTE */ 00120000 MVI RPLACTIV(REG1),X'00' 0353 00121000 * REG15=ZERO; /* SET RETURN CODE */ 00122000 SLR REG15,REG15 0354 00123000 * GEN(BR REG14); /* RETURN TO USER */ 00124000 BR REG14 00125000 * RESPECIFY 0356 00126000 * IFGRPL BASED(RBLKPTR); 0356 00127000 * GEN(DC C'IDA019C1 &SYSDATE'); /* ID FIELD */ 00128000 DC C'IDA019C1 &SYSDATE' 00129000 *REGSHORL: 0358 00130000 * 0358 00131000 * /*****************************************************************/ 00132000 * /* */ 00133000 * /* REGISTER FORM OF SHOWCB FOR BLOCK TYPE OF RPL. THE ONLY */ 00134000 * /* FUNCTION ALLOWED IS TO SHOW RECLEN FIELD FROM RPL. INPUT */ 00135000 * /* CONSISTS OF THE ADDRESS OF A RPL IN REGISTER 1. ENTRY IS VIA A*/ 00136000 * /* BRANCH TO PROCBRTB AND A SECOND BRANCH TO THIS ROUTINE. THE */ 00137000 * /* BRANCH INSTRUCTION SHOULD BE BAL 14,76(,15) OR SOME FUNCTIONAL*/ 00138000 * /* EQUIVLANT. OUTPUT IS THE CONTENTS OF RECLEN FIELD LOADED IN */ 00139000 * /* REGISTER 0. REGISTER 15 IS SET TO ZERO IF SUCCESSFUL. ERROR */ 00140000 * /* DETECTED IS REGISTER 15 NOT POINTING TO A RPL. STANDARD CODES */ 00141000 * /* WILL BE SET IN REGISTER 0 AND 15 WHEN ERROR IS DETECTED. THIS */ 00142000 * /* IS CONSIDERED HIGH PERFORMANCE CODE AND CARE MUST BE EXERCISED*/ 00143000 * /* NOT TO EXTEND PATH LENGTH OR CROSS PAGE BOUNDRIES. */ 00144000 * /* */ 00145000 * /*****************************************************************/ 00146000 * 0358 00147000 * RESPECIFY 0358 00148000 * IFGRPL BASED(REG1); 0358 00149000 REGSHORL DS 0H 0359 00150000 * IF RPLID^=IDXRPL THEN /* POINTING TO RPL */ 00151000 CLI RPLID(REG1),X'00' 0359 00152000 BE @RF00359 0359 00153000 * DO; /* PROCESS ERROR */ 00154000 * REG0=BLKERR; /* INDICATE NOT POINTING TO RPL */ 00155000 LA @09,4 0361 00156000 LR REG0,@09 0361 00157000 * REG15=NOTOKRET; /* LOAD BAD RETURN CODE */ 00158000 LR REG15,@09 0362 00159000 * GEN(BR REG14); /* RETURN */ 00160000 BR REG14 00161000 * END; 0364 00162000 * REG0=RPLRLEN; /* SET RECORD LENGTH */ 00163000 @RF00359 L REG0,RPLRLEN(,REG1) 0365 00164000 * REG15=ZERO; /* SET RETURN CODE */ 00165000 SLR REG15,REG15 0366 00166000 * GEN(BR REG14); /* RETURN TO USER */ 00167000 BR REG14 00168000 * RESPECIFY 0368 00169000 * IFGRPL BASED(RBLKPTR); 0368 00170000 * 0369 00171000 * /*****************************************************************/ 00172000 * /* */ 00173000 * /* DECODE- TRANSLATES FUNCTIONAL REQUEST AND BLOCK TYPE TO AN */ 00174000 * /* OFFSET TO A BRANCH INSTRUCTION IN PROCBRTB AND EXECUTES THAT */ 00175000 * /* INSTRUCTION. CONTROL IS NOT RETURNED HERE . */ 00176000 * /* */ 00177000 * /*****************************************************************/ 00178000 * 0369 00179000 *DECODE: 0369 00180000 * 0369 00181000 * /*****************************************************************/ 00182000 * /* */ 00183000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE */ 00184000 * /* */ 00185000 * /*****************************************************************/ 00186000 * 0369 00187000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 00188000 DECODE STM REG2,REG12,REGSAVE(REG13) 0369 00189000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 00190000 * 0370 00191000 LA REG12,4095(REG15) 00192000 * /*****************************************************************/ 00193000 * /* */ 00194000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 00195000 * /* */ 00196000 * /*****************************************************************/ 00197000 * 0371 00198000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 00199000 L RHDRPTR,PHDRPTR(,PLEPTR) 0371 00200000 * RBLKPTR=GENUSA; /* LOAD ADDRESS OF USER BLOCK */ 00201000 * 0372 00202000 L RBLKPTR,GENUSA(,RHDRPTR) 0372 00203000 * /*****************************************************************/ 00204000 * /* */ 00205000 * /* HASH TOGETHER FUNCTION AND BLOCK CODES IGNORING THE VTAM */ 00206000 * /* INDICATOR. */ 00207000 * /* */ 00208000 * /*****************************************************************/ 00209000 * 0373 00210000 * RESPECIFY 0373 00211000 * REG5 RSTD; 0373 00212000 * REG5=FTCBTC&FUNCMASK; /* LOOK FOR BAD CODES */ 00213000 LH REG5,FTCBTC(,RHDRPTR) 0374 00214000 N REG5,@CF02126 0374 00215000 * BC(7,FUNCERR); /* GO EXIT */ 00216000 BC 7,FUNCERR 0375 00217000 * GEN(IC REG5,GENBTC(,RHDRPTR)) 0376 00218000 * REFS(GENBTC) SETS(REG5); /* PICK UP BLOCK CODE */ 00219000 IC REG5,GENBTC(,RHDRPTR) 00220000 * REG8=(FTCBTC&VTAMCORR)|REG5; /* GET FUNCTION/BLOCK CODE */ 00221000 LH REG8,FTCBTC(,RHDRPTR) 0377 00222000 N REG8,@CF00034 0377 00223000 OR REG8,REG5 0377 00224000 * RESPECIFY 0378 00225000 * REG5 UNRSTD; 0378 00226000 * 0378 00227000 * /*****************************************************************/ 00228000 * /* */ 00229000 * /* RETRIEVE PROCESSING OFFSET FROM PROCTAB USING THE HASHED */ 00230000 * /* FUNCTION BLOCK CODE AS INDEX VALUE. */ 00231000 * /* */ 00232000 * /*****************************************************************/ 00233000 * 0379 00234000 * GEN(IC REG8,PROCTAB(REG8)) 0379 00235000 * REFS(PROCTAB); /* GET FUNCTION OFFSET */ 00236000 * 0379 00237000 IC REG8,PROCTAB(REG8) 00238000 * /*****************************************************************/ 00239000 * /* */ 00240000 * /* GO TO FUNCTION ROUTINE VIA PROCBRTAB INDEXED BY THE PROCESSING*/ 00241000 * /* OFFSET. RETURN TO THIS LEVEL DOES NOT OCCUR. NOTE: FUNCTIONAL */ 00242000 * /* ROUTINE PROLOG INSTRUCTIONS MUST BE EXACTLY 18 BYTES LONG FOR */ 00243000 * /* THE FOLLOWING INSTRUCTION TO EXCUTE CORRECTLY. */ 00244000 * /* */ 00245000 * /*****************************************************************/ 00246000 * 0380 00247000 * REG2=BROFFSET; /* BYPASS PROLOG INSTRUCTIONS */ 00248000 LA REG2,18 0380 00249000 * GEN(EX REG2,PROCBRTB(REG8)) 0381 00250000 * FLOWS(PROCBRTB); /* GO TO FUNCTION */ 00251000 EX REG2,PROCBRTB(REG8) 00252000 * 0382 00253000 * /*****************************************************************/ 00254000 * /* */ 00255000 * /* GENCB/ACB ROUTINE BUILDS ACB'S AS REQUESTED BY USER. INPUT IS */ 00256000 * /* AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESS */ 00257000 * /* POINTING TO A HEADER AND ELEMENTS THAT REPRESENT KEYWORDS */ 00258000 * /* SPECIFIED BY THE CALLER IN HIS GENCB MACRO INSTRUCTION. OUTPUT*/ 00259000 * /* IS INITIALIZED ACB'S THAT ARE COPIED FROM A MODEL AND */ 00260000 * /* CUSTOMIZED AS REQUESTED BY KEYWORDS. THE NUMBER OF ACB'S BUILT*/ 00261000 * /* ARE SPECIFIED BY THE FIELD GENCOP IN THE HEADER. IF THE USER */ 00262000 * /* DOES NOT SUPPLY A STORAGE LOCATION IN WHICH THE ACB'S ARE TO */ 00263000 * /* BUILT STORAGE IS OBTAINED VIA A CALL TO GM19C1. STORAGE */ 00264000 * /* SUPPLIED BY THE USER MUST BE ON A FULLWORD BOUNDRY AND CHECKS */ 00265000 * /* ARE MADE TO INSURE THAT IT IS. RETURN TO THE USER IS FROM THIS*/ 00266000 * /* ROUTINE EXCEPT WHEN AN ERROR IS DETECTED AND THE ERROR EXIT IS*/ 00267000 * /* TAKEN. */ 00268000 * /* */ 00269000 * /*****************************************************************/ 00270000 * 0382 00271000 *ACBGEN: 0382 00272000 * 0382 00273000 * /*****************************************************************/ 00274000 * /* */ 00275000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 00276000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 00277000 * /* INSTRUCTIONS */ 00278000 * /* */ 00279000 * /*****************************************************************/ 00280000 * 0382 00281000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 00282000 ACBGEN STM REG2,REG12,REGSAVE(REG13) 0382 00283000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 00284000 LA REG12,4095(REG15) 00285000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 00286000 L RHDRPTR,PHDRPTR(,PLEPTR) 0384 00287000 * RBLKPTR=GENUSA; /* LOAD ADDRESS OF USER BLOCK */ 00288000 L RBLKPTR,GENUSA(,RHDRPTR) 0385 00289000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 00290000 * 0386 00291000 SLR REG8,REG8 0386 00292000 * /*****************************************************************/ 00293000 * /* */ 00294000 * /* END OF PROLOG INSTRUCTIONS */ 00295000 * /* */ 00296000 * /*****************************************************************/ 00297000 * 0387 00298000 * RESPECIFY 0387 00299000 * (REG5, 0387 00300000 * REG9) RESTRICTED; /* @G40AKCM*/ 00301000 * IF VTAMSW=YES THEN /* VTAM SPECIFIED */ 00302000 * 0388 00303000 TM VTAMSW+1(RHDRPTR),B'00010000' 0388 00304000 BNO @RF00388 0388 00305000 * /***************************************************************/ 00306000 * /* */ 00307000 * /* PROCESS VTAM ACB */ 00308000 * /* */ 00309000 * /***************************************************************/ 00310000 * 0389 00311000 * DO; 0389 00312000 * REG5=LENGTH(IFGACB)+LENGTH(IFGACBVT);/* SET VTAM LENGTH 0390 00313000 * @G40KSCM*/ 00314000 LA REG5,88 0390 00315000 * REG9=ADDR(DVTAMACB)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0391 00316000 * ROUTINE @G40AKCM*/ 00317000 LA REG9,DVTAMACB 0391 00318000 LA @07,DEFCBRTN 0391 00319000 SLR REG9,@07 0391 00320000 * GEN(BAL REG10,GM19C1) 0392 00321000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00322000 BAL REG10,GM19C1 00323000 * ACBINRTN=ADDR(ACBRTN); /* SET ADDRESS OF VTAM ROUTINE */ 00324000 LA @07,76 0393 00325000 ALR @07,RBLKPTR 0393 00326000 ST @07,ACBINRTN(,RBLKPTR) 0393 00327000 * END; 0394 00328000 * ELSE /* VSAM */ 00329000 * 0395 00330000 * /***************************************************************/ 00331000 * /* */ 00332000 * /* PROCESS VSAM ACB */ 00333000 * /* */ 00334000 * /***************************************************************/ 00335000 * 0395 00336000 * DO; 0395 00337000 B @RC00388 0395 00338000 @RF00388 DS 0H 0396 00339000 * REG5=LENGTH(ACBCOMN); /* SET LENGTH @G40AKCM*/ 00340000 LA REG5,76 0396 00341000 * REG9=ADDR(DVSAMACB)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY RTN 00342000 * @G40AKCM*/ 00343000 LA REG9,DVSAMACB 0397 00344000 LA @07,DEFCBRTN 0397 00345000 SLR REG9,@07 0397 00346000 * GEN(BAL REG10,GM19C1) 0398 00347000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00348000 BAL REG10,GM19C1 00349000 * END; 0399 00350000 * RESPECIFY 0400 00351000 * (REG5, 0400 00352000 * REG9) UNRESTRICTED; /* @G40AKCM*/ 00353000 * 0400 00354000 @RC00388 DS 0H 0401 00355000 * /*****************************************************************/ 00356000 * /* */ 00357000 * /* PROCESS KEYWORDS IF ANY */ 00358000 * /* */ 00359000 * /*****************************************************************/ 00360000 * 0401 00361000 * IF EOL=ON THEN 0401 00362000 TM EOL(PLEPTR),B'10000000' 0401 00363000 BO @RT00401 0401 00364000 * ; /* KEYWORDS SPECIFIED */ 00365000 * ELSE /* YES */ 00366000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 00367000 @DL00403 DS 0H 0404 00368000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ENTRY */ 00369000 AL PLEPTR,@CF00256 0404 00370000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 00371000 * 0405 00372000 L RELEMPTR,PLEMPTR(,PLEPTR) 0405 00373000 * /*************************************************************/ 00374000 * /* */ 00375000 * /* SET INDEX TO KEYWDTAB */ 00376000 * /* */ 00377000 * /*************************************************************/ 00378000 * 0406 00379000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 00380000 LH REG11,ELEMKWTC(,RELEMPTR) 0406 00381000 MH REG11,@CH00984 0406 00382000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 00383000 CL REG11,MAXKEYWD 0407 00384000 BH @RT00407 0407 00385000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 00386000 * GEN(IC REG8,MACB(REG11)) 0409 00387000 * REFS(MACB); /* LOAD OFFSET TO KEYWORD ROUTINE*/ 00388000 * 0409 00389000 IC REG8,MACB(REG11) 00390000 * /*************************************************************/ 00391000 * /* */ 00392000 * /* EXECUTE KEYWORD ROUTINE */ 00393000 * /* */ 00394000 * /*************************************************************/ 00395000 * 0410 00396000 * GEN(EX REG0,MACBKWTB(REG8)) 0410 00397000 * FLOWS(MACBKWTB); 0410 00398000 EX REG0,MACBKWTB(REG8) 00399000 * END; 0411 00400000 @DE00403 TM EOL(PLEPTR),B'10000000' 0411 00401000 BNO @DL00403 0411 00402000 * REG1=RBLKPTR; /* SET ADDRESS OF FIRST ACB */ 00403000 @RT00401 LR REG1,RBLKPTR 0412 00404000 * REG0=GMLEN; /* SET RESISTER 0 TO RETURN VALUE*/ 00405000 * 0413 00406000 L REG0,GMLEN(,REG13) 0413 00407000 * /*****************************************************************/ 00408000 * /* */ 00409000 * /* MAKE ADDITIONAL COPIES AS REQUIRED */ 00410000 * /* */ 00411000 * /*****************************************************************/ 00412000 * 0414 00413000 * IF GENCOP>1 THEN /* MORE THAN ONE COPY] */ 00414000 LA @09,1 0414 00415000 CH @09,GENCOP(,RHDRPTR) 0414 00416000 BNL @RF00414 0414 00417000 * DO; /* YES, MAKE THEM */ 00418000 * RESPECIFY 0416 00419000 * REG5 RSTD; 0416 00420000 * REG5=RBLKPTR+REG0; /* SET STOPPER */ 00421000 LR REG5,RBLKPTR 0417 00422000 ALR REG5,REG0 0417 00423000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 00424000 ALR @09,RHDRPTR 0418 00425000 TM VTAMSW(@09),B'00010000' 0418 00426000 BNZ @RF00418 0418 00427000 * DO RBLKPTR=RBLKPTR BY ACBLENG WHILE RBLKPTRNEWACB; /* COPY BLOCK */ 00432000 MVC NEWACB(76,RBLKPTR),NEWACB(REG1) 0420 00433000 * END; 0421 00434000 AH RBLKPTR,ACBLENG(,RBLKPTR) 0421 00435000 @DE00419 CR RBLKPTR,REG5 0421 00436000 BL @DL00419 0421 00437000 * ELSE /* VTAM */ 00438000 * DO RBLKPTR=RBLKPTR BY ACBLENG WHILE RBLKPTRNEWVTACB;/* COPY BLOCK */ 00444000 MVC NEWVTACB(88,RBLKPTR),NEWVTACB(REG1) 0423 00445000 * ACBINRTN=ADDR(ACBRTN); /* SET ADDRESS OF VTAM ROUTINE */ 00446000 LA @09,76 0424 00447000 ALR @09,RBLKPTR 0424 00448000 ST @09,ACBINRTN(,RBLKPTR) 0424 00449000 * END; 0425 00450000 AH RBLKPTR,ACBLENG(,RBLKPTR) 0425 00451000 @DE00422 CR RBLKPTR,REG5 0425 00452000 BL @DL00422 0425 00453000 * RESPECIFY 0426 00454000 * REG5 UNRSTD; 0426 00455000 @RC00418 DS 0H 0427 00456000 * END; 0427 00457000 * 0427 00458000 * /*****************************************************************/ 00459000 * /* */ 00460000 * /* RETURN TO USER */ 00461000 * /* */ 00462000 * /*****************************************************************/ 00463000 * 0428 00464000 * RETCODER=ZERO; /* SET ZERO RETURN CODE */ 00465000 @RF00414 SLR RETCODER,RETCODER 0428 00466000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 00467000 LM REG2,REG12,REGSAVE(REG13) 0429 00468000 * GEN(BR REG14); /* RETURN TO USER */ 00469000 BR REG14 00470000 * 0431 00471000 * /*****************************************************************/ 00472000 * /* */ 00473000 * /* GENCB/RPL ROUTINE BUILDS RPL'S AS REQUESTED BY USER. INPUT IS */ 00474000 * /* AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESS */ 00475000 * /* POINTING TO A HEADER AND ELEMENTS THAT REPRESENT KEYWORDS */ 00476000 * /* SPECIFIED BY THE CALLER IN HIS GENCB MACRO INSTRUCTION. OUTPUT*/ 00477000 * /* IS INITIALIZED RPL'S THAT ARE COPIED FROM A MODEL AND */ 00478000 * /* CUSTOMIZED AS REQUESTED BY KEYWORDS. THE NUMBER OF RPL'S BUILT*/ 00479000 * /* ARE SPECIFIED BY THE FIELD GENCOP IN THE HEADER. IF THE USER */ 00480000 * /* DOES NOT SUPPLY A STORAGE LOCATION IN WHICH THE RPL'S ARE TO */ 00481000 * /* BUILT STORAGE IS OBTAINED VIA A CALL TO GM19C1. STORAGE */ 00482000 * /* SUPPLIED BY THE USER MUST BE ON A FULLWORD BOUNDRY AND CHECKS */ 00483000 * /* ARE MADE TO INSURE THAT IT IS. RETURN TO THE USER IS FROM THIS*/ 00484000 * /* ROUTINE EXCEPT WHEN AN ERROR IS DETECTED AND THE ERROR EXIT IS*/ 00485000 * /* TAKEN. */ 00486000 * /* */ 00487000 * /*****************************************************************/ 00488000 * 0431 00489000 *RPLGENCB: 0431 00490000 * 0431 00491000 * /*****************************************************************/ 00492000 * /* */ 00493000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 00494000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 00495000 * /* INSTRUCTIONS */ 00496000 * /* */ 00497000 * /*****************************************************************/ 00498000 * 0431 00499000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 00500000 RPLGENCB STM REG2,REG12,REGSAVE(REG13) 0431 00501000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 00502000 * 0432 00503000 LA REG12,4095(REG15) 00504000 * /*****************************************************************/ 00505000 * /* */ 00506000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 00507000 * /* */ 00508000 * /*****************************************************************/ 00509000 * 0433 00510000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 00511000 L RHDRPTR,PHDRPTR(,PLEPTR) 0433 00512000 * RBLKPTR=GENUSA; /* LOAD ADDRESS OF USER BLOCK */ 00513000 L RBLKPTR,GENUSA(,RHDRPTR) 0434 00514000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 00515000 * 0435 00516000 SLR REG8,REG8 0435 00517000 * /*****************************************************************/ 00518000 * /* */ 00519000 * /* END OF PROLOG INSTRUCTIONS */ 00520000 * /* */ 00521000 * /*****************************************************************/ 00522000 * 0436 00523000 * RESPECIFY 0436 00524000 * (REG5, 0436 00525000 * REG9) RESTRICTED; /* @G40AKCM*/ 00526000 * IF VTAMSW=YES THEN /* VTAM SPECIFIED */ 00527000 * 0437 00528000 TM VTAMSW+1(RHDRPTR),B'00010000' 0437 00529000 BNO @RF00437 0437 00530000 * /***************************************************************/ 00531000 * /* */ 00532000 * /* PROCESS VTAM RPL */ 00533000 * /* */ 00534000 * /***************************************************************/ 00535000 * 0438 00536000 * DO; 0438 00537000 * REG5=LENGTH(IFGRPL)+LENGTH(IFGRPLVT);/* SET VTAM LENG. 0439 00538000 * @G40AKCM*/ 00539000 LA REG5,112 0439 00540000 * REG9=ADDR(DVTAMRPL)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0440 00541000 * ROUTINE @G40AKCM*/ 00542000 LA REG9,DVTAMRPL 0440 00543000 LA @07,DEFCBRTN 0440 00544000 SLR REG9,@07 0440 00545000 * GEN(BAL REG10,GM19C1) 0441 00546000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00547000 BAL REG10,GM19C1 00548000 * END; 0442 00549000 * ELSE /* VSAM */ 00550000 * 0443 00551000 * /***************************************************************/ 00552000 * /* */ 00553000 * /* PROCESS VSAM RPL */ 00554000 * /* */ 00555000 * /***************************************************************/ 00556000 * 0443 00557000 * DO; 0443 00558000 B @RC00437 0443 00559000 @RF00437 DS 0H 0444 00560000 * REG5=LENGTH(RPLCOMN); /* SET LENGTH @G40AKCM*/ 00561000 LA REG5,76 0444 00562000 * REG9=ADDR(DVSAMRPL)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0445 00563000 * ROUTINE @G40AKCM*/ 00564000 LA REG9,DVSAMRPL 0445 00565000 LA @07,DEFCBRTN 0445 00566000 SLR REG9,@07 0445 00567000 * GEN(BAL REG10,GM19C1) 0446 00568000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00569000 BAL REG10,GM19C1 00570000 * END; 0447 00571000 * RESPECIFY 0448 00572000 * (REG5, 0448 00573000 * REG9) UNRESTRICTED; /* @G40AKCM*/ 00574000 * 0448 00575000 @RC00437 DS 0H 0449 00576000 * /*****************************************************************/ 00577000 * /* */ 00578000 * /* PROCESS KEYWORDS IF ANY */ 00579000 * /* */ 00580000 * /*****************************************************************/ 00581000 * 0449 00582000 * IF EOL=ON THEN 0449 00583000 TM EOL(PLEPTR),B'10000000' 0449 00584000 BO @RT00449 0449 00585000 * ; /* KEYWORDS SPECIFIED */ 00586000 * ELSE /* YES */ 00587000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 00588000 @DL00451 DS 0H 0452 00589000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* POINT TO NEW LIST */ 00590000 AL PLEPTR,@CF00256 0452 00591000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 00592000 * 0453 00593000 L RELEMPTR,PLEMPTR(,PLEPTR) 0453 00594000 * /*************************************************************/ 00595000 * /* */ 00596000 * /* SET INDEX TO KEYWDTAB */ 00597000 * /* */ 00598000 * /*************************************************************/ 00599000 * 0454 00600000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 00601000 LH REG11,ELEMKWTC(,RELEMPTR) 0454 00602000 MH REG11,@CH00984 0454 00603000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 00604000 CL REG11,MAXKEYWD 0455 00605000 BH @RT00455 0455 00606000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 00607000 * GEN(IC REG8,MRPL(REG11)) 0457 00608000 * REFS(MRPL); /* LOAD OFFSET TO KEYWORD ROUTINE*/ 00609000 * 0457 00610000 IC REG8,MRPL(REG11) 00611000 * /*************************************************************/ 00612000 * /* */ 00613000 * /* EXECUTE KEYWORD ROUTINE */ 00614000 * /* */ 00615000 * /*************************************************************/ 00616000 * 0458 00617000 * GEN(EX REG0,MRPLKWTB(REG8)) 0458 00618000 * FLOWS(MRPLKWTB); 0458 00619000 EX REG0,MRPLKWTB(REG8) 00620000 * END; 0459 00621000 @DE00451 TM EOL(PLEPTR),B'10000000' 0459 00622000 BNO @DL00451 0459 00623000 * REG1=RBLKPTR; /* SET ADDRESS OF FIRST ACB */ 00624000 @RT00449 LR REG1,RBLKPTR 0460 00625000 * REG0=GMLEN; /* SET RESISTER 0 TO RETURN VALUE*/ 00626000 * 0461 00627000 L REG0,GMLEN(,REG13) 0461 00628000 * /*****************************************************************/ 00629000 * /* */ 00630000 * /* MAKE ADDITIONAL COPIES AS REQUIRED */ 00631000 * /* */ 00632000 * /*****************************************************************/ 00633000 * 0462 00634000 * IF GENCOP>1 THEN /* MORE THAN ONE COPY */ 00635000 LA @09,1 0462 00636000 CH @09,GENCOP(,RHDRPTR) 0462 00637000 BNL @RF00462 0462 00638000 * DO; /* YES, MAKE COPIES */ 00639000 * RESPECIFY 0464 00640000 * REG5 RSTD; 0464 00641000 * REG5=RBLKPTR+REG0; /* SET STOPPER VALUE */ 00642000 LR REG5,RBLKPTR 0465 00643000 ALR REG5,REG0 0465 00644000 * IF VTAMSW=ON THEN /* VTAM SPECIFIED */ 00645000 ALR @09,RHDRPTR 0466 00646000 TM VTAMSW(@09),B'00010000' 0466 00647000 BNO @RF00466 0466 00648000 * DO RBLKPTR=RBLKPTR BY RPLLEN WHILE RBLKPTRNEWVTRPL;/* COPY BLOCK */ 00652000 MVC NEWVTRPL(112,RBLKPTR),NEWVTRPL(REG1) 0468 00653000 * END; 0469 00654000 SLR @09,@09 0469 00655000 IC @09,RPLLEN(,RBLKPTR) 0469 00656000 ALR RBLKPTR,@09 0469 00657000 @DE00467 CR RBLKPTR,REG5 0469 00658000 BL @DL00467 0469 00659000 * ELSE /* VSAM */ 00660000 * DO RBLKPTR=RBLKPTR BY RPLLEN WHILE RBLKPTRNEWRPL; /* COPY BLOCK */ 00665000 MVC NEWRPL(76,RBLKPTR),NEWRPL(REG1) 0471 00666000 * END; 0472 00667000 SLR @09,@09 0472 00668000 IC @09,RPLLEN(,RBLKPTR) 0472 00669000 ALR RBLKPTR,@09 0472 00670000 @DE00470 CR RBLKPTR,REG5 0472 00671000 BL @DL00470 0472 00672000 * RESPECIFY 0473 00673000 * REG5 UNRSTD; 0473 00674000 @RC00466 DS 0H 0474 00675000 * END; 0474 00676000 * 0474 00677000 * /*****************************************************************/ 00678000 * /* */ 00679000 * /* RETURN TO USER */ 00680000 * /* */ 00681000 * /*****************************************************************/ 00682000 * 0475 00683000 * RETCODER=ZERO; /* SET ZERO RETURN CODE */ 00684000 @RF00462 SLR RETCODER,RETCODER 0475 00685000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 00686000 LM REG2,REG12,REGSAVE(REG13) 0476 00687000 * GEN(BR REG14); /* RETURN TO USER */ 00688000 BR REG14 00689000 * 0478 00690000 * /*****************************************************************/ 00691000 * /* */ 00692000 * /* GENCB/EXLST- ROUTINE BUILDS EXLST'S AS REQUESTED BY USER. */ 00693000 * /* INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF */ 00694000 * /* ADDRESS POINTING TO A HEADER AND ELEMENTS THAT REPRESENT */ 00695000 * /* KEYWORDS SPECIFIED BY THE CALLER IN HIS GENCB MACRO */ 00696000 * /* INSTRUCTION. OUTPUT IS INITIALIZED EXLST'S THAT ARE COPIED */ 00697000 * /* FROM A MODEL AND CUSTOMIZED AS REQUESTED BY KEYWORDS. THE */ 00698000 * /* NUMBER OF EXLST'S BUILT ARE SPECIFIED BY THE FIELD GENCOP IN */ 00699000 * /* THE HEADER. IF THE USER DOES NOT SUPPLY A STORAGE LOCATION IN */ 00700000 * /* WHICH THE EXLST'S ARE TO BUILT STORAGE IS OBTAINED VIA A CALL */ 00701000 * /* TO GM19C1. STORAGE SUPPLIED BY THE USER MUST BE ON A FULLWORD */ 00702000 * /* BOUNDRY AND CHECKS ARE MADE TO INSURE THAT IT IS. RETURN TO */ 00703000 * /* THE USER IS FROM THIS ROUTINE EXCEPT WHEN AN ERROR IS DETECTED*/ 00704000 * /* AND THE ERROR EXIT IS TAKEN. */ 00705000 * /* */ 00706000 * /*****************************************************************/ 00707000 * 0478 00708000 *EXLSTGEN: 0478 00709000 * 0478 00710000 * /*****************************************************************/ 00711000 * /* */ 00712000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 00713000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 00714000 * /* INSTRUCTIONS */ 00715000 * /* */ 00716000 * /*****************************************************************/ 00717000 * 0478 00718000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 00719000 EXLSTGEN STM REG2,REG12,REGSAVE(REG13) 0478 00720000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 00721000 LA REG12,4095(REG15) 00722000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 00723000 L RHDRPTR,PHDRPTR(,PLEPTR) 0480 00724000 * RBLKPTR=GENUSA; /* LOAD ADDRESS OF USER BLOCK */ 00725000 L RBLKPTR,GENUSA(,RHDRPTR) 0481 00726000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 00727000 * 0482 00728000 SLR REG8,REG8 0482 00729000 * /*****************************************************************/ 00730000 * /* */ 00731000 * /* END OF PROLOG INSTRUCTIONS */ 00732000 * /* */ 00733000 * /*****************************************************************/ 00734000 * 0483 00735000 * RESPECIFY 0483 00736000 * (REG5, 0483 00737000 * REG9) RESTRICTED; /* @G40AKCM*/ 00738000 * RESPECIFY 0484 00739000 * (REG6) RSTD; 0484 00740000 * 0484 00741000 * /*****************************************************************/ 00742000 * /* */ 00743000 * /* GENCB/EXLST PROCESS KEYWORDS IF ANY */ 00744000 * /* */ 00745000 * /*****************************************************************/ 00746000 * 0485 00747000 * IF EOL=ON THEN /* KEWORDS NOT SPECIFIED */ 00748000 TM EOL(PLEPTR),B'10000000' 0485 00749000 BNO @RF00485 0485 00750000 * IF VTAMSW=YES THEN /* VTAM SPECIFIED */ 00751000 * 0486 00752000 TM VTAMSW+1(RHDRPTR),B'00010000' 0486 00753000 BNO @RF00486 0486 00754000 * /*************************************************************/ 00755000 * /* */ 00756000 * /* PROCESS VTAM DEFAULT EXLST */ 00757000 * /* */ 00758000 * /*************************************************************/ 00759000 * 0487 00760000 * DO; 0487 00761000 * REG5=LENGTH(IFGEXLST)+LENGTH(IFGEXLVT);/* SET VTAM LEN. 0488 00762000 * @G40AKCM*/ 00763000 LA REG5,70 0488 00764000 * REG9=ADDR(DVTAMEXL)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0489 00765000 * ROUTINE @G40AKCM*/ 00766000 LA REG9,DVTAMEXL 0489 00767000 LA @07,DEFCBRTN 0489 00768000 SLR REG9,@07 0489 00769000 * GEN(BAL REG10,GM19C1) 0490 00770000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00771000 BAL REG10,GM19C1 00772000 * END; 0491 00773000 * ELSE /* VSAM */ 00774000 * 0492 00775000 * /*************************************************************/ 00776000 * /* */ 00777000 * /* PROCESS VSAM DEFAULT EXLST */ 00778000 * /* */ 00779000 * /*************************************************************/ 00780000 * 0492 00781000 * DO; 0492 00782000 B @RC00486 0492 00783000 @RF00486 DS 0H 0493 00784000 * REG5=LENGTH(EXLCOMN); /* SET TOTAL LENGTH @G40AKCM*/ 00785000 LA REG5,40 0493 00786000 * REG9=ADDR(DVSAMEXL)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0494 00787000 * ROUTINE @G40AKCM*/ 00788000 LA REG9,DVSAMEXL 0494 00789000 LA @07,DEFCBRTN 0494 00790000 SLR REG9,@07 0494 00791000 * GEN(BAL REG10,GM19C1) 0495 00792000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00793000 BAL REG10,GM19C1 00794000 * END; 0496 00795000 * ELSE /* PROCESS KEYWORDS */ 00796000 * DO; /* FIND MAX LENGTH AND PROCESS */ 00797000 B @RC00485 0497 00798000 @RF00485 DS 0H 0498 00799000 * REG5=ZERO; /* ZERO LENGTH REGISTER */ 00800000 SLR REG5,REG5 0498 00801000 * REG6=ZERO; /* ZERO WORK REGISTER */ 00802000 SLR REG6,REG6 0499 00803000 *GEXLLOOP: 0500 00804000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 00805000 GEXLLOOP DS 0H 0500 00806000 @DL00500 DS 0H 0501 00807000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ENTRY */ 00808000 AL PLEPTR,@CF00256 0501 00809000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 00810000 * 0502 00811000 L RELEMPTR,PLEMPTR(,PLEPTR) 0502 00812000 * /***********************************************************/ 00813000 * /* */ 00814000 * /* SET INDEX TO KEYWDTAB */ 00815000 * /* */ 00816000 * /***********************************************************/ 00817000 * 0503 00818000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 00819000 LH REG11,ELEMKWTC(,RELEMPTR) 0503 00820000 MH REG11,@CH00984 0503 00821000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 00822000 CL REG11,MAXKEYWD 0504 00823000 BH @RT00504 0504 00824000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 00825000 * 0505 00826000 * /***********************************************************/ 00827000 * /* */ 00828000 * /* SET INDEX TO KEYWORD ROUTINE */ 00829000 * /* */ 00830000 * /***********************************************************/ 00831000 * 0506 00832000 * GEN(IC REG8,MEXLST(REG11)) 0506 00833000 * REFS(MEXLST); /* LOAD ADDRESS OFF KEYWORD 0506 00834000 * ROUTINE */ 00835000 * 0506 00836000 IC REG8,MEXLST(REG11) 00837000 * /***********************************************************/ 00838000 * /* */ 00839000 * /* PROCESS KEYWORD */ 00840000 * /* */ 00841000 * /***********************************************************/ 00842000 * 0507 00843000 * GEN(BAL REG10,GEXLBRTB(REG8)); 0507 00844000 BAL REG10,GEXLBRTB(REG8) 00845000 * END; 0508 00846000 @DE00500 TM EOL(PLEPTR),B'10000000' 0508 00847000 BNO @DL00500 0508 00848000 * IF REG5=ZERO THEN /* VALID OFFSET KEYWORD */ 00849000 LTR REG5,REG5 0509 00850000 BNZ @RF00509 0509 00851000 * IF VTAMSW=ON THEN /* VTAM SPECIFIED */ 00852000 TM VTAMSW+1(RHDRPTR),B'00010000' 0510 00853000 BNO @RF00510 0510 00854000 * DO; 0511 00855000 * REG5=LENGTH(IFGEXLST)+LENGTH(IFGEXLVT);/* SET VTAM LENG 00856000 * @G40AKCM*/ 00857000 LA REG5,70 0512 00858000 * REG9=ADDR(DVTAMEXL)-ADDR(DEFCBRTN);/* SET OFFSET TO 0513 00859000 * COPY ROUTINE @G40AKCM*/ 00860000 LA REG9,DVTAMEXL 0513 00861000 LA @07,DEFCBRTN 0513 00862000 SLR REG9,@07 0513 00863000 * GEN(BAL REG10,GM19C1) 0514 00864000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00865000 BAL REG10,GM19C1 00866000 * END; 0515 00867000 * ELSE /* VSAM SPECIFIED */ 00868000 * DO; 0516 00869000 B @RC00510 0516 00870000 @RF00510 DS 0H 0517 00871000 * REG5=LENGTH(EXLCOMN); /* SET TOTAL LENGTH @G40AKCM*/ 00872000 LA REG5,40 0517 00873000 * REG9=ADDR(DVSAMEXL)-ADDR(DEFCBRTN);/* SET OFFSET TO 0518 00874000 * COPY ROUTINE @G40AKCM*/ 00875000 LA REG9,DVSAMEXL 0518 00876000 LA @07,DEFCBRTN 0518 00877000 SLR REG9,@07 0518 00878000 * GEN(BAL REG10,GM19C1) 0519 00879000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00880000 BAL REG10,GM19C1 00881000 * END; 0520 00882000 * ELSE /* VALID LENGTH */ 00883000 * DO; /* PROCESS VARIABLE LENGTH EXLST */ 00884000 B @RC00509 0521 00885000 @RF00509 DS 0H 0522 00886000 * REG5=REG5+LENGTH(IFGEXLEF);/* SET LENGTH */ 00887000 AL REG5,@CF00240 0522 00888000 * REG9=ADDR(DVSNOP)-ADDR(DEFCBRTN);/* SET OFFSET TO COPY 0523 00889000 * ROUTINE @G40AKCM*/ 00890000 LA REG9,DVSNOP 0523 00891000 LA @07,DEFCBRTN 0523 00892000 SLR REG9,@07 0523 00893000 * RESPECIFY 0524 00894000 * REG7 RSTD; 0524 00895000 * REG7=REG5; /* SAVE LENGTH */ 00896000 LR REG7,REG5 0525 00897000 * GEN(BAL REG10,GM19C1) 0526 00898000 * FLOWS(GM19C1); /* CALL GETMAIN */ 00899000 BAL REG10,GM19C1 00900000 * EXLID=IDXEXLST; /* SET ID IN HEADER */ 00901000 MVI EXLID(RBLKPTR),X'81' 0527 00902000 * EXLLEN=REG7; /* SET LENGTH */ 00903000 STH REG7,EXLLEN(,RBLKPTR) 0528 00904000 * REG7=REG7-FIVE; /* SET LENGTH FOR CLEAR */ 00905000 SL REG7,@CF00240 0529 00906000 * GEN(EX REG7,GEXLXC); /* CLEAR STORAGE */ 00907000 EX REG7,GEXLXC 00908000 * RESPECIFY 0531 00909000 * REG7 UNRSTD; 0531 00910000 * IF VTAMSW=ON THEN /* VTAM SPECIFIED */ 00911000 TM VTAMSW+1(RHDRPTR),B'00010000' 0532 00912000 BNO @RF00532 0532 00913000 * EXLSTYP=VTAMCODE; /* SET VTAM AM CODE */ 00914000 MVI EXLSTYP(RBLKPTR),X'20' 0533 00915000 * ELSE /* VSAM SPECIFIED */ 00916000 * EXLSTYP=VSAMCODE; /* SET VSAM AM CODE */ 00917000 B @RC00532 0534 00918000 @RF00532 MVI EXLSTYP(RBLKPTR),X'10' 0534 00919000 * END; 0535 00920000 @RC00532 DS 0H 0536 00921000 * REG5=ZERO; /* ZERO POINTER REGISTER */ 00922000 @RC00509 SLR REG5,REG5 0536 00923000 * DO UNTIL(RELEMPTR=RHDRPTR); /* LOOK FOR BEGINING OF LIST */ 00924000 * 0537 00925000 @DL00537 DS 0H 0538 00926000 * /***********************************************************/ 00927000 * /* */ 00928000 * /* SET INDEX TO KEYWDTAB */ 00929000 * /* */ 00930000 * /***********************************************************/ 00931000 * 0538 00932000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 00933000 * 0538 00934000 LH REG11,ELEMKWTC(,RELEMPTR) 0538 00935000 MH REG11,@CH00984 0538 00936000 * /***********************************************************/ 00937000 * /* */ 00938000 * /* SET INDEX TO KEYWORD ROUTINE */ 00939000 * /* */ 00940000 * /***********************************************************/ 00941000 * 0539 00942000 * GEN(IC REG8,MEXLST(REG11)) 0539 00943000 * REFS(MEXLST); /* LOAD ADDRESS OFF KEYWORD 0539 00944000 * ROUTINE */ 00945000 * 0539 00946000 IC REG8,MEXLST(REG11) 00947000 * /***********************************************************/ 00948000 * /* */ 00949000 * /* PROCESS KEYWORD */ 00950000 * /* */ 00951000 * /***********************************************************/ 00952000 * 0540 00953000 * GEN(BAL REG10,G2EXBRTB(REG8)); 0540 00954000 * 0540 00955000 BAL REG10,G2EXBRTB(REG8) 00956000 * /***********************************************************/ 00957000 * /* */ 00958000 * /* SET PARAMETER POINTERS */ 00959000 * /* */ 00960000 * /***********************************************************/ 00961000 * 0541 00962000 * PLEPTR=PLEPTR-LENGTH(PARMLIST);/* SET POINTER TO NEXT 0541 00963000 * PARAMETER */ 00964000 SL PLEPTR,@CF00256 0541 00965000 * RELEMPTR=PLEMPTR; /* SET POINTER TO ELEMENT */ 00966000 L RELEMPTR,PLEMPTR(,PLEPTR) 0542 00967000 * END; 0543 00968000 @DE00537 CR RELEMPTR,RHDRPTR 0543 00969000 BNE @DL00537 0543 00970000 * END; 0544 00971000 * REG1=RBLKPTR; /* SET ADDRESS OF FIRST ACB */ 00972000 @RC00485 LR REG1,RBLKPTR 0545 00973000 * REG0=GMLEN; /* SET RESISTER 0 TO RETURN VALUE*/ 00974000 * 0546 00975000 L REG0,GMLEN(,REG13) 0546 00976000 * /*****************************************************************/ 00977000 * /* */ 00978000 * /* MAKE ADDITIONAL COPIES AS REQUIRED */ 00979000 * /* */ 00980000 * /*****************************************************************/ 00981000 * 0547 00982000 * IF GENCOP>1 THEN /* MORE THAN ONE COPY */ 00983000 LH @07,GENCOP(,RHDRPTR) 0547 00984000 C @07,@CF00081 0547 00985000 BNH @RF00547 0547 00986000 * DO; /* YES, MAKE THEM */ 00987000 * REG5=RBLKPTR+REG0; /* SET STOPPER VALUE */ 00988000 LR REG5,RBLKPTR 0549 00989000 ALR REG5,REG0 0549 00990000 * REG6=EXLLEN-ONE; /* SET LENGTH FOR MOVE */ 00991000 LH REG6,EXLLEN(,RBLKPTR) 0550 00992000 BCTR REG6,0 0550 00993000 * DO RBLKPTR=RBLKPTR BY EXLLEN WHILE RBLKPTRMAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01126000 CL REG11,MAXKEYWD 0577 01127000 BH @RT00577 0577 01128000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01129000 * 0578 01130000 * /*************************************************************/ 01131000 * /* */ 01132000 * /* SET INDEX TO KEYWORD ROUTINE */ 01133000 * /* */ 01134000 * /*************************************************************/ 01135000 * 0579 01136000 * GEN(IC REG8,MNIB(REG11)) 0579 01137000 * REFS(MNIB); /* LOAD ADDRESS OFF KEYWORD 0579 01138000 * ROUTINE */ 01139000 * 0579 01140000 IC REG8,MNIB(REG11) 01141000 * /*************************************************************/ 01142000 * /* */ 01143000 * /* EXECUTE KEYWORD ROUTINE */ 01144000 * /* */ 01145000 * /*************************************************************/ 01146000 * 0580 01147000 * GEN(EX REG0,MNIBKWTB(REG8)) 0580 01148000 * FLOWS(MNIBKWTB); 0580 01149000 EX REG0,MNIBKWTB(REG8) 01150000 * END; 0581 01151000 @DE00573 TM EOL(PLEPTR),B'10000000' 0581 01152000 BNO @DL00573 0581 01153000 * REG1=RBLKPTR; /* SET ADDRESS OF FIRST ACB */ 01154000 @RT00571 LR REG1,RBLKPTR 0582 01155000 * REG0=GMLEN; /* SET RESISTER 0 TO RETURN VALUE*/ 01156000 * 0583 01157000 L REG0,GMLEN(,REG13) 0583 01158000 * /*****************************************************************/ 01159000 * /* */ 01160000 * /* MAKE ADDITIONAL COPIES AS REQUIRED */ 01161000 * /* */ 01162000 * /*****************************************************************/ 01163000 * 0584 01164000 * IF GENCOP>1 THEN /* MORE COPIES TO MAKE */ 01165000 LH @09,GENCOP(,RHDRPTR) 0584 01166000 C @09,@CF00081 0584 01167000 BNH @RF00584 0584 01168000 * DO; /* YES, MAKE THEM */ 01169000 * RESPECIFY 0586 01170000 * REG5 RSTD; 0586 01171000 * REG5=RBLKPTR+REG0; /* SET STOPPER VALUE */ 01172000 LR REG5,RBLKPTR 0587 01173000 ALR REG5,REG0 0587 01174000 * DO RBLKPTR=RBLKPTR BY NIBLEN WHILE RBLKPTRNEWNIB; /* COPY BLOCK */ 01178000 MVC NEWNIB(64,RBLKPTR),NEWNIB(REG1) 0589 01179000 * END; 0590 01180000 SLR @09,@09 0590 01181000 IC @09,NIBLEN(,RBLKPTR) 0590 01182000 ALR RBLKPTR,@09 0590 01183000 @DE00588 CR RBLKPTR,REG5 0590 01184000 BL @DL00588 0590 01185000 * RESPECIFY 0591 01186000 * REG5 UNRSTD; 0591 01187000 * END; 0592 01188000 * 0592 01189000 * /*****************************************************************/ 01190000 * /* */ 01191000 * /* RETURN TO USER */ 01192000 * /* */ 01193000 * /*****************************************************************/ 01194000 * 0593 01195000 * RETCODER=ZERO; /* SET ZERO RETURN CODE */ 01196000 @RF00584 SLR RETCODER,RETCODER 0593 01197000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 01198000 LM REG2,REG12,REGSAVE(REG13) 0594 01199000 * GEN(BR REG14); /* RETURN TO USER */ 01200000 BR REG14 01201000 * 0596 01202000 * /*****************************************************************/ 01203000 * /* */ 01204000 * /* MODCB/ACB- ROUTINE MODIFIES EXISTING ACB'S AS REQUESTED BY THE*/ 01205000 * /* USER. INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST */ 01206000 * /* OF ADDRESSES THAT POINT TO A HEADER AND ELEMENTS THAT */ 01207000 * /* REPRESENT KEYWORDS SPECIFIED BY THE USER IN THE MODCB MACRO. */ 01208000 * /* THE HEADER CONTAINS A POINTER TO THE ACB TO BE MODIFIED IN THE*/ 01209000 * /* FIELD MODBLAD. THIS MUST POINT TO A ACB OR AN ERROR WILL BE */ 01210000 * /* INDICATED TO THE USER. OUTPUT IS THE MODIFIED ACB. ACB 'S ARE*/ 01211000 * /* MODIFIED AS REQUESTED BY THE USER BY EXECUTING THE */ 01212000 * /* INSTRUCTIONS THAT ACCOMPLISHED THE DESIRED MODIFICATION. VTAM */ 01213000 * /* ONLY KEYWORDS ARE CHECKED TO INSURE THAT THE RPL IS LONG */ 01214000 * /* ENOUGTH TO CONTAIN THE TARGET FIELD AND THAT AM=VTAM WAS */ 01215000 * /* SPECIFIED BY THE USER. */ 01216000 * /* */ 01217000 * /*****************************************************************/ 01218000 * 0596 01219000 *ACBMOD: 0596 01220000 * 0596 01221000 * /*****************************************************************/ 01222000 * /* */ 01223000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 01224000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 01225000 * /* INSTRUCTIONS */ 01226000 * /* */ 01227000 * /*****************************************************************/ 01228000 * 0596 01229000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01230000 ACBMOD STM REG2,REG12,REGSAVE(REG13) 0596 01231000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 01232000 LA REG12,4095(REG15) 01233000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01234000 L RHDRPTR,PHDRPTR(,PLEPTR) 0598 01235000 * RBLKPTR=MODBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01236000 L RBLKPTR,MODBLAD(,RHDRPTR) 0599 01237000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01238000 * 0600 01239000 SLR REG8,REG8 0600 01240000 * /*****************************************************************/ 01241000 * /* */ 01242000 * /* END OF PROLOG INSTRUCTIONS */ 01243000 * /* */ 01244000 * /*****************************************************************/ 01245000 * 0601 01246000 * IF ACBID^=IDXACB THEN /* IF NOT POINTING TO ACB */ 01247000 CLI ACBID(RBLKPTR),160 0601 01248000 BE @RF00601 0601 01249000 * DO; /* ERROR PROCESSING */ 01250000 * REG0=BLKERR; /* SET REASON CODE */ 01251000 LA REG0,4 0603 01252000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01253000 B EXITBAD 0604 01254000 * END; 0605 01255000 * IF ACBOPEN=ON THEN /* ACB IS OPEN */ 01256000 @RF00601 TM ACBOPEN(RBLKPTR),B'00010000' 0606 01257000 BNO @RF00606 0606 01258000 * DO; /* ERROR PROCESS */ 01259000 * REG0=ACBISOPN; /* SET REASON CODE */ 01260000 LA REG0,12 0608 01261000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01262000 B EXITBAD 0609 01263000 * END; 0610 01264000 * 0610 01265000 * /*****************************************************************/ 01266000 * /* */ 01267000 * /* PROCESS KEYWORDS IF ANY */ 01268000 * /* */ 01269000 * /*****************************************************************/ 01270000 * 0611 01271000 * IF EOL=ON THEN 0611 01272000 @RF00606 TM EOL(PLEPTR),B'10000000' 0611 01273000 BO @RT00611 0611 01274000 * ; /* KEWORDS SPECIFIED */ 01275000 * ELSE /* PROCESS KEYWORDS */ 01276000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01277000 @DL00613 DS 0H 0614 01278000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ENTRY */ 01279000 AL PLEPTR,@CF00256 0614 01280000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01281000 * 0615 01282000 L RELEMPTR,PLEMPTR(,PLEPTR) 0615 01283000 * /*************************************************************/ 01284000 * /* */ 01285000 * /* SET INDEX TO KEWDTAB */ 01286000 * /* */ 01287000 * /*************************************************************/ 01288000 * 0616 01289000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01290000 LH REG11,ELEMKWTC(,RELEMPTR) 0616 01291000 MH REG11,@CH00984 0616 01292000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01293000 CL REG11,MAXKEYWD 0617 01294000 BH @RT00617 0617 01295000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01296000 * GEN(IC REG8,MACB(REG11)) 0619 01297000 * REFS(MACB); /* LOAD ADDRESS OFF KEYWORD 0619 01298000 * ROUTINE */ 01299000 * 0619 01300000 IC REG8,MACB(REG11) 01301000 * /*************************************************************/ 01302000 * /* */ 01303000 * /* EXECUTE KEYWORD ROUTINE */ 01304000 * /* */ 01305000 * /*************************************************************/ 01306000 * 0620 01307000 * GEN(EX REG0,MACBKWTB(REG8)) 0620 01308000 * FLOWS(MACBKWTB); /* CALL KEYWORD ROUTINE */ 01309000 EX REG0,MACBKWTB(REG8) 01310000 * END; 0621 01311000 * 0621 01312000 @DE00613 TM EOL(PLEPTR),B'10000000' 0621 01313000 BNO @DL00613 0621 01314000 * /*****************************************************************/ 01315000 * /* */ 01316000 * /* EXIT */ 01317000 * /* */ 01318000 * /*****************************************************************/ 01319000 * 0622 01320000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01321000 @RT00611 SLR RETCODER,RETCODER 0622 01322000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01323000 LM REG2,REG12,REGSAVE(REG13) 0623 01324000 * GEN(BR REG14) ; /* GO BACK TO USER */ 01325000 BR REG14 01326000 * 0625 01327000 * /*****************************************************************/ 01328000 * /* */ 01329000 * /* MODCB/RPL- ROUTINE MODIFIES EXISTING RPL'S AS REQUESTED BY THE*/ 01330000 * /* USER. INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST */ 01331000 * /* OF ADDRESSES THAT POINT TO A HEADER AND ELEMENTS THAT */ 01332000 * /* REPRESENT KEYWORDS SPECIFIED BY THE USER IN THE MODCB MACRO. */ 01333000 * /* THE HEADER CONTAINS A POINTER TO THE RPL TO BE MODIFIED IN THE*/ 01334000 * /* FIELD MODBLAD. THIS MUST POINT TO A RPL OR AN ERROR WILL BE */ 01335000 * /* INDICATED TO THE USER. OUTPUT IS THE MODIFIED RPL. RPL''S ARE*/ 01336000 * /* MODIFIED AS REQUESTED BY THE USER BY EXECUTING THE */ 01337000 * /* INSTRUCTIONS THAT ACCOMPLISHED THE DESIRED MODIFICATION. VTAM */ 01338000 * /* ONLY KEYWORDS ARE CHECKED TO INSURE THAT THE RPL IS LONG */ 01339000 * /* ENOUGTH TO CONTAIN THE TARGET FIELD AND THAT AM=VTAM WAS */ 01340000 * /* SPECIFIED BY THE USER. */ 01341000 * /* */ 01342000 * /*****************************************************************/ 01343000 * 0625 01344000 *RPLMOD: 0625 01345000 * 0625 01346000 * /*****************************************************************/ 01347000 * /* */ 01348000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 01349000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 01350000 * /* INSTRUCTIONS */ 01351000 * /* */ 01352000 * /*****************************************************************/ 01353000 * 0625 01354000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01355000 RPLMOD STM REG2,REG12,REGSAVE(REG13) 0625 01356000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 01357000 LA REG12,4095(REG15) 01358000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01359000 L RHDRPTR,PHDRPTR(,PLEPTR) 0627 01360000 * RBLKPTR=MODBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01361000 L RBLKPTR,MODBLAD(,RHDRPTR) 0628 01362000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01363000 * 0629 01364000 SLR REG8,REG8 0629 01365000 * /*****************************************************************/ 01366000 * /* */ 01367000 * /* END OF PROLOG CODE */ 01368000 * /* */ 01369000 * /*****************************************************************/ 01370000 * 0630 01371000 * IF RPLID^=IDXRPL THEN /* IF NOT POINTING TO RPL */ 01372000 CLI RPLID(RBLKPTR),X'00' 0630 01373000 BE @RF00630 0630 01374000 * DO; /* ERROR PROCESSING */ 01375000 * REG0=BLKERR; /* SET REASON CODE */ 01376000 LA REG0,4 0632 01377000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01378000 B EXITBAD 0633 01379000 * END; 0634 01380000 * 0634 01381000 * /*****************************************************************/ 01382000 * /* */ 01383000 * /* CHECK FOR RPL ACTIVE */ 01384000 * /* */ 01385000 * /*****************************************************************/ 01386000 * 0635 01387000 * TS(RPLACTIV); /* TEST ACTIVE BYTE */ 01388000 @RF00630 TS RPLACTIV(RBLKPTR) 0635 01389000 * BC(8,NOTACT); /* BRANCH NOT ACTIVE */ 01390000 BC 8,NOTACT 0636 01391000 * REG0=RPLISACT; /* SET ERROR CODE */ 01392000 LA REG0,11 0637 01393000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01394000 B EXITBAD 0638 01395000 *NOTACT: 0639 01396000 * 0639 01397000 * /*****************************************************************/ 01398000 * /* */ 01399000 * /* PROCESS KEYWORDS IF ANY */ 01400000 * /* */ 01401000 * /*****************************************************************/ 01402000 * 0639 01403000 * IF EOL=ON THEN 0639 01404000 NOTACT TM EOL(PLEPTR),B'10000000' 0639 01405000 BO @RT00639 0639 01406000 * ; /* KEWORDS SPECIFIED */ 01407000 * ELSE /* PROCESS KEYWORDS */ 01408000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01409000 @DL00641 DS 0H 0642 01410000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 01411000 AL PLEPTR,@CF00256 0642 01412000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01413000 * 0643 01414000 L RELEMPTR,PLEMPTR(,PLEPTR) 0643 01415000 * /*************************************************************/ 01416000 * /* */ 01417000 * /* SET INDEX TO KEYWDTAB */ 01418000 * /* */ 01419000 * /*************************************************************/ 01420000 * 0644 01421000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01422000 LH REG11,ELEMKWTC(,RELEMPTR) 0644 01423000 MH REG11,@CH00984 0644 01424000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01425000 CL REG11,MAXKEYWD 0645 01426000 BH @RT00645 0645 01427000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01428000 * 0646 01429000 * /*************************************************************/ 01430000 * /* */ 01431000 * /* SET INDEX TO KEYWORD ROUTINE */ 01432000 * /* */ 01433000 * /*************************************************************/ 01434000 * 0647 01435000 * GEN(IC REG8,MRPL(REG11)) 0647 01436000 * REFS(MRPL); /* LOAD ADDRESS OFF KEYWORD 0647 01437000 * ROUTINE */ 01438000 * 0647 01439000 IC REG8,MRPL(REG11) 01440000 * /*************************************************************/ 01441000 * /* */ 01442000 * /* EXECUTE KEYWORD ROUTINE */ 01443000 * /* */ 01444000 * /*************************************************************/ 01445000 * 0648 01446000 * GEN(EX REG0,MRPLKWTB(REG8)) 0648 01447000 * FLOWS(MRPLKWTB); 0648 01448000 EX REG0,MRPLKWTB(REG8) 01449000 * END; 0649 01450000 * 0649 01451000 @DE00641 TM EOL(PLEPTR),B'10000000' 0649 01452000 BNO @DL00641 0649 01453000 * /*****************************************************************/ 01454000 * /* */ 01455000 * /* RESET ACTIVE BYTE */ 01456000 * /* */ 01457000 * /*****************************************************************/ 01458000 * 0650 01459000 * RPLACTIV=ZERO; /* RESET ACTIVE BYTE */ 01460000 * 0650 01461000 @RT00639 MVI RPLACTIV(RBLKPTR),X'00' 0650 01462000 * /*****************************************************************/ 01463000 * /* */ 01464000 * /* EXIT */ 01465000 * /* */ 01466000 * /*****************************************************************/ 01467000 * 0651 01468000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01469000 SLR RETCODER,RETCODER 0651 01470000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01471000 LM REG2,REG12,REGSAVE(REG13) 0652 01472000 * GEN(BR REG14) ; /* GO BACK TO USER */ 01473000 BR REG14 01474000 * 0654 01475000 * /*****************************************************************/ 01476000 * /* */ 01477000 * /* MODCB/EXLST- ROUTINE MODIFIES EXISTING EXLST'S AS REQUESTED BY*/ 01478000 * /* THE USER. INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A */ 01479000 * /* LIST OF ADDRESSES THAT POINT TO A HEADER AND ELEMENTS THAT */ 01480000 * /* REPRESENT KEYWORDS SPECIFIED BY THE USER IN THE MODCB MACRO. */ 01481000 * /* THE HEADER CONTAINS A POINTER TO THE EXLST TO BE MODIFIED IN */ 01482000 * /* THE FIELD MODBLAD. THIS MUST POINT TO A EXLST OR AN ERROR WILL*/ 01483000 * /* BE INDICATED TO THE USER. OUTPUT IS THE MODIFIED EXLST. */ 01484000 * /* EXLST''S ARE MODIFIED AS REQUESTED BY THE USER BY EXECUTING */ 01485000 * /* THE INSTRUCTIONS THAT ACCOMPLISHED THE DESIRED MODIFICATION. */ 01486000 * /* KEYWORDS ARE CHECKED TO INSURE THAT THE EXLST IS LONG ENOUGTH */ 01487000 * /* TO CONTAIN THE TARGET FIELD AND THAT FOR VTAM ONLY KEYWORDS */ 01488000 * /* AM=VTAM WAS SPECIFIED BY THE USER. */ 01489000 * /* */ 01490000 * /*****************************************************************/ 01491000 * 0654 01492000 *EXLSTMOD: 0654 01493000 * 0654 01494000 * /*****************************************************************/ 01495000 * /* */ 01496000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 01497000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 01498000 * /* INSTRUCTIONS */ 01499000 * /* */ 01500000 * /*****************************************************************/ 01501000 * 0654 01502000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01503000 EXLSTMOD STM REG2,REG12,REGSAVE(REG13) 0654 01504000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 01505000 * 0655 01506000 LA REG12,4095(REG15) 01507000 * /*****************************************************************/ 01508000 * /* */ 01509000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 01510000 * /* */ 01511000 * /*****************************************************************/ 01512000 * 0656 01513000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01514000 L RHDRPTR,PHDRPTR(,PLEPTR) 0656 01515000 * RBLKPTR=MODBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01516000 L RBLKPTR,MODBLAD(,RHDRPTR) 0657 01517000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01518000 * 0658 01519000 SLR REG8,REG8 0658 01520000 * /*****************************************************************/ 01521000 * /* */ 01522000 * /* END OF PROLOG CODE */ 01523000 * /* */ 01524000 * /*****************************************************************/ 01525000 * 0659 01526000 * IF EXLID^=IDXEXLST THEN /* IF NOT POINTING TO EXLST */ 01527000 CLI EXLID(RBLKPTR),129 0659 01528000 BE @RF00659 0659 01529000 * DO; /* ERROR PROCESSING */ 01530000 * REG0=BLKERR; /* SET REASON CODE */ 01531000 LA REG0,4 0661 01532000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01533000 B EXITBAD 0662 01534000 * END; 0663 01535000 * 0663 01536000 * /*****************************************************************/ 01537000 * /* */ 01538000 * /* PROCESS KEYWORDS IF ANY */ 01539000 * /* */ 01540000 * /*****************************************************************/ 01541000 * 0664 01542000 * IF EOL=ON THEN 0664 01543000 @RF00659 TM EOL(PLEPTR),B'10000000' 0664 01544000 BO @RT00664 0664 01545000 * ; /* KEYWORDS SPECIFIED */ 01546000 * ELSE /* PROCESS KEYWORDS */ 01547000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01548000 @DL00666 DS 0H 0667 01549000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 01550000 AL PLEPTR,@CF00256 0667 01551000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01552000 * 0668 01553000 L RELEMPTR,PLEMPTR(,PLEPTR) 0668 01554000 * /*************************************************************/ 01555000 * /* */ 01556000 * /* SET INDEX TO KEYWDTAB */ 01557000 * /* */ 01558000 * /*************************************************************/ 01559000 * 0669 01560000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01561000 LH REG11,ELEMKWTC(,RELEMPTR) 0669 01562000 MH REG11,@CH00984 0669 01563000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01564000 CL REG11,MAXKEYWD 0670 01565000 BH @RT00670 0670 01566000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01567000 * 0671 01568000 * /*************************************************************/ 01569000 * /* */ 01570000 * /* SET INDEX TO KEYWORD ROUTINE */ 01571000 * /* */ 01572000 * /*************************************************************/ 01573000 * 0672 01574000 * GEN(IC REG8,MEXLST(REG11)) 0672 01575000 * REFS(MEXLST); /* LOAD ADDRESS OFF KEYWORD 0672 01576000 * ROUTINE */ 01577000 * 0672 01578000 IC REG8,MEXLST(REG11) 01579000 * /*************************************************************/ 01580000 * /* */ 01581000 * /* PROCESS KEYWORD */ 01582000 * /* */ 01583000 * /*************************************************************/ 01584000 * 0673 01585000 * GEN(BAL REG10,MEXLBRTB(REG8)) 0673 01586000 * FLOWS(MEXLBRTB); /* CALL KEYWORD ROUTINE */ 01587000 BAL REG10,MEXLBRTB(REG8) 01588000 * END; 0674 01589000 * 0674 01590000 @DE00666 TM EOL(PLEPTR),B'10000000' 0674 01591000 BNO @DL00666 0674 01592000 * /*****************************************************************/ 01593000 * /* */ 01594000 * /* EXIT */ 01595000 * /* */ 01596000 * /*****************************************************************/ 01597000 * 0675 01598000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01599000 @RT00664 SLR RETCODER,RETCODER 0675 01600000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01601000 LM REG2,REG12,REGSAVE(REG13) 0676 01602000 * GEN(BR REG14) ; /* GO BACK TO USER */ 01603000 BR REG14 01604000 * 0678 01605000 * /*****************************************************************/ 01606000 * /* */ 01607000 * /* MODCB/NIB- ROUTINE MODIFIES EXISTING NIB'S AS REQUESTED BY THE*/ 01608000 * /* USER. INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST */ 01609000 * /* OF ADDRESSES THAT POINT TO A HEADER AND ELEMENTS THAT */ 01610000 * /* REPRESENT KEYWORDS SPECIFIED BY THE USER IN THE MODCB MACRO. */ 01611000 * /* THE HEADER CONTAINS A POINTER TO THE NIB TO BE MODIFIED IN THE*/ 01612000 * /* FIELD MODBLAD. THIS MUST POINT TO A NIB OR AN ERROR WILL BE */ 01613000 * /* INDICATED TO THE USER. OUTPUT IS THE MODIFIED NIB. NIB''S ARE*/ 01614000 * /* MODIFIED AS REQUESTED BY THE USER BY EXECUTING THE */ 01615000 * /* INSTRUCTIONS THAT ACCOMPLISHED THE DESIRED MODIFICATION. */ 01616000 * /* */ 01617000 * /*****************************************************************/ 01618000 * 0678 01619000 *NIBMOD: 0678 01620000 * 0678 01621000 * /*****************************************************************/ 01622000 * /* */ 01623000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 01624000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 01625000 * /* INSTRUCTIONS */ 01626000 * /* */ 01627000 * /*****************************************************************/ 01628000 * 0678 01629000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01630000 NIBMOD STM REG2,REG12,REGSAVE(REG13) 0678 01631000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 01632000 LA REG12,4095(REG15) 01633000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01634000 L RHDRPTR,PHDRPTR(,PLEPTR) 0680 01635000 * RBLKPTR=MODBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01636000 L RBLKPTR,MODBLAD(,RHDRPTR) 0681 01637000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01638000 * 0682 01639000 SLR REG8,REG8 0682 01640000 * /*****************************************************************/ 01641000 * /* */ 01642000 * /* END OF PROLOG CODE */ 01643000 * /* */ 01644000 * /*****************************************************************/ 01645000 * 0683 01646000 * IF NIBID^=NIBIDD THEN /* IF NOT POINTING TO RPL */ 01647000 CLI NIBID(RBLKPTR),X'D0' 0683 01648000 BE @RF00683 0683 01649000 * DO; /* ERROR PROCESSING */ 01650000 * REG0=BLKERR; /* SET REASON CODE */ 01651000 LA REG0,4 0685 01652000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01653000 B EXITBAD 0686 01654000 * END; 0687 01655000 * 0687 01656000 * /*****************************************************************/ 01657000 * /* */ 01658000 * /* PROCESS KEYWORDS IF ANY */ 01659000 * /* */ 01660000 * /*****************************************************************/ 01661000 * 0688 01662000 * IF EOL=ON THEN 0688 01663000 @RF00683 TM EOL(PLEPTR),B'10000000' 0688 01664000 BO @RT00688 0688 01665000 * ; /* KEYWORDS SPECIFIED */ 01666000 * ELSE /* PROCESS KEYWORDS */ 01667000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01668000 @DL00690 DS 0H 0691 01669000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 01670000 AL PLEPTR,@CF00256 0691 01671000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01672000 * 0692 01673000 L RELEMPTR,PLEMPTR(,PLEPTR) 0692 01674000 * /*************************************************************/ 01675000 * /* */ 01676000 * /* SET INDEX TO KEYWDTAB */ 01677000 * /* */ 01678000 * /*************************************************************/ 01679000 * 0693 01680000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01681000 LH REG11,ELEMKWTC(,RELEMPTR) 0693 01682000 MH REG11,@CH00984 0693 01683000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01684000 CL REG11,MAXKEYWD 0694 01685000 BH @RT00694 0694 01686000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01687000 * 0695 01688000 * /*************************************************************/ 01689000 * /* */ 01690000 * /* SET INDEX TO KEYWORD ROUTINE */ 01691000 * /* */ 01692000 * /*************************************************************/ 01693000 * 0696 01694000 * GEN(IC REG8,MNIB(REG11)) 0696 01695000 * REFS(MNIB); /* LOAD ADDRESS OFF KEYWORD 0696 01696000 * ROUTINE */ 01697000 * 0696 01698000 IC REG8,MNIB(REG11) 01699000 * /*************************************************************/ 01700000 * /* */ 01701000 * /* EXECUTE KEYWORD ROUTINE */ 01702000 * /* */ 01703000 * /*************************************************************/ 01704000 * 0697 01705000 * GEN(EX REG0,MNIBKWTB(REG8)) 0697 01706000 * FLOWS(MNIBKWTB); 0697 01707000 EX REG0,MNIBKWTB(REG8) 01708000 * END; 0698 01709000 * 0698 01710000 @DE00690 TM EOL(PLEPTR),B'10000000' 0698 01711000 BNO @DL00690 0698 01712000 * /*****************************************************************/ 01713000 * /* */ 01714000 * /* EXIT */ 01715000 * /* */ 01716000 * /*****************************************************************/ 01717000 * 0699 01718000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01719000 @RT00688 SLR RETCODER,RETCODER 0699 01720000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01721000 LM REG2,REG12,REGSAVE(REG13) 0700 01722000 * GEN(BR REG14) ; /* GO BACK TO USER */ 01723000 BR REG14 01724000 * 0702 01725000 * /*****************************************************************/ 01726000 * /* */ 01727000 * /* SHOW/ACB- ROUTINE DISPLAYS IN AN AREA SUPPLIED BY THE USER */ 01728000 * /* FIELDS FROM AN ACB AND IT'S RELATED CONTROL BLOCKS. INPUT IS */ 01729000 * /* AN ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESS THAT*/ 01730000 * /* POINT TO A HEADER AND ELEMENTS THAT REPRESENT SHOWCB KEYWORDS */ 01731000 * /* SPECIFIED BY THE USER. THE HEADER HAS A POINTER TO THE ACB TO */ 01732000 * /* BE DISPLAYED IN THE SHOWBLAD FIELD. SHOWBLAD MUST POINT TO AN */ 01733000 * /* ACB OR AN ERROR IS RETURNED TO THE USER. FIELDS THAT ARE IN */ 01734000 * /* ACB RELATED BLOCKS REQUIRE THE ACB TO BE OPEN. FIELDS ARE */ 01735000 * /* DISPLAYED UNTIL ALL ELEMENTS ARE PROCESSED OR THE STORAGE */ 01736000 * /* SUPPLIED BY THE USER RUNS OUT. */ 01737000 * /* */ 01738000 * /*****************************************************************/ 01739000 * 0702 01740000 *ACBSHOW: 0702 01741000 * 0702 01742000 * /*****************************************************************/ 01743000 * /* */ 01744000 * /* PROLOG CODE MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS */ 01745000 * /* AND DECODE ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE */ 01746000 * /* INSTRUCTIONS */ 01747000 * /* */ 01748000 * /*****************************************************************/ 01749000 * 0702 01750000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01751000 ACBSHOW STM REG2,REG12,REGSAVE(REG13) 0702 01752000 * GEN(LA REG12,4095(REG15)) ; /* SET UP SECOND BASE */ 01753000 * 0703 01754000 LA REG12,4095(REG15) 01755000 * /*****************************************************************/ 01756000 * /* */ 01757000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 01758000 * /* */ 01759000 * /*****************************************************************/ 01760000 * 0704 01761000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01762000 L RHDRPTR,PHDRPTR(,PLEPTR) 0704 01763000 * RBLKPTR=SHOWBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01764000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 0705 01765000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01766000 * 0706 01767000 SLR REG8,REG8 0706 01768000 * /*****************************************************************/ 01769000 * /* */ 01770000 * /* END OF PROLOG CODE */ 01771000 * /* */ 01772000 * /*****************************************************************/ 01773000 * 0707 01774000 * IF ACBID^=IDXACB THEN /* IF NOT POINTING TO ACB */ 01775000 CLI ACBID(RBLKPTR),160 0707 01776000 BE @RF00707 0707 01777000 * DO; /* ERROR PROCESSING */ 01778000 * REG0=BLKERR; /* SET REASON CODE */ 01779000 LA REG0,4 0709 01780000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01781000 B EXITBAD 0710 01782000 * END; 0711 01783000 * SHOWUSE=ZERO; /* ZERO USED COUNT */ 01784000 * 0712 01785000 @RF00707 SLR @09,@09 0712 01786000 STH @09,SHOWUSE(,REG13) 0712 01787000 * /*****************************************************************/ 01788000 * /* */ 01789000 * /* PROCESS KEYWORDS IF ANY */ 01790000 * /* */ 01791000 * /*****************************************************************/ 01792000 * 0713 01793000 * IF EOL=ON THEN 0713 01794000 TM EOL(PLEPTR),B'10000000' 0713 01795000 BO @RT00713 0713 01796000 * ; /* KEYWORDS SPECIFIED */ 01797000 * ELSE /* PROCESS KEYWORDS */ 01798000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01799000 @DL00715 DS 0H 0716 01800000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 01801000 AL PLEPTR,@CF00256 0716 01802000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01803000 * 0717 01804000 L RELEMPTR,PLEMPTR(,PLEPTR) 0717 01805000 * /*************************************************************/ 01806000 * /* */ 01807000 * /* SET INDEX TO KEYWDTAB */ 01808000 * /* */ 01809000 * /*************************************************************/ 01810000 * 0718 01811000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01812000 LH REG11,ELEMKWTC(,RELEMPTR) 0718 01813000 MH REG11,@CH00984 0718 01814000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01815000 CL REG11,MAXKEYWD 0719 01816000 BH @RT00719 0719 01817000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01818000 * GEN(IC REG8,SACB(REG11)) 0721 01819000 * REFS(SACB); /* LOAD ADDRESS OFF KEYWORD 0721 01820000 * ROUTINE */ 01821000 * 0721 01822000 IC REG8,SACB(REG11) 01823000 * /*************************************************************/ 01824000 * /* */ 01825000 * /* EXECUTE KEYWORD ROUTINE */ 01826000 * /* */ 01827000 * /*************************************************************/ 01828000 * 0722 01829000 * GEN(BAL REG10,KWBRTAB(REG8)) 0722 01830000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 01831000 BAL REG10,KWBRTAB(REG8) 01832000 * END; 0723 01833000 * 0723 01834000 @DE00715 TM EOL(PLEPTR),B'10000000' 0723 01835000 BNO @DL00715 0723 01836000 * /*****************************************************************/ 01837000 * /* */ 01838000 * /* EXIT */ 01839000 * /* */ 01840000 * /*****************************************************************/ 01841000 * 0724 01842000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01843000 @RT00713 SLR RETCODER,RETCODER 0724 01844000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01845000 LM REG2,REG12,REGSAVE(REG13) 0725 01846000 * GEN(BR REG14) 0726 01847000 * EXIT; /* GO BACK TO USER */ 01848000 BR REG14 01849000 * 0727 01850000 * /*****************************************************************/ 01851000 * /* */ 01852000 * /* SHOWCB/RPL- ROUTINE DISPLAYS IN AN AREA SUPPLIED BY THE USER */ 01853000 * /* FIELDS FROM AN RPL. INPUT IS AN ADDRESS IN REGISTER 1 THAT */ 01854000 * /* POINTS TO A LIST OF ADDRESS THAT POINT TO A HEADER AND */ 01855000 * /* ELEMENTS THAT REPRESENT SHOWCB KEYWORDS SPECIFIED BY THE USER.*/ 01856000 * /* THE HEADER HAS A POINTER TO THE RPL TO BE DISPLAYED IN THE */ 01857000 * /* SHOWBLAD FIELD. SHOWBLAD MUST POINT TO AN RPL OR AN ERROR IS */ 01858000 * /* RETURNED TO THE USER. FIELDS ARE DISPLAYED UNTIL ALL ELEMENTS */ 01859000 * /* ARE PROCESSED OR THE STORAGE SUPPLIED BY THE USER RUNS OUT. */ 01860000 * /* */ 01861000 * /*****************************************************************/ 01862000 * 0727 01863000 *RPLSHOW: 0727 01864000 * 0727 01865000 * /*****************************************************************/ 01866000 * /* */ 01867000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE */ 01868000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 01869000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 01870000 * /* */ 01871000 * /*****************************************************************/ 01872000 * 0727 01873000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 01874000 RPLSHOW STM REG2,REG12,REGSAVE(REG13) 0727 01875000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 01876000 * 0728 01877000 LA REG12,4095(REG15) 01878000 * /*****************************************************************/ 01879000 * /* */ 01880000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 01881000 * /* */ 01882000 * /*****************************************************************/ 01883000 * 0729 01884000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 01885000 L RHDRPTR,PHDRPTR(,PLEPTR) 0729 01886000 * RBLKPTR=SHOWBLAD; /* LOAD ADDRESS OF USER BLOCK */ 01887000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 0730 01888000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 01889000 * 0731 01890000 SLR REG8,REG8 0731 01891000 * /*****************************************************************/ 01892000 * /* */ 01893000 * /* END OF PROLOG CODE */ 01894000 * /* */ 01895000 * /*****************************************************************/ 01896000 * 0732 01897000 * IF RPLID^=IDXRPL THEN /* IF NOT POINTING TO RPL */ 01898000 CLI RPLID(RBLKPTR),X'00' 0732 01899000 BE @RF00732 0732 01900000 * DO; /* ERROR PROCESSING */ 01901000 * REG0=BLKERR; /* SET REASON CODE */ 01902000 LA REG0,4 0734 01903000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 01904000 B EXITBAD 0735 01905000 * END; 0736 01906000 * SHOWUSE=ZERO; /* ZERO USED COUNT */ 01907000 * 0737 01908000 @RF00732 SLR @09,@09 0737 01909000 STH @09,SHOWUSE(,REG13) 0737 01910000 * /*****************************************************************/ 01911000 * /* */ 01912000 * /* PROCESS KEYWORDS IF ANY */ 01913000 * /* */ 01914000 * /*****************************************************************/ 01915000 * 0738 01916000 * IF EOL=ON THEN 0738 01917000 TM EOL(PLEPTR),B'10000000' 0738 01918000 BO @RT00738 0738 01919000 * ; /* KEYWORDS SPECIFIED */ 01920000 * ELSE /* PROCESS KEYWORDS */ 01921000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 01922000 @DL00740 DS 0H 0741 01923000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 01924000 AL PLEPTR,@CF00256 0741 01925000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 01926000 * 0742 01927000 L RELEMPTR,PLEMPTR(,PLEPTR) 0742 01928000 * /*************************************************************/ 01929000 * /* */ 01930000 * /* SET INDEX TO KEYEDTAB */ 01931000 * /* */ 01932000 * /*************************************************************/ 01933000 * 0743 01934000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 01935000 LH REG11,ELEMKWTC(,RELEMPTR) 0743 01936000 MH REG11,@CH00984 0743 01937000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 01938000 CL REG11,MAXKEYWD 0744 01939000 BH @RT00744 0744 01940000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 01941000 * 0745 01942000 * /*************************************************************/ 01943000 * /* */ 01944000 * /* SET INDEX TO KEYWORD ROUTINE */ 01945000 * /* */ 01946000 * /*************************************************************/ 01947000 * 0746 01948000 * GEN(IC REG8,SRPL(REG11)) 0746 01949000 * REFS(SRPL); /* LOAD ADDRESS OFF KEYWORD 0746 01950000 * ROUTINE */ 01951000 * 0746 01952000 IC REG8,SRPL(REG11) 01953000 * /*************************************************************/ 01954000 * /* */ 01955000 * /* EXECUTE KEYWORD ROUTINE */ 01956000 * /* */ 01957000 * /*************************************************************/ 01958000 * 0747 01959000 * GEN(BAL REG10,KWBRTAB(REG8)) 0747 01960000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 01961000 BAL REG10,KWBRTAB(REG8) 01962000 * END; 0748 01963000 * 0748 01964000 @DE00740 TM EOL(PLEPTR),B'10000000' 0748 01965000 BNO @DL00740 0748 01966000 * /*****************************************************************/ 01967000 * /* */ 01968000 * /* EXIT */ 01969000 * /* */ 01970000 * /*****************************************************************/ 01971000 * 0749 01972000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 01973000 @RT00738 SLR RETCODER,RETCODER 0749 01974000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 01975000 LM REG2,REG12,REGSAVE(REG13) 0750 01976000 * GEN(BR REG14) 0751 01977000 * EXIT; /* GO BACK TO USER */ 01978000 BR REG14 01979000 * 0752 01980000 * /*****************************************************************/ 01981000 * /* */ 01982000 * /* SHOWCB/EXLST ROUTINE DISPLAYS IN AN AREA SUPPLIED BY THE USER */ 01983000 * /* FIELDS FROM AN EXLST. INPUT IS AN ADDRESS IN REGISTER 1 THAT */ 01984000 * /* POINTS TO A LIST OF ADDRESS THAT POINT TO A HEADER AND */ 01985000 * /* ELEMENTS THAT REPRESENT SHOWCB KEYWORDS SPECIFIED BY THE USER.*/ 01986000 * /* THE HEADER HAS A POINTER TO THE EXLST TO BE DISPLAYED IN THE */ 01987000 * /* SHOWBLAD FIELD. SHOWBLAD MUST POINT TO AN EXLST OR AN ERROR IS*/ 01988000 * /* RETURNED TO THE USER. FIELDS ARE DISPLAYED UNTIL ALL ELEMENTS */ 01989000 * /* ARE PROCESSED OR THE STORAGE SUPPLIED BY THE USER RUNS OUT. */ 01990000 * /* */ 01991000 * /*****************************************************************/ 01992000 * 0752 01993000 *EXLSSHOW: 0752 01994000 * 0752 01995000 * /*****************************************************************/ 01996000 * /* */ 01997000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE */ 01998000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 01999000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02000000 * /* */ 02001000 * /*****************************************************************/ 02002000 * 0752 02003000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02004000 EXLSSHOW STM REG2,REG12,REGSAVE(REG13) 0752 02005000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02006000 * 0753 02007000 LA REG12,4095(REG15) 02008000 * /*****************************************************************/ 02009000 * /* */ 02010000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02011000 * /* */ 02012000 * /*****************************************************************/ 02013000 * 0754 02014000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02015000 L RHDRPTR,PHDRPTR(,PLEPTR) 0754 02016000 * RBLKPTR=SHOWBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02017000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 0755 02018000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02019000 * 0756 02020000 SLR REG8,REG8 0756 02021000 * /*****************************************************************/ 02022000 * /* */ 02023000 * /* END OF PROLOG CODE */ 02024000 * /* */ 02025000 * /*****************************************************************/ 02026000 * 0757 02027000 * IF EXLID^=IDXEXLST THEN /* IF NOT POINTING TO RPL */ 02028000 CLI EXLID(RBLKPTR),129 0757 02029000 BE @RF00757 0757 02030000 * DO; /* ERROR PROCESSING */ 02031000 * REG0=BLKERR; /* SET REASON CODE */ 02032000 LA REG0,4 0759 02033000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02034000 B EXITBAD 0760 02035000 * END; 0761 02036000 * SHOWUSE=ZERO; /* ZERO USED COUNT */ 02037000 * 0762 02038000 @RF00757 SLR @09,@09 0762 02039000 STH @09,SHOWUSE(,REG13) 0762 02040000 * /*****************************************************************/ 02041000 * /* */ 02042000 * /* PROCESS KEYWORDS IF ANY */ 02043000 * /* */ 02044000 * /*****************************************************************/ 02045000 * 0763 02046000 * IF EOL=ON THEN 0763 02047000 TM EOL(PLEPTR),B'10000000' 0763 02048000 BO @RT00763 0763 02049000 * ; /* KEYWORDS SPECIFIED */ 02050000 * ELSE /* PROCESS KEYWORDS */ 02051000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02052000 @DL00765 DS 0H 0766 02053000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 02054000 AL PLEPTR,@CF00256 0766 02055000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02056000 * 0767 02057000 L RELEMPTR,PLEMPTR(,PLEPTR) 0767 02058000 * /*************************************************************/ 02059000 * /* */ 02060000 * /* SET INDEX TO KEYWDTAB */ 02061000 * /* */ 02062000 * /*************************************************************/ 02063000 * 0768 02064000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02065000 LH REG11,ELEMKWTC(,RELEMPTR) 0768 02066000 MH REG11,@CH00984 0768 02067000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02068000 CL REG11,MAXKEYWD 0769 02069000 BH @RT00769 0769 02070000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02071000 * 0770 02072000 * /*************************************************************/ 02073000 * /* */ 02074000 * /* SET INDEX TO KEYWORD ROUTINE */ 02075000 * /* */ 02076000 * /*************************************************************/ 02077000 * 0771 02078000 * GEN(IC REG8,SEXLST(REG11)) 0771 02079000 * REFS(SEXLST); /* LOAD ADDRESS OFF KEYWORD 0771 02080000 * ROUTINE */ 02081000 * 0771 02082000 IC REG8,SEXLST(REG11) 02083000 * /*************************************************************/ 02084000 * /* */ 02085000 * /* EXECUTE KEYWORD ROUTINE */ 02086000 * /* */ 02087000 * /*************************************************************/ 02088000 * 0772 02089000 * GEN(BAL REG10,KWBRTAB(REG8)) 0772 02090000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02091000 BAL REG10,KWBRTAB(REG8) 02092000 * END; 0773 02093000 * 0773 02094000 @DE00765 TM EOL(PLEPTR),B'10000000' 0773 02095000 BNO @DL00765 0773 02096000 * /*****************************************************************/ 02097000 * /* */ 02098000 * /* EXIT */ 02099000 * /* */ 02100000 * /*****************************************************************/ 02101000 * 0774 02102000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 02103000 @RT00763 SLR RETCODER,RETCODER 0774 02104000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 02105000 LM REG2,REG12,REGSAVE(REG13) 0775 02106000 * GEN(BR REG14) 0776 02107000 * EXIT; /* GO BACK TO USER */ 02108000 BR REG14 02109000 * 0777 02110000 * /*****************************************************************/ 02111000 * /* */ 02112000 * /* SHOWCB/NIB ROUTINE DISPLAYS IN AN AREA SUPPLIED BY THE USER */ 02113000 * /* FIELDS FROM AN NIB. INPUT IS AN ADDRESS IN REGISTER 1 THAT */ 02114000 * /* POINTS TO A LIST OF ADDRESS THAT POINT TO A HEADER AND */ 02115000 * /* ELEMENTS THAT REPRESENT SHOWCB KEYWORDS SPECIFIED BY THE USER.*/ 02116000 * /* THE HEADER HAS A POINTER TO THE NIB TO BE DISPLAYED IN THE */ 02117000 * /* SHOWBLAD FIELD. SHOWBLAD MUST POINT TO AN NIB OR AN ERROR IS */ 02118000 * /* RETURNED TO THE USER. FIELDS ARE DISPLAYED UNTIL ALL ELEMENTS */ 02119000 * /* ARE PROCESSED OR THE STORAGE SUPPLIED BY THE USER RUNS OUT. */ 02120000 * /* */ 02121000 * /*****************************************************************/ 02122000 * 0777 02123000 *NIBSHOW: 0777 02124000 * 0777 02125000 * /*****************************************************************/ 02126000 * /* */ 02127000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE */ 02128000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 02129000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02130000 * /* */ 02131000 * /*****************************************************************/ 02132000 * 0777 02133000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02134000 NIBSHOW STM REG2,REG12,REGSAVE(REG13) 0777 02135000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02136000 * 0778 02137000 LA REG12,4095(REG15) 02138000 * /*****************************************************************/ 02139000 * /* */ 02140000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02141000 * /* */ 02142000 * /*****************************************************************/ 02143000 * 0779 02144000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02145000 L RHDRPTR,PHDRPTR(,PLEPTR) 0779 02146000 * RBLKPTR=SHOWBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02147000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 0780 02148000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02149000 * 0781 02150000 SLR REG8,REG8 0781 02151000 * /*****************************************************************/ 02152000 * /* */ 02153000 * /* END OF PROLOG CODE */ 02154000 * /* */ 02155000 * /*****************************************************************/ 02156000 * 0782 02157000 * IF NIBID^=NIBIDD THEN /* IF NOT POINTING TO NIB */ 02158000 CLI NIBID(RBLKPTR),X'D0' 0782 02159000 BE @RF00782 0782 02160000 * DO; /* ERROR PROCESSING */ 02161000 * REG0=BLKERR; /* SET REASON CODE */ 02162000 LA REG0,4 0784 02163000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02164000 B EXITBAD 0785 02165000 * END; 0786 02166000 * SHOWUSE=ZERO; /* ZERO USED COUNT */ 02167000 * 0787 02168000 @RF00782 SLR @09,@09 0787 02169000 STH @09,SHOWUSE(,REG13) 0787 02170000 * /*****************************************************************/ 02171000 * /* */ 02172000 * /* PROCESS KEYWORDS IF ANY */ 02173000 * /* */ 02174000 * /*****************************************************************/ 02175000 * 0788 02176000 * IF EOL=ON THEN 0788 02177000 TM EOL(PLEPTR),B'10000000' 0788 02178000 BO @RT00788 0788 02179000 * ; /* KEYWORDS SPECIFIED */ 02180000 * ELSE /* PROCESS KEYWORDS */ 02181000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02182000 @DL00790 DS 0H 0791 02183000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 02184000 AL PLEPTR,@CF00256 0791 02185000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02186000 * 0792 02187000 L RELEMPTR,PLEMPTR(,PLEPTR) 0792 02188000 * /*************************************************************/ 02189000 * /* */ 02190000 * /* SET INDEX TO KEYWDTAB */ 02191000 * /* */ 02192000 * /*************************************************************/ 02193000 * 0793 02194000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02195000 LH REG11,ELEMKWTC(,RELEMPTR) 0793 02196000 MH REG11,@CH00984 0793 02197000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02198000 CL REG11,MAXKEYWD 0794 02199000 BH @RT00794 0794 02200000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02201000 * 0795 02202000 * /*************************************************************/ 02203000 * /* */ 02204000 * /* SET INDEX TO KEYWORD ROUTINE */ 02205000 * /* */ 02206000 * /*************************************************************/ 02207000 * 0796 02208000 * GEN(IC REG8,SNIB(REG11)) 0796 02209000 * REFS(SNIB); /* LOAD ADDRESS OFF KEYWORD 0796 02210000 * ROUTINE */ 02211000 * 0796 02212000 IC REG8,SNIB(REG11) 02213000 * /*************************************************************/ 02214000 * /* */ 02215000 * /* EXECUTE KEYWORD ROUTINE */ 02216000 * /* */ 02217000 * /*************************************************************/ 02218000 * 0797 02219000 * GEN(BAL REG10,KWBRTAB(REG8)) 0797 02220000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02221000 BAL REG10,KWBRTAB(REG8) 02222000 * END; 0798 02223000 * 0798 02224000 @DE00790 TM EOL(PLEPTR),B'10000000' 0798 02225000 BNO @DL00790 0798 02226000 * /*****************************************************************/ 02227000 * /* */ 02228000 * /* EXIT */ 02229000 * /* */ 02230000 * /*****************************************************************/ 02231000 * 0799 02232000 * RETCODER=ZERO; /* SET GOOD RETURN CODE */ 02233000 @RT00788 SLR RETCODER,RETCODER 0799 02234000 * LM(REG2,REG12,REGSAVE); /* RELOAD REGISTERS */ 02235000 LM REG2,REG12,REGSAVE(REG13) 0800 02236000 * GEN(BR REG14) 0801 02237000 * EXIT; /* GO BACK TO USER */ 02238000 BR REG14 02239000 * 0802 02240000 * /*****************************************************************/ 02241000 * /* */ 02242000 * /* TESTCB/ACB ROUTINE TESTS FIELDS IN AN ACB OR ACB RELATED */ 02243000 * /* BLOCKS. INPUT IS AN ADDRESS IN REGISTER 1 THAT POINTS TO A */ 02244000 * /* LIST OF ADDRESS THAT POINT TO A HEADER AND ELEMENTS THAT */ 02245000 * /* REPRESENT TESTCB KEYWORDS SPECIFIED BY THE USER. THE HEADER */ 02246000 * /* HAS A POINTER TO THE ACB TO BE DISPLAYED IN THE TESTBLAD */ 02247000 * /* FIELD. TESTBLAD MUST POINT TO AN ACB OR AN ERROR IS RETURNED */ 02248000 * /* TO THE USER. TO TEST FIELDS IN ACB RELATED BLOCKS THE ACB MUST*/ 02249000 * /* BE OPEN OR AN ERROR IS RETURNED. FIELDS ARE TESTED UNTIL ALL */ 02250000 * /* ELEMENTS ARE PROCESSED OR AN ERROR OCCURS. THE CONDITION CODE */ 02251000 * /* IS SET JUST PRIOR TO EXIT AND IS PRESERVED FOR THE NEXT */ 02252000 * /* SEQUENTAL INSTRUCTION AFTER THE TESTCB. */ 02253000 * /* */ 02254000 * /*****************************************************************/ 02255000 * 0802 02256000 *ACBTEST: 0802 02257000 * 0802 02258000 * /*****************************************************************/ 02259000 * /* */ 02260000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE */ 02261000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 02262000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02263000 * /* */ 02264000 * /*****************************************************************/ 02265000 * 0802 02266000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02267000 ACBTEST STM REG2,REG12,REGSAVE(REG13) 0802 02268000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02269000 * 0803 02270000 LA REG12,4095(REG15) 02271000 * /*****************************************************************/ 02272000 * /* */ 02273000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02274000 * /* */ 02275000 * /*****************************************************************/ 02276000 * 0804 02277000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02278000 L RHDRPTR,PHDRPTR(,PLEPTR) 0804 02279000 * RBLKPTR=TESTBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02280000 L RBLKPTR,TESTBLAD(,RHDRPTR) 0805 02281000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02282000 * 0806 02283000 SLR REG8,REG8 0806 02284000 * /*****************************************************************/ 02285000 * /* */ 02286000 * /* END OF PROLOG CODE */ 02287000 * /* */ 02288000 * /*****************************************************************/ 02289000 * 0807 02290000 * IF ACBID^=IDXACB THEN /* IF NOT POINTING TO ACB */ 02291000 CLI ACBID(RBLKPTR),160 0807 02292000 BE @RF00807 0807 02293000 * DO; /* ERROR PROCESSING */ 02294000 * REG0=BLKERR; /* SET REASON CODE */ 02295000 LA REG0,4 0809 02296000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02297000 B EXITBAD 0810 02298000 * END; 0811 02299000 * TESTCC=ZERO; /* ZERO CONDITION CODE */ 02300000 * 0812 02301000 @RF00807 SLR @09,@09 0812 02302000 STH @09,TESTCC(,REG13) 0812 02303000 * /*****************************************************************/ 02304000 * /* */ 02305000 * /* PROCESS KEYWORDS IF ANY */ 02306000 * /* */ 02307000 * /*****************************************************************/ 02308000 * 0813 02309000 * IF EOL=ON THEN 0813 02310000 TM EOL(PLEPTR),B'10000000' 0813 02311000 BO @RT00813 0813 02312000 * ; /* KEYWORDS SPECIFIED */ 02313000 * ELSE /* PROCESS KEYWORDS */ 02314000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02315000 @DL00815 DS 0H 0816 02316000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ENTRY */ 02317000 AL PLEPTR,@CF00256 0816 02318000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02319000 * 0817 02320000 L RELEMPTR,PLEMPTR(,PLEPTR) 0817 02321000 * /*************************************************************/ 02322000 * /* */ 02323000 * /* SET POINTER TO KEYWDTAB */ 02324000 * /* */ 02325000 * /*************************************************************/ 02326000 * 0818 02327000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02328000 LH REG11,ELEMKWTC(,RELEMPTR) 0818 02329000 MH REG11,@CH00984 0818 02330000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02331000 CL REG11,MAXKEYWD 0819 02332000 BH @RT00819 0819 02333000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02334000 * 0820 02335000 * /*************************************************************/ 02336000 * /* */ 02337000 * /* SET POINTER TO KEYWORD ROUTINE */ 02338000 * /* */ 02339000 * /*************************************************************/ 02340000 * 0821 02341000 * GEN(IC REG8,TACB(REG11)) 0821 02342000 * REFS(TACB); /* LOAD ADDRESS OFF KEYWORD 0821 02343000 * ROUTINE */ 02344000 * 0821 02345000 IC REG8,TACB(REG11) 02346000 * /*************************************************************/ 02347000 * /* */ 02348000 * /* EXECUTE KEYWORD ROUTINE */ 02349000 * /* */ 02350000 * /*************************************************************/ 02351000 * 0822 02352000 * GEN(BAL REG10,KWBRTAB(REG8)) 0822 02353000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02354000 BAL REG10,KWBRTAB(REG8) 02355000 * END; 0823 02356000 * 0823 02357000 @DE00815 TM EOL(PLEPTR),B'10000000' 0823 02358000 BNO @DL00815 0823 02359000 * /*****************************************************************/ 02360000 * /* */ 02361000 * /* EXIT */ 02362000 * /* */ 02363000 * /*****************************************************************/ 02364000 * 0824 02365000 * RETCODER=ZERO; /* ZERO RETURN CODE */ 02366000 @RT00813 SLR RETCODER,RETCODER 0824 02367000 * RESPECIFY 0825 02368000 * REG5 RSTD; 0825 02369000 * REG5=TESTCC; /* PICKUP UP TESTCC */ 02370000 LH REG5,TESTCC(,REG13) 0826 02371000 * GEN(LTR REG5,REG5); /* SET CONDITION CODE */ 02372000 LTR REG5,REG5 02373000 * RESPECIFY 0828 02374000 * REG5 UNRSTD; 0828 02375000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02376000 LM REG2,REG12,REGSAVE(REG13) 0829 02377000 * GEN(BR REG14) 0830 02378000 * EXIT; /* RETURN TO USER */ 02379000 BR REG14 02380000 * 0831 02381000 * /*****************************************************************/ 02382000 * /* */ 02383000 * /* TESTCB/RPL- ROUTINE TESTS FIELDS IN AN RPL. INPUT IS AN */ 02384000 * /* ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESSES THAT */ 02385000 * /* POINT TO A HEADER AND ELEMENTS THAT REPRESENT TESTCB KEYWORDS */ 02386000 * /* SPECIFIED BY THE USER. THE HEADER HAS A POINTER TO THE RPL TO */ 02387000 * /* BE DISPLAYED IN THE TESTBLAD FIELD. TESTBLAD MUST POINT TO AN */ 02388000 * /* RPL OR AN ERROR IS RETURNED TO THE USER. FIELDS ARE TESTED */ 02389000 * /* UNTIL ALL ELEMENTS ARE PROCESSED OR AN ERROR OCCURS. THE */ 02390000 * /* CONDITION CODE IS SET JUST PRIOR TO EXIT AND IS PRESERVED FOR */ 02391000 * /* THE NEXT SEQUENTAL INSTRUCTION AFTER THE TESTCB. */ 02392000 * /* */ 02393000 * /*****************************************************************/ 02394000 * 0831 02395000 *RPLTEST: 0831 02396000 * 0831 02397000 * /*****************************************************************/ 02398000 * /* */ 02399000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE */ 02400000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 02401000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02402000 * /* */ 02403000 * /*****************************************************************/ 02404000 * 0831 02405000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02406000 RPLTEST STM REG2,REG12,REGSAVE(REG13) 0831 02407000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02408000 * 0832 02409000 LA REG12,4095(REG15) 02410000 * /*****************************************************************/ 02411000 * /* */ 02412000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02413000 * /* */ 02414000 * /*****************************************************************/ 02415000 * 0833 02416000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02417000 L RHDRPTR,PHDRPTR(,PLEPTR) 0833 02418000 * RBLKPTR=TESTBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02419000 L RBLKPTR,TESTBLAD(,RHDRPTR) 0834 02420000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02421000 * 0835 02422000 SLR REG8,REG8 0835 02423000 * /*****************************************************************/ 02424000 * /* */ 02425000 * /* END OF PROLOG CODE */ 02426000 * /* */ 02427000 * /*****************************************************************/ 02428000 * 0836 02429000 * IF RPLID^=IDXRPL THEN /* IF NOT POINTING TO RPL */ 02430000 CLI RPLID(RBLKPTR),X'00' 0836 02431000 BE @RF00836 0836 02432000 * DO; /* ERROR PROCESSING */ 02433000 * REG0=BLKERR; /* SET REASON CODE */ 02434000 LA REG0,4 0838 02435000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02436000 B EXITBAD 0839 02437000 * END; 0840 02438000 * TESTCC=ZERO; /* ZERO CONDITION CODE */ 02439000 * 0841 02440000 @RF00836 SLR @09,@09 0841 02441000 STH @09,TESTCC(,REG13) 0841 02442000 * /*****************************************************************/ 02443000 * /* */ 02444000 * /* PROCESS KEYWORD IF ANY */ 02445000 * /* */ 02446000 * /*****************************************************************/ 02447000 * 0842 02448000 * IF EOL=ON THEN 0842 02449000 TM EOL(PLEPTR),B'10000000' 0842 02450000 BO @RT00842 0842 02451000 * ; /* KEYWORDS SPECIFIED */ 02452000 * ELSE /* PROCESS KEYWORDS */ 02453000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02454000 @DL00844 DS 0H 0845 02455000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 02456000 AL PLEPTR,@CF00256 0845 02457000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02458000 * 0846 02459000 L RELEMPTR,PLEMPTR(,PLEPTR) 0846 02460000 * /*************************************************************/ 02461000 * /* */ 02462000 * /* SET INDEX TO KEYWDTAB */ 02463000 * /* */ 02464000 * /*************************************************************/ 02465000 * 0847 02466000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02467000 LH REG11,ELEMKWTC(,RELEMPTR) 0847 02468000 MH REG11,@CH00984 0847 02469000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02470000 CL REG11,MAXKEYWD 0848 02471000 BH @RT00848 0848 02472000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02473000 * 0849 02474000 * /*************************************************************/ 02475000 * /* */ 02476000 * /* SET INDEX TO KEYWORD ROUTINE */ 02477000 * /* */ 02478000 * /*************************************************************/ 02479000 * 0850 02480000 * GEN(IC REG8,TRPL(REG11)) 0850 02481000 * REFS(TRPL); /* LOAD ADDRESS OFF KEYWORD 0850 02482000 * ROUTINE */ 02483000 * 0850 02484000 IC REG8,TRPL(REG11) 02485000 * /*************************************************************/ 02486000 * /* */ 02487000 * /* EXECUTE KEYWORD ROUTINE */ 02488000 * /* */ 02489000 * /*************************************************************/ 02490000 * 0851 02491000 * GEN(BAL REG10,KWBRTAB(REG8)) 0851 02492000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02493000 BAL REG10,KWBRTAB(REG8) 02494000 * END; 0852 02495000 * 0852 02496000 @DE00844 TM EOL(PLEPTR),B'10000000' 0852 02497000 BNO @DL00844 0852 02498000 * /*****************************************************************/ 02499000 * /* */ 02500000 * /* EXIT */ 02501000 * /* */ 02502000 * /*****************************************************************/ 02503000 * 0853 02504000 * RETCODER=ZERO; /* ZERO RETURN CODE */ 02505000 @RT00842 SLR RETCODER,RETCODER 0853 02506000 * RESPECIFY 0854 02507000 * REG5 RSTD; 0854 02508000 * REG5=TESTCC; /* PICKUP UP TESTCC */ 02509000 LH REG5,TESTCC(,REG13) 0855 02510000 * GEN(LTR REG5,REG5); /* SET CONDITION CODE */ 02511000 LTR REG5,REG5 02512000 * RESPECIFY 0857 02513000 * REG5 UNRSTD; 0857 02514000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02515000 LM REG2,REG12,REGSAVE(REG13) 0858 02516000 * GEN(BR REG14) 0859 02517000 * EXIT; /* RETURN TO USER */ 02518000 BR REG14 02519000 * 0860 02520000 * /*****************************************************************/ 02521000 * /* */ 02522000 * /* TESTCB/EXLST- ROUTINE TESTS FIELDS IN AN EXLST. INPUT IS AN */ 02523000 * /* ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESSES THAT */ 02524000 * /* POINT TO A HEADER AND ELEMENTS THAT REPRESENT TESTCB KEYWORDS */ 02525000 * /* SPECIFIED BY THE USER. THE HEADER HAS A POINTER TO THE EXLST */ 02526000 * /* TO BE DISPLAYED IN THE TESTBLAD FIELD. TESTBLAD MUST POINT TO */ 02527000 * /* AN EXLST OR AN ERROR IS RETURNED TO THE USER. FIELDS ARE */ 02528000 * /* TESTED UNTIL ALL ELEMENTS ARE PROCESSED OR AN ERROR OCCURS. */ 02529000 * /* THE CONDITION CODE IS SET JUST PRIOR TO EXIT AND IS PRESERVED */ 02530000 * /* FOR THE NEXT SEQUENTAL INSTRUCTION AFTER THE TESTCB. */ 02531000 * /* */ 02532000 * /*****************************************************************/ 02533000 * 0860 02534000 *EXLSTEST: 0860 02535000 * 0860 02536000 * /*****************************************************************/ 02537000 * /* */ 02538000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE. PROLOG CODE */ 02539000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 02540000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02541000 * /* */ 02542000 * /*****************************************************************/ 02543000 * 0860 02544000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02545000 EXLSTEST STM REG2,REG12,REGSAVE(REG13) 0860 02546000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02547000 * 0861 02548000 LA REG12,4095(REG15) 02549000 * /*****************************************************************/ 02550000 * /* */ 02551000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02552000 * /* */ 02553000 * /*****************************************************************/ 02554000 * 0862 02555000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02556000 L RHDRPTR,PHDRPTR(,PLEPTR) 0862 02557000 * RBLKPTR=TESTBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02558000 L RBLKPTR,TESTBLAD(,RHDRPTR) 0863 02559000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02560000 * 0864 02561000 SLR REG8,REG8 0864 02562000 * /*****************************************************************/ 02563000 * /* */ 02564000 * /* END OF PROLOG CODE */ 02565000 * /* */ 02566000 * /*****************************************************************/ 02567000 * 0865 02568000 * IF EXLID^=IDXEXLST THEN /* IF NOT POINTING TO EXLST */ 02569000 CLI EXLID(RBLKPTR),129 0865 02570000 BE @RF00865 0865 02571000 * DO; /* ERROR PROCESSING */ 02572000 * REG0=BLKERR; /* SET REASON CODE */ 02573000 LA REG0,4 0867 02574000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02575000 B EXITBAD 0868 02576000 * END; 0869 02577000 * TESTCC=ZERO; /* ZERO CONDITION CODE */ 02578000 * 0870 02579000 @RF00865 SLR @09,@09 0870 02580000 STH @09,TESTCC(,REG13) 0870 02581000 * /*****************************************************************/ 02582000 * /* */ 02583000 * /* PROCESS KEYWORDS IF ANY */ 02584000 * /* */ 02585000 * /*****************************************************************/ 02586000 * 0871 02587000 * IF EOL=ON THEN 0871 02588000 TM EOL(PLEPTR),B'10000000' 0871 02589000 BO @RT00871 0871 02590000 * ; /* KEYWORDS SPECIFIED */ 02591000 * ELSE /* PROCESS KEYWORDS */ 02592000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02593000 @DL00873 DS 0H 0874 02594000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ENTRY */ 02595000 AL PLEPTR,@CF00256 0874 02596000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02597000 * 0875 02598000 L RELEMPTR,PLEMPTR(,PLEPTR) 0875 02599000 * /*************************************************************/ 02600000 * /* */ 02601000 * /* SET INDEX TO KEYWDTAB */ 02602000 * /* */ 02603000 * /*************************************************************/ 02604000 * 0876 02605000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02606000 LH REG11,ELEMKWTC(,RELEMPTR) 0876 02607000 MH REG11,@CH00984 0876 02608000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02609000 CL REG11,MAXKEYWD 0877 02610000 BH @RT00877 0877 02611000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02612000 * 0878 02613000 * /*************************************************************/ 02614000 * /* */ 02615000 * /* SET INDEX TO KEYWORD ROUTINE */ 02616000 * /* */ 02617000 * /*************************************************************/ 02618000 * 0879 02619000 * GEN(IC REG8,TEXLST(REG11)) 0879 02620000 * REFS(TEXLST); /* LOAD ADDRESS OFF KEYWORD 0879 02621000 * ROUTINE */ 02622000 * 0879 02623000 IC REG8,TEXLST(REG11) 02624000 * /*************************************************************/ 02625000 * /* */ 02626000 * /* EXECUTE KEYWORD ROUTINE */ 02627000 * /* */ 02628000 * /*************************************************************/ 02629000 * 0880 02630000 * GEN(BAL REG10,KWBRTAB(REG8)) 0880 02631000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02632000 BAL REG10,KWBRTAB(REG8) 02633000 * END; 0881 02634000 * 0881 02635000 @DE00873 TM EOL(PLEPTR),B'10000000' 0881 02636000 BNO @DL00873 0881 02637000 * /*****************************************************************/ 02638000 * /* */ 02639000 * /* EXIT */ 02640000 * /* */ 02641000 * /*****************************************************************/ 02642000 * 0882 02643000 * RETCODER=ZERO; /* ZERO RETURN CODE */ 02644000 @RT00871 SLR RETCODER,RETCODER 0882 02645000 * RESPECIFY 0883 02646000 * REG5 RSTD; 0883 02647000 * REG5=TESTCC; /* PICKUP UP TESTCC */ 02648000 LH REG5,TESTCC(,REG13) 0884 02649000 * GEN(LTR REG5,REG5); /* SET CONDITION CODE */ 02650000 LTR REG5,REG5 02651000 * RESPECIFY 0886 02652000 * REG5 UNRSTD; 0886 02653000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02654000 LM REG2,REG12,REGSAVE(REG13) 0887 02655000 * GEN(BR REG14) 0888 02656000 * EXIT; /* RETURN TO USER */ 02657000 BR REG14 02658000 * 0889 02659000 * /*****************************************************************/ 02660000 * /* */ 02661000 * /* TESTCB/NIB- ROUTINE TESTS FIELDS IN AN NIB. INPUT IS AN */ 02662000 * /* ADDRESS IN REGISTER 1 THAT POINTS TO A LIST OF ADDRESSES THAT */ 02663000 * /* POINT TO A HEADER AND ELEMENTS THAT REPRESENT TESTCB KEYWORDS */ 02664000 * /* SPECIFIED BY THE USER. THE HEADER HAS A POINTER TO THE NIB TO */ 02665000 * /* BE DISPLAYED IN THE TESTBLAD FIELD. TESTBLAD MUST POINT TO AN */ 02666000 * /* NIB OR AN ERROR IS RETURNED TO THE USER. FIELDS ARE TESTED */ 02667000 * /* UNTIL ALL ELEMENTS ARE PROCESSED OR AN ERROR OCCURS. THE */ 02668000 * /* CONDITION CODE IS SET JUST PRIOR TO EXIT AND IS PRESERVED FOR */ 02669000 * /* THE NEXT SEQUENTAL INSTRUCTION AFTER THE TESTCB. */ 02670000 * /* */ 02671000 * /*****************************************************************/ 02672000 * 0889 02673000 *NIBTEST: 0889 02674000 * 0889 02675000 * /*****************************************************************/ 02676000 * /* */ 02677000 * /* SAVE USER'S REGISTER'S 2-12 AND SET SECOND BASE. PROLOG CODE */ 02678000 * /* MUST NOT BE ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE */ 02679000 * /* ROUTINE AS EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02680000 * /* */ 02681000 * /*****************************************************************/ 02682000 * 0889 02683000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02684000 NIBTEST STM REG2,REG12,REGSAVE(REG13) 0889 02685000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02686000 * 0890 02687000 LA REG12,4095(REG15) 02688000 * /*****************************************************************/ 02689000 * /* */ 02690000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02691000 * /* */ 02692000 * /*****************************************************************/ 02693000 * 0891 02694000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02695000 L RHDRPTR,PHDRPTR(,PLEPTR) 0891 02696000 * RBLKPTR=TESTBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02697000 L RBLKPTR,TESTBLAD(,RHDRPTR) 0892 02698000 * REG8=ZERO; /* SET INDEX REGISTER TO ZERO */ 02699000 * 0893 02700000 SLR REG8,REG8 0893 02701000 * /*****************************************************************/ 02702000 * /* */ 02703000 * /* END OF PROLOG CODE */ 02704000 * /* */ 02705000 * /*****************************************************************/ 02706000 * 0894 02707000 * IF NIBID^=NIBIDD THEN /* IF NOT POINTING TO NIB */ 02708000 CLI NIBID(RBLKPTR),X'D0' 0894 02709000 BE @RF00894 0894 02710000 * DO; /* ERROR PROCESSING */ 02711000 * REG0=BLKERR; /* SET REASON CODE */ 02712000 LA REG0,4 0896 02713000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02714000 B EXITBAD 0897 02715000 * END; 0898 02716000 * TESTCC=ZERO; /* ZERO CONDITION CODE */ 02717000 * 0899 02718000 @RF00894 SLR @09,@09 0899 02719000 STH @09,TESTCC(,REG13) 0899 02720000 * /*****************************************************************/ 02721000 * /* */ 02722000 * /* PROCESS KEYWORDS IF ANY */ 02723000 * /* */ 02724000 * /*****************************************************************/ 02725000 * 0900 02726000 * IF EOL=ON THEN 0900 02727000 TM EOL(PLEPTR),B'10000000' 0900 02728000 BO @RT00900 0900 02729000 * ; /* KEYWORDS SPECIFIED */ 02730000 * ELSE /* PROCESS KEYWORDS */ 02731000 * DO UNTIL(EOL=ON); /* LOOK FOR END OF LIST */ 02732000 @DL00902 DS 0H 0903 02733000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP THRU LIST */ 02734000 AL PLEPTR,@CF00256 0903 02735000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02736000 * 0904 02737000 L RELEMPTR,PLEMPTR(,PLEPTR) 0904 02738000 * /*************************************************************/ 02739000 * /* */ 02740000 * /* SET INDEX TO KEYWDTAB */ 02741000 * /* */ 02742000 * /*************************************************************/ 02743000 * 0905 02744000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02745000 LH REG11,ELEMKWTC(,RELEMPTR) 0905 02746000 MH REG11,@CH00984 0905 02747000 * IF REG11>MAXKEYWD THEN /* RANGE CHECK KEYWORD */ 02748000 CL REG11,MAXKEYWD 0906 02749000 BH @RT00906 0906 02750000 * GO TO INVKEYWD; /* EXIT WITH ERROR */ 02751000 * 0907 02752000 * /*************************************************************/ 02753000 * /* */ 02754000 * /* SET INDEX TO KEYWORD ROUTINE */ 02755000 * /* */ 02756000 * /*************************************************************/ 02757000 * 0908 02758000 * GEN(IC REG8,TNIB(REG11)) 0908 02759000 * REFS(TNIB); /* LOAD ADDRESS OFF KEYWORD 0908 02760000 * ROUTINE */ 02761000 * 0908 02762000 IC REG8,TNIB(REG11) 02763000 * /*************************************************************/ 02764000 * /* */ 02765000 * /* EXECUTE KEYWORD ROUTINE */ 02766000 * /* */ 02767000 * /*************************************************************/ 02768000 * 0909 02769000 * GEN(BAL REG10,KWBRTAB(REG8)) 0909 02770000 * FLOWS(KWBRTAB); /* CALL KEYWORD ROUTINE */ 02771000 BAL REG10,KWBRTAB(REG8) 02772000 * END; 0910 02773000 * 0910 02774000 @DE00902 TM EOL(PLEPTR),B'10000000' 0910 02775000 BNO @DL00902 0910 02776000 * /*****************************************************************/ 02777000 * /* */ 02778000 * /* EXIT */ 02779000 * /* */ 02780000 * /*****************************************************************/ 02781000 * 0911 02782000 * RETCODER=ZERO; /* SET ZERO RETURN CODE */ 02783000 @RT00900 SLR RETCODER,RETCODER 0911 02784000 * RESPECIFY 0912 02785000 * REG5 RSTD; 0912 02786000 * REG5=TESTCC; /* PICKUP UP TESTCC */ 02787000 LH REG5,TESTCC(,REG13) 0913 02788000 * GEN(LTR REG5,REG5); /* SET CONDITION CODE */ 02789000 LTR REG5,REG5 02790000 * RESPECIFY 0915 02791000 * REG5 UNRSTD; 0915 02792000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02793000 LM REG2,REG12,REGSAVE(REG13) 0916 02794000 * GEN(BR REG14) 0917 02795000 * EXIT; /* RETURN TO USER */ 02796000 BR REG14 02797000 *BLKLNKW: 0918 02798000 * 0918 02799000 * /*****************************************************************/ 02800000 * /* */ 02801000 * /* PROCESSES STANDALONE BLOCK LENGTH KEYWORDS SAVE USER'S */ 02802000 * /* REGISTER'S 2-12 AND SET SECOND BASE PROLOG CODE MUST NOT BE */ 02803000 * /* ALTERED WITH OUT MODIFING ALL PROLOGS AND DECODE ROUTINE AS */ 02804000 * /* EXECUTE INSTRUCTION STEPS OVER THESE INSTRUCTIONS */ 02805000 * /* */ 02806000 * /*****************************************************************/ 02807000 * 0918 02808000 * STM(REG2,REG12,REGSAVE); /* STORE USERS REGISTERS */ 02809000 BLKLNKW STM REG2,REG12,REGSAVE(REG13) 0918 02810000 * GEN(LA REG12,4095(REG15)); /* SET UP SECOND BASE */ 02811000 * 0919 02812000 LA REG12,4095(REG15) 02813000 * /*****************************************************************/ 02814000 * /* */ 02815000 * /* LOAD POINTERS USED THROUGHOUT MODULE */ 02816000 * /* */ 02817000 * /*****************************************************************/ 02818000 * 0920 02819000 * RHDRPTR=PHDRPTR; /* LOAD POINTER TO HEADER */ 02820000 L RHDRPTR,PHDRPTR(,PLEPTR) 0920 02821000 * RBLKPTR=TESTBLAD; /* LOAD ADDRESS OF USER BLOCK */ 02822000 L RBLKPTR,TESTBLAD(,RHDRPTR) 0921 02823000 * REG8=ZERO; /* ZERO INDEX REGISTER */ 02824000 * 0922 02825000 SLR REG8,REG8 0922 02826000 * /*****************************************************************/ 02827000 * /* */ 02828000 * /* END OF PROLOG CODE */ 02829000 * /* */ 02830000 * /*****************************************************************/ 02831000 * 0923 02832000 * SHOWUSE=ZERO; /* ZERO SHOW USE */ 02833000 SLR @09,@09 0923 02834000 STH @09,SHOWUSE(,REG13) 0923 02835000 * TESTCC=EQ; /* SET TESTCB TESTCODE EQUAL */ 02836000 STH @09,TESTCC(,REG13) 0924 02837000 * IF EOL=ON THEN /* KEWORDS SPECIFIED */ 02838000 TM EOL(PLEPTR),B'10000000' 0925 02839000 BO @RT00925 0925 02840000 * GO TO FUNCERR; /* MUST BE REAL ERROR */ 02841000 * DO UNTIL(EOL=ON); /* PROCESS TO END OF LIST */ 02842000 @DL00927 DS 0H 0928 02843000 * PLEPTR=PLEPTR+LENGTH(PARMLIST);/* STEP TO NEXT ADDRESS */ 02844000 AL PLEPTR,@CF00256 0928 02845000 * RELEMPTR=PLEMPTR; /* SET POINTER TO NEW KEYWORD */ 02846000 L RELEMPTR,PLEMPTR(,PLEPTR) 0929 02847000 * RESPECIFY 0930 02848000 * REG6 RESTRICTED; /* @G40AKCM*/ 02849000 * REG6=ADDR(IDA019C1)+8190; /* SET UP TEMP BASE AREG TO 0931 02850000 * ADDRESS STORAGE OUTSIDE 2ND 0931 02851000 * BASE REG @G40AKCM*/ 02852000 L REG6,@CA00028 0931 02853000 AL REG6,@CF03362 0931 02854000 * GEN(USING IDA019C1+8190,REG6);/* REG6 IS TEMP BASE REG @G40AKCM*/ 02855000 USING IDA019C1+8190,REG6 02856000 * IF ELEMKWTC=VSAMACBL THEN /* LENGTH OF ACB */ 02857000 CLC ELEMKWTC(2,RELEMPTR),@CH00102 0933 02858000 BNE @RF00933 0933 02859000 * RBLKPTR=ADDR(DEFACB); /* SET DEFAULT BLOCK ADDR */ 02860000 LA RBLKPTR,DEFACB 0934 02861000 * ELSE /* NOT ACB */ 02862000 * IF ELEMKWTC=VSAMRPLL THEN /* LENGTH OF RPL */ 02863000 B @RC00933 0935 02864000 @RF00933 CLC ELEMKWTC(2,RELEMPTR),@CH02061 0935 02865000 BNE @RF00935 0935 02866000 * RBLKPTR=ADDR(DEFRPL); /* SET DEFAULT BLOCK ADDR */ 02867000 LA RBLKPTR,DEFRPL 0936 02868000 * ELSE /* NOT RPL */ 02869000 * IF ELEMKWTC=VTAMACBL THEN /* LENGTH OF VTAM ACB */ 02870000 B @RC00935 0937 02871000 @RF00935 CLC ELEMKWTC(2,RELEMPTR),@CH02065 0937 02872000 BNE @RF00937 0937 02873000 * RBLKPTR=ADDR(DEFVTACB); /* SET DEFAULT BLOCK ADDR */ 02874000 LA RBLKPTR,DEFVTACB 0938 02875000 * ELSE /* NOT VTAM ACB */ 02876000 * IF ELEMKWTC=VTAMRPLL THEN/* LENGTH OF VTAM RPL */ 02877000 B @RC00937 0939 02878000 @RF00937 CLC ELEMKWTC(2,RELEMPTR),@CH02067 0939 02879000 BNE @RF00939 0939 02880000 * RBLKPTR=ADDR(DEFVTRPL);/* SET DEFAULT BLOCK ADDR */ 02881000 LA RBLKPTR,DEFVTRPL 0940 02882000 * ELSE /* NOT VTAM RPL */ 02883000 * IF ELEMKWTC=VTAMNIBL THEN/* LENGTH OF NIB */ 02884000 B @RC00939 0941 02885000 @RF00939 CLC ELEMKWTC(2,RELEMPTR),@CH02071 0941 02886000 BNE @RF00941 0941 02887000 * RBLKPTR=ADDR(DEFNIB);/* SET DEFAULT BLOCK ADDR */ 02888000 LA RBLKPTR,DEFNIB 0942 02889000 * ELSE /* NOT NIB */ 02890000 * IF ELEMKWTC=VSAMEXLL THEN/* LENGTH OF EXLST */ 02891000 B @RC00941 0943 02892000 @RF00941 CLC ELEMKWTC(2,RELEMPTR),@CH02063 0943 02893000 BNE @RF00943 0943 02894000 * RBLKPTR=ADDR(DEFEXLST);/* SET DEFAULT BLOCK ADDR */ 02895000 LA RBLKPTR,DEFEXLST 0944 02896000 * ELSE /* NOT VSAM EXLST */ 02897000 * IF ELEMKWTC=VTAMEXLL THEN/* LENGTH OF VTAM EXLST */ 02898000 B @RC00943 0945 02899000 @RF00943 CLC ELEMKWTC(2,RELEMPTR),@CH02069 0945 02900000 BNE @RF00945 0945 02901000 * RBLKPTR=ADDR(DEFVTEXL);/* SET DEFAULT BLOCK ADDR */ 02902000 LA RBLKPTR,DEFVTEXL 0946 02903000 * ELSE /* ERROR */ 02904000 * GO TO INVKEYWD; /* PROCESS INVALID KEYWORD */ 02905000 * GEN(DROP REG6); /* DROP TEMP BASE REG @G40AKCM*/ 02906000 @RC00943 DS 0H 0948 02907000 @RC00941 DS 0H 0948 02908000 @RC00939 DS 0H 0948 02909000 @RC00937 DS 0H 0948 02910000 @RC00935 DS 0H 0948 02911000 @RC00933 DS 0H 0948 02912000 DROP REG6 02913000 * RESPECIFY 0949 02914000 * REG6 UNRESTRICTED; /* @G40AKCM*/ 02915000 * 0949 02916000 * /***************************************************************/ 02917000 * /* */ 02918000 * /* SET INDEX TO KEYWDTAB */ 02919000 * /* */ 02920000 * /***************************************************************/ 02921000 * 0950 02922000 * REG11=ELEMKWTC*LENGTH(TYPECD);/* SET POINTER TO KEYWORD */ 02923000 * 0950 02924000 LH REG11,ELEMKWTC(,RELEMPTR) 0950 02925000 MH REG11,@CH00984 0950 02926000 * /***************************************************************/ 02927000 * /* */ 02928000 * /* PROCESS KEYWORD */ 02929000 * /* */ 02930000 * /***************************************************************/ 02931000 * 0951 02932000 * IF(FTCBTC&VTAMCORR)=SHOWCB THEN/* SHOWCB */ 02933000 LH @09,FTCBTC(,RHDRPTR) 0951 02934000 N @09,@CF00034 0951 02935000 C @09,@CF00102 0951 02936000 BNE @RF00951 0951 02937000 * GEN FLOWS(DSPFIELD)(BAL REG10,DSPFIELD);/* CALL DISP FLD */ 02938000 BAL REG10,DSPFIELD 02939000 * ELSE /* MUST BE TESTCB */ 02940000 * GEN FLOWS(TSTFIELD)(BAL REG10,TSTFIELD);/* TEST FIELD */ 02941000 B @RC00951 0953 02942000 @RF00951 DS 0H 0953 02943000 BAL REG10,TSTFIELD 02944000 * END; 0954 02945000 @RC00951 DS 0H 0954 02946000 @DE00927 TM EOL(PLEPTR),B'10000000' 0954 02947000 BNO @DL00927 0954 02948000 * IF(FTCBTC&VTAMCORR)=TESTCB THEN /* SHOWCB */ 02949000 LH @09,FTCBTC(,RHDRPTR) 0955 02950000 N @09,@CF00034 0955 02951000 C @09,@CF00256 0955 02952000 BNE @RF00955 0955 02953000 * DO; /* EXIT FOR TESTCB */ 02954000 * RESPECIFY 0957 02955000 * REG5 RSTD; 0957 02956000 * REG5=TESTCC; /* PICKUP UP TESTCC */ 02957000 LH REG5,TESTCC(,REG13) 0958 02958000 * RETCODER=ZERO; /* ZERO RETURN CODE REGISTER */ 02959000 SLR RETCODER,RETCODER 0959 02960000 * GEN(LTR REG5,REG5); /* SET CONDITION CODE */ 02961000 LTR REG5,REG5 02962000 * RESPECIFY 0961 02963000 * REG5 UNRSTD; 0961 02964000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02965000 LM REG2,REG12,REGSAVE(REG13) 0962 02966000 * GEN(BR REG14); 0963 02967000 BR REG14 02968000 * END; 0964 02969000 * RETCODER=ZERO; /* ZERO RETURN CODE REGISTER */ 02970000 @RF00955 SLR RETCODER,RETCODER 0965 02971000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 02972000 LM REG2,REG12,REGSAVE(REG13) 0966 02973000 * GEN(BR REG14) 0967 02974000 * EXIT; /* RETURN TO USER */ 02975000 BR REG14 02976000 * 0968 02977000 * /*****************************************************************/ 02978000 * /* */ 02979000 * /* ERROR EXITS */ 02980000 * /* */ 02981000 * /*****************************************************************/ 02982000 * 0968 02983000 *INVKEYWD: 0968 02984000 * 0968 02985000 * /*****************************************************************/ 02986000 * /* */ 02987000 * /* INVKEYWD - INVALID KEYWORD EXIT. BRANCH TO THIS ROUTINE OCCURS*/ 02988000 * /* WHEN AN INVALID KEYWORD IS SPECIIFIED. ERROR CODE IS SET AND */ 02989000 * /* RETURN TO THE USER IS VIA EXITBAD. */ 02990000 * /* */ 02991000 * /*****************************************************************/ 02992000 * 0968 02993000 * REG0=KEYWDINV; /* SET REASON CODE */ 02994000 INVKEYWD LA REG0,3 0968 02995000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 02996000 * 0969 02997000 B EXITBAD 0969 02998000 * /*****************************************************************/ 02999000 * /* */ 03000000 * /* FUNCERR- INVALID BLOCK OR REQUEST TYPE. BRANCH TO THIS ROUTINE*/ 03001000 * /* OCCURS FROM THE DECODE ROUTINE IF AN INVALID FUNCTION REQUEST */ 03002000 * /* OR BLOCK TYPE IS SPECIFIED BY USER. ERROR CODES ARE SET AND */ 03003000 * /* CONTROL IS RETURNED TO THE USER VIA EXITBAD. */ 03004000 * /* */ 03005000 * /*****************************************************************/ 03006000 * 0970 03007000 *FUNCERRR: /* BRANCH POINT FOR PROCTAB */ 03008000 * 0970 03009000 * /*****************************************************************/ 03010000 * /* */ 03011000 * /* SETS ERROR CODE FOR DECODE ROUTINE. RETURNS CONTROL TO CALLER */ 03012000 * /* VIA EXITBAD */ 03013000 * /* */ 03014000 * /*****************************************************************/ 03015000 * 0970 03016000 * GEN( DC 9H'00'); /* SPACE FOR PROLOG BYPASS CODE */ 03017000 FUNCERRR DC 9H'00' 03018000 *FUNCERR: /* BRANCH POINT FOR ERROR 0971 03019000 * PROCESSING */ 03020000 * RESPECIFY 0971 03021000 * REG5 RSTD; 0971 03022000 FUNCERR DS 0H 0972 03023000 * REG5=FTCBTC&VTAMCORR; /* GET FUNCTION CODE */ 03024000 LH REG5,FTCBTC(,RHDRPTR) 0972 03025000 N REG5,@CF00034 0972 03026000 * IF REG5^=GENCB /* GENCB */ 03027000 * ®5^=MODCB /* MODCB */ 03028000 * ®5^=SHOWCB /* SHOWCB */ 03029000 * ®5^=TESTCB THEN /* TESTCB */ 03030000 LA @09,1 0973 03031000 CR REG5,@09 0973 03032000 BE @RF00973 0973 03033000 C REG5,@CF00112 0973 03034000 BE @RF00973 0973 03035000 C REG5,@CF00102 0973 03036000 BE @RF00973 0973 03037000 C REG5,@CF00256 0973 03038000 BE @RF00973 0973 03039000 * REG0=FUNBLKER; /* SET FUNCTION ERROR */ 03040000 LR REG0,@09 0974 03041000 * ELSE /* BLKERR */ 03042000 * REG0=BLKBTCER; /* NO BLOCK SPECIFIED */ 03043000 B @RC00973 0975 03044000 @RF00973 LA REG0,2 0975 03045000 * GO TO EXITBAD; 0976 03046000 B EXITBAD 0976 03047000 * RESPECIFY 0977 03048000 * REG5 UNRSTD; 0977 03049000 * 0978 03050000 * /*****************************************************************/ 03051000 * /* */ 03052000 * /* EXITBAD- ERROR EXIT ROUTINE PROVIDES EXIT CODE FOR ERROR */ 03053000 * /* CONDITIONS. ISSUES FREEMAIN TO FREE GOTTON STORAGE. FOR TESTCB*/ 03054000 * /* LOADS REGISTER 14 WITH ERROR ADDRESS IF ERET KEYWORD WAS */ 03055000 * /* SPECIFIED. */ 03056000 * /* */ 03057000 * /*****************************************************************/ 03058000 * 0978 03059000 *EXITBAD: 0978 03060000 * RESPECIFY 0978 03061000 * (REG5, 0978 03062000 * REG6) RSTD; 0978 03063000 EXITBAD DS 0H 0979 03064000 * REG5=FTCBTC&VTAMCORR; /* PICK UP FUNCTION CODE */ 03065000 LH REG5,FTCBTC(,RHDRPTR) 0979 03066000 N REG5,@CF00034 0979 03067000 * IF REG5=GENCB& /* GENCB */ 03068000 * GENUSA=ZERO /* USER DID NOT SUPPLY AREA */ 03069000 * &RBLKPTR^=ZERO THEN /* AND I GOT ONE */ 03070000 C REG5,@CF00081 0980 03071000 BNE @RF00980 0980 03072000 SLR @09,@09 0980 03073000 C @09,GENUSA(,RHDRPTR) 0980 03074000 BNE @RF00980 0980 03075000 CR RBLKPTR,@09 0980 03076000 BE @RF00980 0980 03077000 * DO; /* FREE IT */ 03078000 * REG5=REG0; /* SAVE REASON CODE */ 03079000 LR REG5,REG0 0982 03080000 * REG0=ACBLENG*GENCOP; /* SET LENGTH/SUBPOOL ZERO */ 03081000 LH REG0,ACBLENG(,RBLKPTR) 0983 03082000 MH REG0,GENCOP(,RHDRPTR) 0983 03083000 * REG6=REG1; /* SAVE REG1 */ 03084000 LR REG6,REG1 0984 03085000 * REG1=RBLKPTR; /* SET FREEMAIN ADDRESS */ 03086000 LR REG1,RBLKPTR 0985 03087000 * RESPECIFY 0986 03088000 * REG7 RSTD; 0986 03089000 * REG7=REG15; /* SAVE BASE REGISTER */ 03090000 LR REG7,REG15 0987 03091000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREEMAIN */ 03092000 FREEMAIN R,LV=(0),A=(1) 03093000 * REG15=REG7; /* RESTORE BASE REGISTER */ 03094000 LR REG15,REG7 0989 03095000 * RESPECIFY 0990 03096000 * REG7 UNRSTD; 0990 03097000 * REG0=REG5; /* REASON TO REGISTER 0 */ 03098000 LR REG0,REG5 0991 03099000 * REG1=REG6; /* RETURN PARM LIST ADDRESS */ 03100000 LR REG1,REG6 0992 03101000 * END; 0993 03102000 * ELSE /* NOT GENCB/FREEMAIN */ 03103000 * DO; /* NOT GENCB */ 03104000 B @RC00980 0994 03105000 @RF00980 DS 0H 0995 03106000 * IF REG5=TESTCB THEN /* TESTCB */ 03107000 C REG5,@CF00256 0995 03108000 BNE @RF00995 0995 03109000 * IF TESTERET^=ZERO THEN /* ERROR RETURN SPECIFIED */ 03110000 L @09,TESTERET(,RHDRPTR) 0996 03111000 LTR @09,@09 0996 03112000 BZ @RF00996 0996 03113000 * RETURNR=TESTERET; /* SET RETURN ADDRESS */ 03114000 LR RETURNR,@09 0997 03115000 * ELSE 0998 03116000 * ; /* ZERO RETURN ADDRESS */ 03117000 @RF00996 DS 0H 0999 03118000 * ELSE /* NOT TESTCB */ 03119000 * IF REG5=MODCB THEN /* MODCB SPECIFIED */ 03120000 B @RC00995 0999 03121000 @RF00995 C REG5,@CF00112 0999 03122000 BNE @RF00999 0999 03123000 * IF GENBTC=RPL THEN /* RPL */ 03124000 CLI GENBTC(RHDRPTR),192 1000 03125000 BNE @RF01000 1000 03126000 * IF REG0^=RPLISACT /* ERROR IS ACTIVE */ 03127000 * ®0^=BLKERR THEN/* AND POINTING TO AN RPL */ 03128000 C REG0,@CF00529 1001 03129000 BE @RF01001 1001 03130000 C REG0,@CF00256 1001 03131000 BE @RF01001 1001 03132000 * RPLACTIV=ZERO; /* RESET ACTIVE BYTE */ 03133000 MVI RPLACTIV(RBLKPTR),X'00' 1002 03134000 * END; 1003 03135000 @RF01001 DS 0H 1003 03136000 @RF01000 DS 0H 1003 03137000 @RF00999 DS 0H 1003 03138000 @RC00995 DS 0H 1004 03139000 * RETCODER=NOTOKRET; /* SET BAD RETURN CODE */ 03140000 @RC00980 LA RETCODER,4 1004 03141000 * LM(REG2,REG12,REGSAVE); /* RELOAD USERS REGISTERS */ 03142000 LM REG2,REG12,REGSAVE(REG13) 1005 03143000 * GEN(BR REG14) 1006 03144000 * EXIT; /* RETURN TO USER */ 03145000 BR REG14 03146000 * RESPECIFY 1007 03147000 * (REG5, 1007 03148000 * REG6) UNRSTD; 1007 03149000 *GM19C1: 1008 03150000 * 1008 03151000 * /*****************************************************************/ 03152000 * /* */ 03153000 * /* GETMAIN ROUTINE DOES GETMAIN FOR STORAGE IF USER DIS NOT */ 03154000 * /* SUPPLY AREA. OTHERWISE INSURES USER AREA IS LONG ENOUGH AND ON*/ 03155000 * /* FULLWORD BOUNDRY. LENGTH OF 1 BLOCK IS PASSED IN REG5 AS */ 03156000 * /* INPUT. OUTPUT IS RBLKPTR LOADED WITH THE ADDRESS OF THE GOTTEN*/ 03157000 * /* STORAGE. GMLEN FIELD IS SET FOR USE AT EXIT TIME. */ 03158000 * /* */ 03159000 * /*****************************************************************/ 03160000 * 1008 03161000 * RESPECIFY 1008 03162000 * (REG5, 1008 03163000 * REG7, 1008 03164000 * REG9) RSTD; /* @G40AKCM*/ 03165000 GM19C1 DS 0H 1009 03166000 * GEN REFS(GENCOP)(MH REG5,GENCOP(,RHDRPTR));/* FIND TOTAL LENGTH 03167000 * REQUIRED */ 03168000 MH REG5,GENCOP(,RHDRPTR) 03169000 * GMLEN=REG5; /* SET LENGTH FOR GETMAIN */ 03170000 ST REG5,GMLEN(,REG13) 1010 03171000 * IF GENUSA=ZERO THEN /* USER SUPPLY AREA */ 03172000 * 1011 03173000 L @06,GENUSA(,RHDRPTR) 1011 03174000 LTR @06,@06 1011 03175000 BNZ @RF01011 1011 03176000 * /***************************************************************/ 03177000 * /* */ 03178000 * /* OBTAIN STORAGE FOR USER */ 03179000 * /* */ 03180000 * /***************************************************************/ 03181000 * 1012 03182000 * DO; /* NO GET HIM ONE */ 03183000 * GMAPTR=ADDR(GMANS); /* SET ANSWER AREA ADDRESS */ 03184000 LA @06,GMANS(,REG13) 1013 03185000 ST @06,GMAPTR(,REG13) 1013 03186000 * GMMODE=ECMODE; /* SET ECMODE */ 03187000 MVI GMMODE(REG13),X'20' 1014 03188000 * GMSP=SUBPOOL0; /* SET SUBPOOL 0 */ 03189000 MVI GMSP(REG13),X'00' 1015 03190000 * RESPECIFY 1016 03191000 * (REG6) RSTD; 1016 03192000 * REG5=REG1; /* SAVE PARM LIST ADDRESS */ 03193000 LR REG5,REG1 1017 03194000 * REG1=ADDR(GMPL); /* POINT TO LIST */ 03195000 LA REG1,GMPL(,REG13) 1018 03196000 * REG6=REG15; /* SAVE BASE REG */ 03197000 LR REG6,REG15 1019 03198000 * GEN(GETMAIN MF=(E,(1))); /* GET VIRTUAL STORAGE */ 03199000 GETMAIN MF=(E,(1)) 03200000 * REG1=REG15; /* SAVE RETURN CODE */ 03201000 LR REG1,REG15 1021 03202000 * REG15=REG6; /* RESTORE BASE REG */ 03203000 * 1022 03204000 LR REG15,REG6 1022 03205000 * /*************************************************************/ 03206000 * /* */ 03207000 * /* GETMAIN OK? */ 03208000 * /* */ 03209000 * /*************************************************************/ 03210000 * 1023 03211000 * IF REG1^=OK THEN /* GETMAIN OK */ 03212000 LTR REG1,REG1 1023 03213000 BZ @RF01023 1023 03214000 * DO; /* ERROR PROCESS */ 03215000 * REG0=NOSTOR; /* SET ERROR CODE */ 03216000 LA REG0,8 1025 03217000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 03218000 B EXITBAD 1026 03219000 * END; 1027 03220000 * RBLKPTR=GMANS; /* LOAD ADDRESS OF GOTTEN STORAGE*/ 03221000 @RF01023 L RBLKPTR,GMANS(,REG13) 1028 03222000 * REG1=REG5; /* RELOAD PARM LIST ADDR */ 03223000 LR REG1,REG5 1029 03224000 * RESPECIFY 1030 03225000 * (REG6) UNRSTD; 1030 03226000 * END; 1031 03227000 * 1031 03228000 * /*****************************************************************/ 03229000 * /* */ 03230000 * /* INSURE USER AREA LONG ENOUGTH AND ON FULL WORD BOUNDRY */ 03231000 * /* */ 03232000 * /*****************************************************************/ 03233000 * 1032 03234000 * ELSE /* USER SUPPLIED ONE */ 03235000 * DO; /* CHECK IT */ 03236000 B @RC01011 1032 03237000 @RF01011 DS 0H 1033 03238000 * IF REG5>GENUSL THEN /* IS IT LONG ENOUGH */ 03239000 CH REG5,GENUSL(,RHDRPTR) 1033 03240000 BNH @RF01033 1033 03241000 * DO; /* NO, SET ERROR */ 03242000 * REG0=NTENSTOR; /* SET ERROR CODE */ 03243000 LA REG0,9 1035 03244000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 03245000 B EXITBAD 1036 03246000 * END; 1037 03247000 * IF(RBLKPTR&FWRDMASK)^=ZERO THEN/* ON FULLWORD BDY */ 03248000 @RF01033 LR @06,RBLKPTR 1038 03249000 N @06,@CF00102 1038 03250000 LTR @06,@06 1038 03251000 BZ @RF01038 1038 03252000 * DO; /* PROCESS ERROR */ 03253000 * REG0=NTFWDBDY; /* SET ERROR CODE */ 03254000 LA REG0,15 1040 03255000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 03256000 B EXITBAD 1041 03257000 * END; 1042 03258000 * END; 1043 03259000 * 1043 03260000 @RF01038 DS 0H 1044 03261000 * /*****************************************************************/ 03262000 * /* */ 03263000 * /* SET ADDRESSIBILITY TO DEFAULT CONTROL BLOCKS @G40AKCM*/ 03264000 * /* */ 03265000 * /*****************************************************************/ 03266000 * 1044 03267000 * RESPECIFY 1044 03268000 * REG6 RSTD; 1044 03269000 @RC01011 DS 0H 1045 03270000 * REG6=ADDR(IDA019C1)+8190; /* SET UP TEMP BASE REG @G40AKCM*/ 03271000 L REG6,@CA00028 1045 03272000 AL REG6,@CF03362 1045 03273000 * GEN; 1046 03274000 * 1046 03275000 USING IDA019C1+8190,REG6 USE REG6 AS TEMP BASE REG 03276000 EX REG0,DEFCBRTN(REG9) COPY DEFAULT CONTROL BLK 03277000 BR REG10 RETURN TO CALLER 03278000 * /*****************************************************************/ 03279000 * /* */ 03280000 * /* THE FOLLOWING TABLE CONTAINS THE COPY STATEMENTS FOR THE */ 03281000 * /* VARIOUS DEFAULT CONTROL BLOCKS. REG9 SHOULD HAVE THE INDEX */ 03282000 * /* INTO THIS TABLE WHICH SELECTS THE CORRECT STATEMENT TO BE */ 03283000 * /* EXECUTED @G40KSCM*/ 03284000 * /* */ 03285000 * /*****************************************************************/ 03286000 * 1047 03287000 *DEFCBRTN: 1047 03288000 *DVSAMACB: 1047 03289000 * NEWACB=DEFACB; 1047 03290000 DEFCBRTN DS 0H 1047 03291000 DVSAMACB MVC NEWACB(76,RBLKPTR),DEFACB 1047 03292000 *DVTAMACB: 1048 03293000 * NEWVTACB=DEFVTACB; 1048 03294000 DVTAMACB MVC NEWVTACB(88,RBLKPTR),DEFVTACB 1048 03295000 *DVSAMEXL: 1049 03296000 * NEWEXLST=DEFEXLST; 1049 03297000 DVSAMEXL MVC NEWEXLST(40,RBLKPTR),DEFEXLST 1049 03298000 *DVTAMEXL: 1050 03299000 * NEWVTEXL=DEFVTEXL; 1050 03300000 DVTAMEXL MVC NEWVTEXL(70,RBLKPTR),DEFVTEXL 1050 03301000 *DVSAMRPL: 1051 03302000 * NEWRPL=DEFRPL; 1051 03303000 DVSAMRPL MVC NEWRPL(76,RBLKPTR),DEFRPL 1051 03304000 *DVTAMRPL: 1052 03305000 * NEWVTRPL=DEFVTRPL; 1052 03306000 DVTAMRPL MVC NEWVTRPL(112,RBLKPTR),DEFVTRPL 1052 03307000 *DVTAMNIB: 1053 03308000 * NEWNIB=DEFNIB; 1053 03309000 DVTAMNIB MVC NEWNIB(64,RBLKPTR),DEFNIB 1053 03310000 *DVSNOP: 1054 03311000 * GEN(NOP 0); 1054 03312000 * 1054 03313000 DVSNOP NOP 0 03314000 * /*****************************************************************/ 03315000 * /* */ 03316000 * /* END OF COPY ROUTINE @G40KSCM*/ 03317000 * /* */ 03318000 * /*****************************************************************/ 03319000 * 1055 03320000 * GEN(DROP REG6); 1055 03321000 DROP REG6 03322000 * RESPECIFY 1056 03323000 * (REG5, 1056 03324000 * REG7, 1056 03325000 * REG6, 1056 03326000 * REG9) UNRSTD; /* @G40KSCM*/ 03327000 * 1057 03328000 * /*****************************************************************/ 03329000 * /* */ 03330000 * /* BRANCH TABLE FOR KEYWORD PROCESSING */ 03331000 * /* */ 03332000 * /*****************************************************************/ 03333000 * 1057 03334000 *KWBRTAB: 1057 03335000 *KWTYPERR: 1057 03336000 * BC(15,INVKEYWD); /* INVALID KEYWORD */ 03337000 KWBRTAB DS 0H 1057 03338000 KWTYPERR BC 15,INVKEYWD 1057 03339000 *KWTYP01: 1058 03340000 * BC(15,TSTAMDSB); /* KEYWORD TYPE 1 */ 03341000 KWTYP01 BC 15,TSTAMDSB 1058 03342000 *KWTYP02: 1059 03343000 * BC(15,DSPAMDSB); /* KEYWORD TYPE 2 */ 03344000 KWTYP02 BC 15,DSPAMDSB 1059 03345000 *KWTYP03: 1060 03346000 * BC(15,TSTAMDFD); /* KEYWORD TYPE 3 */ 03347000 KWTYP03 BC 15,TSTAMDFD 1060 03348000 *KWTYP04: 1061 03349000 * BC(15,DSPFIELD); /* KEYWORD TYPE 4 */ 03350000 KWTYP04 BC 15,DSPFIELD 1061 03351000 *KWTYP05: 1062 03352000 * BC(15,TSTFIELD); /* KEYWORD TYPE 5 */ 03353000 KWTYP05 BC 15,TSTFIELD 1062 03354000 *KWTYP06: 1063 03355000 * BC(15,MODVTWRD); /* KEYWORD TYPE 6 */ 03356000 KWTYP06 BC 15,MODVTWRD 1063 03357000 *KWTYP07: 1064 03358000 * BC(15,DSPBUFDF); /* KEYWORD TYPE 7 */ 03359000 KWTYP07 BC 15,DSPBUFDF 1064 03360000 *KWTYP08: 1065 03361000 * BC(15,TSTBUFDF); /* KEYWORD TYPE 8 */ 03362000 KWTYP08 BC 15,TSTBUFDF 1065 03363000 *KWTYP09: 1066 03364000 * BC(15,DISPHRBA); /* KEYWORD TYPE 9 */ 03365000 KWTYP09 BC 15,DISPHRBA 1066 03366000 *KWTYP0A: 1067 03367000 * BC(15,TESTHRBA); /* KEYWORD TYPE A */ 03368000 KWTYP0A BC 15,TESTHRBA 1067 03369000 *KWTYP0B: 1068 03370000 * BC(15,MODBITST); /* KEYWORD TYPE B */ 03371000 KWTYP0B BC 15,MODBITST 1068 03372000 *KWTYP0C: 1069 03373000 * BC(15,MODVTHWD); /* KEYWORD TYPE C */ 03374000 KWTYP0C BC 15,MODVTHWD 1069 03375000 *KWTYP0D: 1070 03376000 * BC(15,MODECBFD); /* KEYWORD TYPE D */ 03377000 KWTYP0D BC 15,MODECBFD 1070 03378000 *KWTYP0E: 1071 03379000 * BC(15,TSTBITST); /* KEYWORD TYPE E */ 03380000 KWTYP0E BC 15,TSTBITST 1071 03381000 *KWTYP0F: 1072 03382000 * BC(15,MODVTBYT); /* KEYWORD TYPE F */ 03383000 KWTYP0F BC 15,MODVTBYT 1072 03384000 *KWTYP10: 1073 03385000 * BC(15,DSPPLHFD); /* KEYWORD TYPE 10 */ 03386000 KWTYP10 BC 15,DSPPLHFD 1073 03387000 *KWTYP12: 1074 03388000 * BC(15,TSTAMBLB); /* KEYWORD TYPE 12 */ 03389000 KWTYP12 BC 15,TSTAMBLB 1074 03390000 *KWTYP13: 1075 03391000 * BC(15,DSPEXLFD); /* KEYWORD TYPE 13 */ 03392000 KWTYP13 BC 15,DSPEXLFD 1075 03393000 *KWTYP14: 1076 03394000 * BC(15,TSTEXLFD); /* KEYWORD TYPE 14 */ 03395000 KWTYP14 BC 15,TSTEXLFD 1076 03396000 *KWTYP15: 1077 03397000 * BC(15,MODEXITF); /* KEYWORD TYPE 15 */ 03398000 KWTYP15 BC 15,MODEXITF 1077 03399000 *KWTYP16: 1078 03400000 * BC(15,TSTIOBIT); /* KEYWORD TYPE 16 */ 03401000 KWTYP16 BC 15,TSTIOBIT 1078 03402000 *KWTYP17: 1079 03403000 * BC(15,GENAMTYP); /* KEYWORD TYPE 17 */ 03404000 KWTYP17 BC 15,GENAMTYP 1079 03405000 *KWTYP18: 1080 03406000 * BC(15,DSPVTFLD); /* KEYWORD TYPE 18 */ 03407000 KWTYP18 BC 15,DSPVTFLD 1080 03408000 *KWTYP19: 1081 03409000 * BC(15,TSTVTFLD); /* KEYWORD TYPE 19 */ 03410000 KWTYP19 BC 15,TSTVTFLD 1081 03411000 *KWTYP20: 1082 03412000 * BC(15,TSTVTBIT); /* KEYWORD TYPE 20 */ 03413000 KWTYP20 BC 15,TSTVTBIT 1082 03414000 *KWTYP21: 1083 03415000 * BC(15,DSPBSPHF); /* KEYWORD TYPE 21 */ 03416000 KWTYP21 BC 15,DSPBSPHF 1083 03417000 *KWTYP22: 1084 03418000 * BC(15,TSTBSPHF); /* KEYWORD TYPE 22 */ 03419000 KWTYP22 BC 15,TSTBSPHF 1084 03420000 *KWTYP23: 1085 03421000 * BC(15,MODVTBIT); /* KEYWORD TYPE 23 */ 03422000 KWTYP23 BC 15,MODVTBIT 1085 03423000 *KWTYP24: 1086 03424000 * BC(15,TSTPLHFD); /* KEYWORD TYPE 24 */ 03425000 KWTYP24 BC 15,TSTPLHFD 1086 03426000 *KWTYP26: 1087 03427000 * BC(15,TSTOPTBT); /* KEYWORD TYPE 26 */ 03428000 KWTYP26 BC 15,TSTOPTBT 1087 03429000 *KWTYP28: 1088 03430000 * BC(15,TSTPROCB); /* KEYWORD TYPE 28 */ 03431000 KWTYP28 BC 15,TSTPROCB 1088 03432000 *KWTYP30: 1089 03433000 * BC(15,DSPVTEXL); /* KEYWORD TYPE 30 */ 03434000 KWTYP30 BC 15,DSPVTEXL 1089 03435000 *KWTYP31: 1090 03436000 * BC(15,TSTVTEXL); /* KEYWORD TYPE 31 */ 03437000 KWTYP31 BC 15,TSTVTEXL 1090 03438000 *KWTYP38: 1091 03439000 * BC(15,DSPDDNM); /* KEYWORD TYPE 38 */ 03440000 KWTYP38 BC 15,DSPDDNM 1091 03441000 *KWTYP39: 1092 03442000 * BC(15,TSTDDNM); /* KEYWORD TYPE 39 */ 03443000 KWTYP39 BC 15,TSTDDNM 1092 03444000 *KWTYP3A: 1093 03445000 * BC(15,DSPRKPF); /* KEYWORD TYPE 3A */ 03446000 KWTYP3A BC 15,DSPRKPF 1093 03447000 *KWTYP3B: 1094 03448000 * BC(15,TSTRKPF); /* KEYWORD TYPE 3B */ 03449000 KWTYP3B BC 15,TSTRKPF 1094 03450000 *MACBKWTB: 1095 03451000 * 1095 03452000 * /*****************************************************************/ 03453000 * /* */ 03454000 * /* MODACB- HIGH PERFORMANCE KEYWORDS THESE INSTRUCTIONS ARE NOT */ 03455000 * /* INSTRUCTION SEQUENCES. THESE INSTRUCTIONS ARE EXECUTE TARGETS */ 03456000 * /* AND MUST NEVER CAUSE MULTIPLE ASSEMBLER STATEMENTS TO BE */ 03457000 * /* GENERATED THIS TABLE HAS ONLY 1 INSTRUCTION TO BE EXECUTED FOR*/ 03458000 * /* EACH KEYWORD SPECIFIED FOR MODCB/GENCB OF AN ACB */ 03459000 * /* */ 03460000 * /*****************************************************************/ 03461000 * 1095 03462000 *MAINVKW: 1095 03463000 * BC(15,INVKEYWD); /* ERROR BRANCH */ 03464000 MACBKWTB DS 0H 1095 03465000 MAINVKW BC 15,INVKEYWD 1095 03466000 *MABITSTR: 1096 03467000 * GEN(BAL REG10,MODBITST) 1096 03468000 * FLOWS(MODBITST); /* BIT STRING */ 03469000 MABITSTR BAL REG10,MODBITST 03470000 *MAVTWORD: 1097 03471000 * GEN(BAL REG10,MODVTWRD) 1097 03472000 * FLOWS(MODVTWRD); /* VTAM FWORD */ 03473000 MAVTWORD BAL REG10,MODVTWRD 03474000 *MAVTHWRD: 1098 03475000 * GEN(BAL REG10,MODVTHWD) 1098 03476000 * FLOWS(MODVTHWD); /* VTAM HMORD */ 03477000 MAVTHWRD BAL REG10,MODVTHWD 03478000 *MAVTCHAR: 1099 03479000 * GEN(BAL REG10,MODVTBYT) 1099 03480000 * FLOWS(MODVTBYT); /* VTAM CHAR */ 03481000 MAVTCHAR BAL REG10,MODVTBYT 03482000 *MABUFND: 1100 03483000 * ACBBUFND=USERHWRD; /* SET BUFND TO USER VALUE */ 03484000 MABUFND MVC ACBBUFND(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1100 03485000 *MABUFNI: 1101 03486000 * ACBBUFNI=USERHWRD; /* SET BUFNI TO USER VALUE */ 03487000 MABUFNI MVC ACBBUFNI(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1101 03488000 *MABUFSP: 1102 03489000 * ACBBUFSP=USERWORD; /* SET BUFSP TO USER VALUE */ 03490000 MABUFSP MVC ACBBUFSP(4,RBLKPTR),USERWORD+4(RELEMPTR) 1102 03491000 *MADDNAME: 1103 03492000 * ACBDDNM=USERDWRD; /* SET DDNAME TO USER NAME */ 03493000 MADDNAME MVC ACBDDNM(8,RBLKPTR),USERDWRD+4(RELEMPTR) 1103 03494000 *MAEXLST: 1104 03495000 * ACBUEL=USERWORD; /* SET EXLST ADDRESS TO USER 1104 03496000 * VALUE */ 03497000 MAEXLST MVC ACBUEL(4,RBLKPTR),USERWORD+4(RELEMPTR) 1104 03498000 *MAMAREA: 1105 03499000 * ACBMSGAR=USERWORD; /* SET MSG AREA TO USER VALUE */ 03500000 MAMAREA MVC ACBMSGAR(4,RBLKPTR),USERWORD+4(RELEMPTR) 1105 03501000 *MAMLEN: 1106 03502000 * ACBMSGLN=USERHWRD; /* SET MSG AREA LENGTH */ 03503000 MAMLEN MVC ACBMSGLN(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1106 03504000 *MAPASSWD: 1107 03505000 * ACBPASSW=USERWORD; /* SET PASSWORD ADDRESS TO USER 03506000 * VALUE */ 03507000 MAPASSWD MVC ACBPASSW(4,RBLKPTR),USERWORD+4(RELEMPTR) 1107 03508000 *MASTRNO: 1108 03509000 * GEN(MVC ACBSTRNO(1,RBLKPTR),USERCHAR+4(RELEMPTR)) 1108 03510000 * SETS(ACBSTRNO) REFS(USERCHAR); /* SET STRNO TO USER VALUE */ 03511000 MASTRNO MVC ACBSTRNO(1,RBLKPTR),USERCHAR+4(RELEMPTR) 03512000 *MABSTRNO: 1109 03513000 * GEN(MVC ACBBSTNO(1,RBLKPTR),USERCHAR+4(RELEMPTR)) 1109 03514000 * SETS(ACBBSTNO) REFS(USERCHAR); /* SET BSTRNO TO USER VALUE */ 03515000 MABSTRNO MVC ACBBSTNO(1,RBLKPTR),USERCHAR+4(RELEMPTR) 03516000 *MAUSERPT: 1110 03517000 * ACBUAPTR=USERWORD; /* SET USER PTR TO USER VALUE */ 03518000 MAUSERPT MVC ACBUAPTR(4,RBLKPTR),USERWORD+4(RELEMPTR) 1110 03519000 *MAJFCB: 1111 03520000 * ACBUJFCB=USERWORD; /* SET POINTER TO JFCB TO USER 1111 03521000 * VALUE */ 03522000 MAJFCB MVC ACBUJFCB(4,RBLKPTR),USERWORD+4(RELEMPTR) 1111 03523000 *MAAM: 1112 03524000 * GEN(BAL REG10,GENAMTYP) 1112 03525000 * FLOWS(GENAMTYP); /* AM */ 03526000 MAAM BAL REG10,GENAMTYP 03527000 *MRPLKWTB: 1113 03528000 * 1113 03529000 * /*****************************************************************/ 03530000 * /* */ 03531000 * /* MODRPL-HIGH PERFORMANCE KEYWORDS THESE INSTRUCTIONS ARE NOT */ 03532000 * /* INSTRUCTION SEQUENCES. THESE INSTRUCTIONS ARE EXECUTE TARGETS */ 03533000 * /* AND MUST NEVER CAUSE MULTIPLE ASSEMBLER STATEMENTS TO BE */ 03534000 * /* GENERATED THIS TABLE HAS ONLY 1 INSTRUCTION TO BE EXECUTED FOR*/ 03535000 * /* EACH KEYWORD SPECIFIED FOR MODCB/GENCB OF AN ACB */ 03536000 * /* */ 03537000 * /*****************************************************************/ 03538000 * 1113 03539000 *MRINVKW: 1113 03540000 * BC(15,INVKEYWD); /* ERROR BRANCH */ 03541000 MRPLKWTB DS 0H 1113 03542000 MRINVKW BC 15,INVKEYWD 1113 03543000 *MRBITSTR: 1114 03544000 * GEN FLOWS(MODBITST)(BAL REG10,MODBITST);/* BIT STRING */ 03545000 MRBITSTR BAL REG10,MODBITST 03546000 *MRVTBITS: 1115 03547000 * GEN FLOWS(MODVTBIT)(BAL REG10,MODVTBIT);/* VTAM BIT STRING */ 03548000 MRVTBITS BAL REG10,MODVTBIT 03549000 *MRVTWORD: 1116 03550000 * GEN FLOWS(MODVTWRD)(BAL REG10,MODVTWRD);/* VTAM FWORD */ 03551000 MRVTWORD BAL REG10,MODVTWRD 03552000 *MRVTHWRD: 1117 03553000 * GEN FLOWS(MODVTHWD)(BAL REG10,MODVTHWD);/* VTAM HMORD */ 03554000 MRVTHWRD BAL REG10,MODVTHWD 03555000 *MRVTCHAR: 1118 03556000 * GEN FLOWS(MODVTBYT)(BAL REG10,MODVTBYT);/* VTAM CHAR */ 03557000 MRVTCHAR BAL REG10,MODVTBYT 03558000 *MRACB: 1119 03559000 * RPLDACB=USERWORD; /* SET POINTER TO USER VALUE */ 03560000 MRACB MVC RPLDACB(4,RBLKPTR),USERWORD+4(RELEMPTR) 1119 03561000 *MRAREA: 1120 03562000 * RPLAREA=USERWORD; /* SET POINTER TO USER VALUE */ 03563000 MRAREA MVC RPLAREA(4,RBLKPTR),USERWORD+4(RELEMPTR) 1120 03564000 *MRAREALN: 1121 03565000 * RPLBUFL=USERWORD; /* SET BUFFER LENGTH TO USER 1121 03566000 * VALUE */ 03567000 MRAREALN MVC RPLBUFL(4,RBLKPTR),USERWORD+4(RELEMPTR) 1121 03568000 *MRARG: 1122 03569000 * GEN(BAL REG10,MODARG); /* SET POINTER TO USER ARGUMENT */ 03570000 MRARG BAL REG10,MODARG 03571000 *MRNIB: 1123 03572000 * GEN(BAL REG10,MODNIB); /* SET POINTER TO NIB */ 03573000 MRNIB BAL REG10,MODNIB 03574000 *MRECB: 1124 03575000 * GEN FLOWS(MODECBFD)(BAL REG10,MODECBFD);/* SET POINTER TO USER 1124 03576000 * ECB */ 03577000 MRECB BAL REG10,MODECBFD 03578000 *MRKEYLN: 1125 03579000 * RPLKEYL=USERHWRD; /* SET KEYLENGTH TO USER VALUE */ 03580000 MRKEYLN MVC RPLKEYL(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1125 03581000 *MRMSGARE: 1126 03582000 * RPLERMSA=USERWORD; /* SET POINTER TO USER MSG AREA */ 03583000 MRMSGARE MVC RPLERMSA(4,RBLKPTR),USERWORD+4(RELEMPTR) 1126 03584000 *MRMSGLEN: 1127 03585000 * RPLEMLEN=USERHWRD; /* SET MSG AREA LENGTH TO USER 1127 03586000 * VALUE */ 03587000 MRMSGLEN MVC RPLEMLEN(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1127 03588000 *MRRPLCHA: 1128 03589000 * RPLCHAIN=USERWORD; /* SET CHAIN FIELD */ 03590000 MRRPLCHA MVC RPLCHAIN(4,RBLKPTR),USERWORD+4(RELEMPTR) 1128 03591000 *MRRECLEN: 1129 03592000 * RPLRLEN=USERWORD; /* SET RECORD LENGTH FIELD */ 03593000 MRRECLEN MVC RPLRLEN(4,RBLKPTR),USERWORD+4(RELEMPTR) 1129 03594000 *MRTRANSI: 1130 03595000 * RPLSTRID=USERHWRD; /* SET TRANS ID */ 03596000 MRTRANSI MVC RPLSTRID(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1130 03597000 *MRAM: 1131 03598000 * GEN FLOWS(GENAMTYP)(BAL REG10,GENAMTYP);/* AM */ 03599000 MRAM BAL REG10,GENAMTYP 03600000 *MREXIT: 1132 03601000 * GEN FLOWS(MODEXITF)(BAL REG10,MODEXITF);/* PROCESS EXIT KEYWORD */ 03602000 MREXIT BAL REG10,MODEXITF 03603000 *MROPTCD: 1133 03604000 * GEN FLOWS(MODOPTBT)(BAL REG10,MODOPTBT);/* PROCESS OPTCD KEYWORD */ 03605000 MROPTCD BAL REG10,MODOPTBT 03606000 *MNIBKWTB: 1134 03607000 * 1134 03608000 * /*****************************************************************/ 03609000 * /* */ 03610000 * /* MODNIB-HIGH PERFORMANCE KEYWORDS THESE INSTRUCTIONS ARE NOT */ 03611000 * /* INSTRUCTION SEQUENCES. THESE INSTRUCTIONS ARE EXECUTE TARGETS */ 03612000 * /* AND MUST NEVER CAUSE MULTIPLE ASSEMBLER STATEMENTS TO BE */ 03613000 * /* GENERATED THIS TABLE HAS ONLY 1 INSTRUCTION TO BE EXECUTED FOR*/ 03614000 * /* EACH KEYWORD SPECIFIED FOR MODCB/GENCB OF AN ACB */ 03615000 * /* */ 03616000 * /*****************************************************************/ 03617000 * 1134 03618000 *MNINVKW: 1134 03619000 * BC(15,INVKEYWD); /* ERROR BRANCH */ 03620000 MNIBKWTB DS 0H 1134 03621000 MNINVKW BC 15,INVKEYWD 1134 03622000 *MNBITSTR: 1135 03623000 * GEN(BAL REG10,MODBITST) 1135 03624000 * FLOWS(MODBITST); /* BIT STRING */ 03625000 MNBITSTR BAL REG10,MODBITST 03626000 *MNUSERFI: 1136 03627000 * NIBUSER=USERWORD; /* SET POINTER TO USER FIELD */ 03628000 MNUSERFI MVC NIBUSER(4,RBLKPTR),USERWORD+4(RELEMPTR) 1136 03629000 *MNMODE: 1137 03630000 * NIBMODE=USERDWRD; /* COPY FILED TO NIB */ 03631000 MNMODE MVC NIBMODE(8,RBLKPTR),USERDWRD+4(RELEMPTR) 1137 03632000 *MNCONDN: 1138 03633000 * NIBCONDN=USERCHAR; /* COPY CHAR */ 03634000 MNCONDN MVC NIBCONDN(1,RBLKPTR),USERCHAR+4(RELEMPTR) 1138 03635000 *MNNAME: 1139 03636000 * NIBSYM=USERDWRD; /* COPY FIELD TO NIB */ 03637000 MNNAME MVC NIBSYM(8,RBLKPTR),USERDWRD+4(RELEMPTR) 1139 03638000 *MNEXLST: 1140 03639000 * NIBEXLST=USERWORD; /* SET POINTER TO USER VALUE */ 03640000 MNEXLST MVC NIBEXLST(4,RBLKPTR),USERWORD+4(RELEMPTR) 1140 03641000 *MNRESPLI: 1141 03642000 * NIBLIMIT=USERHWRD; /* SET LIMIT TO USER VALUE */ 03643000 MNRESPLI MVC NIBLIMIT(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1141 03644000 *MNPROC: 1142 03645000 * GEN FLOWS(MODPROCB)(BAL REG10,MODPROCB);/* PROCESS PROC KEYWORD */ 03646000 MNPROC BAL REG10,MODPROCB 03647000 *MNLOGMOD: 1143 03648000 * NIBLMODE=USERDWRD; /* SET LOGMODE FIELD */ 03649000 MNLOGMOD MVC NIBLMODE(8,RBLKPTR),USERDWRD+4(RELEMPTR) 1143 03650000 *MNBNDAR: 1144 03651000 * NIBNDAR=USERWORD; /* SET BNDAREA */ 03652000 MNBNDAR MVC NIBNDAR(4,RBLKPTR),USERWORD+4(RELEMPTR) 1144 03653000 *MEXLBRTB: 1145 03654000 * 1145 03655000 * /*****************************************************************/ 03656000 * /* */ 03657000 * /* BRANCH FOR MODCB FOR EXLST */ 03658000 * /* */ 03659000 * /*****************************************************************/ 03660000 * 1145 03661000 * BC(15,INVKEYWD); /* INVALID KEYWORD */ 03662000 MEXLBRTB BC 15,INVKEYWD 1145 03663000 *MEAM: 1146 03664000 * BC(15,GENAMTYP); 1146 03665000 MEAM BC 15,GENAMTYP 1146 03666000 * ; /* SET AM SUB TYPE AS REQUESTED */ 03667000 *MEVT: 1148 03668000 * BC(15,MODVTEXL); /* TEST FOR VTAM */ 03669000 MEVT BC 15,MODVTEXL 1148 03670000 *MENRM: 1149 03671000 * BC(15,MODEXLKW); /* PROCESS KEYWORDS */ 03672000 MENRM BC 15,MODEXLKW 1149 03673000 *MEXLLEN: 1150 03674000 * BC(15,MODEXLEN); /* SET EXLST LENGTH */ 03675000 MEXLLEN BC 15,MODEXLEN 1150 03676000 *MEXLVTLN: 1151 03677000 * BC(15,MODVTELN); /* SET VTAM EXLST LENGTH */ 03678000 MEXLVTLN BC 15,MODVTELN 1151 03679000 *GEXLBRTB: 1152 03680000 * 1152 03681000 * /*****************************************************************/ 03682000 * /* */ 03683000 * /* BRANCH FOR GENCB FOR EXLST FOR OFFSET PASS */ 03684000 * /* */ 03685000 * /*****************************************************************/ 03686000 * 1152 03687000 * BC(15,INVKEYWD); /* INVALID KEYWORD */ 03688000 GEXLBRTB BC 15,INVKEYWD 1152 03689000 * GEN(B 0(,REG10)); /* RETURN AS NO ACTION FOR AM 1153 03690000 * KEYW0RD */ 03691000 B 0(,REG10) 03692000 * BC(15,GEXLVTOF); /* CHECK FOR VTAM SPECIFIED */ 03693000 BC 15,GEXLVTOF 1154 03694000 * BC(15,GEXLKWOF); /* PROCESS KEYWORDS FOR OFFSET */ 03695000 BC 15,GEXLKWOF 1155 03696000 * BC(15,INVKEYWD); /* EXLLEN KEYWORD */ 03697000 BC 15,INVKEYWD 1156 03698000 * BC(15,INVKEYWD); /* SET VTAM EXLST LENGTH */ 03699000 BC 15,INVKEYWD 1157 03700000 *G2EXBRTB: 1158 03701000 * 1158 03702000 * /*****************************************************************/ 03703000 * /* */ 03704000 * /* BRANCH FOR GENCB FOR EXLST FOR ACTION PASS */ 03705000 * /* */ 03706000 * /*****************************************************************/ 03707000 * 1158 03708000 * BC(15,INVKEYWD); /* INVALID KEYWORD */ 03709000 G2EXBRTB BC 15,INVKEYWD 1158 03710000 * BC(15,GENAMTYP); /* AM KEYW0RD */ 03711000 BC 15,GENAMTYP 1159 03712000 * BC(15,GEXLKWAC); /* PROCESS KEYWORDS FOR ACTION */ 03713000 BC 15,GEXLKWAC 1160 03714000 * BC(15,GEXLKWAC); /* PROCESS KEYWORDS FOR ACTION */ 03715000 BC 15,GEXLKWAC 1161 03716000 * GEN(B 0(,REG10)); /* EXLLEN KEYW0RD */ 03717000 B 0(,REG10) 03718000 * GEN(B 0(,REG10)); /* VTAM EXLLEN KEYW0RD */ 03719000 B 0(,REG10) 03720000 *TSTAMDSB: 1164 03721000 * 1164 03722000 * /*****************************************************************/ 03723000 * /* */ 03724000 * /* TSTAMDSB- TEST BITS IN AMDSB. POINTS RBLKPTR TO THE AMDSB AND */ 03725000 * /* GOES TO TSTBITST TO TEST BIT STRINGS. */ 03726000 * /* */ 03727000 * /*****************************************************************/ 03728000 * 1164 03729000 * REG0=REG10; /* SAVE RETURN ADD */ 03730000 TSTAMDSB LR REG0,REG10 1164 03731000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 03732000 BAL REG10,PTAMB 03733000 * RBLKPTR=AMBDSB; /* SET POINTER TO AMDSB */ 03734000 L RBLKPTR,AMBDSB(,RBLKPTR) 1166 03735000 * GEN FLOWS(TSTBITST)(BAL REG10,TSTBITST);/* TESTBIT S */ 03736000 BAL REG10,TSTBITST 03737000 * RBLKPTR=TESTBLAD; /* RELOAD BLOCK PTR */ 03738000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1168 03739000 * REG10=REG0; /* RELOAD RETURN REGISTER */ 03740000 LR REG10,REG0 1169 03741000 * GEN(BR REG10); /* RETURN TO CALLER */ 03742000 BR REG10 03743000 *DSPAMDSB: 1171 03744000 * 1171 03745000 * /*****************************************************************/ 03746000 * /* */ 03747000 * /* DSPAMDSB-DISPLAY FIELDS IN THE AMDSB */ 03748000 * /* */ 03749000 * /*****************************************************************/ 03750000 * 1171 03751000 * REG0=REG10; /* SAVE RETURN ADDR */ 03752000 * 1171 03753000 DSPAMDSB LR REG0,REG10 1171 03754000 * /*****************************************************************/ 03755000 * /* */ 03756000 * /* POINT TO THE AMDSB */ 03757000 * /* */ 03758000 * /*****************************************************************/ 03759000 * 1172 03760000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 03761000 BAL REG10,PTAMB 03762000 * RBLKPTR=AMBDSB; /* SET POINTER TO AMDSB */ 03763000 * 1173 03764000 L RBLKPTR,AMBDSB(,RBLKPTR) 1173 03765000 * /*****************************************************************/ 03766000 * /* */ 03767000 * /* DISPLAY REQUESTED FIELD */ 03768000 * /* */ 03769000 * /*****************************************************************/ 03770000 * 1174 03771000 * GEN(BAL REG10,DSPFIELD) 1174 03772000 * FLOWS(DSPFIELD); 1174 03773000 BAL REG10,DSPFIELD 03774000 * RBLKPTR=SHOWBLAD; /* RELOAD BLOCK PTR */ 03775000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1175 03776000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 03777000 LR REG10,REG0 1176 03778000 * GEN(BR REG10); /* RETURN TO CALLER */ 03779000 BR REG10 03780000 *TSTAMDFD: 1178 03781000 * 1178 03782000 * /*****************************************************************/ 03783000 * /* */ 03784000 * /* TEST FIELDS IN THE AMDSB */ 03785000 * /* */ 03786000 * /*****************************************************************/ 03787000 * 1178 03788000 * REG0=REG10; /* SAVE RETURN ADDR */ 03789000 TSTAMDFD LR REG0,REG10 1178 03790000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 03791000 BAL REG10,PTAMB 03792000 * RBLKPTR=AMBDSB; /* SET POINTER TO AMDSB */ 03793000 L RBLKPTR,AMBDSB(,RBLKPTR) 1180 03794000 * GEN FLOWS(TSTFIELD)(BAL REG10,TSTFIELD);/* TEST FLD */ 03795000 BAL REG10,TSTFIELD 03796000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 03797000 LR REG10,REG0 1182 03798000 * GEN(BR REG10); /* RETURN TO CALLER */ 03799000 BR REG10 03800000 *DSPVTFLD: 1184 03801000 * 1184 03802000 * /*****************************************************************/ 03803000 * /* */ 03804000 * /* TEST FOR VTAM FIRST- THEN DISPLAY FIELDS IN BLOCKS */ 03805000 * /* */ 03806000 * /*****************************************************************/ 03807000 * 1184 03808000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 03809000 DSPVTFLD TM VTAMSW+1(RHDRPTR),B'00010000' 1184 03810000 BNZ @RF01184 1184 03811000 * DO; /* NO, PROCESS ERROR */ 03812000 * REG0=VTAMONLY; /* SET ERROR CODE */ 03813000 LA REG0,16 1186 03814000 * GO TO EXITBAD; 1187 03815000 B EXITBAD 1187 03816000 * END; 1188 03817000 *DSPFIELD: 1189 03818000 * 1189 03819000 * /*****************************************************************/ 03820000 * /* */ 03821000 * /* DSPFIELD-DISPLAY FIELDS */ 03822000 * /* */ 03823000 * /*****************************************************************/ 03824000 * 1189 03825000 * RESPECIFY 1189 03826000 * (REG5) RSTD; 1189 03827000 * 1189 03828000 @RF01184 DS 0H 1189 03829000 DSPFIELD DS 0H 1190 03830000 * /*****************************************************************/ 03831000 * /* */ 03832000 * /* SEE IF ROOM IN SHOWAREA */ 03833000 * /* */ 03834000 * /*****************************************************************/ 03835000 * 1190 03836000 * REG5=ZERO; /* ZERO WORK REGISTER */ 03837000 SLR REG5,REG5 1190 03838000 * GEN REFS(FLDLEN,REG11)(IC REG5,FLDLEN(REG11));/* LOAD LENGTH */ 03839000 IC REG5,FLDLEN(REG11) 03840000 * RESPECIFY 1192 03841000 * REG6 RSTD; 1192 03842000 * 1192 03843000 * /*****************************************************************/ 03844000 * /* */ 03845000 * /* DETERMINE IF ROOM IN SHOWAREA */ 03846000 * /* */ 03847000 * /*****************************************************************/ 03848000 * 1193 03849000 * REG6=SHOWUSE; /* GET USED BYTES */ 03850000 LH REG6,SHOWUSE(,REG13) 1193 03851000 * RESPECIFY 1194 03852000 * REG7 RSTD; 1194 03853000 * REG7=SHOWUSA+REG6; /* SET ADDRESS OF FIELD */ 03854000 LR REG7,REG6 1195 03855000 AL REG7,SHOWUSA(,RHDRPTR) 1195 03856000 * IF REG5>FWORDL THEN /* GREATER THAN FOUR BYTES */ 03857000 C REG5,@CF00256 1196 03858000 BNH @RF01196 1196 03859000 * REG6=REG6+DWORDL; /* ADD LENGTH */ 03860000 AL REG6,@CF00037 1197 03861000 * ELSE /* LESS THAN FOUR */ 03862000 * REG6=REG6+FWORDL; /* ADD LENGTH */ 03863000 B @RC01196 1198 03864000 @RF01196 AL REG6,@CF00256 1198 03865000 * IF REG6>SHOWUSL THEN /* ROOM LEFT */ 03866000 @RC01196 CH REG6,SHOWUSL(,RHDRPTR) 1199 03867000 BNH @RF01199 1199 03868000 * DO; /* NO ROOM */ 03869000 * REG0=NTENSTOR; /* SET ERROR CODE */ 03870000 LA REG0,9 1201 03871000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 03872000 B EXITBAD 1202 03873000 * END; 1203 03874000 * 1203 03875000 * /*****************************************************************/ 03876000 * /* */ 03877000 * /* UPDATE NUMBER OF BYTES USED */ 03878000 * /* */ 03879000 * /*****************************************************************/ 03880000 * 1204 03881000 * SHOWUSE=REG6; /* SAVE USED BYTES */ 03882000 @RF01199 STH REG6,SHOWUSE(,REG13) 1204 03883000 * SHOWWORD=REG8; /* ZERO RECEIVING FIELD */ 03884000 STCM REG8,15,SHOWWORD(REG7) 1205 03885000 * REG7=SHOWUSA+REG6-REG5; /* SET ADDRESS OF RECEIVING FIELD*/ 03886000 * 1206 03887000 LR REG7,REG6 1206 03888000 AL REG7,SHOWUSA(,RHDRPTR) 1206 03889000 SLR REG7,REG5 1206 03890000 * /*****************************************************************/ 03891000 * /* */ 03892000 * /* CALCULATE ADDRESS OF FIELD */ 03893000 * /* */ 03894000 * /*****************************************************************/ 03895000 * 1207 03896000 * GEN REFS(FLDOFF)(IC REG8,FLDOFF(REG11));/* PICK FIELD OFFSET */ 03897000 IC REG8,FLDOFF(REG11) 03898000 * REG6=RBLKPTR+REG8; /* SET ADDRESS OF FIELD */ 03899000 * 1208 03900000 LR REG6,RBLKPTR 1208 03901000 ALR REG6,REG8 1208 03902000 * /*****************************************************************/ 03903000 * /* */ 03904000 * /* MOVE FIELD */ 03905000 * /* */ 03906000 * /*****************************************************************/ 03907000 * 1209 03908000 * SHOWAREA(ONE:REG5)=SHOWFLD(ONE:REG5);/* DISPLAY FIELD */ 03909000 LR @09,REG5 1209 03910000 BCTR @09,0 1209 03911000 EX @09,@SM04276 1209 03912000 * GEN(BR REG10); /* RETURN TO CALLER */ 03913000 BR REG10 03914000 * RESPECIFY 1211 03915000 * (REG5, 1211 03916000 * REG6, 1211 03917000 * REG7) UNRSTD; 1211 03918000 *TSTVTFLD: 1212 03919000 * 1212 03920000 * /*****************************************************************/ 03921000 * /* */ 03922000 * /* TEST FOR VTAM FIRST- THEN COMPARE FIELDS IN BLOCKS */ 03923000 * /* */ 03924000 * /*****************************************************************/ 03925000 * 1212 03926000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 03927000 TSTVTFLD TM VTAMSW+1(RHDRPTR),B'00010000' 1212 03928000 BNZ @RF01212 1212 03929000 * DO; /* NO, PROCESS ERROR */ 03930000 * REG0=VTAMONLY; /* SET ERROR CODE */ 03931000 LA REG0,16 1214 03932000 * GO TO EXITBAD; 1215 03933000 B EXITBAD 1215 03934000 * END; 1216 03935000 *TSTFIELD: 1217 03936000 * 1217 03937000 * /*****************************************************************/ 03938000 * /* */ 03939000 * /* TSTFIELD- COMPARE CHARACTER STRINGS */ 03940000 * /* */ 03941000 * /*****************************************************************/ 03942000 * 1217 03943000 * RESPECIFY 1217 03944000 * (REG5) RSTD; 1217 03945000 @RF01212 DS 0H 1217 03946000 TSTFIELD DS 0H 1218 03947000 * REG5=ZERO; /* ZERO WORK REGISTER */ 03948000 SLR REG5,REG5 1218 03949000 * GEN REFS(FLDLEN)(IC REG5,FLDLEN(REG11));/* PICK UP FLDLEN */ 03950000 IC REG5,FLDLEN(REG11) 03951000 * RESPECIFY 1220 03952000 * REG7 RSTD; 1220 03953000 * 1220 03954000 * /*****************************************************************/ 03955000 * /* */ 03956000 * /* CALCULATE ADDRESS FOR COMPARE */ 03957000 * /* */ 03958000 * /*****************************************************************/ 03959000 * 1221 03960000 * IF REG5>FWORDL THEN /* FIELD GREATER THAN FOUR BYTES */ 03961000 C REG5,@CF00256 1221 03962000 BNH @RF01221 1221 03963000 * REG7=DWORDL; /* SET FIELD LENGTH TO DOUBLE 1222 03964000 * WORD */ 03965000 LA REG7,8 1222 03966000 * ELSE /* FOUR OR LESS */ 03967000 * REG7=FWORDL; /* SET FIELD LENGTH TO FULL WORD */ 03968000 B @RC01221 1223 03969000 @RF01221 LA REG7,4 1223 03970000 * RESPECIFY 1224 03971000 * REG6 RSTD; 1224 03972000 @RC01221 DS 0H 1225 03973000 * REG6=ADDR(ELEMCSTR)+REG7-REG5; /* SET ADDRESS OF USER FIELD */ 03974000 LA REG6,ELEMCSTR(,RELEMPTR) 1225 03975000 ALR REG6,REG7 1225 03976000 SLR REG6,REG5 1225 03977000 * GEN REFS(FLDOFF)(IC REG7,FLDOFF(REG11));/* PICK UP OFFSET */ 03978000 IC REG7,FLDOFF(REG11) 03979000 * REG7=REG7+RBLKPTR; /* SET FIELD ADDRESS */ 03980000 * 1227 03981000 ALR REG7,RBLKPTR 1227 03982000 * /*****************************************************************/ 03983000 * /* */ 03984000 * /* COMPARE AND SET CONDITION CODES */ 03985000 * /* */ 03986000 * /*****************************************************************/ 03987000 * 1228 03988000 * IF USTSFLD(ONE:REG5)RPLLEN THEN /* OFFSET TOO LARGE FOR BLOCK */ 04040000 SLR @09,@09 1244 04041000 IC @09,RPLLEN(,RBLKPTR) 1244 04042000 CR REG8,@09 1244 04043000 BNH @RF01244 1244 04044000 * DO; /* PROCESS ERROR */ 04045000 * REG0=BLKNTLG; /* SET ERROR CODE */ 04046000 LA REG0,19 1246 04047000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04048000 B EXITBAD 1247 04049000 * END; 1248 04050000 * 1248 04051000 * /*****************************************************************/ 04052000 * /* */ 04053000 * /* MOVE FIELD */ 04054000 * /* */ 04055000 * /*****************************************************************/ 04056000 * 1249 04057000 * REG5=ELEMFIX; /* PICK UP REPLACEMENT FIELD */ 04058000 @RF01244 L REG5,ELEMFIX(,RELEMPTR) 1249 04059000 * GEN(ST REG5,FWORDFLD(REG8,RBLKPTR)) 1250 04060000 * SETS(FWORDFLD); /* STORE NEW FIELD */ 04061000 ST REG5,FWORDFLD(REG8,RBLKPTR) 04062000 * GEN(BR REG10); /* RETURN TO CALLER */ 04063000 BR REG10 04064000 * RESPECIFY 1252 04065000 * REG5 UNRSTD; 1252 04066000 * 1253 04067000 * /*****************************************************************/ 04068000 * /* */ 04069000 * /* POINT TO IDABSPH FOR DBDC BUFFER INFORMATION KEYWORDS FOR LSR */ 04070000 * /* AND GSR SHARED RESOURCE POOLS */ 04071000 * /* */ 04072000 * /*****************************************************************/ 04073000 * 1253 04074000 *DSPBSPHF: 1253 04075000 * IF ACBLSR=OFF /* NOT CONNECTED TO LSR POOL */ 04076000 * &ACBGSR=OFF THEN /* AND NOT CONNECTED TO GSR 1253 04077000 * POOL(MVS ONLY) */ 04078000 DSPBSPHF TM ACBLSR(RBLKPTR),B'01100000' 1253 04079000 BNZ @RF01253 1253 04080000 * DO; /* ERROR SO PROCESS */ 04081000 * REG0=NOTSR; /* SET ERROR CODE */ 04082000 LA REG0,20 1255 04083000 * GO TO EXITBAD; /* RETURN WITH ERROR */ 04084000 B EXITBAD 1256 04085000 * END; 1257 04086000 *DSPBUFDF: 1258 04087000 * 1258 04088000 * /*****************************************************************/ 04089000 * /* */ 04090000 * /* ROUTINE POINTS TO BSPH OR BUFHDR AND DISPLAYS FIELDS FROM THEM*/ 04091000 * /* */ 04092000 * /*****************************************************************/ 04093000 * 1258 04094000 * REG0=REG10; /* SAVE RETURN ADDR */ 04095000 @RF01253 DS 0H 1258 04096000 DSPBUFDF LR REG0,REG10 1258 04097000 * GEN(BAL REG10,PTAMB) 1259 04098000 * FLOWS(PTAMB); 1259 04099000 BAL REG10,PTAMB 04100000 * RBLKPTR=AMBBUFC; /* POINT TO BUFFER HEADER */ 04101000 L RBLKPTR,AMBBUFC(,RBLKPTR) 1260 04102000 * GEN(BAL REG10,DSPFIELD) 1261 04103000 * FLOWS(DSPFIELD); /* DISPLAY FIELD */ 04104000 BAL REG10,DSPFIELD 04105000 * RBLKPTR=SHOWBLAD; /* RESTORE BLOCK PTR */ 04106000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1262 04107000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 04108000 LR REG10,REG0 1263 04109000 * GEN(BR REG10); /* RETURN TO CALLER */ 04110000 BR REG10 04111000 *TSTBSPHF: 1265 04112000 * 1265 04113000 * /*****************************************************************/ 04114000 * /* */ 04115000 * /* POINT TO IDABSPH FOR DBDC BUFFER INFORMATION KEYWORDS FOR LSR */ 04116000 * /* AND GSR SHARED RESOURCE POOLS */ 04117000 * /* */ 04118000 * /*****************************************************************/ 04119000 * 1265 04120000 * IF ACBLSR=OFF /* NOT CONNECTED TO LSR POOL */ 04121000 * &ACBGSR=OFF THEN /* AND NOT CONNECTED TO GSR 1265 04122000 * POOL(MVS ONLY) */ 04123000 TSTBSPHF TM ACBLSR(RBLKPTR),B'01100000' 1265 04124000 BNZ @RF01265 1265 04125000 * DO; /* ERROR SO PROCESS */ 04126000 * REG0=NOTSR; /* SET ERROR CODE */ 04127000 LA REG0,20 1267 04128000 * GO TO EXITBAD; /* RETURN WITH ERROR */ 04129000 B EXITBAD 1268 04130000 * END; 1269 04131000 *TSTBUFDF: 1270 04132000 * 1270 04133000 * /*****************************************************************/ 04134000 * /* */ 04135000 * /* ROUTINE POINTS TO BSPH OR BUFDR AND TESTS FIELDS FROM THEM */ 04136000 * /* */ 04137000 * /*****************************************************************/ 04138000 * 1270 04139000 * REG0=REG10; /* SAVE RETURN ADDR */ 04140000 @RF01265 DS 0H 1270 04141000 TSTBUFDF LR REG0,REG10 1270 04142000 * GEN(BAL REG10,PTAMB) 1271 04143000 * FLOWS(PTAMB); /* POINT TO BLOCK */ 04144000 BAL REG10,PTAMB 04145000 * RBLKPTR=AMBBUFC; /* POINT TO BUFFER HEADER */ 04146000 L RBLKPTR,AMBBUFC(,RBLKPTR) 1272 04147000 * GEN(BAL REG10,TSTFIELD) 1273 04148000 * FLOWS(TSTFIELD); /* TEST FIELD */ 04149000 BAL REG10,TSTFIELD 04150000 * RBLKPTR=TESTBLAD; /* RESTORE BLOCK PTR */ 04151000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1274 04152000 * REG10=REG0; /* RESTORE RETURN ADDRESS */ 04153000 LR REG10,REG0 1275 04154000 * GEN(BR REG10); /* RETURN TO USER */ 04155000 BR REG10 04156000 *DISPHRBA: 1277 04157000 * 1277 04158000 * /*****************************************************************/ 04159000 * /* */ 04160000 * /* DISPLAY HIGHRBA LOCATES ARDB WITH THE HIGHEST USED RBA AND */ 04161000 * /* DISPLAYS THAT RBA IN SHOWAREA */ 04162000 * /* */ 04163000 * /*****************************************************************/ 04164000 * 1277 04165000 * REG0=REG10; /* SAVE RETURN ADDR */ 04166000 * 1277 04167000 DISPHRBA LR REG0,REG10 1277 04168000 * /*****************************************************************/ 04169000 * /* */ 04170000 * /* POINT TO THE AMB */ 04171000 * /* */ 04172000 * /*****************************************************************/ 04173000 * 1278 04174000 * GEN(BAL REG10,PTAMB) 1278 04175000 * FLOWS(PTAMB); /* POINT TO AMB */ 04176000 BAL REG10,PTAMB 04177000 * RBLKPTR=AMBDSB; /* POINT TO BLOCK */ 04178000 * 1279 04179000 L RBLKPTR,AMBDSB(,RBLKPTR) 1279 04180000 * /*****************************************************************/ 04181000 * /* */ 04182000 * /* FIND HIGEST RBA */ 04183000 * /* */ 04184000 * /*****************************************************************/ 04185000 * 1280 04186000 * GEN(BAL REG10,FNDHRBA) 1280 04187000 * FLOWS(FNDHRBA); /* FIND HIGH RBA */ 04188000 * 1280 04189000 BAL REG10,FNDHRBA 04190000 * /*****************************************************************/ 04191000 * /* */ 04192000 * /* SHOWIT */ 04193000 * /* */ 04194000 * /*****************************************************************/ 04195000 * 1281 04196000 * GEN(BAL REG10,DSPFIELD) 1281 04197000 * FLOWS(DSPFIELD); /* DISPLAY FIELD */ 04198000 BAL REG10,DSPFIELD 04199000 * RBLKPTR=SHOWBLAD; /* RESTORE BLOCK POINTER */ 04200000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1282 04201000 * REG10=REG0; /* RESTORE RETURN ADDRESS */ 04202000 LR REG10,REG0 1283 04203000 * GEN(BR REG10); /* RETURN TO USER */ 04204000 BR REG10 04205000 *TESTHRBA: 1285 04206000 * 1285 04207000 * /*****************************************************************/ 04208000 * /* */ 04209000 * /* TEST HIGHRBA */ 04210000 * /* */ 04211000 * /*****************************************************************/ 04212000 * 1285 04213000 * REG0=REG10; /* SAVE RETURN ADDR */ 04214000 * 1285 04215000 TESTHRBA LR REG0,REG10 1285 04216000 * /*****************************************************************/ 04217000 * /* */ 04218000 * /* POINT TO AMDSB */ 04219000 * /* */ 04220000 * /*****************************************************************/ 04221000 * 1286 04222000 * GEN(BAL REG10,PTAMB) 1286 04223000 * FLOWS(PTAMB); /* POINT TO AMB */ 04224000 BAL REG10,PTAMB 04225000 * RBLKPTR=AMBDSB; /* POINT TO AMDSB */ 04226000 * 1287 04227000 L RBLKPTR,AMBDSB(,RBLKPTR) 1287 04228000 * /*****************************************************************/ 04229000 * /* */ 04230000 * /* LOCATE ARDB WITH HIGHEST RBA */ 04231000 * /* */ 04232000 * /*****************************************************************/ 04233000 * 1288 04234000 * GEN(BAL REG10,FNDHRBA) 1288 04235000 * FLOWS(FNDHRBA); /* FIND HIGH RBA */ 04236000 BAL REG10,FNDHRBA 04237000 * GEN(BAL REG10,TSTFIELD) 1289 04238000 * 1289 04239000 * /*****************************************************************/ 04240000 * /* */ 04241000 * /* COMPARE IT */ 04242000 * /* */ 04243000 * /*****************************************************************/ 04244000 * 1289 04245000 * FLOWS(TSTFIELD); /* TEST FIELD */ 04246000 BAL REG10,TSTFIELD 04247000 * RBLKPTR=TESTBLAD; /* RESTORE BLOCK POINTER */ 04248000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1290 04249000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 04250000 LR REG10,REG0 1291 04251000 * GEN(BR REG10); /* RETURN TO USER */ 04252000 BR REG10 04253000 *MODVTBIT: 1293 04254000 * 1293 04255000 * /*****************************************************************/ 04256000 * /* */ 04257000 * /* TEST FOR VTAM BEFORE SETING BIT STRINGS */ 04258000 * /* */ 04259000 * /*****************************************************************/ 04260000 * 1293 04261000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 04262000 MODVTBIT TM VTAMSW+1(RHDRPTR),B'00010000' 1293 04263000 BNZ @RF01293 1293 04264000 * DO; /* NO, PROCESS ERROR */ 04265000 * REG0=VTAMONLY; /* SET ERROR CODE */ 04266000 LA REG0,16 1295 04267000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04268000 B EXITBAD 1296 04269000 * END; 1297 04270000 *MODBITST: 1298 04271000 * 1298 04272000 * /*****************************************************************/ 04273000 * /* */ 04274000 * /* MODBITST- SET BIT STRINGS FOR MODCB/GENCB */ 04275000 * /* */ 04276000 * /*****************************************************************/ 04277000 * 1298 04278000 * RESPECIFY 1298 04279000 * (REG5, 1298 04280000 * REG6, 1298 04281000 * REG7) RSTD; 1298 04282000 @RF01293 DS 0H 1298 04283000 MODBITST DS 0H 1299 04284000 * RESPECIFY 1299 04285000 * REG9 UNRSTD; 1299 04286000 * REG5=BATPTR; /* LOAD ADDRESS TO BATTAB */ 04287000 L REG5,BATPTR 1300 04288000 * GEN(AH REG5,FLDLEN(REG11)) 1301 04289000 * REFS(FLDLEN); /* PICK UP OFFSET TO BATTAB */ 04290000 * 1301 04291000 AH REG5,FLDLEN(REG11) 04292000 * /*****************************************************************/ 04293000 * /* */ 04294000 * /* LOAD POINTER REGISTERS */ 04295000 * /* */ 04296000 * /*****************************************************************/ 04297000 * 1302 04298000 * GEN(LM REG5,REG8,0(REG5)); /* LOAD REGISTERS */ 04299000 LM REG5,REG8,0(REG5) 04300000 * RESPECIFY 1303 04301000 * (REG8, 1303 04302000 * REG9) RSTD; 1303 04303000 * 1303 04304000 * /*****************************************************************/ 04305000 * /* */ 04306000 * /* TEST FOR EXTRA BITS */ 04307000 * /* */ 04308000 * /*****************************************************************/ 04309000 * 1304 04310000 * REG9=ELEMFIX; /* LOAD BITS */ 04311000 L REG9,ELEMFIX(,RELEMPTR) 1304 04312000 * REG8=REG9®8; /* TEST FOR EXTRA BITS */ 04313000 NR REG8,REG9 1305 04314000 * BC(8,NOTOMANY); /* GO AROUND ERROR CODE */ 04315000 BC 8,NOTOMANY 1306 04316000 * DO; /* PROCESS ERROR */ 04317000 * REG0=BITEXER; /* SET ERROR CODE */ 04318000 LA REG0,14 1308 04319000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04320000 B EXITBAD 1309 04321000 * END; 1310 04322000 *NOTOMANY: 1311 04323000 * RESPECIFY 1311 04324000 * REG11 UNRSTD; 1311 04325000 NOTOMANY DS 0H 1312 04326000 * EXBITABL=REG8; /* TURN OFF EXCLUSIVE DETECTORS */ 04327000 ST REG8,EXBITABL(,REG13) 1312 04328000 *BITSET: /* LOOK FOR FUNCTION SPECIFIED */ 04329000 * IF REG9^=ZERO THEN /* ANY BITS ON */ 04330000 * 1313 04331000 BITSET LTR REG9,REG9 1313 04332000 BZ @RF01313 1313 04333000 * /***************************************************************/ 04334000 * /* */ 04335000 * /* REG9 ZERO INDICATES ALL REQUESTS DONE */ 04336000 * /* */ 04337000 * /***************************************************************/ 04338000 * 1314 04339000 * DO UNTIL(REG9=ZERO); /* LOOP UNTIL WORD DONE */ 04340000 @DL01314 DS 0H 1315 04341000 * BC(4,HOBITON); /* HIGH ORDER BIT ON */ 04342000 * 1315 04343000 BC 4,HOBITON 1315 04344000 * /*************************************************************/ 04345000 * /* */ 04346000 * /* REG8 INDICATES REQUEST DETECTED */ 04347000 * /* */ 04348000 * /*************************************************************/ 04349000 * 1316 04350000 * DO UNTIL(REG9RPLLEN THEN /* OFFSET TOO LARGE FOR BLOCK */ 04461000 SLR @09,@09 1344 04462000 IC @09,RPLLEN(,RBLKPTR) 1344 04463000 CR REG8,@09 1344 04464000 BNH @RF01344 1344 04465000 * DO; /* PROCESS ERROR */ 04466000 * REG0=BLKNTLG; /* SET ERROR CODE */ 04467000 LA REG0,19 1346 04468000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04469000 B EXITBAD 1347 04470000 * END; 1348 04471000 * GEN(STH REG5,FWORDFLD(REG8,RBLKPTR));/* STORE NEW FIELD */ 04472000 @RF01344 DS 0H 1349 04473000 STH REG5,FWORDFLD(REG8,RBLKPTR) 04474000 * GEN(BR REG10); /* RETURN TO CALLER */ 04475000 BR REG10 04476000 * RESPECIFY 1351 04477000 * REG5 UNRSTD; 1351 04478000 * 1352 04479000 * /*****************************************************************/ 04480000 * /* */ 04481000 * /* MODCB-RPL-ECB KEYWORD */ 04482000 * /* */ 04483000 * /*****************************************************************/ 04484000 * 1352 04485000 *MODECBFD: 1352 04486000 * RPLECBSW=OFF; /* NO EXTERNAL ECB */ 04487000 MODECBFD NI RPLECBSW(RBLKPTR),B'11111110' 1352 04488000 * RPLEXIT=OFF; /* NO EXIT */ 04489000 NI RPLEXIT(RBLKPTR),B'11011111' 1353 04490000 * RPLECB=ELEMPTR; /* MOVE THE POINTER */ 04491000 L @09,ELEMPTR(,RELEMPTR) 1354 04492000 ST @09,RPLECB(,RBLKPTR) 1354 04493000 * IF RPLECB^=ZERO THEN /* VALID POINTER */ 04494000 LTR @09,@09 1355 04495000 BZ @RF01355 1355 04496000 * DO; 1356 04497000 * RPLECBSW=ON; /* SET EXTERNAL FLAG */ 04498000 OI RPLECBSW(RBLKPTR),B'00000001' 1357 04499000 * RPLNEXIT=ON; /* SET NO EXIT SPECIFIED */ 04500000 OI RPLNEXIT(RBLKPTR),B'01000000' 1358 04501000 * END; 1359 04502000 * GEN(BR REG10); /* RETURN TO CALLER */ 04503000 @RF01355 DS 0H 1360 04504000 BR REG10 04505000 *TSTVTBIT: 1361 04506000 * 1361 04507000 * /*****************************************************************/ 04508000 * /* */ 04509000 * /* TEST FOR VTAM SPECIFIED BEFORE TESTING BITS */ 04510000 * /* */ 04511000 * /*****************************************************************/ 04512000 * 1361 04513000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 04514000 TSTVTBIT TM VTAMSW+1(RHDRPTR),B'00010000' 1361 04515000 BNZ @RF01361 1361 04516000 * DO; /* NO, PROCESS ERROR */ 04517000 * REG0=VTAMONLY; /* SET ERROR CODE */ 04518000 LA REG0,16 1363 04519000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04520000 B EXITBAD 1364 04521000 * END; 1365 04522000 * 1365 04523000 * /*****************************************************************/ 04524000 * /* */ 04525000 * /* TEST BITS AND SET CONDITION CODE */ 04526000 * /* */ 04527000 * /*****************************************************************/ 04528000 * 1366 04529000 *TSTBITST: 1366 04530000 * 1366 04531000 * /*****************************************************************/ 04532000 * /* */ 04533000 * /* TESTCB-BITSTRINGS */ 04534000 * /* */ 04535000 * /*****************************************************************/ 04536000 * 1366 04537000 * RESPECIFY 1366 04538000 * (REG5) RSTD; 1366 04539000 @RF01361 DS 0H 1366 04540000 TSTBITST DS 0H 1367 04541000 * RESPECIFY 1367 04542000 * (REG8, 1367 04543000 * REG9) UNRSTD; 1367 04544000 * REG5=BATPTR; /* SET ADDRESS OF BATTAB */ 04545000 L REG5,BATPTR 1368 04546000 * GEN(AH REG5,FLDLEN(REG11)) 1369 04547000 * REFS(FLDLEN); /* PICK UP OFFSET INTO BATTAB */ 04548000 AH REG5,FLDLEN(REG11) 04549000 * RESPECIFY 1370 04550000 * (REG6, 1370 04551000 * REG7, 1370 04552000 * REG8) RSTD; 1370 04553000 * RESPECIFY 1371 04554000 * REG11 UNRSTD; 1371 04555000 * GEN(LM REG5,REG8,0(REG5)); /* LOAD REGISTERS */ 04556000 LM REG5,REG8,0(REG5) 04557000 * RESPECIFY 1373 04558000 * (REG9) RSTD; 1373 04559000 * REG9=ELEMFIX; /* LOAD BITS */ 04560000 L REG9,ELEMFIX(,RELEMPTR) 1374 04561000 * REG8=REG9®8; /* CHECK FOR EXTRA BITS */ 04562000 NR REG8,REG9 1375 04563000 * IF REG8^=ZERO THEN /* EXTRA BITS ON */ 04564000 LTR REG8,REG8 1376 04565000 BZ @RF01376 1376 04566000 * DO; /* PROCESS ERROR */ 04567000 * REG0=BITEXER; /* SET ERROR CODE */ 04568000 LA REG0,14 1378 04569000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04570000 B EXITBAD 1379 04571000 * END; 1380 04572000 * EXBITABL=REG8; /* TURN OFF EXCLUSIVE DETECTORS */ 04573000 @RF01376 ST REG8,EXBITABL(,REG13) 1381 04574000 * IF REG9^=ZERO THEN /* ANY BITS ON */ 04575000 LTR REG9,REG9 1382 04576000 BZ @RF01382 1382 04577000 * DO UNTIL(REG9=ZERO); /* LOOP UNTIL WORD DONE */ 04578000 @DL01383 DS 0H 1384 04579000 *TSTBIT: 1384 04580000 * DO UNTIL(REG8^=ZERO); /* LOOK FOR BITS ON */ 04581000 TSTBIT DS 0H 1384 04582000 @DL01384 DS 0H 1385 04583000 * REG5=REG5+LENGTH(BATOFFTB);/* STEP TO NEXT BIT */ 04584000 AL REG5,@CF00102 1385 04585000 * SLDL(REG8,ONE); /* SHIFT BITS ONE AT A TIME */ 04586000 SLDL REG8,1 1386 04587000 * END; 1387 04588000 @DE01384 LTR REG8,REG8 1387 04589000 BZ @DL01384 1387 04590000 * GEN(IC REG8,BATEX(REG5)) /* LOAD OFFSET FOR EXCLUSIVE TEST*/ 04591000 * REFS(BATEX); 1388 04592000 IC REG8,BATEX(REG5) 04593000 * GEN(EX REG0,EXTSTAB(REG8)); /* TEST FOR EXCLUSIVE BIT ERROR */ 04594000 EX REG0,EXTSTAB(REG8) 04595000 * BC(8,EXTBITOK); /* BRANCH GOOD */ 04596000 BC 8,EXTBITOK 1390 04597000 * REG0=BITEXER; /* SET ERROR CODE */ 04598000 LA REG0,14 1391 04599000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04600000 B EXITBAD 1392 04601000 *EXTBITOK: 1393 04602000 * GEN(EX REG0,EXBITAB(REG8)); /* SET EXCLUSIVE BIT */ 04603000 EXTBITOK EX REG0,EXBITAB(REG8) 04604000 * GEN(IC REG8,BATON(REG5)) 1394 04605000 * REFS(BATON); /* LOAD OFFSET TO TURN ON 1394 04606000 * INSTRUCTION */ 04607000 IC REG8,BATON(REG5) 04608000 * GEN(L REG8,0(REG8,REG6)); /* PICK UP INSTRUCTION */ 04609000 L REG8,0(REG8,REG6) 04610000 * BITSTINS=REG8; /* STORE INSTRUCTION IN WORK AREA*/ 04611000 ST REG8,BITSTINS(,REG13) 1396 04612000 * IF TSTOP=OICODE THEN /* NORMALLY ON */ 04613000 CLI TSTOP(REG13),150 1397 04614000 BNE @RF01397 1397 04615000 * DO; /* PROCESS NORMAL */ 04616000 * TSTOP=TMCODE; /* SET OP CODE */ 04617000 MVI TSTOP(REG13),X'91' 1399 04618000 * GEN(EX REG0,BITSTINS(REG13));/* TEST SPECIFIED BIT */ 04619000 EX REG0,BITSTINS(REG13) 04620000 * BC(7,BITON); /* SET EQUAL CODE */ 04621000 BC 7,BITON 1401 04622000 * END; 1402 04623000 * ELSE /* NOT NORMALLY ON */ 04624000 * DO; /* PROCESS NORMALLY OFF */ 04625000 B @RC01397 1403 04626000 @RF01397 DS 0H 1404 04627000 * TSTOP=TMCODE; /* SET OPCODE */ 04628000 MVI TSTOP(REG13),X'91' 1404 04629000 * GEN(XI MASK(REG13),X'FF') 1405 04630000 * REFS(MASK); /* FLIP MASK BITS */ 04631000 XI MASK(REG13),X'FF' 04632000 * GEN(EX REG0,BITSTINS(REG13));/* TEST SPECIFIED BIT */ 04633000 EX REG0,BITSTINS(REG13) 04634000 * BC(8,BITON); /* SET NOT EQUAL CODE */ 04635000 BC 8,BITON 1407 04636000 * END; 1408 04637000 * RESPECIFY 1409 04638000 * REG8 UNRSTD; 1409 04639000 @RC01397 DS 0H 1410 04640000 *BITOFF: 1410 04641000 * TESTCC=ON; /* SET NOT EQUAL CODE */ 04642000 BITOFF LA @11,1 1410 04643000 STH @11,TESTCC(,REG13) 1410 04644000 * RESPECIFY 1411 04645000 * REG8 RSTD; 1411 04646000 *BITON: 1412 04647000 * REG8=ZERO; /* ZERO BIT DETECTOR */ 04648000 BITON SLR REG8,REG8 1412 04649000 * END; 1413 04650000 @DE01383 LTR REG9,REG9 1413 04651000 BNZ @DL01383 1413 04652000 * GEN(BR REG10); /* RETURN TO CALLER */ 04653000 @RF01382 DS 0H 1414 04654000 BR REG10 04655000 * RESPECIFY 1415 04656000 * REG11 RSTD; 1415 04657000 * RESPECIFY 1416 04658000 * (REG5, 1416 04659000 * REG6, 1416 04660000 * REG7, 1416 04661000 * REG9) UNRSTD; 1416 04662000 * 1417 04663000 * /*****************************************************************/ 04664000 * /* */ 04665000 * /* MODCB/RPL- FIELD LENGTH BYTE */ 04666000 * /* */ 04667000 * /*****************************************************************/ 04668000 * 1417 04669000 *MODVTBYT: 1417 04670000 * 1417 04671000 * /*****************************************************************/ 04672000 * /* */ 04673000 * /* CHECK FOR VTAM SPECIFIED FIRST */ 04674000 * /* */ 04675000 * /*****************************************************************/ 04676000 * 1417 04677000 * IF VTAMSW=OFF THEN /* NOT VTAM REQUEST */ 04678000 MODVTBYT TM VTAMSW+1(RHDRPTR),B'00010000' 1417 04679000 BNZ @RF01417 1417 04680000 * DO; /* PROCESS ERROR */ 04681000 * REG0=VTAMONLY; /* SET REASON CODE */ 04682000 LA REG0,16 1419 04683000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04684000 B EXITBAD 1420 04685000 * END; 1421 04686000 * RESPECIFY 1422 04687000 * (REG5) RSTD; 1422 04688000 * 1422 04689000 @RF01417 DS 0H 1423 04690000 * /*****************************************************************/ 04691000 * /* */ 04692000 * /* MOVE BYTE FIELD */ 04693000 * /* */ 04694000 * /*****************************************************************/ 04695000 * 1423 04696000 * REG5=ELEMFIX; /* PICK UP REPLACEMENT FIELD */ 04697000 L REG5,ELEMFIX(,RELEMPTR) 1423 04698000 * GEN(IC REG8,FLDOFF(REG11)); /* PICK UP FIELD OFFSET */ 04699000 IC REG8,FLDOFF(REG11) 04700000 * IF REG8>RPLLEN THEN /* OFFSET TOO LARGE FOR BLOCK */ 04701000 SLR @09,@09 1425 04702000 IC @09,RPLLEN(,RBLKPTR) 1425 04703000 CR REG8,@09 1425 04704000 BNH @RF01425 1425 04705000 * DO; /* PROCESS ERROR */ 04706000 * REG0=BLKNTLG; /* SET ERROR CODE */ 04707000 LA REG0,19 1427 04708000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04709000 B EXITBAD 1428 04710000 * END; 1429 04711000 * GEN(STC REG5,FWORDFLD(REG8,RBLKPTR));/* STORE NEW FIELD */ 04712000 @RF01425 DS 0H 1430 04713000 STC REG5,FWORDFLD(REG8,RBLKPTR) 04714000 * GEN(BR REG10); /* RETURN TO CALLER */ 04715000 BR REG10 04716000 * RESPECIFY 1432 04717000 * REG5 UNRSTD; 1432 04718000 *DSPPLHFD: 1433 04719000 * 1433 04720000 * /*****************************************************************/ 04721000 * /* */ 04722000 * /* POINTS TO PLHDHR AND DISPLAYS OR TESTS FIELDS FROM THEM */ 04723000 * /* */ 04724000 * /*****************************************************************/ 04725000 * 1433 04726000 * REG0=REG10; /* SAVE RETURN ADDRESS */ 04727000 DSPPLHFD LR REG0,REG10 1433 04728000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 04729000 BAL REG10,PTAMB 04730000 * RBLKPTR=AMBPH; /* SET BLOCK PTR */ 04731000 * 1435 04732000 L RBLKPTR,AMBPH(,RBLKPTR) 1435 04733000 * /*****************************************************************/ 04734000 * /* */ 04735000 * /* DISPLAY FIELD */ 04736000 * /* */ 04737000 * /*****************************************************************/ 04738000 * 1436 04739000 * GEN FLOWS(DSPFIELD)(BAL REG10,DSPFIELD); 1436 04740000 BAL REG10,DSPFIELD 04741000 * RBLKPTR=SHOWBLAD; /* RESET RBLKPTR */ 04742000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1437 04743000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 04744000 LR REG10,REG0 1438 04745000 * GEN(BR REG10); /* RETURN TO CALLER */ 04746000 BR REG10 04747000 *TSTAMBLB: 1440 04748000 * 1440 04749000 * /*****************************************************************/ 04750000 * /* */ 04751000 * /* OPENOBJ- POINT TO THE OPEN AMBL */ 04752000 * /* */ 04753000 * /*****************************************************************/ 04754000 * 1440 04755000 * REG0=REG10; /* SAVE RETURN ADDRESS */ 04756000 TSTAMBLB LR REG0,REG10 1440 04757000 * IF ACBOPEN=OFF THEN /* IS ACB OPEN */ 04758000 TM ACBOPEN(RBLKPTR),B'00010000' 1441 04759000 BNZ @RF01441 1441 04760000 * DO; /* NO, PROCESS ERROR */ 04761000 * REG0=ACBNTOPN; /* SET ERROR CODE */ 04762000 LA REG0,5 1443 04763000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04764000 B EXITBAD 1444 04765000 * END; 1445 04766000 * RBLKPTR=ACBAMBL; /* SET BLOCK POINTER */ 04767000 @RF01441 L RBLKPTR,ACBAMBL(,RBLKPTR) 1446 04768000 * GEN(BAL REG10,TSTBITST) 1447 04769000 * FLOWS(TSTBITST); /* TEST BIT STRING */ 04770000 BAL REG10,TSTBITST 04771000 * RBLKPTR=TESTBLAD; /* RELOAD BLKPTR */ 04772000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1448 04773000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 04774000 LR REG10,REG0 1449 04775000 * GEN(BR REG10); /* RETURN TO CALLER */ 04776000 BR REG10 04777000 *DSPVTEXL: 1451 04778000 * 1451 04779000 * /*****************************************************************/ 04780000 * /* */ 04781000 * /* TEST FOR VTAM FIRST */ 04782000 * /* */ 04783000 * /*****************************************************************/ 04784000 * 1451 04785000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 04786000 DSPVTEXL TM VTAMSW+1(RHDRPTR),B'00010000' 1451 04787000 BNZ @RF01451 1451 04788000 * DO; /* NO, PROCESS ERROR */ 04789000 * REG0=VTAMONLY; /* SET ERROR CODE */ 04790000 LA REG0,16 1453 04791000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04792000 B EXITBAD 1454 04793000 * END; 1455 04794000 *DSPEXLFD: 1456 04795000 * 1456 04796000 * /*****************************************************************/ 04797000 * /* */ 04798000 * /* SHOW EXLST */ 04799000 * /* */ 04800000 * /*****************************************************************/ 04801000 * 1456 04802000 * REG0=REG10; /* SAVE CALLERS RETURN ADDRESS */ 04803000 @RF01451 DS 0H 1456 04804000 DSPEXLFD LR REG0,REG10 1456 04805000 * GEN REFS(FLDOFF)(IC REG8,FLDOFF(REG11));/* PICK FIELD OFFSET 1457 04806000 * @ZA19552*/ 04807000 IC REG8,FLDOFF(REG11) 04808000 * IF REG8=>EXLLEN THEN /* EXLST LONG ENOUGH? @ZA19552*/ 04809000 CH REG8,EXLLEN(,RBLKPTR) 1458 04810000 BL @RF01458 1458 04811000 * DO; /* NO, PROCESS ERROR @ZA19552*/ 04812000 * REG0=EXLTOSHT; /* SET REASON CODE @ZA19552*/ 04813000 LA REG0,7 1460 04814000 * GO TO EXITBAD; /* EXIT WITH ERROR @ZA19552*/ 04815000 B EXITBAD 1461 04816000 * END; /* @ZA19552*/ 04817000 * RBLKPTR=RBLKPTR+ONE; /* BUMP ADDRESS BY ONE TO STEP 1463 04818000 * OVER FLAGS */ 04819000 @RF01458 AL RBLKPTR,@CF00081 1463 04820000 * GEN(BAL REG10,DSPFIELD) 1464 04821000 * FLOWS(DSPFIELD); /* SHOW POINTER FIELD */ 04822000 BAL REG10,DSPFIELD 04823000 * RBLKPTR=RBLKPTR-ONE; /* RESET BLOCK POINTER */ 04824000 BCTR RBLKPTR,0 1465 04825000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 04826000 LR REG10,REG0 1466 04827000 * GEN(BR REG10); /* RETURN TO CALLER */ 04828000 BR REG10 04829000 *TSTVTEXL: 1468 04830000 * 1468 04831000 * /*****************************************************************/ 04832000 * /* */ 04833000 * /* TEST FOR VTAM FIRST */ 04834000 * /* */ 04835000 * /*****************************************************************/ 04836000 * 1468 04837000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 04838000 TSTVTEXL TM VTAMSW+1(RHDRPTR),B'00010000' 1468 04839000 BNZ @RF01468 1468 04840000 * DO; /* NO, PROCESS ERROR */ 04841000 * REG0=VTAMONLY; /* SET ERROR CODE */ 04842000 LA REG0,16 1470 04843000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 04844000 B EXITBAD 1471 04845000 * END; 1472 04846000 *TSTEXLFD: 1473 04847000 * 1473 04848000 * /*****************************************************************/ 04849000 * /* */ 04850000 * /* TESTCB/EXLST */ 04851000 * /* */ 04852000 * /*****************************************************************/ 04853000 * 1473 04854000 * RESPECIFY 1473 04855000 * REG5 RSTD; 1473 04856000 @RF01468 DS 0H 1473 04857000 TSTEXLFD DS 0H 1474 04858000 * REG5=ZERO; /* ZERO WORK REGISTER */ 04859000 SLR REG5,REG5 1474 04860000 * GEN REFS(FLDOFF)(IC REG5,FLDOFF(REG11));/* PICK UP FIELD OFFSET */ 04861000 IC REG5,FLDOFF(REG11) 04862000 * IF REG5>EXLLEN THEN /* EXLST LIST LONG ENOUGTH */ 04863000 CH REG5,EXLLEN(,RBLKPTR) 1476 04864000 BNH @RF01476 1476 04865000 * TESTCC=NE; /* SET NOT EQUAL CODE */ 04866000 MVC TESTCC(2,REG13),@CH02114 1477 04867000 * ELSE /* WAS LONG ENOUGTH */ 04868000 * DO; /* PROCESS KEYWORD */ 04869000 B @RC01476 1478 04870000 @RF01476 DS 0H 1479 04871000 * REG5=RBLKPTR+REG5; /* SET POINTER */ 04872000 ALR REG5,RBLKPTR 1479 04873000 * IF REG5->EXLSPEC=OFF THEN /* EXIT NOT PRESENT */ 04874000 TM EXLSPEC(REG5),B'10000000' 1480 04875000 BNZ @RF01480 1480 04876000 * TESTCC=NE; /* SET NOT EQUAL CODE */ 04877000 MVC TESTCC(2,REG13),@CH02114 1481 04878000 * ELSE /* ENTRY WAS PRESENT */ 04879000 * DO; /* PROCESS FLAGS */ 04880000 B @RC01480 1482 04881000 @RF01480 DS 0H 1483 04882000 * IF ELEMXFLG(1)=ON /* ACTIVE SPECIFIED */ 04883000 * ®5->EXLACTM=OFF THEN/* ACTIVE ON */ 04884000 TM ELEMXFLG(RELEMPTR),B'10000000' 1483 04885000 BNO @RF01483 1483 04886000 TM EXLACTM(REG5),B'01000000' 1483 04887000 BNZ @RF01483 1483 04888000 * TESTCC=NE; /* SET NOT EQUAL CODE */ 04889000 MVC TESTCC(2,REG13),@CH02114 1484 04890000 * IF ELEMXFLG(2)=ON /* INACTIVE SPECIFIED */ 04891000 * ®5->EXLACTM=ON THEN/* ACTIVE ON */ 04892000 @RF01483 TM ELEMXFLG(RELEMPTR),B'01000000' 1485 04893000 BNO @RF01485 1485 04894000 TM EXLACTM(REG5),B'01000000' 1485 04895000 BNO @RF01485 1485 04896000 * TESTCC=NE; /* SET NOT EQUAL ON */ 04897000 MVC TESTCC(2,REG13),@CH02114 1486 04898000 * IF ELEMXFLG(3)=ON /* LINK SPECIFIED */ 04899000 * ®5->EXLLNK=OFF THEN/* LINK ON */ 04900000 @RF01485 TM ELEMXFLG(RELEMPTR),B'00100000' 1487 04901000 BNO @RF01487 1487 04902000 TM EXLLNK(REG5),B'00100000' 1487 04903000 BNZ @RF01487 1487 04904000 * TESTCC=NE; /* SET NOT EQUAL */ 04905000 MVC TESTCC(2,REG13),@CH02114 1488 04906000 * IF ELEMXFLG(4)=ON THEN /* POINTER SUPPLIED */ 04907000 @RF01487 TM ELEMXFLG(RELEMPTR),B'00010000' 1489 04908000 BNO @RF01489 1489 04909000 * IF REG5->EXLEXITP>ELEMPTR THEN/* POINTER GREATER THAN */ 04910000 CLC EXLEXITP(4,REG5),ELEMPTR(RELEMPTR) 1490 04911000 BNH @RF01490 1490 04912000 * TESTCC=GT; /* SET GREATER THAN CODE */ 04913000 MVC TESTCC(2,REG13),@CH00081 1491 04914000 * ELSE /* NOT GREATER THAN */ 04915000 * IF REG5->EXLEXITPEXLLEN THEN /* EXLST LONG ENOUGTH */ 05405000 CH REG5,EXLLEN(,RBLKPTR) 1644 05406000 BL @RF01644 1644 05407000 * DO; /* PROCESS ERROR */ 05408000 * REG0=EXLTOSHT; /* SET REASON CODE */ 05409000 LA REG0,7 1646 05410000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05411000 B EXITBAD 1647 05412000 * END; 1648 05413000 * REG5=RBLKPTR+REG5; /* SET BLOCK PLUS OFFSET */ 05414000 @RF01644 ALR REG5,RBLKPTR 1649 05415000 * IF ELEMXFLG(4)=ON THEN /* EXIT ADDRESS SUPPLIED */ 05416000 TM ELEMXFLG(RELEMPTR),B'00010000' 1650 05417000 BNO @RF01650 1650 05418000 * REG5->EXLEXITP=ELEMPTR; /* MOVE POINTER */ 05419000 MVC EXLEXITP(4,REG5),ELEMPTR(RELEMPTR) 1651 05420000 * ELSE /* NOEXIT ADDRESS SUPPLIED */ 05421000 * IF(ELEMXFLG(1)=OFF& /* A OFF */ 05422000 * ELEMXFLG(2)=OFF)| /* N OFF */ 05423000 * ELEMXFLG(3)=ON THEN /* LINK SPECIFIED */ 05424000 B @RC01650 1652 05425000 @RF01650 TM ELEMXFLG(RELEMPTR),B'11000000' 1652 05426000 BZ @RT01652 1652 05427000 TM ELEMXFLG(RELEMPTR),B'00100000' 1652 05428000 BNO @RF01652 1652 05429000 @RT01652 DS 0H 1653 05430000 * DO; /* PROCESS ERROR */ 05431000 * REG0=NOEXITAD; /* SET REASON CODE */ 05432000 LA REG0,10 1654 05433000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05434000 B EXITBAD 1655 05435000 * END; 1656 05436000 * IF ELEMKWTC>SYNADKW THEN /* NOT EODAD,JRNAD,LERAD OR SYNAD*/ 05437000 @RF01652 DS 0H 1657 05438000 @RC01650 LH @09,ELEMKWTC(,RELEMPTR) 1657 05439000 C @09,@CF02056 1657 05440000 BNH @RF01657 1657 05441000 * GEN(BR REG10); /* RETURN TO CALLER */ 05442000 BR REG10 05443000 * IF ELEMXFLG(1)=ON& /* ACTIVATE ON */ 05444000 * REG5->EXLEXITP=ZERO THEN /* VALID ADDRESS */ 05445000 @RF01657 TM ELEMXFLG(RELEMPTR),B'10000000' 1659 05446000 BNO @RF01659 1659 05447000 ICM @09,15,EXLEXITP(REG5) 1659 05448000 BNZ @RF01659 1659 05449000 * DO; /* PROCESS ERROR */ 05450000 * REG0=NOEXADAT; /* SET REASON CODE */ 05451000 LA REG0,13 1661 05452000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05453000 B EXITBAD 1662 05454000 * END; 1663 05455000 * ELSE /* ADDRESS GOOD */ 05456000 * REG5->EXLACTM=ON; /* SET ACTIVE FLAG */ 05457000 @RF01659 OI EXLACTM(REG5),B'01000000' 1664 05458000 * IF ELEMXFLG(2)=ON THEN /* INACTIVATE ON */ 05459000 TM ELEMXFLG(RELEMPTR),B'01000000' 1665 05460000 BNO @RF01665 1665 05461000 * REG5->EXLACTM=OFF; /* SET FLAG OFF */ 05462000 NI EXLACTM(REG5),B'10111111' 1666 05463000 * IF ELEMXFLG(3)=ON THEN /* LINK SPECIFIED */ 05464000 @RF01665 TM ELEMXFLG(RELEMPTR),B'00100000' 1667 05465000 BNO @RF01667 1667 05466000 * REG5->EXLLNK=ON; /* SET LINK FLAG */ 05467000 OI EXLLNK(REG5),B'00100000' 1668 05468000 * RESPECIFY 1669 05469000 * REG5 UNRSTD; 1669 05470000 @RF01667 DS 0H 1670 05471000 * GEN(BR REG10); /* RETURN AND PROCESS */ 05472000 BR REG10 05473000 *MODVTELN: 1671 05474000 * 1671 05475000 * /*****************************************************************/ 05476000 * /* */ 05477000 * /* CHECK FOR VTAM FIRST */ 05478000 * /* */ 05479000 * /*****************************************************************/ 05480000 * 1671 05481000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 05482000 MODVTELN TM VTAMSW+1(RHDRPTR),B'00010000' 1671 05483000 BNZ @RF01671 1671 05484000 * DO; /* NO, ERROR */ 05485000 * REG0=VTAMONLY; /* SET ERROR CODE */ 05486000 LA REG0,16 1673 05487000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05488000 B EXITBAD 1674 05489000 * END; 1675 05490000 *MODEXLEN: 1676 05491000 * 1676 05492000 * /*****************************************************************/ 05493000 * /* */ 05494000 * /* SETS EXLLEN FOR MODCB */ 05495000 * /* */ 05496000 * /*****************************************************************/ 05497000 * 1676 05498000 * EXLLEN=USERHWRD; /* SET LENGTH */ 05499000 @RF01671 DS 0H 1676 05500000 MODEXLEN MVC EXLLEN(2,RBLKPTR),USERHWRD+4(RELEMPTR) 1676 05501000 * GEN(BR REG10); /* RETURN TO CALLER */ 05502000 BR REG10 05503000 *GEXLVTOF: 1678 05504000 * 1678 05505000 * /*****************************************************************/ 05506000 * /* */ 05507000 * /* CHECK FOR VTAM FIRST */ 05508000 * /* */ 05509000 * /*****************************************************************/ 05510000 * 1678 05511000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 05512000 GEXLVTOF TM VTAMSW+1(RHDRPTR),B'00010000' 1678 05513000 BNZ @RF01678 1678 05514000 * DO; /* PROCESS ERROR */ 05515000 * REG0=VTAMONLY; /* LOAD ERROR CODE */ 05516000 LA REG0,16 1680 05517000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05518000 B EXITBAD 1681 05519000 * END; 1682 05520000 *GEXLKWOF: 1683 05521000 * 1683 05522000 * /*****************************************************************/ 05523000 * /* */ 05524000 * /* ROUTINE IS USED BY GENEXLST TO FIND LARGEST OFFSET AMONG */ 05525000 * /* KEYWORDS */ 05526000 * /* */ 05527000 * /*****************************************************************/ 05528000 * 1683 05529000 * RESPECIFY 1683 05530000 * (REG5, 1683 05531000 * REG8) RSTD; 1683 05532000 @RF01678 DS 0H 1683 05533000 GEXLKWOF DS 0H 1684 05534000 * GEN(IC REG8,FLDOFF(REG11)) 1684 05535000 * REFS(FLDOFF); /* LOAD ADDRESS OFF KEYWORD 1684 05536000 * ROUTINE */ 05537000 IC REG8,FLDOFF(REG11) 05538000 * IF REG5EXLEXITP=ELEMPTR; /* MOVE POINTER */ 05577000 @RF01692 MVC EXLEXITP(4,REG5),ELEMPTR(RELEMPTR) 1697 05578000 * REG5->EXLSPEC=ON; /* MARK ACTIVE ENTRIES */ 05579000 OI EXLSPEC(REG5),B'10000000' 1698 05580000 * IF ELEMKWTC>SYNADKW THEN /* NOT EODAD,JRNAD,LERAD OR SYNAD*/ 05581000 LH @09,ELEMKWTC(,RELEMPTR) 1699 05582000 C @09,@CF02056 1699 05583000 BNH @RF01699 1699 05584000 * GEN(BR REG10); /* RETURN TO CALLER */ 05585000 BR REG10 05586000 * IF ELEMXFLG(2)=OFF THEN /* INACTIVATE OFF */ 05587000 @RF01699 TM ELEMXFLG(RELEMPTR),B'01000000' 1701 05588000 BNZ @RF01701 1701 05589000 * REG5->EXLACTM=ON; /* SET ACTIVATE FLAG */ 05590000 OI EXLACTM(REG5),B'01000000' 1702 05591000 * IF ELEMXFLG(3)=ON THEN /* LINK SPECIFIED */ 05592000 @RF01701 TM ELEMXFLG(RELEMPTR),B'00100000' 1703 05593000 BNO @RF01703 1703 05594000 * REG5->EXLLNK=ON; /* SET LINK FLAG */ 05595000 OI EXLLNK(REG5),B'00100000' 1704 05596000 * GEN(BR REG10); /* RETURN TO CALLER */ 05597000 @RF01703 DS 0H 1705 05598000 BR REG10 05599000 * RESPECIFY 1706 05600000 * (REG5, 1706 05601000 * REG8) UNRSTD; 1706 05602000 *MODARG: 1707 05603000 * 1707 05604000 * /*****************************************************************/ 05605000 * /* */ 05606000 * /* ROUTINE PROCESSES SPECIAL ARG KEYWORD */ 05607000 * /* */ 05608000 * /*****************************************************************/ 05609000 * 1707 05610000 * RPLARG=USERWORD; /* SET FIELD TO USER VALUE */ 05611000 MODARG MVC RPLARG(4,RBLKPTR),USERWORD+4(RELEMPTR) 1707 05612000 * RPLNIB=OFF; /* SET NIB FLAG TO ARG */ 05613000 NI RPLNIB(RBLKPTR),B'11111011' 1708 05614000 * GEN(BR REG10); /* RETURN TO CALLER */ 05615000 BR REG10 05616000 *MODNIB: 1710 05617000 * 1710 05618000 * /*****************************************************************/ 05619000 * /* */ 05620000 * /* ROUTINE PROCESSES NIB KEYWORD */ 05621000 * /* */ 05622000 * /*****************************************************************/ 05623000 * 1710 05624000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 05625000 MODNIB TM VTAMSW+1(RHDRPTR),B'00010000' 1710 05626000 BNZ @RF01710 1710 05627000 * DO; /* PROCESS ERROR */ 05628000 * REG0=VTAMONLY; /* SET ERROR CODE */ 05629000 LA REG0,16 1712 05630000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05631000 B EXITBAD 1713 05632000 * END; 1714 05633000 * RPLARG=USERWORD; /* SET FIELD TO USER VALUE */ 05634000 @RF01710 MVC RPLARG(4,RBLKPTR),USERWORD+4(RELEMPTR) 1715 05635000 * RPLNIB=ON; /* INDICATE NIB NOT ARG */ 05636000 OI RPLNIB(RBLKPTR),B'00000100' 1716 05637000 * GEN(BR REG10); /* RETURN TO CALLER */ 05638000 BR REG10 05639000 * 1718 05640000 * /*****************************************************************/ 05641000 * /* */ 05642000 * /* DISPLAY DDNAME */ 05643000 * /* */ 05644000 * /*****************************************************************/ 05645000 * 1718 05646000 *DSPDDNM: 1718 05647000 * RESPECIFY 1718 05648000 * REG8 RSTD; 1718 05649000 DSPDDNM DS 0H 1719 05650000 * IF ACBOPEN=NO THEN /* ACB OPEN */ 05651000 TM ACBOPEN(RBLKPTR),B'00010000' 1719 05652000 BZ @RT01719 1719 05653000 * GO TO DSPFIELD; /* DISPLAY FIELD FROM ACB */ 05654000 * REG0=REG10; /* SAVE RETURN ADDRESS */ 05655000 LR REG0,REG10 1721 05656000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 05657000 BAL REG10,PTAMB 05658000 * GEN FLOWS(PTTIOT)(BAL REG10,PTTIOT);/* POINT TO TIOT */ 05659000 BAL REG10,PTTIOT 05660000 * GEN(IC REG8,FLDOFF(REG11)); /* SET OFFSET OF ACBDDNM @ZA10005*/ 05661000 IC REG8,FLDOFF(REG11) 05662000 * RBLKPTR=RBLKPTR-REG8; /* BACK UP SO DSPFIELD WORKS */ 05663000 SLR RBLKPTR,REG8 1725 05664000 * GEN FLOWS(DSPFIELD)(BAL REG10,DSPFIELD);/* DISPLAY FIELD */ 05665000 BAL REG10,DSPFIELD 05666000 * RESPECIFY 1727 05667000 * REG8 UNRSTD; 1727 05668000 * RBLKPTR=SHOWBLAD; /* RESET BLOCK PTR */ 05669000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1728 05670000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 05671000 LR REG10,REG0 1729 05672000 * GEN(BR REG10); /* RETURN TO CALLER */ 05673000 BR REG10 05674000 * 1731 05675000 * /*****************************************************************/ 05676000 * /* */ 05677000 * /* TEST DDNAME */ 05678000 * /* */ 05679000 * /*****************************************************************/ 05680000 * 1731 05681000 *TSTDDNM: 1731 05682000 * RESPECIFY 1731 05683000 * REG8 RSTD; 1731 05684000 TSTDDNM DS 0H 1732 05685000 * IF ACBOPEN=NO THEN /* ACB OPEN */ 05686000 TM ACBOPEN(RBLKPTR),B'00010000' 1732 05687000 BZ @RT01732 1732 05688000 * GO TO TSTFIELD; /* TEST FIELD FROM ACB */ 05689000 * REG0=REG10; /* SAVE RETURN ADDRESS */ 05690000 LR REG0,REG10 1734 05691000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 05692000 BAL REG10,PTAMB 05693000 * GEN FLOWS(PTTIOT)(BAL REG10,PTTIOT);/* POINT TO TIOT */ 05694000 BAL REG10,PTTIOT 05695000 * GEN(IC REG8,FLDOFF(REG11)); /* SET OFFSET OF ACBDDNM @ZA10005*/ 05696000 IC REG8,FLDOFF(REG11) 05697000 * RBLKPTR=RBLKPTR-REG8; /* BACK UP SO TSTFIELD WORKS */ 05698000 SLR RBLKPTR,REG8 1738 05699000 * GEN FLOWS(TSTFIELD)(BAL REG10,TSTFIELD);/* TEST FIELD */ 05700000 BAL REG10,TSTFIELD 05701000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 05702000 LR REG10,REG0 1740 05703000 * RBLKPTR=TESTBLAD; /* RESET BLOCK PTR */ 05704000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1741 05705000 * RESPECIFY 1742 05706000 * REG8 UNRSTD; 1742 05707000 * GEN(BR REG10); /* RETURN TO CALLER */ 05708000 BR REG10 05709000 *DSPRKPF: 1744 05710000 * 1744 05711000 * /*****************************************************************/ 05712000 * /* */ 05713000 * /* DISPLAY RELATIVE KEY POSITION */ 05714000 * /* */ 05715000 * /*****************************************************************/ 05716000 * 1744 05717000 * REG0=REG10; /* SAVE RETURN ADDR */ 05718000 DSPRKPF LR REG0,REG10 1744 05719000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 05720000 BAL REG10,PTAMB 05721000 * RBLKPTR=AMBDSB; /* SET POINTER TO AMDSB */ 05722000 L RBLKPTR,AMBDSB(,RBLKPTR) 1746 05723000 * RESPECIFY 1747 05724000 * REG5 RSTD; 1747 05725000 * IF MODBLAD->ACBAMBL->AMBLPATH=ON THEN/* PATH */ 05726000 * 1748 05727000 L @09,MODBLAD(,RHDRPTR) 1748 05728000 L @09,ACBAMBL(,@09) 1748 05729000 TM AMBLPATH(@09),B'10000000' 1748 05730000 BNO @RF01748 1748 05731000 * /***************************************************************/ 05732000 * /* */ 05733000 * /* GET ADDRESS OF AMDAXRKP */ 05734000 * /* */ 05735000 * /***************************************************************/ 05736000 * 1749 05737000 * DO; 1749 05738000 * REG5=ADDR(AMDRKP)-ADDR(AMDAXRKP);/* SET ADDRESS OF RKP */ 05739000 LA REG5,2 1750 05740000 * RBLKPTR=RBLKPTR-REG5; /* BACK UP REQUIRED BYTES */ 05741000 SLR RBLKPTR,REG5 1751 05742000 * END; 1752 05743000 * RESPECIFY 1753 05744000 * REG5 UNRSTD; 1753 05745000 * 1753 05746000 @RF01748 DS 0H 1754 05747000 * /*****************************************************************/ 05748000 * /* */ 05749000 * /* DISPLAY REQUESTED FIELD */ 05750000 * /* */ 05751000 * /*****************************************************************/ 05752000 * 1754 05753000 * GEN(BAL REG10,DSPFIELD) 1754 05754000 * FLOWS(DSPFIELD); 1754 05755000 BAL REG10,DSPFIELD 05756000 * RBLKPTR=SHOWBLAD; /* RELOAD BLOCK PTR */ 05757000 L RBLKPTR,SHOWBLAD(,RHDRPTR) 1755 05758000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 05759000 LR REG10,REG0 1756 05760000 * GEN(BR REG10); /* RETURN TO CALLER */ 05761000 BR REG10 05762000 *TSTRKPF: 1758 05763000 * 1758 05764000 * /*****************************************************************/ 05765000 * /* */ 05766000 * /* ROUTINE TESTS RELATIVE KEY POSTION */ 05767000 * /* */ 05768000 * /*****************************************************************/ 05769000 * 1758 05770000 * REG0=REG10; /* SAVE RETURN ADDR */ 05771000 TSTRKPF LR REG0,REG10 1758 05772000 * GEN FLOWS(PTAMB)(BAL REG10,PTAMB);/* POINT TO AMB */ 05773000 BAL REG10,PTAMB 05774000 * RBLKPTR=AMBDSB; /* SET POINTER TO AMDSB */ 05775000 L RBLKPTR,AMBDSB(,RBLKPTR) 1760 05776000 * RESPECIFY 1761 05777000 * REG5 RSTD; 1761 05778000 * IF MODBLAD->ACBAMBL->AMBLPATH=ON THEN/* PATH */ 05779000 * 1762 05780000 L @09,MODBLAD(,RHDRPTR) 1762 05781000 L @09,ACBAMBL(,@09) 1762 05782000 TM AMBLPATH(@09),B'10000000' 1762 05783000 BNO @RF01762 1762 05784000 * /***************************************************************/ 05785000 * /* */ 05786000 * /* GET ADDRESS OF AMDAXRKP */ 05787000 * /* */ 05788000 * /***************************************************************/ 05789000 * 1763 05790000 * DO; 1763 05791000 * REG5=ADDR(AMDRKP)-ADDR(AMDAXRKP);/* SET ADDRESS OF RKP */ 05792000 LA REG5,2 1764 05793000 * RBLKPTR=RBLKPTR-REG5; /* BACK UP REQUIRED BYTES */ 05794000 SLR RBLKPTR,REG5 1765 05795000 * END; 1766 05796000 * RESPECIFY 1767 05797000 * REG5 UNRSTD; 1767 05798000 * 1767 05799000 @RF01762 DS 0H 1768 05800000 * /*****************************************************************/ 05801000 * /* */ 05802000 * /* TEST REQUESTED FIELD */ 05803000 * /* */ 05804000 * /*****************************************************************/ 05805000 * 1768 05806000 * GEN(BAL REG10,TSTFIELD) 1768 05807000 * FLOWS(TSTFIELD); 1768 05808000 BAL REG10,TSTFIELD 05809000 * RBLKPTR=TESTBLAD; /* RELOAD BLOCK PTR */ 05810000 L RBLKPTR,TESTBLAD(,RHDRPTR) 1769 05811000 * REG10=REG0; /* RELOAD RETURN ADDRESS */ 05812000 LR REG10,REG0 1770 05813000 * GEN(BR REG10); /* RETURN TO CALLER */ 05814000 BR REG10 05815000 *PTTIOT: 1772 05816000 * 1772 05817000 * /*****************************************************************/ 05818000 * /* */ 05819000 * /* ROUTINE POINTS TO TIOT ENTRY */ 05820000 * /* */ 05821000 * /*****************************************************************/ 05822000 * 1772 05823000 * RBLKPTR=ADDR(TIOEDDNM); /* SET ADDRESS OF TIOT ENTRY */ 05824000 PTTIOT L @05,AMBDEBPT(,RBLKPTR) 1772 05825000 L @05,DEBTCBAD(,@05) 1772 05826000 L @09,SHOWBLAD(,RHDRPTR) 1772 05827000 LH @09,ACBTIOT(,@09) 1772 05828000 AL @09,TCBTIO(,@05) 1772 05829000 LA @05,TIOEDDNM(,@09) 1772 05830000 LR RBLKPTR,@05 1772 05831000 * GEN(BR REG10); /* RETURN TO CALLER */ 05832000 BR REG10 05833000 * 1774 05834000 * /*****************************************************************/ 05835000 * /* */ 05836000 * /* PTAMB- POINT TO IDAAMB. ROUTINE LOADS RBLKPTR WITH THE ADDRESS*/ 05837000 * /* OF THE AMB. AT ENTRY TO THIS ROUTINE REGISTER 10 CONTAINS THE */ 05838000 * /* RETURN ADDRESS AND RBLKPTR CONTAINS THE ADDRESS OF THE ACB */ 05839000 * /* SUPPLIED BY THE USER. THE ACB MUST BE OPEN OR AN ERROR IS */ 05840000 * /* RETURNED TO THE USER. RETURN TO THE CALLER OF THIS ROUTINE IS */ 05841000 * /* VIA A BRANCH REGISTER 10. THIS ROUTINE IS EXERCISED ONLY FOR */ 05842000 * /* SHOWCB/TESTCB FOR AN ACB. */ 05843000 * /* */ 05844000 * /*****************************************************************/ 05845000 * 1774 05846000 *PTAMB: 1774 05847000 * IF ACBOPEN=NO THEN /* ACB OPEN */ 05848000 PTAMB TM ACBOPEN(RBLKPTR),B'00010000' 1774 05849000 BNZ @RF01774 1774 05850000 * DO; /* PROCESS ERROR CONDITION */ 05851000 * REG0=ACBNTOPN; /* SET REASON CODE */ 05852000 LA REG0,5 1776 05853000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05854000 B EXITBAD 1777 05855000 * END; 1778 05856000 * RBLKPTR=ACBAMBL; /* POINT TO AMBL */ 05857000 * 1779 05858000 @RF01774 L RBLKPTR,ACBAMBL(,RBLKPTR) 1779 05859000 * /*****************************************************************/ 05860000 * /* */ 05861000 * /* DUMMY ACB */ 05862000 * /* */ 05863000 * /*****************************************************************/ 05864000 * 1780 05865000 * IF AMBLDUMY=ON THEN /* DUMMY ACB */ 05866000 TM AMBLDUMY(RBLKPTR),B'00000001' 1780 05867000 BNO @RF01780 1780 05868000 * DO; /* PROCESS ERROR CONDITION */ 05869000 * REG0=DUMYDSET; /* SET REASON CODE */ 05870000 LA REG0,21 1782 05871000 * GO TO EXITBAD; /* EXIT WITH ERROR */ 05872000 B EXITBAD 1783 05873000 * END; 1784 05874000 * 1784 05875000 * /*****************************************************************/ 05876000 * /* */ 05877000 * /* PATH */ 05878000 * /* */ 05879000 * /*****************************************************************/ 05880000 * 1785 05881000 * IF AMBLPATH=YES THEN /* PATH ENTRY */ 05882000 @RF01780 TM AMBLPATH(RBLKPTR),B'10000000' 1785 05883000 BNO @RF01785 1785 05884000 * IF^(ELEMKWTC=16|ELEMKWTC=31 /* @ZA10846*/ 05885000 * 1786 05886000 * /***************************************************************/ 05887000 * /* */ 05888000 * /* NOT KEYLEN OR RKP @ZA10846*/ 05889000 * /* */ 05890000 * /***************************************************************/ 05891000 * 1786 05892000 * |(ELEMKWTC=1&ELEMBSTR='01000000'X)) THEN 1786 05893000 * 1786 05894000 LH @05,ELEMKWTC(,RELEMPTR) 1786 05895000 C @05,@CF00097 1786 05896000 BE @RF01786 1786 05897000 C @05,@CF00039 1786 05898000 BE @RF01786 1786 05899000 C @05,@CF00081 1786 05900000 BNE @RT01786 1786 05901000 CLC ELEMBSTR(4,RELEMPTR),@CB03619 1786 05902000 BE @RF01786 1786 05903000 @RT01786 DS 0H 1787 05904000 * /*************************************************************/ 05905000 * /* */ 05906000 * /* NOT UNIQUE ATTRIBUTE @ZA10576*/ 05907000 * /* */ 05908000 * /*************************************************************/ 05909000 * 1787 05910000 * RBLKPTR=AMBLXPT; /* POINT TO BASE AMBL */ 05911000 L RBLKPTR,AMBLXPT(,RBLKPTR) 1787 05912000 * IF SHOWOBJ=INDEX THEN /* INDEX */ 05913000 @RF01786 DS 0H 1788 05914000 @RF01785 CLC SHOWOBJ(2,RHDRPTR),@CH00081 1788 05915000 BNE @RF01788 1788 05916000 * DO; /* PROCESS INDEX @XM08933*/ 05917000 * RBLKPTR=AMBLIX; /* POINT TO AMB */ 05918000 L RBLKPTR,AMBLIX(,RBLKPTR) 1790 05919000 * IF RBLKPTR=ZERO THEN /* IS INDEX PRESENT @XM08933*/ 05920000 LTR RBLKPTR,RBLKPTR 1791 05921000 BNZ @RF01791 1791 05922000 * DO; /* PROCESS ERROR CONDITION 1792 05923000 * @XM08933*/ 05924000 * REG0=NOINDEX; /* LOAD ERROR CODE FOR NO INDEX 05925000 * @XM08933*/ 05926000 LA REG0,6 1793 05927000 * GO TO EXITBAD; /* EXIT WITH ERROR CONDITION 1794 05928000 * @XM08933*/ 05929000 B EXITBAD 1794 05930000 * END; /* END OF ERROR PATH @XM08933*/ 05931000 * END; /* END OF INDEX PATH @XM08933*/ 05932000 * ELSE /* DATA */ 05933000 * RBLKPTR=AMBLDTA; /* POINT TO AMB */ 05934000 B @RC01788 1797 05935000 @RF01788 L RBLKPTR,AMBLDTA(,RBLKPTR) 1797 05936000 * GEN(BR REG10); /* RETURN TO CALLER */ 05937000 @RC01788 DS 0H 1798 05938000 BR REG10 05939000 * 1799 05940000 * /*****************************************************************/ 05941000 * /* */ 05942000 * /* FNDHRBA-POINT TO THE IDAARDB WITH THE HIGHEST USED RBA. */ 05943000 * /* ROUTINE LOADS RBLKPTR WITH THE ADDRESS OF THE ARDB WITH HIGH */ 05944000 * /* USED RBA. AT ENTRY TO THIS ROUTINE REGISTER 10 CONTAINS THE */ 05945000 * /* RETURN ADDRESS AND RBLKPTR POINTS TO THE AMDSB. CONTROL IS */ 05946000 * /* RETURNED TO THE CALLER VIA A BRANCH REGISTER 10. ROUTINE IS */ 05947000 * /* ONLY EXERCISED FOR SHOWCB/TESTCB FOR AN ACB. */ 05948000 * /* */ 05949000 * /*****************************************************************/ 05950000 * 1799 05951000 *FNDHRBA: 1799 05952000 * RESPECIFY 1799 05953000 * (REG5) RSTD; 1799 05954000 FNDHRBA DS 0H 1800 05955000 * REG5=AMDPARDB; /* POINT TO FIRST ARDB */ 05956000 L REG5,AMDPARDB(,RBLKPTR) 1800 05957000 * RBLKPTR=REG5; /* SET BOTH EQUAL */ 05958000 LR RBLKPTR,REG5 1801 05959000 * DO WHILE(REG5^=ZERO); /* LOOP THRU CHAIN */ 05960000 B @DE01802 1802 05961000 @DL01802 DS 0H 1803 05962000 * IF ARDHRBAARDHRBA THEN /* STORE ADDR OF LARGER */ 05963000 CLC ARDHRBA(4,RBLKPTR),ARDHRBA(REG5) 1803 05964000 BNL @RF01803 1803 05965000 * RBLKPTR=REG5; /* SAVE ADDR OF LARGER */ 05966000 LR RBLKPTR,REG5 1804 05967000 * REG5=REG5->ARDNPTR; /* POINT TO NEXT ARDB */ 05968000 @RF01803 L REG5,ARDNPTR(,REG5) 1805 05969000 * END; 1806 05970000 @DE01802 LTR REG5,REG5 1806 05971000 BNZ @DL01802 1806 05972000 * GEN(BR REG10) ; /* RETURN TO CALLER */ 05973000 BR REG10 05974000 * RESPECIFY 1808 05975000 * (REG5, 1808 05976000 * REG9) UNRSTD; 1808 05977000 *ATRONTAB: /* ATRB-TURN BIT ON TABLE */ 05978000 *ATKSDSON: 1809 05979000 * AMDDST=ON; /* KSDS */ 05980000 ATRONTAB DS 0H 1809 05981000 ATKSDSON OI AMDDST(RBLKPTR),B'10000000' 1809 05982000 *ATESDSON: 1810 05983000 * AMDDST=OFF; /* ESDS */ 05984000 ATESDSON DS 0H 1811 05985000 * AMDRRDS=OFF; /* MAKE SURE NOT RRDS */ 05986000 NI AMDDST(RBLKPTR),B'01111101' 1811 05987000 *ATWCKON: 1812 05988000 * AMDWCK=ON; /* WCK */ 05989000 ATWCKON OI AMDWCK(RBLKPTR),B'01000000' 1812 05990000 *ATSSWDON: 1813 05991000 * AMDSDT=ON; /* SSWD */ 05992000 ATSSWDON OI AMDSDT(RBLKPTR),B'00100000' 1813 05993000 *ATREPLON: 1814 05994000 * AMDREPL=ON; /* REPL */ 05995000 ATREPLON OI AMDREPL(RBLKPTR),B'00010000' 1814 05996000 *ATRRDSON: 1815 05997000 * AMDRRDS=ON; /* RRDS */ 05998000 ATRRDSON OI AMDRRDS(RBLKPTR),B'00000010' 1815 05999000 *ATSPANON: 1816 06000000 * AMDSPAN=ON; /* SPAN */ 06001000 ATSPANON OI AMDSPAN(RBLKPTR),B'00000001' 1816 06002000 *ATUNQON: 1817 06003000 * AMDUNQ=OFF; /* UNQ @ZA10576*/ 06004000 ATUNQON NI AMDUNQ(RBLKPTR),B'01111111' 1817 06005000 *MACONTAB: /* MACRF-TURN ON BIT TABLE */ 06006000 *MAKEYON: 1818 06007000 * ACBKEY=ON; /* KEY */ 06008000 MACONTAB DS 0H 1818 06009000 MAKEYON OI ACBKEY(RBLKPTR),B'10000000' 1818 06010000 *MAADRON: 1819 06011000 * ACBADR=ON; /* ADR */ 06012000 MAADRON OI ACBADR(RBLKPTR),B'01000000' 1819 06013000 *MACNVON: 1820 06014000 * ACBCNV=ON; /* CNV */ 06015000 MACNVON OI ACBCNV(RBLKPTR),B'00100000' 1820 06016000 *MASEQON: 1821 06017000 * ACBSEQ=ON; /* SEQ */ 06018000 MASEQON OI ACBSEQ(RBLKPTR),B'00010000' 1821 06019000 *MASKPON: 1822 06020000 * ACBSKP=ON; /* SKP */ 06021000 MASKPON OI ACBSKP(RBLKPTR),B'00010000' 1822 06022000 *MADIRON: 1823 06023000 * ACBDIR=ON; /* DIR */ 06024000 MADIRON OI ACBDIR(RBLKPTR),B'00001000' 1823 06025000 *MAINON: 1824 06026000 * ACBIN=ON; /* IN */ 06027000 MAINON OI ACBIN(RBLKPTR),B'00000100' 1824 06028000 *MAOUTON: 1825 06029000 * ACBOUT=ON; /* OUT */ 06030000 MAOUTON OI ACBOUT(RBLKPTR),B'00000010' 1825 06031000 *MANUBON: 1826 06032000 * ACBUBF=OFF; /* NUB */ 06033000 MANUBON NI ACBUBF(RBLKPTR),B'11111110' 1826 06034000 *MAUBFON: 1827 06035000 * ACBUBF=ON; /* UBF */ 06036000 MAUBFON OI ACBUBF(RBLKPTR),B'00000001' 1827 06037000 *MALOGON: 1828 06038000 * ACBLOGON=OFF; /* LOGON */ 06039000 MALOGON NI ACBLOGON(RBLKPTR),B'11110111' 1828 06040000 *MANLOGON: 1829 06041000 * ACBLOGON=ON; /* NLOGON */ 06042000 MANLOGON OI ACBLOGON(RBLKPTR),B'00001000' 1829 06043000 *MADDNON: 1830 06044000 * ACBDSN=OFF; /* DDN */ 06045000 MADDNON NI ACBDSN(RBLKPTR),B'11111101' 1830 06046000 *MADSNON: 1831 06047000 * ACBDSN=ON; /* DSN */ 06048000 MADSNON OI ACBDSN(RBLKPTR),B'00000010' 1831 06049000 *MANRMON: 1832 06050000 * ACBAIX=OFF; /* NRM */ 06051000 MANRMON NI ACBAIX(RBLKPTR),B'11111110' 1832 06052000 *MAAIXON: 1833 06053000 * ACBAIX=ON; /* AIX */ 06054000 MAAIXON OI ACBAIX(RBLKPTR),B'00000001' 1833 06055000 *MANSRON: 1834 06056000 * ACBLSR=OFF; /* NSR */ 06057000 MANSRON DS 0H 1835 06058000 * ACBGSR=OFF; /* GSR */ 06059000 NI ACBLSR(RBLKPTR),B'10011111' 1835 06060000 *MALSRON: 1836 06061000 * ACBLSR=ON; /* LSR */ 06062000 MALSRON OI ACBLSR(RBLKPTR),B'01000000' 1836 06063000 *MAGSRON: 1837 06064000 * ACBGSR=ON; /* GSR */ 06065000 MAGSRON OI ACBGSR(RBLKPTR),B'00100000' 1837 06066000 *MANCION: 1838 06067000 * ACBICI=OFF; /* NCI */ 06068000 MANCION NI ACBICI(RBLKPTR),B'11101111' 1838 06069000 *MAICION: 1839 06070000 * ACBICI=ON; /* ICI */ 06071000 MAICION OI ACBICI(RBLKPTR),B'00010000' 1839 06072000 *MANDFON: 1840 06073000 * ACBDFR=OFF; /* NDF */ 06074000 MANDFON NI ACBDFR(RBLKPTR),B'11110111' 1840 06075000 *MADFRON: 1841 06076000 * ACBDFR=ON; /* DFR */ 06077000 MADFRON OI ACBDFR(RBLKPTR),B'00001000' 1841 06078000 *MANISON: 1842 06079000 * ACBSIS=OFF; /* NIS */ 06080000 MANISON NI ACBSIS(RBLKPTR),B'11111011' 1842 06081000 *MASISON: 1843 06082000 * ACBSIS=ON; /* SIS */ 06083000 MASISON OI ACBSIS(RBLKPTR),B'00000100' 1843 06084000 *MANFXON: 1844 06085000 * ACBNCFX=OFF; /* NFX */ 06086000 MANFXON NI ACBNCFX(RBLKPTR),B'11111101' 1844 06087000 *MACFXON: 1845 06088000 * ACBNCFX=ON; /* CFX */ 06089000 MACFXON OI ACBNCFX(RBLKPTR),B'00000010' 1845 06090000 *MARSTON: 1846 06091000 * ACBRST=ON; /* RST */ 06092000 MARSTON OI ACBRST(RBLKPTR),B'00000100' 1846 06093000 *MANRSON: 1847 06094000 * ACBRST=OFF; /* NRS */ 06095000 MANRSON NI ACBRST(RBLKPTR),B'11111011' 1847 06096000 *BRHONTAB: /* BRANCH TURN ON BIT TABLE */ 06097000 *BRYESON: 1848 06098000 * RPLBRANC=ON; /* YES */ 06099000 BRHONTAB DS 0H 1848 06100000 BRYESON OI RPLBRANC(RBLKPTR),B'00000010' 1848 06101000 *BRNOON: 1849 06102000 * RPLBRANC=OFF; /* NO */ 06103000 BRNOON NI RPLBRANC(RBLKPTR),B'11111101' 1849 06104000 *CATONTAB: /* CATALOG-TURN ON BIT TABLE */ 06105000 *CATYESON: 1850 06106000 * ACBCAT=ON; /* YES */ 06107000 CATONTAB DS 0H 1850 06108000 CATYESON OI ACBCAT(RBLKPTR),B'00010000' 1850 06109000 *CATNOON: 1851 06110000 * ACBCAT=OFF; /* NO */ 06111000 CATNOON NI ACBCAT(RBLKPTR),B'11101111' 1851 06112000 *CRAONTAB: /* CRA-TURN ON BIT TABLE */ 06113000 *CRSCRAON: 1852 06114000 * ACBSCRA=ON; /* SCRA */ 06115000 CRAONTAB DS 0H 1852 06116000 CRSCRAON OI ACBSCRA(RBLKPTR),B'00001000' 1852 06117000 *CRUCRAON: 1853 06118000 * ACBUCRA=ON; /* UCRA */ 06119000 CRUCRAON OI ACBUCRA(RBLKPTR),B'00000100' 1853 06120000 *OFLONTAB: /* OFLAGS-TURN ON TABLE */ 06121000 *OFOPENON: 1854 06122000 * ACBOPEN=ON; /* OPEN */ 06123000 OFLONTAB DS 0H 1854 06124000 OFOPENON OI ACBOPEN(RBLKPTR),B'00010000' 1854 06125000 *OPEONTAB: /* OPENOBJ- TURN ON FLAGS */ 06126000 *OPAIXON: 1855 06127000 * AMBLAIX=ON; /* AIX */ 06128000 OPEONTAB DS 0H 1855 06129000 OPAIXON OI AMBLAIX(RBLKPTR),B'00100000' 1855 06130000 *OPPATHON: 1856 06131000 * AMBLPATH=ON; /* PATH */ 06132000 OPPATHON OI AMBLPATH(RBLKPTR),B'10000000' 1856 06133000 *OPBASEON: 1857 06134000 * AMBLBASE=ON; /* BASE */ 06135000 OPBASEON OI AMBLBASE(RBLKPTR),B'00010000' 1857 06136000 *DATONTAB: /* DATAFLAGS- BIT TURN ON TABLE */ 06137000 *DAUNSOON: 1858 06138000 * RPLUINPT=ON; /* UNSOL */ 06139000 DATONTAB DS 0H 1858 06140000 DAUNSOON OI RPLUINPT(RBLKPTR),B'10000000' 1858 06141000 *DAEOBON: 1859 06142000 * RPLREOB=ON; /* EOB */ 06143000 DAEOBON OI RPLREOB(RBLKPTR),B'00100000' 1859 06144000 *DAEOMON: 1860 06145000 * RPLREOM=ON; /* EOM */ 06146000 DAEOMON OI RPLREOM(RBLKPTR),B'00010000' 1860 06147000 *DAEOTON: 1861 06148000 * RPLREOT=ON; /* EOT */ 06149000 DAEOTON OI RPLREOT(RBLKPTR),B'00001000' 1861 06150000 *DALOGOON: 1862 06151000 * RPLLGFRC=ON; /* LOGOFF */ 06152000 DALOGOON OI RPLLGFRC(RBLKPTR),B'00000100' 1862 06153000 *DALGON: 1863 06154000 * RPLRLG=ON; /* LG */ 06155000 DALGON OI RPLRLG(RBLKPTR),B'00000010' 1863 06156000 *DASOHON: 1864 06157000 * RPLRDSOH=ON; /* SOH */ 06158000 DASOHON OI RPLRDSOH(RBLKPTR),B'00000001' 1864 06159000 *OPTONTAB: /* OPTCD- BIT TURN ON TABLE */ 06160000 *OPKEYON: 1865 06161000 * RPLKEY=ON; /* KEY */ 06162000 OPTONTAB DS 0H 1865 06163000 OPKEYON OI RPLKEY(RBLKPTR),B'10000000' 1865 06164000 *OPADRON: 1866 06165000 * RPLADR=ON; /* ADR */ 06166000 OPADRON OI RPLADR(RBLKPTR),B'01000000' 1866 06167000 *OPCNVON: 1867 06168000 * RPLCNV=ON; /* CNV */ 06169000 OPCNVON OI RPLCNV(RBLKPTR),B'00100000' 1867 06170000 *OPSEQON: 1868 06171000 * RPLSEQ=ON; /* SEQ */ 06172000 OPSEQON OI RPLSEQ(RBLKPTR),B'00100000' 1868 06173000 *OPDIRON: 1869 06174000 * RPLDIR=ON; /* DIR */ 06175000 OPDIRON OI RPLDIR(RBLKPTR),B'01000000' 1869 06176000 *OPSKPON: 1870 06177000 * RPLSKP=ON; /* SKP */ 06178000 OPSKPON OI RPLSKP(RBLKPTR),B'00010000' 1870 06179000 *OPSYNON: 1871 06180000 * RPLASY=OFF; /* SYN */ 06181000 OPSYNON NI RPLASY(RBLKPTR),B'11110111' 1871 06182000 *OPASYON: 1872 06183000 * RPLASY=ON; /* ASY */ 06184000 OPASYON OI RPLASY(RBLKPTR),B'00001000' 1872 06185000 *OPNUPON: 1873 06186000 * RPLUPD=OFF; /* NUP */ 06187000 OPNUPON NI RPLUPD(RBLKPTR),B'11111101' 1873 06188000 *OPUPDON: 1874 06189000 * RPLUPD=ON; /* UPD */ 06190000 OPUPDON OI RPLUPD(RBLKPTR),B'00000010' 1874 06191000 *OPNSPON: 1875 06192000 * RPLNSP=ON; /* NSP */ 06193000 OPNSPON OI RPLNSP(RBLKPTR),B'00000001' 1875 06194000 *OPKEQON: 1876 06195000 * RPLKGE=OFF; /* KEQ */ 06196000 OPKEQON NI RPLKGE(RBLKPTR),B'11111011' 1876 06197000 *OPKGEON: 1877 06198000 * RPLKGE=ON; /* KGE */ 06199000 OPKGEON OI RPLKGE(RBLKPTR),B'00000100' 1877 06200000 *OPFKSON: 1878 06201000 * RPLGEN=OFF; /* FKS */ 06202000 OPFKSON NI RPLGEN(RBLKPTR),B'11111101' 1878 06203000 *OPGENON: 1879 06204000 * RPLGEN=ON; /* GEN */ 06205000 OPGENON OI RPLGEN(RBLKPTR),B'00000010' 1879 06206000 *OPMVEON: 1880 06207000 * RPLLOC=OFF; /* MVE */ 06208000 OPMVEON NI RPLLOC(RBLKPTR),B'01111111' 1880 06209000 *OPLOCON: 1881 06210000 * RPLLOC=ON; /* LOC */ 06211000 OPLOCON OI RPLLOC(RBLKPTR),B'10000000' 1881 06212000 *OPFWDON: 1882 06213000 * RPLBWD=OFF; /* FWD */ 06214000 OPFWDON NI RPLBWD(RBLKPTR),B'11101111' 1882 06215000 *OPBWDON: 1883 06216000 * RPLBWD=ON; /* BWD */ 06217000 OPBWDON OI RPLBWD(RBLKPTR),B'00010000' 1883 06218000 *OPARDON: 1884 06219000 * RPLLRD=OFF; /* ARD */ 06220000 OPARDON NI RPLLRD(RBLKPTR),B'11110111' 1884 06221000 *OPLRDON: 1885 06222000 * RPLLRD=ON; /* LRD */ 06223000 OPLRDON OI RPLLRD(RBLKPTR),B'00001000' 1885 06224000 *OPTONTB2: /* SECOND PART OF TABLE */ 06225000 *OPCAON: 1886 06226000 * RPLDLGIN=OFF; /* CA */ 06227000 OPTONTB2 DS 0H 1886 06228000 OPCAON NI RPLDLGIN(RBLKPTR),B'01111111' 1886 06229000 *OPCSON: 1887 06230000 * RPLDLGIN=ON; /* CS */ 06231000 OPCSON OI RPLDLGIN(RBLKPTR),B'10000000' 1887 06232000 *OPRELEON: 1888 06233000 * RPLPSOPT=OFF; /* RELEASE */ 06234000 OPRELEON NI RPLPSOPT(RBLKPTR),B'11011111' 1888 06235000 *OPPASSON: 1889 06236000 * RPLPSOPT=ON; /* PASS */ 06237000 OPPASSON OI RPLPSOPT(RBLKPTR),B'00100000' 1889 06238000 *OPNERAON: 1890 06239000 * RPLNERAS=ON; /* NERASE */ 06240000 OPNERAON OI RPLNERAS(RBLKPTR),B'00010000' 1890 06241000 *OPEAUON: 1891 06242000 * RPLEAU=ON; /* EAU */ 06243000 OPEAUON OI RPLEAU(RBLKPTR),B'00001000' 1891 06244000 *OPERASON: 1892 06245000 * RPLERACE=ON; /* ERASE */ 06246000 OPERASON OI RPLERACE(RBLKPTR),B'00000100' 1892 06247000 *OPSPECON: 1893 06248000 * RPLNODE=OFF; /* SPEC */ 06249000 OPSPECON NI RPLNODE(RBLKPTR),B'11111101' 1893 06250000 *OPANYON: 1894 06251000 * RPLNODE=ON; /* ANY */ 06252000 OPANYON OI RPLNODE(RBLKPTR),B'00000010' 1894 06253000 *OPNCONON: 1895 06254000 * RPLWROPT=OFF; /* NCONV */ 06255000 OPNCONON NI RPLWROPT(RBLKPTR),B'11111110' 1895 06256000 *OPCONVON: 1896 06257000 * RPLWROPT=ON; /* CONV */ 06258000 OPCONVON OI RPLWROPT(RBLKPTR),B'00000001' 1896 06259000 *OPLBTON: 1897 06260000 * RPLEOT=ON; /* LBT */ 06261000 OPLBTON OI RPLEOT(RBLKPTR),B'00100000' 1897 06262000 *OPLBMON: 1898 06263000 * RPLEOM=ON; /* LBM */ 06264000 OPLBMON OI RPLEOM(RBLKPTR),B'01000000' 1898 06265000 *OPBLKON: 1899 06266000 * RPLEOB=ON; /* BLK */ 06267000 OPBLKON OI RPLEOB(RBLKPTR),B'10000000' 1899 06268000 *OPCONDON: 1900 06269000 * RPLCOND=ON; /* COND */ 06270000 OPCONDON OI RPLCOND(RBLKPTR),B'00010000' 1900 06271000 *OPUNCOON: 1901 06272000 * RPLNCOND=ON; /* UNCOND */ 06273000 OPUNCOON OI RPLNCOND(RBLKPTR),B'00001000' 1901 06274000 *OPLOCKON: 1902 06275000 * RPLLOCK=ON; /* LOCK */ 06276000 OPLOCKON OI RPLLOCK(RBLKPTR),B'00000100' 1902 06277000 *OPLOGOON: 1903 06278000 * RPLLOGON=ON; /* LOGONMSG */ 06279000 OPLOGOON OI RPLLOGON+76(RBLKPTR),B'10000000' 1903 06280000 *OPDEVCON: 1904 06281000 * RPLDEVCH=ON; /* DEVCHAR */ 06282000 OPDEVCON OI RPLDEVCH+76(RBLKPTR),B'01000000' 1904 06283000 *OPTERMON: 1905 06284000 * RPLTERMS=ON; /* TERMS */ 06285000 OPTERMON OI RPLTERMS+76(RBLKPTR),B'00100000' 1905 06286000 *OPAPPSON: 1906 06287000 * RPLAPPST=ON; /* APPSTAT */ 06288000 OPAPPSON OI RPLAPPST+76(RBLKPTR),B'00001000' 1906 06289000 *OPCOUNON: 1907 06290000 * RPLCOUNT=ON; /* COUNTS */ 06291000 OPCOUNON OI RPLCOUNT+76(RBLKPTR),B'00010000' 1907 06292000 *OPRNNAON: 1908 06293000 * RPLRNNM=ON; /* RNNAME */ 06294000 OPRNNAON OI RPLRNNM+76(RBLKPTR),B'00000100' 1908 06295000 *OPCIDXON: 1909 06296000 * RPLCIDE=ON; /* CIDXLATE */ 06297000 OPCIDXON OI RPLCIDE+76(RBLKPTR),B'00000010' 1909 06298000 *OPTOPLON: 1910 06299000 * RPLTOPL=ON; /* TOPLOGON */ 06300000 OPTOPLON OI RPLTOPL+76(RBLKPTR),B'00000001' 1910 06301000 *OPBSCION: 1911 06302000 * RPLBSCID=ON; /* BSCID */ 06303000 OPBSCION OI RPLBSCID+76(RBLKPTR),B'10000000' 1911 06304000 *OPDISPON: 1912 06305000 * RPLDSPLY=ON; /* DISPLAY */ 06306000 OPDISPON OI RPLDSPLY+76(RBLKPTR),B'01000000' 1912 06307000 *OPRELRON: 1913 06308000 * RPLRLSOP=ON; /* RELRQ */ 06309000 OPRELRON OI RPLRLSOP(RBLKPTR),B'00000100' 1913 06310000 *OPTONTB3: /* THIRD PART OF TABLE */ 06311000 *OPNRELON: 1914 06312000 * RPLRLSOP=OFF; /* NRELRQ */ 06313000 OPTONTB3 DS 0H 1914 06314000 OPNRELON NI RPLRLSOP(RBLKPTR),B'11111011' 1914 06315000 *OPQON: 1915 06316000 * RPLQOPT=ON; /* Q */ 06317000 OPQON OI RPLQOPT(RBLKPTR),B'00010000' 1915 06318000 *OPNQON: 1916 06319000 * RPLQOPT=OFF; /* NQ */ 06320000 OPNQON NI RPLQOPT(RBLKPTR),B'11101111' 1916 06321000 *OPPENDON: 1917 06322000 * RPLPEND=ON; /* PEND */ 06323000 OPPENDON OI RPLPEND(RBLKPTR),B'00010000' 1917 06324000 *OPSESSON: 1918 06325000 * RPLSESS=ON; /* SESSION */ 06326000 OPSESSON OI RPLSESS(RBLKPTR),B'00001000' 1918 06327000 *OPACTION: 1919 06328000 * RPLACTV=ON; /* ACTIVE */ 06329000 OPACTION OI RPLACTV(RBLKPTR),B'00000100' 1919 06330000 *OPUNCLON: 1920 06331000 * RPLUNCON=ON; /* UNCONDL */ 06332000 OPUNCLON OI RPLUNCON(RBLKPTR),B'00000010' 1920 06333000 *OPQUIEON: 1921 06334000 * RPLQUIES=ON; /* QUIESCE */ 06335000 OPQUIEON OI RPLQUIES+76(RBLKPTR),B'10000000' 1921 06336000 *OPSTARON: 1922 06337000 * RPLSTART=ON; /* START */ 06338000 OPSTARON OI RPLSTART+76(RBLKPTR),B'01000000' 1922 06339000 *OPSTOPON: 1923 06340000 * RPLSTOP=ON; /* STOP */ 06341000 OPSTOPON OI RPLSTOP+76(RBLKPTR),B'00100000' 1923 06342000 *OPACCEON: 1924 06343000 * RPLODACP=ON; /* ACCEPT */ 06344000 OPACCEON OI RPLODACP(RBLKPTR),B'01000000' 1924 06345000 *OPACQUON: 1925 06346000 * RPLODACQ=ON; /* ACQUIRE */ 06347000 OPACQUON OI RPLODACQ(RBLKPTR),B'10000000' 1925 06348000 *OPCALLON: 1926 06349000 * RPLCNALL=ON; /* CONALL */ 06350000 OPCALLON OI RPLCNALL(RBLKPTR),B'10000000' 1926 06351000 *OPCANYON: 1927 06352000 * RPLCNANY=ON; /* CONANY */ 06353000 OPCANYON OI RPLCNANY(RBLKPTR),B'01000000' 1927 06354000 *OPKEEPON: 1928 06355000 * RPLKEEP=ON; /* KEEP */ 06356000 OPKEEPON OI RPLKEEP+76(RBLKPTR),B'01000000' 1928 06357000 *OPTRUNON: 1929 06358000 * RPLTRUNC=ON; /* TRUNC */ 06359000 OPTRUNON OI RPLTRUNC+76(RBLKPTR),B'00100000' 1929 06360000 *OPNIBTON: 1930 06361000 * RPLNIBTK=ON; /* NIBTK */ 06362000 OPNIBTON OI RPLNIBTK+76(RBLKPTR),B'00010000' 1930 06363000 *OPFMHDON: 1931 06364000 * RPLFMHDR=ON; /* FMHDR */ 06365000 OPFMHDON OI RPLFMHDR+76(RBLKPTR),B'00000001' 1931 06366000 *OPNFMHON: 1932 06367000 * RPLFMHDR=OFF; /* NFMHDR */ 06368000 OPNFMHON NI RPLFMHDR+76(RBLKPTR),B'11111110' 1932 06369000 *OPSESPON: 1933 06370000 * RPLSPARM=ON; /* SESSPARM */ 06371000 OPSESPON OI RPLSPARM+76(RBLKPTR),B'00100000' 1933 06372000 *OPSESKON: 1934 06373000 * RPLTSKY=ON; /* SESSKEY @G40KSCM*/ 06374000 OPSESKON OI RPLTSKY+76(RBLKPTR),B'00010000' 1934 06375000 *LISONTAB: /* LISTEND-BIT TURN ON TABLE */ 06376000 *LIYESON: 1935 06377000 * NIBLAST=OFF; /* YES */ 06378000 LISONTAB DS 0H 1935 06379000 LIYESON NI NIBLAST(RBLKPTR),B'01111111' 1935 06380000 *LINOON: 1936 06381000 * NIBLAST=ON; /* NO */ 06382000 LINOON OI NIBLAST(RBLKPTR),B'10000000' 1936 06383000 *CONONTAB: /* CON-BIT TURN ON TABLE */ 06384000 *COYESON: 1937 06385000 * NIBCON=ON; /* YES */ 06386000 CONONTAB DS 0H 1937 06387000 COYESON OI NIBCON(RBLKPTR),B'01000000' 1937 06388000 *CONOON: 1938 06389000 * NIBCON=OFF; /* NO */ 06390000 CONOON NI NIBCON(RBLKPTR),B'10111111' 1938 06391000 *PROONTAB: /* PROC-BIT TURN ON TABLE */ 06392000 *PRMSGON: 1939 06393000 * PROMODM=ON; /* MSG */ 06394000 PROONTAB DS 0H 1939 06395000 PRMSGON OI PROMODM+36(RBLKPTR),B'00000100' 1939 06396000 *PRTRANON: 1940 06397000 * PROMODT=ON; /* TRANS */ 06398000 PRTRANON OI PROMODT+36(RBLKPTR),B'00000010' 1940 06399000 *PRCONTON: 1941 06400000 * PROMODC=ON; /* CONT */ 06401000 PRCONTON OI PROMODC+36(RBLKPTR),B'00000001' 1941 06402000 *PRBLOCON: 1942 06403000 * PROMODB=ON; /* BLOCK */ 06404000 PRBLOCON OI PROMODB+36(RBLKPTR),B'00001000' 1942 06405000 *PRLGINON: 1943 06406000 * PROLGIN=OFF; /* LGIN */ 06407000 PRLGINON NI PROLGIN+36(RBLKPTR),B'11011111' 1943 06408000 *PRNLGION: 1944 06409000 * PROLGIN=ON; /* NLGIN */ 06410000 PRNLGION OI PROLGIN+36(RBLKPTR),B'00100000' 1944 06411000 *PRLGOUON: 1945 06412000 * PROLGOT=OFF; /* LGOUT */ 06413000 PRLGOUON NI PROLGOT+36(RBLKPTR),B'11011111' 1945 06414000 *PRNLGOON: 1946 06415000 * PROLGOT=ON; /* NLGOUT */ 06416000 PRNLGOON OI PROLGOT+36(RBLKPTR),B'00100000' 1946 06417000 *PRCONFON: 1947 06418000 * PROCFTX=ON; /* CONFTXT */ 06419000 PRCONFON OI PROCFTX+36(RBLKPTR),B'00000001' 1947 06420000 *PRNCONON: 1948 06421000 * PROCFTX=OFF; /* NCONFTXT */ 06422000 PRNCONON NI PROCFTX+36(RBLKPTR),B'11111110' 1948 06423000 *PRTMFLON: 1949 06424000 * PRONTFL=OFF; /* TMFLL */ 06425000 PRTMFLON NI PRONTFL+36(RBLKPTR),B'11111011' 1949 06426000 *PRNTMFON: 1950 06427000 * PRONTFL=ON; /* NTMFLL */ 06428000 PRNTMFON OI PRONTFL+36(RBLKPTR),B'00000100' 1950 06429000 *PRERPION: 1951 06430000 * PROERPI=OFF; /* ERPIN */ 06431000 PRERPION NI PROERPI+36(RBLKPTR),B'10111111' 1951 06432000 *PRNERION: 1952 06433000 * PROERPI=ON; /* NERPIN */ 06434000 PRNERION OI PROERPI+36(RBLKPTR),B'01000000' 1952 06435000 *PRERPOON: 1953 06436000 * PROERPO=OFF; /* ERPOUT */ 06437000 PRERPOON NI PROERPO+36(RBLKPTR),B'10111111' 1953 06438000 *PRNEROON: 1954 06439000 * PROERPO=ON; /* NERPOUT */ 06440000 PRNEROON OI PROERPO+36(RBLKPTR),B'01000000' 1954 06441000 *PRMONION: 1955 06442000 * PROMONIT=ON; /* MONITOR */ 06443000 PRMONION OI PROMONIT+36(RBLKPTR),B'00000100' 1955 06444000 *PRNMONON: 1956 06445000 * PROMONIT=OFF; /* NMONITOR */ 06446000 PRNMONON NI PROMONIT+36(RBLKPTR),B'11111011' 1956 06447000 *PRELCON: 1957 06448000 * PROEMLC=ON; /* ELC */ 06449000 PRELCON OI PROEMLC+36(RBLKPTR),B'00000010' 1957 06450000 *PRNELCON: 1958 06451000 * PROEMLC=OFF; /* NELC */ 06452000 PRNELCON NI PROEMLC+36(RBLKPTR),B'11111101' 1958 06453000 *PRNEIBON: 1959 06454000 * PROEIB=OFF; /* NEIB */ 06455000 PRNEIBON NI PROEIB+36(RBLKPTR),B'01111111' 1959 06456000 *PREIBON: 1960 06457000 * PROEIB=ON; /* EIB */ 06458000 PREIBON OI PROEIB+36(RBLKPTR),B'10000000' 1960 06459000 *PRTIMEON: 1961 06460000 * PRONTO=OFF; /* TIMEOUT */ 06461000 PRTIMEON NI PRONTO+36(RBLKPTR),B'11101111' 1961 06462000 *PRNTIMON: 1962 06463000 * PRONTO=ON; /* NTIMEOUT */ 06464000 PRNTIMON OI PRONTO+36(RBLKPTR),B'00010000' 1962 06465000 *PRNORDON: 1963 06466000 * PROFIFOR=OFF; /* NORDRESP @G40KSCM*/ 06467000 PRNORDON NI PROFIFOR+36(RBLKPTR),B'11110111' 1963 06468000 *PRORDON: 1964 06469000 * PROFIFOR=ON; /* ORDRESP @G40KSCM*/ 06470000 PRORDON OI PROFIFOR+36(RBLKPTR),B'00001000' 1964 06471000 *PRKEEPON: 1965 06472000 * PROTRUNC=OFF; /* KEEP */ 06473000 PRKEEPON NI PROTRUNC+36(RBLKPTR),B'10111111' 1965 06474000 *PRTRUNON: 1966 06475000 * PROTRUNC=ON; /* TRUNC */ 06476000 PRTRUNON OI PROTRUNC+36(RBLKPTR),B'01000000' 1966 06477000 *PRNBINON: 1967 06478000 * PROXPOPT=OFF; /* NBINARY */ 06479000 PRNBINON NI PROXPOPT+36(RBLKPTR),B'11011111' 1967 06480000 *PRBINAON: 1968 06481000 * PROXPOPT=ON; /* BINARY */ 06482000 PRBINAON OI PROXPOPT+36(RBLKPTR),B'00100000' 1968 06483000 *PRNDFAON: 1969 06484000 * PRODFASY=OFF; /* NDFASYX */ 06485000 PRNDFAON NI PRODFASY+36(RBLKPTR),B'11101111' 1969 06486000 *PRDFASON: 1970 06487000 * PRODFASY=ON; /* DFASYX */ 06488000 PRDFASON OI PRODFASY+36(RBLKPTR),B'00010000' 1970 06489000 *PROONTB2: /* SECOND PART OF TABLE */ 06490000 *PRNRESON: 1971 06491000 * PRORESPX=OFF; /* NRESPX */ 06492000 PROONTB2 DS 0H 1971 06493000 PRNRESON NI PRORESPX+36(RBLKPTR),B'11110111' 1971 06494000 *PRRESPON: 1972 06495000 * PRORESPX=ON; /* RESPX */ 06496000 PRRESPON OI PRORESPX+36(RBLKPTR),B'00001000' 1972 06497000 *PRCAON: 1973 06498000 * PROCA=ON; /* CA */ 06499000 PRCAON OI PROCA+36(RBLKPTR),B'00000100' 1973 06500000 *PRCSON: 1974 06501000 * PROCS=ON; /* CS */ 06502000 PRCSON OI PROCS+36(RBLKPTR),B'00000010' 1974 06503000 *PRRPLCON: 1975 06504000 * PRORPLC=ON; /* RPLC */ 06505000 PRRPLCON OI PRORPLC+36(RBLKPTR),B'00000001' 1975 06506000 *PRSYSON: 1976 06507000 * PROSYSR=OFF; /* SYSRESP @G40KSCM*/ 06508000 PRSYSON NI PROSYSR+36(RBLKPTR),B'11101111' 1976 06509000 *PRAPPLON: 1977 06510000 * PROSYSR=ON; /* APPLRESP @G40KSCM*/ 06511000 PRAPPLON OI PROSYSR+36(RBLKPTR),B'00010000' 1977 06512000 *SDTONTAB: /* SDT-BIT TURN ON TABLE */ 06513000 *SDSYSON: 1978 06514000 * NIBSDAPP=OFF; /* SYS */ 06515000 SDTONTAB DS 0H 1978 06516000 SDSYSON NI NIBSDAPP(RBLKPTR),B'11011111' 1978 06517000 *SDAPPLON: 1979 06518000 * NIBSDAPP=ON; /* APPL */ 06519000 SDAPPLON OI NIBSDAPP(RBLKPTR),B'00100000' 1979 06520000 *BRAONTAB: /* BRACKET-BIT TURN ON TABLE */ 06521000 *BRBBON: 1980 06522000 * RPLBB=ON; /* BB */ 06523000 BRAONTAB DS 0H 1980 06524000 BRBBON OI RPLBB+16(RBLKPTR),B'10000000' 1980 06525000 *BRNBBON: 1981 06526000 * RPLBB=OFF; /* NBB */ 06527000 BRNBBON NI RPLBB+16(RBLKPTR),B'01111111' 1981 06528000 *BREBON: 1982 06529000 * RPLEB=ON; /* EB */ 06530000 BREBON OI RPLEB+16(RBLKPTR),B'01000000' 1982 06531000 *BRNEBON: 1983 06532000 * RPLEB=OFF; /* NEB */ 06533000 BRNEBON NI RPLEB+16(RBLKPTR),B'10111111' 1983 06534000 *CHNONTAB: /* CHNGDIR-BIT TURN ON TABLE */ 06535000 *CHNCMDON: 1984 06536000 * RPLCMD=OFF; /* NCMD */ 06537000 CHNONTAB DS 0H 1984 06538000 CHNCMDON NI RPLCMD+16(RBLKPTR),B'11011111' 1984 06539000 *CHCMDON: 1985 06540000 * RPLCMD=ON; /* CMD */ 06541000 CHCMDON OI RPLCMD+16(RBLKPTR),B'00100000' 1985 06542000 *CHNREQON: 1986 06543000 * RPLCHREQ=OFF; /* NREQ */ 06544000 CHNREQON NI RPLCHREQ+16(RBLKPTR),B'11101111' 1986 06545000 *CHREQON: 1987 06546000 * RPLCHREQ=ON; /* REQ */ 06547000 CHREQON OI RPLCHREQ+16(RBLKPTR),B'00010000' 1987 06548000 *STYONTAB: /* STYPE-BIT TURN ON TABLE */ 06549000 *STREQON: 1988 06550000 * RPLSRESP=OFF; /* REQ */ 06551000 STYONTAB DS 0H 1988 06552000 STREQON NI RPLSRESP+16(RBLKPTR),B'01111111' 1988 06553000 *STRESPON: 1989 06554000 * RPLSRESP=ON; /* RESP */ 06555000 STRESPON OI RPLSRESP+16(RBLKPTR),B'10000000' 1989 06556000 *RTYONTAB: /* RTYPE- BIT TURN ON TABLE */ 06557000 *RTNRESON: 1990 06558000 * RPLRRESP=OFF; /* NRESP */ 06559000 RTYONTAB DS 0H 1990 06560000 RTNRESON NI RPLRRESP+16(RBLKPTR),B'11110111' 1990 06561000 *RTRESPON: 1991 06562000 * RPLRRESP=ON; /* RESP */ 06563000 RTRESPON OI RPLRRESP+16(RBLKPTR),B'00001000' 1991 06564000 *RTDFSYON: 1992 06565000 * RPLNFSYN=OFF; /* DFSYN */ 06566000 RTDFSYON NI RPLNFSYN+16(RBLKPTR),B'11111011' 1992 06567000 *RTNDFSON: 1993 06568000 * RPLNFSYN=ON; /* NDFSYN */ 06569000 RTNDFSON OI RPLNFSYN+16(RBLKPTR),B'00000100' 1993 06570000 *RTNDFAON: 1994 06571000 * RPLDFASY=OFF; /* NDFASY */ 06572000 RTNDFAON NI RPLDFASY+16(RBLKPTR),B'11111101' 1994 06573000 *RTDFASON: 1995 06574000 * RPLDFASY=ON; /* DFASY */ 06575000 RTDFASON OI RPLDFASY+16(RBLKPTR),B'00000010' 1995 06576000 *CHAONTAB: /* CHAIN-BIT TURN ON TABLE */ 06577000 *CHFIRSON: 1996 06578000 * RPLFIRST=ON; /* FIRST */ 06579000 CHAONTAB DS 0H 1996 06580000 CHFIRSON OI RPLFIRST+16(RBLKPTR),B'10000000' 1996 06581000 *CHMIDDON: 1997 06582000 * RPLMIDLE=ON; /* MIDDLE */ 06583000 CHMIDDON OI RPLMIDLE+16(RBLKPTR),B'01000000' 1997 06584000 *CHLASTON: 1998 06585000 * RPLLAST=ON; /* LAST */ 06586000 CHLASTON OI RPLLAST+16(RBLKPTR),B'00100000' 1998 06587000 *CHONLYON: 1999 06588000 * RPLONLY=ON; /* ONLY */ 06589000 CHONLYON OI RPLONLY+16(RBLKPTR),B'00010000' 1999 06590000 *POSONTAB: /* POST-BIT TURN ON TABLE */ 06591000 *PORESPON: 2000 06592000 * RPLSCHED=OFF; /* RESP */ 06593000 POSONTAB DS 0H 2000 06594000 PORESPON NI RPLSCHED+16(RBLKPTR),B'01111111' 2000 06595000 *POSCHEON: 2001 06596000 * RPLSCHED=ON; /* SCHE */ 06597000 POSCHEON OI RPLSCHED+16(RBLKPTR),B'10000000' 2001 06598000 *RESONTAB: /* RESPOND-BIT TURN ON TABLE */ 06599000 *RENEXON: 2002 06600000 * RPLEX=OFF; /* NEX */ 06601000 RESONTAB DS 0H 2002 06602000 RENEXON NI RPLEX+16(RBLKPTR),B'11111011' 2002 06603000 *REEXON: 2003 06604000 * RPLEX=ON; /* EX */ 06605000 REEXON OI RPLEX+16(RBLKPTR),B'00000100' 2003 06606000 *REFMEON: 2004 06607000 * RPLNFME=OFF; /* FME */ 06608000 REFMEON NI RPLNFME+16(RBLKPTR),B'11111101' 2004 06609000 *RENFMEON: 2005 06610000 * RPLNFME=ON; /* NFME */ 06611000 RENFMEON OI RPLNFME+16(RBLKPTR),B'00000010' 2005 06612000 *RENRRNON: 2006 06613000 * RPLRRN=OFF; /* NRRN */ 06614000 RENRRNON NI RPLRRN+16(RBLKPTR),B'11111110' 2006 06615000 *RERRNON: 2007 06616000 * RPLRRN=ON; /* RRN */ 06617000 RERRNON OI RPLRRN+16(RBLKPTR),B'00000001' 2007 06618000 *REQREON: 2008 06619000 * RPLQRI=ON; /* QRESP @G40KSCM*/ 06620000 REQREON OI RPLQRI+16(RBLKPTR),B'00001000' 2008 06621000 *RENQREON: 2009 06622000 * RPLQRI=OFF; /* NQRESP @G40KSCM*/ 06623000 RENQREON NI RPLQRI+16(RBLKPTR),B'11110111' 2009 06624000 *CNTONTAB: /* CONTROL-BIT TURN ON TABLE */ 06625000 *CNDATAON: 2010 06626000 * RPLDATA=ON; /* DATA */ 06627000 CNTONTAB DS 0H 2010 06628000 CNDATAON OI RPLDATA+16(RBLKPTR),B'10000000' 2010 06629000 *CNCANCON: 2011 06630000 * RPLCNCEL=ON; /* CANCEL */ 06631000 CNCANCON OI RPLCNCEL+16(RBLKPTR),B'01000000' 2011 06632000 *CNQCON: 2012 06633000 * RPLQC=ON; /* QC */ 06634000 CNQCON OI RPLQC+16(RBLKPTR),B'00100000' 2012 06635000 *CNQECON: 2013 06636000 * RPLQEC=ON; /* QEC */ 06637000 CNQECON OI RPLQEC+16(RBLKPTR),B'00010000' 2013 06638000 *CNCHASON: 2014 06639000 * RPLCHASE=ON; /* CHASE */ 06640000 CNCHASON OI RPLCHASE+16(RBLKPTR),B'00001000' 2014 06641000 *CNRELQON: 2015 06642000 * RPLRELQ=ON; /* RELQ */ 06643000 CNRELQON OI RPLRELQ+16(RBLKPTR),B'00000100' 2015 06644000 *CNBIDON: 2016 06645000 * RPLBID=ON; /* BID */ 06646000 CNBIDON OI RPLBID+16(RBLKPTR),B'10000000' 2016 06647000 *CNRTRON: 2017 06648000 * RPLRTR=ON; /* RTR */ 06649000 CNRTRON OI RPLRTR+16(RBLKPTR),B'01000000' 2017 06650000 *CNLUSON: 2018 06651000 * RPLLUS=ON; /* LUS */ 06652000 CNLUSON OI RPLLUS+16(RBLKPTR),B'00100000' 2018 06653000 *CNSIGNON: 2019 06654000 * RPLSIGNL=ON; /* SIGNAL */ 06655000 CNSIGNON OI RPLSIGNL+16(RBLKPTR),B'00010000' 2019 06656000 *CNSDTON: 2020 06657000 * RPLSDT=ON; /* SDT */ 06658000 CNSDTON OI RPLSDT+16(RBLKPTR),B'10000000' 2020 06659000 *CNCLEAON: 2021 06660000 * RPLCLEAR=ON; /* CLEAR */ 06661000 CNCLEAON OI RPLCLEAR+16(RBLKPTR),B'01000000' 2021 06662000 *CNSTSNON: 2022 06663000 * RPLSTSN=ON; /* STSN */ 06664000 CNSTSNON OI RPLSTSN+16(RBLKPTR),B'00100000' 2022 06665000 *CNSHUTON: 2023 06666000 * RPLSHUTD=ON; /* SHUTD */ 06667000 CNSHUTON OI RPLSHUTD+16(RBLKPTR),B'00010000' 2023 06668000 *CNRQRON: 2024 06669000 * RPLRQR=ON; /* RQR */ 06670000 CNRQRON OI RPLRQR+16(RBLKPTR),B'00000100' 2024 06671000 *CNRSHUON: 2025 06672000 * RPLRSHUT=ON; /* RSHUT */ 06673000 CNRSHUON OI RPLRSHUT+16(RBLKPTR),B'00000010' 2025 06674000 *CNSHTCON: 2026 06675000 * RPLSHUTC=ON; /* SHUTC @ZA07554*/ 06676000 CNSHTCON OI RPLSHUTC+16(RBLKPTR),B'00001000' 2026 06677000 *CNBINDON: 2027 06678000 * RPLTBIND=ON; /* BIND @G40KSCM*/ 06679000 CNBINDON OI RPLTBIND+16(RBLKPTR),B'00001000' 2027 06680000 *CNUNBDON: 2028 06681000 * RPLTUNBD=ON; /* UNBIND @G40KSCM*/ 06682000 CNUNBDON OI RPLTUNBD+16(RBLKPTR),B'00000100' 2028 06683000 *CNSBION: 2029 06684000 * RPLSBI=ON; /* SBI @G40KSCM*/ 06685000 CNSBION OI RPLSBI+16(RBLKPTR),B'00000010' 2029 06686000 *CNBISON: 2030 06687000 * RPLBIS=ON; /* BIS @G40KSCM*/ 06688000 CNBISON OI RPLBIS+16(RBLKPTR),B'00000001' 2030 06689000 *QBSONTAB: /* QBSQAC-BIT TURN ON TABLE */ 06690000 *QBSETON: 2031 06691000 * RPLOSET=ON; /* SET */ 06692000 QBSONTAB DS 0H 2031 06693000 QBSETON OI RPLOSET+60(RBLKPTR),B'10000000' 2031 06694000 *QBTESTON: 2032 06695000 * RPLOTST=ON; /* TESTSET */ 06696000 QBTESTON OI RPLOTST+60(RBLKPTR),B'01000000' 2032 06697000 *QBRESEON: 2033 06698000 * RPLORSET=ON; /* RESET */ 06699000 QBRESEON OI RPLORSET+60(RBLKPTR),B'00100000' 2033 06700000 *QBIGNOON: 2034 06701000 * RPLOIGN=ON; /* IGNORE */ 06702000 QBIGNOON OI RPLOIGN+60(RBLKPTR),B'00010000' 2034 06703000 *QBTSTPON: 2035 06704000 * RPLOPOS=ON; /* TESTPOS */ 06705000 QBTSTPON OI RPLOPOS+60(RBLKPTR),B'00001000' 2035 06706000 *QBTSTNON: 2036 06707000 * RPLONEG=ON; /* TESTNEG */ 06708000 QBTSTNON OI RPLONEG+60(RBLKPTR),B'00000100' 2036 06709000 *QBINVAON: 2037 06710000 * RPLOINV=ON; /* INVALID */ 06711000 QBINVAON OI RPLOINV+60(RBLKPTR),B'00000010' 2037 06712000 *IBSONTAB: /* IBSQAC-BIT TURN ON TABLE */ 06713000 *IBSETON: 2038 06714000 * RPLISET=ON; /* SET */ 06715000 IBSONTAB DS 0H 2038 06716000 IBSETON OI RPLISET+60(RBLKPTR),B'10000000' 2038 06717000 *IBTESTON: 2039 06718000 * RPLITST=ON; /* TESTSET */ 06719000 IBTESTON OI RPLITST+60(RBLKPTR),B'01000000' 2039 06720000 *IBRESEON: 2040 06721000 * RPLIRSET=ON; /* RESET */ 06722000 IBRESEON OI RPLIRSET+60(RBLKPTR),B'00100000' 2040 06723000 *IBIGNOON: 2041 06724000 * RPLIIGN=ON; /* IGNORE */ 06725000 IBIGNOON OI RPLIIGN+60(RBLKPTR),B'00010000' 2041 06726000 *IBTSTPON: 2042 06727000 * RPLIPOS=ON; /* TESTPOS */ 06728000 IBTSTPON OI RPLIPOS+60(RBLKPTR),B'00001000' 2042 06729000 *IBTSTNON: 2043 06730000 * RPLINEG=ON; /* TESTNEG */ 06731000 IBTSTNON OI RPLINEG+60(RBLKPTR),B'00000100' 2043 06732000 *IBINVAON: 2044 06733000 * RPLIINV=ON; /* INVALID */ 06734000 IBINVAON OI RPLIINV+60(RBLKPTR),B'00000010' 2044 06735000 *SSOONTAB: /* SSENSEO-BIT TURN ON TABLE */ 06736000 *SOCPMON: 2045 06737000 * RPLCPMO=ON; /* CPM */ 06738000 SSOONTAB DS 0H 2045 06739000 SOCPMON OI RPLCPMO+76(RBLKPTR),B'01000000' 2045 06740000 *SOSTATON: 2046 06741000 * RPLSTATO=ON; /* STATE */ 06742000 SOSTATON OI RPLSTATO+76(RBLKPTR),B'00100000' 2046 06743000 *SOFION: 2047 06744000 * RPLFIO=ON; /* FI */ 06745000 SOFION OI RPLFIO+76(RBLKPTR),B'00010000' 2047 06746000 *SORRON: 2048 06747000 * RPLRRO=ON; /* RR */ 06748000 SORRON OI RPLRRO+76(RBLKPTR),B'00001000' 2048 06749000 *SSIONTAB: /* SSENSEI-BIT TURN ON TABLE */ 06750000 *SIPATHON: 2049 06751000 * RPLPATHI=ON; /* PATH */ 06752000 SSIONTAB DS 0H 2049 06753000 SIPATHON OI RPLPATHI+76(RBLKPTR),B'10000000' 2049 06754000 *SICPMON: 2050 06755000 * RPLCPMI=ON; /* CPM */ 06756000 SICPMON OI RPLCPMI+76(RBLKPTR),B'01000000' 2050 06757000 *SISTATON: 2051 06758000 * RPLSTATI=ON; /* STATE */ 06759000 SISTATON OI RPLSTATI+76(RBLKPTR),B'00100000' 2051 06760000 *SIFION: 2052 06761000 * RPLFII=ON; /* FI */ 06762000 SIFION OI RPLFII+76(RBLKPTR),B'00010000' 2052 06763000 *SIRRON: 2053 06764000 * RPLRRI=ON; /* RR */ 06765000 SIRRON OI RPLRRI+76(RBLKPTR),B'00001000' 2053 06766000 *AIXONTAB: /* AIXFLAG-BIT TURN ON TABLE */ 06767000 *AIAIXON: 2054 06768000 * RPLAXPKP=ON; /* AIXPKP */ 06769000 AIXONTAB DS 0H 2054 06770000 AIAIXON OI RPLAXPKP(RBLKPTR),B'10000000' 2054 06771000 *CODONTAB: /* CODESEL BIT TURN ON TABLE */ 06772000 *CODSTDON: 2055 06773000 * RPLCSI=OFF; /* STANDARD */ 06774000 CODONTAB DS 0H 2055 06775000 CODSTDON NI RPLCSI+16(RBLKPTR),B'11110111' 2055 06776000 *CODALTON: 2056 06777000 * RPLCSI=ON; /* ALT */ 06778000 CODALTON OI RPLCSI+16(RBLKPTR),B'00001000' 2056 06779000 *CRONTAB: /* CRYPT BIT TURN ON TABLE 2057 06780000 * @G40KSCM*/ 06781000 *CRYESON: 2057 06782000 * RPLTCRYP=ON; /* YES @G40KSCM*/ 06783000 CRONTAB DS 0H 2057 06784000 CRYESON OI RPLTCRYP(RBLKPTR),B'00001000' 2057 06785000 *CRNOON: 2058 06786000 * RPLTCRYP=OFF; /* NO @G40KSCM*/ 06787000 CRNOON NI RPLTCRYP(RBLKPTR),B'11110111' 2058 06788000 *ERONTAB: /* ENCR BIT TURN ON TABLE 2059 06789000 * @G40KSCM*/ 06790000 *ERSELON: 2059 06791000 * NIBTSEL=ON; /* TURN ON SEL @G40KSCM*/ 06792000 ERONTAB DS 0H 2059 06793000 ERSELON OI NIBTSEL(RBLKPTR),B'00000100' 2059 06794000 *ERREQON: 2060 06795000 * NIBTREQ=ON; /* TURN ON REQ @G40KSCM*/ 06796000 ERREQON OI NIBTREQ(RBLKPTR),B'00000010' 2060 06797000 *ERNONON: 2061 06798000 * GEN(NOP 0); /* NO ACTION FOR NONE @G40KSCM*/ 06799000 ERNONON NOP 0 06800000 *ATOFTAB: /* ATRB- BIT TURN OFF TABLE */ 06801000 *ATNOACT: /* NOACTION */ 06802000 *MACOFTAB: /* MACRF-BIT TURN OFF TABLE */ 06803000 *MANOACT: 2062 06804000 * GEN(NOP 0); /* NOACTION */ 06805000 ATOFTAB DS 0H 2062 06806000 ATNOACT DS 0H 2062 06807000 MACOFTAB DS 0H 2062 06808000 MANOACT NOP 0 06809000 *MAKEYOFF: 2063 06810000 * EXMAKEY=ON; /* MACRF(KEY) */ 06811000 MAKEYOFF OI EXMAKEY(REG13),B'00000100' 2063 06812000 *MAADROFF: /* MACRF(ADR) */ 06813000 *MACNVOFF: 2064 06814000 * GEN(BAL REG8,MAADREX); /* MACRF(CNV) */ 06815000 MAADROFF DS 0H 2064 06816000 MACNVOFF BAL REG8,MAADREX 06817000 *MASEQOFF: 2065 06818000 * EXMASEQ=ON; /* MACRF(SEQ) */ 06819000 MASEQOFF OI EXMASEQ(REG13),B'00000010' 2065 06820000 *MASKPOFF: /* MACRF(SKP) */ 06821000 *MADIROFF: 2066 06822000 * GEN(BAL REG8,MASKPEX); /* MACRF(DIR) */ 06823000 MASKPOFF DS 0H 2066 06824000 MADIROFF BAL REG8,MASKPEX 06825000 *MAINOFF: 2067 06826000 * EXMAIN=ON; /* MACRF(IN) */ 06827000 MAINOFF OI EXMAIN(REG13),B'00001000' 2067 06828000 *MAOUTOFF: 2068 06829000 * GEN(BAL REG8,MAOUTEX); /* MACRF(OUT) */ 06830000 MAOUTOFF BAL REG8,MAOUTEX 06831000 *MALSROFF: /* MACRF(LSR) */ 06832000 *MAGSROFF: /* MACRF(GSR) */ 06833000 *MANSROFF: 2069 06834000 * ACBLSR=OFF; /* MACRF(NSR) */ 06835000 MALSROFF DS 0H 2069 06836000 MAGSROFF DS 0H 2069 06837000 MANSROFF DS 0H 2070 06838000 * ACBGSR=OFF; 2070 06839000 NI ACBLSR(RBLKPTR),B'10011111' 2070 06840000 *MALOGOFF: 2071 06841000 *MANLOOFF: 2071 06842000 * GEN(BAL REG8,VTAMTEST); 2071 06843000 MALOGOFF DS 0H 2071 06844000 MANLOOFF BAL REG8,VTAMTEST 06845000 *BRHOFTAB: /* BRANCH - BIT TURN OFF TABLE */ 06846000 *BRNOACT: /* NO ACTION */ 06847000 *CATOFTAB: /* CATALOG- BIT TURN OFF TABLE */ 06848000 *CATNOACT: /* NOACTION */ 06849000 *CRAOFTAB: /* CRA BIT TURN OFF TABLE 2072 06850000 * @G40KSCM*/ 06851000 *CROFTAB: /* CRA/CRYPT BIT TURN OFF TABLE 06852000 * @G40KSCM*/ 06853000 *CRNOACT: 2072 06854000 * GEN(NOP 0); /* NOACTION */ 06855000 BRHOFTAB DS 0H 2072 06856000 BRNOACT DS 0H 2072 06857000 CATOFTAB DS 0H 2072 06858000 CATNOACT DS 0H 2072 06859000 CRAOFTAB DS 0H 2072 06860000 CROFTAB DS 0H 2072 06861000 CRNOACT NOP 0 06862000 *CRSCROFF: /* CRA(SCRA) */ 06863000 *CRUCROFF: 2073 06864000 * ACBSCRA=OFF; /* CRA(UCRA) */ 06865000 CRSCROFF DS 0H 2073 06866000 CRUCROFF DS 0H 2074 06867000 * ACBUCRA=OFF; 2074 06868000 NI ACBSCRA(RBLKPTR),B'11110011' 2074 06869000 *OFLOFTAB: /* OFLAGS BIT TURN OFF TABLE */ 06870000 *OFOPEOFF: /* NOACTION */ 06871000 *OPEOFTAB: /* OPENOBJ BIT TURN OFF TABLE */ 06872000 *OPENOACT: /* NOACTION */ 06873000 *DATOFTAB: /* DATAFLAGS BIT TURN OFF TABLE */ 06874000 *DANOACT: /* NOACTION */ 06875000 *OPTOFTAB: 2075 06876000 *OPNOACT: 2075 06877000 * GEN(NOP 0); /* NOACTION */ 06878000 OFLOFTAB DS 0H 2075 06879000 OFOPEOFF DS 0H 2075 06880000 OPEOFTAB DS 0H 2075 06881000 OPENOACT DS 0H 2075 06882000 DATOFTAB DS 0H 2075 06883000 DANOACT DS 0H 2075 06884000 OPTOFTAB DS 0H 2075 06885000 OPNOACT NOP 0 06886000 *OPKEYOFF: /* OPTCD(KEY) */ 06887000 *OPADROFF: /* OPTCD(ADR) */ 06888000 *OPCNVOFF: 2076 06889000 * RPLKEY=OFF; /* OPTCD(CNV) */ 06890000 OPKEYOFF DS 0H 2076 06891000 OPADROFF DS 0H 2076 06892000 OPCNVOFF DS 0H 2077 06893000 * RPLADR=OFF; 2077 06894000 * RPLCNV=OFF; 2078 06895000 NI RPLKEY(RBLKPTR),B'00011111' 2078 06896000 *OPSEQOFF: /* OPTCD(SEQ) */ 06897000 *OPDIROFF: /* OPTCD(DIR) */ 06898000 *OPSKPOFF: /* OPTCD(SKP) */ 06899000 * RPLSEQ=OFF; 2079 06900000 OPSEQOFF DS 0H 2079 06901000 OPDIROFF DS 0H 2079 06902000 OPSKPOFF DS 0H 2080 06903000 * RPLDIR=OFF; 2080 06904000 * RPLSKP=OFF; 2081 06905000 NI RPLSEQ(RBLKPTR),B'10001111' 2081 06906000 *OPUPDOFF: /* OPTCD(UPD) */ 06907000 *OPNUPOFF: /* OPTCD(NUP) */ 06908000 *OPNSPOFF: /* OPTCD(NSP) */ 06909000 * RPLUPD=OFF; 2082 06910000 OPUPDOFF DS 0H 2082 06911000 OPNUPOFF DS 0H 2082 06912000 OPNSPOFF DS 0H 2083 06913000 * RPLNSP=OFF; 2083 06914000 NI RPLUPD(RBLKPTR),B'11111100' 2083 06915000 *OPNEROFF: /* OPTCD(NERAS) */ 06916000 *OPEAUOFF: /* OPTCD(EAU) */ 06917000 *OPERAOFF: /* OPTCD(ERASE) */ 06918000 * RPLNERAS=OFF; 2084 06919000 OPNEROFF DS 0H 2084 06920000 OPEAUOFF DS 0H 2084 06921000 OPERAOFF DS 0H 2085 06922000 * RPLEAU=OFF; 2085 06923000 * RPLERACE=OFF; 2086 06924000 NI RPLNERAS(RBLKPTR),B'11100011' 2086 06925000 *OPLBTOFF: /* OPTCD(LBT) */ 06926000 *OPLBMOFF: /* OPTCD(LBM) */ 06927000 *OPBLKOFF: /* OPTCD(BLK) */ 06928000 * RPLEOT=OFF; 2087 06929000 OPLBTOFF DS 0H 2087 06930000 OPLBMOFF DS 0H 2087 06931000 OPBLKOFF DS 0H 2088 06932000 * RPLEOB=OFF; 2088 06933000 * RPLEOM=OFF; 2089 06934000 NI RPLEOT(RBLKPTR),B'00011111' 2089 06935000 *OPCONOFF: /* OPTCD(COND) */ 06936000 *OPUCOOFF: /* OPTCD(UNCOND) */ 06937000 *OPLOCOFF: /* DPTCD(LOCK) */ 06938000 * RPLCOND=OFF; 2090 06939000 OPCONOFF DS 0H 2090 06940000 OPUCOOFF DS 0H 2090 06941000 OPLOCOFF DS 0H 2091 06942000 * RPLNCOND=OFF; 2091 06943000 * RPLLOCK=OFF; 2092 06944000 NI RPLCOND(RBLKPTR),B'11100011' 2092 06945000 *OPLOGOFF: /* OPTCD(LOGONMSG) */ 06946000 *OPDEVOFF: /* OPTCD(DEVCHAR) */ 06947000 *OPTEROFF: /* OPTCD(TERMS) */ 06948000 *OPAPPOFF: /* OPTCD(APPSTAT) */ 06949000 *OPCOUOFF: /* OPTCD(COUNTS) */ 06950000 *OPRNNOFF: /* OPTCD(RNNAME) */ 06951000 *OPCIDOFF: /* OPTCD(CIDXLATE) */ 06952000 *OPTOPOFF: /* OPTCD(TOPLOGON) */ 06953000 *OPBSCOFF: /* OPTCD(BSCID) */ 06954000 *OPDISOFF: /* OPTCD(DISPLAY) */ 06955000 *OPSEPOFF: /* OPTCD(SESSPARM) @ZA07555*/ 06956000 *OPSEKOFF: /* OPTCD(SESSKEY) @G40KSCM*/ 06957000 * GEN(BAL REG8,OPLOGEX); /* SPECIAL CASE */ 06958000 OPLOGOFF DS 0H 2093 06959000 OPDEVOFF DS 0H 2093 06960000 OPTEROFF DS 0H 2093 06961000 OPAPPOFF DS 0H 2093 06962000 OPCOUOFF DS 0H 2093 06963000 OPRNNOFF DS 0H 2093 06964000 OPCIDOFF DS 0H 2093 06965000 OPTOPOFF DS 0H 2093 06966000 OPBSCOFF DS 0H 2093 06967000 OPDISOFF DS 0H 2093 06968000 OPSEPOFF DS 0H 2093 06969000 OPSEKOFF BAL REG8,OPLOGEX 06970000 *OPPENOFF: /* OPTCD(PEND) */ 06971000 *OPSESOFF: /* OPTCD(SESSION) */ 06972000 *OPACTOFF: /* OPTCD(ACTIVE) */ 06973000 *OPUNCOFF: /* OPTCD(UNCONDL) */ 06974000 * RPLPEND=OFF; 2094 06975000 OPPENOFF DS 0H 2094 06976000 OPSESOFF DS 0H 2094 06977000 OPACTOFF DS 0H 2094 06978000 OPUNCOFF DS 0H 2095 06979000 * RPLSESS=OFF; 2095 06980000 * RPLACTV=OFF; 2096 06981000 * RPLUNCON=OFF; 2097 06982000 NI RPLPEND(RBLKPTR),B'11100001' 2097 06983000 *OPQUIOFF: /* OPTCD(QUIESE) */ 06984000 *OPSTAOFF: /* OPTCD(START) */ 06985000 *OPSTOOFF: /* OPTCD(STOP) */ 06986000 * RPLQUIES=OFF; 2098 06987000 OPQUIOFF DS 0H 2098 06988000 OPSTAOFF DS 0H 2098 06989000 OPSTOOFF DS 0H 2099 06990000 * RPLSTART=OFF; 2099 06991000 * RPLSTOP=OFF; 2100 06992000 NI RPLQUIES+76(RBLKPTR),B'00011111' 2100 06993000 *OPACCOFF: /* OPTCD(ACCEPT) */ 06994000 *OPACQOFF: /* OPTCD(ACQUIRE) */ 06995000 * RPLODACP=OFF; 2101 06996000 OPACCOFF DS 0H 2101 06997000 OPACQOFF DS 0H 2102 06998000 * RPLODACQ=OFF; 2102 06999000 NI RPLODACP(RBLKPTR),B'00111111' 2102 07000000 *OPCALOFF: /* OPTCD(CONALL) */ 07001000 *OPCANOFF: /* OPTCD(CONANY) */ 07002000 * RPLCNALL=OFF; 2103 07003000 OPCALOFF DS 0H 2103 07004000 OPCANOFF DS 0H 2104 07005000 * RPLCNANY=OFF; 2104 07006000 NI RPLCNALL(RBLKPTR),B'00111111' 2104 07007000 *OPKEEOFF: /* OPTCD(KEEP) */ 07008000 *OPTRUOFF: /* OPTCD(TRUNC) */ 07009000 *OPNIBOFF: /* OPTCD(NIBTK) */ 07010000 * RPLKEEP=OFF; 2105 07011000 OPKEEOFF DS 0H 2105 07012000 OPTRUOFF DS 0H 2105 07013000 OPNIBOFF DS 0H 2106 07014000 * RPLTRUNC=OFF; 2106 07015000 * RPLNIBTK=OFF; 2107 07016000 NI RPLKEEP+76(RBLKPTR),B'10001111' 2107 07017000 *LISOFTAB: /* LISTEND BIT TURN OFF TABLE */ 07018000 *LINOACT: /* NOACTION */ 07019000 *CONOFTAB: /* CON BIT TURN OFF TABLE */ 07020000 *CONOACT: /* NOACTION */ 07021000 *PROOFTAB: 2108 07022000 *PRNOACT: 2108 07023000 * GEN(NOP 0); /* NOACTION */ 07024000 LISOFTAB DS 0H 2108 07025000 LINOACT DS 0H 2108 07026000 CONOFTAB DS 0H 2108 07027000 CONOACT DS 0H 2108 07028000 PROOFTAB DS 0H 2108 07029000 PRNOACT NOP 0 07030000 *PRMSGOFF: /* PROC(MSG) */ 07031000 *PRTRAOFF: /* PROC(TRANS) */ 07032000 *PRCONOFF: /* PROC(CONT) */ 07033000 *PRBLOOFF: /* PROC(BLOCK) */ 07034000 * PROMODM=OFF; 2109 07035000 PRMSGOFF DS 0H 2109 07036000 PRTRAOFF DS 0H 2109 07037000 PRCONOFF DS 0H 2109 07038000 PRBLOOFF DS 0H 2110 07039000 * PROMODT=OFF; 2110 07040000 * PROMODC=OFF; 2111 07041000 * PROMODB=OFF; 2112 07042000 NI PROMODM+36(RBLKPTR),B'11110000' 2112 07043000 *PRCAOFF: /* CA */ 07044000 *PRCSOFF: /* CS */ 07045000 *PRRPLCOF: /* RPLC */ 07046000 * PROCA=OFF; 2113 07047000 PRCAOFF DS 0H 2113 07048000 PRCSOFF DS 0H 2113 07049000 PRRPLCOF DS 0H 2114 07050000 * PROCS=OFF; 2114 07051000 * PRORPLC=OFF; 2115 07052000 NI PROCA+36(RBLKPTR),B'11111000' 2115 07053000 *EROFTAB: /* ENCR BIT TURN OFF TABLE 2116 07054000 * @G40KSCM*/ 07055000 *ERSELOF: /* SEL @G40KSCM*/ 07056000 *ERREQOF: /* REQ @G40KSCM*/ 07057000 *ERNONOF: /* NONE @G40KSCM*/ 07058000 * NIBTSEL=OFF; /* TURN OFF SEL @G40KSCM*/ 07059000 EROFTAB DS 0H 2116 07060000 ERSELOF DS 0H 2116 07061000 ERREQOF DS 0H 2116 07062000 ERNONOF DS 0H 2117 07063000 * NIBTREQ=OFF; /* TURN OFF REQ @G40KSCM*/ 07064000 NI NIBTSEL(RBLKPTR),B'11111001' 2117 07065000 *SDTOFTAB: /* SDT- BIT TURN OFF TABLE */ 07066000 *SDNOACT: /* NOACTION */ 07067000 *BRAOFTAB: /* BRACKET- BIT TURN OF TABLE */ 07068000 *BRANOACT: /* NOACTION */ 07069000 *CHGOFTAB: /* CHNGDIR- BIT TURN OFF TABLE */ 07070000 *CHGNOACT: /* NOACTION */ 07071000 *STYOFTAB: /* STYPE- BIT TURN OFF TABLE */ 07072000 *STNOACT: /* NOACTION */ 07073000 *RTYOFTAB: /* RTYPE- BIT TURN OFF TABLE */ 07074000 *RTNOACT: /* NOACTION */ 07075000 *CHAOFTAB: 2118 07076000 *CHNOACT: 2118 07077000 * GEN(NOP 0); /* NOACTION */ 07078000 SDTOFTAB DS 0H 2118 07079000 SDNOACT DS 0H 2118 07080000 BRAOFTAB DS 0H 2118 07081000 BRANOACT DS 0H 2118 07082000 CHGOFTAB DS 0H 2118 07083000 CHGNOACT DS 0H 2118 07084000 STYOFTAB DS 0H 2118 07085000 STNOACT DS 0H 2118 07086000 RTYOFTAB DS 0H 2118 07087000 RTNOACT DS 0H 2118 07088000 CHAOFTAB DS 0H 2118 07089000 CHNOACT NOP 0 07090000 *CHFIROFF: /* CHAIN(FIRST) */ 07091000 *CHMIDOFF: /* CHAIN(MIDDLE) */ 07092000 *CHLASOFF: /* CHAIN(LAST) */ 07093000 *CHONLOFF: /* CHAIN(ONLY) */ 07094000 * RPLFIRST=OFF; 2119 07095000 CHFIROFF DS 0H 2119 07096000 CHMIDOFF DS 0H 2119 07097000 CHLASOFF DS 0H 2119 07098000 CHONLOFF DS 0H 2120 07099000 * RPLMIDLE=OFF; 2120 07100000 * RPLLAST=OFF; 2121 07101000 * RPLONLY=OFF; 2122 07102000 NI RPLFIRST+16(RBLKPTR),B'00001111' 2122 07103000 *POSOFTAB: /* POST- BIT TURN OF TABLE */ 07104000 *PONOACT: /* NOACTION */ 07105000 *RESOFTAB: /* RESPOND- BIT TURN OFF TABLE */ 07106000 *RENOACT: /* NOACTION */ 07107000 *CNTOFTAB: /* CONTROL BIT TURN OFF TABLE */ 07108000 *CNNOACT: 2123 07109000 * GEN(NOP 0); /* NOACTION */ 07110000 POSOFTAB DS 0H 2123 07111000 PONOACT DS 0H 2123 07112000 RESOFTAB DS 0H 2123 07113000 RENOACT DS 0H 2123 07114000 CNTOFTAB DS 0H 2123 07115000 CNNOACT NOP 0 07116000 *CNDATOFF: 2124 07117000 *CNCANOFF: 2124 07118000 *CNQCOFF: 2124 07119000 *CNQECOFF: 2124 07120000 *CNCHAOFF: 2124 07121000 *CNRELOFF: 2124 07122000 *CNBIDOFF: 2124 07123000 *CNRTROFF: 2124 07124000 *CNLUSOFF: 2124 07125000 *CNSIGOFF: 2124 07126000 *CNSDTOFF: 2124 07127000 *CNCLEOFF: 2124 07128000 *CNSTSOFF: 2124 07129000 *CNSHUOFF: 2124 07130000 *CNRQROFF: 2124 07131000 *CNRSHOFF: 2124 07132000 *CNSHCOFF: /* @ZA07554*/ 07133000 *CNBINOFF: /* @G40KSCM*/ 07134000 *CNUNBOFF: /* @G40KSCM*/ 07135000 *CNSBIOFF: /* @G40KSCM*/ 07136000 *CNBISOFF: /* @G40KSCM*/ 07137000 * GEN(BAL REG8,CNDATEX); /* SPECIAL CASE */ 07138000 CNDATOFF DS 0H 2124 07139000 CNCANOFF DS 0H 2124 07140000 CNQCOFF DS 0H 2124 07141000 CNQECOFF DS 0H 2124 07142000 CNCHAOFF DS 0H 2124 07143000 CNRELOFF DS 0H 2124 07144000 CNBIDOFF DS 0H 2124 07145000 CNRTROFF DS 0H 2124 07146000 CNLUSOFF DS 0H 2124 07147000 CNSIGOFF DS 0H 2124 07148000 CNSDTOFF DS 0H 2124 07149000 CNCLEOFF DS 0H 2124 07150000 CNSTSOFF DS 0H 2124 07151000 CNSHUOFF DS 0H 2124 07152000 CNRQROFF DS 0H 2124 07153000 CNRSHOFF DS 0H 2124 07154000 CNSHCOFF DS 0H 2124 07155000 CNBINOFF DS 0H 2124 07156000 CNUNBOFF DS 0H 2124 07157000 CNSBIOFF DS 0H 2124 07158000 CNBISOFF BAL REG8,CNDATEX 07159000 *QBSOFTAB: 2125 07160000 *QBSETOFF: /* QBSQAC(SET) */ 07161000 *QBTESOFF: /* QBSQAC(TESTSET) */ 07162000 *QBRESOFF: /* QBSQAC(RESET) */ 07163000 *QBIGNOFF: /* QBSQAC(IGNORE) */ 07164000 *QBTSPOFF: /* QBSQAC(TESTPOS) */ 07165000 *QBTSNOFF: /* QBSQAC(TESTNEG) */ 07166000 *QBINVOFF: /* QBSQAC(INVALID) */ 07167000 * RPLOSET=OFF; 2125 07168000 QBSOFTAB DS 0H 2125 07169000 QBSETOFF DS 0H 2125 07170000 QBTESOFF DS 0H 2125 07171000 QBRESOFF DS 0H 2125 07172000 QBIGNOFF DS 0H 2125 07173000 QBTSPOFF DS 0H 2125 07174000 QBTSNOFF DS 0H 2125 07175000 QBINVOFF DS 0H 2126 07176000 * RPLOTST=OFF; 2126 07177000 * RPLORSET=OFF; 2127 07178000 * RPLOIGN=OFF; 2128 07179000 * RPLOPOS=OFF; 2129 07180000 * RPLONEG=OFF; 2130 07181000 * RPLOINV=OFF; 2131 07182000 NI RPLOSET+60(RBLKPTR),B'00000001' 2131 07183000 *IBSOFTAB: 2132 07184000 *IBSETOFF: /* IBSQAC(SET) */ 07185000 *IBTESOFF: /* IBSQAC(TESTSET) */ 07186000 *IBRESOFF: /* IBSQAC(RESET) */ 07187000 *IBIGNOFF: /* IBSQAC(IGNORE) */ 07188000 *IBTSPOFF: /* IBSQAC(TESTPOS) */ 07189000 *IBTSNOFF: /* IBSQAC(TESTNEG) */ 07190000 *IBINVOFF: /* IBSQAC(INVALID) */ 07191000 * RPLISET=OFF; 2132 07192000 IBSOFTAB DS 0H 2132 07193000 IBSETOFF DS 0H 2132 07194000 IBTESOFF DS 0H 2132 07195000 IBRESOFF DS 0H 2132 07196000 IBIGNOFF DS 0H 2132 07197000 IBTSPOFF DS 0H 2132 07198000 IBTSNOFF DS 0H 2132 07199000 IBINVOFF DS 0H 2133 07200000 * RPLITST=OFF; 2133 07201000 * RPLIRSET=OFF; 2134 07202000 * RPLIIGN=OFF; 2135 07203000 * RPLIPOS=OFF; 2136 07204000 * RPLINEG=OFF; 2137 07205000 * RPLIINV=OFF; 2138 07206000 NI RPLISET+60(RBLKPTR),B'00000001' 2138 07207000 *SSOOFTAB: 2139 07208000 *SOCPMOFF: /* SSENSEO(CPM) */ 07209000 *SOSTAOFF: /* SSENSEO(STATE) */ 07210000 *SOFIOFF: /* SSENSEO(FI) */ 07211000 *SORROFF: /* SSENSEO(RR) */ 07212000 * RPLCPMO=OFF; 2139 07213000 SSOOFTAB DS 0H 2139 07214000 SOCPMOFF DS 0H 2139 07215000 SOSTAOFF DS 0H 2139 07216000 SOFIOFF DS 0H 2139 07217000 SORROFF DS 0H 2140 07218000 * RPLSTATO=OFF; 2140 07219000 * RPLFIO=OFF; 2141 07220000 * RPLRRO=OFF; 2142 07221000 NI RPLCPMO+76(RBLKPTR),B'10000111' 2142 07222000 *SSIOFTAB: 2143 07223000 *SIPATOFF: /* SSENSEI(PATH) */ 07224000 *SICPMOFF: /* SSENSEI(CPM) */ 07225000 *SISTAOFF: /* SSENSEI(STATE) */ 07226000 *SIFIOFF: /* SSENSEI(FI) */ 07227000 *SIRROFF: /* SSENSEI(RR) */ 07228000 * RPLPATHI=OFF; 2143 07229000 SSIOFTAB DS 0H 2143 07230000 SIPATOFF DS 0H 2143 07231000 SICPMOFF DS 0H 2143 07232000 SISTAOFF DS 0H 2143 07233000 SIFIOFF DS 0H 2143 07234000 SIRROFF DS 0H 2144 07235000 * RPLCPMI=OFF; 2144 07236000 * RPLSTATI=OFF; 2145 07237000 * RPLFII=OFF; 2146 07238000 * RPLRRI=OFF; 2147 07239000 NI RPLPATHI+76(RBLKPTR),B'00000111' 2147 07240000 *AIXOFTAB: /* AIXFLAG- BIT UTRN OFF TABLE */ 07241000 *AINOACT: /* NOACTION */ 07242000 *CODOFTAB: /* CODSEL BIT TURN OFF TABLE */ 07243000 *CODNOACT: /* NOACTION */ 07244000 * GEN(NOP 0); 2148 07245000 AIXOFTAB DS 0H 2148 07246000 AINOACT DS 0H 2148 07247000 CODOFTAB DS 0H 2148 07248000 CODNOACT NOP 0 07249000 * RESPECIFY 2149 07250000 * (REG5, 2149 07251000 * REG6, 2149 07252000 * REG7, 2149 07253000 * REG8) RSTD; 2149 07254000 * 2149 07255000 * /*****************************************************************/ 07256000 * /* */ 07257000 * /* TEST FOR VTAM ONLY BITS */ 07258000 * /* */ 07259000 * /*****************************************************************/ 07260000 * 2150 07261000 *VTAMTEST: 2150 07262000 * IF VTAMSW=OFF THEN /* VTAM SPECIFIED */ 07263000 VTAMTEST TM VTAMSW+1(RHDRPTR),B'00010000' 2150 07264000 BNZ @RF02150 2150 07265000 * DO; /* PROCESS ERROR */ 07266000 * REG0=VTAMONLY; /* LOAD ERROR CODE */ 07267000 LA REG0,16 2152 07268000 * GOTO EXITBAD; /* EXIT WITH ERROR */ 07269000 B EXITBAD 2153 07270000 * END; 2154 07271000 * GEN(BR REG8); /* RETURN TO CALLER */ 07272000 @RF02150 DS 0H 2155 07273000 BR REG8 07274000 *MAADREX: /* MACRF(ADR,CNV) */ 07275000 * RESPECIFY 2156 07276000 * REG9 RSTD; 2156 07277000 MAADREX DS 0H 2157 07278000 * RELEMPTR=REG9; /* SAVE FLAGS */ 07279000 LR RELEMPTR,REG9 2157 07280000 * RESPECIFY 2158 07281000 * REG9 UNRSTD; 2158 07282000 * IF((FTCBTC&VTAMCORR)=GENCB) /* GENCB */ 07283000 * &(KEYEXON=OFF) THEN /* KEY DEFAULTED */ 07284000 LH @09,FTCBTC(,RHDRPTR) 2159 07285000 N @09,@CF00034 2159 07286000 C @09,@CF00081 2159 07287000 BNE @RF02159 2159 07288000 TM KEYEXON(REG13),B'00000100' 2159 07289000 BNZ @RF02159 2159 07290000 * ACBKEY=OFF; /* TURN OFF UNWANTED KEY FLAG */ 07291000 NI ACBKEY(RBLKPTR),B'01111111' 2160 07292000 * RESPECIFY 2161 07293000 * REG9 RSTD; 2161 07294000 @RF02159 DS 0H 2162 07295000 * REG9=RELEMPTR; /* RESTORE FLAGS */ 07296000 LR REG9,RELEMPTR 2162 07297000 * RESPECIFY 2163 07298000 * REG9 UNRSTD; 2163 07299000 * GEN(BR REG8); /* RETURN TO CALLER */ 07300000 BR REG8 07301000 *MASKPEX: /* MACRF(SKP,DIR) */ 07302000 * RESPECIFY 2165 07303000 * REG9 RSTD; 2165 07304000 MASKPEX DS 0H 2166 07305000 * RELEMPTR=REG9; /* SAVE FLAGS */ 07306000 LR RELEMPTR,REG9 2166 07307000 * RESPECIFY 2167 07308000 * REG9 UNRSTD; 2167 07309000 * IF((FTCBTC&VTAMCORR)=GENCB) /* GENCB */ 07310000 * &(EXMASEQ=OFF) THEN /* SEQ DEFAULTED */ 07311000 LH @09,FTCBTC(,RHDRPTR) 2168 07312000 N @09,@CF00034 2168 07313000 C @09,@CF00081 2168 07314000 BNE @RF02168 2168 07315000 TM EXMASEQ(REG13),B'00000010' 2168 07316000 BNZ @RF02168 2168 07317000 * ACBSEQ=OFF; /* TURN OFF UNWANTED SEQ FLAG */ 07318000 NI ACBSEQ(RBLKPTR),B'11101111' 2169 07319000 * RESPECIFY 2170 07320000 * REG9 RSTD; 2170 07321000 @RF02168 DS 0H 2171 07322000 * REG9=RELEMPTR; /* RESTORE FLAGS */ 07323000 LR REG9,RELEMPTR 2171 07324000 * RESPECIFY 2172 07325000 * REG9 UNRSTD; 2172 07326000 * GEN(BR REG8); /* RETURN TO CALLER */ 07327000 BR REG8 07328000 *MAOUTEX: /* MACRF(OUT) */ 07329000 * RESPECIFY 2174 07330000 * REG9 RSTD; 2174 07331000 MAOUTEX DS 0H 2175 07332000 * RELEMPTR=REG9; /* SAVE FLAGS */ 07333000 LR RELEMPTR,REG9 2175 07334000 * RESPECIFY 2176 07335000 * REG9 UNRSTD; 2176 07336000 * IF((FTCBTC&VTAMCORR)=GENCB) /* GENCB */ 07337000 * &(INEXON=OFF) THEN /* IN DEFAUTED */ 07338000 LH @09,FTCBTC(,RHDRPTR) 2177 07339000 N @09,@CF00034 2177 07340000 C @09,@CF00081 2177 07341000 BNE @RF02177 2177 07342000 TM INEXON(REG13),B'00001000' 2177 07343000 BNZ @RF02177 2177 07344000 * ACBIN=OFF; /* TURN OFF UNWANTED IN FLAG */ 07345000 NI ACBIN(RBLKPTR),B'11111011' 2178 07346000 * RESPECIFY 2179 07347000 * REG9 RSTD; 2179 07348000 @RF02177 DS 0H 2180 07349000 * REG9=RELEMPTR; /* RESTORE FLAGS */ 07350000 LR REG9,RELEMPTR 2180 07351000 * RESPECIFY 2181 07352000 * REG9 UNRSTD; 2181 07353000 * GEN(BR REG8); /* RETURN TO CALLER */ 07354000 BR REG8 07355000 *OPLOGEX: /* OPTCD( */ 07356000 * RESPECIFY 2183 07357000 * REG9 RSTD; 2183 07358000 OPLOGEX DS 0H 2184 07359000 * RELEMPTR=REG9; /* SAVE FLAGS */ 07360000 LR RELEMPTR,REG9 2184 07361000 * RESPECIFY 2185 07362000 * REG9 UNRSTD; 2185 07363000 * RPLLOGON=OFF; /* LOGONMSG */ 07364000 * RPLDEVCH=OFF; /* DEVCHAR */ 07365000 * RPLTERMS=OFF; /* TERMS */ 07366000 * RPLAPPST=OFF; /* APPSTAT */ 07367000 * RPLCOUNT=OFF; /* COUNTS */ 07368000 * RPLRNNM=OFF; /* RNNAME */ 07369000 * RPLCIDE=OFF; /* CIDXLATE */ 07370000 * RPLTOPL=OFF; /* TOPLOGON */ 07371000 LA @09,76 2193 07372000 ALR @09,RBLKPTR 2193 07373000 NI RPLLOGON(@09),B'00000000' 2193 07374000 * RPLBSCID=OFF; /* BSCID */ 07375000 * RPLDSPLY=OFF; /* DISPLAY */ 07376000 * RPLSPARM=OFF; /* SESSPARM @ZA07555*/ 07377000 * RPLTSKY=OFF; /* SESSKEY @G40AKCM*/ 07378000 NI RPLBSCID(@09),B'00001111' 2197 07379000 * RESPECIFY 2198 07380000 * REG9 RSTD; 2198 07381000 * REG9=RELEMPTR; /* RESTORE FLAGS */ 07382000 LR REG9,RELEMPTR 2199 07383000 * RESPECIFY 2200 07384000 * REG9 UNRSTD; 2200 07385000 * GEN(BR REG8); /* RETURN TO CALLER */ 07386000 BR REG8 07387000 *CNDATEX: /* CONTROL */ 07388000 * RESPECIFY 2202 07389000 * REG9 RSTD; 2202 07390000 CNDATEX DS 0H 2203 07391000 * RELEMPTR=REG9; /* SAVE FLAGS */ 07392000 LR RELEMPTR,REG9 2203 07393000 * RESPECIFY 2204 07394000 * REG9 UNRSTD; 2204 07395000 * RPLDATA=OFF; /* DATA */ 07396000 * RPLCNCEL=OFF; /* CANCEL */ 07397000 * RPLQC=OFF; /* QC */ 07398000 * RPLQEC=OFF; /* QEC */ 07399000 * RPLCHASE=OFF; /* CHASE */ 07400000 * RPLRELQ=OFF; /* RELQ */ 07401000 LA @09,16 2210 07402000 ALR @09,RBLKPTR 2210 07403000 NI RPLDATA(@09),B'00000011' 2210 07404000 * RPLBID=OFF; /* BID */ 07405000 * RPLRTR=OFF; /* RTR */ 07406000 * RPLLUS=OFF; /* LUS */ 07407000 * RPLSIGNL=OFF; /* SIGNAL */ 07408000 NI RPLBID(@09),B'00001111' 2214 07409000 * RPLSDT=OFF; /* SDT */ 07410000 * RPLCLEAR=OFF; /* CLEAR */ 07411000 * RPLSTSN=OFF; /* STSN */ 07412000 * RPLSHUTD=OFF; /* SHUTD */ 07413000 * RPLRQR=OFF; /* RQR */ 07414000 * RPLRSHUT=OFF; /* RSHUT */ 07415000 * RPLSHUTC=OFF; /* SHUTC @ZA07554*/ 07416000 NI RPLSDT(@09),B'00000001' 2221 07417000 * RPLTBIND=OFF; /* BIND @G40AKCM*/ 07418000 * RPLTUNBD=OFF; /* UNBIND @G40AKCM*/ 07419000 * RPLSBI=OFF; /* SBI @G40AKCM*/ 07420000 * RPLBIS=OFF; /* BIS @G40AKCM*/ 07421000 NI RPLTBIND(@09),B'11110000' 2225 07422000 * RESPECIFY 2226 07423000 * REG9 RSTD; 2226 07424000 * REG9=RELEMPTR; /* RESTORE FLAGS */ 07425000 LR REG9,RELEMPTR 2227 07426000 * RESPECIFY 2228 07427000 * REG9 UNRSTD; 2228 07428000 * GEN(BR REG8); /* RETURN TO CALLER */ 07429000 BR REG8 07430000 *EXBITAB: /* EXCLUSIVE-BIT TURN ON TABLE */ 07431000 *EXGRP1: 2230 07432000 * EXBIT1=ON; /* BIT 1 */ 07433000 EXBITAB DS 0H 2230 07434000 EXGRP1 OI EXBIT1(REG13),B'10000000' 2230 07435000 *EXGRP2: 2231 07436000 * EXBIT2=ON; /* BIT 2 */ 07437000 EXGRP2 OI EXBIT2(REG13),B'01000000' 2231 07438000 *EXGRP3: 2232 07439000 * EXBIT3=ON; /* BIT 3 */ 07440000 EXGRP3 OI EXBIT3(REG13),B'00100000' 2232 07441000 *EXGRP4: 2233 07442000 * EXBIT4=ON; /* BIT 4 */ 07443000 EXGRP4 OI EXBIT4(REG13),B'00010000' 2233 07444000 *EXGRP5: 2234 07445000 * EXBIT5=ON; /* BIT 5 */ 07446000 EXGRP5 OI EXBIT5(REG13),B'00001000' 2234 07447000 *EXGRP6: 2235 07448000 * EXBIT6=ON; /* BIT 6 */ 07449000 EXGRP6 OI EXBIT6(REG13),B'00000100' 2235 07450000 *EXGRP7: 2236 07451000 * EXBIT7=ON; /* BIT 7 */ 07452000 EXGRP7 OI EXBIT7(REG13),B'00000010' 2236 07453000 *EXGRP8: 2237 07454000 * EXBIT8=ON; /* BIT 8 */ 07455000 EXGRP8 OI EXBIT8(REG13),B'00000001' 2237 07456000 *EXGRP9: 2238 07457000 * EXBIT9=ON; /* BIT 9 */ 07458000 EXGRP9 OI EXBIT9(REG13),B'10000000' 2238 07459000 *EXGRP10: 2239 07460000 * EXBIT10=ON; /* BIT 10 */ 07461000 EXGRP10 OI EXBIT10(REG13),B'01000000' 2239 07462000 *EXGRP11: 2240 07463000 * EXBIT11=ON; /* BIT 11 */ 07464000 EXGRP11 OI EXBIT11(REG13),B'00100000' 2240 07465000 *EXGRP12: 2241 07466000 * EXBIT12=ON; /* BIT 12 */ 07467000 EXGRP12 OI EXBIT12(REG13),B'00010000' 2241 07468000 *EXGRP13: 2242 07469000 * EXBIT13=ON; /* BIT 13 */ 07470000 EXGRP13 OI EXBIT13(REG13),B'00001000' 2242 07471000 *EXGRP14: 2243 07472000 * EXBIT14=ON; /* BIT 14 */ 07473000 EXGRP14 OI EXBIT14(REG13),B'00000100' 2243 07474000 *EXGRP15: 2244 07475000 * EXBIT15=ON; /* BIT 15 */ 07476000 EXGRP15 OI EXBIT15(REG13),B'00000010' 2244 07477000 *EXGRP16: 2245 07478000 * EXBIT16=ON; /* BIT 16 */ 07479000 EXGRP16 OI EXBIT16(REG13),B'00000001' 2245 07480000 *EXGRP17: 2246 07481000 * EXBIT17=ON; /* BIT 17 */ 07482000 EXGRP17 OI EXBIT17(REG13),B'10000000' 2246 07483000 *EXGRP18: 2247 07484000 * EXBIT18=ON; /* BIT 18 */ 07485000 EXGRP18 OI EXBIT18(REG13),B'01000000' 2247 07486000 *EXGRP19: 2248 07487000 * EXBIT19=ON; /* BIT 19 */ 07488000 EXGRP19 OI EXBIT19(REG13),B'00100000' 2248 07489000 *EXGRP20: 2249 07490000 * EXBIT20=ON; /* BIT 20 */ 07491000 EXGRP20 OI EXBIT20(REG13),B'00010000' 2249 07492000 *EXGRP21: 2250 07493000 * EXBIT21=ON; /* BIT 21 */ 07494000 EXGRP21 OI EXBIT21(REG13),B'00001000' 2250 07495000 *EXGRP22: 2251 07496000 * EXBIT22=ON; /* BIT 22 */ 07497000 EXGRP22 OI EXBIT22(REG13),B'00000100' 2251 07498000 *EXGRP23: 2252 07499000 * EXBIT23=ON; /* BIT 23 */ 07500000 EXGRP23 OI EXBIT23(REG13),B'00000010' 2252 07501000 *EXGRP24: 2253 07502000 * EXBIT24=ON; /* BIT 24 */ 07503000 EXGRP24 OI EXBIT24(REG13),B'00000001' 2253 07504000 *EXGRP25: 2254 07505000 * EXBIT25=ON; /* BIT 25 */ 07506000 EXGRP25 OI EXBIT25(REG13),B'10000000' 2254 07507000 *EXGRP26: 2255 07508000 * EXBIT26=ON; /* BIT 26 */ 07509000 EXGRP26 OI EXBIT26(REG13),B'01000000' 2255 07510000 *EXGRP27: 2256 07511000 * EXBIT27=ON; /* BIT 27 */ 07512000 EXGRP27 OI EXBIT27(REG13),B'00100000' 2256 07513000 *EXGRP28: 2257 07514000 * EXBIT28=ON; /* BIT 28 */ 07515000 EXGRP28 OI EXBIT28(REG13),B'00010000' 2257 07516000 *EXGRP29: 2258 07517000 * EXBIT29=ON; /* BIT 29 */ 07518000 EXGRP29 OI EXBIT29(REG13),B'00001000' 2258 07519000 *EXGRP30: 2259 07520000 * EXBIT30=ON; /* BIT 30 */ 07521000 EXGRP30 OI EXBIT30(REG13),B'00000100' 2259 07522000 *EXGRP31: 2260 07523000 * EXBIT31=ON; /* BIT 31 */ 07524000 EXGRP31 OI EXBIT31(REG13),B'00000010' 2260 07525000 *EXGRP32: 2261 07526000 * GEN( NOP 0); /* NOACTION */ 07527000 EXGRP32 NOP 0 07528000 * 2262 07529000 * /*****************************************************************/ 07530000 * /* */ 07531000 * /* EXCLUSIVE-BIT TEST TABLE */ 07532000 * /* */ 07533000 * /*****************************************************************/ 07534000 * 2262 07535000 *EXTSTAB: 2262 07536000 *EXTGRP1: 2262 07537000 * EXBIT1=ON; /* BIT 1 */ 07538000 EXTSTAB DS 0H 2262 07539000 EXTGRP1 OI EXBIT1(REG13),B'10000000' 2262 07540000 * GEN(ORG EXTGRP1); /* BACK UP TO OP CODE */ 07541000 ORG EXTGRP1 07542000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07543000 DC X'91' 07544000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07545000 ORG 07546000 *EXTGRP2: 2266 07547000 * EXBIT2=ON; /* BIT 2 */ 07548000 EXTGRP2 OI EXBIT2(REG13),B'01000000' 2266 07549000 * GEN(ORG EXTGRP2); /* BACK UP TO OP CODE */ 07550000 ORG EXTGRP2 07551000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07552000 DC X'91' 07553000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07554000 ORG 07555000 *EXTGRP3: 2270 07556000 * EXBIT3=ON; /* BIT 3 */ 07557000 EXTGRP3 OI EXBIT3(REG13),B'00100000' 2270 07558000 * GEN(ORG EXTGRP3); /* BACK UP TO OP CODE */ 07559000 ORG EXTGRP3 07560000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07561000 DC X'91' 07562000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07563000 ORG 07564000 *EXTGRP4: 2274 07565000 * EXBIT4=ON; /* BIT 4 */ 07566000 EXTGRP4 OI EXBIT4(REG13),B'00010000' 2274 07567000 * GEN(ORG EXTGRP4); /* BACK UP TO OP CODE */ 07568000 ORG EXTGRP4 07569000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07570000 DC X'91' 07571000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07572000 ORG 07573000 *EXTGRP5: 2278 07574000 * EXBIT5=ON; /* BIT 5 */ 07575000 EXTGRP5 OI EXBIT5(REG13),B'00001000' 2278 07576000 * GEN(ORG EXTGRP5); /* BACK UP TO OP CODE */ 07577000 ORG EXTGRP5 07578000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07579000 DC X'91' 07580000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07581000 ORG 07582000 *EXTGRP6: 2282 07583000 * EXBIT6=ON; /* BIT 6 */ 07584000 EXTGRP6 OI EXBIT6(REG13),B'00000100' 2282 07585000 * GEN(ORG EXTGRP6); /* BACK UP TO OP CODE */ 07586000 ORG EXTGRP6 07587000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07588000 DC X'91' 07589000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07590000 ORG 07591000 *EXTGRP7: 2286 07592000 * EXBIT7=ON; /* BIT 7 */ 07593000 EXTGRP7 OI EXBIT7(REG13),B'00000010' 2286 07594000 * GEN(ORG EXTGRP7); /* BACK UP TO OP CODE */ 07595000 ORG EXTGRP7 07596000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07597000 DC X'91' 07598000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07599000 ORG 07600000 *EXTGRP8: 2290 07601000 * EXBIT8=ON; /* BIT 8 */ 07602000 EXTGRP8 OI EXBIT8(REG13),B'00000001' 2290 07603000 * GEN(ORG EXTGRP8); /* BACK UP TO OP CODE */ 07604000 ORG EXTGRP8 07605000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07606000 DC X'91' 07607000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07608000 ORG 07609000 *EXTGRP9: 2294 07610000 * EXBIT9=ON; /* BIT 9 */ 07611000 EXTGRP9 OI EXBIT9(REG13),B'10000000' 2294 07612000 * GEN(ORG EXTGRP9); /* BACK UP TO OP CODE */ 07613000 ORG EXTGRP9 07614000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07615000 DC X'91' 07616000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07617000 ORG 07618000 *EXTGRP10: 2298 07619000 * EXBIT10=ON; /* BIT 10 */ 07620000 EXTGRP10 OI EXBIT10(REG13),B'01000000' 2298 07621000 * GEN(ORG EXTGRP10); /* BACK UP TO OP CODE */ 07622000 ORG EXTGRP10 07623000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07624000 DC X'91' 07625000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07626000 ORG 07627000 *EXTGRP11: 2302 07628000 * EXBIT11=ON; /* BIT 11 */ 07629000 EXTGRP11 OI EXBIT11(REG13),B'00100000' 2302 07630000 * GEN(ORG EXTGRP11); /* BACK UP TO OP CODE */ 07631000 ORG EXTGRP11 07632000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07633000 DC X'91' 07634000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07635000 ORG 07636000 *EXTGRP12: 2306 07637000 * EXBIT12=ON; /* BIT 12 */ 07638000 EXTGRP12 OI EXBIT12(REG13),B'00010000' 2306 07639000 * GEN(ORG EXTGRP12); /* BACK UP TO OP CODE */ 07640000 ORG EXTGRP12 07641000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07642000 DC X'91' 07643000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07644000 ORG 07645000 *EXTGRP13: 2310 07646000 * EXBIT13=ON; /* BIT 13 */ 07647000 EXTGRP13 OI EXBIT13(REG13),B'00001000' 2310 07648000 * GEN(ORG EXTGRP13); /* BACK UP TO OP CODE */ 07649000 ORG EXTGRP13 07650000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07651000 DC X'91' 07652000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07653000 ORG 07654000 *EXTGRP14: 2314 07655000 * EXBIT14=ON; /* BIT 14 */ 07656000 EXTGRP14 OI EXBIT14(REG13),B'00000100' 2314 07657000 * GEN(ORG EXTGRP14); /* BACK UP TO OP CODE */ 07658000 ORG EXTGRP14 07659000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07660000 DC X'91' 07661000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07662000 ORG 07663000 *EXTGRP15: 2318 07664000 * EXBIT15=ON; /* BIT 15 */ 07665000 EXTGRP15 OI EXBIT15(REG13),B'00000010' 2318 07666000 * GEN(ORG EXTGRP15); /* BACK UP TO OP CODE */ 07667000 ORG EXTGRP15 07668000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07669000 DC X'91' 07670000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07671000 ORG 07672000 *EXTGRP16: 2322 07673000 * EXBIT16=ON; /* BIT 16 */ 07674000 EXTGRP16 OI EXBIT16(REG13),B'00000001' 2322 07675000 * GEN(ORG EXTGRP16); /* BACK UP TO OP CODE */ 07676000 ORG EXTGRP16 07677000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07678000 DC X'91' 07679000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07680000 ORG 07681000 *EXTGRP17: 2326 07682000 * EXBIT17=ON; /* BIT 17 */ 07683000 EXTGRP17 OI EXBIT17(REG13),B'10000000' 2326 07684000 * GEN(ORG EXTGRP17); /* BACK UP TO OP CODE */ 07685000 ORG EXTGRP17 07686000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07687000 DC X'91' 07688000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07689000 ORG 07690000 *EXTGRP18: 2330 07691000 * EXBIT18=ON; /* BIT 18 */ 07692000 EXTGRP18 OI EXBIT18(REG13),B'01000000' 2330 07693000 * GEN(ORG EXTGRP18); /* BACK UP TO OP CODE */ 07694000 ORG EXTGRP18 07695000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07696000 DC X'91' 07697000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07698000 ORG 07699000 *EXTGRP19: 2334 07700000 * EXBIT19=ON; /* BIT 19 */ 07701000 EXTGRP19 OI EXBIT19(REG13),B'00100000' 2334 07702000 * GEN(ORG EXTGRP19); /* BACK UP TO OP CODE */ 07703000 ORG EXTGRP19 07704000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07705000 DC X'91' 07706000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07707000 ORG 07708000 *EXTGRP20: 2338 07709000 * EXBIT20=ON; /* BIT 20 */ 07710000 EXTGRP20 OI EXBIT20(REG13),B'00010000' 2338 07711000 * GEN(ORG EXTGRP20); /* BACK UP TO OP CODE */ 07712000 ORG EXTGRP20 07713000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07714000 DC X'91' 07715000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07716000 ORG 07717000 *EXTGRP21: 2342 07718000 * EXBIT21=ON; /* BIT 21 */ 07719000 EXTGRP21 OI EXBIT21(REG13),B'00001000' 2342 07720000 * GEN(ORG EXTGRP21); /* BACK UP TO OP CODE */ 07721000 ORG EXTGRP21 07722000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07723000 DC X'91' 07724000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07725000 ORG 07726000 *EXTGRP22: 2346 07727000 * EXBIT22=ON; /* BIT 22 */ 07728000 EXTGRP22 OI EXBIT22(REG13),B'00000100' 2346 07729000 * GEN(ORG EXTGRP22); /* BACK UP TO OP CODE */ 07730000 ORG EXTGRP22 07731000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07732000 DC X'91' 07733000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07734000 ORG 07735000 *EXTGRP23: 2350 07736000 * EXBIT23=ON; /* BIT 23 */ 07737000 EXTGRP23 OI EXBIT23(REG13),B'00000010' 2350 07738000 * GEN(ORG EXTGRP23); /* BACK UP TO OP CODE */ 07739000 ORG EXTGRP23 07740000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07741000 DC X'91' 07742000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07743000 ORG 07744000 *EXTGRP24: 2354 07745000 * EXBIT24=ON; /* BIT 24 */ 07746000 EXTGRP24 OI EXBIT24(REG13),B'00000001' 2354 07747000 * GEN(ORG EXTGRP24); /* BACK UP TO OP CODE */ 07748000 ORG EXTGRP24 07749000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07750000 DC X'91' 07751000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07752000 ORG 07753000 *EXTGRP25: 2358 07754000 * EXBIT25=ON; /* BIT 25 */ 07755000 EXTGRP25 OI EXBIT25(REG13),B'10000000' 2358 07756000 * GEN(ORG EXTGRP25); /* BACK UP TO OP CODE */ 07757000 ORG EXTGRP25 07758000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07759000 DC X'91' 07760000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07761000 ORG 07762000 *EXTGRP26: 2362 07763000 * EXBIT26=ON; /* BIT 26 */ 07764000 EXTGRP26 OI EXBIT26(REG13),B'01000000' 2362 07765000 * GEN(ORG EXTGRP26); /* BACK UP TO OP CODE */ 07766000 ORG EXTGRP26 07767000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07768000 DC X'91' 07769000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07770000 ORG 07771000 *EXTGRP27: 2366 07772000 * EXBIT27=ON; /* BIT 27 */ 07773000 EXTGRP27 OI EXBIT27(REG13),B'00100000' 2366 07774000 * GEN(ORG EXTGRP27); /* BACK UP TO OP CODE */ 07775000 ORG EXTGRP27 07776000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07777000 DC X'91' 07778000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07779000 ORG 07780000 *EXTGRP28: 2370 07781000 * EXBIT28=ON; /* BIT 28 */ 07782000 EXTGRP28 OI EXBIT28(REG13),B'00010000' 2370 07783000 * GEN(ORG EXTGRP28); /* BACK UP TO OP CODE */ 07784000 ORG EXTGRP28 07785000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07786000 DC X'91' 07787000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07788000 ORG 07789000 *EXTGRP29: 2374 07790000 * EXBIT29=ON; /* BIT 29 */ 07791000 EXTGRP29 OI EXBIT29(REG13),B'00001000' 2374 07792000 * GEN(ORG EXTGRP29); /* BACK UP TO OP CODE */ 07793000 ORG EXTGRP29 07794000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07795000 DC X'91' 07796000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07797000 ORG 07798000 *EXTGRP30: 2378 07799000 * EXBIT30=ON; /* BIT 30 */ 07800000 EXTGRP30 OI EXBIT30(REG13),B'00000100' 2378 07801000 * GEN(ORG EXTGRP30); /* BACK UP TO OP CODE */ 07802000 ORG EXTGRP30 07803000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07804000 DC X'91' 07805000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07806000 ORG 07807000 *EXTGRP31: 2382 07808000 * EXBIT31=ON; /* BIT 31 */ 07809000 EXTGRP31 OI EXBIT31(REG13),B'00000010' 2382 07810000 * GEN(ORG EXTGRP31); /* BACK UP TO OP CODE */ 07811000 ORG EXTGRP31 07812000 * GEN(DC X'91'); /* CHANGE OP CODE TO TM */ 07813000 DC X'91' 07814000 * GEN(ORG); /* RESET INSTRUCTION COUNTER */ 07815000 ORG 07816000 *EXTGRP32: 2386 07817000 * GEN( CR REG9,REG9); /* NOACTION */ 07818000 EXTGRP32 CR REG9,REG9 07819000 * END IDA019C1 2387 07820000 * 2387 07821000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 07822000 */*%INCLUDE SYSLIB (IDAELEM ) */ 07823000 */*%INCLUDE SYSLIB (IDAGENC ) */ 07824000 */*%INCLUDE SYSLIB (IDAMODC ) */ 07825000 */*%INCLUDE SYSLIB (IDASHOW ) */ 07826000 */*%INCLUDE SYSLIB (IDATEST ) */ 07827000 */*%INCLUDE SYSLIB (IDAAMB ) */ 07828000 */*%INCLUDE SYSLIB (IDAAMBL ) */ 07829000 */*%INCLUDE SYSLIB (IDAAMDSB) */ 07830000 */*%INCLUDE SYSLIB (IDAARDB ) */ 07831000 */*%INCLUDE SYSLIB (IDABSPH ) */ 07832000 */*%INCLUDE SYSLIB (IDABUFC ) */ 07833000 */*%INCLUDE SYSLIB (IDAPLH ) */ 07834000 */*%INCLUDE SYSLIB (IFGACB ) */ 07835000 */*%INCLUDE SYSLIB (IFGACBVT) */ 07836000 */*%INCLUDE SYSLIB (IFGEXLST) */ 07837000 */*%INCLUDE SYSLIB (IFGEXLVT) */ 07838000 */*%INCLUDE SYSLIB (IFGRPL ) */ 07839000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 07840000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 07841000 */*%INCLUDE SYSLIB (ISTPROCD) */ 07842000 */*%INCLUDE SYSLIB (ISTDEVCH) */ 07843000 */*%INCLUDE SYSLIB (ISTNIB ) */ 07844000 */*%INCLUDE SYSLIB (IEZDEB ) */ 07845000 */*%INCLUDE SYSLIB (IKJTCB ) */ 07846000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 07847000 * 2387 07848000 * ; 2387 07849000 @DATA DS 0H 07850000 @CH00984 DC H'14' 07851000 @CH02063 DC H'42' 07852000 @CH02061 DC H'55' 07853000 @CH02065 DC H'61' 07854000 @CH02067 DC H'62' 07855000 @CH02069 DC H'63' 07856000 @CH02071 DC H'83' 07857000 @CH02114 DC H'-1' 07858000 @SM04276 MVC SHOWAREA(0,REG7),SHOWFLD(REG6) 07859000 @SC04278 CLC USTSFLD(0,REG6),TESTAREA(REG7) 07860000 @DATD DSECT 07861000 DS 0F 07862000 IDA019C1 CSECT 07863000 DS 0F 07864000 @CF00081 DC F'1' 07865000 @CH00081 EQU @CF00081+2 07866000 @CF00112 DC F'2' 07867000 @CF00102 DC F'3' 07868000 @CH00102 EQU @CF00102+2 07869000 @CF00256 DC F'4' 07870000 @CF00240 DC F'5' 07871000 @CF00037 DC F'8' 07872000 @CF00529 DC F'11' 07873000 @CF00034 DC F'15' 07874000 @CF00097 DC F'16' 07875000 @CF00039 DC F'31' 07876000 @CF02056 DC F'41' 07877000 @CF02126 DC F'4072' 07878000 @CF03362 DC F'8190' 07879000 @DATD DSECT 07880000 DS 0D 07881000 DEBPTR DS A 07882000 DEBDAPTR DS A 07883000 DEBEXPTR DS A 07884000 DEBSBPTR DS A 07885000 TCBPTR DS A 07886000 IDA019C1 CSECT 07887000 DS 0F 07888000 @SIZDATD DC AL1(0) 07889000 DC AL3(@ENDDATD-@DATD) 07890000 @CA00028 DC A(IDA019C1) 07891000 DS 0D 07892000 BATPTR DC AL4(BATTAB) 07893000 @CB03619 DC X'01000000' 07894000 @NM00113 DS CL4 07895000 ORG @NM00113 07896000 @NM00114 DC AL4(ENDKWTAB-KEYWDTAB) 07897000 ORG @NM00114 07898000 MAXKEYWD DS CL4 07899000 ORG @NM00113+4 07900000 VTAMDDNM DC X'FF00000000000000' 07901000 MASTERTB DS CL3703 07902000 ORG MASTERTB 07903000 PROCTAB DS CL256 07904000 ORG PROCTAB 07905000 @NM00131 DC AL1(0) 07906000 DC AL1(0) 07907000 DC AL1(0) 07908000 DC AL1(PRBLKLEN-PROCBRTB) 07909000 DC AL1(PRBLKLEN-PROCBRTB) 07910000 DC AL1(0) 07911000 DC AL1(0) 07912000 DC AL1(0) 07913000 DC AL1(0) 07914000 DC AL1(0) 07915000 DC AL1(0) 07916000 DC AL1(0) 07917000 DC AL1(0) 07918000 DC AL1(0) 07919000 DC AL1(0) 07920000 DC AL1(0) 07921000 @NM00132 DC AL1(0) 07922000 DC AL1(0) 07923000 DC AL1(0) 07924000 DC AL1(0) 07925000 DC AL1(0) 07926000 DC AL1(0) 07927000 DC AL1(0) 07928000 DC AL1(0) 07929000 DC AL1(0) 07930000 DC AL1(0) 07931000 DC AL1(0) 07932000 DC AL1(0) 07933000 DC AL1(0) 07934000 DC AL1(0) 07935000 DC AL1(0) 07936000 DC AL1(0) 07937000 @NM00133 DC AL1(0) 07938000 DC AL1(0) 07939000 DC AL1(0) 07940000 DC AL1(0) 07941000 DC AL1(0) 07942000 DC AL1(0) 07943000 DC AL1(0) 07944000 DC AL1(0) 07945000 DC AL1(0) 07946000 DC AL1(0) 07947000 DC AL1(0) 07948000 DC AL1(0) 07949000 DC AL1(0) 07950000 DC AL1(0) 07951000 DC AL1(0) 07952000 DC AL1(0) 07953000 @NM00134 DC AL1(0) 07954000 DC AL1(0) 07955000 DC AL1(0) 07956000 DC AL1(0) 07957000 DC AL1(0) 07958000 DC AL1(0) 07959000 DC AL1(0) 07960000 DC AL1(0) 07961000 DC AL1(0) 07962000 DC AL1(0) 07963000 DC AL1(0) 07964000 DC AL1(0) 07965000 DC AL1(0) 07966000 DC AL1(0) 07967000 DC AL1(0) 07968000 DC AL1(0) 07969000 @NM00135 DC AL1(0) 07970000 DC AL1(0) 07971000 DC AL1(0) 07972000 DC AL1(0) 07973000 DC AL1(0) 07974000 DC AL1(0) 07975000 DC AL1(0) 07976000 DC AL1(0) 07977000 DC AL1(0) 07978000 DC AL1(0) 07979000 DC AL1(0) 07980000 DC AL1(0) 07981000 DC AL1(0) 07982000 DC AL1(0) 07983000 DC AL1(0) 07984000 DC AL1(0) 07985000 @NM00136 DC AL1(0) 07986000 DC AL1(0) 07987000 DC AL1(0) 07988000 DC AL1(0) 07989000 DC AL1(0) 07990000 DC AL1(0) 07991000 DC AL1(0) 07992000 DC AL1(0) 07993000 DC AL1(0) 07994000 DC AL1(0) 07995000 DC AL1(0) 07996000 DC AL1(0) 07997000 DC AL1(0) 07998000 DC AL1(0) 07999000 DC AL1(0) 08000000 DC AL1(0) 08001000 @NM00137 DC AL1(0) 08002000 DC AL1(0) 08003000 DC AL1(0) 08004000 DC AL1(0) 08005000 DC AL1(0) 08006000 DC AL1(0) 08007000 DC AL1(0) 08008000 DC AL1(0) 08009000 DC AL1(0) 08010000 DC AL1(0) 08011000 DC AL1(0) 08012000 DC AL1(0) 08013000 DC AL1(0) 08014000 DC AL1(0) 08015000 DC AL1(0) 08016000 DC AL1(0) 08017000 @NM00138 DC AL1(0) 08018000 DC AL1(0) 08019000 DC AL1(0) 08020000 DC AL1(0) 08021000 DC AL1(0) 08022000 DC AL1(0) 08023000 DC AL1(0) 08024000 DC AL1(0) 08025000 DC AL1(0) 08026000 DC AL1(0) 08027000 DC AL1(0) 08028000 DC AL1(0) 08029000 DC AL1(0) 08030000 DC AL1(0) 08031000 DC AL1(0) 08032000 DC AL1(0) 08033000 @NM00139 DC AL1(0) 08034000 DC AL1(0) 08035000 DC AL1(0) 08036000 DC AL1(0) 08037000 DC AL1(0) 08038000 DC AL1(0) 08039000 DC AL1(0) 08040000 DC AL1(0) 08041000 DC AL1(0) 08042000 DC AL1(0) 08043000 DC AL1(0) 08044000 DC AL1(0) 08045000 DC AL1(0) 08046000 DC AL1(0) 08047000 DC AL1(0) 08048000 DC AL1(0) 08049000 @NM00140 DC AL1(0) 08050000 DC AL1(0) 08051000 DC AL1(0) 08052000 DC AL1(0) 08053000 DC AL1(0) 08054000 DC AL1(0) 08055000 DC AL1(0) 08056000 DC AL1(0) 08057000 DC AL1(0) 08058000 DC AL1(0) 08059000 DC AL1(0) 08060000 DC AL1(0) 08061000 DC AL1(0) 08062000 DC AL1(0) 08063000 DC AL1(0) 08064000 DC AL1(0) 08065000 @NM00141 DC AL1(0) 08066000 DC AL1(PRACBGEN-PROCBRTB) 08067000 DC AL1(PRACBMOD-PROCBRTB) 08068000 DC AL1(PRACBSHO-PROCBRTB) 08069000 DC AL1(PRACBTES-PROCBRTB) 08070000 DC AL1(0) 08071000 DC AL1(0) 08072000 DC AL1(0) 08073000 DC AL1(0) 08074000 DC AL1(0) 08075000 DC AL1(0) 08076000 DC AL1(0) 08077000 DC AL1(0) 08078000 DC AL1(0) 08079000 DC AL1(0) 08080000 DC AL1(0) 08081000 @NM00142 DC AL1(0) 08082000 DC AL1(PREXLSTG-PROCBRTB) 08083000 DC AL1(PREXLSTM-PROCBRTB) 08084000 DC AL1(PREXLSTS-PROCBRTB) 08085000 DC AL1(PREXLSTT-PROCBRTB) 08086000 DC AL1(0) 08087000 DC AL1(0) 08088000 DC AL1(0) 08089000 DC AL1(0) 08090000 DC AL1(0) 08091000 DC AL1(0) 08092000 DC AL1(0) 08093000 DC AL1(0) 08094000 DC AL1(0) 08095000 DC AL1(0) 08096000 DC AL1(0) 08097000 @NM00143 DC AL1(0) 08098000 DC AL1(PRRPLGEN-PROCBRTB) 08099000 DC AL1(PRRPLMOD-PROCBRTB) 08100000 DC AL1(PRRPLSHO-PROCBRTB) 08101000 DC AL1(PRRPLTES-PROCBRTB) 08102000 DC AL1(0) 08103000 DC AL1(0) 08104000 DC AL1(0) 08105000 DC AL1(0) 08106000 DC AL1(0) 08107000 DC AL1(0) 08108000 DC AL1(0) 08109000 DC AL1(0) 08110000 DC AL1(0) 08111000 DC AL1(0) 08112000 DC AL1(0) 08113000 @NM00144 DC AL1(0) 08114000 DC AL1(PRNIBGEN-PROCBRTB) 08115000 DC AL1(PRNIBMOD-PROCBRTB) 08116000 DC AL1(PRNIBSHO-PROCBRTB) 08117000 DC AL1(PRNIBTES-PROCBRTB) 08118000 DC AL1(0) 08119000 DC AL1(0) 08120000 DC AL1(0) 08121000 DC AL1(0) 08122000 DC AL1(0) 08123000 DC AL1(0) 08124000 DC AL1(0) 08125000 DC AL1(0) 08126000 DC AL1(0) 08127000 DC AL1(0) 08128000 DC AL1(0) 08129000 @NM00145 DC AL1(0) 08130000 DC AL1(0) 08131000 DC AL1(0) 08132000 DC AL1(0) 08133000 DC AL1(0) 08134000 DC AL1(0) 08135000 DC AL1(0) 08136000 DC AL1(0) 08137000 DC AL1(0) 08138000 DC AL1(0) 08139000 DC AL1(0) 08140000 DC AL1(0) 08141000 DC AL1(0) 08142000 DC AL1(0) 08143000 DC AL1(0) 08144000 DC AL1(0) 08145000 @NM00146 DC AL1(0) 08146000 DC AL1(0) 08147000 DC AL1(0) 08148000 DC AL1(0) 08149000 DC AL1(0) 08150000 DC AL1(0) 08151000 DC AL1(0) 08152000 DC AL1(0) 08153000 DC AL1(0) 08154000 DC AL1(0) 08155000 DC AL1(0) 08156000 DC AL1(0) 08157000 DC AL1(0) 08158000 DC AL1(0) 08159000 DC AL1(0) 08160000 DC AL1(0) 08161000 ORG MASTERTB+256 08162000 OPTBIT02 DS CL16 08163000 ORG OPTBIT02 08164000 @NM00147 DC AL4(OPTBITAB+31*3) 08165000 @NM00148 DC AL4(OPTONTB2) 08166000 @NM00149 DC AL4(OPTOFTAB) 08167000 @NM00150 DC XL4'00000000' 08168000 ORG MASTERTB+272 08169000 OPTBIT03 DS CL16 08170000 ORG OPTBIT03 08171000 @NM00151 DC AL4(OPTBITAB+63*3) 08172000 @NM00152 DC AL4(OPTONTB3) 08173000 @NM00153 DC AL4(OPTOFTAB) 08174000 @NM00154 DC XL4'00000000' 08175000 ORG MASTERTB+288 08176000 PROBIT02 DS CL16 08177000 ORG PROBIT02 08178000 @NM00155 DC AL4(PROBITAB+31*3) 08179000 @NM00156 DC AL4(PROONTB2) 08180000 @NM00157 DC AL4(PROOFTAB) 08181000 @NM00158 DC XL4'0000FFFF' 08182000 ORG MASTERTB+304 08183000 KEYWDTAB DS CL2115 08184000 ORG KEYWDTAB 08185000 KW00 DC AL1(0) 08186000 DC AL1(0) 08187000 DC AL1(0) 08188000 DC AL1(0) 08189000 DC AL1(0) 08190000 DC AL1(0) 08191000 DC AL1(0) 08192000 DC AL1(0) 08193000 DC AL1(0) 08194000 DC AL1(0) 08195000 DC AL1(0) 08196000 DC AL1(0) 08197000 DC AL1(0) 08198000 DC AL1(0) 08199000 KW01 DC AL1(0) 08200000 DC AL1(0) 08201000 DC AL1(KWTYP01-KWBRTAB) 08202000 DC AL1(0) 08203000 DC AL1(0) 08204000 DC AL1(0) 08205000 DC AL1(0) 08206000 DC AL1(0) 08207000 DC AL1(0) 08208000 DC AL1(0) 08209000 DC AL1(0) 08210000 DC AL1(0) 08211000 @NM00159 DC AL2(0*16) 08212000 KW02 DC AL1(0) 08213000 DC AL1(KWTYP02-KWBRTAB) 08214000 DC AL1(KWTYP03-KWBRTAB) 08215000 DC AL1(0) 08216000 DC AL1(0) 08217000 DC AL1(0) 08218000 DC AL1(0) 08219000 DC AL1(0) 08220000 DC AL1(0) 08221000 DC AL1(0) 08222000 DC AL1(0) 08223000 DC AL1(0) 08224000 DC AL1(4) 08225000 DC AL1(AMDASPA-IDAAMDSB) 08226000 KW03 DC AL1(0) 08227000 DC AL1(KWTYP04-KWBRTAB) 08228000 DC AL1(KWTYP05-KWBRTAB) 08229000 DC AL1(0) 08230000 DC AL1(0) 08231000 DC AL1(0) 08232000 DC AL1(0) 08233000 DC AL1(0) 08234000 DC AL1(0) 08235000 DC AL1(0) 08236000 DC AL1(0) 08237000 DC AL1(0) 08238000 DC AL1(2) 08239000 DC AL1(ACBLENG-ACBCOMN) 08240000 KW04 DC AL1(MABUFND-MACBKWTB) 08241000 DC AL1(KWTYP04-KWBRTAB) 08242000 DC AL1(KWTYP05-KWBRTAB) 08243000 DC AL1(0) 08244000 DC AL1(0) 08245000 DC AL1(0) 08246000 DC AL1(0) 08247000 DC AL1(0) 08248000 DC AL1(0) 08249000 DC AL1(0) 08250000 DC AL1(0) 08251000 DC AL1(0) 08252000 DC AL1(2) 08253000 DC AL1(ACBBUFND-IFGACB) 08254000 KW05 DC AL1(MABUFNI-MACBKWTB) 08255000 DC AL1(KWTYP04-KWBRTAB) 08256000 DC AL1(KWTYP05-KWBRTAB) 08257000 DC AL1(0) 08258000 DC AL1(0) 08259000 DC AL1(0) 08260000 DC AL1(0) 08261000 DC AL1(0) 08262000 DC AL1(0) 08263000 DC AL1(0) 08264000 DC AL1(0) 08265000 DC AL1(0) 08266000 DC AL1(2) 08267000 DC AL1(ACBBUFNI-IFGACB) 08268000 KW06 DC AL1(0) 08269000 DC AL1(KWTYP07-KWBRTAB) 08270000 DC AL1(KWTYP08-KWBRTAB) 08271000 DC AL1(0) 08272000 DC AL1(0) 08273000 DC AL1(0) 08274000 DC AL1(0) 08275000 DC AL1(0) 08276000 DC AL1(0) 08277000 DC AL1(0) 08278000 DC AL1(0) 08279000 DC AL1(0) 08280000 DC AL1(1) 08281000 DC AL1(BUFDRNO-IDABUFDR) 08282000 KW07 DC AL1(MABUFSP-MACBKWTB) 08283000 DC AL1(KWTYP04-KWBRTAB) 08284000 DC AL1(KWTYP05-KWBRTAB) 08285000 DC AL1(0) 08286000 DC AL1(0) 08287000 DC AL1(0) 08288000 DC AL1(0) 08289000 DC AL1(0) 08290000 DC AL1(0) 08291000 DC AL1(0) 08292000 DC AL1(0) 08293000 DC AL1(0) 08294000 DC AL1(4) 08295000 DC AL1(ACBBUFSP-IFGACB) 08296000 KW08 DC AL1(0) 08297000 DC AL1(KWTYP02-KWBRTAB) 08298000 DC AL1(KWTYP03-KWBRTAB) 08299000 DC AL1(0) 08300000 DC AL1(0) 08301000 DC AL1(0) 08302000 DC AL1(0) 08303000 DC AL1(0) 08304000 DC AL1(0) 08305000 DC AL1(0) 08306000 DC AL1(0) 08307000 DC AL1(0) 08308000 DC AL1(4) 08309000 DC AL1(AMDCINV-IDAAMDSB) 08310000 KW09 DC AL1(MADDNAME-MACBKWTB) 08311000 DC AL1(KWTYP38-KWBRTAB) 08312000 DC AL1(KWTYP39-KWBRTAB) 08313000 DC AL1(0) 08314000 DC AL1(0) 08315000 DC AL1(0) 08316000 DC AL1(0) 08317000 DC AL1(0) 08318000 DC AL1(0) 08319000 DC AL1(0) 08320000 DC AL1(0) 08321000 DC AL1(0) 08322000 DC AL1(8) 08323000 DC AL1(ACBDDNM-IFGACB) 08324000 KW10 DC AL1(0) 08325000 DC AL1(KWTYP09-KWBRTAB) 08326000 DC AL1(KWTYP0A-KWBRTAB) 08327000 DC AL1(0) 08328000 DC AL1(0) 08329000 DC AL1(0) 08330000 DC AL1(0) 08331000 DC AL1(0) 08332000 DC AL1(0) 08333000 DC AL1(0) 08334000 DC AL1(0) 08335000 DC AL1(0) 08336000 DC AL1(4) 08337000 DC AL1(ARDHRBA-IDAARDB) 08338000 KW11 DC AL1(0) 08339000 DC AL1(KWTYP04-KWBRTAB) 08340000 DC AL1(KWTYP05-KWBRTAB) 08341000 DC AL1(0) 08342000 DC AL1(0) 08343000 DC AL1(0) 08344000 DC AL1(0) 08345000 DC AL1(0) 08346000 DC AL1(0) 08347000 DC AL1(0) 08348000 DC AL1(0) 08349000 DC AL1(0) 08350000 DC AL1(1) 08351000 DC AL1(ACBERFLG-IFGACB) 08352000 KW12 DC AL1(MAEXLST-MACBKWTB) 08353000 DC AL1(KWTYP04-KWBRTAB) 08354000 DC AL1(KWTYP05-KWBRTAB) 08355000 DC AL1(0) 08356000 DC AL1(0) 08357000 DC AL1(0) 08358000 DC AL1(0) 08359000 DC AL1(0) 08360000 DC AL1(0) 08361000 DC AL1(0) 08362000 DC AL1(0) 08363000 DC AL1(0) 08364000 DC AL1(4) 08365000 DC AL1(ACBUEL-IFGACB) 08366000 KW13 DC AL1(0) 08367000 DC AL1(KWTYP02-KWBRTAB) 08368000 DC AL1(KWTYP03-KWBRTAB) 08369000 DC AL1(0) 08370000 DC AL1(0) 08371000 DC AL1(0) 08372000 DC AL1(0) 08373000 DC AL1(0) 08374000 DC AL1(0) 08375000 DC AL1(0) 08376000 DC AL1(0) 08377000 DC AL1(0) 08378000 DC AL1(2) 08379000 DC AL1(AMDFSCA-IDAAMDSB) 08380000 KW14 DC AL1(MAMAREA-MACBKWTB) 08381000 DC AL1(KWTYP04-KWBRTAB) 08382000 DC AL1(KWTYP05-KWBRTAB) 08383000 DC AL1(0) 08384000 DC AL1(0) 08385000 DC AL1(0) 08386000 DC AL1(0) 08387000 DC AL1(0) 08388000 DC AL1(0) 08389000 DC AL1(0) 08390000 DC AL1(0) 08391000 DC AL1(0) 08392000 DC AL1(4) 08393000 DC AL1(ACBMSGAR-IFGACB) 08394000 KW15 DC AL1(MAMLEN-MACBKWTB) 08395000 DC AL1(KWTYP04-KWBRTAB) 08396000 DC AL1(KWTYP05-KWBRTAB) 08397000 DC AL1(0) 08398000 DC AL1(0) 08399000 DC AL1(0) 08400000 DC AL1(0) 08401000 DC AL1(0) 08402000 DC AL1(0) 08403000 DC AL1(0) 08404000 DC AL1(0) 08405000 DC AL1(0) 08406000 DC AL1(2) 08407000 DC AL1(ACBMSGLN-IFGACB) 08408000 KW16 DC AL1(0) 08409000 DC AL1(KWTYP02-KWBRTAB) 08410000 DC AL1(KWTYP03-KWBRTAB) 08411000 DC AL1(0) 08412000 DC AL1(0) 08413000 DC AL1(0) 08414000 DC AL1(0) 08415000 DC AL1(0) 08416000 DC AL1(0) 08417000 DC AL1(0) 08418000 DC AL1(0) 08419000 DC AL1(0) 08420000 DC AL1(2) 08421000 DC AL1(AMDKEYLN-IDAAMDSB) 08422000 KW17 DC AL1(0) 08423000 DC AL1(KWTYP02-KWBRTAB) 08424000 DC AL1(KWTYP03-KWBRTAB) 08425000 DC AL1(0) 08426000 DC AL1(0) 08427000 DC AL1(0) 08428000 DC AL1(0) 08429000 DC AL1(0) 08430000 DC AL1(0) 08431000 DC AL1(0) 08432000 DC AL1(0) 08433000 DC AL1(0) 08434000 DC AL1(4) 08435000 DC AL1(AMDLRECL-IDAAMDSB) 08436000 KW18 DC AL1(MABITSTR-MACBKWTB) 08437000 DC AL1(0) 08438000 DC AL1(KWTYP0E-KWBRTAB) 08439000 DC AL1(0) 08440000 DC AL1(0) 08441000 DC AL1(0) 08442000 DC AL1(0) 08443000 DC AL1(0) 08444000 DC AL1(0) 08445000 DC AL1(0) 08446000 DC AL1(0) 08447000 DC AL1(0) 08448000 @NM00160 DC AL2(1*16) 08449000 KW19 DC AL1(0) 08450000 DC AL1(KWTYP02-KWBRTAB) 08451000 DC AL1(KWTYP03-KWBRTAB) 08452000 DC AL1(0) 08453000 DC AL1(0) 08454000 DC AL1(0) 08455000 DC AL1(0) 08456000 DC AL1(0) 08457000 DC AL1(0) 08458000 DC AL1(0) 08459000 DC AL1(0) 08460000 DC AL1(0) 08461000 DC AL1(4) 08462000 DC AL1(AMDNCIS-IDAAMDSB) 08463000 KW20 DC AL1(0) 08464000 DC AL1(KWTYP02-KWBRTAB) 08465000 DC AL1(KWTYP03-KWBRTAB) 08466000 DC AL1(0) 08467000 DC AL1(0) 08468000 DC AL1(0) 08469000 DC AL1(0) 08470000 DC AL1(0) 08471000 DC AL1(0) 08472000 DC AL1(0) 08473000 DC AL1(0) 08474000 DC AL1(0) 08475000 DC AL1(4) 08476000 DC AL1(AMDDELR-IDAAMDSB) 08477000 KW21 DC AL1(0) 08478000 DC AL1(KWTYP02-KWBRTAB) 08479000 DC AL1(KWTYP03-KWBRTAB) 08480000 DC AL1(0) 08481000 DC AL1(0) 08482000 DC AL1(0) 08483000 DC AL1(0) 08484000 DC AL1(0) 08485000 DC AL1(0) 08486000 DC AL1(0) 08487000 DC AL1(0) 08488000 DC AL1(0) 08489000 DC AL1(4) 08490000 DC AL1(AMDEXCP-IDAAMDSB) 08491000 KW22 DC AL1(0) 08492000 DC AL1(KWTYP02-KWBRTAB) 08493000 DC AL1(KWTYP03-KWBRTAB) 08494000 DC AL1(0) 08495000 DC AL1(0) 08496000 DC AL1(0) 08497000 DC AL1(0) 08498000 DC AL1(0) 08499000 DC AL1(0) 08500000 DC AL1(0) 08501000 DC AL1(0) 08502000 DC AL1(0) 08503000 DC AL1(2) 08504000 DC AL1(AMDNEXT-IDAAMDSB) 08505000 KW23 DC AL1(0) 08506000 DC AL1(KWTYP02-KWBRTAB) 08507000 DC AL1(KWTYP03-KWBRTAB) 08508000 DC AL1(0) 08509000 DC AL1(0) 08510000 DC AL1(0) 08511000 DC AL1(0) 08512000 DC AL1(0) 08513000 DC AL1(0) 08514000 DC AL1(0) 08515000 DC AL1(0) 08516000 DC AL1(0) 08517000 DC AL1(4) 08518000 DC AL1(AMDIREC-IDAAMDSB) 08519000 KW24 DC AL1(0) 08520000 DC AL1(KWTYP02-KWBRTAB) 08521000 DC AL1(KWTYP03-KWBRTAB) 08522000 DC AL1(0) 08523000 DC AL1(0) 08524000 DC AL1(0) 08525000 DC AL1(0) 08526000 DC AL1(0) 08527000 DC AL1(0) 08528000 DC AL1(0) 08529000 DC AL1(0) 08530000 DC AL1(0) 08531000 DC AL1(2) 08532000 DC AL1(AMDNIL-IDAAMDSB) 08533000 KW25 DC AL1(0) 08534000 DC AL1(KWTYP02-KWBRTAB) 08535000 DC AL1(KWTYP03-KWBRTAB) 08536000 DC AL1(0) 08537000 DC AL1(0) 08538000 DC AL1(0) 08539000 DC AL1(0) 08540000 DC AL1(0) 08541000 DC AL1(0) 08542000 DC AL1(0) 08543000 DC AL1(0) 08544000 DC AL1(0) 08545000 DC AL1(4) 08546000 DC AL1(AMDNLR-IDAAMDSB) 08547000 KW26 DC AL1(0) 08548000 DC AL1(KWTYP02-KWBRTAB) 08549000 DC AL1(KWTYP03-KWBRTAB) 08550000 DC AL1(0) 08551000 DC AL1(0) 08552000 DC AL1(0) 08553000 DC AL1(0) 08554000 DC AL1(0) 08555000 DC AL1(0) 08556000 DC AL1(0) 08557000 DC AL1(0) 08558000 DC AL1(0) 08559000 DC AL1(4) 08560000 DC AL1(AMDRETR-IDAAMDSB) 08561000 KW27 DC AL1(0) 08562000 DC AL1(KWTYP02-KWBRTAB) 08563000 DC AL1(KWTYP03-KWBRTAB) 08564000 DC AL1(0) 08565000 DC AL1(0) 08566000 DC AL1(0) 08567000 DC AL1(0) 08568000 DC AL1(0) 08569000 DC AL1(0) 08570000 DC AL1(0) 08571000 DC AL1(0) 08572000 DC AL1(0) 08573000 DC AL1(4) 08574000 DC AL1(AMDNCAS-IDAAMDSB) 08575000 KW28 DC AL1(0) 08576000 DC AL1(KWTYP02-KWBRTAB) 08577000 DC AL1(KWTYP03-KWBRTAB) 08578000 DC AL1(0) 08579000 DC AL1(0) 08580000 DC AL1(0) 08581000 DC AL1(0) 08582000 DC AL1(0) 08583000 DC AL1(0) 08584000 DC AL1(0) 08585000 DC AL1(0) 08586000 DC AL1(0) 08587000 DC AL1(4) 08588000 DC AL1(AMDUPR-IDAAMDSB) 08589000 KW29 DC AL1(0) 08590000 DC AL1(0) 08591000 DC AL1(KWTYP0E-KWBRTAB) 08592000 DC AL1(0) 08593000 DC AL1(0) 08594000 DC AL1(0) 08595000 DC AL1(0) 08596000 DC AL1(0) 08597000 DC AL1(0) 08598000 DC AL1(0) 08599000 DC AL1(0) 08600000 DC AL1(0) 08601000 @NM00161 DC AL2(5*16) 08602000 KW30 DC AL1(MAPASSWD-MACBKWTB) 08603000 DC AL1(KWTYP04-KWBRTAB) 08604000 DC AL1(KWTYP05-KWBRTAB) 08605000 DC AL1(0) 08606000 DC AL1(0) 08607000 DC AL1(0) 08608000 DC AL1(0) 08609000 DC AL1(0) 08610000 DC AL1(0) 08611000 DC AL1(0) 08612000 DC AL1(0) 08613000 DC AL1(0) 08614000 DC AL1(4) 08615000 DC AL1(ACBPASSW-IFGACB) 08616000 KW31 DC AL1(0) 08617000 DC AL1(KWTYP3A-KWBRTAB) 08618000 DC AL1(KWTYP3B-KWBRTAB) 08619000 DC AL1(0) 08620000 DC AL1(0) 08621000 DC AL1(0) 08622000 DC AL1(0) 08623000 DC AL1(0) 08624000 DC AL1(0) 08625000 DC AL1(0) 08626000 DC AL1(0) 08627000 DC AL1(0) 08628000 DC AL1(2) 08629000 DC AL1(AMDRKP-IDAAMDSB) 08630000 KW32 DC AL1(MASTRNO-MACBKWTB) 08631000 DC AL1(KWTYP04-KWBRTAB) 08632000 DC AL1(KWTYP05-KWBRTAB) 08633000 DC AL1(0) 08634000 DC AL1(0) 08635000 DC AL1(0) 08636000 DC AL1(0) 08637000 DC AL1(0) 08638000 DC AL1(0) 08639000 DC AL1(0) 08640000 DC AL1(0) 08641000 DC AL1(0) 08642000 DC AL1(1) 08643000 DC AL1(ACBSTRNO-IFGACB) 08644000 KW33 DC AL1(0) 08645000 DC AL1(0) 08646000 DC AL1(KWTYP12-KWBRTAB) 08647000 DC AL1(0) 08648000 DC AL1(0) 08649000 DC AL1(0) 08650000 DC AL1(0) 08651000 DC AL1(0) 08652000 DC AL1(0) 08653000 DC AL1(0) 08654000 DC AL1(0) 08655000 DC AL1(0) 08656000 @NM00162 DC AL2(6*16) 08657000 KW34 DC AL1(MABITSTR-MACBKWTB) 08658000 DC AL1(0) 08659000 DC AL1(KWTYP0E-KWBRTAB) 08660000 DC AL1(0) 08661000 DC AL1(0) 08662000 DC AL1(0) 08663000 DC AL1(0) 08664000 DC AL1(0) 08665000 DC AL1(0) 08666000 DC AL1(0) 08667000 DC AL1(0) 08668000 DC AL1(0) 08669000 @NM00163 DC AL2(3*16) 08670000 KW35 DC AL1(0) 08671000 DC AL1(KWTYP02-KWBRTAB) 08672000 DC AL1(KWTYP03-KWBRTAB) 08673000 DC AL1(0) 08674000 DC AL1(0) 08675000 DC AL1(0) 08676000 DC AL1(0) 08677000 DC AL1(0) 08678000 DC AL1(0) 08679000 DC AL1(0) 08680000 DC AL1(0) 08681000 DC AL1(0) 08682000 DC AL1(8) 08683000 DC AL1(AMDSTSP-IDAAMDSB) 08684000 KW36 DC AL1(MABSTRNO-MACBKWTB) 08685000 DC AL1(KWTYP04-KWBRTAB) 08686000 DC AL1(KWTYP05-KWBRTAB) 08687000 DC AL1(0) 08688000 DC AL1(0) 08689000 DC AL1(0) 08690000 DC AL1(0) 08691000 DC AL1(0) 08692000 DC AL1(0) 08693000 DC AL1(0) 08694000 DC AL1(0) 08695000 DC AL1(0) 08696000 DC AL1(1) 08697000 DC AL1(ACBBSTNO-IFGACB) 08698000 KW37 DC AL1(0) 08699000 DC AL1(0) 08700000 DC AL1(0) 08701000 DC AL1(MENRM-MEXLBRTB) 08702000 DC AL1(KWTYP13-KWBRTAB) 08703000 DC AL1(KWTYP14-KWBRTAB) 08704000 DC AL1(0) 08705000 DC AL1(0) 08706000 DC AL1(0) 08707000 DC AL1(0) 08708000 DC AL1(0) 08709000 DC AL1(0) 08710000 DC AL1(4) 08711000 DC AL1(EXLEODF-IFGEXLST) 08712000 KW38 DC AL1(0) 08713000 DC AL1(0) 08714000 DC AL1(0) 08715000 DC AL1(0) 08716000 DC AL1(0) 08717000 DC AL1(0) 08718000 DC AL1(0) 08719000 DC AL1(0) 08720000 DC AL1(0) 08721000 DC AL1(0) 08722000 DC AL1(0) 08723000 DC AL1(0) 08724000 DC AL1(0) 08725000 DC AL1(0) 08726000 KW39 DC AL1(0) 08727000 DC AL1(0) 08728000 DC AL1(0) 08729000 DC AL1(MENRM-MEXLBRTB) 08730000 DC AL1(KWTYP13-KWBRTAB) 08731000 DC AL1(KWTYP14-KWBRTAB) 08732000 DC AL1(0) 08733000 DC AL1(0) 08734000 DC AL1(0) 08735000 DC AL1(0) 08736000 DC AL1(0) 08737000 DC AL1(0) 08738000 DC AL1(4) 08739000 DC AL1(EXLJRNF-IFGEXLST) 08740000 KW40 DC AL1(0) 08741000 DC AL1(0) 08742000 DC AL1(0) 08743000 DC AL1(MENRM-MEXLBRTB) 08744000 DC AL1(KWTYP13-KWBRTAB) 08745000 DC AL1(KWTYP14-KWBRTAB) 08746000 DC AL1(0) 08747000 DC AL1(0) 08748000 DC AL1(0) 08749000 DC AL1(0) 08750000 DC AL1(0) 08751000 DC AL1(0) 08752000 DC AL1(4) 08753000 DC AL1(EXLLERF-IFGEXLST) 08754000 KW41 DC AL1(0) 08755000 DC AL1(0) 08756000 DC AL1(0) 08757000 DC AL1(MENRM-MEXLBRTB) 08758000 DC AL1(KWTYP13-KWBRTAB) 08759000 DC AL1(KWTYP14-KWBRTAB) 08760000 DC AL1(0) 08761000 DC AL1(0) 08762000 DC AL1(0) 08763000 DC AL1(0) 08764000 DC AL1(0) 08765000 DC AL1(0) 08766000 DC AL1(4) 08767000 DC AL1(EXLSYNF-IFGEXLST) 08768000 KW42 DC AL1(0) 08769000 DC AL1(0) 08770000 DC AL1(0) 08771000 DC AL1(MEXLLEN-MEXLBRTB) 08772000 DC AL1(KWTYP04-KWBRTAB) 08773000 DC AL1(KWTYP05-KWBRTAB) 08774000 DC AL1(0) 08775000 DC AL1(0) 08776000 DC AL1(0) 08777000 DC AL1(0) 08778000 DC AL1(0) 08779000 DC AL1(0) 08780000 DC AL1(2) 08781000 DC AL1(EXLLEN-EXLCOMN) 08782000 KW43 DC AL1(0) 08783000 DC AL1(0) 08784000 DC AL1(0) 08785000 DC AL1(0) 08786000 DC AL1(0) 08787000 DC AL1(0) 08788000 DC AL1(MRACB-MRPLKWTB) 08789000 DC AL1(KWTYP04-KWBRTAB) 08790000 DC AL1(KWTYP05-KWBRTAB) 08791000 DC AL1(0) 08792000 DC AL1(0) 08793000 DC AL1(0) 08794000 DC AL1(4) 08795000 DC AL1(RPLDACB-IFGRPL) 08796000 KW44 DC AL1(0) 08797000 DC AL1(0) 08798000 DC AL1(0) 08799000 DC AL1(0) 08800000 DC AL1(0) 08801000 DC AL1(0) 08802000 DC AL1(MRAREA-MRPLKWTB) 08803000 DC AL1(KWTYP04-KWBRTAB) 08804000 DC AL1(KWTYP05-KWBRTAB) 08805000 DC AL1(0) 08806000 DC AL1(0) 08807000 DC AL1(0) 08808000 DC AL1(4) 08809000 DC AL1(RPLAREA-IFGRPL) 08810000 KW45 DC AL1(0) 08811000 DC AL1(0) 08812000 DC AL1(0) 08813000 DC AL1(0) 08814000 DC AL1(0) 08815000 DC AL1(0) 08816000 DC AL1(MRAREALN-MRPLKWTB) 08817000 DC AL1(KWTYP04-KWBRTAB) 08818000 DC AL1(KWTYP05-KWBRTAB) 08819000 DC AL1(0) 08820000 DC AL1(0) 08821000 DC AL1(0) 08822000 DC AL1(4) 08823000 DC AL1(RPLBUFL-IFGRPL) 08824000 KW46 DC AL1(0) 08825000 DC AL1(0) 08826000 DC AL1(0) 08827000 DC AL1(0) 08828000 DC AL1(0) 08829000 DC AL1(0) 08830000 DC AL1(MRARG-MRPLKWTB) 08831000 DC AL1(KWTYP04-KWBRTAB) 08832000 DC AL1(KWTYP05-KWBRTAB) 08833000 DC AL1(0) 08834000 DC AL1(0) 08835000 DC AL1(0) 08836000 DC AL1(4) 08837000 DC AL1(RPLARG-IFGRPL) 08838000 KW47 DC AL1(0) 08839000 DC AL1(0) 08840000 DC AL1(0) 08841000 DC AL1(0) 08842000 DC AL1(0) 08843000 DC AL1(0) 08844000 DC AL1(MRECB-MRPLKWTB) 08845000 DC AL1(KWTYP04-KWBRTAB) 08846000 DC AL1(KWTYP05-KWBRTAB) 08847000 DC AL1(0) 08848000 DC AL1(0) 08849000 DC AL1(0) 08850000 DC AL1(4) 08851000 DC AL1(RPLECB-IFGRPL) 08852000 KW48 DC AL1(0) 08853000 DC AL1(0) 08854000 DC AL1(0) 08855000 DC AL1(0) 08856000 DC AL1(0) 08857000 DC AL1(0) 08858000 DC AL1(MRKEYLN-MRPLKWTB) 08859000 DC AL1(KWTYP04-KWBRTAB) 08860000 DC AL1(KWTYP05-KWBRTAB) 08861000 DC AL1(0) 08862000 DC AL1(0) 08863000 DC AL1(0) 08864000 DC AL1(2) 08865000 DC AL1(RPLKEYL-IFGRPL) 08866000 KW49 DC AL1(0) 08867000 DC AL1(0) 08868000 DC AL1(0) 08869000 DC AL1(0) 08870000 DC AL1(0) 08871000 DC AL1(0) 08872000 DC AL1(MRMSGARE-MRPLKWTB) 08873000 DC AL1(KWTYP04-KWBRTAB) 08874000 DC AL1(KWTYP05-KWBRTAB) 08875000 DC AL1(0) 08876000 DC AL1(0) 08877000 DC AL1(0) 08878000 DC AL1(4) 08879000 DC AL1(RPLERMSA-IFGRPL) 08880000 KW50 DC AL1(0) 08881000 DC AL1(0) 08882000 DC AL1(0) 08883000 DC AL1(0) 08884000 DC AL1(0) 08885000 DC AL1(0) 08886000 DC AL1(MRMSGLEN-MRPLKWTB) 08887000 DC AL1(KWTYP04-KWBRTAB) 08888000 DC AL1(KWTYP05-KWBRTAB) 08889000 DC AL1(0) 08890000 DC AL1(0) 08891000 DC AL1(0) 08892000 DC AL1(2) 08893000 DC AL1(RPLEMLEN-IFGRPL) 08894000 KW51 DC AL1(0) 08895000 DC AL1(0) 08896000 DC AL1(0) 08897000 DC AL1(0) 08898000 DC AL1(0) 08899000 DC AL1(0) 08900000 DC AL1(MRRPLCHA-MRPLKWTB) 08901000 DC AL1(KWTYP04-KWBRTAB) 08902000 DC AL1(KWTYP05-KWBRTAB) 08903000 DC AL1(0) 08904000 DC AL1(0) 08905000 DC AL1(0) 08906000 DC AL1(4) 08907000 DC AL1(RPLCHAIN-IFGRPL) 08908000 KW52 DC AL1(0) 08909000 DC AL1(0) 08910000 DC AL1(0) 08911000 DC AL1(0) 08912000 DC AL1(0) 08913000 DC AL1(0) 08914000 DC AL1(MROPTCD-MRPLKWTB) 08915000 DC AL1(0) 08916000 DC AL1(KWTYP26-KWBRTAB) 08917000 DC AL1(0) 08918000 DC AL1(0) 08919000 DC AL1(0) 08920000 @NM00164 DC AL2(8*16) 08921000 KW53 DC AL1(0) 08922000 DC AL1(0) 08923000 DC AL1(0) 08924000 DC AL1(0) 08925000 DC AL1(0) 08926000 DC AL1(0) 08927000 DC AL1(MRRECLEN-MRPLKWTB) 08928000 DC AL1(KWTYP04-KWBRTAB) 08929000 DC AL1(KWTYP05-KWBRTAB) 08930000 DC AL1(0) 08931000 DC AL1(0) 08932000 DC AL1(0) 08933000 DC AL1(4) 08934000 DC AL1(RPLRLEN-IFGRPL) 08935000 KW54 DC AL1(0) 08936000 DC AL1(0) 08937000 DC AL1(0) 08938000 DC AL1(0) 08939000 DC AL1(0) 08940000 DC AL1(0) 08941000 DC AL1(0) 08942000 DC AL1(0) 08943000 DC AL1(KWTYP16-KWBRTAB) 08944000 DC AL1(0) 08945000 DC AL1(0) 08946000 DC AL1(0) 08947000 DC AL1(0) 08948000 DC AL1(0) 08949000 KW55 DC AL1(0) 08950000 DC AL1(0) 08951000 DC AL1(0) 08952000 DC AL1(0) 08953000 DC AL1(0) 08954000 DC AL1(0) 08955000 DC AL1(0) 08956000 DC AL1(KWTYP04-KWBRTAB) 08957000 DC AL1(KWTYP05-KWBRTAB) 08958000 DC AL1(0) 08959000 DC AL1(0) 08960000 DC AL1(0) 08961000 DC AL1(1) 08962000 DC AL1(RPLLEN-IFGRPL) 08963000 KW56 DC AL1(0) 08964000 DC AL1(0) 08965000 DC AL1(0) 08966000 DC AL1(0) 08967000 DC AL1(0) 08968000 DC AL1(0) 08969000 DC AL1(0) 08970000 DC AL1(KWTYP04-KWBRTAB) 08971000 DC AL1(KWTYP05-KWBRTAB) 08972000 DC AL1(0) 08973000 DC AL1(0) 08974000 DC AL1(0) 08975000 DC AL1(1) 08976000 DC AL1(RPLERRCD-IFGRPL) 08977000 KW57 DC AL1(0) 08978000 DC AL1(0) 08979000 DC AL1(0) 08980000 DC AL1(0) 08981000 DC AL1(0) 08982000 DC AL1(0) 08983000 DC AL1(0) 08984000 DC AL1(KWTYP04-KWBRTAB) 08985000 DC AL1(KWTYP05-KWBRTAB) 08986000 DC AL1(0) 08987000 DC AL1(0) 08988000 DC AL1(0) 08989000 DC AL1(4) 08990000 DC AL1(RPLDDDD-IFGRPL) 08991000 KW58 DC AL1(0) 08992000 DC AL1(0) 08993000 DC AL1(0) 08994000 DC AL1(0) 08995000 DC AL1(0) 08996000 DC AL1(0) 08997000 DC AL1(0) 08998000 DC AL1(KWTYP04-KWBRTAB) 08999000 DC AL1(KWTYP05-KWBRTAB) 09000000 DC AL1(0) 09001000 DC AL1(0) 09002000 DC AL1(0) 09003000 DC AL1(2) 09004000 DC AL1(RPLAIXPC-IFGRPL) 09005000 KW59 DC AL1(0) 09006000 DC AL1(0) 09007000 DC AL1(0) 09008000 DC AL1(0) 09009000 DC AL1(0) 09010000 DC AL1(0) 09011000 DC AL1(0) 09012000 DC AL1(0) 09013000 DC AL1(KWTYP0E-KWBRTAB) 09014000 DC AL1(0) 09015000 DC AL1(0) 09016000 DC AL1(0) 09017000 @NM00165 DC AL2(25*16) 09018000 KW60 DC AL1(0) 09019000 DC AL1(KWTYP02-KWBRTAB) 09020000 DC AL1(KWTYP03-KWBRTAB) 09021000 DC AL1(0) 09022000 DC AL1(0) 09023000 DC AL1(0) 09024000 DC AL1(0) 09025000 DC AL1(0) 09026000 DC AL1(0) 09027000 DC AL1(0) 09028000 DC AL1(0) 09029000 DC AL1(0) 09030000 DC AL1(2) 09031000 DC AL1(AMDAXRKP-IDAAMDSB) 09032000 KW61 DC AL1(0) 09033000 DC AL1(KWTYP18-KWBRTAB) 09034000 DC AL1(KWTYP19-KWBRTAB) 09035000 DC AL1(0) 09036000 DC AL1(0) 09037000 DC AL1(0) 09038000 DC AL1(0) 09039000 DC AL1(0) 09040000 DC AL1(0) 09041000 DC AL1(0) 09042000 DC AL1(0) 09043000 DC AL1(0) 09044000 DC AL1(2) 09045000 DC AL1(ACBLENG-ACBCOMN) 09046000 KW62 DC AL1(0) 09047000 DC AL1(0) 09048000 DC AL1(0) 09049000 DC AL1(0) 09050000 DC AL1(0) 09051000 DC AL1(0) 09052000 DC AL1(0) 09053000 DC AL1(KWTYP18-KWBRTAB) 09054000 DC AL1(KWTYP19-KWBRTAB) 09055000 DC AL1(0) 09056000 DC AL1(0) 09057000 DC AL1(0) 09058000 DC AL1(1) 09059000 DC AL1(RPLLEN-IFGRPL) 09060000 KW63 DC AL1(0) 09061000 DC AL1(0) 09062000 DC AL1(0) 09063000 DC AL1(MEXLVTLN-MEXLBRTB) 09064000 DC AL1(KWTYP18-KWBRTAB) 09065000 DC AL1(KWTYP19-KWBRTAB) 09066000 DC AL1(0) 09067000 DC AL1(0) 09068000 DC AL1(0) 09069000 DC AL1(0) 09070000 DC AL1(0) 09071000 DC AL1(0) 09072000 DC AL1(2) 09073000 DC AL1(EXLLEN-EXLCOMN) 09074000 KW64 DC AL1(MAAM-MACBKWTB) 09075000 DC AL1(0) 09076000 DC AL1(0) 09077000 DC AL1(MEAM-MEXLBRTB) 09078000 DC AL1(0) 09079000 DC AL1(0) 09080000 DC AL1(MRAM-MRPLKWTB) 09081000 DC AL1(0) 09082000 DC AL1(0) 09083000 DC AL1(0) 09084000 DC AL1(0) 09085000 DC AL1(0) 09086000 DC AL1(0) 09087000 DC AL1(0) 09088000 KW65 DC AL1(MAVTWORD-MACBKWTB) 09089000 DC AL1(KWTYP18-KWBRTAB) 09090000 DC AL1(KWTYP19-KWBRTAB) 09091000 DC AL1(0) 09092000 DC AL1(0) 09093000 DC AL1(0) 09094000 DC AL1(0) 09095000 DC AL1(0) 09096000 DC AL1(0) 09097000 DC AL1(0) 09098000 DC AL1(0) 09099000 DC AL1(0) 09100000 DC AL1(4) 09101000 DC AL1(ACBAPID-IFGACB) 09102000 KW66 DC AL1(0) 09103000 DC AL1(0) 09104000 DC AL1(0) 09105000 DC AL1(MEVT-MEXLBRTB) 09106000 DC AL1(KWTYP30-KWBRTAB) 09107000 DC AL1(KWTYP31-KWBRTAB) 09108000 DC AL1(0) 09109000 DC AL1(0) 09110000 DC AL1(0) 09111000 DC AL1(0) 09112000 DC AL1(0) 09113000 DC AL1(0) 09114000 DC AL1(4) 09115000 DC AL1(EXLTPNDF-IFGEXLST+40) 09116000 KW67 DC AL1(0) 09117000 DC AL1(0) 09118000 DC AL1(0) 09119000 DC AL1(MEVT-MEXLBRTB) 09120000 DC AL1(KWTYP30-KWBRTAB) 09121000 DC AL1(KWTYP31-KWBRTAB) 09122000 DC AL1(0) 09123000 DC AL1(0) 09124000 DC AL1(0) 09125000 DC AL1(0) 09126000 DC AL1(0) 09127000 DC AL1(0) 09128000 DC AL1(4) 09129000 DC AL1(EXLLGNF-IFGEXLST) 09130000 KW68 DC AL1(0) 09131000 DC AL1(0) 09132000 DC AL1(0) 09133000 DC AL1(MEVT-MEXLBRTB) 09134000 DC AL1(KWTYP30-KWBRTAB) 09135000 DC AL1(KWTYP31-KWBRTAB) 09136000 DC AL1(0) 09137000 DC AL1(0) 09138000 DC AL1(0) 09139000 DC AL1(0) 09140000 DC AL1(0) 09141000 DC AL1(0) 09142000 DC AL1(4) 09143000 DC AL1(EXLNLGNF-EXLVTEXT+40) 09144000 KW69 DC AL1(0) 09145000 DC AL1(0) 09146000 DC AL1(0) 09147000 DC AL1(MEVT-MEXLBRTB) 09148000 DC AL1(KWTYP30-KWBRTAB) 09149000 DC AL1(KWTYP31-KWBRTAB) 09150000 DC AL1(0) 09151000 DC AL1(0) 09152000 DC AL1(0) 09153000 DC AL1(0) 09154000 DC AL1(0) 09155000 DC AL1(0) 09156000 DC AL1(4) 09157000 DC AL1(EXLATTNF-EXLVTEXT+40) 09158000 KW70 DC AL1(0) 09159000 DC AL1(0) 09160000 DC AL1(0) 09161000 DC AL1(MEVT-MEXLBRTB) 09162000 DC AL1(KWTYP30-KWBRTAB) 09163000 DC AL1(KWTYP31-KWBRTAB) 09164000 DC AL1(0) 09165000 DC AL1(0) 09166000 DC AL1(0) 09167000 DC AL1(0) 09168000 DC AL1(0) 09169000 DC AL1(0) 09170000 DC AL1(4) 09171000 DC AL1(EXLRLRQF-EXLVTEXT+40) 09172000 KW71 DC AL1(0) 09173000 DC AL1(0) 09174000 DC AL1(0) 09175000 DC AL1(0) 09176000 DC AL1(0) 09177000 DC AL1(0) 09178000 DC AL1(0) 09179000 DC AL1(0) 09180000 DC AL1(0) 09181000 DC AL1(0) 09182000 DC AL1(0) 09183000 DC AL1(0) 09184000 DC AL1(0) 09185000 DC AL1(0) 09186000 KW72 DC AL1(0) 09187000 DC AL1(0) 09188000 DC AL1(0) 09189000 DC AL1(0) 09190000 DC AL1(0) 09191000 DC AL1(0) 09192000 DC AL1(0) 09193000 DC AL1(0) 09194000 DC AL1(0) 09195000 DC AL1(0) 09196000 DC AL1(0) 09197000 DC AL1(0) 09198000 DC AL1(0) 09199000 DC AL1(0) 09200000 KW73 DC AL1(0) 09201000 DC AL1(0) 09202000 DC AL1(0) 09203000 DC AL1(0) 09204000 DC AL1(0) 09205000 DC AL1(0) 09206000 DC AL1(MRVTWORD-MRPLKWTB) 09207000 DC AL1(KWTYP18-KWBRTAB) 09208000 DC AL1(KWTYP19-KWBRTAB) 09209000 DC AL1(0) 09210000 DC AL1(0) 09211000 DC AL1(0) 09212000 DC AL1(4) 09213000 DC AL1(RPLAARLN-RPLVTEXT+76) 09214000 KW74 DC AL1(0) 09215000 DC AL1(0) 09216000 DC AL1(0) 09217000 DC AL1(0) 09218000 DC AL1(0) 09219000 DC AL1(0) 09220000 DC AL1(MRVTWORD-MRPLKWTB) 09221000 DC AL1(KWTYP18-KWBRTAB) 09222000 DC AL1(KWTYP19-KWBRTAB) 09223000 DC AL1(0) 09224000 DC AL1(0) 09225000 DC AL1(0) 09226000 DC AL1(4) 09227000 DC AL1(RPLARCLN-RPLVTEXT+76) 09228000 KW75 DC AL1(0) 09229000 DC AL1(0) 09230000 DC AL1(0) 09231000 DC AL1(0) 09232000 DC AL1(0) 09233000 DC AL1(0) 09234000 DC AL1(MREXIT-MRPLKWTB) 09235000 DC AL1(KWTYP18-KWBRTAB) 09236000 DC AL1(KWTYP19-KWBRTAB) 09237000 DC AL1(0) 09238000 DC AL1(0) 09239000 DC AL1(0) 09240000 DC AL1(4) 09241000 DC AL1(RPLECB-IFGRPL) 09242000 KW76 DC AL1(0) 09243000 DC AL1(0) 09244000 DC AL1(0) 09245000 DC AL1(0) 09246000 DC AL1(0) 09247000 DC AL1(0) 09248000 DC AL1(0) 09249000 DC AL1(0) 09250000 DC AL1(0) 09251000 DC AL1(0) 09252000 DC AL1(0) 09253000 DC AL1(0) 09254000 DC AL1(0) 09255000 DC AL1(0) 09256000 KW77 DC AL1(0) 09257000 DC AL1(0) 09258000 DC AL1(0) 09259000 DC AL1(0) 09260000 DC AL1(0) 09261000 DC AL1(0) 09262000 DC AL1(0) 09263000 DC AL1(0) 09264000 DC AL1(0) 09265000 DC AL1(0) 09266000 DC AL1(0) 09267000 DC AL1(0) 09268000 DC AL1(0) 09269000 DC AL1(0) 09270000 KW78 DC AL1(0) 09271000 DC AL1(0) 09272000 DC AL1(0) 09273000 DC AL1(0) 09274000 DC AL1(0) 09275000 DC AL1(0) 09276000 DC AL1(0) 09277000 DC AL1(KWTYP18-KWBRTAB) 09278000 DC AL1(KWTYP19-KWBRTAB) 09279000 DC AL1(0) 09280000 DC AL1(0) 09281000 DC AL1(0) 09282000 DC AL1(4) 09283000 DC AL1(RPLUSFLD-RPLVTEXT+76) 09284000 KW79 DC AL1(0) 09285000 DC AL1(0) 09286000 DC AL1(0) 09287000 DC AL1(0) 09288000 DC AL1(0) 09289000 DC AL1(0) 09290000 DC AL1(MRNIB-MRPLKWTB) 09291000 DC AL1(KWTYP18-KWBRTAB) 09292000 DC AL1(KWTYP19-KWBRTAB) 09293000 DC AL1(0) 09294000 DC AL1(0) 09295000 DC AL1(0) 09296000 DC AL1(4) 09297000 DC AL1(RPLARG-IFGRPL) 09298000 KW80 DC AL1(0) 09299000 DC AL1(0) 09300000 DC AL1(0) 09301000 DC AL1(0) 09302000 DC AL1(0) 09303000 DC AL1(0) 09304000 DC AL1(0) 09305000 DC AL1(0) 09306000 DC AL1(0) 09307000 DC AL1(MNPROC-MNIBKWTB) 09308000 DC AL1(0) 09309000 DC AL1(KWTYP28-KWBRTAB) 09310000 @NM00166 DC AL2(11*16) 09311000 @NM00167 DC AL1(0) 09312000 DC AL1(0) 09313000 DC AL1(0) 09314000 DC AL1(0) 09315000 DC AL1(0) 09316000 DC AL1(0) 09317000 DC AL1(0) 09318000 DC AL1(0) 09319000 DC AL1(0) 09320000 DC AL1(MNUSERFI-MNIBKWTB) 09321000 DC AL1(KWTYP04-KWBRTAB) 09322000 DC AL1(KWTYP05-KWBRTAB) 09323000 DC AL1(4) 09324000 DC AL1(NIBUSER-ISTNIB) 09325000 KW82 DC AL1(0) 09326000 DC AL1(0) 09327000 DC AL1(0) 09328000 DC AL1(0) 09329000 DC AL1(0) 09330000 DC AL1(0) 09331000 DC AL1(0) 09332000 DC AL1(0) 09333000 DC AL1(0) 09334000 DC AL1(MNBITSTR-MNIBKWTB) 09335000 DC AL1(0) 09336000 DC AL1(KWTYP0E-KWBRTAB) 09337000 @NM00168 DC AL2(9*16) 09338000 KW83 DC AL1(0) 09339000 DC AL1(0) 09340000 DC AL1(0) 09341000 DC AL1(0) 09342000 DC AL1(0) 09343000 DC AL1(0) 09344000 DC AL1(0) 09345000 DC AL1(0) 09346000 DC AL1(0) 09347000 DC AL1(0) 09348000 DC AL1(KWTYP04-KWBRTAB) 09349000 DC AL1(KWTYP05-KWBRTAB) 09350000 DC AL1(1) 09351000 DC AL1(NIBLEN-ISTNIB) 09352000 KW84 DC AL1(0) 09353000 DC AL1(0) 09354000 DC AL1(0) 09355000 DC AL1(0) 09356000 DC AL1(0) 09357000 DC AL1(0) 09358000 DC AL1(0) 09359000 DC AL1(0) 09360000 DC AL1(0) 09361000 DC AL1(MNMODE-MNIBKWTB) 09362000 DC AL1(KWTYP04-KWBRTAB) 09363000 DC AL1(KWTYP05-KWBRTAB) 09364000 DC AL1(8) 09365000 DC AL1(NIBMODE-ISTNIB) 09366000 KW85 DC AL1(0) 09367000 DC AL1(0) 09368000 DC AL1(0) 09369000 DC AL1(0) 09370000 DC AL1(0) 09371000 DC AL1(0) 09372000 DC AL1(0) 09373000 DC AL1(0) 09374000 DC AL1(0) 09375000 DC AL1(MNCONDN-MNIBKWTB) 09376000 DC AL1(KWTYP04-KWBRTAB) 09377000 DC AL1(KWTYP05-KWBRTAB) 09378000 DC AL1(1) 09379000 DC AL1(NIBCONDN-ISTNIB) 09380000 KW86 DC AL1(0) 09381000 DC AL1(0) 09382000 DC AL1(0) 09383000 DC AL1(0) 09384000 DC AL1(0) 09385000 DC AL1(0) 09386000 DC AL1(0) 09387000 DC AL1(0) 09388000 DC AL1(0) 09389000 DC AL1(0) 09390000 DC AL1(KWTYP04-KWBRTAB) 09391000 DC AL1(KWTYP05-KWBRTAB) 09392000 DC AL1(8) 09393000 DC AL1(NIBDEVCH-ISTNIB) 09394000 KW87 DC AL1(0) 09395000 DC AL1(0) 09396000 DC AL1(0) 09397000 DC AL1(0) 09398000 DC AL1(0) 09399000 DC AL1(0) 09400000 DC AL1(MRVTWORD-MRPLKWTB) 09401000 DC AL1(KWTYP18-KWBRTAB) 09402000 DC AL1(KWTYP19-KWBRTAB) 09403000 DC AL1(0) 09404000 DC AL1(0) 09405000 DC AL1(0) 09406000 DC AL1(4) 09407000 DC AL1(RPLAAREA-RPLVTEXT+76) 09408000 KW88 DC AL1(0) 09409000 DC AL1(0) 09410000 DC AL1(0) 09411000 DC AL1(0) 09412000 DC AL1(0) 09413000 DC AL1(0) 09414000 DC AL1(MRVTBITS-MRPLKWTB) 09415000 DC AL1(0) 09416000 DC AL1(KWTYP20-KWBRTAB) 09417000 DC AL1(0) 09418000 DC AL1(0) 09419000 DC AL1(0) 09420000 @NM00169 DC AL2(2*16) 09421000 KW89 DC AL1(MABITSTR-MACBKWTB) 09422000 DC AL1(0) 09423000 DC AL1(KWTYP0E-KWBRTAB) 09424000 DC AL1(0) 09425000 DC AL1(0) 09426000 DC AL1(0) 09427000 DC AL1(0) 09428000 DC AL1(0) 09429000 DC AL1(0) 09430000 DC AL1(0) 09431000 DC AL1(0) 09432000 DC AL1(0) 09433000 @NM00170 DC AL2(4*16) 09434000 KW90 DC AL1(0) 09435000 DC AL1(0) 09436000 DC AL1(0) 09437000 DC AL1(0) 09438000 DC AL1(0) 09439000 DC AL1(0) 09440000 DC AL1(0) 09441000 DC AL1(0) 09442000 DC AL1(0) 09443000 DC AL1(0) 09444000 DC AL1(KWTYP04-KWBRTAB) 09445000 DC AL1(KWTYP05-KWBRTAB) 09446000 DC AL1(4) 09447000 DC AL1(NIBCID-ISTNIB) 09448000 KW91 DC AL1(0) 09449000 DC AL1(0) 09450000 DC AL1(0) 09451000 DC AL1(0) 09452000 DC AL1(0) 09453000 DC AL1(0) 09454000 DC AL1(0) 09455000 DC AL1(0) 09456000 DC AL1(0) 09457000 DC AL1(MNNAME-MNIBKWTB) 09458000 DC AL1(KWTYP04-KWBRTAB) 09459000 DC AL1(KWTYP05-KWBRTAB) 09460000 DC AL1(8) 09461000 DC AL1(NIBSYM-ISTNIB) 09462000 KW92 DC AL1(0) 09463000 DC AL1(0) 09464000 DC AL1(0) 09465000 DC AL1(0) 09466000 DC AL1(0) 09467000 DC AL1(0) 09468000 DC AL1(0) 09469000 DC AL1(0) 09470000 DC AL1(0) 09471000 DC AL1(0) 09472000 DC AL1(0) 09473000 DC AL1(KWTYP0E-KWBRTAB) 09474000 @NM00171 DC AL2(10*16) 09475000 KW93 DC AL1(0) 09476000 DC AL1(0) 09477000 DC AL1(0) 09478000 DC AL1(0) 09479000 DC AL1(0) 09480000 DC AL1(0) 09481000 DC AL1(0) 09482000 DC AL1(0) 09483000 DC AL1(KWTYP0E-KWBRTAB) 09484000 DC AL1(0) 09485000 DC AL1(0) 09486000 DC AL1(0) 09487000 @NM00172 DC AL2(7*16) 09488000 KW94 DC AL1(0) 09489000 DC AL1(0) 09490000 DC AL1(0) 09491000 DC AL1(0) 09492000 DC AL1(0) 09493000 DC AL1(0) 09494000 DC AL1(0) 09495000 DC AL1(KWTYP04-KWBRTAB) 09496000 DC AL1(KWTYP05-KWBRTAB) 09497000 DC AL1(0) 09498000 DC AL1(0) 09499000 DC AL1(0) 09500000 DC AL1(1) 09501000 DC AL1(RPLRTNCD-IFGRPL) 09502000 KW95 DC AL1(0) 09503000 DC AL1(0) 09504000 DC AL1(0) 09505000 DC AL1(0) 09506000 DC AL1(0) 09507000 DC AL1(0) 09508000 DC AL1(MRTRANSI-MRPLKWTB) 09509000 DC AL1(KWTYP04-KWBRTAB) 09510000 DC AL1(KWTYP05-KWBRTAB) 09511000 DC AL1(0) 09512000 DC AL1(0) 09513000 DC AL1(0) 09514000 DC AL1(2) 09515000 DC AL1(RPLSTRID-IFGRPL) 09516000 KW96 DC AL1(0) 09517000 DC AL1(0) 09518000 DC AL1(0) 09519000 DC AL1(0) 09520000 DC AL1(0) 09521000 DC AL1(0) 09522000 DC AL1(0) 09523000 DC AL1(KWTYP04-KWBRTAB) 09524000 DC AL1(KWTYP05-KWBRTAB) 09525000 DC AL1(0) 09526000 DC AL1(0) 09527000 DC AL1(0) 09528000 DC AL1(1) 09529000 DC AL1(RPLFDB2-IFGRPL) 09530000 KW97 DC AL1(0) 09531000 DC AL1(0) 09532000 DC AL1(0) 09533000 DC AL1(0) 09534000 DC AL1(0) 09535000 DC AL1(0) 09536000 DC AL1(0) 09537000 DC AL1(KWTYP18-KWBRTAB) 09538000 DC AL1(KWTYP19-KWBRTAB) 09539000 DC AL1(0) 09540000 DC AL1(0) 09541000 DC AL1(0) 09542000 DC AL1(2) 09543000 DC AL1(RPLDSB-RPLVTEXT+76) 09544000 KW98 DC AL1(0) 09545000 DC AL1(0) 09546000 DC AL1(0) 09547000 DC AL1(0) 09548000 DC AL1(0) 09549000 DC AL1(0) 09550000 DC AL1(0) 09551000 DC AL1(KWTYP04-KWBRTAB) 09552000 DC AL1(KWTYP05-KWBRTAB) 09553000 DC AL1(0) 09554000 DC AL1(0) 09555000 DC AL1(0) 09556000 DC AL1(1) 09557000 DC AL1(RPLREQ-IFGRPL) 09558000 KW99 DC AL1(0) 09559000 DC AL1(0) 09560000 DC AL1(0) 09561000 DC AL1(0) 09562000 DC AL1(0) 09563000 DC AL1(0) 09564000 DC AL1(0) 09565000 DC AL1(KWTYP04-KWBRTAB) 09566000 DC AL1(KWTYP05-KWBRTAB) 09567000 DC AL1(0) 09568000 DC AL1(0) 09569000 DC AL1(0) 09570000 DC AL1(1) 09571000 DC AL1(RPLFDB2-IFGRPL) 09572000 KW100 DC AL1(0) 09573000 DC AL1(0) 09574000 DC AL1(0) 09575000 DC AL1(0) 09576000 DC AL1(0) 09577000 DC AL1(0) 09578000 DC AL1(0) 09579000 DC AL1(0) 09580000 DC AL1(0) 09581000 DC AL1(0) 09582000 DC AL1(0) 09583000 DC AL1(0) 09584000 DC AL1(0) 09585000 DC AL1(0) 09586000 KW101 DC AL1(0) 09587000 DC AL1(0) 09588000 DC AL1(0) 09589000 DC AL1(0) 09590000 DC AL1(0) 09591000 DC AL1(0) 09592000 DC AL1(MRVTBITS-MRPLKWTB) 09593000 DC AL1(0) 09594000 DC AL1(KWTYP20-KWBRTAB) 09595000 DC AL1(0) 09596000 DC AL1(0) 09597000 DC AL1(0) 09598000 @NM00173 DC AL2(14*16) 09599000 KW102 DC AL1(0) 09600000 DC AL1(0) 09601000 DC AL1(0) 09602000 DC AL1(0) 09603000 DC AL1(0) 09604000 DC AL1(0) 09605000 DC AL1(MRVTBITS-MRPLKWTB) 09606000 DC AL1(0) 09607000 DC AL1(KWTYP20-KWBRTAB) 09608000 DC AL1(0) 09609000 DC AL1(0) 09610000 DC AL1(0) 09611000 @NM00174 DC AL2(15*16) 09612000 KW103 DC AL1(0) 09613000 DC AL1(0) 09614000 DC AL1(0) 09615000 DC AL1(0) 09616000 DC AL1(0) 09617000 DC AL1(0) 09618000 DC AL1(MRVTBITS-MRPLKWTB) 09619000 DC AL1(0) 09620000 DC AL1(KWTYP20-KWBRTAB) 09621000 DC AL1(0) 09622000 DC AL1(0) 09623000 DC AL1(0) 09624000 @NM00175 DC AL2(16*16) 09625000 KW104 DC AL1(0) 09626000 DC AL1(0) 09627000 DC AL1(0) 09628000 DC AL1(0) 09629000 DC AL1(0) 09630000 DC AL1(0) 09631000 DC AL1(MRVTBITS-MRPLKWTB) 09632000 DC AL1(0) 09633000 DC AL1(KWTYP20-KWBRTAB) 09634000 DC AL1(0) 09635000 DC AL1(0) 09636000 DC AL1(0) 09637000 @NM00176 DC AL2(17*16) 09638000 KW105 DC AL1(0) 09639000 DC AL1(0) 09640000 DC AL1(0) 09641000 DC AL1(0) 09642000 DC AL1(0) 09643000 DC AL1(0) 09644000 DC AL1(MRVTBITS-MRPLKWTB) 09645000 DC AL1(0) 09646000 DC AL1(KWTYP0E-KWBRTAB) 09647000 DC AL1(0) 09648000 DC AL1(0) 09649000 DC AL1(0) 09650000 @NM00177 DC AL2(18*16) 09651000 KW106 DC AL1(0) 09652000 DC AL1(0) 09653000 DC AL1(0) 09654000 DC AL1(0) 09655000 DC AL1(0) 09656000 DC AL1(0) 09657000 DC AL1(MRVTBITS-MRPLKWTB) 09658000 DC AL1(0) 09659000 DC AL1(KWTYP20-KWBRTAB) 09660000 DC AL1(0) 09661000 DC AL1(0) 09662000 DC AL1(0) 09663000 @NM00178 DC AL2(19*16) 09664000 KW107 DC AL1(0) 09665000 DC AL1(0) 09666000 DC AL1(0) 09667000 DC AL1(0) 09668000 DC AL1(0) 09669000 DC AL1(0) 09670000 DC AL1(MRVTBITS-MRPLKWTB) 09671000 DC AL1(0) 09672000 DC AL1(KWTYP20-KWBRTAB) 09673000 DC AL1(0) 09674000 DC AL1(0) 09675000 DC AL1(0) 09676000 @NM00179 DC AL2(20*16) 09677000 KW108 DC AL1(0) 09678000 DC AL1(0) 09679000 DC AL1(0) 09680000 DC AL1(0) 09681000 DC AL1(0) 09682000 DC AL1(0) 09683000 DC AL1(MRVTBITS-MRPLKWTB) 09684000 DC AL1(0) 09685000 DC AL1(KWTYP20-KWBRTAB) 09686000 DC AL1(0) 09687000 DC AL1(0) 09688000 DC AL1(0) 09689000 @NM00180 DC AL2(21*16) 09690000 KW109 DC AL1(0) 09691000 DC AL1(0) 09692000 DC AL1(0) 09693000 DC AL1(0) 09694000 DC AL1(0) 09695000 DC AL1(0) 09696000 DC AL1(MRVTBITS-MRPLKWTB) 09697000 DC AL1(0) 09698000 DC AL1(KWTYP20-KWBRTAB) 09699000 DC AL1(0) 09700000 DC AL1(0) 09701000 DC AL1(0) 09702000 @NM00181 DC AL2(22*16) 09703000 KW110 DC AL1(0) 09704000 DC AL1(0) 09705000 DC AL1(0) 09706000 DC AL1(0) 09707000 DC AL1(0) 09708000 DC AL1(0) 09709000 DC AL1(MRVTHWRD-MRPLKWTB) 09710000 DC AL1(KWTYP18-KWBRTAB) 09711000 DC AL1(KWTYP19-KWBRTAB) 09712000 DC AL1(0) 09713000 DC AL1(0) 09714000 DC AL1(0) 09715000 DC AL1(2) 09716000 DC AL1(RPLOBSQV-RPLOF60+RPLRBAR-IFGRPL) 09717000 KW111 DC AL1(0) 09718000 DC AL1(0) 09719000 DC AL1(0) 09720000 DC AL1(0) 09721000 DC AL1(0) 09722000 DC AL1(0) 09723000 DC AL1(MRVTHWRD-MRPLKWTB) 09724000 DC AL1(KWTYP18-KWBRTAB) 09725000 DC AL1(KWTYP19-KWBRTAB) 09726000 DC AL1(0) 09727000 DC AL1(0) 09728000 DC AL1(0) 09729000 DC AL1(2) 09730000 DC AL1(RPLIBSQV-RPLOF60+RPLRBAR-IFGRPL) 09731000 KW112 DC AL1(0) 09732000 DC AL1(0) 09733000 DC AL1(0) 09734000 DC AL1(0) 09735000 DC AL1(0) 09736000 DC AL1(0) 09737000 DC AL1(MRVTHWRD-MRPLKWTB) 09738000 DC AL1(KWTYP18-KWBRTAB) 09739000 DC AL1(KWTYP19-KWBRTAB) 09740000 DC AL1(0) 09741000 DC AL1(0) 09742000 DC AL1(0) 09743000 DC AL1(2) 09744000 DC AL1(RPLSEQNO-RPLOF60+RPLRBAR-IFGRPL) 09745000 KW113 DC AL1(0) 09746000 DC AL1(0) 09747000 DC AL1(0) 09748000 DC AL1(0) 09749000 DC AL1(0) 09750000 DC AL1(0) 09751000 DC AL1(MRVTBITS-MRPLKWTB) 09752000 DC AL1(0) 09753000 DC AL1(KWTYP20-KWBRTAB) 09754000 DC AL1(0) 09755000 DC AL1(0) 09756000 DC AL1(0) 09757000 @NM00182 DC AL2(23*16) 09758000 KW114 DC AL1(0) 09759000 DC AL1(0) 09760000 DC AL1(0) 09761000 DC AL1(0) 09762000 DC AL1(0) 09763000 DC AL1(0) 09764000 DC AL1(0) 09765000 DC AL1(0) 09766000 DC AL1(KWTYP20-KWBRTAB) 09767000 DC AL1(0) 09768000 DC AL1(0) 09769000 DC AL1(0) 09770000 @NM00183 DC AL2(24*16) 09771000 KW115 DC AL1(0) 09772000 DC AL1(0) 09773000 DC AL1(0) 09774000 DC AL1(0) 09775000 DC AL1(0) 09776000 DC AL1(0) 09777000 DC AL1(MRVTHWRD-MRPLKWTB) 09778000 DC AL1(KWTYP18-KWBRTAB) 09779000 DC AL1(KWTYP19-KWBRTAB) 09780000 DC AL1(0) 09781000 DC AL1(0) 09782000 DC AL1(0) 09783000 DC AL1(2) 09784000 DC AL1(RPLUSNSO-RPLVTEXT+76) 09785000 @NM00184 DC AL1(0) 09786000 DC AL1(0) 09787000 DC AL1(0) 09788000 DC AL1(0) 09789000 DC AL1(0) 09790000 DC AL1(0) 09791000 DC AL1(0) 09792000 DC AL1(KWTYP18-KWBRTAB) 09793000 DC AL1(KWTYP19-KWBRTAB) 09794000 DC AL1(0) 09795000 DC AL1(0) 09796000 DC AL1(0) 09797000 DC AL1(2) 09798000 DC AL1(RPLUSNSI-RPLVTEXT+76) 09799000 KW117 DC AL1(0) 09800000 DC AL1(0) 09801000 DC AL1(0) 09802000 DC AL1(0) 09803000 DC AL1(0) 09804000 DC AL1(0) 09805000 DC AL1(0) 09806000 DC AL1(0) 09807000 DC AL1(0) 09808000 DC AL1(0) 09809000 DC AL1(0) 09810000 DC AL1(0) 09811000 DC AL1(0) 09812000 DC AL1(0) 09813000 KW118 DC AL1(0) 09814000 DC AL1(0) 09815000 DC AL1(0) 09816000 DC AL1(0) 09817000 DC AL1(0) 09818000 DC AL1(0) 09819000 DC AL1(0) 09820000 DC AL1(0) 09821000 DC AL1(0) 09822000 DC AL1(0) 09823000 DC AL1(0) 09824000 DC AL1(0) 09825000 DC AL1(0) 09826000 DC AL1(0) 09827000 KW119 DC AL1(0) 09828000 DC AL1(0) 09829000 DC AL1(0) 09830000 DC AL1(0) 09831000 DC AL1(0) 09832000 DC AL1(0) 09833000 DC AL1(0) 09834000 DC AL1(0) 09835000 DC AL1(0) 09836000 DC AL1(0) 09837000 DC AL1(0) 09838000 DC AL1(0) 09839000 DC AL1(0) 09840000 DC AL1(0) 09841000 KW120 DC AL1(0) 09842000 DC AL1(0) 09843000 DC AL1(0) 09844000 DC AL1(MEVT-MEXLBRTB) 09845000 DC AL1(KWTYP30-KWBRTAB) 09846000 DC AL1(KWTYP31-KWBRTAB) 09847000 DC AL1(0) 09848000 DC AL1(0) 09849000 DC AL1(0) 09850000 DC AL1(0) 09851000 DC AL1(0) 09852000 DC AL1(0) 09853000 DC AL1(4) 09854000 DC AL1(EXLSCIPF-IFGEXLST) 09855000 KW121 DC AL1(0) 09856000 DC AL1(0) 09857000 DC AL1(0) 09858000 DC AL1(MEVT-MEXLBRTB) 09859000 DC AL1(KWTYP30-KWBRTAB) 09860000 DC AL1(KWTYP31-KWBRTAB) 09861000 DC AL1(0) 09862000 DC AL1(0) 09863000 DC AL1(0) 09864000 DC AL1(0) 09865000 DC AL1(0) 09866000 DC AL1(0) 09867000 DC AL1(4) 09868000 DC AL1(EXLDFASF-EXLDFAS+EXLJRNF-IFGEXLST) 09869000 KW122 DC AL1(0) 09870000 DC AL1(0) 09871000 DC AL1(0) 09872000 DC AL1(MEVT-MEXLBRTB) 09873000 DC AL1(KWTYP30-KWBRTAB) 09874000 DC AL1(KWTYP31-KWBRTAB) 09875000 DC AL1(0) 09876000 DC AL1(0) 09877000 DC AL1(0) 09878000 DC AL1(0) 09879000 DC AL1(0) 09880000 DC AL1(0) 09881000 DC AL1(4) 09882000 DC AL1(EXLRESPF-EXLRESP+EXLOPNF-IFGEXLST) 09883000 KW123 DC AL1(0) 09884000 DC AL1(0) 09885000 DC AL1(0) 09886000 DC AL1(0) 09887000 DC AL1(0) 09888000 DC AL1(0) 09889000 DC AL1(0) 09890000 DC AL1(0) 09891000 DC AL1(0) 09892000 DC AL1(0) 09893000 DC AL1(0) 09894000 DC AL1(0) 09895000 DC AL1(0) 09896000 DC AL1(0) 09897000 KW124 DC AL1(0) 09898000 DC AL1(KWTYP21-KWBRTAB) 09899000 DC AL1(0) 09900000 DC AL1(0) 09901000 DC AL1(0) 09902000 DC AL1(0) 09903000 DC AL1(0) 09904000 DC AL1(0) 09905000 DC AL1(0) 09906000 DC AL1(0) 09907000 DC AL1(0) 09908000 DC AL1(0) 09909000 DC AL1(4) 09910000 DC AL1(BSPHFND-IDABSPH) 09911000 KW125 DC AL1(0) 09912000 DC AL1(KWTYP21-KWBRTAB) 09913000 DC AL1(0) 09914000 DC AL1(0) 09915000 DC AL1(0) 09916000 DC AL1(0) 09917000 DC AL1(0) 09918000 DC AL1(0) 09919000 DC AL1(0) 09920000 DC AL1(0) 09921000 DC AL1(0) 09922000 DC AL1(0) 09923000 DC AL1(4) 09924000 DC AL1(BSPHRDS-IDABSPH) 09925000 KW126 DC AL1(0) 09926000 DC AL1(KWTYP21-KWBRTAB) 09927000 DC AL1(0) 09928000 DC AL1(0) 09929000 DC AL1(0) 09930000 DC AL1(0) 09931000 DC AL1(0) 09932000 DC AL1(0) 09933000 DC AL1(0) 09934000 DC AL1(0) 09935000 DC AL1(0) 09936000 DC AL1(0) 09937000 DC AL1(4) 09938000 DC AL1(BSPHNUIW-IDABSPH) 09939000 KW127 DC AL1(0) 09940000 DC AL1(KWTYP21-KWBRTAB) 09941000 DC AL1(0) 09942000 DC AL1(0) 09943000 DC AL1(0) 09944000 DC AL1(0) 09945000 DC AL1(0) 09946000 DC AL1(0) 09947000 DC AL1(0) 09948000 DC AL1(0) 09949000 DC AL1(0) 09950000 DC AL1(0) 09951000 DC AL1(4) 09952000 DC AL1(BSPHUIW-IDABSPH) 09953000 KW128 DC AL1(0) 09954000 DC AL1(KWTYP10-KWBRTAB) 09955000 DC AL1(0) 09956000 DC AL1(0) 09957000 DC AL1(0) 09958000 DC AL1(0) 09959000 DC AL1(0) 09960000 DC AL1(0) 09961000 DC AL1(0) 09962000 DC AL1(0) 09963000 DC AL1(0) 09964000 DC AL1(0) 09965000 DC AL1(2) 09966000 DC AL1(PLHDRMAX-IDAPLH) 09967000 KW129 DC AL1(0) 09968000 DC AL1(0) 09969000 DC AL1(0) 09970000 DC AL1(0) 09971000 DC AL1(0) 09972000 DC AL1(0) 09973000 DC AL1(0) 09974000 DC AL1(0) 09975000 DC AL1(0) 09976000 DC AL1(0) 09977000 DC AL1(0) 09978000 DC AL1(0) 09979000 DC AL1(0) 09980000 DC AL1(0) 09981000 KW130 DC AL1(0) 09982000 DC AL1(0) 09983000 DC AL1(0) 09984000 DC AL1(0) 09985000 DC AL1(0) 09986000 DC AL1(0) 09987000 DC AL1(0) 09988000 DC AL1(0) 09989000 DC AL1(0) 09990000 DC AL1(MNEXLST-MNIBKWTB) 09991000 DC AL1(KWTYP04-KWBRTAB) 09992000 DC AL1(KWTYP05-KWBRTAB) 09993000 DC AL1(4) 09994000 DC AL1(NIBEXLST-ISTNIB) 09995000 KW131 DC AL1(0) 09996000 DC AL1(0) 09997000 DC AL1(0) 09998000 DC AL1(0) 09999000 DC AL1(0) 10000000 DC AL1(0) 10001000 DC AL1(0) 10002000 DC AL1(0) 10003000 DC AL1(0) 10004000 DC AL1(MNRESPLI-MNIBKWTB) 10005000 DC AL1(KWTYP04-KWBRTAB) 10006000 DC AL1(KWTYP05-KWBRTAB) 10007000 DC AL1(2) 10008000 DC AL1(NIBLIMIT-ISTNIB) 10009000 KW132 DC AL1(0) 10010000 DC AL1(0) 10011000 DC AL1(0) 10012000 DC AL1(0) 10013000 DC AL1(0) 10014000 DC AL1(0) 10015000 DC AL1(0) 10016000 DC AL1(0) 10017000 DC AL1(0) 10018000 DC AL1(MNBITSTR-MNIBKWTB) 10019000 DC AL1(0) 10020000 DC AL1(KWTYP0E-KWBRTAB) 10021000 @NM00185 DC AL2(12*16) 10022000 KW133 DC AL1(0) 10023000 DC AL1(0) 10024000 DC AL1(0) 10025000 DC AL1(0) 10026000 DC AL1(0) 10027000 DC AL1(0) 10028000 DC AL1(MRVTBITS-MRPLKWTB) 10029000 DC AL1(0) 10030000 DC AL1(KWTYP20-KWBRTAB) 10031000 DC AL1(0) 10032000 DC AL1(0) 10033000 DC AL1(0) 10034000 @NM00186 DC AL2(13*16) 10035000 KW134 DC AL1(0) 10036000 DC AL1(0) 10037000 DC AL1(0) 10038000 DC AL1(0) 10039000 DC AL1(0) 10040000 DC AL1(0) 10041000 DC AL1(MRVTCHAR-MRPLKWTB) 10042000 DC AL1(KWTYP18-KWBRTAB) 10043000 DC AL1(KWTYP19-KWBRTAB) 10044000 DC AL1(0) 10045000 DC AL1(0) 10046000 DC AL1(0) 10047000 DC AL1(1) 10048000 DC AL1(RPLSSMO-RPLVTEXT+76) 10049000 KW135 DC AL1(0) 10050000 DC AL1(0) 10051000 DC AL1(0) 10052000 DC AL1(0) 10053000 DC AL1(0) 10054000 DC AL1(0) 10055000 DC AL1(0) 10056000 DC AL1(KWTYP18-KWBRTAB) 10057000 DC AL1(KWTYP19-KWBRTAB) 10058000 DC AL1(0) 10059000 DC AL1(0) 10060000 DC AL1(0) 10061000 DC AL1(1) 10062000 DC AL1(RPLSSMI-RPLVTEXT+76) 10063000 KW136 DC AL1(0) 10064000 DC AL1(0) 10065000 DC AL1(0) 10066000 DC AL1(0) 10067000 DC AL1(0) 10068000 DC AL1(0) 10069000 DC AL1(MRVTWORD-MRPLKWTB) 10070000 DC AL1(KWTYP18-KWBRTAB) 10071000 DC AL1(KWTYP19-KWBRTAB) 10072000 DC AL1(0) 10073000 DC AL1(0) 10074000 DC AL1(0) 10075000 DC AL1(4) 10076000 DC AL1(RPLSIGDA-RPLVTEXT+76) 10077000 KW137 DC AL1(0) 10078000 DC AL1(0) 10079000 DC AL1(0) 10080000 DC AL1(0) 10081000 DC AL1(0) 10082000 DC AL1(0) 10083000 DC AL1(0) 10084000 DC AL1(0) 10085000 DC AL1(0) 10086000 DC AL1(0) 10087000 DC AL1(0) 10088000 DC AL1(0) 10089000 DC AL1(0) 10090000 DC AL1(0) 10091000 KW138 DC AL1(0) 10092000 DC AL1(0) 10093000 DC AL1(0) 10094000 DC AL1(0) 10095000 DC AL1(0) 10096000 DC AL1(0) 10097000 DC AL1(0) 10098000 DC AL1(0) 10099000 DC AL1(0) 10100000 DC AL1(0) 10101000 DC AL1(0) 10102000 DC AL1(0) 10103000 DC AL1(0) 10104000 DC AL1(0) 10105000 KW139 DC AL1(0) 10106000 DC AL1(0) 10107000 DC AL1(0) 10108000 DC AL1(0) 10109000 DC AL1(0) 10110000 DC AL1(0) 10111000 DC AL1(0) 10112000 DC AL1(0) 10113000 DC AL1(0) 10114000 DC AL1(0) 10115000 DC AL1(0) 10116000 DC AL1(0) 10117000 DC AL1(0) 10118000 DC AL1(0) 10119000 KW140 DC AL1(MAUSERPT-MACBKWTB) 10120000 DC AL1(KWTYP04-KWBRTAB) 10121000 DC AL1(KWTYP05-KWBRTAB) 10122000 DC AL1(0) 10123000 DC AL1(0) 10124000 DC AL1(0) 10125000 DC AL1(0) 10126000 DC AL1(0) 10127000 DC AL1(0) 10128000 DC AL1(0) 10129000 DC AL1(0) 10130000 DC AL1(0) 10131000 DC AL1(4) 10132000 DC AL1(ACBUAPTR-IFGACB) 10133000 KW141 DC AL1(MAJFCB-MACBKWTB) 10134000 DC AL1(KWTYP04-KWBRTAB) 10135000 DC AL1(KWTYP05-KWBRTAB) 10136000 DC AL1(0) 10137000 DC AL1(0) 10138000 DC AL1(0) 10139000 DC AL1(0) 10140000 DC AL1(0) 10141000 DC AL1(0) 10142000 DC AL1(0) 10143000 DC AL1(0) 10144000 DC AL1(0) 10145000 DC AL1(4) 10146000 DC AL1(ACBUJFCB-IFGACB) 10147000 KW142 DC AL1(0) 10148000 DC AL1(0) 10149000 DC AL1(0) 10150000 DC AL1(0) 10151000 DC AL1(0) 10152000 DC AL1(0) 10153000 DC AL1(0) 10154000 DC AL1(0) 10155000 DC AL1(0) 10156000 DC AL1(MNLOGMOD-MNIBKWTB) 10157000 DC AL1(KWTYP04-KWBRTAB) 10158000 DC AL1(KWTYP05-KWBRTAB) 10159000 DC AL1(8) 10160000 DC AL1(NIBLMODE-ISTNIB) 10161000 KW143 DC AL1(0) 10162000 DC AL1(0) 10163000 DC AL1(0) 10164000 DC AL1(0) 10165000 DC AL1(0) 10166000 DC AL1(0) 10167000 DC AL1(0) 10168000 DC AL1(0) 10169000 DC AL1(0) 10170000 DC AL1(MNBNDAR-MNIBKWTB) 10171000 DC AL1(KWTYP04-KWBRTAB) 10172000 DC AL1(KWTYP05-KWBRTAB) 10173000 DC AL1(4) 10174000 DC AL1(NIBNDAR-ISTNIB) 10175000 KW144 DC AL1(0) 10176000 DC AL1(0) 10177000 DC AL1(0) 10178000 DC AL1(0) 10179000 DC AL1(0) 10180000 DC AL1(0) 10181000 DC AL1(0) 10182000 DC AL1(0) 10183000 DC AL1(0) 10184000 DC AL1(0) 10185000 DC AL1(0) 10186000 DC AL1(0) 10187000 DC AL1(0) 10188000 DC AL1(0) 10189000 KW145 DC AL1(0) 10190000 DC AL1(0) 10191000 DC AL1(0) 10192000 DC AL1(0) 10193000 DC AL1(0) 10194000 DC AL1(0) 10195000 DC AL1(MRVTBITS-MRPLKWTB) 10196000 DC AL1(0) 10197000 DC AL1(KWTYP20-KWBRTAB) 10198000 DC AL1(0) 10199000 DC AL1(0) 10200000 DC AL1(0) 10201000 @NM00187 DC AL2(26*16) 10202000 KW146 DC AL1(0) 10203000 DC AL1(0) 10204000 DC AL1(0) 10205000 DC AL1(0) 10206000 DC AL1(0) 10207000 DC AL1(0) 10208000 DC AL1(0) 10209000 DC AL1(0) 10210000 DC AL1(0) 10211000 DC AL1(0) 10212000 DC AL1(0) 10213000 DC AL1(0) 10214000 DC AL1(0) 10215000 DC AL1(0) 10216000 KW147 DC AL1(0) 10217000 DC AL1(0) 10218000 DC AL1(0) 10219000 DC AL1(MEVT-MEXLBRTB) 10220000 DC AL1(KWTYP30-KWBRTAB) 10221000 DC AL1(KWTYP31-KWBRTAB) 10222000 DC AL1(0) 10223000 DC AL1(0) 10224000 DC AL1(0) 10225000 DC AL1(0) 10226000 DC AL1(0) 10227000 DC AL1(0) 10228000 DC AL1(4) 10229000 DC AL1(EXLTNSEF-EXLVTEXT+40) 10230000 KW148 DC AL1(0) 10231000 DC AL1(KWTYP09-KWBRTAB) 10232000 DC AL1(0) 10233000 DC AL1(0) 10234000 DC AL1(0) 10235000 DC AL1(0) 10236000 DC AL1(0) 10237000 DC AL1(0) 10238000 DC AL1(0) 10239000 DC AL1(0) 10240000 DC AL1(0) 10241000 DC AL1(0) 10242000 DC AL1(4) 10243000 DC AL1(ARDERBA-IDAARDB) 10244000 KW149 DC AL1(0) 10245000 DC AL1(0) 10246000 DC AL1(0) 10247000 DC AL1(0) 10248000 DC AL1(0) 10249000 DC AL1(0) 10250000 DC AL1(MRVTBITS-MRPLKWTB) 10251000 DC AL1(0) 10252000 DC AL1(KWTYP20-KWBRTAB) 10253000 DC AL1(0) 10254000 DC AL1(0) 10255000 DC AL1(0) 10256000 @NM00188 DC AL2(27*16) 10257000 KW150 DC AL1(0) 10258000 DC AL1(0) 10259000 DC AL1(0) 10260000 DC AL1(0) 10261000 DC AL1(0) 10262000 DC AL1(0) 10263000 DC AL1(0) 10264000 DC AL1(0) 10265000 DC AL1(0) 10266000 DC AL1(MNBITSTR-MNIBKWTB) 10267000 DC AL1(0) 10268000 DC AL1(KWTYP0E-KWBRTAB) 10269000 @NM00189 DC AL2(28*16) 10270000 ENDKWTAB DS AL1 10271000 ORG MASTERTB+2420 10272000 BATTAB DS CL16 10273000 ORG BATTAB+0 10274000 BITTAB DC AL4(ATRBITAB-3) 10275000 ONTAB DC AL4(ATRONTAB) 10276000 OFFTAB DC AL4(ATOFTAB) 10277000 BITCKMSK DC XL4'00FFFFFF' 10278000 ORG BATTAB+16 10279000 ORG BATTAB+16 10280000 DC AL4(MACBITAB-3) 10281000 DC AL4(MACONTAB) 10282000 DC AL4(MACOFTAB) 10283000 DC XL4'00080003' 10284000 ORG BATTAB+32 10285000 ORG BATTAB+32 10286000 DC AL4(BRHBITAB-3) 10287000 DC AL4(BRHONTAB) 10288000 DC AL4(BRHOFTAB) 10289000 DC XL4'3FFFFFFF' 10290000 ORG BATTAB+48 10291000 ORG BATTAB+48 10292000 DC AL4(CATBITAB-3) 10293000 DC AL4(CATONTAB) 10294000 DC AL4(CATOFTAB) 10295000 DC XL4'3FFFFFFF' 10296000 ORG BATTAB+64 10297000 ORG BATTAB+64 10298000 DC AL4(CRABITAB-3) 10299000 DC AL4(CRAONTAB) 10300000 DC AL4(CRAOFTAB) 10301000 DC XL4'3FFFFFFF' 10302000 ORG BATTAB+80 10303000 ORG BATTAB+80 10304000 DC AL4(OFLBITAB-3) 10305000 DC AL4(OFLONTAB) 10306000 DC AL4(OFLOFTAB) 10307000 DC XL4'7FFFFFFF' 10308000 ORG BATTAB+96 10309000 ORG BATTAB+96 10310000 DC AL4(OPEBITAB-3) 10311000 DC AL4(OPEONTAB) 10312000 DC AL4(OPEOFTAB) 10313000 DC XL4'1FFFFFFF' 10314000 ORG BATTAB+112 10315000 ORG BATTAB+112 10316000 DC AL4(DATBITAB-3) 10317000 DC AL4(DATONTAB) 10318000 DC AL4(DATOFTAB) 10319000 DC XL4'01FFFFFF' 10320000 ORG BATTAB+128 10321000 ORG BATTAB+128 10322000 DC AL4(OPTBITAB-3) 10323000 DC AL4(OPTONTAB) 10324000 DC AL4(OPTOFTAB) 10325000 DC XL4'00000000' 10326000 ORG BATTAB+144 10327000 ORG BATTAB+144 10328000 DC AL4(LISBITAB-3) 10329000 DC AL4(LISONTAB) 10330000 DC AL4(LISOFTAB) 10331000 DC XL4'3FFFFFFF' 10332000 ORG BATTAB+160 10333000 ORG BATTAB+160 10334000 DC AL4(CONBITAB-3) 10335000 DC AL4(CONONTAB) 10336000 DC AL4(CONOFTAB) 10337000 DC XL4'3FFFFFFF' 10338000 ORG BATTAB+176 10339000 ORG BATTAB+176 10340000 DC AL4(PROBITAB-3) 10341000 DC AL4(PROONTAB) 10342000 DC AL4(PROOFTAB) 10343000 DC XL4'00000000' 10344000 ORG BATTAB+192 10345000 ORG BATTAB+192 10346000 DC AL4(SDTBITAB-3) 10347000 DC AL4(SDTONTAB) 10348000 DC AL4(SDTOFTAB) 10349000 DC XL4'3FFFFFFF' 10350000 ORG BATTAB+208 10351000 ORG BATTAB+208 10352000 DC AL4(BRABITAB-3) 10353000 DC AL4(BRAONTAB) 10354000 DC AL4(BRAOFTAB) 10355000 DC XL4'0FFFFFFF' 10356000 ORG BATTAB+224 10357000 ORG BATTAB+224 10358000 DC AL4(CHNBITAB-3) 10359000 DC AL4(CHNONTAB) 10360000 DC AL4(CHGOFTAB) 10361000 DC XL4'0FFFFFFF' 10362000 ORG BATTAB+240 10363000 ORG BATTAB+240 10364000 DC AL4(STYBITAB-3) 10365000 DC AL4(STYONTAB) 10366000 DC AL4(STYOFTAB) 10367000 DC XL4'3FFFFFFF' 10368000 ORG BATTAB+256 10369000 ORG BATTAB+256 10370000 DC AL4(RTYBITAB-3) 10371000 DC AL4(RTYONTAB) 10372000 DC AL4(RTYOFTAB) 10373000 DC XL4'03FFFFFF' 10374000 ORG BATTAB+272 10375000 ORG BATTAB+272 10376000 DC AL4(CHABITAB-3) 10377000 DC AL4(CHAONTAB) 10378000 DC AL4(CHAOFTAB) 10379000 DC XL4'0FFFFFFF' 10380000 ORG BATTAB+288 10381000 ORG BATTAB+288 10382000 DC AL4(POSBITAB-3) 10383000 DC AL4(POSONTAB) 10384000 DC AL4(POSOFTAB) 10385000 DC XL4'3FFFFFFF' 10386000 ORG BATTAB+304 10387000 ORG BATTAB+304 10388000 DC AL4(RESBITAB-3) 10389000 DC AL4(RESONTAB) 10390000 DC AL4(RESOFTAB) 10391000 DC XL4'00FFFFFF' 10392000 ORG BATTAB+320 10393000 ORG BATTAB+320 10394000 DC AL4(CNTBITAB-3) 10395000 DC AL4(CNTONTAB) 10396000 DC AL4(CNTOFTAB) 10397000 DC XL4'00000FFF' 10398000 ORG BATTAB+336 10399000 ORG BATTAB+336 10400000 DC AL4(QBSBITAB-3) 10401000 DC AL4(QBSONTAB) 10402000 DC AL4(QBSOFTAB) 10403000 DC XL4'01FFFFFF' 10404000 ORG BATTAB+352 10405000 ORG BATTAB+352 10406000 DC AL4(IBSBITAB-3) 10407000 DC AL4(IBSONTAB) 10408000 DC AL4(IBSOFTAB) 10409000 DC XL4'01FFFFFF' 10410000 ORG BATTAB+368 10411000 ORG BATTAB+368 10412000 DC AL4(SSOBITAB-3) 10413000 DC AL4(SSOONTAB) 10414000 DC AL4(SSOOFTAB) 10415000 DC XL4'0FFFFFFF' 10416000 ORG BATTAB+384 10417000 ORG BATTAB+384 10418000 DC AL4(SSIBITAB-3) 10419000 DC AL4(SSIONTAB) 10420000 DC AL4(SSIOFTAB) 10421000 DC XL4'07FFFFFF' 10422000 ORG BATTAB+400 10423000 ORG BATTAB+400 10424000 DC AL4(AIXBITAB-3) 10425000 DC AL4(AIXONTAB) 10426000 DC AL4(AIXOFTAB) 10427000 DC XL4'7FFFFFFF' 10428000 ORG BATTAB+416 10429000 ORG BATTAB+416 10430000 DC AL4(CODBITAB-3) 10431000 DC AL4(CODONTAB) 10432000 DC AL4(CODOFTAB) 10433000 DC XL4'3FFFFFFF' 10434000 ORG BATTAB+432 10435000 ORG BATTAB+432 10436000 DC AL4(CRBITAB-3) 10437000 DC AL4(CRONTAB) 10438000 DC AL4(CROFTAB) 10439000 DC XL4'3FFFFFFF' 10440000 ORG BATTAB+448 10441000 ORG BATTAB+448 10442000 DC AL4(ERBITAB-3) 10443000 DC AL4(ERONTAB) 10444000 DC AL4(EROFTAB) 10445000 DC XL4'1FFFFFFF' 10446000 ORG MASTERTB+2884 10447000 ATRBITAB DS CL3 10448000 ORG ATRBITAB+0 10449000 @NM00190 DC AL1(ATKSDSON-ATRONTAB) 10450000 @NM00191 DC AL1(ATNOACT-ATOFTAB) 10451000 @NM00192 DC AL1(EXGRP1-EXBITAB) 10452000 ORG ATRBITAB+3 10453000 ORG ATRBITAB+3 10454000 DC AL1(ATESDSON-ATRONTAB) 10455000 DC AL1(ATNOACT-ATOFTAB) 10456000 DC AL1(EXGRP1-EXBITAB) 10457000 ORG ATRBITAB+6 10458000 ORG ATRBITAB+6 10459000 DC AL1(ATWCKON-ATRONTAB) 10460000 DC AL1(ATNOACT-ATOFTAB) 10461000 DC AL1(EXGRP32-EXBITAB) 10462000 ORG ATRBITAB+9 10463000 ORG ATRBITAB+9 10464000 DC AL1(ATSSWDON-ATRONTAB) 10465000 DC AL1(ATNOACT-ATOFTAB) 10466000 DC AL1(EXGRP32-EXBITAB) 10467000 ORG ATRBITAB+12 10468000 ORG ATRBITAB+12 10469000 DC AL1(ATREPLON-ATRONTAB) 10470000 DC AL1(ATNOACT-ATOFTAB) 10471000 DC AL1(EXGRP32-EXBITAB) 10472000 ORG ATRBITAB+15 10473000 ORG ATRBITAB+15 10474000 DC AL1(ATRRDSON-ATRONTAB) 10475000 DC AL1(ATNOACT-ATOFTAB) 10476000 DC AL1(EXGRP32-EXBITAB) 10477000 ORG ATRBITAB+18 10478000 ORG ATRBITAB+18 10479000 DC AL1(ATSPANON-ATRONTAB) 10480000 DC AL1(ATNOACT-ATOFTAB) 10481000 DC AL1(EXGRP32-EXBITAB) 10482000 ORG ATRBITAB+21 10483000 ORG ATRBITAB+21 10484000 DC AL1(ATUNQON-ATRONTAB) 10485000 DC AL1(ATNOACT-ATOFTAB) 10486000 DC AL1(EXGRP32-EXBITAB) 10487000 ORG MASTERTB+2908 10488000 MACBITAB DS CL3 10489000 ORG MACBITAB+0 10490000 @NM00193 DC AL1(MAKEYON-MACONTAB) 10491000 @NM00194 DC AL1(MAKEYOFF-MACOFTAB) 10492000 @NM00195 DC AL1(EXGRP32-EXBITAB) 10493000 ORG MACBITAB+3 10494000 ORG MACBITAB+3 10495000 DC AL1(MAADRON-MACONTAB) 10496000 DC AL1(MAADROFF-MACOFTAB) 10497000 DC AL1(EXGRP32-EXBITAB) 10498000 ORG MACBITAB+6 10499000 ORG MACBITAB+6 10500000 DC AL1(MACNVON-MACONTAB) 10501000 DC AL1(MACNVOFF-MACOFTAB) 10502000 DC AL1(EXGRP32-EXBITAB) 10503000 ORG MACBITAB+9 10504000 ORG MACBITAB+9 10505000 DC AL1(MASEQON-MACONTAB) 10506000 DC AL1(MASEQOFF-MACOFTAB) 10507000 DC AL1(EXGRP32-EXBITAB) 10508000 ORG MACBITAB+12 10509000 ORG MACBITAB+12 10510000 DC AL1(MASKPON-MACONTAB) 10511000 DC AL1(MASKPOFF-MACOFTAB) 10512000 DC AL1(EXGRP32-EXBITAB) 10513000 ORG MACBITAB+15 10514000 ORG MACBITAB+15 10515000 DC AL1(MADIRON-MACONTAB) 10516000 DC AL1(MADIROFF-MACOFTAB) 10517000 DC AL1(EXGRP32-EXBITAB) 10518000 ORG MACBITAB+18 10519000 ORG MACBITAB+18 10520000 DC AL1(MAINON-MACONTAB) 10521000 DC AL1(MAINOFF-MACOFTAB) 10522000 DC AL1(EXGRP32-EXBITAB) 10523000 ORG MACBITAB+21 10524000 ORG MACBITAB+21 10525000 DC AL1(MAOUTON-MACONTAB) 10526000 DC AL1(MAOUTOFF-MACOFTAB) 10527000 DC AL1(EXGRP32-EXBITAB) 10528000 ORG MACBITAB+24 10529000 ORG MACBITAB+24 10530000 DC AL1(MANUBON-MACONTAB) 10531000 DC AL1(MANOACT-MACOFTAB) 10532000 DC AL1(EXGRP4-EXBITAB) 10533000 ORG MACBITAB+27 10534000 ORG MACBITAB+27 10535000 DC AL1(MAUBFON-MACONTAB) 10536000 DC AL1(MANOACT-MACOFTAB) 10537000 DC AL1(EXGRP4-EXBITAB) 10538000 ORG MACBITAB+30 10539000 ORG MACBITAB+30 10540000 DC AL1(MALOGON-MACONTAB) 10541000 DC AL1(MALOGOFF-MACOFTAB) 10542000 DC AL1(EXGRP5-EXBITAB) 10543000 ORG MACBITAB+33 10544000 ORG MACBITAB+33 10545000 DC AL1(MANLOGON-MACONTAB) 10546000 DC AL1(MANLOOFF-MACOFTAB) 10547000 DC AL1(EXGRP5-EXBITAB) 10548000 ORG MACBITAB+36 10549000 ORG MACBITAB+36 10550000 DC AL1(0) 10551000 DC AL1(0) 10552000 DC AL1(0) 10553000 ORG MACBITAB+39 10554000 ORG MACBITAB+39 10555000 DC AL1(MADDNON-MACONTAB) 10556000 DC AL1(MANOACT-MACOFTAB) 10557000 DC AL1(EXGRP6-EXBITAB) 10558000 ORG MACBITAB+42 10559000 ORG MACBITAB+42 10560000 DC AL1(MADSNON-MACONTAB) 10561000 DC AL1(MANOACT-MACOFTAB) 10562000 DC AL1(EXGRP6-EXBITAB) 10563000 ORG MACBITAB+45 10564000 ORG MACBITAB+45 10565000 DC AL1(MANRMON-MACONTAB) 10566000 DC AL1(MANOACT-MACOFTAB) 10567000 DC AL1(EXGRP7-EXBITAB) 10568000 ORG MACBITAB+48 10569000 ORG MACBITAB+48 10570000 DC AL1(MAAIXON-MACONTAB) 10571000 DC AL1(MANOACT-MACOFTAB) 10572000 DC AL1(EXGRP7-EXBITAB) 10573000 ORG MACBITAB+51 10574000 ORG MACBITAB+51 10575000 DC AL1(MANSRON-MACONTAB) 10576000 DC AL1(MANSROFF-MACOFTAB) 10577000 DC AL1(EXGRP8-EXBITAB) 10578000 ORG MACBITAB+54 10579000 ORG MACBITAB+54 10580000 DC AL1(MALSRON-MACONTAB) 10581000 DC AL1(MALSROFF-MACOFTAB) 10582000 DC AL1(EXGRP8-EXBITAB) 10583000 ORG MACBITAB+57 10584000 ORG MACBITAB+57 10585000 DC AL1(MAGSRON-MACONTAB) 10586000 DC AL1(MAGSROFF-MACOFTAB) 10587000 DC AL1(EXGRP8-EXBITAB) 10588000 ORG MACBITAB+60 10589000 ORG MACBITAB+60 10590000 DC AL1(MANCION-MACONTAB) 10591000 DC AL1(MANOACT-MACOFTAB) 10592000 DC AL1(EXGRP9-EXBITAB) 10593000 ORG MACBITAB+63 10594000 ORG MACBITAB+63 10595000 DC AL1(MAICION-MACONTAB) 10596000 DC AL1(MANOACT-MACOFTAB) 10597000 DC AL1(EXGRP9-EXBITAB) 10598000 ORG MACBITAB+66 10599000 ORG MACBITAB+66 10600000 DC AL1(MANDFON-MACONTAB) 10601000 DC AL1(MANOACT-MACOFTAB) 10602000 DC AL1(EXGRP10-EXBITAB) 10603000 ORG MACBITAB+69 10604000 ORG MACBITAB+69 10605000 DC AL1(MADFRON-MACONTAB) 10606000 DC AL1(MANOACT-MACOFTAB) 10607000 DC AL1(EXGRP10-EXBITAB) 10608000 ORG MACBITAB+72 10609000 ORG MACBITAB+72 10610000 DC AL1(MANISON-MACONTAB) 10611000 DC AL1(MANOACT-MACOFTAB) 10612000 DC AL1(EXGRP11-EXBITAB) 10613000 ORG MACBITAB+75 10614000 ORG MACBITAB+75 10615000 DC AL1(MASISON-MACONTAB) 10616000 DC AL1(MANOACT-MACOFTAB) 10617000 DC AL1(EXGRP11-EXBITAB) 10618000 ORG MACBITAB+78 10619000 ORG MACBITAB+78 10620000 DC AL1(MANFXON-MACONTAB) 10621000 DC AL1(MANOACT-MACOFTAB) 10622000 DC AL1(EXGRP12-EXBITAB) 10623000 ORG MACBITAB+81 10624000 ORG MACBITAB+81 10625000 DC AL1(MACFXON-MACONTAB) 10626000 DC AL1(MANOACT-MACOFTAB) 10627000 DC AL1(EXGRP12-EXBITAB) 10628000 ORG MACBITAB+84 10629000 ORG MACBITAB+84 10630000 DC AL1(MARSTON-MACONTAB) 10631000 DC AL1(MANOACT-MACOFTAB) 10632000 DC AL1(EXGRP13-EXBITAB) 10633000 ORG MACBITAB+87 10634000 ORG MACBITAB+87 10635000 DC AL1(MANRSON-MACONTAB) 10636000 DC AL1(MANOACT-MACOFTAB) 10637000 DC AL1(EXGRP13-EXBITAB) 10638000 ORG MASTERTB+2998 10639000 BRHBITAB DS CL3 10640000 ORG BRHBITAB+0 10641000 @NM00196 DC AL1(BRYESON-BRHONTAB) 10642000 @NM00197 DC AL1(BRNOACT-BRHOFTAB) 10643000 @NM00198 DC AL1(EXGRP1-EXBITAB) 10644000 ORG BRHBITAB+3 10645000 ORG BRHBITAB+3 10646000 DC AL1(BRNOON-BRHONTAB) 10647000 DC AL1(BRNOACT-BRHOFTAB) 10648000 DC AL1(EXGRP1-EXBITAB) 10649000 ORG MASTERTB+3004 10650000 CATBITAB DS CL3 10651000 ORG CATBITAB+0 10652000 @NM00199 DC AL1(CATYESON-CATONTAB) 10653000 @NM00200 DC AL1(CATNOACT-CATOFTAB) 10654000 @NM00201 DC AL1(EXGRP1-EXBITAB) 10655000 ORG CATBITAB+3 10656000 ORG CATBITAB+3 10657000 DC AL1(CATNOON-CATONTAB) 10658000 DC AL1(CATNOACT-CATOFTAB) 10659000 DC AL1(EXGRP1-EXBITAB) 10660000 ORG MASTERTB+3010 10661000 CRABITAB DS CL3 10662000 ORG CRABITAB+0 10663000 @NM00202 DC AL1(CRSCRAON-CRAONTAB) 10664000 @NM00203 DC AL1(CRSCROFF-CRAOFTAB) 10665000 @NM00204 DC AL1(EXGRP1-EXBITAB) 10666000 ORG CRABITAB+3 10667000 ORG CRABITAB+3 10668000 DC AL1(CRUCRAON-CRAONTAB) 10669000 DC AL1(CRUCROFF-CRAOFTAB) 10670000 DC AL1(EXGRP1-EXBITAB) 10671000 ORG MASTERTB+3016 10672000 OFLBITAB DS CL3 10673000 ORG OFLBITAB+0 10674000 @NM00205 DC AL1(OFOPENON-OFLONTAB) 10675000 @NM00206 DC AL1(OFOPEOFF-OFLOFTAB) 10676000 @NM00207 DC AL1(EXGRP32-EXBITAB) 10677000 ORG MASTERTB+3019 10678000 OPEBITAB DS CL3 10679000 ORG OPEBITAB+0 10680000 @NM00208 DC AL1(OPAIXON-OPEONTAB) 10681000 @NM00209 DC AL1(OPENOACT-OPEOFTAB) 10682000 @NM00210 DC AL1(EXGRP1-EXBITAB) 10683000 ORG OPEBITAB+3 10684000 ORG OPEBITAB+3 10685000 DC AL1(OPPATHON-OPEONTAB) 10686000 DC AL1(OPENOACT-OPEOFTAB) 10687000 DC AL1(EXGRP1-EXBITAB) 10688000 ORG OPEBITAB+6 10689000 ORG OPEBITAB+6 10690000 DC AL1(OPBASEON-OPEONTAB) 10691000 DC AL1(OPENOACT-OPEOFTAB) 10692000 DC AL1(EXGRP1-EXBITAB) 10693000 ORG MASTERTB+3028 10694000 DATBITAB DS CL3 10695000 ORG DATBITAB+0 10696000 @NM00211 DC AL1(DAUNSOON-DATONTAB) 10697000 @NM00212 DC AL1(DANOACT-DATOFTAB) 10698000 @NM00213 DC AL1(EXGRP32-EXBITAB) 10699000 ORG DATBITAB+3 10700000 ORG DATBITAB+3 10701000 DC AL1(DAEOBON-DATONTAB) 10702000 DC AL1(DANOACT-DATOFTAB) 10703000 DC AL1(EXGRP32-EXBITAB) 10704000 ORG DATBITAB+6 10705000 ORG DATBITAB+6 10706000 DC AL1(DAEOMON-DATONTAB) 10707000 DC AL1(DANOACT-DATOFTAB) 10708000 DC AL1(EXGRP32-EXBITAB) 10709000 ORG DATBITAB+9 10710000 ORG DATBITAB+9 10711000 DC AL1(DAEOTON-DATONTAB) 10712000 DC AL1(DANOACT-DATOFTAB) 10713000 DC AL1(EXGRP32-EXBITAB) 10714000 ORG DATBITAB+12 10715000 ORG DATBITAB+12 10716000 DC AL1(DALOGOON-DATONTAB) 10717000 DC AL1(DANOACT-DATOFTAB) 10718000 DC AL1(EXGRP32-EXBITAB) 10719000 ORG DATBITAB+15 10720000 ORG DATBITAB+15 10721000 DC AL1(DALGON-DATONTAB) 10722000 DC AL1(DANOACT-DATOFTAB) 10723000 DC AL1(EXGRP32-EXBITAB) 10724000 ORG DATBITAB+18 10725000 ORG DATBITAB+18 10726000 DC AL1(DASOHON-DATONTAB) 10727000 DC AL1(DANOACT-DATOFTAB) 10728000 DC AL1(EXGRP32-EXBITAB) 10729000 ORG MASTERTB+3049 10730000 OPTBITAB DS CL3 10731000 ORG OPTBITAB+0 10732000 @NM00214 DC AL1(OPKEYON-OPTONTAB) 10733000 @NM00215 DC AL1(OPKEYOFF-OPTOFTAB) 10734000 @NM00216 DC AL1(EXGRP1-EXBITAB) 10735000 ORG OPTBITAB+3 10736000 ORG OPTBITAB+3 10737000 DC AL1(OPADRON-OPTONTAB) 10738000 DC AL1(OPADROFF-OPTOFTAB) 10739000 DC AL1(EXGRP1-EXBITAB) 10740000 ORG OPTBITAB+6 10741000 ORG OPTBITAB+6 10742000 DC AL1(OPCNVON-OPTONTAB) 10743000 DC AL1(OPCNVOFF-OPTOFTAB) 10744000 DC AL1(EXGRP1-EXBITAB) 10745000 ORG OPTBITAB+9 10746000 ORG OPTBITAB+9 10747000 DC AL1(OPSEQON-OPTONTAB) 10748000 DC AL1(OPSEQOFF-OPTOFTAB) 10749000 DC AL1(EXGRP2-EXBITAB) 10750000 ORG OPTBITAB+12 10751000 ORG OPTBITAB+12 10752000 DC AL1(OPDIRON-OPTONTAB) 10753000 DC AL1(OPDIROFF-OPTOFTAB) 10754000 DC AL1(EXGRP2-EXBITAB) 10755000 ORG OPTBITAB+15 10756000 ORG OPTBITAB+15 10757000 DC AL1(OPSKPON-OPTONTAB) 10758000 DC AL1(OPSKPOFF-OPTOFTAB) 10759000 DC AL1(EXGRP2-EXBITAB) 10760000 ORG OPTBITAB+18 10761000 ORG OPTBITAB+18 10762000 DC AL1(OPSYNON-OPTONTAB) 10763000 DC AL1(OPNOACT-OPTOFTAB) 10764000 DC AL1(EXGRP3-EXBITAB) 10765000 ORG OPTBITAB+21 10766000 ORG OPTBITAB+21 10767000 DC AL1(OPASYON-OPTONTAB) 10768000 DC AL1(OPNOACT-OPTOFTAB) 10769000 DC AL1(EXGRP3-EXBITAB) 10770000 ORG OPTBITAB+24 10771000 ORG OPTBITAB+24 10772000 DC AL1(OPNUPON-OPTONTAB) 10773000 DC AL1(OPNUPOFF-OPTOFTAB) 10774000 DC AL1(EXGRP4-EXBITAB) 10775000 ORG OPTBITAB+27 10776000 ORG OPTBITAB+27 10777000 DC AL1(OPUPDON-OPTONTAB) 10778000 DC AL1(OPUPDOFF-OPTOFTAB) 10779000 DC AL1(EXGRP4-EXBITAB) 10780000 ORG OPTBITAB+30 10781000 ORG OPTBITAB+30 10782000 DC AL1(OPNSPON-OPTONTAB) 10783000 DC AL1(OPNSPOFF-OPTOFTAB) 10784000 DC AL1(EXGRP4-EXBITAB) 10785000 ORG OPTBITAB+33 10786000 ORG OPTBITAB+33 10787000 DC AL1(OPKEQON-OPTONTAB) 10788000 DC AL1(OPNOACT-OPTOFTAB) 10789000 DC AL1(EXGRP5-EXBITAB) 10790000 ORG OPTBITAB+36 10791000 ORG OPTBITAB+36 10792000 DC AL1(OPKGEON-OPTONTAB) 10793000 DC AL1(OPNOACT-OPTOFTAB) 10794000 DC AL1(EXGRP5-EXBITAB) 10795000 ORG OPTBITAB+39 10796000 ORG OPTBITAB+39 10797000 DC AL1(OPFKSON-OPTONTAB) 10798000 DC AL1(OPNOACT-OPTOFTAB) 10799000 DC AL1(EXGRP6-EXBITAB) 10800000 ORG OPTBITAB+42 10801000 ORG OPTBITAB+42 10802000 DC AL1(OPGENON-OPTONTAB) 10803000 DC AL1(OPNOACT-OPTOFTAB) 10804000 DC AL1(EXGRP6-EXBITAB) 10805000 ORG OPTBITAB+45 10806000 ORG OPTBITAB+45 10807000 DC AL1(OPMVEON-OPTONTAB) 10808000 DC AL1(OPNOACT-OPTOFTAB) 10809000 DC AL1(EXGRP7-EXBITAB) 10810000 ORG OPTBITAB+48 10811000 ORG OPTBITAB+48 10812000 DC AL1(OPLOCON-OPTONTAB) 10813000 DC AL1(OPNOACT-OPTOFTAB) 10814000 DC AL1(EXGRP7-EXBITAB) 10815000 ORG OPTBITAB+51 10816000 ORG OPTBITAB+51 10817000 DC AL1(OPFWDON-OPTONTAB) 10818000 DC AL1(OPNOACT-OPTOFTAB) 10819000 DC AL1(EXGRP8-EXBITAB) 10820000 ORG OPTBITAB+54 10821000 ORG OPTBITAB+54 10822000 DC AL1(OPBWDON-OPTONTAB) 10823000 DC AL1(OPNOACT-OPTOFTAB) 10824000 DC AL1(EXGRP8-EXBITAB) 10825000 ORG OPTBITAB+57 10826000 ORG OPTBITAB+57 10827000 DC AL1(OPARDON-OPTONTAB) 10828000 DC AL1(OPNOACT-OPTOFTAB) 10829000 DC AL1(EXGRP9-EXBITAB) 10830000 ORG OPTBITAB+60 10831000 ORG OPTBITAB+60 10832000 DC AL1(OPLRDON-OPTONTAB) 10833000 DC AL1(OPNOACT-OPTOFTAB) 10834000 DC AL1(EXGRP9-EXBITAB) 10835000 ORG OPTBITAB+63 10836000 ORG OPTBITAB+63 10837000 DC AL1(0) 10838000 DC AL1(0) 10839000 DC AL1(0) 10840000 ORG OPTBITAB+66 10841000 ORG OPTBITAB+66 10842000 DC AL1(0) 10843000 DC AL1(0) 10844000 DC AL1(0) 10845000 ORG OPTBITAB+69 10846000 ORG OPTBITAB+69 10847000 DC AL1(0) 10848000 DC AL1(0) 10849000 DC AL1(0) 10850000 ORG OPTBITAB+72 10851000 ORG OPTBITAB+72 10852000 DC AL1(0) 10853000 DC AL1(0) 10854000 DC AL1(0) 10855000 ORG OPTBITAB+75 10856000 ORG OPTBITAB+75 10857000 DC AL1(0) 10858000 DC AL1(0) 10859000 DC AL1(0) 10860000 ORG OPTBITAB+78 10861000 ORG OPTBITAB+78 10862000 DC AL1(0) 10863000 DC AL1(0) 10864000 DC AL1(0) 10865000 ORG OPTBITAB+81 10866000 ORG OPTBITAB+81 10867000 DC AL1(0) 10868000 DC AL1(0) 10869000 DC AL1(0) 10870000 ORG OPTBITAB+84 10871000 ORG OPTBITAB+84 10872000 DC AL1(0) 10873000 DC AL1(0) 10874000 DC AL1(0) 10875000 ORG OPTBITAB+87 10876000 ORG OPTBITAB+87 10877000 DC AL1(0) 10878000 DC AL1(0) 10879000 DC AL1(0) 10880000 ORG OPTBITAB+90 10881000 ORG OPTBITAB+90 10882000 DC AL1(0) 10883000 DC AL1(0) 10884000 DC AL1(0) 10885000 ORG OPTBITAB+93 10886000 ORG OPTBITAB+93 10887000 DC AL1(0) 10888000 DC AL1(0) 10889000 DC AL1(0) 10890000 ORG OPTBITAB+96 10891000 ORG OPTBITAB+96 10892000 DC AL1(OPCAON-OPTONTB2) 10893000 DC AL1(OPNOACT-OPTOFTAB) 10894000 DC AL1(EXGRP10-EXBITAB) 10895000 ORG OPTBITAB+99 10896000 ORG OPTBITAB+99 10897000 DC AL1(OPCSON-OPTONTB2) 10898000 DC AL1(OPNOACT-OPTOFTAB) 10899000 DC AL1(EXGRP10-EXBITAB) 10900000 ORG OPTBITAB+102 10901000 ORG OPTBITAB+102 10902000 DC AL1(0) 10903000 DC AL1(0) 10904000 DC AL1(0) 10905000 ORG OPTBITAB+105 10906000 ORG OPTBITAB+105 10907000 DC AL1(0) 10908000 DC AL1(0) 10909000 DC AL1(0) 10910000 ORG OPTBITAB+108 10911000 ORG OPTBITAB+108 10912000 DC AL1(OPRELEON-OPTONTB2) 10913000 DC AL1(OPNOACT-OPTOFTAB) 10914000 DC AL1(EXGRP12-EXBITAB) 10915000 ORG OPTBITAB+111 10916000 ORG OPTBITAB+111 10917000 DC AL1(OPPASSON-OPTONTB2) 10918000 DC AL1(OPNOACT-OPTOFTAB) 10919000 DC AL1(EXGRP12-EXBITAB) 10920000 ORG OPTBITAB+114 10921000 ORG OPTBITAB+114 10922000 DC AL1(OPNERAON-OPTONTB2) 10923000 DC AL1(OPNEROFF-OPTOFTAB) 10924000 DC AL1(EXGRP13-EXBITAB) 10925000 ORG OPTBITAB+117 10926000 ORG OPTBITAB+117 10927000 DC AL1(OPEAUON-OPTONTB2) 10928000 DC AL1(OPEAUOFF-OPTOFTAB) 10929000 DC AL1(EXGRP13-EXBITAB) 10930000 ORG OPTBITAB+120 10931000 ORG OPTBITAB+120 10932000 DC AL1(OPERASON-OPTONTB2) 10933000 DC AL1(OPERAOFF-OPTOFTAB) 10934000 DC AL1(EXGRP13-EXBITAB) 10935000 ORG OPTBITAB+123 10936000 ORG OPTBITAB+123 10937000 DC AL1(OPSPECON-OPTONTB2) 10938000 DC AL1(OPNOACT-OPTOFTAB) 10939000 DC AL1(EXGRP14-EXBITAB) 10940000 ORG OPTBITAB+126 10941000 ORG OPTBITAB+126 10942000 DC AL1(OPANYON-OPTONTB2) 10943000 DC AL1(OPNOACT-OPTOFTAB) 10944000 DC AL1(EXGRP14-EXBITAB) 10945000 ORG OPTBITAB+129 10946000 ORG OPTBITAB+129 10947000 DC AL1(OPNCONON-OPTONTB2) 10948000 DC AL1(OPNOACT-OPTOFTAB) 10949000 DC AL1(EXGRP15-EXBITAB) 10950000 ORG OPTBITAB+132 10951000 ORG OPTBITAB+132 10952000 DC AL1(OPCONVON-OPTONTB2) 10953000 DC AL1(OPNOACT-OPTOFTAB) 10954000 DC AL1(EXGRP15-EXBITAB) 10955000 ORG OPTBITAB+135 10956000 ORG OPTBITAB+135 10957000 DC AL1(OPLBTON-OPTONTB2) 10958000 DC AL1(OPLBTOFF-OPTOFTAB) 10959000 DC AL1(EXGRP16-EXBITAB) 10960000 ORG OPTBITAB+138 10961000 ORG OPTBITAB+138 10962000 DC AL1(OPLBMON-OPTONTB2) 10963000 DC AL1(OPLBMOFF-OPTOFTAB) 10964000 DC AL1(EXGRP16-EXBITAB) 10965000 ORG OPTBITAB+141 10966000 ORG OPTBITAB+141 10967000 DC AL1(OPBLKON-OPTONTB2) 10968000 DC AL1(OPBLKOFF-OPTOFTAB) 10969000 DC AL1(EXGRP16-EXBITAB) 10970000 ORG OPTBITAB+144 10971000 ORG OPTBITAB+144 10972000 DC AL1(OPCONDON-OPTONTB2) 10973000 DC AL1(OPCONOFF-OPTOFTAB) 10974000 DC AL1(EXGRP17-EXBITAB) 10975000 ORG OPTBITAB+147 10976000 ORG OPTBITAB+147 10977000 DC AL1(OPUNCOON-OPTONTB2) 10978000 DC AL1(OPUCOOFF-OPTOFTAB) 10979000 DC AL1(EXGRP17-EXBITAB) 10980000 ORG OPTBITAB+150 10981000 ORG OPTBITAB+150 10982000 DC AL1(OPLOCKON-OPTONTB2) 10983000 DC AL1(OPLOCOFF-OPTOFTAB) 10984000 DC AL1(EXGRP17-EXBITAB) 10985000 ORG OPTBITAB+153 10986000 ORG OPTBITAB+153 10987000 DC AL1(0) 10988000 DC AL1(0) 10989000 DC AL1(0) 10990000 ORG OPTBITAB+156 10991000 ORG OPTBITAB+156 10992000 DC AL1(0) 10993000 DC AL1(0) 10994000 DC AL1(0) 10995000 ORG OPTBITAB+159 10996000 ORG OPTBITAB+159 10997000 DC AL1(OPLOGOON-OPTONTB2) 10998000 DC AL1(OPLOGOFF-OPTOFTAB) 10999000 DC AL1(EXGRP18-EXBITAB) 11000000 ORG OPTBITAB+162 11001000 ORG OPTBITAB+162 11002000 DC AL1(OPDEVCON-OPTONTB2) 11003000 DC AL1(OPDEVOFF-OPTOFTAB) 11004000 DC AL1(EXGRP18-EXBITAB) 11005000 ORG OPTBITAB+165 11006000 ORG OPTBITAB+165 11007000 DC AL1(OPTERMON-OPTONTB2) 11008000 DC AL1(OPTEROFF-OPTOFTAB) 11009000 DC AL1(EXGRP18-EXBITAB) 11010000 ORG OPTBITAB+168 11011000 ORG OPTBITAB+168 11012000 DC AL1(OPAPPSON-OPTONTB2) 11013000 DC AL1(OPAPPOFF-OPTOFTAB) 11014000 DC AL1(EXGRP18-EXBITAB) 11015000 ORG OPTBITAB+171 11016000 ORG OPTBITAB+171 11017000 DC AL1(OPCOUNON-OPTONTB2) 11018000 DC AL1(OPCOUOFF-OPTOFTAB) 11019000 DC AL1(EXGRP18-EXBITAB) 11020000 ORG OPTBITAB+174 11021000 ORG OPTBITAB+174 11022000 DC AL1(OPRNNAON-OPTONTB2) 11023000 DC AL1(OPRNNOFF-OPTOFTAB) 11024000 DC AL1(EXGRP18-EXBITAB) 11025000 ORG OPTBITAB+177 11026000 ORG OPTBITAB+177 11027000 DC AL1(OPCIDXON-OPTONTB2) 11028000 DC AL1(OPCIDOFF-OPTOFTAB) 11029000 DC AL1(EXGRP18-EXBITAB) 11030000 ORG OPTBITAB+180 11031000 ORG OPTBITAB+180 11032000 DC AL1(OPTOPLON-OPTONTB2) 11033000 DC AL1(OPTOPOFF-OPTOFTAB) 11034000 DC AL1(EXGRP18-EXBITAB) 11035000 ORG OPTBITAB+183 11036000 ORG OPTBITAB+183 11037000 DC AL1(OPBSCION-OPTONTB2) 11038000 DC AL1(OPBSCOFF-OPTOFTAB) 11039000 DC AL1(EXGRP18-EXBITAB) 11040000 ORG OPTBITAB+186 11041000 ORG OPTBITAB+186 11042000 DC AL1(OPDISPON-OPTONTB2) 11043000 DC AL1(OPDISOFF-OPTOFTAB) 11044000 DC AL1(EXGRP18-EXBITAB) 11045000 ORG OPTBITAB+189 11046000 ORG OPTBITAB+189 11047000 DC AL1(OPRELRON-OPTONTB2) 11048000 DC AL1(OPNOACT-OPTOFTAB) 11049000 DC AL1(EXGRP19-EXBITAB) 11050000 ORG OPTBITAB+192 11051000 ORG OPTBITAB+192 11052000 DC AL1(OPNRELON-OPTONTB3) 11053000 DC AL1(OPNOACT-OPTOFTAB) 11054000 DC AL1(EXGRP19-EXBITAB) 11055000 ORG OPTBITAB+195 11056000 ORG OPTBITAB+195 11057000 DC AL1(OPQON-OPTONTB3) 11058000 DC AL1(OPNOACT-OPTOFTAB) 11059000 DC AL1(EXGRP20-EXBITAB) 11060000 ORG OPTBITAB+198 11061000 ORG OPTBITAB+198 11062000 DC AL1(OPNQON-OPTONTB3) 11063000 DC AL1(OPNOACT-OPTOFTAB) 11064000 DC AL1(EXGRP20-EXBITAB) 11065000 ORG OPTBITAB+201 11066000 ORG OPTBITAB+201 11067000 DC AL1(OPPENDON-OPTONTB3) 11068000 DC AL1(OPPENOFF-OPTOFTAB) 11069000 DC AL1(EXGRP21-EXBITAB) 11070000 ORG OPTBITAB+204 11071000 ORG OPTBITAB+204 11072000 DC AL1(OPSESSON-OPTONTB3) 11073000 DC AL1(OPSESOFF-OPTOFTAB) 11074000 DC AL1(EXGRP21-EXBITAB) 11075000 ORG OPTBITAB+207 11076000 ORG OPTBITAB+207 11077000 DC AL1(OPACTION-OPTONTB3) 11078000 DC AL1(OPACTOFF-OPTOFTAB) 11079000 DC AL1(EXGRP21-EXBITAB) 11080000 ORG OPTBITAB+210 11081000 ORG OPTBITAB+210 11082000 DC AL1(OPUNCLON-OPTONTB3) 11083000 DC AL1(OPUNCOFF-OPTOFTAB) 11084000 DC AL1(EXGRP21-EXBITAB) 11085000 ORG OPTBITAB+213 11086000 ORG OPTBITAB+213 11087000 DC AL1(OPQUIEON-OPTONTB3) 11088000 DC AL1(OPQUIOFF-OPTOFTAB) 11089000 DC AL1(EXGRP22-EXBITAB) 11090000 ORG OPTBITAB+216 11091000 ORG OPTBITAB+216 11092000 DC AL1(OPSTARON-OPTONTB3) 11093000 DC AL1(OPSTAOFF-OPTOFTAB) 11094000 DC AL1(EXGRP22-EXBITAB) 11095000 ORG OPTBITAB+219 11096000 ORG OPTBITAB+219 11097000 DC AL1(OPSTOPON-OPTONTB3) 11098000 DC AL1(OPSTOOFF-OPTOFTAB) 11099000 DC AL1(EXGRP22-EXBITAB) 11100000 ORG OPTBITAB+222 11101000 ORG OPTBITAB+222 11102000 DC AL1(OPACCEON-OPTONTB3) 11103000 DC AL1(OPACCOFF-OPTOFTAB) 11104000 DC AL1(EXGRP23-EXBITAB) 11105000 ORG OPTBITAB+225 11106000 ORG OPTBITAB+225 11107000 DC AL1(OPACQUON-OPTONTB3) 11108000 DC AL1(OPACQOFF-OPTOFTAB) 11109000 DC AL1(EXGRP23-EXBITAB) 11110000 ORG OPTBITAB+228 11111000 ORG OPTBITAB+228 11112000 DC AL1(0) 11113000 DC AL1(0) 11114000 DC AL1(0) 11115000 ORG OPTBITAB+231 11116000 ORG OPTBITAB+231 11117000 DC AL1(OPCALLON-OPTONTB3) 11118000 DC AL1(OPCALOFF-OPTOFTAB) 11119000 DC AL1(EXGRP24-EXBITAB) 11120000 ORG OPTBITAB+234 11121000 ORG OPTBITAB+234 11122000 DC AL1(OPCANYON-OPTONTB3) 11123000 DC AL1(OPCANOFF-OPTOFTAB) 11124000 DC AL1(EXGRP24-EXBITAB) 11125000 ORG OPTBITAB+237 11126000 ORG OPTBITAB+237 11127000 DC AL1(0) 11128000 DC AL1(0) 11129000 DC AL1(0) 11130000 ORG OPTBITAB+240 11131000 ORG OPTBITAB+240 11132000 DC AL1(0) 11133000 DC AL1(0) 11134000 DC AL1(0) 11135000 ORG OPTBITAB+243 11136000 ORG OPTBITAB+243 11137000 DC AL1(OPKEEPON-OPTONTB3) 11138000 DC AL1(OPKEEOFF-OPTOFTAB) 11139000 DC AL1(EXGRP26-EXBITAB) 11140000 ORG OPTBITAB+246 11141000 ORG OPTBITAB+246 11142000 DC AL1(OPTRUNON-OPTONTB3) 11143000 DC AL1(OPTRUOFF-OPTOFTAB) 11144000 DC AL1(EXGRP26-EXBITAB) 11145000 ORG OPTBITAB+249 11146000 ORG OPTBITAB+249 11147000 DC AL1(OPNIBTON-OPTONTB3) 11148000 DC AL1(OPNIBOFF-OPTOFTAB) 11149000 DC AL1(EXGRP26-EXBITAB) 11150000 ORG OPTBITAB+252 11151000 ORG OPTBITAB+252 11152000 DC AL1(0) 11153000 DC AL1(0) 11154000 DC AL1(0) 11155000 ORG OPTBITAB+255 11156000 ORG OPTBITAB+255 11157000 DC AL1(0) 11158000 DC AL1(0) 11159000 DC AL1(0) 11160000 ORG OPTBITAB+258 11161000 ORG OPTBITAB+258 11162000 DC AL1(OPSESKON-OPTONTB3) 11163000 DC AL1(OPSEKOFF-OPTOFTAB) 11164000 DC AL1(EXGRP18-EXBITAB) 11165000 ORG OPTBITAB+261 11166000 ORG OPTBITAB+261 11167000 DC AL1(OPFMHDON-OPTONTB3) 11168000 DC AL1(OPNOACT-OPTOFTAB) 11169000 DC AL1(EXGRP27-EXBITAB) 11170000 ORG OPTBITAB+264 11171000 ORG OPTBITAB+264 11172000 DC AL1(OPNFMHON-OPTONTB3) 11173000 DC AL1(OPNOACT-OPTOFTAB) 11174000 DC AL1(EXGRP27-EXBITAB) 11175000 ORG OPTBITAB+267 11176000 ORG OPTBITAB+267 11177000 DC AL1(OPSESPON-OPTONTB3) 11178000 DC AL1(OPSEPOFF-OPTOFTAB) 11179000 DC AL1(EXGRP18-EXBITAB) 11180000 ORG MASTERTB+3319 11181000 LISBITAB DS CL3 11182000 ORG LISBITAB+0 11183000 @NM00217 DC AL1(LIYESON-LISONTAB) 11184000 @NM00218 DC AL1(LINOACT-LISOFTAB) 11185000 @NM00219 DC AL1(EXGRP1-EXBITAB) 11186000 ORG LISBITAB+3 11187000 ORG LISBITAB+3 11188000 DC AL1(LINOON-LISONTAB) 11189000 DC AL1(LINOACT-LISOFTAB) 11190000 DC AL1(EXGRP1-EXBITAB) 11191000 ORG MASTERTB+3325 11192000 CONBITAB DS CL6 11193000 ORG CONBITAB 11194000 @NM00220 DC AL1(COYESON-CONONTAB) 11195000 DC AL1(CONOON-CONONTAB) 11196000 @NM00221 DC AL1(CONOACT-CONOFTAB) 11197000 DC AL1(CONOACT-CONOFTAB) 11198000 @NM00222 DC AL1(EXGRP1-EXBITAB) 11199000 DC AL1(EXGRP1-EXBITAB) 11200000 ORG MASTERTB+3331 11201000 PROBITAB DS CL3 11202000 ORG PROBITAB+0 11203000 @NM00223 DC AL1(PRMSGON-PROONTAB) 11204000 @NM00224 DC AL1(PRMSGOFF-PROOFTAB) 11205000 @NM00225 DC AL1(EXGRP1-EXBITAB) 11206000 ORG PROBITAB+3 11207000 ORG PROBITAB+3 11208000 DC AL1(PRTRANON-PROONTAB) 11209000 DC AL1(PRTRAOFF-PROOFTAB) 11210000 DC AL1(EXGRP1-EXBITAB) 11211000 ORG PROBITAB+6 11212000 ORG PROBITAB+6 11213000 DC AL1(PRCONTON-PROONTAB) 11214000 DC AL1(PRCONOFF-PROOFTAB) 11215000 DC AL1(EXGRP1-EXBITAB) 11216000 ORG PROBITAB+9 11217000 ORG PROBITAB+9 11218000 DC AL1(PRBLOCON-PROONTAB) 11219000 DC AL1(PRBLOOFF-PROOFTAB) 11220000 DC AL1(EXGRP1-EXBITAB) 11221000 ORG PROBITAB+12 11222000 ORG PROBITAB+12 11223000 DC AL1(PRNLGION-PROONTAB) 11224000 DC AL1(PRNOACT-PROOFTAB) 11225000 DC AL1(EXGRP2-EXBITAB) 11226000 ORG PROBITAB+15 11227000 ORG PROBITAB+15 11228000 DC AL1(PRLGINON-PROONTAB) 11229000 DC AL1(PRNOACT-PROOFTAB) 11230000 DC AL1(EXGRP2-EXBITAB) 11231000 ORG PROBITAB+18 11232000 ORG PROBITAB+18 11233000 DC AL1(PRLGOUON-PROONTAB) 11234000 DC AL1(PRNOACT-PROOFTAB) 11235000 DC AL1(EXGRP3-EXBITAB) 11236000 ORG PROBITAB+21 11237000 ORG PROBITAB+21 11238000 DC AL1(PRNLGOON-PROONTAB) 11239000 DC AL1(PRNOACT-PROOFTAB) 11240000 DC AL1(EXGRP3-EXBITAB) 11241000 ORG PROBITAB+24 11242000 ORG PROBITAB+24 11243000 DC AL1(PRNCONON-PROONTAB) 11244000 DC AL1(PRNOACT-PROOFTAB) 11245000 DC AL1(EXGRP4-EXBITAB) 11246000 ORG PROBITAB+27 11247000 ORG PROBITAB+27 11248000 DC AL1(PRCONFON-PROONTAB) 11249000 DC AL1(PRNOACT-PROOFTAB) 11250000 DC AL1(EXGRP4-EXBITAB) 11251000 ORG PROBITAB+30 11252000 ORG PROBITAB+30 11253000 DC AL1(PRTMFLON-PROONTAB) 11254000 DC AL1(PRNOACT-PROOFTAB) 11255000 DC AL1(EXGRP5-EXBITAB) 11256000 ORG PROBITAB+33 11257000 ORG PROBITAB+33 11258000 DC AL1(PRNTMFON-PROONTAB) 11259000 DC AL1(PRNOACT-PROOFTAB) 11260000 DC AL1(EXGRP5-EXBITAB) 11261000 ORG PROBITAB+36 11262000 ORG PROBITAB+36 11263000 DC AL1(PRERPION-PROONTAB) 11264000 DC AL1(PRNOACT-PROOFTAB) 11265000 DC AL1(EXGRP6-EXBITAB) 11266000 ORG PROBITAB+39 11267000 ORG PROBITAB+39 11268000 DC AL1(PRNERION-PROONTAB) 11269000 DC AL1(PRNOACT-PROOFTAB) 11270000 DC AL1(EXGRP6-EXBITAB) 11271000 ORG PROBITAB+42 11272000 ORG PROBITAB+42 11273000 DC AL1(PRERPOON-PROONTAB) 11274000 DC AL1(PRNOACT-PROOFTAB) 11275000 DC AL1(EXGRP7-EXBITAB) 11276000 ORG PROBITAB+45 11277000 ORG PROBITAB+45 11278000 DC AL1(PRNEROON-PROONTAB) 11279000 DC AL1(PRNOACT-PROOFTAB) 11280000 DC AL1(EXGRP7-EXBITAB) 11281000 ORG PROBITAB+48 11282000 ORG PROBITAB+48 11283000 DC AL1(PRNMONON-PROONTAB) 11284000 DC AL1(PRNOACT-PROOFTAB) 11285000 DC AL1(EXGRP8-EXBITAB) 11286000 ORG PROBITAB+51 11287000 ORG PROBITAB+51 11288000 DC AL1(PRMONION-PROONTAB) 11289000 DC AL1(PRNOACT-PROOFTAB) 11290000 DC AL1(EXGRP8-EXBITAB) 11291000 ORG PROBITAB+54 11292000 ORG PROBITAB+54 11293000 DC AL1(PRNELCON-PROONTAB) 11294000 DC AL1(PRNOACT-PROOFTAB) 11295000 DC AL1(EXGRP9-EXBITAB) 11296000 ORG PROBITAB+57 11297000 ORG PROBITAB+57 11298000 DC AL1(PRELCON-PROONTAB) 11299000 DC AL1(PRNOACT-PROOFTAB) 11300000 DC AL1(EXGRP9-EXBITAB) 11301000 ORG PROBITAB+60 11302000 ORG PROBITAB+60 11303000 DC AL1(PRNEIBON-PROONTAB) 11304000 DC AL1(PRNOACT-PROOFTAB) 11305000 DC AL1(EXGRP10-EXBITAB) 11306000 ORG PROBITAB+63 11307000 ORG PROBITAB+63 11308000 DC AL1(PREIBON-PROONTAB) 11309000 DC AL1(PRNOACT-PROOFTAB) 11310000 DC AL1(EXGRP10-EXBITAB) 11311000 ORG PROBITAB+66 11312000 ORG PROBITAB+66 11313000 DC AL1(PRTIMEON-PROONTAB) 11314000 DC AL1(PRNOACT-PROOFTAB) 11315000 DC AL1(EXGRP11-EXBITAB) 11316000 ORG PROBITAB+69 11317000 ORG PROBITAB+69 11318000 DC AL1(PRNTIMON-PROONTAB) 11319000 DC AL1(PRNOACT-PROOFTAB) 11320000 DC AL1(EXGRP11-EXBITAB) 11321000 ORG PROBITAB+72 11322000 ORG PROBITAB+72 11323000 DC AL1(PRNORDON-PROONTAB) 11324000 DC AL1(PRNOACT-PROOFTAB) 11325000 DC AL1(EXGRP12-EXBITAB) 11326000 ORG PROBITAB+75 11327000 ORG PROBITAB+75 11328000 DC AL1(PRORDON-PROONTAB) 11329000 DC AL1(PRNOACT-PROOFTAB) 11330000 DC AL1(EXGRP12-EXBITAB) 11331000 ORG PROBITAB+78 11332000 ORG PROBITAB+78 11333000 DC AL1(PRKEEPON-PROONTAB) 11334000 DC AL1(PRNOACT-PROOFTAB) 11335000 DC AL1(EXGRP13-EXBITAB) 11336000 ORG PROBITAB+81 11337000 ORG PROBITAB+81 11338000 DC AL1(PRTRUNON-PROONTAB) 11339000 DC AL1(PRNOACT-PROOFTAB) 11340000 DC AL1(EXGRP13-EXBITAB) 11341000 ORG PROBITAB+84 11342000 ORG PROBITAB+84 11343000 DC AL1(PRNBINON-PROONTAB) 11344000 DC AL1(PRNOACT-PROOFTAB) 11345000 DC AL1(EXGRP14-EXBITAB) 11346000 ORG PROBITAB+87 11347000 ORG PROBITAB+87 11348000 DC AL1(PRBINAON-PROONTAB) 11349000 DC AL1(PRNOACT-PROOFTAB) 11350000 DC AL1(EXGRP14-EXBITAB) 11351000 ORG PROBITAB+90 11352000 ORG PROBITAB+90 11353000 DC AL1(PRNDFAON-PROONTAB) 11354000 DC AL1(PRNOACT-PROOFTAB) 11355000 DC AL1(EXGRP15-EXBITAB) 11356000 ORG PROBITAB+93 11357000 ORG PROBITAB+93 11358000 DC AL1(PRDFASON-PROONTAB) 11359000 DC AL1(PRNOACT-PROOFTAB) 11360000 DC AL1(EXGRP15-EXBITAB) 11361000 ORG PROBITAB+96 11362000 ORG PROBITAB+96 11363000 DC AL1(PRNRESON-PROONTB2) 11364000 DC AL1(PRNOACT-PROOFTAB) 11365000 DC AL1(EXGRP16-EXBITAB) 11366000 ORG PROBITAB+99 11367000 ORG PROBITAB+99 11368000 DC AL1(PRRESPON-PROONTB2) 11369000 DC AL1(PRNOACT-PROOFTAB) 11370000 DC AL1(EXGRP16-EXBITAB) 11371000 ORG PROBITAB+102 11372000 ORG PROBITAB+102 11373000 DC AL1(PRCAON-PROONTB2) 11374000 DC AL1(PRCAOFF-PROOFTAB) 11375000 DC AL1(EXGRP17-EXBITAB) 11376000 ORG PROBITAB+105 11377000 ORG PROBITAB+105 11378000 DC AL1(PRCSON-PROONTB2) 11379000 DC AL1(PRCSOFF-PROOFTAB) 11380000 DC AL1(EXGRP17-EXBITAB) 11381000 ORG PROBITAB+108 11382000 ORG PROBITAB+108 11383000 DC AL1(PRRPLCON-PROONTB2) 11384000 DC AL1(PRRPLCOF-PROOFTAB) 11385000 DC AL1(EXGRP17-EXBITAB) 11386000 ORG PROBITAB+111 11387000 ORG PROBITAB+111 11388000 DC AL1(PRSYSON-PROONTB2) 11389000 DC AL1(PRNOACT-PROOFTAB) 11390000 DC AL1(EXGRP18-EXBITAB) 11391000 ORG PROBITAB+114 11392000 ORG PROBITAB+114 11393000 DC AL1(PRAPPLON-PROONTB2) 11394000 DC AL1(PRNOACT-PROOFTAB) 11395000 DC AL1(EXGRP18-EXBITAB) 11396000 ORG PROBITAB+117 11397000 ORG PROBITAB+117 11398000 DC AL1(0) 11399000 DC AL1(0) 11400000 DC AL1(0) 11401000 ORG MASTERTB+3451 11402000 SDTBITAB DS CL3 11403000 ORG SDTBITAB+0 11404000 @NM00226 DC AL1(SDSYSON-SDTONTAB) 11405000 @NM00227 DC AL1(SDNOACT-SDTOFTAB) 11406000 @NM00228 DC AL1(EXGRP1-EXBITAB) 11407000 ORG SDTBITAB+3 11408000 ORG SDTBITAB+3 11409000 DC AL1(SDAPPLON-SDTONTAB) 11410000 DC AL1(SDNOACT-SDTOFTAB) 11411000 DC AL1(EXGRP1-EXBITAB) 11412000 ORG MASTERTB+3457 11413000 BRABITAB DS CL3 11414000 ORG BRABITAB+0 11415000 @NM00229 DC AL1(BRBBON-BRAONTAB) 11416000 @NM00230 DC AL1(BRANOACT-BRAOFTAB) 11417000 @NM00231 DC AL1(EXGRP1-EXBITAB) 11418000 ORG BRABITAB+3 11419000 ORG BRABITAB+3 11420000 DC AL1(BRNBBON-BRAONTAB) 11421000 DC AL1(BRANOACT-BRAOFTAB) 11422000 DC AL1(EXGRP1-EXBITAB) 11423000 ORG BRABITAB+6 11424000 ORG BRABITAB+6 11425000 DC AL1(BREBON-BRAONTAB) 11426000 DC AL1(BRANOACT-BRAOFTAB) 11427000 DC AL1(EXGRP2-EXBITAB) 11428000 ORG BRABITAB+9 11429000 ORG BRABITAB+9 11430000 DC AL1(BRNEBON-BRAONTAB) 11431000 DC AL1(BRANOACT-BRAOFTAB) 11432000 DC AL1(EXGRP2-EXBITAB) 11433000 ORG MASTERTB+3469 11434000 CHNBITAB DS CL3 11435000 ORG CHNBITAB+0 11436000 @NM00232 DC AL1(CHNCMDON-CHNONTAB) 11437000 @NM00233 DC AL1(CHGNOACT-CHGOFTAB) 11438000 @NM00234 DC AL1(EXGRP1-EXBITAB) 11439000 ORG CHNBITAB+3 11440000 ORG CHNBITAB+3 11441000 DC AL1(CHCMDON-CHNONTAB) 11442000 DC AL1(CHGNOACT-CHGOFTAB) 11443000 DC AL1(EXGRP1-EXBITAB) 11444000 ORG CHNBITAB+6 11445000 ORG CHNBITAB+6 11446000 DC AL1(CHNREQON-CHNONTAB) 11447000 DC AL1(CHGNOACT-CHGOFTAB) 11448000 DC AL1(EXGRP2-EXBITAB) 11449000 ORG CHNBITAB+9 11450000 ORG CHNBITAB+9 11451000 DC AL1(CHREQON-CHNONTAB) 11452000 DC AL1(CHGNOACT-CHGOFTAB) 11453000 DC AL1(EXGRP2-EXBITAB) 11454000 ORG MASTERTB+3481 11455000 STYBITAB DS CL3 11456000 ORG STYBITAB+0 11457000 @NM00235 DC AL1(STREQON-STYONTAB) 11458000 @NM00236 DC AL1(STNOACT-STYOFTAB) 11459000 @NM00237 DC AL1(EXGRP1-EXBITAB) 11460000 ORG STYBITAB+3 11461000 ORG STYBITAB+3 11462000 DC AL1(STRESPON-STYONTAB) 11463000 DC AL1(STNOACT-STYOFTAB) 11464000 DC AL1(EXGRP1-EXBITAB) 11465000 ORG MASTERTB+3487 11466000 RTYBITAB DS CL3 11467000 ORG RTYBITAB+0 11468000 @NM00238 DC AL1(RTNRESON-RTYONTAB) 11469000 @NM00239 DC AL1(RTNOACT-RTYOFTAB) 11470000 @NM00240 DC AL1(EXGRP1-EXBITAB) 11471000 ORG RTYBITAB+3 11472000 ORG RTYBITAB+3 11473000 DC AL1(RTRESPON-RTYONTAB) 11474000 DC AL1(RTNOACT-RTYOFTAB) 11475000 DC AL1(EXGRP1-EXBITAB) 11476000 ORG RTYBITAB+6 11477000 ORG RTYBITAB+6 11478000 DC AL1(RTDFSYON-RTYONTAB) 11479000 DC AL1(RTNOACT-RTYOFTAB) 11480000 DC AL1(EXGRP2-EXBITAB) 11481000 ORG RTYBITAB+9 11482000 ORG RTYBITAB+9 11483000 DC AL1(RTNDFSON-RTYONTAB) 11484000 DC AL1(RTNOACT-RTYOFTAB) 11485000 DC AL1(EXGRP2-EXBITAB) 11486000 ORG RTYBITAB+12 11487000 ORG RTYBITAB+12 11488000 DC AL1(RTNDFAON-RTYONTAB) 11489000 DC AL1(RTNOACT-RTYOFTAB) 11490000 DC AL1(EXGRP3-EXBITAB) 11491000 ORG RTYBITAB+15 11492000 ORG RTYBITAB+15 11493000 DC AL1(RTDFASON-RTYONTAB) 11494000 DC AL1(RTNOACT-RTYOFTAB) 11495000 DC AL1(EXGRP3-EXBITAB) 11496000 ORG MASTERTB+3505 11497000 CHABITAB DS CL3 11498000 ORG CHABITAB+0 11499000 @NM00241 DC AL1(CHFIRSON-CHAONTAB) 11500000 @NM00242 DC AL1(CHFIROFF-CHAOFTAB) 11501000 @NM00243 DC AL1(EXGRP1-EXBITAB) 11502000 ORG CHABITAB+3 11503000 ORG CHABITAB+3 11504000 DC AL1(CHMIDDON-CHAONTAB) 11505000 DC AL1(CHMIDOFF-CHAOFTAB) 11506000 DC AL1(EXGRP1-EXBITAB) 11507000 ORG CHABITAB+6 11508000 ORG CHABITAB+6 11509000 DC AL1(CHLASTON-CHAONTAB) 11510000 DC AL1(CHLASOFF-CHAOFTAB) 11511000 DC AL1(EXGRP1-EXBITAB) 11512000 ORG CHABITAB+9 11513000 ORG CHABITAB+9 11514000 DC AL1(CHONLYON-CHAONTAB) 11515000 DC AL1(CHONLOFF-CHAOFTAB) 11516000 DC AL1(EXGRP1-EXBITAB) 11517000 ORG MASTERTB+3517 11518000 POSBITAB DS CL3 11519000 ORG POSBITAB+0 11520000 @NM00244 DC AL1(PORESPON-POSONTAB) 11521000 @NM00245 DC AL1(PONOACT-POSOFTAB) 11522000 @NM00246 DC AL1(EXGRP1-EXBITAB) 11523000 ORG POSBITAB+3 11524000 ORG POSBITAB+3 11525000 DC AL1(POSCHEON-POSONTAB) 11526000 DC AL1(PONOACT-POSOFTAB) 11527000 DC AL1(EXGRP1-EXBITAB) 11528000 ORG MASTERTB+3523 11529000 RESBITAB DS CL3 11530000 ORG RESBITAB+0 11531000 @NM00247 DC AL1(RENEXON-RESONTAB) 11532000 @NM00248 DC AL1(RENOACT-RESOFTAB) 11533000 @NM00249 DC AL1(EXGRP1-EXBITAB) 11534000 ORG RESBITAB+3 11535000 ORG RESBITAB+3 11536000 DC AL1(REEXON-RESONTAB) 11537000 DC AL1(RENOACT-RESOFTAB) 11538000 DC AL1(EXGRP1-EXBITAB) 11539000 ORG RESBITAB+6 11540000 ORG RESBITAB+6 11541000 DC AL1(REFMEON-RESONTAB) 11542000 DC AL1(RENOACT-RESOFTAB) 11543000 DC AL1(EXGRP2-EXBITAB) 11544000 ORG RESBITAB+9 11545000 ORG RESBITAB+9 11546000 DC AL1(RENFMEON-RESONTAB) 11547000 DC AL1(RENOACT-RESOFTAB) 11548000 DC AL1(EXGRP2-EXBITAB) 11549000 ORG RESBITAB+12 11550000 ORG RESBITAB+12 11551000 DC AL1(RENRRNON-RESONTAB) 11552000 DC AL1(RENOACT-RESOFTAB) 11553000 DC AL1(EXGRP3-EXBITAB) 11554000 ORG RESBITAB+15 11555000 ORG RESBITAB+15 11556000 DC AL1(RERRNON-RESONTAB) 11557000 DC AL1(RENOACT-RESOFTAB) 11558000 DC AL1(EXGRP3-EXBITAB) 11559000 ORG RESBITAB+18 11560000 ORG RESBITAB+18 11561000 DC AL1(REQREON-RESONTAB) 11562000 DC AL1(RENOACT-RESOFTAB) 11563000 DC AL1(EXGRP4-EXBITAB) 11564000 ORG RESBITAB+21 11565000 ORG RESBITAB+21 11566000 DC AL1(RENQREON-RESONTAB) 11567000 DC AL1(RENOACT-RESOFTAB) 11568000 DC AL1(EXGRP4-EXBITAB) 11569000 ORG MASTERTB+3547 11570000 CNTBITAB DS CL3 11571000 ORG CNTBITAB+0 11572000 @NM00250 DC AL1(CNDATAON-CNTONTAB) 11573000 @NM00251 DC AL1(CNDATOFF-CNTOFTAB) 11574000 @NM00252 DC AL1(EXGRP1-EXBITAB) 11575000 ORG CNTBITAB+3 11576000 ORG CNTBITAB+3 11577000 DC AL1(CNCANCON-CNTONTAB) 11578000 DC AL1(CNCANOFF-CNTOFTAB) 11579000 DC AL1(EXGRP1-EXBITAB) 11580000 ORG CNTBITAB+6 11581000 ORG CNTBITAB+6 11582000 DC AL1(CNQCON-CNTONTAB) 11583000 DC AL1(CNQCOFF-CNTOFTAB) 11584000 DC AL1(EXGRP1-EXBITAB) 11585000 ORG CNTBITAB+9 11586000 ORG CNTBITAB+9 11587000 DC AL1(CNQECON-CNTONTAB) 11588000 DC AL1(CNQECOFF-CNTOFTAB) 11589000 DC AL1(EXGRP1-EXBITAB) 11590000 ORG CNTBITAB+12 11591000 ORG CNTBITAB+12 11592000 DC AL1(CNCHASON-CNTONTAB) 11593000 DC AL1(CNCHAOFF-CNTOFTAB) 11594000 DC AL1(EXGRP1-EXBITAB) 11595000 ORG CNTBITAB+15 11596000 ORG CNTBITAB+15 11597000 DC AL1(CNRELQON-CNTONTAB) 11598000 DC AL1(CNRELOFF-CNTOFTAB) 11599000 DC AL1(EXGRP1-EXBITAB) 11600000 ORG CNTBITAB+18 11601000 ORG CNTBITAB+18 11602000 DC AL1(CNBIDON-CNTONTAB) 11603000 DC AL1(CNBIDOFF-CNTOFTAB) 11604000 DC AL1(EXGRP1-EXBITAB) 11605000 ORG CNTBITAB+21 11606000 ORG CNTBITAB+21 11607000 DC AL1(CNRTRON-CNTONTAB) 11608000 DC AL1(CNRTROFF-CNTOFTAB) 11609000 DC AL1(EXGRP1-EXBITAB) 11610000 ORG CNTBITAB+24 11611000 ORG CNTBITAB+24 11612000 DC AL1(CNLUSON-CNTONTAB) 11613000 DC AL1(CNLUSOFF-CNTOFTAB) 11614000 DC AL1(EXGRP1-EXBITAB) 11615000 ORG CNTBITAB+27 11616000 ORG CNTBITAB+27 11617000 DC AL1(CNSIGNON-CNTONTAB) 11618000 DC AL1(CNSIGOFF-CNTOFTAB) 11619000 DC AL1(EXGRP1-EXBITAB) 11620000 ORG CNTBITAB+30 11621000 ORG CNTBITAB+30 11622000 DC AL1(CNSDTON-CNTONTAB) 11623000 DC AL1(CNSDTOFF-CNTOFTAB) 11624000 DC AL1(EXGRP1-EXBITAB) 11625000 ORG CNTBITAB+33 11626000 ORG CNTBITAB+33 11627000 DC AL1(CNCLEAON-CNTONTAB) 11628000 DC AL1(CNCLEOFF-CNTOFTAB) 11629000 DC AL1(EXGRP1-EXBITAB) 11630000 ORG CNTBITAB+36 11631000 ORG CNTBITAB+36 11632000 DC AL1(CNSTSNON-CNTONTAB) 11633000 DC AL1(CNSTSOFF-CNTOFTAB) 11634000 DC AL1(EXGRP1-EXBITAB) 11635000 ORG CNTBITAB+39 11636000 ORG CNTBITAB+39 11637000 DC AL1(CNSHUTON-CNTONTAB) 11638000 DC AL1(CNSHUOFF-CNTOFTAB) 11639000 DC AL1(EXGRP1-EXBITAB) 11640000 ORG CNTBITAB+42 11641000 ORG CNTBITAB+42 11642000 DC AL1(CNRQRON-CNTONTAB) 11643000 DC AL1(CNRQROFF-CNTOFTAB) 11644000 DC AL1(EXGRP1-EXBITAB) 11645000 ORG CNTBITAB+45 11646000 ORG CNTBITAB+45 11647000 DC AL1(CNRSHUON-CNTONTAB) 11648000 DC AL1(CNRSHOFF-CNTOFTAB) 11649000 DC AL1(EXGRP1-EXBITAB) 11650000 ORG CNTBITAB+48 11651000 ORG CNTBITAB+48 11652000 DC AL1(CNSHTCON-CNTONTAB) 11653000 DC AL1(CNSHCOFF-CNTOFTAB) 11654000 DC AL1(EXGRP1-EXBITAB) 11655000 ORG CNTBITAB+51 11656000 ORG CNTBITAB+51 11657000 DC AL1(CNBINDON-CNTONTAB) 11658000 DC AL1(CNBINOFF-CNTOFTAB) 11659000 DC AL1(EXGRP1-EXBITAB) 11660000 ORG CNTBITAB+54 11661000 ORG CNTBITAB+54 11662000 DC AL1(CNUNBDON-CNTONTAB) 11663000 DC AL1(CNUNBOFF-CNTOFTAB) 11664000 DC AL1(EXGRP1-EXBITAB) 11665000 ORG CNTBITAB+57 11666000 ORG CNTBITAB+57 11667000 DC AL1(CNSBION-CNTONTAB) 11668000 DC AL1(CNSBIOFF-CNTOFTAB) 11669000 DC AL1(EXGRP1-EXBITAB) 11670000 ORG CNTBITAB+60 11671000 ORG CNTBITAB+60 11672000 DC AL1(CNBISON-CNTONTAB) 11673000 DC AL1(CNBISOFF-CNTOFTAB) 11674000 DC AL1(EXGRP1-EXBITAB) 11675000 ORG MASTERTB+3610 11676000 QBSBITAB DS CL3 11677000 ORG QBSBITAB+0 11678000 @NM00253 DC AL1(QBSETON-QBSONTAB) 11679000 @NM00254 DC AL1(QBSETOFF-QBSOFTAB) 11680000 @NM00255 DC AL1(EXGRP1-EXBITAB) 11681000 ORG QBSBITAB+3 11682000 ORG QBSBITAB+3 11683000 DC AL1(QBTESTON-QBSONTAB) 11684000 DC AL1(QBTESOFF-QBSOFTAB) 11685000 DC AL1(EXGRP1-EXBITAB) 11686000 ORG QBSBITAB+6 11687000 ORG QBSBITAB+6 11688000 DC AL1(QBRESEON-QBSONTAB) 11689000 DC AL1(QBRESOFF-QBSOFTAB) 11690000 DC AL1(EXGRP1-EXBITAB) 11691000 ORG QBSBITAB+9 11692000 ORG QBSBITAB+9 11693000 DC AL1(QBIGNOON-QBSONTAB) 11694000 DC AL1(QBIGNOFF-QBSOFTAB) 11695000 DC AL1(EXGRP1-EXBITAB) 11696000 ORG QBSBITAB+12 11697000 ORG QBSBITAB+12 11698000 DC AL1(QBTSTPON-QBSONTAB) 11699000 DC AL1(QBTSPOFF-QBSOFTAB) 11700000 DC AL1(EXGRP1-EXBITAB) 11701000 ORG QBSBITAB+15 11702000 ORG QBSBITAB+15 11703000 DC AL1(QBTSTNON-QBSONTAB) 11704000 DC AL1(QBTSNOFF-QBSOFTAB) 11705000 DC AL1(EXGRP1-EXBITAB) 11706000 ORG QBSBITAB+18 11707000 ORG QBSBITAB+18 11708000 DC AL1(QBINVAON-QBSONTAB) 11709000 DC AL1(QBINVOFF-QBSOFTAB) 11710000 DC AL1(EXGRP1-EXBITAB) 11711000 ORG MASTERTB+3631 11712000 IBSBITAB DS CL3 11713000 ORG IBSBITAB+0 11714000 @NM00256 DC AL1(IBSETON-IBSONTAB) 11715000 @NM00257 DC AL1(IBSETOFF-IBSOFTAB) 11716000 @NM00258 DC AL1(EXGRP1-EXBITAB) 11717000 ORG IBSBITAB+3 11718000 ORG IBSBITAB+3 11719000 DC AL1(IBTESTON-IBSONTAB) 11720000 DC AL1(IBTESOFF-IBSOFTAB) 11721000 DC AL1(EXGRP1-EXBITAB) 11722000 ORG IBSBITAB+6 11723000 ORG IBSBITAB+6 11724000 DC AL1(IBRESEON-IBSONTAB) 11725000 DC AL1(IBRESOFF-IBSOFTAB) 11726000 DC AL1(EXGRP1-EXBITAB) 11727000 ORG IBSBITAB+9 11728000 ORG IBSBITAB+9 11729000 DC AL1(IBIGNOON-IBSONTAB) 11730000 DC AL1(IBIGNOFF-IBSOFTAB) 11731000 DC AL1(EXGRP1-EXBITAB) 11732000 ORG IBSBITAB+12 11733000 ORG IBSBITAB+12 11734000 DC AL1(IBTSTPON-IBSONTAB) 11735000 DC AL1(IBTSPOFF-IBSOFTAB) 11736000 DC AL1(EXGRP1-EXBITAB) 11737000 ORG IBSBITAB+15 11738000 ORG IBSBITAB+15 11739000 DC AL1(IBTSTNON-IBSONTAB) 11740000 DC AL1(IBTSNOFF-IBSOFTAB) 11741000 DC AL1(EXGRP1-EXBITAB) 11742000 ORG IBSBITAB+18 11743000 ORG IBSBITAB+18 11744000 DC AL1(IBINVAON-IBSONTAB) 11745000 DC AL1(IBINVOFF-IBSOFTAB) 11746000 DC AL1(EXGRP1-EXBITAB) 11747000 ORG MASTERTB+3652 11748000 SSOBITAB DS CL3 11749000 ORG SSOBITAB+0 11750000 @NM00259 DC AL1(SOCPMON-SSOONTAB) 11751000 @NM00260 DC AL1(SOCPMOFF-SSOOFTAB) 11752000 @NM00261 DC AL1(EXGRP1-EXBITAB) 11753000 ORG SSOBITAB+3 11754000 ORG SSOBITAB+3 11755000 DC AL1(SOSTATON-SSOONTAB) 11756000 DC AL1(SOSTAOFF-SSOOFTAB) 11757000 DC AL1(EXGRP1-EXBITAB) 11758000 ORG SSOBITAB+6 11759000 ORG SSOBITAB+6 11760000 DC AL1(SOFION-SSOONTAB) 11761000 DC AL1(SOFIOFF-SSOOFTAB) 11762000 DC AL1(EXGRP1-EXBITAB) 11763000 ORG SSOBITAB+9 11764000 ORG SSOBITAB+9 11765000 DC AL1(SORRON-SSOONTAB) 11766000 DC AL1(SORROFF-SSOOFTAB) 11767000 DC AL1(EXGRP1-EXBITAB) 11768000 ORG MASTERTB+3664 11769000 SSIBITAB DS CL3 11770000 ORG SSIBITAB+0 11771000 @NM00262 DC AL1(SIPATHON-SSIONTAB) 11772000 @NM00263 DC AL1(SIPATOFF-SSIOFTAB) 11773000 @NM00264 DC AL1(EXGRP1-EXBITAB) 11774000 ORG SSIBITAB+3 11775000 ORG SSIBITAB+3 11776000 DC AL1(SICPMON-SSIONTAB) 11777000 DC AL1(SICPMOFF-SSIOFTAB) 11778000 DC AL1(EXGRP1-EXBITAB) 11779000 ORG SSIBITAB+6 11780000 ORG SSIBITAB+6 11781000 DC AL1(SISTATON-SSIONTAB) 11782000 DC AL1(SISTAOFF-SSIOFTAB) 11783000 DC AL1(EXGRP1-EXBITAB) 11784000 ORG SSIBITAB+9 11785000 ORG SSIBITAB+9 11786000 DC AL1(SIFION-SSIONTAB) 11787000 DC AL1(SIFIOFF-SSIOFTAB) 11788000 DC AL1(EXGRP1-EXBITAB) 11789000 ORG SSIBITAB+12 11790000 ORG SSIBITAB+12 11791000 DC AL1(SIRRON-SSIONTAB) 11792000 DC AL1(SIRROFF-SSIOFTAB) 11793000 DC AL1(EXGRP1-EXBITAB) 11794000 ORG MASTERTB+3679 11795000 AIXBITAB DS CL3 11796000 ORG AIXBITAB+0 11797000 @NM00265 DC AL1(AIAIXON-AIXONTAB) 11798000 @NM00266 DC AL1(AINOACT-AIXOFTAB) 11799000 @NM00267 DC AL1(EXGRP1-EXBITAB) 11800000 ORG MASTERTB+3682 11801000 CODBITAB DS CL3 11802000 ORG CODBITAB+0 11803000 @NM00268 DC AL1(CODSTDON-CODONTAB) 11804000 @NM00269 DC AL1(CODNOACT-CODOFTAB) 11805000 @NM00270 DC AL1(EXGRP1-EXBITAB) 11806000 ORG CODBITAB+3 11807000 ORG CODBITAB+3 11808000 DC AL1(CODALTON-CODONTAB) 11809000 DC AL1(CODNOACT-CODOFTAB) 11810000 DC AL1(EXGRP1-EXBITAB) 11811000 ORG MASTERTB+3688 11812000 CRBITAB DS CL3 11813000 ORG CRBITAB+0 11814000 @NM00271 DC AL1(CRYESON-CRONTAB) 11815000 @NM00272 DC AL1(CRNOACT-CROFTAB) 11816000 @NM00273 DC AL1(EXGRP1-EXBITAB) 11817000 ORG CRBITAB+3 11818000 ORG CRBITAB+3 11819000 DC AL1(CRNOON-CRONTAB) 11820000 DC AL1(CRNOACT-CROFTAB) 11821000 DC AL1(EXGRP1-EXBITAB) 11822000 ORG MASTERTB+3694 11823000 ERBITAB DS CL3 11824000 ORG ERBITAB+0 11825000 @NM00274 DC AL1(ERSELON-ERONTAB) 11826000 @NM00275 DC AL1(ERSELOF-EROFTAB) 11827000 @NM00276 DC AL1(EXGRP1-EXBITAB) 11828000 ORG ERBITAB+3 11829000 ORG ERBITAB+3 11830000 DC AL1(ERREQON-ERONTAB) 11831000 DC AL1(ERREQOF-EROFTAB) 11832000 DC AL1(EXGRP1-EXBITAB) 11833000 ORG ERBITAB+6 11834000 ORG ERBITAB+6 11835000 DC AL1(ERNONON-ERONTAB) 11836000 DC AL1(ERNONOF-EROFTAB) 11837000 DC AL1(EXGRP1-EXBITAB) 11838000 ORG MASTERTB+3703 11839000 IDA019C1 CSECT 11840000 * /*@G40AKCM*/ 11841000 DS 0F 11842000 DEFACB EQU * 11843000 ACB 11844000 IDA019C1 CSECT 11845000 * /*@G40AKCM*/ 11846000 DS 0F 11847000 DEFVTACB EQU * 11848000 ACB AM=VTAM 11849000 IDA019C1 CSECT 11850000 * /*@G40AKCM*/ 11851000 DS 0F 11852000 DEFRPL EQU * 11853000 RPL 11854000 IDA019C1 CSECT 11855000 * /*@G40AKCM*/ 11856000 DS 0F 11857000 DEFVTRPL EQU * 11858000 RPL AM=VTAM 11859000 IDA019C1 CSECT 11860000 * /*@G40AKCM*/ 11861000 DS 0F 11862000 DEFEXLST EQU * 11863000 EXLST EODAD=(0,N),LERAD=(0,N),JRNAD=(0,N),SYNAD=(0,N) 11864000 * 11865000 */********************************************************************/ 11866000 */* */ 11867000 */* OPENAD EXIT DUMMY ENTRY */ 11868000 */* */ 11869000 */********************************************************************/ 11870000 * 11871000 DC AL1(0) 11872000 DC AL4(0) 11873000 DS 0F 11874000 * 11875000 */********************************************************************/ 11876000 */* */ 11877000 */* CORRECT LENGTH GENERATED */ 11878000 */* */ 11879000 */********************************************************************/ 11880000 * 11881000 ORG DEFEXLST+2 11882000 DC H'40' 11883000 ORG 11884000 IDA019C1 CSECT 11885000 * /*@G40AKCM*/ 11886000 DEFVTEXL EQU * 11887000 EXLST AM=VTAM,EODAD=(0,N),LERAD=(0,N),JRNAD=(0,N),SYNAD=(0,N),*11888000 LOGON=(0,N),RELREQ=(0,N),ATTN=(0,N),LOSTERM=(0,N), *11889000 TPEND=(0,N),NSEXIT=(0,N) 11890000 IDA019C1 CSECT 11891000 * /*@G40AKCM*/ 11892000 DS 0F 11893000 */********************************************************************/ 11894000 */* */ 11895000 */* DEFAULT NIB */ 11896000 */* */ 11897000 */********************************************************************/ 11898000 DEFNIB EQU * 11899000 NIB 11900000 IDA019C1 CSECT 11901000 * /*@G40AKCM*/ 11902000 * 11903000 * AMCBS CONTROL BLOCK - LOCATED HERE FOR VS1 ONLY, OBTAINED AND 11904000 * BUILT DYNAMICALLY BY CATALOG FOR NON-VS1. REFERENCED BY 11905000 * EXTERNAL SYMBOL IDA019C2 DURING NUCLEUS LINK EDIT. 11906000 * 11907000 ENTRY IDA019C2 AMCBS SYMBOLIC REFERENCE 11908000 IDA019C2 DS 0D AMCBS SYMBOLIC REFERENCE 11909000 AMCBS DS 0CL32 AMCBS CONTROL BLOCK 11910000 * AMCBS 11911000 CBSEND DS 0F END OF AMCBS 11912000 IDA019C1 CSECT 11913000 * /*@G40AKCM*/ 11914000 IDAPATCH PATCH AREA 11915000 @DATD DSECT 11916000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 11917000 @ENDDATD EQU * 11918000 IDA019C1 CSECT 11919000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 11920000 @01 EQU 01 11921000 @02 EQU 02 11922000 @03 EQU 03 11923000 @04 EQU 04 11924000 @05 EQU 05 11925000 @06 EQU 06 11926000 @07 EQU 07 11927000 @08 EQU 08 11928000 @09 EQU 09 11929000 @10 EQU 10 11930000 @11 EQU 11 11931000 @12 EQU 12 11932000 @13 EQU 13 11933000 @14 EQU 14 11934000 @15 EQU 15 11935000 REG13 EQU @13 11936000 RHDRPTR EQU @03 11937000 PLEPTR EQU @01 11938000 REG5 EQU @05 11939000 RBLKPTR EQU @04 11940000 REG7 EQU @07 11941000 REG6 EQU @06 11942000 REG8 EQU @08 11943000 RELEMPTR EQU @02 11944000 RETURNR EQU @14 11945000 RETCODER EQU @15 11946000 REG0 EQU @00 11947000 REG1 EQU @01 11948000 REG2 EQU @02 11949000 REG9 EQU @09 11950000 REG10 EQU @10 11951000 REG11 EQU @11 11952000 REG12 EQU @12 11953000 REG15 EQU @15 11954000 REG14 EQU @14 11955000 REG3 EQU @03 11956000 REG4 EQU @04 11957000 ELEM EQU 0 11958000 ELEMKWTC EQU ELEM 11959000 ELEMBLEN EQU ELEM+2 11960000 ELEMCSTR EQU ELEM+4 11961000 ELEMFIX EQU ELEMCSTR 11962000 ELEMPTR EQU ELEMFIX 11963000 ELEMBSTR EQU ELEMPTR 11964000 ELEMXFLG EQU ELEMCSTR+4 11965000 GENC EQU 0 11966000 GENBTC EQU GENC 11967000 GENFTC EQU GENC+1 11968000 GENCOP EQU GENC+2 11969000 GENUSA EQU GENC+4 11970000 GENUSL EQU GENC+8 11971000 MODC EQU 0 11972000 MODBTC EQU MODC 11973000 MODBLAD EQU MODC+4 11974000 SHOW EQU 0 11975000 SHOWOBJ EQU SHOW+2 11976000 SHOWBLAD EQU SHOW+4 11977000 SHOWUSA EQU SHOW+8 11978000 SHOWUSL EQU SHOW+12 11979000 TEST EQU 0 11980000 TESTBLAD EQU TEST+4 11981000 TESTERET EQU TEST+8 11982000 IDAAMB EQU 0 11983000 AMBBUFC EQU IDAAMB+8 11984000 AMBPH EQU IDAAMB+12 11985000 AMBDSB EQU IDAAMB+20 11986000 @NM00006 EQU IDAAMB+24 11987000 AMBFLG0 EQU @NM00006 11988000 AMBFLG1 EQU IDAAMB+25 11989000 AMBDSORG EQU IDAAMB+26 11990000 AMBIOBAD EQU IDAAMB+28 11991000 AMBINFL EQU IDAAMB+42 11992000 AMBDEBPT EQU IDAAMB+44 11993000 AMBOFLGS EQU IDAAMB+48 11994000 AMBFLG2 EQU IDAAMB+49 11995000 @NM00017 EQU IDAAMB+56 11996000 AMBAMBXN EQU @NM00017 11997000 @NM00018 EQU IDAAMB+68 11998000 AMBCSWD1 EQU IDAAMB+84 11999000 AMBAFLG EQU AMBCSWD1 12000000 IDAAMBXN EQU 0 12001000 AMBXEOV EQU IDAAMBXN 12002000 AMBXFLGS EQU AMBXEOV+7 12003000 AMBXCSWD EQU IDAAMBXN+16 12004000 IDAAMBL EQU 0 12005000 AMBLEOV EQU IDAAMBL+12 12006000 AMBLEFLG EQU AMBLEOV 12007000 AMBLDDNM EQU IDAAMBL+16 12008000 AMBLIDF EQU AMBLDDNM 12009000 AMBLQ EQU AMBLIDF+7 12010000 AMBLXPT EQU IDAAMBL+24 12011000 AMBLVC EQU IDAAMBL+28 12012000 AMBLTYPE EQU IDAAMBL+30 12013000 AMBLPATH EQU AMBLTYPE 12014000 AMBLAIX EQU AMBLTYPE 12015000 AMBLBASE EQU AMBLTYPE 12016000 AMBLQ2 EQU IDAAMBL+31 12017000 AMBLSHAR EQU IDAAMBL+33 12018000 AMBLFLG1 EQU IDAAMBL+35 12019000 AMBLVVIC EQU AMBLFLG1 12020000 AMBLDUMY EQU AMBLFLG1 12021000 AMBLFLG2 EQU IDAAMBL+36 12022000 AMBLDTA EQU IDAAMBL+52 12023000 AMBLIX EQU IDAAMBL+56 12024000 IDAAMDSB EQU 0 12025000 AMDATTR EQU IDAAMDSB+1 12026000 AMDDST EQU AMDATTR 12027000 AMDWCK EQU AMDATTR 12028000 AMDSDT EQU AMDATTR 12029000 AMDREPL EQU AMDATTR 12030000 AMDRRDS EQU AMDATTR 12031000 AMDSPAN EQU AMDATTR 12032000 AMDNEST EQU IDAAMDSB+4 12033000 AMDAXRKP EQU AMDNEST 12034000 AMDRKP EQU IDAAMDSB+6 12035000 AMDKEYLN EQU IDAAMDSB+8 12036000 AMDFSCA EQU IDAAMDSB+14 12037000 AMDCINV EQU IDAAMDSB+20 12038000 AMDLRECL EQU IDAAMDSB+24 12039000 AMDHLRBA EQU IDAAMDSB+28 12040000 AMDSSRBA EQU IDAAMDSB+32 12041000 AMDPARDB EQU IDAAMDSB+36 12042000 AMDATTR3 EQU IDAAMDSB+40 12043000 AMDUNQ EQU AMDATTR3 12044000 AMDSTAT EQU IDAAMDSB+48 12045000 AMDSTSP EQU AMDSTAT 12046000 AMDNIL EQU AMDSTAT+8 12047000 AMDNEXT EQU AMDSTAT+10 12048000 AMDNLR EQU AMDSTAT+12 12049000 AMDDELR EQU AMDSTAT+16 12050000 AMDIREC EQU AMDSTAT+20 12051000 AMDUPR EQU AMDSTAT+24 12052000 AMDRETR EQU AMDSTAT+28 12053000 AMDASPA EQU AMDSTAT+32 12054000 AMDNCIS EQU AMDSTAT+36 12055000 AMDNCAS EQU AMDSTAT+40 12056000 AMDEXCP EQU AMDSTAT+44 12057000 IDAARDB EQU 0 12058000 ARDTYPE EQU IDAARDB+1 12059000 ARDNPTR EQU IDAARDB+4 12060000 ARDHRBA EQU IDAARDB+12 12061000 ARDERBA EQU IDAARDB+16 12062000 ARDPRF EQU IDAARDB+36 12063000 IDABSPH EQU 0 12064000 BSPHFLG1 EQU IDABSPH+1 12065000 BSPHCSRC EQU IDABSPH+28 12066000 BSPHFLG2 EQU BSPHCSRC 12067000 BSPHRDS EQU IDABSPH+36 12068000 BSPHFND EQU IDABSPH+40 12069000 BSPHUIW EQU IDABSPH+44 12070000 BSPHNUIW EQU IDABSPH+48 12071000 IDABUFDR EQU 0 12072000 BUFDRNO EQU IDABUFDR+1 12073000 BUFDRCIX EQU IDABUFDR+9 12074000 BUFDRFLG EQU IDABUFDR+11 12075000 IDABUFC EQU 0 12076000 BUFCAVL EQU IDABUFC 12077000 BUFCFLG1 EQU IDABUFC+1 12078000 BUFCIOFL EQU IDABUFC+2 12079000 BUFCFLG2 EQU IDABUFC+3 12080000 BUFCPLH EQU IDABUFC+4 12081000 BUFCINV EQU IDABUFC+28 12082000 IDAPLHDR EQU 0 12083000 PLHDRMAX EQU IDAPLHDR+8 12084000 IDAPLH EQU 0 12085000 PLHFLG1 EQU IDAPLH+2 12086000 PLHFLG2 EQU IDAPLH+3 12087000 PLHEFLGS EQU IDAPLH+4 12088000 PLHFLG3 EQU IDAPLH+6 12089000 PLHAFLGS EQU IDAPLH+7 12090000 PLHCRBA EQU IDAPLH+28 12091000 PLHJORBA EQU PLHCRBA 12092000 PLHJRNLL EQU IDAPLH+32 12093000 PLHJCODE EQU IDAPLH+40 12094000 PLHDIOB EQU IDAPLH+76 12095000 PLHEOVPT EQU IDAPLH+180 12096000 PLHIXSPL EQU IDAPLH+200 12097000 PLHSSRBA EQU PLHIXSPL 12098000 PLHWAX EQU IDAPLH+232 12099000 PLHKEYPT EQU IDAPLH+248 12100000 PLHEND EQU IDAPLH+292 12101000 IFGACB EQU 0 12102000 ACBCOMN EQU IFGACB 12103000 ACBID EQU ACBCOMN 12104000 ACBSTYP EQU ACBCOMN+1 12105000 ACBLENG EQU ACBCOMN+2 12106000 ACBLENG2 EQU ACBLENG 12107000 ACBAMBL EQU ACBCOMN+4 12108000 ACBJWA EQU ACBAMBL 12109000 ACBIBCT EQU ACBJWA 12110000 ACBINRTN EQU ACBCOMN+8 12111000 ACBMACRF EQU ACBCOMN+12 12112000 ACBMACR1 EQU ACBMACRF 12113000 ACBKEY EQU ACBMACR1 12114000 ACBADR EQU ACBMACR1 12115000 ACBCNV EQU ACBMACR1 12116000 ACBSEQ EQU ACBMACR1 12117000 ACBDIR EQU ACBMACR1 12118000 ACBIN EQU ACBMACR1 12119000 ACBOUT EQU ACBMACR1 12120000 ACBUBF EQU ACBMACR1 12121000 ACBMACR2 EQU ACBMACRF+1 12122000 ACBSKP EQU ACBMACR2 12123000 ACBLOGON EQU ACBMACR2 12124000 ACBRST EQU ACBMACR2 12125000 ACBDSN EQU ACBMACR2 12126000 ACBAIX EQU ACBMACR2 12127000 ACBBSTNO EQU ACBCOMN+14 12128000 ACBSTRNO EQU ACBCOMN+15 12129000 ACBBUFND EQU ACBCOMN+16 12130000 ACBBUFNI EQU ACBCOMN+18 12131000 ACBBUFPL EQU ACBCOMN+20 12132000 ACBMACR3 EQU ACBBUFPL 12133000 ACBLSR EQU ACBMACR3 12134000 ACBGSR EQU ACBMACR3 12135000 ACBICI EQU ACBMACR3 12136000 ACBDFR EQU ACBMACR3 12137000 ACBSIS EQU ACBMACR3 12138000 ACBNCFX EQU ACBMACR3 12139000 ACBRECFM EQU ACBCOMN+24 12140000 ACBCCTYP EQU ACBCOMN+25 12141000 ACBOPT EQU ACBCOMN+26 12142000 ACBDSORG EQU ACBOPT 12143000 ACBCROPS EQU ACBDSORG 12144000 ACBMSGAR EQU ACBCOMN+28 12145000 ACBPASSW EQU ACBCOMN+32 12146000 ACBEXLST EQU ACBCOMN+36 12147000 ACBUEL EQU ACBEXLST 12148000 ACBDDNM EQU ACBCOMN+40 12149000 ACBTIOT EQU ACBDDNM 12150000 ACBAMETH EQU ACBDDNM+3 12151000 ACBOFLGS EQU ACBCOMN+48 12152000 ACBOPEN EQU ACBOFLGS 12153000 ACBEXFG EQU ACBOFLGS 12154000 ACBIOSFG EQU ACBOFLGS 12155000 ACBERFLG EQU ACBCOMN+49 12156000 ACBINFLG EQU ACBCOMN+50 12157000 ACBCAT EQU ACBINFLG 12158000 ACBSCRA EQU ACBINFLG 12159000 ACBUCRA EQU ACBINFLG 12160000 ACBUJFCB EQU ACBCOMN+52 12161000 ACBBUFSP EQU ACBCOMN+56 12162000 ACBBLKSZ EQU ACBCOMN+60 12163000 ACBMSGLN EQU ACBBLKSZ 12164000 ACBUAPTR EQU ACBCOMN+64 12165000 ACBAPID EQU ACBCOMN+72 12166000 IFGACBVT EQU 0 12167000 ACBVTEXT EQU IFGACBVT 12168000 ACBRTN EQU ACBVTEXT 12169000 IFGEXLST EQU 0 12170000 EXLCOMN EQU IFGEXLST 12171000 EXLID EQU EXLCOMN 12172000 EXLSTYP EQU EXLCOMN+1 12173000 EXLLEN EQU EXLCOMN+2 12174000 EXLEODF EQU EXLCOMN+5 12175000 EXLEODP EQU EXLCOMN+6 12176000 EXLSYNF EQU EXLCOMN+10 12177000 EXLSYNP EQU EXLCOMN+11 12178000 EXLLERF EQU EXLCOMN+15 12179000 EXLLERP EQU EXLCOMN+16 12180000 EXLSCIPF EQU EXLCOMN+20 12181000 EXLUPADF EQU EXLSCIPF 12182000 EXLSCIPS EQU EXLUPADF 12183000 EXLSCIPA EQU EXLUPADF 12184000 EXLSCIPK EQU EXLUPADF 12185000 EXLSCIPP EQU EXLCOMN+21 12186000 EXLLGNF EQU EXLCOMN+25 12187000 EXLLGNP EQU EXLCOMN+26 12188000 EXLJRNF EQU EXLCOMN+30 12189000 EXLJRNP EQU EXLCOMN+31 12190000 EXLOPNF EQU EXLCOMN+35 12191000 IFGEXLEF EQU 0 12192000 EXLENTRY EQU IFGEXLEF 12193000 EXLFLAG EQU EXLENTRY 12194000 EXLENFL EQU EXLFLAG 12195000 EXLSPEC EQU EXLENFL 12196000 EXLACTM EQU EXLENFL 12197000 EXLLNK EQU EXLENFL 12198000 EXLEXITP EQU EXLENTRY+1 12199000 IFGEXLVT EQU 0 12200000 EXLVTEXT EQU IFGEXLVT 12201000 EXLNLGNF EQU EXLVTEXT 12202000 EXLNLGNP EQU EXLVTEXT+1 12203000 EXLRLRQF EQU EXLVTEXT+5 12204000 EXLRLRQP EQU EXLVTEXT+6 12205000 EXLATTNF EQU EXLVTEXT+15 12206000 EXLATTNP EQU EXLVTEXT+16 12207000 EXLTPNDF EQU EXLVTEXT+20 12208000 EXLTPNDP EQU EXLVTEXT+21 12209000 EXLTNSEF EQU EXLVTEXT+25 12210000 EXLTNSEP EQU EXLVTEXT+26 12211000 EXLDFAS EQU 0 12212000 EXLDFASF EQU EXLDFAS 12213000 EXLDFASP EQU EXLDFAS+1 12214000 EXLRESP EQU 0 12215000 EXLRESPF EQU EXLRESP 12216000 EXLRESPP EQU EXLRESP+1 12217000 IFGRPL EQU 0 12218000 RPLCOMN EQU IFGRPL 12219000 RPLIDWD EQU RPLCOMN 12220000 RPLID EQU RPLIDWD 12221000 RPLREQ EQU RPLIDWD+2 12222000 RPLLEN EQU RPLIDWD+3 12223000 RPLECB EQU RPLCOMN+8 12224000 RPLPOST EQU RPLECB 12225000 RPLFDBWD EQU RPLCOMN+12 12226000 RPLFDBK EQU RPLFDBWD+1 12227000 RPLRTNCD EQU RPLFDBK 12228000 RPLCNDCD EQU RPLFDBK+1 12229000 RPLCMPON EQU RPLCNDCD 12230000 RPLFDB2 EQU RPLCMPON 12231000 RPLERRCD EQU RPLCNDCD+1 12232000 RPLFDB3 EQU RPLERRCD 12233000 RPLUINPT EQU RPLFDB3 12234000 RPLREOB EQU RPLFDB3 12235000 RPLREOM EQU RPLFDB3 12236000 RPLREOT EQU RPLFDB3 12237000 RPLLGFRC EQU RPLFDB3 12238000 RPLRLG EQU RPLFDB3 12239000 RPLRDSOH EQU RPLFDB3 12240000 RPLKEYLE EQU RPLCOMN+16 12241000 RPLKEYL EQU RPLKEYLE 12242000 RPLSTRID EQU RPLCOMN+18 12243000 RPLDACB EQU RPLCOMN+24 12244000 RPLAREA EQU RPLCOMN+32 12245000 RPLARG EQU RPLCOMN+36 12246000 RPLOPTCD EQU RPLCOMN+40 12247000 RPLOPT1 EQU RPLOPTCD 12248000 RPLLOC EQU RPLOPT1 12249000 RPLDIR EQU RPLOPT1 12250000 RPLSEQ EQU RPLOPT1 12251000 RPLSKP EQU RPLOPT1 12252000 RPLASY EQU RPLOPT1 12253000 RPLKGE EQU RPLOPT1 12254000 RPLGEN EQU RPLOPT1 12255000 RPLECBSW EQU RPLOPT1 12256000 RPLOPT2 EQU RPLOPTCD+1 12257000 RPLKEY EQU RPLOPT2 12258000 RPLADR EQU RPLOPT2 12259000 RPLCNV EQU RPLOPT2 12260000 RPLBWD EQU RPLOPT2 12261000 RPLLRD EQU RPLOPT2 12262000 RPLUPD EQU RPLOPT2 12263000 RPLNSP EQU RPLOPT2 12264000 RPLOPT3 EQU RPLOPTCD+2 12265000 RPLOPT4 EQU RPLOPTCD+3 12266000 RPLNXTRP EQU RPLCOMN+44 12267000 RPLCHAIN EQU RPLNXTRP 12268000 RPLRLEN EQU RPLCOMN+48 12269000 RPLBUFL EQU RPLCOMN+52 12270000 RPLOPTC2 EQU RPLCOMN+56 12271000 RPLOPT5 EQU RPLOPTC2 12272000 RPLDLGIN EQU RPLOPT5 12273000 RPLPSOPT EQU RPLOPT5 12274000 RPLWRTYP EQU RPLOPT5 12275000 RPLNERAS EQU RPLWRTYP 12276000 RPLEAU EQU RPLWRTYP 12277000 RPLERACE EQU RPLWRTYP 12278000 RPLNODE EQU RPLOPT5 12279000 RPLWROPT EQU RPLOPT5 12280000 RPLOPT6 EQU RPLOPTC2+1 12281000 RPLUNTYP EQU RPLOPT6 12282000 RPLEOB EQU RPLUNTYP 12283000 RPLEOM EQU RPLUNTYP 12284000 RPLEOT EQU RPLUNTYP 12285000 RPLCOND EQU RPLOPT6 12286000 RPLNCOND EQU RPLOPT6 12287000 RPLLOCK EQU RPLOPT6 12288000 RPLOPT7 EQU RPLOPTC2+2 12289000 RPLCNOPT EQU RPLOPT7 12290000 RPLCNALL EQU RPLCNOPT 12291000 RPLCNANY EQU RPLCNOPT 12292000 RPLQOPT EQU RPLOPT7 12293000 RPLRLSOP EQU RPLOPT7 12294000 RPLOPT8 EQU RPLOPTC2+3 12295000 RPLODACQ EQU RPLOPT8 12296000 RPLODACP EQU RPLOPT8 12297000 RPLPEND EQU RPLOPT8 12298000 RPLSESS EQU RPLOPT8 12299000 RPLACTV EQU RPLOPT8 12300000 RPLUNCON EQU RPLOPT8 12301000 RPLRBAR EQU RPLCOMN+60 12302000 RPLAIXPC EQU RPLRBAR 12303000 RPLAIXID EQU RPLRBAR+2 12304000 RPLAXPKP EQU RPLAIXID 12305000 RPLDDDD EQU RPLRBAR+4 12306000 RPLEXTDS EQU RPLCOMN+68 12307000 RPLEXTD1 EQU RPLEXTDS 12308000 RPLNEXIT EQU RPLEXTD1 12309000 RPLEXIT EQU RPLEXTD1 12310000 RPLTCRYP EQU RPLEXTD1 12311000 RPLNIB EQU RPLEXTD1 12312000 RPLBRANC EQU RPLEXTD1 12313000 RPLACTIV EQU RPLCOMN+69 12314000 RPLEMLEN EQU RPLCOMN+70 12315000 RPLERMSA EQU RPLCOMN+72 12316000 IFGRPLVT EQU 0 12317000 RPLVTEXT EQU IFGRPLVT 12318000 RPLAAREA EQU RPLVTEXT 12319000 RPLAARLN EQU RPLVTEXT+4 12320000 RPLARCLN EQU RPLVTEXT+8 12321000 RPLFDBK2 EQU RPLVTEXT+12 12322000 RPLSSNSI EQU RPLFDBK2 12323000 RPLDSB EQU RPLSSNSI 12324000 RPLDSB1 EQU RPLDSB 12325000 RPLSSEI EQU RPLDSB1 12326000 RPLPATHI EQU RPLSSEI 12327000 RPLCPMI EQU RPLSSEI 12328000 RPLSTATI EQU RPLSSEI 12329000 RPLFII EQU RPLSSEI 12330000 RPLRRI EQU RPLSSEI 12331000 RPLDSB2 EQU RPLDSB+1 12332000 RPLSSMI EQU RPLDSB2 12333000 RPLUSNSI EQU RPLFDBK2+2 12334000 RPLUSFLD EQU RPLVTEXT+16 12335000 RPLOPTC3 EQU RPLVTEXT+20 12336000 RPLOPT9 EQU RPLOPTC3 12337000 RPLLOGON EQU RPLOPT9 12338000 RPLDEVCH EQU RPLOPT9 12339000 RPLTERMS EQU RPLOPT9 12340000 RPLCOUNT EQU RPLOPT9 12341000 RPLAPPST EQU RPLOPT9 12342000 RPLRNNM EQU RPLOPT9 12343000 RPLCIDE EQU RPLOPT9 12344000 RPLTOPL EQU RPLOPT9 12345000 RPLOPT10 EQU RPLOPTC3+1 12346000 RPLBSCID EQU RPLOPT10 12347000 RPLDSPLY EQU RPLOPT10 12348000 RPLSPARM EQU RPLOPT10 12349000 RPLTSKY EQU RPLOPT10 12350000 RPLOPT11 EQU RPLOPTC3+2 12351000 RPLQUIES EQU RPLOPT11 12352000 RPLSTART EQU RPLOPT11 12353000 RPLSTOP EQU RPLOPT11 12354000 RPLOPT12 EQU RPLOPTC3+3 12355000 RPLKEEP EQU RPLOPT12 12356000 RPLTRUNC EQU RPLOPT12 12357000 RPLNIBTK EQU RPLOPT12 12358000 RPLFMHDR EQU RPLOPT12 12359000 RPLOSENS EQU RPLVTEXT+24 12360000 RPLSSNSO EQU RPLOSENS 12361000 RPLSSEO EQU RPLSSNSO 12362000 RPLCPMO EQU RPLSSEO 12363000 RPLSTATO EQU RPLSSEO 12364000 RPLFIO EQU RPLSSEO 12365000 RPLRRO EQU RPLSSEO 12366000 RPLSSMO EQU RPLSSNSO+1 12367000 RPLUSNSO EQU RPLOSENS+2 12368000 RPLSIGDA EQU RPLVTEXT+32 12369000 RPLOF16 EQU 0 12370000 RPLRH3 EQU RPLOF16 12371000 RPLBB EQU RPLRH3 12372000 RPLEB EQU RPLRH3 12373000 RPLCMD EQU RPLRH3 12374000 RPLCHREQ EQU RPLRH3 12375000 RPLCSI EQU RPLRH3 12376000 RPLSRTYP EQU RPLOF16+1 12377000 RPLSTYPE EQU RPLSRTYP 12378000 RPLSRESP EQU RPLSTYPE 12379000 RPLRTYPE EQU RPLSRTYP 12380000 RPLRRESP EQU RPLRTYPE 12381000 RPLNFSYN EQU RPLRTYPE 12382000 RPLDFASY EQU RPLRTYPE 12383000 RPLCHN EQU RPLOF16+2 12384000 RPLFIRST EQU RPLCHN 12385000 RPLMIDLE EQU RPLCHN 12386000 RPLLAST EQU RPLCHN 12387000 RPLONLY EQU RPLCHN 12388000 RPLVTFL1 EQU RPLOF16+3 12389000 RPLVTFL2 EQU RPLOF16+4 12390000 RPLPOSTV EQU RPLVTFL2 12391000 RPLSCHED EQU RPLPOSTV 12392000 RPLRESP EQU RPLVTFL2 12393000 RPLQRI EQU RPLRESP 12394000 RPLEX EQU RPLRESP 12395000 RPLNFME EQU RPLRESP 12396000 RPLRRN EQU RPLRESP 12397000 RPLCNTRL EQU RPLOF16+5 12398000 RPLCNTDF EQU RPLCNTRL 12399000 RPLDATA EQU RPLCNTDF 12400000 RPLCNCEL EQU RPLCNTDF 12401000 RPLQC EQU RPLCNTDF 12402000 RPLQEC EQU RPLCNTDF 12403000 RPLCHASE EQU RPLCNTDF 12404000 RPLRELQ EQU RPLCNTDF 12405000 RPLCNTDC EQU RPLCNTRL+1 12406000 RPLBID EQU RPLCNTDC 12407000 RPLRTR EQU RPLCNTDC 12408000 RPLLUS EQU RPLCNTDC 12409000 RPLSIGNL EQU RPLCNTDC 12410000 RPLTBIND EQU RPLCNTDC 12411000 RPLTUNBD EQU RPLCNTDC 12412000 RPLSBI EQU RPLCNTDC 12413000 RPLBIS EQU RPLCNTDC 12414000 RPLCNTSC EQU RPLCNTRL+2 12415000 RPLSDT EQU RPLCNTSC 12416000 RPLCLEAR EQU RPLCNTSC 12417000 RPLSTSN EQU RPLCNTSC 12418000 RPLSHUTD EQU RPLCNTSC 12419000 RPLSHUTC EQU RPLCNTSC 12420000 RPLRQR EQU RPLCNTSC 12421000 RPLRSHUT EQU RPLCNTSC 12422000 RPLOF60 EQU 0 12423000 RPLOBSQV EQU RPLOF60 12424000 RPLIBSQV EQU RPLOF60+2 12425000 RPLOBSQ EQU RPLOF60+4 12426000 RPLOSET EQU RPLOBSQ 12427000 RPLOTST EQU RPLOBSQ 12428000 RPLORSET EQU RPLOBSQ 12429000 RPLOIGN EQU RPLOBSQ 12430000 RPLOPOS EQU RPLOBSQ 12431000 RPLONEG EQU RPLOBSQ 12432000 RPLOINV EQU RPLOBSQ 12433000 RPLIBSQ EQU RPLOF60+5 12434000 RPLISET EQU RPLIBSQ 12435000 RPLITST EQU RPLIBSQ 12436000 RPLIRSET EQU RPLIBSQ 12437000 RPLIIGN EQU RPLIBSQ 12438000 RPLIPOS EQU RPLIBSQ 12439000 RPLINEG EQU RPLIBSQ 12440000 RPLIINV EQU RPLIBSQ 12441000 RPLSEQNO EQU RPLOF60+6 12442000 ISTPROCD EQU 0 12443000 PROPROC EQU ISTPROCD 12444000 PROPROC1 EQU PROPROC 12445000 PROTRUNC EQU PROPROC1 12446000 PROXPOPT EQU PROPROC1 12447000 PRODFASY EQU PROPROC1 12448000 PRORESPX EQU PROPROC1 12449000 PROCA EQU PROPROC1 12450000 PROCS EQU PROPROC1 12451000 PRORPLC EQU PROPROC1 12452000 PROPROC2 EQU PROPROC+1 12453000 PROERPO EQU PROPROC2 12454000 PROLGOT EQU PROPROC2 12455000 PROSYSR EQU PROPROC2 12456000 PROFIFOR EQU PROPROC2 12457000 PRONTFL EQU PROPROC2 12458000 PROEMLC EQU PROPROC2 12459000 PROCFTX EQU PROPROC2 12460000 PROPROC3 EQU PROPROC+2 12461000 PROERPI EQU PROPROC3 12462000 PROLGIN EQU PROPROC3 12463000 PRONTO EQU PROPROC3 12464000 PROMONIT EQU PROPROC3 12465000 PROPROC4 EQU PROPROC+3 12466000 PROEIB EQU PROPROC4 12467000 PROMODB EQU PROPROC4 12468000 PROMODM EQU PROPROC4 12469000 PROMODT EQU PROPROC4 12470000 PROMODC EQU PROPROC4 12471000 PROPROCS EQU 0 12472000 PROSETMS EQU PROPROCS+1 12473000 PROSETM2 EQU PROSETMS 12474000 PROSETM3 EQU PROSETMS+1 12475000 PROSETM4 EQU PROSETMS+2 12476000 ISTDEVCH EQU 0 12477000 DEVSHCH EQU ISTDEVCH 12478000 DEVCHAR EQU DEVSHCH 12479000 DEVTCODE EQU ISTDEVCH+1 12480000 DEVFLAGS EQU ISTDEVCH+3 12481000 DEVFCCTL EQU DEVFLAGS 12482000 DEVCHAR3 EQU DEVFLAGS 12483000 ISTNIB EQU 0 12484000 NIBID EQU ISTNIB 12485000 NIBCONDN EQU ISTNIB+2 12486000 NIBLEN EQU ISTNIB+3 12487000 NIBCID EQU ISTNIB+4 12488000 NIBUSER EQU ISTNIB+8 12489000 NIBSYM EQU ISTNIB+12 12490000 NIBMODE EQU ISTNIB+20 12491000 NIBDEVCH EQU ISTNIB+28 12492000 NIBPROCD EQU ISTNIB+36 12493000 NIBFLGS EQU ISTNIB+40 12494000 NIBFLG1 EQU NIBFLGS 12495000 NIBLAST EQU NIBFLG1 12496000 NIBCON EQU NIBFLG1 12497000 NIBSDAPP EQU NIBFLG1 12498000 NIBTSEL EQU NIBFLG1 12499000 NIBTREQ EQU NIBFLG1 12500000 NIBLIMIT EQU ISTNIB+42 12501000 NIBEXLST EQU ISTNIB+44 12502000 NIBLMODE EQU ISTNIB+48 12503000 NIBNDAR EQU ISTNIB+56 12504000 DEBBASIC EQU 0 12505000 DEBTCBAD EQU DEBBASIC 12506000 DEBDEBAD EQU DEBBASIC+4 12507000 DEBIRBAD EQU DEBBASIC+8 12508000 DEBOFLGS EQU DEBIRBAD 12509000 DEBOPATB EQU DEBBASIC+12 12510000 DEBFLGS1 EQU DEBBASIC+14 12511000 DEBUSRPG EQU DEBBASIC+16 12512000 DEBRRQ EQU DEBBASIC+20 12513000 DEBECBAD EQU DEBRRQ 12514000 DEBDCBAD EQU DEBBASIC+24 12515000 DEBPROTG EQU DEBDCBAD 12516000 DEBAPPAD EQU DEBBASIC+28 12517000 DEBBASND EQU DEBBASIC+32 12518000 DEBDASD EQU 0 12519000 DEBUCBAD EQU DEBDASD 12520000 DEBACSMD EQU 0 12521000 DEBVOLSQ EQU DEBACSMD 12522000 DEBVOLBT EQU DEBVOLSQ 12523000 DEBDSNM EQU DEBACSMD+4 12524000 DEBUTSAA EQU DEBDSNM 12525000 DEBACS01 EQU 0 12526000 DEBDSNAM EQU DEBACS01 12527000 DEBACS02 EQU 0 12528000 DEBDBLK EQU DEBACS02 12529000 DEBACS03 EQU 0 12530000 DEBACS04 EQU 0 12531000 DEBTBFRA EQU DEBACS04 12532000 DEBTCCWA EQU DEBACS04+4 12533000 DEBACS05 EQU 0 12534000 DEBFUCBA EQU DEBACS05 12535000 DEBLUCBA EQU DEBACS05+4 12536000 DEBACS06 EQU 0 12537000 DEBACS07 EQU 0 12538000 DEBACS08 EQU 0 12539000 DEBSUBNM EQU 0 12540000 DEB EQU 0 12541000 DEBAVT EQU DEB 12542000 DEBEOEA EQU DEBAVT 12543000 DEBEOEAB EQU DEBEOEA 12544000 DEBSIOA EQU DEBAVT+4 12545000 DEBSIOAB EQU DEBSIOA 12546000 DEBPCIA EQU DEBAVT+8 12547000 DEBPCIAB EQU DEBPCIA 12548000 DEBCEA EQU DEBAVT+12 12549000 DEBCEAB EQU DEBCEA 12550000 DEBXCEA EQU DEBAVT+16 12551000 DEBXCEAB EQU DEBXCEA 12552000 DEBPREFX EQU DEB+20 12553000 DEBXTNP EQU DEBPREFX+8 12554000 DEBXTN EQU 0 12555000 DEBXFLG1 EQU DEBXTN+2 12556000 TCBFIX EQU 0 12557000 TCBFRS EQU TCBFIX 12558000 TCB EQU 0 12559000 TCBPIE EQU TCB+4 12560000 TCBPMASK EQU TCBPIE 12561000 TCBTIO EQU TCB+12 12562000 TCBCMP EQU TCB+16 12563000 TCBCMPF EQU TCBCMP 12564000 TCBCPP EQU TCBCMPF 12565000 TCBSTCC EQU TCBCMPF 12566000 TCBCDBL EQU TCBCMPF 12567000 TCBCWTO EQU TCBCMPF 12568000 TCBCIND EQU TCBCMPF 12569000 TCBCMSG EQU TCBCMPF 12570000 TCBTRN EQU TCB+20 12571000 TCBABF EQU TCBTRN 12572000 TCBMSS EQU TCB+24 12573000 TCBPKF EQU TCB+28 12574000 TCBFLGS EQU TCB+29 12575000 TCBFLGS1 EQU TCBFLGS 12576000 TCBFLGS2 EQU TCBFLGS+1 12577000 TCBFLGS3 EQU TCBFLGS+2 12578000 TCBFLGS4 EQU TCBFLGS+3 12579000 TCBFLGS5 EQU TCBFLGS+4 12580000 TCBABWF EQU TCBFLGS5 12581000 TCBFTJST EQU TCB+44 12582000 TCBPURGE EQU TCBFTJST 12583000 TCBGRS EQU TCB+48 12584000 TCBFSA EQU TCB+112 12585000 TCBTME EQU TCB+120 12586000 TCBPIB EQU TCB+124 12587000 TCBPIBT EQU TCBPIB 12588000 TCBTSFLG EQU TCB+148 12589000 TCBTSTSK EQU TCBTSFLG 12590000 TCBFTFLG EQU TCB+153 12591000 TCBFTFL1 EQU TCBFTFLG 12592000 TCBFTFL2 EQU TCBFTFLG+1 12593000 TCBFTFL3 EQU TCBFTFLG+2 12594000 TCBSTAB EQU TCB+160 12595000 TCBNSTAE EQU TCBSTAB 12596000 TCBTCT EQU TCB+164 12597000 TCBTCTGF EQU TCBTCT 12598000 TCBSCNDY EQU TCB+172 12599000 TCBNDSP EQU TCBSCNDY 12600000 TCBNDSP1 EQU TCBNDSP+1 12601000 TCBNDSP2 EQU TCBNDSP+2 12602000 TCBNDSP3 EQU TCBNDSP+3 12603000 TCBJSCB EQU TCB+180 12604000 TCBRECDE EQU TCBJSCB 12605000 TCBEXT1 EQU TCB+196 12606000 TCBBITS EQU TCB+200 12607000 TCBNDSP4 EQU TCBBITS 12608000 TCBNDSP5 EQU TCBBITS+1 12609000 TCBFLGS6 EQU TCBBITS+2 12610000 TCBFLGS7 EQU TCBBITS+3 12611000 TCBDAR EQU TCB+204 12612000 TCBDARC EQU TCBDAR 12613000 TCBEXT2 EQU TCB+208 12614000 TCBARB EQU TCB+220 12615000 TCBTTQE EQU TCB+224 12616000 TCBXTNT2 EQU 0 12617000 TCBGTF EQU TCBXTNT2 12618000 TCBTFLG EQU TCBGTF 12619000 TIOT1 EQU 0 12620000 TIOENTRY EQU 0 12621000 TIOESTTA EQU TIOENTRY+1 12622000 TIOERLOC EQU TIOENTRY+2 12623000 TIOELINK EQU TIOERLOC+1 12624000 TIOESYOT EQU TIOELINK 12625000 TIOEDDNM EQU TIOENTRY+4 12626000 TIOESTTC EQU TIOENTRY+15 12627000 TIOESTTB EQU TIOENTRY+16 12628000 POOLSTAR EQU TIOENTRY+20 12629000 USERAREA EQU 0 12630000 RETADDR EQU USERAREA+12 12631000 GMANS EQU RETADDR 12632000 TESTCC EQU GMANS 12633000 GMPL EQU USERAREA+16 12634000 GMLEN EQU GMPL 12635000 GMAPTR EQU GMPL+4 12636000 BITSTINS EQU GMAPTR 12637000 SHOWUSE EQU BITSTINS 12638000 TSTOP EQU SHOWUSE 12639000 MASK EQU SHOWUSE+1 12640000 REG1SAVE EQU GMPL+8 12641000 EXBITABL EQU REG1SAVE 12642000 GMMODE EQU EXBITABL 12643000 EXBIT1 EQU GMMODE 12644000 EXBIT2 EQU GMMODE 12645000 EXBIT3 EQU GMMODE 12646000 EXBIT4 EQU GMMODE 12647000 EXBIT5 EQU GMMODE 12648000 EXBIT6 EQU GMMODE 12649000 EXBIT7 EQU GMMODE 12650000 EXBIT8 EQU GMMODE 12651000 GMSP EQU EXBITABL+1 12652000 EXBIT9 EQU GMSP 12653000 EXBIT10 EQU GMSP 12654000 EXBIT11 EQU GMSP 12655000 EXBIT12 EQU GMSP 12656000 EXBIT13 EQU GMSP 12657000 EXBIT14 EQU GMSP 12658000 EXBIT15 EQU GMSP 12659000 EXBIT16 EQU GMSP 12660000 EXBIT17 EQU EXBITABL+2 12661000 EXBIT18 EQU EXBITABL+2 12662000 EXBIT19 EQU EXBITABL+2 12663000 EXBIT20 EQU EXBITABL+2 12664000 EXBIT21 EQU EXBITABL+2 12665000 EXBIT22 EQU EXBITABL+2 12666000 EXBIT23 EQU EXBITABL+2 12667000 EXBIT24 EQU EXBITABL+2 12668000 EXBIT25 EQU EXBITABL+3 12669000 EXBIT26 EQU EXBITABL+3 12670000 EXBIT27 EQU EXBITABL+3 12671000 EXBIT28 EQU EXBITABL+3 12672000 EXBIT29 EQU EXBITABL+3 12673000 EXMAIN EQU EXBIT29 12674000 INEXON EQU EXMAIN 12675000 EXBIT30 EQU EXBITABL+3 12676000 EXMAKEY EQU EXBIT30 12677000 KEYEXON EQU EXMAKEY 12678000 EXBIT31 EQU EXBITABL+3 12679000 EXMASEQ EQU EXBIT31 12680000 REGSAVE EQU REG1SAVE+4 12681000 FTCBTC EQU 0 12682000 VTAMFLG EQU 0 12683000 VTAMSW EQU VTAMFLG 12684000 PARMLIST EQU 0 12685000 PARMPTR EQU PARMLIST 12686000 PLEMPTR EQU PARMPTR 12687000 PHDRPTR EQU PLEMPTR 12688000 PARMFLG EQU PHDRPTR 12689000 EOL EQU PARMFLG 12690000 BATOFFTB EQU 0 12691000 BATON EQU BATOFFTB 12692000 BATOFF EQU BATOFFTB+1 12693000 BATEX EQU BATOFFTB+2 12694000 FWORDFLD EQU 0 12695000 USERFLD EQU 0 12696000 USERDWRD EQU USERFLD 12697000 USERWORD EQU USERDWRD 12698000 USERHWRD EQU USERWORD+2 12699000 USERCHAR EQU USERHWRD+1 12700000 TESTAREA EQU 0 12701000 USTSFLD EQU 0 12702000 SHOWAREA EQU 0 12703000 SHOWWORD EQU 0 12704000 SHOWFLD EQU 0 12705000 EXTECB EQU 0 12706000 ECBPOST EQU EXTECB 12707000 NEWACB EQU 0 12708000 NEWVTACB EQU 0 12709000 NEWRPL EQU 0 12710000 NEWVTRPL EQU 0 12711000 NEWEXLST EQU 0 12712000 NEWVTEXL EQU 0 12713000 NEWNIB EQU 0 12714000 ISTACB EQU 0 12715000 ISTRPL EQU 0 12716000 MODFLD EQU 0 12717000 NEWBLK EQU 0 12718000 PLHKEY EQU 0 12719000 PLHRRN EQU 0 12720000 STFLDLEN EQU 0 12721000 STFLDOFF EQU 0 12722000 PLHEXTEN EQU PLHEND 12723000 PLHBMWRK EQU PLHEXTEN+13 12724000 DEBBAS02 EQU DEBBASND 12725000 DEBDDS1 EQU DEBBAS02 12726000 DEBSUCBA EQU DEBDDS1 12727000 DEBDEVED EQU DEBDDS1+4 12728000 DEBRDCB EQU DEBDDS1+4 12729000 DEBPDCB EQU DEBDDS1+8 12730000 DEBWDCB EQU DEBDDS1+12 12731000 DEBACS09 EQU DEBDEVED 12732000 DEBASC09 EQU DEBACS09 12733000 DEBEAMFG EQU DEBASC09+3 12734000 DEBDSID EQU DEBASC09+4 12735000 DEBEOD EQU DEBASC09+12 12736000 DEBBOE EQU DEBEOD 12737000 DEBEODRV EQU DEBBOE 12738000 DEBEODTT EQU DEBBOE+1 12739000 DEBEOD0 EQU DEBBOE+2 12740000 DEBEODSS EQU DEBBOE+3 12741000 DEBBAS01 EQU DEBBASND 12742000 DEBISAM EQU DEBBAS01 12743000 DEBFIEAD EQU DEBISAM 12744000 DEBFPEAD EQU DEBISAM+4 12745000 DEBFOEAD EQU DEBISAM+8 12746000 DEBEXPT EQU DEBISAM+12 12747000 DEBRPSID EQU DEBEXPT 12748000 TIOEDEVE EQU TIOESTTB 12749000 TIOSTTB EQU TIOEDEVE 12750000 @NM00128 EQU KEYWDTAB 12751000 TYPECD EQU @NM00128 12752000 MACB EQU TYPECD 12753000 SACB EQU TYPECD+1 12754000 TACB EQU TYPECD+2 12755000 MEXLST EQU TYPECD+3 12756000 SEXLST EQU TYPECD+4 12757000 TEXLST EQU TYPECD+5 12758000 MRPL EQU TYPECD+6 12759000 SRPL EQU TYPECD+7 12760000 TRPL EQU TYPECD+8 12761000 MNIB EQU TYPECD+9 12762000 SNIB EQU TYPECD+10 12763000 TNIB EQU TYPECD+11 12764000 FLDLEN EQU TYPECD+12 12765000 FLDOFF EQU TYPECD+13 12766000 BUFCRSC1 EQU BUFCAVL 12767000 AGO .@UNREFD START UNREFERENCED COMPONENTS 12768000 TIOUCBP EQU TIOEDEVE+1 12769000 TIOVERF EQU TIOSTTB 12770000 TIOUNLD EQU TIOSTTB 12771000 TIOMNTD EQU TIOSTTB 12772000 TIOSETU EQU TIOSTTB 12773000 TIOVLSR EQU TIOSTTB 12774000 TIOPVIO EQU TIOSTTB 12775000 TIOREQD EQU TIOSTTB 12776000 TIOUSED EQU TIOSTTB 12777000 DEBEXPTA EQU DEBEXPT+1 12778000 DEBRSV12 EQU DEBRPSID 12779000 DEBRSV11 EQU DEBRPSID 12780000 DEBRSV10 EQU DEBRPSID 12781000 DEBRSV09 EQU DEBRPSID 12782000 DEBRPSAP EQU DEBRPSID 12783000 DEBRPSO EQU DEBRPSID 12784000 DEBRPSI EQU DEBRPSID 12785000 DEBRPSP EQU DEBRPSID 12786000 DEBFOEB EQU DEBFOEAD+1 12787000 DEBNOEE EQU DEBFOEAD 12788000 DEBFPEB EQU DEBFPEAD+1 12789000 DEBNPEE EQU DEBFPEAD 12790000 DEBFIEB EQU DEBFIEAD+1 12791000 DEBNIEE EQU DEBFIEAD 12792000 DEBBOESS EQU DEBEODSS 12793000 DEBBOE0 EQU DEBEOD0 12794000 DEBBOETT EQU DEBEODTT 12795000 DEBBOERV EQU DEBEODRV 12796000 DEBRV008 EQU DEBDSID+7 12797000 DEBWTPTI EQU DEBDSID+6 12798000 DEBEXDTE EQU DEBDSID 12799000 DEBRV007 EQU DEBEAMFG 12800000 DEBRV006 EQU DEBEAMFG 12801000 DEBRV005 EQU DEBEAMFG 12802000 DEBRV004 EQU DEBEAMFG 12803000 DEBSECVL EQU DEBEAMFG 12804000 DEBVAMSG EQU DEBEAMFG 12805000 DEBDSOPN EQU DEBEAMFG 12806000 DEBMULTI EQU DEBEAMFG 12807000 DEBVSEQU EQU DEBASC09+2 12808000 DEBDSSQL EQU DEBASC09+1 12809000 DEBVOLAC EQU DEBASC09 12810000 DEBWDCBA EQU DEBWDCB+1 12811000 DEBRSV08 EQU DEBWDCB 12812000 DEBPDCBA EQU DEBPDCB+1 12813000 DEBRSV07 EQU DEBPDCB 12814000 DEBRDCBA EQU DEBRDCB+1 12815000 DEBRSV06 EQU DEBRDCB 12816000 DEBSUCBB EQU DEBSUCBA+1 12817000 DEBSDVM EQU DEBSUCBA 12818000 PLHBMSV5 EQU PLHEXTEN+32 12819000 PLHBMSV4 EQU PLHEXTEN+28 12820000 PLHBMSV3 EQU PLHEXTEN+24 12821000 PLHBMSV2 EQU PLHEXTEN+20 12822000 PLHBMSV1 EQU PLHEXTEN+16 12823000 PLHRDCNT EQU PLHEXTEN+14 12824000 @NM00048 EQU PLHBMWRK 12825000 PLHBMWF EQU PLHBMWRK 12826000 PLHBRBAF EQU PLHBMWRK 12827000 PLHBEXCF EQU PLHBMWRK 12828000 PLHBINVF EQU PLHBMWRK 12829000 PLHBMSOV EQU PLHBMWRK 12830000 PLHBEUC EQU PLHBMWRK 12831000 PLHBMRDF EQU PLHBMWRK 12832000 @NM00047 EQU PLHEXTEN+12 12833000 PLHRESR1 EQU PLHEXTEN+8 12834000 @NM00046 EQU PLHEXTEN 12835000 ECBWAIT EQU EXTECB 12836000 @NM00130 EQU USERHWRD 12837000 @NM00129 EQU USERWORD 12838000 @NM00127 EQU VTAMFLG 12839000 @NM00126 EQU REGSAVE+40 12840000 @NM00125 EQU REGSAVE+36 12841000 @NM00124 EQU REGSAVE+32 12842000 @NM00123 EQU REGSAVE+28 12843000 @NM00122 EQU REGSAVE+24 12844000 @NM00121 EQU REGSAVE+20 12845000 @NM00120 EQU REGSAVE+16 12846000 @NM00119 EQU REGSAVE+12 12847000 @NM00118 EQU REGSAVE+8 12848000 @NM00117 EQU REGSAVE+4 12849000 @NM00116 EQU REGSAVE 12850000 LSROFF EQU EXBIT8 12851000 @NM00115 EQU USERAREA 12852000 TIOTFEND EQU POOLSTAR+16 12853000 TIOPSLOT EQU POOLSTAR+13 12854000 TIOPSTTB EQU POOLSTAR+12 12855000 TIOPPOOL EQU POOLSTAR+4 12856000 TIOPNSRT EQU POOLSTAR+3 12857000 @NM00112 EQU POOLSTAR+2 12858000 TIOPNSLT EQU POOLSTAR+1 12859000 @NM00111 EQU POOLSTAR 12860000 TIOEFSRT EQU TIOENTRY+17 12861000 TIOSVERF EQU TIOESTTB 12862000 TIOSUNLD EQU TIOESTTB 12863000 TIOSMNTD EQU TIOESTTB 12864000 TIOSSETU EQU TIOESTTB 12865000 TIOSVLSR EQU TIOESTTB 12866000 TIOSPVIO EQU TIOESTTB 12867000 TIOSREQD EQU TIOESTTB 12868000 TIOSUSED EQU TIOESTTB 12869000 TIOSBALS EQU TIOESTTC 12870000 TIOSBALP EQU TIOESTTC 12871000 TIOSVOLS EQU TIOESTTC 12872000 TIOSVOLP EQU TIOESTTC 12873000 TIOSAFFS EQU TIOESTTC 12874000 TIOSAFFP EQU TIOESTTC 12875000 TIOSDEFR EQU TIOESTTC 12876000 TIOSDKCR EQU TIOESTTC 12877000 TIOEJFCB EQU TIOENTRY+12 12878000 TIOTREM EQU TIOELINK 12879000 TIOESSDS EQU TIOESYOT 12880000 TIOESYIN EQU TIOELINK 12881000 TIOEQNAM EQU TIOELINK 12882000 TIOEDYNM EQU TIOELINK 12883000 TIOTTERM EQU TIOELINK 12884000 TIOTRV01 EQU TIOELINK 12885000 TIOSYOUT EQU TIOELINK 12886000 TIOEWTCT EQU TIOERLOC 12887000 TIOSDSP2 EQU TIOESTTA 12888000 TIOSDSP1 EQU TIOESTTA 12889000 TIOSLABL EQU TIOESTTA 12890000 TIOSDADS EQU TIOESTTA 12891000 TIOSJBLB EQU TIOESTTA 12892000 TIOSPLTS EQU TIOESTTA 12893000 TIOSPLTP EQU TIOESTTA 12894000 TIOSLTYP EQU TIOESTTA 12895000 TIOELNGH EQU TIOENTRY 12896000 TIOCSTEP EQU TIOT1+8 12897000 TIOCNJOB EQU TIOT1 12898000 @NM00110 EQU TCBXTNT2+16 12899000 TCBRSV49 EQU TCBXTNT2+12 12900000 TCBEVENT EQU TCBXTNT2+8 12901000 TCBRCMP EQU TCBXTNT2+5 12902000 TCBRSVAB EQU TCBXTNT2+4 12903000 TCBGTFA EQU TCBGTF+1 12904000 TCBRSV47 EQU TCBTFLG 12905000 TCBRSV46 EQU TCBTFLG 12906000 TCBRSV45 EQU TCBTFLG 12907000 TCBRSV44 EQU TCBTFLG 12908000 TCBRSV43 EQU TCBTFLG 12909000 TCBDSPIT EQU TCBTFLG 12910000 TCBERRTN EQU TCBTFLG 12911000 TCBASYNC EQU TCBTFLG 12912000 @NM00109 EQU TCB+232 12913000 TCBRV190 EQU TCB+229 12914000 TCBSVCA1 EQU TCB+228 12915000 TCBJSONQ EQU TCBTTQE 12916000 TCBARBA EQU TCBARB+1 12917000 TCBRSV85 EQU TCBARB 12918000 TCBGQE EQU TCB+216 12919000 TCBPCB EQU TCB+212 12920000 TCBEXT2A EQU TCBEXT2+1 12921000 TCBRSV39 EQU TCBEXT2 12922000 TCBSTMCT EQU TCB+207 12923000 TCBSYSCT EQU TCB+206 12924000 TCBRSV37 EQU TCB+205 12925000 TCBEXSVC EQU TCBDAR 12926000 TCBDARMS EQU TCBDAR 12927000 TCBDARWT EQU TCBDAR 12928000 TCBDARO EQU TCBDAR 12929000 TCBDARMC EQU TCBDARC 12930000 TCBDARD EQU TCBDAR 12931000 TCBDARS EQU TCBDAR 12932000 TCBDARP EQU TCBDAR 12933000 TCBGTOFM EQU TCBFLGS7 12934000 TCBRSV84 EQU TCBFLGS7 12935000 TCBRSV83 EQU TCBFLGS7 12936000 TCBSVCS EQU TCBFLGS7 12937000 TCBFWDD EQU TCBFLGS7 12938000 TCBFDDEI EQU TCBFLGS7 12939000 TCBFDDT EQU TCBFLGS7 12940000 TCBFDD EQU TCBFLGS7 12941000 TCBSTIJS EQU TCBFLGS6 12942000 TCBDSINQ EQU TCBFLGS6 12943000 TCBRUNJB EQU TCBFLGS6 12944000 TCBRUNPN EQU TCBFLGS6 12945000 TCBFPROT EQU TCBFLGS6 12946000 TCBPANIC EQU TCBFLGS6 12947000 TCBPIE17 EQU TCBFLGS6 12948000 TCBRV EQU TCBFLGS6 12949000 TCBRSV79 EQU TCBNDSP5 12950000 TCBRSV78 EQU TCBNDSP5 12951000 TCBRSV77 EQU TCBNDSP5 12952000 TCBRSV76 EQU TCBNDSP5 12953000 TCBRSV75 EQU TCBNDSP5 12954000 TCBRSV74 EQU TCBNDSP5 12955000 TCBNDGTF EQU TCBNDSP5 12956000 TCBNDSPL EQU TCBNDSP5 12957000 TCBRSV93 EQU TCBNDSP4 12958000 TCBRSV92 EQU TCBNDSP4 12959000 TCBRSV91 EQU TCBNDSP4 12960000 TCBRSV90 EQU TCBNDSP4 12961000 TCBRSV89 EQU TCBNDSP4 12962000 TCBRSV88 EQU TCBNDSP4 12963000 TCBRSV87 EQU TCBNDSP4 12964000 TCBRSV86 EQU TCBNDSP4 12965000 TCBEXT1A EQU TCBEXT1+1 12966000 TCBRSV32 EQU TCBEXT1 12967000 TCBEXCPD EQU TCB+192 12968000 TCBIOBRC EQU TCB+188 12969000 TCBDDWTC EQU TCB+186 12970000 TCBDDEXC EQU TCB+184 12971000 TCBJSCBB EQU TCBJSCB+1 12972000 @NM00108 EQU TCBRECDE 12973000 TCBREC EQU TCBRECDE 12974000 TCBMDIDS EQU TCB+176 12975000 TCBRSV28 EQU TCBNDSP3 12976000 TCBRSV27 EQU TCBNDSP3 12977000 TCBRSV26 EQU TCBNDSP3 12978000 TCBRSV25 EQU TCBNDSP3 12979000 TCBRSV24 EQU TCBNDSP3 12980000 TCBNDSDA EQU TCBNDSP3 12981000 TCBABTER EQU TCBNDSP3 12982000 TCBTERM EQU TCBNDSP3 12983000 TCBABE EQU TCBNDSP2 12984000 TCBDSS EQU TCBNDSP2 12985000 TCBOWAIT EQU TCBNDSP2 12986000 TCBIWAIT EQU TCBNDSP2 12987000 TCBNDTS EQU TCBNDSP2 12988000 TCBNDSVC EQU TCBNDSP2 12989000 TCBSTPP EQU TCBNDSP2 12990000 TCBABD EQU TCBNDSP2 12991000 TCBRSV22 EQU TCBNDSP1 12992000 TCBPIEND EQU TCBNDSP1 12993000 TCBTPSP EQU TCBNDSP1 12994000 TCBDDRND EQU TCBNDSP1 12995000 TCBRSPND EQU TCBNDSP1 12996000 TCBRSTND EQU TCBNDSP1 12997000 TCBDARPN EQU TCBNDSP1 12998000 TCBDARTN EQU TCBNDSP1 12999000 TCBNDSP0 EQU TCBNDSP 13000000 TCBUSER EQU TCB+168 13001000 TCBTCTB EQU TCBTCT+1 13002000 TCBRSV9C EQU TCBTCTGF 13003000 TCBRSV9B EQU TCBTCTGF 13004000 TCBRSV9A EQU TCBTCTGF 13005000 TCBRSV99 EQU TCBTCTGF 13006000 TCBRSV98 EQU TCBTCTGF 13007000 TCBRSV97 EQU TCBTCTGF 13008000 TCBRSV20 EQU TCBTCTGF 13009000 TCBSMFGF EQU TCBTCTGF 13010000 TCBSTABB EQU TCBSTAB+1 13011000 TCBVALID EQU TCBNSTAE 13012000 TCBRETRY EQU TCBNSTAE 13013000 TCBSUPER EQU TCBNSTAE 13014000 TCBHALT EQU TCBNSTAE 13015000 TCBSCAT EQU TCBNSTAE 13016000 TCBXCTL EQU TCBNSTAE 13017000 TCBQUIES EQU TCBNSTAE 13018000 TCBSTABE EQU TCBNSTAE 13019000 TCBDDRTI EQU TCB+156 13020000 TCBRSV73 EQU TCBFTFL3 13021000 TCBRSV72 EQU TCBFTFL3 13022000 TCBFTDUM EQU TCBFTFL3 13023000 TCBRSV71 EQU TCBFTFL3 13024000 TCBRSV70 EQU TCBFTFL3 13025000 TCBRSV69 EQU TCBFTFL3 13026000 TCBRSV68 EQU TCBFTFL3 13027000 TCBRSV67 EQU TCBFTFL3 13028000 TCBRSV66 EQU TCBFTFL2 13029000 TCBSYSAB EQU TCBFTFL2 13030000 TCBFDSOP EQU TCBFTFL2 13031000 TCBRSV65 EQU TCBFTFL2 13032000 TCBLPAGE EQU TCBFTFL2 13033000 TCBDDEN EQU TCBFTFL2 13034000 TCBRSV62 EQU TCBFTFL2 13035000 TCBRSV61 EQU TCBFTFL2 13036000 TCBENQ EQU TCBFTFL1 13037000 TCBFTCOM EQU TCBFTFL1 13038000 TCBFTTOP EQU TCBFTFL1 13039000 TCBRSV60 EQU TCBFTFL1 13040000 TCBRSV59 EQU TCBFTFL1 13041000 TCBRWTOR EQU TCBFTFL1 13042000 TCBVTAM EQU TCBFTFL1 13043000 TCBTCAM EQU TCBFTFL1 13044000 TCBFTLMP EQU TCB+152 13045000 TCBTSDP EQU TCB+151 13046000 TCBTSLP EQU TCB+150 13047000 TCBSTPCT EQU TCB+149 13048000 TCBCPUBN EQU TCBTSFLG 13049000 TCBDYDSP EQU TCBTSFLG 13050000 TCBRSV18 EQU TCBTSFLG 13051000 TCBRSV17 EQU TCBTSFLG 13052000 TCBTIOTG EQU TCBTSFLG 13053000 TCBATT EQU TCBTSFLG 13054000 TCBSTPPR EQU TCBTSFLG 13055000 TCBRV300 EQU TCBTSTSK 13056000 TCBECB EQU TCB+144 13057000 TCBIQE EQU TCB+140 13058000 TCBLTC EQU TCB+136 13059000 TCBOTC EQU TCB+132 13060000 TCBNTC EQU TCB+128 13061000 TCBPIBA EQU TCBPIB+1 13062000 TCBSCHED EQU TCBPIBT 13063000 TCBWRITE EQU TCBPIBT 13064000 TCBSCHTI EQU TCBPIBT 13065000 TCBRSV54 EQU TCBPIBT 13066000 TCBSTOP EQU TCBPIBT 13067000 TCBSIZE EQU TCBPIBT 13068000 TCBPART EQU TCBPIBT 13069000 TCBTQET EQU TCBTME 13070000 TCBTCB EQU TCB+116 13071000 TCBFSAB EQU TCBFSA+1 13072000 TCBIDF EQU TCBFSA 13073000 TCBGRS9 EQU TCBGRS+60 13074000 TCBGRS8 EQU TCBGRS+56 13075000 TCBGRS7 EQU TCBGRS+52 13076000 TCBGRS6 EQU TCBGRS+48 13077000 TCBGRS5 EQU TCBGRS+44 13078000 TCBGRS4 EQU TCBGRS+40 13079000 TCBGRS3 EQU TCBGRS+36 13080000 TCBGRS2 EQU TCBGRS+32 13081000 TCBGRS1 EQU TCBGRS+28 13082000 TCBGRS0 EQU TCBGRS+24 13083000 TCBGRS15 EQU TCBGRS+20 13084000 TCBGRS14 EQU TCBGRS+16 13085000 TCBGRS13 EQU TCBGRS+12 13086000 TCBGRS12 EQU TCBGRS+8 13087000 TCBGRS11 EQU TCBGRS+4 13088000 TCBGRS10 EQU TCBGRS 13089000 TCBFTJSA EQU TCBFTJST+1 13090000 TCBRSV15 EQU TCBPURGE 13091000 TCBRSV14 EQU TCBPURGE 13092000 TCBRSV13 EQU TCBPURGE 13093000 TCBRSV12 EQU TCBPURGE 13094000 TCBRSV11 EQU TCBPURGE 13095000 TCBRSV10 EQU TCBPURGE 13096000 TCBRSV09 EQU TCBPURGE 13097000 TCBJPQF EQU TCBPURGE 13098000 TCBJLB EQU TCB+40 13099000 TCBLLS EQU TCB+36 13100000 TCBDSP EQU TCB+35 13101000 TCBLMP EQU TCB+34 13102000 TCBPNDSP EQU TCBFLGS5 13103000 TCBFCD1 EQU TCBFLGS5 13104000 TCBSTP EQU TCBFLGS5 13105000 TCBSYS EQU TCBFLGS5 13106000 TCBANDSP EQU TCBFLGS5 13107000 TCBPAGE EQU TCBFLGS5 13108000 TCBUXNDF EQU TCBABWF 13109000 TCBFC EQU TCBFLGS5 13110000 TCBONDSP EQU TCBFLGS4 13111000 TCBMPCND EQU TCBFLGS4 13112000 TCBMPCVQ EQU TCBFLGS4 13113000 TCBUXNDV EQU TCBFLGS4 13114000 TCBHNDSP EQU TCBFLGS4 13115000 TCBRQENA EQU TCBFLGS4 13116000 TCBSER EQU TCBFLGS4 13117000 TCBNDUMP EQU TCBFLGS4 13118000 TCBRSV53 EQU TCBFLGS3 13119000 TCBPKCHG EQU TCBFLGS3 13120000 TCBSCHAB EQU TCBFLGS3 13121000 TCBFLREG EQU TCBFLGS3 13122000 TCBRSV52 EQU TCBFLGS3 13123000 TCBSYSER EQU TCBFLGS3 13124000 TCBRSV51 EQU TCBFLGS3 13125000 TCBFSM EQU TCBFLGS3 13126000 TCBFTS EQU TCBFLGS2 13127000 TCBFETXR EQU TCBFLGS2 13128000 TCBRSV50 EQU TCBFLGS2 13129000 TCBFJMC EQU TCBFLGS2 13130000 TCBFSMC EQU TCBFLGS2 13131000 TCBFABOP EQU TCBFLGS2 13132000 TCBFSTI EQU TCBFLGS2 13133000 TCBSYSTK EQU TCBFLGS2 13134000 TCBFX EQU TCBFLGS1 13135000 TCBFS EQU TCBFLGS1 13136000 TCBPOOL EQU TCBFLGS1 13137000 TCBDMPA EQU TCBFLGS1 13138000 TCBJSTE EQU TCBFLGS1 13139000 TCBABTRM EQU TCBFLGS1 13140000 TCBFE EQU TCBFLGS1 13141000 TCBFA EQU TCBFLGS1 13142000 TCBZERO EQU TCBPKF 13143000 TCBFLAG EQU TCBPKF 13144000 TCBMSSB EQU TCBMSS+1 13145000 TCBRSV03 EQU TCBMSS 13146000 TCBTRNB EQU TCBTRN+1 13147000 TCBRSV02 EQU TCBABF 13148000 TCBOLTEP EQU TCBABF 13149000 TCBTCP EQU TCBABF 13150000 TCBTCPP EQU TCBABF 13151000 TCBRSV01 EQU TCBABF 13152000 TCBGRPH EQU TCBABF 13153000 TCBNOCHK EQU TCBABF 13154000 TCBMOD91 EQU TCBABF 13155000 TCBCMPC EQU TCBCMP+1 13156000 TCBRV318 EQU TCBCMSG 13157000 TCBRV317 EQU TCBCIND 13158000 TCBRV316 EQU TCBCWTO 13159000 TCBCASID EQU TCBCDBL 13160000 TCBNOCC EQU TCBSTCC 13161000 TCBDMPO EQU TCBCPP 13162000 TCBCSTEP EQU TCBCMPF 13163000 TCBCREQ EQU TCBCMPF 13164000 TCBDEB EQU TCB+8 13165000 TCBPIEA EQU TCBPIE+1 13166000 TCBPM EQU TCBPMASK 13167000 @NM00107 EQU TCBPMASK 13168000 TCBRBP EQU TCB 13169000 TCBFRS6 EQU TCBFRS+24 13170000 TCBFRS4 EQU TCBFRS+16 13171000 TCBFRS2 EQU TCBFRS+8 13172000 TCBFRS0 EQU TCBFRS 13173000 DEBXSAMB EQU DEBXTN+28 13174000 DEBXOPNJ EQU DEBXTN+24 13175000 DEBXXARG EQU DEBXTN+20 13176000 DEBXMCF2 EQU DEBXTN+19 13177000 DEBXMCF1 EQU DEBXTN+18 13178000 DEBXDSO2 EQU DEBXTN+17 13179000 DEBXDSO1 EQU DEBXTN+16 13180000 DEBXDBPR EQU DEBXTN+12 13181000 DEBXDCBM EQU DEBXTN+8 13182000 DEBXDSAB EQU DEBXTN+4 13183000 DEBXRV48 EQU DEBXTN+3 13184000 DEBXRV47 EQU DEBXFLG1 13185000 DEBXRV46 EQU DEBXFLG1 13186000 DEBXRV45 EQU DEBXFLG1 13187000 DEBXRV44 EQU DEBXFLG1 13188000 DEBXRV43 EQU DEBXFLG1 13189000 DEBXDSSI EQU DEBXFLG1 13190000 DEBXTSKC EQU DEBXFLG1 13191000 DEBXCDCB EQU DEBXFLG1 13192000 DEBXLNGH EQU DEBXTN 13193000 DEBTBLOF EQU DEBPREFX+14 13194000 DEBAMTYP EQU DEBPREFX+13 13195000 DEBLNGTH EQU DEBPREFX+12 13196000 DEBDCBMK EQU DEBXTNP 13197000 DEBDSCBA EQU DEBPREFX+1 13198000 DEBWKARA EQU DEBPREFX 13199000 DEBXCEAD EQU DEBXCEA+1 13200000 DEBXCENP EQU DEBXCEAB 13201000 DEBRSV35 EQU DEBXCEAB 13202000 DEBRSV34 EQU DEBXCEAB 13203000 DEBRSV33 EQU DEBXCEAB 13204000 DEBRSV32 EQU DEBXCEAB 13205000 DEBCEAD EQU DEBCEA+1 13206000 DEBCENP EQU DEBCEAB 13207000 DEBRSV31 EQU DEBCEAB 13208000 DEBRSV30 EQU DEBCEAB 13209000 DEBRSV29 EQU DEBCEAB 13210000 DEBRSV28 EQU DEBCEAB 13211000 DEBPCIAD EQU DEBPCIA+1 13212000 DEBPCINP EQU DEBPCIAB 13213000 DEBRSV27 EQU DEBPCIAB 13214000 DEBRSV26 EQU DEBPCIAB 13215000 DEBRSV25 EQU DEBPCIAB 13216000 DEBRSV24 EQU DEBPCIAB 13217000 DEBSIOAD EQU DEBSIOA+1 13218000 DEBSIONP EQU DEBSIOAB 13219000 DEBFIX EQU DEBSIOAB 13220000 DEBIOVR EQU DEBSIOAB 13221000 DEBSIOX EQU DEBSIOAB 13222000 DEBPGFX EQU DEBSIOAB 13223000 DEBEOEAD EQU DEBEOEA+1 13224000 DEBEOENP EQU DEBEOEAB 13225000 DEBRSV22 EQU DEBEOEAB 13226000 DEBRSV21 EQU DEBEOEAB 13227000 DEBRSV20 EQU DEBEOEAB 13228000 DEBESMVR EQU DEBEOEAB 13229000 DEBSUBID EQU DEBSUBNM 13230000 DEBSIOA2 EQU DEBACS08+24 13231000 DEBRPSIO EQU DEBACS08+20 13232000 DEBFREED EQU DEBACS08+16 13233000 @NM00106 EQU DEBACS08+12 13234000 @NM00105 EQU DEBACS08+8 13235000 DEBDISAD EQU DEBACS08+4 13236000 @NM00104 EQU DEBACS08 13237000 DEBRPSST EQU DEBACS07+64 13238000 DEBARECK EQU DEBACS07+60 13239000 DEBAREWT EQU DEBACS07+56 13240000 DEBACHK EQU DEBACS07+52 13241000 DEBAWRIT EQU DEBACS07+48 13242000 DEBASETL EQU DEBACS07+44 13243000 DEBAREAD EQU DEBACS07+40 13244000 DEBCRECK EQU DEBACS07+36 13245000 DEBCREWT EQU DEBACS07+32 13246000 DEBCCHK EQU DEBACS07+28 13247000 DEBCWRIT EQU DEBACS07+24 13248000 DEBCSETL EQU DEBACS07+20 13249000 DEBCREAD EQU DEBACS07+16 13250000 DEBWKPT5 EQU DEBACS07+12 13251000 DEBWKPT4 EQU DEBACS07+8 13252000 DEBGET EQU DEBACS07+4 13253000 @NM00103 EQU DEBACS07 13254000 DEBPUT EQU DEBACS06+4 13255000 DEBDCBFA EQU DEBACS06 13256000 DEBLUCBB EQU DEBLUCBA+1 13257000 DEBRSV18 EQU DEBLUCBA 13258000 DEBFUCBB EQU DEBFUCBA+1 13259000 DEBRSV17 EQU DEBFUCBA 13260000 DEBTCCWB EQU DEBTCCWA+1 13261000 DEBRSV16 EQU DEBTCCWA 13262000 DEBTBFRB EQU DEBTBFRA+1 13263000 DEBRSV15 EQU DEBTBFRA 13264000 DEBDBPEF EQU DEBACS03+8 13265000 DEBDBPP EQU DEBACS03+4 13266000 DEBDTPP EQU DEBACS03 13267000 DEBDBPE EQU DEBDBLK+1 13268000 DEBDBPT EQU DEBDBLK 13269000 DEBEXTNM EQU DEBDSNAM 13270000 DEBLRECL EQU DEBACSMD+14 13271000 DEBBLKSI EQU DEBACSMD+12 13272000 DEBRSV14 EQU DEBDSNM+4 13273000 DEBUTSAB EQU DEBUTSAA+1 13274000 DEBRSV13 EQU DEBUTSAA 13275000 DEBVOLNM EQU DEBACSMD+2 13276000 DEBVLSEQ EQU DEBVOLSQ+1 13277000 DEBRSV42 EQU DEBVOLBT 13278000 DEBRSV41 EQU DEBVOLBT 13279000 DEBRSV40 EQU DEBVOLBT 13280000 DEBRSV39 EQU DEBVOLBT 13281000 DEBRSV38 EQU DEBVOLBT 13282000 DEBRSV37 EQU DEBVOLBT 13283000 DEBRSV36 EQU DEBVOLBT 13284000 DEBEXFUL EQU DEBVOLBT 13285000 DEBNMTRK EQU DEBDASD+14 13286000 DEBENDHH EQU DEBDASD+12 13287000 DEBENDCC EQU DEBDASD+10 13288000 DEBSTRHH EQU DEBDASD+8 13289000 DEBSTRCC EQU DEBDASD+6 13290000 DEBBINUM EQU DEBDASD+4 13291000 DEBUCBA EQU DEBUCBAD+1 13292000 DEBDVMOD EQU DEBUCBAD 13293000 DEBAPPB EQU DEBAPPAD+1 13294000 DEBEXSCL EQU DEBAPPAD 13295000 DEBDCBB EQU DEBDCBAD+1 13296000 DEBDEBID EQU DEBPROTG 13297000 DEBECBB EQU DEBECBAD+1 13298000 DEBPRIOR EQU DEBECBAD 13299000 DEBUSRPB EQU DEBUSRPG+1 13300000 DEBNMEXT EQU DEBUSRPG 13301000 DEBRSV05 EQU DEBBASIC+15 13302000 DEBXTNIN EQU DEBFLGS1 13303000 DEBAPFIN EQU DEBFLGS1 13304000 DEBF1CEV EQU DEBFLGS1 13305000 DEBCINDI EQU DEBFLGS1 13306000 DEBRSV02 EQU DEBFLGS1 13307000 DEBRSIOA EQU DEBFLGS1 13308000 DEBEOFDF EQU DEBFLGS1 13309000 DEBPWCKD EQU DEBFLGS1 13310000 DEBQSCNT EQU DEBBASIC+13 13311000 DEBACCS EQU DEBOPATB 13312000 DEBPOSIT EQU DEBOPATB 13313000 DEBZERO EQU DEBOPATB 13314000 DEBABEND EQU DEBOPATB 13315000 DEBIRBB EQU DEBIRBAD+1 13316000 DEBRERR EQU DEBOFLGS 13317000 DEBLABEL EQU DEBOFLGS 13318000 DEBSPLIT EQU DEBOFLGS 13319000 DEBDCB EQU DEBOFLGS 13320000 DEBRLSE EQU DEBOFLGS 13321000 DEBEOF EQU DEBOFLGS 13322000 DEBDISP EQU DEBOFLGS 13323000 DEBDEBB EQU DEBDEBAD+1 13324000 DEBAMLNG EQU DEBDEBAD 13325000 DEBTCBB EQU DEBTCBAD+1 13326000 DEBNMSUB EQU DEBTCBAD 13327000 NIBRESV EQU ISTNIB+60 13328000 @NM00102 EQU ISTNIB+41 13329000 @NM00101 EQU NIBFLG1 13330000 NIBNACLQ EQU NIBFLG1 13331000 NIBSHLTP EQU NIBFLG1 13332000 NIBRSV01 EQU ISTNIB+1 13333000 DEVRSV03 EQU ISTDEVCH+5 13334000 DEVPHYSA EQU ISTDEVCH+4 13335000 DEVCSLPN EQU DEVCHAR3 13336000 DEVCSTCL EQU DEVCHAR3 13337000 DEVCCHEK EQU DEVCHAR3 13338000 DEVCATTN EQU DEVCHAR3 13339000 DEVCSWL EQU DEVFCCTL 13340000 DEVCRVB EQU DEVFCCTL 13341000 DEVCSSL EQU DEVFCCTL 13342000 DEVCBSC EQU DEVFCCTL 13343000 DEVMCODE EQU ISTDEVCH+2 13344000 DEVCHAR2 EQU DEVTCODE 13345000 DEVRSV01 EQU DEVCHAR 13346000 DEVCCTL EQU DEVCHAR 13347000 DEVNNSPT EQU DEVCHAR 13348000 DEVSPS EQU DEVCHAR 13349000 DEVSUBND EQU DEVCHAR 13350000 DEVCONVR EQU DEVCHAR 13351000 DEVOTPUT EQU DEVCHAR 13352000 DEVINPUT EQU DEVCHAR 13353000 PROSRDEF EQU PROSETM4 13354000 PRORSV47 EQU PROSETM4 13355000 PROSCON EQU PROSETM4 13356000 PRORSV46 EQU PROSETM3 13357000 PROSMONT EQU PROSETM3 13358000 PRORSV45 EQU PROSETM3 13359000 PROSNTO EQU PROSETM3 13360000 PRORSV44 EQU PROSETM3 13361000 PRORSV43 EQU PROSETM2 13362000 PROSNTFL EQU PROSETM2 13363000 PRORSV42 EQU PROSETM2 13364000 PRORSV41 EQU PROPROCS 13365000 PRORSV14 EQU PROPROC4 13366000 PRORSV13 EQU PROPROC4 13367000 PRORSV12 EQU PROPROC4 13368000 PRORSV11 EQU PROPROC3 13369000 PROMONT2 EQU PROPROC3 13370000 PROSUBLK EQU PROPROC3 13371000 PRORSV07 EQU PROPROC3 13372000 PRORSV03 EQU PROPROC2 13373000 PROASYIP EQU PROPROC1 13374000 @NM00100 EQU RPLIBSQ 13375000 @NM00099 EQU RPLOBSQ 13376000 @NM00098 EQU RPLCNTSC 13377000 @NM00097 EQU RPLCNTDF 13378000 RPLQI EQU RPLCNTDF 13379000 @NM00096 EQU RPLPOSTV 13380000 @NM00095 EQU RPLVTFL1 13381000 RPLTLGAC EQU RPLVTFL1 13382000 RPLTNDSP EQU RPLVTFL1 13383000 RPLAUTUS EQU RPLVTFL1 13384000 RPLVTUSE EQU RPLVTFL1 13385000 @NM00094 EQU RPLVTFL1 13386000 @NM00093 EQU RPLCHN 13387000 @NM00092 EQU RPLRTYPE 13388000 @NM00091 EQU RPLSTYPE 13389000 @NM00090 EQU RPLRH3 13390000 RPLSAV13 EQU RPLVTEXT+28 13391000 @NM00089 EQU RPLSSEO 13392000 @NM00088 EQU RPLSSEO 13393000 @NM00087 EQU RPLOPT12 13394000 @NM00086 EQU RPLOPT12 13395000 @NM00085 EQU RPLOPT12 13396000 @NM00084 EQU RPLOPT12 13397000 RPLRSVE8 EQU RPLOPT11 13398000 RPLRSVE7 EQU RPLOPT11 13399000 RPLRSVE6 EQU RPLOPT11 13400000 RPLRSVE5 EQU RPLOPT11 13401000 RPLRSVE4 EQU RPLOPT11 13402000 RPLRSVI6 EQU RPLOPT10 13403000 RPLRSVI5 EQU RPLOPT10 13404000 RPLRSVI4 EQU RPLOPT10 13405000 RPLRSVI3 EQU RPLOPT10 13406000 RPLESR2 EQU RPLUSNSI+1 13407000 RPLESR1 EQU RPLUSNSI 13408000 @NM00083 EQU RPLSSEI 13409000 @NM00082 EQU RPLEXTD1 13410000 RPLEXSCH EQU RPLEXTD1 13411000 @NM00081 EQU RPLRBAR+3 13412000 @NM00080 EQU RPLAIXID 13413000 RPLRSV88 EQU RPLOPT8 13414000 RPLODPRM EQU RPLOPT8 13415000 RPLRSV78 EQU RPLOPT7 13416000 RPLTCRNO EQU RPLOPT7 13417000 RPLTPOST EQU RPLOPT7 13418000 RPLCNIMM EQU RPLCNOPT 13419000 RPLRSV68 EQU RPLOPT6 13420000 RPLRSV67 EQU RPLOPT6 13421000 @NM00079 EQU RPLOPT5 13422000 @NM00078 EQU RPLOPT4 13423000 RPLMKFRM EQU RPLOPT4 13424000 RPLENDTR EQU RPLOPT4 13425000 RPLALIGN EQU RPLOPT3 13426000 RPLFMT EQU RPLOPT3 13427000 RPLFLD EQU RPLOPT3 13428000 RPLVFY EQU RPLOPT3 13429000 RPLBLK EQU RPLOPT3 13430000 RPLSFORM EQU RPLOPT3 13431000 RPLEODS EQU RPLOPT3 13432000 RPLWAITX EQU RPLOPT2 13433000 RPLADD EQU RPLADR 13434000 RPLECBIN EQU RPLECBSW 13435000 RPLDAF EQU RPLARG+2 13436000 RPLSAF EQU RPLARG 13437000 RPLTCBPT EQU RPLCOMN+28 13438000 RPLCCHAR EQU RPLCOMN+20 13439000 RPLSV32 EQU RPLFDB3 13440000 RPLSTSAV EQU RPLFDB2 13441000 RPLCUERR EQU RPLFDB2 13442000 RPLDLGFL EQU RPLFDB2 13443000 RPLIOERR EQU RPLFDB2 13444000 RPLDVUNS EQU RPLFDB2 13445000 RPLATND EQU RPLFDB2 13446000 RPLRVID EQU RPLFDB2 13447000 RPLERLK EQU RPLFDB2 13448000 RPLERREG EQU RPLRTNCD 13449000 RPLSTAT EQU RPLFDBWD 13450000 RPLWAIT EQU RPLECB 13451000 RPLPLHPT EQU RPLCOMN+4 13452000 RPLLEN2 EQU RPLLEN 13453000 RPLSTYP EQU RPLIDWD+1 13454000 @NM00077 EQU EXLRESPF 13455000 EXLRESPK EQU EXLRESPF 13456000 EXLRESPA EQU EXLRESPF 13457000 EXLRESPS EQU EXLRESPF 13458000 @NM00076 EQU EXLDFASF 13459000 EXLDFASK EQU EXLDFASF 13460000 EXLDFASA EQU EXLDFASF 13461000 EXLDFASS EQU EXLDFASF 13462000 @NM00075 EQU EXLTNSEF 13463000 EXLTNSEK EQU EXLTNSEF 13464000 EXLTNSEA EQU EXLTNSEF 13465000 EXLTNSES EQU EXLTNSEF 13466000 @NM00074 EQU EXLTPNDF 13467000 EXLTPNDK EQU EXLTPNDF 13468000 EXLTPNDA EQU EXLTPNDF 13469000 EXLTPNDS EQU EXLTPNDF 13470000 @NM00073 EQU EXLATTNF 13471000 EXLATTNK EQU EXLATTNF 13472000 EXLATTNA EQU EXLATTNF 13473000 EXLATTNS EQU EXLATTNF 13474000 @NM00072 EQU EXLVTEXT+10 13475000 @NM00071 EQU EXLRLRQF 13476000 EXLRLRQK EQU EXLRLRQF 13477000 EXLRLRQA EQU EXLRLRQF 13478000 EXLRLRQS EQU EXLRLRQF 13479000 @NM00070 EQU EXLNLGNF 13480000 EXLNLGNK EQU EXLNLGNF 13481000 EXLNLGNA EQU EXLNLGNF 13482000 EXLNLGNS EQU EXLNLGNF 13483000 EXLEADDR EQU EXLEXITP 13484000 @NM00069 EQU EXLENFL 13485000 EXLOPNP EQU EXLCOMN+36 13486000 @NM00068 EQU EXLOPNF 13487000 EXLOPNK EQU EXLOPNF 13488000 EXLOPNA EQU EXLOPNF 13489000 EXLOPNS EQU EXLOPNF 13490000 @NM00067 EQU EXLJRNF 13491000 EXLJRNK EQU EXLJRNF 13492000 EXLJRNA EQU EXLJRNF 13493000 EXLJRNS EQU EXLJRNF 13494000 @NM00066 EQU EXLLGNF 13495000 EXLLGNK EQU EXLLGNF 13496000 EXLLGNA EQU EXLLGNF 13497000 EXLLGNS EQU EXLLGNF 13498000 EXLUPADP EQU EXLSCIPP 13499000 @NM00065 EQU EXLUPADF 13500000 EXLUPADK EQU EXLSCIPK 13501000 EXLUPADA EQU EXLSCIPA 13502000 EXLUPADS EQU EXLSCIPS 13503000 @NM00064 EQU EXLLERF 13504000 EXLLERK EQU EXLLERF 13505000 EXLLERA EQU EXLLERF 13506000 EXLLERS EQU EXLLERF 13507000 @NM00063 EQU EXLSYNF 13508000 EXLSYNK EQU EXLSYNF 13509000 EXLSYNA EQU EXLSYNF 13510000 EXLSYNS EQU EXLSYNF 13511000 @NM00062 EQU EXLEODF 13512000 EXLEODK EQU EXLEODF 13513000 EXLEODA EQU EXLEODF 13514000 EXLEODS EQU EXLEODF 13515000 @NM00061 EQU EXLCOMN+4 13516000 EXLLEN2 EQU EXLLEN 13517000 @NM00060 EQU ACBVTEXT+8 13518000 @NM00059 EQU ACBVTEXT+6 13519000 ACBAMAX EQU ACBAPID 13520000 ACBCBMWA EQU ACBCOMN+68 13521000 ACBLRECL EQU ACBCOMN+62 13522000 @NM00058 EQU ACBUJFCB+1 13523000 ACBOPTN EQU ACBUJFCB 13524000 ACBVVIC EQU ACBINFLG 13525000 ACBIJRQE EQU ACBINFLG 13526000 ACBJEPS EQU ACBINFLG 13527000 @NM00057 EQU ACBINFLG 13528000 ACBBUSY EQU ACBIOSFG 13529000 ACBLOCK EQU ACBEXFG 13530000 @NM00056 EQU ACBOFLGS 13531000 ACBDSERR EQU ACBOFLGS 13532000 ACBEOV EQU ACBOFLGS 13533000 @NM00055 EQU ACBOFLGS 13534000 ACBDEB EQU ACBDDNM+5 13535000 ACBERFL EQU ACBDDNM+4 13536000 ACBAM EQU ACBAMETH 13537000 ACBINFL EQU ACBDDNM+2 13538000 @NM00054 EQU ACBDSORG+1 13539000 ACBDORGA EQU ACBDSORG+1 13540000 @NM00053 EQU ACBDSORG 13541000 ACBCRNRE EQU ACBCROPS 13542000 ACBCRNCK EQU ACBCROPS 13543000 ACBASA EQU ACBCCTYP 13544000 @NM00052 EQU ACBCCTYP 13545000 ACBRECAF EQU ACBRECFM 13546000 ACBJBUF EQU ACBBUFPL+2 13547000 ACBMACR4 EQU ACBBUFPL+1 13548000 @NM00051 EQU ACBMACR3 13549000 @NM00050 EQU ACBMACR3 13550000 @NM00049 EQU ACBMACR2 13551000 ACBBLK EQU ACBCNV 13552000 ACBADD EQU ACBADR 13553000 ACBAMWAP EQU ACBIBCT 13554000 ACBLEN2 EQU ACBLENG2 13555000 PLHRET1X EQU IDAPLH+280 13556000 PLHERRET EQU IDAPLH+276 13557000 PLHASCB EQU IDAPLH+272 13558000 PLHECB EQU IDAPLH+268 13559000 @NM00045 EQU IDAPLH+265 13560000 PLHDRMSK EQU IDAPLH+264 13561000 PLHR13 EQU IDAPLH+260 13562000 PLHPARM1 EQU IDAPLH+256 13563000 PLHDRRSC EQU IDAPLH+252 13564000 PLHSLRBA EQU IDAPLH+244 13565000 PLHSRCSG EQU IDAPLH+242 13566000 PLHNOSEG EQU IDAPLH+240 13567000 PLHLLOR EQU IDAPLH+236 13568000 PLHXPLH EQU PLHWAX 13569000 @NM00044 EQU PLHIXSPL+8 13570000 PLHIXBFC EQU PLHIXSPL+4 13571000 PLHHIREC EQU PLHSSRBA 13572000 PLHISPLP EQU IDAPLH+196 13573000 PLHRBUFC EQU IDAPLH+192 13574000 PLHIBUFC EQU IDAPLH+188 13575000 PLHNRBA EQU IDAPLH+184 13576000 PLHDDDD EQU PLHEOVPT 13577000 PLHAR14 EQU IDAPLH+176 13578000 @NM00043 EQU IDAPLH+172 13579000 @NM00042 EQU IDAPLH+168 13580000 PLHASAVE EQU IDAPLH+164 13581000 PLHRET1 EQU IDAPLH+120 13582000 PLHRETOX EQU IDAPLH+118 13583000 PLHRETO EQU IDAPLH+116 13584000 PLHCHAIN EQU IDAPLH+112 13585000 PLHAMB EQU IDAPLH+108 13586000 PLHSAVE6 EQU IDAPLH+104 13587000 PLHSAVE5 EQU IDAPLH+100 13588000 PLHSAVE4 EQU IDAPLH+96 13589000 PLHSAVE3 EQU IDAPLH+92 13590000 PLHSAVE2 EQU IDAPLH+88 13591000 PLHSAVE1 EQU IDAPLH+84 13592000 PLHARET EQU IDAPLH+80 13593000 PLHIIOB EQU PLHDIOB 13594000 PLHSRSID EQU IDAPLH+74 13595000 PLHRDFC EQU IDAPLH+72 13596000 PLHRDFP EQU IDAPLH+68 13597000 PLHFSP EQU IDAPLH+64 13598000 PLHRECP EQU IDAPLH+60 13599000 PLHNBUFC EQU IDAPLH+56 13600000 PLHDBUFC EQU IDAPLH+52 13601000 PLHLRECL EQU IDAPLH+48 13602000 PLHARDB EQU IDAPLH+44 13603000 @NM00041 EQU IDAPLH+43 13604000 PLHEOVR EQU IDAPLH+42 13605000 PLHRCODE EQU IDAPLH+41 13606000 PLHUCODE EQU PLHJCODE 13607000 PLHJNRBA EQU IDAPLH+36 13608000 PLHCNCL1 EQU PLHJRNLL 13609000 PLHUPECB EQU PLHJORBA 13610000 PLHDSIDA EQU IDAPLH+24 13611000 PLHCRPL EQU IDAPLH+20 13612000 PLHMRPL EQU IDAPLH+16 13613000 PLHBFRNO EQU IDAPLH+15 13614000 PLHFRCNT EQU IDAPLH+14 13615000 PLHRMIN EQU IDAPLH+13 13616000 PLHDSTYP EQU IDAPLH+12 13617000 PLHACB EQU IDAPLH+8 13618000 PLHRAE EQU PLHAFLGS 13619000 PLHRABWD EQU PLHAFLGS 13620000 PLHIOSID EQU PLHAFLGS 13621000 PLHDBDC EQU PLHAFLGS 13622000 PLHVAMB EQU PLHAFLGS 13623000 PLHIOSRQ EQU PLHAFLGS 13624000 PLHDRLM EQU PLHAFLGS 13625000 PLHEOVDF EQU PLHFLG3 13626000 PLHRVRS EQU PLHFLG3 13627000 PLHBWD EQU PLHFLG3 13628000 PLHSLVLD EQU PLHFLG3 13629000 PLHRAHD EQU PLHFLG3 13630000 PLHSRBSG EQU PLHFLG3 13631000 @NM00040 EQU PLHEFLGS+1 13632000 PLHRSTRT EQU PLHEFLGS+1 13633000 PLHDSCAN EQU PLHEFLGS 13634000 PLHINVAL EQU PLHEFLGS 13635000 PLHEODX EQU PLHEFLGS 13636000 PLHNOADV EQU PLHEFLGS 13637000 PLHSRINV EQU PLHEFLGS 13638000 PLHSKPER EQU PLHEFLGS 13639000 PLH1ST EQU PLHEFLGS 13640000 PLHNOSPC EQU PLHEFLGS 13641000 PLHIWAIT EQU PLHFLG2 13642000 PLHSVADV EQU PLHFLG2 13643000 PLHCIINS EQU PLHFLG2 13644000 PLHKRE EQU PLHFLG2 13645000 PLHADDTE EQU PLHFLG2 13646000 PLHKEYMD EQU PLHFLG2 13647000 PLHSQINS EQU PLHFLG2 13648000 PLHUPD EQU PLHFLG2 13649000 PLHSR EQU PLHFLG1 13650000 PLHDRPND EQU PLHFLG1 13651000 PLHASYRQ EQU PLHFLG1 13652000 PLHRDEXC EQU PLHFLG1 13653000 PLHSSR EQU PLHFLG1 13654000 PLHASKBF EQU PLHFLG1 13655000 PLHENDRQ EQU PLHFLG1 13656000 PLHEOVW EQU PLHFLG1 13657000 PLHATV EQU IDAPLH+1 13658000 PLHAVL EQU IDAPLH 13659000 PLHIOSDQ EQU IDAPLHDR+12 13660000 PLHDRCUR EQU IDAPLHDR+10 13661000 PLHDRREQ EQU IDAPLHDR+4 13662000 PLHELTH EQU IDAPLHDR+2 13663000 PLHCNT EQU IDAPLHDR+1 13664000 PLHID EQU IDAPLHDR 13665000 BUFCEND EQU IDABUFC+64 13666000 BUFCUCDN EQU IDABUFC+60 13667000 BUFCUCUP EQU IDABUFC+56 13668000 BUFCMDBT EQU IDABUFC+52 13669000 BUFCHAIN EQU IDABUFC+48 13670000 BUFXORBA EQU IDABUFC+44 13671000 BUFXIRBA EQU IDABUFC+40 13672000 BUFCNXT2 EQU IDABUFC+37 13673000 BUFCIDXL EQU IDABUFC+36 13674000 BUFCDSPC EQU IDABUFC+32 13675000 BUFCWLEN EQU BUFCINV 13676000 BUFCNXT1 EQU IDABUFC+24 13677000 BUFCBAD EQU IDABUFC+20 13678000 BUFCCPA EQU IDABUFC+16 13679000 BUFCORBA EQU IDABUFC+12 13680000 BUFCDDDD EQU IDABUFC+8 13681000 BUFCAMB EQU BUFCPLH 13682000 @NM00039 EQU BUFCFLG2 13683000 BUFCEOD EQU BUFCFLG2 13684000 BUFCBSYW EQU BUFCFLG2 13685000 BUFCBSYR EQU BUFCFLG2 13686000 BUFCNLAS EQU BUFCFLG2 13687000 BUFCXDDR EQU BUFCFLG2 13688000 BUFCFIX EQU BUFCIOFL 13689000 BUFCPFCP EQU BUFCIOFL 13690000 BUFCXEDB EQU BUFCIOFL 13691000 BUFCWC EQU BUFCIOFL 13692000 BUFCREAL EQU BUFCIOFL 13693000 BUFCRRD EQU BUFCIOFL 13694000 BUFCFMT EQU BUFCIOFL 13695000 BUFCMW EQU BUFCIOFL 13696000 BUFCEPT EQU BUFCFLG1 13697000 BUFCEXC EQU BUFCFLG1 13698000 BUFCVAL EQU BUFCFLG1 13699000 BUFCER2 EQU BUFCFLG1 13700000 BUFCER1 EQU BUFCFLG1 13701000 BUFCINS EQU BUFCFLG1 13702000 BUFCSEG EQU BUFCFLG1 13703000 BUFCUPG EQU BUFCFLG1 13704000 BUFCUCNT EQU BUFCAVL 13705000 @NM00038 EQU IDABUFDR+16 13706000 BUFDBUFC EQU IDABUFDR+12 13707000 @NM00037 EQU BUFDRFLG 13708000 BUFDRAVL EQU BUFDRFLG 13709000 BUFDRREL EQU BUFDRFLG 13710000 BUFDRTSB EQU IDABUFDR+10 13711000 BUFDRMAX EQU BUFDRCIX 13712000 BUFDRPFN EQU IDABUFDR+8 13713000 BUFDRPFB EQU IDABUFDR+4 13714000 BUFDRLEN EQU IDABUFDR+2 13715000 BUFDRID EQU IDABUFDR 13716000 BSPH1ST EQU IDABSPH+60 13717000 BSPHUBTM EQU IDABSPH+56 13718000 BSPHUTOP EQU IDABSPH+52 13719000 BSPHCPLH EQU IDABSPH+32 13720000 BSPHPSUC EQU BSPHCSRC+2 13721000 @NM00036 EQU BSPHCSRC+1 13722000 BSPHPCUC EQU BSPHFLG2 13723000 BSPHAPRT EQU BSPHFLG2 13724000 BSPHBSZ EQU IDABSPH+24 13725000 BSPHMDBT EQU IDABSPH+20 13726000 BSPHBUFC EQU IDABSPH+16 13727000 BSPHERCT EQU IDABSPH+14 13728000 BSPHBFNO EQU IDABSPH+12 13729000 BSPHNBSP EQU IDABSPH+8 13730000 BSPHNM EQU IDABSPH+4 13731000 BSPHLEN EQU IDABSPH+2 13732000 BSPHBFRF EQU BSPHFLG1 13733000 BSPHIOBF EQU BSPHFLG1 13734000 BSPHID EQU IDABSPH 13735000 ARDKEYS EQU IDAARDB+37 13736000 @NM00035 EQU ARDPRF 13737000 ARDPRRC EQU ARDPRF 13738000 ARDPRFMT EQU ARDPRF 13739000 ARDPRSS EQU ARDPRF 13740000 ARDRCLST EQU IDAARDB+32 13741000 ARDRCFST EQU IDAARDB+28 13742000 ARDRELNO EQU IDAARDB+26 13743000 ARDVOLSR EQU IDAARDB+20 13744000 ARDHKRBA EQU IDAARDB+8 13745000 ARDLEN EQU IDAARDB+2 13746000 ARDUPD EQU ARDTYPE 13747000 ARDUSED EQU ARDTYPE 13748000 ARDEOD EQU ARDTYPE 13749000 ARDUOVFL EQU ARDTYPE 13750000 ARDSS EQU ARDTYPE 13751000 ARDHLI EQU ARDTYPE 13752000 ARDKR EQU ARDTYPE 13753000 ARDID EQU IDAARDB 13754000 @NM00034 EQU IDAAMDSB+41 13755000 @NM00033 EQU AMDATTR3 13756000 AMDSPACE EQU AMDATTR3 13757000 AMDLM EQU AMDATTR3 13758000 AMDWAIT EQU AMDATTR3 13759000 AMDBIND EQU AMDATTR3 13760000 AMDFAULT EQU AMDATTR3 13761000 AMDMAXRR EQU AMDSSRBA 13762000 AMDNSLOT EQU AMDHLRBA 13763000 AMDFSCI EQU IDAAMDSB+16 13764000 AMDCIPCA EQU IDAAMDSB+12 13765000 AMDPCTCI EQU IDAAMDSB+11 13766000 AMDPCTCA EQU IDAAMDSB+10 13767000 AMDLEN EQU IDAAMDSB+2 13768000 AMDRANGE EQU AMDATTR 13769000 AMDORDER EQU AMDATTR 13770000 AMDSBID EQU IDAAMDSB 13771000 AMBLCMB EQU IDAAMBL+64 13772000 AMBLBIB EQU IDAAMBL+60 13773000 AMBLMIDS EQU IDAAMBL+42 13774000 AMBLNIDS EQU IDAAMBL+41 13775000 @NM00032 EQU IDAAMBL+40 13776000 AMBLNUM EQU IDAAMBL+38 13777000 AMBLNST EQU IDAAMBL+37 13778000 @NM00031 EQU AMBLFLG2 13779000 AMBLSTAG EQU AMBLFLG2 13780000 @NM00030 EQU AMBLFLG2 13781000 AMBLCAT EQU AMBLFLG1 13782000 AMBLUCRA EQU AMBLFLG1 13783000 AMBLSCRA EQU AMBLFLG1 13784000 AMBLSDS EQU AMBLVVIC 13785000 AMBLUPD EQU AMBLFLG1 13786000 AMBLCINV EQU AMBLFLG1 13787000 AMBLFULL EQU AMBLFLG1 13788000 AMBLLEN EQU IDAAMBL+34 13789000 @NM00029 EQU AMBLSHAR 13790000 AMBLWRIT EQU AMBLSHAR 13791000 AMBLCATO EQU AMBLSHAR 13792000 AMBLPRIM EQU AMBLSHAR 13793000 AMBLID EQU IDAAMBL+32 13794000 @NM00028 EQU AMBLQ2 13795000 AMBLCBIC EQU AMBLQ2 13796000 @NM00027 EQU AMBLTYPE 13797000 AMBLFIX EQU AMBLTYPE 13798000 AMBLUPGR EQU AMBLTYPE 13799000 AMBLENO EQU AMBLVC+1 13800000 AMBLVRT EQU AMBLVC 13801000 AMBLDFR EQU AMBLQ 13802000 AMBLESDS EQU AMBLQ 13803000 AMBLKSDS EQU AMBLQ 13804000 AMBLUBF EQU AMBLQ 13805000 AMBLFSTP EQU AMBLQ 13806000 AMBLLSR EQU AMBLQ 13807000 AMBLGSR EQU AMBLQ 13808000 AMBLDDC EQU AMBLQ 13809000 AMBLDCI EQU AMBLIDF+4 13810000 AMBLCACB EQU AMBLIDF 13811000 @NM00026 EQU AMBLEOV+2 13812000 AMBLCOMP EQU AMBLEOV+1 13813000 AMBLESET EQU AMBLEFLG 13814000 AMBLWAIT EQU AMBLEFLG 13815000 AMBLACB EQU IDAAMBL+8 13816000 AMBLSCHN EQU IDAAMBL+4 13817000 AMBLPCHN EQU IDAAMBL 13818000 AMBXLVL EQU IDAAMBXN+24 13819000 AMBXBM2S EQU IDAAMBXN+20 13820000 AMBXRDCT EQU AMBXCSWD+2 13821000 @NM00025 EQU AMBXCSWD 13822000 AMBXECB EQU IDAAMBXN+12 13823000 AMBXASCB EQU IDAAMBXN+8 13824000 @NM00024 EQU AMBXFLGS 13825000 AMBXUPD EQU AMBXFLGS 13826000 AMBXEVRC EQU AMBXEOV+6 13827000 AMBXEOVR EQU AMBXEOV+5 13828000 AMBXRSC EQU AMBXEOV+4 13829000 AMBXEVPT EQU AMBXEOV 13830000 AMBVIOT EQU IDAAMB+116 13831000 AMBSZCP EQU IDAAMB+114 13832000 AMBSZFW EQU IDAAMB+112 13833000 AMBSZWR EQU IDAAMB+110 13834000 AMBSZRD EQU IDAAMB+108 13835000 AMBEXEX EQU IDAAMB+100 13836000 AMBWSHD EQU IDAAMB+96 13837000 AMBCPA EQU IDAAMB+92 13838000 @NM00023 EQU IDAAMB+88 13839000 @NM00022 EQU AMBCSWD1+2 13840000 @NM00021 EQU AMBCSWD1+1 13841000 @NM00020 EQU AMBAFLG 13842000 AMBCFX EQU AMBAFLG 13843000 AMBSIS EQU AMBAFLG 13844000 AMBDFR EQU AMBAFLG 13845000 AMBICI EQU AMBAFLG 13846000 AMBGSR EQU AMBAFLG 13847000 AMBLSR EQU AMBAFLG 13848000 @NM00019 EQU AMBAFLG 13849000 AMBUPLH EQU IDAAMB+80 13850000 AMBPAMBL EQU IDAAMB+76 13851000 AMBPIXP EQU IDAAMB+72 13852000 AMBVSI EQU @NM00018 13853000 AMBIWA EQU IDAAMB+64 13854000 AMBWKA EQU IDAAMB+60 13855000 AMBEDB EQU IDAAMB+52 13856000 @NM00016 EQU IDAAMB+50 13857000 @NM00015 EQU AMBFLG2 13858000 AMBSHR EQU AMBFLG2 13859000 AMBPUG EQU AMBFLG2 13860000 AMBBUSY EQU AMBOFLGS 13861000 AMBEXFG EQU AMBOFLGS 13862000 @NM00014 EQU AMBOFLGS 13863000 AMBOPEN EQU AMBOFLGS 13864000 @NM00013 EQU AMBOFLGS 13865000 AMBDEBAD EQU AMBDEBPT+1 13866000 AMBIFLGS EQU AMBDEBPT 13867000 AMBAMETH EQU IDAAMB+43 13868000 AMBSDS EQU AMBINFL 13869000 AMBUPX EQU AMBINFL 13870000 AMBUCRA EQU AMBINFL 13871000 AMBSCRA EQU AMBINFL 13872000 AMBCAT EQU AMBINFL 13873000 @NM00012 EQU AMBINFL 13874000 @NM00011 EQU AMBINFL 13875000 AMBTIOT EQU IDAAMB+40 13876000 @NM00010 EQU IDAAMB+38 13877000 AMBDDSN EQU IDAAMB+35 13878000 AMBCDSN EQU IDAAMB+32 13879000 AMBIOMB EQU AMBIOBAD 13880000 @NM00009 EQU AMBDSORG+1 13881000 AMBDORGA EQU AMBDSORG+1 13882000 @NM00008 EQU AMBDSORG 13883000 AMBINBUF EQU AMBFLG1 13884000 AMBJRN EQU AMBFLG1 13885000 AMBUBF EQU AMBFLG1 13886000 AMBSPEED EQU AMBFLG1 13887000 AMBPCAT EQU AMBFLG1 13888000 AMBMCAT EQU AMBFLG1 13889000 AMBTYPE EQU AMBFLG1 13890000 AMBCREAT EQU AMBFLG1 13891000 @NM00007 EQU AMBFLG0 13892000 AMBSWSP EQU AMBFLG0 13893000 AMBPSDS EQU AMBFLG0 13894000 AMBCACB EQU IDAAMB+16 13895000 AMBLINK EQU IDAAMB+4 13896000 AMBLEN EQU IDAAMB+2 13897000 @NM00005 EQU IDAAMB+1 13898000 AMBID EQU IDAAMB 13899000 @NM00004 EQU TEST+12 13900000 TESTOBJ EQU TEST+2 13901000 TESTFTC EQU TEST+1 13902000 TESTBTC EQU TEST 13903000 @NM00003 EQU SHOW+14 13904000 SHOWFTC EQU SHOW+1 13905000 SHOWBTC EQU SHOW 13906000 @NM00002 EQU MODC+2 13907000 MODFTC EQU MODC+1 13908000 @NM00001 EQU GENC+10 13909000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 13910000 @RT00407 EQU INVKEYWD 13911000 @RT00455 EQU INVKEYWD 13912000 @RC00486 EQU @RC00485 13913000 @RT00504 EQU INVKEYWD 13914000 @RC00510 EQU @RC00509 13915000 @RT00577 EQU INVKEYWD 13916000 @RT00617 EQU INVKEYWD 13917000 @RT00645 EQU INVKEYWD 13918000 @RT00670 EQU INVKEYWD 13919000 @RT00694 EQU INVKEYWD 13920000 @RT00719 EQU INVKEYWD 13921000 @RT00744 EQU INVKEYWD 13922000 @RT00769 EQU INVKEYWD 13923000 @RT00794 EQU INVKEYWD 13924000 @RT00819 EQU INVKEYWD 13925000 @RT00848 EQU INVKEYWD 13926000 @RT00877 EQU INVKEYWD 13927000 @RT00906 EQU INVKEYWD 13928000 @RT00925 EQU FUNCERR 13929000 @RF00945 EQU INVKEYWD 13930000 @RC00973 EQU EXITBAD 13931000 @RT01516 EQU INVKEYWD 13932000 @RF01526 EQU @RC01518 13933000 @RT01538 EQU MODBITST 13934000 @RT01571 EQU TSTBITST 13935000 @RT01604 EQU MODBITST 13936000 @RT01620 EQU TSTBITST 13937000 @RT01719 EQU DSPFIELD 13938000 @RT01732 EQU TSTFIELD 13939000 @RF01791 EQU @RC01788 13940000 @ENDDATA EQU * 13941000 END IDA019C1,(C'PLS1729',0701,77308) 13942000