TITLE 'ISTORFPO BUFFER POOL BUILD ROUTINE FOR STORAGE MANAGEME*00001000 ENT ' 00002000 ISTORFPO CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTORFPO 77.083' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 BALR R15,0 00011000 USING *,15 00012000 STM 0,14,USERSAV 00013000 DROP 15 00014000 BALR R12,0 00015000 USING *,R12 00016000 * SAVREG=ADDR(SAV1); 0926 00017000 LA SAVREG,SAV1 0926 00018000 * RC=0; /* SET RC */ 00019000 SLR @14,@14 0927 00020000 ST @14,RC 0927 00021000 * PREG3=R3; /* PUT FLAGS IN AREA FOR REFER */ 00022000 ST R3,PREG3 0928 00023000 * ATCVTPTR=R5; /* GET ADDR OF ATCVT */ 00024000 ST R5,ATCVTPTR 0929 00025000 * RFY 0930 00026000 * R5 UNRSTD; 0930 00027000 * BPDPTR=ATCBPDA; /* GET BUFFER POOL DIRECTORY ADDR*/ 00028000 L @04,ATCVTPTR 0931 00029000 L BPDPTR,ATCBPDA(,@04) 0931 00030000 * IF DELPOOL='1'B THEN /* IS REQUEST TO DELETE */ 00031000 * 0932 00032000 TM DELPOOL,B'10000000' 0932 00033000 BNO @RF00932 0932 00034000 * /***************************************************************/ 00035000 * /* */ 00036000 * /* THE FOLLOWING CODE IS TO DELETE A POOL */ 00037000 * /* */ 00038000 * /***************************************************************/ 00039000 * 0933 00040000 * DO; 0933 00041000 * IF BPDPTR=0 THEN /* IF DIRECTORY ADDR IS 0 */ 00042000 CR BPDPTR,@14 0934 00043000 BNE @RF00934 0934 00044000 * DO; 0935 00045000 * RC=8; 0936 00046000 MVC RC(4),@CF00035 0936 00047000 * END; 0937 00048000 * ELSE 0938 00049000 * DO; 0938 00050000 B @RC00934 0938 00051000 @RF00934 DS 0H 0939 00052000 * POOLID=R2; /* SET UP PARMS */ 00053000 ST R2,POOLID 0939 00054000 * RFY 0940 00055000 * (R2, 0940 00056000 * R3, 0940 00057000 * SAVREG) UNRSTD; 0940 00058000 * CALL DPOOL; /* FOR DELETE POOL ROUT */ 00059000 BAL @14,DPOOL 0941 00060000 * END; 0942 00061000 * END; 0943 00062000 * 0943 00063000 * /*****************************************************************/ 00064000 * /* */ 00065000 * /* THE FOLLOWING CODE IS TO ADD A POOL */ 00066000 * /* */ 00067000 * /*****************************************************************/ 00068000 * 0944 00069000 * ELSE /* IF REQUEST IS NOT DELETE */ 00070000 * DO; 0944 00071000 B @RC00932 0944 00072000 @RF00932 DS 0H 0945 00073000 * IF BPDPTR=0 THEN /* IF FRST TIME CREATE OUR */ 00074000 LTR BPDPTR,BPDPTR 0945 00075000 BNZ @RF00945 0945 00076000 * DO; /* OWN POOL */ 00077000 * PARMAREA=PARWEPL; /* SET UP OUR OWN PARMS */ 00078000 MVC PARMAREA(12),PARWEPL 0947 00079000 * CALL BPOOL; /* THEN GO BUILD THE POOL */ 00080000 BAL @14,BPOOL 0948 00081000 * BPDPTR=ATCBPDA; /* GET SMS DIRECTORY ADDRESS */ 00082000 L @14,ATCVTPTR 0949 00083000 L BPDPTR,ATCBPDA(,@14) 0949 00084000 * END; 0950 00085000 * ELSE 0951 00086000 * ; 0951 00087000 @RF00945 DS 0H 0952 00088000 * IF RC=0 THEN /* GOOD BUILD OR NOT FRST TIME */ 00089000 L @14,RC 0952 00090000 LTR @14,@14 0952 00091000 BNZ @RF00952 0952 00092000 * DO; /* SET UP TO BLD THE POOL */ 00093000 * PARMAREA=SAVDR234; /* THAT THE USER REQUESTED */ 00094000 MVC PARMAREA(12),SAVDR234 0954 00095000 * CALL BPOOL; /* GO BLD THE POOL */ 00096000 BAL @14,BPOOL 0955 00097000 * IF RC=0 THEN /* POOL BUILT */ 00098000 L @14,RC 0956 00099000 LTR @14,@14 0956 00100000 BNZ @RF00956 0956 00101000 * DO; /* THE FOLLOWING CODE IS FOR DCR 00102000 * 1878 */ 00103000 * IF BPDBPENT=N THEN 0958 00104000 * 0958 00105000 L @14,N 0958 00106000 CH @14,BPDBPENT(,BPDPTR) 0958 00107000 BNE @RF00958 0958 00108000 */********************************************************************/ 00109000 */* */ 00110000 */* CBIDPCBA (DCR1878) */ 00111000 */* */ 00112000 */********************************************************************/ 00113000 * 0959 00114000 * DO; 0959 00115000 * RFY 0960 00116000 * (REGA, 0960 00117000 * REGB, 0960 00118000 * REGC, 0960 00119000 * REGD) RSTD; 0960 00120000 * REGA=ADDR(BPDCBID);/* MOVE CBIDTBLE INTO BPDY */ 00121000 LA REGA,BPDCBID(,BPDPTR) 0961 00122000 * REGB=LENGTH(CBIDTBLE); 0962 00123000 LA REGB,304 0962 00124000 * ENDBPE=BPDFBPE+((N-2)*LENGTH(ISTBPENT));/* 0963 00125000 * CALCULATE ENDBPE */ 00126000 BCTR @14,0 0963 00127000 BCTR @14,0 0963 00128000 SLA @14,4 0963 00129000 AL @14,BPDFBPE(,BPDPTR) 0963 00130000 LR ENDBPE,@14 0963 00131000 * ENDCBID=REGA+REGB-8;/* CALCULATE THE END ADDR OF 00132000 * CBIDTBLE */ 00133000 LR ENDCBID,REGA 0964 00134000 ALR ENDCBID,REGB 0964 00135000 SL ENDCBID,@CF00035 0964 00136000 * REGC=ADDR(CBIDTBLE); 0965 00137000 LA REGC,CBIDTBLE 0965 00138000 * REGD=REGB; 0966 00139000 LR REGD,REGB 0966 00140000 * MVCL(REGA,REGC); 0967 00141000 MVCL REGA,REGC 0967 00142000 * RFY 0968 00143000 * (REGA, 0968 00144000 * REGB, 0968 00145000 * REGC, 0968 00146000 * REGD) UNRSTD; 0968 00147000 * RFY 0969 00148000 * CBIDPTR RSTD; 0969 00149000 * DO CBIDPTR=ADDR(BPDCBID) TO ENDCBID BY LENGTH( 0970 00150000 * ISTCBIDT); 0970 00151000 LA CBIDPTR,BPDCBID(,BPDPTR) 0970 00152000 B @DE00970 0970 00153000 @DL00970 DS 0H 0971 00154000 * DO BPEPTR=BPDFBPE TO ENDBPE BY LENGTH(ISTBPENT); 00155000 L BPEPTR,BPDFBPE(,BPDPTR) 0971 00156000 B @DE00971 0971 00157000 @DL00971 DS 0H 0972 00158000 * IF BPEFLAGS(1:8)=CBIDATR(1:8) THEN/* @ZM32642*/ 00159000 CLC BPEFLAGS(1,BPEPTR),CBIDATR(CBIDPTR) 0972 00160000 BNE @RF00972 0972 00161000 * DO; /* ATTRIBUTES MATCH */ 00162000 * IF CBIDLEN<=BPEBFSIZ THEN 0974 00163000 LH @14,BPEBFSIZ(,BPEPTR) 0974 00164000 CH @14,CBIDLEN(,CBIDPTR) 0974 00165000 BL @RF00974 0974 00166000 * DO; /* BUFFER FITS IN */ 00167000 * IF(CBIDPCB=0)|(CBIDPCB->BPCBBSIZ>= 0976 00168000 * BPEBFSIZ) THEN 0976 00169000 L @07,CBIDPCB(,CBIDPTR) 0976 00170000 LTR @07,@07 0976 00171000 BZ @RT00976 0976 00172000 CH @14,BPCBBSIZ(,@07) 0976 00173000 BH @RF00976 0976 00174000 @RT00976 DS 0H 0977 00175000 * CBIDPCB=BPEBPCB;/* NO */ 00176000 L @14,BPEBPCB(,BPEPTR) 0977 00177000 ST @14,CBIDPCB(,CBIDPTR) 0977 00178000 * ELSE 0978 00179000 * ; 0978 00180000 @RF00976 DS 0H 0979 00181000 * END; 0979 00182000 * ELSE 0980 00183000 * ; 0980 00184000 @RF00974 DS 0H 0981 00185000 * END; 0981 00186000 * ELSE 0982 00187000 * ; 0982 00188000 @RF00972 DS 0H 0983 00189000 * END; 0983 00190000 AL BPEPTR,@CF00047 0983 00191000 @DE00971 CR BPEPTR,ENDBPE 0983 00192000 BNH @DL00971 0983 00193000 * END; 0984 00194000 AL CBIDPTR,@CF00035 0984 00195000 @DE00970 CR CBIDPTR,ENDCBID 0984 00196000 BNH @DL00970 0984 00197000 * RFY 0985 00198000 * CBIDPTR UNRSTD; 0985 00199000 * RFY 0986 00200000 * (FXBUFPTR, 0986 00201000 * PGBUFPTR) RSTD; 0986 00202000 * FXBUFPTR=BPDCHPCB; 0987 00203000 L FXBUFPTR,BPDCHPCB(,BPDPTR) 0987 00204000 * F='0'B; 0988 00205000 NI F,B'10111111' 0988 00206000 * DO PGBUFPTR=BPDFBPE TO ENDBPE BY LENGTH(ISTBPENT) 00207000 * WHILE F='0'B; 0989 00208000 L PGBUFPTR,BPDFBPE(,BPDPTR) 0989 00209000 B @DE00989 0989 00210000 @DL00989 TM F,B'01000000' 0989 00211000 BNZ @DC00989 0989 00212000 * IF PGBUFPTR->BPEFLAGS(1:8)='44'X THEN/* DO 0990 00213000 * ATTRIBUTES OF POOL MATCH THOSE 00214000 * REQUIRED FOR PGBUF @ZM32642*/ 00215000 CLI BPEFLAGS(PGBUFPTR),X'44' 0990 00216000 BNE @RF00990 0990 00217000 * DO; /* YES */ 00218000 * F='1'B; /* TURN ON SWITCH */ 00219000 OI F,B'01000000' 0992 00220000 * BPDPGPCB=PGBUFPTR->BPEBPCB;/* SET UP BPCB 00221000 * ADDR FOR PGBUF POOL */ 00222000 L @14,BPEBPCB(,PGBUFPTR) 0993 00223000 ST @14,BPDPGPCB(,BPDPTR) 0993 00224000 * END; 0994 00225000 * ELSE 0995 00226000 * ; 0995 00227000 @RF00990 DS 0H 0996 00228000 * END; 0996 00229000 AL PGBUFPTR,@CF00047 0996 00230000 @DE00989 CR PGBUFPTR,ENDBPE 0996 00231000 BNH @DL00989 0996 00232000 @DC00989 DS 0H 0997 00233000 * RFY 0997 00234000 * (FXBUFPTR, 0997 00235000 * PGBUFPTR) UNRSTD; 0997 00236000 * END; 0998 00237000 * ELSE 0999 00238000 * ; 0999 00239000 @RF00958 DS 0H 1000 00240000 * END; 1000 00241000 * ELSE /* POOL NOT BUILT */ 00242000 * DO; 1001 00243000 B @RC00956 1001 00244000 @RF00956 DS 0H 1002 00245000 * IF BPDBPENT=1 THEN /* ONLY ONE ENTRY */ 00246000 CLC BPDBPENT(2,BPDPTR),@CH00050 1002 00247000 BNE @RF01002 1002 00248000 * DO; 1003 00249000 * POOLID='SMS1'; /* MUST DELETE IT */ 00250000 MVC POOLID(4),@CC07649 1004 00251000 * CALL DPOOL; 1005 00252000 BAL @14,DPOOL 1005 00253000 * END; 1006 00254000 * ELSE 1007 00255000 * ; 1007 00256000 @RF01002 DS 0H 1008 00257000 * END; 1008 00258000 * END; 1009 00259000 * ELSE /* ERROR BLDING SMS1 POOL */ 00260000 * DO; 1010 00261000 B @RC00952 1010 00262000 @RF00952 DS 0H 1011 00263000 * IF ATCBPDA=0 THEN 1011 00264000 L @14,ATCVTPTR 1011 00265000 L @14,ATCBPDA(,@14) 1011 00266000 LTR @14,@14 1011 00267000 BZ @RT01011 1011 00268000 * ; /* POINTER NOT SET */ 00269000 * ELSE /* IF IT WAS SET MUST DELT */ 00270000 * DO; 1013 00271000 * RFY 1014 00272000 * (REGA, 1014 00273000 * REGB) RSTD; 1014 00274000 * REGA=BPDA; /* GET ADDR OF PAGE TO BE FREED */ 00275000 L @14,BPDA 1015 00276000 LR REGA,@14 1015 00277000 * REGB=BPDA+BPDLV; /* GET ADDR OF ENDING PAGE FREE 00278000 * THE PAGE */ 00279000 AL @14,BPDLV 1016 00280000 LR REGB,@14 1016 00281000 * DO; /* PGFREE(R) A(BEGADR) EA(ENDADR)*/ 00282000 * RESPECIFY 1018 00283000 * (GPR00P, 1018 00284000 * GPR01P) RESTRICTED; 1018 00285000 * GPR00P=0; /* INDICATE NO PAGE ECB */ 00286000 SLR GPR00P,GPR00P 1019 00287000 * GPR01P=ADDR(BEGADR);/* PAGE ADDR */ 00288000 LR GPR01P,REGA 1020 00289000 * RESPECIFY 1021 00290000 * GPR15P RESTRICTED; 1021 00291000 * GPR15P=ADDR(ENDADR);/* VSL ADDR */ 00292000 LR GPR15P,REGB 1022 00293000 * GPR01P=GPR01P|'20000000'X;/* R, PGFREE & RELEASE 1023 00294000 * FLAG */ 00295000 O GPR01P,@CF02654 1023 00296000 * SVC(113); /* ISSUE PGFREE SVC */ 00297000 SVC 113 1024 00298000 * RESPECIFY 1025 00299000 * (GPR00P, 1025 00300000 * GPR01P, 1025 00301000 * GPR15P) UNRESTRICTED; 1025 00302000 * END; /* PGFREE(R) A(BEGADR) EA(ENDADR) 00303000 * FREE THE CORE */ 00304000 * DO; /* FREEMAIN (E) LV(BPDLV) A(BPDA)*/ 00305000 * RESPECIFY 1028 00306000 * (GPR01P) RESTRICTED; 1028 00307000 * I005=I005&&I005; /* INIT LIST */ 00308000 XC I005(10),I005 1029 00309000 * I00505='00'X; /* SET TYPE */ 00310000 MVI I00505,X'00' 1030 00311000 * I00502=BPDLV; /* LENGTH */ 00312000 MVC I00502(3),BPDLV+1 1031 00313000 * I00504=ADDR(BPDA);/* ADDR OF ADDR LIST */ 00314000 LA @14,BPDA 1032 00315000 STCM @14,7,I00504 1032 00316000 * GPR01P=ADDR(I005);/* REG1 POINTS TO LIST */ 00317000 LA GPR01P,I005 1033 00318000 * SVC(5); /* STANDARD-FORM OF GETMAIN */ 00319000 SVC 5 1034 00320000 * RESPECIFY 1035 00321000 * (GPR01P) UNRESTRICTED; 1035 00322000 * END; /* FREEMAIN (E) LV(BPDLV) A(BPDA)*/ 00323000 * RFY 1037 00324000 * (REGA, 1037 00325000 * REGB) UNRSTD; 1037 00326000 * ATCBPDA=0; /* SET THE ADDR TO 0 */ 00327000 L @14,ATCVTPTR 1038 00328000 SLR @04,@04 1038 00329000 ST @04,ATCBPDA(,@14) 1038 00330000 * END; 1039 00331000 * END; 1040 00332000 @RT01011 DS 0H 1041 00333000 * END; 1041 00334000 @RC00952 DS 0H 1042 00335000 * RFY 1042 00336000 * R15 RSTD; 1042 00337000 @RC00932 DS 0H 1043 00338000 * R15=RC; /* SET RETURN CODE FOR CALLER */ 00339000 L R15,RC 1043 00340000 * RFY 1044 00341000 * R15 UNRSTD; 1044 00342000 * 1045 00343000 */* ************************************************************** */ 00344000 */* ************************************************************** */ 00345000 */* BPOOL */ 00346000 */* ************************************************************** */ 00347000 */* ************************************************************** */ 00348000 * 1045 00349000 *BPOOL: 1045 00350000 * PROC OPTIONS(SAVE,NOSAVEAREA); 1045 00351000 B @PB00002 1045 00352000 BPOOL STM @14,@12,12(@13) 1045 00353000 * RESPECIFY 1046 00354000 * (SAVREG, 1046 00355000 * REGA, 1046 00356000 * REGB, 1046 00357000 * REGC, 1046 00358000 * REGD) RSTD; 1046 00359000 * SAVREG=ADDR(SAV2); /* SET UP SAVE FOR THIS ROUT */ 00360000 LA SAVREG,SAV2 1047 00361000 * SAVREG->SVHSA=ADDR(SAV1); /* SET PTR TO CALLER'S SAVE */ 00362000 LA @04,SAV1 1048 00363000 ST @04,SVHSA(,SAVREG) 1048 00364000 * RFY 1049 00365000 * SAVREG UNRSTD; 1049 00366000 * IF BPDPTR=0 THEN /* HAS NOT BEEN SET UP */ 00367000 LTR BPDPTR,BPDPTR 1050 00368000 BNZ @RF01050 1050 00369000 * DO; /* THEN SET IT UP */ 00370000 * 1051 00371000 * /*************************************************************/ 00372000 * /* */ 00373000 * /* CALCULATE THE LENGTH OF THE ENTIRE DIRECTORY */ 00374000 * /* */ 00375000 * /*************************************************************/ 00376000 * 1052 00377000 * BPDLV=PGSZ; /* OBTAIN ENTIRE PAGE FOR SMS CB 00378000 * @ZM32024*/ 00379000 L @04,@CF07624 1052 00380000 ST @04,BPDLV 1052 00381000 * SMSCBLEN=LENGTH(BPDHDR)+N*(LENGTH(ISTBPENT)+LENGTH(ISTBPCB))+ 00382000 * LENGTH(CBIDTBLE); /* GET ACTUAL LENGTH OF SMS CB 1053 00383000 * @ZM32024*/ 00384000 L @00,N 1053 00385000 SLA @00,7 1053 00386000 AL @00,@CF07837 1053 00387000 ST @00,SMSCBLEN 1053 00388000 * SMSCBLEN=(((SMSCBLEN+7)/8)*8);/* MAKE LENGTH OF DIRECTORY IN 00389000 * DOUBLEWORDS @ZM32024*/ 00390000 LR @02,@00 1054 00391000 AL @02,@CF00289 1054 00392000 SRDA @02,32 1054 00393000 D @02,@CF00035 1054 00394000 SLA @03,3 1054 00395000 ST @03,SMSCBLEN 1054 00396000 * REGA=BPDLV; /* PUT THE LEN IN A REG */ 00397000 * 1055 00398000 LR REGA,@04 1055 00399000 * /*************************************************************/ 00400000 * /* */ 00401000 * /* ISSUE THE SYSTEM DEPENDENT GETMAIN FOR THE DIRECTORY */ 00402000 * /* */ 00403000 * /*************************************************************/ 00404000 * 1056 00405000 * REGC=231; /* SUBPOOL 231 FOR DIRECTORY- */ 00406000 LA REGC,231 1056 00407000 * DO; /* GETMAIN (EC) BNDRY LV(REGA) 1057 00408000 * A(BPDA) SP(REGC) */ 00409000 * RESPECIFY 1058 00410000 * (GPR01P) RESTRICTED; 1058 00411000 * I004=I004&&I004; /* INIT LIST */ 00412000 XC I004(10),I004 1059 00413000 * I00404='30'X; /* TYPE */ 00414000 MVI I00404,X'30' 1060 00415000 * I00401=REGA; /* LENGTH */ 00416000 ST REGA,I00401 1061 00417000 * I00403=ADDR(BPDA); /* ADDR OF ADDR LIST */ 00418000 LA @04,BPDA 1062 00419000 STCM @04,7,I00403 1062 00420000 * I00405=REGC; /* SUBPOOL VALUE */ 00421000 STC REGC,I00405 1063 00422000 * GPR01P=ADDR(I004); /* REG1 POINTS TO LIST */ 00423000 LA GPR01P,I004 1064 00424000 * SVC(4); /* STANDARD-FORM OF GETMAIN */ 00425000 SVC 4 1065 00426000 * RESPECIFY 1066 00427000 * (GPR01P) UNRESTRICTED; 1066 00428000 * END; /* GETMAIN (EC) BNDRY LV(REGA) 1067 00429000 * A(BPDA) SP(REGC) */ 00430000 * RFY 1068 00431000 * R15 RSTD; 1068 00432000 * IF R15=0 /* WAS THE GETMAIN A SUCCESS */ 00433000 * THEN 1069 00434000 LTR R15,R15 1069 00435000 BNZ @RF01069 1069 00436000 * DO; /* STORAGE WAS AVAIL NOW MUST FIX 00437000 * IT */ 00438000 * RFY 1071 00439000 * R15 UNRSTD; 1071 00440000 * REGA=BPDA; /* BEGINNING ADDRESS */ 00441000 L @04,BPDA 1072 00442000 LR REGA,@04 1072 00443000 * REGB=BPDA+BPDLV; /* ENDING ADDRESS */ 00444000 AL @04,BPDLV 1073 00445000 LR REGB,@04 1073 00446000 * CALL PFIX; /* GO TO INTERN ROUT TO FIX */ 00447000 BAL @14,PFIX 1074 00448000 * IF RC=0 /* WAS THE PAGE FIXED */ 00449000 * THEN 1075 00450000 L @04,RC 1075 00451000 LTR @04,@04 1075 00452000 BNZ @RF01075 1075 00453000 * DO; /* IF IT WAS */ 00454000 * REGB=BPDLV; /* LENGTH OF AREA TO BE CLRED */ 00455000 L REGB,BPDLV 1077 00456000 * REGC=REGA; /* ALSO BEGINNING ADDRESS */ 00457000 LR REGC,REGA 1078 00458000 * REGD=0; /* PADDING BYTE AND COUNT 0 USE 1 00459000 * INST TO CLEAR AREA */ 00460000 SLR REGD,REGD 1079 00461000 * MVCL(REGA,REGC); 1080 00462000 MVCL REGA,REGC 1080 00463000 * BPDPTR=BPDA; /* SET UP DIR BASE */ 00464000 L @04,BPDA 1081 00465000 LR BPDPTR,@04 1081 00466000 * ATCBPDA=BPDA; /* PU ADDR IN CVT */ 00467000 L @15,ATCVTPTR 1082 00468000 ST @04,ATCBPDA(,@15) 1082 00469000 * BPDBPMAX=N; /* SET MAX NO. OF POOLS */ 00470000 L @04,N 1083 00471000 STH @04,BPDBPMAX(,BPDPTR) 1083 00472000 * END; 1084 00473000 * ELSE 1085 00474000 * ; 1085 00475000 @RF01075 DS 0H 1086 00476000 * END; 1086 00477000 * ELSE /* STOR NOT AVAIL */ 00478000 * RC=4; /* SET RET CODE */ 00479000 B @RC01069 1087 00480000 @RF01069 MVC RC(4),@CF00093 1087 00481000 * RESPECIFY 1088 00482000 * (REGA, 1088 00483000 * REGB, 1088 00484000 * REGC, 1088 00485000 * REGD) UNRSTD; 1088 00486000 @RC01069 DS 0H 1089 00487000 * END; 1089 00488000 * ELSE 1090 00489000 * ; 1090 00490000 @RF01050 DS 0H 1091 00491000 * 1091 00492000 */* ************************************************************** */ 00493000 */* ************************************************************** */ 00494000 */* SLOT */ 00495000 */* ************************************************************** */ 00496000 */* ************************************************************** */ 00497000 * 1091 00498000 * IF RC=0 THEN /* ERROR ALREADY */ 00499000 L @04,RC 1091 00500000 LTR @04,@04 1091 00501000 BNZ @RF01091 1091 00502000 * DO; /* IF NOT CONTINEUE */ 00503000 * IF BPDBPENT=BPDBPMAX /* ALL ENTRIES TAKEN */ 00504000 * THEN 1093 00505000 CLC BPDBPENT(2,BPDPTR),BPDBPMAX(BPDPTR) 1093 00506000 BNE @RF01093 1093 00507000 * RC=4; /* SET ERROR RET CODE */ 00508000 MVC RC(4),@CF00093 1094 00509000 * ELSE 1095 00510000 * DO; /* IF NO ERROR CONTINUE */ 00511000 B @RC01093 1095 00512000 @RF01093 DS 0H 1096 00513000 * BPEPTR=BPDPTR+LENGTH(BPDHDR);/* FIRST ENTRY @ */ 00514000 LA @15,144 1096 00515000 ALR @15,BPDPTR 1096 00516000 LR BPEPTR,@15 1096 00517000 * IF BPDBPENT=0 THEN 1097 00518000 LH @04,BPDBPENT(,BPDPTR) 1097 00519000 LTR @04,@04 1097 00520000 BNZ @RF01097 1097 00521000 * DO; 1098 00522000 * 1098 00523000 * /*****************************************************/ 00524000 * /* */ 00525000 * /* CALCULATE THE ADDRESS OF THE FIRST BUFFER CONT */ 00526000 * /* BLOCK */ 00527000 * /* */ 00528000 * /*****************************************************/ 00529000 * 1099 00530000 * BPCBPTR=BPDPTR+LENGTH(BPDHDR)+N*LENGTH(ISTBPENT)+LENGTH 00531000 * (CBIDTBLE); 1099 00532000 L BPCBPTR,N 1099 00533000 SLA BPCBPTR,4 1099 00534000 ALR @15,BPCBPTR 1099 00535000 AL @15,@CF07834 1099 00536000 LR BPCBPTR,@15 1099 00537000 * BPDSMPCB=BPCBPTR; /* ADDRESS OF POOL CNTRL BLK */ 00538000 ST BPCBPTR,BPDSMPCB(,BPDPTR) 1100 00539000 * BPDFBPE=BPEPTR+LENGTH(ISTBPENT); 1101 00540000 LA @04,16 1101 00541000 ALR @04,BPEPTR 1101 00542000 ST @04,BPDFBPE(,BPDPTR) 1101 00543000 * BPDATCVT=ATCVTPTR; /* ATCVT ADDRESS */ 00544000 L @04,ATCVTPTR 1102 00545000 ST @04,BPDATCVT(,BPDPTR) 1102 00546000 * BPDBPENT=1; /* ACCOUNT FOR NONEXISTENT SMS 1103 00547000 * POOL @ZM32024*/ 00548000 LA @04,1 1103 00549000 STH @04,BPDBPENT(,BPDPTR) 1103 00550000 * BPDADRS2=BPDPTR+PGSZ;/* GET ENDING ADDR OF ALL POOLS 00551000 * @ZM32024*/ 00552000 LR @00,BPDPTR 1104 00553000 AL @00,@CF07624 1104 00554000 ST @00,BPDADRS2(,BPDPTR) 1104 00555000 * BPDREQMX=GTRNO; /* INIT GTRACE INTERVAL-# OF 1105 00556000 * REQSTORES @ZM32275*/ 00557000 MVC BPDREQMX(2,BPDPTR),@CH07637 1105 00558000 * BPDTRLEN=LENGTH(BPDTRACE)*DIM(BPDTRACE);/* INIT 1106 00559000 * LENGTH OF SMS RECORD FOR 1106 00560000 * GTRACE @ZM32275*/ 00561000 MVC BPDTRLEN(2,BPDPTR),@CH07838 1106 00562000 * BPDTRID=GTRID; /* INIT GTRACE FORMAT ID @ZM32275*/ 00563000 MVI BPDTRID(BPDPTR),X'FD' 1107 00564000 * BPDTRADR=ADDR(BPDTRACE);/* INIT ADDR OF GTRACE DATA 00565000 * @ZM32275*/ 00566000 LA @00,BPDTRACE(,BPDPTR) 1108 00567000 ST @00,BPDTRADR(,BPDPTR) 1108 00568000 */* INITIALIZE THE SMS BPCB USED TO CONTROL LEFTOVERS IN THE PAGE OBT 00569000 *NED AND FIXED FOR THE SMS CONTROL BLOCKS @ZM32024 */ 00570000 * 1109 00571000 * RFY 1109 00572000 * REGA RSTD; 1109 00573000 * REGA=FLAGS; /* GET INPUT PARM FLAGS */ 00574000 LH REGA,FLAGS 1110 00575000 N REGA,@CF07843 1110 00576000 * SLL(REGA,1); /* SHIFT OFF DELETE BIT */ 00577000 SLL REGA,1 1111 00578000 * BPCBFLAG=REGA; /* SET FLAGS INTO BPCB */ 00579000 STH REGA,BPCBFLAG(,BPCBPTR) 1112 00580000 * RFY 1113 00581000 * REGA UNRSTD; 1113 00582000 * BPCBSPNO=231; /* IDENTIFY SUBPOOL # FOR SMS 1114 00583000 * BPCB @ZM32024*/ 00584000 MVI BPCBSPNO(BPCBPTR),X'E7' 1114 00585000 * BPCBFBA=BPDPTR+SMSCBLEN;/* GET FIRST SAVE AREA BUFFER 00586000 * @Z40GKF6*/ 00587000 LR @00,BPDPTR 1115 00588000 AL @00,SMSCBLEN 1115 00589000 STCM @00,7,BPCBFBA(BPCBPTR) 1115 00590000 * BPCBFEXT=BPCBFBA+(SAVEBUFS*SAVESIZE);/* SET FIRST 1116 00591000 * EXTENSION PTR AFTER SAVE AREAS 00592000 * @Z40GKF6*/ 00593000 LA @15,1800 1116 00594000 ALR @15,@00 1116 00595000 ST @15,BPCBFEXT(,BPCBPTR) 1116 00596000 * BPCBPDTY=BPDPTR; /* SET DIRECTORY PTR @Z401322*/ 00597000 ST BPDPTR,BPCBPDTY(,BPCBPTR) 1117 00598000 * RFY 1118 00599000 * (BUF1, 1118 00600000 * BUF2) RSTD; /* @Z40GKF6*/ 00601000 * BUF1=BPCBFBA; /* SET PTR TO FIRST SAVE BUFFER 00602000 * @Z40GKF6*/ 00603000 LR BUF1,@00 1119 00604000 * DO I=1 TO SAVEBUFS BY 1;/* CREATE ALL SAVE BUFFERS 1120 00605000 * @Z40GKF6*/ 00606000 LR I,@04 1120 00607000 @DL01120 DS 0H 1121 00608000 * BUF2=BUF1+SAVESIZE;/* FIND NEXT SAVE BUFFER 1121 00609000 * @Z40GKF6*/ 00610000 LA @04,72 1121 00611000 LR BUF2,BUF1 1121 00612000 ALR BUF2,@04 1121 00613000 * BUF1->BFPTSKID=0; /* ZERO TSKID FIELD @Z40GKF6*/ 00614000 SLR @03,@03 1122 00615000 ST @03,BFPTSKID(,BUF1) 1122 00616000 * BUF1->BFPPCBA=BPCBPTR;/* SET BUFFER POOL PTR 1123 00617000 * @Z40GKF6*/ 00618000 ST BPCBPTR,BFPPCBA(,BUF1) 1123 00619000 * BUF1->BFPNXCHN=BUF2;/* SET CHAIN FIELD @Z40GKF6*/ 00620000 ST BUF2,BFPNXCHN(,BUF1) 1124 00621000 * BUF1->BFPSIZE=SAVESIZE;/* THIS PFX SIZE INCLUDES 1125 00622000 * PFX @Z40GKF6*/ 00623000 STH @04,BFPSIZE(,BUF1) 1125 00624000 * BUF1=BUF2; /* BUMP UP TO NEXT BUFFER 1126 00625000 * @Z40GKF6*/ 00626000 LR BUF1,BUF2 1126 00627000 * END; /* END SAVE AREA CHAINING AND 1127 00628000 * INITIALIZATION @Z40GKF6*/ 00629000 AL I,@CF00050 1127 00630000 C I,@CF05361 1127 00631000 BNH @DL01120 1127 00632000 * BUF1=BUF1-SAVESIZE; /* BACK UP TO LAST BUFFER 1128 00633000 * @Z40GKF6*/ 00634000 SL BUF1,@CF05088 1128 00635000 * BUF1->BFPNXCHN=0; /* ZERO CHAIN PTR OF LAST SAVE 1129 00636000 * AREA @Z40GKF6*/ 00637000 SLR @04,@04 1129 00638000 ST @04,BFPNXCHN(,BUF1) 1129 00639000 * RFY 1130 00640000 * (BUF1, 1130 00641000 * BUF2) UNRSTD; /* @Z40GKF6*/ 00642000 * BPCBCCNT=PGSZ-(SMSCBLEN+(SAVEBUFS*SAVESIZE));/* GET 00643000 * NUMBER OF LEFTOVER BYTES IN 1131 00644000 * SMS POOL TO BE SHARED @Z40GKF6*/ 00645000 LA @04,1800 1131 00646000 AL @04,SMSCBLEN 1131 00647000 LCR @04,@04 1131 00648000 AL @04,@CF07624 1131 00649000 STH @04,BPCBCCNT(,BPCBPTR) 1131 00650000 */* INITIALIZE THE SMS BPE @ZM32024 */ 00651000 * 1132 00652000 * BPEPID=POOLID; /* INIT THE SMS BPE WITH 1132 00653000 * IDENTIFIER @ZM32024*/ 00654000 MVC BPEPID(4,BPEPTR),POOLID 1132 00655000 * BPEFLAGS=BPCBFLAG; /* GET ATTRIBUTES FOR SMS BPE 1133 00656000 * @ZM32024*/ 00657000 MVC BPEFLAGS(2,BPEPTR),BPCBFLAG(BPCBPTR) 1133 00658000 * BPEBPCB=BPCBPTR; /* INIT PTR TO SMS BPCB IN BPE 1134 00659000 * @ZM32024*/ 00660000 ST BPCBPTR,BPEBPCB(,BPEPTR) 1134 00661000 * GO TO ENDBPOOL; /* RETURN TO MAINLINE @ZM32024*/ 00662000 B ENDBPOOL 1135 00663000 * END; 1136 00664000 * ELSE 1137 00665000 * DO; /* SEARCH FOR POOLID ALREDY */ 00666000 * 1137 00667000 @RF01097 DS 0H 1138 00668000 * /*****************************************************/ 00669000 * /* */ 00670000 * /* THE FOLLOWING IS A DO LOOP TO MAKE SURE THAT THE */ 00671000 * /* POOLID TO BE ADDED TO THE EXISTING POOLS IST NOT A*/ 00672000 * /* REPEAT */ 00673000 * /* */ 00674000 * /*****************************************************/ 00675000 * 1138 00676000 * DO BPEPTR=BPEPTR TO BPDPTR+LENGTH(BPDHDR)+((BPDBPENT-1) 00677000 * *LENGTH(ISTBPENT)) BY LENGTH(ISTBPENT); 1138 00678000 B @DE01138 1138 00679000 @DL01138 DS 0H 1139 00680000 * IF POOLID=BPEPID THEN 1139 00681000 CLC POOLID(4),BPEPID(BPEPTR) 1139 00682000 BNE @RF01139 1139 00683000 * RC=8; 1140 00684000 MVC RC(4),@CF00035 1140 00685000 * END; 1141 00686000 * 1141 00687000 @RF01139 AL BPEPTR,@CF00047 1141 00688000 @DE01138 LA @04,144 1141 00689000 ALR @04,BPDPTR 1141 00690000 LH @00,BPDBPENT(,BPDPTR) 1141 00691000 BCTR @00,0 1141 00692000 SLA @00,4 1141 00693000 ALR @04,@00 1141 00694000 CR BPEPTR,@04 1141 00695000 BNH @DL01138 1141 00696000 */* THIS IS THE END OF THE DO LOOP */ 00697000 * 1142 00698000 * IF RC=0 THEN /* THE ENTRY WAS NOT A REPEAT */ 00699000 L @04,RC 1142 00700000 LTR @04,@04 1142 00701000 BNZ @RF01142 1142 00702000 * DO; /* SET UP BUF POOL CB */ 00703000 * BPCBPTR=BPDSMPCB+(BPDBPENT*LENGTH(ISTBPCB)); 1144 00704000 LH BPCBPTR,BPDBPENT(,BPDPTR) 1144 00705000 MH BPCBPTR,@CH07835 1144 00706000 AL BPCBPTR,BPDSMPCB(,BPDPTR) 1144 00707000 * RFY 1145 00708000 * REGA RSTD; 1145 00709000 * REGA=FLAGS; /* GET INPUT PARM FLAGS */ 00710000 LH REGA,FLAGS 1146 00711000 N REGA,@CF07843 1146 00712000 * SLL(REGA,1); /* SHIFT OFF DELETE BIT */ 00713000 SLL REGA,1 1147 00714000 * BPCBFLAG=REGA; /* SET FLAGS INTO BPCB */ 00715000 STH REGA,BPCBFLAG(,BPCBPTR) 1148 00716000 * RFY 1149 00717000 * REGA UNRSTD; 1149 00718000 * END; 1150 00719000 * END; 1151 00720000 @RF01142 DS 0H 1152 00721000 * END; 1152 00722000 * END; 1153 00723000 @RC01093 DS 0H 1154 00724000 * 1154 00725000 */* ************************************************************** */ 00726000 */* ************************************************************** */ 00727000 */* VALID */ 00728000 */* ************************************************************** */ 00729000 */* ************************************************************** */ 00730000 * 1154 00731000 * IF RC=0 THEN /* HAS THERE BEEN AN ERROR */ 00732000 @RF01091 SLR @04,@04 1154 00733000 C @04,RC 1154 00734000 BNE @RF01154 1154 00735000 * DO; /* IF NOT */ 00736000 * IF BUFNO<=0|BUFSIZE1<=0 /* IS BUFFER NO. VALID */ 00737000 * THEN 1156 00738000 CH @04,BUFNO 1156 00739000 BNL @RT01156 1156 00740000 CH @04,BUFSIZE1 1156 00741000 BL @RF01156 1156 00742000 @RT01156 DS 0H 1157 00743000 * RC=8; /* IF NOT SET ERROR RC */ 00744000 MVC RC(4),@CF00035 1157 00745000 * ELSE 1158 00746000 * DO; /* COMPUTE THE SIZE NECESSARY TO 00747000 * ASK FOR TO SUPPLY THE BUFFER 00748000 * ON A DOUBLE WD BDY */ 00749000 B @RC01156 1158 00750000 @RF01156 DS 0H 1159 00751000 * BUFSIZE=(((BUFSIZE1+7)/8)*8)+8;/* @ZM42379*/ 00752000 LA @04,8 1159 00753000 LA @02,7 1159 00754000 AH @02,BUFSIZE1 1159 00755000 SRDA @02,32 1159 00756000 DR @02,@04 1159 00757000 SLA @03,3 1159 00758000 ALR @03,@04 1159 00759000 STH @03,BUFSIZE 1159 00760000 * BPCBCCNT=BUFNO*BUFSIZE; /* CALCULATE TOTAL SIZE OF 1160 00761000 * BUFFERS IN POL */ 00762000 MH @03,BUFNO 1160 00763000 STH @03,BPCBCCNT(,BPCBPTR) 1160 00764000 * IF BPDBPENT>0 THEN /* ANY POOLS EXIST */ 00765000 LH @04,BPDBPENT(,BPDPTR) 1161 00766000 LTR @04,@04 1161 00767000 BNP @RF01161 1161 00768000 * DO; 1162 00769000 * ENDBPCB=BPDSMPCB+(BPDBPENT-1)*LENGTH(ISTBPCB); 1163 00770000 * 1163 00771000 L @15,BPDSMPCB(,BPDPTR) 1163 00772000 LH @14,BPDBPENT(,BPDPTR) 1163 00773000 BCTR @14,0 1163 00774000 MH @14,@CH07835 1163 00775000 ALR @14,@15 1163 00776000 LR ENDBPCB,@14 1163 00777000 * /*****************************************************/ 00778000 * /* */ 00779000 * /* CALCULATE ENDING ADDR OF BPCBS--END OF SMS CONTROL*/ 00780000 * /* BLOCKS */ 00781000 * /* */ 00782000 * /*****************************************************/ 00783000 * 1164 00784000 * DO BPCBPTR1=BPDSMPCB TO ENDBPCB BY LENGTH(ISTBPCB); 00785000 * 1164 00786000 LR BPCBPTR1,@15 1164 00787000 B @DE01164 1164 00788000 @DL01164 DS 0H 1165 00789000 * /***************************************************/ 00790000 * /* */ 00791000 * /* SET UP TO SEARCH FOR POOLS TO SHARE */ 00792000 * /* */ 00793000 * /***************************************************/ 00794000 * 1165 00795000 * IF BPCBPTR1->BPCBFLAG=BPCBFLAG&BPCBPTR1->BPCBCCNT> 00796000 * BUFSIZE THEN 1165 00797000 * 1165 00798000 CLC BPCBFLAG(2,BPCBPTR1),BPCBFLAG(BPCBPTR) 1165 00799000 BNE @RF01165 1165 00800000 LH @03,BPCBCCNT(,BPCBPTR1) 1165 00801000 CH @03,BUFSIZE 1165 00802000 BNH @RF01165 1165 00803000 * /*************************************************/ 00804000 * /* */ 00805000 * /* CHECK FOR MATCH IN ATTRIBUTES AND LARGE ENOUGH*/ 00806000 * /* BUFFER */ 00807000 * /* */ 00808000 * /*************************************************/ 00809000 * 1166 00810000 * DO; 1166 00811000 * IF BPCBFEXT=0 THEN/* FIRST EXTENT PTR NULL */ 00812000 L @03,BPCBFEXT(,BPCBPTR) 1167 00813000 LTR @03,@03 1167 00814000 BNZ @RF01167 1167 00815000 * BPCBFEXT=BPCBPTR1;/* SET UP TO BE ADDR OF THE 00816000 * BPCB THAT CONTROLS BUFFER POOL 00817000 * WE ARE BORROWING BUFFERS FROM */ 00818000 ST BPCBPTR1,BPCBFEXT(,BPCBPTR) 1168 00819000 * ELSE 1169 00820000 * DO; /* OTHERWISE CONTINUE SEARCH */ 00821000 B @RC01167 1169 00822000 @RF01167 DS 0H 1170 00823000 * IF BPCBPTR1->BPCBCCNT>=BPCBCCNT THEN/* 1170 00824000 * LEFTOVER SIZE OF CURRENT 1170 00825000 * BUFFER POOL GREATER THAN OR EQ 00826000 * STATIC BUFFER POOL */ 00827000 LH @03,BPCBCCNT(,BPCBPTR1) 1170 00828000 LH @15,BPCBCCNT(,BPCBPTR) 1170 00829000 CR @03,@15 1170 00830000 BL @RF01170 1170 00831000 * DO; 1171 00832000 * IF BPCBFEXT->BPCBCCNT>=BPCBCCNT THEN/* 00833000 * LEFTOVER SIZE OF FIRST 1172 00834000 * EXTENSION GR THAN OR EQ TO 1172 00835000 * STATIC BUFFER POOL */ 00836000 L @14,BPCBFEXT(,BPCBPTR) 1172 00837000 LH @14,BPCBCCNT(,@14) 1172 00838000 CR @14,@15 1172 00839000 BL @RF01172 1172 00840000 * DO; 1173 00841000 * IF BPCBPTR1->BPCBCCNT 1174 00842000 * BPCBCCNT THEN 1174 00843000 * 1174 00844000 CR @03,@14 1174 00845000 BNL @RF01174 1174 00846000 * /*********************************/ 00847000 * /* */ 00848000 * /* LEFTOVER SIZE OF FIRST */ 00849000 * /* EXTENSION BUF POOL LESS THAN */ 00850000 * /* CURRENT BUF POOL */ 00851000 * /* */ 00852000 * /*********************************/ 00853000 * 1175 00854000 * BPCBFEXT=BPCBPTR1;/* YES, FIRST 00855000 * EXTENTION BECOMES PTR TO 1175 00856000 * CURRENT BUFFER POOL */ 00857000 ST BPCBPTR1,BPCBFEXT(,BPCBPTR) 1175 00858000 * ELSE 1176 00859000 * ;/* NO, LEAVE FIRST EXTENSION 1176 00860000 * ALONE */ 00861000 @RF01174 DS 0H 1177 00862000 * END; 1177 00863000 * ELSE 1178 00864000 * BPCBFEXT=BPCBPTR1;/* SET FIRST EXT 1178 00865000 * PTR TO PTR TO CURRENT BUFFER 00866000 * POOL CB */ 00867000 B @RC01172 1178 00868000 @RF01172 ST BPCBPTR1,BPCBFEXT(,BPCBPTR) 1178 00869000 * END; 1179 00870000 * ELSE 1180 00871000 * DO; 1180 00872000 B @RC01170 1180 00873000 @RF01170 DS 0H 1181 00874000 * IF BPCBPTR1->BPCBCCNT>BPCBFEXT->BPCBCCNT 00875000 * THEN/* LEFTOVER SIZE OF CURRENT 1181 00876000 * BUFFER POOL GR THAN FIRST 1181 00877000 * EXTENSION BUFFER POOL */ 00878000 L @03,BPCBFEXT(,BPCBPTR) 1181 00879000 LH @00,BPCBCCNT(,BPCBPTR1) 1181 00880000 CH @00,BPCBCCNT(,@03) 1181 00881000 BNH @RF01181 1181 00882000 * BPCBFEXT=BPCBPTR1;/* SET FIRST EXT 1182 00883000 * PTR TO ADDR OF CURRENT BUFFER 00884000 * OOL */ 00885000 ST BPCBPTR1,BPCBFEXT(,BPCBPTR) 1182 00886000 * ELSE 1183 00887000 * ; 1183 00888000 @RF01181 DS 0H 1184 00889000 * END; 1184 00890000 * END; 1185 00891000 * END; 1186 00892000 * ELSE 1187 00893000 * ; 1187 00894000 @RF01165 DS 0H 1188 00895000 * END; /* END OF SEARCH FOR EXTENTIONS */ 00896000 @RC01165 AL BPCBPTR1,@CF07835 1188 00897000 @DE01164 CR BPCBPTR1,ENDBPCB 1188 00898000 BNH @DL01164 1188 00899000 * END; 1189 00900000 * ELSE 1190 00901000 * ; 1190 00902000 @RF01161 DS 0H 1191 00903000 * IF BPCBFEXT=0 THEN /* IF FIRST EXTENTION NULL THEN- */ 00904000 SLR @04,@04 1191 00905000 C @04,BPCBFEXT(,BPCBPTR) 1191 00906000 BNE @RF01191 1191 00907000 * BUFNO1=0; /* SET TEMP # OF BUFFERS TO ZERO */ 00908000 STH @04,BUFNO1 1192 00909000 * ELSE 1193 00910000 * DO; 1193 00911000 B @RC01191 1193 00912000 @RF01191 DS 0H 1194 00913000 * BPCBPTR1=BPCBFEXT; /* OTHERWISE GET ADDR OF FIRST 1194 00914000 * EXTENTION */ 00915000 L BPCBPTR1,BPCBFEXT(,BPCBPTR) 1194 00916000 * BPCBFEXT=BPCBPTR1->BPCBFEXT; 1195 00917000 L @04,BPCBFEXT(,BPCBPTR1) 1195 00918000 ST @04,BPCBFEXT(,BPCBPTR) 1195 00919000 * BUFNO1=BPCBPTR1->BPCBCCNT/BUFSIZE;/* SET TEMP BUF TO 00920000 * # OF BUFS THAT WILL FIT INTO 00921000 * THE EXTENTION */ 00922000 LH @03,BPCBCCNT(,BPCBPTR1) 1196 00923000 LR @06,@03 1196 00924000 SRDA @06,32 1196 00925000 LH @00,BUFSIZE 1196 00926000 DR @06,@00 1196 00927000 STH @07,BUFNO1 1196 00928000 * IF BUFNO1>=BUFNO THEN/* TEMP # OF BUFS GR THAN OR EQ 00929000 * # REQUESTED */ 00930000 CH @07,BUFNO 1197 00931000 BL @RF01197 1197 00932000 * DO; 1198 00933000 * BPCBPTR1->BPCBCCNT=BPCBPTR1->BPCBCCNT-BPCBCCNT; 00934000 * 1199 00935000 LH @15,BPCBCCNT(,BPCBPTR) 1199 00936000 SLR @03,@15 1199 00937000 STH @03,BPCBCCNT(,BPCBPTR1) 1199 00938000 * /*************************************************/ 00939000 * /* */ 00940000 * /* SET */ 00941000 * /* */ 00942000 * /*************************************************/ 00943000 * 1200 00944000 * BPCBPTR1->BPCBFEXT=BPCBPTR1->BPCBFEXT+BPCBCCNT; 00945000 ALR @04,@15 1200 00946000 ST @04,BPCBFEXT(,BPCBPTR1) 1200 00947000 * END; 1201 00948000 * ELSE 1202 00949000 * DO; 1202 00950000 B @RC01197 1202 00951000 @RF01197 DS 0H 1203 00952000 * BPCBPTR1->BPCBCCNT=BPCBPTR1->BPCBCCNT-(BUFNO1* 1203 00953000 * BUFSIZE); 1203 00954000 LH @04,BUFNO1 1203 00955000 MH @04,BUFSIZE 1203 00956000 LH @03,BPCBCCNT(,BPCBPTR1) 1203 00957000 SLR @03,@04 1203 00958000 STH @03,BPCBCCNT(,BPCBPTR1) 1203 00959000 * BPCBPTR1->BPCBFEXT=BPCBPTR1->BPCBFEXT+(BUFNO1* 1204 00960000 * BUFSIZE); 1204 00961000 AL @04,BPCBFEXT(,BPCBPTR1) 1204 00962000 ST @04,BPCBFEXT(,BPCBPTR1) 1204 00963000 * END; 1205 00964000 * END; 1206 00965000 @RC01197 DS 0H 1207 00966000 * IF BUFNO1>=BUFNO THEN 1207 00967000 @RC01191 LH @04,BUFNO 1207 00968000 CH @04,BUFNO1 1207 00969000 BH @RF01207 1207 00970000 * DO; /* ALL BUFFERS OF CURRENT POOL 1208 00971000 * FIT IN ANOTHER POOL @ZM31959*/ 00972000 * BUFNO1=BUFNO; /* SET TEMP # OF BUFFERS EQ TO 1209 00973000 * TOTAL # @ZM31959*/ 00974000 STH @04,BUFNO1 1209 00975000 * BUFNO=0; /* SET # OF BUFFERS TO ZERO 1210 00976000 * @ZM31959*/ 00977000 SLR @04,@04 1210 00978000 STH @04,BUFNO 1210 00979000 * BFLV=0; /* INDICATE NO MORE STORAGE 1211 00980000 * NEEDED */ 00981000 ST @04,BFLV 1211 00982000 * END; /* END OF ALL BUFFERS FIT IN 1212 00983000 * ANOTHER POOL @ZM31959*/ 00984000 * ELSE 1213 00985000 * DO; /* PARTIAL # OF TOTAL BUFFERS FIT 00986000 * IN ANOTHER POOL */ 00987000 B @RC01207 1213 00988000 @RF01207 DS 0H 1214 00989000 * BUFNO=BUFNO-BUFNO1; /* SUBTRACT BUFFERS ALREADY 1214 00990000 * OBTAINED */ 00991000 LH @04,BUFNO 1214 00992000 SH @04,BUFNO1 1214 00993000 STH @04,BUFNO 1214 00994000 * IF ALIGN48='1'B THEN 1215 00995000 TM ALIGN48,B'00000100' 1215 00996000 BNO @RF01215 1215 00997000 * NBP=(PGSZ-4)/BUFSIZE; 1216 00998000 LA @02,4092 1216 00999000 SRDA @02,32 1216 01000000 LH @04,BUFSIZE 1216 01001000 DR @02,@04 1216 01002000 ST @03,NBP 1216 01003000 * ELSE 1217 01004000 * NBP=PGSZ/BUFSIZE; 1217 01005000 B @RC01215 1217 01006000 @RF01215 L @02,@CF07624 1217 01007000 SRDA @02,32 1217 01008000 LH @04,BUFSIZE 1217 01009000 DR @02,@04 1217 01010000 ST @03,NBP 1217 01011000 * BFLV=((BUFNO+NBP-1)/NBP)*PGSZ; 1218 01012000 @RC01215 L @04,NBP 1218 01013000 LH @02,BUFNO 1218 01014000 ALR @02,@04 1218 01015000 BCTR @02,0 1218 01016000 SRDA @02,32 1218 01017000 DR @02,@04 1218 01018000 SLA @03,12 1218 01019000 ST @03,BFLV 1218 01020000 * END; 1219 01021000 * END; 1220 01022000 @RC01207 DS 0H 1221 01023000 * END; 1221 01024000 @RC01156 DS 0H 1222 01025000 * 1222 01026000 */********************************************************************/ 01027000 */* */ 01028000 */* GETS PROCESSING */ 01029000 */* */ 01030000 */* THE FOLLOWING CODE ACQUIRES STORAGE FOR THE BUFFER POOL TO BE */ 01031000 */* BUILT. THE POOL IS FIXED IN REAL STORAGE IF REQUIRED. IN THE */ 01032000 */* EVENT THAT THE GETMAIN FAILS, AND THE POOL BEING ACQUIRED IS THE*/ 01033000 */* STORAGE MANAGEMENT PRIVATE POOL, TEH BUFFER POOL DIRECTORY AND */ 01034000 */* AND CONTROL BLOCKS ARE 'PAGE FREED' AND FREEMAINED. */ 01035000 */* */ 01036000 */********************************************************************/ 01037000 * 1222 01038000 * IF RC=0 THEN /* WAS PRIOR PROCESSING OK */ 01039000 @RF01154 SLR @04,@04 1222 01040000 C @04,RC 1222 01041000 BNE @RF01222 1222 01042000 * DO; /* YES - DO ABOVE FUNCTIONS */ 01043000 * IF BPCBFEXT=0 THEN 1224 01044000 C @04,BPCBFEXT(,BPCBPTR) 1224 01045000 BE @RT01224 1224 01046000 * ; 1225 01047000 * ELSE 1226 01048000 * DO; 1226 01049000 * RFY 1227 01050000 * (BUF1, 1227 01051000 * BUF2) RSTD; 1227 01052000 * BUF1=BPCBFEXT; /* GET FIRST EXTENTION PTR */ 01053000 L BUF1,BPCBFEXT(,BPCBPTR) 1228 01054000 * DO I=1 TO BUFNO1 BY 1; /* CHAIN AND INIT BUFFERS IN 1229 01055000 * EXTENTION PAGE */ 01056000 LA I,1 1229 01057000 B @DE01229 1229 01058000 @DL01229 DS 0H 1230 01059000 * BUF2=BUF1+BUFSIZE; /* BUFSIZE ALREADY INCLUDES 1230 01060000 * HIDDEN SMS PREFIX */ 01061000 LR BUF2,BUF1 1230 01062000 AH BUF2,BUFSIZE 1230 01063000 * BUF1->BFPTSKID=0; /* CLEAR BUFFER TASK ID */ 01064000 SLR @04,@04 1231 01065000 ST @04,BFPTSKID(,BUF1) 1231 01066000 * BUF1->BFPPCBA=BPCBPTR;/* INIT BUFFER BPCB BACK PTR */ 01067000 ST BPCBPTR,BFPPCBA(,BUF1) 1232 01068000 * BUF1->BFPSIZE=BUFSIZE1;/* INIT BUFFER SIZE @Z40GKF6*/ 01069000 LH @04,BUFSIZE1 1233 01070000 STH @04,BFPSIZE(,BUF1) 1233 01071000 * BUF1->BFPNXCHN=BUF2; 1234 01072000 ST BUF2,BFPNXCHN(,BUF1) 1234 01073000 * BUF1=BUF2; 1235 01074000 LR BUF1,BUF2 1235 01075000 * END; 1236 01076000 AL I,@CF00050 1236 01077000 @DE01229 CH I,BUFNO1 1236 01078000 BNH @DL01229 1236 01079000 * BUF1=BUF1-BUFSIZE; /* GET BACK TO LAST BUFFER */ 01080000 SH BUF1,BUFSIZE 1237 01081000 * BUF1->BFPNXCHN=0; 1238 01082000 SLR @04,@04 1238 01083000 ST @04,BFPNXCHN(,BUF1) 1238 01084000 * RFY 1239 01085000 * (BUF1, 1239 01086000 * BUF2) UNRSTD; 1239 01087000 * END; 1240 01088000 * IF BFLV=0 THEN 1241 01089000 @RT01224 L @04,BFLV 1241 01090000 LTR @04,@04 1241 01091000 BNZ @RF01241 1241 01092000 * BPCBFBA=BPCBFEXT; 1242 01093000 MVC BPCBFBA(3,BPCBPTR),BPCBFEXT+1(BPCBPTR) 1242 01094000 * ELSE 1243 01095000 * DO; 1243 01096000 B @RC01241 1243 01097000 @RF01241 DS 0H 1244 01098000 * RFY 1244 01099000 * REGA RSTD; 1244 01100000 * REGA=BFLV; /* GET LENGTH FOR GETMAIN */ 01101000 L REGA,BFLV 1245 01102000 * IF NOFETCHP='1'B THEN /* IS THIS POOL TO BE FETCH 1246 01103000 * PROTECTED */ 01104000 TM NOFETCHP,B'00001000' 1246 01105000 BNO @RF01246 1246 01106000 * DO; /* NO - SET UP TO GETMAIN FROM 1247 01107000 * UNPROTECTED SUBPOOL */ 01108000 * RFY 1248 01109000 * (REGA, 1248 01110000 * REGB, 1248 01111000 * REGC) RSTD; 1248 01112000 * REGC=241; /* SET SUBPOOL NUMBER */ 01113000 LA REGC,241 1249 01114000 * END; /* NO SET FOR UNPROTECTED */ 01115000 * ELSE /* YES- SET UP TO GETMAIN FROM 1251 01116000 * FETCH PROTECTED POOL */ 01117000 * DO; 1251 01118000 B @RC01246 1251 01119000 @RF01246 DS 0H 1252 01120000 * REGC=231; /* SET SUBPOOL NUMBER */ 01121000 LA REGC,231 1252 01122000 * END; 1253 01123000 * BPCBSPNO=REGC; 1254 01124000 @RC01246 STC REGC,BPCBSPNO(,BPCBPTR) 1254 01125000 * DO; /* GETMAIN (EC) BNDRY LV(REGA) 1255 01126000 * A(BFA) SP(REGC) */ 01127000 * RESPECIFY 1256 01128000 * (GPR01P) RESTRICTED; 1256 01129000 * I004=I004&&I004; /* INIT LIST */ 01130000 XC I004(10),I004 1257 01131000 * I00404='30'X; /* TYPE */ 01132000 MVI I00404,X'30' 1258 01133000 * I00401=REGA; /* LENGTH */ 01134000 ST REGA,I00401 1259 01135000 * I00403=ADDR(BFA); /* ADDR OF ADDR LIST */ 01136000 LA @09,BFA 1260 01137000 STCM @09,7,I00403 1260 01138000 * I00405=REGC; /* SUBPOOL VALUE */ 01139000 STC REGC,I00405 1261 01140000 * GPR01P=ADDR(I004); /* REG1 POINTS TO LIST */ 01141000 LA GPR01P,I004 1262 01142000 * SVC(4); /* STANDARD-FORM OF GETMAIN */ 01143000 SVC 4 1263 01144000 * RESPECIFY 1264 01145000 * (GPR01P) UNRESTRICTED; 1264 01146000 * END; /* GETMAIN (EC) BNDRY LV(REGA) 1265 01147000 * A(BFA) SP(REGC) */ 01148000 * RFY 1266 01149000 * R15 RSTD; 1266 01150000 * IF R15=0 THEN /* WAS GETMAIN SUCCESSFUL */ 01151000 LTR R15,R15 1267 01152000 BNZ @RF01267 1267 01153000 * DO; /* YES - INIT POOL LIMITS AND FIX 01154000 * POOL IF NECESSARY */ 01155000 * RFY 1269 01156000 * R15 UNRSTD; 1269 01157000 * BPCBADR1=BFA; /* START ADDR OF POOL */ 01158000 L @09,BFA 1270 01159000 ST @09,BPCBADR1(,BPCBPTR) 1270 01160000 * BPCBADR2=BFA+REGA; /* END ADDR OF POOL */ 01161000 ALR @09,REGA 1271 01162000 ST @09,BPCBADR2(,BPCBPTR) 1271 01163000 * IF FXED='1'B|USERFIX='1'B THEN/* POOL TO BE FIXED 1272 01164000 * @ZM32642*/ 01165000 TM FXED,B'00010000' 1272 01166000 BO @RT01272 1272 01167000 TM USERFIX,B'01000000' 1272 01168000 BNO @RF01272 1272 01169000 @RT01272 DS 0H 1273 01170000 * DO; /* YES - FIX IT */ 01171000 * REGA=BPCBADR1; /* SET START @ TO FIX */ 01172000 L REGA,BPCBADR1(,BPCBPTR) 1274 01173000 * REGB=BPCBADR2; /* SET END @ TO FIX */ 01174000 L REGB,BPCBADR2(,BPCBPTR) 1275 01175000 * CALL PFIX; /* FIX THE PAGES */ 01176000 BAL @14,PFIX 1276 01177000 * END; /* PAGES FIXED */ 01178000 * ELSE 1278 01179000 * ; /* POOL NOT TO BE FIXED */ 01180000 @RF01272 DS 0H 1279 01181000 * END; /* POOL INIT'ED AND FIXED */ 01182000 * ELSE 1280 01183000 * RC=4; /* UNSUCCESSFUL GETMAIN */ 01184000 B @RC01267 1280 01185000 @RF01267 MVC RC(4),@CF00093 1280 01186000 * END; /* END OF FUNCTIONS */ 01187000 * END; 1282 01188000 * ELSE 1283 01189000 * ; /* PRIOR PROCESSING FAILED */ 01190000 @RF01222 DS 0H 1284 01191000 * RFY 1284 01192000 * (REGA, 1284 01193000 * REGB, 1284 01194000 * REGC) UNRSTD; 1284 01195000 * 1284 01196000 @RC01222 DS 0H 1285 01197000 */********************************************************************/ 01198000 */* */ 01199000 */* END OF GETS PROCESSING */ 01200000 */* */ 01201000 */********************************************************************/ 01202000 * 1285 01203000 * 1285 01204000 */********************************************************************/ 01205000 */* */ 01206000 */* BPCB PROCESSING */ 01207000 */* */ 01208000 */* THE FOLLOWING PROCESSING INITIALIZES THE BPENTRY AND BPCB */ 01209000 */* CONTROL BLOCKS FOR THIS BUFFER POOL. */ 01210000 */* */ 01211000 */********************************************************************/ 01212000 * 1285 01213000 * IF RC=0 THEN /* WAS PRIOR PROCESSING OK */ 01214000 SLR @04,@04 1285 01215000 C @04,RC 1285 01216000 BNE @RF01285 1285 01217000 * DO; /* YES - INIT THE BLOCKS */ 01218000 * BPEPID=POOLID; /* SET POOL IDENTIFIER */ 01219000 MVC BPEPID(4,BPEPTR),POOLID 1287 01220000 * BPEFLAGS=BPCBFLAG; 1288 01221000 MVC BPEFLAGS(2,BPEPTR),BPCBFLAG(BPCBPTR) 1288 01222000 * BPEBFSIZ=BUFSIZE-8; /* SET THE LENGTH OF A BUFFER */ 01223000 LH @00,BUFSIZE 1289 01224000 SL @00,@CF00035 1289 01225000 STH @00,BPEBFSIZ(,BPEPTR) 1289 01226000 * BPEBPCB=BPCBPTR; /* POINT TO BPCB FOR THIS POOL */ 01227000 ST BPCBPTR,BPEBPCB(,BPEPTR) 1290 01228000 * BPDBPENT=BPDBPENT+1; /* INCREMENT NO. OF PLS BUILT BY 01229000 * 1 */ 01230000 * 1291 01231000 LA @00,1 1291 01232000 AH @00,BPDBPENT(,BPDPTR) 1291 01233000 STH @00,BPDBPENT(,BPDPTR) 1291 01234000 * /*************************************************************/ 01235000 * /* */ 01236000 * /* BPENTRY IS INITIALIZED. THE FOLLOWING INITIALIZES THE BPCB*/ 01237000 * /* FOR THIS POOL. */ 01238000 * /* */ 01239000 * /*************************************************************/ 01240000 * 1292 01241000 * BPCBPDTY=BPDPTR; /* MAKE BPCB POINT TO BUFFER POOL 01242000 * DIRECTORY */ 01243000 ST BPDPTR,BPCBPDTY(,BPCBPTR) 1292 01244000 * BPCBTOTL=BUFNO+BUFNO1; /* NUMBER OF BUFFERS IN POOL */ 01245000 LH @15,BUFNO 1293 01246000 LH @14,BUFNO1 1293 01247000 LR @00,@15 1293 01248000 ALR @00,@14 1293 01249000 STH @00,BPCBTOTL(,BPCBPTR) 1293 01250000 * BPCBAVNO=BPCBTOTL; /* INIT. NO. OF AVAIL BUFS */ 01251000 STH @00,BPCBAVNO(,BPCBPTR) 1294 01252000 * BPCMINAV=BPCBTOTL; /* INIT MIN BUF AVAILABILITY 1295 01253000 * @Z40GKF6*/ 01254000 STH @00,BPCMINAV(,BPCBPTR) 1295 01255000 * BPCBBSIZ=BUFSIZE1; /* INIT. SIZE OF BUFFER @Z40GKF6*/ 01256000 LH @09,BUFSIZE1 1296 01257000 STH @09,BPCBBSIZ(,BPCBPTR) 1296 01258000 * BPCBNUM=BUFNO; /* INIT # BUFS IN OWN AREA 1297 01259000 * @Z40GKF6*/ 01260000 STH @15,BPCBNUM(,BPCBPTR) 1297 01261000 * BPCBNUMR=BUFNO1; /* INIT # BUFS IN EXTENT @Z40GKF6*/ 01262000 STH @14,BPCBNUMR(,BPCBPTR) 1298 01263000 * BPCBRESP=BPCBFEXT; /* INIT PTR TO EXTENT @Z40GKF6*/ 01264000 L @15,BPCBFEXT(,BPCBPTR) 1299 01265000 ST @15,BPCBRESP(,BPCBPTR) 1299 01266000 * BPCBTHRE=BPCBTOTL-THRESH; /* INIT THRESHOLD VALUE FOR POOL */ 01267000 SH @00,THRESH 1300 01268000 STH @00,BPCBTHRE(,BPCBPTR) 1300 01269000 * IF BPCBTHRE=ZERO THEN /* NO THRESHOLD? @ZM32956*/ 01270000 CR @00,@04 1301 01271000 BNE @RF01301 1301 01272000 * BPCBTHR2=BPCBTHRE; /* SET SECOND THRE TO ZERO 1302 01273000 * @ZM32956*/ 01274000 STH @00,BPCBTHR2(,BPCBPTR) 1302 01275000 * ELSE /* SETUP SECOND THRE AS 10% + 1ST 01276000 * THRE @ZM32956*/ 01277000 * BPCBTHR2=BPCBTHRE+(BPCBTOTL/10);/* DCR 1878 */ 01278000 B @RC01301 1303 01279000 @RF01301 LH @02,BPCBTOTL(,BPCBPTR) 1303 01280000 SRDA @02,32 1303 01281000 D @02,@CF00470 1303 01282000 AH @03,BPCBTHRE(,BPCBPTR) 1303 01283000 STH @03,BPCBTHR2(,BPCBPTR) 1303 01284000 * IF BPCBTHR2>=BPCBTOTL /* @ZA18487*/ 01285000 * THEN /* @ZA18487*/ 01286000 @RC01301 LH @04,BPCBTOTL(,BPCBPTR) 1304 01287000 CH @04,BPCBTHR2(,BPCBPTR) 1304 01288000 BH @RF01304 1304 01289000 * BPCBTHR2=((BPCBTOTL-BPCBTHRE)/2)+BPCBTHRE;/* @ZA18487*/ 01290000 LH @15,BPCBTHRE(,BPCBPTR) 1305 01291000 LR @02,@04 1305 01292000 SLR @02,@15 1305 01293000 SRDA @02,32 1305 01294000 D @02,@CF00090 1305 01295000 ALR @03,@15 1305 01296000 STH @03,BPCBTHR2(,BPCBPTR) 1305 01297000 * IF BPDBPENT0); 1340 01424000 B @DE01340 1340 01425000 @DL01340 DS 0H 1341 01426000 * NB=MIN(BUFNO,NBP); /* INIT N TO SMALLER */ 01427000 LH NB,BUFNO 1341 01428000 L @03,NBP 1341 01429000 CR NB,@03 1341 01430000 BNH *+6 01431000 LR NB,@03 1341 01432000 * BUF2=PGA; /* INIT PTR TO NEXT BUFFER */ 01433000 LR BUF2,PGA 1342 01434000 * DO WHILE(NB>0); /* CHAIN BUFS IN THIS PAGE */ 01435000 B @DE01343 1343 01436000 @DL01343 DS 0H 1344 01437000 * BUF1=BUF2; /* INIT PTR TO CURRENT BUFFER */ 01438000 LR BUF1,BUF2 1344 01439000 * BUF2=BUF1+BUFSIZE; /* SET BUF2 TO @ OF NEXT BUFFER 01440000 * @Z40GKF6*/ 01441000 LR BUF2,BUF1 1345 01442000 AH BUF2,BUFSIZE 1345 01443000 * BUF1->BFPTSKID=0; /* INIT TASK ID IN PREFIX */ 01444000 SLR @03,@03 1346 01445000 ST @03,BFPTSKID(,BUF1) 1346 01446000 * BUF1->BFPPCBA=BPCBPTR;/* MAKE HOME @ POINT TO BPCB */ 01447000 ST BPCBPTR,BFPPCBA(,BUF1) 1347 01448000 * BUF1->BFPNXCHN=BUF2;/* SET PTR TO NEXT BUFFER */ 01449000 ST BUF2,BFPNXCHN(,BUF1) 1348 01450000 * BUF1->BFPSIZE=BPCBBSIZ;/* SET LENGTH OF BUF */ 01451000 LH @03,BPCBBSIZ(,BPCBPTR) 1349 01452000 STH @03,BFPSIZE(,BUF1) 1349 01453000 * NB=NB-1; /* DECREMENT LOOP COUNTER */ 01454000 BCTR NB,0 1350 01455000 * END; 1351 01456000 @DE01343 LTR NB,NB 1351 01457000 BP @DL01343 1351 01458000 * PGA=PGA+PGSZ; /* INCREMENT TO NEXT PAGE */ 01459000 AL PGA,@CF07624 1352 01460000 * BUF1->BFPNXCHN=PGA; /* RESET LAST BUF PTR */ 01461000 ST PGA,BFPNXCHN(,BUF1) 1353 01462000 * BUFNO=BUFNO-NBP; /* ACCOUNT FOR CHAINED BUFS */ 01463000 LH @04,BUFNO 1354 01464000 SL @04,NBP 1354 01465000 STH @04,BUFNO 1354 01466000 * END; 1355 01467000 @DE01340 SLR @04,@04 1355 01468000 CH @04,BUFNO 1355 01469000 BL @DL01340 1355 01470000 * BUF1->BFPNXCHN=0; /* INIT FORWARD PTR OF LAST 1356 01471000 * BUFFER IN POOL */ 01472000 ST @04,BFPNXCHN(,BUF1) 1356 01473000 * RFY 1357 01474000 * BUF2 UNRSTD; 1357 01475000 * IF BPCBFEXT=0 THEN 1358 01476000 C @04,BPCBFEXT(,BPCBPTR) 1358 01477000 BE @RT01358 1358 01478000 * ; 1359 01479000 * ELSE 1360 01480000 * DO; 1360 01481000 * BUF1->BFPNXCHN=BPCBFEXT; 1361 01482000 L @07,BPCBFEXT(,BPCBPTR) 1361 01483000 ST @07,BFPNXCHN(,BUF1) 1361 01484000 * RFY 1362 01485000 * BUF1 UNRSTD; 1362 01486000 * END; 1363 01487000 * BPCBFEXT=BPCBADR2-BPCBCCNT; 1364 01488000 @RT01358 L @04,BPCBADR2(,BPCBPTR) 1364 01489000 SH @04,BPCBCCNT(,BPCBPTR) 1364 01490000 ST @04,BPCBFEXT(,BPCBPTR) 1364 01491000 * END; 1365 01492000 * ELSE 1366 01493000 * BPCBCCNT=0; 1366 01494000 B @RC01324 1366 01495000 @RF01324 SLR @04,@04 1366 01496000 STH @04,BPCBCCNT(,BPCBPTR) 1366 01497000 * END; /* LAST BUFFER PROCESSING DONE. 01498000 * BUFFERS ARE CHAINED */ 01499000 * 1367 01500000 @RC01324 DS 0H 1368 01501000 * /*****************************************************************/ 01502000 * /* */ 01503000 * /* THE FOLLOWING IS THE COMPLETION PROCESSING FOR THE BPOOL */ 01504000 * /* SUBROUTINE. */ 01505000 * /* */ 01506000 * /*****************************************************************/ 01507000 * 1368 01508000 *ENDBPOOL: 1368 01509000 * ; /* @ZM32024*/ 01510000 @RF01322 DS 0H 1368 01511000 ENDBPOOL DS 0H 1369 01512000 * RFY 1369 01513000 * SAVREG RSTD; 1369 01514000 * SAVREG=SAVREG->SVHSA; /* GET @ OF CALLERS SAVE AREA */ 01515000 L SAVREG,SVHSA(,SAVREG) 1370 01516000 * RFY 1371 01517000 * SAVREG UNRSTD; 1371 01518000 * END BPOOL; /* END OF BPOOL INTERNAL PROC */ 01519000 @EL00002 DS 0H 1372 01520000 @EF00002 DS 0H 1372 01521000 @ER00002 LM @14,@12,12(@13) 1372 01522000 BR @14 1372 01523000 * 1373 01524000 * /*****************************************************************/ 01525000 * /* */ 01526000 * /* DELETE POOL SUBROUTINE */ 01527000 * /* */ 01528000 * /*****************************************************************/ 01529000 * 1373 01530000 *DPOOL: 1373 01531000 * PROC OPTIONS(SAVE,NOSAVEAREA); 1373 01532000 DPOOL STM @14,@12,12(@13) 1373 01533000 * RFY 1374 01534000 * (SAVREG, 1374 01535000 * REGA, 1374 01536000 * REGB, 1374 01537000 * REGC) RSTD; 1374 01538000 * SAVREG=ADDR(SAV2); /* ADDR OF 2ND SAVEAREA */ 01539000 LA SAVREG,SAV2 1375 01540000 * RFY 1376 01541000 * SAVREG RSTD; 1376 01542000 * 1376 01543000 * /*****************************************************************/ 01544000 * /* */ 01545000 * /* FIND THE BUFFER POOL ENTRY */ 01546000 * /* */ 01547000 * /*****************************************************************/ 01548000 * 1377 01549000 * ENDBPE=ADDR(BPDENTRY)+BPDBPMAX*LENGTH(ISTBPENT); 1377 01550000 * 1377 01551000 LA @09,BPDENTRY(,BPDPTR) 1377 01552000 LH ENDBPE,BPDBPMAX(,BPDPTR) 1377 01553000 SLA ENDBPE,4 1377 01554000 ALR ENDBPE,@09 1377 01555000 * /*****************************************************************/ 01556000 * /* */ 01557000 * /* CALCULATE THE ENDING ADDR OF THE BPES */ 01558000 * /* */ 01559000 * /*****************************************************************/ 01560000 * 1378 01561000 * DO BPEPTR=ADDR(BPDENTRY) TO ENDBPE BY LENGTH(ISTBPENT) WHILE BPEPID 01562000 * ^=POOLID; /* SEARCH FOR POOLID */ 01563000 LR BPEPTR,@09 1378 01564000 B @DE01378 1378 01565000 @DL01378 CLC BPEPID(4,BPEPTR),POOLID 1378 01566000 BE @DC01378 1378 01567000 * END; 1379 01568000 AL BPEPTR,@CF00047 1379 01569000 @DE01378 CR BPEPTR,ENDBPE 1379 01570000 BNH @DL01378 1379 01571000 @DC01378 DS 0H 1380 01572000 * IF BPEPID^=POOLID THEN /* POOLID NOT FOUND */ 01573000 CLC BPEPID(4,BPEPTR),POOLID 1380 01574000 BE @RF01380 1380 01575000 * RC=8; 1381 01576000 MVC RC(4),@CF00035 1381 01577000 * ELSE 1382 01578000 * DO; /* POOLID FOUND */ 01579000 B @RC01380 1382 01580000 @RF01380 DS 0H 1383 01581000 * BPCBPTR=BPEBPCB; /* ADDR OF BPCB FROM ENTRY */ 01582000 L BPCBPTR,BPEBPCB(,BPEPTR) 1383 01583000 * IF BPCBADR1^=0 THEN 1384 01584000 L @09,BPCBADR1(,BPCBPTR) 1384 01585000 LTR @09,@09 1384 01586000 BZ @RF01384 1384 01587000 * DO; 1385 01588000 * IF BPCBFX='1'B|BPCBUSRF='1'B/* IF POOL IS FIXED @ZM32642*/ 01589000 * THEN /* THE PAGES MUST BE FREED */ 01590000 TM BPCBFX(BPCBPTR),B'00100000' 1386 01591000 BO @RT01386 1386 01592000 TM BPCBUSRF(BPCBPTR),B'10000000' 1386 01593000 BNO @RF01386 1386 01594000 @RT01386 DS 0H 1387 01595000 * DO; 1387 01596000 * REGA=BPCBADR1; /* GET ADDR OF BEG PAGE TO BE 1388 01597000 * FREED */ 01598000 L REGA,BPCBADR1(,BPCBPTR) 1388 01599000 * REGB=BPCBADR2; /* GET ADDR OF END PAGE TO BE 1389 01600000 * FREED */ 01601000 L REGB,BPCBADR2(,BPCBPTR) 1389 01602000 * DO; /* PGFREE(R) A(BEGADR) EA(ENDADR)*/ 01603000 * RESPECIFY 1391 01604000 * (GPR00P, 1391 01605000 * GPR01P) RESTRICTED; 1391 01606000 * GPR00P=0; /* INDICATE NO PAGE ECB */ 01607000 SLR GPR00P,GPR00P 1392 01608000 * GPR01P=ADDR(BEGADR);/* PAGE ADDR */ 01609000 LR GPR01P,REGA 1393 01610000 * RESPECIFY 1394 01611000 * GPR15P RESTRICTED; 1394 01612000 * GPR15P=ADDR(ENDADR);/* VSL ADDR */ 01613000 LR GPR15P,REGB 1395 01614000 * GPR01P=GPR01P|'20000000'X;/* R, PGFREE & RELEASE 1396 01615000 * FLAG */ 01616000 O GPR01P,@CF02654 1396 01617000 * SVC(113); /* ISSUE PGFREE SVC */ 01618000 SVC 113 1397 01619000 * RESPECIFY 1398 01620000 * (GPR00P, 1398 01621000 * GPR01P, 1398 01622000 * GPR15P) UNRESTRICTED; 1398 01623000 * END; /* PGFREE(R) A(BEGADR) EA(ENDADR)*/ 01624000 * END; 1400 01625000 * ELSE 1401 01626000 * ; 1401 01627000 @RF01386 DS 0H 1402 01628000 * ISTBPENT=ISTBPENT&&ISTBPENT;/* CLEAR BUF POOL ENTRY */ 01629000 * 1402 01630000 XC ISTBPENT(16,BPEPTR),ISTBPENT(BPEPTR) 1402 01631000 * /*********************************************************/ 01632000 * /* */ 01633000 * /* PREPARE TO FREEMAIN POOL PAGES */ 01634000 * /* */ 01635000 * /*********************************************************/ 01636000 * 1403 01637000 * REGA=BPCBADR2-BPCBADR1; /* LENGTH TO FREEMAIN */ 01638000 L @09,BPCBADR1(,BPCBPTR) 1403 01639000 L REGA,BPCBADR2(,BPCBPTR) 1403 01640000 SLR REGA,@09 1403 01641000 * FAREA=BPCBADR1; /* ADDR TO START FREEMAIN */ 01642000 ST @09,FAREA 1404 01643000 * REGC=BPCBSPNO; /* SUBPOOL NUMBER */ 01644000 SLR REGC,REGC 1405 01645000 IC REGC,BPCBSPNO(,BPCBPTR) 1405 01646000 * DO; /* FREEMAIN (E) LV(REGA) A(FAREA) 01647000 * SP(REGC) */ 01648000 * RESPECIFY 1407 01649000 * (GPR01P) RESTRICTED; 1407 01650000 * I005=I005&&I005; /* INIT LIST */ 01651000 XC I005(10),I005 1408 01652000 * I00505='00'X; /* SET TYPE */ 01653000 MVI I00505,X'00' 1409 01654000 * I00502=REGA; /* LENGTH */ 01655000 STCM REGA,7,I00502 1410 01656000 * I00504=ADDR(FAREA); /* ADDR OF ADDR LIST */ 01657000 LA @09,FAREA 1411 01658000 STCM @09,7,I00504 1411 01659000 * I00506=REGC; /* SUBPOOL VALUE */ 01660000 STC REGC,I00506 1412 01661000 * GPR01P=ADDR(I005); /* REG1 POINTS TO LIST */ 01662000 LA GPR01P,I005 1413 01663000 * SVC(5); /* STANDARD-FORM OF GETMAIN */ 01664000 SVC 5 1414 01665000 * RESPECIFY 1415 01666000 * (GPR01P) UNRESTRICTED; 1415 01667000 * END; /* FREEMAIN (E) LV(REGA) A(FAREA) 01668000 * SP(REGC) */ 01669000 * END; /* END OF PGFREE,FREEMAIN PATH 1417 01670000 * @ZM32275*/ 01671000 * BPDBPENT=BPDBPENT-1; /* DECREMENT COUNT OF ENTRIES */ 01672000 @RF01384 LH @09,BPDBPENT(,BPDPTR) 1418 01673000 BCTR @09,0 1418 01674000 STH @09,BPDBPENT(,BPDPTR) 1418 01675000 * IF BPDBPENT=1 /* IF THIS IS LAST POOL @ZM32275*/ 01676000 * THEN /* FREE THE DIRECTORY */ 01677000 C @09,@CF00050 1419 01678000 BNE @RF01419 1419 01679000 * DO; 1420 01680000 * REGA=ATCBPDA; /* GET ADDR OF BEG PAGE TO BE 1421 01681000 * FREED */ 01682000 L @09,ATCVTPTR 1421 01683000 L @09,ATCBPDA(,@09) 1421 01684000 LR REGA,@09 1421 01685000 * REGB=ATCBPDA+BPDLV; /* GET ADDR OF END PAGE TO BE 1422 01686000 * FREED */ 01687000 AL @09,BPDLV 1422 01688000 LR REGB,@09 1422 01689000 * DO; /* PGFREE(R) A(BEGADR) EA(ENDADR)*/ 01690000 * RESPECIFY 1424 01691000 * (GPR00P, 1424 01692000 * GPR01P) RESTRICTED; 1424 01693000 * GPR00P=0; /* INDICATE NO PAGE ECB */ 01694000 SLR GPR00P,GPR00P 1425 01695000 * GPR01P=ADDR(BEGADR); /* PAGE ADDR */ 01696000 LR GPR01P,REGA 1426 01697000 * RESPECIFY 1427 01698000 * GPR15P RESTRICTED; 1427 01699000 * GPR15P=ADDR(ENDADR); /* VSL ADDR */ 01700000 LR GPR15P,REGB 1428 01701000 * GPR01P=GPR01P|'20000000'X;/* R, PGFREE & RELEASE FLAG */ 01702000 O GPR01P,@CF02654 1429 01703000 * SVC(113); /* ISSUE PGFREE SVC */ 01704000 SVC 113 1430 01705000 * RESPECIFY 1431 01706000 * (GPR00P, 1431 01707000 * GPR01P, 1431 01708000 * GPR15P) UNRESTRICTED; 1431 01709000 * END; /* PGFREE(R) A(BEGADR) EA(ENDADR)*/ 01710000 * FAREA=ATCBPDA; /* ADDR OF DIRECTORY COMPUTE 1433 01711000 * LENGTH TO FREEMAIN */ 01712000 L @09,ATCVTPTR 1433 01713000 L @09,ATCBPDA(,@09) 1433 01714000 ST @09,FAREA 1433 01715000 * REGA=BPDLV; 1434 01716000 L REGA,BPDLV 1434 01717000 * REGC=231; /* SUBPOOL OF DIRECTORY */ 01718000 LA REGC,231 1435 01719000 * DO; /* FREEMAIN (E) LV(REGA) A(FAREA) 01720000 * SP(REGC) */ 01721000 * RESPECIFY 1437 01722000 * (GPR01P) RESTRICTED; 1437 01723000 * I005=I005&&I005; /* INIT LIST */ 01724000 XC I005(10),I005 1438 01725000 * I00505='00'X; /* SET TYPE */ 01726000 MVI I00505,X'00' 1439 01727000 * I00502=REGA; /* LENGTH */ 01728000 STCM REGA,7,I00502 1440 01729000 * I00504=ADDR(FAREA); /* ADDR OF ADDR LIST */ 01730000 LA @09,FAREA 1441 01731000 STCM @09,7,I00504 1441 01732000 * I00506=REGC; /* SUBPOOL VALUE */ 01733000 STC REGC,I00506 1442 01734000 * GPR01P=ADDR(I005); /* REG1 POINTS TO LIST */ 01735000 LA GPR01P,I005 1443 01736000 * SVC(5); /* STANDARD-FORM OF GETMAIN */ 01737000 SVC 5 1444 01738000 * RESPECIFY 1445 01739000 * (GPR01P) UNRESTRICTED; 1445 01740000 * END; /* FREEMAIN (E) LV(REGA) A(FAREA) 01741000 * SP(REGC) */ 01742000 * ATCBPDA=0; /* ZERO PTR TO DIRECTORY */ 01743000 L @09,ATCVTPTR 1447 01744000 SLR @04,@04 1447 01745000 ST @04,ATCBPDA(,@09) 1447 01746000 * END; 1448 01747000 * ELSE 1449 01748000 * ; 1449 01749000 @RF01419 DS 0H 1450 01750000 * END; 1450 01751000 * RFY 1451 01752000 * SAVREG RSTD; 1451 01753000 @RC01380 DS 0H 1452 01754000 * SAVREG=ADDR(SAV1); /* RESTORE R13 */ 01755000 LA SAVREG,SAV1 1452 01756000 * RFY 1453 01757000 * (SAVREG, 1453 01758000 * REGA, 1453 01759000 * REGB, 1453 01760000 * REGC) UNRSTD; 1453 01761000 * END DPOOL; 1454 01762000 @EL00003 DS 0H 1454 01763000 @EF00003 DS 0H 1454 01764000 @ER00003 LM @14,@12,12(@13) 1454 01765000 BR @14 1454 01766000 * 1455 01767000 * /*****************************************************************/ 01768000 * /* */ 01769000 * /* PAGE FIX SUBROUTINE */ 01770000 * /* */ 01771000 * /*****************************************************************/ 01772000 * 1455 01773000 *PFIX: 1455 01774000 * PROC OPTIONS(NOSAVEAREA); 1455 01775000 PFIX STM @14,@12,12(@13) 1455 01776000 * RFY 1456 01777000 * (REGA, 1456 01778000 * REGB, 1456 01779000 * REGC, 1456 01780000 * R15) RSTD; /* RESTRICT INPUT REGS */ 01781000 * ECB=0; /* CLEAR ECB */ 01782000 SLR @14,@14 1457 01783000 ST @14,ECB 1457 01784000 * DO; /* PGFIX (R) A(FIXBA) EA(FIXEA) 01785000 * ECB(ECB) */ 01786000 * RESPECIFY 1459 01787000 * (GPR00P, 1459 01788000 * GPR01P) RESTRICTED; 1459 01789000 * GPR00P=ADDR(ECB); /* ECB ADDR */ 01790000 LA GPR00P,ECB 1460 01791000 * GPR01P=ADDR(FIXBA); /* PAGE ADDR */ 01792000 LR GPR01P,REGA 1461 01793000 * RESPECIFY 1462 01794000 * GPR15P RESTRICTED; 1462 01795000 * GPR15P=ADDR(FIXEA); /* VSL ADDR */ 01796000 LR GPR15P,REGB 1463 01797000 * GPR01P=GPR01P|'52000000'X; /* R, PGFIX, RELEASE & LONG FLAGS*/ 01798000 O GPR01P,@CF07822 1464 01799000 * SVC(113); /* ISSUE PGFIX SVC */ 01800000 SVC 113 1465 01801000 * RESPECIFY 1466 01802000 * (GPR00P, 1466 01803000 * GPR01P) UNRESTRICTED; 1466 01804000 * RESPECIFY 1467 01805000 * GPR15P UNRESTRICTED; 1467 01806000 * END; /* PGFIX (R) A(FIXBA) EA(FIXEA) 01807000 * ECB(ECB) */ 01808000 * IF R15=0|R15=8 THEN /* PGFIX COMPLETE OR COMPLETING */ 01809000 LTR R15,R15 1469 01810000 BZ @RT01469 1469 01811000 C R15,@CF00035 1469 01812000 BNE @RF01469 1469 01813000 @RT01469 DS 0H 1470 01814000 * DO; /* WAIT (1) ECB(ECB) */ 01815000 * RESPECIFY 1471 01816000 * (GPR00P, 1471 01817000 * GPR01P) RESTRICTED; 1471 01818000 * GPR00P=1; /* LOAD WAIT COUNT */ 01819000 LA GPR00P,1 1472 01820000 * GPR01P=ADDR(ECB); /* ADDRESS OF ECB */ 01821000 LA GPR01P,ECB 1473 01822000 * SVC(1); /* WAIT SVC */ 01823000 SVC 1 1474 01824000 * RESPECIFY 1475 01825000 * (GPR00P, 1475 01826000 * GPR01P) UNRESTRICTED; 1475 01827000 * END; /* WAIT (1) ECB(ECB) WAIT FOR 1476 01828000 * COMPLETION */ 01829000 * IF ECBCODE='0'B THEN 1477 01830000 @RF01469 TM ECBCODE,B'00000100' 1477 01831000 BNZ @RF01477 1477 01832000 * DO; 1478 01833000 * RC=0; 1479 01834000 SLR @14,@14 1479 01835000 ST @14,RC 1479 01836000 * END; 1480 01837000 * ELSE 1481 01838000 * DO; 1481 01839000 B @RC01477 1481 01840000 @RF01477 DS 0H 1482 01841000 * REGB=REGB-REGA; /* LENGTH TO FREEMAIN */ 01842000 SLR REGB,REGA 1482 01843000 * FAREA=REGA; /* ADDR TO FREEMAIN */ 01844000 ST REGA,FAREA 1483 01845000 * DO; /* FREEMAIN (E) LV(REGB) A(FAREA) 01846000 * SP(REGC) */ 01847000 * RESPECIFY 1485 01848000 * (GPR01P) RESTRICTED; 1485 01849000 * I005=I005&&I005; /* INIT LIST */ 01850000 XC I005(10),I005 1486 01851000 * I00505='00'X; /* SET TYPE */ 01852000 MVI I00505,X'00' 1487 01853000 * I00502=REGB; /* LENGTH */ 01854000 STCM REGB,7,I00502 1488 01855000 * I00504=ADDR(FAREA); /* ADDR OF ADDR LIST */ 01856000 LA @14,FAREA 1489 01857000 STCM @14,7,I00504 1489 01858000 * I00506=REGC; /* SUBPOOL VALUE */ 01859000 STC REGC,I00506 1490 01860000 * GPR01P=ADDR(I005); /* REG1 POINTS TO LIST */ 01861000 LA GPR01P,I005 1491 01862000 * SVC(5); /* STANDARD-FORM OF GETMAIN */ 01863000 SVC 5 1492 01864000 * RESPECIFY 1493 01865000 * (GPR01P) UNRESTRICTED; 1493 01866000 * END; /* FREEMAIN (E) LV(REGB) A(FAREA) 01867000 * SP(REGC) */ 01868000 * RC=4; /* ERROR - PGFIX DID NOT FIX */ 01869000 MVC RC(4),@CF00093 1495 01870000 * END; 1496 01871000 * RFY 1497 01872000 * (REGA, 1497 01873000 * REGB, 1497 01874000 * REGC, 1497 01875000 * R15) UNRSTD; 1497 01876000 * END PFIX; 1498 01877000 * 1498 01878000 @EL00004 DS 0H 1498 01879000 @EF00004 DS 0H 1498 01880000 @ER00004 LM @14,@12,12(@13) 1498 01881000 BR @14 1498 01882000 @PB00004 DS 0H 1498 01883000 */* RESTORE ALL OF CALLER'S REGS EXCEPT 15 INCLUDING RETURN REG */ 01884000 */* AND RETURN TO HIM */ 01885000 * 1499 01886000 * GENERATE REFS(USERSAV); 1499 01887000 LM 0,14,USERSAV 01888000 BR 14 01889000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01890000 * GPR00P PTR(31) REG(0), 1500 01891000 * GPR01P PTR(31) REG(1), 1500 01892000 * GPR15P PTR(31) REG(15); 1500 01893000 * DCL 1501 01894000 * 1 I004 DEF(ILIST) BDY(WORD), /* LIST FOR GETMAIN */ 01895000 * 2 I00401 PTR(31), /* LENGTH */ 01896000 * 2 I00402 CHAR(1), /* HIARCHY */ 01897000 * 2 I00403 PTR(24), /* ADDR OF ADDR LIST */ 01898000 * 2 I00404 CHAR(1), /* TYPE OF REQUEST */ 01899000 * 2 I00405 PTR(8); /* SUBPOOL VALUE */ 01900000 * DCL 1502 01901000 * 1 I005 DEF(ILIST) BDY(WORD), /* LIST FOR FREEMAIN */ 01902000 * 3 I00501 PTR(8), /* RESERVED */ 01903000 * 3 I00502 PTR(24), /* LENGTH */ 01904000 * 3 I00503 PTR(8), /* RESERVED */ 01905000 * 3 I00504 PTR(24), /* ADDR OF ADDR LIST */ 01906000 * 3 I00505 BIT(8), /* TYPE OF FREEMAIN */ 01907000 * 3 I00506 PTR(8); /* SUBPOOL VALUE */ 01908000 * DECLARE 1503 01909000 * ILIST CHAR(10) BDY(DWORD); /* STANDARD LIST */ 01910000 * DECLARE /* COMMON VARIABLES */ 01911000 * I256C CHAR(256) BASED, 1504 01912000 * I031F FIXED(31) BASED, 1504 01913000 * I031P PTR(31) BASED, 1504 01914000 * I015F FIXED(15) BASED, 1504 01915000 * I015P PTR(15) BASED, 1504 01916000 * I008P PTR(8) BASED, 1504 01917000 * I001C CHAR(1) BASED; 1504 01918000 * END ISTORFPO /* END OF MODULE */ 01919000 * 1505 01920000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01921000 */*%INCLUDE SYSLIB (IFGACB ) */ 01922000 */*%INCLUDE SYSLIB (IFGACBVT) */ 01923000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01924000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01925000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01926000 */*%INCLUDE SYSLIB (IEZIOB ) */ 01927000 */*%INCLUDE SYSLIB (IHASRB ) */ 01928000 */*%INCLUDE SYSLIB (IECDTCCW) */ 01929000 */*%INCLUDE SYSLIB (ISTTCCW ) */ 01930000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01931000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01932000 */*%INCLUDE SYSLIB (CVT ) */ 01933000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01934000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01935000 */*%INCLUDE SYSLIB (IHAASXB ) */ 01936000 * 1505 01937000 * ; 1505 01938000 @DATA DS 0H 01939000 @CH07838 DC H'88' 01940000 @CH07637 DC H'1000' 01941000 DS 0F 01942000 DS 0F 01943000 @CF00050 DC F'1' 01944000 @CH00050 EQU @CF00050+2 01945000 @CF00090 DC F'2' 01946000 @CF00093 DC F'4' 01947000 @CF00289 DC F'7' 01948000 @CF00035 DC F'8' 01949000 @CF00470 DC F'10' 01950000 @CF00047 DC F'16' 01951000 @CF05361 DC F'25' 01952000 @CF05088 DC F'72' 01953000 @CF07835 DC F'112' 01954000 @CH07835 EQU @CF07835+2 01955000 @CF07834 DC F'304' 01956000 @CF07837 DC F'448' 01957000 @CF07624 DC F'4096' 01958000 @CF02654 DC XL4'20000000' 01959000 @CF07822 DC XL4'52000000' 01960000 @CF07843 DC XL4'0000FFFF' 01961000 DS 0D 01962000 BFPFXPTR DS A 01963000 N DC AL4(12) 01964000 ATCVTPTR DS A 01965000 BPDLV DS F 01966000 BPDA DS A 01967000 BFA DS A 01968000 RC DS F 01969000 NBP DS F 01970000 SMSCBLEN DS F 01971000 BUFNO1 DS H 01972000 BUFSIZE DS H 01973000 @CC07649 DC C'SMS1' 01974000 @CC07812 DC C'ORDQ' 01975000 USERSAV DS CL60 01976000 ORG USERSAV 01977000 @NM00165 DS CL8 01978000 SAVDR234 DS CL12 01979000 @NM00166 DS CL40 01980000 ORG USERSAV+60 01981000 PARMAREA DS CL12 01982000 ORG PARMAREA 01983000 PREG2 DS AL4 01984000 ORG PREG2 01985000 POOLID DS CL4 01986000 ORG PARMAREA+4 01987000 PREG3 DS AL4 01988000 ORG PREG3 01989000 FLAGS DS CL2 01990000 ORG FLAGS 01991000 DELPOOL DS BL1 01992000 POOLFM EQU FLAGS+0 01993000 DISP EQU FLAGS+0 01994000 FXED EQU FLAGS+0 01995000 NOFETCHP EQU FLAGS+0 01996000 ALIGN48 EQU FLAGS+0 01997000 CBID EQU FLAGS+0 01998000 NWS EQU FLAGS+0 01999000 @NM00167 DS BL1 02000000 USERFIX EQU FLAGS+1 02001000 @NM00168 EQU FLAGS+1 02002000 ORG PREG3+2 02003000 BUFSIZE1 DS FL2 02004000 ORG PARMAREA+8 02005000 PREG4 DS AL4 02006000 ORG PREG4 02007000 BUFNO DS FL2 02008000 THRESH DS FL2 02009000 ORG PARMAREA+12 02010000 INTFLAGS DS CL1 02011000 ORG INTFLAGS 02012000 SWB DS BL1 02013000 F EQU INTFLAGS+0 02014000 @NM00169 EQU INTFLAGS+0 02015000 ORG INTFLAGS+1 02016000 DS CL3 02017000 WORKAREA DS CL8 02018000 ORG WORKAREA 02019000 FAREA DS AL4 02020000 BFLV DS FL4 02021000 ORG WORKAREA+8 02022000 ECB DS CL4 02023000 ORG ECB 02024000 @NM00170 DS BL3 02025000 @NM00171 DS BL1 02026000 ORG @NM00171 02027000 @NM00172 DS BL1 02028000 ECBCODE EQU @NM00171+0 02029000 @NM00173 EQU @NM00171+0 02030000 ORG ECB+4 02031000 PARWEPL DS CL12 02032000 ORG PARWEPL 02033000 PARID DC CL4'SMS1' 02034000 PARFLGS DC B'00110000' 02035000 ORG PARFLGS 02036000 PARPOOL DS BL1 02037000 PARLFM EQU PARFLGS+0 02038000 PARP EQU PARFLGS+0 02039000 PARD EQU PARFLGS+0 02040000 PARETCHP EQU PARFLGS+0 02041000 ORG PARWEPL+5 02042000 @NM00174 DC B'00000000' 02043000 PARBFSZ DC H'0' 02044000 PARBFNO DC H'0' 02045000 PARTHRS DC H'0' 02046000 ORG PARWEPL+12 02047000 CBIDTBLE DS CL304 02048000 ORG CBIDTBLE 02049000 @NM00175 DC X'4000' 02050000 @NM00176 DC AL2(44) 02051000 @NM00177 DC A(0) 02052000 @NM00178 DC X'4000' 02053000 @NM00179 DC AL2(152) 02054000 @NM00180 DC A(0) 02055000 @NM00181 DC X'4000' 02056000 @NM00182 DC AL2(156) 02057000 @NM00183 DC A(0) 02058000 @NM00184 DC X'4000' 02059000 @NM00185 DC AL2(40) 02060000 @NM00186 DC A(0) 02061000 @NM00187 DC X'4080' 02062000 @NM00188 DC AL2(100) 02063000 @NM00189 DC A(0) 02064000 @NM00190 DC X'4000' 02065000 @NM00191 DC AL2(12+320) 02066000 @NM00192 DC A(0) 02067000 @NM00193 DC X'4000' 02068000 @NM00194 DC AL2(12) 02069000 @NM00195 DC A(0) 02070000 @NM00196 DC X'4080' 02071000 @NM00197 DC AL2(44) 02072000 @NM00198 DC A(0) 02073000 @NM00199 DC X'6000' 02074000 @NM00200 DC AL2(136) 02075000 @NM00201 DC A(0) 02076000 @NM00202 DC X'4000' 02077000 @NM00203 DC AL2(44) 02078000 @NM00204 DC A(0) 02079000 @NM00205 DC X'4000' 02080000 @NM00206 DC AL2(44) 02081000 @NM00207 DC A(0) 02082000 @NM00208 DC X'4080' 02083000 @NM00209 DC AL2(56) 02084000 @NM00210 DC A(0) 02085000 @NM00211 DC X'6000' 02086000 @NM00212 DC AL2(216) 02087000 @NM00213 DC A(0) 02088000 @NM00214 DC X'4000' 02089000 @NM00215 DC AL2(136) 02090000 @NM00216 DC A(0) 02091000 @NM00217 DC X'4000' 02092000 @NM00218 DC AL2(108) 02093000 @NM00219 DC A(0) 02094000 @NM00220 DC X'6000' 02095000 @NM00221 DC AL2(44+16) 02096000 @NM00222 DC A(0) 02097000 @NM00223 DC X'5080' 02098000 @NM00224 DC AL2(84) 02099000 @NM00225 DC A(0) 02100000 @NM00226 DC X'4080' 02101000 @NM00227 DC AL2(32) 02102000 @NM00228 DC A(0) 02103000 @NM00229 DC X'4000' 02104000 @NM00230 DC AL2(100) 02105000 @NM00231 DC A(0) 02106000 @NM00232 DC X'4080' 02107000 @NM00233 DC AL2(64) 02108000 @NM00234 DC A(0) 02109000 @NM00235 DC X'4080' 02110000 @NM00236 DC AL2(116) 02111000 @NM00237 DC A(0) 02112000 @NM00238 DC X'6000' 02113000 @NM00239 DC AL2(136) 02114000 @NM00240 DC A(0) 02115000 @NM00241 DC X'4000' 02116000 @NM00242 DC AL2(932) 02117000 @NM00243 DC A(0) 02118000 @NM00244 DC X'6000' 02119000 @NM00245 DC AL2(64) 02120000 @NM00246 DC A(0) 02121000 @NM00247 DC X'4000' 02122000 @NM00248 DC AL2(280) 02123000 @NM00249 DC A(0) 02124000 @NM00250 DC X'6000' 02125000 @NM00251 DC AL2(112) 02126000 @NM00252 DC A(0) 02127000 @NM00253 DC X'6000' 02128000 @NM00254 DC AL2(116) 02129000 @NM00255 DC A(0) 02130000 @NM00256 DC X'6000' 02131000 @NM00257 DC AL2(579) 02132000 @NM00258 DC A(0) 02133000 @NM00259 DC X'4000' 02134000 @NM00260 DC AL2(92) 02135000 @NM00261 DC A(0) 02136000 @NM00262 DC X'4000' 02137000 @NM00263 DC AL2(44) 02138000 @NM00264 DC A(0) 02139000 @NM00265 DC X'6000' 02140000 @NM00266 DC AL2(72) 02141000 @NM00267 DC A(0) 02142000 @NM00268 DC X'6000' 02143000 @NM00269 DC AL2(49) 02144000 @NM00270 DC A(0) 02145000 @NM00271 DC X'5080' 02146000 @NM00272 DC AL2(112) 02147000 @NM00273 DC A(0) 02148000 @NM00274 DC X'4200' 02149000 @NM00275 DC AL2(280) 02150000 @NM00276 DC A(0) 02151000 @NM00277 DC X'4200' 02152000 @NM00278 DC AL2(280) 02153000 @NM00279 DC A(0) 02154000 @NM00280 DC X'4200' 02155000 @NM00281 DC AL2(164) 02156000 @NM00282 DC A(0) 02157000 @NM00283 DC X'6000' 02158000 @NM00284 DC AL2(16) 02159000 @NM00285 DC A(0) 02160000 @NM00286 DC X'4000' 02161000 @NM00287 DC AL2(280) 02162000 @NM00288 DC A(0) 02163000 ORG CBIDTBLE+304 02164000 DS CL4 02165000 ILIST DS CL10 02166000 DS CL2 02167000 SAV1 DS 18A 02168000 SAV2 DS 18A 02169000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02170000 @01 EQU 01 02171000 @02 EQU 02 02172000 @03 EQU 03 02173000 @04 EQU 04 02174000 @05 EQU 05 02175000 @06 EQU 06 02176000 @07 EQU 07 02177000 @08 EQU 08 02178000 @09 EQU 09 02179000 @10 EQU 10 02180000 @11 EQU 11 02181000 @12 EQU 12 02182000 @13 EQU 13 02183000 @14 EQU 14 02184000 @15 EQU 15 02185000 ENDBPE EQU @02 02186000 ENDCBID EQU @03 02187000 NB EQU @04 02188000 PGA EQU @02 02189000 I EQU @02 02190000 ENDBPCB EQU @04 02191000 BPCBPTR1 EQU @02 02192000 ASCBPTR EQU @04 02193000 SRBPTR EQU @02 02194000 RPHPTR EQU @01 02195000 BPEPTR EQU @05 02196000 BPDPTR EQU @10 02197000 BPCBPTR EQU @11 02198000 SAVREG EQU @13 02199000 R2 EQU @02 02200000 R3 EQU @03 02201000 R5 EQU @05 02202000 CBIDPTR EQU @06 02203000 REGA EQU @06 02204000 BUF1 EQU @06 02205000 PGBUFPTR EQU @06 02206000 FXBUFPTR EQU @07 02207000 REGB EQU @07 02208000 BUF2 EQU @07 02209000 REGC EQU @08 02210000 REGD EQU @09 02211000 R12 EQU @12 02212000 R15 EQU @15 02213000 GPR00P EQU @00 02214000 GPR01P EQU @01 02215000 GPR15P EQU @15 02216000 R14 EQU @14 02217000 PSA EQU 0 02218000 FLCRNPSW EQU PSA 02219000 FLCROPSW EQU PSA+8 02220000 FLCICCW2 EQU PSA+16 02221000 PSAEEPSW EQU PSA+132 02222000 PSAESPSW EQU PSA+136 02223000 FLCSVILC EQU PSAESPSW+1 02224000 PSAEPPSW EQU PSA+140 02225000 FLCPIILC EQU PSAEPPSW+1 02226000 FLCPICOD EQU PSAEPPSW+2 02227000 PSAPICOD EQU FLCPICOD+1 02228000 FLCTEA EQU PSAEPPSW+4 02229000 FLCPER EQU PSA+152 02230000 FLCMCLA EQU PSA+168 02231000 FLCIOEL EQU FLCMCLA+4 02232000 FLCIOA EQU FLCMCLA+16 02233000 FLCFSA EQU FLCMCLA+80 02234000 PSAAOLD EQU PSA+548 02235000 PSASUPER EQU PSA+552 02236000 PSASUP1 EQU PSASUPER 02237000 PSASUP2 EQU PSASUPER+1 02238000 PSASUP3 EQU PSASUPER+2 02239000 PSASUP4 EQU PSASUPER+3 02240000 PSACLHT EQU PSA+640 02241000 PSALKSA EQU PSA+696 02242000 PSAHLHI EQU PSA+760 02243000 PSADSSFL EQU PSA+836 02244000 PSADSSF1 EQU PSADSSFL 02245000 PSADSSF3 EQU PSADSSFL+2 02246000 PSADSSF4 EQU PSADSSFL+3 02247000 PSARSVT EQU PSA+896 02248000 CVTPTR EQU 16 02249000 ATCLCPTR EQU 1032 02250000 IFGACB EQU 0 02251000 ACBCOMN EQU IFGACB 02252000 ACBLENG EQU ACBCOMN+2 02253000 ACBLENG2 EQU ACBLENG 02254000 ACBAMBL EQU ACBCOMN+4 02255000 ACBJWA EQU ACBAMBL 02256000 ACBMACRF EQU ACBCOMN+12 02257000 ACBMACR1 EQU ACBMACRF 02258000 ACBADR EQU ACBMACR1 02259000 ACBCNV EQU ACBMACR1 02260000 ACBMACR2 EQU ACBMACRF+1 02261000 ACBBUFPL EQU ACBCOMN+20 02262000 ACBMACR3 EQU ACBBUFPL 02263000 ACBRECFM EQU ACBCOMN+24 02264000 ACBCCTYP EQU ACBCOMN+25 02265000 ACBOPT EQU ACBCOMN+26 02266000 ACBDSORG EQU ACBOPT 02267000 ACBCROPS EQU ACBDSORG 02268000 ACBDVIND EQU ACBDSORG 02269000 ACBEXLST EQU ACBCOMN+36 02270000 ACBDDNM EQU ACBCOMN+40 02271000 ACBAMETH EQU ACBDDNM+3 02272000 ACBOFLGS EQU ACBCOMN+48 02273000 ACBEXFG EQU ACBOFLGS 02274000 ACBIOSFG EQU ACBOFLGS 02275000 ACBINFLG EQU ACBCOMN+50 02276000 ACBVVIC EQU ACBINFLG 02277000 ACBUJFCB EQU ACBCOMN+52 02278000 ACBBLKSZ EQU ACBCOMN+60 02279000 ACBVTEXT EQU IFGACB+76 02280000 IFGRPL EQU 0 02281000 RPLCOMN EQU IFGRPL 02282000 RPLIDWD EQU RPLCOMN 02283000 RPLLEN EQU RPLIDWD+3 02284000 RPLECB EQU RPLCOMN+8 02285000 RPLFDBWD EQU RPLCOMN+12 02286000 RPLFDBK EQU RPLFDBWD+1 02287000 RPLRTNCD EQU RPLFDBK 02288000 RPLCNDCD EQU RPLFDBK+1 02289000 RPLCMPON EQU RPLCNDCD 02290000 RPLFDB2 EQU RPLCMPON 02291000 RPLERRCD EQU RPLCNDCD+1 02292000 RPLFDB3 EQU RPLERRCD 02293000 RPLKEYLE EQU RPLCOMN+16 02294000 RPLARG EQU RPLCOMN+36 02295000 RPLOPTCD EQU RPLCOMN+40 02296000 RPLOPT1 EQU RPLOPTCD 02297000 RPLECBSW EQU RPLOPT1 02298000 RPLOPT2 EQU RPLOPTCD+1 02299000 RPLADR EQU RPLOPT2 02300000 RPLOPT3 EQU RPLOPTCD+2 02301000 RPLOPT4 EQU RPLOPTCD+3 02302000 RPLNXTRP EQU RPLCOMN+44 02303000 RPLOPTC2 EQU RPLCOMN+56 02304000 RPLOPT5 EQU RPLOPTC2 02305000 RPLWRTYP EQU RPLOPT5 02306000 RPLOPT6 EQU RPLOPTC2+1 02307000 RPLUNTYP EQU RPLOPT6 02308000 RPLOPT7 EQU RPLOPTC2+2 02309000 RPLCNOPT EQU RPLOPT7 02310000 RPLOPT8 EQU RPLOPTC2+3 02311000 RPLRBAR EQU RPLCOMN+60 02312000 RPLAIXID EQU RPLRBAR+2 02313000 RPLEXTDS EQU RPLCOMN+68 02314000 RPLEXTD1 EQU RPLEXTDS 02315000 RPLVTEXT EQU IFGRPL+76 02316000 RPLFDBK2 EQU RPLVTEXT+12 02317000 RPLSSNSI EQU RPLFDBK2 02318000 RPLDSB EQU RPLSSNSI 02319000 RPLDSB1 EQU RPLDSB 02320000 RPLSSEI EQU RPLDSB1 02321000 RPLDSB2 EQU RPLDSB+1 02322000 RPLUSNSI EQU RPLFDBK2+2 02323000 RPLOPTC3 EQU RPLVTEXT+20 02324000 RPLOPT9 EQU RPLOPTC3 02325000 RPLOPT10 EQU RPLOPTC3+1 02326000 RPLOPT11 EQU RPLOPTC3+2 02327000 RPLOPT12 EQU RPLOPTC3+3 02328000 RPLOSENS EQU RPLVTEXT+24 02329000 RPLSSNSO EQU RPLOSENS 02330000 RPLSSEO EQU RPLSSNSO 02331000 RPLOF16 EQU 0 02332000 RPLRH3 EQU RPLOF16 02333000 RPLSRTYP EQU RPLOF16+1 02334000 RPLSTYPE EQU RPLSRTYP 02335000 RPLRTYPE EQU RPLSRTYP 02336000 RPLCHN EQU RPLOF16+2 02337000 RPLVTFL1 EQU RPLOF16+3 02338000 RPLVTFL2 EQU RPLOF16+4 02339000 RPLPOSTV EQU RPLVTFL2 02340000 RPLRESP EQU RPLVTFL2 02341000 RPLCNTRL EQU RPLOF16+5 02342000 RPLCNTDF EQU RPLCNTRL 02343000 RPLCNTDC EQU RPLCNTRL+1 02344000 RPLCNTSC EQU RPLCNTRL+2 02345000 RPLOF60 EQU 0 02346000 RPLOBSQ EQU RPLOF60+4 02347000 RPLIBSQ EQU RPLOF60+5 02348000 IOBPREFX EQU 0 02349000 IOBCFLG1 EQU IOBPREFX 02350000 IOBSTDRD EQU 0 02351000 IOBFLAG1 EQU IOBSTDRD 02352000 IOBCYCCK EQU IOBFLAG1 02353000 IOBRSTRT EQU IOBFLAG1 02354000 IOBFLAG2 EQU IOBSTDRD+1 02355000 IOBPURGE EQU IOBFLAG2 02356000 IOBRDHA0 EQU IOBFLAG2 02357000 IOBSENS0 EQU IOBSTDRD+2 02358000 IOBS0B7 EQU IOBSENS0 02359000 IOBSENS1 EQU IOBSTDRD+3 02360000 IOBECBPT EQU IOBSTDRD+4 02361000 IOBFLAG3 EQU IOBSTDRD+8 02362000 IOBFL3 EQU IOBFLAG3 02363000 IOBCNC EQU IOBFL3 02364000 IOBICL EQU IOBFL3 02365000 IOBCSW EQU IOBSTDRD+9 02366000 IOBIOCSW EQU IOBCSW 02367000 IOBSTBYT EQU IOBIOCSW+3 02368000 IOBUSTAT EQU IOBSTBYT 02369000 IOBCSTAT EQU IOBSTBYT+1 02370000 IOBSTART EQU IOBSTDRD+16 02371000 IOBDCBPT EQU IOBSTDRD+20 02372000 IOBFLAG4 EQU IOBDCBPT 02373000 IOBRESTR EQU IOBSTDRD+24 02374000 IOBINCAM EQU IOBSTDRD+28 02375000 IOBBTAMF EQU IOBINCAM 02376000 SRBSECT EQU 0 02377000 SRBID EQU SRBSECT 02378000 SRBASCB EQU SRBSECT+8 02379000 SRBFLC EQU SRBSECT+12 02380000 SRBPASID EQU SRBFLC+2 02381000 SRBEP EQU SRBSECT+20 02382000 SRBRMTR EQU SRBSECT+24 02383000 SRBPARM EQU SRBSECT+28 02384000 TCCW EQU 0 02385000 TCCWRGSV EQU TCCW+100 02386000 ISTTCCW EQU 0 02387000 IOSB EQU 0 02388000 IOSFLA EQU IOSB 02389000 IOSACHN EQU IOSFLA 02390000 IOSFLB EQU IOSB+1 02391000 IOSFLC EQU IOSB+2 02392000 IOSDVALT EQU IOSFLC 02393000 IOSPKEY EQU IOSB+12 02394000 IOSOPT EQU IOSB+14 02395000 IOSOPT2 EQU IOSB+15 02396000 @NM00044 EQU IOSB+20 02397000 IOSCSW EQU @NM00044+1 02398000 IOSTATUS EQU IOSCSW+3 02399000 IOSIPIB EQU IOSB+44 02400000 IOSPATH EQU IOSB+86 02401000 IOSCHN EQU IOSPATH 02402000 IOSCKEY EQU IOSB+89 02403000 IOSEEKA EQU IOSB+100 02404000 IOSCCHH EQU IOSEEKA+3 02405000 IOSSKHH EQU IOSCCHH+2 02406000 CVTMAP EQU 0 02407000 CVTDAR EQU CVTMAP+72 02408000 CVTFLGS1 EQU CVTDAR 02409000 CVTDCB EQU CVTMAP+116 02410000 CVTIERLC EQU CVTMAP+144 02411000 CVTOPTA EQU CVTMAP+182 02412000 CVTOPTB EQU CVTMAP+183 02413000 CVTGTF EQU CVTMAP+236 02414000 CVTGTFST EQU CVTGTF 02415000 CVTGTFS EQU CVTGTFST 02416000 CVTSTATE EQU CVTGTFST 02417000 CVTTMODE EQU CVTGTFST 02418000 CVTFORM EQU CVTGTFST 02419000 CVTAQAVT EQU CVTMAP+240 02420000 CVTTCMFG EQU CVTAQAVT 02421000 CVTVOLM2 EQU CVTMAP+244 02422000 CVTTATA EQU CVTVOLM2 02423000 CVTTSKS EQU CVTTATA 02424000 CVTVOLF2 EQU CVTTSKS 02425000 CVTTAT EQU CVTTATA+1 02426000 CVTATER EQU CVTMAP+248 02427000 CVTEXT1 EQU CVTMAP+252 02428000 CVTPURG EQU CVTMAP+260 02429000 CVTQMSG EQU CVTMAP+268 02430000 CVTDMSR EQU CVTMAP+272 02431000 CVTRSV37 EQU CVTDMSR 02432000 CVTDMSRF EQU CVTRSV37 02433000 CVTERPV EQU CVTMAP+316 02434000 CVTINTLA EQU CVTMAP+320 02435000 CVTAPF EQU CVTMAP+324 02436000 CVTEXT2 EQU CVTMAP+328 02437000 CVTHJES EQU CVTMAP+332 02438000 CVTPGSIA EQU CVTMAP+348 02439000 CVTA1F1 EQU CVTMAP+356 02440000 CVTSYSK EQU CVTMAP+357 02441000 CVTVOLM1 EQU CVTMAP+380 02442000 CVTVOLF1 EQU CVTVOLM1 02443000 CVTATMCT EQU CVTMAP+388 02444000 CVTXTNT1 EQU 0 02445000 CVTXTNT2 EQU 0 02446000 CVTDSSV EQU CVTXTNT2 02447000 CVTFLGBT EQU CVTXTNT2+5 02448000 CVTQID EQU CVTXTNT2+24 02449000 CVTSHS EQU CVTXTNT2+40 02450000 CVTRV400 EQU CVTXTNT2+52 02451000 CVTRV409 EQU CVTXTNT2+53 02452000 CVTATCVT EQU CVTXTNT2+64 02453000 CVTRV429 EQU CVTXTNT2+84 02454000 CVTRV438 EQU CVTXTNT2+85 02455000 CVTRV457 EQU CVTXTNT2+112 02456000 CVTRV466 EQU CVTXTNT2+113 02457000 CVTFIX EQU 0 02458000 CVTRELNO EQU CVTFIX+252 02459000 TCBFIX EQU 0 02460000 TCBFRS EQU TCBFIX 02461000 TCB EQU 0 02462000 TCBPIE EQU TCB+4 02463000 TCBPMASK EQU TCBPIE 02464000 TCBCMP EQU TCB+16 02465000 TCBCMPF EQU TCBCMP 02466000 TCBCPP EQU TCBCMPF 02467000 TCBSTCC EQU TCBCMPF 02468000 TCBCDBL EQU TCBCMPF 02469000 TCBCWTO EQU TCBCMPF 02470000 TCBCIND EQU TCBCMPF 02471000 TCBCMSG EQU TCBCMPF 02472000 TCBTRN EQU TCB+20 02473000 TCBABF EQU TCBTRN 02474000 TCBMSS EQU TCB+24 02475000 TCBPKF EQU TCB+28 02476000 TCBFLGS EQU TCB+29 02477000 TCBFLGS1 EQU TCBFLGS 02478000 TCBFLGS2 EQU TCBFLGS+1 02479000 TCBFLGS3 EQU TCBFLGS+2 02480000 TCBFLGS4 EQU TCBFLGS+3 02481000 TCBFLGS5 EQU TCBFLGS+4 02482000 TCBABWF EQU TCBFLGS5 02483000 TCBJPQ EQU TCB+44 02484000 TCBPURGE EQU TCBJPQ 02485000 TCBGRS EQU TCB+48 02486000 TCBFSA EQU TCB+112 02487000 TCBTME EQU TCB+120 02488000 TCBJSTCB EQU TCB+124 02489000 TCBTSFLG EQU TCB+148 02490000 TCBTSTSK EQU TCBTSFLG 02491000 TCBSTAB EQU TCB+160 02492000 TCBNSTAE EQU TCBSTAB 02493000 TCBTCT EQU TCB+164 02494000 TCBTCTGF EQU TCBTCT 02495000 TCBSCNDY EQU TCB+172 02496000 TCBNDSP EQU TCBSCNDY 02497000 TCBNDSP1 EQU TCBNDSP+1 02498000 TCBNDSP2 EQU TCBNDSP+2 02499000 TCBNDSP3 EQU TCBNDSP+3 02500000 TCBJSCB EQU TCB+180 02501000 TCBRECDE EQU TCBJSCB 02502000 TCBEXT1 EQU TCB+196 02503000 TCBBITS EQU TCB+200 02504000 TCBNDSP4 EQU TCBBITS 02505000 TCBNDSP5 EQU TCBBITS+1 02506000 TCBFLGS6 EQU TCBBITS+2 02507000 TCBFLGS7 EQU TCBBITS+3 02508000 TCBDAR EQU TCB+204 02509000 TCBDARC EQU TCBDAR 02510000 TCBEXT2 EQU TCB+208 02511000 TCBFOE EQU TCB+244 02512000 TCBESTAE EQU TCB+264 02513000 TCBESTRM EQU TCBESTAE+1 02514000 TCBFBYT1 EQU TCB+276 02515000 TCBFBYT2 EQU TCB+277 02516000 TCBRV124 EQU TCB+278 02517000 TCBRV133 EQU TCB+279 02518000 TCBXTNT2 EQU 0 02519000 TCBGTF EQU TCBXTNT2 02520000 TCBTFLG EQU TCBGTF 02521000 TCBRV146 EQU TCBXTNT2+28 02522000 TCBRV155 EQU TCBXTNT2+29 02523000 TCBRV164 EQU TCBXTNT2+30 02524000 TCBRV173 EQU TCBXTNT2+31 02525000 ASCB EQU 0 02526000 ASCBSUPC EQU ASCB+16 02527000 ASCBASID EQU ASCB+36 02528000 ASCBFW1 EQU ASCB+100 02529000 ASCBRCTF EQU ASCBFW1+2 02530000 ASCBFLG1 EQU ASCBFW1+3 02531000 ASCBDSP1 EQU ASCB+114 02532000 ASCBFLG2 EQU ASCB+115 02533000 ASCBLKGP EQU ASCB+128 02534000 ASCBSRQ EQU ASCB+180 02535000 ASCBSRQ1 EQU ASCBSRQ 02536000 ASCBSRQ2 EQU ASCBSRQ+1 02537000 ASCBSRQ3 EQU ASCBSRQ+2 02538000 ASCBSRQ4 EQU ASCBSRQ+3 02539000 ASXB EQU 0 02540000 ASXBAEQ EQU ASXB+168 02541000 ASXBCASW EQU ASXB+216 02542000 ASXBCRB1 EQU ASXBCASW 02543000 ISTPAB EQU 0 02544000 PABWQCHN EQU ISTPAB 02545000 PABWEQA EQU PABWQCHN 02546000 PABCHAIN EQU PABWQCHN+4 02547000 PABRPHFG EQU ISTPAB+12 02548000 PABFLAGS EQU PABRPHFG 02549000 PABERLCK EQU PABFLAGS 02550000 PABERRLK EQU PABERLCK 02551000 ISTDYPAB EQU 0 02552000 ISTLOK EQU 0 02553000 LOKCHN EQU ISTLOK+1 02554000 LOKCHNG EQU LOKCHN 02555000 @NM00081 EQU LOKCHNG+2 02556000 ISTRPH EQU 0 02557000 RPHCNTL EQU ISTRPH 02558000 RPHFLAGS EQU RPHCNTL+2 02559000 RPHAPTYP EQU RPHFLAGS 02560000 RPHFSTLC EQU RPHFLAGS 02561000 RPHFLGB EQU RPHCNTL+3 02562000 RPHRPHA EQU ISTRPH+4 02563000 RPHTSKID EQU ISTRPH+8 02564000 RPHRESMA EQU ISTRPH+16 02565000 RPHWPFLG EQU RPHRESMA 02566000 RPHWEA EQU ISTRPH+24 02567000 RPHCSPA EQU RPHWEA 02568000 RPHSRPRM EQU ISTRPH+28 02569000 RPHPABQA EQU ISTRPH+36 02570000 RPHWORK EQU ISTRPH+40 02571000 RPHSAVE1 EQU RPHWORK 02572000 RPHSBITS EQU RPHSAVE1+1 02573000 ISTATCVT EQU 0 02574000 ATCCOM EQU ISTATCVT 02575000 ATCSTAT EQU ATCCOM 02576000 ATCSTAT1 EQU ATCSTAT 02577000 ATCSTFLG EQU ATCSTAT+1 02578000 ATCPOFLG EQU ATCSTAT+2 02579000 ATCSTAT4 EQU ATCSTAT+3 02580000 ATCBPDA EQU ATCCOM+128 02581000 ATCIOTRC EQU ATCCOM+140 02582000 ATCTHTRC EQU ATCIOTRC 02583000 ATCSMBQ EQU ATCCOM+196 02584000 ATCCSMR EQU ISTATCVT+296 02585000 ATCSHRFG EQU ISTATCVT+316 02586000 ATCHPGM EQU ISTATCVT+384 02587000 ATCVLCNT EQU ISTATCVT+772 02588000 ATCRNO EQU ISTATCVT+788 02589000 ATCSOPD EQU ISTATCVT+792 02590000 ATCSIPD EQU ISTATCVT+800 02591000 ATCSECST EQU ISTATCVT+812 02592000 ATCSTAT2 EQU ISTATCVT+818 02593000 ATCVTBAM EQU ISTATCVT+908 02594000 @NM00092 EQU ATCVTBAM+3 02595000 ATCAOSM EQU ISTATCVT+912 02596000 ATCGSRBQ EQU ATCAOSM+4 02597000 ATCGSRBG EQU ATCGSRBQ 02598000 ATCICAPP EQU ATCAOSM+100 02599000 ATCLDAPP EQU ATCAOSM+120 02600000 ATCDAPVT EQU ATCAOSM+140 02601000 ATCCRA EQU ATCAOSM+280 02602000 ATCCRACN EQU ATCCRA+4 02603000 ATCSRB EQU ATCAOSM+288 02604000 ATCSRBCN EQU ATCSRB+4 02605000 ATCCRPL EQU ATCAOSM+296 02606000 ATCRPLCN EQU ATCCRPL+4 02607000 ATCVTFLG EQU ATCAOSM+392 02608000 ATCAP83 EQU ATCAOSM+548 02609000 ATCZFLAG EQU ATCAOSM+588 02610000 ISTICE EQU 0 02611000 ICEFLAGS EQU ISTICE+28 02612000 ISTACE EQU 0 02613000 ACEFLAGS EQU ISTACE+20 02614000 ISTICX EQU 0 02615000 ISTCKPAB EQU 0 02616000 CKPABREC EQU ISTCKPAB+32 02617000 CKPABRTF EQU CKPABREC+16 02618000 CKPABFFF EQU ISTCKPAB+56 02619000 CKPABTTR EQU ISTCKPAB+68 02620000 CKPABERR EQU ISTCKPAB+76 02621000 ISTLCCW EQU 0 02622000 LCCWOP EQU ISTLCCW 02623000 LCCWRWOP EQU LCCWOP 02624000 LCCWCTL EQU LCCWRWOP 02625000 LCCWFLAG EQU ISTLCCW+1 02626000 LCCWLSI EQU LCCWFLAG 02627000 ISTLCPB EQU 0 02628000 LCPREQTG EQU ISTLCPB+2 02629000 LCPFLAGS EQU LCPREQTG 02630000 LCPZF001 EQU LCPFLAGS 02631000 LCPZRT02 EQU LCPZF001 02632000 LCPZF002 EQU LCPFLAGS 02633000 LCPZRT03 EQU LCPZF002 02634000 LCPZF003 EQU LCPFLAGS 02635000 LCPZRT04 EQU LCPZF003 02636000 LCPZF004 EQU LCPFLAGS 02637000 LCPZRT05 EQU LCPZF004 02638000 LCPZRT06 EQU LCPFLAGS 02639000 LCPZRT07 EQU LCPFLAGS 02640000 LCPMNRCD EQU LCPREQTG+1 02641000 LCPZRT08 EQU LCPMNRCD 02642000 LCPZRT09 EQU LCPMNRCD 02643000 LCPCHAIN EQU ISTLCPB+4 02644000 LCPCHAI1 EQU LCPCHAIN 02645000 LCPRUCNT EQU ISTLCPB+8 02646000 LCPFLAG2 EQU ISTLCPB+9 02647000 LCPTLBPI EQU LCPFLAG2 02648000 LCPFID0 EQU LCPFLAG2 02649000 LCPSEQ EQU ISTLCPB+10 02650000 LCPCID EQU ISTLCPB+16 02651000 LCPFDBA EQU ISTLCPB+24 02652000 LCPFLG1 EQU ISTLCPB+37 02653000 LCPFLCCW EQU ISTLCPB+40 02654000 LCPLCCW EQU ISTLCPB+48 02655000 LCPPABA EQU LCPLCCW+4 02656000 LCPRPHA EQU LCPPABA 02657000 ISTDCLCP EQU 0 02658000 DCLRTYPE EQU ISTDCLCP+76 02659000 DCLRFLG EQU DCLRTYPE+1 02660000 DCLFLAG1 EQU ISTDCLCP+78 02661000 ISTPLCPB EQU 0 02662000 ISTNMLPB EQU 0 02663000 NMCONTRL EQU ISTNMLPB+72 02664000 NMLCWCMD EQU NMCONTRL+2 02665000 NMRDTEA EQU NMCONTRL+4 02666000 ISTCRPL EQU 0 02667000 CRPRRPLP EQU ISTCRPL+112 02668000 ISTCSP EQU 0 02669000 CSPOPT EQU ISTCSP+2 02670000 CSPOPT1 EQU CSPOPT 02671000 CSPOPT2 EQU CSPOPT+1 02672000 CSPRSC2B EQU ISTCSP+32 02673000 ISTCSCB EQU 0 02674000 ISTFDB EQU 0 02675000 ISTFSB EQU 0 02676000 FSBFSB EQU ISTFSB 02677000 FSBMNRCD EQU FSBFSB+2 02678000 FSBSFLGS EQU FSBFSB+3 02679000 FSBFSBA EQU FSBFSB+4 02680000 FSBBTH EQU FSBFSB+8 02681000 FSBCID EQU FSBBTH 02682000 FSBRQTAG EQU FSBBTH+4 02683000 FSBSEQID EQU FSBRQTAG 02684000 FSBFLAGS EQU FSBSEQID 02685000 FSBSEQ EQU FSBSEQID+1 02686000 FSBCSWST EQU FSBBTH+6 02687000 FSBTHFLD EQU FSBCSWST 02688000 FSBTH1 EQU FSBTHFLD 02689000 FSBSYSRS EQU FSBTH1 02690000 FSBTH2 EQU FSBTHFLD+1 02691000 FSBEXTRS EQU FSBTH2 02692000 FSBXFSTS EQU FSBEXTRS 02693000 FSBXCODE EQU FSBEXTRS 02694000 FSBNETRS EQU FSBFSB+16 02695000 FSBSRCAT EQU FSBNETRS 02696000 FSBERC EQU FSBNETRS+1 02697000 FSBFBMI EQU FSBERC 02698000 FSBDMGRS EQU FSBFSB+18 02699000 FSBSS1 EQU FSBDMGRS 02700000 FSBSS2 EQU FSBDMGRS+1 02701000 FSBLCPB EQU FSBFSB+20 02702000 FSBMSGID EQU FSBLCPB 02703000 FSBLCCWA EQU FSBFSB+24 02704000 FSBRLSTS EQU FSBLCCWA 02705000 ISTUECB EQU 0 02706000 UECPLIST EQU ISTUECB+32 02707000 UECACB EQU UECPLIST 02708000 UECNDID EQU UECPLIST+4 02709000 UECTPNCD EQU UECNDID 02710000 UECREQTR EQU UECPLIST+8 02711000 UECDLEN EQU UECPLIST+12 02712000 UECRSNCD EQU UECDLEN 02713000 ISTLSCB EQU 0 02714000 LSC1WORD EQU ISTLSCB 02715000 LSCREQTG EQU LSC1WORD+2 02716000 LSCZRT02 EQU LSCREQTG 02717000 LSCZRT03 EQU LSCREQTG 02718000 LSCZRT04 EQU LSCREQTG 02719000 LSCZRT05 EQU LSCREQTG 02720000 LSCZRT06 EQU LSCREQTG 02721000 LSCZRT07 EQU LSCREQTG 02722000 LSCZMNRC EQU LSCREQTG+1 02723000 LSCZRT08 EQU LSCZMNRC 02724000 LSCZRT09 EQU LSCZMNRC 02725000 LSCCHAIN EQU ISTLSCB+4 02726000 LSCCHAI1 EQU LSCCHAIN 02727000 LSCRUCNT EQU ISTLSCB+8 02728000 LSCFLGS EQU ISTLSCB+9 02729000 LSCSEQ EQU ISTLSCB+10 02730000 LSCFDBA EQU ISTLSCB+24 02731000 ISTDEVCH EQU 0 02732000 DEVSHCH EQU ISTDEVCH 02733000 DEVCHAR EQU DEVSHCH 02734000 DEVTCODE EQU ISTDEVCH+1 02735000 DEVFLAGS EQU ISTDEVCH+3 02736000 DEVFCCTL EQU DEVFLAGS 02737000 DEVCHAR3 EQU DEVFLAGS 02738000 ISTPROCD EQU 0 02739000 PROPROC EQU ISTPROCD 02740000 PROPROC1 EQU PROPROC 02741000 PROPROC2 EQU PROPROC+1 02742000 PROPROC3 EQU PROPROC+2 02743000 PROPROC4 EQU PROPROC+3 02744000 PROPROCS EQU 0 02745000 PROSETMS EQU PROPROCS+1 02746000 PROSETM2 EQU PROSETMS 02747000 PROSETM3 EQU PROSETMS+1 02748000 PROSETM4 EQU PROSETMS+2 02749000 ISTFMCB EQU 0 02750000 FMCSTAT EQU ISTFMCB+28 02751000 FMCSTAT1 EQU ISTFMCB+29 02752000 FMCCMDFL EQU ISTFMCB+31 02753000 FMCCMPS1 EQU ISTFMCB+36 02754000 FMCSIPA EQU ISTFMCB+148 02755000 FMCNXOSQ EQU ISTFMCB+152 02756000 FMCNXCFM EQU FMCNXOSQ 02757000 FMCNXOSC EQU FMCNXOSQ+2 02758000 FMCSSTAT EQU ISTFMCB+159 02759000 FMCPACE EQU ISTFMCB+160 02760000 FMCPACEN EQU FMCPACE 02761000 FMCPACEM EQU FMCPACE+1 02762000 FMCPACPC EQU FMCPACE+2 02763000 FMCCVAL EQU FMCPACE+3 02764000 FMCOBCE EQU FMCCVAL 02765000 FMCCLEXT EQU ISTFMCB+164 02766000 FMCRPLA EQU FMCCLEXT 02767000 FMCFBA EQU FMCCLEXT+4 02768000 FMCCMPS2 EQU FMCCLEXT+16 02769000 FMCFLGA EQU FMCCMPS2 02770000 FMCFLGCL EQU FMCCMPS2+1 02771000 FMCPSCMD EQU FMCCMPS2+2 02772000 FMCPSTAT EQU FMCCMPS2+3 02773000 FMCSTAT2 EQU ISTFMCB+186 02774000 FMCMODEB EQU ISTFMCB+189 02775000 FMCCLSEQ EQU ISTFMCB+190 02776000 FMCRRESP EQU ISTFMCB+195 02777000 FMCSSEGQ EQU ISTFMCB+200 02778000 FMCFBAS EQU ISTFMCB+216 02779000 FMCZV002 EQU FMCFBAS 02780000 FMCSNCTL EQU ISTFMCB+224 02781000 FMCSCFLG EQU FMCSNCTL 02782000 FMCVS1 EQU ISTFMCB+232 02783000 FMCZFLAG EQU FMCVS1 02784000 FMCZF006 EQU FMCZFLAG 02785000 FMCLBXM EQU FMCVS1+12 02786000 FMCSHEAQ EQU FMCLBXM 02787000 FMCLCPBQ EQU FMCVS1+16 02788000 FMCLCPAQ EQU FMCVS1+20 02789000 FMCSEQ1 EQU FMCVS1+34 02790000 FMCZFLG2 EQU FMCVS1+35 02791000 FMCCVFLG EQU FMCVS1+44 02792000 FMCFLAG EQU 0 02793000 FMCFLGB EQU FMCFLAG 02794000 ISTNCB EQU 0 02795000 NCBFLAGS EQU ISTNCB+24 02796000 NCBFRAS EQU NCBFLAGS+1 02797000 NCBFTRIO EQU NCBFRAS 02798000 NCBFLAG1 EQU NCBFLAGS+2 02799000 ISTDNCB EQU 0 02800000 DNCOS EQU ISTDNCB+56 02801000 DNCZFLGS EQU DNCOS 02802000 DNCBSCED EQU DNCOS+2 02803000 ISTHCNCB EQU 0 02804000 ISTLDNCB EQU 0 02805000 LDNCFLAG EQU ISTLDNCB+54 02806000 LDNFLAGS EQU ISTLDNCB+107 02807000 LDNFLAG2 EQU ISTLDNCB+110 02808000 LDNZIOLK EQU ISTLDNCB+184 02809000 LDNZERPF EQU ISTLDNCB+185 02810000 LDNZCPAN EQU LDNZERPF 02811000 LDNZEPIN EQU LDNZERPF 02812000 LDNZLPC EQU ISTLDNCB+186 02813000 LDNDCDEB EQU ISTLDNCB+304 02814000 LDNZSAV3 EQU ISTLDNCB+376 02815000 LDNZSAV4 EQU LDNZSAV3+8 02816000 LDNZH003 EQU ISTLDNCB+577 02817000 ISTPST EQU 0 02818000 PSTRQFGA EQU ISTPST+8 02819000 PSTRQUE EQU PSTRQFGA 02820000 PSTFLGA EQU PSTRQFGA+4 02821000 PSTABINP EQU PSTFLGA 02822000 PSTDMPS EQU ISTPST+132 02823000 ISTMPST EQU 0 02824000 MPSRSV07 EQU ISTMPST+4 02825000 MPSRQUE EQU ISTMPST+8 02826000 MPSFLGA EQU ISTMPST+12 02827000 MPSCRA EQU ISTMPST+24 02828000 MPSCRACT EQU MPSCRA+4 02829000 MPSSRB EQU ISTMPST+32 02830000 MPSSRBCT EQU MPSSRB+4 02831000 MPSCRPL EQU ISTMPST+40 02832000 MPSRPLCT EQU MPSCRPL+4 02833000 ISTDCCRR EQU 0 02834000 CRRSPACE EQU ISTDCCRR+12 02835000 CRRSAREA EQU 0 02836000 CRRMAS EQU CRRSAREA+148 02837000 CRRMAS1 EQU CRRMAS 02838000 CRRMAS2 EQU CRRMAS+1 02839000 CRRMAS3 EQU CRRMAS+2 02840000 CRRMAS4 EQU CRRMAS+3 02841000 CRRRMAS1 EQU CRRMAS+4 02842000 CRRRMAS2 EQU CRRMAS+5 02843000 CRRRMAS3 EQU CRRMAS+6 02844000 CRRSMAS EQU CRRRMAS3 02845000 CRRATS EQU CRRSAREA+156 02846000 CRRATS1 EQU CRRATS 02847000 CRRATS2 EQU CRRATS+1 02848000 CRRATS3 EQU CRRATS+2 02849000 CRRATS4 EQU CRRATS+3 02850000 CRRRATS1 EQU CRRATS+4 02851000 CRRRATS2 EQU CRRATS+5 02852000 CRRRATS3 EQU CRRATS+6 02853000 CRRSATS EQU CRRRATS3 02854000 CRRFLGS1 EQU CRRSAREA+164 02855000 CRRFLGS2 EQU CRRSAREA+165 02856000 CRRFLGS3 EQU CRRSAREA+166 02857000 CRRFLGS4 EQU CRRSAREA+167 02858000 CRRFLGS EQU CRRSAREA+168 02859000 CRRRFLG1 EQU CRRSAREA+169 02860000 CRRRTYPE EQU CRRRFLG1 02861000 CRRFDBK1 EQU CRRSAREA+170 02862000 CRRFDB2 EQU CRRFDBK1+1 02863000 CRRFDB3 EQU CRRFDBK1+2 02864000 CRRFDBK2 EQU CRRSAREA+176 02865000 CRRDSB EQU CRRFDBK2 02866000 CRRESR EQU CRRFDBK2+2 02867000 CRRTRBUF EQU CRRSAREA+204 02868000 CRRBFLGS EQU CRRSAREA+280 02869000 ISTZSAVE EQU 0 02870000 ZSAZSVBC EQU ISTZSAVE 02871000 ZSAZSVMS EQU ZSAZSVBC 02872000 ISTPFCRR EQU 0 02873000 PFCCRR EQU ISTPFCRR 02874000 PFCCRRID EQU PFCCRR 02875000 PFCCRRLN EQU PFCCRR+2 02876000 PFCHDR EQU ISTPFCRR+4 02877000 PFCCRRO EQU PFCHDR 02878000 PFCFRRO EQU PFCHDR+4 02879000 ISTCFCRR EQU 0 02880000 CFCAUDIT EQU ISTCFCRR 02881000 CFCNTRD EQU CFCAUDIT 02882000 CFCCRT EQU CFCAUDIT+1 02883000 ISTZCRR EQU 0 02884000 ZCRCRR EQU ISTZCRR 02885000 ZCRFLGS1 EQU ISTZCRR+12 02886000 ZCRFLGS2 EQU ISTZCRR+13 02887000 ZCRSWFLD EQU ISTZCRR+14 02888000 ZCRENDSH EQU ZCRSWFLD 02889000 ZCRNDLCP EQU ZCRSWFLD 02890000 ZCRRESET EQU ZCRSWFLD 02891000 ZCRFLGS3 EQU ISTZCRR+15 02892000 ZCRGENSW EQU ISTZCRR+16 02893000 ZCRPFLGS EQU ISTZCRR+17 02894000 ZCRIBPR EQU ISTZCRR+18 02895000 ZCRSCPSW EQU ISTZCRR+19 02896000 ZCRPARMS EQU ISTZCRR+24 02897000 ZCRFBPTR EQU ZCRPARMS 02898000 ZCRDFRDA EQU ZCRPARMS+10 02899000 ZCRPCOD1 EQU ZCRPARMS+12 02900000 ZCRPLSBF EQU ZCRPCOD1 02901000 ZCRPCOD2 EQU ZCRPARMS+13 02902000 ZCRSVRTN EQU ISTZCRR+56 02903000 ZCRWKARA EQU ISTZCRR+156 02904000 ZCRCIDSV EQU ISTZCRR+192 02905000 ZCRAUDIT EQU ISTZCRR+440 02906000 ZCRENTER EQU ZCRAUDIT+5 02907000 ZCRLCPB EQU ISTZCRR+480 02908000 ZCRRHRU EQU ZCRLCPB 02909000 ISTASCRR EQU 0 02910000 ASCFLAGS EQU ISTASCRR+16 02911000 ASCFLG1 EQU ASCFLAGS 02912000 ASCFLG2 EQU ASCFLAGS+2 02913000 ASCFLG3 EQU ASCFLAGS+4 02914000 ASCUSRGS EQU ISTASCRR+28 02915000 ISTAPCRR EQU 0 02916000 APCATFLG EQU ISTAPCRR+16 02917000 APCRFLG EQU ISTAPCRR+18 02918000 APCSAVE EQU ISTAPCRR+44 02919000 APCCOMF EQU ISTAPCRR+116 02920000 APCCOMF1 EQU APCCOMF 02921000 APC31FLG EQU ISTAPCRR+132 02922000 APC52FLG EQU ISTAPCRR+133 02923000 APC53FLG EQU ISTAPCRR+134 02924000 APC54FLG EQU ISTAPCRR+135 02925000 APC57FLG EQU ISTAPCRR+136 02926000 ISTCRA EQU 0 02927000 CRABASIC EQU ISTCRA 02928000 CRAHDR EQU CRABASIC 02929000 CRALKACT EQU CRABASIC+8 02930000 CRASVC EQU ISTCRA+848 02931000 CRABUFA EQU CRASVC+68 02932000 ISTLUNCB EQU 0 02933000 LUNZOS EQU ISTLUNCB+48 02934000 ISTCCNCB EQU 0 02935000 CCNFLGA EQU ISTCCNCB+48 02936000 ISTPOHD EQU 0 02937000 POHSTAT EQU ISTPOHD+1 02938000 ISTPFX EQU 0 02939000 PFXID EQU ISTPFX 02940000 ISTNCSPL EQU 0 02941000 @NM00140 EQU ISTNCSPL 02942000 NCSPFX EQU @NM00140 02943000 NCSPLVBF EQU ISTNCSPL+18 02944000 NCSPLVFL EQU ISTNCSPL+20 02945000 NCSPLVF1 EQU ISTNCSPL+21 02946000 NCSPLCMD EQU ISTNCSPL+60 02947000 NCSCMDA EQU NCSPLCMD 02948000 NCSCRFLG EQU ISTNCSPL+67 02949000 NCSPLRAD EQU ISTNCSPL+144 02950000 NCSIOCID EQU ISTNCSPL+148 02951000 NCSPLCID EQU NCSIOCID 02952000 NCSPLFSB EQU ISTNCSPL+168 02953000 NCSPLFL1 EQU ISTNCSPL+176 02954000 NCSPLFL2 EQU ISTNCSPL+177 02955000 NCSPLFL3 EQU ISTNCSPL+178 02956000 NCSPLFL4 EQU ISTNCSPL+179 02957000 NCSPLFL5 EQU ISTNCSPL+181 02958000 NCSPLAPP EQU ISTNCSPL+216 02959000 NCSSENSE EQU ISTNCSPL+244 02960000 NCSCRMSK EQU ISTNCSPL+268 02961000 NCSCHKPT EQU NCSCRMSK 02962000 NCSCRMOD EQU NCSCRMSK+2 02963000 NCSPLSID EQU ISTNCSPL+271 02964000 NCSPLSTA EQU NCSPLSID 02965000 NCSPLPHD EQU NCSPLSID+1 02966000 NCSAPP EQU 0 02967000 NCSAPBUE EQU NCSAPP+88 02968000 NCSUSSRU EQU 0 02969000 ISTMQL EQU 0 02970000 MQLN01 EQU ISTMQL 02971000 MQLWEPTR EQU MQLN01 02972000 MQLDEBAD EQU MQLN01+8 02973000 ISTBPENT EQU 0 02974000 BPEPID EQU ISTBPENT 02975000 BPEFLAGS EQU ISTBPENT+4 02976000 BPEBFSIZ EQU ISTBPENT+6 02977000 BPEBPCB EQU ISTBPENT+8 02978000 ISTBPDTY EQU 0 02979000 BPDHDR EQU ISTBPDTY 02980000 BPDBPENT EQU BPDHDR 02981000 BPDBPMAX EQU BPDHDR+2 02982000 BPDCHPCB EQU BPDHDR+8 02983000 BPDPGPCB EQU BPDHDR+12 02984000 BPDADRS2 EQU BPDHDR+20 02985000 BPDSMPCB EQU BPDHDR+28 02986000 BPDFBPE EQU BPDHDR+32 02987000 BPDATCVT EQU BPDHDR+36 02988000 BPDFLAG EQU BPDHDR+40 02989000 BPDREQMX EQU BPDHDR+46 02990000 BPDPARM EQU BPDHDR+48 02991000 BPDTRLEN EQU BPDPARM 02992000 BPDTRID EQU BPDPARM+3 02993000 BPDTRADR EQU BPDPARM+4 02994000 BPDTRACE EQU BPDHDR+56 02995000 BPDENTRY EQU ISTBPDTY+144 02996000 BPDCBID EQU ISTBPDTY+336 02997000 ISTBPCB EQU 0 02998000 BPCBFLAG EQU ISTBPCB 02999000 BPCBFX EQU BPCBFLAG 03000000 BPCBUSRF EQU BPCBFLAG+1 03001000 BPCBSPNO EQU ISTBPCB+3 03002000 BPCBFEXT EQU ISTBPCB+4 03003000 BPCBADR1 EQU ISTBPCB+8 03004000 BPCBADR2 EQU ISTBPCB+12 03005000 BPCBPDTY EQU ISTBPCB+24 03006000 BPCBNXCB EQU ISTBPCB+28 03007000 BPCBBSIZ EQU ISTBPCB+32 03008000 BPCBTOTL EQU ISTBPCB+34 03009000 BPCBTHRE EQU ISTBPCB+36 03010000 BPCBTHR2 EQU ISTBPCB+38 03011000 BPCBQREQ EQU ISTBPCB+40 03012000 BPCBMUSE EQU ISTBPCB+44 03013000 BPCMINAV EQU BPCBMUSE+2 03014000 BPCBRESP EQU ISTBPCB+48 03015000 BPCBNUM EQU ISTBPCB+52 03016000 BPCBNUMR EQU ISTBPCB+54 03017000 BPCBCDS EQU ISTBPCB+56 03018000 BPCBCDS1 EQU BPCBCDS 03019000 BPCBFLG2 EQU BPCBCDS1 03020000 BPCBFBA EQU BPCBCDS1+1 03021000 BPCBCDS2 EQU BPCBCDS+4 03022000 BPCBCCNT EQU BPCBCDS2 03023000 BPCBAVNO EQU BPCBCDS2+2 03024000 BPCBRBLK EQU ISTBPCB+64 03025000 BPCBSRBA EQU BPCBRBLK+1 03026000 BPCBSRB EQU ISTBPCB+68 03027000 ISTBFPFX EQU 0 03028000 BFPTSKID EQU ISTBFPFX 03029000 BFPPSTID EQU BFPTSKID+1 03030000 BFPPCBA EQU ISTBFPFX+4 03031000 BFPNXCHN EQU ISTBFPFX+8 03032000 BFPSIZE EQU ISTBFPFX+12 03033000 BFPDATA EQU ISTBFPFX+16 03034000 BFPREGSA EQU BFPDATA 03035000 BFPR5SA EQU BFPREGSA 03036000 ISTCBIDT EQU 0 03037000 CBIDATR EQU ISTCBIDT 03038000 CBIDFLAG EQU ISTCBIDT+1 03039000 CBIDLEN EQU ISTCBIDT+2 03040000 CBIDPCB EQU ISTCBIDT+4 03041000 ISTMPLT EQU 0 03042000 MPLCDS EQU ISTMPLT+16 03043000 MPLFLGS1 EQU MPLCDS+6 03044000 ISTRPRE EQU 0 03045000 RPRCOMID EQU ISTRPRE+8 03046000 RPRFLAGA EQU ISTRPRE+21 03047000 RPRFLAGB EQU ISTRPRE+22 03048000 RPRCAUSE EQU ISTRPRE+23 03049000 RPRFLAGD EQU ISTRPRE+61 03050000 RPRFLAGC EQU ISTRPRE+62 03051000 ISTRCPRE EQU 0 03052000 RCPPMODE EQU ISTRCPRE+91 03053000 RCPLGNIN EQU ISTRCPRE+92 03054000 ISTRDT EQU 0 03055000 RDTPLEN EQU ISTRDT+72 03056000 RDTPRIOR EQU RDTPLEN 03057000 RDTFLAGB EQU ISTRDT+91 03058000 RDTVYRPH EQU ISTRDT+108 03059000 RDTSTCNT EQU ISTRDT+112 03060000 ISTRAP EQU 0 03061000 RAPFLG EQU ISTRAP+108 03062000 RAPFLGB EQU ISTRAP+109 03063000 RAPFLGC EQU ISTRAP+110 03064000 ISTRLC EQU 0 03065000 RLCADR EQU ISTRLC+72 03066000 RLCFLAG EQU RLCADR 03067000 ISTRRN EQU 0 03068000 RRNADR EQU ISTRRN+136 03069000 RRNFLAG EQU RRNADR 03070000 RRNUCBAD EQU RRNADR+1 03071000 RRNRDF EQU ISTRRN+172 03072000 RRNRDFA EQU RRNRDF 03073000 RRNRDFB EQU RRNRDF+1 03074000 RRNCMF EQU ISTRRN+176 03075000 RRNCMFA EQU RRNCMF 03076000 RRNCMFB EQU RRNCMF+1 03077000 RRNCMFC EQU RRNCMF+2 03078000 RRNCMFD EQU RRNCMF+3 03079000 RRNNMDPD EQU ISTRRN+192 03080000 RRNHPRE EQU ISTRRN+216 03081000 ISTRGP EQU 0 03082000 RGPFLG EQU ISTRGP+72 03083000 ISTRLN EQU 0 03084000 RLNADR EQU ISTRLN+72 03085000 RLNFLAG EQU RLNADR 03086000 RLNUCBAD EQU RLNADR+1 03087000 RLNSTAT1 EQU ISTRLN+86 03088000 RLNSTAT2 EQU ISTRLN+87 03089000 RLNRDF EQU ISTRLN+88 03090000 RLNRDFA EQU RLNRDF 03091000 RLNRACNT EQU RLNRDFA 03092000 RLNRDFB EQU RLNRDF+1 03093000 RLNCRFLG EQU ISTRLN+102 03094000 RLNLSCMD EQU RLNCRFLG 03095000 ISTRPT EQU 0 03096000 RPTLNCID EQU ISTRPT+116 03097000 RPTDITT EQU ISTRPT+128 03098000 RPTFLAG1 EQU ISTRPT+140 03099000 ISTRCL EQU 0 03100000 RCLADR EQU ISTRCL+72 03101000 RCLFLAG EQU RCLADR 03102000 ISTRTR EQU 0 03103000 RTRADR EQU ISTRTR+124 03104000 RTRFLAG EQU RTRADR 03105000 RTRRDFA EQU ISTRTR+136 03106000 RTRRAALL EQU RTRRDFA 03107000 RTRRDFB EQU ISTRTR+137 03108000 RTRRDFC EQU ISTRTR+138 03109000 RTRRDFD EQU ISTRTR+139 03110000 RTRRDFE EQU ISTRTR+140 03111000 RTRRDFF EQU ISTRTR+141 03112000 RTRCRFLG EQU ISTRTR+143 03113000 RTRLSCMD EQU RTRCRFLG 03114000 RTRBSCID EQU ISTRTR+188 03115000 ISTRIN EQU 0 03116000 RINDFD EQU ISTRIN+124 03117000 RINREMPO EQU RINDFD 03118000 RINNODEF EQU RINDFD 03119000 RINLDISC EQU RINDFD 03120000 RINNODID EQU ISTRIN+125 03121000 RINRLDAF EQU ISTRIN+126 03122000 RINREMOT EQU ISTRIN+128 03123000 RINVPAB EQU ISTRIN+132 03124000 RINRPHCN EQU ISTRIN+136 03125000 RINNCSPL EQU ISTRIN+140 03126000 RINCNCNT EQU ISTRIN+144 03127000 ISTRDS EQU 0 03128000 ISTDOT EQU 0 03129000 ISTRCC EQU 0 03130000 RCCFLAG EQU ISTRCC+73 03131000 RCCFLAGB EQU ISTRCC+74 03132000 RCCSTAID EQU ISTRCC+78 03133000 RCCID48 EQU RCCSTAID+2 03134000 RCCCRFLG EQU ISTRCC+108 03135000 ISTRLU EQU 0 03136000 RLUFLAG EQU ISTRLU+125 03137000 RLUCRFLG EQU ISTRLU+126 03138000 RLUPACE EQU ISTRLU+132 03139000 RLUNCPPC EQU ISTRLU+134 03140000 RLUUSSTB EQU ISTRLU+140 03141000 RLUUSSPT EQU RLUUSSTB+8 03142000 RLUMODET EQU ISTRLU+152 03143000 ISTRPX EQU 0 03144000 ISTRLX EQU 0 03145000 RLXFLAGA EQU ISTRLX+76 03146000 ISTRSW EQU 0 03147000 ISTRDA EQU 0 03148000 RDAADR EQU ISTRDA+72 03149000 RDAFLAG EQU RDAADR 03150000 RDAUCBAD EQU RDAADR+1 03151000 ISTRLS EQU 0 03152000 ISTDNT EQU 0 03153000 ISTGNT EQU 0 03154000 ISTPAT EQU 0 03155000 PATFLAGA EQU ISTPAT+7 03156000 ISTUDT EQU 0 03157000 UDTTPT EQU ISTUDT 03158000 UDTCPT EQU ISTUDT+4 03159000 UDTMPT EQU ISTUDT+8 03160000 ISTCVB EQU 0 03161000 CVBVPT EQU ISTCVB+4 03162000 CVBRPT EQU ISTCVB+8 03163000 CVBPPT EQU ISTCVB+12 03164000 CVBVRB EQU 0 03165000 CVBREP EQU 0 03166000 ISTPPB EQU 0 03167000 PPBKPT EQU ISTPPB+4 03168000 PPBRPT EQU ISTPPB+8 03169000 PPBVPT EQU ISTPPB+12 03170000 PPBKWD EQU 0 03171000 PPBREP EQU 0 03172000 PPBVAL EQU 0 03173000 ISTMPB EQU 0 03174000 MPBNPT EQU ISTMPB+4 03175000 MPBTPT EQU ISTMPB+8 03176000 MPBNBR EQU ISTMPB+12 03177000 MPBNUM EQU 0 03178000 MPBTXT EQU 0 03179000 GPBIDF EQU 0 03180000 SVAREA EQU 0 03181000 SVHSA EQU SVAREA+4 03182000 FIXBA EQU 0 03183000 FIXEA EQU 0 03184000 BEGADR EQU 0 03185000 ENDADR EQU 0 03186000 DUMNAMES EQU 0 03187000 ASXBPTR EQU DUMNAMES 03188000 DNCBPTR EQU DUMNAMES+4 03189000 FMCBPTR EQU DUMNAMES+8 03190000 FSBPTR EQU DUMNAMES+12 03191000 IOBPRPTR EQU DUMNAMES+16 03192000 IOBSTPTR EQU DUMNAMES+20 03193000 IOSBPTR EQU DUMNAMES+24 03194000 LCPBPTR EQU DUMNAMES+28 03195000 LDNCBPTR EQU DUMNAMES+32 03196000 TCBPTR EQU DUMNAMES+36 03197000 TCCWPTR EQU DUMNAMES+40 03198000 ISTACB EQU 0 03199000 ISTRPL EQU 0 03200000 I001C EQU 0 03201000 I008P EQU 0 03202000 I015F EQU 0 03203000 I015P EQU 0 03204000 I031F EQU 0 03205000 I031P EQU 0 03206000 I256C EQU 0 03207000 UDTTAB EQU 0 03208000 X EQU 0 03209000 IOBORG01 EQU IOBPREFX+8 03210000 IOBNIOBA EQU IOBORG01 03211000 IOBNFLG1 EQU IOBNIOBA 03212000 IOBPRTOV EQU IOBNFLG1 03213000 IOBORG02 EQU IOBPREFX+8 03214000 IOBDQADA EQU IOBORG02 03215000 IOBDEQIN EQU IOBDQADA 03216000 IOBORG03 EQU IOBPREFX+12 03217000 IOBORG04 EQU IOBINCAM 03218000 IOBORG12 EQU IOBINCAM 03219000 IOBFL4 EQU IOBORG12 03220000 IOBEXTEN EQU IOBSTDRD+32 03221000 IOBSEEK EQU IOBEXTEN 03222000 IOBBB EQU IOBSEEK+1 03223000 IOBCC EQU IOBSEEK+3 03224000 IOBHH EQU IOBSEEK+5 03225000 IOBORG05 EQU IOBEXTEN 03226000 IOBORG06 EQU IOBEXTEN 03227000 IOBNXTPT EQU IOBORG06+4 03228000 IOBSTATA EQU IOBNXTPT 03229000 IOBORG07 EQU IOBEXTEN+8 03230000 W1IEXTEN EQU IOBORG07 03231000 IOBORG08 EQU IOBEXTEN+8 03232000 IOBINDCT EQU IOBORG08+4 03233000 IOBUNSQR EQU IOBORG08+5 03234000 IOBFCHAD EQU IOBORG08+8 03235000 IOBORG09 EQU IOBEXTEN+8 03236000 IOBDPLAD EQU IOBORG09+4 03237000 IOBDTYPE EQU IOBORG09+8 03238000 IOBDTYP2 EQU IOBORG09+9 03239000 IOBDSTAT EQU IOBORG09+10 03240000 IOBSTAT1 EQU IOBDSTAT 03241000 IOBORG10 EQU IOBEXTEN+8 03242000 IOBSEEK2 EQU IOBORG10 03243000 IOBORG11 EQU IOBEXTEN 03244000 IOBERCT EQU IOBORG11 03245000 IOBUCBXV EQU IOBERCT 03246000 IOBNAME EQU IOBORG11+4 03247000 IOBORG13 EQU IOBEXTEN 03248000 IOBSKADR EQU IOBORG13 03249000 SRB EQU SRBSECT 03250000 IOSATTSC EQU IOSIPIB 03251000 IOSWTOWA EQU IOSIPIB 03252000 IOSPCISC EQU IOSIPIB 03253000 PSARSVTE EQU PSARSVT 03254000 CVTS01 EQU CVTPGSIA 03255000 CVTLPDIA EQU CVTS01+12 03256000 CVTDIRST EQU CVTLPDIA 03257000 CVTSLIDA EQU CVTS01+24 03258000 CVTCTLFG EQU CVTS01+50 03259000 CVTRV210 EQU CVTS01+424 03260000 CVTRV219 EQU CVTS01+425 03261000 CVTRV228 EQU CVTS01+426 03262000 CVTRV237 EQU CVTS01+427 03263000 CVTMFRTR EQU CVTS01+452 03264000 CVTRV262 EQU CVTS01+468 03265000 CVTRV271 EQU CVTS01+469 03266000 CVTRV280 EQU CVTS01+470 03267000 CVTRV289 EQU CVTS01+471 03268000 CVTGSDA EQU CVTS01+600 03269000 LCPZTIE EQU LCPCID 03270000 LCPZSNAM EQU LCPZTIE+8 03271000 FSBCOMBN EQU FSBNETRS 03272000 FSBRHFLD EQU FSBCOMBN+1 03273000 FSBRH3 EQU FSBRHFLD+2 03274000 FSBLDFLG EQU FSBRH3 03275000 @NM00105 EQU FSBRQTAG 03276000 ISTGPB EQU ISTPPB 03277000 GPBFWD EQU ISTGPB 03278000 GPBIPT EQU ISTGPB+4 03279000 GPBSYN EQU ISTGPB+16 03280000 GPBVAL EQU ISTGPB+24 03281000 I005 EQU ILIST 03282000 I00502 EQU I005+1 03283000 I00504 EQU I005+5 03284000 I00505 EQU I005+8 03285000 I00506 EQU I005+9 03286000 I004 EQU ILIST 03287000 I00401 EQU I004 03288000 I00403 EQU I004+5 03289000 I00404 EQU I004+8 03290000 I00405 EQU I004+9 03291000 FLC EQU PSA 03292000 RTRDNCBA EQU ISTRTR+40 03293000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03294000 I00402 EQU I004+4 03295000 I00503 EQU I005+4 03296000 I00501 EQU I005 03297000 GPBVCH EQU GPBVAL+1 03298000 GPBVLN EQU GPBVAL 03299000 GPBSCH EQU GPBSYN+1 03300000 GPBSLN EQU GPBSYN 03301000 GPBDF2 EQU ISTGPB+12 03302000 GPBDF1 EQU ISTGPB+8 03303000 GPBFLG EQU GPBFWD 03304000 FSBRT0B EQU @NM00105+1 03305000 FSBRT0A EQU @NM00105+1 03306000 FSBRT09 EQU @NM00105+1 03307000 FSBRT08 EQU @NM00105+1 03308000 FSBRT07 EQU @NM00105 03309000 FSBRT06 EQU @NM00105 03310000 FSBRT05 EQU @NM00105 03311000 FSBRT04 EQU @NM00105 03312000 FSBRT03 EQU @NM00105 03313000 FSBRT02 EQU @NM00105 03314000 FSBRT01 EQU @NM00105 03315000 FSBRT00 EQU @NM00105 03316000 FSBLDCUF EQU FSBLDFLG 03317000 FSBLDSIF EQU FSBLDFLG 03318000 FSBLDSOF EQU FSBLDFLG 03319000 FSBLDEBF EQU FSBLDFLG 03320000 FSBLDBBF EQU FSBLDFLG 03321000 FSBLDFME EQU FSBLDFLG 03322000 FSBLDSCF EQU FSBLDFLG 03323000 FSBLDRMF EQU FSBLDFLG 03324000 FSBRH2 EQU FSBRHFLD+1 03325000 FSBRH1 EQU FSBRHFLD 03326000 FSBALIGN EQU FSBCOMBN 03327000 LCPZTRV4 EQU LCPZSNAM+4 03328000 LCPZTRV1 EQU LCPZSNAM 03329000 LCPZSNA EQU LCPZTIE+4 03330000 LCPZFMCA EQU LCPZTIE 03331000 CVTRV628 EQU CVTS01+728 03332000 CVTRV627 EQU CVTS01+724 03333000 CVTRV626 EQU CVTS01+720 03334000 CVTRV625 EQU CVTS01+716 03335000 CVTRV624 EQU CVTS01+712 03336000 CVTRV623 EQU CVTS01+708 03337000 CVTRV622 EQU CVTS01+704 03338000 CVTRV621 EQU CVTS01+700 03339000 CVTRV620 EQU CVTS01+696 03340000 CVTRV619 EQU CVTS01+692 03341000 CVTRV618 EQU CVTS01+688 03342000 CVTRV617 EQU CVTS01+684 03343000 CVTRV616 EQU CVTS01+680 03344000 CVTRV615 EQU CVTS01+676 03345000 CVTRV614 EQU CVTS01+672 03346000 CVTRV613 EQU CVTS01+668 03347000 CVTTCASP EQU CVTS01+664 03348000 CVT0PT03 EQU CVTS01+660 03349000 CVT0PT0E EQU CVTS01+656 03350000 CVTIRM EQU CVTS01+652 03351000 CVTCGK EQU CVTS01+648 03352000 CVTRV607 EQU CVTS01+644 03353000 CVTRV606 EQU CVTS01+640 03354000 CVTRV605 EQU CVTS01+636 03355000 CVTRV604 EQU CVTS01+632 03356000 CVTEFF02 EQU CVTS01+628 03357000 CVTCBBR EQU CVTS01+624 03358000 CVTSSCR EQU CVTS01+620 03359000 CVTEVENT EQU CVTS01+616 03360000 CVTCRCA EQU CVTS01+612 03361000 CVTTPIO EQU CVTS01+608 03362000 CVTADV EQU CVTS01+604 03363000 CVTGSDAB EQU CVTGSDA 03364000 CVTQV3 EQU CVTS01+596 03365000 CVTQV2 EQU CVTS01+592 03366000 CVTQV1 EQU CVTS01+588 03367000 CVTRPT EQU CVTS01+584 03368000 CVTSSRB EQU CVTS01+580 03369000 CVTCSDRL EQU CVTS01+576 03370000 CVTEXP1 EQU CVTS01+572 03371000 CVTRMPMT EQU CVTS01+568 03372000 CVTRMPTT EQU CVTS01+564 03373000 CVTVPSA EQU CVTS01+560 03374000 CVTVSTOP EQU CVTS01+556 03375000 CVTGTFR8 EQU CVTS01+552 03376000 CVTQUIT EQU CVTS01+548 03377000 CVTVACR EQU CVTS01+544 03378000 CVTWTCB EQU CVTS01+540 03379000 CVTSTPRS EQU CVTS01+536 03380000 CVT0PT02 EQU CVTS01+532 03381000 CVTDARCM EQU CVTS01+528 03382000 CVTIRECM EQU CVTS01+524 03383000 CVTJRECM EQU CVTS01+520 03384000 CVTVEMS0 EQU CVTS01+516 03385000 CVTSPFRR EQU CVTS01+512 03386000 CVTRLSTG EQU CVTS01+508 03387000 CVT0TC0A EQU CVTS01+504 03388000 CVTGMBR EQU CVTS01+500 03389000 CVTLFRM EQU CVTS01+496 03390000 CVTRMBR EQU CVTS01+492 03391000 CVTVIOP EQU CVTS01+488 03392000 CVTRV307 EQU CVTS01+486 03393000 CVTRV306 EQU CVTS01+484 03394000 CVTRV305 EQU CVTS01+482 03395000 CVTRV304 EQU CVTS01+480 03396000 CVTRV303 EQU CVTS01+478 03397000 CVTRV302 EQU CVTS01+476 03398000 CVTTRCA EQU CVTS01+472 03399000 CVTRV297 EQU CVTRV289 03400000 CVTRV296 EQU CVTRV289 03401000 CVTRV295 EQU CVTRV289 03402000 CVTRV294 EQU CVTRV289 03403000 CVTRV293 EQU CVTRV289 03404000 CVTRV292 EQU CVTRV289 03405000 CVTRV291 EQU CVTRV289 03406000 CVTRV290 EQU CVTRV289 03407000 CVTRV288 EQU CVTRV280 03408000 CVTRV287 EQU CVTRV280 03409000 CVTRV286 EQU CVTRV280 03410000 CVTRV285 EQU CVTRV280 03411000 CVTRV284 EQU CVTRV280 03412000 CVTRV283 EQU CVTRV280 03413000 CVTRV282 EQU CVTRV280 03414000 CVTRV281 EQU CVTRV280 03415000 CVTRV279 EQU CVTRV271 03416000 CVTRV278 EQU CVTRV271 03417000 CVTRV277 EQU CVTRV271 03418000 CVTRV276 EQU CVTRV271 03419000 CVTRV275 EQU CVTRV271 03420000 CVTRV274 EQU CVTRV271 03421000 CVTRV273 EQU CVTRV271 03422000 CVTRV272 EQU CVTRV271 03423000 CVTRV270 EQU CVTRV262 03424000 CVTRV269 EQU CVTRV262 03425000 CVTRV268 EQU CVTRV262 03426000 CVTRV267 EQU CVTRV262 03427000 CVTRV266 EQU CVTRV262 03428000 CVTRV265 EQU CVTRV262 03429000 CVTRV264 EQU CVTRV262 03430000 CVTRV263 EQU CVTRV262 03431000 CVTVFP EQU CVTS01+464 03432000 CVTVSI EQU CVTS01+460 03433000 CVTVPSIB EQU CVTS01+456 03434000 CVTMFACT EQU CVTMFRTR 03435000 CVTMFCTL EQU CVTS01+448 03436000 CVTPVBP EQU CVTS01+444 03437000 CVTPWI EQU CVTS01+440 03438000 CVTRV254 EQU CVTS01+438 03439000 CVTRV253 EQU CVTS01+436 03440000 CVTRV252 EQU CVTS01+434 03441000 CVTRV251 EQU CVTS01+433 03442000 CVTRV250 EQU CVTS01+432 03443000 CVTRV249 EQU CVTS01+431 03444000 CVTRV248 EQU CVTS01+430 03445000 CVTRV247 EQU CVTS01+429 03446000 CVTRV246 EQU CVTS01+428 03447000 CVTRV245 EQU CVTRV237 03448000 CVTRV244 EQU CVTRV237 03449000 CVTRV243 EQU CVTRV237 03450000 CVTRV242 EQU CVTRV237 03451000 CVTRV241 EQU CVTRV237 03452000 CVTRV240 EQU CVTRV237 03453000 CVTRV239 EQU CVTRV237 03454000 CVTRV238 EQU CVTRV237 03455000 CVTRV236 EQU CVTRV228 03456000 CVTRV235 EQU CVTRV228 03457000 CVTRV234 EQU CVTRV228 03458000 CVTRV233 EQU CVTRV228 03459000 CVTRV232 EQU CVTRV228 03460000 CVTRV231 EQU CVTRV228 03461000 CVTRV230 EQU CVTRV228 03462000 CVTRV229 EQU CVTRV228 03463000 CVTRV227 EQU CVTRV219 03464000 CVTRV226 EQU CVTRV219 03465000 CVTRV225 EQU CVTRV219 03466000 CVTRV224 EQU CVTRV219 03467000 CVTRV223 EQU CVTRV219 03468000 CVTRV222 EQU CVTRV219 03469000 CVTRV221 EQU CVTRV219 03470000 CVTRV220 EQU CVTRV219 03471000 CVTRV218 EQU CVTRV210 03472000 CVTRV217 EQU CVTRV210 03473000 CVTRV216 EQU CVTRV210 03474000 CVTRV215 EQU CVTRV210 03475000 CVTRV214 EQU CVTRV210 03476000 CVTRV213 EQU CVTRV210 03477000 CVTRV212 EQU CVTRV210 03478000 CVTRV211 EQU CVTRV210 03479000 CVTLCCAT EQU CVTS01+420 03480000 CVTPCCAT EQU CVTS01+416 03481000 CVTIPCRP EQU CVTS01+412 03482000 CVTIPCRI EQU CVTS01+408 03483000 CVTIPCDS EQU CVTS01+404 03484000 CVTAIDVT EQU CVTS01+400 03485000 CVTSSAP EQU CVTS01+396 03486000 CVTEHCIR EQU CVTS01+392 03487000 CVTEHDEF EQU CVTS01+388 03488000 CVTDAIR EQU CVTS01+384 03489000 CVTPERFM EQU CVTS01+380 03490000 CVT044R2 EQU CVTS01+376 03491000 CVTFETCH EQU CVTS01+372 03492000 CVTRSTWD EQU CVTS01+368 03493000 CVTSPOST EQU CVTS01+364 03494000 CVTIOBP EQU CVTS01+360 03495000 CVTASMVT EQU CVTS01+356 03496000 CVTRECRQ EQU CVTS01+352 03497000 CVTWSAC EQU CVTS01+348 03498000 CVTRV149 EQU CVTS01+344 03499000 CVTWSAL EQU CVTS01+340 03500000 CVTSPSA EQU CVTS01+336 03501000 CVTGLMN EQU CVTS01+332 03502000 CVTVEAC0 EQU CVTS01+328 03503000 CVT062R1 EQU CVTS01+324 03504000 CVTRPOST EQU CVTS01+320 03505000 CVTDQIQE EQU CVTS01+316 03506000 CVTCSD EQU CVTS01+312 03507000 CVTLKRMA EQU CVTS01+308 03508000 CVTRSPIE EQU CVTS01+304 03509000 CVTRENQ EQU CVTS01+300 03510000 CVTLQCB EQU CVTS01+296 03511000 CVTFQCB EQU CVTS01+292 03512000 CVTQCS01 EQU CVTS01+288 03513000 CVTAPFT EQU CVTS01+284 03514000 CVTPARRL EQU CVTS01+280 03515000 CVTVWAIT EQU CVTS01+276 03516000 CVTGSPL EQU CVTS01+272 03517000 CVTLSMQ EQU CVTS01+268 03518000 CVTGSMQ EQU CVTS01+264 03519000 CVTEXPRO EQU CVTS01+260 03520000 CVTOPCTP EQU CVTS01+256 03521000 CVTSIC EQU CVTS01+252 03522000 CVTTPIOS EQU CVTS01+248 03523000 CVTRTMS EQU CVTS01+244 03524000 CVTSDBF EQU CVTS01+240 03525000 CVTSCBP EQU CVTS01+236 03526000 CVTSDMP EQU CVTS01+232 03527000 CVTSV60 EQU CVTS01+228 03528000 CVTRTMCT EQU CVTS01+224 03529000 CVTASCBL EQU CVTS01+220 03530000 CVTASCBH EQU CVTS01+216 03531000 CVTGDA EQU CVTS01+212 03532000 CVTASVT EQU CVTS01+208 03533000 CVTVVMDI EQU CVTS01+204 03534000 CVTAQTOP EQU CVTS01+200 03535000 CVTIOSCS EQU CVTS01+196 03536000 CVTSDRM EQU CVTS01+192 03537000 CVTOPTE EQU CVTS01+188 03538000 CVTSTXU EQU CVTS01+184 03539000 CVTQUIS EQU CVTS01+180 03540000 CVTPARS EQU CVTS01+176 03541000 CVTS1EE EQU CVTS01+172 03542000 CVTFRAS EQU CVTS01+168 03543000 CVTQSAS EQU CVTS01+164 03544000 CVTCRAS EQU CVTS01+160 03545000 CVTCRMN EQU CVTS01+156 03546000 CVTDELCP EQU CVTS01+152 03547000 CVTFRECL EQU CVTS01+148 03548000 CVTGETCL EQU CVTS01+144 03549000 CVTBLDCP EQU CVTS01+140 03550000 CVTAUTHL EQU CVTS01+136 03551000 CVTSCAN EQU CVTS01+132 03552000 CVTRV144 EQU CVTS01+130 03553000 CVTMAXMP EQU CVTS01+128 03554000 CVTSTCK EQU CVTS01+124 03555000 CVTRV139 EQU CVTS01+123 03556000 CVTDSSAC EQU CVTS01+122 03557000 CVTRV513 EQU CVTS01+121 03558000 CVTIOSPL EQU CVTS01+120 03559000 CVTPTGT EQU CVTS01+116 03560000 CVTCSPIE EQU CVTS01+112 03561000 CVTSMFEX EQU CVTS01+108 03562000 CVTOLT0A EQU CVTS01+104 03563000 CVTSRBRT EQU CVTS01+100 03564000 CVTPUTL EQU CVTS01+96 03565000 CVTASCRL EQU CVTS01+92 03566000 CVTASCRF EQU CVTS01+88 03567000 CVTRV326 EQU CVTS01+84 03568000 CVTRV325 EQU CVTS01+80 03569000 CVTRV324 EQU CVTS01+76 03570000 CVT0VL01 EQU CVTS01+72 03571000 CVTSHRVM EQU CVTS01+68 03572000 CVTRV332 EQU CVTS01+64 03573000 CVTTAS EQU CVTS01+60 03574000 CVTRSCN EQU CVTS01+56 03575000 CVTTRAC2 EQU CVTS01+54 03576000 CVTTRACE EQU CVTS01+52 03577000 CVTAPG EQU CVTS01+51 03578000 CVTSDTRC EQU CVTCTLFG 03579000 CVTGTRCE EQU CVTCTLFG 03580000 CVTNOMP EQU CVTCTLFG 03581000 CVTRSV79 EQU CVTCTLFG 03582000 CVTDSTAT EQU CVTCTLFG 03583000 CVTRSV78 EQU CVTCTLFG 03584000 CVTRV333 EQU CVTCTLFG 03585000 CVTRV323 EQU CVTCTLFG 03586000 CVTSPVLK EQU CVTS01+49 03587000 CVTRSV77 EQU CVTS01+48 03588000 CVTRV331 EQU CVTS01+44 03589000 CVTRV330 EQU CVTS01+40 03590000 CVTRV329 EQU CVTS01+36 03591000 CVTRV328 EQU CVTS01+32 03592000 CVTRV322 EQU CVTS01+28 03593000 CVTSLID EQU CVTSLIDA+1 03594000 CVTSYLK EQU CVTSLIDA 03595000 CVTRV321 EQU CVTS01+20 03596000 CVTRV320 EQU CVTS01+16 03597000 CVTLPDIR EQU CVTLPDIA+1 03598000 CVTRSV69 EQU CVTDIRST 03599000 CVTRSV68 EQU CVTDIRST 03600000 CVTRSV67 EQU CVTDIRST 03601000 CVTRSV66 EQU CVTDIRST 03602000 CVTRSV65 EQU CVTDIRST 03603000 CVTRSV64 EQU CVTDIRST 03604000 CVTRSV63 EQU CVTDIRST 03605000 CVTDICOM EQU CVTDIRST 03606000 CVTPVTP EQU CVTS01+8 03607000 CVTLPDSR EQU CVTS01+4 03608000 CVTGETL EQU CVTS01 03609000 PSARSAV EQU PSARSVTE+60 03610000 PSARSTK EQU PSARSVTE+56 03611000 PSAESAV3 EQU PSARSVTE+52 03612000 PSAESTK3 EQU PSARSVTE+48 03613000 PSAESAV2 EQU PSARSVTE+44 03614000 PSAESTK2 EQU PSARSVTE+40 03615000 PSAESAV1 EQU PSARSVTE+36 03616000 PSAESTK1 EQU PSARSVTE+32 03617000 PSAPSAV EQU PSARSVTE+28 03618000 PSAPSTK EQU PSARSVTE+24 03619000 PSAMSAV EQU PSARSVTE+20 03620000 PSAMSTK EQU PSARSVTE+16 03621000 PSASSAV EQU PSARSVTE+12 03622000 PSASSTK EQU PSARSVTE+8 03623000 PSANSTK EQU PSARSVTE+4 03624000 PSACSTK EQU PSARSVTE 03625000 IOSPCIWA EQU IOSPCISC+44 03626000 IOSPCIRS EQU IOSPCISC+8 03627000 @NM00049 EQU IOSPCISC+4 03628000 @NM00048 EQU IOSPCISC 03629000 IOSWRNDR EQU IOSWTOWA+4 03630000 IOSWTOPT EQU IOSWTOWA+3 03631000 IOSWTOCP EQU IOSWTOWA+2 03632000 IOSWTOCH EQU IOSWTOWA 03633000 IOSATTWA EQU IOSATTSC+40 03634000 @NM00047 EQU IOSATTSC+24 03635000 IOSATTSN EQU IOSATTSC 03636000 IOBSKSS EQU IOBSKADR+3 03637000 IOBSK0 EQU IOBSKADR+2 03638000 IOBSKTT EQU IOBSKADR+1 03639000 IOBSKRV EQU IOBSKADR 03640000 IOBCSWSV EQU IOBORG11+17 03641000 IOBSENSV EQU IOBORG11+16 03642000 IOBRCD EQU IOBORG11+12 03643000 IOBMDREC EQU IOBORG11+8 03644000 IOBNAMEA EQU IOBNAME+1 03645000 IOBNAMSZ EQU IOBNAME 03646000 IOBERCTA EQU IOBERCT+1 03647000 IOBRTYPE EQU IOBUCBXV 03648000 IOBRDCHP EQU IOBORG10+20 03649000 IOBNEXTA EQU IOBORG10+16 03650000 IOBREADA EQU IOBORG10+12 03651000 IOBBUFC EQU IOBORG10+8 03652000 IOBSK2R EQU IOBSEEK2+7 03653000 IOBSK2HH EQU IOBSEEK2+5 03654000 IOBSK2CC EQU IOBSEEK2+3 03655000 IOBSK2BB EQU IOBSEEK2+1 03656000 IOBSK2M EQU IOBSEEK2 03657000 IOBCHNPR EQU IOBORG09+40 03658000 IOBDNCRF EQU IOBORG09+32 03659000 IOBRSV35 EQU IOBORG09+24 03660000 IOBDQPTR EQU IOBORG09+20 03661000 IOBRSV34 EQU IOBORG09+18 03662000 IOBDBYTN EQU IOBORG09+16 03663000 IOBDCPND EQU IOBORG09+12 03664000 IOBSTAT2 EQU IOBDSTAT+1 03665000 IOBSIORT EQU IOBSTAT1 03666000 IOBADDVU EQU IOBSTAT1 03667000 IOBBUFF EQU IOBSTAT1 03668000 IOBENQUE EQU IOBSTAT1 03669000 IOBPASS2 EQU IOBSTAT1 03670000 IOBSYNCH EQU IOBSTAT1 03671000 IOBNEWVL EQU IOBSTAT1 03672000 IOBABNRM EQU IOBSTAT1 03673000 IOBRELEX EQU IOBDTYP2 03674000 IOBADDTY EQU IOBDTYP2 03675000 IOBTYPE EQU IOBDTYP2 03676000 IOBRQUST EQU IOBDTYP2 03677000 IOBSUFFX EQU IOBDTYP2 03678000 IOBSBLKL EQU IOBDTYP2 03679000 IOBSKEY EQU IOBDTYP2 03680000 IOBRELBL EQU IOBDTYPE 03681000 IOBRDEXC EQU IOBDTYPE 03682000 IOBDYNBF EQU IOBDTYPE 03683000 IOBACTAD EQU IOBDTYPE 03684000 IOBFDBCK EQU IOBDTYPE 03685000 IOBEXTSC EQU IOBDTYPE 03686000 IOBOVFLO EQU IOBDTYPE 03687000 IOBVERFY EQU IOBDTYPE 03688000 IOBDPLB EQU IOBDPLAD+1 03689000 IOBDAYLI EQU IOBDPLAD 03690000 IOBDIOBS EQU IOBORG09+2 03691000 IOBDBYTR EQU IOBORG09 03692000 IOBBCHAD EQU IOBORG08+12 03693000 IOBFCHNB EQU IOBFCHAD+1 03694000 IOBCOUNT EQU IOBFCHAD 03695000 IOBASYN EQU IOBORG08+7 03696000 IOBAPP EQU IOBORG08+6 03697000 IOBRSV32 EQU IOBUNSQR 03698000 IOBRSV31 EQU IOBUNSQR 03699000 IOBRSV30 EQU IOBUNSQR 03700000 IOBKNRWR EQU IOBUNSQR 03701000 IOBKNWR EQU IOBUNSQR 03702000 IOBNTAV2 EQU IOBUNSQR 03703000 IOBNTAV1 EQU IOBUNSQR 03704000 IOBCPBSY EQU IOBUNSQR 03705000 IOBCHNNL EQU IOBINDCT 03706000 IOBRSV29 EQU IOBINDCT 03707000 IOBRSV28 EQU IOBINDCT 03708000 IOBRSV27 EQU IOBINDCT 03709000 IOBKEYAD EQU IOBINDCT 03710000 IOBOVPTR EQU IOBINDCT 03711000 IOBUNSCH EQU IOBINDCT 03712000 IOBDEQCP EQU IOBINDCT 03713000 IOBCCWAD EQU IOBORG08 03714000 W1OEXTEN EQU W1IEXTEN 03715000 IOBCCW EQU IOBORG06+8 03716000 IOBNXTPB EQU IOBNXTPT+1 03717000 IOBRSV26 EQU IOBSTATA 03718000 IOBRSV25 EQU IOBSTATA 03719000 IOBRSV24 EQU IOBSTATA 03720000 IOBRSV23 EQU IOBSTATA 03721000 IOBRSV22 EQU IOBSTATA 03722000 IOBRSV21 EQU IOBSTATA 03723000 IOBRSV20 EQU IOBSTATA 03724000 IOBAVLFL EQU IOBSTATA 03725000 IOBRSV37 EQU IOBORG06+1 03726000 IOBUCBXG EQU IOBORG06 03727000 IOBCPA EQU IOBORG05+32 03728000 IOBERINF EQU IOBORG05+16 03729000 IOBERCCW EQU IOBORG05+8 03730000 IOBSNDPT EQU IOBORG05+7 03731000 IOBRCVPT EQU IOBORG05+6 03732000 IOBWORK EQU IOBORG05+1 03733000 IOBUCBX EQU IOBORG05 03734000 IOBR EQU IOBSEEK+7 03735000 IOBHH2 EQU IOBHH+1 03736000 IOBHH1 EQU IOBHH 03737000 IOBCC2 EQU IOBCC+1 03738000 IOBCC1 EQU IOBCC 03739000 IOBBB2 EQU IOBBB+1 03740000 IOBBB1 EQU IOBBB 03741000 IOBM EQU IOBSEEK 03742000 IOBRSV46 EQU IOBFL4 03743000 IOBRSV47 EQU IOBFL4 03744000 IOBENT EQU IOBFL4 03745000 IOBEQP EQU IOBFL4 03746000 IOBBUS EQU IOBFL4 03747000 IOBDCK EQU IOBFL4 03748000 IOBREJ EQU IOBFL4 03749000 IOBOVR EQU IOBFL4 03750000 IOBCRILC EQU IOBORG04+1 03751000 IOBCRDCC EQU IOBORG04 03752000 IOBGQECB EQU IOBORG03 03753000 IOBSWAP EQU IOBORG02+4 03754000 IOBDQADB EQU IOBDQADA+1 03755000 IOBRSV13 EQU IOBDEQIN 03756000 IOBRSV12 EQU IOBDEQIN 03757000 IOBRSV11 EQU IOBDEQIN 03758000 IOBRSV10 EQU IOBDEQIN 03759000 IOBRSV09 EQU IOBDEQIN 03760000 IOBRSV08 EQU IOBDEQIN 03761000 IOBRSV07 EQU IOBDEQIN 03762000 IOBDEQ EQU IOBDEQIN 03763000 IOBNECB EQU IOBORG01+4 03764000 IOBNIOBB EQU IOBNIOBA+1 03765000 IOBFIRST EQU IOBNFLG1 03766000 IOBUPERR EQU IOBNFLG1 03767000 IOBSPAN EQU IOBNFLG1 03768000 IOBBKSPC EQU IOBNFLG1 03769000 IOBUPDAT EQU IOBNFLG1 03770000 IOBREAD EQU IOBNFLG1 03771000 IOBWRITE EQU IOBNFLG1 03772000 IOBSEGMT EQU IOBPRTOV 03773000 SVGPRS EQU SVAREA+12 03774000 SVLSA EQU SVAREA+8 03775000 SVRSV EQU SVAREA 03776000 GPBICH EQU GPBIDF+1 03777000 GPBILN EQU GPBIDF 03778000 MPBTCH EQU MPBTXT+1 03779000 MPBTLN EQU MPBTXT 03780000 MPBNCH EQU MPBNUM+1 03781000 MPBNLN EQU MPBNUM 03782000 MPBNBC EQU MPBNBR+1 03783000 MPBNBL EQU MPBNBR 03784000 MPBFWD EQU ISTMPB 03785000 PPBVCH EQU PPBVAL+1 03786000 PPBVLN EQU PPBVAL 03787000 PPBRCH EQU PPBREP+1 03788000 PPBRLN EQU PPBREP 03789000 PPBKCH EQU PPBKWD+1 03790000 PPBKLN EQU PPBKWD 03791000 PPBVSW EQU PPBVPT 03792000 PPBFWD EQU ISTPPB 03793000 CVBRCH EQU CVBREP+1 03794000 CVBRLN EQU CVBREP 03795000 CVBVCH EQU CVBVRB+1 03796000 CVBVLN EQU CVBVRB 03797000 CVBFMT EQU CVBVPT 03798000 CVBFWD EQU ISTCVB 03799000 PATRSV01 EQU PATFLAGA 03800000 PATUSEFG EQU PATFLAGA 03801000 PATRDCNT EQU ISTPAT+6 03802000 PATGRPID EQU ISTPAT+5 03803000 PATPTHID EQU ISTPAT+4 03804000 PATDINDX EQU ISTPAT+2 03805000 PATGINDX EQU ISTPAT 03806000 GNTGRPNM EQU ISTGNT 03807000 DNTTELNO EQU ISTDNT+1 03808000 DNTCTDIG EQU ISTDNT 03809000 RLSRSV02 EQU ISTRLS+140 03810000 RLSRSV01 EQU ISTRLS+138 03811000 RLSCTELU EQU ISTRLS+136 03812000 RLSPRE EQU ISTRLS 03813000 RDARSVPT EQU ISTRDA+84 03814000 RDAPUBI EQU ISTRDA+83 03815000 RDADFCUA EQU ISTRDA+80 03816000 RDACTPCC EQU ISTRDA+79 03817000 RDADACUA EQU ISTRDA+76 03818000 RDALUBA EQU RDAUCBAD+1 03819000 RDACHQI EQU RDAUCBAD 03820000 RDARSV01 EQU RDAFLAG 03821000 RDARBISA EQU RDAFLAG 03822000 RDAPRE EQU ISTRDA 03823000 RSWRSV01 EQU ISTRSW+152 03824000 RSWRSV02 EQU ISTRSW+150 03825000 RSWCTELU EQU ISTRSW+148 03826000 RSWGRUPZ EQU ISTRSW+146 03827000 RSWDIALZ EQU ISTRSW+144 03828000 RSWGRUPT EQU ISTRSW+140 03829000 RSWDIALT EQU ISTRSW+136 03830000 RSWPRE EQU ISTRSW 03831000 RLXRSV03 EQU ISTRLX+80 03832000 RLXRSV02 EQU ISTRLX+77 03833000 RLXRSV01 EQU RLXFLAGA 03834000 RLXINUSE EQU RLXFLAGA 03835000 RLXNLUX EQU ISTRLX+72 03836000 RLXPRE EQU ISTRLX 03837000 RPXRSV01 EQU ISTRPX+80 03838000 RPXRSV02 EQU ISTRPX+77 03839000 RPXMAXLU EQU ISTRPX+76 03840000 RPXFLUX EQU ISTRPX+72 03841000 RPXPRE EQU ISTRPX 03842000 RLURSV02 EQU ISTRLU+172 03843000 RLULGMOD EQU ISTRLU+164 03844000 RLUMODEP EQU RLUMODET+8 03845000 RLUMODEN EQU RLUMODET 03846000 RLUUSSNM EQU RLUUSSTB 03847000 RLURSV01 EQU ISTRLU+137 03848000 RLULOCAD EQU ISTRLU+136 03849000 RLUNCPPM EQU RLUNCPPC+1 03850000 RLUNCPPN EQU RLUNCPPC 03851000 RLUPACEM EQU RLUPACE+1 03852000 RLUPACEN EQU RLUPACE 03853000 RLUINTA EQU ISTRLU+128 03854000 RLUSSCFM EQU ISTRLU+127 03855000 RLUCRRSV EQU RLUCRFLG 03856000 RLUACTLU EQU RLUCRFLG 03857000 RLURSV00 EQU RLUFLAG 03858000 RLUNDSES EQU RLUFLAG 03859000 RLUGSTAT EQU RLUFLAG 03860000 RLUBATCH EQU RLUFLAG 03861000 RLURBISA EQU RLUFLAG 03862000 RLUTYPE EQU ISTRLU+124 03863000 RLUCRPR EQU ISTRLU 03864000 RCCRVPT2 EQU ISTRCC+144 03865000 RCCXTOSW EQU ISTRCC+140 03866000 RCCSWTOX EQU ISTRCC+136 03867000 RCCRSPT2 EQU ISTRCC+133 03868000 RCCADDR EQU ISTRCC+132 03869000 RCCPASSL EQU ISTRCC+131 03870000 RCCMXOUT EQU ISTRCC+130 03871000 RCCMXDAT EQU ISTRCC+128 03872000 RCCINDEX EQU ISTRCC+126 03873000 RCCPATHZ EQU ISTRCC+124 03874000 RCCPATHT EQU ISTRCC+120 03875000 RCCDPQ EQU ISTRCC+116 03876000 RCCTPAB EQU ISTRCC+112 03877000 RCCRSV02 EQU ISTRCC+109 03878000 RCCCRRSV EQU RCCCRFLG 03879000 RCCCTCFL EQU RCCCRFLG 03880000 RCCACTPU EQU RCCCRFLG 03881000 RCCNCSPL EQU ISTRCC+104 03882000 RCCRPHCN EQU ISTRCC+100 03883000 RCCEPAB EQU ISTRCC+96 03884000 RCCDPAB EQU ISTRCC+92 03885000 RCCVPAB EQU ISTRCC+88 03886000 @NM00164 EQU ISTRCC+87 03887000 RCCSESCT EQU ISTRCC+86 03888000 RCCIDNUM EQU RCCID48+3 03889000 RCCIDBLK EQU RCCID48+2 03890000 RCCIDPA2 EQU RCCID48+1 03891000 RCCIDPUT EQU RCCID48 03892000 RCCIDPA1 EQU RCCSTAID 03893000 RCCCTELU EQU ISTRCC+76 03894000 RCCCNCNT EQU ISTRCC+75 03895000 RCCRTGOH EQU RCCFLAGB 03896000 RCCBRKCN EQU RCCFLAGB 03897000 RCCRESET EQU RCCFLAGB 03898000 RCCFINAL EQU RCCFLAGB 03899000 RCCBNNSP EQU RCCFLAGB 03900000 RCCIRETR EQU RCCFLAGB 03901000 RCCDIALP EQU RCCFLAGB 03902000 RCCDSTCT EQU RCCFLAGB 03903000 RCCCTPGD EQU RCCFLAG 03904000 RCCPRGDN EQU RCCFLAG 03905000 RCCOUERP EQU RCCFLAG 03906000 RCCOHIMM EQU RCCFLAG 03907000 RCCLDISC EQU RCCFLAG 03908000 RCCERPIP EQU RCCFLAG 03909000 RCCCUDIE EQU RCCFLAG 03910000 RCCRBISA EQU RCCFLAG 03911000 RCCTYPE EQU ISTRCC+72 03912000 RCCPRE EQU ISTRCC 03913000 DOTADTRM EQU ISTDOT 03914000 RDSADDOT EQU ISTRDS+76 03915000 RDSCTATR EQU ISTRDS+74 03916000 RDSCTTRM EQU ISTRDS+72 03917000 RDSPRE EQU ISTRDS 03918000 RINRSV05 EQU ISTRIN+156 03919000 RINRSV04 EQU ISTRIN+152 03920000 RINLOCRN EQU ISTRIN+148 03921000 RINRSV02 EQU ISTRIN+145 03922000 RTRCNCNT EQU RINCNCNT 03923000 RTRNCSPL EQU RINNCSPL 03924000 RTRRPHCN EQU RINRPHCN 03925000 RTRVPAB EQU RINVPAB 03926000 RTRREMOT EQU RINREMOT 03927000 RTRRLDAF EQU RINRLDAF 03928000 RTRNODID EQU RINNODID 03929000 RINRSV01 EQU RINDFD 03930000 RTRLDISC EQU RINLDISC 03931000 RTRNODEF EQU RINNODEF 03932000 RTRREMPO EQU RINREMPO 03933000 RINCRPRE EQU ISTRIN 03934000 RTRRSV04 EQU ISTRTR+210 03935000 RTRLCTI EQU ISTRTR+209 03936000 RTRIDCAS EQU RTRBSCID+1 03937000 RTRIDLEN EQU RTRBSCID 03938000 RTRRSVDD EQU ISTRTR+181 03939000 RTRRDFG EQU ISTRTR+180 03940000 RTRDIAA EQU ISTRTR+176 03941000 RTRPOLA EQU ISTRTR+172 03942000 RTRCADDR EQU ISTRTR+164 03943000 RTRCTADR EQU ISTRTR+162 03944000 RTRCTPOL EQU ISTRTR+160 03945000 RTRCTDIA EQU ISTRTR+158 03946000 RTRRSV03 EQU ISTRTR+156 03947000 RTRRVPT1 EQU ISTRTR+152 03948000 RTRBHSN1 EQU ISTRTR+144 03949000 RTRCRSV2 EQU RTRCRFLG 03950000 RTRDTRLM EQU RTRLSCMD 03951000 RTRCRSV1 EQU RTRCRFLG 03952000 RTRTRMAX EQU ISTRTR+142 03953000 RTRRSV24 EQU RTRRDFF 03954000 RTRRFDEK EQU RTRRDFF 03955000 RTRRFANK EQU RTRRDFF 03956000 RTRRFPFK EQU RTRRDFF 03957000 RTRRFPEN EQU RTRRDFF 03958000 RTRRFXCT EQU RTRRDFF 03959000 RTRRESCT EQU RTRRDFE 03960000 RTRRESUP EQU RTRRDFE 03961000 RTRREATT EQU RTRRDFE 03962000 RTRRECHK EQU RTRRDFE 03963000 RTRREACR EQU RTRRDFE 03964000 RTRRSV0A EQU RTRRDFE 03965000 RTRREBRK EQU RTRRDFE 03966000 RTRRSV11 EQU RTRRDFD 03967000 RTRRSV10 EQU RTRRDFD 03968000 RTRRDBHI EQU RTRRDFD 03969000 RTRRDBHD EQU RTRRDFD 03970000 RTRRDBHN EQU RTRRDFD 03971000 RTRRSV23 EQU RTRRDFC 03972000 RTRRCXMS EQU RTRRDFC 03973000 RTRRCMSG EQU RTRRDFC 03974000 RTRRCBLK EQU RTRRDFC 03975000 RTRRCPT3 EQU RTRRDFC 03976000 RTRRCIT2 EQU RTRRDFC 03977000 RTRRCIT1 EQU RTRRDFC 03978000 RTRRSV32 EQU RTRRDFB 03979000 RTRRBEND EQU RTRRDFB 03980000 RTRRBECT EQU RTRRDFB 03981000 RTRRSV02 EQU RTRRDFA 03982000 RTRRACTR EQU RTRRDFA 03983000 RTRRSV60 EQU RTRRDFA 03984000 RTRRACDT EQU RTRRDFA 03985000 RTRRAPT3 EQU RTRRAALL 03986000 RTRRAPT2 EQU RTRRAALL 03987000 RTRRAPT1 EQU RTRRAALL 03988000 RTRRAATN EQU RTRRDFA 03989000 RTRRSV45 EQU ISTRTR+132 03990000 RTRRSV01 EQU ISTRTR+130 03991000 RTRCTECM EQU ISTRTR+128 03992000 RTRADRPT EQU RTRADR+1 03993000 RTRRSV22 EQU RTRFLAG 03994000 RTRVTERM EQU RTRFLAG 03995000 RTRRSV51 EQU RTRFLAG 03996000 RTRRBISA EQU RTRFLAG 03997000 RTRRSV21 EQU RTRFLAG 03998000 RTRCRPR EQU ISTRTR 03999000 RCLRVPT2 EQU ISTRCL+92 04000000 RCLRVPT1 EQU ISTRCL+88 04001000 RCLGPOLA EQU ISTRCL+84 04002000 RCLCTNGP EQU ISTRCL+82 04003000 RCLRSV01 EQU ISTRCL+80 04004000 RCLCTECM EQU ISTRCL+78 04005000 RCLCTETR EQU ISTRCL+76 04006000 RCLGPADR EQU RCLADR+1 04007000 RCLRSV33 EQU RCLFLAG 04008000 RCLBATCH EQU RCLFLAG 04009000 RCLRBISA EQU RCLFLAG 04010000 RCLRSV22 EQU RCLFLAG 04011000 RCLPRE EQU ISTRCL 04012000 RPTRSV03 EQU ISTRPT+156 04013000 RPTRSV02 EQU ISTRPT+152 04014000 RPTNSNSV EQU ISTRPT+148 04015000 RPTPTHCT EQU ISTRPT+146 04016000 RPTPEPCT EQU ISTRPT+144 04017000 RPTDAFSV EQU ISTRPT+142 04018000 RPTRSV01 EQU ISTRPT+141 04019000 RPTISTAT EQU RPTFLAG1 04020000 RPTDYNAM EQU RPTFLAG1 04021000 RPTVYIMM EQU RPTFLAG1 04022000 RPTVIODN EQU RPTFLAG1 04023000 RPTONLIN EQU RPTFLAG1 04024000 RPTHLVPD EQU RPTFLAG1 04025000 RPTVRYPD EQU RPTFLAG1 04026000 RPTASLEP EQU RPTFLAG1 04027000 RPTUTERM EQU ISTRPT+136 04028000 RPTATERM EQU ISTRPT+132 04029000 RPTDIVT EQU RPTDITT 04030000 RPTCTNM EQU ISTRPT+120 04031000 RPTLNDAF EQU RPTLNCID+2 04032000 RPTLNSAF EQU RPTLNCID 04033000 RPTLN EQU ISTRPT 04034000 RLNRVPT2 EQU ISTRLN+112 04035000 RLNNCSPL EQU ISTRLN+108 04036000 RLNX2SW EQU ISTRLN+104 04037000 @NM00163 EQU ISTRLN+103 04038000 RLNCRRSV EQU RLNCRFLG 04039000 RLNSWEP EQU RLNCRFLG 04040000 RLNSVSKP EQU RLNLSCMD 04041000 RLNSESLM EQU RLNLSCMD 04042000 RLNNPRLM EQU RLNLSCMD 04043000 RLNSWNCP EQU RLNCRFLG 04044000 RLNACTLN EQU RLNCRFLG 04045000 RLNPAUSE EQU ISTRLN+101 04046000 RLNPOLMT EQU ISTRLN+100 04047000 RLNACTSN EQU ISTRLN+98 04048000 RLNRESV1 EQU ISTRLN+97 04049000 RLNACTRM EQU ISTRLN+96 04050000 RLNCTSES EQU ISTRLN+95 04051000 RLNRDSLM EQU ISTRLN+94 04052000 RLNAUTOA EQU ISTRLN+92 04053000 RLNRDFD EQU RLNRDF+3 04054000 RLNRDFC EQU RLNRDF+2 04055000 RLNMULTP EQU RLNRDFB 04056000 RLNRATRN EQU RLNRDFB 04057000 RLNRAPOL EQU RLNRDFB 04058000 RLNTTV EQU RLNRDFB 04059000 RLNRSV0B EQU RLNRDFB 04060000 RLNAUTOD EQU RLNRDFB 04061000 RLNANSWR EQU RLNRDFB 04062000 RLNRBUSE EQU RLNRDFB 04063000 RLNRAPEP EQU RLNRDFA 04064000 RLNRANCP EQU RLNRDFA 04065000 RLNRAEP EQU RLNRDFA 04066000 RLNIDV EQU RLNRDFA 04067000 RLNPORT EQU RLNRDFA 04068000 RLNGANSW EQU RLNRDFA 04069000 RLNRACAN EQU RLNRACNT 04070000 RLNRACAT EQU RLNRACNT 04071000 RLNRSV04 EQU RLNSTAT2 04072000 RLNINUSE EQU RLNSTAT2 04073000 RLNOHIN EQU RLNSTAT2 04074000 RLNRSV03 EQU RLNSTAT1 04075000 RLNVD EQU RLNSTAT1 04076000 RLNINOPP EQU RLNSTAT1 04077000 RLNINOPL EQU RLNSTAT1 04078000 RLNLRST EQU RLNSTAT1 04079000 RLNTRAP EQU RLNSTAT1 04080000 RLNACTCT EQU ISTRLN+84 04081000 RLNCTECM EQU ISTRLN+82 04082000 RLNCTEIN EQU ISTRLN+80 04083000 RLNCTETR EQU ISTRLN+78 04084000 RLNCTECL EQU ISTRLN+76 04085000 RLNCUA EQU RLNUCBAD 04086000 RLNRSV01 EQU RLNFLAG 04087000 RLNRBISA EQU RLNFLAG 04088000 RLNEAM EQU RLNFLAG 04089000 RLNPRE EQU ISTRLN 04090000 RGPRVPT2 EQU ISTRGP+88 04091000 RGPRVPT1 EQU ISTRGP+84 04092000 RGPCTECM EQU ISTRGP+82 04093000 RGPCTEIN EQU ISTRGP+80 04094000 RGPCTETR EQU ISTRGP+78 04095000 RGPCTECL EQU ISTRGP+76 04096000 RGPCTELN EQU ISTRGP+74 04097000 RGPRSV03 EQU ISTRGP+73 04098000 RGPRSV02 EQU RGPFLG 04099000 RGPASDLC EQU RGPFLG 04100000 RGPABSC EQU RGPFLG 04101000 RGPASS EQU RGPFLG 04102000 RGPADIL EQU RGPFLG 04103000 RGPPRE EQU ISTRGP 04104000 RRNRINNM EQU ISTRRN+248 04105000 @NM00162 EQU ISTRRN+247 04106000 RRNRDCUA EQU ISTRRN+244 04107000 RRNLASTE EQU ISTRRN+240 04108000 RRNNCSPL EQU ISTRRN+236 04109000 RRNRPLPT EQU ISTRRN+232 04110000 RRNMSIZE EQU ISTRRN+228 04111000 RRNNCPNM EQU ISTRRN+221 04112000 RRNCTPCC EQU ISTRRN+220 04113000 RRNHBUFS EQU ISTRRN+218 04114000 RRNHLENT EQU RRNHPRE+1 04115000 RRNHLENH EQU RRNHPRE 04116000 RRNNMNCP EQU ISTRRN+208 04117000 RRNDELAY EQU ISTRRN+206 04118000 RRNRSV04 EQU ISTRRN+200 04119000 RRNRSV88 EQU RRNNMDPD+7 04120000 RRNPUBI EQU RRNNMDPD+6 04121000 RRNDPLUB EQU RRNNMDPD 04122000 RRNEPADR EQU ISTRRN+190 04123000 RRNCPLUB EQU ISTRRN+184 04124000 RRNFLUX EQU ISTRRN+180 04125000 RRNRSV05 EQU RRNCMFD 04126000 RRNREMPO EQU RRNCMFD 04127000 RRNCDREC EQU RRNCMFD 04128000 RRNCDDSI EQU RRNCMFD 04129000 RRNCDBCK EQU RRNCMFD 04130000 RRNCDDTL EQU RRNCMFD 04131000 RRNCDSTD EQU RRNCMFD 04132000 RRNCDCSP EQU RRNCMFD 04133000 RRNCCCSL EQU RRNCMFC 04134000 RRNCCSIM EQU RRNCMFC 04135000 RRNCCRCM EQU RRNCMFC 04136000 RRNCCRIM EQU RRNCMFC 04137000 RRNCCCRC EQU RRNCMFC 04138000 RRNCCRST EQU RRNCMFC 04139000 RRNCCRDQ EQU RRNCMFC 04140000 RRNCCRCN EQU RRNCMFC 04141000 RRNCBALT EQU RRNCMFB 04142000 RRNCBMOD EQU RRNCMFB 04143000 RRNCBNPL EQU RRNCMFB 04144000 RRNCBRLS EQU RRNCMFB 04145000 RRNCBRDS EQU RRNCMFB 04146000 RRNCBDLR EQU RRNCMFB 04147000 RRNCBDLH EQU RRNCMFB 04148000 RRNCBDLO EQU RRNCMFB 04149000 RRNCADGO EQU RRNCMFA 04150000 RRNCADTD EQU RRNCMFA 04151000 RRNCACDT EQU RRNCMFA 04152000 RRNCAMBH EQU RRNCMFA 04153000 RRNCAATI EQU RRNCMFA 04154000 RRNCAATG EQU RRNCMFA 04155000 RRNCAATD EQU RRNCMFA 04156000 RRNCAALL EQU RRNCMFA 04157000 RRNRSV55 EQU RRNRDF+3 04158000 RRNPTASL EQU RRNRDFB+1 04159000 RRNRSV01 EQU RRNRDFB+1 04160000 RRNVYDON EQU RRNRDFB+1 04161000 RRNRBBUP EQU RRNRDFB+1 04162000 RRNRSV03 EQU RRNRDFB 04163000 RRNRBCT2 EQU RRNRDFB 04164000 RRNRBCT1 EQU RRNRDFB 04165000 RRNRBSEC EQU RRNRDFB 04166000 RRNRBCCT EQU RRNRDFB 04167000 RRNRBCCL EQU RRNRDFB 04168000 RRNRSV02 EQU RRNRDFB 04169000 RRNRBMDL EQU RRNRDFB 04170000 RRNRAPEP EQU RRNRDFA 04171000 RRNRANCP EQU RRNRDFA 04172000 RRNRBREM EQU RRNRDFA 04173000 RRNRAOLT EQU RRNRDFA 04174000 RRNRASYN EQU RRNRDFA 04175000 RRNRADMP EQU RRNRDFA 04176000 RRNRAIPL EQU RRNRDFA 04177000 RRNRASHT EQU RRNRDFA 04178000 RRNCTENT EQU ISTRRN+170 04179000 RRNCTECM EQU ISTRRN+168 04180000 RRNCTEIN EQU ISTRRN+166 04181000 RRNCTETR EQU ISTRRN+164 04182000 RRNCTECL EQU ISTRRN+162 04183000 RRNCTELI EQU ISTRRN+160 04184000 RRNCTEGP EQU ISTRRN+158 04185000 RRNCTBHS EQU ISTRRN+156 04186000 RRNBHSET EQU ISTRRN+152 04187000 RRNTRENT EQU ISTRRN+148 04188000 RRNRLDIP EQU ISTRRN+147 04189000 RRNRNCUA EQU ISTRRN+144 04190000 RRNGRPA EQU ISTRRN+140 04191000 RRNLUBA EQU RRNUCBAD+1 04192000 RRNCHQI EQU RRNUCBAD 04193000 RRNRSV11 EQU RRNFLAG 04194000 RRNDSTCT EQU RRNFLAG 04195000 RRNERPIP EQU RRNFLAG 04196000 RRNLCDIP EQU RRNFLAG 04197000 RRNLCDIE EQU RRNFLAG 04198000 RRNLCSIP EQU RRNFLAG 04199000 RRNRBISA EQU RRNFLAG 04200000 RRNRSV89 EQU RRNFLAG 04201000 RRNPRE EQU ISTRRN 04202000 RLCRVPT2 EQU ISTRLC+80 04203000 RLCRVPT1 EQU ISTRLC+79 04204000 RLCLCCUA EQU ISTRLC+76 04205000 RLCUCBAD EQU RLCADR+1 04206000 RLCRSVDE EQU RLCFLAG 04207000 RLCACNT EQU RLCFLAG 04208000 RLCRSV14 EQU RLCFLAG 04209000 RLCRBISA EQU RLCFLAG 04210000 RLCRSV22 EQU RLCFLAG 04211000 RLCPRE EQU ISTRLC 04212000 RAPRVPT2 EQU ISTRAP+116 04213000 RAPRVPT1 EQU ISTRAP+112 04214000 RAPBFACT EQU ISTRAP+111 04215000 RAPRSV17 EQU RAPFLGC 04216000 RAPRSV16 EQU RAPFLGC 04217000 RAPRSV15 EQU RAPFLGC 04218000 RAPRSV14 EQU RAPFLGC 04219000 RAPRSV13 EQU RAPFLGC 04220000 RAPRSV12 EQU RAPFLGC 04221000 RAPRSV11 EQU RAPFLGC 04222000 RAPRSV10 EQU RAPFLGC 04223000 RAPANVPC EQU RAPFLGB 04224000 RAPASPO EQU RAPFLGB 04225000 RAPAPPO EQU RAPFLGB 04226000 RAPAACQ EQU RAPFLGB 04227000 RAPAPRMT EQU RAPFLGB 04228000 RAPAPASS EQU RAPFLGB 04229000 RAPABLCK EQU RAPFLGB 04230000 RAPALLF EQU RAPFLGB 04231000 RAPRSV06 EQU RAPFLG 04232000 RAPRSV05 EQU RAPFLG 04233000 RAPRSV04 EQU RAPFLG 04234000 RAPRSV03 EQU RAPFLG 04235000 RAPATLGN EQU RAPFLG 04236000 RAPASLGI EQU RAPFLG 04237000 RAPAQUI EQU RAPFLG 04238000 RAPABLGN EQU RAPFLG 04239000 RAPACEQD EQU ISTRAP+106 04240000 RAPTRPRE EQU ISTRAP+104 04241000 RAPACEAP EQU ISTRAP+100 04242000 RAPICEAQ EQU ISTRAP+96 04243000 RAPICEAC EQU ISTRAP+92 04244000 RAPICELG EQU ISTRAP+88 04245000 RAPAPPWD EQU ISTRAP+80 04246000 RAPACDEB EQU ISTRAP+76 04247000 RAPACBA EQU ISTRAP+72 04248000 RAPPRE EQU ISTRAP 04249000 RDTVSRPL EQU ISTRDT+132 04250000 RDTCRSPW EQU ISTRDT+124 04251000 RDTCRSDS EQU ISTRDT+116 04252000 @NM00161 EQU ISTRDT+113 04253000 RRNSTCNT EQU RDTSTCNT 04254000 RRNVYRPH EQU RDTVYRPH 04255000 RDTTPAB EQU ISTRDT+104 04256000 RDTDPAB EQU ISTRDT+100 04257000 RDTEPAB EQU ISTRDT+96 04258000 RDTVPAB EQU ISTRDT+92 04259000 RDTRSV01 EQU RDTFLAGB 04260000 RDTBHSET EQU RDTFLAGB 04261000 RDTCTCFL EQU RDTFLAGB 04262000 RDTCTPGD EQU RDTFLAGB 04263000 RDTPRGDN EQU RDTFLAGB 04264000 RDTOUERP EQU RDTFLAGB 04265000 RDTLGCT EQU ISTRDT+90 04266000 RDTNODID EQU ISTRDT+89 04267000 RDTMAXID EQU ISTRDT+88 04268000 RDTCTSNT EQU ISTRDT+86 04269000 RDTFLAGS EQU ISTRDT+84 04270000 RDTBACK EQU ISTRDT+80 04271000 RDTFORW EQU ISTRDT+76 04272000 RDTLEN EQU RDTPLEN+1 04273000 RDTPRILS EQU RDTPRIOR 04274000 RDTPRISW EQU RDTPRIOR 04275000 RDTPRIRN EQU RDTPRIOR 04276000 RDTPRILC EQU RDTPRIOR 04277000 RDTPRIAP EQU RDTPRIOR 04278000 @NM00160 EQU RDTPRIOR 04279000 RDTPRE EQU ISTRDT 04280000 RCPRSV05 EQU ISTRCPRE+120 04281000 RCPRSV04 EQU ISTRCPRE+116 04282000 RCPRSV03 EQU ISTRCPRE+112 04283000 RCPINTA EQU RCPLGNIN+16 04284000 RCPLGNCT EQU RCPLGNIN+8 04285000 RCPLGNAP EQU RCPLGNIN 04286000 @NM00159 EQU RCPPMODE 04287000 RCPRRECD EQU RCPPMODE 04288000 RCPRBASC EQU RCPPMODE 04289000 RCPBFLIM EQU ISTRCPRE+90 04290000 RCPBHSI2 EQU ISTRCPRE+89 04291000 RCPBHSI1 EQU ISTRCPRE+88 04292000 RCPACETR EQU ISTRCPRE+84 04293000 RCPICEAQ EQU ISTRCPRE+80 04294000 RCPLNAPA EQU ISTRCPRE+76 04295000 RCPICELN EQU ISTRCPRE+72 04296000 RCPPRE EQU ISTRCPRE 04297000 RPRCONID EQU ISTRPRE+63 04298000 RPRCLVPD EQU RPRFLAGC 04299000 RPRINIMM EQU RPRFLAGD 04300000 RPRRSV05 EQU RPRFLAGD 04301000 RPRCONP EQU RPRFLAGD 04302000 RPRACTP EQU RPRFLAGD 04303000 RPRRSON EQU RPRFLAGD 04304000 RPRCONCT EQU RPRFLAGD 04305000 RPRLTASN EQU RPRFLAGD 04306000 RPRPTHCT EQU ISTRPRE+60 04307000 RPRSWDAF EQU ISTRPRE+58 04308000 RPRSTPCT EQU ISTRPRE+56 04309000 RPRRVPT1 EQU ISTRPRE+52 04310000 RPRDEVCH EQU ISTRPRE+44 04311000 RPRNCBA EQU ISTRPRE+40 04312000 RPRNSNEA EQU ISTRPRE+36 04313000 RPRLGONB EQU ISTRPRE+32 04314000 RPRLGONF EQU ISTRPRE+28 04315000 RPRHDTYP EQU ISTRPRE+27 04316000 RPRTIOCT EQU ISTRPRE+26 04317000 RPRPEPCT EQU ISTRPRE+24 04318000 RPRRSV03 EQU RPRCAUSE 04319000 RPRRSYNC EQU RPRCAUSE 04320000 RPRCRCPT EQU RPRCAUSE 04321000 RPRNOSRT EQU RPRCAUSE 04322000 RPRINTST EQU RPRFLAGB 04323000 RPRVYIMM EQU RPRFLAGB 04324000 RPRHLVPD EQU RPRFLAGB 04325000 RPRONLIN EQU RPRFLAGB 04326000 RPRVIODN EQU RPRFLAGB 04327000 RPRAOPN EQU RPRFLAGB 04328000 RPRENTVT EQU RPRFLAGB 04329000 RPRENTVH EQU RPRFLAGB 04330000 RPRLIVE EQU RPRFLAGA 04331000 RPRVRYPD EQU RPRFLAGA 04332000 RPRENTED EQU RPRFLAGA 04333000 RPRENTIO EQU RPRFLAGA 04334000 RPRENTBF EQU RPRFLAGA 04335000 RPRTIED EQU RPRFLAGA 04336000 RPRINV EQU RPRFLAGA 04337000 RPRACT EQU RPRFLAGA 04338000 RPRENTRY EQU ISTRPRE+20 04339000 RPRPELEN EQU ISTRPRE+18 04340000 RPRELEN EQU ISTRPRE+16 04341000 RPRRLOCK EQU ISTRPRE+12 04342000 RPRDAF EQU RPRCOMID+2 04343000 RPRSAF EQU RPRCOMID 04344000 RPRNAME EQU ISTRPRE 04345000 MPLRSVD5 EQU MPLCDS+7 04346000 MPLRSVD4 EQU MPLFLGS1 04347000 MPLASID EQU MPLCDS+4 04348000 MPLADDR EQU MPLCDS 04349000 MPLRSVD2 EQU ISTMPLT+12 04350000 MPLRSVD1 EQU ISTMPLT+10 04351000 MPLECNT EQU ISTMPLT+8 04352000 MPLID EQU ISTMPLT+4 04353000 MPLCHN EQU ISTMPLT 04354000 @NM00158 EQU CBIDFLAG 04355000 CBICLEAN EQU CBIDFLAG 04356000 @NM00157 EQU CBIDATR 04357000 CBINWS EQU CBIDATR 04358000 CBICBID EQU CBIDATR 04359000 CBIDAL48 EQU CBIDATR 04360000 CBINFCHP EQU CBIDATR 04361000 CBIFIXED EQU CBIDATR 04362000 CBIDISP EQU CBIDATR 04363000 CBIFM EQU CBIDATR 04364000 BFPRDSA EQU BFPREGSA+32 04365000 BFPRCSA EQU BFPREGSA+28 04366000 BFPRBSA EQU BFPREGSA+24 04367000 BFPRASA EQU BFPREGSA+20 04368000 BFPR9SA EQU BFPREGSA+16 04369000 BFPR8SA EQU BFPREGSA+12 04370000 BFPR7SA EQU BFPREGSA+8 04371000 BFPR6SA EQU BFPREGSA+4 04372000 BFPPMDSB EQU BFPR5SA 04373000 BFPPMCHN EQU BFPR5SA 04374000 BFPPMCLR EQU BFPR5SA 04375000 BFPUSED EQU ISTBFPFX+14 04376000 BFPBPCB EQU BFPPCBA+1 04377000 @NM00156 EQU BFPPCBA 04378000 BFPCBID EQU BFPPCBA 04379000 BFPTIK EQU BFPPSTID+2 04380000 @NM00155 EQU BFPPSTID 04381000 BFPCBXNO EQU BFPTSKID 04382000 BFPALLOC EQU BFPTSKID 04383000 @NM00154 EQU BPCBRBLK 04384000 BPCBSRBG EQU BPCBRBLK 04385000 @NM00153 EQU BPCBFLG2 04386000 BPCBLOW2 EQU BPCBFLG2 04387000 BPCBLOW1 EQU BPCBFLG2 04388000 @NM00152 EQU BPCBFLG2 04389000 @NM00151 EQU BPCBMUSE 04390000 BPCBCQUE EQU BPCBQREQ+2 04391000 BPCBMQUE EQU BPCBQREQ 04392000 BPCBRPHB EQU ISTBPCB+20 04393000 BPCBRPHA EQU ISTBPCB+16 04394000 BPCBPRIO EQU BPCBFEXT 04395000 @NM00150 EQU ISTBPCB+2 04396000 @NM00149 EQU BPCBFLAG+1 04397000 @NM00148 EQU BPCBFLAG 04398000 BPCBNWS EQU BPCBFLAG 04399000 BPCBCBID EQU BPCBFLAG 04400000 BPCBAL48 EQU BPCBFLAG 04401000 BPCBNFCH EQU BPCBFLAG 04402000 BPCBDISP EQU BPCBFLAG 04403000 BPCBFM EQU BPCBFLAG 04404000 @NM00147 EQU BPDTRACE+6 04405000 BPDAVNO EQU BPDTRACE+4 04406000 BPDMQUE EQU BPDTRACE+2 04407000 BPDMUSE EQU BPDTRACE 04408000 @NM00146 EQU BPDPARM+2 04409000 BPDREQCT EQU BPDHDR+44 04410000 BPDRSV01 EQU BPDFLAG 04411000 BPDGTR EQU BPDFLAG 04412000 BPDFEXT EQU BPDHDR+24 04413000 BPDADRS1 EQU BPDHDR+16 04414000 BPDCHBSZ EQU BPDHDR+6 04415000 BPDCHBNO EQU BPDHDR+4 04416000 BPERSV03 EQU ISTBPENT+12 04417000 BPERSV02 EQU BPEFLAGS+1 04418000 BPEUSRF EQU BPEFLAGS+1 04419000 BPERSV01 EQU BPEFLAGS 04420000 BPENWS EQU BPEFLAGS 04421000 BPECBID EQU BPEFLAGS 04422000 BPEAL48 EQU BPEFLAGS 04423000 BPENFCHP EQU BPEFLAGS 04424000 BPEFIXED EQU BPEFLAGS 04425000 BPEDISP EQU BPEFLAGS 04426000 BPEFM EQU BPEFLAGS 04427000 MQLBLKP EQU ISTMQL+60 04428000 MQLN05 EQU ISTMQL+48 04429000 MQLN04 EQU ISTMQL+36 04430000 MQLN03 EQU ISTMQL+24 04431000 MQLN02 EQU ISTMQL+12 04432000 MQLDEBP EQU MQLDEBAD+1 04433000 MQLTYPE EQU MQLDEBAD 04434000 @NM00145 EQU MQLDEBAD 04435000 MQLLCPIN EQU MQLDEBAD 04436000 MQLBRNIN EQU MQLDEBAD 04437000 MQLCHAIN EQU MQLN01+4 04438000 MQLECB EQU MQLWEPTR 04439000 NCSRUITS EQU NCSUSSRU+2 04440000 NCSRULEN EQU NCSUSSRU 04441000 NCSAPPAB EQU NCSAPP+608 04442000 NCSAPDAT EQU NCSAPBUE+8 04443000 NCSAPRU EQU NCSAPBUE+3 04444000 NCSRSV04 EQU NCSAPBUE 04445000 NCSAPEND EQU NCSAPP+84 04446000 NCSAPTXT EQU NCSAPP+76 04447000 NCSAPECB EQU NCSAPP+72 04448000 NCSAPSA EQU NCSAPP 04449000 NCSPLPDB EQU NCSPLSID+5 04450000 NCSPLNID EQU NCSPLPHD 04451000 NCSPLPO EQU NCSPLSTA 04452000 NCSRSVD4 EQU NCSPLSTA 04453000 NCSRSVD2 EQU NCSCRMOD 04454000 NCSPTMOD EQU NCSCRMOD 04455000 NCSAIMOD EQU NCSCRMOD 04456000 NCSRSVD1 EQU NCSCHKPT+1 04457000 NCSPTUSE EQU NCSCHKPT+1 04458000 NCSRNME EQU NCSCHKPT+1 04459000 NCSCUA EQU NCSCHKPT+1 04460000 NCSANSMD EQU NCSCHKPT+1 04461000 NCSLGMOD EQU NCSCHKPT 04462000 NCSLGAPL EQU NCSCHKPT 04463000 NCSDTRLM EQU NCSCHKPT 04464000 NCSESLM EQU NCSCHKPT 04465000 NCSNRPL EQU NCSCHKPT 04466000 NCSPOLD EQU NCSCHKPT 04467000 NCSPACTV EQU NCSCHKPT 04468000 NCSACTV EQU NCSCHKPT 04469000 NCSCRDTE EQU ISTNCSPL+264 04470000 NCSPLRTY EQU ISTNCSPL+263 04471000 NCSPLRH EQU ISTNCSPL+260 04472000 NCSUFMCB EQU ISTNCSPL+256 04473000 NCSMGLPT EQU ISTNCSPL+252 04474000 NCSCPWPT EQU ISTNCSPL+248 04475000 NCSSENS2 EQU NCSSENSE+2 04476000 NCSSNS2 EQU NCSSENSE+1 04477000 NCSSNS1 EQU NCSSENSE 04478000 NCSPLNSN EQU ISTNCSPL+240 04479000 NCSPLMID EQU ISTNCSPL+232 04480000 NCSPLPID EQU ISTNCSPL+231 04481000 NCSPLGID EQU ISTNCSPL+230 04482000 NCSPLSQN EQU ISTNCSPL+228 04483000 NCSRNAME EQU ISTNCSPL+220 04484000 NCSPLRUI EQU ISTNCSPL+212 04485000 NCSPLRUO EQU ISTNCSPL+208 04486000 NCSPLRRP EQU ISTNCSPL+204 04487000 NCSPLWEL EQU ISTNCSPL+200 04488000 NCSPLSPL EQU ISTNCSPL+196 04489000 NCSPLP3 EQU ISTNCSPL+192 04490000 NCSPLP2 EQU ISTNCSPL+188 04491000 NCSPLP1 EQU ISTNCSPL+184 04492000 NCSPLOLN EQU ISTNCSPL+182 04493000 @NM00144 EQU NCSPLFL5 04494000 NCSFORCE EQU NCSPLFL5 04495000 NCSSDLK EQU NCSPLFL5 04496000 NCSSCPPS EQU NCSPLFL5 04497000 NCSDLRSN EQU ISTNCSPL+180 04498000 NCSPL2AP EQU NCSPLFL4 04499000 NCSDSPN EQU NCSPLFL4 04500000 NCSDSPI EQU NCSPLFL4 04501000 NCSDSPA EQU NCSPLFL4 04502000 NCSDSPE EQU NCSPLFL4 04503000 NCSPLVID EQU NCSPLFL4 04504000 NCSPLRSO EQU NCSPLFL4 04505000 NCSDLNID EQU NCSPLFL4 04506000 NCSEND EQU NCSPLFL3 04507000 NCSFINAL EQU NCSPLFL3 04508000 NCSANS EQU NCSPLFL3 04509000 NCSPID EQU NCSPLFL3 04510000 NCSGID EQU NCSPLFL3 04511000 NCSPLANS EQU NCSPLFL3 04512000 NCSEPP EQU NCSPLFL3 04513000 NCSPLMOM EQU NCSPLFL3 04514000 NCSPLVIT EQU NCSPLFL2 04515000 NCSPLVIS EQU NCSPLFL2 04516000 NCSREMPO EQU NCSPLFL2 04517000 NCSPLDS EQU NCSPLFL2 04518000 NCSOUFMC EQU NCSPLFL2 04519000 NCSPLRIO EQU NCSPLFL2 04520000 NCSPLRSF EQU NCSPLFL2 04521000 NCSPLVDP EQU NCSPLFL2 04522000 NCSPLPOS EQU NCSPLFL1 04523000 NCSPL2CN EQU NCSPLFL1 04524000 NCSPLAPU EQU NCSPLFL1 04525000 NCSPLNON EQU NCSPLFL1 04526000 NCSPLREQ EQU NCSPLFL1 04527000 NCSPLEBN EQU NCSPLFL1 04528000 NCSPLSOM EQU NCSPLFL1 04529000 NCSPL2IN EQU NCSPLFL1 04530000 NCSPLRCR EQU ISTNCSPL+172 04531000 NCSPLECB EQU ISTNCSPL+164 04532000 NCSPLRPH EQU ISTNCSPL+160 04533000 NCSPLCVT EQU ISTNCSPL+156 04534000 NCSPLWKA EQU ISTNCSPL+152 04535000 NCSPLDAF EQU NCSPLCID+2 04536000 NCSPLSAF EQU NCSPLCID 04537000 NCSPLRCD EQU NCSPLRAD+1 04538000 NCSLSCMD EQU NCSPLRAD 04539000 NCSPLWRF EQU ISTNCSPL+72 04540000 NCSPLWRE EQU ISTNCSPL+68 04541000 NCSSTCMD EQU NCSCRFLG 04542000 NCSUSRNF EQU NCSCRFLG 04543000 NCSOPRQU EQU NCSCRFLG 04544000 NCSCRDSE EQU NCSCRFLG 04545000 NCSFMERP EQU NCSCRFLG 04546000 NCSFMCLD EQU NCSCRFLG 04547000 NCSPLCLD EQU NCSCRFLG 04548000 NCSPLWRM EQU NCSCRFLG 04549000 NCSPLUAD EQU ISTNCSPL+64 04550000 NCSMSGSP EQU ISTNCSPL+63 04551000 NCSNCPEP EQU ISTNCSPL+62 04552000 NCSCMDB EQU NCSPLCMD+1 04553000 @NM00143 EQU NCSCMDA 04554000 NCSPLUFM EQU NCSCMDA 04555000 NCSPLFLO EQU NCSCMDA 04556000 NCSPLSYN EQU NCSCMDA 04557000 NCSPLCTL EQU NCSCMDA 04558000 NCSPLSYS EQU NCSCMDA 04559000 NCSPLLPT EQU ISTNCSPL+56 04560000 NCSPLRPT EQU ISTNCSPL+52 04561000 NCSCRPID EQU ISTNCSPL+51 04562000 NCSCRCMD EQU ISTNCSPL+50 04563000 NCSDLID EQU ISTNCSPL+44 04564000 NCSPLLID EQU ISTNCSPL+36 04565000 NCSPLRID EQU ISTNCSPL+28 04566000 NCSRRNPT EQU ISTNCSPL+24 04567000 NCSIORC EQU ISTNCSPL+23 04568000 NCSPRMRC EQU ISTNCSPL+22 04569000 NCSOVFMC EQU NCSPLVF1 04570000 NCSRSV02 EQU NCSPLVFL 04571000 NCSDACLK EQU NCSPLVFL 04572000 NCSABCON EQU NCSPLVFL 04573000 NCSDCONT EQU NCSPLVFL 04574000 NCSVSTAT EQU NCSPLVFL 04575000 NCSVDEL EQU NCSPLVFL 04576000 NCSVNCSA EQU NCSPLVFL 04577000 NCSVBF16 EQU NCSPLVBF+1 04578000 NCSVBF15 EQU NCSPLVBF+1 04579000 NCSVBF14 EQU NCSPLVBF+1 04580000 NCSVBF13 EQU NCSPLVBF+1 04581000 NCSVBF12 EQU NCSPLVBF+1 04582000 NCSVBF11 EQU NCSPLVBF+1 04583000 NCSVBF10 EQU NCSPLVBF+1 04584000 NCSVBF09 EQU NCSPLVBF+1 04585000 NCSVBF08 EQU NCSPLVBF 04586000 NCSVBF07 EQU NCSPLVBF 04587000 NCSVBF06 EQU NCSPLVBF 04588000 NCSVBF05 EQU NCSPLVBF 04589000 NCSVBF04 EQU NCSPLVBF 04590000 NCSVBF03 EQU NCSPLVBF 04591000 NCSVBF02 EQU NCSPLVBF 04592000 NCSVBF01 EQU NCSPLVBF 04593000 NCSPLVCD EQU ISTNCSPL+17 04594000 @NM00142 EQU ISTNCSPL+16 04595000 NCSCRWKA EQU NCSPFX+12 04596000 @NM00141 EQU NCSPFX 04597000 PFXBCK EQU ISTPFX+12 04598000 PFXFWD EQU ISTPFX+8 04599000 PFXLNG EQU ISTPFX+5 04600000 PFXPRTY EQU ISTPFX+4 04601000 PFXCBID EQU PFXID 04602000 POHID EQU ISTPOHD+2 04603000 POHGEN EQU POHSTAT 04604000 POHRREQ EQU POHSTAT 04605000 POHRSVD2 EQU POHSTAT 04606000 POHCNTRL EQU POHSTAT 04607000 POHLBL EQU POHSTAT 04608000 POHDATA EQU POHSTAT 04609000 POHEND EQU POHSTAT 04610000 POHRSVD1 EQU ISTPOHD 04611000 @NM00139 EQU CCNFLGA 04612000 CCNSTART EQU CCNFLGA 04613000 @NM00138 EQU CCNFLGA 04614000 CCNCB EQU ISTCCNCB 04615000 LUNZC001 EQU LUNZOS+8 04616000 LUNLOCK EQU LUNZOS 04617000 LUNCB EQU ISTLUNCB 04618000 CRACHAIN EQU ISTCRA+928 04619000 CRARSV02 EQU ISTCRA+924 04620000 CRARSV01 EQU ISTCRA+920 04621000 CRABFTBA EQU CRABUFA 04622000 CRAMASK EQU CRASVC+64 04623000 CRAHSIZ EQU CRASVC+60 04624000 CRAASCRR EQU CRASVC 04625000 CRAPROCR EQU ISTCRA+312 04626000 CRAPSS EQU ISTCRA+160 04627000 CRARPH EQU ISTCRA+52 04628000 CRALAPTR EQU CRABASIC+48 04629000 CRAL9PTR EQU CRABASIC+44 04630000 CRAL8PTR EQU CRABASIC+40 04631000 CRAL7PTR EQU CRABASIC+36 04632000 CRAL6PTR EQU CRABASIC+32 04633000 CRAL5PTR EQU CRABASIC+28 04634000 CRAL4PTR EQU CRABASIC+24 04635000 CRAL3PTR EQU CRABASIC+20 04636000 CRAL2PTR EQU CRABASIC+16 04637000 CRAL1PTR EQU CRABASIC+12 04638000 CRALEV01 EQU CRALKACT+3 04639000 CRALEV02 EQU CRALKACT+3 04640000 CRALEV03 EQU CRALKACT+3 04641000 CRALEV04 EQU CRALKACT+3 04642000 CRALEV05 EQU CRALKACT+3 04643000 CRALEV06 EQU CRALKACT+3 04644000 CRALEV07 EQU CRALKACT+3 04645000 CRALEV08 EQU CRALKACT+3 04646000 CRALEV09 EQU CRALKACT+2 04647000 CRALEV10 EQU CRALKACT+2 04648000 CRALEV11 EQU CRALKACT+2 04649000 CRALEV12 EQU CRALKACT+2 04650000 CRALEV13 EQU CRALKACT+2 04651000 CRALEV14 EQU CRALKACT+2 04652000 CRALEV15 EQU CRALKACT+2 04653000 CRALEV16 EQU CRALKACT+2 04654000 CRALEV17 EQU CRALKACT+1 04655000 CRALEV18 EQU CRALKACT+1 04656000 CRALEV19 EQU CRALKACT+1 04657000 CRALEV20 EQU CRALKACT+1 04658000 CRALEV21 EQU CRALKACT+1 04659000 CRALEV22 EQU CRALKACT+1 04660000 CRALEV23 EQU CRALKACT+1 04661000 CRALEV24 EQU CRALKACT+1 04662000 CRALEV25 EQU CRALKACT 04663000 CRALEV26 EQU CRALKACT 04664000 CRALEV27 EQU CRALKACT 04665000 CRALEV28 EQU CRALKACT 04666000 CRALEV29 EQU CRALKACT 04667000 CRALEV30 EQU CRALKACT 04668000 CRALEV31 EQU CRALKACT 04669000 CRALEV32 EQU CRALKACT 04670000 CRAFRR EQU CRAHDR+4 04671000 CRACRR EQU CRAHDR 04672000 @NM00137 EQU ISTAPCRR+137 04673000 @NM00136 EQU APC57FLG 04674000 APCNREL EQU APC57FLG 04675000 APCRECRA EQU APC57FLG 04676000 @NM00135 EQU APC54FLG 04677000 APCRLST EQU APC54FLG 04678000 APCPR153 EQU APC53FLG 04679000 @NM00134 EQU APC52FLG 04680000 APCWKF EQU APC52FLG 04681000 APCNWF EQU APC52FLG 04682000 APCRDQ EQU APC52FLG 04683000 APCQENQ EQU APC52FLG 04684000 APCSMSR EQU APC52FLG 04685000 APCCKRQ EQU APC52FLG 04686000 @NM00133 EQU APC31FLG 04687000 APCSORT EQU APC31FLG 04688000 APCRESCH EQU APC31FLG 04689000 APCTPXIT EQU APC31FLG 04690000 APCSWTWD EQU ISTAPCRR+128 04691000 APCSAV2 EQU ISTAPCRR+124 04692000 APCSAV1 EQU ISTAPCRR+120 04693000 APCRETCD EQU APCCOMF+2 04694000 @NM00132 EQU APCCOMF1+1 04695000 APCZLBER EQU APCCOMF1 04696000 APCEXIT EQU APCCOMF1 04697000 APCRELR EQU APCCOMF1 04698000 APCIRB2 EQU APCCOMF1 04699000 APCIRB1 EQU APCCOMF1 04700000 APCSMCR EQU APCCOMF1 04701000 APCUETSK EQU APCCOMF1 04702000 APCSSTSK EQU APCCOMF1 04703000 APCESTAL EQU APCSAVE 04704000 APCFRRPM EQU ISTAPCRR+40 04705000 APCQWFO EQU ISTAPCRR+36 04706000 APCPABSV EQU ISTAPCRR+32 04707000 APCRTRN EQU ISTAPCRR+28 04708000 APCTCBA EQU ISTAPCRR+24 04709000 APCPSTA EQU ISTAPCRR+20 04710000 @NM00131 EQU APCRFLG+1 04711000 APC31R EQU APCRFLG 04712000 APC58R EQU APCRFLG 04713000 APC57R EQU APCRFLG 04714000 APC56R EQU APCRFLG 04715000 APC54R EQU APCRFLG 04716000 APC53R EQU APCRFLG 04717000 APC52R EQU APCRFLG 04718000 APC51R EQU APCRFLG 04719000 @NM00130 EQU APCATFLG+1 04720000 APC31E EQU APCATFLG 04721000 APC58E EQU APCATFLG 04722000 APC57E EQU APCATFLG 04723000 APC56E EQU APCATFLG 04724000 APC54E EQU APCATFLG 04725000 APC53E EQU APCATFLG 04726000 APC52E EQU APCATFLG 04727000 APC51E EQU APCATFLG 04728000 APCHDRSV EQU ISTAPCRR 04729000 ASCPSREG EQU ISTASCRR+44 04730000 ASCUSR01 EQU ASCUSRGS+12 04731000 ASCUSR00 EQU ASCUSRGS+8 04732000 ASCUSR15 EQU ASCUSRGS+4 04733000 ASCUSR14 EQU ASCUSRGS 04734000 ASCETRYA EQU ISTASCRR+24 04735000 ASCKEY EQU ISTASCRR+23 04736000 ASCAUDIT EQU ASCFLG3 04737000 ASCFBDUD EQU ASCFLG3 04738000 ASCLLKF EQU ASCFLG3 04739000 ASCKEYF EQU ASCFLG3 04740000 ASCFBDAL EQU ASCFLG3 04741000 ASCFSRGT EQU ASCFLG3 04742000 ASCICR EQU ASCFLG2 04743000 ASCFSRIC EQU ASCFLG2 04744000 ASCFBDIC EQU ASCFLG2 04745000 ASCFBAIC EQU ASCFLG2 04746000 ASCPASTR EQU ASCFLG1 04747000 ASCFSR EQU ASCFLG1 04748000 ASCFBD EQU ASCFLG1 04749000 ASCFBA EQU ASCFLG1 04750000 ASCPFCRR EQU ISTASCRR 04751000 ZCRRU EQU ZCRRHRU+3 04752000 ZCRRH EQU ZCRRHRU 04753000 ZCRWORDA EQU ISTZCRR+477 04754000 ZCRCMNRC EQU ISTZCRR+476 04755000 ZCRRSV97 EQU ZCRENTER+18 04756000 ZCREIC2B EQU ZCRENTER+18 04757000 ZCREAC2B EQU ZCRENTER+18 04758000 ZCRELCAB EQU ZCRENTER+18 04759000 ZCREDCMF EQU ZCRENTER+18 04760000 ZCREBCIF EQU ZCRENTER+18 04761000 ZCREICSG EQU ZCRENTER+18 04762000 ZCREDCK0 EQU ZCRENTER+18 04763000 ZCRECFY0 EQU ZCRENTER+17 04764000 ZCREKCCB EQU ZCRENTER+17 04765000 ZCREDCNB EQU ZCRENTER+17 04766000 ZCREICOE EQU ZCRENTER+17 04767000 ZCREBCNB EQU ZCRENTER+17 04768000 ZCREBC0L EQU ZCRENTER+17 04769000 ZCREBCAL EQU ZCRENTER+17 04770000 ZCREDCQR EQU ZCRENTER+17 04771000 ZCREDCPR EQU ZCRENTER+16 04772000 ZCREBCSB EQU ZCRENTER+16 04773000 ZCREAC1R EQU ZCRENTER+16 04774000 ZCRECCCI EQU ZCRENTER+16 04775000 ZCRECCAI EQU ZCRENTER+16 04776000 ZCRECCBI EQU ZCRENTER+16 04777000 ZCREBCAR EQU ZCRENTER+16 04778000 ZCREBCDR EQU ZCRENTER+16 04779000 ZCREBCBR EQU ZCRENTER+15 04780000 ZCREDCXR EQU ZCRENTER+15 04781000 ZCREDCWB EQU ZCRENTER+15 04782000 ZCREDCWR EQU ZCRENTER+15 04783000 ZCREKCCN EQU ZCRENTER+15 04784000 ZCREKCBN EQU ZCRENTER+15 04785000 ZCREKCBB EQU ZCRENTER+15 04786000 ZCREJC0B EQU ZCRENTER+15 04787000 ZCREJCDB EQU ZCRENTER+14 04788000 ZCREJCCB EQU ZCRENTER+14 04789000 ZCREJCBB EQU ZCRENTER+14 04790000 ZCREJCAB EQU ZCRENTER+14 04791000 ZCREIC1B EQU ZCRENTER+14 04792000 ZCREIC0B EQU ZCRENTER+14 04793000 ZCREICX0 EQU ZCRENTER+14 04794000 ZCREICWB EQU ZCRENTER+14 04795000 ZCREICVB EQU ZCRENTER+13 04796000 ZCREICUB EQU ZCRENTER+13 04797000 ZCREICTB EQU ZCRENTER+13 04798000 ZCREICSC EQU ZCRENTER+13 04799000 ZCREICSB EQU ZCRENTER+13 04800000 ZCREICRB EQU ZCRENTER+13 04801000 ZCREICQB EQU ZCRENTER+13 04802000 ZCREICQA EQU ZCRENTER+13 04803000 ZCREICOB EQU ZCRENTER+12 04804000 ZCREICOA EQU ZCRENTER+12 04805000 ZCREICNB EQU ZCRENTER+12 04806000 ZCREICNA EQU ZCRENTER+12 04807000 ZCREICMB EQU ZCRENTER+12 04808000 ZCREICLB EQU ZCRENTER+12 04809000 ZCREICKG EQU ZCRENTER+12 04810000 ZCREICKE EQU ZCRENTER+12 04811000 ZCREICKB EQU ZCRENTER+11 04812000 ZCREICJB EQU ZCRENTER+11 04813000 ZCREICID EQU ZCRENTER+11 04814000 ZCREICIB EQU ZCRENTER+11 04815000 ZCREICHB EQU ZCRENTER+11 04816000 ZCREICGB EQU ZCRENTER+11 04817000 ZCREICEB EQU ZCRENTER+11 04818000 ZCREICDB EQU ZCRENTER+11 04819000 ZCREICCI EQU ZCRENTER+10 04820000 ZCREICCB EQU ZCRENTER+10 04821000 ZCREICBI EQU ZCRENTER+10 04822000 ZCREICBB EQU ZCRENTER+10 04823000 ZCREICAB EQU ZCRENTER+10 04824000 ZCREICAA EQU ZCRENTER+10 04825000 ZCREHCAN EQU ZCRENTER+10 04826000 ZCREGC0B EQU ZCRENTER+10 04827000 ZCREGC0A EQU ZCRENTER+9 04828000 ZCREGCLA EQU ZCRENTER+9 04829000 ZCREGCEB EQU ZCRENTER+9 04830000 ZCREGCDB EQU ZCRENTER+9 04831000 @NM00129 EQU ZCRENTER+9 04832000 ZCREGCBB EQU ZCRENTER+9 04833000 ZCREGCAB EQU ZCRENTER+9 04834000 ZCREFCEB EQU ZCRENTER+9 04835000 ZCREFCEA EQU ZCRENTER+8 04836000 ZCREECTA EQU ZCRENTER+8 04837000 ZCREECEA EQU ZCRENTER+8 04838000 ZCREECDA EQU ZCRENTER+8 04839000 ZCREECCB EQU ZCRENTER+8 04840000 ZCREECCA EQU ZCRENTER+8 04841000 ZCREECBB EQU ZCRENTER+8 04842000 ZCREECBA EQU ZCRENTER+8 04843000 ZCREDCMB EQU ZCRENTER+7 04844000 ZCREDCL0 EQU ZCRENTER+7 04845000 ZCREDCKB EQU ZCRENTER+7 04846000 ZCREDCKA EQU ZCRENTER+7 04847000 ZCREDCJ0 EQU ZCRENTER+7 04848000 ZCREDCI0 EQU ZCRENTER+7 04849000 ZCREDCH0 EQU ZCRENTER+7 04850000 ZCREDCF0 EQU ZCRENTER+7 04851000 ZCREDCE0 EQU ZCRENTER+6 04852000 ZCREDCD0 EQU ZCRENTER+6 04853000 ZCREDCC0 EQU ZCRENTER+6 04854000 ZCREDCB0 EQU ZCRENTER+6 04855000 ZCREDCA0 EQU ZCRENTER+6 04856000 ZCRECC2B EQU ZCRENTER+6 04857000 ZCRECC1B EQU ZCRENTER+6 04858000 ZCRECC1A EQU ZCRENTER+6 04859000 ZCRECC0B EQU ZCRENTER+5 04860000 ZCRECC0A EQU ZCRENTER+5 04861000 ZCREBC0B EQU ZCRENTER+5 04862000 ZCREBC0A EQU ZCRENTER+5 04863000 ZCREBCZ0 EQU ZCRENTER+5 04864000 ZCREBCY0 EQU ZCRENTER+5 04865000 ZCREBCX0 EQU ZCRENTER+5 04866000 ZCREBCXA EQU ZCRENTER+5 04867000 ZCREBCSC EQU ZCRENTER+4 04868000 ZCREBCRB EQU ZCRENTER+4 04869000 ZCREBCRA EQU ZCRENTER+4 04870000 ZCREBCQB EQU ZCRENTER+4 04871000 ZCREBCPB EQU ZCRENTER+4 04872000 ZCREBCOB EQU ZCRENTER+4 04873000 ZCREBCNE EQU ZCRENTER+4 04874000 ZCREBCND EQU ZCRENTER+4 04875000 ZCREBCMB EQU ZCRENTER+3 04876000 ZCREBCLB EQU ZCRENTER+3 04877000 ZCREBCLA EQU ZCRENTER+3 04878000 ZCREBCKB EQU ZCRENTER+3 04879000 ZCREBCKA EQU ZCRENTER+3 04880000 ZCREBCJB EQU ZCRENTER+3 04881000 ZCREBCJA EQU ZCRENTER+3 04882000 ZCREBCID EQU ZCRENTER+3 04883000 ZCREBCIB EQU ZCRENTER+2 04884000 ZCREBCIA EQU ZCRENTER+2 04885000 ZCREBCHB EQU ZCRENTER+2 04886000 ZCREBCHA EQU ZCRENTER+2 04887000 ZCREBCGB EQU ZCRENTER+2 04888000 ZCREBCGA EQU ZCRENTER+2 04889000 ZCREBCFB EQU ZCRENTER+2 04890000 ZCREBCFA EQU ZCRENTER+2 04891000 ZCREBCEB EQU ZCRENTER+1 04892000 ZCREBCDI EQU ZCRENTER+1 04893000 ZCREBCCB EQU ZCRENTER+1 04894000 ZCREBCBI EQU ZCRENTER+1 04895000 ZCREBCBB EQU ZCRENTER+1 04896000 ZCREBCBA EQU ZCRENTER+1 04897000 ZCREBCAM EQU ZCRENTER+1 04898000 ZCREBCAI EQU ZCRENTER+1 04899000 ZCREBCAG EQU ZCRENTER 04900000 ZCREBCAE EQU ZCRENTER 04901000 ZCREBCAB EQU ZCRENTER 04902000 ZCREBCAA EQU ZCRENTER 04903000 ZCREAC1B EQU ZCRENTER 04904000 ZCREAC0B EQU ZCRENTER 04905000 ZCREAC0A EQU ZCRENTER 04906000 ZCREAC1A EQU ZCRENTER 04907000 ZCRTNAME EQU ZCRAUDIT+1 04908000 ZCRTID EQU ZCRAUDIT 04909000 ZCRREMIC EQU ISTZCRR+436 04910000 ZCRSAVEZ EQU ISTZCRR+196 04911000 ZCRDAFSV EQU ZCRCIDSV+2 04912000 ZCRSAFSV EQU ZCRCIDSV 04913000 ZCRR13SV EQU ISTZCRR+188 04914000 ZCRR2SV EQU ISTZCRR+184 04915000 ZCROPCDE EQU ISTZCRR+183 04916000 ZCRPRMTC EQU ISTZCRR+182 04917000 ZCRRCDSV EQU ISTZCRR+181 04918000 ZCRAWQSW EQU ISTZCRR+180 04919000 ZCRTOPQ EQU ISTZCRR+180 04920000 ZCRLSTFB EQU ISTZCRR+180 04921000 ZCRXSCHD EQU ISTZCRR+180 04922000 ZCRNXTEL EQU ISTZCRR+180 04923000 ZCRSCANQ EQU ISTZCRR+180 04924000 ZCRMOREL EQU ISTZCRR+180 04925000 ZCRFBPRC EQU ISTZCRR+180 04926000 ZCRFSBSV EQU ISTZCRR+176 04927000 ZCRSVWK5 EQU ZCRWKARA+16 04928000 ZCRSVWK4 EQU ZCRWKARA+12 04929000 ZCRSVWK3 EQU ZCRWKARA+8 04930000 ZCRSVWK2 EQU ZCRWKARA+4 04931000 ZCRSVWK1 EQU ZCRWKARA 04932000 ZCRSVF25 EQU ZCRSVRTN+96 04933000 ZCRSVF24 EQU ZCRSVRTN+92 04934000 ZCRSVF23 EQU ZCRSVRTN+88 04935000 ZCRSVF22 EQU ZCRSVRTN+84 04936000 ZCRSVF21 EQU ZCRSVRTN+80 04937000 ZCRSVF20 EQU ZCRSVRTN+76 04938000 ZCRSVF19 EQU ZCRSVRTN+72 04939000 ZCRSVF18 EQU ZCRSVRTN+68 04940000 ZCRSVF17 EQU ZCRSVRTN+64 04941000 ZCRSVF16 EQU ZCRSVRTN+60 04942000 ZCRSVF15 EQU ZCRSVRTN+56 04943000 ZCRSVF14 EQU ZCRSVRTN+52 04944000 ZCRSVF13 EQU ZCRSVRTN+48 04945000 ZCRSVF12 EQU ZCRSVRTN+44 04946000 ZCRSVF11 EQU ZCRSVRTN+40 04947000 ZCRSVF10 EQU ZCRSVRTN+36 04948000 ZCRSVF9 EQU ZCRSVRTN+32 04949000 ZCRSVF8 EQU ZCRSVRTN+28 04950000 ZCRSVF7 EQU ZCRSVRTN+24 04951000 ZCRSVF6 EQU ZCRSVRTN+20 04952000 ZCRSVF5 EQU ZCRSVRTN+16 04953000 ZCRSVF4 EQU ZCRSVRTN+12 04954000 ZCRSVF3 EQU ZCRSVRTN+8 04955000 ZCRSVF2 EQU ZCRSVRTN+4 04956000 ZCRSVF1 EQU ZCRSVRTN 04957000 ZCRPVZB EQU ISTZCRR+52 04958000 ZCRZLB EQU ISTZCRR+48 04959000 ZCRBFPTR EQU ISTZCRR+44 04960000 ZCRCCWA EQU ISTZCRR+40 04961000 ZCRPSW EQU ZCRPARMS+15 04962000 ZCRPCHAR EQU ZCRPARMS+14 04963000 ZCRPRES2 EQU ZCRPCOD2 04964000 ZCRPMFGF EQU ZCRPCOD2 04965000 ZCRPFHDR EQU ZCRPCOD2 04966000 ZCRPPG2 EQU ZCRPCOD2 04967000 ZCRPRES EQU ZCRPCOD1 04968000 ZCRPCFTX EQU ZCRPCOD1 04969000 ZCRPBUF EQU ZCRPCOD1 04970000 ZCRPLSCB EQU ZCRPCOD1 04971000 ZCRPLSBQ EQU ZCRPLSBF 04972000 ZCRPFSB EQU ZCRPCOD1 04973000 ZCRPLNG EQU ZCRPCOD1 04974000 ZCRPPG EQU ZCRPCOD1 04975000 ZCRDTODA EQU ZCRDFRDA 04976000 ZCRMLNG EQU ZCRPARMS+8 04977000 ZCRTBPTR EQU ZCRPARMS+4 04978000 ZCRCBPTR EQU ZCRFBPTR 04979000 ZCRCRLCP EQU ISTZCRR+20 04980000 @NM00128 EQU ZCRSCPSW 04981000 ZCRSKIPT EQU ZCRSCPSW 04982000 ZCRFSBWE EQU ZCRSCPSW 04983000 ZCRPRCMP EQU ZCRSCPSW 04984000 ZCRLREQ EQU ZCRSCPSW 04985000 ZCRRJLCP EQU ZCRSCPSW 04986000 ZCRTPINV EQU ZCRSCPSW 04987000 ZCRTPEX EQU ZCRSCPSW 04988000 @NM00127 EQU ZCRIBPR 04989000 ZCR3270R EQU ZCRIBPR 04990000 ZCR3270 EQU ZCRIBPR 04991000 ZCRLCPFD EQU ZCRIBPR 04992000 ZCRLCPFR EQU ZCRIBPR 04993000 ZCRRELK EQU ZCRIBPR 04994000 ZCRERR EQU ZCRIBPR 04995000 ZCRNOBUF EQU ZCRIBPR 04996000 @NM00126 EQU ZCRPFLGS 04997000 ZCRQAHED EQU ZCRPFLGS 04998000 ZCRF1RES EQU ZCRGENSW 04999000 ZCRBRIS EQU ZCRGENSW 05000000 ZCRCLRBD EQU ZCRGENSW 05001000 ZCREXRES EQU ZCRGENSW 05002000 ZCRLCSYN EQU ZCRGENSW 05003000 ZCRRT06 EQU ZCRGENSW 05004000 ZCRTSW2 EQU ZCRGENSW 05005000 ZCRTSW1 EQU ZCRGENSW 05006000 ZCRINLCP EQU ZCRFLGS3 05007000 ZCRWRPTR EQU ZCRFLGS3 05008000 ZCRNOFRE EQU ZCRFLGS3 05009000 ZCREDRIV EQU ZCRFLGS3 05010000 ZCRDISC EQU ZCRFLGS3 05011000 ZCRTPDIS EQU ZCRFLGS3 05012000 ZCRTPCON EQU ZCRFLGS3 05013000 ZCRTIC EQU ZCRFLGS3 05014000 ZCRCNLXL EQU ZCRRESET 05015000 ZCRENDAN EQU ZCRSWFLD 05016000 ZCRENDXL EQU ZCRSWFLD 05017000 ZCRENDX EQU ZCRSWFLD 05018000 ZCROB1 EQU ZCRNDLCP 05019000 ZCRENDPR EQU ZCRSWFLD 05020000 ZCREXTYP EQU ZCRSWFLD 05021000 ZCRSLCP EQU ZCRENDSH 05022000 ZCRIF0E3 EQU ZCRFLGS2 05023000 ZCRIF0E2 EQU ZCRFLGS2 05024000 ZCRIF0E1 EQU ZCRFLGS2 05025000 ZCROB EQU ZCRFLGS2 05026000 ZCRFMSED EQU ZCRFLGS2 05027000 ZCRSHEDI EQU ZCRFLGS2 05028000 ZCRLOCAL EQU ZCRFLGS2 05029000 ZCRFEXIT EQU ZCRFLGS1 05030000 ZCRUNSOL EQU ZCRFLGS1 05031000 ZCRENDLP EQU ZCRFLGS1 05032000 ZCRNRMEX EQU ZCRFLGS1 05033000 ZCRWAIT EQU ZCRFLGS1 05034000 ZCRDEQSW EQU ZCRFLGS1 05035000 ZCRQUESW EQU ZCRFLGS1 05036000 ZCREXSW EQU ZCRFLGS1 05037000 ZCRFRRA EQU ISTZCRR+8 05038000 ZCRCHAIN EQU ISTZCRR+4 05039000 ZCRFLAG EQU ZCRCRR+3 05040000 ZCRLEN EQU ZCRCRR+1 05041000 ZCRID EQU ZCRCRR 05042000 CCFRSVD1 EQU CFCCRT 05043000 CCFCR2 EQU CFCCRT 05044000 CCFCRP EQU CFCCRT 05045000 CCFCR1 EQU CFCCRT 05046000 CCFCS2 EQU CFCCRT 05047000 CCFCS1 EQU CFCCRT 05048000 NCFRSVD EQU CFCNTRD 05049000 NCFCR2 EQU CFCNTRD 05050000 NCFCRP EQU CFCNTRD 05051000 NCFCR1 EQU CFCNTRD 05052000 NCFCS2 EQU CFCNTRD 05053000 NCFCS1 EQU CFCNTRD 05054000 PFCRSV01 EQU ISTPFCRR+13 05055000 PFCFTA EQU ISTPFCRR+12 05056000 CRRFRR EQU PFCFRRO 05057000 CRRCHAIN EQU PFCCRRO 05058000 CRRLEN EQU PFCCRRLN 05059000 PFCRSV10 EQU PFCCRR+1 05060000 CRRID EQU PFCCRRID 05061000 ZSAZTRAC EQU ISTZSAVE+36 05062000 ZSAZSVVR EQU ISTZSAVE+12 05063000 ZSAZSVRR EQU ISTZSAVE+8 05064000 ZSAZSVFC EQU ISTZSAVE+4 05065000 ZSAZACTV EQU ZSAZSVMS 05066000 CRRRVPT5 EQU CRRSAREA+316 05067000 CRRRVPT4 EQU CRRSAREA+312 05068000 CRRRVPT3 EQU CRRSAREA+308 05069000 CRRRVPT2 EQU CRRSAREA+304 05070000 CRRRVPT1 EQU CRRSAREA+300 05071000 CRRRVCR2 EQU CRRSAREA+292 05072000 CRRRVCR1 EQU CRRSAREA+291 05073000 CRRXFNCD EQU CRRSAREA+290 05074000 CRRLDOCT EQU CRRSAREA+288 05075000 CRRBTLEN EQU CRRSAREA+284 05076000 CRRBLEN EQU CRRSAREA+282 05077000 CRRBRTCD EQU CRRSAREA+281 05078000 @NM00125 EQU CRRBFLGS 05079000 CRRBFLG1 EQU CRRBFLGS 05080000 CRRBLDAD EQU CRRSAREA+276 05081000 CRRBARAD EQU CRRSAREA+272 05082000 CRRRTN12 EQU CRRSAREA+268 05083000 CRRRTN11 EQU CRRSAREA+264 05084000 CRRRTN10 EQU CRRSAREA+260 05085000 CRRRTN9 EQU CRRSAREA+256 05086000 CRRRTN8 EQU CRRSAREA+252 05087000 CRRRTN7 EQU CRRSAREA+248 05088000 CRRRTN6 EQU CRRSAREA+244 05089000 CRRRTN5 EQU CRRSAREA+240 05090000 CRRRTN4 EQU CRRSAREA+236 05091000 CRRRTN3 EQU CRRSAREA+232 05092000 CRRRTN2 EQU CRRSAREA+228 05093000 CRRRTN1 EQU CRRSAREA+224 05094000 CRRRES1 EQU CRRSAREA+222 05095000 CRRLCNT EQU CRRSAREA+220 05096000 CRRATCVT EQU CRRSAREA+216 05097000 CRRVALCK EQU CRRSAREA+212 05098000 CRRARPL EQU CRRTRBUF+4 05099000 CRRBIND EQU CRRTRBUF+3 05100000 CRRTRRES EQU CRRTRBUF 05101000 CRRCLDO EQU CRRSAREA+200 05102000 CRRUECB EQU CRRSAREA+196 05103000 CRRLCPB EQU CRRSAREA+192 05104000 CRRCMDAD EQU CRRSAREA+188 05105000 CRRFMCB EQU CRRSAREA+184 05106000 CRRCLCCW EQU CRRSAREA+180 05107000 CRRESR2 EQU CRRESR+1 05108000 CRRESR1 EQU CRRESR 05109000 CRRDSB2 EQU CRRDSB+1 05110000 CRRDSB1 EQU CRRDSB 05111000 CRRDTACT EQU CRRSAREA+174 05112000 CRRRSV99 EQU CRRSAREA+173 05113000 CRRRDSOH EQU CRRFDB3 05114000 CRRRLG EQU CRRFDB3 05115000 CRRLGFRC EQU CRRFDB3 05116000 CRRRDEOT EQU CRRFDB3 05117000 CRRRDEOM EQU CRRFDB3 05118000 CRRRDEOB EQU CRRFDB3 05119000 CRRUNUSD EQU CRRFDB3 05120000 CRRUINPT EQU CRRFDB3 05121000 CRRSTSAV EQU CRRFDB2 05122000 CRRCUERR EQU CRRFDB2 05123000 CRRDLGFL EQU CRRFDB2 05124000 CRRIOERR EQU CRRFDB2 05125000 CRRDVUNS EQU CRRFDB2 05126000 CRRATND EQU CRRFDB2 05127000 CRRRVID EQU CRRFDB2 05128000 CRRERLK EQU CRRFDB2 05129000 CRRRTNCD EQU CRRFDBK1 05130000 CRRNSNA EQU CRRRTYPE 05131000 CRRDFSYN EQU CRRRTYPE 05132000 CRRRESP EQU CRRRTYPE 05133000 CRRDFASY EQU CRRRTYPE 05134000 CRRDBLCK EQU CRRRFLG1 05135000 CRRRPSBD EQU CRRRFLG1 05136000 CRRRPLOQ EQU CRRRFLG1 05137000 CRRRPLS EQU CRRRFLG1 05138000 CRRSW7 EQU CRRFLGS 05139000 CRRSW6 EQU CRRFLGS 05140000 CRRSW5 EQU CRRFLGS 05141000 CRRSW4 EQU CRRFLGS 05142000 CRRSW3 EQU CRRFLGS 05143000 CRRSW2 EQU CRRFLGS 05144000 CRRSW1 EQU CRRFLGS 05145000 CRRSW0 EQU CRRFLGS 05146000 CRRRSV04 EQU CRRFLGS4 05147000 CRRFMCLK EQU CRRFLGS4 05148000 CRRDLCCW EQU CRRFLGS3 05149000 CRRRESET EQU CRRFLGS3 05150000 CRRSUBBK EQU CRRFLGS3 05151000 CRRRSV08 EQU CRRFLGS3 05152000 CRRDEBQ EQU CRRFLGS3 05153000 CRRSTSPR EQU CRRFLGS3 05154000 CRRDREQ EQU CRRFLGS3 05155000 CRRDFDBK EQU CRRFLGS3 05156000 CRRDFSB EQU CRRFLGS2 05157000 CRRDPROC EQU CRRFLGS2 05158000 CRREXTS EQU CRRFLGS2 05159000 CRRELSRI EQU CRRFLGS2 05160000 CRRPOST EQU CRRFLGS2 05161000 CRRENDLW EQU CRRFLGS2 05162000 CRRPRGIP EQU CRRFLGS2 05163000 CRRDEXP EQU CRRFLGS2 05164000 CRRSOLRQ EQU CRRFLGS1 05165000 CRRREQP EQU CRRFLGS1 05166000 CRRCPROC EQU CRRFLGS1 05167000 CRRFINI EQU CRRFLGS1 05168000 CRRPREIO EQU CRRFLGS1 05169000 CRRINIO EQU CRRFLGS1 05170000 CRRFLDOS EQU CRRFLGS1 05171000 CRRDOCUR EQU CRRFLGS1 05172000 CRRRATS4 EQU CRRATS+7 05173000 @NM00124 EQU CRRSATS 05174000 CRRASC51 EQU CRRSATS 05175000 CRRASC40 EQU CRRSATS 05176000 CRRASC30 EQU CRRSATS 05177000 CRRASC21 EQU CRRSATS 05178000 CRRASC10 EQU CRRSATS 05179000 CRRASC01 EQU CRRSATS 05180000 @NM00123 EQU CRRRATS2 05181000 CRRPLIC EQU CRRRATS2 05182000 CRRRC81 EQU CRRRATS2 05183000 CRRRC80 EQU CRRRATS2 05184000 CRRRC65 EQU CRRRATS2 05185000 CRRRC63 EQU CRRRATS2 05186000 CRRRC55 EQU CRRRATS2 05187000 CRRRC54 EQU CRRRATS2 05188000 CRRRC53 EQU CRRRATS1 05189000 CRRRC52 EQU CRRRATS1 05190000 CRRRC51 EQU CRRRATS1 05191000 CRRRC30 EQU CRRRATS1 05192000 CRRRC26 EQU CRRRATS1 05193000 CRRRC23 EQU CRRRATS1 05194000 CRRRC22 EQU CRRRATS1 05195000 CRRRC21 EQU CRRRATS1 05196000 @NM00122 EQU CRRATS4 05197000 CRRC3X EQU CRRATS4 05198000 CRRC85 EQU CRRATS4 05199000 CRRC83 EQU CRRATS4 05200000 CRRC82 EQU CRRATS4 05201000 CRRC61 EQU CRRATS4 05202000 CRRC60 EQU CRRATS4 05203000 CRRC81 EQU CRRATS3 05204000 CRRC80 EQU CRRATS3 05205000 CRRC75 EQU CRRATS3 05206000 CRRC51 EQU CRRATS3 05207000 CRRC50 EQU CRRATS3 05208000 CRRC42 EQU CRRATS3 05209000 CRRC41 EQU CRRATS3 05210000 CRRC40 EQU CRRATS3 05211000 CRRC32 EQU CRRATS2 05212000 CRRC31 EQU CRRATS2 05213000 CRRC30 EQU CRRATS2 05214000 CRRC25 EQU CRRATS2 05215000 CRRC24 EQU CRRATS2 05216000 CRRC23 EQU CRRATS2 05217000 CRRC22 EQU CRRATS2 05218000 CRRC21 EQU CRRATS2 05219000 CRRC20 EQU CRRATS1 05220000 CRRC13 EQU CRRATS1 05221000 CRRC12 EQU CRRATS1 05222000 CRRC11 EQU CRRATS1 05223000 CRRC10 EQU CRRATS1 05224000 CRRC02 EQU CRRATS1 05225000 CRRC01 EQU CRRATS1 05226000 CRRC00 EQU CRRATS1 05227000 CRRRMAS4 EQU CRRMAS+7 05228000 @NM00121 EQU CRRSMAS 05229000 CRRMSC51 EQU CRRSMAS 05230000 CRRMSC40 EQU CRRSMAS 05231000 CRRMSC30 EQU CRRSMAS 05232000 CRRMSC21 EQU CRRSMAS 05233000 CRRMSC10 EQU CRRSMAS 05234000 CRRMSC01 EQU CRRSMAS 05235000 @NM00120 EQU CRRRMAS2 05236000 CRRRM81 EQU CRRRMAS2 05237000 CRRRM80 EQU CRRRMAS2 05238000 CRRRM65 EQU CRRRMAS2 05239000 CRRRM63 EQU CRRRMAS2 05240000 CRRRM55 EQU CRRRMAS2 05241000 CRRRM54 EQU CRRRMAS2 05242000 CRRRM53 EQU CRRRMAS1 05243000 CRRRM52 EQU CRRRMAS1 05244000 CRRRM51 EQU CRRRMAS1 05245000 CRRRM30 EQU CRRRMAS1 05246000 CRRRM26 EQU CRRRMAS1 05247000 CRRRM23 EQU CRRRMAS1 05248000 CRRRM22 EQU CRRRMAS1 05249000 CRRRM21 EQU CRRRMAS1 05250000 @NM00119 EQU CRRMAS4 05251000 CRRM3X EQU CRRMAS4 05252000 CRRM85 EQU CRRMAS4 05253000 CRRM83 EQU CRRMAS4 05254000 CRRM82 EQU CRRMAS4 05255000 CRRM61 EQU CRRMAS4 05256000 CRRM60 EQU CRRMAS4 05257000 CRRM81 EQU CRRMAS3 05258000 CRRM80 EQU CRRMAS3 05259000 CRRM75 EQU CRRMAS3 05260000 CRRM51 EQU CRRMAS3 05261000 CRRM50 EQU CRRMAS3 05262000 CRRM42 EQU CRRMAS3 05263000 CRRM41 EQU CRRMAS3 05264000 CRRM40 EQU CRRMAS3 05265000 CRRM32 EQU CRRMAS2 05266000 CRRM31 EQU CRRMAS2 05267000 CRRM30 EQU CRRMAS2 05268000 CRRM25 EQU CRRMAS2 05269000 CRRM24 EQU CRRMAS2 05270000 CRRM23 EQU CRRMAS2 05271000 CRRM22 EQU CRRMAS2 05272000 CRRM21 EQU CRRMAS2 05273000 CRRM20 EQU CRRMAS1 05274000 CRRM13 EQU CRRMAS1 05275000 CRRM12 EQU CRRMAS1 05276000 CRRM11 EQU CRRMAS1 05277000 CRRM10 EQU CRRMAS1 05278000 CRRM02 EQU CRRMAS1 05279000 CRRM01 EQU CRRMAS1 05280000 CRRM00 EQU CRRMAS1 05281000 CRRFSB EQU CRRSAREA+144 05282000 CRRSAVE1 EQU CRRSAREA+72 05283000 CRRSAVE EQU CRRSAREA 05284000 CRRRSV22 EQU ISTDCCRR+4 05285000 CRRCRR EQU ISTDCCRR 05286000 MPSSRB1 EQU ISTMPST+172 05287000 MPSSAVE EQU ISTMPST+140 05288000 MPSMQLBP EQU ISTMPST+136 05289000 MPSSYSRT EQU ISTMPST+132 05290000 MPSQEL EQU ISTMPST+128 05291000 MPSDBTBL EQU ISTMPST+124 05292000 MPSASCB EQU ISTMPST+120 05293000 MPSTPPAB EQU ISTMPST+88 05294000 MPSSMPAB EQU ISTMPST+56 05295000 MPSSMRPH EQU ISTMPST+52 05296000 MPSSRB55 EQU ISTMPST+48 05297000 MPSRPLAC EQU MPSRPLCT+2 05298000 MPSRPLRC EQU MPSRPLCT 05299000 MPSCRPLQ EQU MPSCRPL 05300000 MPSSRBAC EQU MPSSRBCT+2 05301000 MPSSRBRC EQU MPSSRBCT 05302000 MPSSRBQ EQU MPSSRB 05303000 MPSCRAAC EQU MPSCRACT+2 05304000 MPSCRARC EQU MPSCRACT 05305000 MPSCRAQ EQU MPSCRA 05306000 MPSMPSTP EQU ISTMPST+20 05307000 MPSPSTCT EQU ISTMPST+16 05308000 MPSASID EQU MPSFLGA+2 05309000 MPSRSV02 EQU MPSFLGA+1 05310000 MPSPSTAB EQU MPSFLGA 05311000 MPSRSV01 EQU MPSFLGA 05312000 MPSTPBU EQU MPSFLGA 05313000 MPMEMTRM EQU MPSFLGA 05314000 MPSAUTH EQU MPSFLGA 05315000 MPSCRAO EQU MPSFLGA 05316000 MPSSRBO EQU MPSFLGA 05317000 MPSRQUEG EQU MPSRQUE 05318000 MPSTSOIW EQU MPSRSV07 05319000 MPSID EQU ISTMPST 05320000 PSTDRDYQ EQU PSTDMPS+1 05321000 @NM00118 EQU PSTDMPS 05322000 PSTDGATE EQU PSTDMPS 05323000 PSTDEBP EQU ISTPST+128 05324000 PSTSAVE EQU ISTPST+96 05325000 PSTSMDYP EQU ISTPST+64 05326000 PSTCRRS EQU ISTPST+60 05327000 PSTCRR1 EQU ISTPST+56 05328000 PSTIQE22 EQU ISTPST+52 05329000 PSTIQE21 EQU ISTPST+48 05330000 PSTIQE12 EQU ISTPST+44 05331000 PSTIQE11 EQU ISTPST+40 05332000 PSTUEQ EQU ISTPST+36 05333000 PSTNSSQ EQU ISTPST+32 05334000 PSTPSSQ EQU ISTPST+28 05335000 PSTACBCT EQU ISTPST+24 05336000 PSTMPSTP EQU ISTPST+20 05337000 PSTTCBA EQU ISTPST+16 05338000 PSTRSV08 EQU PSTFLGA+1 05339000 PSTDMPC EQU PSTFLGA+1 05340000 PSTABEND EQU PSTABINP 05341000 PSTAUTH EQU PSTFLGA 05342000 PSTSMCU EQU PSTFLGA 05343000 PSTSMQR EQU PSTFLGA 05344000 PSTIRBU2 EQU PSTFLGA 05345000 PSTIRBU1 EQU PSTFLGA 05346000 PSTUERN EQU PSTFLGA 05347000 PSTSSRN EQU PSTFLGA 05348000 PSTRQUEA EQU PSTRQUE+1 05349000 PSTRSV07 EQU PSTRQUE 05350000 PSTRSV06 EQU PSTRQUE 05351000 PSTRSV05 EQU PSTRQUE 05352000 PSTRSV04 EQU PSTRQUE 05353000 PSTRSV03 EQU PSTRQUE 05354000 PSTRSV02 EQU PSTRQUE 05355000 PSTRSV01 EQU PSTRQUE 05356000 PSTRQFLG EQU PSTRQUE 05357000 PSTCHAIN EQU ISTPST+4 05358000 @NM00117 EQU ISTPST+2 05359000 PSTLNGTH EQU ISTPST+1 05360000 PSTTYPE EQU ISTPST 05361000 LDNZS00F EQU LDNZH003+1 05362000 LDNZS00E EQU LDNZH003+1 05363000 LDNZS00D EQU LDNZH003+1 05364000 LDNZS00C EQU LDNZH003+1 05365000 LDNZS00B EQU LDNZH003+1 05366000 LDNZS007 EQU LDNZH003 05367000 LDNZS006 EQU LDNZH003 05368000 LDNZS005 EQU LDNZH003 05369000 LDNZS004 EQU LDNZH003 05370000 LDNZS003 EQU LDNZH003 05371000 LDNZS002 EQU LDNZH003 05372000 LDNZS001 EQU LDNZH003 05373000 LDNZS000 EQU LDNZH003 05374000 LDNZX006 EQU ISTLDNCB+576 05375000 LDNZC001 EQU ISTLDNCB+569 05376000 LDNZX005 EQU ISTLDNCB+568 05377000 LDNZV006 EQU ISTLDNCB+564 05378000 LDNSRB EQU ISTLDNCB+520 05379000 LDNIOSB EQU ISTLDNCB+412 05380000 @NM00116 EQU LDNZSAV3+28 05381000 LDNRSV06 EQU LDNZSAV4+16 05382000 LDNZSAV6 EQU LDNZSAV4+12 05383000 LDNZSAV5 EQU LDNZSAV4 05384000 LDNZSAVE EQU LDNZSAV3 05385000 LDNZSAV2 EQU ISTLDNCB+368 05386000 LDNZSAV1 EQU ISTLDNCB+352 05387000 LDNZ3RR EQU ISTLDNCB+348 05388000 LDNZ2RR EQU ISTLDNCB+344 05389000 LDNZ1RR EQU ISTLDNCB+340 05390000 LDNRSV0B EQU ISTLDNCB+336 05391000 LDNRSV0A EQU ISTLDNCB+332 05392000 LDNRSV09 EQU ISTLDNCB+328 05393000 LDNRSV08 EQU ISTLDNCB+324 05394000 LDNRSV07 EQU ISTLDNCB+320 05395000 LDNDEAD EQU LDNDCDEB+12 05396000 LDNUCBAD EQU LDNDCDEB+8 05397000 LDNAPPAD EQU LDNDCDEB+5 05398000 LDNEXSCL EQU LDNDCDEB+4 05399000 LDNDCBAD EQU LDNDCDEB+1 05400000 LDNDEBID EQU LDNDCDEB 05401000 LDNZRIND EQU ISTLDNCB+300 05402000 LDNRPH EQU ISTLDNCB+192 05403000 LDNZTCP EQU ISTLDNCB+188 05404000 LDNZCHNC EQU ISTLDNCB+187 05405000 LDNZLPC7 EQU LDNZLPC 05406000 LDNZLPC6 EQU LDNZLPC 05407000 LDNZLPC5 EQU LDNZLPC 05408000 LDNZLPC4 EQU LDNZLPC 05409000 LDNZLPC3 EQU LDNZLPC 05410000 LDNZLPC2 EQU LDNZLPC 05411000 LDNZLPC1 EQU LDNZLPC 05412000 LDNZLPC0 EQU LDNZLPC 05413000 LDNRSV05 EQU LDNZERPF 05414000 LDNZCTOV EQU LDNZEPIN 05415000 LDNZF001 EQU LDNZEPIN 05416000 LDNZFRDW EQU LDNZCPAN 05417000 LDNZFRD EQU LDNZCPAN 05418000 LDNZNARD EQU LDNZCPAN 05419000 LDNRSV04 EQU LDNZIOLK 05420000 LDNZATBF EQU LDNZIOLK 05421000 LDNZERLK EQU LDNZIOLK 05422000 LDNZDSIC EQU LDNZIOLK 05423000 LDNZPAB1 EQU ISTLDNCB+168 05424000 LDNZV005 EQU ISTLDNCB+160 05425000 LDNZS1VR EQU ISTLDNCB+136 05426000 LDNZS1RR EQU ISTLDNCB+132 05427000 LDNZS1FC EQU ISTLDNCB+128 05428000 LDNZS1BC EQU ISTLDNCB+124 05429000 LDNZLOCK EQU ISTLDNCB+120 05430000 LDNZFBUF EQU ISTLDNCB+116 05431000 LDNZLAST EQU ISTLDNCB+112 05432000 LDNRSV02 EQU LDNFLAG2 05433000 LDNZFF04 EQU LDNFLAG2 05434000 LDNZFF69 EQU LDNFLAGS+2 05435000 LDNTPBIO EQU LDNFLAGS+2 05436000 LDNZFF03 EQU LDNFLAGS+2 05437000 LDNZFF02 EQU LDNFLAGS+2 05438000 LDNZFF01 EQU LDNFLAGS+2 05439000 LDNZFF00 EQU LDNFLAGS+2 05440000 LDNCLOSD EQU LDNFLAGS+2 05441000 LDNZENTR EQU LDNFLAGS+2 05442000 LDNZICCW EQU LDNFLAGS+1 05443000 LDNZREC EQU LDNFLAGS+1 05444000 LDNZCTXT EQU LDNFLAGS+1 05445000 LDNZATLK EQU LDNFLAGS+1 05446000 LDNZCHNE EQU LDNFLAGS+1 05447000 LDNZATTP EQU LDNFLAGS+1 05448000 LDNZIOBY EQU LDNFLAGS+1 05449000 LDNZF00A EQU LDNFLAGS+1 05450000 LDNZF009 EQU LDNFLAGS 05451000 LDNZF008 EQU LDNFLAGS 05452000 LDNZF007 EQU LDNFLAGS 05453000 LDNZF006 EQU LDNFLAGS 05454000 LDNZF005 EQU LDNFLAGS 05455000 LDNZF004 EQU LDNFLAGS 05456000 LDNZF003 EQU LDNFLAGS 05457000 LDNZF002 EQU LDNFLAGS 05458000 LDNZHDCC EQU ISTLDNCB+106 05459000 LDNZARM EQU ISTLDNCB+104 05460000 LDNZRM EQU ISTLDNCB+102 05461000 LDNZRB EQU ISTLDNCB+100 05462000 LDNCPQ EQU ISTLDNCB+96 05463000 LDNSIOQ EQU ISTLDNCB+92 05464000 LDNZX002 EQU ISTLDNCB+91 05465000 LDNZX001 EQU ISTLDNCB+90 05466000 LDNZH002 EQU ISTLDNCB+88 05467000 LDNZV001 EQU ISTLDNCB+84 05468000 LDNZACSW EQU ISTLDNCB+76 05469000 LDNZC002 EQU ISTLDNCB+68 05470000 LDNCSWSV EQU ISTLDNCB+60 05471000 LDNCHFLD EQU ISTLDNCB+56 05472000 LDNRESRV EQU ISTLDNCB+55 05473000 @NM00115 EQU LDNCFLAG 05474000 LDNRMF EQU LDNCFLAG 05475000 LDNIBI EQU LDNCFLAG 05476000 LDNTSAF EQU ISTLDNCB+52 05477000 LDNCUUA EQU ISTLDNCB+48 05478000 LDNCB EQU ISTLDNCB 05479000 HCNRSV01 EQU ISTHCNCB+113 05480000 HCNSVCR EQU ISTHCNCB+112 05481000 HCNNCB EQU ISTHCNCB 05482000 DNCZC001 EQU DNCOS+40 05483000 DNCLOCK EQU DNCOS+36 05484000 DNCZV005 EQU DNCOS+32 05485000 DNCZV004 EQU DNCOS+28 05486000 DNCZV003 EQU DNCOS+24 05487000 DNCZV002 EQU DNCOS+21 05488000 DNCZX001 EQU DNCOS+20 05489000 DNCZV001 EQU DNCOS+17 05490000 DNCZX003 EQU DNCOS+16 05491000 DNCZV000 EQU DNCOS+12 05492000 DNCSESCQ EQU DNCOS+8 05493000 DNCSESIQ EQU DNCOS+4 05494000 DNCACIP EQU DNCBSCED+1 05495000 DNCLICP EQU DNCBSCED 05496000 DNCZF008 EQU DNCZFLGS+1 05497000 DNCZPSRD EQU DNCZFLGS+1 05498000 DNCPSOL EQU DNCZFLGS+1 05499000 DNCZF007 EQU DNCZFLGS+1 05500000 DNCZF006 EQU DNCZFLGS+1 05501000 DNCZF005 EQU DNCZFLGS+1 05502000 DNCZF004 EQU DNCZFLGS+1 05503000 DNCZF003 EQU DNCZFLGS 05504000 DNCZF002 EQU DNCZFLGS 05505000 DNCZRSCH EQU DNCZFLGS 05506000 DNCDISC EQU DNCZFLGS 05507000 DNCCONT EQU DNCZFLGS 05508000 DNCINVIT EQU DNCZFLGS 05509000 DNCSESS EQU DNCZFLGS 05510000 DNCZF001 EQU DNCZFLGS 05511000 DNCMODE EQU ISTDNCB+49 05512000 DNCBHSET EQU ISTDNCB+48 05513000 DNCNCB EQU ISTDNCB 05514000 NCBRSV01 EQU ISTNCB+46 05515000 NCBSWDAF EQU ISTNCB+44 05516000 NCBDEVCH EQU ISTNCB+36 05517000 NCBFMCBP EQU ISTNCB+32 05518000 NCBLTRC EQU ISTNCB+30 05519000 NCBRVPT1 EQU ISTNCB+28 05520000 NCBNMLLN EQU NCBFLAGS+3 05521000 @NM00114 EQU NCBFLAG1 05522000 NCBFORCE EQU NCBFLAG1 05523000 NCBTTF EQU NCBFLAG1 05524000 NCBRSYNC EQU NCBFLAG1 05525000 NCBRSTRT EQU NCBFLAG1 05526000 NCBCONF EQU NCBFLAG1 05527000 NCBSNAI EQU NCBFLAG1 05528000 NCBFLTIO EQU NCBFTRIO 05529000 NCBCSTAT EQU NCBFLAGS 05530000 NCBNCSL EQU ISTNCB+22 05531000 NCBNCBA EQU ISTNCB+20 05532000 NCBFMCBA EQU ISTNCB+16 05533000 NCBNSNA EQU ISTNCB+12 05534000 NCBTSKID EQU ISTNCB+8 05535000 NCBRDTE EQU ISTNCB+4 05536000 NCBDAF EQU ISTNCB+2 05537000 NCBLNGTH EQU ISTNCB+1 05538000 NCBTYPE EQU ISTNCB 05539000 FMCFLRSV EQU FMCFLGB 05540000 FMCFLGA8 EQU FMCFLGB 05541000 FMCCLRPH EQU FMCVS1+45 05542000 FMCRSV0X EQU FMCCVFLG 05543000 FMCVYRPH EQU FMCCVFLG 05544000 FMCZV004 EQU FMCVS1+40 05545000 FMCLOCK2 EQU FMCVS1+36 05546000 @NM00113 EQU FMCZFLG2 05547000 FMCZF027 EQU FMCZFLG2 05548000 FMCZF026 EQU FMCZFLG2 05549000 FMCSEQ1B EQU FMCSEQ1 05550000 FMCSEQ1T EQU FMCSEQ1 05551000 FMCZX006 EQU FMCVS1+33 05552000 FMCZX005 EQU FMCVS1+32 05553000 FMCZX004 EQU FMCVS1+31 05554000 FMCZX003 EQU FMCVS1+30 05555000 FMCZX002 EQU FMCVS1+29 05556000 FMCZX001 EQU FMCVS1+28 05557000 FMCZV001 EQU FMCVS1+24 05558000 FMCAWATQ EQU FMCLCPAQ+1 05559000 @NM00112 EQU FMCLCPAQ 05560000 FMCLCPB2 EQU FMCLCPBQ+1 05561000 FMCLCPB1 EQU FMCLCPBQ 05562000 FMCASCDQ EQU FMCSHEAQ+1 05563000 @NM00111 EQU FMCSHEAQ 05564000 FMCSHEDQ EQU FMCVS1+8 05565000 FMCZFCSQ EQU FMCVS1+6 05566000 FMCZH001 EQU FMCVS1+4 05567000 FMCZF025 EQU FMCZFLAG+3 05568000 FMCZF024 EQU FMCZFLAG+3 05569000 FMCZF023 EQU FMCZFLAG+3 05570000 FMCZF022 EQU FMCZFLAG+3 05571000 FMCZF021 EQU FMCZFLAG+3 05572000 FMCZF020 EQU FMCZFLAG+3 05573000 FMCZF019 EQU FMCZFLAG+3 05574000 FMCZF018 EQU FMCZFLAG+3 05575000 FMCZF017 EQU FMCZFLAG+2 05576000 FMCZF016 EQU FMCZFLAG+2 05577000 FMCZF015 EQU FMCZFLAG+2 05578000 FMCZF014 EQU FMCZFLAG+2 05579000 FMCZF013 EQU FMCZFLAG+2 05580000 FMCZF012 EQU FMCZFLAG+2 05581000 FMCZF011 EQU FMCZFLAG+2 05582000 FMCZF010 EQU FMCZFLAG+2 05583000 FMCZF00F EQU FMCZFLAG+1 05584000 FMCZF00E EQU FMCZFLAG+1 05585000 FMCZF00D EQU FMCZFLAG+1 05586000 FMCZF00C EQU FMCZFLAG+1 05587000 FMCZF00B EQU FMCZFLAG+1 05588000 FMCRSV10 EQU FMCZFLAG+1 05589000 FMCZF009 EQU FMCZFLAG+1 05590000 FMCZFD06 EQU FMCZF006+1 05591000 FMCZFC06 EQU FMCZF006 05592000 FMCZFB06 EQU FMCZF006 05593000 FMCZFA06 EQU FMCZF006 05594000 FMCZF005 EQU FMCZFLAG 05595000 FMCZF004 EQU FMCZFLAG 05596000 FMCZF003 EQU FMCZFLAG 05597000 FMCZF002 EQU FMCZFLAG 05598000 FMCZF001 EQU FMCZFLAG 05599000 FMCFRESA EQU ISTFMCB+228 05600000 FMCSCSQN EQU FMCSNCTL+2 05601000 FMCSCCTL EQU FMCSNCTL+1 05602000 FMCSTCTL EQU FMCSCFLG 05603000 FMCSCCLO EQU FMCSCFLG 05604000 FMCAPRO EQU FMCSCFLG 05605000 FMCLURO EQU FMCSCFLG 05606000 FMCOBSAC EQU FMCSCFLG 05607000 FMCIBSAC EQU FMCSCFLG 05608000 FMCFBRE EQU ISTFMCB+220 05609000 FMCFBXM EQU FMCZV002 05610000 FMCASEGQ EQU ISTFMCB+212 05611000 FMCRDTPT EQU ISTFMCB+208 05612000 FMCLOCK EQU ISTFMCB+204 05613000 FMCSEGD EQU FMCSSEGQ 05614000 FMCRSPLM EQU ISTFMCB+198 05615000 FMCPSTRS EQU ISTFMCB+196 05616000 @NM00110 EQU FMCRRESP 05617000 FMCTSLHA EQU FMCRRESP 05618000 FMCFRRN EQU FMCRRESP 05619000 FMCFME EQU FMCRRESP 05620000 FMCFEX EQU FMCRRESP 05621000 FMCFPE EQU FMCRRESP 05622000 FMCCTLB EQU ISTFMCB+194 05623000 FMCBSQNO EQU FMCCLSEQ+2 05624000 FMCTSQNO EQU FMCCLSEQ 05625000 FMCOBPRG EQU FMCMODEB 05626000 FMCIBPRG EQU FMCMODEB 05627000 FMCRESOT EQU FMCMODEB 05628000 FMCRSTSR EQU FMCMODEB 05629000 FMCLUQ EQU FMCMODEB 05630000 FMCAPQ EQU FMCMODEB 05631000 FMCCLEAR EQU FMCMODEB 05632000 FMCHOLD EQU FMCMODEB 05633000 FMCIPSEQ EQU ISTFMCB+188 05634000 FMCLUSTR EQU ISTFMCB+187 05635000 FMCRSV87 EQU FMCSTAT2 05636000 FMCSEQI EQU FMCSTAT2 05637000 FMCCPIP EQU FMCSTAT2 05638000 FMCALIPR EQU FMCSTAT2 05639000 FMCIAIO EQU FMCSTAT2 05640000 FMCZF00A EQU FMCSTAT2 05641000 FMCVPIP EQU FMCSTAT2 05642000 FMCBHSET EQU ISTFMCB+185 05643000 FMCPRMRC EQU FMCCLEXT+20 05644000 FMCRSV89 EQU FMCPSTAT 05645000 FMCPCLSD EQU FMCPSTAT 05646000 FMCDDOCD EQU FMCPSTAT 05647000 FMCIDVFD EQU FMCPSTAT 05648000 FMCELKST EQU FMCPSTAT 05649000 FMCRSV88 EQU FMCPSCMD 05650000 FMCRDBLK EQU FMCPSCMD 05651000 FMCDSEOC EQU FMCPSCMD 05652000 FMCPURGE EQU FMCPSCMD 05653000 FMCRESTI EQU FMCPSCMD 05654000 FMCCNTCT EQU FMCPSCMD 05655000 FMCINVT EQU FMCPSCMD 05656000 FMCFLGB7 EQU FMCFLGCL 05657000 FMCFLGB6 EQU FMCFLGCL 05658000 FMCFLGB5 EQU FMCFLGCL 05659000 FMCFLGB4 EQU FMCFLGCL 05660000 FMCFLGB3 EQU FMCFLGCL 05661000 FMCFLGB2 EQU FMCFLGCL 05662000 FMCFLGB1 EQU FMCFLGCL 05663000 FMCFLGB0 EQU FMCFLGCL 05664000 FMCFLGA7 EQU FMCFLGA 05665000 FMCFLGA6 EQU FMCFLGA 05666000 FMCFLGA5 EQU FMCFLGA 05667000 FMCFLGA4 EQU FMCFLGA 05668000 FMCFLGA3 EQU FMCFLGA 05669000 FMCFLGA2 EQU FMCFLGA 05670000 FMCFLGA1 EQU FMCFLGA 05671000 FMCFLGA0 EQU FMCFLGA 05672000 FMCDCLOK EQU FMCCLEXT+12 05673000 FMCRAFM EQU FMCCLEXT+8 05674000 FMCFBPTR EQU FMCFBA+1 05675000 FMCFBRSV EQU FMCFBA 05676000 FMCRPLPT EQU FMCRPLA+1 05677000 FMCRPLRS EQU FMCRPLA 05678000 FMCPRCLS EQU FMCCVAL 05679000 FMCIBCE EQU FMCCVAL 05680000 FMCONLY EQU FMCOBCE 05681000 FMCLAST EQU FMCOBCE 05682000 FMCMIDLE EQU FMCOBCE 05683000 FMCFIRST EQU FMCOBCE 05684000 FMCCPCNT EQU FMCPACPC 05685000 FMCMPCNT EQU FMCPACEM 05686000 FMCNPCNT EQU FMCPACEN 05687000 FMCCONF EQU FMCSSTAT 05688000 FMCPURCH EQU FMCSSTAT 05689000 FMCNSALU EQU FMCSSTAT 05690000 FMCBIP EQU FMCSSTAT 05691000 FMCSDTR EQU FMCSSTAT 05692000 FMCUIPI EQU FMCSSTAT 05693000 FMCCIPI EQU FMCSSTAT 05694000 FMCSNBI EQU FMCSSTAT 05695000 FMCRVD01 EQU ISTFMCB+158 05696000 FMCISSN EQU ISTFMCB+156 05697000 FMCOASN EQU FMCNXOSC 05698000 FMCOSSN EQU FMCNXCFM 05699000 FMCSIP EQU FMCSIPA 05700000 FMCEXLST EQU ISTFMCB+144 05701000 FMCPAB5 EQU ISTFMCB+128 05702000 FMCPAB4 EQU ISTFMCB+112 05703000 FMCPAB3 EQU ISTFMCB+96 05704000 FMCPAB2 EQU ISTFMCB+80 05705000 FMCPAB1 EQU ISTFMCB+64 05706000 FMCFASYA EQU ISTFMCB+60 05707000 FMCMODE EQU ISTFMCB+52 05708000 FMCPROCD EQU ISTFMCB+48 05709000 FMCVWT EQU ISTFMCB+44 05710000 FMCRPLH EQU ISTFMCB+40 05711000 FMCBUFNB EQU FMCCMPS1+2 05712000 FMCBUFLM EQU FMCCMPS1 05713000 FMCDEBA EQU ISTFMCB+32 05714000 @NM00109 EQU FMCCMDFL 05715000 FMCSNA EQU FMCCMDFL 05716000 FMCVSNA EQU FMCCMDFL 05717000 FMCCMDR EQU FMCCMDFL 05718000 @NM00108 EQU ISTFMCB+30 05719000 @NM00107 EQU FMCSTAT1 05720000 FMCLTCLS EQU FMCSTAT1 05721000 FMCHPURG EQU FMCSTAT1 05722000 FMCVSP2 EQU FMCSTAT1 05723000 FMCVSP1 EQU FMCSTAT 05724000 FMCLTEAS EQU FMCSTAT 05725000 FMCZF007 EQU FMCSTAT 05726000 FMCDEDSC EQU FMCSTAT 05727000 FMCDEVOF EQU FMCSTAT 05728000 FMCDAPT EQU FMCSTAT 05729000 FMCPRMTE EQU FMCSTAT 05730000 FMCPRMTR EQU FMCSTAT 05731000 FMCUSFLD EQU ISTFMCB+24 05732000 FMCFMCBA EQU ISTFMCB+20 05733000 FMCDNCBA EQU ISTFMCB+16 05734000 FMCDVTA EQU ISTFMCB+12 05735000 FMCTSKID EQU ISTFMCB+8 05736000 FMCNXTCB EQU ISTFMCB+4 05737000 FMCSAF EQU ISTFMCB+2 05738000 FMCLNGTH EQU ISTFMCB+1 05739000 FMCTYPE EQU ISTFMCB 05740000 PROSRDEF EQU PROSETM4 05741000 PRORSV47 EQU PROSETM4 05742000 PROSCON EQU PROSETM4 05743000 PRORSV46 EQU PROSETM3 05744000 PROSMONT EQU PROSETM3 05745000 PRORSV45 EQU PROSETM3 05746000 PROSNTO EQU PROSETM3 05747000 PRORSV44 EQU PROSETM3 05748000 PRORSV43 EQU PROSETM2 05749000 PROSNTFL EQU PROSETM2 05750000 PRORSV42 EQU PROSETM2 05751000 PRORSV41 EQU PROPROCS 05752000 PROMODC EQU PROPROC4 05753000 PROMODT EQU PROPROC4 05754000 PROMODM EQU PROPROC4 05755000 PROMODB EQU PROPROC4 05756000 PRORSV14 EQU PROPROC4 05757000 PRORSV13 EQU PROPROC4 05758000 PRORSV12 EQU PROPROC4 05759000 PROEIB EQU PROPROC4 05760000 PRORSV11 EQU PROPROC3 05761000 PROMONT2 EQU PROPROC3 05762000 PROMONIT EQU PROPROC3 05763000 PROSUBLK EQU PROPROC3 05764000 PRONTO EQU PROPROC3 05765000 PROLGIN EQU PROPROC3 05766000 PROERPI EQU PROPROC3 05767000 PRORSV07 EQU PROPROC3 05768000 PROCFTX EQU PROPROC2 05769000 PROEMLC EQU PROPROC2 05770000 PRONTFL EQU PROPROC2 05771000 PRORSV05 EQU PROPROC2 05772000 PRORSV04 EQU PROPROC2 05773000 PROLGOT EQU PROPROC2 05774000 PROERPO EQU PROPROC2 05775000 PRORSV03 EQU PROPROC2 05776000 PRORPLC EQU PROPROC1 05777000 PROCS EQU PROPROC1 05778000 PROCA EQU PROPROC1 05779000 PRORESPX EQU PROPROC1 05780000 PRODFASY EQU PROPROC1 05781000 PROXPOPT EQU PROPROC1 05782000 PROTRUNC EQU PROPROC1 05783000 PROASYIP EQU PROPROC1 05784000 DEVRSV03 EQU ISTDEVCH+5 05785000 DEVPHYSA EQU ISTDEVCH+4 05786000 DEVCSLPN EQU DEVCHAR3 05787000 DEVCSTCL EQU DEVCHAR3 05788000 DEVCCHEK EQU DEVCHAR3 05789000 DEVCATTN EQU DEVCHAR3 05790000 DEVCSWL EQU DEVFCCTL 05791000 DEVCRVB EQU DEVFCCTL 05792000 DEVCSSL EQU DEVFCCTL 05793000 DEVCBSC EQU DEVFCCTL 05794000 DEVMCODE EQU ISTDEVCH+2 05795000 DEVCHAR2 EQU DEVTCODE 05796000 DEVRSV01 EQU DEVCHAR 05797000 DEVCCTL EQU DEVCHAR 05798000 DEVNNSPT EQU DEVCHAR 05799000 DEVSPS EQU DEVCHAR 05800000 DEVSUBND EQU DEVCHAR 05801000 DEVCONVR EQU DEVCHAR 05802000 DEVOTPUT EQU DEVCHAR 05803000 DEVINPUT EQU DEVCHAR 05804000 LSCTLBAD EQU ISTLSCB+28 05805000 LSCFDB2 EQU LSCFDBA+1 05806000 LSCFDB1 EQU LSCFDBA 05807000 LSCLCCWA EQU ISTLSCB+20 05808000 LSCLCPBA EQU ISTLSCB+16 05809000 LSCLCCW1 EQU ISTLSCB+12 05810000 LSCRRCNT EQU LSCSEQ+1 05811000 LSCRRCCT EQU LSCSEQ 05812000 LSCATOP EQU LSCFLGS 05813000 LSCFREE EQU LSCFLGS 05814000 LSCDSTAT EQU LSCFLGS 05815000 LSCEXRES EQU LSCFLGS 05816000 LSCZRIMM EQU LSCFLGS 05817000 LSCRSV01 EQU LSCFLGS 05818000 LSCSMODE EQU LSCFLGS 05819000 LSCZMIRC EQU LSCRUCNT 05820000 LSCCHAI2 EQU LSCCHAIN+1 05821000 LSCCHNG EQU LSCCHAI1 05822000 LSCZRTSC EQU LSCZMNRC 05823000 LSCZRT0B EQU LSCZMNRC 05824000 LSCZRT0A EQU LSCZMNRC 05825000 LSCZRTL9 EQU LSCZRT09 05826000 LSCZRTL8 EQU LSCZRT08 05827000 LSCZRTL7 EQU LSCZRT07 05828000 LSCZRTL6 EQU LSCZRT06 05829000 LSCZRTL5 EQU LSCZRT05 05830000 LSCZRTL4 EQU LSCZRT04 05831000 LSCZRTL3 EQU LSCZRT03 05832000 LSCZRTL2 EQU LSCZRT02 05833000 LSCZRT01 EQU LSCREQTG 05834000 LSCZRT00 EQU LSCREQTG 05835000 LSCLNGTH EQU LSC1WORD+1 05836000 LSCTYPE EQU LSC1WORD 05837000 UECRVPT4 EQU ISTUECB+80 05838000 UECRVPT3 EQU ISTUECB+76 05839000 UECLGDTA EQU ISTUECB+72 05840000 UECDVTPT EQU ISTUECB+68 05841000 UECREQNM EQU ISTUECB+60 05842000 UECSYMNM EQU ISTUECB+52 05843000 UECVRPL EQU UECPLIST+16 05844000 UECRSNBT EQU UECRSNCD+3 05845000 @NM00106 EQU UECRSNCD 05846000 UECUSFLD EQU UECREQTR 05847000 UECDAF EQU UECTPNCD+2 05848000 UECSAF EQU UECTPNCD 05849000 UECRPLAD EQU UECACB 05850000 UECPAB EQU ISTUECB+16 05851000 UECEXLST EQU ISTUECB+12 05852000 UECTSKID EQU ISTUECB+8 05853000 UECFORW EQU ISTUECB+4 05854000 UECTYPE EQU ISTUECB+3 05855000 UECRSV01 EQU ISTUECB+2 05856000 UECLEN EQU ISTUECB+1 05857000 UECID EQU ISTUECB 05858000 FSBFDB EQU ISTFSB+32 05859000 FSBRSV01 EQU FSBFSB+30 05860000 FSBTHCNT EQU FSBFSB+28 05861000 FSBRLRSV EQU FSBRLSTS 05862000 FSBCFTX EQU FSBRLSTS 05863000 FSBICNCB EQU FSBMSGID 05864000 FSBSSOC EQU FSBSS2 05865000 FSBSSCC EQU FSBSS2 05866000 FSBSSDC EQU FSBSS2 05867000 FSBSSEC EQU FSBSS2 05868000 FSBSSIR EQU FSBSS2 05869000 FSBSSCR EQU FSBSS2 05870000 @NM00104 EQU FSBSS2 05871000 @NM00103 EQU FSBSS1 05872000 FSBSSDE EQU FSBSS1 05873000 FSBSSUS EQU FSBSS1 05874000 @NM00102 EQU FSBSS1 05875000 FSBSOHI EQU FSBERC 05876000 FSBLGI EQU FSBERC 05877000 FSBLMRI EQU FSBFBMI 05878000 FSBETI EQU FSBERC 05879000 FSBEMI EQU FSBERC 05880000 FSBEBI EQU FSBERC 05881000 FSBECI EQU FSBERC 05882000 FSBELI EQU FSBERC 05883000 FSBMJRCD EQU FSBSRCAT 05884000 FSBXLCI EQU FSBXCODE 05885000 FSBXFINS EQU FSBXCODE 05886000 FSBXNORM EQU FSBXFSTS 05887000 FSBSCODE EQU FSBSYSRS 05888000 FSBSPHSE EQU FSBSYSRS 05889000 FSBSERR EQU FSBSYSRS 05890000 FSBCMD EQU FSBSEQ 05891000 FSBDTRCE EQU FSBFLAGS 05892000 FSBASBTU EQU FSBFLAGS 05893000 FSBINPET EQU FSBFLAGS 05894000 FSBNONCB EQU FSBFLAGS 05895000 FSBLBIND EQU FSBFLAGS 05896000 FSBFFIND EQU FSBFLAGS 05897000 FSBACIND EQU FSBFLAGS 05898000 FSBRFIND EQU FSBFLAGS 05899000 FSBDAF EQU FSBCID+2 05900000 FSBSAF EQU FSBCID 05901000 FSBGATE EQU FSBFSBA 05902000 FSBRSV02 EQU FSBSFLGS 05903000 FSBPGBUF EQU FSBSFLGS 05904000 FSBMNSDA EQU FSBMNRCD 05905000 FSBMNOA EQU FSBMNRCD 05906000 FSBMNDIF EQU FSBMNRCD 05907000 FSBMNEOP EQU FSBMNRCD 05908000 FSBMNDNU EQU FSBMNRCD 05909000 FSBMNATN EQU FSBMNRCD 05910000 FSBMNRVI EQU FSBMNRCD 05911000 FSBMNELI EQU FSBMNRCD 05912000 FSBLNGTH EQU FSBFSB+1 05913000 FSBTYPE EQU FSBFSB 05914000 FDBOFSET EQU ISTFDB+10 05915000 FDBDATCT EQU ISTFDB+8 05916000 FDBDATAA EQU ISTFDB+4 05917000 FDBFDBA EQU ISTFDB 05918000 CSCDEB EQU ISTCSCB+152 05919000 CSCHDR EQU ISTCSCB+148 05920000 CSCRSVD EQU ISTCSCB+145 05921000 CSCTEXT EQU ISTCSCB+19 05922000 CSCRSV02 EQU ISTCSCB+18 05923000 CSCCID EQU ISTCSCB+17 05924000 CSCUCMID EQU ISTCSCB+16 05925000 CSCCMDLN EQU ISTCSCB+14 05926000 CSCLNGTH EQU ISTCSCB+12 05927000 CSCRSV01 EQU ISTCSCB+11 05928000 CSCRES2 EQU ISTCSCB+10 05929000 CSCFLAGS EQU ISTCSCB+9 05930000 CSCVERB EQU ISTCSCB+8 05931000 CSCLAST EQU ISTCSCB+4 05932000 CSCNEXT EQU ISTCSCB 05933000 CSPUNUSD EQU CSPRSC2B+4 05934000 CSPUECBA EQU CSPRSC2B 05935000 CSPTRDTE EQU ISTCSP+28 05936000 CSPRLRPH EQU ISTCSP+24 05937000 CSPNO EQU ISTCSP+22 05938000 CSPCC EQU ISTCSP+20 05939000 CSPDATA EQU ISTCSP+16 05940000 CSPRSCE EQU ISTCSP+12 05941000 CSPDEST EQU ISTCSP+8 05942000 CSPSRC EQU ISTCSP+4 05943000 @NM00101 EQU CSPOPT2 05944000 CSPRSC2F EQU CSPOPT2 05945000 CSPWASQD EQU CSPOPT2 05946000 CSPACQS EQU CSPOPT2 05947000 CSPACES EQU CSPOPT2 05948000 CSPNOREL EQU CSPOPT2 05949000 CSPCOREQ EQU CSPOPT2 05950000 CSPSTAP EQU CSPOPT2 05951000 @NM00100 EQU CSPOPT1 05952000 CSPANY EQU CSPOPT1 05953000 CSPACT EQU CSPOPT1 05954000 CSPSESS EQU CSPOPT1 05955000 CSPPND EQU CSPOPT1 05956000 CSPLOGI EQU CSPOPT1 05957000 CSPQ EQU CSPOPT1 05958000 CSPRSC EQU CSPOPT1 05959000 CSPIDX EQU ISTCSP 05960000 CRPCHAIN EQU CRPRRPLP 05961000 CRPRRPL EQU ISTCRPL 05962000 NMLRSV05 EQU ISTNMLPB+96 05963000 NMLRSV04 EQU ISTNMLPB+92 05964000 NMLDRDTE EQU ISTNMLPB+88 05965000 NMECBPTR EQU ISTNMLPB+84 05966000 NMLRSV02 EQU ISTNMLPB+82 05967000 NMLRSV06 EQU ISTNMLPB+81 05968000 NMIPSEQ EQU ISTNMLPB+80 05969000 NMNCSPL EQU NMRDTEA 05970000 NMRSV01 EQU NMLCWCMD+1 05971000 NMECRST EQU NMLCWCMD+1 05972000 NMVRYPRG EQU NMLCWCMD+1 05973000 NMSTCTLF EQU NMLCWCMD+1 05974000 NMSTCTLI EQU NMLCWCMD+1 05975000 NMSTCTLR EQU NMLCWCMD 05976000 NMFBDTA EQU NMLCWCMD 05977000 NMRDBLK EQU NMLCWCMD 05978000 NMDSEOC EQU NMLCWCMD 05979000 NMPURGE EQU NMLCWCMD 05980000 NMRESTI EQU NMLCWCMD 05981000 NMCNTCT EQU NMLCWCMD 05982000 NMINVT EQU NMLCWCMD 05983000 NMPSRTRY EQU NMCONTRL+1 05984000 NMFNCTCD EQU NMCONTRL 05985000 NMLCW3 EQU ISTNMLPB+64 05986000 NMLCW2 EQU ISTNMLPB+56 05987000 NMLCPB EQU ISTNMLPB 05988000 PLCLCCW EQU ISTPLCPB+56 05989000 PLCLCPB EQU ISTPLCPB 05990000 DCLECHAR EQU ISTDCLCP+98 05991000 DCLIOLEN EQU ISTDCLCP+96 05992000 DCLBTLEN EQU ISTDCLCP+92 05993000 DCLCLDOA EQU ISTDCLCP+88 05994000 DCLIOBUF EQU ISTDCLCP+84 05995000 DCLLDO1 EQU ISTDCLCP+80 05996000 DCLRSV03 EQU ISTDCLCP+79 05997000 DCLRSV02 EQU DCLFLAG1 05998000 DCLRPLS EQU DCLFLAG1 05999000 DCLBTEIS EQU DCLFLAG1 06000000 DCLNODE EQU DCLFLAG1 06001000 DCLRSV04 EQU DCLFLAG1 06002000 DCLSRESW EQU DCLFLAG1 06003000 DCLBNSP EQU DCLRFLG 06004000 DCLCONV EQU DCLRFLG 06005000 DCLRSV01 EQU DCLRFLG 06006000 DCLRQTP EQU DCLRTYPE 06007000 DCLRPLA EQU ISTDCLCP+72 06008000 DCLLCCW3 EQU ISTDCLCP+64 06009000 DCLLCCW2 EQU ISTDCLCP+56 06010000 DCLLCPB EQU ISTDCLCP 06011000 LCPFTYPE EQU LCPRPHA 06012000 LCPRSTQH EQU LCPLCCW 06013000 LCPCLREP EQU ISTLCPB+44 06014000 LCPUBFSB EQU LCPFLCCW 06015000 LCPRSV77 EQU ISTLCPB+39 06016000 LCPLCCWC EQU ISTLCPB+38 06017000 LCPRSV78 EQU LCPFLG1 06018000 LCPTRANS EQU LCPFLG1 06019000 LCPSTLB EQU LCPFLG1 06020000 LCPREDRV EQU LCPFLG1 06021000 LCPDIRPT EQU LCPFLG1 06022000 LCPINTER EQU LCPFLG1 06023000 LCPRESET EQU LCPFLG1 06024000 LCPSTYPE EQU ISTLCPB+36 06025000 LCPFSNCH EQU ISTLCPB+34 06026000 LCPFOSN EQU ISTLCPB+32 06027000 LCPTLBAD EQU ISTLCPB+28 06028000 LCPFDB2 EQU LCPFDBA+1 06029000 LCPFDB1 EQU LCPFDBA 06030000 LCPNXLCW EQU ISTLCPB+20 06031000 LCPDAF EQU LCPCID+2 06032000 LCPSAF EQU LCPCID 06033000 LCPLCCW1 EQU ISTLCPB+12 06034000 LCPRRCNT EQU LCPSEQ+1 06035000 LCPRRCCT EQU LCPSEQ 06036000 LCPATOP EQU LCPFLAG2 06037000 LCPFREE EQU LCPFLAG2 06038000 LCPDSTAT EQU LCPFLAG2 06039000 LCPEXRES EQU LCPFID0 06040000 LCPZRIMM EQU LCPTLBPI 06041000 LCPRSTRT EQU LCPFLAG2 06042000 LCPASYN EQU LCPFLAG2 06043000 LCPPRFLG EQU LCPFLAG2 06044000 LCPZMIRC EQU LCPRUCNT 06045000 LCPCHAI2 EQU LCPCHAIN+1 06046000 LCPCHNG EQU LCPCHAI1 06047000 LCPZRT0B EQU LCPMNRCD 06048000 LCPZRT0A EQU LCPMNRCD 06049000 LCPZRTL9 EQU LCPZRT09 06050000 LCPZRTL8 EQU LCPZRT08 06051000 LCPZRTL7 EQU LCPZRT07 06052000 LCPZRTL6 EQU LCPZRT06 06053000 LCPZRTL5 EQU LCPZRT05 06054000 LCPZRTL4 EQU LCPZRT04 06055000 LCPZRTL3 EQU LCPZRT03 06056000 LCPZRTL2 EQU LCPZRT02 06057000 LCPZRT01 EQU LCPFLAGS 06058000 LCPZRT00 EQU LCPFLAGS 06059000 LCPLNGTH EQU ISTLCPB+1 06060000 LCPTYPE EQU ISTLCPB 06061000 LCCWDATA EQU ISTLCCW+4 06062000 LCCWCNT EQU ISTLCCW+2 06063000 LCCWACI EQU LCCWFLAG 06064000 LCCWRFI EQU LCCWFLAG 06065000 LCCWPER EQU LCCWLSI 06066000 LCCWIDAT EQU LCCWFLAG 06067000 LCCWNTVC EQU LCCWFLAG 06068000 LCCWCKPT EQU LCCWFLAG 06069000 LCCWCC EQU LCCWFLAG 06070000 LCCWCD EQU LCCWFLAG 06071000 LCCWTYPE EQU LCCWCTL 06072000 LCCWMODE EQU LCCWCTL 06073000 LCCWSOP EQU LCCWRWOP 06074000 @NM00099 EQU LCCWRWOP 06075000 LCCWSD EQU LCCWOP 06076000 LCCWSI EQU LCCWOP 06077000 CKPABEND EQU ISTCKPAB+92 06078000 CKPLOCK EQU ISTCKPAB+88 06079000 CKPABFPH EQU ISTCKPAB+84 06080000 CKPABRPH EQU ISTCKPAB+80 06081000 CKPABLN EQU ISTCKPAB+78 06082000 CKPABE15 EQU CKPABERR+1 06083000 CKPABE14 EQU CKPABERR+1 06084000 CKPABE13 EQU CKPABERR+1 06085000 CKPABE12 EQU CKPABERR+1 06086000 CKPABE11 EQU CKPABERR+1 06087000 CKPABE10 EQU CKPABERR+1 06088000 CKPABE9 EQU CKPABERR+1 06089000 CKPABE8 EQU CKPABERR+1 06090000 CKPABE7 EQU CKPABERR 06091000 CKPABE5 EQU CKPABERR 06092000 CKPABE4 EQU CKPABERR 06093000 CKPABE3 EQU CKPABERR 06094000 CKPABE2 EQU CKPABERR 06095000 CKPABE1 EQU CKPABERR 06096000 CKPABOK EQU CKPABERR 06097000 CKPABBUF EQU ISTCKPAB+72 06098000 CKPABR EQU CKPABTTR+3 06099000 CKPABTTT EQU CKPABTTR 06100000 CKPABICN EQU ISTCKPAB+64 06101000 CKPABLCP EQU ISTCKPAB+60 06102000 CKPABLCT EQU ISTCKPAB+58 06103000 @NM00098 EQU CKPABFFF+1 06104000 CKPABSPB EQU CKPABFFF+1 06105000 CKPABPER EQU CKPABFFF+1 06106000 CKPABUED EQU CKPABFFF+1 06107000 CKPABURZ EQU CKPABFFF 06108000 CKPABUFT EQU CKPABFFF 06109000 CKPABFBF EQU CKPABFFF 06110000 CKPABEOP EQU CKPABFFF 06111000 CKPABFER EQU CKPABFFF 06112000 CKPABRFT EQU CKPABFFF 06113000 CKPABFLK EQU CKPABFFF 06114000 CKPABDSB EQU ISTCKPAB+52 06115000 CKPABFRR EQU CKPABRTF+3 06116000 CKPABFTT EQU CKPABRTF 06117000 CKPABRTL EQU CKPABREC+12 06118000 CKPABRTD EQU CKPABREC+8 06119000 CKPABBTL EQU CKPABREC+6 06120000 CKPABBTD EQU CKPABREC+4 06121000 CKPABBTI EQU CKPABREC+2 06122000 CKPABRUN EQU CKPABREC 06123000 CKPABPAB EQU ISTCKPAB 06124000 ICXWORK EQU ISTICX+8 06125000 ICXAVLCT EQU ISTICX+6 06126000 ICXREQCT EQU ISTICX+4 06127000 ICXUECBA EQU ISTICX 06128000 @NM00097 EQU ACEFLAGS 06129000 ACETAKER EQU ACEFLAGS 06130000 ACEPREMR EQU ACEFLAGS 06131000 ACETAKEN EQU ACEFLAGS 06132000 ACEPREMD EQU ACEFLAGS 06133000 ACERPHA EQU ISTACE+16 06134000 ACEOBJQ EQU ISTACE+12 06135000 ACESUBJQ EQU ISTACE+8 06136000 ACEOBJ EQU ISTACE+4 06137000 ACESUBJ EQU ISTACE 06138000 ICERSC2B EQU ISTICE+36 06139000 ICEUECBX EQU ISTICE+32 06140000 @NM00096 EQU ISTICE+29 06141000 @NM00095 EQU ICEFLAGS 06142000 ICESTAPR EQU ICEFLAGS 06143000 ICERSC2F EQU ICEFLAGS 06144000 ICELGON EQU ICEFLAGS 06145000 ICEICX EQU ICEFLAGS 06146000 ICESPEC EQU ICEFLAGS 06147000 ICERPHA EQU ISTICE+24 06148000 ICEDATA EQU ISTICE+20 06149000 ICESIDE EQU ISTICE+16 06150000 ICEOBJQ EQU ISTICE+12 06151000 ICESUBJQ EQU ISTICE+8 06152000 ICEOBJ EQU ISTICE+4 06153000 ICESUBJ EQU ISTICE 06154000 ATCAOS EQU ISTATCVT+1584 06155000 ATCPOPAB EQU ATCAOSM+640 06156000 ATCVIOPM EQU ATCAOSM+636 06157000 ATCTPMMI EQU ATCAOSM+632 06158000 ATCTPMPB EQU ATCAOSM+600 06159000 ATCRSV88 EQU ATCAOSM+596 06160000 ATCRPLCT EQU ATCAOSM+594 06161000 ATCCRACT EQU ATCAOSM+592 06162000 ATCSRBCT EQU ATCAOSM+590 06163000 ATCRSV75 EQU ATCAOSM+589 06164000 ATCRSV66 EQU ATCZFLAG 06165000 ATCZF001 EQU ATCZFLAG 06166000 ATCTPCP1 EQU ATCAOSM+584 06167000 ATCTPCP0 EQU ATCAOSM+580 06168000 ATCAICTN EQU ATCAOSM+576 06169000 ATCZR01 EQU ATCAOSM+572 06170000 ATCMPLTA EQU ATCAOSM+568 06171000 ATCASCB EQU ATCAOSM+564 06172000 ATCAP86 EQU ATCAOSM+560 06173000 ATCAP85 EQU ATCAOSM+556 06174000 ATCAP84 EQU ATCAOSM+552 06175000 ATCAP82 EQU ATCAOSM+544 06176000 ATCAP69 EQU ATCAOSM+540 06177000 ATCAP66 EQU ATCAOSM+536 06178000 ATCAP62 EQU ATCAOSM+532 06179000 ATCAPC59 EQU ATCAOSM+528 06180000 ATCAP56 EQU ATCAOSM+524 06181000 ATCAP55 EQU ATCAOSM+520 06182000 ATCRCFY0 EQU ATCAOSM+516 06183000 ATCAP41 EQU ATCAOSM+512 06184000 ATCAPC25 EQU ATCAOSM+508 06185000 ATCAP23 EQU ATCAOSM+504 06186000 ATCTPSPB EQU ATCAOSM+472 06187000 ATCTRMPB EQU ATCAOSM+440 06188000 ATCAPBE EQU ATCAOSM+436 06189000 ATCPSTA EQU ATCAOSM+432 06190000 ATCSMABF EQU ATCAOSM+428 06191000 ATCSMAPR EQU ATCAOSM+424 06192000 ATCTPWQA EQU ATCAOSM+420 06193000 ATCSMAID EQU ATCAOSM+416 06194000 ATCSMARA EQU ATCAOSM+412 06195000 ATCCACXA EQU ATCAOSM+408 06196000 ATCZLAAB EQU ATCAOSM+404 06197000 ATCATA10 EQU ATCAOSM+400 06198000 ATCHLTCB EQU ATCAOSM+396 06199000 @NM00094 EQU ATCVTFLG 06200000 ATCVTACT EQU ATCVTFLG 06201000 ATCRPT40 EQU ATCAOSM+388 06202000 ATCRPT39 EQU ATCAOSM+384 06203000 ATCRPT38 EQU ATCAOSM+380 06204000 ATCRPT37 EQU ATCAOSM+376 06205000 ATCRPT36 EQU ATCAOSM+372 06206000 ATCRPT35 EQU ATCAOSM+368 06207000 ATCRPT34 EQU ATCAOSM+364 06208000 ATCRPT33 EQU ATCAOSM+360 06209000 ATCRPT32 EQU ATCAOSM+356 06210000 ATCRPT31 EQU ATCAOSM+352 06211000 ATCRPT30 EQU ATCAOSM+348 06212000 ATCRPT29 EQU ATCAOSM+344 06213000 ATCRPT28 EQU ATCAOSM+340 06214000 ATCRPT27 EQU ATCAOSM+336 06215000 ATCRPT26 EQU ATCAOSM+332 06216000 ATCRPT25 EQU ATCAOSM+328 06217000 ATCRPT24 EQU ATCAOSM+324 06218000 ATCRPT23 EQU ATCAOSM+320 06219000 ATCRPT22 EQU ATCAOSM+316 06220000 ATCRPT21 EQU ATCAOSM+312 06221000 ATCRPT20 EQU ATCAOSM+308 06222000 ATCRPT19 EQU ATCAOSM+304 06223000 ATCRPLAC EQU ATCRPLCN+2 06224000 ATCRPLRC EQU ATCRPLCN 06225000 ATCCRPLQ EQU ATCCRPL 06226000 ATCSRBAC EQU ATCSRBCN+2 06227000 ATCSRBRC EQU ATCSRBCN 06228000 ATCSRBQ EQU ATCSRB 06229000 ATCCRAAC EQU ATCCRACN+2 06230000 ATCCRARC EQU ATCCRACN 06231000 ATCCRAQ EQU ATCCRA 06232000 ATCRPT12 EQU ATCAOSM+276 06233000 ATCDMAPP EQU ATCAOSM+272 06234000 ATCAP38 EQU ATCAOSM+268 06235000 ATCAP37 EQU ATCAOSM+264 06236000 ATCZDFJ0 EQU ATCAOSM+260 06237000 ATCAP51 EQU ATCAOSM+256 06238000 ATCZPAB2 EQU ATCAOSM+224 06239000 ATCZPAB1 EQU ATCAOSM+192 06240000 ATCZLFVT EQU ATCAOSM+188 06241000 ATCZLPVT EQU ATCAOSM+184 06242000 ATCZDVTX EQU ATCAOSM+180 06243000 ATCZDVTA EQU ATCAOSM+176 06244000 ATCZDVT9 EQU ATCAOSM+172 06245000 ATCZDVT8 EQU ATCAOSM+168 06246000 ATCZDVT7 EQU ATCAOSM+164 06247000 ATCRSV56 EQU ATCDAPVT+22 06248000 ATCDAPDG EQU ATCDAPVT+20 06249000 ATCDXCEA EQU ATCDAPVT+16 06250000 ATCDCEA EQU ATCDAPVT+12 06251000 ATCDPCIA EQU ATCDAPVT+8 06252000 ATCDSIOA EQU ATCDAPVT+4 06253000 ATCDEOEA EQU ATCDAPVT 06254000 ATCZLAEA EQU ATCLDAPP+16 06255000 ATCZLCEA EQU ATCLDAPP+12 06256000 ATCRSV17 EQU ATCLDAPP+8 06257000 ATCSMFRR EQU ATCLDAPP+4 06258000 ATCCDTID EQU ATCLDAPP 06259000 ATCZAEA EQU ATCICAPP+16 06260000 ATCZCEA EQU ATCICAPP+12 06261000 ATCCDTCB EQU ATCICAPP+8 06262000 ATCZSIOA EQU ATCICAPP+4 06263000 ATCCDRPH EQU ATCICAPP 06264000 ATCAP65 EQU ATCAOSM+96 06265000 ATCZDVT6 EQU ATCAOSM+92 06266000 ATCZDVT4 EQU ATCAOSM+88 06267000 ATCZDVT3 EQU ATCAOSM+84 06268000 ATCZDVT1 EQU ATCAOSM+80 06269000 ATCICNCB EQU ATCAOSM+76 06270000 ATCZPSVT EQU ATCAOSM+72 06271000 ATCZFSVT EQU ATCAOSM+68 06272000 ATCAP64 EQU ATCAOSM+64 06273000 ATCAP63 EQU ATCAOSM+60 06274000 ATCAP61 EQU ATCAOSM+56 06275000 ATCAP58 EQU ATCAOSM+52 06276000 ATCAP57 EQU ATCAOSM+48 06277000 ATCAP54 EQU ATCAOSM+44 06278000 ATCAP53 EQU ATCAOSM+40 06279000 ATCAP52 EQU ATCAOSM+36 06280000 ATCAP34 EQU ATCAOSM+32 06281000 ATCAP32 EQU ATCAOSM+28 06282000 ATCAP31 EQU ATCAOSM+24 06283000 ATCAP12 EQU ATCAOSM+20 06284000 ATCAP11 EQU ATCAOSM+16 06285000 ATCCMTCB EQU ATCAOSM+12 06286000 ATCPRPH EQU ATCAOSM+8 06287000 ATCGSRBF EQU ATCGSRBG 06288000 ATCSRBRT EQU ATCAOSM 06289000 @NM00093 EQU @NM00092 06290000 ATCVTMAB EQU @NM00092 06291000 @NM00091 EQU ATCVTBAM 06292000 ATCVDLOK EQU ISTATCVT+904 06293000 ATCVFPAB EQU ISTATCVT+872 06294000 ATCVDPAB EQU ISTATCVT+840 06295000 ATCIOECB EQU ISTATCVT+836 06296000 ATCINCW3 EQU ISTATCVT+832 06297000 ATCMODTB EQU ISTATCVT+828 06298000 ATCUSSPT EQU ISTATCVT+824 06299000 ATCSRTAB EQU ISTATCVT+820 06300000 @NM00090 EQU ISTATCVT+819 06301000 @NM00089 EQU ATCSTAT2 06302000 ATCTRSMS EQU ATCSTAT2 06303000 ATCTRLOK EQU ATCSTAT2 06304000 ATCTRPSS EQU ATCSTAT2 06305000 ATCTRESC EQU ATCSTAT2 06306000 ATCTRAPI EQU ATCSTAT2 06307000 ATCNMCTR EQU ISTATCVT+816 06308000 ATCSEC51 EQU ATCSECST 06309000 ATCSEC40 EQU ATCSIPD+8 06310000 ATCSEC30 EQU ATCSIPD+4 06311000 ATCSEC21 EQU ATCSIPD 06312000 ATCSEC10 EQU ATCSOPD+4 06313000 ATCSEC01 EQU ATCSOPD 06314000 ATCPOIA EQU ATCRNO+1 06315000 @NM00088 EQU ATCRNO 06316000 ATCPODVT EQU ISTATCVT+784 06317000 ATCS49XL EQU ISTATCVT+780 06318000 ATCS49XI EQU ISTATCVT+776 06319000 ATCLCLCT EQU ATCVLCNT+2 06320000 ATCRNCNT EQU ATCVLCNT 06321000 ATCCFEAD EQU ISTATCVT+768 06322000 ATCPTR00 EQU ISTATCVT+736 06323000 ATCRSV10 EQU ISTATCVT+704 06324000 ATCTACB EQU ISTATCVT+700 06325000 ATCVTINM EQU ISTATCVT+696 06326000 ATCTCLIM EQU ISTATCVT+692 06327000 ATCTCLOM EQU ISTATCVT+688 06328000 ATCVTIPB EQU ISTATCVT+656 06329000 ATCTCIPB EQU ISTATCVT+624 06330000 ATCTIPAB EQU ISTATCVT+592 06331000 ATCOCCCB EQU ISTATCVT+588 06332000 ATCOCCOB EQU ISTATCVT+584 06333000 ATCCDLAD EQU ISTATCVT+580 06334000 ATCCCLAD EQU ISTATCVT+576 06335000 ATCDLRPB EQU ISTATCVT+544 06336000 ATCPGPAB EQU ISTATCVT+512 06337000 ATCVPAB1 EQU ISTATCVT+480 06338000 ATCRSV97 EQU ISTATCVT+476 06339000 ATCRDTLK EQU ISTATCVT+472 06340000 ATCVOCLK EQU ISTATCVT+468 06341000 ATCCDFDN EQU ISTATCVT+464 06342000 ATCCDFIN EQU ISTATCVT+460 06343000 ATCDVTLK EQU ISTATCVT+456 06344000 ATCAP36 EQU ISTATCVT+452 06345000 ATCAP35 EQU ISTATCVT+448 06346000 ATCAP33 EQU ISTATCVT+444 06347000 ATCRSV99 EQU ISTATCVT+440 06348000 ATCONFIG EQU ISTATCVT+432 06349000 ATCNODDS EQU ISTATCVT+428 06350000 ATCNODEL EQU ISTATCVT+420 06351000 ATCRSV69 EQU ISTATCVT+416 06352000 ATCAPCR5 EQU ISTATCVT+412 06353000 ATCLDECB EQU ISTATCVT+408 06354000 ATCLDNCS EQU ISTATCVT+404 06355000 ATCCDPTR EQU ISTATCVT+400 06356000 ATCADEL EQU ISTATCVT+396 06357000 ATCTODVT EQU ISTATCVT+392 06358000 ATCDEBCH EQU ISTATCVT+388 06359000 ATCHBSIZ EQU ATCHPGM+2 06360000 ATCHBFNO EQU ATCHPGM 06361000 ATCCRME EQU ISTATCVT+380 06362000 ATCRVCHS EQU ISTATCVT+372 06363000 ATCECTLP EQU ISTATCVT+368 06364000 ATCZDVTB EQU ISTATCVT+364 06365000 ATCECPRT EQU ISTATCVT+360 06366000 ATCVTLOD EQU ISTATCVT+356 06367000 ATCTRPAB EQU ISTATCVT+352 06368000 ATCMSGM EQU ISTATCVT+348 06369000 ATCMSGP EQU ISTATCVT+344 06370000 ATCEPT EQU ISTATCVT+340 06371000 ATCDVT EQU ISTATCVT+336 06372000 ATCTRCPT EQU ISTATCVT+332 06373000 ATCDVLOD EQU ISTATCVT+328 06374000 ATCALERT EQU ISTATCVT+324 06375000 ATCEPA EQU ISTATCVT+320 06376000 ATCSAF EQU ISTATCVT+318 06377000 ATCXRANG EQU ISTATCVT+317 06378000 ATCLAST EQU ATCSHRFG 06379000 ATCSHRTN EQU ISTATCVT+308 06380000 ATCUEP EQU ISTATCVT+304 06381000 ATCOCRT EQU ISTATCVT+300 06382000 ATCCSMA EQU ATCCSMR 06383000 ATCESC02 EQU ISTATCVT+292 06384000 ATCESC01 EQU ISTATCVT+288 06385000 ATCCDFND EQU ISTATCVT+284 06386000 ATCCDDEL EQU ISTATCVT+280 06387000 ATCCDADD EQU ISTATCVT+276 06388000 ATCMNT EQU ISTATCVT+272 06389000 ATCRSV16 EQU ISTATCVT+270 06390000 ATCMAXID EQU ISTATCVT+269 06391000 ATCMSGSP EQU ATCCOM+268 06392000 ATCCIDM EQU ATCCOM+266 06393000 ATCACTRM EQU ATCCOM+264 06394000 ATCNERAP EQU ATCCOM+260 06395000 ATCNESAL EQU ATCCOM+256 06396000 ATCRCC65 EQU ATCCOM+252 06397000 ATCRCC26 EQU ATCCOM+248 06398000 ATCRCC63 EQU ATCCOM+244 06399000 ATCRSV11 EQU ATCCOM+242 06400000 ATCVTMID EQU ATCCOM+240 06401000 ATCAPOST EQU ATCCOM+236 06402000 ATCNERFN EQU ATCCOM+232 06403000 ATCNERNE EQU ATCCOM+228 06404000 ATCNERCV EQU ATCCOM+224 06405000 ATCNERST EQU ATCCOM+220 06406000 ATCDCC61 EQU ATCCOM+216 06407000 ATCDCC60 EQU ATCCOM+212 06408000 ATCSRTDF EQU ATCCOM+208 06409000 ATCSRTAD EQU ATCCOM+204 06410000 ATCFIRA EQU ATCCOM+200 06411000 ATCSMRC EQU ATCCOM+192 06412000 ATCSMRS EQU ATCCOM+188 06413000 ATCSMQU EQU ATCCOM+184 06414000 ATCSMRQ EQU ATCCOM+180 06415000 ATCACDA EQU ATCCOM+176 06416000 ATCSTMA EQU ATCCOM+172 06417000 ATCFRSTR EQU ATCCOM+168 06418000 ATCGTSTR EQU ATCCOM+164 06419000 ATCREADA EQU ATCCOM+160 06420000 ATCALOAD EQU ATCCOM+156 06421000 ATCBLDLA EQU ATCCOM+152 06422000 ATCFBRPH EQU ATCCOM+148 06423000 ATCBFTRC EQU ATCCOM+144 06424000 ATCTPBUF EQU ATCTHTRC 06425000 ATCREMOV EQU ATCCOM+136 06426000 ATCADD EQU ATCCOM+132 06427000 ATCDVTPT EQU ATCCOM+124 06428000 ATCFEPT EQU ATCCOM+120 06429000 ATCFDVT EQU ATCCOM+116 06430000 ATCCONFT EQU ATCCOM+112 06431000 ATCPTCHA EQU ATCCOM+108 06432000 ATCAUTHA EQU ATCCOM+104 06433000 ATCACCTA EQU ATCCOM+100 06434000 ATCRDTH EQU ATCCOM+96 06435000 ATCFRSCH EQU ATCCOM+92 06436000 ATCFSB EQU ATCCOM+88 06437000 ATCHLTMS EQU ATCCOM+84 06438000 ATCECPRM EQU ATCCOM+80 06439000 ATCECNET EQU ATCCOM+76 06440000 ATCECOPC EQU ATCCOM+72 06441000 ATCVPARM EQU ATCCOM+68 06442000 ATCECVRQ EQU ATCCOM+64 06443000 ATCECSES EQU ATCCOM+60 06444000 ATCOCHA EQU ATCCOM+56 06445000 ATCDSPLQ EQU ATCCOM+52 06446000 ATCECDSP EQU ATCCOM+48 06447000 ATCVARYQ EQU ATCCOM+44 06448000 ATCECVRY EQU ATCCOM+40 06449000 ATCHALTQ EQU ATCCOM+36 06450000 ATCECHLT EQU ATCCOM+32 06451000 ATCMODQ EQU ATCCOM+28 06452000 ATCECMOD EQU ATCCOM+24 06453000 ATCASCHD EQU ATCCOM+20 06454000 ATCSRT EQU ATCCOM+16 06455000 ATCRDT EQU ATCCOM+12 06456000 ATCDCFRR EQU ATCCOM+8 06457000 ATCAPI EQU ATCCOM+4 06458000 ATCRSV04 EQU ATCSTAT4 06459000 ATCVTTRC EQU ATCSTAT4 06460000 ATCNCSD EQU ATCSTAT4 06461000 ATCMTST EQU ATCSTAT4 06462000 ATCTPRT EQU ATCSTAT4 06463000 ATCPRTAT EQU ATCSTAT4 06464000 @NM00087 EQU ATCPOFLG 06465000 ATCPOUNS EQU ATCPOFLG 06466000 ATCHSDMF EQU ATCSTFLG 06467000 @NM00086 EQU ATCSTAT1 06468000 ATCMDHLT EQU ATCSTAT1 06469000 ATCINHLT EQU ATCSTAT1 06470000 ATCNETSL EQU ATCSTAT1 06471000 ATCQKHLT EQU ATCSTAT1 06472000 ATCSNHLT EQU ATCSTAT1 06473000 ATCACTIV EQU ATCSTAT1 06474000 ATCSTART EQU ATCSTAT1 06475000 RPHNEXPO EQU ISTRPH+104 06476000 RPHSAV16 EQU RPHWORK+60 06477000 RPHSAV15 EQU RPHWORK+56 06478000 RPHSAV14 EQU RPHWORK+52 06479000 RPHSAV13 EQU RPHWORK+48 06480000 RPHSAV12 EQU RPHWORK+44 06481000 RPHSAV11 EQU RPHWORK+40 06482000 RPHSAV10 EQU RPHWORK+36 06483000 RPHSAVE9 EQU RPHWORK+32 06484000 RPHSAVE8 EQU RPHWORK+28 06485000 RPHSAVE7 EQU RPHWORK+24 06486000 RPHSAVE6 EQU RPHWORK+20 06487000 RPHSAVE5 EQU RPHWORK+16 06488000 RPHSAVE4 EQU RPHWORK+12 06489000 RPHSAVE3 EQU RPHWORK+8 06490000 RPHSAVE2 EQU RPHWORK+4 06491000 RPHSHALF EQU RPHSAVE1+2 06492000 RPHSBIT8 EQU RPHSBITS 06493000 RPHSBIT7 EQU RPHSBITS 06494000 RPHSBIT6 EQU RPHSBITS 06495000 RPHSBIT5 EQU RPHSBITS 06496000 RPHSBIT4 EQU RPHSBITS 06497000 RPHSBIT3 EQU RPHSBITS 06498000 RPHSBIT2 EQU RPHSBITS 06499000 RPHSBIT1 EQU RPHSBITS 06500000 RPHSBYTE EQU RPHSAVE1 06501000 RPHPABQP EQU RPHPABQA+1 06502000 RPHPABFG EQU RPHPABQA 06503000 RPHCRR EQU ISTRPH+32 06504000 RPHSRP34 EQU RPHSRPRM+2 06505000 RPHSRP12 EQU RPHSRPRM 06506000 RPHWEGT EQU RPHCSPA 06507000 RPHMAJCB EQU ISTRPH+21 06508000 RPHPABOF EQU ISTRPH+20 06509000 RPHRESUM EQU RPHRESMA+1 06510000 RPHRSV01 EQU RPHWPFLG 06511000 RPHPURGE EQU RPHWPFLG 06512000 RPHPT EQU RPHWPFLG 06513000 RPHWT EQU RPHWPFLG 06514000 RPHRSKEY EQU RPHWPFLG 06515000 RPHDVTA EQU ISTRPH+12 06516000 RPHTIK EQU RPHTSKID+3 06517000 @NM00085 EQU RPHTSKID 06518000 RPHRPHAP EQU RPHRPHA+1 06519000 @NM00084 EQU RPHRPHA 06520000 RPHGATE EQU RPHRPHA 06521000 @NM00083 EQU RPHFLGB 06522000 RPHRLCRA EQU RPHFLGB 06523000 RPHNRSAV EQU RPHFLGB 06524000 RPHPGCMP EQU RPHFLGB 06525000 RPHFBAPS EQU RPHFLGB 06526000 RPHBSSP EQU RPHFLGB 06527000 RPHLOCK EQU RPHFLGB 06528000 RPHFNFLG EQU RPHFSTLC 06529000 RPHMLTCP EQU RPHFLAGS 06530000 RPHSMCLR EQU RPHFLAGS 06531000 RPHSMTYP EQU RPHFLAGS 06532000 RPHSMQ EQU RPHFLAGS 06533000 RPHAUTEX EQU RPHAPTYP 06534000 RPHSPGIN EQU RPHFLAGS 06535000 RPHOGIND EQU RPHFLAGS 06536000 RPHLNGTH EQU RPHCNTL+1 06537000 RPHTYPE EQU RPHCNTL 06538000 LOKXCL EQU @NM00081 06539000 LOKPRY EQU @NM00081 06540000 @NM00082 EQU @NM00081 06541000 @NM00080 EQU LOKCHNG 06542000 LOKCT EQU ISTLOK 06543000 DYPPAB EQU ISTDYPAB+16 06544000 DYPRSV01 EQU ISTDYPAB+12 06545000 DYPTSKID EQU ISTDYPAB+8 06546000 DYPCHAIN EQU ISTDYPAB+4 06547000 DYPFLGS EQU ISTDYPAB+2 06548000 DYPLNGTH EQU ISTDYPAB+1 06549000 DYPTYPE EQU ISTDYPAB 06550000 PABRPHA EQU PABRPHFG+1 06551000 PABNODQ EQU PABFLAGS 06552000 PABINHBT EQU PABFLAGS 06553000 PABERLOK EQU PABERRLK 06554000 PABSSN EQU PABFLAGS 06555000 PABDYNAM EQU PABFLAGS 06556000 PABNORPR EQU PABFLAGS 06557000 PABPRIOR EQU PABFLAGS 06558000 PABAPYP EQU PABFLAGS 06559000 PABDVTA EQU ISTPAB+9 06560000 PABOFFST EQU ISTPAB+8 06561000 PABCHNGP EQU PABCHAIN+1 06562000 PABRSV02 EQU PABCHAIN 06563000 PABDELAY EQU PABCHAIN 06564000 PABRUNNG EQU PABCHAIN 06565000 PABRESET EQU PABCHAIN 06566000 PABUNCON EQU PABCHAIN 06567000 PABCDP EQU PABCHAIN 06568000 PABRESCH EQU PABCHAIN 06569000 PABCHNG EQU PABCHAIN 06570000 PABWEQP EQU PABWEQA+1 06571000 PABRSV01 EQU PABWEQA 06572000 PABWEQG EQU PABWEQA 06573000 ASXBEND EQU ASXB+232 06574000 ASXBRV25 EQU ASXB+228 06575000 ASXBRV24 EQU ASXB+224 06576000 ASXBPT0E EQU ASXB+220 06577000 ASXBCRB4 EQU ASXBCASW+3 06578000 ASXBCRB3 EQU ASXBCASW+2 06579000 ASXBCRB2 EQU ASXBCASW+1 06580000 ASXBCR06 EQU ASXBCRB1 06581000 ASXBCR05 EQU ASXBCRB1 06582000 ASXBCR04 EQU ASXBCRB1 06583000 ASXBCR03 EQU ASXBCRB1 06584000 ASXBCR02 EQU ASXBCRB1 06585000 ASXBCR01 EQU ASXBCRB1 06586000 ASXBTFD EQU ASXBCRB1 06587000 ASXBPIP EQU ASXBCRB1 06588000 ASXBCTDC EQU ASXB+212 06589000 ASXBTDCB EQU ASXB+208 06590000 ASXBRV19 EQU ASXB+204 06591000 ASXBRV18 EQU ASXB+200 06592000 ASXBRV17 EQU ASXB+196 06593000 ASXBRV16 EQU ASXB+192 06594000 ASXBLSRB EQU ASXBAEQ+20 06595000 ASXBFSRB EQU ASXBAEQ+16 06596000 ASXBLRQE EQU ASXBAEQ+12 06597000 ASXBFRQE EQU ASXBAEQ+8 06598000 ASXBLIQE EQU ASXBAEQ+4 06599000 ASXBFIQE EQU ASXBAEQ 06600000 ASXBETSK EQU ASXB+164 06601000 ASXBSIRB EQU ASXB+160 06602000 ASXBPSWD EQU ASXB+152 06603000 ASXBPRG EQU ASXB+136 06604000 ASXBRV26 EQU ASXB+132 06605000 ASXBOUSB EQU ASXB+128 06606000 ASXBDDR EQU ASXB+124 06607000 ASXBRCTD EQU ASXB+120 06608000 ASXBRSMD EQU ASXB+116 06609000 ASXBSPSA EQU ASXB+112 06610000 ASXBFRWA EQU ASXB+108 06611000 ASXBFLSA EQU ASXB+36 06612000 ASXBIHSA EQU ASXB+32 06613000 ASXBRV15 EQU ASXB+28 06614000 ASXBRV14 EQU ASXB+24 06615000 ASXBLWA EQU ASXB+20 06616000 ASXBMPST EQU ASXB+16 06617000 ASXBRS00 EQU ASXB+14 06618000 ASXBTCBS EQU ASXB+12 06619000 ASXBLTCB EQU ASXB+8 06620000 ASXBFTCB EQU ASXB+4 06621000 ASXBASXB EQU ASXB 06622000 ASXBEGIN EQU ASXB 06623000 ASCBEND EQU ASCB+208 06624000 ASCBSRBT EQU ASCB+200 06625000 ASCBSWTL EQU ASCB+196 06626000 ASCBRS14 EQU ASCB+195 06627000 ASCBSMCT EQU ASCB+194 06628000 ASCBRS12 EQU ASCB+192 06629000 ASCBPCTT EQU ASCB+188 06630000 ASCBVGTT EQU ASCB+184 06631000 ASCBRV43 EQU ASCBSRQ4 06632000 ASCBRV42 EQU ASCBSRQ4 06633000 ASCBRV41 EQU ASCBSRQ4 06634000 ASCBRV40 EQU ASCBSRQ4 06635000 ASCBRV39 EQU ASCBSRQ4 06636000 ASCBRV38 EQU ASCBSRQ4 06637000 ASCBRV37 EQU ASCBSRQ4 06638000 ASCBRV36 EQU ASCBSRQ4 06639000 ASCBRV35 EQU ASCBSRQ3 06640000 ASCBRV34 EQU ASCBSRQ3 06641000 ASCBRV33 EQU ASCBSRQ3 06642000 ASCBRV32 EQU ASCBSRQ3 06643000 ASCBRV31 EQU ASCBSRQ3 06644000 ASCBRV30 EQU ASCBSRQ3 06645000 ASCBRV29 EQU ASCBSRQ3 06646000 ASCBRV28 EQU ASCBSRQ3 06647000 ASCBRV27 EQU ASCBSRQ2 06648000 ASCBRV26 EQU ASCBSRQ2 06649000 ASCBRV25 EQU ASCBSRQ2 06650000 ASCBRV24 EQU ASCBSRQ2 06651000 ASCBRV23 EQU ASCBSRQ2 06652000 ASCBRV22 EQU ASCBSRQ2 06653000 ASCBRV21 EQU ASCBSRQ2 06654000 ASCBRV20 EQU ASCBSRQ2 06655000 ASCBRV19 EQU ASCBSRQ1 06656000 ASCBRV18 EQU ASCBSRQ1 06657000 ASCBRV17 EQU ASCBSRQ1 06658000 ASCBRV16 EQU ASCBSRQ1 06659000 ASCBRV15 EQU ASCBSRQ1 06660000 ASCBRV14 EQU ASCBSRQ1 06661000 ASCBRV13 EQU ASCBSRQ1 06662000 ASCBSTA EQU ASCBSRQ1 06663000 ASCBJBNS EQU ASCB+176 06664000 ASCBJBNI EQU ASCB+172 06665000 ASCBMCC EQU ASCB+168 06666000 ASCBRTWA EQU ASCB+164 06667000 ASCBIQEA EQU ASCB+160 06668000 ASCBXMPQ EQU ASCB+156 06669000 ASCBRS01 EQU ASCB+154 06670000 ASCBFMCT EQU ASCB+152 06671000 ASCBOUXB EQU ASCB+148 06672000 ASCBOUCB EQU ASCB+144 06673000 ASCBMECB EQU ASCB+140 06674000 ASCBQECB EQU ASCB+136 06675000 ASCBLSQH EQU ASCBLKGP+4 06676000 ASCBLOCK EQU ASCBLKGP 06677000 ASCBTCBS EQU ASCB+124 06678000 ASCBNVSC EQU ASCB+122 06679000 ASCBVSC EQU ASCB+120 06680000 ASCBSRBS EQU ASCB+118 06681000 ASCBSSRB EQU ASCB+116 06682000 ASCBRV06 EQU ASCBFLG2 06683000 ASCBRV05 EQU ASCBFLG2 06684000 ASCBRV04 EQU ASCBFLG2 06685000 ASCBSNQS EQU ASCBFLG2 06686000 ASCBS2S EQU ASCBFLG2 06687000 ASCBCEXT EQU ASCBFLG2 06688000 ASCBPXMT EQU ASCBFLG2 06689000 ASCBXMPT EQU ASCBFLG2 06690000 ASCBRF07 EQU ASCBDSP1 06691000 ASCBRF06 EQU ASCBDSP1 06692000 ASCBRF05 EQU ASCBDSP1 06693000 ASCBRF04 EQU ASCBDSP1 06694000 ASCBRF03 EQU ASCBDSP1 06695000 ASCBRF02 EQU ASCBDSP1 06696000 ASCBFAIL EQU ASCBDSP1 06697000 ASCBNOQ EQU ASCBDSP1 06698000 ASCBSWCT EQU ASCB+112 06699000 ASCBASXB EQU ASCB+108 06700000 ASCBTMCH EQU ASCB+104 06701000 ASCBNSWP EQU ASCBFLG1 06702000 ASCBTYP1 EQU ASCBFLG1 06703000 ASCBSTND EQU ASCBFLG1 06704000 ASCBABNT EQU ASCBFLG1 06705000 ASCBTERM EQU ASCBFLG1 06706000 ASCBS3S EQU ASCBFLG1 06707000 ASCBCMSH EQU ASCBFLG1 06708000 ASCBTOFF EQU ASCBFLG1 06709000 ASCBRF01 EQU ASCBRCTF 06710000 ASCBTMLW EQU ASCBRCTF 06711000 ASCBOUT EQU ASCBRCTF 06712000 ASCBWAIT EQU ASCBRCTF 06713000 ASCBRV08 EQU ASCBRCTF 06714000 ASCBFQU EQU ASCBRCTF 06715000 ASCBFRS EQU ASCBRCTF 06716000 ASCBTMNO EQU ASCBRCTF 06717000 ASCBAFFN EQU ASCBFW1 06718000 ASCBDUMP EQU ASCB+96 06719000 ASCBQSVC EQU ASCB+92 06720000 ASCBUBET EQU ASCB+88 06721000 ASCBECB EQU ASCB+84 06722000 ASCBJSTL EQU ASCB+80 06723000 ASCBEWST EQU ASCB+72 06724000 ASCBEJST EQU ASCB+64 06725000 ASCBTSB EQU ASCB+60 06726000 ASCBCSCB EQU ASCB+56 06727000 ASCBRSM EQU ASCB+52 06728000 ASCBLDA EQU ASCB+48 06729000 ASCBSTOR EQU ASCB+44 06730000 ASCBDP EQU ASCB+43 06731000 ASCBRV07 EQU ASCB+42 06732000 ASCBIOSM EQU ASCB+40 06733000 ASCBSEQN EQU ASCB+38 06734000 ASCBCPUS EQU ASCB+32 06735000 ASCBSPL EQU ASCB+28 06736000 ASCBIOSP EQU ASCB+24 06737000 ASCBSYNC EQU ASCBSUPC+4 06738000 ASCBSVRB EQU ASCBSUPC 06739000 ASCBCMSF EQU ASCB+12 06740000 ASCBBWDP EQU ASCB+8 06741000 ASCBFWDP EQU ASCB+4 06742000 ASCBASCB EQU ASCB 06743000 ASCBEGIN EQU ASCB 06744000 @NM00079 EQU TCBXTNT2+32 06745000 TCBRV181 EQU TCBRV173 06746000 TCBRV180 EQU TCBRV173 06747000 TCBRV179 EQU TCBRV173 06748000 TCBRV178 EQU TCBRV173 06749000 TCBRV177 EQU TCBRV173 06750000 TCBRV176 EQU TCBRV173 06751000 TCBRV175 EQU TCBRV173 06752000 TCBRV174 EQU TCBRV173 06753000 TCBRV172 EQU TCBRV164 06754000 TCBRV171 EQU TCBRV164 06755000 TCBRV170 EQU TCBRV164 06756000 TCBRV169 EQU TCBRV164 06757000 TCBRV168 EQU TCBRV164 06758000 TCBRV167 EQU TCBRV164 06759000 TCBRV166 EQU TCBRV164 06760000 TCBRV165 EQU TCBRV164 06761000 TCBRV163 EQU TCBRV155 06762000 TCBRV162 EQU TCBRV155 06763000 TCBRV161 EQU TCBRV155 06764000 TCBRV160 EQU TCBRV155 06765000 TCBRV159 EQU TCBRV155 06766000 TCBRV158 EQU TCBRV155 06767000 TCBRV157 EQU TCBRV155 06768000 TCBRV156 EQU TCBRV155 06769000 TCBRV154 EQU TCBRV146 06770000 TCBRV153 EQU TCBRV146 06771000 TCBRV152 EQU TCBRV146 06772000 TCBRV151 EQU TCBRV146 06773000 TCBRV150 EQU TCBRV146 06774000 TCBRV149 EQU TCBRV146 06775000 TCBRV148 EQU TCBRV146 06776000 TCBRV147 EQU TCBRV146 06777000 TCBRV145 EQU TCBXTNT2+26 06778000 TCBRV144 EQU TCBXTNT2+24 06779000 TCBRV143 EQU TCBXTNT2+20 06780000 TCBRV142 EQU TCBXTNT2+16 06781000 TCBRSV49 EQU TCBXTNT2+12 06782000 TCBEVENT EQU TCBXTNT2+8 06783000 TCBRCMP EQU TCBXTNT2+5 06784000 TCBRSVAB EQU TCBXTNT2+4 06785000 TCBGTFA EQU TCBGTF+1 06786000 TCBRSV47 EQU TCBTFLG 06787000 TCBRSV46 EQU TCBTFLG 06788000 TCBRSV45 EQU TCBTFLG 06789000 TCBRSV44 EQU TCBTFLG 06790000 TCBRSV43 EQU TCBTFLG 06791000 TCBDSPIT EQU TCBTFLG 06792000 TCBERRTN EQU TCBTFLG 06793000 TCBASYNC EQU TCBTFLG 06794000 @NM00078 EQU TCB+296 06795000 TCBSVCA2 EQU TCB+292 06796000 TCBSWASA EQU TCB+288 06797000 TCBDBTB EQU TCB+284 06798000 TCBRPT EQU TCB+280 06799000 TCBRV141 EQU TCBRV133 06800000 TCBRV140 EQU TCBRV133 06801000 TCBRV139 EQU TCBRV133 06802000 TCBRV138 EQU TCBRV133 06803000 TCBRV137 EQU TCBRV133 06804000 TCBRV136 EQU TCBRV133 06805000 TCBRV135 EQU TCBRV133 06806000 TCBRV134 EQU TCBRV133 06807000 TCBRV132 EQU TCBRV124 06808000 TCBRV131 EQU TCBRV124 06809000 TCBRV130 EQU TCBRV124 06810000 TCBRV129 EQU TCBRV124 06811000 TCBRV128 EQU TCBRV124 06812000 TCBRV127 EQU TCBRV124 06813000 TCBRV126 EQU TCBRV124 06814000 TCBRV125 EQU TCBRV124 06815000 TCBRV123 EQU TCBFBYT2 06816000 TCBRV122 EQU TCBFBYT2 06817000 TCBECBNV EQU TCBFBYT2 06818000 TCBSSSYN EQU TCBFBYT2 06819000 TCBFPRAP EQU TCBFBYT2 06820000 TCBFDW EQU TCBFBYT2 06821000 TCBFMW EQU TCBFBYT2 06822000 TCBCNCB EQU TCBFBYT2 06823000 TCBLLH EQU TCBFBYT1 06824000 TCBRV113 EQU TCBFBYT1 06825000 TCBEOT EQU TCBFBYT1 06826000 TCBRTM2 EQU TCBFBYT1 06827000 TCBPGNLY EQU TCBFBYT1 06828000 TCBNDIOS EQU TCBFBYT1 06829000 TCBACTIV EQU TCBFBYT1 06830000 TCBEOTFM EQU TCBFBYT1 06831000 TCBAFFN EQU TCB+274 06832000 TCBCCPVI EQU TCB+272 06833000 TCBUKYSP EQU TCB+268 06834000 TCBMODE EQU TCBESTAE+3 06835000 TCBERTYP EQU TCBESTAE+2 06836000 TCBRV314 EQU TCBESTRM 06837000 TCBRV313 EQU TCBESTRM 06838000 TCBRV312 EQU TCBESTRM 06839000 TCBRV311 EQU TCBESTRM 06840000 TCBRV310 EQU TCBESTRM 06841000 TCBRV309 EQU TCBESTRM 06842000 TCBRV308 EQU TCBESTRM 06843000 TCBETERM EQU TCBESTRM 06844000 TCBSCBKY EQU TCBESTAE 06845000 TCBRTM12 EQU TCB+260 06846000 TCBTCBID EQU TCB+256 06847000 TCBRSV96 EQU TCB+252 06848000 TCBSWA EQU TCB+248 06849000 TCBFOEA EQU TCBFOE+1 06850000 TCBRSV42 EQU TCBFOE 06851000 TCBRV306 EQU TCB+240 06852000 TCBRSV41 EQU TCB+239 06853000 TCBTID EQU TCB+238 06854000 TCBRSVAA EQU TCB+237 06855000 TCBABCUR EQU TCB+236 06856000 TCBTMSAV EQU TCB+232 06857000 TCBIOTIM EQU TCB+228 06858000 TCBRTWA EQU TCB+224 06859000 TCBBACK EQU TCB+220 06860000 TCBTIRB EQU TCB+216 06861000 TCBAECB EQU TCB+212 06862000 TCBEXT2A EQU TCBEXT2+1 06863000 TCBRSV39 EQU TCBEXT2 06864000 TCBSTMCT EQU TCB+207 06865000 TCBSYSCT EQU TCB+206 06866000 TCBRSV37 EQU TCB+205 06867000 TCBEXSVC EQU TCBDAR 06868000 TCBDARMS EQU TCBDAR 06869000 TCBDARWT EQU TCBDAR 06870000 TCBDARO EQU TCBDAR 06871000 TCBDARMC EQU TCBDARC 06872000 TCBDARD EQU TCBDAR 06873000 TCBDARS EQU TCBDAR 06874000 TCBDARP EQU TCBDAR 06875000 TCBGTOFM EQU TCBFLGS7 06876000 TCBADMP EQU TCBFLGS7 06877000 TCBRSTSK EQU TCBFLGS7 06878000 TCBSVCS EQU TCBFLGS7 06879000 TCBSTACK EQU TCBFLGS7 06880000 TCBRSV34 EQU TCBFLGS7 06881000 TCBRSV33 EQU TCBFLGS7 06882000 TCBGPECB EQU TCBFLGS7 06883000 TCBNTJS EQU TCBFLGS6 06884000 TCBAPG EQU TCBFLGS6 06885000 TCBMIGR EQU TCBFLGS6 06886000 TCBRV303 EQU TCBFLGS6 06887000 TCBSPVLK EQU TCBFLGS6 06888000 TCBCPU EQU TCBFLGS6 06889000 TCBPIE17 EQU TCBFLGS6 06890000 TCBRV EQU TCBFLGS6 06891000 TCBRSV79 EQU TCBNDSP5 06892000 TCBRSV78 EQU TCBNDSP5 06893000 TCBRSV77 EQU TCBNDSP5 06894000 TCBRSV76 EQU TCBNDSP5 06895000 TCBRSV75 EQU TCBNDSP5 06896000 TCBRSV74 EQU TCBNDSP5 06897000 TCBRSV95 EQU TCBNDSP5 06898000 TCBRSV94 EQU TCBNDSP5 06899000 TCBRSV93 EQU TCBNDSP4 06900000 TCBRSV92 EQU TCBNDSP4 06901000 TCBRSV91 EQU TCBNDSP4 06902000 TCBRSV90 EQU TCBNDSP4 06903000 TCBRSV89 EQU TCBNDSP4 06904000 TCBRSV88 EQU TCBNDSP4 06905000 TCBRSV87 EQU TCBNDSP4 06906000 TCBRSV86 EQU TCBNDSP4 06907000 TCBEXT1A EQU TCBEXT1+1 06908000 TCBRSV32 EQU TCBEXT1 06909000 TCBEXCPD EQU TCB+192 06910000 TCBIOBRC EQU TCB+188 06911000 TCBDDWTC EQU TCB+186 06912000 TCBDDEXC EQU TCB+184 06913000 TCBJSCBB EQU TCBJSCB+1 06914000 @NM00077 EQU TCBRECDE 06915000 TCBREC EQU TCBRECDE 06916000 TCBMDIDS EQU TCB+176 06917000 TCBNDINT EQU TCBNDSP3 06918000 TCBRSV27 EQU TCBNDSP3 06919000 TCBRSV26 EQU TCBNDSP3 06920000 TCBRSV25 EQU TCBNDSP3 06921000 TCBRSV24 EQU TCBNDSP3 06922000 TCBSRBND EQU TCBNDSP3 06923000 TCBRV302 EQU TCBNDSP3 06924000 TCBLJSND EQU TCBNDSP3 06925000 TCBABE EQU TCBNDSP2 06926000 TCBDSS EQU TCBNDSP2 06927000 TCBOWAIT EQU TCBNDSP2 06928000 TCBIWAIT EQU TCBNDSP2 06929000 TCBNDTS EQU TCBNDSP2 06930000 TCBNDSVC EQU TCBNDSP2 06931000 TCBSTPP EQU TCBNDSP2 06932000 TCBABD EQU TCBNDSP2 06933000 TCBRSV22 EQU TCBNDSP1 06934000 TCBPIEND EQU TCBNDSP1 06935000 TCBTPSP EQU TCBNDSP1 06936000 TCBDDRND EQU TCBNDSP1 06937000 TCBRSPND EQU TCBNDSP1 06938000 TCBRSTND EQU TCBNDSP1 06939000 TCBDARPN EQU TCBNDSP1 06940000 TCBDARTN EQU TCBNDSP1 06941000 TCBNDSP0 EQU TCBNDSP 06942000 TCBUSER EQU TCB+168 06943000 TCBTCTB EQU TCBTCT+1 06944000 TCBRSV9C EQU TCBTCTGF 06945000 TCBRSV9B EQU TCBTCTGF 06946000 TCBRSV9A EQU TCBTCTGF 06947000 TCBRSV99 EQU TCBTCTGF 06948000 TCBRSV98 EQU TCBTCTGF 06949000 TCBRSV97 EQU TCBTCTGF 06950000 TCBRSV20 EQU TCBTCTGF 06951000 TCBSMFGF EQU TCBTCTGF 06952000 TCBSTABB EQU TCBSTAB+1 06953000 TCBSTCUR EQU TCBNSTAE 06954000 TCBRV301 EQU TCBNSTAE 06955000 TCBSYNCH EQU TCBNSTAE 06956000 TCBHALT EQU TCBNSTAE 06957000 TCBPPSUP EQU TCBNSTAE 06958000 TCB33E EQU TCBNSTAE 06959000 TCBQUIES EQU TCBNSTAE 06960000 TCBSTABE EQU TCBNSTAE 06961000 TCBAQE EQU TCB+156 06962000 TCBPQE EQU TCB+152 06963000 TCBTSDP EQU TCB+151 06964000 TCBTSLP EQU TCB+150 06965000 TCBSTPCT EQU TCB+149 06966000 TCBCPUBN EQU TCBTSFLG 06967000 TCBDYDSP EQU TCBTSFLG 06968000 TCBRSV18 EQU TCBTSFLG 06969000 TCBRSV17 EQU TCBTSFLG 06970000 TCBTIOTG EQU TCBTSFLG 06971000 TCBATT EQU TCBTSFLG 06972000 TCBSTPPR EQU TCBTSFLG 06973000 TCBRV300 EQU TCBTSTSK 06974000 TCBECB EQU TCB+144 06975000 TCBIQE EQU TCB+140 06976000 TCBLTC EQU TCB+136 06977000 TCBOTC EQU TCB+132 06978000 TCBNTC EQU TCB+128 06979000 TCBJSTCA EQU TCBJSTCB+1 06980000 TCBRSV16 EQU TCBJSTCB 06981000 TCBTQET EQU TCBTME 06982000 TCBTCB EQU TCB+116 06983000 TCBFSAB EQU TCBFSA+1 06984000 TCBQEL EQU TCBFSA 06985000 TCBGRS15 EQU TCBGRS+60 06986000 TCBGRS14 EQU TCBGRS+56 06987000 TCBGRS13 EQU TCBGRS+52 06988000 TCBGRS12 EQU TCBGRS+48 06989000 TCBGRS11 EQU TCBGRS+44 06990000 TCBGRS10 EQU TCBGRS+40 06991000 TCBGRS9 EQU TCBGRS+36 06992000 TCBGRS8 EQU TCBGRS+32 06993000 TCBGRS7 EQU TCBGRS+28 06994000 TCBGRS6 EQU TCBGRS+24 06995000 TCBGRS5 EQU TCBGRS+20 06996000 TCBGRS4 EQU TCBGRS+16 06997000 TCBGRS3 EQU TCBGRS+12 06998000 TCBGRS2 EQU TCBGRS+8 06999000 TCBGRS1 EQU TCBGRS+4 07000000 TCBGRS0 EQU TCBGRS 07001000 TCBJPQB EQU TCBJPQ+1 07002000 TCBRSV15 EQU TCBPURGE 07003000 TCBRSV14 EQU TCBPURGE 07004000 TCBRSV13 EQU TCBPURGE 07005000 TCBRSV12 EQU TCBPURGE 07006000 TCBRSV11 EQU TCBPURGE 07007000 TCBRSV10 EQU TCBPURGE 07008000 TCBRSV09 EQU TCBPURGE 07009000 TCBJPQF EQU TCBPURGE 07010000 TCBJLB EQU TCB+40 07011000 TCBLLS EQU TCB+36 07012000 TCBDSP EQU TCB+35 07013000 TCBLMP EQU TCB+34 07014000 TCBPNDSP EQU TCBFLGS5 07015000 TCBFCD1 EQU TCBFLGS5 07016000 TCBSTP EQU TCBFLGS5 07017000 TCBSYS EQU TCBFLGS5 07018000 TCBANDSP EQU TCBFLGS5 07019000 TCBPAGE EQU TCBFLGS5 07020000 TCBUXNDF EQU TCBABWF 07021000 TCBFC EQU TCBFLGS5 07022000 TCBONDSP EQU TCBFLGS4 07023000 TCBMPCND EQU TCBFLGS4 07024000 TCBMPCVQ EQU TCBFLGS4 07025000 TCBUXNDV EQU TCBFLGS4 07026000 TCBHNDSP EQU TCBFLGS4 07027000 TCBRQENA EQU TCBFLGS4 07028000 TCBSER EQU TCBFLGS4 07029000 TCBNDUMP EQU TCBFLGS4 07030000 TCBDWSTA EQU TCBFLGS3 07031000 TCBRSV08 EQU TCBFLGS3 07032000 TCBRSV07 EQU TCBFLGS3 07033000 TCBRSV06 EQU TCBFLGS3 07034000 TCBABGM EQU TCBFLGS3 07035000 TCBABTRM EQU TCBFLGS3 07036000 TCBADINP EQU TCBFLGS3 07037000 TCBFSM EQU TCBFLGS3 07038000 TCBFTS EQU TCBFLGS2 07039000 TCBFETXR EQU TCBFLGS2 07040000 TCBFDSOP EQU TCBFLGS2 07041000 TCBFJMC EQU TCBFLGS2 07042000 TCBFSMC EQU TCBFLGS2 07043000 TCBFABOP EQU TCBFLGS2 07044000 TCBFSTI EQU TCBFLGS2 07045000 TCBFOINP EQU TCBFLGS2 07046000 TCBFX EQU TCBFLGS1 07047000 TCBFS EQU TCBFLGS1 07048000 TCBFT EQU TCBFLGS1 07049000 TCBPDUMP EQU TCBFLGS1 07050000 TCBNONPR EQU TCBFLGS1 07051000 TCBFERA EQU TCBFLGS1 07052000 TCBFE EQU TCBFLGS1 07053000 TCBFA EQU TCBFLGS1 07054000 TCBZERO EQU TCBPKF 07055000 TCBFLAG EQU TCBPKF 07056000 TCBMSSB EQU TCBMSS+1 07057000 TCBRSV03 EQU TCBMSS 07058000 TCBTRNB EQU TCBTRN+1 07059000 TCBRSV02 EQU TCBABF 07060000 TCBOLTEP EQU TCBABF 07061000 TCBTCP EQU TCBABF 07062000 TCBTCPP EQU TCBABF 07063000 TCBRSV01 EQU TCBABF 07064000 TCBGRPH EQU TCBABF 07065000 TCBNOCHK EQU TCBABF 07066000 TCBMOD91 EQU TCBABF 07067000 TCBCMPC EQU TCBCMP+1 07068000 TCBRV318 EQU TCBCMSG 07069000 TCBRV317 EQU TCBCIND 07070000 TCBRV316 EQU TCBCWTO 07071000 TCBCASID EQU TCBCDBL 07072000 TCBNOCC EQU TCBSTCC 07073000 TCBDMPO EQU TCBCPP 07074000 TCBCSTEP EQU TCBCMPF 07075000 TCBCREQ EQU TCBCMPF 07076000 TCBTIO EQU TCB+12 07077000 TCBDEB EQU TCB+8 07078000 TCBPIEA EQU TCBPIE+1 07079000 TCBPM EQU TCBPMASK 07080000 @NM00076 EQU TCBPMASK 07081000 TCBRBP EQU TCB 07082000 TCBFRS6 EQU TCBFRS+24 07083000 TCBFRS4 EQU TCBFRS+16 07084000 TCBFRS2 EQU TCBFRS+8 07085000 TCBFRS0 EQU TCBFRS 07086000 CVTLEVL EQU CVTRELNO+2 07087000 CVTNUMB EQU CVTRELNO 07088000 CVTMDL EQU CVTFIX+250 07089000 @NM00075 EQU CVTFIX+248 07090000 @NM00074 EQU CVTFIX 07091000 CVTRV482 EQU CVTXTNT2+128 07092000 CVTRV481 EQU CVTXTNT2+124 07093000 CVTRV480 EQU CVTXTNT2+120 07094000 CVTRV479 EQU CVTXTNT2+118 07095000 CVTRV478 EQU CVTXTNT2+117 07096000 CVTRV477 EQU CVTXTNT2+116 07097000 CVTRV476 EQU CVTXTNT2+115 07098000 CVTRV475 EQU CVTXTNT2+114 07099000 CVTRV474 EQU CVTRV466 07100000 CVTRV473 EQU CVTRV466 07101000 CVTRV472 EQU CVTRV466 07102000 CVTRV471 EQU CVTRV466 07103000 CVTRV470 EQU CVTRV466 07104000 CVTRV469 EQU CVTRV466 07105000 CVTRV468 EQU CVTRV466 07106000 CVTRV467 EQU CVTRV466 07107000 CVTRV465 EQU CVTRV457 07108000 CVTRV464 EQU CVTRV457 07109000 CVTRV463 EQU CVTRV457 07110000 CVTRV462 EQU CVTRV457 07111000 CVTRV461 EQU CVTRV457 07112000 CVTRV460 EQU CVTRV457 07113000 CVTRV459 EQU CVTRV457 07114000 CVTRV458 EQU CVTRV457 07115000 CVTRV456 EQU CVTXTNT2+108 07116000 CVTRV455 EQU CVTXTNT2+104 07117000 CVTRV454 EQU CVTXTNT2+100 07118000 CVTRV453 EQU CVTXTNT2+96 07119000 CVTRV452 EQU CVTXTNT2+94 07120000 CVTRV451 EQU CVTXTNT2+92 07121000 CVTRV450 EQU CVTXTNT2+90 07122000 CVTRV449 EQU CVTXTNT2+88 07123000 CVTRV448 EQU CVTXTNT2+87 07124000 CVTRV447 EQU CVTXTNT2+86 07125000 CVTRV446 EQU CVTRV438 07126000 CVTRV445 EQU CVTRV438 07127000 CVTRV444 EQU CVTRV438 07128000 CVTRV443 EQU CVTRV438 07129000 CVTRV442 EQU CVTRV438 07130000 CVTRV441 EQU CVTRV438 07131000 CVTRV440 EQU CVTRV438 07132000 CVTRV439 EQU CVTRV438 07133000 CVTRV437 EQU CVTRV429 07134000 CVTRV436 EQU CVTRV429 07135000 CVTRV435 EQU CVTRV429 07136000 CVTRV434 EQU CVTRV429 07137000 CVTRV433 EQU CVTRV429 07138000 CVTRV432 EQU CVTRV429 07139000 CVTRV431 EQU CVTRV429 07140000 CVTRV430 EQU CVTRV429 07141000 CVTRV428 EQU CVTXTNT2+80 07142000 CVTRV427 EQU CVTXTNT2+76 07143000 CVTRV426 EQU CVTXTNT2+72 07144000 CVTRV425 EQU CVTXTNT2+68 07145000 CVTATACT EQU CVTATCVT 07146000 CVTRV423 EQU CVTXTNT2+62 07147000 CVTRV422 EQU CVTXTNT2+60 07148000 CVTRV421 EQU CVTXTNT2+58 07149000 CVTRV420 EQU CVTXTNT2+56 07150000 CVTRV419 EQU CVTXTNT2+55 07151000 CVTRV418 EQU CVTXTNT2+54 07152000 CVTRV417 EQU CVTRV409 07153000 CVTRV416 EQU CVTRV409 07154000 CVTRV415 EQU CVTRV409 07155000 CVTRV414 EQU CVTRV409 07156000 CVTRV413 EQU CVTRV409 07157000 CVTRV412 EQU CVTRV409 07158000 CVTRV411 EQU CVTRV409 07159000 CVTRV410 EQU CVTRV409 07160000 CVTRV408 EQU CVTRV400 07161000 CVTRV407 EQU CVTRV400 07162000 CVTRV406 EQU CVTRV400 07163000 CVTRV405 EQU CVTRV400 07164000 CVTRV404 EQU CVTRV400 07165000 CVTRV403 EQU CVTRV400 07166000 CVTRV402 EQU CVTRV400 07167000 CVTRV401 EQU CVTRV400 07168000 CVTICB EQU CVTXTNT2+48 07169000 CVTSKTA EQU CVTXTNT2+44 07170000 CVTSHSB EQU CVTSHS 07171000 CVTRSV98 EQU CVTXTNT2+36 07172000 CVTRSV97 EQU CVTXTNT2+34 07173000 CVTRSV96 EQU CVTXTNT2+32 07174000 CVTOLTEP EQU CVTXTNT2+28 07175000 CVTQIDA EQU CVTQID+1 07176000 CVTRSV95 EQU CVTQID 07177000 CVTRSV94 EQU CVTXTNT2+20 07178000 CVTRSV93 EQU CVTXTNT2+16 07179000 CVTRSV92 EQU CVTXTNT2+12 07180000 CVTDEBVR EQU CVTXTNT2+8 07181000 CVTRSV91 EQU CVTXTNT2+6 07182000 CVTRSV9H EQU CVTFLGBT 07183000 CVTRSV9G EQU CVTFLGBT 07184000 CVTRSV9F EQU CVTFLGBT 07185000 CVTRSV9E EQU CVTFLGBT 07186000 CVTRSV9D EQU CVTFLGBT 07187000 CVTRSV9C EQU CVTFLGBT 07188000 CVTVME EQU CVTFLGBT 07189000 CVTNPE EQU CVTFLGBT 07190000 CVTNUCLS EQU CVTXTNT2+4 07191000 CVTDSSVA EQU CVTDSSV+1 07192000 CVTRSV89 EQU CVTDSSV 07193000 CVTRSV88 EQU CVTXTNT1+8 07194000 CVTRSV87 EQU CVTXTNT1+4 07195000 CVTFACHN EQU CVTXTNT1 07196000 CVTRV488 EQU CVTMAP+412 07197000 CVTRV487 EQU CVTMAP+408 07198000 CVTRV486 EQU CVTMAP+404 07199000 CVTRV485 EQU CVTMAP+400 07200000 CVTACTAP EQU CVTMAP+396 07201000 CVTAUTH EQU CVTMAP+392 07202000 CVTATMCA EQU CVTATMCT+1 07203000 CVTATMST EQU CVTATMCT 07204000 CVTRSV61 EQU CVTMAP+384 07205000 CVTVOLT1 EQU CVTVOLM1+1 07206000 CVTVOLI1 EQU CVTVOLF1 07207000 CVTSTOA EQU CVTMAP+376 07208000 CVTRSV58 EQU CVTMAP+374 07209000 CVTRSV57 EQU CVTMAP+372 07210000 CVTDDCE EQU CVTMAP+368 07211000 CVTPNWFR EQU CVTMAP+364 07212000 CVTSMF EQU CVTMAP+360 07213000 CVTSULK EQU CVTMAP+358 07214000 CVTSLKO EQU CVTSYSK 07215000 CVTSLKP EQU CVTSYSK 07216000 CVTSLKQ EQU CVTSYSK 07217000 CVTSLKR EQU CVTSYSK 07218000 CVTRSV56 EQU CVTSYSK 07219000 CVTRSV55 EQU CVTSYSK 07220000 CVTRSV54 EQU CVTSYSK 07221000 CVTRSV53 EQU CVTSYSK 07222000 CVTRSV52 EQU CVTA1F1 07223000 CVTRSV51 EQU CVTA1F1 07224000 CVTRSV50 EQU CVTA1F1 07225000 CVTRSV49 EQU CVTA1F1 07226000 CVTRSV48 EQU CVTA1F1 07227000 CVTRSV47 EQU CVTA1F1 07228000 CVTSRSW EQU CVTA1F1 07229000 CVTPFSW EQU CVTA1F1 07230000 CVTPCVT EQU CVTMAP+352 07231000 CVTRSV46 EQU CVTMAP+344 07232000 CVTRSV45 EQU CVTMAP+340 07233000 CVTRSV44 EQU CVTMAP+338 07234000 CVTRSV43 EQU CVTMAP+336 07235000 CVTHJESA EQU CVTHJES+1 07236000 CVTRSV42 EQU CVTHJES 07237000 CVTEXT2A EQU CVTEXT2+1 07238000 CVTRSV41 EQU CVTEXT2 07239000 CVTAPFA EQU CVTAPF+1 07240000 CVTRSV40 EQU CVTAPF 07241000 CVTRV518 EQU CVTINTLA 07242000 CVTRV517 EQU CVTERPV 07243000 CVTEORM EQU CVTMAP+312 07244000 CVTMCHPR EQU CVTMAP+308 07245000 CVTTZ EQU CVTMAP+304 07246000 CVTJEPS EQU CVTMAP+300 07247000 CVTJESCT EQU CVTMAP+296 07248000 CVTMODE EQU CVTMAP+292 07249000 CVTPTRV EQU CVTMAP+288 07250000 CVTREAL EQU CVTMAP+284 07251000 CVTRSV39 EQU CVTMAP+280 07252000 CVTRSV38 EQU CVTMAP+276 07253000 CVTDMSRA EQU CVTDMSR+1 07254000 CVTRV634 EQU CVTDMSRF 07255000 CVTRV633 EQU CVTDMSRF 07256000 CVTRV632 EQU CVTDMSRF 07257000 CVTRV631 EQU CVTDMSRF 07258000 CVTRV630 EQU CVTDMSRF 07259000 CVTRV629 EQU CVTDMSRF 07260000 CVTUDUMP EQU CVTDMSRF 07261000 CVTSDUMP EQU CVTDMSRF 07262000 CVTQMSGA EQU CVTQMSG+1 07263000 CVTRSV36 EQU CVTQMSG 07264000 CVTAMFF EQU CVTMAP+264 07265000 CVTPURGA EQU CVTPURG+1 07266000 CVTRSV35 EQU CVTPURG 07267000 CVTCBSP EQU CVTMAP+256 07268000 CVTATERA EQU CVTATER+1 07269000 CVTSYST EQU CVTATER 07270000 CVTVOLT2 EQU CVTTAT 07271000 CVTVOLI2 EQU CVTVOLF2 07272000 CVTAQAVB EQU CVTAQAVT+1 07273000 CVTRSV34 EQU CVTTCMFG 07274000 CVTRSV33 EQU CVTTCMFG 07275000 CVTRSV32 EQU CVTTCMFG 07276000 CVTRSV31 EQU CVTTCMFG 07277000 CVTRSV30 EQU CVTTCMFG 07278000 CVTRSV29 EQU CVTTCMFG 07279000 CVTRSV28 EQU CVTTCMFG 07280000 CVTTCRDY EQU CVTTCMFG 07281000 CVTGTFA EQU CVTGTF+1 07282000 CVTRSV27 EQU CVTGTFST 07283000 CVTRNIO EQU CVTGTFST 07284000 CVTUSR EQU CVTGTFST 07285000 CVTRV318 EQU CVTFORM 07286000 CVTRV317 EQU CVTTMODE 07287000 CVTRV316 EQU CVTSTATE 07288000 CVTRV315 EQU CVTGTFS 07289000 CVTGTFAV EQU CVTGTFS 07290000 CVT0SCR1 EQU CVTMAP+232 07291000 CVTRV515 EQU CVTMAP+228 07292000 CVTRMS EQU CVTMAP+224 07293000 CVTPATCH EQU CVTMAP+220 07294000 CVTTSCE EQU CVTMAP+216 07295000 CVTLNKSC EQU CVTMAP+214 07296000 CVTQABST EQU CVTMAP+212 07297000 CVTMDLDS EQU CVTMAP+208 07298000 CVTUSER EQU CVTMAP+204 07299000 CVTABEND EQU CVTMAP+200 07300000 CVTSMCA EQU CVTMAP+196 07301000 CVTRSV18 EQU CVTMAP+192 07302000 CVTQLPAQ EQU CVTMAP+188 07303000 CVTQCDSR EQU CVTMAP+184 07304000 CVTRSV17 EQU CVTOPTB 07305000 CVTRSV16 EQU CVTOPTB 07306000 CVTFP EQU CVTOPTB 07307000 CVTAPTHR EQU CVTOPTB 07308000 CVTNLOG EQU CVTOPTB 07309000 CVTTOD EQU CVTOPTB 07310000 CVTCTIMS EQU CVTOPTB 07311000 CVTPROT EQU CVTOPTB 07312000 CVTXPFP EQU CVTOPTA 07313000 CVTASCII EQU CVTOPTA 07314000 CVTRSV13 EQU CVTOPTA 07315000 CVTRSV12 EQU CVTOPTA 07316000 CVTNIP EQU CVTOPTA 07317000 CVTDDR EQU CVTOPTA 07318000 CVTAPR EQU CVTOPTA 07319000 CVTCCH EQU CVTOPTA 07320000 CVTSNCTR EQU CVTMAP+180 07321000 CVTQMWR EQU CVTMAP+176 07322000 CVTQOCR EQU CVTMAP+172 07323000 CVT1EF00 EQU CVTMAP+168 07324000 CVTMZ00 EQU CVTMAP+164 07325000 CVTHEAD EQU CVTMAP+160 07326000 CVTRSV11 EQU CVTMAP+156 07327000 CVT0PT01 EQU CVTMAP+152 07328000 CVTMSER EQU CVTMAP+148 07329000 CVTRV516 EQU CVTIERLC 07330000 CVTILCH EQU CVTMAP+140 07331000 CVT0DS EQU CVTMAP+136 07332000 CVTFBOSV EQU CVTMAP+132 07333000 CVTNUCB EQU CVTMAP+128 07334000 CVTIXAVL EQU CVTMAP+124 07335000 CVTIOQET EQU CVTMAP+120 07336000 CVTDCBA EQU CVTMAP+117 07337000 CVTMVS2 EQU CVTDCB 07338000 CVT6DAT EQU CVTDCB 07339000 CVT4MPS EQU CVTDCB 07340000 CVTRSV09 EQU CVTDCB 07341000 CVT4MS1 EQU CVTDCB 07342000 CVT2SPS EQU CVTDCB 07343000 CVT1SSS EQU CVTDCB 07344000 CVTRSV08 EQU CVTDCB 07345000 CVTSTB EQU CVTMAP+112 07346000 CVTQTD00 EQU CVTMAP+108 07347000 CVTQTE00 EQU CVTMAP+104 07348000 CVTCUCB EQU CVTMAP+100 07349000 CVTSJQ EQU CVTMAP+96 07350000 CVTPBLDL EQU CVTMAP+92 07351000 CVTTPC EQU CVTMAP+88 07352000 CVTSVDCB EQU CVTMAP+84 07353000 CVTBRET EQU CVTMAP+82 07354000 CVTEXIT EQU CVTMAP+80 07355000 CVT0FN00 EQU CVTMAP+76 07356000 CVTDARA EQU CVTDAR+1 07357000 CVTRSV07 EQU CVTFLGS1 07358000 CVTRSV06 EQU CVTFLGS1 07359000 CVTRSV05 EQU CVTFLGS1 07360000 CVTRSV04 EQU CVTFLGS1 07361000 CVTRSV03 EQU CVTFLGS1 07362000 CVTRSV02 EQU CVTFLGS1 07363000 CVTRSV01 EQU CVTFLGS1 07364000 CVTDMPLK EQU CVTFLGS1 07365000 CVTXITP EQU CVTMAP+68 07366000 CVTZDTAB EQU CVTMAP+64 07367000 CVTMSLT EQU CVTMAP+60 07368000 CVTDATE EQU CVTMAP+56 07369000 CVTBTERM EQU CVTMAP+52 07370000 CVTSYSAD EQU CVTMAP+48 07371000 CVTXTLER EQU CVTMAP+44 07372000 CVTILK2 EQU CVTMAP+40 07373000 CVTILK1 EQU CVTMAP+36 07374000 CVTPRLTV EQU CVTMAP+32 07375000 CVTPCNVT EQU CVTMAP+28 07376000 CVT0VL00 EQU CVTMAP+24 07377000 CVTXAPG EQU CVTMAP+20 07378000 CVTBUF EQU CVTMAP+16 07379000 CVTJOB EQU CVTMAP+12 07380000 CVTLINK EQU CVTMAP+8 07381000 CVT0EF00 EQU CVTMAP+4 07382000 CVTTCBP EQU CVTMAP 07383000 CVT EQU CVTMAP 07384000 IOSEND EQU IOSB+108 07385000 IOSSKR EQU IOSEEKA+7 07386000 IOSSKH2 EQU IOSSKHH+1 07387000 IOSSKH1 EQU IOSSKHH 07388000 IOSSKCC EQU IOSCCHH 07389000 IOSSKBB EQU IOSEEKA+1 07390000 IOSSKM EQU IOSEEKA 07391000 IOSEEK EQU IOSB+92 07392000 IOSMDM EQU IOSB+91 07393000 IOSMDB EQU IOSB+90 07394000 IOSCKEY7 EQU IOSCKEY 07395000 IOSCKEY6 EQU IOSCKEY 07396000 IOSCKEY5 EQU IOSCKEY 07397000 IOSCKEY4 EQU IOSCKEY 07398000 @NM00046 EQU IOSCKEY 07399000 IOSFMSK EQU IOSB+88 07400000 IOSCUDEV EQU IOSPATH+1 07401000 @NM00045 EQU IOSCHN 07402000 IOSPATH3 EQU IOSCHN 07403000 IOSPATH2 EQU IOSCHN 07404000 IOSEXP EQU IOSCHN 07405000 IOSGDP EQU IOSCHN 07406000 IOSAFF EQU IOSB+85 07407000 IOSRSS1B EQU IOSB+84 07408000 IOSDSID EQU IOSB+80 07409000 IOSVST EQU IOSB+76 07410000 IOSRST EQU IOSB+72 07411000 IOSDIE EQU IOSB+68 07412000 IOSABN EQU IOSB+64 07413000 IOSNRM EQU IOSB+60 07414000 IOSPCI EQU IOSB+56 07415000 IOSERP EQU IOSB+52 07416000 IOSPCHN EQU IOSB+48 07417000 IOSSNS EQU IOSB+42 07418000 IOSAPMSK EQU IOSB+40 07419000 IOSRES4A EQU IOSB+36 07420000 IOSUSE EQU IOSB+32 07421000 IOSSRB EQU IOSB+28 07422000 IOSCSWRC EQU IOSCSW+5 07423000 IOSTSB EQU IOSTATUS+1 07424000 IOSTSA EQU IOSTATUS 07425000 IOSCSWCA EQU IOSCSW 07426000 IOSCC EQU @NM00044 07427000 IOSUCB EQU IOSB+16 07428000 IOSOPT2X EQU IOSOPT2 07429000 IOSHTP EQU IOSOPT2 07430000 IOSRELSE EQU IOSOPT 07431000 IOSAPR EQU IOSOPT 07432000 IOSTSLL EQU IOSOPT 07433000 IOSNERP EQU IOSOPT 07434000 IOSPSLL EQU IOSOPT 07435000 IOSQISCE EQU IOSOPT 07436000 IOSDEP EQU IOSOPT 07437000 IOSBYP EQU IOSOPT 07438000 IOSCOD EQU IOSB+13 07439000 IOSPKY7 EQU IOSPKEY 07440000 IOSPGDPX EQU IOSPKEY 07441000 IOSIDR EQU IOSPKEY 07442000 IOSLCL EQU IOSPKEY 07443000 @NM00043 EQU IOSPKEY 07444000 IOSPGAD EQU IOSB+8 07445000 IOSASID EQU IOSB+6 07446000 IOSPRLVL EQU IOSB+5 07447000 IOSDVRID EQU IOSB+4 07448000 IOSPROC EQU IOSB+3 07449000 IOSFLC7 EQU IOSFLC 07450000 IOSFLC6 EQU IOSFLC 07451000 IOSRWAIT EQU IOSFLC 07452000 IOSTP EQU IOSFLC 07453000 IOSCC3WE EQU IOSFLC 07454000 IOSVERIF EQU IOSDVALT 07455000 IOSDVMNT EQU IOSFLC 07456000 IOSLOG EQU IOSFLB 07457000 IOSBDCST EQU IOSFLB 07458000 IOSMSG EQU IOSFLB 07459000 IOSFLB4 EQU IOSFLB 07460000 IOSFLB3 EQU IOSFLB 07461000 IOSFLB2 EQU IOSFLB 07462000 IOSSDR EQU IOSFLB 07463000 IOSDIESE EQU IOSFLB 07464000 IOSIOSB EQU IOSFLA 07465000 IOSDOM EQU IOSFLA 07466000 IOSEX EQU IOSFLA 07467000 IOSSMDB EQU IOSFLA 07468000 IOSSMDA EQU IOSFLA 07469000 IOSERR EQU IOSFLA 07470000 IOSCCHN EQU IOSACHN 07471000 IOSDCHN EQU IOSACHN 07472000 TCCTCCW EQU ISTTCCW+8 07473000 TCCCHAIN EQU ISTTCCW+4 07474000 TCCRSVD EQU ISTTCCW+2 07475000 TCCLNGTH EQU ISTTCCW+1 07476000 TCCTYPE EQU ISTTCCW 07477000 TCCWEND EQU TCCW+156 07478000 TCCWREGE EQU TCCWRGSV+52 07479000 TCCWREGD EQU TCCWRGSV+48 07480000 TCCWREGC EQU TCCWRGSV+44 07481000 TCCWREGB EQU TCCWRGSV+40 07482000 TCCWREGA EQU TCCWRGSV+36 07483000 TCCWREG9 EQU TCCWRGSV+32 07484000 TCCWREG8 EQU TCCWRGSV+28 07485000 TCCWREG7 EQU TCCWRGSV+24 07486000 TCCWREG6 EQU TCCWRGSV+20 07487000 TCCWREG5 EQU TCCWRGSV+16 07488000 TCCWREG4 EQU TCCWRGSV+12 07489000 TCCWREG3 EQU TCCWRGSV+8 07490000 TCCWREG2 EQU TCCWRGSV+4 07491000 TCCWREG1 EQU TCCWRGSV 07492000 TCCWSAVE EQU TCCW+68 07493000 TCCWCBEB EQU TCCW+64 07494000 TCCWHICA EQU TCCW+60 07495000 TCCWLOCA EQU TCCW+56 07496000 TCCWTICA EQU TCCW+52 07497000 TCCWCCWA EQU TCCW+48 07498000 TCCWEFOP EQU TCCW+47 07499000 TCCWINDL EQU TCCW+46 07500000 TCCWCCWL EQU TCCW+45 07501000 TCCWMODB EQU TCCW+44 07502000 TCCWCCWR EQU TCCW+40 07503000 TCCWINDR EQU TCCW+36 07504000 TCCWTICL EQU TCCW+32 07505000 TCCWINDA EQU TCCW+28 07506000 TCCWPLKR EQU TCCW+24 07507000 TCCWFRC EQU TCCW+20 07508000 TCCWFVC EQU TCCW+16 07509000 TCCWFIX EQU TCCW+12 07510000 TCCWBEB EQU TCCW+8 07511000 TCCWUCB EQU TCCW+5 07512000 TCCWOPTN EQU TCCW+4 07513000 TCCWTCB EQU TCCW 07514000 @NM00042 EQU SRBSECT+40 07515000 @NM00041 EQU SRBSECT+38 07516000 SRBPRIOR EQU SRBSECT+37 07517000 SRBPKF EQU SRBSECT+36 07518000 SRBSAVE EQU SRBSECT+32 07519000 SRBPTCB EQU SRBFLC+4 07520000 SRBCPAFF EQU SRBFLC 07521000 SRBFLNK EQU SRBSECT+4 07522000 IOBERRCT EQU IOBSTDRD+30 07523000 IOBRSV19 EQU IOBINCAM+1 07524000 IOBOLTST EQU IOBBTAMF 07525000 IOBRFTMG EQU IOBBTAMF 07526000 IOBRSV17 EQU IOBBTAMF 07527000 IOBRSV16 EQU IOBBTAMF 07528000 IOBRSV15 EQU IOBBTAMF 07529000 IOBRSV14 EQU IOBBTAMF 07530000 IOBINUSE EQU IOBBTAMF 07531000 IOBPRMER EQU IOBBTAMF 07532000 IOBRSTRB EQU IOBRESTR+1 07533000 IOBREPOS EQU IOBRESTR 07534000 IOBDCBPB EQU IOBDCBPT+1 07535000 IOBRSV44 EQU IOBFLAG4 07536000 IOBJES3I EQU IOBFLAG4 07537000 IOBRSV42 EQU IOBFLAG4 07538000 IOBRSV41 EQU IOBFLAG4 07539000 IOBRSV40 EQU IOBFLAG4 07540000 IOBPMERR EQU IOBFLAG4 07541000 IOBCC3WE EQU IOBFLAG4 07542000 IOBGDPOL EQU IOBFLAG4 07543000 IOBSTRTB EQU IOBSTART+1 07544000 IOBSIOCC EQU IOBSTART 07545000 IOBCSB7 EQU IOBCSTAT 07546000 IOBCSB6 EQU IOBCSTAT 07547000 IOBCSB5 EQU IOBCSTAT 07548000 IOBCSB4 EQU IOBCSTAT 07549000 IOBCSB3 EQU IOBCSTAT 07550000 IOBCSB2 EQU IOBCSTAT 07551000 IOBCSB1 EQU IOBCSTAT 07552000 IOBCSB0 EQU IOBCSTAT 07553000 IOBUSB7 EQU IOBUSTAT 07554000 IOBUSB6 EQU IOBUSTAT 07555000 IOBUSB5 EQU IOBUSTAT 07556000 IOBUSB4 EQU IOBUSTAT 07557000 IOBUSB3 EQU IOBUSTAT 07558000 IOBUSB2 EQU IOBUSTAT 07559000 IOBUSB1 EQU IOBUSTAT 07560000 IOBUSB0 EQU IOBUSTAT 07561000 IOBCMDA EQU IOBIOCSW 07562000 IOBLOG EQU IOBFL3 07563000 IOBJAM EQU IOBICL 07564000 IOBMSG EQU IOBFL3 07565000 IOBSDR EQU IOBCNC 07566000 IOBACU EQU IOBFL3 07567000 IOBCDC EQU IOBFL3 07568000 IOBICC EQU IOBFL3 07569000 IOBCCC EQU IOBFL3 07570000 IOBECBPB EQU IOBECBPT+1 07571000 IOBECBCC EQU IOBECBPT 07572000 IOBS1B7 EQU IOBSENS1 07573000 IOBS1B6 EQU IOBSENS1 07574000 IOBS1B5 EQU IOBSENS1 07575000 IOBS1B4 EQU IOBSENS1 07576000 IOBS1B3 EQU IOBSENS1 07577000 IOBS1B2 EQU IOBSENS1 07578000 IOBS1B1 EQU IOBSENS1 07579000 IOBS1B0 EQU IOBSENS1 07580000 IOBSNSC9 EQU IOBS0B7 07581000 IOBS0B6 EQU IOBSENS0 07582000 IOBS0B5 EQU IOBSENS0 07583000 IOBS0B4 EQU IOBSENS0 07584000 IOBS0B3 EQU IOBSENS0 07585000 IOBS0B2 EQU IOBSENS0 07586000 IOBS0B1 EQU IOBSENS0 07587000 IOBS0B0 EQU IOBSENS0 07588000 IOBPNCH EQU IOBFLAG2 07589000 IOBSTATO EQU IOBFLAG2 07590000 IOBSKUPD EQU IOBFLAG2 07591000 IOBALTTR EQU IOBFLAG2 07592000 IOBRRT2 EQU IOBRDHA0 07593000 IOBRRT3 EQU IOBPURGE 07594000 IOBSENSE EQU IOBFLAG2 07595000 IOBHALT EQU IOBFLAG2 07596000 IOBSPSVC EQU IOBRSTRT 07597000 IOBUNREL EQU IOBFLAG1 07598000 IOBIOERR EQU IOBFLAG1 07599000 IOBFCREX EQU IOBCYCCK 07600000 IOBRPSTN EQU IOBFLAG1 07601000 IOBERRTN EQU IOBFLAG1 07602000 IOBCMDCH EQU IOBFLAG1 07603000 IOBDATCH EQU IOBFLAG1 07604000 IOBCNOPA EQU IOBPREFX+12 07605000 IOBCICB EQU IOBPREFX+8 07606000 IOBCECB EQU IOBPREFX+4 07607000 IOBCONOP EQU IOBPREFX+3 07608000 IOBCINOP EQU IOBPREFX+2 07609000 IOBRSV05 EQU IOBPREFX+1 07610000 IOBPCI EQU IOBCFLG1 07611000 IOBRSTCH EQU IOBCFLG1 07612000 IOBABAPP EQU IOBCFLG1 07613000 IOBPTST EQU IOBCFLG1 07614000 IOBRSV04 EQU IOBCFLG1 07615000 IOBRSV03 EQU IOBCFLG1 07616000 IOBRSV02 EQU IOBCFLG1 07617000 IOBRSV01 EQU IOBCFLG1 07618000 RPLSEQNO EQU RPLOF60+6 07619000 @NM00040 EQU RPLIBSQ 07620000 RPLIINV EQU RPLIBSQ 07621000 RPLINEG EQU RPLIBSQ 07622000 RPLIPOS EQU RPLIBSQ 07623000 RPLIIGN EQU RPLIBSQ 07624000 RPLIRSET EQU RPLIBSQ 07625000 RPLITST EQU RPLIBSQ 07626000 RPLISET EQU RPLIBSQ 07627000 @NM00039 EQU RPLOBSQ 07628000 RPLOINV EQU RPLOBSQ 07629000 RPLONEG EQU RPLOBSQ 07630000 RPLOPOS EQU RPLOBSQ 07631000 RPLOIGN EQU RPLOBSQ 07632000 RPLORSET EQU RPLOBSQ 07633000 RPLOTST EQU RPLOBSQ 07634000 RPLOSET EQU RPLOBSQ 07635000 RPLIBSQV EQU RPLOF60+2 07636000 RPLOBSQV EQU RPLOF60 07637000 @NM00038 EQU RPLCNTSC 07638000 RPLRSHUT EQU RPLCNTSC 07639000 RPLRQR EQU RPLCNTSC 07640000 RPLSHUTC EQU RPLCNTSC 07641000 RPLSHUTD EQU RPLCNTSC 07642000 RPLSTSN EQU RPLCNTSC 07643000 RPLCLEAR EQU RPLCNTSC 07644000 RPLSDT EQU RPLCNTSC 07645000 @NM00037 EQU RPLCNTDC 07646000 RPLSIGNL EQU RPLCNTDC 07647000 RPLLUS EQU RPLCNTDC 07648000 RPLRTR EQU RPLCNTDC 07649000 RPLBID EQU RPLCNTDC 07650000 @NM00036 EQU RPLCNTDF 07651000 RPLQI EQU RPLCNTDF 07652000 RPLRELQ EQU RPLCNTDF 07653000 RPLCHASE EQU RPLCNTDF 07654000 RPLQEC EQU RPLCNTDF 07655000 RPLQC EQU RPLCNTDF 07656000 RPLCNCEL EQU RPLCNTDF 07657000 RPLDATA EQU RPLCNTDF 07658000 RPLRRN EQU RPLRESP 07659000 RPLNFME EQU RPLRESP 07660000 RPLEX EQU RPLRESP 07661000 @NM00035 EQU RPLRESP 07662000 @NM00034 EQU RPLPOSTV 07663000 RPLSCHED EQU RPLPOSTV 07664000 @NM00033 EQU RPLVTFL1 07665000 RPLAUTUS EQU RPLVTFL1 07666000 RPLVTUSE EQU RPLVTFL1 07667000 @NM00032 EQU RPLVTFL1 07668000 @NM00031 EQU RPLCHN 07669000 RPLONLY EQU RPLCHN 07670000 RPLLAST EQU RPLCHN 07671000 RPLMIDLE EQU RPLCHN 07672000 RPLFIRST EQU RPLCHN 07673000 @NM00030 EQU RPLRTYPE 07674000 RPLDFASY EQU RPLRTYPE 07675000 RPLNFSYN EQU RPLRTYPE 07676000 RPLRRESP EQU RPLRTYPE 07677000 @NM00029 EQU RPLSTYPE 07678000 RPLSRESP EQU RPLSTYPE 07679000 @NM00028 EQU RPLRH3 07680000 RPLCSI EQU RPLRH3 07681000 RPLCHREQ EQU RPLRH3 07682000 RPLCMD EQU RPLRH3 07683000 RPLEB EQU RPLRH3 07684000 RPLBB EQU RPLRH3 07685000 RPLSIGDA EQU RPLVTEXT+32 07686000 RPLSAV13 EQU RPLVTEXT+28 07687000 RPLUSNSO EQU RPLOSENS+2 07688000 RPLSSMO EQU RPLSSNSO+1 07689000 @NM00027 EQU RPLSSEO 07690000 RPLRRO EQU RPLSSEO 07691000 RPLFIO EQU RPLSSEO 07692000 RPLSTATO EQU RPLSSEO 07693000 RPLCPMO EQU RPLSSEO 07694000 @NM00026 EQU RPLSSEO 07695000 RPLFMHDR EQU RPLOPT12 07696000 @NM00025 EQU RPLOPT12 07697000 @NM00024 EQU RPLOPT12 07698000 @NM00023 EQU RPLOPT12 07699000 RPLNIBTK EQU RPLOPT12 07700000 RPLTRUNC EQU RPLOPT12 07701000 RPLKEEP EQU RPLOPT12 07702000 @NM00022 EQU RPLOPT12 07703000 RPLRSVE8 EQU RPLOPT11 07704000 RPLRSVE7 EQU RPLOPT11 07705000 RPLRSVE6 EQU RPLOPT11 07706000 RPLRSVE5 EQU RPLOPT11 07707000 RPLRSVE4 EQU RPLOPT11 07708000 RPLSTOP EQU RPLOPT11 07709000 RPLSTART EQU RPLOPT11 07710000 RPLQUIES EQU RPLOPT11 07711000 RPLRSVI6 EQU RPLOPT10 07712000 RPLRSVI5 EQU RPLOPT10 07713000 RPLRSVI4 EQU RPLOPT10 07714000 RPLRSVI3 EQU RPLOPT10 07715000 RPLRSVI2 EQU RPLOPT10 07716000 RPLSPARM EQU RPLOPT10 07717000 RPLDSPLY EQU RPLOPT10 07718000 RPLBSCID EQU RPLOPT10 07719000 RPLTOPL EQU RPLOPT9 07720000 RPLCIDE EQU RPLOPT9 07721000 RPLRNNM EQU RPLOPT9 07722000 RPLAPPST EQU RPLOPT9 07723000 RPLCOUNT EQU RPLOPT9 07724000 RPLTERMS EQU RPLOPT9 07725000 RPLDEVCH EQU RPLOPT9 07726000 RPLLOGON EQU RPLOPT9 07727000 RPLUSFLD EQU RPLVTEXT+16 07728000 RPLESR2 EQU RPLUSNSI+1 07729000 RPLESR1 EQU RPLUSNSI 07730000 RPLSSMI EQU RPLDSB2 07731000 @NM00021 EQU RPLSSEI 07732000 RPLRRI EQU RPLSSEI 07733000 RPLFII EQU RPLSSEI 07734000 RPLSTATI EQU RPLSSEI 07735000 RPLCPMI EQU RPLSSEI 07736000 RPLPATHI EQU RPLSSEI 07737000 RPLARCLN EQU RPLVTEXT+8 07738000 RPLAARLN EQU RPLVTEXT+4 07739000 RPLAAREA EQU RPLVTEXT 07740000 RPLERMSA EQU RPLCOMN+72 07741000 RPLEMLEN EQU RPLCOMN+70 07742000 RPLACTIV EQU RPLCOMN+69 07743000 RPLBRANC EQU RPLEXTD1 07744000 RPLNIB EQU RPLEXTD1 07745000 @NM00020 EQU RPLEXTD1 07746000 RPLEXIT EQU RPLEXTD1 07747000 RPLNEXIT EQU RPLEXTD1 07748000 RPLEXSCH EQU RPLEXTD1 07749000 RPLDDDD EQU RPLRBAR+4 07750000 @NM00019 EQU RPLRBAR+3 07751000 @NM00018 EQU RPLAIXID 07752000 RPLAXPKP EQU RPLAIXID 07753000 RPLAIXPC EQU RPLRBAR 07754000 RPLRSV88 EQU RPLOPT8 07755000 RPLUNCON EQU RPLOPT8 07756000 RPLACTV EQU RPLOPT8 07757000 RPLSESS EQU RPLOPT8 07758000 RPLPEND EQU RPLOPT8 07759000 RPLODPRM EQU RPLOPT8 07760000 RPLODACP EQU RPLOPT8 07761000 RPLODACQ EQU RPLOPT8 07762000 RPLRSV78 EQU RPLOPT7 07763000 RPLTCRNO EQU RPLOPT7 07764000 RPLRLSOP EQU RPLOPT7 07765000 RPLTPOST EQU RPLOPT7 07766000 RPLQOPT EQU RPLOPT7 07767000 RPLCNIMM EQU RPLCNOPT 07768000 RPLCNANY EQU RPLCNOPT 07769000 RPLCNALL EQU RPLCNOPT 07770000 RPLRSV68 EQU RPLOPT6 07771000 RPLRSV67 EQU RPLOPT6 07772000 RPLLOCK EQU RPLOPT6 07773000 RPLNCOND EQU RPLOPT6 07774000 RPLCOND EQU RPLOPT6 07775000 RPLEOT EQU RPLUNTYP 07776000 RPLEOM EQU RPLUNTYP 07777000 RPLEOB EQU RPLUNTYP 07778000 RPLWROPT EQU RPLOPT5 07779000 RPLNODE EQU RPLOPT5 07780000 RPLERACE EQU RPLWRTYP 07781000 RPLEAU EQU RPLWRTYP 07782000 RPLNERAS EQU RPLWRTYP 07783000 RPLPSOPT EQU RPLOPT5 07784000 @NM00017 EQU RPLOPT5 07785000 RPLDLGIN EQU RPLOPT5 07786000 RPLBUFL EQU RPLCOMN+52 07787000 RPLRLEN EQU RPLCOMN+48 07788000 RPLCHAIN EQU RPLNXTRP 07789000 RPLBOP EQU RPLOPT4 07790000 @NM00016 EQU RPLOPT4 07791000 RPLMKFRM EQU RPLOPT4 07792000 RPLENDTR EQU RPLOPT4 07793000 RPLALIGN EQU RPLOPT3 07794000 RPLFMT EQU RPLOPT3 07795000 RPLFLD EQU RPLOPT3 07796000 RPLVFY EQU RPLOPT3 07797000 RPLBLK EQU RPLOPT3 07798000 RPLSFORM EQU RPLOPT3 07799000 RPLEODS EQU RPLOPT3 07800000 RPLNSP EQU RPLOPT2 07801000 RPLUPD EQU RPLOPT2 07802000 @NM00015 EQU RPLOPT2 07803000 RPLLRD EQU RPLOPT2 07804000 RPLBWD EQU RPLOPT2 07805000 RPLCNV EQU RPLOPT2 07806000 RPLADD EQU RPLADR 07807000 RPLKEY EQU RPLOPT2 07808000 RPLECBIN EQU RPLECBSW 07809000 RPLGEN EQU RPLOPT1 07810000 RPLKGE EQU RPLOPT1 07811000 RPLASY EQU RPLOPT1 07812000 RPLSKP EQU RPLOPT1 07813000 RPLSEQ EQU RPLOPT1 07814000 RPLDIR EQU RPLOPT1 07815000 RPLLOC EQU RPLOPT1 07816000 RPLDAF EQU RPLARG+2 07817000 RPLSAF EQU RPLARG 07818000 RPLAREA EQU RPLCOMN+32 07819000 RPLTCBPT EQU RPLCOMN+28 07820000 RPLDACB EQU RPLCOMN+24 07821000 RPLCCHAR EQU RPLCOMN+20 07822000 RPLSTRID EQU RPLCOMN+18 07823000 RPLKEYL EQU RPLKEYLE 07824000 RPLRDSOH EQU RPLFDB3 07825000 RPLRLG EQU RPLFDB3 07826000 RPLLGFRC EQU RPLFDB3 07827000 RPLREOT EQU RPLFDB3 07828000 RPLREOM EQU RPLFDB3 07829000 RPLREOB EQU RPLFDB3 07830000 RPLSV32 EQU RPLFDB3 07831000 RPLUINPT EQU RPLFDB3 07832000 RPLSTSAV EQU RPLFDB2 07833000 RPLCUERR EQU RPLFDB2 07834000 RPLDLGFL EQU RPLFDB2 07835000 RPLIOERR EQU RPLFDB2 07836000 RPLDVUNS EQU RPLFDB2 07837000 RPLATND EQU RPLFDB2 07838000 RPLRVID EQU RPLFDB2 07839000 RPLERLK EQU RPLFDB2 07840000 RPLERREG EQU RPLRTNCD 07841000 RPLSTAT EQU RPLFDBWD 07842000 RPLPOST EQU RPLECB 07843000 RPLWAIT EQU RPLECB 07844000 RPLPLHPT EQU RPLCOMN+4 07845000 RPLLEN2 EQU RPLLEN 07846000 RPLREQ EQU RPLIDWD+2 07847000 RPLSTYP EQU RPLIDWD+1 07848000 RPLID EQU RPLIDWD 07849000 @NM00014 EQU ACBVTEXT+8 07850000 @NM00013 EQU ACBVTEXT+6 07851000 ACBRTN EQU ACBVTEXT 07852000 ACBAPID EQU ACBCOMN+72 07853000 ACBCBMWA EQU ACBCOMN+68 07854000 ACBUAPTR EQU ACBCOMN+64 07855000 ACBLRECL EQU ACBCOMN+62 07856000 ACBMSGLN EQU ACBBLKSZ 07857000 ACBBUFSP EQU ACBCOMN+56 07858000 @NM00012 EQU ACBUJFCB+1 07859000 ACBOPTN EQU ACBUJFCB 07860000 @NM00011 EQU ACBINFLG+1 07861000 ACBBYPSS EQU ACBINFLG 07862000 ACBSDS EQU ACBVVIC 07863000 ACBUCRA EQU ACBINFLG 07864000 ACBSCRA EQU ACBINFLG 07865000 ACBCAT EQU ACBINFLG 07866000 ACBIJRQE EQU ACBINFLG 07867000 ACBJEPS EQU ACBINFLG 07868000 @NM00010 EQU ACBINFLG 07869000 ACBERFLG EQU ACBCOMN+49 07870000 ACBBUSY EQU ACBIOSFG 07871000 ACBLOCK EQU ACBEXFG 07872000 @NM00009 EQU ACBOFLGS 07873000 ACBDSERR EQU ACBOFLGS 07874000 ACBOPEN EQU ACBOFLGS 07875000 ACBEOV EQU ACBOFLGS 07876000 @NM00008 EQU ACBOFLGS 07877000 ACBDEB EQU ACBDDNM+5 07878000 ACBERFL EQU ACBDDNM+4 07879000 ACBAM EQU ACBAMETH 07880000 ACBINFL EQU ACBDDNM+2 07881000 ACBTIOT EQU ACBDDNM 07882000 ACBUEL EQU ACBEXLST 07883000 ACBPASSW EQU ACBCOMN+32 07884000 ACBMSGAR EQU ACBCOMN+28 07885000 @NM00007 EQU ACBDSORG+1 07886000 ACBDORGA EQU ACBDSORG+1 07887000 @NM00006 EQU ACBDSORG 07888000 ACBOPTJ EQU ACBDVIND 07889000 ACBCRNRE EQU ACBCROPS 07890000 ACBCRNCK EQU ACBCROPS 07891000 ACBASA EQU ACBCCTYP 07892000 @NM00005 EQU ACBCCTYP 07893000 ACBTRCID EQU ACBCCTYP 07894000 @NM00004 EQU ACBRECFM 07895000 ACBRECAF EQU ACBRECFM 07896000 ACBJBUF EQU ACBBUFPL+2 07897000 ACBMACR4 EQU ACBBUFPL+1 07898000 @NM00003 EQU ACBMACR3 07899000 ACBNCFX EQU ACBMACR3 07900000 ACBSIS EQU ACBMACR3 07901000 ACBDFR EQU ACBMACR3 07902000 ACBICI EQU ACBMACR3 07903000 ACBGSR EQU ACBMACR3 07904000 ACBLSR EQU ACBMACR3 07905000 @NM00002 EQU ACBMACR3 07906000 ACBBUFNI EQU ACBCOMN+18 07907000 ACBBUFND EQU ACBCOMN+16 07908000 ACBSTRNO EQU ACBCOMN+15 07909000 ACBBSTNO EQU ACBCOMN+14 07910000 ACBAIX EQU ACBMACR2 07911000 ACBDSN EQU ACBMACR2 07912000 ACBRST EQU ACBMACR2 07913000 ACBLOGON EQU ACBMACR2 07914000 ACBSKP EQU ACBMACR2 07915000 @NM00001 EQU ACBMACR2 07916000 ACBUBF EQU ACBMACR1 07917000 ACBOUT EQU ACBMACR1 07918000 ACBIN EQU ACBMACR1 07919000 ACBDIR EQU ACBMACR1 07920000 ACBSEQ EQU ACBMACR1 07921000 ACBBLK EQU ACBCNV 07922000 ACBADD EQU ACBADR 07923000 ACBKEY EQU ACBMACR1 07924000 ACBINRTN EQU ACBCOMN+8 07925000 ACBIBCT EQU ACBJWA 07926000 ACBLEN2 EQU ACBLENG2 07927000 ACBSTYP EQU ACBCOMN+1 07928000 ACBID EQU ACBCOMN 07929000 @NM00073 EQU PSA+3668 07930000 PSASTAK EQU PSA+3072 07931000 @NM00072 EQU PSA+1048 07932000 PSAUSEND EQU PSA+1048 07933000 PSARV062 EQU PSA+1044 07934000 PSACDAL EQU PSA+1040 07935000 PSAWTCOD EQU PSA+1036 07936000 PSAATCVT EQU PSA+1032 07937000 PSAPCPSW EQU PSA+1024 07938000 PSAPIR2 EQU PSA+1020 07939000 PSARV059 EQU PSA+1018 07940000 PSASVC13 EQU PSA+1016 07941000 PSALSFCC EQU PSA+1012 07942000 PSASFACC EQU PSA+1008 07943000 PSASTOP EQU PSA+992 07944000 PSASTART EQU PSA+976 07945000 PSARSPSW EQU PSA+968 07946000 PSASRPSW EQU PSA+960 07947000 PSARV045 EQU PSA+892 07948000 PSARV044 EQU PSA+888 07949000 PSARV043 EQU PSA+884 07950000 PSARV042 EQU PSA+880 07951000 PSARV041 EQU PSA+876 07952000 PSARV040 EQU PSA+872 07953000 PSARV025 EQU PSA+868 07954000 PSADSSED EQU PSA+868 07955000 PSADSSPR EQU PSA+864 07956000 PSADSSFW EQU PSA+860 07957000 PSADSS14 EQU PSA+856 07958000 PSADSSPP EQU PSA+848 07959000 PSADSSRP EQU PSA+840 07960000 PSADSS05 EQU PSADSSF4 07961000 PSADSS10 EQU PSADSSF4 07962000 PSADSSVE EQU PSADSSF4 07963000 PSADSSDE EQU PSADSSF4 07964000 PSADSSC0 EQU PSADSSF4 07965000 PSADSSIE EQU PSADSSF4 07966000 PSADSS12 EQU PSADSSF4 07967000 PSADSSRC EQU PSADSSF4 07968000 PSARV057 EQU PSADSSF3 07969000 PSARV056 EQU PSADSSF3 07970000 PSARV055 EQU PSADSSF3 07971000 PSADSSMC EQU PSADSSF3 07972000 PSADSSRW EQU PSADSSF3 07973000 PSADSSNM EQU PSADSSF3 07974000 PSADSSES EQU PSADSSF3 07975000 PSADSSGP EQU PSADSSF3 07976000 PSADSSF2 EQU PSADSSFL+1 07977000 PSADSSPI EQU PSADSSF1 07978000 PSADSSOI EQU PSADSSF1 07979000 PSADSSSP EQU PSADSSF1 07980000 PSADSSTP EQU PSADSSF1 07981000 PSADSSDW EQU PSADSSF1 07982000 PSADSSDD EQU PSADSSF1 07983000 PSADSSDM EQU PSADSSF1 07984000 PSADSSMV EQU PSADSSF1 07985000 PSADSSTS EQU PSA+816 07986000 PSADSSWK EQU PSA+812 07987000 PSADSSR3 EQU PSA+808 07988000 PSADSSR2 EQU PSA+804 07989000 PSADSSRS EQU PSA+800 07990000 PSASTOR EQU PSA+796 07991000 PSACPUSA EQU PSA+794 07992000 PSAVSTAP EQU PSA+792 07993000 PSAWKVAP EQU PSA+788 07994000 PSAWKRAP EQU PSA+784 07995000 PSAMCHIC EQU PSA+783 07996000 PSARV061 EQU PSA+782 07997000 PSASYMSK EQU PSA+781 07998000 PSAMCHFL EQU PSA+780 07999000 PSACR0 EQU PSA+776 08000000 PSAPSWSV EQU PSA+768 08001000 PSALITA EQU PSA+764 08002000 PSACLHS EQU PSAHLHI 08003000 PSALKR15 EQU PSALKSA+60 08004000 PSALKR14 EQU PSALKSA+56 08005000 PSALKR13 EQU PSALKSA+52 08006000 PSALKR12 EQU PSALKSA+48 08007000 PSALKR11 EQU PSALKSA+44 08008000 PSALKR10 EQU PSALKSA+40 08009000 PSALKR9 EQU PSALKSA+36 08010000 PSALKR8 EQU PSALKSA+32 08011000 PSALKR7 EQU PSALKSA+28 08012000 PSALKR6 EQU PSALKSA+24 08013000 PSALKR5 EQU PSALKSA+20 08014000 PSALKR4 EQU PSALKSA+16 08015000 PSALKR3 EQU PSALKSA+12 08016000 PSALKR2 EQU PSALKSA+8 08017000 PSALKR1 EQU PSALKSA+4 08018000 PSALKR0 EQU PSALKSA 08019000 PSARV023 EQU PSACLHT+52 08020000 PSALOCAL EQU PSACLHT+48 08021000 PSACMSL EQU PSACLHT+44 08022000 PSAOPTL EQU PSACLHT+40 08023000 PSATPACL EQU PSACLHT+36 08024000 PSATPDNL EQU PSACLHT+32 08025000 PSATPNCL EQU PSACLHT+28 08026000 PSAIOSLL EQU PSACLHT+24 08027000 PSAIOSUL EQU PSACLHT+20 08028000 PSAIOSCL EQU PSACLHT+16 08029000 PSAIOSSL EQU PSACLHT+12 08030000 PSASALCL EQU PSACLHT+8 08031000 PSAASML EQU PSACLHT+4 08032000 PSADISPL EQU PSACLHT 08033000 PSASRSA EQU PSA+636 08034000 PSARV050 EQU PSA+634 08035000 PSADSSGO EQU PSA+633 08036000 PSARECUR EQU PSA+632 08037000 PSAHLHIS EQU PSA+628 08038000 PSAIPCSA EQU PSA+624 08039000 @NM00071 EQU PSA+621 08040000 PSAIPCDM EQU PSA+620 08041000 PSAIPCD EQU PSA+616 08042000 @NM00070 EQU PSA+613 08043000 PSAIPCRM EQU PSA+612 08044000 PSAIPCR EQU PSA+608 08045000 PSAMCHEX EQU PSA+600 08046000 PSAMPSW EQU PSA+592 08047000 PSAEXPS2 EQU PSA+584 08048000 PSAEXPS1 EQU PSA+576 08049000 PSAPIREG EQU PSA+572 08050000 PSARSREG EQU PSA+568 08051000 PSAGPREG EQU PSA+556 08052000 PSARV022 EQU PSASUP4 08053000 PSARV021 EQU PSASUP4 08054000 PSARV020 EQU PSASUP4 08055000 PSARV019 EQU PSASUP4 08056000 PSARV018 EQU PSASUP4 08057000 PSARV017 EQU PSASUP4 08058000 PSARV016 EQU PSASUP4 08059000 PSARV015 EQU PSASUP4 08060000 PSARV014 EQU PSASUP3 08061000 PSARV013 EQU PSASUP3 08062000 PSARV012 EQU PSASUP3 08063000 PSARV011 EQU PSASUP3 08064000 PSASPR EQU PSASUP3 08065000 PSAPSREG EQU PSASUP3 08066000 PSAPI2 EQU PSASUP3 08067000 PSAIOSUP EQU PSASUP3 08068000 PSALCR EQU PSASUP2 08069000 PSARTM EQU PSASUP2 08070000 PSAACR EQU PSASUP2 08071000 PSAIPCE2 EQU PSASUP2 08072000 PSAIPCES EQU PSASUP2 08073000 PSAIPCEC EQU PSASUP2 08074000 PSAGTF EQU PSASUP2 08075000 PSAIPCRI EQU PSASUP2 08076000 PSARV063 EQU PSASUP1 08077000 PSATCTL EQU PSASUP1 08078000 PSADISP EQU PSASUP1 08079000 PSALOCK EQU PSASUP1 08080000 PSAPI EQU PSASUP1 08081000 PSAEXT EQU PSASUP1 08082000 PSASVC EQU PSASUP1 08083000 PSAIO EQU PSASUP1 08084000 PSAANEW EQU PSA+544 08085000 PSATOLD EQU PSA+540 08086000 PSATNEW EQU PSA+536 08087000 PSALCCAR EQU PSA+532 08088000 PSALCCAV EQU PSA+528 08089000 PSAPCCAR EQU PSA+524 08090000 PSAPCCAV EQU PSA+520 08091000 PSACPULA EQU PSA+518 08092000 PSACPUPA EQU PSA+516 08093000 PSAPSA EQU PSA+512 08094000 FLCHDEND EQU PSA+512 08095000 FLCCRSAV EQU FLCMCLA+280 08096000 FLCGRSAV EQU FLCMCLA+216 08097000 FLCFPSAV EQU FLCMCLA+184 08098000 FLCFLA EQU FLCMCLA+88 08099000 FLCRGNCD EQU FLCMCLA+84 08100000 FLCFSAA EQU FLCFSA+1 08101000 @NM00069 EQU FLCFSA 08102000 @NM00068 EQU FLCMCLA+72 08103000 FLCMCIC EQU FLCMCLA+64 08104000 @NM00067 EQU FLCMCLA+20 08105000 FLCIOAA EQU FLCIOA+1 08106000 @NM00066 EQU FLCIOA 08107000 @NM00065 EQU FLCMCLA+15 08108000 @NM00064 EQU FLCMCLA+14 08109000 @NM00063 EQU FLCMCLA+12 08110000 FLCLCL EQU FLCMCLA+8 08111000 FLCIOELA EQU FLCIOEL+1 08112000 @NM00062 EQU FLCIOEL 08113000 FLCCHNID EQU FLCMCLA 08114000 @NM00061 EQU PSA+160 08115000 FLCMTRCD EQU PSA+157 08116000 @NM00060 EQU PSA+156 08117000 FLCPERA EQU FLCPER+1 08118000 @NM00059 EQU FLCPER 08119000 @NM00058 EQU PSA+151 08120000 FLCPERCD EQU PSA+150 08121000 FLCMCNUM EQU PSA+149 08122000 @NM00057 EQU PSA+148 08123000 FLCTEAA EQU FLCTEA+1 08124000 @NM00056 EQU FLCTEA 08125000 PSAPIPC EQU PSAPICOD 08126000 PSAPIMC EQU PSAPICOD 08127000 PSAPIPER EQU PSAPICOD 08128000 PSARV049 EQU FLCPICOD 08129000 FLCPILCB EQU FLCPIILC 08130000 @NM00055 EQU FLCPIILC 08131000 @NM00054 EQU PSAEPPSW 08132000 FLCSVCN EQU PSAESPSW+2 08133000 FLCSILCB EQU FLCSVILC 08134000 @NM00053 EQU FLCSVILC 08135000 @NM00052 EQU PSAESPSW 08136000 FLCEICOD EQU PSAEEPSW+2 08137000 PSASPAD EQU PSAEEPSW 08138000 @NM00051 EQU PSA+128 08139000 FLCINPSW EQU PSA+120 08140000 FLCMNPSW EQU PSA+112 08141000 FLCPNPSW EQU PSA+104 08142000 FLCSNPSW EQU PSA+96 08143000 FLCENPSW EQU PSA+88 08144000 FLCTRACE EQU PSA+84 08145000 FLCTIMER EQU PSA+80 08146000 FLCCVT2 EQU PSA+76 08147000 FLCCAW EQU PSA+72 08148000 FLCCSW EQU PSA+64 08149000 FLCIOPSW EQU PSA+56 08150000 FLCMOPSW EQU PSA+48 08151000 FLCPOPSW EQU PSA+40 08152000 FLCSOPSW EQU PSA+32 08153000 FLCEOPSW EQU PSA+24 08154000 @NM00050 EQU FLCICCW2+4 08155000 FLCCVT EQU FLCICCW2 08156000 FLCICCW1 EQU FLCROPSW 08157000 FLCIPPSW EQU FLCRNPSW 08158000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 08159000 @RC00934 EQU @RC00932 08160000 @RC00956 EQU @RC00952 08161000 @RC01167 EQU @RC01165 08162000 @RC01170 EQU @RC01165 08163000 @RC01241 EQU @RC01222 08164000 @RC01267 EQU @RC01222 08165000 @PB00003 EQU @PB00004 08166000 @RC01477 EQU @EL00004 08167000 @RC01172 EQU @RC01170 08168000 @PB00002 EQU @PB00003 08169000 @ENDDATA EQU * 08170000 END ISTORFPO,(C'PLS1849',0701,77083) 08171000