DSPL TITLE 'BLSR3270--IPCS DSPL3270 SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPKB */ 00004000 */* THIS MODULE WAS CHANGED FOR @ZA31999 @ZA31999*/ 00005000 */* THIS MODULE WAS CHANGED FOR @ZA32643 @ZA32643*/ 00006000 */* THIS MODULE WAS CHANGED FOR @ZA32853 @ZA32853*/ 00007000 */*------------------------------------------------------------------*/ 00008000 BLSR3270 CSECT , 01S0002 00009000 @MAINENT DS 0H 01S0002 00010000 USING *,@15 01S0002 00011000 B @PROLOG 01S0002 00012000 DC AL1(16) 01S0002 00013000 DC C'BLSR3270 78.158' 01S0002 00014000 DROP @15 00015000 @PROLOG STM @14,@12,12(@13) 01S0002 00016000 BALR @12,0 01S0002 00017000 @PSTART DS 0H 01S0002 00018000 USING @PSTART,@12 01S0002 00019000 L @00,@SIZDATD 01S0002 00020000 BLSUALLR R,LV=(0) 00021000 LR @11,@01 01S0002 00022000 USING @DATD,@11 01S0002 00023000 ST @13,@SA00001+4 01S0002 00024000 LM @00,@01,20(@13) 01S0002 00025000 ST @11,8(,@13) 01S0002 00026000 LR @13,@11 01S0002 00027000 * RETC=ZZZFLAGI; /* ANTICIPATE SUCCESS */ 00028000 SLR RETC,RETC 01S0165 00029000 * SPD3270=0; /* NO SUSPEND REQUEST @ZA31999*/ 00030000 MVI SPD3270,X'00' 01S0166 00031000 * ZZ2F3270='0'B; /* INFORM MONITOR @ZA31999*/ 00032000 * 01S0167 00033000 * 01S0167 00034000 NI ZZ2F3270(R9),B'01111111' 01S0167 00035000 * DO;/*BLSRPARS MF(EXECUTE,PX)*/ 01S0168 00036000 * 01S0168 00037000 * DO;/*BLSRPARD CSECT()DSECT(PD)EQUATE(ESAU)EXIT(EXITRLSA,)MF(EXECUT 00038000 *,PX)*/ 01S0169 00039000 * 01S0169 00040000 * DO;/*BLSUPARS CSECT(PC)DSECT(PD)EXIT(EXITRLSA,)MF(EXECUTE,PX)*/ 00041000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/*PARSE OPERANDS*/ 01S0171 00042000 ST R9,@AL00001 01S0171 00043000 L @14,PCPTR 01S0171 00044000 ST @14,@AL00001+4 01S0171 00045000 LA @14,PDAPTR 01S0171 00046000 ST @14,@AL00001+8 01S0171 00047000 L @10,ZZ2BVTP(,R9) 01S0171 00048000 L @15,BVTPARIP(,@10) 01S0171 00049000 LA @01,@AL00001 01S0171 00050000 BALR @14,@15 01S0171 00051000 * RESPECIFY 01S0172 00052000 * (GPR15F) RESTRICTED; 01S0172 00053000 * IF GPR15F^=ZZZFLAGI THEN 01S0173 00054000 LTR GPR15F,GPR15F 01S0173 00055000 BZ @RF00173 01S0173 00056000 * /*UNABLE TO PARSE*/ 01S0174 00057000 * DO;/*UNABLE TO PARSE*/ 01S0174 00058000 * RETC=GPR15F;/*RETURN CODE*/ 01S0175 00059000 LR RETC,GPR15F 01S0175 00060000 * GO TO EXITNORL;/*EXIT WITHOUT PDL*/ 01S0176 00061000 B EXITNORL 01S0176 00062000 * END; 01S0177 00063000 * RESPECIFY 01S0178 00064000 * (GPR15F) UNRESTRICTED; 01S0178 00065000 @RF00173 DS 0H 01S0179 00066000 * RESPECIFY 01S0179 00067000 * (PDRPTR) RESTRICTED; 01S0179 00068000 * PDRPTR=PDAPTR;/*->PDL*/ 01S0180 00069000 L PDRPTR,PDAPTR 01S0180 00070000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 01S0181 00071000 USING PD,PDRPTR 00072000 * IF PXTEST=PXTEST1 THEN 01S0182 00073000 CLC PXTEST(2),@CH00043 01S0182 00074000 BNE @RF00182 01S0182 00075000 * ZZ2AFX=ZZZ1;/*TEST*/ 01S0183 00076000 OI ZZ2AFX(R9),B'10000000' 01S0183 00077000 * ELSE 01S0184 00078000 * IF PXTEST=PXTEST0 THEN 01S0184 00079000 B @RC00182 01S0184 00080000 @RF00182 CLC PXTEST(2),@CH00068 01S0184 00081000 BNE @RF00184 01S0184 00082000 * ZZ2AFX=ZZZ0;/*NOTEST*/ 01S0185 00083000 NI ZZ2AFX(R9),B'01111111' 01S0185 00084000 * END;/*BLSUPARS CSECT(PC)DSECT(PD)EXIT(EXITRLSA,)MF(EXECUTE,PX)*/ 00085000 @RF00184 DS 0H 01S0186 00086000 @RC00182 DS 0H 01S0187 00087000 * END;/*BLSRPARD CSECT()DSECT(PD)EQUATE(ESAU)EXIT(EXITRLSA,)MF(EXECU 00088000 *E,PX)*/ 01S0187 00089000 * END;/*BLSRPARS MF(EXECUTE,PX)*/ 01S0188 00090000 * VPASP=ADDR(BLSRVPAS); /* ->BLSRVPAS */ 00091000 L @14,@CV01219 01S0189 00092000 ST @14,VPASP 01S0189 00093000 * IOPLECB=ADDR(ZZ1EVE); /* ->ECB */ 00094000 L @14,ZZ2ZZ1P(,R9) 01S0190 00095000 LA @08,ZZ1EVE(,@14) 01S0190 00096000 ST @08,IOPLECB 01S0190 00097000 * IOPLUPT=ADDR(UPT); /* ->UPT */ 00098000 L @08,CPPLUPT(,R9) 01S0191 00099000 ST @08,IOPLUPT 01S0191 00100000 * IOPLECT=ADDR(ECT); /* ->ECT */ 00101000 L @08,CPPLECT(,R9) 01S0192 00102000 ST @08,IOPLECT 01S0192 00103000 * IF ZZ1TPAGE^=24 THEN /* NUMBER OF SCREEN LINES */ 00104000 * 01S0193 00105000 CLC ZZ1TPAGE(4,@14),@CF00217 01S0193 00106000 BE @RF00193 01S0193 00107000 * /***************************************************************/ 00108000 * /* */ 00109000 * /* BLSR3270 REQUIRES A 3277 TSO TERMINAL--DIAGNOSE AND QUIT */ 00110000 * /* */ 00111000 * /***************************************************************/ 00112000 * 01S0194 00113000 * DO; /* NONGRAPHIC TSO TERMINAL */ 00114000 * CALL BLSUTRMV(ZZ2,MSG2); /* TRANSMIT MSG2 */ 00115000 ST R9,@AL00001 01S0195 00116000 LA @14,MSG2 01S0195 00117000 ST @14,@AL00001+4 01S0195 00118000 L @15,ZZ2TRMVP(,R9) 01S0195 00119000 LA @01,@AL00001 01S0195 00120000 BALR @14,@15 01S0195 00121000 * RETC=MAX(RETC,RF,ZZZFLAGT); /* ERROR RETURN CODE */ 00122000 LR @14,RF 01S0196 00123000 CR @14,RETC 01S0196 00124000 BNL *+6 00125000 LR @14,RETC 01S0196 00126000 LA @08,16 01S0196 00127000 CR @14,@08 01S0196 00128000 BNL *+6 00129000 LR @14,@08 01S0196 00130000 LR RETC,@14 01S0196 00131000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00132000 B EXITRLSA 01S0197 00133000 * END; /* NONGRAPHIC TSO TERMINAL */ 00134000 * IF PDPAUSE=PDPAUSE1 THEN /* PAUSE OPERAND ENTERED */ 00135000 * 01S0199 00136000 @RF00193 CLC PDPAUSE(2),@CH00043 01S0199 00137000 BNE @RF00199 01S0199 00138000 * /***************************************************************/ 00139000 * /* */ 00140000 * /* PAUSE BEFORE SCREEN RE-WRITE */ 00141000 * /* */ 00142000 * /***************************************************************/ 00143000 * 01S0200 00144000 * DO; /* PAUSE BEFORE SCREEN RE-WRITE */ 00145000 * RESPECIFY 01S0201 00146000 * (R0, /* TPUT INTERFACE REGISTER */ 00147000 * R1) RESTRICTED; /* TPUT INTERFACE REGISTER */ 00148000 * IF UPTMID='1'B THEN /* MESSAGES ID'S WANTED @ZA31999*/ 00149000 L @14,CPPLUPT(,R9) 01S0202 00150000 TM UPTMID(@14),B'00100000' 01S0202 00151000 BNO @RF00202 01S0202 00152000 * LM(R0,R1,TPUTPMID); /* PAUSE WITH MESSAGE ID @ZA31999*/ 00153000 LM R0,R1,TPUTPMID 01S0203 00154000 * ELSE /* NO MESSAGE ID'S @ZA31999*/ 00155000 * LM(R0,R1,TPUTP); /* PAUSE WITHOUT MSGID'S @ZA31999*/ 00156000 B @RC00202 01S0204 00157000 @RF00202 LM R0,R1,TPUTP 01S0204 00158000 * RF=8; /* ATTENTION RETURN CODE */ 00159000 @RC00202 LA RF,8 01S0205 00160000 * DO WHILE(RF=8); /* TPUT/TGET */ 00161000 B @DE00206 01S0206 00162000 @DL00206 DS 0H 01S0207 00163000 * IF ZZ1EVEP='1'B THEN /* ATTENTION INTERRUPT @ZA31999*/ 00164000 L @14,ZZ2ZZ1P(,R9) 01S0207 00165000 TM ZZ1EVEP(@14),B'01000000' 01S0207 00166000 BNO @RF00207 01S0207 00167000 * DO; /* EXIT DSPL3270 @ZA31999*/ 00168000 * RETC=ZZZFLAGS; /* SERIOUS CONDITION @ZA31999*/ 00169000 LA RETC,12 01S0209 00170000 * GO TO EXITRLSA; /* EXIT WITH PDL @ZA31999*/ 00171000 B EXITRLSA 01S0210 00172000 * END; /* EXIT DSPL3270 @ZA31999*/ 00173000 * CALL E130; /* DISPLAY PROMPTING MESSAGE */ 00174000 @RF00207 BAL @14,E130 01S0212 00175000 * IF RF^=8 THEN 01S0213 00176000 C RF,@CF00051 01S0213 00177000 BE @RF00213 01S0213 00178000 * CALL E120; /* GET BUT IGNORE RESPONSE */ 00179000 BAL @14,E120 01S0214 00180000 * END; /* TPUT/TGET */ 00181000 @RF00213 DS 0H 01S0215 00182000 @DE00206 C RF,@CF00051 01S0215 00183000 BE @DL00206 01S0215 00184000 * RESPECIFY 01S0216 00185000 * (R0, /* TPUT INTERFACE REGISTER */ 00186000 * R1) UNRESTRICTED; /* TPUT INTERFACE REGISTER */ 00187000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00188000 CR RETC,RF 01S0217 00189000 BNL *+6 00190000 LR RETC,RF 01S0217 00191000 * END; /* PAUSE BEFORE SCREEN RE-WRITE */ 00192000 * 01S0218 00193000 * /*****************************************************************/ 00194000 * /* */ 00195000 * /* LOCATE THE SYSTEM CVT */ 00196000 * /* */ 00197000 * /*****************************************************************/ 00198000 * 01S0219 00199000 * ESAUSYM='CVT'; /* SYMBOL */ 00200000 @RF00199 MVI ESAUSYM+3,C' ' 01S0219 00201000 MVC ESAUSYM+4(27),ESAUSYM+3 01S0219 00202000 MVC ESAUSYM(3),@CC01017 01S0219 00203000 * ESAUDT=DTCVT; /* DATA TYPE */ 00204000 MVC ESAUDT(34),DTCVT 01S0220 00205000 * CALL BLSRESGU(ZZ2,ESAU); /* LOCATE THE SYSTEM CVT */ 00206000 ST R9,@AL00001 01S0221 00207000 LA @14,ESAU 01S0221 00208000 ST @14,@AL00001+4 01S0221 00209000 L @08,ZZ2RVTP(,R9) 01S0221 00210000 L @15,RVTESGUP(,@08) 01S0221 00211000 LA @01,@AL00001 01S0221 00212000 BALR @14,@15 01S0221 00213000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00214000 CR RETC,RF 01S0222 00215000 BNL *+6 00216000 LR RETC,RF 01S0222 00217000 * IF RF>ZZZFLAGE THEN /* SERIOUS ERROR */ 00218000 C RF,@CF00051 01S0223 00219000 BH @RT00223 01S0223 00220000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00221000 * ZZ2AMDC=ESAULAD; /* ->CVT */ 00222000 * 01S0225 00223000 L @14,ESAULAD 01S0225 00224000 ST @14,ZZ2AMDC(,R9) 01S0225 00225000 * /*****************************************************************/ 00226000 * /* */ 00227000 * /* GET CURRENT SYMBOL */ 00228000 * /* */ 00229000 * /*****************************************************************/ 00230000 * 01S0226 00231000 * ESAUSYM='X'; /* SYMBOL */ 00232000 MVI ESAUSYM+1,C' ' 01S0226 00233000 MVC ESAUSYM+2(29),ESAUSYM+1 01S0226 00234000 MVI ESAUSYM,C'X' 01S0226 00235000 * CALL BLSRESGE(ZZ2,ESAU); /* RETRIEVE ZZZSYMCU RECORD */ 00236000 ST R9,@AL00001 01S0227 00237000 LA @14,ESAU 01S0227 00238000 ST @14,@AL00001+4 01S0227 00239000 L @08,ZZ2RVTP(,R9) 01S0227 00240000 L @15,RVTESGEP(,@08) 01S0227 00241000 LA @01,@AL00001 01S0227 00242000 BALR @14,@15 01S0227 00243000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00244000 CR RETC,RF 01S0228 00245000 BNL *+6 00246000 LR RETC,RF 01S0228 00247000 * IF RF>ZZZFLAGE THEN /* SERIOUS ERROR */ 00248000 C RF,@CF00051 01S0229 00249000 BH @RT00229 01S0229 00250000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00251000 * IF RF=0&ESAUAST=ZZZASTCV THEN /* SUCCESSFUL AND VIRTUAL */ 00252000 LTR RF,RF 01S0231 00253000 BNZ @RF00231 01S0231 00254000 CLC ESAUAST(2),@CC00075 01S0231 00255000 BNE @RF00231 01S0231 00256000 * ESAULAD=ESAULAD+ESAUDOF; /* OFFSET NOT SUPPORTED */ 00257000 L @14,ESAULAD 01S0232 00258000 AL @14,ESAUDOF 01S0232 00259000 ST @14,ESAULAD 01S0232 00260000 * ELSE 01S0233 00261000 * 01S0233 00262000 * /***************************************************************/ 00263000 * /* */ 00264000 * /* DEFAULT CURRENT SYMBOL REQUIRED */ 00265000 * /* */ 00266000 * /***************************************************************/ 00267000 * 01S0233 00268000 * DO; /* PROVIDE DEFAULT TO DSPL3270 */ 00269000 B @RC00231 01S0233 00270000 @RF00231 DS 0H 01S0234 00271000 * ESAUDTY=ZZZDTYB; /* DATA FORMAT HEX */ 00272000 MVI ESAUDTY,C'B' 01S0234 00273000 * ESAULAD=0; /* ADDRESS(0.) */ 00274000 SLR @14,@14 01S0235 00275000 ST @14,ESAULAD 01S0235 00276000 * ESAUAS=ZZ6DQA; /* ADDRESS SPACE */ 00277000 L @14,ZZ2AZZ6P(,R9) 01S0236 00278000 MVC ESAUAS(16),ZZ6DQA(@14) 01S0236 00279000 * RETC=MAX(RETC,ZZZFLAGW); /* RETURN CODE */ 00280000 LA @14,4 01S0237 00281000 CR RETC,@14 01S0237 00282000 BNL *+6 00283000 LR RETC,@14 01S0237 00284000 * END; /* PROVIDE DEFAULT TO DSPL3270 */ 00285000 * SESAUDTY=ESAUDTY; /* SAVE INCOMING DATA TYPE */ 00286000 @RC00231 MVC SESAUDTY(1),ESAUDTY 01S0239 00287000 * ESAUD=DESCR; /* STORAGE ATTRIBUTES */ 00288000 MVC ESAUD(60),DESCR 01S0240 00289000 * ESAUDLE=MIN(ZZ2AQDLE,ZZZP24P1-ESAULAD);/* MAKE SURE ADDR+LEN DOES 00290000 * NOT EXCEED MAX VALID ADR */ 00291000 L @14,@CF00121 01S0241 00292000 SL @14,ESAULAD 01S0241 00293000 L @08,ZZ2AQDLE(,R9) 01S0241 00294000 CLR @08,@14 01S0241 00295000 BNH *+6 00296000 LR @08,@14 01S0241 00297000 ST @08,ESAUDLE 01S0241 00298000 * ESAUDTY=SESAUDTY; /* RESET TO ORIGINAL VALUE */ 00299000 MVC ESAUDTY(1),SESAUDTY 01S0242 00300000 * CALL BLSRESAR(ZZ2,ESAU); /* UPDATE ZZZSYMCU RECORD */ 00301000 ST R9,@AL00001 01S0243 00302000 LA @14,ESAU 01S0243 00303000 ST @14,@AL00001+4 01S0243 00304000 L @08,ZZ2RVTP(,R9) 01S0243 00305000 L @15,RVTESARP(,@08) 01S0243 00306000 LA @01,@AL00001 01S0243 00307000 BALR @14,@15 01S0243 00308000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00309000 CR RETC,RF 01S0244 00310000 BNL *+6 00311000 LR RETC,RF 01S0244 00312000 * IF RF>ZZZFLAGE THEN /* SERIOUS ERROR */ 00313000 C RF,@CF00051 01S0245 00314000 BH @RT00245 01S0245 00315000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00316000 * 01S0246 00317000 * /*****************************************************************/ 00318000 * /* */ 00319000 * /* ESTABLISH SCREEN DEFAULT VALUES */ 00320000 * /* */ 00321000 * /*****************************************************************/ 00322000 * 01S0247 00323000 * WKRESET='1'B; /* INITIALIZE WORK AREA */ 00324000 MVI WKRESET,X'01' 01S0247 00325000 * PHSY=PHCO; /* INITIALIZE PH RECORD @ZA32853*/ 00326000 L @14,ZZ2PHSYP(,R9) 01S0248 00327000 MVC PHSY(48),PHCO(@14) 01S0248 00328000 * PHSYPGM='BLSR3270'; /* PROGRAM NAME */ 00329000 MVC PHSYPGM(8),@CC01230 01S0249 00330000 * PHSYMRX='0'B; /* MULTIPLE RECORD INDEX */ 00331000 SLR @14,@14 01S0250 00332000 ST @14,PHSYMRX 01S0250 00333000 * PHSYPL=ADDR(WKALENG); /* WKALENG=EQUATED LENGTH */ 00334000 LA @14,WKALENG 01S0251 00335000 STH @14,PHSYPL 01S0251 00336000 * IF PDRESET^=PDRESET1 THEN /* NO RESET */ 00337000 * 01S0252 00338000 CLC PDRESET(2),@CH00043 01S0252 00339000 BE @RF00252 01S0252 00340000 * /***************************************************************/ 00341000 * /* */ 00342000 * /* USE PREVIOUS VALUES, IF ANY */ 00343000 * /* */ 00344000 * /***************************************************************/ 00345000 * 01S0253 00346000 * DO; 01S0253 00347000 * 01S0253 00348000 * DO;/*BLSULINK(ZZ2,PHSY) EP('BLSRPHGE')*/ 01S0254 00349000 * ZZ2PGM='BLSRPHGE';/*ENTRY POINT NAME*/ 01S0255 00350000 MVC ZZ2PGM(8,R9),@CC01231 01S0255 00351000 * CALL BLSUPGMC(ZZ2,PHSY);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00352000 ST R9,@AL00001 01S0256 00353000 LA @14,PHSY 01S0256 00354000 ST @14,@AL00001+4 01S0256 00355000 L @08,ZZ2BVTP(,R9) 01S0256 00356000 L @15,BVTPGMCP(,@08) 01S0256 00357000 LA @01,@AL00001 01S0256 00358000 BALR @14,@15 01S0256 00359000 * END;/*BLSULINK(ZZ2,PHSY) EP('BLSRPHGE')*//* GET HISTORY RECORD 00360000 * */ 01S0257 00361000 * IF RF>ZZZFLAGW THEN /* ERROR CONDITION */ 00362000 * 01S0258 00363000 C RF,@CF00040 01S0258 00364000 BNH @RF00258 01S0258 00365000 * /***********************************************************/ 00366000 * /* */ 00367000 * /* HISTORY RECORD RETRIEVAL FAILED BADLY */ 00368000 * /* */ 00369000 * /***********************************************************/ 00370000 * 01S0259 00371000 * DO; /* TERMINATE PROCESSING */ 00372000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00373000 LA RETC,12 01S0260 00374000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00375000 B EXITRLSA 01S0261 00376000 * END; /* TERMINATE PROCESSING */ 00377000 * ELSE /* NO UNEXPECTED ERROR */ 00378000 * IF RF8 THEN /* UNEXPECTED RET CODE @ZA32643*/ 00413000 C RF,@CF00051 01S0275 00414000 BNH @RF00275 01S0275 00415000 * DO; /* EXIT DSPL3270 @ZA31999*/ 00416000 * RETC=ZZZFLAGT; /* ENVIRONMENTAL ERROR @ZA31999*/ 00417000 LA RETC,16 01S0277 00418000 * GO TO EXITRLSA; /* EXIT @ZA31999*/ 00419000 B EXITRLSA 01S0278 00420000 * END; /* EXIT DSPL3270 @ZA31999*/ 00421000 * IF ZZ1FACCM='0'B THEN /* ACCESS MODE HAS NOT BEEN SET */ 00422000 @RF00275 L @14,ZZ2ZZ1P(,R9) 01S0280 00423000 TM ZZ1FACCM(@14),B'10000000' 01S0280 00424000 BNZ @RF00280 01S0280 00425000 * DO; /* SET INDICATORS @ZA31999*/ 00426000 * IF RF^=0 THEN /* DON'T HAVE VTAM @ZA32643*/ 00427000 LTR RF,RF 01S0282 00428000 BZ @RF00282 01S0282 00429000 * ZZ1FTCAM='1'B; /* SET INDICATOR - HAVE TCAM 00430000 * @ZA31999*/ 00431000 OI ZZ1FTCAM(@14),B'01000000' 01S0283 00432000 * ZZ1FACCM='1'B; /* INDICATE MODE SET @ZA31999*/ 00433000 @RF00282 L @14,ZZ2ZZ1P(,R9) 01S0284 00434000 OI ZZ1FACCM(@14),B'10000000' 01S0284 00435000 * END; /* SET INDICATORS @ZA31999*/ 00436000 * END; /* PROCESS FOR VTAM POSSIBLE 00437000 * @ZA31999*/ 00438000 @RF00280 DS 0H 01S0287 00439000 * ZZ1P=ADDR(ZZ1); /* ->ZZ1 */ 00440000 @RF00272 L @14,ZZ2ZZ1P(,R9) 01S0287 00441000 ST @14,ZZ1P 01S0287 00442000 * ZZ2P=ADDR(ZZ2); /* ->ZZ2 */ 00443000 ST R9,ZZ2P 01S0288 00444000 * CALL DSPL3270; /* ASMXF SECTION */ 00445000 L @15,D3270P 01S0289 00446000 BALR @14,@15 01S0289 00447000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00448000 CR RETC,RF 01S0290 00449000 BNL *+6 00450000 LR RETC,RF 01S0290 00451000 * IF ZZ1EVEP='0'B THEN /* NO ATTENTION INTERRUPTION */ 00452000 * 01S0291 00453000 L @14,ZZ2ZZ1P(,R9) 01S0291 00454000 TM ZZ1EVEP(@14),B'01000000' 01S0291 00455000 BNZ @RF00291 01S0291 00456000 * /***************************************************************/ 00457000 * /* */ 00458000 * /* PERFORM EXIT FULL-SCREEN MODE PROCESSING */ 00459000 * /* */ 00460000 * /***************************************************************/ 00461000 * 01S0292 00462000 * DO; /* EXIT FULL-SCREEN MODE */ 00463000 * IF ZZ1FTCAM='0'B THEN /* HAVE VTAM */ 00464000 * 01S0293 00465000 TM ZZ1FTCAM(@14),B'01000000' 01S0293 00466000 BNZ @RF00293 01S0293 00467000 * /***********************************************************/ 00468000 * /* */ 00469000 * /* RESET VTAM MODIFIED DATA TAGS @ZA31999*/ 00470000 * /* */ 00471000 * /***********************************************************/ 00472000 * 01S0294 00473000 * DO; /* RESET MDT'S @ZA31999*/ 00474000 * RESPECIFY 01S0295 00475000 * (R0, 01S0295 00476000 * R1) RESTRICTED; /* TPUT INTERFACE REGISTERS . */ 00477000 * LM(R0,R1,TPUTRMDT); /* TPUT INTERFACE REGISTERS */ 00478000 LM R0,R1,TPUTRMDT 01S0296 00479000 * CALL E130; /* RESET MODIFIED DATA TAGS */ 00480000 BAL @14,E130 01S0297 00481000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00482000 CR RETC,RF 01S0298 00483000 BNL *+6 00484000 LR RETC,RF 01S0298 00485000 * RESPECIFY 01S0299 00486000 * (R0, 01S0299 00487000 * R1) UNRESTRICTED; /* TPUT INTERFACE REGISTERS */ 00488000 * END; /* RESET MDT'S */ 00489000 * 01S0300 00490000 * /*************************************************************/ 00491000 * /* */ 00492000 * /* CLEAR BOTTOM OF SCREEN, EXIT FULL-SCREEN MODE */ 00493000 * /* */ 00494000 * /*************************************************************/ 00495000 * 01S0301 00496000 * RESPECIFY 01S0301 00497000 * (R0, 01S0301 00498000 * R1) RESTRICTED; /* TPUT INTERFACE REGISTERS */ 00499000 @RF00293 DS 0H 01S0302 00500000 * LM(R0,R1,TPUTEXIT); /* TPUT INTERFACE REGISTERS */ 00501000 LM R0,R1,TPUTEXIT 01S0302 00502000 * CALL E130; /* TRANSMIT TEXIT */ 00503000 BAL @14,E130 01S0303 00504000 * RESPECIFY 01S0304 00505000 * (R0, /* TPUT INTERFACE REGISTER */ 00506000 * R1) UNRESTRICTED; /* TPUT INTERFACE REGISTER */ 00507000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00508000 CR RETC,RF 01S0305 00509000 BNL *+6 00510000 LR RETC,RF 01S0305 00511000 * IF ZZ1FTCAM='0'B THEN /* HAVE VTAM */ 00512000 * 01S0306 00513000 L @14,ZZ2ZZ1P(,R9) 01S0306 00514000 TM ZZ1FTCAM(@14),B'01000000' 01S0306 00515000 BNZ @RF00306 01S0306 00516000 * /***********************************************************/ 00517000 * /* */ 00518000 * /* SIGNAL EXIT FULL-SCREEN MODE TO VTAM @ZA31999*/ 00519000 * /* */ 00520000 * /***********************************************************/ 00521000 * 01S0307 00522000 * DO; /* EXIT VTAM FULL-SCREEN @ZA31999*/ 00523000 * RESPECIFY 01S0308 00524000 * (R0, 01S0308 00525000 * R1) RESTRICTED; /* STLINENO INTERFACE REGISTERS .*/ 00526000 * CALL E140; /* STLINENO */ 00527000 BAL @14,E140 01S0309 00528000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00529000 CR RETC,RF 01S0310 00530000 BNL *+6 00531000 LR RETC,RF 01S0310 00532000 * RESPECIFY 01S0311 00533000 * (R0, 01S0311 00534000 * R1) UNRESTRICTED; /* STLINENO INTERFACE REGISTERS */ 00535000 * END; /* EXIT VTAM FULL-SCREEN */ 00536000 * IF SPD3270=1 THEN /* DSPL3270 IS BEING SUSPENDED */ 00537000 @RF00306 CLI SPD3270,1 01S0313 00538000 BNE @RF00313 01S0313 00539000 * ZZ2F3270='1'B; /* SO INDICATE @ZA31999*/ 00540000 OI ZZ2F3270(R9),B'10000000' 01S0314 00541000 * ESAUDLE=MIN(ZZ2AQDLE,ZZZP24P1-ESAULAD);/* MAKE SURE ADDR+LEN 00542000 * DOES NOT EXCEED MAX VALID ADR */ 00543000 @RF00313 L @14,@CF00121 01S0315 00544000 SL @14,ESAULAD 01S0315 00545000 L @08,ZZ2AQDLE(,R9) 01S0315 00546000 CLR @08,@14 01S0315 00547000 BNH *+6 00548000 LR @08,@14 01S0315 00549000 ST @08,ESAUDLE 01S0315 00550000 * IF ESAUDTY^=ZZZDTYC THEN /* ONLY VALID DATA TYPES FROM */ 00551000 CLI ESAUDTY,C'C' 01S0316 00552000 BE @RF00316 01S0316 00553000 * ESAUDTY=ZZZDTYB; /* BLSR3270 ARE 'C' AND 'B' */ 00554000 MVI ESAUDTY,C'B' 01S0317 00555000 * CALL BLSRESAR(ZZ2,ESAU); /* UPDATE ZZZSYMCU RECORD */ 00556000 @RF00316 ST R9,@AL00001 01S0318 00557000 LA @14,ESAU 01S0318 00558000 ST @14,@AL00001+4 01S0318 00559000 L @08,ZZ2RVTP(,R9) 01S0318 00560000 L @15,RVTESARP(,@08) 01S0318 00561000 LA @01,@AL00001 01S0318 00562000 BALR @14,@15 01S0318 00563000 * RETC=MAX(RETC,RF); /* RETURN CODE */ 00564000 * 01S0319 00565000 CR RETC,RF 01S0319 00566000 BNL *+6 00567000 LR RETC,RF 01S0319 00568000 * DO;/*BLSULINK(ZZ2,PHSY) EP('BLSRPHAR')*/ 01S0320 00569000 * ZZ2PGM='BLSRPHAR';/*ENTRY POINT NAME*/ 01S0321 00570000 MVC ZZ2PGM(8,R9),@CC01234 01S0321 00571000 * CALL BLSUPGMC(ZZ2,PHSY);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00572000 ST R9,@AL00001 01S0322 00573000 LA @14,PHSY 01S0322 00574000 ST @14,@AL00001+4 01S0322 00575000 L @08,ZZ2BVTP(,R9) 01S0322 00576000 L @15,BVTPGMCP(,@08) 01S0322 00577000 LA @01,@AL00001 01S0322 00578000 BALR @14,@15 01S0322 00579000 * END;/*BLSULINK(ZZ2,PHSY) EP('BLSRPHAR')*//* REWRITE HISTORY RE 00580000 *ORD */ 01S0323 00581000 * END; /* EXIT FULL-SCREEN MODE */ 00582000 * ZZ2AFFS='0'B; /* NO LONGER IN FULL SCREEN */ 00583000 * 01S0325 00584000 @RF00291 NI ZZ2AFFS(R9),B'11011111' 01S0325 00585000 *EXITRLSA: 01S0326 00586000 * DO WHILE(PDAPTR^=0);/*BLRRLSA MF(EXECUTE,PD)*/ 01S0326 00587000 EXITRLSA B @DE00326 01S0326 00588000 @DL00326 DS 0H 01S0327 00589000 * PDRPTR=PDAPTR; 01S0327 00590000 L PDRPTR,PDAPTR 01S0327 00591000 * PDAPTR=PDXP; 01S0328 00592000 * 01S0328 00593000 L @14,PDXP-1(,PDRPTR) 01S0328 00594000 LA @14,0(,@14) 01S0328 00595000 ST @14,PDAPTR 01S0328 00596000 * DO; /*FREEMAIN(R) LV(PDL)SP(1)A(PDDSECT)*/ 01S0329 00597000 * RESPECIFY (GPR01F,GPR00F) RESTRICTED; 01S0330 00598000 * GPR00F = PDL; /* LENGTH REQUESTED*/ 01S0331 00599000 L GPR00F,PDL-1(,PDRPTR) 01S0331 00600000 ICM GPR00F,8,@CB01015 01S0331 00601000 * GPR01F = 1; /* SP IN REG 1 */ 01S0332 00602000 LA GPR01F,1 01S0332 00603000 * GEN (SLL GPR01F,24) 01S0333 00604000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 01S0333 00605000 SLL GPR01F,24 00606000 * GPR00F = GPR00F | GPR01F; /* SP IN HI BYTE */ 01S0334 00607000 OR GPR00F,GPR01F 01S0334 00608000 * GPR01F=ADDR(PDDSECT); /*SET REGISTER ONE*/ 01S0335 00609000 LR GPR01F,PDRPTR 01S0335 00610000 * SVC(10); /* R-FORM OF GETMAIN*/ 01S0336 00611000 SVC 10 01S0336 00612000 * RESPECIFY (GPR01F,GPR00F) UNRESTRICTED; 01S0337 00613000 * END; /*FREEMAIN(R) LV(PDL)SP(1)A(PDDSECT)*/ 01S0338 00614000 * END;/*BLRRLSA MF(EXECUTE,PD)*/ 01S0339 00615000 @DE00326 L @14,PDAPTR 01S0339 00616000 LTR @14,@14 01S0339 00617000 BNZ @DL00326 01S0339 00618000 *EXITNORL: /* EXIT WITH NO PDL */ 00619000 * RETURN CODE(RETC); /* RETURN CODE */ 00620000 EXITNORL L @13,4(,@13) 01S0340 00621000 L @00,@SIZDATD 01S0340 00622000 LR @01,@11 01S0340 00623000 BLSUFRER R,LV=(0),A=(1) 00624000 LR @15,@05 01S0340 00625000 L @14,12(,@13) 01S0340 00626000 LM @00,@12,20(@13) 01S0340 00627000 BR @14 01S0340 00628000 * GENERATE DEFS(BLSR327A) REFS(ZZ1EVEP,ZZ1TREBC,ZZ1TRHEX,ZZ1327WP, 00629000 * ZZ2AMDA,ZZ2AMDC,ZZ2AMDS,VPASP,VPASPL,APDE,AZZ2,AMSG,WKRESET) 00630000 * SETS(ZZ2AMDA,APDE,AZZ2,AMSG,SPD3270,PACKDEC,ZZ1P,ZZ2P,NEWLINES, 00631000 * NEWLNCTL,NEWWCC,PREVCURS,SCRNBUFR) CODE; 01S0341 00632000 PUSH USING 00633000 COPY BLSR327A ASSEMBLER MAINLINE 00634000 POP USING 00635000 TITLE 'BLSR3270--PL/S EPILOG AND DATA' 00636000 BLSR3270 CSECT 00637000 * GENERATE DATA DEFS(SCRNBUFR,SAVER0RF); 01S0342 00638000 * 01S0342 00639000 */********************************************************************/ 00640000 */* */ 00641000 */* E120--PERFORM A TGET */ 00642000 */* */ 00643000 */********************************************************************/ 00644000 * 01S0343 00645000 *E120: /* PERFORM A TGET */ 00646000 * PROCEDURE; 01S0343 00647000 B @PB00002 01S0343 00648000 E120 STM @14,@12,@SA00002 01S0343 00649000 * RESPECIFY 01S0344 00650000 * (R0, 01S0344 00651000 * R1) RESTRICTED; /* TGET/TPUT/STLINENO REGISTERS */ 00652000 * R0=LENGTH(SCRNBUFR); /* TGET PARAMETER REGISTER */ 00653000 LA R0,2560 01S0345 00654000 * R1=ADDR(SCRNBUFR); /* TGET PARAMETER REGISTER */ 00655000 LA R1,SCRNBUFR 01S0346 00656000 * GENERATE REFS(TGETASIS) CODE(ICM R1,B'1000',TGETASIS); 01S0347 00657000 * 01S0347 00658000 ICM R1,B'1000',TGETASIS 00659000 */********************************************************************/ 00660000 */* */ 00661000 */* E130--PERFORM A TPUT */ 00662000 */* */ 00663000 */********************************************************************/ 00664000 * 01S0348 00665000 *E130: /* PERFORM A TPUT */ 00666000 * ENTRY; 01S0348 00667000 B @EC00348 01S0348 00668000 E130 STM @14,@12,@SA00002 01S0348 00669000 @EC00348 DS 0H 01S0349 00670000 * GENERATE CODE(TPUT (1),(0),R); 01S0349 00671000 TPUT (1),(0),R 00672000 * RETURN CODE(RF); 01S0350 00673000 * 01S0350 00674000 L @14,@SA00002 01S0350 00675000 LM @00,@12,@SA00002+8 01S0350 00676000 BR @14 01S0350 00677000 */********************************************************************/ 00678000 */* */ 00679000 */* E140--INDICATE TO VTAM (IF PRESENT) THE END OF FULL SCREEN MODE */ 00680000 */* AND RESET THE TERMINAL LINE NUMBER--THE GENERATED CODE */ 00681000 */* DUPLICATES THAT WHICH WOULD RESULT FROM A MACRO INVOCATION: */ 00682000 */* 'STLINENO LINE=6,MODE=OFF' */ 00683000 */* */ 00684000 */********************************************************************/ 00685000 * 01S0351 00686000 *E140: /* SIMULATE STLINENO */ 00687000 * ENTRY; 01S0351 00688000 E140 STM @14,@12,@SA00002 01S0351 00689000 * GENERATE CODE; 01S0352 00690000 LA R1,6 PUT LINE NUM IN PARM REGISTER 00691000 SR R0,R0 PREPARE FLAG BYTE 00692000 OR R1,R0 SET MODE=OFF FLAG IN REGISTER 1 00693000 LA R0,19 LOAD ENTRY CODE 00694000 SLL R0,24 SHIFT TO HIGH ORDER BYTE 00695000 SVC 94 TERMINAL CONTROL MACRO SVC 00696000 SPACE 00697000 N RF,NOTRC8 RETURN CODE 8 00698000 BZ E140RET -OK IF DO NOT HAVE VTAM 00699000 LA RF,12 SOMETHING BAD IS WRONG 00700000 B E140RET 00701000 DS 0F 00702000 NOTRC8 DC XL4'FFFFFFF7' 00703000 E140RET EQU * 00704000 * RETURN CODE(RF); 01S0353 00705000 * 01S0353 00706000 L @14,@SA00002 01S0353 00707000 LM @00,@12,@SA00002+8 01S0353 00708000 BR @14 01S0353 00709000 */********************************************************************/ 00710000 */* */ 00711000 */* E150--SET ACCESS MODE INDICATOR BY DETERMINING IF VTAM @ZA31999*/ 00712000 */* IS PRESENT--THE GENERATED CODE DUPLICATES THAT @ZA31999*/ 00713000 */* WHICH WOULD RESULT FROM A MACRO INVOCATION: @ZA31999*/ 00714000 */* 'STFSMODE ON,INITIAL=YES' @ZA31999*/ 00715000 */* */ 00716000 */********************************************************************/ 00717000 * 01S0354 00718000 *E150: /* ISSUE STFSMODE @ZA31999*/ 00719000 * ENTRY; 01S0354 00720000 E150 STM @14,@12,@SA00002 01S0354 00721000 * GENERATE CODE; 01S0355 00722000 LA R1,128+64 FLAGS FOR MODE/FIRST CALL @ZA31999 00723000 SLL R1,24 SHIFT TO HIGH ORDER BYTE @ZA31999 00724000 LA R0,18 LOAD ENTRY CODE @ZA31999 00725000 SLL R0,24 SHIFT TO HIGH ORDER BYTE @ZA31999 00726000 SVC 94 TERMINAL CONTROL MACRO SVC @ZA31999 00727000 * RESPECIFY 01S0356 00728000 * (R0, 01S0356 00729000 * R1) UNRESTRICTED; /* TGET/TPUT/STLINENO REGISTERS */ 00730000 * RETURN CODE(RF); 01S0357 00731000 L @14,@SA00002 01S0357 00732000 LM @00,@12,@SA00002+8 01S0357 00733000 BR @14 01S0357 00734000 * END E120; 01S0358 00735000 * 01S0358 00736000 @PB00002 DS 0H 01S0359 00737000 */*BLSRPEND--DEBUGGING MODULE*/ 01S0359 00738000 * 01S0359 00739000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0359 00740000 * 01S0359 00741000 * 01S0359 00742000 * 01S0359 00743000 * DECLARE /*GENERAL PURPOSE REGISTERS */ 01S0359 00744000 * GPR00F FIXED(31) REG(0), 01S0359 00745000 * GPR01F FIXED(31) REG(1), 01S0359 00746000 * GPR15F FIXED(31) REG(15); 01S0359 00747000 * 01S0359 00748000 * DECLARE /* COMMON VARIABLES */ 01S0360 00749000 * I256C CHAR(256) BASED, 01S0360 00750000 * I031F FIXED(31) BASED, 01S0360 00751000 * I031P PTR(31) BASED, 01S0360 00752000 * I015F FIXED(15) BASED, 01S0360 00753000 * I015P PTR(15) BASED, 01S0360 00754000 * I008P PTR(8) BASED, 01S0360 00755000 * I001C CHAR(1) BASED; 01S0360 00756000 * GENERATE NODEFS NOREFS DATA; 01S0361 00757000 * END BLSR3270 /*BLRPEND(BLSR3270) */ 01S0362 00758000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00759000 */*%INCLUDE SYSLIB (BLSRZZZ ) * 00760000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00761000 */*%INCLUDE SYSLIB (BLRFULL ) * 00762000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00763000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00764000 */*%INCLUDE SYSLIB (IKJECT ) * 00765000 */*%INCLUDE SYSLIB (IKJUPT ) * 00766000 */*%INCLUDE SYSLIB (BLSUSERV) * 00767000 */*%INCLUDE SYSLIB (BLRSERV ) * 00768000 */*%INCLUDE SYSLIB (BLRSERVD) * 00769000 */*%INCLUDE SYSLIB (BLSRSERV) * 00770000 */*%INCLUDE SYSLIB (IKJIOPL ) * 00771000 *; 01S0362 00772000 @EL00001 L @13,4(,@13) 01S0362 00773000 @EF00001 L @00,@SIZDATD 01S0362 00774000 LR @01,@11 01S0362 00775000 BLSUFRER R,LV=(0),A=(1) 00776000 @ER00001 LM @14,@12,12(@13) 01S0362 00777000 BR @14 01S0362 00778000 @DATA DS 0H 00779000 @CH00043 DC H'1' 00780000 @CH00068 DC H'2' 00781000 @DATD DSECT 00782000 DS 0F 00783000 @SA00001 DS 18F 00784000 @SA00002 DS 15F 00785000 @AL00001 DS 3A 00786000 BLSR3270 CSECT 00787000 DS 0F 00788000 @CF00040 DC F'4' 00789000 @CF00051 DC F'8' 00790000 @CF00217 DC F'24' 00791000 @CF00121 DC F'16777216' 00792000 @DATD DSECT 00793000 DS 0D 00794000 PDAPTR DS A 00795000 ZZ1P DS A 00796000 ZZ2P DS A 00797000 VPASP DS A 00798000 WKRESET DS FL1 00799000 SPD3270 DS FL1 00800000 DS CL2 00801000 IOPL DS CL16 00802000 ORG IOPL 00803000 IOPLUPT DS AL4 00804000 IOPLECT DS AL4 00805000 IOPLECB DS AL4 00806000 IOPLIOPB DS AL4 00807000 ORG IOPL+16 00808000 DS CL4 00809000 ESAU DS CL694 00810000 ORG ESAU 00811000 ESAURID DS CL2 00812000 @NM00081 DS BL6 00813000 @NM00082 DS CL8 00814000 @NM00083 DS BL8 00815000 ESAURDX DS FL4 00816000 ESAUSYM DS CL31 00817000 ESAUELK DS 0C 00818000 ESAURV1 DS CL1 00819000 ESAUAS DS CL16 00820000 ORG ESAUAS 00821000 ESAUAS0 DS 0C 00822000 ESAUAST DS CL2 00823000 @NM00084 DS BL2 00824000 ESAUAS1 DS FL4 00825000 ESAUAS2 DS FL4 00826000 @NM00085 DS BL4 00827000 ESAUAS9 DS 0C 00828000 ORG ESAU+76 00829000 ESAULAD DS AL4 00830000 ESAUD DS CL60 00831000 ORG ESAUD 00832000 ESAUD00 DS 0C 00833000 ESAUDOF DS FL4 00834000 ESAUDLE DS FL4 00835000 ESAUDOB DS FL1 00836000 ESAUDLB DS FL1 00837000 ESAUDT DS CL34 00838000 ORG ESAUDT 00839000 ESAUDT0 DS 0C 00840000 ESAUDTY DS CL1 00841000 @NM00086 DS BL1 00842000 ESAUDTD DS CL31 00843000 ESAUDTE DS CL1 00844000 ESAUDT9 DS 0C 00845000 ORG ESAUD+44 00846000 ESAUDIM DS FL4 00847000 ESAUDIL DS FL4 00848000 ESAUDF DS BL4 00849000 ORG ESAUDF 00850000 ESAUDFA DS BL1 00851000 @NM00087 EQU ESAUDF+0 00852000 ORG ESAUD+56 00853000 @NM00088 DS BL4 00854000 ESAUD99 DS 0C 00855000 ORG ESAU+140 00856000 ESAUMAD DS AL4 00857000 @NM00089 DS BL16 00858000 ESAUKEY DS BL1 00859000 ESAUF DS BL3 00860000 ORG ESAUF 00861000 ESAUFS DS BL1 00862000 ORG ESAUFS 00863000 ESAUFSC DS BL1 00864000 ESAUFS2 EQU ESAUFS+0 00865000 ESAUFSM EQU ESAUFS+0 00866000 ESAUFSA EQU ESAUFS+0 00867000 ESAUFSP EQU ESAUFS+0 00868000 ESAUFSR EQU ESAUFS+0 00869000 ESAUFSX EQU ESAUFS+0 00870000 ESAUFSS EQU ESAUFS+0 00871000 ORG ESAUF+1 00872000 ESAUFC DS BL1 00873000 ORG ESAUFC 00874000 ESAUFCD DS BL1 00875000 @NM00090 EQU ESAUFC+0 00876000 ORG ESAUF+2 00877000 @NM00091 DS BL1 00878000 ORG ESAU+164 00879000 ESAUABS DS FL4 00880000 @NM00092 DS BL12 00881000 ESAUR DS CL514 00882000 ORG ESAUR 00883000 ESAURL DS FL2 00884000 ESAURT DS CL512 00885000 ORG ESAURT 00886000 ESAURT1 DS CL512 00887000 ORG ESAU+694 00888000 ESAU999 DS 0C 00889000 ORG ESAU+694 00890000 DS CL2 00891000 PDE DS CL8 00892000 ORG PDE 00893000 PDEIP DS AL4 00894000 PDEIL DS FL2 00895000 PDEIF DS BL1 00896000 ORG PDEIF 00897000 PDEIFP DS BL1 00898000 PDEIF2 EQU PDEIF+0 00899000 PDEIF3 EQU PDEIF+0 00900000 PDEIF4 EQU PDEIF+0 00901000 PDEIF5 EQU PDEIF+0 00902000 PDEIF6 EQU PDEIF+0 00903000 PDEIF7 EQU PDEIF+0 00904000 PDEIF8 EQU PDEIF+0 00905000 ORG PDE+7 00906000 @NM00107 DS BL1 00907000 @NM00108 DS 0C 00908000 ORG PDE+8 00909000 @NM00133 DS BL9 00910000 ORG @NM00133 00911000 PACKDEC DS BL8 00912000 @NM00134 DS BL1 00913000 ORG @NM00133+9 00914000 DS CL7 00915000 VPASPL DS CL12 00916000 ORG VPASPL 00917000 APDE DS AL4 00918000 AZZ2 DS AL4 00919000 AMSG DS AL4 00920000 ORG VPASPL+12 00921000 SESAUDTY DS CL1 00922000 NEWWCC DS CL1 00923000 PREVCURS DS CL2 00924000 NEWLINES DS 4AL1 00925000 NEWLNCTL DS 19BL1 00926000 BLSR3270 CSECT 00927000 DS 0F 00928000 @SIZDATD DC AL1(0) 00929000 DC AL3(@ENDDATD-@DATD) 00930000 @CV01219 DC V(BLSRVPAS) 00931000 DS 0D 00932000 PCPTR DC AL4(PC) 00933000 D3270P DC AL4(BLSR327A) 00934000 @CC01230 DC C'BLSR3270' 00935000 @CC01231 DC C'BLSRPHGE' 00936000 @CC01234 DC C'BLSRPHAR' 00937000 @CC01017 DC C'CVT' 00938000 @CC00075 EQU @CC01017 00939000 @CB01015 DC X'00' 00940000 DTCVT DS CL34 00941000 ORG DTCVT 00942000 DTCVT0 DS 0C 00943000 DTCVTY DC CL1'M' 00944000 @NM00093 DC X'00' 00945000 DTCVTD DC CL31'CVT' 00946000 DTCVTE DC CL1' ' 00947000 DTCVT9 DS 0C 00948000 ORG DTCVT+34 00949000 DS CL2 00950000 DESCR DS CL60 00951000 ORG DESCR 00952000 DESCR00 DS 0C 00953000 DESCROF DC F'0' 00954000 DESCRLE DC A(4) 00955000 DESCROB DC AL1(0) 00956000 DESCRLB DC AL1(0) 00957000 DESCRT DS CL34 00958000 ORG DESCRT 00959000 DESCRT0 DS 0C 00960000 DESCRTY DC CL1'U' 00961000 @NM00094 DC X'00' 00962000 DESCRTD DC CL31' ' 00963000 DESCRTE DC CL1' ' 00964000 DESCRT9 DS 0C 00965000 ORG DESCR+44 00966000 DESCRIM DC A(0) 00967000 DESCRIL DC F'0' 00968000 DESCRF DC X'00000000' 00969000 ORG DESCRF 00970000 DESCRFA DS BL1 00971000 @NM00095 EQU DESCRF+0 00972000 ORG DESCR+56 00973000 @NM00096 DC X'00' 00974000 DC XL3'0' 00975000 DESCR99 DS 0C 00976000 ORG DESCR+60 00977000 MSG2 DS CL48 00978000 ORG MSG2 00979000 MSG2L DC AL2(48) 00980000 @NM00097 DC X'0000' 00981000 MSG2T DS CL44 00982000 ORG MSG2T 00983000 MSG2T1 DC CL44'BLS18081I IMPROPER ENVIRONMENT FOR DSPL3270' 00984000 ORG MSG2+48 00985000 TINIT DS CL72 00986000 ORG TINIT 00987000 TINIT1 DC CL10'BLS18082I ' 00988000 TINIT2 DS CL62 00989000 ORG TINIT2 00990000 TINIT20 DC CL38'DSPL3270 READY TO REWRITE THE SCREEN--' 00991000 TINIT21 DC CL24'DEPRESS ENTER WHEN READY' 00992000 ORG TINIT+72 00993000 TEXIT DS CL14 00994000 ORG TEXIT 00995000 TEXIT1 DC X'40' 00996000 TEXIT2 DC X'115D7E' 00997000 TEXIT3 DC X'11C650' 00998000 TEXIT4 DC X'1D40' 00999000 TEXIT5 DC X'13' 01000000 TEXIT6 DC X'3C404000' 01001000 ORG TEXIT+14 01002000 TRMDT DS CL1 01003000 ORG TRMDT 01004000 TRMDT1 DC X'C1' 01005000 ORG TRMDT+1 01006000 DS CL1 01007000 TPUTPMID DS CL8 01008000 ORG TPUTPMID 01009000 @NM00109 DS BL4 01010000 ORG @NM00109 01011000 @NM00110 DC X'0000' 01012000 @NM00111 DC AL2(72) 01013000 ORG TPUTPMID+4 01014000 @NM00112 DS BL4 01015000 ORG @NM00112 01016000 @NM00113 DC X'00' 01017000 @NM00114 DC AL3(TINIT) 01018000 ORG TPUTPMID+8 01019000 TPUTP DS CL8 01020000 ORG TPUTP 01021000 @NM00115 DS BL4 01022000 ORG @NM00115 01023000 @NM00116 DC X'0000' 01024000 @NM00117 DC AL2(62) 01025000 ORG TPUTP+4 01026000 @NM00118 DS BL4 01027000 ORG @NM00118 01028000 @NM00119 DC X'00' 01029000 @NM00120 DC AL3(TINIT2) 01030000 ORG TPUTP+8 01031000 TPUTEXIT DS CL8 01032000 ORG TPUTEXIT 01033000 @NM00121 DS BL4 01034000 ORG @NM00121 01035000 @NM00122 DC X'0000' 01036000 @NM00123 DC AL2(14) 01037000 ORG TPUTEXIT+4 01038000 @NM00124 DS BL4 01039000 ORG @NM00124 01040000 @NM00125 DC X'0B' 01041000 @NM00126 DC AL3(TEXIT) 01042000 ORG TPUTEXIT+8 01043000 TPUTRMDT DS CL8 01044000 ORG TPUTRMDT 01045000 @NM00127 DS BL4 01046000 ORG @NM00127 01047000 @NM00128 DC X'0000' 01048000 @NM00129 DC AL2(1) 01049000 ORG TPUTRMDT+4 01050000 @NM00130 DS BL4 01051000 ORG @NM00130 01052000 @NM00131 DC X'0B' 01053000 @NM00132 DC AL3(TRMDT) 01054000 ORG TPUTRMDT+8 01055000 TGETASIS DC B'10000001' 01056000 @DATD DSECT 01057000 SPACE 2 01058000 *********************************************************************** 01059000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01060000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01061000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01062000 *********************************************************************** 01063000 SPACE 01064000 BLSR3270 CSECT 01065000 ORG 01066000 DS 0D 01067000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSR3270+19)/20+7)/8)CL8'BLSR3270' 01068000 @DATD DSECT 01069000 DS 0H 01070000 @DATD DSECT 01071000 SPACE 2 01072000 *********************************************************************** 01073000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01074000 *********************************************************************** 01075000 SPACE 01076000 BLSR3270 CSECT 01077000 PC IKJPARM DSECT=PD 01078000 @DATD DSECT 01079000 BLSR3270 CSECT 01080000 PDPAUSE IKJKEYWD 01081000 @DATD DSECT 01082000 BLSR3270 CSECT 01083000 IKJNAME 'PAUSE' 01084000 @DATD DSECT 01085000 BLSR3270 CSECT 01086000 IKJNAME 'NOPAUSE' 01087000 @DATD DSECT 01088000 BLSR3270 CSECT 01089000 PDRESET IKJKEYWD 01090000 @DATD DSECT 01091000 BLSR3270 CSECT 01092000 IKJNAME 'RESET' 01093000 @DATD DSECT 01094000 BLSR3270 CSECT 01095000 IKJNAME 'NORESET' 01096000 @DATD DSECT 01097000 BLSR3270 CSECT 01098000 PXTEST IKJKEYWD 01099000 @DATD DSECT 01100000 BLSR3270 CSECT 01101000 IKJNAME 'TEST' 01102000 @DATD DSECT 01103000 BLSR3270 CSECT 01104000 IKJNAME 'NOTEST' 01105000 @DATD DSECT 01106000 PD DSECT 01107000 PD99 DS 0C 01108000 BLSR3270 CSECT 01109000 IKJENDP 01110000 SPACE 2 01111000 *********************************************************************** 01112000 * IKJENDP--END SYNTAX DESCRIPTION * 01113000 *********************************************************************** 01114000 SPACE 01115000 @DATD DSECT 01116000 COPY BLSR327X ASSEMBLER DATA 01117000 TITLE 'BLSR3270--PL/S AND SHARED PL/S AND ASSEMBLER DATA' 01118000 @DATD DSECT 01119000 SPACE 2 01120000 *********************************************************************** 01121000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01122000 *********************************************************************** 01123000 SPACE 01124000 DS 0D 01125000 @DATD DSECT 01126000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01127000 @ENDDATD EQU * 01128000 BLSR3270 CSECT 01129000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01130000 @01 EQU 01 01131000 @02 EQU 02 01132000 @03 EQU 03 01133000 @04 EQU 04 01134000 @05 EQU 05 01135000 @06 EQU 06 01136000 @07 EQU 07 01137000 @08 EQU 08 01138000 @09 EQU 09 01139000 @10 EQU 10 01140000 @11 EQU 11 01141000 @12 EQU 12 01142000 @13 EQU 13 01143000 @14 EQU 14 01144000 @15 EQU 15 01145000 RETC EQU @05 01146000 R9 EQU @09 01147000 R0 EQU @00 01148000 R1 EQU @01 01149000 R2 EQU @02 01150000 R3 EQU @03 01151000 R4 EQU @04 01152000 R5 EQU @05 01153000 RB EQU @11 01154000 RD EQU @13 01155000 RE EQU @14 01156000 RF EQU @15 01157000 PDRPTR EQU @10 01158000 GPR15F EQU @15 01159000 GPR01F EQU @01 01160000 GPR00F EQU @00 01161000 RA EQU @10 01162000 RC EQU @12 01163000 R6 EQU @06 01164000 R7 EQU @07 01165000 R8 EQU @08 01166000 ZZ1 EQU 0 01167000 ZZ1327WP EQU ZZ1+32 01168000 ZZ1TPAGE EQU ZZ1+64 01169000 ZZ1ATTN EQU ZZ1+360 01170000 ZZ1EVE EQU ZZ1ATTN+4 01171000 ZZ1EVEP EQU ZZ1EVE 01172000 ZZ1F EQU ZZ1+368 01173000 ZZ1FACCM EQU ZZ1F+1 01174000 ZZ1FTCAM EQU ZZ1F+1 01175000 ZZ1TRHEX EQU ZZ1+568 01176000 ZZ1TREBC EQU ZZ1+824 01177000 ZZ1N EQU ZZ1+1116 01178000 ZZ2 EQU 0 01179000 ZZ2AMD EQU ZZ2 01180000 ZZ2AMDA EQU ZZ2AMD+4 01181000 @NM00015 EQU ZZ2AMD+7 01182000 ZZ2AMDC EQU ZZ2AMD+16 01183000 ZZ2AMDS EQU ZZ2AMD+20 01184000 ZZ2PRT EQU ZZ2+138 01185000 ZZ2PRTT EQU ZZ2PRT+4 01186000 ZZ2PRTT1 EQU ZZ2PRTT+1 01187000 ZZ2A EQU ZZ2+272 01188000 ZZ2AF EQU ZZ2A+16 01189000 ZZ2AFFS EQU ZZ2AF 01190000 ZZ2AFX EQU ZZ2AF+5 01191000 ZZ2APID EQU ZZ2A+64 01192000 ZZ2AD EQU ZZ2A+74 01193000 ZZ2ADD EQU ZZ2AD 01194000 ZZ2ADDT EQU ZZ2ADD+2 01195000 ZZ2ADM EQU ZZ2AD+46 01196000 ZZ2ADMT EQU ZZ2ADM+2 01197000 ZZ2ADP EQU ZZ2AD+56 01198000 ZZ2ADPT EQU ZZ2ADP+2 01199000 ZZ2AZZ6P EQU ZZ2A+140 01200000 ZZ2AQAS EQU ZZ2A+144 01201000 ZZ2AQD EQU ZZ2A+160 01202000 ZZ2AQDLE EQU ZZ2AQD+4 01203000 ZZ2AQDT EQU ZZ2AQD+10 01204000 ZZ2AQDF EQU ZZ2AQD+52 01205000 ZZ2STG EQU ZZ2+960 01206000 ZZ2ALLOP EQU ZZ2+992 01207000 ZZ2FREEP EQU ZZ2+996 01208000 ZZ2FF19P EQU ZZ2+1000 01209000 ZZ2FRE1P EQU ZZ2+1004 01210000 ZZ2FF18P EQU ZZ2+1008 01211000 ZZ2DYNAP EQU ZZ2+1012 01212000 ZZ2ZZ2CP EQU ZZ2+1016 01213000 ZZ2ZZ2DP EQU ZZ2+1020 01214000 ZZ2STAIP EQU ZZ2+1024 01215000 ZZ2FF02P EQU ZZ2+1028 01216000 ZZ2GETLP EQU ZZ2+1032 01217000 ZZ2PARSP EQU ZZ2+1036 01218000 ZZ2PTGTP EQU ZZ2+1040 01219000 ZZ2PUTLP EQU ZZ2+1044 01220000 ZZ2SCANP EQU ZZ2+1048 01221000 ZZ2STCKP EQU ZZ2+1052 01222000 ZZ2TRMOP EQU ZZ2+1064 01223000 ZZ2TRMVP EQU ZZ2+1068 01224000 ZZ2PUTNP EQU ZZ2+1084 01225000 ZZ2TRMNP EQU ZZ2+1088 01226000 ZZ2ZZ1P EQU ZZ2+1264 01227000 ZZ2BVTP EQU ZZ2+1280 01228000 ZZ2RVTP EQU ZZ2+1284 01229000 ZZ2CPPL EQU ZZ2+1292 01230000 ZZ2CPPLC EQU ZZ2CPPL 01231000 ZZ2PHSYP EQU ZZ2+1332 01232000 ZZ2PGM EQU ZZ2+1536 01233000 ZZ2F EQU ZZ2+2824 01234000 ZZ2F3270 EQU ZZ2F 01235000 ZZ2ITR EQU ZZ2+2840 01236000 ZZ2ITRE EQU ZZ2ITR+16 01237000 ZZ2ITSE EQU ZZ2+2864 01238000 ZZ2ES EQU ZZ2+2872 01239000 ZZ2AMDX EQU ZZ2+7160 01240000 ZZ2AXO EQU ZZ2+7934 01241000 ZZ2AXOT EQU ZZ2AXO+2 01242000 CMD EQU 0 01243000 CMDT EQU CMD+4 01244000 PSCB EQU 0 01245000 PSCBATR1 EQU PSCB+16 01246000 ECT EQU 0 01247000 ECTSWS EQU ECT+28 01248000 ECTSWS2 EQU ECT+40 01249000 ECTSWS21 EQU ECTSWS2 01250000 UPT EQU 0 01251000 UPTSWS EQU UPT+12 01252000 UPTMID EQU UPTSWS 01253000 SA EQU 0 01254000 SA1 EQU SA 01255000 SAR EQU SA+12 01256000 SAR1 EQU SAR+12 01257000 BLSUPARI EQU 0 01258000 BLSUPGMC EQU 0 01259000 BLSUTRMV EQU 0 01260000 BVT EQU 0 01261000 BVTPUTLP EQU BVT+4 01262000 BVTPUTOP EQU BVT+12 01263000 BVTPUTTP EQU BVT+16 01264000 BVTPUTVP EQU BVT+20 01265000 BVTPUTAP EQU BVT+24 01266000 BVTPRTTP EQU BVT+28 01267000 BVTPRTAP EQU BVT+32 01268000 BVTPUTDP EQU BVT+36 01269000 BVTMONP EQU BVT+40 01270000 BVTMON2P EQU BVT+44 01271000 BVTVSARP EQU BVT+48 01272000 BVTVSENP EQU BVT+64 01273000 BVTVSERP EQU BVT+68 01274000 BVTVSGEP EQU BVT+72 01275000 BVTVSGUP EQU BVT+76 01276000 BVTVSPOP EQU BVT+80 01277000 BVTVSPUP EQU BVT+84 01278000 BVTMPKNP EQU BVT+104 01279000 BVTMONLP EQU BVT+108 01280000 BVTPUTCP EQU BVT+132 01281000 BVTMPK1P EQU BVT+136 01282000 BVTZZ2RP EQU BVT+140 01283000 BVTPGMRP EQU BVT+144 01284000 BVTMONAP EQU BVT+148 01285000 BVTBLDDP EQU BVT+152 01286000 BVTBLDLP EQU BVT+156 01287000 BVTPGMCP EQU BVT+160 01288000 BVTPGMDP EQU BVT+164 01289000 BVTPGMLP EQU BVT+168 01290000 BVTMONCP EQU BVT+180 01291000 BVTMONDP EQU BVT+184 01292000 BVTMONTP EQU BVT+188 01293000 BVTPARIP EQU BVT+192 01294000 BVTPARUP EQU BVT+196 01295000 BVTPRTNP EQU BVT+204 01296000 BVTVSCRP EQU BVT+208 01297000 BVTVSMRP EQU BVT+212 01298000 BVTMONXP EQU BVT+216 01299000 BVTTRMAP EQU BVT+228 01300000 ZZ6 EQU 0 01301000 ZZ6D EQU ZZ6+128 01302000 ZZ6DD EQU ZZ6D+8 01303000 ZZ6DDT EQU ZZ6DD+4 01304000 ZZ6DQA EQU ZZ6D+68 01305000 ZZ6DF EQU ZZ6D+92 01306000 ZZ6F EQU ZZ6+504 01307000 ZZ6B EQU ZZ6+768 01308000 BLSRESAR EQU 0 01309000 BLSRESGE EQU 0 01310000 BLSRESGU EQU 0 01311000 RVT EQU 0 01312000 RVTADDRP EQU RVT 01313000 RVTT01P EQU RVT+4 01314000 RVTTAP EQU RVT+8 01315000 RVTTBP EQU RVT+12 01316000 RVTTCP EQU RVT+16 01317000 RVTTFP EQU RVT+24 01318000 RVTTYP EQU RVT+40 01319000 RVTT02P EQU RVT+48 01320000 RVTT03P EQU RVT+52 01321000 RVTT04P EQU RVT+56 01322000 RVTACCLP EQU RVT+60 01323000 RVTRACCP EQU RVT+64 01324000 RVTTLP EQU RVT+68 01325000 RVTTMP EQU RVT+72 01326000 RVTTUP EQU RVT+80 01327000 RVTESGEP EQU RVT+84 01328000 RVTESGUP EQU RVT+88 01329000 RVTESARP EQU RVT+92 01330000 RVTRAARP EQU RVT+96 01331000 RVTRAGEP EQU RVT+100 01332000 RVTADDPP EQU RVT+104 01333000 RVTACCQP EQU RVT+108 01334000 RVTSAGUP EQU RVT+124 01335000 RVTSAGEP EQU RVT+128 01336000 RVTESCKP EQU RVT+132 01337000 RVTMSGAP EQU RVT+136 01338000 RVTMSGDP EQU RVT+140 01339000 RVTADDTP EQU RVT+160 01340000 RVTADDUP EQU RVT+164 01341000 RVTADD1P EQU RVT+176 01342000 RVTADD2P EQU RVT+180 01343000 RVTRSAGP EQU RVT+184 01344000 RVTMSGBP EQU RVT+188 01345000 RVTADDSP EQU RVT+192 01346000 RVTADD3P EQU RVT+196 01347000 RVTT05P EQU RVT+200 01348000 RVTPADSP EQU RVT+204 01349000 RVTTRP EQU RVT+228 01350000 RVTADD4P EQU RVT+232 01351000 RVTSAPCP EQU RVT+236 01352000 RVTSAARP EQU RVT+240 01353000 RVTSAGNP EQU RVT+244 01354000 RVTT06P EQU RVT+248 01355000 RVTSAGCP EQU RVT+252 01356000 RVTSAGQP EQU RVT+256 01357000 RVTESGCP EQU RVT+260 01358000 RVTESGQP EQU RVT+264 01359000 RVTDUCKP EQU RVT+276 01360000 RVTDUCCP EQU RVT+280 01361000 PCCSECT EQU 0 01362000 PDDSECT EQU 0 01363000 PDXP EQU PDDSECT+1 01364000 PDL EQU PDDSECT+5 01365000 PHCO EQU 0 01366000 PHCOP EQU PHCO+46 01367000 PHCOPT EQU PHCOP+2 01368000 DSPL3270 EQU 0 01369000 BLSRACC EQU 0 01370000 BLSRACCL EQU 0 01371000 BLSRACCQ EQU 0 01372000 BLSRADDP EQU 0 01373000 BLSRADDR EQU 0 01374000 BLSRADDS EQU 0 01375000 BLSRADDT EQU 0 01376000 BLSRADDU EQU 0 01377000 BLSRADD1 EQU 0 01378000 BLSRADD2 EQU 0 01379000 BLSRADD3 EQU 0 01380000 BLSRADD4 EQU 0 01381000 BLSRDUCC EQU 0 01382000 BLSRDUCK EQU 0 01383000 BLSRESCK EQU 0 01384000 BLSRESGC EQU 0 01385000 BLSRESGQ EQU 0 01386000 BLSRMSGA EQU 0 01387000 BLSRMSGB EQU 0 01388000 BLSRMSGD EQU 0 01389000 BLSRPADS EQU 0 01390000 BLSRRAAR EQU 0 01391000 BLSRRAGE EQU 0 01392000 BLSRSAAR EQU 0 01393000 BLSRSAG EQU 0 01394000 BLSRSAGC EQU 0 01395000 BLSRSAGE EQU 0 01396000 BLSRSAGN EQU 0 01397000 BLSRSAGQ EQU 0 01398000 BLSRSAGU EQU 0 01399000 BLSRSAPC EQU 0 01400000 BLSTA EQU 0 01401000 BLSTB EQU 0 01402000 BLSTC EQU 0 01403000 BLSTF EQU 0 01404000 BLSTL EQU 0 01405000 BLSTM EQU 0 01406000 BLSTR EQU 0 01407000 BLSTU EQU 0 01408000 BLSTY EQU 0 01409000 BLST01 EQU 0 01410000 BLST02 EQU 0 01411000 BLST03 EQU 0 01412000 BLST04 EQU 0 01413000 BLST05 EQU 0 01414000 BLST06 EQU 0 01415000 BLSUALLO EQU 0 01416000 BLSUBLDD EQU 0 01417000 BLSUBLDL EQU 0 01418000 BLSUDYNA EQU 0 01419000 BLSUFREE EQU 0 01420000 BLSUFRE1 EQU 0 01421000 BLSUMON EQU 0 01422000 BLSUMONA EQU 0 01423000 BLSUMONC EQU 0 01424000 BLSUMOND EQU 0 01425000 BLSUMONL EQU 0 01426000 BLSUMONT EQU 0 01427000 BLSUMONX EQU 0 01428000 BLSUMON2 EQU 0 01429000 BLSUMPKN EQU 0 01430000 BLSUMPK1 EQU 0 01431000 BLSUPARU EQU 0 01432000 BLSUPGMD EQU 0 01433000 BLSUPGML EQU 0 01434000 BLSUPGMR EQU 0 01435000 BLSUPRTA EQU 0 01436000 BLSUPRTN EQU 0 01437000 BLSUPRTT EQU 0 01438000 BLSUPUTA EQU 0 01439000 BLSUPUTC EQU 0 01440000 BLSUPUTD EQU 0 01441000 BLSUPUTL EQU 0 01442000 BLSUPUTN EQU 0 01443000 BLSUPUTO EQU 0 01444000 BLSUPUTT EQU 0 01445000 BLSUPUTV EQU 0 01446000 BLSUSTAI EQU 0 01447000 BLSUTRMA EQU 0 01448000 BLSUTRMN EQU 0 01449000 BLSUTRMO EQU 0 01450000 BLSUVSAR EQU 0 01451000 BLSUVSCR EQU 0 01452000 BLSUVSEN EQU 0 01453000 BLSUVSER EQU 0 01454000 BLSUVSGE EQU 0 01455000 BLSUVSGU EQU 0 01456000 BLSUVSMR EQU 0 01457000 BLSUVSPO EQU 0 01458000 BLSUVSPU EQU 0 01459000 BLSUZZ2C EQU 0 01460000 BLSUZZ2D EQU 0 01461000 BLSUZZ2R EQU 0 01462000 IKJEFF02 EQU 0 01463000 IKJEFF18 EQU 0 01464000 IKJEFF19 EQU 0 01465000 IKJGETL EQU 0 01466000 IKJPARS EQU 0 01467000 IKJPTGT EQU 0 01468000 IKJPUTL EQU 0 01469000 IKJSCAN EQU 0 01470000 IKJSTCK EQU 0 01471000 I001C EQU 0 01472000 I008P EQU 0 01473000 I015F EQU 0 01474000 I015P EQU 0 01475000 I031F EQU 0 01476000 I031P EQU 0 01477000 I256C EQU 0 01478000 PDEI EQU 0 01479000 PHSYPGM EQU PHSY+28 01480000 PHSYMRX EQU PHSY+36 01481000 PHSYP EQU PHSY+46 01482000 PHSYPL EQU PHSYP 01483000 PHSYPT EQU PHSYP+2 01484000 CPPL EQU ZZ2CPPL 01485000 CPPLUPT EQU CPPL+4 01486000 CPPLPSCB EQU CPPL+8 01487000 CPPLECT EQU CPPL+12 01488000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01489000 CPPLCBUF EQU CPPL 01490000 PHSY999 EQU PHSY+48 01491000 PHSYPTA EQU PHSYPT 01492000 @NM00106 EQU PHSY+40 01493000 PHSYELK EQU PHSY+40 01494000 PHSYRDX EQU PHSY+24 01495000 @NM00105 EQU PHSY+16 01496000 @NM00104 EQU PHSY+8 01497000 @NM00103 EQU PHSY+2 01498000 PHSYRID EQU PHSY 01499000 PHCO999 EQU PHCO+48 01500000 PHCOPTA EQU PHCOPT 01501000 PHCOPL EQU PHCOP 01502000 @NM00102 EQU PHCO+40 01503000 PHCOELK EQU PHCO+40 01504000 PHCOMRX EQU PHCO+36 01505000 PHCOPGM EQU PHCO+28 01506000 PHCORDX EQU PHCO+24 01507000 @NM00101 EQU PHCO+16 01508000 @NM00100 EQU PHCO+8 01509000 @NM00099 EQU PHCO+2 01510000 PHCORID EQU PHCO 01511000 PDSP EQU PDDSECT+4 01512000 @NM00098 EQU PDDSECT 01513000 RVT99999 EQU RVT+384 01514000 RVT0096P EQU RVT+380 01515000 RVT0095P EQU RVT+376 01516000 RVT0094P EQU RVT+372 01517000 RVT0093P EQU RVT+368 01518000 RVT0092P EQU RVT+364 01519000 RVT0091P EQU RVT+360 01520000 RVT0090P EQU RVT+356 01521000 RVT0089P EQU RVT+352 01522000 RVT0088P EQU RVT+348 01523000 RVT0087P EQU RVT+344 01524000 RVT0086P EQU RVT+340 01525000 RVT0085P EQU RVT+336 01526000 RVT0084P EQU RVT+332 01527000 RVT0083P EQU RVT+328 01528000 RVT0082P EQU RVT+324 01529000 RVT0081P EQU RVT+320 01530000 RVT0080P EQU RVT+316 01531000 RVT0079P EQU RVT+312 01532000 RVT0078P EQU RVT+308 01533000 RVT0077P EQU RVT+304 01534000 RVT0076P EQU RVT+300 01535000 RVT0075P EQU RVT+296 01536000 RVT0074P EQU RVT+292 01537000 RVT0073P EQU RVT+288 01538000 RVT0072P EQU RVT+284 01539000 RVTDTUTP EQU RVT+272 01540000 RVTDTMTP EQU RVT+268 01541000 RVT0057P EQU RVT+224 01542000 RVT0056P EQU RVT+220 01543000 RVT0055P EQU RVT+216 01544000 RVT0054P EQU RVT+212 01545000 RVT0053P EQU RVT+208 01546000 RVT0044P EQU RVT+172 01547000 RVT0043P EQU RVT+168 01548000 RVT0040P EQU RVT+156 01549000 RVT0039P EQU RVT+152 01550000 RVT0038P EQU RVT+148 01551000 RVT0037P EQU RVT+144 01552000 RVT0031P EQU RVT+120 01553000 RVT0030P EQU RVT+116 01554000 RVT0029P EQU RVT+112 01555000 RVT0020P EQU RVT+76 01556000 RVT0012P EQU RVT+44 01557000 RVT0010P EQU RVT+36 01558000 RVT0009P EQU RVT+32 01559000 RVT0008P EQU RVT+28 01560000 RVT0006P EQU RVT+20 01561000 ZZ69999 EQU ZZ6+1792 01562000 ZZ6BRB EQU ZZ6B+12 01563000 ZZ6BRC EQU ZZ6B+8 01564000 @NM00080 EQU ZZ6B+6 01565000 ZZ6BFL EQU ZZ6B+4 01566000 ZZ6BDA EQU ZZ6B 01567000 @NM00079 EQU ZZ6+540 01568000 ZZ6BUFI EQU ZZ6+536 01569000 ZZ6BUFP EQU ZZ6+532 01570000 ZZ6FILE EQU ZZ6+524 01571000 ZZ6BUFB EQU ZZ6+520 01572000 ZZ6BUFL EQU ZZ6+518 01573000 ZZ6BUFN EQU ZZ6+516 01574000 ZZ6ZZ6P EQU ZZ6+512 01575000 @NM00078 EQU ZZ6F 01576000 ZZ6FINIT EQU ZZ6F 01577000 ZZ6FDUOP EQU ZZ6F 01578000 @NM00077 EQU ZZ6+256 01579000 ZZ6D999 EQU ZZ6D+128 01580000 @NM00076 EQU ZZ6D+116 01581000 ZZ6DCAP EQU ZZ6D+112 01582000 ZZ6DPRP EQU ZZ6D+108 01583000 ZZ6DDA2 EQU ZZ6D+104 01584000 ZZ6DDA1 EQU ZZ6D+100 01585000 @NM00075 EQU ZZ6DF 01586000 ZZ6DFSU EQU ZZ6DF 01587000 ZZ6DFST EQU ZZ6DF 01588000 ZZ6DFAB EQU ZZ6DF 01589000 ZZ6DFMP EQU ZZ6DF 01590000 ZZ6DFDU EQU ZZ6DF 01591000 ZZ6DFBS EQU ZZ6DF 01592000 ZZ6DQ2 EQU ZZ6D+88 01593000 ZZ6DQ1 EQU ZZ6D+84 01594000 ZZ6DQA9 EQU ZZ6DQA+16 01595000 @NM00074 EQU ZZ6DQA+12 01596000 ZZ6DQA2 EQU ZZ6DQA+8 01597000 ZZ6DQA1 EQU ZZ6DQA+4 01598000 @NM00073 EQU ZZ6DQA+2 01599000 ZZ6DQAT EQU ZZ6DQA 01600000 ZZ6DQA0 EQU ZZ6DQA 01601000 ZZ6DRDX EQU ZZ6D+64 01602000 ZZ6DELK EQU ZZ6D+64 01603000 ZZ6DMEM EQU ZZ6D+56 01604000 ZZ6DDT1 EQU ZZ6DDT 01605000 ZZ6DDO EQU ZZ6DD+2 01606000 ZZ6DDL EQU ZZ6DD 01607000 @NM00072 EQU ZZ6D+2 01608000 ZZ6DRID EQU ZZ6D 01609000 ZZ6RDCB EQU ZZ6 01610000 ZZ60000 EQU ZZ6 01611000 BVT99999 EQU BVT+256 01612000 BVT0064P EQU BVT+252 01613000 BVT0063P EQU BVT+248 01614000 BVT0062P EQU BVT+244 01615000 BVT0061P EQU BVT+240 01616000 BVT0060P EQU BVT+236 01617000 BVT0059P EQU BVT+232 01618000 BVT0057P EQU BVT+224 01619000 BVT0056P EQU BVT+220 01620000 BVTSTBLP EQU BVT+200 01621000 BVT0045P EQU BVT+176 01622000 BVT0044P EQU BVT+172 01623000 BVT0033P EQU BVT+128 01624000 BVT0032P EQU BVT+124 01625000 BVT0031P EQU BVT+120 01626000 BVT0030P EQU BVT+116 01627000 BVT0029P EQU BVT+112 01628000 BVT0026P EQU BVT+100 01629000 BVT0025P EQU BVT+96 01630000 BVT0024P EQU BVT+92 01631000 BVT0023P EQU BVT+88 01632000 BVT0016P EQU BVT+60 01633000 BVT0015P EQU BVT+56 01634000 BVT0014P EQU BVT+52 01635000 BVT0003P EQU BVT+8 01636000 BVT0001P EQU BVT 01637000 SA99 EQU SA+72 01638000 SARC EQU SAR+56 01639000 SARB EQU SAR+52 01640000 SARA EQU SAR+48 01641000 SAR9 EQU SAR+44 01642000 SAR8 EQU SAR+40 01643000 SAR7 EQU SAR+36 01644000 SAR6 EQU SAR+32 01645000 SAR5 EQU SAR+28 01646000 SAR4 EQU SAR+24 01647000 SAR3 EQU SAR+20 01648000 SAR2 EQU SAR+16 01649000 SAR0 EQU SAR+8 01650000 SARF EQU SAR+4 01651000 SARE EQU SAR 01652000 SAFWD EQU SA+8 01653000 SABAK EQU SA+4 01654000 SA1L EQU SA1+1 01655000 SA1P EQU SA1 01656000 UPTPREFL EQU UPT+23 01657000 UPTPREFX EQU UPT+16 01658000 @NM00071 EQU UPT+15 01659000 UPTLDEL EQU UPT+14 01660000 UPTCDEL EQU UPT+13 01661000 UPTWTP EQU UPTSWS 01662000 UPTMODE EQU UPTSWS 01663000 UPTALD EQU UPTSWS 01664000 UPTPAUS EQU UPTSWS 01665000 UPTNCOM EQU UPTSWS 01666000 UPTNPRM EQU UPTSWS 01667000 UPTRCVR EQU UPTSWS 01668000 UPTUSER EQU UPT+2 01669000 @NM00070 EQU UPT 01670000 @NM00069 EQU ECT+52 01671000 @NM00068 EQU ECT+48 01672000 @NM00067 EQU ECT+44 01673000 @NM00066 EQU ECTSWS2+1 01674000 @NM00065 EQU ECTSWS21 01675000 ECTTABND EQU ECTSWS21 01676000 ECTDEFCS EQU ECTSWS21 01677000 ECTBKPB EQU ECT+36 01678000 ECTUSER EQU ECT+32 01679000 ECTDDNUM EQU ECT+29 01680000 ECTATTN EQU ECTSWS 01681000 ECTBKGRD EQU ECTSWS 01682000 ECTNNOT EQU ECTSWS 01683000 ECTNMAL EQU ECTSWS 01684000 ECTLOGF EQU ECTSWS 01685000 ECTATRM EQU ECTSWS 01686000 @NM00064 EQU ECTSWS 01687000 ECTNOPD EQU ECTSWS 01688000 ECTSCMD EQU ECT+20 01689000 ECTPCMD EQU ECT+12 01690000 ECTSMSG EQU ECT+9 01691000 ECTMSGF EQU ECT+8 01692000 ECTIOWA EQU ECT+4 01693000 ECTRTCD EQU ECT+1 01694000 ECTRCDF EQU ECT 01695000 PSCBU EQU PSCB+64 01696000 PSCBRSZ EQU PSCB+60 01697000 PSCBLINE EQU PSCB+59 01698000 PSCBCHAR EQU PSCB+58 01699000 PSCBUPTL EQU PSCB+56 01700000 PSCBUPT EQU PSCB+52 01701000 PSCBRLGB EQU PSCB+48 01702000 PSCBDEST EQU PSCB+40 01703000 @NM00063 EQU PSCB+36 01704000 @NM00062 EQU PSCB+32 01705000 @NM00061 EQU PSCB+28 01706000 PSCBLTI2 EQU PSCB+24 01707000 PSCBLTIM EQU PSCB+20 01708000 PSCBATR2 EQU PSCB+18 01709000 @NM00060 EQU PSCBATR1 01710000 @NM00059 EQU PSCBATR1 01711000 @NM00058 EQU PSCBATR1 01712000 PSCBATTN EQU PSCBATR1 01713000 PSCBVMNT EQU PSCBATR1 01714000 PSCBJCL EQU PSCBATR1 01715000 PSCBACCT EQU PSCBATR1 01716000 PSCBCTRL EQU PSCBATR1 01717000 PSCBGPNM EQU PSCB+8 01718000 PSCBUSRL EQU PSCB+7 01719000 PSCBUSER EQU PSCB 01720000 CMDT1 EQU CMDT 01721000 CMDO EQU CMD+2 01722000 CMDL EQU CMD 01723000 ZZ299999 EQU ZZ2+8192 01724000 ZZ2AXOT1 EQU ZZ2AXOT 01725000 ZZ2AXOL EQU ZZ2AXO 01726000 @NM00057 EQU ZZ2+7288 01727000 @NM00056 EQU ZZ2AMDX+4 01728000 ZZ2AMDXC EQU ZZ2AMDX 01729000 ZZ2HSD EQU ZZ2+3056 01730000 @NM00055 EQU ZZ2ES 01731000 @NM00054 EQU ZZ2+2868 01732000 ZZ2ITSEC EQU ZZ2ITSE+1 01733000 @NM00053 EQU ZZ2ITSE 01734000 ZZ2ITSEP EQU ZZ2ITSE 01735000 ZZ2ITSEW EQU ZZ2ITSE 01736000 @NM00052 EQU ZZ2ITR+20 01737000 ZZ2ITREC EQU ZZ2ITRE+1 01738000 @NM00051 EQU ZZ2ITRE 01739000 ZZ2ITREP EQU ZZ2ITRE 01740000 ZZ2ITREW EQU ZZ2ITRE 01741000 @NM00050 EQU ZZ2ITR+9 01742000 ZZ2ITRRC EQU ZZ2ITR+8 01743000 ZZ2ITR2P EQU ZZ2ITR+4 01744000 ZZ2ITRPP EQU ZZ2ITR 01745000 @NM00049 EQU ZZ2F 01746000 @NM00048 EQU ZZ2+1544 01747000 @NM00047 EQU ZZ2+1526 01748000 ZZ2CW EQU ZZ2+1524 01749000 @NM00046 EQU ZZ2+1504 01750000 @NM00045 EQU ZZ2+1352 01751000 ZZ2FFSYP EQU ZZ2+1348 01752000 ZZ2SASYP EQU ZZ2+1344 01753000 ZZ2RDSYP EQU ZZ2+1340 01754000 ZZ2RASYP EQU ZZ2+1336 01755000 ZZ2ESSYP EQU ZZ2+1328 01756000 ZZ200SYP EQU ZZ2+1324 01757000 ZZ2SCWP EQU ZZ2+1320 01758000 ZZ2TTLP EQU ZZ2+1316 01759000 ZZ2LOADP EQU ZZ2+1312 01760000 ZZ2VRESP EQU ZZ2+1308 01761000 ZZ2CPPLE EQU ZZ2CPPL+12 01762000 ZZ2CPPLP EQU ZZ2CPPL+8 01763000 ZZ2CPPLU EQU ZZ2CPPL+4 01764000 ZZ2VRSAP EQU ZZ2+1288 01765000 ZZ2DVTP EQU ZZ2+1276 01766000 @NM00044 EQU ZZ2+1272 01767000 @NM00043 EQU ZZ2+1268 01768000 ZZ2RPLP EQU ZZ2+1260 01769000 ZZ2TCBP EQU ZZ2+1256 01770000 @NM00042 EQU ZZ2+1252 01771000 ZZ2ZZ2P EQU ZZ2+1248 01772000 @NM00041 EQU ZZ2+1112 01773000 ZZ2FPDRP EQU ZZ2+1108 01774000 ZZ2FDSDP EQU ZZ2+1104 01775000 ZZ2APDRP EQU ZZ2+1100 01776000 ZZ2ADSDP EQU ZZ2+1096 01777000 ZZ2ENQ0P EQU ZZ2+1092 01778000 @NM00040 EQU ZZ2+1080 01779000 ZZ2MSG0P EQU ZZ2+1076 01780000 ZZ2FT25P EQU ZZ2+1072 01781000 ZZ2MSGSP EQU ZZ2+1060 01782000 ZZ2ALOCP EQU ZZ2+1056 01783000 @NM00039 EQU ZZ2+976 01784000 ZZ2TOD EQU ZZ2+968 01785000 ZZ2STGN EQU ZZ2STG+4 01786000 ZZ2STGP EQU ZZ2STG 01787000 @NM00038 EQU ZZ2+952 01788000 ZZ2SCMDE EQU ZZ2+944 01789000 ZZ2SCMDN EQU ZZ2+936 01790000 ZZ2IDENT EQU ZZ2+928 01791000 ZZ2A9999 EQU ZZ2A+656 01792000 @NM00037 EQU ZZ2A+224 01793000 @NM00036 EQU ZZ2A+220 01794000 ZZ2AQD99 EQU ZZ2AQD+60 01795000 @NM00035 EQU ZZ2AQD+56 01796000 @NM00034 EQU ZZ2AQDF 01797000 ZZ2AQDFA EQU ZZ2AQDF 01798000 ZZ2AQDIL EQU ZZ2AQD+48 01799000 ZZ2AQDIM EQU ZZ2AQD+44 01800000 ZZ2AQDT9 EQU ZZ2AQDT+34 01801000 ZZ2AQDTE EQU ZZ2AQDT+33 01802000 ZZ2AQDTD EQU ZZ2AQDT+2 01803000 @NM00033 EQU ZZ2AQDT+1 01804000 ZZ2AQDTY EQU ZZ2AQDT 01805000 ZZ2AQDT0 EQU ZZ2AQDT 01806000 ZZ2AQDLB EQU ZZ2AQD+9 01807000 ZZ2AQDOB EQU ZZ2AQD+8 01808000 ZZ2AQDOF EQU ZZ2AQD 01809000 ZZ2AQD00 EQU ZZ2AQD 01810000 ZZ2AQAS9 EQU ZZ2AQAS+16 01811000 @NM00032 EQU ZZ2AQAS+12 01812000 ZZ2AQAS2 EQU ZZ2AQAS+8 01813000 ZZ2AQAS1 EQU ZZ2AQAS+4 01814000 @NM00031 EQU ZZ2AQAS+2 01815000 ZZ2AQAST EQU ZZ2AQAS 01816000 ZZ2AQAS0 EQU ZZ2AQAS 01817000 ZZ2ADPTA EQU ZZ2ADPT 01818000 ZZ2ADPL EQU ZZ2ADP 01819000 ZZ2ADMTA EQU ZZ2ADMT 01820000 ZZ2ADML EQU ZZ2ADM 01821000 ZZ2ADDTA EQU ZZ2ADDT 01822000 ZZ2ADDL EQU ZZ2ADD 01823000 @NM00030 EQU ZZ2A+72 01824000 ZZ2APIDB EQU ZZ2APID+3 01825000 ZZ2APIDA EQU ZZ2APID 01826000 @NM00029 EQU ZZ2A+24 01827000 @NM00028 EQU ZZ2AF+5 01828000 @NM00027 EQU ZZ2AF+3 01829000 ZZ2AFS EQU ZZ2AF+2 01830000 ZZ2AFD EQU ZZ2AF+2 01831000 ZZ2AFQ EQU ZZ2AF+2 01832000 ZZ2AF$ EQU ZZ2AF+2 01833000 @NM00026 EQU ZZ2AF+2 01834000 ZZ2AFM EQU ZZ2AF+2 01835000 @NM00025 EQU ZZ2AF+2 01836000 @NM00024 EQU ZZ2AF+1 01837000 ZZ2AFV EQU ZZ2AF+1 01838000 @NM00023 EQU ZZ2AF+1 01839000 ZZ2AFC EQU ZZ2AF+1 01840000 @NM00022 EQU ZZ2AF 01841000 ZZ2AFT EQU ZZ2AF 01842000 ZZ2AFP EQU ZZ2AF 01843000 @NM00021 EQU ZZ2A+8 01844000 ZZ2ALINE EQU ZZ2A+4 01845000 @NM00020 EQU ZZ2A+3 01846000 ZZ2ASE EQU ZZ2A+2 01847000 ZZ2ACH EQU ZZ2A 01848000 @NM00019 EQU ZZ2+264 01849000 @NM00018 EQU ZZ2+263 01850000 ZZ2PRTT0 EQU ZZ2PRTT 01851000 ZZ2PRTO EQU ZZ2PRT+2 01852000 ZZ2PRTL EQU ZZ2PRT 01853000 @NM00017 EQU ZZ2AMD+56 01854000 ZZ2AMDXP EQU ZZ2AMD+52 01855000 ZZ2AMDD EQU ZZ2AMD+48 01856000 ZZ2AMDL EQU ZZ2AMD+44 01857000 ZZ2AMDU EQU ZZ2AMD+28 01858000 ZZ2AMDF EQU ZZ2AMD+24 01859000 ZZ2AMDP EQU ZZ2AMD+12 01860000 ZZ2AMDB EQU ZZ2AMD+8 01861000 @NM00016 EQU @NM00015 01862000 ZZ2AMD2 EQU @NM00015 01863000 ZZ2AMD1 EQU @NM00015 01864000 ZZ2AMD0 EQU ZZ2AMD+6 01865000 ZZ2AMDT EQU ZZ2AMD 01866000 ZZ199999 EQU ZZ1+3072 01867000 @NM00014 EQU ZZ1+2160 01868000 ZZ1TRTAS EQU ZZ1+1904 01869000 ZZ1TRUPC EQU ZZ1+1648 01870000 ZZ1TRCTX EQU ZZ1+1392 01871000 ZZ1NASID EQU ZZ1N+274 01872000 ZZ1NSTRL EQU ZZ1N+272 01873000 ZZ1NOFF EQU ZZ1N+268 01874000 ZZ1NBDY EQU ZZ1N+264 01875000 ZZ1NADE EQU ZZ1N+260 01876000 ZZ1NADB EQU ZZ1N+256 01877000 ZZ1NSTR EQU ZZ1N 01878000 @NM00013 EQU ZZ1+1080 01879000 @NM00012 EQU ZZ1+377 01880000 ZZ1USTAE EQU ZZ1+376 01881000 @NM00011 EQU ZZ1F+3 01882000 @NM00010 EQU ZZ1F+2 01883000 ZZ1FPRNT EQU ZZ1F+2 01884000 @NM00009 EQU ZZ1F+1 01885000 @NM00008 EQU ZZ1F 01886000 ZZ1FM EQU ZZ1F 01887000 ZZ1FX EQU ZZ1F 01888000 ZZ1FU EQU ZZ1F 01889000 ZZ1EVEC EQU ZZ1EVE+1 01890000 @NM00007 EQU ZZ1EVE 01891000 ZZ1EVEW EQU ZZ1EVE 01892000 ZZ1ACMP EQU ZZ1ATTN 01893000 @NM00006 EQU ZZ1+144 01894000 ZZ1FPP EQU ZZ1+140 01895000 ZZ1ZZ6P EQU ZZ1+136 01896000 @NM00005 EQU ZZ1+84 01897000 ZZ1PLINE EQU ZZ1+80 01898000 ZZ1PGSZ EQU ZZ1+76 01899000 ZZ1PCNT EQU ZZ1+72 01900000 @NM00004 EQU ZZ1+68 01901000 ZZ1TLINE EQU ZZ1+60 01902000 @NM00003 EQU ZZ1+52 01903000 ZZ1DMCBP EQU ZZ1+48 01904000 ZZ1DSDP EQU ZZ1+44 01905000 ZZ1PDRP EQU ZZ1+40 01906000 ZZ1ZZ2P EQU ZZ1+36 01907000 ZZ1ACBP EQU ZZ1+28 01908000 @NM00002 EQU ZZ1+24 01909000 ZZ1PDCBP EQU ZZ1+20 01910000 ZZ1BLRBL EQU ZZ1+16 01911000 @NM00001 EQU ZZ1+12 01912000 ZZ1PNULL EQU ZZ1+8 01913000 ZZ1NULL EQU ZZ1+4 01914000 ZZ1IDE EQU ZZ1 01915000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01916000 @RT00223 EQU EXITRLSA 01917000 @RT00229 EQU EXITRLSA 01918000 @RT00245 EQU EXITRLSA 01919000 @ENDDATA EQU * 01920000 END BLSR3270,(C'PLS1056',0701,78158) 01921000