SPUT TITLE 'BLSUPUT/BLSUZZ1--IPCS INITIALIZED DATA AREAS *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* */ 00004000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00005000 */* THIS MODULE WAS CHANGED FOR @ZA32004 @ZA32004*/ 00006000 */* */ 00007000 */*------------------------------------------------------------------*/ 00008000 BLSUPUT CSECT , @ZA32004 00009000 USING BLSUPUT,RF /* ADDRESSABILITY @ZA32004 00010000 BLSUPRAB B L0100 /* BRANCH AROUND IDENTIFIER 00011000 * @ZA32004 00012000 DC AL1(IDENTEND-IDENT) /* LENGTH OF IDENTIFIER @ZA32004 00013000 IDENT DC C'BLSUPRAB&SYSDATE' /* IDENTIFIER @ZA32004 00014000 IDENTEND DS 0C @ZA32004 00015000 DROP RF @ZA32004 00016000 L0100 LR RB,RF /* BASE REGISTER @ZA32004 00017000 LA RC,4095(RB) /* BASE REGISTER @ZA32004 00018000 LA RC,1(RC) @ZA32004 00019000 USING BLSUPRAB,RB,RC /* ADDRESSABILITY @ZA32004 00020000 * SAVERE=RE; /* SAVE RETURN ADDRESS @ZA32004*/ 00021000 ST RE,SAVERE 01S0094 00022000 * SA2BAK=RD; /* BACKWARD POINTER @ZA32004*/ 00023000 ST RD,SA2BAK 01S0095 00024000 * SAFWD=ADDR(SA2); /* FORWARD POINTER @ZA32004*/ 00025000 LA @15,SA2 01S0096 00026000 ST @15,SAFWD(,RD) 01S0096 00027000 * RD=ADDR(SA2); /* -> NEW SAVE AREA @ZA32004*/ 00028000 LA RD,SA2 01S0097 00029000 * ABNDPROM='00'X; /* REQUEST ABEND @ZA32004*/ 00030000 MVI ABNDPROM(R1),X'00' 01S0098 00031000 * ZZ2AFP=ZZZ0; /* RESET PRINT OPERAND @ZA32004*/ 00032000 NI ZZ2AFP,B'01111111' 01S0099 00033000 * ZZ1FPRNT=ZZZ0; /* INDICATE PRINTER INOPERATIVE 00034000 * @ZA32004*/ 00035000 NI ZZ1FPRNT,B'01111111' 01S0100 00036000 * RESPECIFY 01S0101 00037000 * (R1) UNRESTRICTED; /* -> ABNDPR @ZA32004*/ 00038000 * CALL BLSUTRMV(ZZ2,M1); /* ISSUE MESSAGE @ZA32004*/ 00039000 L @15,ZZ2TRMVP 01S0102 00040000 LA @01,@AL00102 01S0102 00041000 BALR @14,@15 01S0102 00042000 * RE=SAVERE; /* RESTORE RETURN ADDRESS 01S0103 00043000 * @ZA32004*/ 00044000 L RE,SAVERE 01S0103 00045000 * GENERATE CODE(BR RE); /* @ZA32004*/ 00046000 * 01S0104 00047000 * 01S0104 00048000 BR RE 00049000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0105 00050000 * 01S0105 00051000 * 01S0105 00052000 * 01S0105 00053000 * DECLARE /* COMMON VARIABLES */ 01S0105 00054000 * I256C CHAR(256) BASED, 01S0105 00055000 * I031F FIXED(31) BASED, 01S0105 00056000 * I031P PTR(31) BASED, 01S0105 00057000 * I015F FIXED(15) BASED, 01S0105 00058000 * I015P PTR(15) BASED, 01S0105 00059000 * I008P PTR(8) BASED, 01S0105 00060000 * I001C CHAR(1) BASED; 01S0105 00061000 * GENERATE NODEFS NOREFS DATA; 01S0106 00062000 * END BLSUPUT /*BLRPEND(BLSUPUT) */ 01S0107 00063000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00064000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00065000 */*%INCLUDE SYSLIB (BLRFULL ) * 00066000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00067000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00068000 */*%INCLUDE SYSLIB (IKJECT ) * 00069000 */*%INCLUDE SYSLIB (IKJUPT ) * 00070000 */*%INCLUDE SYSLIB (BLSUSERV) * 00071000 */*%INCLUDE SYSLIB (BLRSERV ) * 00072000 */*%INCLUDE SYSLIB (BLRSERVD) * 00073000 *; 01S0107 00074000 @DATA DS 0H 00075000 DS 0F 00076000 @AL00102 DC A(ZZ2) LIST WITH 2 ARGUMENT(S) 00077000 DC A(M1) 00078000 DS 0F 00079000 @SA00001 DS 18F 00080000 DS 0F 00081000 DS 0D 00082000 SAVERE DS A 00083000 SA2 DS CL72 00084000 ORG SA2 00085000 SA21 DS CL4 00086000 ORG SA21 00087000 SA21P DC X'00' 00088000 SA21L DC AL3(0) 00089000 ORG SA2+4 00090000 SA2BAK DC A(0) 00091000 SA2FWD DC A(0) 00092000 SA2R DS CL60 00093000 ORG SA2R 00094000 SA2RE DC A(0) 00095000 SA2RF DC A(0) 00096000 SA2R0 DC A(0) 00097000 SA2R1 DC A(0) 00098000 SA2R2 DC A(0) 00099000 SA2R3 DC A(0) 00100000 SA2R4 DC A(0) 00101000 SA2R5 DC A(0) 00102000 SA2R6 DC A(0) 00103000 SA2R7 DC A(0) 00104000 SA2R8 DC A(0) 00105000 SA2R9 DC A(0) 00106000 SA2RA DC A(0) 00107000 SA2RB DC A(0) 00108000 SA2RC DC A(0) 00109000 ORG SA2+72 00110000 SA299 DS 0C 00111000 ORG SA2+72 00112000 M1 DS CL44 00113000 ORG M1 00114000 M1L DC AL2(44) 00115000 @NM00001 DC X'0000' 00116000 M1T DS CL40 00117000 ORG M1T 00118000 M1TA DC CL40'BLS21045I PRINT FILE NO LONGER AVAILABLE' 00119000 ORG M1+44 00120000 ZZ1 DS CL3072 00121000 ORG ZZ1 00122000 ZZ1IDE DC CL4'IPCS' 00123000 ZZ1NULL DS AL4 00124000 ORG ZZ1NULL 00125000 @NM00002 DC X'80000000' 00126000 ORG ZZ1+8 00127000 ZZ1PNULL DS AL4 00128000 ORG ZZ1PNULL 00129000 @NM00003 DC X'FF000000' 00130000 ORG ZZ1+12 00131000 @NM00004 DS AL4 00132000 ORG @NM00004 00133000 @NM00005 DC X'80000000' 00134000 ORG ZZ1+16 00135000 ZZ1BLRBL DS AL4 00136000 ORG ZZ1BLRBL 00137000 @NM00006 DC X'80000000' 00138000 ORG ZZ1+20 00139000 ZZ1PDCBP DC AL4(ZZZPDCB) 00140000 @NM00007 DS AL4 00141000 ORG @NM00007 00142000 @NM00008 DC X'80000000' 00143000 ORG ZZ1+28 00144000 ZZ1ACBP DS AL4 00145000 ORG ZZ1ACBP 00146000 @NM00009 DC X'80000000' 00147000 ORG ZZ1+32 00148000 ZZ1327WP DC AL4(BLSR327W) 00149000 ZZ1ZZ2P DC AL4(ZZ2) 00150000 ZZ1PDRP DS AL4 00151000 ORG ZZ1PDRP 00152000 @NM00010 DC X'80000000' 00153000 ORG ZZ1+44 00154000 ZZ1DSDP DS AL4 00155000 ORG ZZ1DSDP 00156000 @NM00011 DC X'80000000' 00157000 ORG ZZ1+48 00158000 ZZ1DMCBP DS AL4 00159000 ORG ZZ1DMCBP 00160000 @NM00012 DC X'80000000' 00161000 ORG ZZ1+52 00162000 @NM00013 DC 2A(0) 00163000 ZZ1TLINE DC A(120) 00164000 ZZ1TPAGE DC A(0) 00165000 @NM00014 DC A(4) 00166000 ZZ1PCNT DC A(0) 00167000 ZZ1PGSZ DC A(0) 00168000 ZZ1PLINE DC A(0) 00169000 @NM00015 DC 13A(0) 00170000 ZZ1ZZ6P DS AL4 00171000 ORG ZZ1ZZ6P 00172000 @NM00016 DC X'80000000' 00173000 ORG ZZ1+140 00174000 ZZ1FPP DS AL4 00175000 ORG ZZ1FPP 00176000 @NM00017 DC X'80000000' 00177000 ORG ZZ1+144 00178000 @NM00018 DS AL4 00179000 ORG @NM00018+0 00180000 @NM00019 DC X'80000000' 00181000 ORG @NM00018+4 00182000 ORG @NM00018+4 00183000 DC X'80000000' 00184000 ORG @NM00018+8 00185000 ORG @NM00018+8 00186000 DC X'80000000' 00187000 ORG @NM00018+12 00188000 ORG @NM00018+12 00189000 DC X'80000000' 00190000 ORG @NM00018+16 00191000 ORG @NM00018+16 00192000 DC X'80000000' 00193000 ORG @NM00018+20 00194000 ORG @NM00018+20 00195000 DC X'80000000' 00196000 ORG @NM00018+24 00197000 ORG @NM00018+24 00198000 DC X'80000000' 00199000 ORG @NM00018+28 00200000 ORG @NM00018+28 00201000 DC X'80000000' 00202000 ORG @NM00018+32 00203000 ORG @NM00018+32 00204000 DC X'80000000' 00205000 ORG @NM00018+36 00206000 ORG @NM00018+36 00207000 DC X'80000000' 00208000 ORG @NM00018+40 00209000 ORG @NM00018+40 00210000 DC X'80000000' 00211000 ORG @NM00018+44 00212000 ORG @NM00018+44 00213000 DC X'80000000' 00214000 ORG @NM00018+48 00215000 ORG @NM00018+48 00216000 DC X'80000000' 00217000 ORG @NM00018+52 00218000 ORG @NM00018+52 00219000 DC X'80000000' 00220000 ORG @NM00018+56 00221000 ORG @NM00018+56 00222000 DC X'80000000' 00223000 ORG @NM00018+60 00224000 ORG @NM00018+60 00225000 DC X'80000000' 00226000 ORG @NM00018+64 00227000 ORG @NM00018+64 00228000 DC X'80000000' 00229000 ORG @NM00018+68 00230000 ORG @NM00018+68 00231000 DC X'80000000' 00232000 ORG @NM00018+72 00233000 ORG @NM00018+72 00234000 DC X'80000000' 00235000 ORG @NM00018+76 00236000 ORG @NM00018+76 00237000 DC X'80000000' 00238000 ORG @NM00018+80 00239000 ORG @NM00018+80 00240000 DC X'80000000' 00241000 ORG @NM00018+84 00242000 ORG @NM00018+84 00243000 DC X'80000000' 00244000 ORG @NM00018+88 00245000 ORG @NM00018+88 00246000 DC X'80000000' 00247000 ORG @NM00018+92 00248000 ORG @NM00018+92 00249000 DC X'80000000' 00250000 ORG @NM00018+96 00251000 ORG @NM00018+96 00252000 DC X'80000000' 00253000 ORG @NM00018+100 00254000 ORG @NM00018+100 00255000 DC X'80000000' 00256000 ORG @NM00018+104 00257000 ORG @NM00018+104 00258000 DC X'80000000' 00259000 ORG @NM00018+108 00260000 ORG @NM00018+108 00261000 DC X'80000000' 00262000 ORG @NM00018+112 00263000 ORG @NM00018+112 00264000 DC X'80000000' 00265000 ORG @NM00018+116 00266000 ORG @NM00018+116 00267000 DC X'80000000' 00268000 ORG @NM00018+120 00269000 ORG @NM00018+120 00270000 DC X'80000000' 00271000 ORG @NM00018+124 00272000 ORG @NM00018+124 00273000 DC X'80000000' 00274000 ORG @NM00018+128 00275000 ORG @NM00018+128 00276000 DC X'80000000' 00277000 ORG @NM00018+132 00278000 ORG @NM00018+132 00279000 DC X'80000000' 00280000 ORG @NM00018+136 00281000 ORG @NM00018+136 00282000 DC X'80000000' 00283000 ORG @NM00018+140 00284000 ORG @NM00018+140 00285000 DC X'80000000' 00286000 ORG @NM00018+144 00287000 ORG @NM00018+144 00288000 DC X'80000000' 00289000 ORG @NM00018+148 00290000 ORG @NM00018+148 00291000 DC X'80000000' 00292000 ORG @NM00018+152 00293000 ORG @NM00018+152 00294000 DC X'80000000' 00295000 ORG @NM00018+156 00296000 ORG @NM00018+156 00297000 DC X'80000000' 00298000 ORG @NM00018+160 00299000 ORG @NM00018+160 00300000 DC X'80000000' 00301000 ORG @NM00018+164 00302000 ORG @NM00018+164 00303000 DC X'80000000' 00304000 ORG @NM00018+168 00305000 ORG @NM00018+168 00306000 DC X'80000000' 00307000 ORG @NM00018+172 00308000 ORG @NM00018+172 00309000 DC X'80000000' 00310000 ORG @NM00018+176 00311000 ORG @NM00018+176 00312000 DC X'80000000' 00313000 ORG @NM00018+180 00314000 ORG @NM00018+180 00315000 DC X'80000000' 00316000 ORG @NM00018+184 00317000 ORG @NM00018+184 00318000 DC X'80000000' 00319000 ORG @NM00018+188 00320000 ORG @NM00018+188 00321000 DC X'80000000' 00322000 ORG @NM00018+192 00323000 ORG @NM00018+192 00324000 DC X'80000000' 00325000 ORG @NM00018+196 00326000 ORG @NM00018+196 00327000 DC X'80000000' 00328000 ORG @NM00018+200 00329000 ORG @NM00018+200 00330000 DC X'80000000' 00331000 ORG @NM00018+204 00332000 ORG @NM00018+204 00333000 DC X'80000000' 00334000 ORG @NM00018+208 00335000 ORG @NM00018+208 00336000 DC X'80000000' 00337000 ORG @NM00018+212 00338000 ORG @NM00018+212 00339000 DC X'80000000' 00340000 ORG ZZ1+360 00341000 ZZ1ATTN DS BL8 00342000 ORG ZZ1ATTN 00343000 ZZ1ACMP DS AL4 00344000 ORG ZZ1ACMP 00345000 @NM00020 DC X'80000000' 00346000 ORG ZZ1ATTN+4 00347000 ZZ1EVE DC F'0' 00348000 ORG ZZ1EVE 00349000 ZZ1EVEW DS BL1 00350000 ZZ1EVEP EQU ZZ1EVE+0 00351000 @NM00021 EQU ZZ1EVE+0 00352000 ZZ1EVEC DS BL3 00353000 ORG ZZ1+368 00354000 ZZ1F DC X'00' 00355000 DC XL7'0' 00356000 ORG ZZ1F 00357000 ZZ1FU DS BL1 00358000 ZZ1FX EQU ZZ1F+0 00359000 ZZ1FM EQU ZZ1F+0 00360000 @NM00022 EQU ZZ1F+0 00361000 ZZ1FACCM DS BL1 00362000 ZZ1FTCAM EQU ZZ1F+1 00363000 @NM00023 EQU ZZ1F+1 00364000 ZZ1FPRNT DS BL1 00365000 @NM00024 EQU ZZ1F+2 00366000 @NM00025 DS BL5 00367000 ORG ZZ1+376 00368000 ZZ1USTAE DC X'00' 00369000 @NM00026 DC X'00' 00370000 DC XL190'0' 00371000 ZZ1TRHEX DS CL256 00372000 ORG ZZ1TRHEX 00373000 @NM00027 DC 16CL16'0123456789ABCDEF' 00374000 ORG ZZ1+824 00375000 ZZ1TREBC DS CL256 00376000 ORG ZZ1TREBC 00377000 @NM00028 DC 64X'4B' 00378000 DC X'40' 00379000 DC 9X'4B' 00380000 DC X'4A' 00381000 DC X'4B' 00382000 DC X'4C' 00383000 DC X'4D' 00384000 DC X'4E' 00385000 DC X'4F' 00386000 DC X'50' 00387000 DC 9X'4B' 00388000 DC X'5A' 00389000 DC X'5B' 00390000 DC X'5C' 00391000 DC X'5D' 00392000 DC X'5E' 00393000 DC X'5F' 00394000 DC X'60' 00395000 DC X'61' 00396000 DC 8X'4B' 00397000 DC X'6A' 00398000 DC X'6B' 00399000 DC X'6C' 00400000 DC X'6D' 00401000 DC X'6E' 00402000 DC X'6F' 00403000 DC 9X'4B' 00404000 DC X'79' 00405000 DC X'7A' 00406000 DC X'7B' 00407000 DC X'7C' 00408000 DC X'7D' 00409000 DC X'7E' 00410000 DC X'7F' 00411000 DC X'4B' 00412000 DC X'81' 00413000 DC X'82' 00414000 DC X'83' 00415000 DC X'84' 00416000 DC X'85' 00417000 DC X'86' 00418000 DC X'87' 00419000 DC X'88' 00420000 DC X'89' 00421000 DC X'4B' 00422000 DC X'8B' 00423000 DC X'8C' 00424000 DC X'8D' 00425000 DC X'8E' 00426000 DC X'8F' 00427000 DC X'4B' 00428000 DC X'91' 00429000 DC X'92' 00430000 DC X'93' 00431000 DC X'94' 00432000 DC X'95' 00433000 DC X'96' 00434000 DC X'97' 00435000 DC X'98' 00436000 DC X'99' 00437000 DC X'4B' 00438000 DC X'9B' 00439000 DC X'9C' 00440000 DC X'9D' 00441000 DC X'9E' 00442000 DC X'9F' 00443000 DC X'A0' 00444000 DC X'A1' 00445000 DC X'A2' 00446000 DC X'A3' 00447000 DC X'A4' 00448000 DC X'A5' 00449000 DC X'A6' 00450000 DC X'A7' 00451000 DC X'A8' 00452000 DC X'A9' 00453000 DC X'4B' 00454000 DC X'AB' 00455000 DC X'AC' 00456000 DC X'AD' 00457000 DC X'AE' 00458000 DC X'AF' 00459000 DC X'B0' 00460000 DC X'B1' 00461000 DC X'B2' 00462000 DC X'B3' 00463000 DC X'B4' 00464000 DC X'B5' 00465000 DC X'B6' 00466000 DC X'B7' 00467000 DC X'B8' 00468000 DC X'B9' 00469000 DC X'4B' 00470000 DC X'BB' 00471000 DC X'BC' 00472000 DC X'BD' 00473000 DC X'BE' 00474000 DC X'BF' 00475000 DC X'C0' 00476000 DC X'C1' 00477000 DC X'C2' 00478000 DC X'C3' 00479000 DC X'C4' 00480000 DC X'C5' 00481000 DC X'C6' 00482000 DC X'C7' 00483000 DC X'C8' 00484000 DC X'C9' 00485000 DC 2X'4B' 00486000 DC X'CC' 00487000 DC X'4B' 00488000 DC X'CE' 00489000 DC X'4B' 00490000 DC X'D0' 00491000 DC X'D1' 00492000 DC X'D2' 00493000 DC X'D3' 00494000 DC X'D4' 00495000 DC X'D5' 00496000 DC X'D6' 00497000 DC X'D7' 00498000 DC X'D8' 00499000 DC X'D9' 00500000 DC 6X'4B' 00501000 DC X'DF' 00502000 DC X'4B' 00503000 DC X'E2' 00504000 DC X'E3' 00505000 DC X'E4' 00506000 DC X'E5' 00507000 DC X'E6' 00508000 DC X'E7' 00509000 DC X'E8' 00510000 DC X'E9' 00511000 DC 2X'4B' 00512000 DC X'EC' 00513000 DC 3X'4B' 00514000 DC X'F0' 00515000 DC X'F1' 00516000 DC X'F2' 00517000 DC X'F3' 00518000 DC X'F4' 00519000 DC X'F5' 00520000 DC X'F6' 00521000 DC X'F7' 00522000 DC X'F8' 00523000 DC X'F9' 00524000 DC X'FA' 00525000 DC 5X'4B' 00526000 ORG ZZ1+1080 00527000 @NM00029 DC X'00' 00528000 DC XL35'0' 00529000 ZZ1N DS CL276 00530000 ORG ZZ1N 00531000 ZZ1NSTR DC CL256' ' 00532000 ZZ1NADB DC A(0) 00533000 ZZ1NADE DC A(16777215) 00534000 ZZ1NBDY DC A(0) 00535000 ZZ1NOFF DC A(0) 00536000 ZZ1NSTRL DC AL2(0) 00537000 ZZ1NASID DC AL2(0) 00538000 ORG ZZ1+1392 00539000 ZZ1TRCTX DS CL256 00540000 ORG ZZ1TRCTX 00541000 @NM00030 DC 129X'00' 00542000 DC X'0A' 00543000 DC X'0B' 00544000 DC X'0C' 00545000 DC X'0D' 00546000 DC X'0E' 00547000 DC X'0F' 00548000 DC 58X'00' 00549000 DC X'0A' 00550000 DC X'0B' 00551000 DC X'0C' 00552000 DC X'0D' 00553000 DC X'0E' 00554000 DC X'0F' 00555000 DC 41X'00' 00556000 DC X'00' 00557000 DC X'01' 00558000 DC X'02' 00559000 DC X'03' 00560000 DC X'04' 00561000 DC X'05' 00562000 DC X'06' 00563000 DC X'07' 00564000 DC X'08' 00565000 DC X'09' 00566000 DC 6X'00' 00567000 ORG ZZ1+1648 00568000 ZZ1TRUPC DS CL256 00569000 ORG ZZ1TRUPC 00570000 @NM00031 DC 64X'4B' 00571000 DC X'40' 00572000 DC 9X'4B' 00573000 DC X'4A' 00574000 DC X'4B' 00575000 DC X'4C' 00576000 DC X'4D' 00577000 DC X'4E' 00578000 DC X'4F' 00579000 DC X'50' 00580000 DC 9X'4B' 00581000 DC X'5A' 00582000 DC X'5B' 00583000 DC X'5C' 00584000 DC X'5D' 00585000 DC X'5E' 00586000 DC X'5F' 00587000 DC X'60' 00588000 DC X'61' 00589000 DC 8X'4B' 00590000 DC X'6A' 00591000 DC X'6B' 00592000 DC X'6C' 00593000 DC X'6D' 00594000 DC X'6E' 00595000 DC X'6F' 00596000 DC 9X'4B' 00597000 DC X'79' 00598000 DC X'7A' 00599000 DC X'7B' 00600000 DC X'7C' 00601000 DC X'7D' 00602000 DC X'7E' 00603000 DC X'7F' 00604000 DC X'4B' 00605000 DC X'C1' 00606000 DC X'C2' 00607000 DC X'C3' 00608000 DC X'C4' 00609000 DC X'C5' 00610000 DC X'C6' 00611000 DC X'C7' 00612000 DC X'C8' 00613000 DC X'C9' 00614000 DC X'4B' 00615000 DC X'8B' 00616000 DC X'8C' 00617000 DC X'8D' 00618000 DC X'8E' 00619000 DC X'8F' 00620000 DC X'4B' 00621000 DC X'D1' 00622000 DC X'D2' 00623000 DC X'D3' 00624000 DC X'D4' 00625000 DC X'D5' 00626000 DC X'D6' 00627000 DC X'D7' 00628000 DC X'D8' 00629000 DC X'D9' 00630000 DC X'4B' 00631000 DC X'9B' 00632000 DC X'9C' 00633000 DC X'9D' 00634000 DC X'9E' 00635000 DC X'9F' 00636000 DC X'A0' 00637000 DC X'A1' 00638000 DC X'E2' 00639000 DC X'E3' 00640000 DC X'E4' 00641000 DC X'E5' 00642000 DC X'E6' 00643000 DC X'E7' 00644000 DC X'E8' 00645000 DC X'E9' 00646000 DC X'4B' 00647000 DC X'AB' 00648000 DC X'AC' 00649000 DC X'AD' 00650000 DC X'AE' 00651000 DC X'AF' 00652000 DC X'B0' 00653000 DC X'B1' 00654000 DC X'B2' 00655000 DC X'B3' 00656000 DC X'B4' 00657000 DC X'B5' 00658000 DC X'B6' 00659000 DC X'B7' 00660000 DC X'B8' 00661000 DC X'B9' 00662000 DC X'4B' 00663000 DC X'BB' 00664000 DC X'BC' 00665000 DC X'BD' 00666000 DC X'BE' 00667000 DC X'BF' 00668000 DC X'C0' 00669000 DC X'C1' 00670000 DC X'C2' 00671000 DC X'C3' 00672000 DC X'C4' 00673000 DC X'C5' 00674000 DC X'C6' 00675000 DC X'C7' 00676000 DC X'C8' 00677000 DC X'C9' 00678000 DC 2X'4B' 00679000 DC X'CC' 00680000 DC X'4B' 00681000 DC X'CE' 00682000 DC X'4B' 00683000 DC X'D0' 00684000 DC X'D1' 00685000 DC X'D2' 00686000 DC X'D3' 00687000 DC X'D4' 00688000 DC X'D5' 00689000 DC X'D6' 00690000 DC X'D7' 00691000 DC X'D8' 00692000 DC X'D9' 00693000 DC 6X'4B' 00694000 DC X'DF' 00695000 DC X'4B' 00696000 DC X'E2' 00697000 DC X'E3' 00698000 DC X'E4' 00699000 DC X'E5' 00700000 DC X'E6' 00701000 DC X'E7' 00702000 DC X'E8' 00703000 DC X'E9' 00704000 DC 2X'4B' 00705000 DC X'EC' 00706000 DC 3X'4B' 00707000 DC X'F0' 00708000 DC X'F1' 00709000 DC X'F2' 00710000 DC X'F3' 00711000 DC X'F4' 00712000 DC X'F5' 00713000 DC X'F6' 00714000 DC X'F7' 00715000 DC X'F8' 00716000 DC X'F9' 00717000 DC X'FA' 00718000 DC 5X'4B' 00719000 ORG ZZ1+1904 00720000 ZZ1TRTAS DS CL256 00721000 ORG ZZ1TRTAS 00722000 @NM00032 DC 64X'FF' 00723000 DC X'40' 00724000 DC 9X'FF' 00725000 DC X'4A' 00726000 DC X'4B' 00727000 DC X'4C' 00728000 DC X'4D' 00729000 DC X'4E' 00730000 DC X'4F' 00731000 DC X'50' 00732000 DC 9X'FF' 00733000 DC X'5A' 00734000 DC X'5B' 00735000 DC X'5C' 00736000 DC X'5D' 00737000 DC X'5E' 00738000 DC X'5F' 00739000 DC X'60' 00740000 DC X'61' 00741000 DC 8X'FF' 00742000 DC X'6A' 00743000 DC X'6B' 00744000 DC X'6C' 00745000 DC X'6D' 00746000 DC X'6E' 00747000 DC X'6F' 00748000 DC 9X'FF' 00749000 DC X'79' 00750000 DC X'7A' 00751000 DC X'7B' 00752000 DC X'7C' 00753000 DC X'7D' 00754000 DC X'7E' 00755000 DC X'7F' 00756000 DC X'FF' 00757000 DC X'C1' 00758000 DC X'C2' 00759000 DC X'C3' 00760000 DC X'C4' 00761000 DC X'C5' 00762000 DC X'C6' 00763000 DC X'C7' 00764000 DC X'C8' 00765000 DC X'C9' 00766000 DC X'FF' 00767000 DC X'8B' 00768000 DC X'8C' 00769000 DC X'8D' 00770000 DC X'8E' 00771000 DC X'8F' 00772000 DC X'FF' 00773000 DC X'D1' 00774000 DC X'D2' 00775000 DC X'D3' 00776000 DC X'D4' 00777000 DC X'D5' 00778000 DC X'D6' 00779000 DC X'D7' 00780000 DC X'D8' 00781000 DC X'D9' 00782000 DC X'FF' 00783000 DC X'9B' 00784000 DC X'9C' 00785000 DC X'9D' 00786000 DC X'9E' 00787000 DC X'9F' 00788000 DC X'A0' 00789000 DC X'A1' 00790000 DC X'E2' 00791000 DC X'E3' 00792000 DC X'E4' 00793000 DC X'E5' 00794000 DC X'E6' 00795000 DC X'E7' 00796000 DC X'E8' 00797000 DC X'E9' 00798000 DC X'FF' 00799000 DC X'AB' 00800000 DC X'AC' 00801000 DC X'AD' 00802000 DC X'AE' 00803000 DC X'AF' 00804000 DC X'B0' 00805000 DC X'B1' 00806000 DC X'B2' 00807000 DC X'B3' 00808000 DC X'B4' 00809000 DC X'B5' 00810000 DC X'B6' 00811000 DC X'B7' 00812000 DC X'B8' 00813000 DC X'B9' 00814000 DC X'FF' 00815000 DC X'BB' 00816000 DC X'BC' 00817000 DC X'BD' 00818000 DC X'BE' 00819000 DC X'BF' 00820000 DC X'C0' 00821000 DC X'00' 00822000 DC X'01' 00823000 DC X'02' 00824000 DC X'03' 00825000 DC X'04' 00826000 DC X'05' 00827000 DC X'06' 00828000 DC X'07' 00829000 DC X'08' 00830000 DC 2X'FF' 00831000 DC X'CC' 00832000 DC X'FF' 00833000 DC X'CE' 00834000 DC X'FF' 00835000 DC X'D0' 00836000 DC X'09' 00837000 DC X'0A' 00838000 DC X'0B' 00839000 DC X'0C' 00840000 DC X'0D' 00841000 DC X'0E' 00842000 DC X'0F' 00843000 DC X'10' 00844000 DC X'11' 00845000 DC 6X'FF' 00846000 DC X'DF' 00847000 DC X'FF' 00848000 DC X'12' 00849000 DC X'13' 00850000 DC X'14' 00851000 DC X'15' 00852000 DC X'16' 00853000 DC X'17' 00854000 DC X'18' 00855000 DC X'19' 00856000 DC 2X'FF' 00857000 DC X'EC' 00858000 DC 3X'FF' 00859000 DC X'F0' 00860000 DC X'F1' 00861000 DC X'F2' 00862000 DC X'F3' 00863000 DC X'F4' 00864000 DC X'F5' 00865000 DC X'F6' 00866000 DC X'F7' 00867000 DC X'F8' 00868000 DC X'F9' 00869000 DC X'FA' 00870000 DC 5X'FF' 00871000 ORG ZZ1+2160 00872000 @NM00033 DC X'00' 00873000 DC XL256'0' 00874000 DC XL256'0' 00875000 DC XL256'0' 00876000 DC XL143'0' 00877000 ZZ199999 DS 0C 00878000 ORG ZZ1+3072 00879000 ZZ2 DS CL8192 00880000 ORG ZZ2 00881000 ZZ2AMD DS CL138 00882000 ORG ZZ2AMD 00883000 ZZ2AMDT DC A(0) 00884000 ZZ2AMDA DC AL2(1) 00885000 ZZ2AMD0 DC AL1(0) 00886000 @NM00034 DC X'80' 00887000 ORG @NM00034 00888000 ZZ2AMD1 DS BL1 00889000 ZZ2AMD2 EQU @NM00034+0 00890000 @NM00035 EQU @NM00034+0 00891000 ORG ZZ2AMD+8 00892000 ZZ2AMDB DC AL4(ZZ2PRTT1) 00893000 ZZ2AMDP DC A(0) 00894000 ZZ2AMDC DC A(0) 00895000 ZZ2AMDS DC A(0) 00896000 ZZ2AMDF DC A(0) 00897000 ZZ2AMDU DC X'00' 00898000 DC XL15'0' 00899000 ZZ2AMDL DC A(0) 00900000 ZZ2AMDD DC A(0) 00901000 ZZ2AMDXP DC AL4(ZZ2AMDX) 00902000 @NM00036 DC 82X'00' 00903000 ORG ZZ2+138 00904000 ZZ2PRT DS CL125 00905000 ORG ZZ2PRT 00906000 ZZ2PRTL DC AL2(125) 00907000 ZZ2PRTO DC AL2(0) 00908000 ZZ2PRTT DS CL121 00909000 ORG ZZ2PRTT 00910000 ZZ2PRTT0 DC CL1' ' 00911000 ZZ2PRTT1 DC CL120' ' 00912000 ORG ZZ2+263 00913000 @NM00037 DC CL1' ' 00914000 @NM00038 DC X'00' 00915000 DC XL7'0' 00916000 ZZ2A DS CL656 00917000 ORG ZZ2A 00918000 ZZ2ACH DC AL2(2) 00919000 ZZ2ASE DC AL1(4) 00920000 @NM00039 DC X'00' 00921000 ZZ2ALINE DC A(120) 00922000 @NM00040 DC X'00' 00923000 DC XL7'0' 00924000 ZZ2AF DC X'40880D0000000000' 00925000 ORG ZZ2AF 00926000 ZZ2AFP DS BL1 00927000 ZZ2AFT EQU ZZ2AF+0 00928000 ZZ2AFFS EQU ZZ2AF+0 00929000 @NM00041 EQU ZZ2AF+0 00930000 ZZ2AFC DS BL1 00931000 @NM00042 EQU ZZ2AF+1 00932000 ZZ2AFV EQU ZZ2AF+1 00933000 @NM00043 EQU ZZ2AF+1 00934000 @NM00044 DS BL1 00935000 ZZ2AFM EQU ZZ2AF+2 00936000 @NM00045 EQU ZZ2AF+2 00937000 ZZ2AF$ EQU ZZ2AF+2 00938000 ZZ2AFQ EQU ZZ2AF+2 00939000 ZZ2AFD EQU ZZ2AF+2 00940000 ZZ2AFS EQU ZZ2AF+2 00941000 @NM00046 DS BL2 00942000 ZZ2AFX DS BL1 00943000 @NM00047 EQU ZZ2AF+5 00944000 ORG ZZ2A+24 00945000 @NM00048 DC X'00' 00946000 DC XL39'0' 00947000 ZZ2APID DS CL8 00948000 ORG ZZ2APID 00949000 ZZ2APIDA DC CL3'000' 00950000 ZZ2APIDB DC CL5' ' 00951000 ORG ZZ2A+72 00952000 @NM00049 DC X'00' 00953000 DC XL1'0' 00954000 ZZ2AD DS CL66 00955000 ORG ZZ2AD 00956000 ZZ2ADD DS CL46 00957000 ORG ZZ2ADD 00958000 ZZ2ADDL DC AL2(0) 00959000 ZZ2ADDT DS CL44 00960000 ORG ZZ2ADDT 00961000 ZZ2ADDTA DC CL44' ' 00962000 ORG ZZ2AD+46 00963000 ZZ2ADM DS CL10 00964000 ORG ZZ2ADM 00965000 ZZ2ADML DC AL2(0) 00966000 ZZ2ADMT DS CL8 00967000 ORG ZZ2ADMT 00968000 ZZ2ADMTA DC CL8' ' 00969000 ORG ZZ2AD+56 00970000 ZZ2ADP DS CL10 00971000 ORG ZZ2ADP 00972000 ZZ2ADPL DC AL2(0) 00973000 ZZ2ADPT DS CL8 00974000 ORG ZZ2ADPT 00975000 ZZ2ADPTA DC CL8' ' 00976000 ORG ZZ2A+140 00977000 ZZ2AZZ6P DS AL4 00978000 ORG ZZ2AZZ6P 00979000 @NM00050 DC X'80000000' 00980000 ORG ZZ2A+144 00981000 ZZ2AQAS DS CL16 00982000 ORG ZZ2AQAS 00983000 ZZ2AQAS0 DS 0C 00984000 ZZ2AQAST DC CL2'CV' 00985000 @NM00051 DC X'0000' 00986000 ZZ2AQAS1 DC A(0) 00987000 ZZ2AQAS2 DC A(1) 00988000 @NM00052 DC X'00' 00989000 DC XL3'0' 00990000 ZZ2AQAS9 DS 0C 00991000 ORG ZZ2A+160 00992000 ZZ2AQD DS CL60 00993000 ORG ZZ2AQD 00994000 ZZ2AQD00 DS 0C 00995000 ZZ2AQDOF DC F'0' 00996000 ZZ2AQDLE DC A(4) 00997000 ZZ2AQDOB DC AL1(0) 00998000 ZZ2AQDLB DC AL1(0) 00999000 ZZ2AQDT DS CL34 01000000 ORG ZZ2AQDT 01001000 ZZ2AQDT0 DS 0C 01002000 ZZ2AQDTY DC CL1'U' 01003000 @NM00053 DC X'00' 01004000 ZZ2AQDTD DC CL31' ' 01005000 ZZ2AQDTE DC CL1' ' 01006000 ZZ2AQDT9 DS 0C 01007000 ORG ZZ2AQD+44 01008000 ZZ2AQDIM DC A(0) 01009000 ZZ2AQDIL DC F'0' 01010000 ZZ2AQDF DC X'00000000' 01011000 ORG ZZ2AQDF 01012000 ZZ2AQDFA DS BL1 01013000 @NM00054 EQU ZZ2AQDF+0 01014000 ORG ZZ2AQD+56 01015000 @NM00055 DC X'00' 01016000 DC XL3'0' 01017000 ZZ2AQD99 DS 0C 01018000 ORG ZZ2A+220 01019000 @NM00056 DC X'00' 01020000 DC XL3'0' 01021000 @NM00057 DC X'00' 01022000 DC XL7'0' 01023000 DC X'00' 01024000 DC XL7'0' 01025000 DC X'00' 01026000 DC XL7'0' 01027000 DC X'00' 01028000 DC XL7'0' 01029000 DC X'00' 01030000 DC XL7'0' 01031000 DC X'00' 01032000 DC XL7'0' 01033000 DC X'00' 01034000 DC XL7'0' 01035000 DC X'00' 01036000 DC XL7'0' 01037000 DC X'00' 01038000 DC XL7'0' 01039000 DC X'00' 01040000 DC XL7'0' 01041000 DC X'00' 01042000 DC XL7'0' 01043000 DC X'00' 01044000 DC XL7'0' 01045000 DC X'00' 01046000 DC XL7'0' 01047000 DC X'00' 01048000 DC XL7'0' 01049000 DC X'00' 01050000 DC XL7'0' 01051000 DC X'00' 01052000 DC XL7'0' 01053000 DC X'00' 01054000 DC XL7'0' 01055000 DC X'00' 01056000 DC XL7'0' 01057000 DC X'00' 01058000 DC XL7'0' 01059000 DC X'00' 01060000 DC XL7'0' 01061000 DC X'00' 01062000 DC XL7'0' 01063000 DC X'00' 01064000 DC XL7'0' 01065000 DC X'00' 01066000 DC XL7'0' 01067000 DC X'00' 01068000 DC XL7'0' 01069000 DC X'00' 01070000 DC XL7'0' 01071000 DC X'00' 01072000 DC XL7'0' 01073000 DC X'00' 01074000 DC XL7'0' 01075000 DC X'00' 01076000 DC XL7'0' 01077000 DC X'00' 01078000 DC XL7'0' 01079000 DC X'00' 01080000 DC XL7'0' 01081000 DC X'00' 01082000 DC XL7'0' 01083000 DC X'00' 01084000 DC XL7'0' 01085000 DC X'00' 01086000 DC XL7'0' 01087000 DC X'00' 01088000 DC XL7'0' 01089000 DC X'00' 01090000 DC XL7'0' 01091000 DC X'00' 01092000 DC XL7'0' 01093000 DC X'00' 01094000 DC XL7'0' 01095000 DC X'00' 01096000 DC XL7'0' 01097000 DC X'00' 01098000 DC XL7'0' 01099000 DC X'00' 01100000 DC XL7'0' 01101000 DC X'00' 01102000 DC XL7'0' 01103000 DC X'00' 01104000 DC XL7'0' 01105000 DC X'00' 01106000 DC XL7'0' 01107000 DC X'00' 01108000 DC XL7'0' 01109000 DC X'00' 01110000 DC XL7'0' 01111000 DC X'00' 01112000 DC XL7'0' 01113000 DC X'00' 01114000 DC XL7'0' 01115000 DC X'00' 01116000 DC XL7'0' 01117000 DC X'00' 01118000 DC XL7'0' 01119000 DC X'00' 01120000 DC XL7'0' 01121000 DC X'00' 01122000 DC XL7'0' 01123000 DC X'00' 01124000 DC XL7'0' 01125000 DC X'00' 01126000 DC XL7'0' 01127000 DC X'00' 01128000 DC XL7'0' 01129000 ZZ2A9999 DS 0C 01130000 ORG ZZ2+928 01131000 ZZ2IDENT DC CL8'BLSUTASK' 01132000 ZZ2SCMDN DC CL8' ' 01133000 ZZ2SCMDE DC CL8' ' 01134000 @NM00058 DC X'00' 01135000 DC XL7'0' 01136000 ZZ2STG DS BL8 01137000 ORG ZZ2STG 01138000 ZZ2STGP DC A(0) 01139000 ZZ2STGN DC A(0) 01140000 ORG ZZ2+968 01141000 ZZ2TOD DC X'00' 01142000 DC XL7'0' 01143000 @NM00059 DC X'00' 01144000 DC XL15'0' 01145000 ZZ2ALLOP DC A(0) 01146000 ZZ2FREEP DC A(0) 01147000 ZZ2FF19P DC A(0) 01148000 ZZ2FRE1P DC A(0) 01149000 ZZ2FF18P DC A(0) 01150000 ZZ2DYNAP DC A(0) 01151000 ZZ2ZZ2CP DC A(0) 01152000 ZZ2ZZ2DP DC A(0) 01153000 ZZ2STAIP DC A(0) 01154000 ZZ2FF02P DC A(0) 01155000 ZZ2GETLP DC A(0) 01156000 ZZ2PARSP DC A(0) 01157000 ZZ2PTGTP DC A(0) 01158000 ZZ2PUTLP DC A(0) 01159000 ZZ2SCANP DC A(0) 01160000 ZZ2STCKP DC A(0) 01161000 ZZ2ALOCP DC A(0) 01162000 ZZ2MSGSP DC A(0) 01163000 ZZ2TRMOP DC A(0) 01164000 ZZ2TRMVP DC A(0) 01165000 ZZ2FT25P DC A(0) 01166000 ZZ2MSG0P DC A(0) 01167000 @NM00060 DC A(0) 01168000 ZZ2PUTNP DC A(0) 01169000 ZZ2TRMNP DC A(0) 01170000 ZZ2ENQ0P DC A(0) 01171000 ZZ2ADSDP DC A(0) 01172000 ZZ2APDRP DC A(0) 01173000 ZZ2FDSDP DC A(0) 01174000 ZZ2FPDRP DC A(0) 01175000 @NM00061 DC 34A(0) 01176000 ZZ2ZZ2P DS AL4 01177000 ORG ZZ2ZZ2P 01178000 @NM00062 DC X'80000000' 01179000 ORG ZZ2+1252 01180000 @NM00063 DS AL4 01181000 ORG @NM00063 01182000 @NM00064 DC X'80000000' 01183000 ORG ZZ2+1256 01184000 ZZ2TCBP DS AL4 01185000 ORG ZZ2TCBP 01186000 @NM00065 DC X'80000000' 01187000 ORG ZZ2+1260 01188000 ZZ2RPLP DS AL4 01189000 ORG ZZ2RPLP 01190000 @NM00066 DC X'80000000' 01191000 ORG ZZ2+1264 01192000 ZZ2ZZ1P DC AL4(ZZ1) 01193000 @NM00067 DS AL4 01194000 ORG @NM00067 01195000 @NM00068 DC X'80000000' 01196000 ORG ZZ2+1272 01197000 @NM00069 DS AL4 01198000 ORG @NM00069 01199000 @NM00070 DC X'80000000' 01200000 ORG ZZ2+1276 01201000 ZZ2DVTP DS AL4 01202000 ORG ZZ2DVTP 01203000 @NM00071 DC X'80000000' 01204000 ORG ZZ2+1280 01205000 ZZ2BVTP DS AL4 01206000 ORG ZZ2BVTP 01207000 @NM00072 DC X'80000000' 01208000 ORG ZZ2+1284 01209000 ZZ2RVTP DS AL4 01210000 ORG ZZ2RVTP 01211000 @NM00073 DC X'80000000' 01212000 ORG ZZ2+1288 01213000 ZZ2VRSAP DS AL4 01214000 ORG ZZ2VRSAP 01215000 @NM00074 DC X'80000000' 01216000 ORG ZZ2+1292 01217000 ZZ2CPPL DS CL16 01218000 ORG ZZ2CPPL 01219000 ZZ2CPPLC DS AL4 01220000 ORG ZZ2CPPLC 01221000 @NM00075 DC X'80000000' 01222000 ORG ZZ2CPPL+4 01223000 ZZ2CPPLU DS AL4 01224000 ORG ZZ2CPPLU 01225000 @NM00076 DC X'80000000' 01226000 ORG ZZ2CPPL+8 01227000 ZZ2CPPLP DS AL4 01228000 ORG ZZ2CPPLP 01229000 @NM00077 DC X'80000000' 01230000 ORG ZZ2CPPL+12 01231000 ZZ2CPPLE DS AL4 01232000 ORG ZZ2CPPLE 01233000 @NM00078 DC X'80000000' 01234000 ORG ZZ2+1308 01235000 ZZ2VRESP DS AL4 01236000 ORG ZZ2VRESP 01237000 @NM00079 DC X'80000000' 01238000 ORG ZZ2+1312 01239000 ZZ2LOADP DS AL4 01240000 ORG ZZ2LOADP 01241000 @NM00080 DC X'80000000' 01242000 ORG ZZ2+1316 01243000 ZZ2TTLP DS AL4 01244000 ORG ZZ2TTLP 01245000 @NM00081 DC X'80000000' 01246000 ORG ZZ2+1320 01247000 ZZ2SCWP DS AL4 01248000 ORG ZZ2SCWP 01249000 @NM00082 DC X'80000000' 01250000 ORG ZZ2+1324 01251000 ZZ200SYP DC AL4(LOCO) 01252000 ZZ2ESSYP DC AL4(ESCO) 01253000 ZZ2PHSYP DC AL4(PHCO) 01254000 ZZ2RASYP DC AL4(RACO) 01255000 ZZ2RDSYP DC AL4(RDCO) 01256000 ZZ2SASYP DC AL4(SACO) 01257000 ZZ2FFSYP DC AL4(FFCO) 01258000 @NM00083 DS AL4 01259000 ORG @NM00083+0 01260000 @NM00084 DC X'80000000' 01261000 ORG @NM00083+4 01262000 ORG @NM00083+4 01263000 DC X'80000000' 01264000 ORG @NM00083+8 01265000 ORG @NM00083+8 01266000 DC X'80000000' 01267000 ORG @NM00083+12 01268000 ORG @NM00083+12 01269000 DC X'80000000' 01270000 ORG @NM00083+16 01271000 ORG @NM00083+16 01272000 DC X'80000000' 01273000 ORG @NM00083+20 01274000 ORG @NM00083+20 01275000 DC X'80000000' 01276000 ORG @NM00083+24 01277000 ORG @NM00083+24 01278000 DC X'80000000' 01279000 ORG @NM00083+28 01280000 ORG @NM00083+28 01281000 DC X'80000000' 01282000 ORG @NM00083+32 01283000 ORG @NM00083+32 01284000 DC X'80000000' 01285000 ORG @NM00083+36 01286000 ORG @NM00083+36 01287000 DC X'80000000' 01288000 ORG @NM00083+40 01289000 ORG @NM00083+40 01290000 DC X'80000000' 01291000 ORG @NM00083+44 01292000 ORG @NM00083+44 01293000 DC X'80000000' 01294000 ORG @NM00083+48 01295000 ORG @NM00083+48 01296000 DC X'80000000' 01297000 ORG @NM00083+52 01298000 ORG @NM00083+52 01299000 DC X'80000000' 01300000 ORG @NM00083+56 01301000 ORG @NM00083+56 01302000 DC X'80000000' 01303000 ORG @NM00083+60 01304000 ORG @NM00083+60 01305000 DC X'80000000' 01306000 ORG @NM00083+64 01307000 ORG @NM00083+64 01308000 DC X'80000000' 01309000 ORG @NM00083+68 01310000 ORG @NM00083+68 01311000 DC X'80000000' 01312000 ORG @NM00083+72 01313000 ORG @NM00083+72 01314000 DC X'80000000' 01315000 ORG @NM00083+76 01316000 ORG @NM00083+76 01317000 DC X'80000000' 01318000 ORG @NM00083+80 01319000 ORG @NM00083+80 01320000 DC X'80000000' 01321000 ORG @NM00083+84 01322000 ORG @NM00083+84 01323000 DC X'80000000' 01324000 ORG @NM00083+88 01325000 ORG @NM00083+88 01326000 DC X'80000000' 01327000 ORG @NM00083+92 01328000 ORG @NM00083+92 01329000 DC X'80000000' 01330000 ORG @NM00083+96 01331000 ORG @NM00083+96 01332000 DC X'80000000' 01333000 ORG @NM00083+100 01334000 ORG @NM00083+100 01335000 DC X'80000000' 01336000 ORG @NM00083+104 01337000 ORG @NM00083+104 01338000 DC X'80000000' 01339000 ORG @NM00083+108 01340000 ORG @NM00083+108 01341000 DC X'80000000' 01342000 ORG @NM00083+112 01343000 ORG @NM00083+112 01344000 DC X'80000000' 01345000 ORG @NM00083+116 01346000 ORG @NM00083+116 01347000 DC X'80000000' 01348000 ORG @NM00083+120 01349000 ORG @NM00083+120 01350000 DC X'80000000' 01351000 ORG @NM00083+124 01352000 ORG @NM00083+124 01353000 DC X'80000000' 01354000 ORG @NM00083+128 01355000 ORG @NM00083+128 01356000 DC X'80000000' 01357000 ORG @NM00083+132 01358000 ORG @NM00083+132 01359000 DC X'80000000' 01360000 ORG @NM00083+136 01361000 ORG @NM00083+136 01362000 DC X'80000000' 01363000 ORG @NM00083+140 01364000 ORG @NM00083+140 01365000 DC X'80000000' 01366000 ORG @NM00083+144 01367000 ORG @NM00083+144 01368000 DC X'80000000' 01369000 ORG @NM00083+148 01370000 ORG @NM00083+148 01371000 DC X'80000000' 01372000 ORG ZZ2+1504 01373000 @NM00085 DC 5A(0) 01374000 ZZ2CW DC AL2(0) 01375000 @NM00086 DC 5AL2(0) 01376000 ZZ2PGM DC CL8' ' 01377000 @NM00087 DC X'00' 01378000 DC XL7'0' 01379000 DC X'00' 01380000 DC XL7'0' 01381000 DC X'00' 01382000 DC XL7'0' 01383000 DC X'00' 01384000 DC XL7'0' 01385000 DC X'00' 01386000 DC XL7'0' 01387000 DC X'00' 01388000 DC XL7'0' 01389000 DC X'00' 01390000 DC XL7'0' 01391000 DC X'00' 01392000 DC XL7'0' 01393000 DC X'00' 01394000 DC XL7'0' 01395000 DC X'00' 01396000 DC XL7'0' 01397000 DC X'00' 01398000 DC XL7'0' 01399000 DC X'00' 01400000 DC XL7'0' 01401000 DC X'00' 01402000 DC XL7'0' 01403000 DC X'00' 01404000 DC XL7'0' 01405000 DC X'00' 01406000 DC XL7'0' 01407000 DC X'00' 01408000 DC XL7'0' 01409000 DC X'00' 01410000 DC XL7'0' 01411000 DC X'00' 01412000 DC XL7'0' 01413000 DC X'00' 01414000 DC XL7'0' 01415000 DC X'00' 01416000 DC XL7'0' 01417000 DC X'00' 01418000 DC XL7'0' 01419000 DC X'00' 01420000 DC XL7'0' 01421000 DC X'00' 01422000 DC XL7'0' 01423000 DC X'00' 01424000 DC XL7'0' 01425000 DC X'00' 01426000 DC XL7'0' 01427000 DC X'00' 01428000 DC XL7'0' 01429000 DC X'00' 01430000 DC XL7'0' 01431000 DC X'00' 01432000 DC XL7'0' 01433000 DC X'00' 01434000 DC XL7'0' 01435000 DC X'00' 01436000 DC XL7'0' 01437000 DC X'00' 01438000 DC XL7'0' 01439000 DC X'00' 01440000 DC XL7'0' 01441000 DC X'00' 01442000 DC XL7'0' 01443000 DC X'00' 01444000 DC XL7'0' 01445000 DC X'00' 01446000 DC XL7'0' 01447000 DC X'00' 01448000 DC XL7'0' 01449000 DC X'00' 01450000 DC XL7'0' 01451000 DC X'00' 01452000 DC XL7'0' 01453000 DC X'00' 01454000 DC XL7'0' 01455000 DC X'00' 01456000 DC XL7'0' 01457000 DC X'00' 01458000 DC XL7'0' 01459000 DC X'00' 01460000 DC XL7'0' 01461000 DC X'00' 01462000 DC XL7'0' 01463000 DC X'00' 01464000 DC XL7'0' 01465000 DC X'00' 01466000 DC XL7'0' 01467000 DC X'00' 01468000 DC XL7'0' 01469000 DC X'00' 01470000 DC XL7'0' 01471000 DC X'00' 01472000 DC XL7'0' 01473000 DC X'00' 01474000 DC XL7'0' 01475000 DC X'00' 01476000 DC XL7'0' 01477000 DC X'00' 01478000 DC XL7'0' 01479000 DC X'00' 01480000 DC XL7'0' 01481000 DC X'00' 01482000 DC XL7'0' 01483000 DC X'00' 01484000 DC XL7'0' 01485000 DC X'00' 01486000 DC XL7'0' 01487000 DC X'00' 01488000 DC XL7'0' 01489000 DC X'00' 01490000 DC XL7'0' 01491000 DC X'00' 01492000 DC XL7'0' 01493000 DC X'00' 01494000 DC XL7'0' 01495000 DC X'00' 01496000 DC XL7'0' 01497000 DC X'00' 01498000 DC XL7'0' 01499000 DC X'00' 01500000 DC XL7'0' 01501000 DC X'00' 01502000 DC XL7'0' 01503000 DC X'00' 01504000 DC XL7'0' 01505000 DC X'00' 01506000 DC XL7'0' 01507000 DC X'00' 01508000 DC XL7'0' 01509000 DC X'00' 01510000 DC XL7'0' 01511000 DC X'00' 01512000 DC XL7'0' 01513000 DC X'00' 01514000 DC XL7'0' 01515000 DC X'00' 01516000 DC XL7'0' 01517000 DC X'00' 01518000 DC XL7'0' 01519000 DC X'00' 01520000 DC XL7'0' 01521000 DC X'00' 01522000 DC XL7'0' 01523000 DC X'00' 01524000 DC XL7'0' 01525000 DC X'00' 01526000 DC XL7'0' 01527000 DC X'00' 01528000 DC XL7'0' 01529000 DC X'00' 01530000 DC XL7'0' 01531000 DC X'00' 01532000 DC XL7'0' 01533000 DC X'00' 01534000 DC XL7'0' 01535000 DC X'00' 01536000 DC XL7'0' 01537000 DC X'00' 01538000 DC XL7'0' 01539000 DC X'00' 01540000 DC XL7'0' 01541000 DC X'00' 01542000 DC XL7'0' 01543000 DC X'00' 01544000 DC XL7'0' 01545000 DC X'00' 01546000 DC XL7'0' 01547000 DC X'00' 01548000 DC XL7'0' 01549000 DC X'00' 01550000 DC XL7'0' 01551000 DC X'00' 01552000 DC XL7'0' 01553000 DC X'00' 01554000 DC XL7'0' 01555000 DC X'00' 01556000 DC XL7'0' 01557000 DC X'00' 01558000 DC XL7'0' 01559000 DC X'00' 01560000 DC XL7'0' 01561000 DC X'00' 01562000 DC XL7'0' 01563000 DC X'00' 01564000 DC XL7'0' 01565000 DC X'00' 01566000 DC XL7'0' 01567000 DC X'00' 01568000 DC XL7'0' 01569000 DC X'00' 01570000 DC XL7'0' 01571000 DC X'00' 01572000 DC XL7'0' 01573000 DC X'00' 01574000 DC XL7'0' 01575000 DC X'00' 01576000 DC XL7'0' 01577000 DC X'00' 01578000 DC XL7'0' 01579000 DC X'00' 01580000 DC XL7'0' 01581000 DC X'00' 01582000 DC XL7'0' 01583000 DC X'00' 01584000 DC XL7'0' 01585000 DC X'00' 01586000 DC XL7'0' 01587000 DC X'00' 01588000 DC XL7'0' 01589000 DC X'00' 01590000 DC XL7'0' 01591000 DC X'00' 01592000 DC XL7'0' 01593000 DC X'00' 01594000 DC XL7'0' 01595000 DC X'00' 01596000 DC XL7'0' 01597000 DC X'00' 01598000 DC XL7'0' 01599000 DC X'00' 01600000 DC XL7'0' 01601000 DC X'00' 01602000 DC XL7'0' 01603000 DC X'00' 01604000 DC XL7'0' 01605000 DC X'00' 01606000 DC XL7'0' 01607000 DC X'00' 01608000 DC XL7'0' 01609000 DC X'00' 01610000 DC XL7'0' 01611000 DC X'00' 01612000 DC XL7'0' 01613000 DC X'00' 01614000 DC XL7'0' 01615000 DC X'00' 01616000 DC XL7'0' 01617000 DC X'00' 01618000 DC XL7'0' 01619000 DC X'00' 01620000 DC XL7'0' 01621000 DC X'00' 01622000 DC XL7'0' 01623000 DC X'00' 01624000 DC XL7'0' 01625000 DC X'00' 01626000 DC XL7'0' 01627000 DC X'00' 01628000 DC XL7'0' 01629000 DC X'00' 01630000 DC XL7'0' 01631000 DC X'00' 01632000 DC XL7'0' 01633000 DC X'00' 01634000 DC XL7'0' 01635000 DC X'00' 01636000 DC XL7'0' 01637000 DC X'00' 01638000 DC XL7'0' 01639000 DC X'00' 01640000 DC XL7'0' 01641000 DC X'00' 01642000 DC XL7'0' 01643000 DC X'00' 01644000 DC XL7'0' 01645000 DC X'00' 01646000 DC XL7'0' 01647000 DC X'00' 01648000 DC XL7'0' 01649000 DC X'00' 01650000 DC XL7'0' 01651000 DC X'00' 01652000 DC XL7'0' 01653000 DC X'00' 01654000 DC XL7'0' 01655000 DC X'00' 01656000 DC XL7'0' 01657000 DC X'00' 01658000 DC XL7'0' 01659000 DC X'00' 01660000 DC XL7'0' 01661000 DC X'00' 01662000 DC XL7'0' 01663000 DC X'00' 01664000 DC XL7'0' 01665000 DC X'00' 01666000 DC XL7'0' 01667000 DC X'00' 01668000 DC XL7'0' 01669000 DC X'00' 01670000 DC XL7'0' 01671000 DC X'00' 01672000 DC XL7'0' 01673000 DC X'00' 01674000 DC XL7'0' 01675000 DC X'00' 01676000 DC XL7'0' 01677000 DC X'00' 01678000 DC XL7'0' 01679000 DC X'00' 01680000 DC XL7'0' 01681000 DC X'00' 01682000 DC XL7'0' 01683000 DC X'00' 01684000 DC XL7'0' 01685000 DC X'00' 01686000 DC XL7'0' 01687000 DC X'00' 01688000 DC XL7'0' 01689000 DC X'00' 01690000 DC XL7'0' 01691000 DC X'00' 01692000 DC XL7'0' 01693000 DC X'00' 01694000 DC XL7'0' 01695000 DC X'00' 01696000 DC XL7'0' 01697000 ZZ2F DC X'00' 01698000 DC XL15'0' 01699000 ORG ZZ2F 01700000 ZZ2F3270 DS BL1 01701000 @NM00088 EQU ZZ2F+0 01702000 ORG ZZ2+2840 01703000 ZZ2ITR DS BL24 01704000 ORG ZZ2ITR 01705000 ZZ2ITRPP DS AL4 01706000 ORG ZZ2ITRPP 01707000 @NM00089 DC X'80000000' 01708000 ORG ZZ2ITR+4 01709000 ZZ2ITR2P DC AL4(ZZ2) 01710000 ZZ2ITRRC DC X'00' 01711000 @NM00090 DC X'00' 01712000 DC XL6'0' 01713000 ZZ2ITRE DC A(0) 01714000 ORG ZZ2ITRE 01715000 ZZ2ITREW DS BL1 01716000 ZZ2ITREP EQU ZZ2ITRE+0 01717000 @NM00091 EQU ZZ2ITRE+0 01718000 ZZ2ITREC DS FL3 01719000 ORG ZZ2ITR+20 01720000 @NM00092 DC X'00' 01721000 DC XL3'0' 01722000 ORG ZZ2+2864 01723000 ZZ2ITSE DC A(0) 01724000 ORG ZZ2ITSE 01725000 ZZ2ITSEW DS BL1 01726000 ZZ2ITSEP EQU ZZ2ITSE+0 01727000 @NM00093 EQU ZZ2ITSE+0 01728000 ZZ2ITSEC DS FL3 01729000 ORG ZZ2+2868 01730000 @NM00094 DC X'00' 01731000 DC XL3'0' 01732000 ZZ2ES DS CL184 01733000 ORG ZZ2ES 01734000 @NM00095 DC 184X'00' 01735000 ORG ZZ2+3056 01736000 ZZ2HSD DC X'00' 01737000 DC XL256'0' 01738000 DC XL256'0' 01739000 DC XL256'0' 01740000 DC XL256'0' 01741000 DC XL256'0' 01742000 DC XL256'0' 01743000 DC XL256'0' 01744000 DC XL256'0' 01745000 DC XL256'0' 01746000 DC XL256'0' 01747000 DC XL256'0' 01748000 DC XL256'0' 01749000 DC XL256'0' 01750000 DC XL256'0' 01751000 DC XL256'0' 01752000 DC XL256'0' 01753000 DC XL7'0' 01754000 ZZ2AMDX DS BL128 01755000 ORG ZZ2AMDX 01756000 ZZ2AMDXC DC A(0) 01757000 @NM00096 DC X'00' 01758000 DC XL123'0' 01759000 ORG ZZ2+7288 01760000 @NM00097 DC X'00' 01761000 DC XL256'0' 01762000 DC XL256'0' 01763000 DC XL133'0' 01764000 ZZ2AXO DS CL258 01765000 ORG ZZ2AXO 01766000 ZZ2AXOL DC AL2(256) 01767000 ZZ2AXOT DS CL256 01768000 ORG ZZ2AXOT 01769000 ZZ2AXOT1 DC CL256' ' 01770000 ORG ZZ2+8192 01771000 ZZ299999 DS 0C 01772000 ORG ZZ2+8192 01773000 LOCO DS CL128 01774000 ORG LOCO 01775000 LOCORID DC X'0000' 01776000 @NM00112 DC X'000000000000' 01777000 LOCOELK DS 0C 01778000 @NM00113 DC 120X'00' 01779000 LOCO999 DS 0C 01780000 ORG LOCO+128 01781000 ESCO DS CL182 01782000 ORG ESCO 01783000 ESCORID DC CL2'ES' 01784000 @NM00114 DC X'000000000000' 01785000 @NM00115 DC CL8' ' 01786000 @NM00116 DC X'00' 01787000 DC XL7'0' 01788000 ESCORDX DC A(0) 01789000 ESCOSYM DC CL31' ' 01790000 ESCOELK DS 0C 01791000 ESCORV1 DC CL1' ' 01792000 ESCOAS DS CL16 01793000 ORG ESCOAS 01794000 ESCOAS0 DS 0C 01795000 ESCOAST DC CL2' ' 01796000 @NM00117 DC X'0000' 01797000 ESCOAS1 DC A(0) 01798000 ESCOAS2 DC A(0) 01799000 @NM00118 DC X'00' 01800000 DC XL3'0' 01801000 ESCOAS9 DS 0C 01802000 ORG ESCO+76 01803000 ESCOLAD DC A(0) 01804000 ESCOD DS CL60 01805000 ORG ESCOD 01806000 ESCOD00 DS 0C 01807000 ESCODOF DC F'0' 01808000 ESCODLE DC A(4) 01809000 ESCODOB DC AL1(0) 01810000 ESCODLB DC AL1(0) 01811000 ESCODT DS CL34 01812000 ORG ESCODT 01813000 ESCODT0 DS 0C 01814000 ESCODTY DC CL1'U' 01815000 @NM00119 DC X'00' 01816000 ESCODTD DC CL31' ' 01817000 ESCODTE DC CL1' ' 01818000 ESCODT9 DS 0C 01819000 ORG ESCOD+44 01820000 ESCODIM DC A(0) 01821000 ESCODIL DC F'0' 01822000 ESCODF DC X'00000000' 01823000 ORG ESCODF 01824000 ESCODFA DS BL1 01825000 @NM00120 EQU ESCODF+0 01826000 ORG ESCOD+56 01827000 @NM00121 DC X'00' 01828000 DC XL3'0' 01829000 ESCOD99 DS 0C 01830000 ORG ESCO+140 01831000 ESCOMAD DC A(0) 01832000 @NM00122 DC X'00' 01833000 DC XL15'0' 01834000 ESCOKEY DS BL1 01835000 ESCOF DC X'00' 01836000 DC XL2'0' 01837000 ORG ESCOF 01838000 ESCOFS DS BL1 01839000 ORG ESCOFS 01840000 ESCOFSC DS BL1 01841000 ESCOFS2 EQU ESCOFS+0 01842000 ESCOFSM EQU ESCOFS+0 01843000 ESCOFSA EQU ESCOFS+0 01844000 ESCOFSP EQU ESCOFS+0 01845000 ESCOFSR EQU ESCOFS+0 01846000 ESCOFSX EQU ESCOFS+0 01847000 ESCOFSS EQU ESCOFS+0 01848000 ORG ESCOF+1 01849000 ESCOFC DS BL1 01850000 ORG ESCOFC 01851000 ESCOFCD DS BL1 01852000 @NM00123 EQU ESCOFC+0 01853000 ORG ESCOF+2 01854000 @NM00124 DS BL1 01855000 ORG ESCO+164 01856000 ESCOABS DC A(0) 01857000 @NM00125 DC X'00' 01858000 DC XL11'0' 01859000 ESCOR DS CL2 01860000 ORG ESCOR 01861000 ESCORL DC AL2(0) 01862000 ESCORT DS 0C 01863000 ORG ESCORT 01864000 ESCORT1 DS 0C 01865000 ORG ESCO+182 01866000 ESCO999 DS 0C 01867000 ORG ESCO+182 01868000 DS CL2 01869000 PHCO DS CL128 01870000 ORG PHCO 01871000 PHCORID DC CL2'PH' 01872000 @NM00126 DC X'000000000000' 01873000 @NM00127 DC CL8' ' 01874000 @NM00128 DC X'00' 01875000 DC XL7'0' 01876000 PHCORDX DC A(0) 01877000 PHCOPGM DC CL8' ' 01878000 PHCOMRX DC A(0) 01879000 PHCOELK DS 0C 01880000 @NM00129 DC X'00' 01881000 DC XL5'0' 01882000 PHCOP DS CL82 01883000 ORG PHCOP 01884000 PHCOPL DC AL2(80) 01885000 PHCOPT DS CL80 01886000 ORG PHCOPT 01887000 PHCOPTA DC CL80' ' 01888000 ORG PHCO+128 01889000 PHCO999 DS 0C 01890000 ORG PHCO+128 01891000 RACO DS CL148 01892000 ORG RACO 01893000 RACORID DC CL2'RA' 01894000 @NM00130 DC X'000000000000' 01895000 RACORDX DC A(0) 01896000 RACOAS DS CL16 01897000 ORG RACOAS 01898000 RACOAS0 DS 0C 01899000 RACOAST DC CL2' ' 01900000 @NM00131 DC X'0000' 01901000 RACOAS1 DC A(0) 01902000 RACOAS2 DC A(0) 01903000 @NM00132 DC X'00' 01904000 DC XL3'0' 01905000 RACOAS9 DS 0C 01906000 ORG RACO+28 01907000 RACOFAD DC A(0) 01908000 RACOELK DS 0C 01909000 @NM00133 DC X'00' 01910000 DC XL15'0' 01911000 RACODIM DC AL2(3) 01912000 RACOUSE DC AL2(1) 01913000 RACOR DS CL32 01914000 ORG RACOR+0 01915000 RACORIA DC A(0) 01916000 RACORLE DC A(4096) 01917000 RACORNM DC AL2(1) 01918000 RACORF DC X'0000' 01919000 ORG RACORF+0 01920000 RACORFU DS BL1 01921000 RACORFP EQU RACORF+0 01922000 RACORFR EQU RACORF+0 01923000 @NM00134 EQU RACORF+0 01924000 ORG RACOR+12 01925000 RACORDA DC A(0) 01926000 RACOROF DC A(8) 01927000 @NM00135 DC X'00' 01928000 DC XL11'0' 01929000 ORG RACOR+32 01930000 ORG RACOR+32 01931000 DC A(0) 01932000 DC A(4096) 01933000 DC AL2(1) 01934000 DC X'0000' 01935000 DC A(0) 01936000 DC A(8) 01937000 DC X'00' 01938000 DC XL11'0' 01939000 ORG RACOR+64 01940000 ORG RACOR+64 01941000 DC A(0) 01942000 DC A(4096) 01943000 DC AL2(1) 01944000 DC X'0000' 01945000 DC A(0) 01946000 DC A(8) 01947000 DC X'00' 01948000 DC XL11'0' 01949000 ORG RACO+148 01950000 RACO999 DS 0C 01951000 ORG RACO+148 01952000 DS CL4 01953000 RDCO DS CL128 01954000 ORG RDCO 01955000 RDCORID DC CL2'RD' 01956000 @NM00136 DC X'000000000000' 01957000 RDCOD DS CL48 01958000 ORG RDCOD 01959000 RDCODL DC AL2(48) 01960000 RDCODO DC AL2(0) 01961000 RDCODT DS CL44 01962000 ORG RDCODT 01963000 RDCODT1 DC CL44' ' 01964000 ORG RDCO+56 01965000 RDCOMEM DC CL8' ' 01966000 RDCOELK DS 0C 01967000 RDCORDX DC A(0) 01968000 RDCOQA DS CL16 01969000 ORG RDCOQA 01970000 RDCOQA0 DS 0C 01971000 RDCOQAT DC CL2'CV' 01972000 @NM00137 DC X'0000' 01973000 RDCOQA1 DC A(0) 01974000 RDCOQA2 DC A(1) 01975000 @NM00138 DC X'00' 01976000 DC XL3'0' 01977000 RDCOQA9 DS 0C 01978000 ORG RDCO+84 01979000 RDCOQ1 DC A(0) 01980000 RDCOQ2 DC A(1) 01981000 RDCOF DC X'C0' 01982000 DC XL7'0' 01983000 ORG RDCOF 01984000 RDCOFBS DS BL1 01985000 RDCOFDU EQU RDCOF+0 01986000 RDCOFMP EQU RDCOF+0 01987000 RDCOFAB EQU RDCOF+0 01988000 RDCOFST EQU RDCOF+0 01989000 RDCOFSU EQU RDCOF+0 01990000 @NM00139 EQU RDCOF+0 01991000 ORG RDCO+100 01992000 RDCODA1 DC A(0) 01993000 RDCODA2 DC A(0) 01994000 RDCOPRP DC A(524288) 01995000 RDCOCAP DC A(8912896) 01996000 @NM00140 DC 12X'00' 01997000 RDCO999 DS 0C 01998000 ORG RDCO+128 01999000 SACO DS CL256 02000000 ORG SACO 02001000 SACORID DC CL2'SA' 02002000 @NM00141 DC X'000000000000' 02003000 SACORDX DC A(0) 02004000 SACOAS DS CL16 02005000 ORG SACOAS 02006000 SACOAS0 DS 0C 02007000 SACOAST DC CL2' ' 02008000 @NM00142 DC X'0000' 02009000 SACOAS1 DC A(0) 02010000 SACOAS2 DC A(0) 02011000 @NM00143 DC X'00' 02012000 DC XL3'0' 02013000 SACOAS9 DS 0C 02014000 ORG SACO+28 02015000 SACOLAD DC A(0) 02016000 SACODT DS CL34 02017000 ORG SACODT 02018000 SACODT0 DS 0C 02019000 SACODTY DC CL1'U' 02020000 @NM00144 DC X'00' 02021000 SACODTD DC CL31' ' 02022000 SACODTE DC CL1' ' 02023000 SACODT9 DS 0C 02024000 ORG SACO+66 02025000 SACOELK DS 0C 02026000 @NM00145 DC X'00' 02027000 DC XL1'0' 02028000 SACOF DS CL60 02029000 ORG SACOF 02030000 SACOF00 DS 0C 02031000 SACOFOF DC F'0' 02032000 SACOFLE DC A(4) 02033000 SACOFOB DC AL1(0) 02034000 SACOFLB DC AL1(0) 02035000 SACOFT DS CL34 02036000 ORG SACOFT 02037000 SACOFT0 DS 0C 02038000 SACOFTY DC CL1'U' 02039000 @NM00146 DC X'00' 02040000 SACOFTD DC CL31' ' 02041000 SACOFTE DC CL1' ' 02042000 SACOFT9 DS 0C 02043000 ORG SACOF+44 02044000 SACOFIM DC A(0) 02045000 SACOFIL DC F'0' 02046000 SACOFF DC X'00000000' 02047000 ORG SACOFF 02048000 SACOFFA DS BL1 02049000 @NM00147 EQU SACOFF+0 02050000 ORG SACOF+56 02051000 @NM00148 DC X'00' 02052000 DC XL3'0' 02053000 SACOF99 DS 0C 02054000 ORG SACO+128 02055000 SACOSF DC X'00' 02056000 DC XL7'0' 02057000 ORG SACOSF 02058000 SACOSF1 DS BL1 02059000 SACOSF9 EQU SACOSF+0 02060000 SACOSFI EQU SACOSF+0 02061000 SACOSFS EQU SACOSF+0 02062000 @NM00149 EQU SACOSF+0 02063000 ORG SACO+136 02064000 SACOGMT DC X'00' 02065000 DC XL7'0' 02066000 SACOPGV DC CL8' ' 02067000 SACOSRC DC AL1(0) 02068000 @NM00150 DC 101X'00' 02069000 SACOC DS CL2 02070000 ORG SACOC 02071000 SACOCL DC AL2(0) 02072000 SACOCT DS 0C 02073000 ORG SACOCT 02074000 SACOCT1 DS 0C 02075000 ORG SACO+256 02076000 SACO999 DS 0C 02077000 ORG SACO+256 02078000 FFCO DS CL128 02079000 ORG FFCO 02080000 FFCORID DC X'FFFF' 02081000 @NM00151 DC X'FFFFFFFFFFFF' 02082000 FFCOELK DS 0C 02083000 @NM00152 DC 120X'FF' 02084000 FFCO999 DS 0C 02085000 ORG FFCO+128 02086000 PXLST DS CL8 02087000 ORG PXLST 02088000 PXLSTO DS AL4 02089000 ORG PXLSTO 02090000 @NM00153 DC X'05' 02091000 PXLSTOP DC AL3(0) 02092000 ORG PXLST+4 02093000 PXLSTA DS AL4 02094000 ORG PXLSTA 02095000 @NM00154 DC X'91' 02096000 PXLSTAP DC AL3(BLSUPRAB) 02097000 ORG PXLST+8 02098000 BLSUPUT CSECT 02099000 SPACE 2 02100000 *********************************************************************** 02101000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 02102000 *********************************************************************** 02103000 SPACE 02104000 BLSUPUT CSECT 02105000 ORG 02106000 DS 0D 02107000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSUPUT+19)/20+7)/8)CL8'BLSUPUT' 02108000 BLSUPUT CSECT 02109000 BLSUPUT CSECT 02110000 ENTRY BLSUZZ1 02111000 ZZZPDCB DCB DSORG=PS,MACRF=(PM),RECFM=VBA,DDNAME=IPCSPRNT, *02112000 EXLST=PXLST @ZA32004 02113000 BLSR327W CSECT 02114000 COPY BLSR327W BLSR3270 WORK AREA 02115000 BLSUPUT CSECT 02116000 BLSUPUT CSECT 02117000 SPACE 2 02118000 *********************************************************************** 02119000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 02120000 *********************************************************************** 02121000 SPACE 02122000 DS 0D 02123000 BLSUPUT CSECT 02124000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02125000 @01 EQU 01 02126000 @02 EQU 02 02127000 @03 EQU 03 02128000 @04 EQU 04 02129000 @05 EQU 05 02130000 @06 EQU 06 02131000 @07 EQU 07 02132000 @08 EQU 08 02133000 @09 EQU 09 02134000 @10 EQU 10 02135000 @11 EQU 11 02136000 @12 EQU 12 02137000 @13 EQU 13 02138000 @14 EQU 14 02139000 @15 EQU 15 02140000 R0 EQU @00 02141000 R1 EQU @01 02142000 R2 EQU @02 02143000 R3 EQU @03 02144000 R4 EQU @04 02145000 R5 EQU @05 02146000 R9 EQU @09 02147000 RB EQU @11 02148000 RD EQU @13 02149000 RE EQU @14 02150000 RF EQU @15 02151000 RA EQU @10 02152000 RC EQU @12 02153000 R6 EQU @06 02154000 R7 EQU @07 02155000 R8 EQU @08 02156000 CMD EQU 0 02157000 CMDT EQU CMD+4 02158000 PSCB EQU 0 02159000 PSCBATR1 EQU PSCB+16 02160000 ECT EQU 0 02161000 ECTSWS EQU ECT+28 02162000 ECTSWS2 EQU ECT+40 02163000 ECTSWS21 EQU ECTSWS2 02164000 UPT EQU 0 02165000 UPTSWS EQU UPT+12 02166000 SA EQU 0 02167000 SA1 EQU SA 02168000 SAFWD EQU SA+8 02169000 SAR EQU SA+12 02170000 BLSUTRMV EQU 0 02171000 BVT EQU 0 02172000 BVTPUTLP EQU BVT+4 02173000 BVTPUTOP EQU BVT+12 02174000 BVTPUTTP EQU BVT+16 02175000 BVTPUTVP EQU BVT+20 02176000 BVTPUTAP EQU BVT+24 02177000 BVTPRTTP EQU BVT+28 02178000 BVTPRTAP EQU BVT+32 02179000 BVTPUTDP EQU BVT+36 02180000 BVTMONP EQU BVT+40 02181000 BVTMON2P EQU BVT+44 02182000 BVTVSARP EQU BVT+48 02183000 BVTVSENP EQU BVT+64 02184000 BVTVSERP EQU BVT+68 02185000 BVTVSGEP EQU BVT+72 02186000 BVTVSGUP EQU BVT+76 02187000 BVTVSPOP EQU BVT+80 02188000 BVTVSPUP EQU BVT+84 02189000 BVTMPKNP EQU BVT+104 02190000 BVTMONLP EQU BVT+108 02191000 BVTPUTCP EQU BVT+132 02192000 BVTMPK1P EQU BVT+136 02193000 BVTZZ2RP EQU BVT+140 02194000 BVTPGMRP EQU BVT+144 02195000 BVTMONAP EQU BVT+148 02196000 BVTBLDDP EQU BVT+152 02197000 BVTBLDLP EQU BVT+156 02198000 BVTPGMCP EQU BVT+160 02199000 BVTPGMDP EQU BVT+164 02200000 BVTPGMLP EQU BVT+168 02201000 BVTMONCP EQU BVT+180 02202000 BVTMONDP EQU BVT+184 02203000 BVTMONTP EQU BVT+188 02204000 BVTPARIP EQU BVT+192 02205000 BVTPARUP EQU BVT+196 02206000 BVTPRTNP EQU BVT+204 02207000 BVTVSCRP EQU BVT+208 02208000 BVTVSMRP EQU BVT+212 02209000 BVTMONXP EQU BVT+216 02210000 BVTTRMAP EQU BVT+228 02211000 ABNDPR EQU 0 02212000 ABNDPROM EQU ABNDPR+2 02213000 BLSUALLO EQU 0 02214000 BLSUBLDD EQU 0 02215000 BLSUBLDL EQU 0 02216000 BLSUDYNA EQU 0 02217000 BLSUFREE EQU 0 02218000 BLSUFRE1 EQU 0 02219000 BLSUMON EQU 0 02220000 BLSUMONA EQU 0 02221000 BLSUMONC EQU 0 02222000 BLSUMOND EQU 0 02223000 BLSUMONL EQU 0 02224000 BLSUMONT EQU 0 02225000 BLSUMONX EQU 0 02226000 BLSUMON2 EQU 0 02227000 BLSUMPKN EQU 0 02228000 BLSUMPK1 EQU 0 02229000 BLSUPARI EQU 0 02230000 BLSUPARU EQU 0 02231000 BLSUPGMC EQU 0 02232000 BLSUPGMD EQU 0 02233000 BLSUPGML EQU 0 02234000 BLSUPGMR EQU 0 02235000 BLSUPRTA EQU 0 02236000 BLSUPRTN EQU 0 02237000 BLSUPRTT EQU 0 02238000 BLSUPUTA EQU 0 02239000 BLSUPUTC EQU 0 02240000 BLSUPUTD EQU 0 02241000 BLSUPUTL EQU 0 02242000 BLSUPUTN EQU 0 02243000 BLSUPUTO EQU 0 02244000 BLSUPUTT EQU 0 02245000 BLSUPUTV EQU 0 02246000 BLSUSTAI EQU 0 02247000 BLSUTRMA EQU 0 02248000 BLSUTRMN EQU 0 02249000 BLSUTRMO EQU 0 02250000 BLSUVSAR EQU 0 02251000 BLSUVSCR EQU 0 02252000 BLSUVSEN EQU 0 02253000 BLSUVSER EQU 0 02254000 BLSUVSGE EQU 0 02255000 BLSUVSGU EQU 0 02256000 BLSUVSMR EQU 0 02257000 BLSUVSPO EQU 0 02258000 BLSUVSPU EQU 0 02259000 BLSUZZ2C EQU 0 02260000 BLSUZZ2D EQU 0 02261000 BLSUZZ2R EQU 0 02262000 IKJEFF02 EQU 0 02263000 IKJEFF18 EQU 0 02264000 IKJEFF19 EQU 0 02265000 IKJGETL EQU 0 02266000 IKJPARS EQU 0 02267000 IKJPTGT EQU 0 02268000 IKJPUTL EQU 0 02269000 IKJSCAN EQU 0 02270000 IKJSTCK EQU 0 02271000 I001C EQU 0 02272000 I008P EQU 0 02273000 I015F EQU 0 02274000 I015P EQU 0 02275000 I031F EQU 0 02276000 I031P EQU 0 02277000 I256C EQU 0 02278000 CPPL EQU ZZ2CPPL 02279000 CPPLUPT EQU CPPL+4 02280000 CPPLPSCB EQU CPPL+8 02281000 CPPLECT EQU CPPL+12 02282000 BLSUZZ1 EQU ZZ1 02283000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02284000 CPPLCBUF EQU CPPL 02285000 ABNDPRRC EQU ABNDPR+1 02286000 ABNDPRCC EQU ABNDPR 02287000 BVT99999 EQU BVT+256 02288000 BVT0064P EQU BVT+252 02289000 BVT0063P EQU BVT+248 02290000 BVT0062P EQU BVT+244 02291000 BVT0061P EQU BVT+240 02292000 BVT0060P EQU BVT+236 02293000 BVT0059P EQU BVT+232 02294000 BVT0057P EQU BVT+224 02295000 BVT0056P EQU BVT+220 02296000 BVTSTBLP EQU BVT+200 02297000 BVT0045P EQU BVT+176 02298000 BVT0044P EQU BVT+172 02299000 BVT0033P EQU BVT+128 02300000 BVT0032P EQU BVT+124 02301000 BVT0031P EQU BVT+120 02302000 BVT0030P EQU BVT+116 02303000 BVT0029P EQU BVT+112 02304000 BVT0026P EQU BVT+100 02305000 BVT0025P EQU BVT+96 02306000 BVT0024P EQU BVT+92 02307000 BVT0023P EQU BVT+88 02308000 BVT0016P EQU BVT+60 02309000 BVT0015P EQU BVT+56 02310000 BVT0014P EQU BVT+52 02311000 BVT0003P EQU BVT+8 02312000 BVT0001P EQU BVT 02313000 SA99 EQU SA+72 02314000 SARC EQU SAR+56 02315000 SARB EQU SAR+52 02316000 SARA EQU SAR+48 02317000 SAR9 EQU SAR+44 02318000 SAR8 EQU SAR+40 02319000 SAR7 EQU SAR+36 02320000 SAR6 EQU SAR+32 02321000 SAR5 EQU SAR+28 02322000 SAR4 EQU SAR+24 02323000 SAR3 EQU SAR+20 02324000 SAR2 EQU SAR+16 02325000 SAR1 EQU SAR+12 02326000 SAR0 EQU SAR+8 02327000 SARF EQU SAR+4 02328000 SARE EQU SAR 02329000 SABAK EQU SA+4 02330000 SA1L EQU SA1+1 02331000 SA1P EQU SA1 02332000 UPTPREFL EQU UPT+23 02333000 UPTPREFX EQU UPT+16 02334000 @NM00111 EQU UPT+15 02335000 UPTLDEL EQU UPT+14 02336000 UPTCDEL EQU UPT+13 02337000 UPTWTP EQU UPTSWS 02338000 UPTMODE EQU UPTSWS 02339000 UPTALD EQU UPTSWS 02340000 UPTPAUS EQU UPTSWS 02341000 UPTNCOM EQU UPTSWS 02342000 UPTMID EQU UPTSWS 02343000 UPTNPRM EQU UPTSWS 02344000 UPTRCVR EQU UPTSWS 02345000 UPTUSER EQU UPT+2 02346000 @NM00110 EQU UPT 02347000 @NM00109 EQU ECT+52 02348000 @NM00108 EQU ECT+48 02349000 @NM00107 EQU ECT+44 02350000 @NM00106 EQU ECTSWS2+1 02351000 @NM00105 EQU ECTSWS21 02352000 ECTTABND EQU ECTSWS21 02353000 ECTDEFCS EQU ECTSWS21 02354000 ECTBKPB EQU ECT+36 02355000 ECTUSER EQU ECT+32 02356000 ECTDDNUM EQU ECT+29 02357000 ECTATTN EQU ECTSWS 02358000 ECTBKGRD EQU ECTSWS 02359000 ECTNNOT EQU ECTSWS 02360000 ECTNMAL EQU ECTSWS 02361000 ECTLOGF EQU ECTSWS 02362000 ECTATRM EQU ECTSWS 02363000 @NM00104 EQU ECTSWS 02364000 ECTNOPD EQU ECTSWS 02365000 ECTSCMD EQU ECT+20 02366000 ECTPCMD EQU ECT+12 02367000 ECTSMSG EQU ECT+9 02368000 ECTMSGF EQU ECT+8 02369000 ECTIOWA EQU ECT+4 02370000 ECTRTCD EQU ECT+1 02371000 ECTRCDF EQU ECT 02372000 PSCBU EQU PSCB+64 02373000 PSCBRSZ EQU PSCB+60 02374000 PSCBLINE EQU PSCB+59 02375000 PSCBCHAR EQU PSCB+58 02376000 PSCBUPTL EQU PSCB+56 02377000 PSCBUPT EQU PSCB+52 02378000 PSCBRLGB EQU PSCB+48 02379000 PSCBDEST EQU PSCB+40 02380000 @NM00103 EQU PSCB+36 02381000 @NM00102 EQU PSCB+32 02382000 @NM00101 EQU PSCB+28 02383000 PSCBLTI2 EQU PSCB+24 02384000 PSCBLTIM EQU PSCB+20 02385000 PSCBATR2 EQU PSCB+18 02386000 @NM00100 EQU PSCBATR1 02387000 @NM00099 EQU PSCBATR1 02388000 @NM00098 EQU PSCBATR1 02389000 PSCBATTN EQU PSCBATR1 02390000 PSCBVMNT EQU PSCBATR1 02391000 PSCBJCL EQU PSCBATR1 02392000 PSCBACCT EQU PSCBATR1 02393000 PSCBCTRL EQU PSCBATR1 02394000 PSCBGPNM EQU PSCB+8 02395000 PSCBUSRL EQU PSCB+7 02396000 PSCBUSER EQU PSCB 02397000 CMDT1 EQU CMDT 02398000 CMDO EQU CMD+2 02399000 CMDL EQU CMD 02400000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02401000 @ENDDATA EQU * 02402000 END BLSUPUT,(C'PLS1855',0701,78117) 02403000