SVTM TITLE 'ISTINCRD-INITIALIZATION PARAMETER READ ROUTINE *00001000 ' 00002000 ISTINCRD CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINCRD 77.305' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @00,@SA00001 0001 00016000 ST @00,8(,@13) 0001 00017000 LR @13,@00 0001 00018000 * 0235 00019000 */******************************************************************** 00020000 * */ 00021000 */* THE FUNCTION OF ISTINCRD IS TO EDIT RECORDS READ FROM THE VTAM-*/ 00022000 */* LST DATASET. THE RECORDS PROCESSED WILL BE EITHER ASSEMBLER LAN- */ 00023000 */* GUAGE MACRO STATEMENTS, START PARAMETERS, OR CONFIGURATION */ 00024000 */* PARAMETERS. */ 00025000 */* IF THE RECORDS ARE START PARAMETERS OR CONFIGURATION PAR- */ 00026000 */* AMETERS, THE OUTPUT IS EDITED INTO THE OUTPUT BUFFER BEGINNING */ 00027000 */* IN COLUMN1 WITH NO BLANKS INCLUDED. */ 00028000 */* IF THE RECORDS ARE ASSEMBLER LANGUAGE MACROS, SCANS ARE MADE FOR 00029000 * */ 00030000 */* NAME FIELD AND OP CODE FIELD RESPECTIVELY. A BLANK IS LEFT */ 00031000 */* BETWEEN NAME FIELD AND OP CODE FIELD AND OP CODE FIELD AND */ 00032000 */* PARAMETERS. IF THERE IS NO NAME FIELD, A BLANK IS LEFT AT THE */ 00033000 */* BEGINNING OF THE BUFFER. */ 00034000 */******************************************************************** 00035000 * */ 00036000 * 0236 00037000 * RSPTR=R1; /* SAVE PTR TO INPUT PARM LIST */ 00038000 * 0236 00039000 ST R1,RSPTR 0236 00040000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(VCVTPTR)) */ 0237 00041000 * VCVTPTR = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0238 00042000 L @00,ATCLCPTR 0238 00043000 ST @00,VCVTPTR 0238 00044000 * END; /*LISATCVT*//* GET PTR TO VTAM CVT */ 0239 00045000 */******************************************************************** 00046000 * */ 00047000 */* MAINLINE ISTINCRD CHECKS THE BUFFER SIZE IN THE VTAM CON- */ 00048000 */* FIGURATION TABLE(CONBUFSZ) TO DETERMINE IF ANY VGTMAINS OR */ 00049000 */* VFRMAINS NEED BE DONE. IF CONBUFSZ=256 THEN A BUFFER ALREADY */ 00050000 */* EXISTS & IS THE CORRECT SIZE. THEREFORE, NO VGTMAIN OR VFRMAIN */ 00051000 */* IS NEEDED. IF CONBUFSZ=0 NO BUFFER EXISTS & VGTMAIN IS NEEDED. */ 00052000 */* IF CONBUFSZ>256, THE 1ST BUFFER MUST BE FREED & A SUBSEQUENT */ 00053000 */* VGTMAIN DONE FOR 256 BYTES. */ 00054000 */******************************************************************** 00055000 * */ 00056000 * 0240 00057000 * RCREG=CRDCLEAR; /* CLEAR RETURN REG */ 00058000 SLR RCREG,RCREG 0240 00059000 * BADSTORE=CRDOFF; /* TURN OFF BAD GETSTOR FLAG */ 00060000 * CONTERR=CRDOFF; /* INITIALIZE TO NO ERROR 0242 00061000 * @DM12512*/ 00062000 NI BADSTORE,B'11101011' 0242 00063000 * IF LDPMBR^=MEMBZERO THEN 0243 00064000 L @11,RSPTR 0243 00065000 CLC LDPMBR(8,@11),MEMBZERO 0243 00066000 BE @RF00243 0243 00067000 * MEMBSAVE=LDPMBR; /* SAVE MEMBER NAME IF NOT ZERO 00068000 * @DM12432*/ 00069000 MVC MEMBSAVE(8),LDPMBR(@11) 0244 00070000 * ELSE 0245 00071000 * ; 0245 00072000 @RF00243 DS 0H 0246 00073000 * IF CONBUFSZ=BUFSIZE THEN 0246 00074000 L @11,VCVTPTR 0246 00075000 L @11,ATCCONFT(,@11) 0246 00076000 LH @00,CONBUFSZ(,@11) 0246 00077000 C @00,BUFSIZE 0246 00078000 BE @RT00246 0246 00079000 * ; /* CHECK IF BUFFER IS NOW 256 */ 00080000 * ELSE 0248 00081000 * DO; /* IF NOT, GET NEW BUFFER */ 00082000 * IF CONBUFSZ=CRDCLEAR THEN 0249 00083000 L @11,VCVTPTR 0249 00084000 L @11,ATCCONFT(,@11) 0249 00085000 LH @00,CONBUFSZ(,@11) 0249 00086000 LTR @00,@00 0249 00087000 BZ @RT00249 0249 00088000 * ; /* IF NO BUF @-DON'T 00089000 * DO FREESTOR */ 00090000 * ELSE 0251 00091000 * DO; 0251 00092000 * 0251 00093000 */*VFRMAIN SIZE(CONBUFSZ)STORAGE((CONRDBUF))SUBPOOL((ADDR(CRDPOOL)))*/ 00094000 * DO; 0252 00095000 * 0252 00096000 * RFY (GPR00P) RSTD; /*PUT VALUE PASSED AS SIZE */ 00097000 * /*PARM IN THREE LOW-ORDER */ 00098000 * /*BYTES OF REG 0 */ 00099000 * GPR00F=CONBUFSZ & '00FFFFFF'X; 0254 00100000 * 0254 00101000 L @11,VCVTPTR 0254 00102000 L @11,ATCCONFT(,@11) 0254 00103000 LH GPR00F,CONBUFSZ(,@11) 0254 00104000 N GPR00F,@CF02374 0254 00105000 * RFY (GPR15P) RSTD; 0255 00106000 * DCL CMZB0011 FIXED(31) BASED(ADDR(CRDPOOL)); 0256 00107000 * /*PUT VALUE POINTED TO BY */ 00108000 * /*SUBPOOL PARM IN HIGH- */ 00109000 * /*ORDER BYTE OF REG 15 */ 00110000 * GPR15F=CMZB0011; 0257 00111000 LA @10,CRDPOOL 0257 00112000 L GPR15F,CMZB0011(,@10) 0257 00113000 * SLL (GPR15P,24); /*COMBINE SUBPOOL AND SIZE */ 00114000 SLL GPR15P,24 0258 00115000 * /*IN REGISTER 0 */ 00116000 * GPR00P=GPR00P | GPR15P; 0259 00117000 * 0259 00118000 OR GPR00P,GPR15P 0259 00119000 * RFY (GPR15P) UNRSTD; /*DECLARE AND RESTRICT REG 1*/ 00120000 * 0260 00121000 * RFY (GPR01P) RSTD; /*INVOKE XREGSET MACRO TO */ 00122000 * /*CHECK STORAGE PARM AND PUT*/ 00123000 * /*ADDR IN REGISTER 1 */ 00124000 * 0262 00125000 */*XREGSET PID('STORAGE')PPARM((CONRDBUF))RREG(1,GPR01P)*/ 0262 00126000 * DO; 0262 00127000 * GPR01P=CONRDBUF; /*SET RREG SYMBOL TO VALUE*/ 00128000 L GPR01P,CONRDBUF(,@11) 0263 00129000 * /*OF PPARM OPERAND */ 00130000 * END; /* XREGSET */ /*INVOKE FREEMAIN MACRO */ 00131000 * GEN; 0265 00132000 FREEMAIN R,LV=(0),A=(1) 00133000 * /*UNRESTRICT REG 1 */ 00134000 * 0266 00135000 * RFY (GPR01P) UNRSTD; /* UNRESTRICT REG 0 */ 00136000 * 0266 00137000 * RFY (GPR00P) UNRSTD; 0267 00138000 * END; /* VFRMAIN */ 0268 00139000 * CONBUFSZ=CRDCLEAR; /* ZERO BUFFER SIZE */ 00140000 SLR @11,@11 0269 00141000 L @10,VCVTPTR 0269 00142000 L @10,ATCCONFT(,@10) 0269 00143000 STH @11,CONBUFSZ(,@10) 0269 00144000 * CONRDBUF=CRDCLEAR; /* ZERO BUFFER @ */ 00145000 ST @11,CONRDBUF(,@10) 0270 00146000 * END; 0271 00147000 * GEN SETS(SMSREGS)(STM 2,4,SMSREGS);/* SAVE REGS CLOBBERRED 00148000 * BY GETSTOR */ 00149000 @RT00249 DS 0H 0272 00150000 STM 2,4,SMSREGS 00151000 */*VGTMAIN SIZE(BUFSIZE)STORAGE((ADDR(CONRDBUF)))SUBPOOL((ADDR(CRDPOOL) 00152000 *)*/ 0273 00153000 * DO; /*DECLARE AND RESTRICT */ 00154000 * /* REGISTERS 2,3, AND 4 */ 00155000 * 0274 00156000 * RFY (GPR02P,GPR03P,GPR04P) RSTD; 0274 00157000 * /*INVOKE XREGSET MACRO TO */ 00158000 * /*CHECK SIZE PARM AND PUT */ 00159000 * /*VALUE IN REGISTER 2 */ 00160000 * 0275 00161000 */*XREGSET PID('SIZE')PPARM(BUFSIZE)RREG(,GPR02F)OUTPUT(PARM)*/ 0275 00162000 * DO; 0275 00163000 * GPR02F=BUFSIZE; /*SET RREG SYMBOL TO VALUE*/ 00164000 L GPR02F,BUFSIZE 0276 00165000 * /*OF PPARM OPERAND */ 00166000 * END; /* XREGSET */ /*INVOKE XREGSET MACRO TO */ 00167000 * /*CHECK STORAGE PARM AND */ 00168000 * /*PUT VALUE IN REGISTER 3 */ 00169000 * 0278 00170000 */*XREGSET PID('STORAGE')PPARM((ADDR(CONRDBUF)))RREG(,GPR03F)*/ 0278 00171000 * DO; 0278 00172000 * GPR03F=ADDR(CONRDBUF); /*SET RREG SYMBOL TO VALUE*/ 00173000 L @11,VCVTPTR 0279 00174000 L GPR03F,ATCCONFT(,@11) 0279 00175000 LA GPR03F,CONRDBUF(,GPR03F) 0279 00176000 * /*OF PPARM OPERAND */ 00177000 * END; /* XREGSET */ /*INVOKE XREGSET MACRO TO */ 00178000 * /*CHECK SUBPOOL PARM AND */ 00179000 * /*PUT VALUE IN REGISTER 4 */ 00180000 * 0281 00181000 */*XREGSET PID('SUBPOOL')PPARM((ADDR(CRDPOOL)))RREG(,GPR04F)OUTPUT(PAR 00182000 *)*/ 0281 00183000 * DO; 0281 00184000 * DCL DUME0024 CHAR(4) BASED(ADDR(CRDPOOL)); 0282 00185000 * /*DEFINE DUMMY VARIABLE SO*/ 00186000 * /*THAT PPARM OPERAND CAN BE*/ 00187000 * /*USED AS A POINTER */ 00188000 * GPR04F=DUME0024; /*SET RREG SYMBOL TO VALUE*/ 00189000 LA @11,CRDPOOL 0283 00190000 ICM GPR04F,15,DUME0024(@11) 0283 00191000 * /*POINTED TO BY PPARM OPER*/ 00192000 * END; /* XREGSET */ /* INVOKE GETMAIN MACRO */ 00193000 * GEN REFS(GPR02F,GPR03P,GPR04F) SETS(GPR03P,GPR15F); 0285 00194000 GETMAIN EC,LV=(2),A=(3),SP=(4) 00195000 * /*UNRESTRICT REGS 2,3, AND 4*/ 00196000 * 0286 00197000 * RFY (GPR02P,GPR03P,GPR04P) UNRSTD; 0286 00198000 * END; /* VGTMAIN */ 0287 00199000 * GEN REFS(SMSREGS)(LM 2,4,SMSREGS);/* RESTORE REGS */ 00200000 LM 2,4,SMSREGS 00201000 * IF RCREG=CRDCLEAR THEN 0289 00202000 LTR RCREG,RCREG 0289 00203000 BNZ @RF00289 0289 00204000 * DO; 0290 00205000 * CONBUFSZ=BUFSIZE; /* SET BUFFER SIZE */ 00206000 L @11,VCVTPTR 0291 00207000 L @11,ATCCONFT(,@11) 0291 00208000 L @00,BUFSIZE 0291 00209000 STH @00,CONBUFSZ(,@11) 0291 00210000 * END; 0292 00211000 * ELSE 0293 00212000 * DO; 0293 00213000 B @RC00289 0293 00214000 @RF00289 DS 0H 0294 00215000 * BADSTORE=CRDON; /* SET BAD GETSTORE FLAG ON */ 00216000 OI BADSTORE,B'00010000' 0294 00217000 * END; 0295 00218000 * END; 0296 00219000 @RC00289 DS 0H 0297 00220000 * IF RCREG=CRDCLEAR THEN 0297 00221000 @RT00246 SLR @11,@11 0297 00222000 CR RCREG,@11 0297 00223000 BNE @RF00297 0297 00224000 * DO; 0298 00225000 * CURRENTP=ADDR(INBUF); /* PT. CURRENT PTR AT BUFFER 0299 00226000 * BEGIN */ 00227000 LA CURRENTP,INBUF 0299 00228000 * RSPLIBN=LDPPDS; /* MOVE LIB NAME TO MY PARM LIST */ 00229000 L @10,RSPTR 0300 00230000 MVC RSPLIBN(8),LDPPDS(@10) 0300 00231000 */* MOVE 3RD FIELD FROM INPUT PARM LIST TO CRS PARM LIST */ 00232000 * 0301 00233000 * ISTRSPRM(CRDWRD5B:CRDWRD5E)=ISTLDPRM(CRDWRD5B:CRDWRD5E); 0301 00234000 MVC ISTRSPRM+16(4),ISTLDPRM+16(@10) 0301 00235000 * RSPMEMBN=LDPMBR; /* MOVE MEMBER NAME INTO MY LIST */ 00236000 MVC RSPMEMBN(8),LDPMBR(@10) 0302 00237000 * QUOTECNT=CRDCLEAR; /* CLEAR QUOTE COUNT */ 00238000 ST @11,QUOTECNT 0303 00239000 * NOPARMS=CRDOFF; /* CLEAR NOPARMS FLAG */ 00240000 NI NOPARMS,B'11110111' 0304 00241000 * CRDOBPTR=CONRDBUF; /* SET INTERNAL OUTPUT BUFFER PTR*/ 00242000 L @11,VCVTPTR 0305 00243000 L @11,ATCCONFT(,@11) 0305 00244000 L @00,CONRDBUF(,@11) 0305 00245000 ST @00,CRDOBPTR 0305 00246000 * CRDENDSP=CRDON; /* SET FLAG ON FOR GOREAD FOR 0306 00247000 * CONTINUATION OK */ 00248000 OI CRDENDSP,B'10000000' 0306 00249000 */* GOREAD AND EDITRCD ARE NOW CALLED TO READ A RECORD AND EDIT IT */ 00250000 * 0307 00251000 * CALL GOREAD; /* CALL ISTINCRS INTERFACE 0307 00252000 * SUBROUTINE */ 00253000 BAL @14,GOREAD 0307 00254000 * IF RCREG=CRDCLEAR THEN /* IS READ SUCCESSFUL? */ 00255000 LTR RCREG,RCREG 0308 00256000 BNZ @RF00308 0308 00257000 * DO; 0309 00258000 * CALL STNB; /* CALL SUBRTN. TO SCAN TO 0310 00259000 * NON-BLANKS */ 00260000 BAL @14,STNB 0310 00261000 * IF CONTERR^=CRDON THEN /* DONT SEND ERR MSG 114 @DM12512*/ 00262000 TM CONTERR,B'00000100' 0311 00263000 BO @RF00311 0311 00264000 * IF RCREG^=CRDCLEAR THEN/* CHECK IF STNB O.K. */ 00265000 LTR RCREG,RCREG 0312 00266000 BZ @RF00312 0312 00267000 * DO; 0313 00268000 * 0313 00269000 */*TPMSG MSGID('114I')MSG((ADDR(MEMBSAVE)))*/ 0314 00270000 * 0314 00271000 * DO; 0314 00272000 * DCL REG1026 REG(1) PTR; 0315 00273000 * RFY (REG1026) RSTD; 0316 00274000 * 0316 00275000 * RFY (EMCR13) RSTD; 0317 00276000 * DCL 1 * BASED(REG1026), 0318 00277000 * 2 CMZID026 PTR(31), 0318 00278000 * 2 *, 0318 00279000 * 3 CMZRL026 PTR(8), 0318 00280000 * 3 CMZRA026 PTR(24) BDY(BYTE), 0318 00281000 * 2 CMZEA026 PTR(31), 0318 00282000 * 2 CMZVP026 PTR(31); 0318 00283000 * DCL CMZPL026(4) FIXED INIT((4)0); 0319 00284000 * REG1026 = ADDR(CMZPL026); 0320 00285000 LA REG1026,CMZPL026 0320 00286000 * DCL CMZAA026 CHAR(4) INIT('114I'); 0321 00287000 * CMZID026 = ADDR(CMZAA026); 0322 00288000 LA @00,CMZAA026 0322 00289000 ST @00,CMZID026(,REG1026) 0322 00290000 * CMZVP026 = ADDR(MEMBSAVE); 0323 00291000 LA @00,MEMBSAVE 0323 00292000 ST @00,CMZVP026(,REG1026) 0323 00293000 * DCL CMZSA026 (18) PTR(31) BASED(EMCR13); 0324 00294000 * DCL CMZZO026 (1) FIXED(31) INIT(0); 0325 00295000 * CMZSA026(5) = CMZZO026; 0326 00296000 * 0326 00297000 L @00,CMZZO026 0326 00298000 ST @00,CMZSA026+16(,EMCR13) 0326 00299000 * DCL REG15026 REG(15) PTR; 0327 00300000 * RFY REG15026 RSTD; 0328 00301000 * 0328 00302000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15026)) */ 0329 00303000 * REG15026 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0330 00304000 L REG15026,ATCLCPTR 0330 00305000 * END; /*LISATCVT*/ 0331 00306000 * DCL CMTA026 BASED(REG15026) ENTRY VALUERANGE(*); 00307000 * REG15026 = REG15026->ATCMSGP; 0333 00308000 L REG15026,ATCMSGP(,REG15026) 0333 00309000 * CALL CMTA026; 0334 00310000 BALR @14,@15 0334 00311000 * RESPECIFY (REG1026,REG15026) UNRESTRICTED; 0335 00312000 * 0335 00313000 * RFY (EMCR13) UNRSTD; 0336 00314000 * END; 0337 00315000 * RCREG=RETURN12; /* SET 12 R.C. */ 00316000 LA RCREG,12 0338 00317000 * END; 0339 00318000 * ELSE 0340 00319000 * CALL EDITRCD; /* IF R.C.=0 THEN CALL EDITRCD */ 00320000 B @RC00312 0340 00321000 @RF00312 BAL @14,EDITRCD 0340 00322000 * ELSE 0341 00323000 * ; /* @DM12512*/ 00324000 @RF00311 DS 0H 0342 00325000 * END; 0342 00326000 * ELSE 0343 00327000 * ; /* READ NOT SUCCESSFUL */ 00328000 @RF00308 DS 0H 0344 00329000 * END; 0344 00330000 * ELSE 0345 00331000 * DO; 0345 00332000 * 0345 00333000 B @RC00297 0345 00334000 @RF00297 DS 0H 0346 00335000 */*TPMSG MSGID('115I')MSG((ADDR(MEMBSAVE)))*/ 0346 00336000 * 0346 00337000 * DO; 0346 00338000 * DCL REG1034 REG(1) PTR; 0347 00339000 * RFY (REG1034) RSTD; 0348 00340000 * 0348 00341000 * RFY (EMCR13) RSTD; 0349 00342000 * DCL 1 * BASED(REG1034), 0350 00343000 * 2 CMZID034 PTR(31), 0350 00344000 * 2 *, 0350 00345000 * 3 CMZRL034 PTR(8), 0350 00346000 * 3 CMZRA034 PTR(24) BDY(BYTE), 0350 00347000 * 2 CMZEA034 PTR(31), 0350 00348000 * 2 CMZVP034 PTR(31); 0350 00349000 * DCL CMZPL034(4) FIXED INIT((4)0); 0351 00350000 * REG1034 = ADDR(CMZPL034); 0352 00351000 LA REG1034,CMZPL034 0352 00352000 * DCL CMZAA034 CHAR(4) INIT('115I'); 0353 00353000 * CMZID034 = ADDR(CMZAA034); 0354 00354000 LA @00,CMZAA034 0354 00355000 ST @00,CMZID034(,REG1034) 0354 00356000 * CMZVP034 = ADDR(MEMBSAVE); 0355 00357000 LA @00,MEMBSAVE 0355 00358000 ST @00,CMZVP034(,REG1034) 0355 00359000 * DCL CMZSA034 (18) PTR(31) BASED(EMCR13); 0356 00360000 * DCL CMZZO034 (1) FIXED(31) INIT(0); 0357 00361000 * CMZSA034(5) = CMZZO034; 0358 00362000 * 0358 00363000 L @00,CMZZO034 0358 00364000 ST @00,CMZSA034+16(,EMCR13) 0358 00365000 * DCL REG15034 REG(15) PTR; 0359 00366000 * RFY REG15034 RSTD; 0360 00367000 * 0360 00368000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15034)) */ 0361 00369000 * REG15034 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0362 00370000 L REG15034,ATCLCPTR 0362 00371000 * END; /*LISATCVT*/ 0363 00372000 * DCL CMTA034 BASED(REG15034) ENTRY VALUERANGE(*); 0364 00373000 * REG15034 = REG15034->ATCMSGP; 0365 00374000 L REG15034,ATCMSGP(,REG15034) 0365 00375000 * CALL CMTA034; 0366 00376000 BALR @14,@15 0366 00377000 * RESPECIFY (REG1034,REG15034) UNRESTRICTED; 0367 00378000 * 0367 00379000 * RFY (EMCR13) UNRSTD; 0368 00380000 * END;/* @DM12432*/ 0369 00381000 * RCREG=RETURN12; /* SET 12 R.C. */ 00382000 LA RCREG,12 0370 00383000 * END; 0371 00384000 * IF RCREG=CRDCLEAR|BADSTORE=CRDON THEN 0372 00385000 @RC00297 LTR RCREG,RCREG 0372 00386000 BZ @RT00372 0372 00387000 TM BADSTORE,B'00010000' 0372 00388000 BO @RT00372 0372 00389000 * ; /* DON'T DO FREESTOR HERE */ 00390000 * ELSE 0374 00391000 * DO; 0374 00392000 * TEMPRC=RCREG; /* SAVE R.C. OVER FREESTOR */ 00393000 * 0375 00394000 ST RCREG,TEMPRC 0375 00395000 */*VFRMAIN SIZE(CONBUFSZ)STORAGE((CONRDBUF))SUBPOOL((ADDR(CRDPOOL)))*/ 00396000 * DO; 0376 00397000 * 0376 00398000 * RFY (GPR00P) RSTD; /*PUT VALUE PASSED AS SIZE */ 00399000 * /*PARM IN THREE LOW-ORDER */ 00400000 * /*BYTES OF REG 0 */ 00401000 * GPR00F=CONBUFSZ & '00FFFFFF'X; 0378 00402000 * 0378 00403000 L @11,VCVTPTR 0378 00404000 L @11,ATCCONFT(,@11) 0378 00405000 LH GPR00F,CONBUFSZ(,@11) 0378 00406000 N GPR00F,@CF02374 0378 00407000 * RFY (GPR15P) RSTD; 0379 00408000 * DCL CMZB0042 FIXED(31) BASED(ADDR(CRDPOOL)); 0380 00409000 * /*PUT VALUE POINTED TO BY */ 00410000 * /*SUBPOOL PARM IN HIGH- */ 00411000 * /*ORDER BYTE OF REG 15 */ 00412000 * GPR15F=CMZB0042; 0381 00413000 LA @10,CRDPOOL 0381 00414000 L GPR15F,CMZB0042(,@10) 0381 00415000 * SLL (GPR15P,24); /*COMBINE SUBPOOL AND SIZE */ 00416000 SLL GPR15P,24 0382 00417000 * /*IN REGISTER 0 */ 00418000 * GPR00P=GPR00P | GPR15P; 0383 00419000 * 0383 00420000 OR GPR00P,GPR15P 0383 00421000 * RFY (GPR15P) UNRSTD; /*DECLARE AND RESTRICT REG 1*/ 00422000 * 0384 00423000 * RFY (GPR01P) RSTD; /*INVOKE XREGSET MACRO TO */ 00424000 * /*CHECK STORAGE PARM AND PUT*/ 00425000 * /*ADDR IN REGISTER 1 */ 00426000 * 0386 00427000 */*XREGSET PID('STORAGE')PPARM((CONRDBUF))RREG(1,GPR01P)*/ 0386 00428000 * DO; 0386 00429000 * GPR01P=CONRDBUF; /*SET RREG SYMBOL TO VALUE*/ 00430000 L GPR01P,CONRDBUF(,@11) 0387 00431000 * /*OF PPARM OPERAND */ 00432000 * END; /* XREGSET */ /*INVOKE FREEMAIN MACRO */ 00433000 * GEN; 0389 00434000 FREEMAIN R,LV=(0),A=(1) 00435000 * /*UNRESTRICT REG 1 */ 00436000 * 0390 00437000 * RFY (GPR01P) UNRSTD; /* UNRESTRICT REG 0 */ 00438000 * 0390 00439000 * RFY (GPR00P) UNRSTD; 0391 00440000 * END; /* VFRMAIN */ 0392 00441000 * CONRDBUF=CRDCLEAR; /* ZERO CONRDBUF */ 00442000 SLR @11,@11 0393 00443000 L @10,VCVTPTR 0393 00444000 L @10,ATCCONFT(,@10) 0393 00445000 ST @11,CONRDBUF(,@10) 0393 00446000 * CONBUFSZ=CRDCLEAR; /* CLEAR BUFFER SIZE */ 00447000 STH @11,CONBUFSZ(,@10) 0394 00448000 * RCREG=TEMPRC; /* RESTORE R.C. */ 00449000 L RCREG,TEMPRC 0395 00450000 * END; 0396 00451000 * RETURN; /* RETURN TO CALLER */ 00452000 @EL00001 L @13,4(,@13) 0397 00453000 @EF00001 DS 0H 0397 00454000 @ER00001 L @14,12(,@13) 0397 00455000 LM @00,@12,20(@13) 0397 00456000 BR @14 0397 00457000 *EDITRCD: 0398 00458000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0398 00459000 * 0398 00460000 EDITRCD DS 0H 0399 00461000 */******************************************************************** 00462000 * */ 00463000 */* THE EDITRCD SUBROUTINE DETERMINES HOW ISTINCRD WAS ENTERED. */ 00464000 */* I.E. WAS IT ENTERED FOR START PARAMETERS, CONFIGURATION PARAMETERS 00465000 * */ 00466000 */* OR ASSEMBLER LANGUAGE MACRO STATEMENTS. IF IT WAS ENTERED FOR */ 00467000 */* ASSEMBLER LANGUAGE MACRO STATEMENTS, THE NAME & OP CODE FIELDS */ 00468000 */* ARE PROPERLY EDITED. PARMSCAN IS CALLED FOR BOTH TYPES OF ENTRIES*/ 00469000 */* TO SCAN PARAMETERS. */ 00470000 */******************************************************************** 00471000 * */ 00472000 * 0399 00473000 * DCL 0399 00474000 * EDITSAVE; /* SAVE FOR REG 14 */ 00475000 * EDITSAVE=R14; /* SAVE REG 14 */ 00476000 ST R14,EDITSAVE 0400 00477000 * CRDENDST=CRDOFF; /* SET FLAG OFF FOR LOOP */ 00478000 NI CRDENDST,B'10111111' 0401 00479000 * IF MEMBSAVE(START:FIRST6)='ATCCON'|MEMBSAVE(START:FIRST6)='ATCSTR' 00480000 * THEN /* IF 1ST 6 CHARS OF MEMBER NAME 00481000 * ARE ATCCON OR ATCSTR */ 00482000 CLC MEMBSAVE(6),@CC02418 0402 00483000 BE @RT00402 0402 00484000 CLC MEMBSAVE(6),@CC02419 0402 00485000 BNE @RF00402 0402 00486000 @RT00402 DS 0H 0403 00487000 * CALL PARMSCAN; /* CALL ROUTINE TO SCAN 0403 00488000 * PARAMETERS */ 00489000 BAL @14,PARMSCAN 0403 00490000 * ELSE 0404 00491000 * DO; 0404 00492000 B @RC00402 0404 00493000 @RF00402 DS 0H 0405 00494000 * IF INBUF(START:START)=BLANK THEN/* CHECK FOR BLANK IN COL. 1 */ 00495000 CLI INBUF,C' ' 0405 00496000 BNE @RF00405 0405 00497000 * DO; 0406 00498000 * OUTAREA(START:START)=BLANK;/* MOVE A BLANK TO OUTPUT AREA*/ 00499000 L @11,CRDOBPTR 0407 00500000 MVI OUTAREA(@11),C' ' 0407 00501000 * CRDOBPTR=CRDOBPTR+CONS1;/* BUMP OUTPUT PTR */ 00502000 AL @11,@CF00061 0408 00503000 ST @11,CRDOBPTR 0408 00504000 * END; 0409 00505000 * ELSE 0410 00506000 * DO; /* IF NOT BLANK, THEN PROCESS 0410 00507000 * NAME FIELD */ 00508000 B @RC00405 0410 00509000 @RF00405 DS 0H 0411 00510000 * CALL MTB; /* MOVE TO BLANKS */ 00511000 BAL @14,MTB 0411 00512000 * CALL STNB; /* SCAN TO NON-BLANKS */ 00513000 BAL @14,STNB 0412 00514000 * END; 0413 00515000 * IF RCREG=CRDCLEAR THEN /* IF R.C. =0 THEN SCAN REST OF 00516000 * CARD */ 00517000 @RC00405 LTR RCREG,RCREG 0414 00518000 BNZ @RF00414 0414 00519000 * DO; 0415 00520000 * CALL MTB; /* MOVE TO BLANKS */ 00521000 BAL @14,MTB 0416 00522000 * NOPARMS=CRDON; /* INDICATE NO PARAMS ON CARD IS 00523000 * OK */ 00524000 OI NOPARMS,B'00001000' 0417 00525000 * CALL STNB; /* SCAN TO NON-BLANKS */ 00526000 BAL @14,STNB 0418 00527000 * IF RCREG=CRDCLEAR THEN /* CHECK IF NON-BLANK FOUND */ 00528000 LTR RCREG,RCREG 0419 00529000 BNZ @RF00419 0419 00530000 * DO; 0420 00531000 * NOPARMS=CRDOFF; /* TURN OFF NOPARMS FLAG */ 00532000 NI NOPARMS,B'11110111' 0421 00533000 * CALL PARMSCAN; /* IF NON-BLANK FOUND, PROCESS 0422 00534000 * PARMS */ 00535000 BAL @14,PARMSCAN 0422 00536000 * END; 0423 00537000 * ELSE 0424 00538000 * ; /* RETURN CODE ^= 0 FROM PARMSCAN*/ 00539000 @RF00419 DS 0H 0425 00540000 * END; 0425 00541000 * ELSE 0426 00542000 * ; /* RETURN CODE ^= 0 FROM MTB */ 00543000 @RF00414 DS 0H 0427 00544000 * END; 0427 00545000 * IF RCREG=CRDCLEAR THEN 0428 00546000 @RC00402 LTR RCREG,RCREG 0428 00547000 BNZ @RF00428 0428 00548000 * OUTAREA(START:START2)=BLANKS; /* ADD 2 BLANKS TO OUTPUT AREA */ 00549000 L @11,CRDOBPTR 0429 00550000 MVC OUTAREA(2,@11),@CC02325 0429 00551000 * R14=EDITSAVE; /* RESTORE REG 14 FOR RETURN */ 00552000 @RF00428 L R14,EDITSAVE 0430 00553000 * END EDITRCD; 0431 00554000 @EL00002 DS 0H 0431 00555000 @EF00002 DS 0H 0431 00556000 @ER00002 BR @14 0431 00557000 *PARMSCAN: 0432 00558000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0432 00559000 * 0432 00560000 PARMSCAN DS 0H 0433 00561000 */******************************************************************** 00562000 * */ 00563000 */* THE PARMSCAN SUBROUTINE IS CALLED TO SCAN THE PARAMETERS OF THE*/ 00564000 */* RECORD. ALL IMBEDDED BLANKS, NOT INSIDE A QUOTE, ARE TREATED AS */ 00565000 */* EXTRANEOUS & NOT MOVED TO THE OUTPUT BUFFER. */ 00566000 */* CHK72 IS CALLED AT THE END OF THE CURRENT RECORD TO DETERMINE */ 00567000 */* IF THE PARAMETERS ARE CONTINUED ON ANOTHER CARD. */ 00568000 */******************************************************************** 00569000 * */ 00570000 */* THE FOLLOWING DECLARES ARE LOCAL TO PARMSCAN */ 00571000 * 0433 00572000 * DCL 0433 00573000 * PARMSAVE; /* SAVE VAR. FOR REG 14 */ 00574000 * DCL 0434 00575000 * FUNCBYTE CHAR(1) BASED(STOPPTR);/* BYTE WHERE TRT STOPS */ 00576000 * DCL 0435 00577000 * QUOTECHR CHAR(1) INIT('7D'X); /* QUOTE FOR QUOTE CHECK */ 00578000 * DCL 0436 00579000 * 1 PARMFLGS CHAR(1), 0436 00580000 * 2 * BIT(1), 0436 00581000 * 2 CC0FLAG BIT(1), /* FLAG INDICATING C.C=0 */ 00582000 * 2 * BIT(6); 0436 00583000 * DCL 0437 00584000 * CONS7 CONSTANT(7); /* USED FOR C.C. CHECK */ 00585000 * DCL 0438 00586000 * PREVBYTE CHAR(1) BASED(STOPPTR-CONS1);/* BYTE BEFORE TRT STOPS */ 00587000 * DCL 0439 00588000 * CHARCNT; /* USED TO CALCULATE # CHARS 0439 00589000 * SCANNED */ 00590000 * DCL 0440 00591000 * CONS13 CONSTANT(13); /* USE FOR C.C. CHECK */ 00592000 * DCL 0441 00593000 * 1 PARMTAB CHAR(256), /* TRANSLATE & TEST TABLE FOR 0441 00594000 * PARMSCAN */ 00595000 * 2 * CHAR(64), 0441 00596000 * 3 *(64) CHAR(1) INIT((64)'00'X), 0441 00597000 * 2 BLANKSTP CHAR(1) INIT('04'X),/* BLANK STOP */ 00598000 * 2 * CHAR(60), 0441 00599000 * 3 *(60) CHAR(1) INIT((60)'00'X), 0441 00600000 * 2 QUOTESTP CHAR(1) INIT('08'X),/* QUOTE STOP */ 00601000 * 2 * CHAR(130), 0441 00602000 * 3 *(130) CHAR(1) INIT((130)'00'X); 0441 00603000 * 0441 00604000 */* THE FOLLOWING TRT WILL STOP ON A BLANK OR QUOTE */ 00605000 * 0442 00606000 * GEN DATA REFS(CURRENTP,PARMTAB); 0442 00607000 * PARMSAVE=R14; /* SAVE REG 14 */ 00608000 ST R14,PARMSAVE 0443 00609000 * CRDENDSP=CRDOFF; /* TURN OFF ALL LOOP CONTROL 0444 00610000 * FLAGS */ 00611000 * CRDENDST=CRDOFF; 0445 00612000 * CRDENTRT=CRDOFF; 0446 00613000 NI CRDENDSP,B'00011111' 0446 00614000 * RCREG=CRDCLEAR; 0447 00615000 SLR RCREG,RCREG 0447 00616000 * DO WHILE(RCREG=CRDCLEAR&CRDENDST=CRDOFF);/* MAJOR DO WHILE SCAN 00617000 * ENTIRE STRING */ 00618000 B @DE00448 0448 00619000 @DL00448 DS 0H 0449 00620000 * DO WHILE(RCREG=CRDCLEAR&CRDENTRT=CRDOFF);/* MINOR DO WHILE FOR 00621000 * SUB PARMS */ 00622000 B @DE00449 0449 00623000 @DL00449 DS 0H 0450 00624000 * CC0FLAG=CRDOFF; /* TURN OFF C.C. 0 FLAG */ 00625000 NI CC0FLAG,B'10111111' 0450 00626000 * IF CRDENDSP=CRDON THEN 0451 00627000 TM CRDENDSP,B'10000000' 0451 00628000 BNO @RF00451 0451 00629000 * CRDENTRT=CRDON; /* CHECK END SUBPRM FLAG */ 00630000 OI CRDENTRT,B'00100000' 0452 00631000 * ELSE 0453 00632000 * DO; 0453 00633000 B @RC00451 0453 00634000 @RF00451 DS 0H 0454 00635000 * TRTREG=ADDR(INBUF)+ENDCARD-CURRENTP-CONS1;/* CALCULATE 0454 00636000 * LENGTH OF STRING */ 00637000 LA TRTREG,INBUF 0454 00638000 AL TRTREG,@CF02360 0454 00639000 SLR TRTREG,CURRENTP 0454 00640000 BCTR TRTREG,0 0454 00641000 * GEN(EX TRTREG,TRANSLT);/* EXECUTE THE TRT FOR PARMSCAN*/ 00642000 EX TRTREG,TRANSLT 00643000 * STOPPTR=R1; /* SAVE STOP POSITION */ 00644000 ST R1,STOPPTR 0456 00645000 * BC(CONS7,CONCODE2); /* IF C.C IS NOT ZERO BRANCH */ 00646000 BC 7,CONCODE2 0457 00647000 * CC0FLAG=CRDON; /* INDICATE C.C. =0 */ 00648000 OI CC0FLAG,B'01000000' 0458 00649000 * CRDENTRT=CRDON; /* SET FLAG TO GET OUT OF TRT 0459 00650000 * LOOP */ 00651000 OI CRDENTRT,B'00100000' 0459 00652000 * GOTO RCCHECK; /* THIS IS NEEDED BECAUSE OF C.C. 00653000 * CHECK */ 00654000 B RCCHECK 0460 00655000 *CONCODE2: 0461 00656000 * BC(CONS13,QUOTECHK); /* CHECK FOR C.C. = 2 */ 00657000 CONCODE2 BC 13,QUOTECHK 0461 00658000 * CRDENTRT=CRDON; /* SET END TRT FLAG */ 00659000 OI CRDENTRT,B'00100000' 0462 00660000 *QUOTECHK: 0463 00661000 * IF FUNCBYTE=QUOTECHR THEN/* IS THE STOP BYTE A QUOTE? */ 00662000 QUOTECHK L @11,STOPPTR 0463 00663000 CLC FUNCBYTE(1,@11),QUOTECHR 0463 00664000 BNE @RF00463 0463 00665000 * DO; 0464 00666000 * QUOTECNS=CONS1; /* WE WANT TO ADD QUOTE */ 00667000 LA @11,1 0465 00668000 ST @11,QUOTECNS 0465 00669000 * QUOTECNT=QUOTECNT+CONS1;/* IF YES, ADD 1 TO QUOTE CNT*/ 00670000 AL @11,QUOTECNT 0466 00671000 ST @11,QUOTECNT 0466 00672000 * END; 0467 00673000 * ELSE 0468 00674000 * DO; 0468 00675000 B @RC00463 0468 00676000 @RF00463 DS 0H 0469 00677000 * IF QUOTECNT//2=CRDCLEAR THEN/* CHECK FOR PAIRED 0469 00678000 * QUOTES */ 00679000 SLR @11,@11 0469 00680000 L @06,QUOTECNT 0469 00681000 SRDA @06,32 0469 00682000 D @06,@CF00073 0469 00683000 CR @06,@11 0469 00684000 BNE @RF00469 0469 00685000 * DO; 0470 00686000 * QUOTECNS=CRDCLEAR;/* SET CONS TO 0 SO BLANK NOT 00687000 * INCL. */ 00688000 ST @11,QUOTECNS 0471 00689000 * IF PREVBYTE=',' THEN 0472 00690000 L @11,STOPPTR 0472 00691000 AL @11,@CF02629 0472 00692000 CLI PREVBYTE(@11),C',' 0472 00693000 BE @RT00472 0472 00694000 * ; /* CHECK IF PREVIOUS BYTE WAS A 00695000 * COMMA */ 00696000 * ELSE 0474 00697000 * CRDENDSP=CRDON;/* OUT OF SUB-PARM SCAN */ 00698000 OI CRDENDSP,B'10000000' 0474 00699000 * CRDENTRT=CRDON; /* OUT OF TRT LOOP */ 00700000 @RT00472 OI CRDENTRT,B'00100000' 0475 00701000 * END; 0476 00702000 * ELSE 0477 00703000 * QUOTECNS=CONS1; /* WANT TO ADD BLANK IF INSIDE 0477 00704000 * QUOTES */ 00705000 B @RC00469 0477 00706000 @RF00469 MVC QUOTECNS(4),@CF00061 0477 00707000 * END; 0478 00708000 @RC00469 DS 0H 0479 00709000 *RCCHECK: 0479 00710000 * IF RCREG=CRDCLEAR THEN 0479 00711000 @RC00463 DS 0H 0479 00712000 RCCHECK LTR RCREG,RCREG 0479 00713000 BNZ @RF00479 0479 00714000 * DO; 0480 00715000 * 0480 00716000 * /*****************************************************/ 00717000 * /* */ 00718000 * /* CALCULATE # CHARS. SCANNED */ 00719000 * /* */ 00720000 * /*****************************************************/ 00721000 * 0481 00722000 * IF CC0FLAG=CRDON THEN 0481 00723000 TM CC0FLAG,B'01000000' 0481 00724000 BNO @RF00481 0481 00725000 * CHARCNT=ADDR(INBUF)+ENDCARD-CURRENTP; 0482 00726000 * 0482 00727000 LA @00,INBUF 0482 00728000 AL @00,@CF02360 0482 00729000 SLR @00,CURRENTP 0482 00730000 ST @00,CHARCNT 0482 00731000 * /*****************************************************/ 00732000 * /* */ 00733000 * /* IF C.C = 0 REG 1 NOT UPDATED */ 00734000 * /* */ 00735000 * /*****************************************************/ 00736000 * 0483 00737000 * ELSE 0483 00738000 * CHARCNT=STOPPTR-CURRENTP+QUOTECNS;/* GET NORMAL 0483 00739000 * CHAR COUNT */ 00740000 B @RC00481 0483 00741000 @RF00481 L @00,STOPPTR 0483 00742000 SLR @00,CURRENTP 0483 00743000 AL @00,QUOTECNS 0483 00744000 ST @00,CHARCNT 0483 00745000 * IF CHARCNT^=CRDCLEAR THEN/* CHECK SO WE DON'T TRY TO 00746000 * MOVE 0 BYTES */ 00747000 @RC00481 L @11,CHARCNT 0484 00748000 LTR @11,@11 0484 00749000 BZ @RF00484 0484 00750000 * DO; 0485 00751000 * 0485 00752000 * /*************************************************/ 00753000 * /* */ 00754000 * /* MOVE CHARS TO OUTPUT AREA */ 00755000 * /* */ 00756000 * /*************************************************/ 00757000 * 0486 00758000 * OUTAREA(START:CHARCNT)=INBUFNOW(START:CHARCNT); 00759000 L @10,CRDOBPTR 0486 00760000 BCTR @11,0 0486 00761000 EX @11,@SM02630 0486 00762000 * END; 0487 00763000 * ELSE 0488 00764000 * ; 0488 00765000 @RF00484 DS 0H 0489 00766000 * CURRENTP=STOPPTR+CONS1;/* UPDATE CURRENT PTR */ 00767000 LA CURRENTP,1 0489 00768000 AL CURRENTP,STOPPTR 0489 00769000 * CRDOBPTR=CRDOBPTR+CHARCNT;/* UPDATE OUTPUT PTR */ 00770000 L @00,CRDOBPTR 0490 00771000 AL @00,CHARCNT 0490 00772000 ST @00,CRDOBPTR 0490 00773000 * END; 0491 00774000 * ELSE 0492 00775000 * ; 0492 00776000 @RF00479 DS 0H 0493 00777000 * END; /* END ELSE CLAUSE FOR CRDENDSP 00778000 * CHECK */ 00779000 * END; /* END MINOR LOOP */ 00780000 @RC00451 DS 0H 0494 00781000 @DE00449 LTR RCREG,RCREG 0494 00782000 BNZ @DC00449 0494 00783000 TM CRDENTRT,B'00100000' 0494 00784000 BZ @DL00449 0494 00785000 @DC00449 DS 0H 0495 00786000 * CALL CHK72; /* CALL SUBRTN. TO PROCESS COL. 00787000 * 72 */ 00788000 BAL @14,CHK72 0495 00789000 * END; /* END MAJOR LOOP */ 00790000 @DE00448 LTR RCREG,RCREG 0496 00791000 BNZ @DC00448 0496 00792000 TM CRDENDST,B'01000000' 0496 00793000 BZ @DL00448 0496 00794000 @DC00448 DS 0H 0497 00795000 * R14=PARMSAVE; /* RESTORE REG 14 */ 00796000 L R14,PARMSAVE 0497 00797000 * END PARMSCAN; 0498 00798000 @EL00003 DS 0H 0498 00799000 @EF00003 DS 0H 0498 00800000 @ER00003 BR @14 0498 00801000 *GOREAD: 0499 00802000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0499 00803000 * 0499 00804000 GOREAD DS 0H 0500 00805000 */******************************************************************** 00806000 * */ 00807000 */* THE GOREAD SUBROUTINE CALLS ISTINCRS TO READ A RECORD FROM THE */ 00808000 */* VTAMLST DATA SET. IF THE RETURN CODE IS 0, THE CARD IS CHECKED */ 00809000 */* FOR A COMMENT CARD. */ 00810000 */* IF IT IS A COMMENT CARD, THE ONLY PROCESSING DONE IS TO CHECK */ 00811000 */* THAT IT IS NOT A COMMENT CARD IMBEDDED IN THE MIDDLE OF PARAMETERS 00812000 * */ 00813000 */* IF THIS IS THE CASE, A MESSAGE IS PUT OUT. */ 00814000 */* IF IT IS NOT A COMMENT CARD, THE SUBROUTINE EXITS. */ 00815000 */* IF THE RETURN CODE FROM ISTINCRS IS NON ZERO, AN APPROPRIATE */ 00816000 */* MESSAGE IS PUT OUT. */ 00817000 */******************************************************************** 00818000 * */ 00819000 * 0500 00820000 * DCL 0500 00821000 * ON BIT(8) CONSTANT('01'X); /* USED TO SET COMMFLAG ON */ 00822000 * DCL 0501 00823000 * OFF BIT(8) CONSTANT('00'X); /* USED TO SET COMMFLAG OFF */ 00824000 */* LOCAL DECLARE FOR GOREAD */ 00825000 * 0502 00826000 * DCL 0502 00827000 * GORDSAVE; /* SAVE VAR. FOR REG 14 */ 00828000 * DCL 0503 00829000 * COMMFLAG BIT(8) INIT('01'X); /* FLAG INDICATIONG A COMMENT */ 00830000 * GORDSAVE=R14; /* SAVE REG 14 */ 00831000 ST R14,GORDSAVE 0504 00832000 * COMMFLAG=ON; /* TURN ON COMMENT FLAG FOR LOOP */ 00833000 MVI COMMFLAG,X'01' 0505 00834000 *COMMCHK: 0506 00835000 * DO WHILE COMMFLAG=ON; /* GO THRU LOOP WHILE COMMENT 0506 00836000 * FLAG IS ON */ 00837000 COMMCHK B @DE00506 0506 00838000 @DL00506 DS 0H 0507 00839000 * COMMFLAG=OFF; /* TURN COMMENT FLAG OFF */ 00840000 MVI COMMFLAG,X'00' 0507 00841000 * R1=ADDR(ISTRSPRM); /* SET UP REG 1 FOR CRS */ 00842000 LA R1,ISTRSPRM 0508 00843000 * CALL ISTINCRS; /* GO TO READ IN A RECORD */ 00844000 L @15,@CV02466 0509 00845000 BALR @14,@15 0509 00846000 * IF RCREG=CRDCLEAR THEN /* IF R.C. =0 */ 00847000 LTR RCREG,RCREG 0510 00848000 BNZ @RF00510 0510 00849000 * DO; 0511 00850000 * IF INBUF(START:START)=ASTERISK THEN/* IF COL 1 IS AN 0512 00851000 * ASTERISK TURN ON FLAG 0512 00852000 * INDICATING COMMENT */ 00853000 CLI INBUF,C'*' 0512 00854000 BNE @RF00512 0512 00855000 * DO; 0513 00856000 * 0513 00857000 * /*******************************************************/ 00858000 * /* */ 00859000 * /* CHECK IF CONTINUATION FOLLOWED BY AN ENTIRE COMMENT */ 00860000 * /* CARD-AN INVALID SITUATION */ 00861000 * /* */ 00862000 * /*******************************************************/ 00863000 * 0514 00864000 * IF CRDENDSP=CRDOFF THEN 0514 00865000 TM CRDENDSP,B'10000000' 0514 00866000 BNZ @RF00514 0514 00867000 * DO; 0515 00868000 * 0515 00869000 */*TPMSG MSGID('114I')MSG((ADDR(MEMBSAVE)))*/ 0516 00870000 * 0516 00871000 * DO; 0516 00872000 * DCL REG1050 REG(1) PTR; 0517 00873000 * RFY (REG1050) RSTD; 0518 00874000 * 0518 00875000 * RFY (EMCR13) RSTD; 0519 00876000 * DCL 1 * BASED(REG1050), 0520 00877000 * 2 CMZID050 PTR(31), 0520 00878000 * 2 *, 0520 00879000 * 3 CMZRL050 PTR(8), 0520 00880000 * 3 CMZRA050 PTR(24) BDY(BYTE), 0520 00881000 * 2 CMZEA050 PTR(31), 0520 00882000 * 2 CMZVP050 PTR(31); 0520 00883000 * DCL CMZPL050(4) FIXED INIT((4)0); 0521 00884000 * REG1050 = ADDR(CMZPL050); 0522 00885000 LA REG1050,CMZPL050 0522 00886000 * DCL CMZAA050 CHAR(4) INIT('114I'); 0523 00887000 * CMZID050 = ADDR(CMZAA050); 0524 00888000 LA @00,CMZAA050 0524 00889000 ST @00,CMZID050(,REG1050) 0524 00890000 * CMZVP050 = ADDR(MEMBSAVE); 0525 00891000 LA @00,MEMBSAVE 0525 00892000 ST @00,CMZVP050(,REG1050) 0525 00893000 * DCL CMZSA050 (18) PTR(31) BASED(EMCR13); 0526 00894000 * DCL CMZZO050 (1) FIXED(31) INIT(0); 0527 00895000 * CMZSA050(5) = CMZZO050; 0528 00896000 * 0528 00897000 L @00,CMZZO050 0528 00898000 ST @00,CMZSA050+16(,EMCR13) 0528 00899000 * DCL REG15050 REG(15) PTR; 0529 00900000 * RFY REG15050 RSTD; 0530 00901000 * 0530 00902000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15050)) */ 0531 00903000 * REG15050 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0532 00904000 L REG15050,ATCLCPTR 0532 00905000 * END; /*LISATCVT*/ 0533 00906000 * DCL CMTA050 BASED(REG15050) ENTRY VALUERANGE(*); 00907000 * REG15050 = REG15050->ATCMSGP; 0535 00908000 L REG15050,ATCMSGP(,REG15050) 0535 00909000 * CALL CMTA050; 0536 00910000 BALR @14,@15 0536 00911000 * RESPECIFY (REG1050,REG15050) UNRESTRICTED; 0537 00912000 * 0537 00913000 * RFY (EMCR13) UNRSTD; 0538 00914000 * END; 0539 00915000 * RCREG=RETURN12; 0540 00916000 LA RCREG,12 0540 00917000 * END; 0541 00918000 * ELSE 0542 00919000 * DO; /* ELSE READ ANOTHER CARD */ 00920000 B @RC00514 0542 00921000 @RF00514 DS 0H 0543 00922000 * COMMFLAG=ON; /* STAY IN LOOP */ 00923000 MVI COMMFLAG,X'01' 0543 00924000 * RSPMEMBN=RSPMEMBN&&RSPMEMBN;/* CLEAR MEMBER NAME */ 00925000 XC RSPMEMBN(8),RSPMEMBN 0544 00926000 * END; 0545 00927000 * END; 0546 00928000 * ELSE 0547 00929000 * ; 0547 00930000 @RF00512 DS 0H 0548 00931000 * END; 0548 00932000 * ELSE 0549 00933000 * DO; 0549 00934000 B @RC00510 0549 00935000 @RF00510 DS 0H 0550 00936000 * IF RCREG=RETURN12 THEN 0550 00937000 C RCREG,@CF01468 0550 00938000 BNE @RF00550 0550 00939000 * DO; 0551 00940000 * 0551 00941000 */*TPMSG MSGID('116I')MSG((ADDR(MEMBSAVE)))*/ 0552 00942000 * 0552 00943000 * DO; 0552 00944000 * DCL REG1058 REG(1) PTR; 0553 00945000 * RFY (REG1058) RSTD; 0554 00946000 * 0554 00947000 * RFY (EMCR13) RSTD; 0555 00948000 * DCL 1 * BASED(REG1058), 0556 00949000 * 2 CMZID058 PTR(31), 0556 00950000 * 2 *, 0556 00951000 * 3 CMZRL058 PTR(8), 0556 00952000 * 3 CMZRA058 PTR(24) BDY(BYTE), 0556 00953000 * 2 CMZEA058 PTR(31), 0556 00954000 * 2 CMZVP058 PTR(31); 0556 00955000 * DCL CMZPL058(4) FIXED INIT((4)0); 0557 00956000 * REG1058 = ADDR(CMZPL058); 0558 00957000 LA REG1058,CMZPL058 0558 00958000 * DCL CMZAA058 CHAR(4) INIT('116I'); 0559 00959000 * CMZID058 = ADDR(CMZAA058); 0560 00960000 LA @00,CMZAA058 0560 00961000 ST @00,CMZID058(,REG1058) 0560 00962000 * CMZVP058 = ADDR(MEMBSAVE); 0561 00963000 LA @00,MEMBSAVE 0561 00964000 ST @00,CMZVP058(,REG1058) 0561 00965000 * DCL CMZSA058 (18) PTR(31) BASED(EMCR13); 0562 00966000 * DCL CMZZO058 (1) FIXED(31) INIT(0); 0563 00967000 * CMZSA058(5) = CMZZO058; 0564 00968000 * 0564 00969000 L @00,CMZZO058 0564 00970000 ST @00,CMZSA058+16(,EMCR13) 0564 00971000 * DCL REG15058 REG(15) PTR; 0565 00972000 * RFY REG15058 RSTD; 0566 00973000 * 0566 00974000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15058)) */ 0567 00975000 * REG15058 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0568 00976000 L REG15058,ATCLCPTR 0568 00977000 * END; /*LISATCVT*/ 0569 00978000 * DCL CMTA058 BASED(REG15058) ENTRY VALUERANGE(*); 0570 00979000 * REG15058 = REG15058->ATCMSGP; 0571 00980000 L REG15058,ATCMSGP(,REG15058) 0571 00981000 * CALL CMTA058; 0572 00982000 BALR @14,@15 0572 00983000 * RESPECIFY (REG1058,REG15058) UNRESTRICTED; 0573 00984000 * 0573 00985000 * RFY (EMCR13) UNRSTD; 0574 00986000 * END; 0575 00987000 * RCREG=RETURN12; /* RESTORE RET. CODE */ 00988000 LA RCREG,12 0576 00989000 * END; 0577 00990000 * ELSE 0578 00991000 * DO; 0578 00992000 B @RC00550 0578 00993000 @RF00550 DS 0H 0579 00994000 * IF RCREG=RETURN8 THEN 0579 00995000 C RCREG,@CF00059 0579 00996000 BNE @RF00579 0579 00997000 * DO; 0580 00998000 * 0580 00999000 */*TPMSG MSGID('117I')MSG((ADDR(MEMBSAVE)))*/ 0581 01000000 * 0581 01001000 * DO; 0581 01002000 * DCL REG1066 REG(1) PTR; 0582 01003000 * RFY (REG1066) RSTD; 0583 01004000 * 0583 01005000 * RFY (EMCR13) RSTD; 0584 01006000 * DCL 1 * BASED(REG1066), 0585 01007000 * 2 CMZID066 PTR(31), 0585 01008000 * 2 *, 0585 01009000 * 3 CMZRL066 PTR(8), 0585 01010000 * 3 CMZRA066 PTR(24) BDY(BYTE), 0585 01011000 * 2 CMZEA066 PTR(31), 0585 01012000 * 2 CMZVP066 PTR(31); 0585 01013000 * DCL CMZPL066(4) FIXED INIT((4)0); 0586 01014000 * REG1066 = ADDR(CMZPL066); 0587 01015000 LA REG1066,CMZPL066 0587 01016000 * DCL CMZAA066 CHAR(4) INIT('117I'); 0588 01017000 * CMZID066 = ADDR(CMZAA066); 0589 01018000 LA @00,CMZAA066 0589 01019000 ST @00,CMZID066(,REG1066) 0589 01020000 * CMZVP066 = ADDR(MEMBSAVE); 0590 01021000 LA @00,MEMBSAVE 0590 01022000 ST @00,CMZVP066(,REG1066) 0590 01023000 * DCL CMZSA066 (18) PTR(31) BASED(EMCR13); 0591 01024000 * DCL CMZZO066 (1) FIXED(31) INIT(0); 0592 01025000 * CMZSA066(5) = CMZZO066; 0593 01026000 * 0593 01027000 L @00,CMZZO066 0593 01028000 ST @00,CMZSA066+16(,EMCR13) 0593 01029000 * DCL REG15066 REG(15) PTR; 0594 01030000 * RFY REG15066 RSTD; 0595 01031000 * 0595 01032000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15066)) */ 0596 01033000 * REG15066 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0597 01034000 L REG15066,ATCLCPTR 0597 01035000 * END; /*LISATCVT*/ 0598 01036000 * DCL CMTA066 BASED(REG15066) ENTRY VALUERANGE(*); 01037000 * REG15066 = REG15066->ATCMSGP; 0600 01038000 L REG15066,ATCMSGP(,REG15066) 0600 01039000 * CALL CMTA066; 0601 01040000 BALR @14,@15 0601 01041000 * RESPECIFY (REG1066,REG15066) UNRESTRICTED; 0602 01042000 * 0602 01043000 * RFY (EMCR13) UNRSTD; 0603 01044000 * END; 0604 01045000 * RCREG=RETURN8; /* RESTORE RETURN CODE */ 01046000 LA RCREG,8 0605 01047000 * END; 0606 01048000 * ELSE 0607 01049000 * ; 0607 01050000 @RF00579 DS 0H 0608 01051000 * END; 0608 01052000 * END; 0609 01053000 @RC00550 DS 0H 0610 01054000 * END COMMCHK; 0610 01055000 @RC00510 DS 0H 0610 01056000 @DE00506 CLI COMMFLAG,X'01' 0610 01057000 BE @DL00506 0610 01058000 * R14=GORDSAVE; /* RESTORE REG 14 */ 01059000 L R14,GORDSAVE 0611 01060000 * END GOREAD; 0612 01061000 @EL00004 DS 0H 0612 01062000 @EF00004 DS 0H 0612 01063000 @ER00004 BR @14 0612 01064000 *MTB: 0613 01065000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0613 01066000 * 0613 01067000 MTB DS 0H 0614 01068000 */******************************************************************** 01069000 * */ 01070000 */* THE MOVE TO BLANKS SUBROUTINE SCANS FOR A BLANK CHARACTER AND */ 01071000 */* IF FOUND, MOVES THE CHARACTERS SCANNED TO THE OUTPUT AREA. */ 01072000 */* THE ROUTINE IS USED TO SCAN THE NAME FIELD AND/OR THE OP CODE */ 01073000 */* FIELD OF ASSEMBLER LANGUAGE MACRO STATEMENTS. */ 01074000 */* IF NO BLANK IS FOUND, A NON ZERO R.C. IS PASSED BACK. */ 01075000 */******************************************************************** 01076000 * */ 01077000 */* THE FOLLOWING ARE LOCAL DECLARES FOR MTB SUBRTN */ 01078000 * 0614 01079000 * DCL 0614 01080000 * MTBSAVE; /* SAVE VAR. FOR REG 14 */ 01081000 * DCL 0615 01082000 * 1 MOVETAB CHAR(256), /* TABLE FOR TRT */ 01083000 * 2 * CHAR(64), 0615 01084000 * 3 *(64) CHAR(1) INIT((64)'00'X), 0615 01085000 * 2 BLANKONE CHAR(1) INIT('04'X),/* BLANK STOP */ 01086000 * 2 * CHAR(191), 0615 01087000 * 3 *(191) CHAR(1) INIT((191)'00'X); 0615 01088000 * DCL 0616 01089000 * STRING; /* USED TO SET LENGTH FOR MOVING 01090000 * CHARS TO OUTPUT AREA */ 01091000 * GEN DATA REFS(CURRENTP,MOVETAB); 0617 01092000 * 0617 01093000 */* SET UP REG FOR TRT EXECUTE */ 01094000 * 0618 01095000 * MTBSAVE=R14; /* SAVE REG 14 */ 01096000 ST R14,MTBSAVE 0618 01097000 * TRTREG=ADDR(INBUF)+ENDCARD-CURRENTP-CONS1; 0619 01098000 LA TRTREG,INBUF 0619 01099000 AL TRTREG,@CF02360 0619 01100000 SLR TRTREG,CURRENTP 0619 01101000 BCTR TRTREG,0 0619 01102000 * GEN(EX TRTREG,MOVETRT); /* EXECUTE TRT TO GET BLANK */ 01103000 EX TRTREG,MOVETRT 01104000 * STOPPTR=R1; /* SAVE STOPPTR */ 01105000 ST R1,STOPPTR 0621 01106000 * BC(CONS8,NOBLANKS); /* IF NO BLANK FOUN BRANCH */ 01107000 BC 8,NOBLANKS 0622 01108000 * STRING=STOPPTR-CURRENTP+CONS1; /* SET LENGTH FOR MOVE= ENTIRE 0623 01109000 * STRING + BLANK */ 01110000 L @00,STOPPTR 0623 01111000 SLR @00,CURRENTP 0623 01112000 AL @00,@CF00061 0623 01113000 ST @00,STRING 0623 01114000 * OUTAREA(START:STRING)=INBUFNOW(START:STRING);/* MOVE SCANNED 0624 01115000 * STRING */ 01116000 L @11,CRDOBPTR 0624 01117000 LR @10,@00 0624 01118000 BCTR @10,0 0624 01119000 EX @10,@SM02632 0624 01120000 * CRDOBPTR=CRDOBPTR+STRING; /* UPDATE OUTPUT PTR */ 01121000 ALR @11,@00 0625 01122000 ST @11,CRDOBPTR 0625 01123000 * CURRENTP=CURRENTP+STRING; /* UPDATE INPUT PTR */ 01124000 ALR CURRENTP,@00 0626 01125000 * RCREG=CRDCLEAR; 0627 01126000 SLR RCREG,RCREG 0627 01127000 * GOTO DONE; /* THIS IS NEEDE BECAUSE OF 0628 01128000 * C.C.'S */ 01129000 B DONE 0628 01130000 *NOBLANKS: 0629 01131000 * 0629 01132000 */*TPMSG MSGID('114I')MSG((ADDR(MEMBSAVE)))*/ 0629 01133000 * 0629 01134000 * DO; 0629 01135000 NOBLANKS DS 0H 0630 01136000 * DCL REG1074 REG(1) PTR; 0630 01137000 * RFY (REG1074) RSTD; 0631 01138000 * 0631 01139000 * RFY (EMCR13) RSTD; 0632 01140000 * DCL 1 * BASED(REG1074), 0633 01141000 * 2 CMZID074 PTR(31), 0633 01142000 * 2 *, 0633 01143000 * 3 CMZRL074 PTR(8), 0633 01144000 * 3 CMZRA074 PTR(24) BDY(BYTE), 0633 01145000 * 2 CMZEA074 PTR(31), 0633 01146000 * 2 CMZVP074 PTR(31); 0633 01147000 * DCL CMZPL074(4) FIXED INIT((4)0); 0634 01148000 * REG1074 = ADDR(CMZPL074); 0635 01149000 LA REG1074,CMZPL074 0635 01150000 * DCL CMZAA074 CHAR(4) INIT('114I'); 0636 01151000 * CMZID074 = ADDR(CMZAA074); 0637 01152000 LA @00,CMZAA074 0637 01153000 ST @00,CMZID074(,REG1074) 0637 01154000 * CMZVP074 = ADDR(MEMBSAVE); 0638 01155000 LA @00,MEMBSAVE 0638 01156000 ST @00,CMZVP074(,REG1074) 0638 01157000 * DCL CMZSA074 (18) PTR(31) BASED(EMCR13); 0639 01158000 * DCL CMZZO074 (1) FIXED(31) INIT(0); 0640 01159000 * CMZSA074(5) = CMZZO074; 0641 01160000 * 0641 01161000 L @00,CMZZO074 0641 01162000 ST @00,CMZSA074+16(,EMCR13) 0641 01163000 * DCL REG15074 REG(15) PTR; 0642 01164000 * RFY REG15074 RSTD; 0643 01165000 * 0643 01166000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15074)) */ 0644 01167000 * REG15074 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0645 01168000 L REG15074,ATCLCPTR 0645 01169000 * END; /*LISATCVT*/ 0646 01170000 * DCL CMTA074 BASED(REG15074) ENTRY VALUERANGE(*); 0647 01171000 * REG15074 = REG15074->ATCMSGP; 0648 01172000 L REG15074,ATCMSGP(,REG15074) 0648 01173000 * CALL CMTA074; 0649 01174000 BALR @14,@15 0649 01175000 * RESPECIFY (REG1074,REG15074) UNRESTRICTED; 0650 01176000 * 0650 01177000 * RFY (EMCR13) UNRSTD; 0651 01178000 * END;/* AS08633 */ 0652 01179000 * RCREG=RETURN12; /* SET R.C. TO 12 */ 01180000 LA RCREG,12 0653 01181000 * CURRENTP=ADDR(INBUF)+ENDCARD; /* UPDATE CURRENT PTR TO LAST COL*/ 01182000 LA CURRENTP,INBUF 0654 01183000 AL CURRENTP,@CF02360 0654 01184000 *DONE: 0655 01185000 * ; 0655 01186000 DONE DS 0H 0656 01187000 * R14=MTBSAVE; /* RESTORE REG 14 */ 01188000 L R14,MTBSAVE 0656 01189000 * END MTB; 0657 01190000 @EL00005 DS 0H 0657 01191000 @EF00005 DS 0H 0657 01192000 @ER00005 BR @14 0657 01193000 *STNB: 0658 01194000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0658 01195000 * 0658 01196000 STNB DS 0H 0659 01197000 */******************************************************************** 01198000 * */ 01199000 */* THE SCAN TO NON BLANKS SUBROUTINE SCANS FOR A NON BLANK CHAR- */ 01200000 */* ACTER. IF FOUND, THE CURRENT PTR TO THE NEXT BYTE IN THE INPUT */ 01201000 */* AREA IS UPDATED. */ 01202000 */* IF NO NON BLANK CHARACTER IS FOUND & THIS IS NOT THE FIRST CARD*/ 01203000 */* A NON ZERO R.C. IS PASSED BACK. IF THIS IS THE FIRST CARD, CHK72 */ 01204000 */* IS CALLED TO PROCESS CONTINUATION. */ 01205000 */******************************************************************** 01206000 * */ 01207000 */* THE FOLLOWING DECLARES ARE LOCAL TO STNB SUBRTN */ 01208000 * 0659 01209000 * DCL 0659 01210000 * STNBSAVE; /* SAVE VAR. FOR REG 14 */ 01211000 * DCL 0660 01212000 * BLNKCONS FIXED(31) INIT('40000000'X);/* PAD CHAR FOR CLCL */ 01213000 * STNBSAVE=R14; /* SAVE REG 14 */ 01214000 ST R14,STNBSAVE 0661 01215000 * R5=ADDR(INBUF)+ENDCARD-CURRENTP;/* SET UP REG5 FOR CLCL */ 01216000 LA R5,INBUF 0662 01217000 AL R5,@CF02360 0662 01218000 SLR R5,CURRENTP 0662 01219000 * R3=BLNKCONS; /* SET UP REG 3 FOR BLANK SCAN */ 01220000 L R3,BLNKCONS 0663 01221000 * GEN SETS(CURRENTP) REFS(R2,CODEOK); 0664 01222000 CLCL CURRENTP,R2 SCAN LOOKING FOR NON BLANK 01223000 BNZ CODEOK IF NOT FOUND, BRANCH AROUND 12 R.C. 01224000 * IF NOPARMS=CRDOFF THEN 0665 01225000 TM NOPARMS,B'00001000' 0665 01226000 BNZ @RF00665 0665 01227000 * RCREG=RETURN12; /* CHECK IF 1ST CALL WITH NO 0666 01228000 * PARMS */ 01229000 LA RCREG,12 0666 01230000 * ELSE 0667 01231000 * CALL CHK72; /* IF 1ST CALL SEE IF CONT. */ 01232000 B @RC00665 0667 01233000 @RF00665 BAL @14,CHK72 0667 01234000 *CODEOK: 0668 01235000 * ; 0668 01236000 @RC00665 DS 0H 0668 01237000 CODEOK DS 0H 0669 01238000 * R14=STNBSAVE; /* RESTORE REG 14 */ 01239000 L R14,STNBSAVE 0669 01240000 * END STNB; 0670 01241000 @EL00006 DS 0H 0670 01242000 @EF00006 DS 0H 0670 01243000 @ER00006 BR @14 0670 01244000 *CHK72: 0671 01245000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0671 01246000 * 0671 01247000 CHK72 DS 0H 0672 01248000 */******************************************************************** 01249000 * */ 01250000 */* THE CHK72 SUBROUTINE PROCESSES COLUMN 72 TO DETERMINE IF A */ 01251000 */* CONTINUATION HAS BEEN INDICATED. IF COL. 72 IS NON BLANK, THE */ 01252000 */* CONTINUE SUBROUTINE IS CALLED TO PREPARE ANOTHER CARD FOR SCAN */ 01253000 */* IF COL. 72 IS BLANK & QUOTES ARE PAIRED, REG. 15 IS SET TO 0 */ 01254000 */* AND THE END OF STRING INDICATOR TURNED ON. IF QUOTES ARE NOT */ 01255000 */* PAIRED, A R.C. OF 12 IS SET. */ 01256000 */******************************************************************** 01257000 * */ 01258000 * 0672 01259000 * DCL 0672 01260000 * CHKSAVE FIXED(31); /* SAVE VAR. FOR REG 14 */ 01261000 * CHKSAVE=R14; /* SAVE REG 14 */ 01262000 ST R14,CHKSAVE 0673 01263000 * IF COL72=BLANK THEN /* CHECK FOR CONTINUATION */ 01264000 LA @11,INBUF 0674 01265000 CLI COL72+71(@11),C' ' 0674 01266000 BNE @RF00674 0674 01267000 * DO; 0675 01268000 * IF QUOTECNT//2=CRDCLEAR THEN/* CHECK IF QUOTES PAIRED */ 01269000 SLR @11,@11 0676 01270000 L @06,QUOTECNT 0676 01271000 SRDA @06,32 0676 01272000 D @06,@CF00073 0676 01273000 CR @06,@11 0676 01274000 BNE @RF00676 0676 01275000 * DO; 0677 01276000 * RCREG=CRDCLEAR; 0678 01277000 LR RCREG,@11 0678 01278000 * CRDENDST=CRDON; /* GET OUT OF PARMSCAN LOOP */ 01279000 OI CRDENDST,B'01000000' 0679 01280000 * END; 0680 01281000 * ELSE 0681 01282000 * RCREG=RETURN12; /* ELSE SET 12 R.C. */ 01283000 B @RC00676 0681 01284000 @RF00676 LA RCREG,12 0681 01285000 * END; 0682 01286000 * ELSE 0683 01287000 * DO; 0683 01288000 B @RC00674 0683 01289000 @RF00674 DS 0H 0684 01290000 * CALL CONTINUE; /* CALL CONTINUE TO READ NEXT 0684 01291000 * CARD */ 01292000 BAL @14,CONTINUE 0684 01293000 * CRDENTRT=CRDOFF; /* STAY IN TRT LOOP */ 01294000 NI CRDENTRT,B'11011111' 0685 01295000 * END; 0686 01296000 * R14=CHKSAVE; /* RESTORE REG 14 */ 01297000 @RC00674 L R14,CHKSAVE 0687 01298000 * END CHK72; 0688 01299000 @EL00007 DS 0H 0688 01300000 @EF00007 DS 0H 0688 01301000 @ER00007 BR @14 0688 01302000 *CONTINUE: 0689 01303000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0689 01304000 * 0689 01305000 CONTINUE DS 0H 0690 01306000 */******************************************************************** 01307000 * */ 01308000 */* THE CONTINUE SUBROUTINE HANDLES PROCESSING OF CONTINUATION */ 01309000 */* CARDS FOR CURRENT PARAMETERS BEING PROCESSED. */ 01310000 */* IT FIRST CHECKS TO DETERMINE IF THE REMAINING SPACE IN THE OUT-*/ 01311000 */* BUFFER IS LARGE ENOUGH TO ACCOMODATE ANOTHER RECORD. IF NOT, A */ 01312000 */* VGTMAIN & SUBSEQUENT VFRMAIN ARE DONE TO GET ANOTHER OUTPUT BUF. */ 01313000 */* GOREAD IS CALLED TO READ IN THE CONTINUATION CARD. */ 01314000 */* IF THE CONTINUATION CARD IS A CONTINUATION FOR AN ASSEMBLER */ 01315000 */* LANGUAGE MACRO THEN COLUMNS 1-15 MUST BE BLANK. IF NOT BLANK, A */ 01316000 */* NON ZERO R.C. IS PASSED BACK. IF COL. 16 IS BLANK, THERE ARE NO */ 01317000 */* MORE PARAMETERS. */ 01318000 */* FOR START PARAMETERS OR CONFIGURATION PARAMETERS, STNB IS */ 01319000 */* CALLED TO GET THE ADDRESS OF THE NEXT PARAMETER. */ 01320000 */******************************************************************** 01321000 * */ 01322000 * 0690 01323000 * DCL 0690 01324000 * CONTSAVE FIXED(31); /* SAVE VAR. FOR REG 14 */ 01325000 */* THE FOLLOWING DECLARES ARE LOCAL TO SUBRTN CONTINUE */ 01326000 * 0691 01327000 * DCL 0691 01328000 * COLS15 CHAR(15) BASED(ADDR(INBUF));/* USED TO CHECK COLS.1-15 */ 01329000 * DCL 0692 01330000 * CONS15 CONSTANT(15); 0692 01331000 * DCL 0693 01332000 * FIRST15 CONSTANT(15); /* USED TO REFERENCE 1ST 15 CHARS 01333000 * IN CARD */ 01334000 * DCL 0694 01335000 * BLANKS15 CHAR(15) CONSTANT(' ');/* CHECKS COLS. 01336000 * 1-15 FOR BLANKS */ 01337000 * DCL 0695 01338000 * COL16 CHAR(1) BASED(ADDR(INBUF)+CONS15);/* USED TO CHECK COL 16 01339000 * IN CARD */ 01340000 * DCL 0696 01341000 * REMSPACE; /* REMAINING SPACE IN OUTPUT 0696 01342000 * BUFFER */ 01343000 * DCL 0697 01344000 * BUFENUFF CONSTANT(71); /* USED TO CHECK IF 71 BYTES LEFT 01345000 * IN OUTPUT BUFFER */ 01346000 * DCL 0698 01347000 * TEMPSIZE; /* USED FOR TEMPORARY AREA FOR 0698 01348000 * BUFFER SIZE. IF GETSTOR FAILS 01349000 * WE DON'T WANT TO UPDATE 0698 01350000 * CONBUFSZ */ 01351000 * DCL 0699 01352000 * TEMPBUFF; /* TEMP SAVE AREA FOR CONRDBUF */ 01353000 * DCL 0700 01354000 * NEXTSIZE; /* TEMP AREA FOR NEXT BUFFER SIZE*/ 01355000 * DCL 0701 01356000 * R15SAVE; /* AREA TO SAVE REG 15 FROM 0701 01357000 * FREESTOR */ 01358000 * DCL 0702 01359000 * OLDADDR REG(6); /* CONTAINS OLD OUTPUT AREA ADD. */ 01360000 * DCL 0703 01361000 * NEWADDR REG(8); /* CONTAINS NEW OUTPUT AREA ADD. */ 01362000 * DCL 0704 01363000 * OLDCOUNT REG(7); /* CONTAINS COUNT OF BYTES USED */ 01364000 * DCL 0705 01365000 * NEWCOUNT REG(9); /* SAME COUNT AS OLD */ 01366000 * CONTSAVE=R14; /* SAVE REG 14 */ 01367000 ST R14,CONTSAVE 0706 01368000 * REMSPACE=CONRDBUF+CONBUFSZ-CRDOBPTR;/* COMPUTE REMAINING SPACE IN 01369000 * OUTPUT BUFFER */ 01370000 L @11,VCVTPTR 0707 01371000 L @11,ATCCONFT(,@11) 0707 01372000 LH @00,CONBUFSZ(,@11) 0707 01373000 AL @00,CONRDBUF(,@11) 0707 01374000 SL @00,CRDOBPTR 0707 01375000 ST @00,REMSPACE 0707 01376000 * IF REMSPACE>=BUFENUFF THEN 0708 01377000 C @00,@CF02360 0708 01378000 BL @RF00708 0708 01379000 * RCREG=CRDCLEAR; /* IF SPACE >=71 THEN BUFFER 0709 01380000 * STILL BIG ENOUGH */ 01381000 SLR RCREG,RCREG 0709 01382000 * ELSE 0710 01383000 * DO; 0710 01384000 B @RC00708 0710 01385000 @RF00708 DS 0H 0711 01386000 * TEMPBUFF=CONRDBUF; /* SAVE CONRDBUF */ 01387000 L @11,VCVTPTR 0711 01388000 L @11,ATCCONFT(,@11) 0711 01389000 L @00,CONRDBUF(,@11) 0711 01390000 ST @00,TEMPBUFF 0711 01391000 * TEMPSIZE=CONBUFSZ; /* SAVE CONBUFSZ */ 01392000 LH @11,CONBUFSZ(,@11) 0712 01393000 ST @11,TEMPSIZE 0712 01394000 * NEXTSIZE=CONBUFSZ+BUFSIZE; /* GET NEXT BUFFER SIZE */ 01395000 AL @11,BUFSIZE 0713 01396000 ST @11,NEXTSIZE 0713 01397000 * GEN SETS(SMSREGS)(STM 2,4,SMSREGS);/* SAVE SMS-CLOBBERRED 01398000 * REGS */ 01399000 * 0714 01400000 STM 2,4,SMSREGS 01401000 */*VGTMAIN SIZE(NEXTSIZE)STORAGE((ADDR(CONRDBUF)))SUBPOOL((ADDR(CRDPOOL 01402000 *))*/ 0715 01403000 * DO; /*DECLARE AND RESTRICT */ 01404000 * /* REGISTERS 2,3, AND 4 */ 01405000 * 0716 01406000 * RFY (GPR02P,GPR03P,GPR04P) RSTD; 0716 01407000 * /*INVOKE XREGSET MACRO TO */ 01408000 * /*CHECK SIZE PARM AND PUT */ 01409000 * /*VALUE IN REGISTER 2 */ 01410000 * 0717 01411000 */*XREGSET PID('SIZE')PPARM(NEXTSIZE)RREG(,GPR02F)OUTPUT(PARM)*/ 0717 01412000 * DO; 0717 01413000 * GPR02F=NEXTSIZE; /*SET RREG SYMBOL TO VALUE*/ 01414000 L GPR02F,NEXTSIZE 0718 01415000 * /*OF PPARM OPERAND */ 01416000 * END; /* XREGSET */ /*INVOKE XREGSET MACRO TO */ 01417000 * /*CHECK STORAGE PARM AND */ 01418000 * /*PUT VALUE IN REGISTER 3 */ 01419000 * 0720 01420000 */*XREGSET PID('STORAGE')PPARM((ADDR(CONRDBUF)))RREG(,GPR03F)*/ 0720 01421000 * DO; 0720 01422000 * GPR03F=ADDR(CONRDBUF); /*SET RREG SYMBOL TO VALUE*/ 01423000 L @11,VCVTPTR 0721 01424000 L GPR03F,ATCCONFT(,@11) 0721 01425000 LA GPR03F,CONRDBUF(,GPR03F) 0721 01426000 * /*OF PPARM OPERAND */ 01427000 * END; /* XREGSET */ /*INVOKE XREGSET MACRO TO */ 01428000 * /*CHECK SUBPOOL PARM AND */ 01429000 * /*PUT VALUE IN REGISTER 4 */ 01430000 * 0723 01431000 */*XREGSET PID('SUBPOOL')PPARM((ADDR(CRDPOOL)))RREG(,GPR04F)OUTPUT(PAR 01432000 *)*/ 0723 01433000 * DO; 0723 01434000 * DCL DUME0087 CHAR(4) BASED(ADDR(CRDPOOL)); 0724 01435000 * /*DEFINE DUMMY VARIABLE SO*/ 01436000 * /*THAT PPARM OPERAND CAN BE*/ 01437000 * /*USED AS A POINTER */ 01438000 * GPR04F=DUME0087; /*SET RREG SYMBOL TO VALUE*/ 01439000 LA @11,CRDPOOL 0725 01440000 ICM GPR04F,15,DUME0087(@11) 0725 01441000 * /*POINTED TO BY PPARM OPER*/ 01442000 * END; /* XREGSET */ /* INVOKE GETMAIN MACRO */ 01443000 * GEN REFS(GPR02F,GPR03P,GPR04F) SETS(GPR03P,GPR15F); 0727 01444000 GETMAIN EC,LV=(2),A=(3),SP=(4) 01445000 * /*UNRESTRICT REGS 2,3, AND 4*/ 01446000 * 0728 01447000 * RFY (GPR02P,GPR03P,GPR04P) UNRSTD; 0728 01448000 * END; /* VGTMAIN */ 0729 01449000 * GEN REFS(SMSREGS)(LM 2,4,SMSREGS);/* RESTORE REGS */ 01450000 LM 2,4,SMSREGS 01451000 * IF RCREG=CRDCLEAR THEN 0731 01452000 LTR RCREG,RCREG 0731 01453000 BNZ @RF00731 0731 01454000 * DO; 0732 01455000 * RFY 0733 01456000 * (OLDADDR, 0733 01457000 * NEWADDR, 0733 01458000 * OLDCOUNT, 0733 01459000 * NEWCOUNT) RSTD; 0733 01460000 * OLDADDR=TEMPBUFF; /* SET ADD. FOR MVCL */ 01461000 L OLDADDR,TEMPBUFF 0734 01462000 * NEWADDR=CONRDBUF; /* SET NEW ADDRESS */ 01463000 L @11,VCVTPTR 0735 01464000 L @11,ATCCONFT(,@11) 0735 01465000 L NEWADDR,CONRDBUF(,@11) 0735 01466000 * OLDCOUNT=CRDOBPTR-OLDADDR;/* SET BYTE COUNT FOR MOVE */ 01467000 L OLDCOUNT,CRDOBPTR 0736 01468000 SLR OLDCOUNT,OLDADDR 0736 01469000 * NEWCOUNT=OLDCOUNT; 0737 01470000 LR NEWCOUNT,OLDCOUNT 0737 01471000 * GEN REFS(NEWADDR,OLDADDR); 0738 01472000 MVCL NEWADDR,OLDADDR 01473000 * CONBUFSZ=NEXTSIZE; /* UPDATE CONBUFSZ */ 01474000 L @11,VCVTPTR 0739 01475000 L @11,ATCCONFT(,@11) 0739 01476000 L @00,NEXTSIZE 0739 01477000 STH @00,CONBUFSZ(,@11) 0739 01478000 * CRDOBPTR=CONRDBUF+CRDOBPTR-TEMPBUFF;/* UPDATE OUTPUT PTR */ 01479000 L @10,TEMPBUFF 0740 01480000 L @00,CONRDBUF(,@11) 0740 01481000 AL @00,CRDOBPTR 0740 01482000 SLR @00,@10 0740 01483000 ST @00,CRDOBPTR 0740 01484000 * RFY 0741 01485000 * (OLDADDR, 0741 01486000 * NEWADDR, 0741 01487000 * OLDCOUNT, 0741 01488000 * NEWCOUNT) UNRSTD; 0741 01489000 * TEMPRC=RCREG; /* SAVE REG 15 */ 01490000 * 0742 01491000 ST RCREG,TEMPRC 0742 01492000 */*VFRMAIN SIZE(TEMPSIZE)STORAGE((TEMPBUFF))SUBPOOL((ADDR(CRDPOOL)))*/ 01493000 * DO; 0743 01494000 * 0743 01495000 * RFY (GPR00P) RSTD; /*PUT VALUE PASSED AS SIZE */ 01496000 * /*PARM IN THREE LOW-ORDER */ 01497000 * /*BYTES OF REG 0 */ 01498000 * GPR00F=TEMPSIZE & '00FFFFFF'X; 0745 01499000 * 0745 01500000 L GPR00F,TEMPSIZE 0745 01501000 N GPR00F,@CF02374 0745 01502000 * RFY (GPR15P) RSTD; 0746 01503000 * DCL CMZB0089 FIXED(31) BASED(ADDR(CRDPOOL)); 0747 01504000 * /*PUT VALUE POINTED TO BY */ 01505000 * /*SUBPOOL PARM IN HIGH- */ 01506000 * /*ORDER BYTE OF REG 15 */ 01507000 * GPR15F=CMZB0089; 0748 01508000 LA @11,CRDPOOL 0748 01509000 L GPR15F,CMZB0089(,@11) 0748 01510000 * SLL (GPR15P,24); /*COMBINE SUBPOOL AND SIZE */ 01511000 SLL GPR15P,24 0749 01512000 * /*IN REGISTER 0 */ 01513000 * GPR00P=GPR00P | GPR15P; 0750 01514000 * 0750 01515000 OR GPR00P,GPR15P 0750 01516000 * RFY (GPR15P) UNRSTD; /*DECLARE AND RESTRICT REG 1*/ 01517000 * 0751 01518000 * RFY (GPR01P) RSTD; /*INVOKE XREGSET MACRO TO */ 01519000 * /*CHECK STORAGE PARM AND PUT*/ 01520000 * /*ADDR IN REGISTER 1 */ 01521000 * 0753 01522000 */*XREGSET PID('STORAGE')PPARM((TEMPBUFF))RREG(1,GPR01P)*/ 0753 01523000 * DO; 0753 01524000 * GPR01P=TEMPBUFF; /*SET RREG SYMBOL TO VALUE*/ 01525000 LR GPR01P,@10 0754 01526000 * /*OF PPARM OPERAND */ 01527000 * END; /* XREGSET */ /*INVOKE FREEMAIN MACRO */ 01528000 * GEN; 0756 01529000 FREEMAIN R,LV=(0),A=(1) 01530000 * /*UNRESTRICT REG 1 */ 01531000 * 0757 01532000 * RFY (GPR01P) UNRSTD; /* UNRESTRICT REG 0 */ 01533000 * 0757 01534000 * RFY (GPR00P) UNRSTD; 0758 01535000 * END; /* VFRMAIN */ 0759 01536000 * RCREG=TEMPRC; /* RESTORE REG 15 */ 01537000 L RCREG,TEMPRC 0760 01538000 * END; 0761 01539000 * ELSE 0762 01540000 * DO; 0762 01541000 * 0762 01542000 B @RC00731 0762 01543000 @RF00731 DS 0H 0763 01544000 */*TPMSG MSGID('115I')MSG((ADDR(MEMBSAVE)))*/ 0763 01545000 * 0763 01546000 * DO; 0763 01547000 * DCL REG1097 REG(1) PTR; 0764 01548000 * RFY (REG1097) RSTD; 0765 01549000 * 0765 01550000 * RFY (EMCR13) RSTD; 0766 01551000 * DCL 1 * BASED(REG1097), 0767 01552000 * 2 CMZID097 PTR(31), 0767 01553000 * 2 *, 0767 01554000 * 3 CMZRL097 PTR(8), 0767 01555000 * 3 CMZRA097 PTR(24) BDY(BYTE), 0767 01556000 * 2 CMZEA097 PTR(31), 0767 01557000 * 2 CMZVP097 PTR(31); 0767 01558000 * DCL CMZPL097(4) FIXED INIT((4)0); 0768 01559000 * REG1097 = ADDR(CMZPL097); 0769 01560000 LA REG1097,CMZPL097 0769 01561000 * DCL CMZAA097 CHAR(4) INIT('115I'); 0770 01562000 * CMZID097 = ADDR(CMZAA097); 0771 01563000 LA @00,CMZAA097 0771 01564000 ST @00,CMZID097(,REG1097) 0771 01565000 * CMZVP097 = ADDR(MEMBSAVE); 0772 01566000 LA @00,MEMBSAVE 0772 01567000 ST @00,CMZVP097(,REG1097) 0772 01568000 * DCL CMZSA097 (18) PTR(31) BASED(EMCR13); 0773 01569000 * DCL CMZZO097 (1) FIXED(31) INIT(0); 0774 01570000 * CMZSA097(5) = CMZZO097; 0775 01571000 * 0775 01572000 L @00,CMZZO097 0775 01573000 ST @00,CMZSA097+16(,EMCR13) 0775 01574000 * DCL REG15097 REG(15) PTR; 0776 01575000 * RFY REG15097 RSTD; 0777 01576000 * 0777 01577000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15097)) */ 0778 01578000 * REG15097 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0779 01579000 L REG15097,ATCLCPTR 0779 01580000 * END; /*LISATCVT*/ 0780 01581000 * DCL CMTA097 BASED(REG15097) ENTRY VALUERANGE(*); 0781 01582000 * REG15097 = REG15097->ATCMSGP; 0782 01583000 L REG15097,ATCMSGP(,REG15097) 0782 01584000 * CALL CMTA097; 0783 01585000 BALR @14,@15 0783 01586000 * RESPECIFY (REG1097,REG15097) UNRESTRICTED; 0784 01587000 * 0784 01588000 * RFY (EMCR13) UNRSTD; 0785 01589000 * END;/* @DM12432*/ 0786 01590000 * RCREG=RETURN12; /* RESTORE RETURN CODE @DM12436*/ 01591000 LA RCREG,12 0787 01592000 * CONTERR=CRDON; /* SET CONT SUBRTN ERR @DM12512*/ 01593000 OI CONTERR,B'00000100' 0788 01594000 * END; 0789 01595000 * END; 0790 01596000 @RC00731 DS 0H 0791 01597000 * IF RCREG=CRDCLEAR THEN /* IF R.C. =0 */ 01598000 @RC00708 LTR RCREG,RCREG 0791 01599000 BNZ @RF00791 0791 01600000 * DO; 0792 01601000 * RSPMEMBN=MEMBZERO; /* ZERO MEMBERNAME FOR CRS 0793 01602000 * INTERFACE */ 01603000 MVC RSPMEMBN(8),MEMBZERO 0793 01604000 * CALL GOREAD; /* GO READ ANOTHER CARD */ 01605000 BAL @14,GOREAD 0794 01606000 * IF RCREG=CRDCLEAR THEN 0795 01607000 LTR RCREG,RCREG 0795 01608000 BNZ @RF00795 0795 01609000 * DO; 0796 01610000 * IF MEMBSAVE(START:FIRST6)='ATCCON'|MEMBSAVE(START:FIRST6)= 01611000 * 'ATCSTR' THEN /* CHECK 1ST 6 CHARS OF MEMBER 0797 01612000 * NAME */ 01613000 CLC MEMBSAVE(6),@CC02418 0797 01614000 BE @RT00797 0797 01615000 CLC MEMBSAVE(6),@CC02419 0797 01616000 BNE @RF00797 0797 01617000 @RT00797 DS 0H 0798 01618000 * DO; 0798 01619000 * CURRENTP=ADDR(INBUF);/* RESET INPUT PTR */ 01620000 LA CURRENTP,INBUF 0799 01621000 * CALL STNB; /* SCAN PAST BLANKS */ 01622000 BAL @14,STNB 0800 01623000 * END; 0801 01624000 * ELSE 0802 01625000 * DO; 0802 01626000 B @RC00797 0802 01627000 @RF00797 DS 0H 0803 01628000 * IF COLS15(START:FIRST15)=BLANKS15&/* CK 1ST 15 COLS 01629000 * FOR BLANKS @ZA26606*/ 01630000 * COL16^=BLANK THEN/* COL 16 NOT BLANK @ZA26606*/ 01631000 LA @11,INBUF 0803 01632000 CLC COLS15(15,@11),@CC02561 0803 01633000 BNE @RF00803 0803 01634000 AL @11,@CF00032 0803 01635000 CLI COL16(@11),C' ' 0803 01636000 BE @RF00803 0803 01637000 * DO; 0804 01638000 * IF QUOTECNT//2=CRDCLEAR THEN/* CHECK PAIRED 0805 01639000 * QUOTES */ 01640000 L @06,QUOTECNT 0805 01641000 SRDA @06,32 0805 01642000 D @06,@CF00073 0805 01643000 LTR @06,@06 0805 01644000 BNZ @RF00805 0805 01645000 * CURRENTP=ADDR(INBUF)+CONS15;/* UPDATE CURRENT 01646000 * PTR */ 01647000 LR CURRENTP,@11 0806 01648000 * ELSE 0807 01649000 * ; /* QUOTES NOT PAIRED */ 01650000 @RF00805 DS 0H 0808 01651000 * END; 0808 01652000 * ELSE 0809 01653000 * DO; /* ELSE SYNTAX ERROR */ 01654000 * 0809 01655000 B @RC00803 0809 01656000 @RF00803 DS 0H 0810 01657000 */*TPMSG MSGID('114I')MSG((ADDR(MEMBSAVE)))*/ 0810 01658000 * 0810 01659000 * DO; 0810 01660000 * DCL REG1105 REG(1) PTR; 0811 01661000 * RFY (REG1105) RSTD; 0812 01662000 * 0812 01663000 * RFY (EMCR13) RSTD; 0813 01664000 * DCL 1 * BASED(REG1105), 0814 01665000 * 2 CMZID105 PTR(31), 0814 01666000 * 2 *, 0814 01667000 * 3 CMZRL105 PTR(8), 0814 01668000 * 3 CMZRA105 PTR(24) BDY(BYTE), 0814 01669000 * 2 CMZEA105 PTR(31), 0814 01670000 * 2 CMZVP105 PTR(31); 0814 01671000 * DCL CMZPL105(4) FIXED INIT((4)0); 0815 01672000 * REG1105 = ADDR(CMZPL105); 0816 01673000 LA REG1105,CMZPL105 0816 01674000 * DCL CMZAA105 CHAR(4) INIT('114I'); 0817 01675000 * CMZID105 = ADDR(CMZAA105); 0818 01676000 LA @00,CMZAA105 0818 01677000 ST @00,CMZID105(,REG1105) 0818 01678000 * CMZVP105 = ADDR(MEMBSAVE); 0819 01679000 LA @00,MEMBSAVE 0819 01680000 ST @00,CMZVP105(,REG1105) 0819 01681000 * DCL CMZSA105 (18) PTR(31) BASED(EMCR13); 0820 01682000 * DCL CMZZO105 (1) FIXED(31) INIT(0); 0821 01683000 * CMZSA105(5) = CMZZO105; 0822 01684000 * 0822 01685000 L @00,CMZZO105 0822 01686000 ST @00,CMZSA105+16(,EMCR13) 0822 01687000 * DCL REG15105 REG(15) PTR; 0823 01688000 * RFY REG15105 RSTD; 0824 01689000 * 0824 01690000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15105)) */ 01691000 * REG15105 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 01692000 L REG15105,ATCLCPTR 0826 01693000 * END; /*LISATCVT*/ 0827 01694000 * DCL CMTA105 BASED(REG15105) ENTRY VALUERANGE(*); 01695000 * REG15105 = REG15105->ATCMSGP; 0829 01696000 L REG15105,ATCMSGP(,REG15105) 0829 01697000 * CALL CMTA105; 0830 01698000 BALR @14,@15 0830 01699000 * RESPECIFY (REG1105,REG15105) UNRESTRICTED; 0831 01700000 * 0831 01701000 * RFY (EMCR13) UNRSTD; 0832 01702000 * END; 0833 01703000 * RCREG=RETURN12; 0834 01704000 LA RCREG,12 0834 01705000 * END; 0835 01706000 * END; 0836 01707000 * END; 0837 01708000 * ELSE 0838 01709000 * ; /* R.C. FROM GOREAD ^= 0 */ 01710000 @RF00795 DS 0H 0839 01711000 * END; 0839 01712000 * ELSE 0840 01713000 * ; /* R.C. REG ^= 0 */ 01714000 @RF00791 DS 0H 0841 01715000 * R14=CONTSAVE; /* RESTORE RETURN REG */ 01716000 @RC00791 L R14,CONTSAVE 0841 01717000 * END CONTINUE; 0842 01718000 * 0842 01719000 @EL00008 DS 0H 0842 01720000 @EF00008 DS 0H 0842 01721000 @ER00008 BR @14 0842 01722000 */* TPEPILOG */ 0843 01723000 * GEN (PRINT OFF); 0843 01724000 * 0843 01725000 * 0843 01726000 PRINT OFF 01727000 * DECLARE 0844 01728000 * EMCR0 PTR REG(0), 0844 01729000 * EMCR1 PTR REG(1), 0844 01730000 * EMCR2 PTR REG(2), 0844 01731000 * EMCR3 PTR REG(3), 0844 01732000 * EMCR4 PTR REG(4), 0844 01733000 * EMCR5 PTR REG(5), 0844 01734000 * EMCR6 PTR REG(6), 0844 01735000 * EMCR7 PTR REG(7), 0844 01736000 * EMCR8 PTR REG(8), 0844 01737000 * EMCR9 PTR REG(9), 0844 01738000 * EMCR10 PTR REG(10), 0844 01739000 * EMCR11 PTR REG(11), 0844 01740000 * EMCR12 PTR REG(12), 0844 01741000 * EMCR13 PTR REG(13), 0844 01742000 * EMCR14 PTR REG(14), 0844 01743000 * EMCR15 PTR REG(15); 0844 01744000 * GEN (PRINT ON); 0845 01745000 PRINT ON 01746000 */* END OF TPEPILOG */ 0846 01747000 * 0846 01748000 */* ATDSPLY INVOKED. */ 0846 01749000 */********************************************************************/ 01750000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 01751000 */* COMPILATION: */ 01752000 */* ISTLOK */ 01753000 */* ISTDEVCH */ 01754000 */* ISTLDPRM */ 01755000 */* ISTRDT */ 01756000 */* ISTCONFT */ 01757000 */* ISTAVT */ 01758000 */* ISTPAB */ 01759000 */* ISTDYPAB */ 01760000 */* ISTRPH */ 01761000 */* ISTATCVT */ 01762000 */********************************************************************/ 01763000 */* END OF ATDSPLY. */ 0846 01764000 * END ISTINCRD 0846 01765000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01766000 */*%INCLUDE SYSLIB (CVT ) * 01767000 *; 0846 01768000 B @EL00001 0846 01769000 @DATA DS 0H 01770000 @SM02630 MVC OUTAREA(0,@10),INBUFNOW(CURRENTP) 01771000 @SM02632 MVC OUTAREA(0,@11),INBUFNOW(CURRENTP) 01772000 DS 0F 01773000 @SA00001 DS 18F 01774000 DS 0F 01775000 @CF00061 DC F'1' 01776000 @CF00073 DC F'2' 01777000 @CF00059 DC F'8' 01778000 @CF01468 DC F'12' 01779000 @CF00032 DC F'15' 01780000 @CF02360 DC F'71' 01781000 @CF02629 DC F'-1' 01782000 @CF02374 DC XL4'00FFFFFF' 01783000 @CV02466 DC V(ISTINCRS) 01784000 DS 0D 01785000 CVTPTR DS A 01786000 BUFSIZE DC F'256' 01787000 TEMPRC DS F 01788000 VCVTPTR DS A 01789000 CRDOBPTR DS A 01790000 STOPPTR DS A 01791000 QUOTECNT DC F'0' 01792000 QUOTECNS DS F 01793000 RSPTR DS A 01794000 CRDPOOL DC F'241' 01795000 EDITSAVE DS F 01796000 PARMSAVE DS F 01797000 CHARCNT DS F 01798000 GORDSAVE DS F 01799000 MTBSAVE DS F 01800000 STRING DS F 01801000 STNBSAVE DS F 01802000 BLNKCONS DC XL4'40000000' 01803000 CHKSAVE DS F 01804000 CONTSAVE DS F 01805000 REMSPACE DS F 01806000 TEMPSIZE DS F 01807000 TEMPBUFF DS F 01808000 NEXTSIZE DS F 01809000 R15SAVE DS F 01810000 @CC02561 DC C' ' 01811000 @CC02418 DC C'ATCCON' 01812000 @CC02419 DC C'ATCSTR' 01813000 @CC02325 EQU @CC02561 01814000 DS CL1 01815000 ISTRSPRM DS CL24 01816000 ORG ISTRSPRM 01817000 RSPLIBN DS CL8 01818000 RSPMEMBN DS CL8 01819000 @NM00036 DS CL4 01820000 RSPBUFA DC AL4(INBUF) 01821000 ORG ISTRSPRM+24 01822000 INBUF DS CL80 01823000 MEMBSAVE DS CL8 01824000 MEMBZERO DS CL8 01825000 ORG MEMBZERO 01826000 @NM00037 DC 8X'00' 01827000 ORG MEMBZERO+8 01828000 CRDFLAGS DS CL1 01829000 ORG CRDFLAGS 01830000 CRDENDSP DS BL1 01831000 CRDENDST EQU CRDFLAGS+0 01832000 CRDENTRT EQU CRDFLAGS+0 01833000 BADSTORE EQU CRDFLAGS+0 01834000 NOPARMS EQU CRDFLAGS+0 01835000 CONTERR EQU CRDFLAGS+0 01836000 @NM00038 EQU CRDFLAGS+0 01837000 ORG CRDFLAGS+1 01838000 DS CL3 01839000 SMSREGS DS CL12 01840000 CMZAA026 DC CL4'114I' 01841000 CMZAA034 DC CL4'115I' 01842000 QUOTECHR DC X'7D' 01843000 PARMFLGS DS CL1 01844000 ORG PARMFLGS 01845000 @NM00043 DS BL1 01846000 CC0FLAG EQU PARMFLGS+0 01847000 @NM00044 EQU PARMFLGS+0 01848000 ORG PARMFLGS+1 01849000 PARMTAB DS CL256 01850000 ORG PARMTAB 01851000 @NM00045 DS CL64 01852000 ORG @NM00045 01853000 @NM00046 DC 64X'00' 01854000 ORG PARMTAB+64 01855000 BLANKSTP DC X'04' 01856000 @NM00047 DS CL60 01857000 ORG @NM00047 01858000 @NM00048 DC 60X'00' 01859000 ORG PARMTAB+125 01860000 QUOTESTP DC X'08' 01861000 @NM00049 DS CL130 01862000 ORG @NM00049 01863000 @NM00050 DC 130X'00' 01864000 ORG PARMTAB+256 01865000 COMMFLAG DC X'01' 01866000 CMZAA050 DC CL4'114I' 01867000 CMZAA058 DC CL4'116I' 01868000 CMZAA066 DC CL4'117I' 01869000 MOVETAB DS CL256 01870000 ORG MOVETAB 01871000 @NM00057 DS CL64 01872000 ORG @NM00057 01873000 @NM00058 DC 64X'00' 01874000 ORG MOVETAB+64 01875000 BLANKONE DC X'04' 01876000 @NM00059 DS CL191 01877000 ORG @NM00059 01878000 @NM00060 DC 191X'00' 01879000 ORG MOVETAB+256 01880000 CMZAA074 DC CL4'114I' 01881000 CMZAA097 DC CL4'115I' 01882000 CMZAA105 DC CL4'114I' 01883000 DS CL1 01884000 CMZPL026 DC 4F'0' 01885000 CMZZO026 DC F'0' 01886000 CMZPL034 DC 4F'0' 01887000 CMZZO034 DC F'0' 01888000 CMZPL050 DC 4F'0' 01889000 CMZZO050 DC F'0' 01890000 CMZPL058 DC 4F'0' 01891000 CMZZO058 DC F'0' 01892000 CMZPL066 DC 4F'0' 01893000 CMZZO066 DC F'0' 01894000 CMZPL074 DC 4F'0' 01895000 CMZZO074 DC F'0' 01896000 CMZPL097 DC 4F'0' 01897000 CMZZO097 DC F'0' 01898000 CMZPL105 DC 4F'0' 01899000 CMZZO105 DC F'0' 01900000 ISTINCRD CSECT 01901000 TRANSLT TRT 0(0,CURRENTP),PARMTAB 01902000 ISTINCRD CSECT 01903000 * /* THIS IS THE TRT FOR MTB */ 01904000 MOVETRT TRT 0(0,CURRENTP),MOVETAB 01905000 ISTINCRD CSECT 01906000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01907000 @01 EQU 01 01908000 @02 EQU 02 01909000 @03 EQU 03 01910000 @04 EQU 04 01911000 @05 EQU 05 01912000 @06 EQU 06 01913000 @07 EQU 07 01914000 @08 EQU 08 01915000 @09 EQU 09 01916000 @10 EQU 10 01917000 @11 EQU 11 01918000 @12 EQU 12 01919000 @13 EQU 13 01920000 @14 EQU 14 01921000 @15 EQU 15 01922000 LDPRMPTR EQU @01 01923000 RPHPTR EQU @01 01924000 GPR00F EQU @00 01925000 GPR00P EQU @00 01926000 GPR01P EQU @01 01927000 GPR02F EQU @02 01928000 GPR02P EQU @02 01929000 GPR03F EQU @03 01930000 GPR03P EQU @03 01931000 GPR04F EQU @04 01932000 GPR04P EQU @04 01933000 GPR15F EQU @15 01934000 GPR15P EQU @15 01935000 RCREG EQU @15 01936000 CURRENTP EQU @04 01937000 R2 EQU @02 01938000 TRTREG EQU @05 01939000 R1 EQU @01 01940000 R3 EQU @03 01941000 R5 EQU @05 01942000 R14 EQU @14 01943000 REG1026 EQU @01 01944000 EMCR13 EQU @13 01945000 REG15026 EQU @15 01946000 REG1034 EQU @01 01947000 REG15034 EQU @15 01948000 REG1050 EQU @01 01949000 REG15050 EQU @15 01950000 REG1058 EQU @01 01951000 REG15058 EQU @15 01952000 REG1066 EQU @01 01953000 REG15066 EQU @15 01954000 REG1074 EQU @01 01955000 REG15074 EQU @15 01956000 OLDADDR EQU @06 01957000 NEWADDR EQU @08 01958000 OLDCOUNT EQU @07 01959000 NEWCOUNT EQU @09 01960000 REG1097 EQU @01 01961000 REG15097 EQU @15 01962000 REG1105 EQU @01 01963000 REG15105 EQU @15 01964000 EMCR0 EQU @00 01965000 EMCR1 EQU @01 01966000 EMCR10 EQU @10 01967000 EMCR11 EQU @11 01968000 EMCR12 EQU @12 01969000 EMCR14 EQU @14 01970000 EMCR15 EQU @15 01971000 EMCR2 EQU @02 01972000 EMCR3 EQU @03 01973000 EMCR4 EQU @04 01974000 EMCR5 EQU @05 01975000 EMCR6 EQU @06 01976000 EMCR7 EQU @07 01977000 EMCR8 EQU @08 01978000 EMCR9 EQU @09 01979000 GPR01F EQU @01 01980000 GPR05F EQU @05 01981000 GPR05P EQU @05 01982000 GPR06F EQU @06 01983000 GPR06P EQU @06 01984000 GPR07F EQU @07 01985000 GPR07P EQU @07 01986000 GPR08F EQU @08 01987000 GPR08P EQU @08 01988000 GPR09F EQU @09 01989000 GPR09P EQU @09 01990000 GPR10F EQU @10 01991000 GPR10P EQU @10 01992000 GPR11F EQU @11 01993000 GPR11P EQU @11 01994000 GPR12F EQU @12 01995000 GPR12P EQU @12 01996000 GPR13F EQU @13 01997000 GPR13P EQU @13 01998000 GPR14F EQU @14 01999000 GPR14P EQU @14 02000000 ATCLCPTR EQU 1032 02001000 CVTMAP EQU 0 02002000 CVTDAR EQU CVTMAP+72 02003000 CVTFLGS1 EQU CVTDAR 02004000 CVTDCB EQU CVTMAP+116 02005000 CVTIERLC EQU CVTMAP+144 02006000 CVTOPTA EQU CVTMAP+182 02007000 CVTOPTB EQU CVTMAP+183 02008000 CVTGTF EQU CVTMAP+236 02009000 CVTGTFST EQU CVTGTF 02010000 CVTGTFS EQU CVTGTFST 02011000 CVTSTATE EQU CVTGTFST 02012000 CVTTMODE EQU CVTGTFST 02013000 CVTFORM EQU CVTGTFST 02014000 CVTAQAVT EQU CVTMAP+240 02015000 CVTTCMFG EQU CVTAQAVT 02016000 CVTVOLM2 EQU CVTMAP+244 02017000 CVTTATA EQU CVTVOLM2 02018000 CVTTSKS EQU CVTTATA 02019000 CVTVOLF2 EQU CVTTSKS 02020000 CVTTAT EQU CVTTATA+1 02021000 CVTATER EQU CVTMAP+248 02022000 CVTEXT1 EQU CVTMAP+252 02023000 CVTPURG EQU CVTMAP+260 02024000 CVTQMSG EQU CVTMAP+268 02025000 CVTDMSR EQU CVTMAP+272 02026000 CVTRSV37 EQU CVTDMSR 02027000 CVTDMSRF EQU CVTRSV37 02028000 CVTERPV EQU CVTMAP+316 02029000 CVTINTLA EQU CVTMAP+320 02030000 CVTAPF EQU CVTMAP+324 02031000 CVTEXT2 EQU CVTMAP+328 02032000 CVTHJES EQU CVTMAP+332 02033000 CVTPGSIA EQU CVTMAP+348 02034000 CVTA1F1 EQU CVTMAP+356 02035000 CVTSYSK EQU CVTMAP+357 02036000 CVTVOLM1 EQU CVTMAP+380 02037000 CVTVOLF1 EQU CVTVOLM1 02038000 CVTATMCT EQU CVTMAP+388 02039000 CVTXTNT1 EQU 0 02040000 CVTXTNT2 EQU 0 02041000 CVTDSSV EQU CVTXTNT2 02042000 CVTFLGBT EQU CVTXTNT2+5 02043000 CVTQID EQU CVTXTNT2+24 02044000 CVTSHS EQU CVTXTNT2+40 02045000 CVTRV400 EQU CVTXTNT2+52 02046000 CVTRV409 EQU CVTXTNT2+53 02047000 CVTATCVT EQU CVTXTNT2+64 02048000 CVTRV429 EQU CVTXTNT2+84 02049000 CVTRV438 EQU CVTXTNT2+85 02050000 CVTRV457 EQU CVTXTNT2+112 02051000 CVTRV466 EQU CVTXTNT2+113 02052000 CVTFIX EQU 0 02053000 CVTRELNO EQU CVTFIX+252 02054000 ISTLOK EQU 0 02055000 LOKCHN EQU ISTLOK+1 02056000 LOKCHNG EQU LOKCHN 02057000 @NM00004 EQU LOKCHNG+2 02058000 ISTDEVCH EQU 0 02059000 DEVSHCH EQU ISTDEVCH 02060000 DEVCHAR EQU DEVSHCH 02061000 DEVTCODE EQU ISTDEVCH+1 02062000 DEVFLAGS EQU ISTDEVCH+3 02063000 DEVFCCTL EQU DEVFLAGS 02064000 DEVCHAR3 EQU DEVFLAGS 02065000 ISTLDPRM EQU 0 02066000 LDPMBR EQU ISTLDPRM 02067000 LDPPDS EQU ISTLDPRM+8 02068000 LDPFG EQU ISTLDPRM+20 02069000 LDPFB2 EQU ISTLDPRM+21 02070000 ISTRPRE EQU 0 02071000 RPRCOMID EQU ISTRPRE+8 02072000 RPRFLAGA EQU ISTRPRE+21 02073000 RPRFLAGB EQU ISTRPRE+22 02074000 RPRCAUSE EQU ISTRPRE+23 02075000 RPRFLAGD EQU ISTRPRE+61 02076000 RPRFLAGC EQU ISTRPRE+62 02077000 ISTRCPRE EQU 0 02078000 RCPPMODE EQU ISTRCPRE+91 02079000 RCPLGNIN EQU ISTRCPRE+92 02080000 ISTRDT EQU 0 02081000 RDTPLEN EQU ISTRDT+72 02082000 RDTPRIOR EQU RDTPLEN 02083000 RDTFLAGB EQU ISTRDT+91 02084000 RDTVYRPH EQU ISTRDT+108 02085000 RDTSTCNT EQU ISTRDT+112 02086000 ISTRAP EQU 0 02087000 RAPFLG EQU ISTRAP+108 02088000 RAPFLGB EQU ISTRAP+109 02089000 RAPFLGC EQU ISTRAP+110 02090000 ISTRLC EQU 0 02091000 RLCADR EQU ISTRLC+72 02092000 RLCFLAG EQU RLCADR 02093000 ISTRRN EQU 0 02094000 RRNADR EQU ISTRRN+136 02095000 RRNFLAG EQU RRNADR 02096000 RRNUCBAD EQU RRNADR+1 02097000 RRNRDF EQU ISTRRN+172 02098000 RRNRDFA EQU RRNRDF 02099000 RRNRDFB EQU RRNRDF+1 02100000 RRNCMF EQU ISTRRN+176 02101000 RRNCMFA EQU RRNCMF 02102000 RRNCMFB EQU RRNCMF+1 02103000 RRNCMFC EQU RRNCMF+2 02104000 RRNCMFD EQU RRNCMF+3 02105000 RRNNMDPD EQU ISTRRN+192 02106000 RRNHPRE EQU ISTRRN+216 02107000 ISTRGP EQU 0 02108000 RGPFLG EQU ISTRGP+72 02109000 ISTRLN EQU 0 02110000 RLNADR EQU ISTRLN+72 02111000 RLNFLAG EQU RLNADR 02112000 RLNUCBAD EQU RLNADR+1 02113000 RLNSTAT1 EQU ISTRLN+86 02114000 RLNSTAT2 EQU ISTRLN+87 02115000 RLNRDF EQU ISTRLN+88 02116000 RLNRDFA EQU RLNRDF 02117000 RLNRACNT EQU RLNRDFA 02118000 RLNRDFB EQU RLNRDF+1 02119000 RLNCRFLG EQU ISTRLN+102 02120000 RLNLSCMD EQU RLNCRFLG 02121000 ISTRPT EQU 0 02122000 RPTLNCID EQU ISTRPT+116 02123000 RPTDITT EQU ISTRPT+128 02124000 RPTFLAG1 EQU ISTRPT+140 02125000 ISTRCL EQU 0 02126000 RCLADR EQU ISTRCL+72 02127000 RCLFLAG EQU RCLADR 02128000 ISTRTR EQU 0 02129000 RTRADR EQU ISTRTR+124 02130000 RTRFLAG EQU RTRADR 02131000 RTRRDFA EQU ISTRTR+136 02132000 RTRRAALL EQU RTRRDFA 02133000 RTRRDFB EQU ISTRTR+137 02134000 RTRRDFC EQU ISTRTR+138 02135000 RTRRDFD EQU ISTRTR+139 02136000 RTRRDFE EQU ISTRTR+140 02137000 RTRRDFF EQU ISTRTR+141 02138000 RTRCRFLG EQU ISTRTR+143 02139000 RTRLSCMD EQU RTRCRFLG 02140000 RTRBSCID EQU ISTRTR+188 02141000 ISTRIN EQU 0 02142000 RINDFD EQU ISTRIN+124 02143000 RINREMPO EQU RINDFD 02144000 RINNODEF EQU RINDFD 02145000 RINLDISC EQU RINDFD 02146000 RINNODID EQU ISTRIN+125 02147000 RINRLDAF EQU ISTRIN+126 02148000 RINREMOT EQU ISTRIN+128 02149000 RINVPAB EQU ISTRIN+132 02150000 RINRPHCN EQU ISTRIN+136 02151000 RINNCSPL EQU ISTRIN+140 02152000 RINCNCNT EQU ISTRIN+144 02153000 ISTRDS EQU 0 02154000 ISTDOT EQU 0 02155000 ISTRCC EQU 0 02156000 RCCFLAG EQU ISTRCC+73 02157000 RCCFLAGB EQU ISTRCC+74 02158000 RCCSTAID EQU ISTRCC+78 02159000 RCCID48 EQU RCCSTAID+2 02160000 RCCCRFLG EQU ISTRCC+108 02161000 ISTRLU EQU 0 02162000 RLUFLAG EQU ISTRLU+125 02163000 RLUCRFLG EQU ISTRLU+126 02164000 RLUPACE EQU ISTRLU+132 02165000 RLUNCPPC EQU ISTRLU+134 02166000 RLUUSSTB EQU ISTRLU+140 02167000 RLUMODET EQU ISTRLU+152 02168000 ISTRPX EQU 0 02169000 ISTRLX EQU 0 02170000 RLXFLAGA EQU ISTRLX+76 02171000 ISTRSW EQU 0 02172000 ISTRDA EQU 0 02173000 RDAADR EQU ISTRDA+72 02174000 RDAFLAG EQU RDAADR 02175000 RDAUCBAD EQU RDAADR+1 02176000 ISTRLS EQU 0 02177000 ISTDNT EQU 0 02178000 ISTGNT EQU 0 02179000 ISTPAT EQU 0 02180000 PATFLAGA EQU ISTPAT+7 02181000 ISTCONFT EQU 0 02182000 CONRDBUF EQU ISTCONFT+76 02183000 CONBUFSZ EQU ISTCONFT+100 02184000 CONHALT EQU ISTCONFT+106 02185000 CONFLAGS EQU ISTCONFT+110 02186000 CONDSFLG EQU CONFLAGS 02187000 CONOPTFL EQU CONFLAGS+1 02188000 CONSTAT EQU CONFLAGS+2 02189000 CONBUFF EQU CONFLAGS+3 02190000 CONFLG01 EQU ISTCONFT+416 02191000 CONSCPID EQU ISTCONFT+1356 02192000 CONSTAID EQU CONSCPID+3 02193000 ISTAVT EQU 0 02194000 ISTAS49 EQU ISTAVT+4 02195000 ISTPAB EQU 0 02196000 PABWQCHN EQU ISTPAB 02197000 PABWEQA EQU PABWQCHN 02198000 PABCHAIN EQU PABWQCHN+4 02199000 PABRPHFG EQU ISTPAB+12 02200000 PABFLAGS EQU PABRPHFG 02201000 PABERLCK EQU PABFLAGS 02202000 PABERRLK EQU PABERLCK 02203000 ISTDYPAB EQU 0 02204000 ISTRPH EQU 0 02205000 RPHCNTL EQU ISTRPH 02206000 RPHFLAGS EQU RPHCNTL+2 02207000 RPHAPTYP EQU RPHFLAGS 02208000 RPHFSTLC EQU RPHFLAGS 02209000 RPHFLGB EQU RPHCNTL+3 02210000 RPHRPHA EQU ISTRPH+4 02211000 RPHTSKID EQU ISTRPH+8 02212000 RPHRESMA EQU ISTRPH+16 02213000 RPHWPFLG EQU RPHRESMA 02214000 RPHWEA EQU ISTRPH+24 02215000 RPHCSPA EQU RPHWEA 02216000 RPHSRPRM EQU ISTRPH+28 02217000 RPHPABQA EQU ISTRPH+36 02218000 RPHWORK EQU ISTRPH+40 02219000 RPHSAVE1 EQU RPHWORK 02220000 RPHSBITS EQU RPHSAVE1+1 02221000 ISTATCVT EQU 0 02222000 ATCCOM EQU ISTATCVT 02223000 ATCSTAT EQU ATCCOM 02224000 ATCSTAT1 EQU ATCSTAT 02225000 ATCSTFLG EQU ATCSTAT+1 02226000 ATCPOFLG EQU ATCSTAT+2 02227000 ATCSTAT4 EQU ATCSTAT+3 02228000 ATCCONFT EQU ATCCOM+112 02229000 ATCIOTRC EQU ATCCOM+140 02230000 ATCTHTRC EQU ATCIOTRC 02231000 ATCCSMR EQU ISTATCVT+296 02232000 ATCSHRFG EQU ISTATCVT+316 02233000 ATCMSGP EQU ISTATCVT+344 02234000 ATCHPGM EQU ISTATCVT+384 02235000 ATCVLCNT EQU ISTATCVT+772 02236000 ATCRNO EQU ISTATCVT+788 02237000 ATCSOPD EQU ISTATCVT+792 02238000 ATCSIPD EQU ISTATCVT+800 02239000 ATCSECST EQU ISTATCVT+812 02240000 ATCSTAT2 EQU ISTATCVT+818 02241000 ATCVTBAM EQU ISTATCVT+908 02242000 @NM00030 EQU ATCVTBAM+3 02243000 ATCAOSM EQU ISTATCVT+912 02244000 ATCGSRBQ EQU ATCAOSM+4 02245000 ATCGSRBG EQU ATCGSRBQ 02246000 ATCICAPP EQU ATCAOSM+100 02247000 ATCLDAPP EQU ATCAOSM+120 02248000 ATCDAPVT EQU ATCAOSM+140 02249000 ATCCRA EQU ATCAOSM+280 02250000 ATCCRACN EQU ATCCRA+4 02251000 ATCSRB EQU ATCAOSM+288 02252000 ATCSRBCN EQU ATCSRB+4 02253000 ATCCRPL EQU ATCAOSM+296 02254000 ATCRPLCN EQU ATCCRPL+4 02255000 ATCSQAFR EQU ATCAOSM+304 02256000 ATCORTBC EQU ATCSQAFR+4 02257000 ATCORSRB EQU ATCORTBC 02258000 @NM00032 EQU ATCAOSM+332 02259000 ATCVTFLG EQU ATCAOSM+392 02260000 ATCZFLAG EQU ATCAOSM+588 02261000 OUTAREA EQU 0 02262000 INBUFNOW EQU 0 02263000 COL72 EQU 0 02264000 CMZB0011 EQU 0 02265000 DUME0024 EQU 0 02266000 @NM00039 EQU 0 02267000 CMZID026 EQU @NM00039 02268000 @NM00040 EQU @NM00039+4 02269000 CMZVP026 EQU @NM00039+12 02270000 CMZSA026 EQU 0 02271000 CMTA026 EQU 0 02272000 @NM00041 EQU 0 02273000 CMZID034 EQU @NM00041 02274000 @NM00042 EQU @NM00041+4 02275000 CMZVP034 EQU @NM00041+12 02276000 CMZSA034 EQU 0 02277000 CMTA034 EQU 0 02278000 CMZB0042 EQU 0 02279000 FUNCBYTE EQU 0 02280000 PREVBYTE EQU 0 02281000 @NM00051 EQU 0 02282000 CMZID050 EQU @NM00051 02283000 @NM00052 EQU @NM00051+4 02284000 CMZVP050 EQU @NM00051+12 02285000 CMZSA050 EQU 0 02286000 CMTA050 EQU 0 02287000 @NM00053 EQU 0 02288000 CMZID058 EQU @NM00053 02289000 @NM00054 EQU @NM00053+4 02290000 CMZVP058 EQU @NM00053+12 02291000 CMZSA058 EQU 0 02292000 CMTA058 EQU 0 02293000 @NM00055 EQU 0 02294000 CMZID066 EQU @NM00055 02295000 @NM00056 EQU @NM00055+4 02296000 CMZVP066 EQU @NM00055+12 02297000 CMZSA066 EQU 0 02298000 CMTA066 EQU 0 02299000 @NM00061 EQU 0 02300000 CMZID074 EQU @NM00061 02301000 @NM00062 EQU @NM00061+4 02302000 CMZVP074 EQU @NM00061+12 02303000 CMZSA074 EQU 0 02304000 CMTA074 EQU 0 02305000 COLS15 EQU 0 02306000 COL16 EQU 0 02307000 DUME0087 EQU 0 02308000 CMZB0089 EQU 0 02309000 @NM00063 EQU 0 02310000 CMZID097 EQU @NM00063 02311000 @NM00064 EQU @NM00063+4 02312000 CMZVP097 EQU @NM00063+12 02313000 CMZSA097 EQU 0 02314000 CMTA097 EQU 0 02315000 @NM00065 EQU 0 02316000 CMZID105 EQU @NM00065 02317000 @NM00066 EQU @NM00065+4 02318000 CMZVP105 EQU @NM00065+12 02319000 CMZSA105 EQU 0 02320000 CMTA105 EQU 0 02321000 OUTAREA2 EQU 0 02322000 CVTS01 EQU CVTPGSIA 02323000 CVTLPDIA EQU CVTS01+12 02324000 CVTDIRST EQU CVTLPDIA 02325000 CVTSLIDA EQU CVTS01+24 02326000 CVTCTLFG EQU CVTS01+50 02327000 CVTRV210 EQU CVTS01+424 02328000 CVTRV219 EQU CVTS01+425 02329000 CVTRV228 EQU CVTS01+426 02330000 CVTRV237 EQU CVTS01+427 02331000 CVTMFRTR EQU CVTS01+452 02332000 CVTRV262 EQU CVTS01+468 02333000 CVTRV271 EQU CVTS01+469 02334000 CVTRV280 EQU CVTS01+470 02335000 CVTRV289 EQU CVTS01+471 02336000 CVTGSDA EQU CVTS01+600 02337000 RTRDNCBA EQU ISTRTR+40 02338000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02339000 CVTRV628 EQU CVTS01+728 02340000 CVTRV627 EQU CVTS01+724 02341000 CVTRV626 EQU CVTS01+720 02342000 CVTRV625 EQU CVTS01+716 02343000 CVTRV624 EQU CVTS01+712 02344000 CVTRV623 EQU CVTS01+708 02345000 CVTRV622 EQU CVTS01+704 02346000 CVTRV621 EQU CVTS01+700 02347000 CVTRV620 EQU CVTS01+696 02348000 CVTRV619 EQU CVTS01+692 02349000 CVTRV618 EQU CVTS01+688 02350000 CVTRV617 EQU CVTS01+684 02351000 CVTRV616 EQU CVTS01+680 02352000 CVTRV615 EQU CVTS01+676 02353000 CVTRV614 EQU CVTS01+672 02354000 CVTRV613 EQU CVTS01+668 02355000 CVTTCASP EQU CVTS01+664 02356000 CVT0PT03 EQU CVTS01+660 02357000 CVT0PT0E EQU CVTS01+656 02358000 CVTIRM EQU CVTS01+652 02359000 CVTCGK EQU CVTS01+648 02360000 CVTRV607 EQU CVTS01+644 02361000 CVTRV606 EQU CVTS01+640 02362000 CVTRV605 EQU CVTS01+636 02363000 CVTRV604 EQU CVTS01+632 02364000 CVTEFF02 EQU CVTS01+628 02365000 CVTCBBR EQU CVTS01+624 02366000 CVTSSCR EQU CVTS01+620 02367000 CVTEVENT EQU CVTS01+616 02368000 CVTCRCA EQU CVTS01+612 02369000 CVTTPIO EQU CVTS01+608 02370000 CVTADV EQU CVTS01+604 02371000 CVTGSDAB EQU CVTGSDA 02372000 CVTQV3 EQU CVTS01+596 02373000 CVTQV2 EQU CVTS01+592 02374000 CVTQV1 EQU CVTS01+588 02375000 CVTRPT EQU CVTS01+584 02376000 CVTSSRB EQU CVTS01+580 02377000 CVTCSDRL EQU CVTS01+576 02378000 CVTEXP1 EQU CVTS01+572 02379000 CVTRMPMT EQU CVTS01+568 02380000 CVTRMPTT EQU CVTS01+564 02381000 CVTVPSA EQU CVTS01+560 02382000 CVTVSTOP EQU CVTS01+556 02383000 CVTGTFR8 EQU CVTS01+552 02384000 CVTQUIT EQU CVTS01+548 02385000 CVTVACR EQU CVTS01+544 02386000 CVTWTCB EQU CVTS01+540 02387000 CVTSTPRS EQU CVTS01+536 02388000 CVT0PT02 EQU CVTS01+532 02389000 CVTDARCM EQU CVTS01+528 02390000 CVTIRECM EQU CVTS01+524 02391000 CVTJRECM EQU CVTS01+520 02392000 CVTVEMS0 EQU CVTS01+516 02393000 CVTSPFRR EQU CVTS01+512 02394000 CVTRLSTG EQU CVTS01+508 02395000 CVT0TC0A EQU CVTS01+504 02396000 CVTGMBR EQU CVTS01+500 02397000 CVTLFRM EQU CVTS01+496 02398000 CVTRMBR EQU CVTS01+492 02399000 CVTVIOP EQU CVTS01+488 02400000 CVTRV307 EQU CVTS01+486 02401000 CVTRV306 EQU CVTS01+484 02402000 CVTRV305 EQU CVTS01+482 02403000 CVTRV304 EQU CVTS01+480 02404000 CVTRV303 EQU CVTS01+478 02405000 CVTRV302 EQU CVTS01+476 02406000 CVTTRCA EQU CVTS01+472 02407000 CVTRV297 EQU CVTRV289 02408000 CVTRV296 EQU CVTRV289 02409000 CVTRV295 EQU CVTRV289 02410000 CVTRV294 EQU CVTRV289 02411000 CVTRV293 EQU CVTRV289 02412000 CVTRV292 EQU CVTRV289 02413000 CVTRV291 EQU CVTRV289 02414000 CVTRV290 EQU CVTRV289 02415000 CVTRV288 EQU CVTRV280 02416000 CVTRV287 EQU CVTRV280 02417000 CVTRV286 EQU CVTRV280 02418000 CVTRV285 EQU CVTRV280 02419000 CVTRV284 EQU CVTRV280 02420000 CVTRV283 EQU CVTRV280 02421000 CVTRV282 EQU CVTRV280 02422000 CVTRV281 EQU CVTRV280 02423000 CVTRV279 EQU CVTRV271 02424000 CVTRV278 EQU CVTRV271 02425000 CVTRV277 EQU CVTRV271 02426000 CVTRV276 EQU CVTRV271 02427000 CVTRV275 EQU CVTRV271 02428000 CVTRV274 EQU CVTRV271 02429000 CVTRV273 EQU CVTRV271 02430000 CVTRV272 EQU CVTRV271 02431000 CVTRV270 EQU CVTRV262 02432000 CVTRV269 EQU CVTRV262 02433000 CVTRV268 EQU CVTRV262 02434000 CVTRV267 EQU CVTRV262 02435000 CVTRV266 EQU CVTRV262 02436000 CVTRV265 EQU CVTRV262 02437000 CVTRV264 EQU CVTRV262 02438000 CVTRV263 EQU CVTRV262 02439000 CVTVFP EQU CVTS01+464 02440000 CVTVSI EQU CVTS01+460 02441000 CVTVPSIB EQU CVTS01+456 02442000 CVTMFACT EQU CVTMFRTR 02443000 CVTMFCTL EQU CVTS01+448 02444000 CVTPVBP EQU CVTS01+444 02445000 CVTPWI EQU CVTS01+440 02446000 CVTRV254 EQU CVTS01+438 02447000 CVTRV253 EQU CVTS01+436 02448000 CVTRV252 EQU CVTS01+434 02449000 CVTRV251 EQU CVTS01+433 02450000 CVTRV250 EQU CVTS01+432 02451000 CVTRV249 EQU CVTS01+431 02452000 CVTRV248 EQU CVTS01+430 02453000 CVTRV247 EQU CVTS01+429 02454000 CVTRV246 EQU CVTS01+428 02455000 CVTRV245 EQU CVTRV237 02456000 CVTRV244 EQU CVTRV237 02457000 CVTRV243 EQU CVTRV237 02458000 CVTRV242 EQU CVTRV237 02459000 CVTRV241 EQU CVTRV237 02460000 CVTRV240 EQU CVTRV237 02461000 CVTRV239 EQU CVTRV237 02462000 CVTRV238 EQU CVTRV237 02463000 CVTRV236 EQU CVTRV228 02464000 CVTRV235 EQU CVTRV228 02465000 CVTRV234 EQU CVTRV228 02466000 CVTRV233 EQU CVTRV228 02467000 CVTRV232 EQU CVTRV228 02468000 CVTRV231 EQU CVTRV228 02469000 CVTRV230 EQU CVTRV228 02470000 CVTRV229 EQU CVTRV228 02471000 CVTRV227 EQU CVTRV219 02472000 CVTRV226 EQU CVTRV219 02473000 CVTRV225 EQU CVTRV219 02474000 CVTRV224 EQU CVTRV219 02475000 CVTRV223 EQU CVTRV219 02476000 CVTRV222 EQU CVTRV219 02477000 CVTRV221 EQU CVTRV219 02478000 CVTRV220 EQU CVTRV219 02479000 CVTRV218 EQU CVTRV210 02480000 CVTRV217 EQU CVTRV210 02481000 CVTRV216 EQU CVTRV210 02482000 CVTRV215 EQU CVTRV210 02483000 CVTRV214 EQU CVTRV210 02484000 CVTRV213 EQU CVTRV210 02485000 CVTRV212 EQU CVTRV210 02486000 CVTRV211 EQU CVTRV210 02487000 CVTLCCAT EQU CVTS01+420 02488000 CVTPCCAT EQU CVTS01+416 02489000 CVTIPCRP EQU CVTS01+412 02490000 CVTIPCRI EQU CVTS01+408 02491000 CVTIPCDS EQU CVTS01+404 02492000 CVTAIDVT EQU CVTS01+400 02493000 CVTSSAP EQU CVTS01+396 02494000 CVTEHCIR EQU CVTS01+392 02495000 CVTEHDEF EQU CVTS01+388 02496000 CVTDAIR EQU CVTS01+384 02497000 CVTPERFM EQU CVTS01+380 02498000 CVT044R2 EQU CVTS01+376 02499000 CVTFETCH EQU CVTS01+372 02500000 CVTRSTWD EQU CVTS01+368 02501000 CVTSPOST EQU CVTS01+364 02502000 CVTIOBP EQU CVTS01+360 02503000 CVTASMVT EQU CVTS01+356 02504000 CVTRECRQ EQU CVTS01+352 02505000 CVTWSAC EQU CVTS01+348 02506000 CVTRV149 EQU CVTS01+344 02507000 CVTWSAL EQU CVTS01+340 02508000 CVTSPSA EQU CVTS01+336 02509000 CVTGLMN EQU CVTS01+332 02510000 CVTVEAC0 EQU CVTS01+328 02511000 CVT062R1 EQU CVTS01+324 02512000 CVTRPOST EQU CVTS01+320 02513000 CVTDQIQE EQU CVTS01+316 02514000 CVTCSD EQU CVTS01+312 02515000 CVTLKRMA EQU CVTS01+308 02516000 CVTRSPIE EQU CVTS01+304 02517000 CVTRENQ EQU CVTS01+300 02518000 CVTLQCB EQU CVTS01+296 02519000 CVTFQCB EQU CVTS01+292 02520000 CVTQCS01 EQU CVTS01+288 02521000 CVTAPFT EQU CVTS01+284 02522000 CVTPARRL EQU CVTS01+280 02523000 CVTVWAIT EQU CVTS01+276 02524000 CVTGSPL EQU CVTS01+272 02525000 CVTLSMQ EQU CVTS01+268 02526000 CVTGSMQ EQU CVTS01+264 02527000 CVTEXPRO EQU CVTS01+260 02528000 CVTOPCTP EQU CVTS01+256 02529000 CVTSIC EQU CVTS01+252 02530000 CVTTPIOS EQU CVTS01+248 02531000 CVTRTMS EQU CVTS01+244 02532000 CVTSDBF EQU CVTS01+240 02533000 CVTSCBP EQU CVTS01+236 02534000 CVTSDMP EQU CVTS01+232 02535000 CVTSV60 EQU CVTS01+228 02536000 CVTRTMCT EQU CVTS01+224 02537000 CVTASCBL EQU CVTS01+220 02538000 CVTASCBH EQU CVTS01+216 02539000 CVTGDA EQU CVTS01+212 02540000 CVTASVT EQU CVTS01+208 02541000 CVTVVMDI EQU CVTS01+204 02542000 CVTAQTOP EQU CVTS01+200 02543000 CVTIOSCS EQU CVTS01+196 02544000 CVTSDRM EQU CVTS01+192 02545000 CVTOPTE EQU CVTS01+188 02546000 CVTSTXU EQU CVTS01+184 02547000 CVTQUIS EQU CVTS01+180 02548000 CVTPARS EQU CVTS01+176 02549000 CVTS1EE EQU CVTS01+172 02550000 CVTFRAS EQU CVTS01+168 02551000 CVTQSAS EQU CVTS01+164 02552000 CVTCRAS EQU CVTS01+160 02553000 CVTCRMN EQU CVTS01+156 02554000 CVTDELCP EQU CVTS01+152 02555000 CVTFRECL EQU CVTS01+148 02556000 CVTGETCL EQU CVTS01+144 02557000 CVTBLDCP EQU CVTS01+140 02558000 CVTAUTHL EQU CVTS01+136 02559000 CVTSCAN EQU CVTS01+132 02560000 CVTRV144 EQU CVTS01+130 02561000 CVTMAXMP EQU CVTS01+128 02562000 CVTSTCK EQU CVTS01+124 02563000 CVTRV139 EQU CVTS01+123 02564000 CVTDSSAC EQU CVTS01+122 02565000 CVTRV513 EQU CVTS01+121 02566000 CVTIOSPL EQU CVTS01+120 02567000 CVTPTGT EQU CVTS01+116 02568000 CVTCSPIE EQU CVTS01+112 02569000 CVTSMFEX EQU CVTS01+108 02570000 CVTOLT0A EQU CVTS01+104 02571000 CVTSRBRT EQU CVTS01+100 02572000 CVTPUTL EQU CVTS01+96 02573000 CVTASCRL EQU CVTS01+92 02574000 CVTASCRF EQU CVTS01+88 02575000 CVTRV326 EQU CVTS01+84 02576000 CVTRV325 EQU CVTS01+80 02577000 CVTRV324 EQU CVTS01+76 02578000 CVT0VL01 EQU CVTS01+72 02579000 CVTSHRVM EQU CVTS01+68 02580000 CVTRV332 EQU CVTS01+64 02581000 CVTTAS EQU CVTS01+60 02582000 CVTRSCN EQU CVTS01+56 02583000 CVTTRAC2 EQU CVTS01+54 02584000 CVTTRACE EQU CVTS01+52 02585000 CVTAPG EQU CVTS01+51 02586000 CVTSDTRC EQU CVTCTLFG 02587000 CVTGTRCE EQU CVTCTLFG 02588000 CVTNOMP EQU CVTCTLFG 02589000 CVTRSV79 EQU CVTCTLFG 02590000 CVTDSTAT EQU CVTCTLFG 02591000 CVTRSV78 EQU CVTCTLFG 02592000 CVTRV333 EQU CVTCTLFG 02593000 CVTRV323 EQU CVTCTLFG 02594000 CVTSPVLK EQU CVTS01+49 02595000 CVTRSV77 EQU CVTS01+48 02596000 CVTRV331 EQU CVTS01+44 02597000 CVTRV330 EQU CVTS01+40 02598000 CVTRV329 EQU CVTS01+36 02599000 CVTRV328 EQU CVTS01+32 02600000 CVTRV322 EQU CVTS01+28 02601000 CVTSLID EQU CVTSLIDA+1 02602000 CVTSYLK EQU CVTSLIDA 02603000 CVTRV321 EQU CVTS01+20 02604000 CVTRV320 EQU CVTS01+16 02605000 CVTLPDIR EQU CVTLPDIA+1 02606000 CVTRSV69 EQU CVTDIRST 02607000 CVTRSV68 EQU CVTDIRST 02608000 CVTRSV67 EQU CVTDIRST 02609000 CVTRSV66 EQU CVTDIRST 02610000 CVTRSV65 EQU CVTDIRST 02611000 CVTRSV64 EQU CVTDIRST 02612000 CVTRSV63 EQU CVTDIRST 02613000 CVTDICOM EQU CVTDIRST 02614000 CVTPVTP EQU CVTS01+8 02615000 CVTLPDSR EQU CVTS01+4 02616000 CVTGETL EQU CVTS01 02617000 CMZEA105 EQU @NM00065+8 02618000 CMZRA105 EQU @NM00066+1 02619000 CMZRL105 EQU @NM00066 02620000 CMZEA097 EQU @NM00063+8 02621000 CMZRA097 EQU @NM00064+1 02622000 CMZRL097 EQU @NM00064 02623000 CMZEA074 EQU @NM00061+8 02624000 CMZRA074 EQU @NM00062+1 02625000 CMZRL074 EQU @NM00062 02626000 CMZEA066 EQU @NM00055+8 02627000 CMZRA066 EQU @NM00056+1 02628000 CMZRL066 EQU @NM00056 02629000 CMZEA058 EQU @NM00053+8 02630000 CMZRA058 EQU @NM00054+1 02631000 CMZRL058 EQU @NM00054 02632000 CMZEA050 EQU @NM00051+8 02633000 CMZRA050 EQU @NM00052+1 02634000 CMZRL050 EQU @NM00052 02635000 CMZEA034 EQU @NM00041+8 02636000 CMZRA034 EQU @NM00042+1 02637000 CMZRL034 EQU @NM00042 02638000 CMZEA026 EQU @NM00039+8 02639000 CMZRA026 EQU @NM00040+1 02640000 CMZRL026 EQU @NM00040 02641000 ATCAOS EQU ISTATCVT+1584 02642000 ATCPOPAB EQU ATCAOSM+640 02643000 ATCVIOPM EQU ATCAOSM+636 02644000 ATCTPMMI EQU ATCAOSM+632 02645000 ATCTPMPB EQU ATCAOSM+600 02646000 ATCRSV88 EQU ATCAOSM+596 02647000 ATCRPLCT EQU ATCAOSM+594 02648000 ATCCRACT EQU ATCAOSM+592 02649000 ATCSRBCT EQU ATCAOSM+590 02650000 ATCRSV75 EQU ATCAOSM+589 02651000 ATCRSV66 EQU ATCZFLAG 02652000 ATCZF001 EQU ATCZFLAG 02653000 ATCTPCP1 EQU ATCAOSM+584 02654000 ATCTPCP0 EQU ATCAOSM+580 02655000 ATCAICTN EQU ATCAOSM+576 02656000 ATCZR01 EQU ATCAOSM+572 02657000 ATCMPLTA EQU ATCAOSM+568 02658000 ATCASCB EQU ATCAOSM+564 02659000 ATCAP86 EQU ATCAOSM+560 02660000 ATCAP85 EQU ATCAOSM+556 02661000 ATCAP84 EQU ATCAOSM+552 02662000 ATCAP83 EQU ATCAOSM+548 02663000 ATCAP82 EQU ATCAOSM+544 02664000 ATCAP69 EQU ATCAOSM+540 02665000 ATCAP66 EQU ATCAOSM+536 02666000 ATCAP62 EQU ATCAOSM+532 02667000 ATCAPC59 EQU ATCAOSM+528 02668000 ATCAP56 EQU ATCAOSM+524 02669000 ATCAP55 EQU ATCAOSM+520 02670000 ATCRCFY0 EQU ATCAOSM+516 02671000 ATCAP41 EQU ATCAOSM+512 02672000 ATCAPC25 EQU ATCAOSM+508 02673000 ATCAP23 EQU ATCAOSM+504 02674000 ATCTPSPB EQU ATCAOSM+472 02675000 ATCTRMPB EQU ATCAOSM+440 02676000 ATCAPBE EQU ATCAOSM+436 02677000 ATCPSTA EQU ATCAOSM+432 02678000 ATCSMABF EQU ATCAOSM+428 02679000 ATCSMAPR EQU ATCAOSM+424 02680000 ATCTPWQA EQU ATCAOSM+420 02681000 ATCSMAID EQU ATCAOSM+416 02682000 ATCSMARA EQU ATCAOSM+412 02683000 ATCCACXA EQU ATCAOSM+408 02684000 ATCZLAAB EQU ATCAOSM+404 02685000 ATCATA10 EQU ATCAOSM+400 02686000 ATCHLTCB EQU ATCAOSM+396 02687000 @NM00035 EQU ATCVTFLG 02688000 ATCVTACT EQU ATCVTFLG 02689000 ATCRPT40 EQU ATCAOSM+388 02690000 ATCRPT39 EQU ATCAOSM+384 02691000 ATCRPT38 EQU ATCAOSM+380 02692000 ATCRPT37 EQU ATCAOSM+376 02693000 ATCRPT36 EQU ATCAOSM+372 02694000 ATCRPT35 EQU ATCAOSM+368 02695000 ATCRPT34 EQU ATCAOSM+364 02696000 ATCRPT33 EQU ATCAOSM+360 02697000 ATCRPT32 EQU ATCAOSM+356 02698000 ATCRPT31 EQU ATCAOSM+352 02699000 ATCRPT30 EQU ATCAOSM+348 02700000 ATCRPT29 EQU ATCAOSM+344 02701000 ATCRPT28 EQU ATCAOSM+340 02702000 ATCRPT27 EQU ATCAOSM+336 02703000 @NM00034 EQU ATCAOSM+333 02704000 @NM00033 EQU @NM00032 02705000 ATCSNUF EQU @NM00032 02706000 ATCOPKL EQU @NM00032 02707000 ATCABEN EQU @NM00032 02708000 ATCAIWT EQU ATCAOSM+328 02709000 ATCINFDD EQU ATCAOSM+324 02710000 ATCORFMG EQU ATCAOSM+320 02711000 ATCORFRL EQU ATCAOSM+316 02712000 ATCOROBT EQU ATCAOSM+312 02713000 ATCORQG EQU ATCORSRB 02714000 ATCORTBF EQU ATCSQAFR 02715000 ATCRPLAC EQU ATCRPLCN+2 02716000 ATCRPLRC EQU ATCRPLCN 02717000 ATCCRPLQ EQU ATCCRPL 02718000 ATCSRBAC EQU ATCSRBCN+2 02719000 ATCSRBRC EQU ATCSRBCN 02720000 ATCSRBQ EQU ATCSRB 02721000 ATCCRAAC EQU ATCCRACN+2 02722000 ATCCRARC EQU ATCCRACN 02723000 ATCCRAQ EQU ATCCRA 02724000 ATCRPT12 EQU ATCAOSM+276 02725000 ATCDMAPP EQU ATCAOSM+272 02726000 ATCAP38 EQU ATCAOSM+268 02727000 ATCAP37 EQU ATCAOSM+264 02728000 ATCZDFJ0 EQU ATCAOSM+260 02729000 ATCAP51 EQU ATCAOSM+256 02730000 ATCZPAB2 EQU ATCAOSM+224 02731000 ATCZPAB1 EQU ATCAOSM+192 02732000 ATCZLFVT EQU ATCAOSM+188 02733000 ATCZLPVT EQU ATCAOSM+184 02734000 ATCZDVTX EQU ATCAOSM+180 02735000 ATCZDVTA EQU ATCAOSM+176 02736000 ATCZDVT9 EQU ATCAOSM+172 02737000 ATCZDVT8 EQU ATCAOSM+168 02738000 ATCZDVT7 EQU ATCAOSM+164 02739000 ATCRSV56 EQU ATCDAPVT+22 02740000 ATCDAPDG EQU ATCDAPVT+20 02741000 ATCDXCEA EQU ATCDAPVT+16 02742000 ATCDCEA EQU ATCDAPVT+12 02743000 ATCDPCIA EQU ATCDAPVT+8 02744000 ATCDSIOA EQU ATCDAPVT+4 02745000 ATCDEOEA EQU ATCDAPVT 02746000 ATCZLAEA EQU ATCLDAPP+16 02747000 ATCZLCEA EQU ATCLDAPP+12 02748000 ATCRSV17 EQU ATCLDAPP+8 02749000 ATCSMFRR EQU ATCLDAPP+4 02750000 ATCCDTID EQU ATCLDAPP 02751000 ATCZAEA EQU ATCICAPP+16 02752000 ATCZCEA EQU ATCICAPP+12 02753000 ATCCDTCB EQU ATCICAPP+8 02754000 ATCZSIOA EQU ATCICAPP+4 02755000 ATCCDRPH EQU ATCICAPP 02756000 ATCAP65 EQU ATCAOSM+96 02757000 ATCZDVT6 EQU ATCAOSM+92 02758000 ATCZDVT4 EQU ATCAOSM+88 02759000 ATCZDVT3 EQU ATCAOSM+84 02760000 ATCZDVT1 EQU ATCAOSM+80 02761000 ATCICNCB EQU ATCAOSM+76 02762000 ATCZPSVT EQU ATCAOSM+72 02763000 ATCZFSVT EQU ATCAOSM+68 02764000 ATCAP64 EQU ATCAOSM+64 02765000 ATCAP63 EQU ATCAOSM+60 02766000 ATCAP61 EQU ATCAOSM+56 02767000 ATCAP58 EQU ATCAOSM+52 02768000 ATCAP57 EQU ATCAOSM+48 02769000 ATCAP54 EQU ATCAOSM+44 02770000 ATCAP53 EQU ATCAOSM+40 02771000 ATCAP52 EQU ATCAOSM+36 02772000 ATCAP34 EQU ATCAOSM+32 02773000 ATCAP32 EQU ATCAOSM+28 02774000 ATCAP31 EQU ATCAOSM+24 02775000 ATCAP12 EQU ATCAOSM+20 02776000 ATCAP11 EQU ATCAOSM+16 02777000 ATCCMTCB EQU ATCAOSM+12 02778000 ATCPRPH EQU ATCAOSM+8 02779000 ATCGSRBF EQU ATCGSRBG 02780000 ATCSRBRT EQU ATCAOSM 02781000 @NM00031 EQU @NM00030 02782000 ATCVTMAB EQU @NM00030 02783000 @NM00029 EQU ATCVTBAM 02784000 ATCVDLOK EQU ISTATCVT+904 02785000 ATCVFPAB EQU ISTATCVT+872 02786000 ATCVDPAB EQU ISTATCVT+840 02787000 ATCIOECB EQU ISTATCVT+836 02788000 ATCINCW3 EQU ISTATCVT+832 02789000 ATCMODTB EQU ISTATCVT+828 02790000 ATCUSSPT EQU ISTATCVT+824 02791000 ATCSRTAB EQU ISTATCVT+820 02792000 @NM00028 EQU ISTATCVT+819 02793000 @NM00027 EQU ATCSTAT2 02794000 ATCTRSMS EQU ATCSTAT2 02795000 ATCTRLOK EQU ATCSTAT2 02796000 ATCTRPSS EQU ATCSTAT2 02797000 ATCTRESC EQU ATCSTAT2 02798000 ATCTRAPI EQU ATCSTAT2 02799000 ATCNMCTR EQU ISTATCVT+816 02800000 ATCSEC51 EQU ATCSECST 02801000 ATCSEC40 EQU ATCSIPD+8 02802000 ATCSEC30 EQU ATCSIPD+4 02803000 ATCSEC21 EQU ATCSIPD 02804000 ATCSEC10 EQU ATCSOPD+4 02805000 ATCSEC01 EQU ATCSOPD 02806000 ATCPOIA EQU ATCRNO+1 02807000 @NM00026 EQU ATCRNO 02808000 ATCPODVT EQU ISTATCVT+784 02809000 ATCS49XL EQU ISTATCVT+780 02810000 ATCS49XI EQU ISTATCVT+776 02811000 ATCLCLCT EQU ATCVLCNT+2 02812000 ATCRNCNT EQU ATCVLCNT 02813000 ATCCFEAD EQU ISTATCVT+768 02814000 ATCPTR00 EQU ISTATCVT+736 02815000 ATCRSV10 EQU ISTATCVT+704 02816000 ATCTACB EQU ISTATCVT+700 02817000 ATCVTINM EQU ISTATCVT+696 02818000 ATCTCLIM EQU ISTATCVT+692 02819000 ATCTCLOM EQU ISTATCVT+688 02820000 ATCVTIPB EQU ISTATCVT+656 02821000 ATCTCIPB EQU ISTATCVT+624 02822000 ATCTIPAB EQU ISTATCVT+592 02823000 ATCOCCCB EQU ISTATCVT+588 02824000 ATCOCCOB EQU ISTATCVT+584 02825000 ATCCDLAD EQU ISTATCVT+580 02826000 ATCCCLAD EQU ISTATCVT+576 02827000 ATCDLRPB EQU ISTATCVT+544 02828000 ATCPGPAB EQU ISTATCVT+512 02829000 ATCVPAB1 EQU ISTATCVT+480 02830000 ATCRSV97 EQU ISTATCVT+476 02831000 ATCRDTLK EQU ISTATCVT+472 02832000 ATCVOCLK EQU ISTATCVT+468 02833000 ATCCDFDN EQU ISTATCVT+464 02834000 ATCCDFIN EQU ISTATCVT+460 02835000 ATCDVTLK EQU ISTATCVT+456 02836000 ATCAP36 EQU ISTATCVT+452 02837000 ATCAP35 EQU ISTATCVT+448 02838000 ATCAP33 EQU ISTATCVT+444 02839000 ATCRSV99 EQU ISTATCVT+440 02840000 ATCONFIG EQU ISTATCVT+432 02841000 ATCNODDS EQU ISTATCVT+428 02842000 ATCNODEL EQU ISTATCVT+420 02843000 ATCRSV69 EQU ISTATCVT+416 02844000 ATCAPCR5 EQU ISTATCVT+412 02845000 ATCLDECB EQU ISTATCVT+408 02846000 ATCLDNCS EQU ISTATCVT+404 02847000 ATCCDPTR EQU ISTATCVT+400 02848000 ATCADEL EQU ISTATCVT+396 02849000 ATCTODVT EQU ISTATCVT+392 02850000 ATCDEBCH EQU ISTATCVT+388 02851000 ATCHBSIZ EQU ATCHPGM+2 02852000 ATCHBFNO EQU ATCHPGM 02853000 ATCCRME EQU ISTATCVT+380 02854000 ATCRVCHS EQU ISTATCVT+372 02855000 ATCECTLP EQU ISTATCVT+368 02856000 ATCZDVTB EQU ISTATCVT+364 02857000 ATCECPRT EQU ISTATCVT+360 02858000 ATCVTLOD EQU ISTATCVT+356 02859000 ATCTRPAB EQU ISTATCVT+352 02860000 ATCMSGM EQU ISTATCVT+348 02861000 ATCEPT EQU ISTATCVT+340 02862000 ATCDVT EQU ISTATCVT+336 02863000 ATCTRCPT EQU ISTATCVT+332 02864000 ATCDVLOD EQU ISTATCVT+328 02865000 ATCALERT EQU ISTATCVT+324 02866000 ATCEPA EQU ISTATCVT+320 02867000 ATCSAF EQU ISTATCVT+318 02868000 ATCXRANG EQU ISTATCVT+317 02869000 ATCLAST EQU ATCSHRFG 02870000 ATCSHRTN EQU ISTATCVT+308 02871000 ATCUEP EQU ISTATCVT+304 02872000 ATCOCRT EQU ISTATCVT+300 02873000 ATCCSMA EQU ATCCSMR 02874000 ATCESC02 EQU ISTATCVT+292 02875000 ATCESC01 EQU ISTATCVT+288 02876000 ATCCDFND EQU ISTATCVT+284 02877000 ATCCDDEL EQU ISTATCVT+280 02878000 ATCCDADD EQU ISTATCVT+276 02879000 ATCMNT EQU ISTATCVT+272 02880000 ATCRSV16 EQU ISTATCVT+270 02881000 ATCMAXID EQU ISTATCVT+269 02882000 ATCMSGSP EQU ATCCOM+268 02883000 ATCCIDM EQU ATCCOM+266 02884000 ATCACTRM EQU ATCCOM+264 02885000 ATCNERAP EQU ATCCOM+260 02886000 ATCNESAL EQU ATCCOM+256 02887000 ATCRCC65 EQU ATCCOM+252 02888000 ATCRCC26 EQU ATCCOM+248 02889000 ATCRCC63 EQU ATCCOM+244 02890000 ATCRSV11 EQU ATCCOM+242 02891000 ATCVTMID EQU ATCCOM+240 02892000 ATCAPOST EQU ATCCOM+236 02893000 ATCNERFN EQU ATCCOM+232 02894000 ATCNERNE EQU ATCCOM+228 02895000 ATCNERCV EQU ATCCOM+224 02896000 ATCNERST EQU ATCCOM+220 02897000 ATCDCC61 EQU ATCCOM+216 02898000 ATCDCC60 EQU ATCCOM+212 02899000 ATCSRTDF EQU ATCCOM+208 02900000 ATCSRTAD EQU ATCCOM+204 02901000 ATCFIRA EQU ATCCOM+200 02902000 ATCSMBQ EQU ATCCOM+196 02903000 ATCSMRC EQU ATCCOM+192 02904000 ATCSMRS EQU ATCCOM+188 02905000 ATCSMQU EQU ATCCOM+184 02906000 ATCSMRQ EQU ATCCOM+180 02907000 ATCACDA EQU ATCCOM+176 02908000 ATCSTMA EQU ATCCOM+172 02909000 ATCFRSTR EQU ATCCOM+168 02910000 ATCGTSTR EQU ATCCOM+164 02911000 ATCREADA EQU ATCCOM+160 02912000 ATCALOAD EQU ATCCOM+156 02913000 ATCBLDLA EQU ATCCOM+152 02914000 ATCFBRPH EQU ATCCOM+148 02915000 ATCBFTRC EQU ATCCOM+144 02916000 ATCTPBUF EQU ATCTHTRC 02917000 ATCREMOV EQU ATCCOM+136 02918000 ATCADD EQU ATCCOM+132 02919000 ATCBPDA EQU ATCCOM+128 02920000 ATCDVTPT EQU ATCCOM+124 02921000 ATCFEPT EQU ATCCOM+120 02922000 ATCFDVT EQU ATCCOM+116 02923000 ATCPTCHA EQU ATCCOM+108 02924000 ATCAUTHA EQU ATCCOM+104 02925000 ATCACCTA EQU ATCCOM+100 02926000 ATCRDTH EQU ATCCOM+96 02927000 ATCFRSCH EQU ATCCOM+92 02928000 ATCFSB EQU ATCCOM+88 02929000 ATCHLTMS EQU ATCCOM+84 02930000 ATCECPRM EQU ATCCOM+80 02931000 ATCECNET EQU ATCCOM+76 02932000 ATCECOPC EQU ATCCOM+72 02933000 ATCVPARM EQU ATCCOM+68 02934000 ATCECVRQ EQU ATCCOM+64 02935000 ATCECSES EQU ATCCOM+60 02936000 ATCOCHA EQU ATCCOM+56 02937000 ATCDSPLQ EQU ATCCOM+52 02938000 ATCECDSP EQU ATCCOM+48 02939000 ATCVARYQ EQU ATCCOM+44 02940000 ATCECVRY EQU ATCCOM+40 02941000 ATCHALTQ EQU ATCCOM+36 02942000 ATCECHLT EQU ATCCOM+32 02943000 ATCMODQ EQU ATCCOM+28 02944000 ATCECMOD EQU ATCCOM+24 02945000 ATCASCHD EQU ATCCOM+20 02946000 ATCSRT EQU ATCCOM+16 02947000 ATCRDT EQU ATCCOM+12 02948000 ATCDCFRR EQU ATCCOM+8 02949000 ATCAPI EQU ATCCOM+4 02950000 ATCRSV04 EQU ATCSTAT4 02951000 ATCVTTRC EQU ATCSTAT4 02952000 ATCNCSD EQU ATCSTAT4 02953000 ATCMTST EQU ATCSTAT4 02954000 ATCTPRT EQU ATCSTAT4 02955000 ATCPRTAT EQU ATCSTAT4 02956000 @NM00025 EQU ATCPOFLG 02957000 ATCPOUNS EQU ATCPOFLG 02958000 ATCHSDMF EQU ATCSTFLG 02959000 @NM00024 EQU ATCSTAT1 02960000 ATCMDHLT EQU ATCSTAT1 02961000 ATCINHLT EQU ATCSTAT1 02962000 ATCNETSL EQU ATCSTAT1 02963000 ATCQKHLT EQU ATCSTAT1 02964000 ATCSNHLT EQU ATCSTAT1 02965000 ATCACTIV EQU ATCSTAT1 02966000 ATCSTART EQU ATCSTAT1 02967000 RPHNEXPO EQU ISTRPH+104 02968000 RPHSAV16 EQU RPHWORK+60 02969000 RPHSAV15 EQU RPHWORK+56 02970000 RPHSAV14 EQU RPHWORK+52 02971000 RPHSAV13 EQU RPHWORK+48 02972000 RPHSAV12 EQU RPHWORK+44 02973000 RPHSAV11 EQU RPHWORK+40 02974000 RPHSAV10 EQU RPHWORK+36 02975000 RPHSAVE9 EQU RPHWORK+32 02976000 RPHSAVE8 EQU RPHWORK+28 02977000 RPHSAVE7 EQU RPHWORK+24 02978000 RPHSAVE6 EQU RPHWORK+20 02979000 RPHSAVE5 EQU RPHWORK+16 02980000 RPHSAVE4 EQU RPHWORK+12 02981000 RPHSAVE3 EQU RPHWORK+8 02982000 RPHSAVE2 EQU RPHWORK+4 02983000 RPHSHALF EQU RPHSAVE1+2 02984000 RPHSBIT8 EQU RPHSBITS 02985000 RPHSBIT7 EQU RPHSBITS 02986000 RPHSBIT6 EQU RPHSBITS 02987000 RPHSBIT5 EQU RPHSBITS 02988000 RPHSBIT4 EQU RPHSBITS 02989000 RPHSBIT3 EQU RPHSBITS 02990000 RPHSBIT2 EQU RPHSBITS 02991000 RPHSBIT1 EQU RPHSBITS 02992000 RPHSBYTE EQU RPHSAVE1 02993000 RPHPABQP EQU RPHPABQA+1 02994000 RPHPABFG EQU RPHPABQA 02995000 RPHCRR EQU ISTRPH+32 02996000 RPHSRP34 EQU RPHSRPRM+2 02997000 RPHSRP12 EQU RPHSRPRM 02998000 RPHWEGT EQU RPHCSPA 02999000 RPHMAJCB EQU ISTRPH+21 03000000 RPHPABOF EQU ISTRPH+20 03001000 RPHRESUM EQU RPHRESMA+1 03002000 RPHRSV01 EQU RPHWPFLG 03003000 RPHPURGE EQU RPHWPFLG 03004000 RPHPT EQU RPHWPFLG 03005000 RPHWT EQU RPHWPFLG 03006000 RPHRSKEY EQU RPHWPFLG 03007000 RPHDVTA EQU ISTRPH+12 03008000 RPHTIK EQU RPHTSKID+3 03009000 @NM00023 EQU RPHTSKID 03010000 RPHRPHAP EQU RPHRPHA+1 03011000 @NM00022 EQU RPHRPHA 03012000 RPHGATE EQU RPHRPHA 03013000 @NM00021 EQU RPHFLGB 03014000 RPHRLCRA EQU RPHFLGB 03015000 RPHNRSAV EQU RPHFLGB 03016000 RPHPGCMP EQU RPHFLGB 03017000 RPHFBAPS EQU RPHFLGB 03018000 RPHBSSP EQU RPHFLGB 03019000 RPHLOCK EQU RPHFLGB 03020000 RPHFNFLG EQU RPHFSTLC 03021000 RPHMLTCP EQU RPHFLAGS 03022000 RPHSMCLR EQU RPHFLAGS 03023000 RPHSMTYP EQU RPHFLAGS 03024000 RPHSMQ EQU RPHFLAGS 03025000 RPHAUTEX EQU RPHAPTYP 03026000 RPHSPGIN EQU RPHFLAGS 03027000 RPHOGIND EQU RPHFLAGS 03028000 RPHLNGTH EQU RPHCNTL+1 03029000 RPHTYPE EQU RPHCNTL 03030000 DYPPAB EQU ISTDYPAB+16 03031000 DYPRSV01 EQU ISTDYPAB+12 03032000 DYPTSKID EQU ISTDYPAB+8 03033000 DYPCHAIN EQU ISTDYPAB+4 03034000 DYPFLGS EQU ISTDYPAB+2 03035000 DYPLNGTH EQU ISTDYPAB+1 03036000 DYPTYPE EQU ISTDYPAB 03037000 PABRPHA EQU PABRPHFG+1 03038000 PABNODQ EQU PABFLAGS 03039000 PABINHBT EQU PABFLAGS 03040000 PABERLOK EQU PABERRLK 03041000 PABSSN EQU PABFLAGS 03042000 PABDYNAM EQU PABFLAGS 03043000 PABNORPR EQU PABFLAGS 03044000 PABPRIOR EQU PABFLAGS 03045000 PABAPYP EQU PABFLAGS 03046000 PABDVTA EQU ISTPAB+9 03047000 PABOFFST EQU ISTPAB+8 03048000 PABCHNGP EQU PABCHAIN+1 03049000 PABRSV02 EQU PABCHAIN 03050000 PABDELAY EQU PABCHAIN 03051000 PABRUNNG EQU PABCHAIN 03052000 PABRESET EQU PABCHAIN 03053000 PABUNCON EQU PABCHAIN 03054000 PABCDP EQU PABCHAIN 03055000 PABRESCH EQU PABCHAIN 03056000 PABCHNG EQU PABCHAIN 03057000 PABWEQP EQU PABWEQA+1 03058000 PABRSV01 EQU PABWEQA 03059000 PABWEQG EQU PABWEQA 03060000 ISTPDAVP EQU ISTAVT+40 03061000 ISTAVR01 EQU ISTAVT+38 03062000 ISTVTTP EQU ISTAVT+36 03063000 ISTAGTWT EQU ISTAVT+34 03064000 ISTATRT EQU ISTAVT+32 03065000 ISTARID EQU ISTAVT+30 03066000 ISTX1 EQU ISTAVT+29 03067000 ISTPHNM EQU ISTAVT+24 03068000 ISTAPSEX EQU ISTAVT+20 03069000 ISTVTTIK EQU ISTAVT+18 03070000 AVTASID EQU ISTAVT+16 03071000 ISTAPSTA EQU ISTAVT+12 03072000 ISTAS53 EQU ISTAVT+8 03073000 ISTAHIP EQU ISTAS49 03074000 ISTACVT EQU ISTAVT 03075000 CONUESBF EQU ISTCONFT+1362 03076000 CONSTVAR EQU CONSTAID+1 03077000 CONSTFIL EQU CONSTAID 03078000 CONBLKNO EQU CONSCPID+2 03079000 CONFILL EQU CONSCPID+1 03080000 CONFCNL EQU CONSCPID 03081000 CONF01SV EQU ISTCONFT+1352 03082000 CONSDMLC EQU ISTCONFT+1348 03083000 CONSDECB EQU ISTCONFT+1344 03084000 CONUNITS EQU ISTCONFT+1342 03085000 CONRVPT1 EQU ISTCONFT+1341 03086000 CONGLBBH EQU ISTCONFT+1340 03087000 CONRSV24 EQU ISTCONFT+1312 03088000 CONFTTAT EQU ISTCONFT+1284 03089000 CONFXXAT EQU ISTCONFT+1256 03090000 CONFLDAT EQU ISTCONFT+1228 03091000 CONFTRAT EQU ISTCONFT+1200 03092000 CONFNSAT EQU ISTCONFT+1172 03093000 CONCSCB EQU ISTCONFT+1168 03094000 CONRSV50 EQU ISTCONFT+1166 03095000 CONLIST EQU ISTCONFT+1164 03096000 CONSTAFP EQU ISTCONFT+1160 03097000 CONECDET EQU ISTCONFT+1156 03098000 CONRECON EQU ISTCONFT+1036 03099000 CONNTSOL EQU ISTCONFT+916 03100000 CONTRACE EQU ISTCONFT+796 03101000 CONTOLTP EQU ISTCONFT+676 03102000 CONVVTAM EQU ISTCONFT+556 03103000 CONVTHDR EQU ISTCONFT+420 03104000 CONRSV01 EQU ISTCONFT+417 03105000 CONNSNEC EQU CONFLG01 03106000 CONFTPSA EQU CONFLG01 03107000 CONFTTA EQU CONFLG01 03108000 CONFTNSA EQU CONFLG01 03109000 CONFTNAC EQU CONFLG01 03110000 CONFTEXS EQU CONFLG01 03111000 CONFTTMR EQU CONFLG01 03112000 CONFTSTM EQU CONFLG01 03113000 CONCRPLD EQU ISTCONFT+404 03114000 CONPPDBF EQU ISTCONFT+392 03115000 CONNPDBF EQU ISTCONFT+380 03116000 CONAPDBF EQU ISTCONFT+368 03117000 CONWPDBF EQU ISTCONFT+356 03118000 CONIODBF EQU ISTCONFT+344 03119000 CONUEDBF EQU ISTCONFT+332 03120000 CONVPDBF EQU ISTCONFT+320 03121000 CONVFDBF EQU ISTCONFT+308 03122000 CONLPDBF EQU ISTCONFT+296 03123000 CONLFDBF EQU ISTCONFT+284 03124000 CONSPDBF EQU ISTCONFT+272 03125000 CONSFDBF EQU ISTCONFT+260 03126000 CONCRPLS EQU ISTCONFT+248 03127000 CONPPSBF EQU ISTCONFT+236 03128000 CONNPSBF EQU ISTCONFT+224 03129000 CONAPSBF EQU ISTCONFT+212 03130000 CONWPSBF EQU ISTCONFT+200 03131000 CONIOSBF EQU ISTCONFT+188 03132000 CONVPSBF EQU ISTCONFT+176 03133000 CONVFSBF EQU ISTCONFT+164 03134000 CONLPSBF EQU ISTCONFT+152 03135000 CONLFSBF EQU ISTCONFT+140 03136000 CONSPSBF EQU ISTCONFT+128 03137000 CONSFSBF EQU ISTCONFT+116 03138000 CONRSV17 EQU ISTCONFT+115 03139000 CONCRPL EQU CONBUFF+1 03140000 CONPPEX EQU CONBUFF+1 03141000 CONNPEX EQU CONBUFF+1 03142000 CONAPEX EQU CONBUFF+1 03143000 CONWPEX EQU CONBUFF+1 03144000 CONIOEX EQU CONBUFF 03145000 CONUECB EQU CONBUFF 03146000 CONVPEX EQU CONBUFF 03147000 CONVFEX EQU CONBUFF 03148000 CONLPEX EQU CONBUFF 03149000 CONLFEX EQU CONBUFF 03150000 CONSPEX EQU CONBUFF 03151000 CONSFEX EQU CONBUFF 03152000 CONACTV EQU CONSTAT 03153000 CONVRYIN EQU CONSTAT 03154000 CONLODED EQU CONSTAT 03155000 CONDSOPN EQU CONSTAT 03156000 CONSTOR EQU CONSTAT 03157000 @NM00020 EQU CONSTAT 03158000 @NM00019 EQU CONSTAT 03159000 @NM00018 EQU CONSTAT 03160000 CONIOTR EQU CONOPTFL 03161000 CONMODTR EQU CONOPTFL 03162000 CONBTUTR EQU CONOPTFL 03163000 CONBUFTR EQU CONOPTFL 03164000 @NM00017 EQU CONOPTFL 03165000 @NM00016 EQU CONOPTFL 03166000 @NM00015 EQU CONOPTFL 03167000 CONWRMST EQU CONOPTFL 03168000 CONSYLST EQU CONDSFLG 03169000 CONSYLIB EQU CONDSFLG 03170000 CONSYOBJ EQU CONDSFLG 03171000 @NM00014 EQU CONDSFLG 03172000 @NM00013 EQU CONDSFLG 03173000 @NM00012 EQU CONDSFLG 03174000 CONMODFY EQU ISTCONFT+109 03175000 CONDISPL EQU ISTCONFT+108 03176000 CONVARY EQU ISTCONFT+107 03177000 CONHLTS EQU CONHALT 03178000 CONHLTQ EQU CONHALT 03179000 CONLAST EQU ISTCONFT+105 03180000 CONRES2 EQU ISTCONFT+104 03181000 CONCID EQU ISTCONFT+102 03182000 CONRSV02 EQU ISTCONFT+96 03183000 CONDCBBA EQU ISTCONFT+92 03184000 CONDCBLA EQU ISTCONFT+88 03185000 CONDCBOA EQU ISTCONFT+84 03186000 CONLDPRM EQU ISTCONFT+80 03187000 CONSTCIB EQU ISTCONFT+72 03188000 CONENDLA EQU ISTCONFT+68 03189000 CONVARLA EQU ISTCONFT+64 03190000 CONMODLA EQU ISTCONFT+60 03191000 CONHLTLA EQU ISTCONFT+56 03192000 CONNCSLA EQU ISTCONFT+52 03193000 CONDISLA EQU ISTCONFT+48 03194000 CONCIBAD EQU ISTCONFT+44 03195000 CONACB EQU ISTCONFT+40 03196000 CONFBPNM EQU ISTCONFT+32 03197000 CONDMNM EQU ISTCONFT+24 03198000 CONAPSNM EQU ISTCONFT+16 03199000 CONAPINM EQU ISTCONFT+8 03200000 CONCONFG EQU ISTCONFT 03201000 PATRSV01 EQU PATFLAGA 03202000 PATUSEFG EQU PATFLAGA 03203000 PATRDCNT EQU ISTPAT+6 03204000 PATGRPID EQU ISTPAT+5 03205000 PATPTHID EQU ISTPAT+4 03206000 PATDINDX EQU ISTPAT+2 03207000 PATGINDX EQU ISTPAT 03208000 GNTGRPNM EQU ISTGNT 03209000 DNTTELNO EQU ISTDNT+1 03210000 DNTCTDIG EQU ISTDNT 03211000 RLSRSV02 EQU ISTRLS+140 03212000 RLSRSV01 EQU ISTRLS+138 03213000 RLSCTELU EQU ISTRLS+136 03214000 RLSPRE EQU ISTRLS 03215000 RDARSVPT EQU ISTRDA+84 03216000 RDAPUBI EQU ISTRDA+83 03217000 RDADFCUA EQU ISTRDA+80 03218000 RDACTPCC EQU ISTRDA+79 03219000 RDADACUA EQU ISTRDA+76 03220000 RDALUBA EQU RDAUCBAD+1 03221000 RDACHQI EQU RDAUCBAD 03222000 RDARSV01 EQU RDAFLAG 03223000 RDARBISA EQU RDAFLAG 03224000 RDAPRE EQU ISTRDA 03225000 RSWRSV01 EQU ISTRSW+152 03226000 RSWRSV02 EQU ISTRSW+150 03227000 RSWCTELU EQU ISTRSW+148 03228000 RSWGRUPZ EQU ISTRSW+146 03229000 RSWDIALZ EQU ISTRSW+144 03230000 RSWGRUPT EQU ISTRSW+140 03231000 RSWDIALT EQU ISTRSW+136 03232000 RSWPRE EQU ISTRSW 03233000 RLXRSV03 EQU ISTRLX+80 03234000 RLXRSV02 EQU ISTRLX+77 03235000 RLXRSV01 EQU RLXFLAGA 03236000 RLXINUSE EQU RLXFLAGA 03237000 RLXNLUX EQU ISTRLX+72 03238000 RLXPRE EQU ISTRLX 03239000 RPXRSV01 EQU ISTRPX+80 03240000 RPXRSV02 EQU ISTRPX+77 03241000 RPXMAXLU EQU ISTRPX+76 03242000 RPXFLUX EQU ISTRPX+72 03243000 RPXPRE EQU ISTRPX 03244000 RLURSV02 EQU ISTRLU+172 03245000 RLULGMOD EQU ISTRLU+164 03246000 RLUMODEP EQU RLUMODET+8 03247000 RLUMODEN EQU RLUMODET 03248000 RLUUSSPT EQU RLUUSSTB+8 03249000 RLUUSSNM EQU RLUUSSTB 03250000 RLURSV01 EQU ISTRLU+137 03251000 RLULOCAD EQU ISTRLU+136 03252000 RLUNCPPM EQU RLUNCPPC+1 03253000 RLUNCPPN EQU RLUNCPPC 03254000 RLUPACEM EQU RLUPACE+1 03255000 RLUPACEN EQU RLUPACE 03256000 RLUINTA EQU ISTRLU+128 03257000 RLUSSCFM EQU ISTRLU+127 03258000 RLUCRRSV EQU RLUCRFLG 03259000 RLUACTLU EQU RLUCRFLG 03260000 RLURSV00 EQU RLUFLAG 03261000 RLUNDSES EQU RLUFLAG 03262000 RLUGSTAT EQU RLUFLAG 03263000 RLUBATCH EQU RLUFLAG 03264000 RLURBISA EQU RLUFLAG 03265000 RLUTYPE EQU ISTRLU+124 03266000 RLUCRPR EQU ISTRLU 03267000 RCCRVPT2 EQU ISTRCC+144 03268000 RCCXTOSW EQU ISTRCC+140 03269000 RCCSWTOX EQU ISTRCC+136 03270000 RCCRSPT2 EQU ISTRCC+133 03271000 RCCADDR EQU ISTRCC+132 03272000 RCCPASSL EQU ISTRCC+131 03273000 RCCMXOUT EQU ISTRCC+130 03274000 RCCMXDAT EQU ISTRCC+128 03275000 RCCINDEX EQU ISTRCC+126 03276000 RCCPATHZ EQU ISTRCC+124 03277000 RCCPATHT EQU ISTRCC+120 03278000 RCCDPQ EQU ISTRCC+116 03279000 RCCTPAB EQU ISTRCC+112 03280000 RCCRSV02 EQU ISTRCC+109 03281000 RCCCRRSV EQU RCCCRFLG 03282000 RCCCTCFL EQU RCCCRFLG 03283000 RCCACTPU EQU RCCCRFLG 03284000 RCCNCSPL EQU ISTRCC+104 03285000 RCCRPHCN EQU ISTRCC+100 03286000 RCCEPAB EQU ISTRCC+96 03287000 RCCDPAB EQU ISTRCC+92 03288000 RCCVPAB EQU ISTRCC+88 03289000 @NM00011 EQU ISTRCC+87 03290000 RCCSESCT EQU ISTRCC+86 03291000 RCCIDNUM EQU RCCID48+3 03292000 RCCIDBLK EQU RCCID48+2 03293000 RCCIDPA2 EQU RCCID48+1 03294000 RCCIDPUT EQU RCCID48 03295000 RCCIDPA1 EQU RCCSTAID 03296000 RCCCTELU EQU ISTRCC+76 03297000 RCCCNCNT EQU ISTRCC+75 03298000 RCCRTGOH EQU RCCFLAGB 03299000 RCCBRKCN EQU RCCFLAGB 03300000 RCCRESET EQU RCCFLAGB 03301000 RCCFINAL EQU RCCFLAGB 03302000 RCCBNNSP EQU RCCFLAGB 03303000 RCCIRETR EQU RCCFLAGB 03304000 RCCDIALP EQU RCCFLAGB 03305000 RCCDSTCT EQU RCCFLAGB 03306000 RCCCTPGD EQU RCCFLAG 03307000 RCCPRGDN EQU RCCFLAG 03308000 RCCOUERP EQU RCCFLAG 03309000 RCCOHIMM EQU RCCFLAG 03310000 RCCLDISC EQU RCCFLAG 03311000 RCCERPIP EQU RCCFLAG 03312000 RCCCUDIE EQU RCCFLAG 03313000 RCCRBISA EQU RCCFLAG 03314000 RCCTYPE EQU ISTRCC+72 03315000 RCCPRE EQU ISTRCC 03316000 DOTADTRM EQU ISTDOT 03317000 RDSADDOT EQU ISTRDS+76 03318000 RDSCTATR EQU ISTRDS+74 03319000 RDSCTTRM EQU ISTRDS+72 03320000 RDSPRE EQU ISTRDS 03321000 RINRSV05 EQU ISTRIN+156 03322000 RINRSV04 EQU ISTRIN+152 03323000 RINLOCRN EQU ISTRIN+148 03324000 RINRSV02 EQU ISTRIN+145 03325000 RTRCNCNT EQU RINCNCNT 03326000 RTRNCSPL EQU RINNCSPL 03327000 RTRRPHCN EQU RINRPHCN 03328000 RTRVPAB EQU RINVPAB 03329000 RTRREMOT EQU RINREMOT 03330000 RTRRLDAF EQU RINRLDAF 03331000 RTRNODID EQU RINNODID 03332000 RINRSV01 EQU RINDFD 03333000 RTRLDISC EQU RINLDISC 03334000 RTRNODEF EQU RINNODEF 03335000 RTRREMPO EQU RINREMPO 03336000 RINCRPRE EQU ISTRIN 03337000 RTRRSV04 EQU ISTRTR+210 03338000 RTRLCTI EQU ISTRTR+209 03339000 RTRIDCAS EQU RTRBSCID+1 03340000 RTRIDLEN EQU RTRBSCID 03341000 RTRRSVDD EQU ISTRTR+181 03342000 RTRRDFG EQU ISTRTR+180 03343000 RTRDIAA EQU ISTRTR+176 03344000 RTRPOLA EQU ISTRTR+172 03345000 RTRCADDR EQU ISTRTR+164 03346000 RTRCTADR EQU ISTRTR+162 03347000 RTRCTPOL EQU ISTRTR+160 03348000 RTRCTDIA EQU ISTRTR+158 03349000 RTRRSV03 EQU ISTRTR+156 03350000 RTRRVPT1 EQU ISTRTR+152 03351000 RTRBHSN1 EQU ISTRTR+144 03352000 RTRCRSV2 EQU RTRCRFLG 03353000 RTRDTRLM EQU RTRLSCMD 03354000 RTRCRSV1 EQU RTRCRFLG 03355000 RTRTRMAX EQU ISTRTR+142 03356000 RTRRSV24 EQU RTRRDFF 03357000 RTRRFDEK EQU RTRRDFF 03358000 RTRRFANK EQU RTRRDFF 03359000 RTRRFPFK EQU RTRRDFF 03360000 RTRRFPEN EQU RTRRDFF 03361000 RTRRFXCT EQU RTRRDFF 03362000 RTRRESCT EQU RTRRDFE 03363000 RTRRESUP EQU RTRRDFE 03364000 RTRREATT EQU RTRRDFE 03365000 RTRRECHK EQU RTRRDFE 03366000 RTRREACR EQU RTRRDFE 03367000 RTRRSV0A EQU RTRRDFE 03368000 RTRREBRK EQU RTRRDFE 03369000 RTRRSV11 EQU RTRRDFD 03370000 RTRRSV10 EQU RTRRDFD 03371000 RTRRDBHI EQU RTRRDFD 03372000 RTRRDBHD EQU RTRRDFD 03373000 RTRRDBHN EQU RTRRDFD 03374000 RTRRSV23 EQU RTRRDFC 03375000 RTRRCXMS EQU RTRRDFC 03376000 RTRRCMSG EQU RTRRDFC 03377000 RTRRCBLK EQU RTRRDFC 03378000 RTRRCPT3 EQU RTRRDFC 03379000 RTRRCIT2 EQU RTRRDFC 03380000 RTRRCIT1 EQU RTRRDFC 03381000 RTRRSV32 EQU RTRRDFB 03382000 RTRRBEND EQU RTRRDFB 03383000 RTRRBECT EQU RTRRDFB 03384000 RTRRSV02 EQU RTRRDFA 03385000 RTRRACTR EQU RTRRDFA 03386000 RTRRSV60 EQU RTRRDFA 03387000 RTRRACDT EQU RTRRDFA 03388000 RTRRAPT3 EQU RTRRAALL 03389000 RTRRAPT2 EQU RTRRAALL 03390000 RTRRAPT1 EQU RTRRAALL 03391000 RTRRAATN EQU RTRRDFA 03392000 RTRRSV45 EQU ISTRTR+132 03393000 RTRRSV01 EQU ISTRTR+130 03394000 RTRCTECM EQU ISTRTR+128 03395000 RTRADRPT EQU RTRADR+1 03396000 RTRRSV22 EQU RTRFLAG 03397000 RTRVTERM EQU RTRFLAG 03398000 RTRRSV51 EQU RTRFLAG 03399000 RTRRBISA EQU RTRFLAG 03400000 RTRRSV21 EQU RTRFLAG 03401000 RTRCRPR EQU ISTRTR 03402000 RCLRVPT2 EQU ISTRCL+92 03403000 RCLRVPT1 EQU ISTRCL+88 03404000 RCLGPOLA EQU ISTRCL+84 03405000 RCLCTNGP EQU ISTRCL+82 03406000 RCLRSV01 EQU ISTRCL+80 03407000 RCLCTECM EQU ISTRCL+78 03408000 RCLCTETR EQU ISTRCL+76 03409000 RCLGPADR EQU RCLADR+1 03410000 RCLRSV33 EQU RCLFLAG 03411000 RCLBATCH EQU RCLFLAG 03412000 RCLRBISA EQU RCLFLAG 03413000 RCLRSV22 EQU RCLFLAG 03414000 RCLPRE EQU ISTRCL 03415000 RPTRSV03 EQU ISTRPT+156 03416000 RPTRSV02 EQU ISTRPT+152 03417000 RPTNSNSV EQU ISTRPT+148 03418000 RPTPTHCT EQU ISTRPT+146 03419000 RPTPEPCT EQU ISTRPT+144 03420000 RPTDAFSV EQU ISTRPT+142 03421000 RPTRSV01 EQU ISTRPT+141 03422000 RPTISTAT EQU RPTFLAG1 03423000 RPTDYNAM EQU RPTFLAG1 03424000 RPTVYIMM EQU RPTFLAG1 03425000 RPTVIODN EQU RPTFLAG1 03426000 RPTONLIN EQU RPTFLAG1 03427000 RPTHLVPD EQU RPTFLAG1 03428000 RPTVRYPD EQU RPTFLAG1 03429000 RPTASLEP EQU RPTFLAG1 03430000 RPTUTERM EQU ISTRPT+136 03431000 RPTATERM EQU ISTRPT+132 03432000 RPTDIVT EQU RPTDITT 03433000 RPTCTNM EQU ISTRPT+120 03434000 RPTLNDAF EQU RPTLNCID+2 03435000 RPTLNSAF EQU RPTLNCID 03436000 RPTLN EQU ISTRPT 03437000 RLNRVPT2 EQU ISTRLN+112 03438000 RLNNCSPL EQU ISTRLN+108 03439000 RLNX2SW EQU ISTRLN+104 03440000 @NM00010 EQU ISTRLN+103 03441000 RLNCRRSV EQU RLNCRFLG 03442000 RLNSWEP EQU RLNCRFLG 03443000 RLNSVSKP EQU RLNLSCMD 03444000 RLNSESLM EQU RLNLSCMD 03445000 RLNNPRLM EQU RLNLSCMD 03446000 RLNSWNCP EQU RLNCRFLG 03447000 RLNACTLN EQU RLNCRFLG 03448000 RLNPAUSE EQU ISTRLN+101 03449000 RLNPOLMT EQU ISTRLN+100 03450000 RLNACTSN EQU ISTRLN+98 03451000 RLNRESV1 EQU ISTRLN+97 03452000 RLNACTRM EQU ISTRLN+96 03453000 RLNCTSES EQU ISTRLN+95 03454000 RLNRDSLM EQU ISTRLN+94 03455000 RLNAUTOA EQU ISTRLN+92 03456000 RLNRDFD EQU RLNRDF+3 03457000 RLNRDFC EQU RLNRDF+2 03458000 RLNMULTP EQU RLNRDFB 03459000 RLNRATRN EQU RLNRDFB 03460000 RLNRAPOL EQU RLNRDFB 03461000 RLNTTV EQU RLNRDFB 03462000 RLNRSV0B EQU RLNRDFB 03463000 RLNAUTOD EQU RLNRDFB 03464000 RLNANSWR EQU RLNRDFB 03465000 RLNRBUSE EQU RLNRDFB 03466000 RLNRAPEP EQU RLNRDFA 03467000 RLNRANCP EQU RLNRDFA 03468000 RLNRAEP EQU RLNRDFA 03469000 RLNIDV EQU RLNRDFA 03470000 RLNPORT EQU RLNRDFA 03471000 RLNGANSW EQU RLNRDFA 03472000 RLNRACAN EQU RLNRACNT 03473000 RLNRACAT EQU RLNRACNT 03474000 RLNRSV04 EQU RLNSTAT2 03475000 RLNINUSE EQU RLNSTAT2 03476000 RLNOHIN EQU RLNSTAT2 03477000 RLNRSV03 EQU RLNSTAT1 03478000 RLNVD EQU RLNSTAT1 03479000 RLNINOPP EQU RLNSTAT1 03480000 RLNINOPL EQU RLNSTAT1 03481000 RLNLRST EQU RLNSTAT1 03482000 RLNTRAP EQU RLNSTAT1 03483000 RLNACTCT EQU ISTRLN+84 03484000 RLNCTECM EQU ISTRLN+82 03485000 RLNCTEIN EQU ISTRLN+80 03486000 RLNCTETR EQU ISTRLN+78 03487000 RLNCTECL EQU ISTRLN+76 03488000 RLNCUA EQU RLNUCBAD 03489000 RLNRSV01 EQU RLNFLAG 03490000 RLNRBISA EQU RLNFLAG 03491000 RLNEAM EQU RLNFLAG 03492000 RLNPRE EQU ISTRLN 03493000 RGPRVPT2 EQU ISTRGP+88 03494000 RGPRVPT1 EQU ISTRGP+84 03495000 RGPCTECM EQU ISTRGP+82 03496000 RGPCTEIN EQU ISTRGP+80 03497000 RGPCTETR EQU ISTRGP+78 03498000 RGPCTECL EQU ISTRGP+76 03499000 RGPCTELN EQU ISTRGP+74 03500000 RGPRSV03 EQU ISTRGP+73 03501000 RGPRSV02 EQU RGPFLG 03502000 RGPASDLC EQU RGPFLG 03503000 RGPABSC EQU RGPFLG 03504000 RGPASS EQU RGPFLG 03505000 RGPADIL EQU RGPFLG 03506000 RGPPRE EQU ISTRGP 03507000 RRNRINNM EQU ISTRRN+248 03508000 @NM00009 EQU ISTRRN+247 03509000 RRNRDCUA EQU ISTRRN+244 03510000 RRNLASTE EQU ISTRRN+240 03511000 RRNNCSPL EQU ISTRRN+236 03512000 RRNRPLPT EQU ISTRRN+232 03513000 RRNMSIZE EQU ISTRRN+228 03514000 RRNNCPNM EQU ISTRRN+221 03515000 RRNCTPCC EQU ISTRRN+220 03516000 RRNHBUFS EQU ISTRRN+218 03517000 RRNHLENT EQU RRNHPRE+1 03518000 RRNHLENH EQU RRNHPRE 03519000 RRNNMNCP EQU ISTRRN+208 03520000 RRNDELAY EQU ISTRRN+206 03521000 RRNRSV04 EQU ISTRRN+200 03522000 RRNRSV88 EQU RRNNMDPD+7 03523000 RRNPUBI EQU RRNNMDPD+6 03524000 RRNDPLUB EQU RRNNMDPD 03525000 RRNEPADR EQU ISTRRN+190 03526000 RRNCPLUB EQU ISTRRN+184 03527000 RRNFLUX EQU ISTRRN+180 03528000 RRNRSV05 EQU RRNCMFD 03529000 RRNREMPO EQU RRNCMFD 03530000 RRNCDREC EQU RRNCMFD 03531000 RRNCDDSI EQU RRNCMFD 03532000 RRNCDBCK EQU RRNCMFD 03533000 RRNCDDTL EQU RRNCMFD 03534000 RRNCDSTD EQU RRNCMFD 03535000 RRNCDCSP EQU RRNCMFD 03536000 RRNCCCSL EQU RRNCMFC 03537000 RRNCCSIM EQU RRNCMFC 03538000 RRNCCRCM EQU RRNCMFC 03539000 RRNCCRIM EQU RRNCMFC 03540000 RRNCCCRC EQU RRNCMFC 03541000 RRNCCRST EQU RRNCMFC 03542000 RRNCCRDQ EQU RRNCMFC 03543000 RRNCCRCN EQU RRNCMFC 03544000 RRNCBALT EQU RRNCMFB 03545000 RRNCBMOD EQU RRNCMFB 03546000 RRNCBNPL EQU RRNCMFB 03547000 RRNCBRLS EQU RRNCMFB 03548000 RRNCBRDS EQU RRNCMFB 03549000 RRNCBDLR EQU RRNCMFB 03550000 RRNCBDLH EQU RRNCMFB 03551000 RRNCBDLO EQU RRNCMFB 03552000 RRNCADGO EQU RRNCMFA 03553000 RRNCADTD EQU RRNCMFA 03554000 RRNCACDT EQU RRNCMFA 03555000 RRNCAMBH EQU RRNCMFA 03556000 RRNCAATI EQU RRNCMFA 03557000 RRNCAATG EQU RRNCMFA 03558000 RRNCAATD EQU RRNCMFA 03559000 RRNCAALL EQU RRNCMFA 03560000 RRNRSV55 EQU RRNRDF+3 03561000 RRNPTASL EQU RRNRDFB+1 03562000 RRNRSV01 EQU RRNRDFB+1 03563000 RRNVYDON EQU RRNRDFB+1 03564000 RRNRBBUP EQU RRNRDFB+1 03565000 RRNRSV03 EQU RRNRDFB 03566000 RRNRBCT2 EQU RRNRDFB 03567000 RRNRBCT1 EQU RRNRDFB 03568000 RRNRBSEC EQU RRNRDFB 03569000 RRNRBCCT EQU RRNRDFB 03570000 RRNRBCCL EQU RRNRDFB 03571000 RRNRSV02 EQU RRNRDFB 03572000 RRNRBMDL EQU RRNRDFB 03573000 RRNRAPEP EQU RRNRDFA 03574000 RRNRANCP EQU RRNRDFA 03575000 RRNRBREM EQU RRNRDFA 03576000 RRNRAOLT EQU RRNRDFA 03577000 RRNRASYN EQU RRNRDFA 03578000 RRNRADMP EQU RRNRDFA 03579000 RRNRAIPL EQU RRNRDFA 03580000 RRNRASHT EQU RRNRDFA 03581000 RRNCTENT EQU ISTRRN+170 03582000 RRNCTECM EQU ISTRRN+168 03583000 RRNCTEIN EQU ISTRRN+166 03584000 RRNCTETR EQU ISTRRN+164 03585000 RRNCTECL EQU ISTRRN+162 03586000 RRNCTELI EQU ISTRRN+160 03587000 RRNCTEGP EQU ISTRRN+158 03588000 RRNCTBHS EQU ISTRRN+156 03589000 RRNBHSET EQU ISTRRN+152 03590000 RRNTRENT EQU ISTRRN+148 03591000 RRNRLDIP EQU ISTRRN+147 03592000 RRNRNCUA EQU ISTRRN+144 03593000 RRNGRPA EQU ISTRRN+140 03594000 RRNLUBA EQU RRNUCBAD+1 03595000 RRNCHQI EQU RRNUCBAD 03596000 RRNRSV11 EQU RRNFLAG 03597000 RRNDSTCT EQU RRNFLAG 03598000 RRNERPIP EQU RRNFLAG 03599000 RRNLCDIP EQU RRNFLAG 03600000 RRNLCDIE EQU RRNFLAG 03601000 RRNLCSIP EQU RRNFLAG 03602000 RRNRBISA EQU RRNFLAG 03603000 RRNRSV89 EQU RRNFLAG 03604000 RRNPRE EQU ISTRRN 03605000 RLCRVPT2 EQU ISTRLC+80 03606000 RLCRVPT1 EQU ISTRLC+79 03607000 RLCLCCUA EQU ISTRLC+76 03608000 RLCUCBAD EQU RLCADR+1 03609000 RLCRSVDE EQU RLCFLAG 03610000 RLCACNT EQU RLCFLAG 03611000 RLCRSV14 EQU RLCFLAG 03612000 RLCRBISA EQU RLCFLAG 03613000 RLCRSV22 EQU RLCFLAG 03614000 RLCPRE EQU ISTRLC 03615000 RAPRVPT2 EQU ISTRAP+116 03616000 RAPRVPT1 EQU ISTRAP+112 03617000 RAPBFACT EQU ISTRAP+111 03618000 RAPRSV17 EQU RAPFLGC 03619000 RAPRSV16 EQU RAPFLGC 03620000 RAPRSV15 EQU RAPFLGC 03621000 RAPRSV14 EQU RAPFLGC 03622000 RAPRSV13 EQU RAPFLGC 03623000 RAPRSV12 EQU RAPFLGC 03624000 RAPRSV11 EQU RAPFLGC 03625000 RAPRSV10 EQU RAPFLGC 03626000 RAPANVPC EQU RAPFLGB 03627000 RAPASPO EQU RAPFLGB 03628000 RAPAPPO EQU RAPFLGB 03629000 RAPAACQ EQU RAPFLGB 03630000 RAPAPRMT EQU RAPFLGB 03631000 RAPAPASS EQU RAPFLGB 03632000 RAPABLCK EQU RAPFLGB 03633000 RAPALLF EQU RAPFLGB 03634000 RAPRSV06 EQU RAPFLG 03635000 RAPRSV05 EQU RAPFLG 03636000 RAPRSV04 EQU RAPFLG 03637000 RAPRSV03 EQU RAPFLG 03638000 RAPATLGN EQU RAPFLG 03639000 RAPASLGI EQU RAPFLG 03640000 RAPAQUI EQU RAPFLG 03641000 RAPABLGN EQU RAPFLG 03642000 RAPACEQD EQU ISTRAP+106 03643000 RAPTRPRE EQU ISTRAP+104 03644000 RAPACEAP EQU ISTRAP+100 03645000 RAPICEAQ EQU ISTRAP+96 03646000 RAPICEAC EQU ISTRAP+92 03647000 RAPICELG EQU ISTRAP+88 03648000 RAPAPPWD EQU ISTRAP+80 03649000 RAPACDEB EQU ISTRAP+76 03650000 RAPACBA EQU ISTRAP+72 03651000 RAPPRE EQU ISTRAP 03652000 RDTVSRPL EQU ISTRDT+132 03653000 RDTCRSPW EQU ISTRDT+124 03654000 RDTCRSDS EQU ISTRDT+116 03655000 @NM00008 EQU ISTRDT+113 03656000 RRNSTCNT EQU RDTSTCNT 03657000 RRNVYRPH EQU RDTVYRPH 03658000 RDTTPAB EQU ISTRDT+104 03659000 RDTDPAB EQU ISTRDT+100 03660000 RDTEPAB EQU ISTRDT+96 03661000 RDTVPAB EQU ISTRDT+92 03662000 RDTRSV01 EQU RDTFLAGB 03663000 RDTBHSET EQU RDTFLAGB 03664000 RDTCTCFL EQU RDTFLAGB 03665000 RDTCTPGD EQU RDTFLAGB 03666000 RDTPRGDN EQU RDTFLAGB 03667000 RDTOUERP EQU RDTFLAGB 03668000 RDTLGCT EQU ISTRDT+90 03669000 RDTNODID EQU ISTRDT+89 03670000 RDTMAXID EQU ISTRDT+88 03671000 RDTCTSNT EQU ISTRDT+86 03672000 RDTFLAGS EQU ISTRDT+84 03673000 RDTBACK EQU ISTRDT+80 03674000 RDTFORW EQU ISTRDT+76 03675000 RDTLEN EQU RDTPLEN+1 03676000 RDTPRILS EQU RDTPRIOR 03677000 RDTPRISW EQU RDTPRIOR 03678000 RDTPRIRN EQU RDTPRIOR 03679000 RDTPRILC EQU RDTPRIOR 03680000 RDTPRIAP EQU RDTPRIOR 03681000 @NM00007 EQU RDTPRIOR 03682000 RDTPRE EQU ISTRDT 03683000 RCPRSV05 EQU ISTRCPRE+120 03684000 RCPRSV04 EQU ISTRCPRE+116 03685000 RCPRSV03 EQU ISTRCPRE+112 03686000 RCPINTA EQU RCPLGNIN+16 03687000 RCPLGNCT EQU RCPLGNIN+8 03688000 RCPLGNAP EQU RCPLGNIN 03689000 @NM00006 EQU RCPPMODE 03690000 RCPRRECD EQU RCPPMODE 03691000 RCPRBASC EQU RCPPMODE 03692000 RCPBFLIM EQU ISTRCPRE+90 03693000 RCPBHSI2 EQU ISTRCPRE+89 03694000 RCPBHSI1 EQU ISTRCPRE+88 03695000 RCPACETR EQU ISTRCPRE+84 03696000 RCPICEAQ EQU ISTRCPRE+80 03697000 RCPLNAPA EQU ISTRCPRE+76 03698000 RCPICELN EQU ISTRCPRE+72 03699000 RCPPRE EQU ISTRCPRE 03700000 RPRCONID EQU ISTRPRE+63 03701000 RPRCLVPD EQU RPRFLAGC 03702000 RPRINIMM EQU RPRFLAGD 03703000 RPRRSV05 EQU RPRFLAGD 03704000 RPRCONP EQU RPRFLAGD 03705000 RPRACTP EQU RPRFLAGD 03706000 RPRRSON EQU RPRFLAGD 03707000 RPRCONCT EQU RPRFLAGD 03708000 RPRLTASN EQU RPRFLAGD 03709000 RPRPTHCT EQU ISTRPRE+60 03710000 RPRSWDAF EQU ISTRPRE+58 03711000 RPRSTPCT EQU ISTRPRE+56 03712000 RPRRVPT1 EQU ISTRPRE+52 03713000 RPRDEVCH EQU ISTRPRE+44 03714000 RPRNCBA EQU ISTRPRE+40 03715000 RPRNSNEA EQU ISTRPRE+36 03716000 RPRLGONB EQU ISTRPRE+32 03717000 RPRLGONF EQU ISTRPRE+28 03718000 RPRHDTYP EQU ISTRPRE+27 03719000 RPRTIOCT EQU ISTRPRE+26 03720000 RPRPEPCT EQU ISTRPRE+24 03721000 RPRRSV03 EQU RPRCAUSE 03722000 RPRRSYNC EQU RPRCAUSE 03723000 RPRCRCPT EQU RPRCAUSE 03724000 RPRNOSRT EQU RPRCAUSE 03725000 RPRINTST EQU RPRFLAGB 03726000 RPRVYIMM EQU RPRFLAGB 03727000 RPRHLVPD EQU RPRFLAGB 03728000 RPRONLIN EQU RPRFLAGB 03729000 RPRVIODN EQU RPRFLAGB 03730000 RPRAOPN EQU RPRFLAGB 03731000 RPRENTVT EQU RPRFLAGB 03732000 RPRENTVH EQU RPRFLAGB 03733000 RPRLIVE EQU RPRFLAGA 03734000 RPRVRYPD EQU RPRFLAGA 03735000 RPRENTED EQU RPRFLAGA 03736000 RPRENTIO EQU RPRFLAGA 03737000 RPRENTBF EQU RPRFLAGA 03738000 RPRTIED EQU RPRFLAGA 03739000 RPRINV EQU RPRFLAGA 03740000 RPRACT EQU RPRFLAGA 03741000 RPRENTRY EQU ISTRPRE+20 03742000 RPRPELEN EQU ISTRPRE+18 03743000 RPRELEN EQU ISTRPRE+16 03744000 RPRRLOCK EQU ISTRPRE+12 03745000 RPRDAF EQU RPRCOMID+2 03746000 RPRSAF EQU RPRCOMID 03747000 RPRNAME EQU ISTRPRE 03748000 LDPTCEP EQU ISTLDPRM+24 03749000 LDPRSV02 EQU ISTLDPRM+22 03750000 LDPRSV01 EQU LDPFB2 03751000 LDPACTIF EQU LDPFB2 03752000 LDPATACH EQU LDPFB2 03753000 LDPFLAST EQU LDPFB2 03754000 LDPRSV03 EQU LDPFG 03755000 LDPPB EQU LDPFG 03756000 LDPFX EQU LDPFG 03757000 LDPDCBA EQU ISTLDPRM+16 03758000 DEVRSV03 EQU ISTDEVCH+5 03759000 DEVPHYSA EQU ISTDEVCH+4 03760000 DEVCSLPN EQU DEVCHAR3 03761000 DEVCSTCL EQU DEVCHAR3 03762000 DEVCCHEK EQU DEVCHAR3 03763000 DEVCATTN EQU DEVCHAR3 03764000 DEVCSWL EQU DEVFCCTL 03765000 DEVCRVB EQU DEVFCCTL 03766000 DEVCSSL EQU DEVFCCTL 03767000 DEVCBSC EQU DEVFCCTL 03768000 DEVMCODE EQU ISTDEVCH+2 03769000 DEVCHAR2 EQU DEVTCODE 03770000 DEVRSV01 EQU DEVCHAR 03771000 DEVCCTL EQU DEVCHAR 03772000 DEVNNSPT EQU DEVCHAR 03773000 DEVSPS EQU DEVCHAR 03774000 DEVSUBND EQU DEVCHAR 03775000 DEVCONVR EQU DEVCHAR 03776000 DEVOTPUT EQU DEVCHAR 03777000 DEVINPUT EQU DEVCHAR 03778000 LOKXCL EQU @NM00004 03779000 LOKPRY EQU @NM00004 03780000 @NM00005 EQU @NM00004 03781000 @NM00003 EQU LOKCHNG 03782000 LOKCT EQU ISTLOK 03783000 CVTLEVL EQU CVTRELNO+2 03784000 CVTNUMB EQU CVTRELNO 03785000 CVTMDL EQU CVTFIX+250 03786000 @NM00002 EQU CVTFIX+248 03787000 @NM00001 EQU CVTFIX 03788000 CVTRV482 EQU CVTXTNT2+128 03789000 CVTRV481 EQU CVTXTNT2+124 03790000 CVTRV480 EQU CVTXTNT2+120 03791000 CVTRV479 EQU CVTXTNT2+118 03792000 CVTRV478 EQU CVTXTNT2+117 03793000 CVTRV477 EQU CVTXTNT2+116 03794000 CVTRV476 EQU CVTXTNT2+115 03795000 CVTRV475 EQU CVTXTNT2+114 03796000 CVTRV474 EQU CVTRV466 03797000 CVTRV473 EQU CVTRV466 03798000 CVTRV472 EQU CVTRV466 03799000 CVTRV471 EQU CVTRV466 03800000 CVTRV470 EQU CVTRV466 03801000 CVTRV469 EQU CVTRV466 03802000 CVTRV468 EQU CVTRV466 03803000 CVTRV467 EQU CVTRV466 03804000 CVTRV465 EQU CVTRV457 03805000 CVTRV464 EQU CVTRV457 03806000 CVTRV463 EQU CVTRV457 03807000 CVTRV462 EQU CVTRV457 03808000 CVTRV461 EQU CVTRV457 03809000 CVTRV460 EQU CVTRV457 03810000 CVTRV459 EQU CVTRV457 03811000 CVTRV458 EQU CVTRV457 03812000 CVTRV456 EQU CVTXTNT2+108 03813000 CVTRV455 EQU CVTXTNT2+104 03814000 CVTRV454 EQU CVTXTNT2+100 03815000 CVTRV453 EQU CVTXTNT2+96 03816000 CVTRV452 EQU CVTXTNT2+94 03817000 CVTRV451 EQU CVTXTNT2+92 03818000 CVTRV450 EQU CVTXTNT2+90 03819000 CVTRV449 EQU CVTXTNT2+88 03820000 CVTRV448 EQU CVTXTNT2+87 03821000 CVTRV447 EQU CVTXTNT2+86 03822000 CVTRV446 EQU CVTRV438 03823000 CVTRV445 EQU CVTRV438 03824000 CVTRV444 EQU CVTRV438 03825000 CVTRV443 EQU CVTRV438 03826000 CVTRV442 EQU CVTRV438 03827000 CVTRV441 EQU CVTRV438 03828000 CVTRV440 EQU CVTRV438 03829000 CVTRV439 EQU CVTRV438 03830000 CVTRV437 EQU CVTRV429 03831000 CVTRV436 EQU CVTRV429 03832000 CVTRV435 EQU CVTRV429 03833000 CVTRV434 EQU CVTRV429 03834000 CVTRV433 EQU CVTRV429 03835000 CVTRV432 EQU CVTRV429 03836000 CVTRV431 EQU CVTRV429 03837000 CVTRV430 EQU CVTRV429 03838000 CVTRV428 EQU CVTXTNT2+80 03839000 CVTRV427 EQU CVTXTNT2+76 03840000 CVTRV426 EQU CVTXTNT2+72 03841000 CVTRV425 EQU CVTXTNT2+68 03842000 CVTATACT EQU CVTATCVT 03843000 CVTRV423 EQU CVTXTNT2+62 03844000 CVTRV422 EQU CVTXTNT2+60 03845000 CVTRV421 EQU CVTXTNT2+58 03846000 CVTRV420 EQU CVTXTNT2+56 03847000 CVTRV419 EQU CVTXTNT2+55 03848000 CVTRV418 EQU CVTXTNT2+54 03849000 CVTRV417 EQU CVTRV409 03850000 CVTRV416 EQU CVTRV409 03851000 CVTRV415 EQU CVTRV409 03852000 CVTRV414 EQU CVTRV409 03853000 CVTRV413 EQU CVTRV409 03854000 CVTRV412 EQU CVTRV409 03855000 CVTRV411 EQU CVTRV409 03856000 CVTRV410 EQU CVTRV409 03857000 CVTRV408 EQU CVTRV400 03858000 CVTRV407 EQU CVTRV400 03859000 CVTRV406 EQU CVTRV400 03860000 CVTRV405 EQU CVTRV400 03861000 CVTRV404 EQU CVTRV400 03862000 CVTRV403 EQU CVTRV400 03863000 CVTRV402 EQU CVTRV400 03864000 CVTRV401 EQU CVTRV400 03865000 CVTICB EQU CVTXTNT2+48 03866000 CVTSKTA EQU CVTXTNT2+44 03867000 CVTSHSB EQU CVTSHS 03868000 CVTRSV98 EQU CVTXTNT2+36 03869000 CVTRSV97 EQU CVTXTNT2+34 03870000 CVTRSV96 EQU CVTXTNT2+32 03871000 CVTOLTEP EQU CVTXTNT2+28 03872000 CVTQIDA EQU CVTQID+1 03873000 CVTRSV95 EQU CVTQID 03874000 CVTRSV94 EQU CVTXTNT2+20 03875000 CVTRSV93 EQU CVTXTNT2+16 03876000 CVTRSV92 EQU CVTXTNT2+12 03877000 CVTDEBVR EQU CVTXTNT2+8 03878000 CVTRSV91 EQU CVTXTNT2+6 03879000 CVTRSV9H EQU CVTFLGBT 03880000 CVTRSV9G EQU CVTFLGBT 03881000 CVTRSV9F EQU CVTFLGBT 03882000 CVTRSV9E EQU CVTFLGBT 03883000 CVTRSV9D EQU CVTFLGBT 03884000 CVTRSV9C EQU CVTFLGBT 03885000 CVTVME EQU CVTFLGBT 03886000 CVTNPE EQU CVTFLGBT 03887000 CVTNUCLS EQU CVTXTNT2+4 03888000 CVTDSSVA EQU CVTDSSV+1 03889000 CVTRSV89 EQU CVTDSSV 03890000 CVTRSV88 EQU CVTXTNT1+8 03891000 CVTRSV87 EQU CVTXTNT1+4 03892000 CVTFACHN EQU CVTXTNT1 03893000 CVTRV488 EQU CVTMAP+412 03894000 CVTRV487 EQU CVTMAP+408 03895000 CVTRV486 EQU CVTMAP+404 03896000 CVTRV485 EQU CVTMAP+400 03897000 CVTACTAP EQU CVTMAP+396 03898000 CVTAUTH EQU CVTMAP+392 03899000 CVTATMCA EQU CVTATMCT+1 03900000 CVTATMST EQU CVTATMCT 03901000 CVTRSV61 EQU CVTMAP+384 03902000 CVTVOLT1 EQU CVTVOLM1+1 03903000 CVTVOLI1 EQU CVTVOLF1 03904000 CVTSTOA EQU CVTMAP+376 03905000 CVTRSV58 EQU CVTMAP+374 03906000 CVTRSV57 EQU CVTMAP+372 03907000 CVTDDCE EQU CVTMAP+368 03908000 CVTPNWFR EQU CVTMAP+364 03909000 CVTSMF EQU CVTMAP+360 03910000 CVTSULK EQU CVTMAP+358 03911000 CVTSLKO EQU CVTSYSK 03912000 CVTSLKP EQU CVTSYSK 03913000 CVTSLKQ EQU CVTSYSK 03914000 CVTSLKR EQU CVTSYSK 03915000 CVTRSV56 EQU CVTSYSK 03916000 CVTRSV55 EQU CVTSYSK 03917000 CVTRSV54 EQU CVTSYSK 03918000 CVTRSV53 EQU CVTSYSK 03919000 CVTRSV52 EQU CVTA1F1 03920000 CVTRSV51 EQU CVTA1F1 03921000 CVTRSV50 EQU CVTA1F1 03922000 CVTRSV49 EQU CVTA1F1 03923000 CVTRSV48 EQU CVTA1F1 03924000 CVTRSV47 EQU CVTA1F1 03925000 CVTSRSW EQU CVTA1F1 03926000 CVTPFSW EQU CVTA1F1 03927000 CVTPCVT EQU CVTMAP+352 03928000 CVTRSV46 EQU CVTMAP+344 03929000 CVTRSV45 EQU CVTMAP+340 03930000 CVTRSV44 EQU CVTMAP+338 03931000 CVTRSV43 EQU CVTMAP+336 03932000 CVTHJESA EQU CVTHJES+1 03933000 CVTRSV42 EQU CVTHJES 03934000 CVTEXT2A EQU CVTEXT2+1 03935000 CVTRSV41 EQU CVTEXT2 03936000 CVTAPFA EQU CVTAPF+1 03937000 CVTRSV40 EQU CVTAPF 03938000 CVTRV518 EQU CVTINTLA 03939000 CVTRV517 EQU CVTERPV 03940000 CVTEORM EQU CVTMAP+312 03941000 CVTMCHPR EQU CVTMAP+308 03942000 CVTTZ EQU CVTMAP+304 03943000 CVTJEPS EQU CVTMAP+300 03944000 CVTJESCT EQU CVTMAP+296 03945000 CVTMODE EQU CVTMAP+292 03946000 CVTPTRV EQU CVTMAP+288 03947000 CVTREAL EQU CVTMAP+284 03948000 CVTRSV39 EQU CVTMAP+280 03949000 CVTRSV38 EQU CVTMAP+276 03950000 CVTDMSRA EQU CVTDMSR+1 03951000 CVTRV634 EQU CVTDMSRF 03952000 CVTRV633 EQU CVTDMSRF 03953000 CVTRV632 EQU CVTDMSRF 03954000 CVTRV631 EQU CVTDMSRF 03955000 CVTRV630 EQU CVTDMSRF 03956000 CVTRV629 EQU CVTDMSRF 03957000 CVTUDUMP EQU CVTDMSRF 03958000 CVTSDUMP EQU CVTDMSRF 03959000 CVTQMSGA EQU CVTQMSG+1 03960000 CVTRSV36 EQU CVTQMSG 03961000 CVTAMFF EQU CVTMAP+264 03962000 CVTPURGA EQU CVTPURG+1 03963000 CVTRSV35 EQU CVTPURG 03964000 CVTCBSP EQU CVTMAP+256 03965000 CVTATERA EQU CVTATER+1 03966000 CVTSYST EQU CVTATER 03967000 CVTVOLT2 EQU CVTTAT 03968000 CVTVOLI2 EQU CVTVOLF2 03969000 CVTAQAVB EQU CVTAQAVT+1 03970000 CVTRSV34 EQU CVTTCMFG 03971000 CVTRSV33 EQU CVTTCMFG 03972000 CVTRSV32 EQU CVTTCMFG 03973000 CVTRSV31 EQU CVTTCMFG 03974000 CVTRSV30 EQU CVTTCMFG 03975000 CVTRSV29 EQU CVTTCMFG 03976000 CVTRSV28 EQU CVTTCMFG 03977000 CVTTCRDY EQU CVTTCMFG 03978000 CVTGTFA EQU CVTGTF+1 03979000 CVTRSV27 EQU CVTGTFST 03980000 CVTRNIO EQU CVTGTFST 03981000 CVTUSR EQU CVTGTFST 03982000 CVTRV318 EQU CVTFORM 03983000 CVTRV317 EQU CVTTMODE 03984000 CVTRV316 EQU CVTSTATE 03985000 CVTRV315 EQU CVTGTFS 03986000 CVTGTFAV EQU CVTGTFS 03987000 CVT0SCR1 EQU CVTMAP+232 03988000 CVTRV515 EQU CVTMAP+228 03989000 CVTRMS EQU CVTMAP+224 03990000 CVTPATCH EQU CVTMAP+220 03991000 CVTTSCE EQU CVTMAP+216 03992000 CVTLNKSC EQU CVTMAP+214 03993000 CVTQABST EQU CVTMAP+212 03994000 CVTMDLDS EQU CVTMAP+208 03995000 CVTUSER EQU CVTMAP+204 03996000 CVTABEND EQU CVTMAP+200 03997000 CVTSMCA EQU CVTMAP+196 03998000 CVTRSV18 EQU CVTMAP+192 03999000 CVTQLPAQ EQU CVTMAP+188 04000000 CVTQCDSR EQU CVTMAP+184 04001000 CVTRSV17 EQU CVTOPTB 04002000 CVTRSV16 EQU CVTOPTB 04003000 CVTFP EQU CVTOPTB 04004000 CVTAPTHR EQU CVTOPTB 04005000 CVTNLOG EQU CVTOPTB 04006000 CVTTOD EQU CVTOPTB 04007000 CVTCTIMS EQU CVTOPTB 04008000 CVTPROT EQU CVTOPTB 04009000 CVTXPFP EQU CVTOPTA 04010000 CVTASCII EQU CVTOPTA 04011000 CVTRSV13 EQU CVTOPTA 04012000 CVTRSV12 EQU CVTOPTA 04013000 CVTNIP EQU CVTOPTA 04014000 CVTDDR EQU CVTOPTA 04015000 CVTAPR EQU CVTOPTA 04016000 CVTCCH EQU CVTOPTA 04017000 CVTSNCTR EQU CVTMAP+180 04018000 CVTQMWR EQU CVTMAP+176 04019000 CVTQOCR EQU CVTMAP+172 04020000 CVT1EF00 EQU CVTMAP+168 04021000 CVTMZ00 EQU CVTMAP+164 04022000 CVTHEAD EQU CVTMAP+160 04023000 CVTRSV11 EQU CVTMAP+156 04024000 CVT0PT01 EQU CVTMAP+152 04025000 CVTMSER EQU CVTMAP+148 04026000 CVTRV516 EQU CVTIERLC 04027000 CVTILCH EQU CVTMAP+140 04028000 CVT0DS EQU CVTMAP+136 04029000 CVTFBOSV EQU CVTMAP+132 04030000 CVTNUCB EQU CVTMAP+128 04031000 CVTIXAVL EQU CVTMAP+124 04032000 CVTIOQET EQU CVTMAP+120 04033000 CVTDCBA EQU CVTMAP+117 04034000 CVTMVS2 EQU CVTDCB 04035000 CVT6DAT EQU CVTDCB 04036000 CVT4MPS EQU CVTDCB 04037000 CVTRSV09 EQU CVTDCB 04038000 CVT4MS1 EQU CVTDCB 04039000 CVT2SPS EQU CVTDCB 04040000 CVT1SSS EQU CVTDCB 04041000 CVTRSV08 EQU CVTDCB 04042000 CVTSTB EQU CVTMAP+112 04043000 CVTQTD00 EQU CVTMAP+108 04044000 CVTQTE00 EQU CVTMAP+104 04045000 CVTCUCB EQU CVTMAP+100 04046000 CVTSJQ EQU CVTMAP+96 04047000 CVTPBLDL EQU CVTMAP+92 04048000 CVTTPC EQU CVTMAP+88 04049000 CVTSVDCB EQU CVTMAP+84 04050000 CVTBRET EQU CVTMAP+82 04051000 CVTEXIT EQU CVTMAP+80 04052000 CVT0FN00 EQU CVTMAP+76 04053000 CVTDARA EQU CVTDAR+1 04054000 CVTRSV07 EQU CVTFLGS1 04055000 CVTRSV06 EQU CVTFLGS1 04056000 CVTRSV05 EQU CVTFLGS1 04057000 CVTRSV04 EQU CVTFLGS1 04058000 CVTRSV03 EQU CVTFLGS1 04059000 CVTRSV02 EQU CVTFLGS1 04060000 CVTRSV01 EQU CVTFLGS1 04061000 CVTDMPLK EQU CVTFLGS1 04062000 CVTXITP EQU CVTMAP+68 04063000 CVTZDTAB EQU CVTMAP+64 04064000 CVTMSLT EQU CVTMAP+60 04065000 CVTDATE EQU CVTMAP+56 04066000 CVTBTERM EQU CVTMAP+52 04067000 CVTSYSAD EQU CVTMAP+48 04068000 CVTXTLER EQU CVTMAP+44 04069000 CVTILK2 EQU CVTMAP+40 04070000 CVTILK1 EQU CVTMAP+36 04071000 CVTPRLTV EQU CVTMAP+32 04072000 CVTPCNVT EQU CVTMAP+28 04073000 CVT0VL00 EQU CVTMAP+24 04074000 CVTXAPG EQU CVTMAP+20 04075000 CVTBUF EQU CVTMAP+16 04076000 CVTJOB EQU CVTMAP+12 04077000 CVTLINK EQU CVTMAP+8 04078000 CVT0EF00 EQU CVTMAP+4 04079000 CVTTCBP EQU CVTMAP 04080000 CVT EQU CVTMAP 04081000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04082000 @RC00308 EQU @RC00297 04083000 @RT00372 EQU @EL00001 04084000 @RC00512 EQU @RC00510 04085000 @RC00676 EQU @RC00674 04086000 @RC00795 EQU @RC00791 04087000 @RC00311 EQU @RC00308 04088000 @RC00514 EQU @RC00512 04089000 @RC00797 EQU @RC00795 04090000 @RC00803 EQU @RC00795 04091000 @RC00312 EQU @RC00311 04092000 @ENDDATA EQU * 04093000 END ISTINCRD,(C'PLS1341',0603,77305) 04094000