TITLE 'READ WRITE EXIT - ISTCC016 *00001000 ' 00002000 ISTCC016 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTCC016 76.244' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * /* SET UP BASE AND SCR @ZD10878*/ 00011000 LR R12,R15 GET THE ENTRY ADDRESS 00012000 USING ISTCC016,R12 00013000 LA R9,C16CBUF1 POINT TO EXIT WORK AREA @ZD10878 00014000 USING @DATD,R9 SET UP ADDRESSABILITY FOR SCRTCH @ZD10878 00015000 * RPLPTR=R1; /* SAVE POINTER TO RPL */ 00016000 LR RPLPTR,R1 0152 00017000 * WAPTR=RPLUSFLD; 0153 00018000 L WAPTR,RPLUSFLD(,RPLPTR) 0153 00019000 * R13=ADDR($EXITSAV); /* SET UP PTR TO MY SAVEAREA */ 00020000 L R13,RCAPTR(,WAPTR) 0154 00021000 LA R13,$EXITSAV(,R13) 0154 00022000 * C16EXSAV=R14; /* SAVE R14 FOR RET TO VTAM */ 00023000 * 0155 00024000 ST R14,C16EXSAV 0155 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* CHECK THE RPL SO IT IS NOT ACTIVE */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0156 00031000 * GEN(CHECK RPL=(RPLPTR)); /* CLEAR UP RPL BEFORE PROCESSING*/ 00032000 CHECK RPL=(RPLPTR) 00033000 * INDX=AP; /* FEEDBACK FOR AP */ 00034000 LA INDX,2 0157 00035000 * IF RPLPTR=ADDR($TLTRPL1) THEN /* SET UP INDEX INTO TABLE 0158 00036000 * @D32JPGH*/ 00037000 LA @00,$TLTRPL1(,WAPTR) 0158 00038000 CR RPLPTR,@00 0158 00039000 BNE @RF00158 0158 00040000 * INDX=CT; /* FEEDBACK FOR CT */ 00041000 * 0159 00042000 LA INDX,1 0159 00043000 * /*****************************************************************/ 00044000 * /* */ 00045000 * /* CHK FOR TEMP ERRORS RETRY IF POSSIBLE */ 00046000 * /* */ 00047000 * /*****************************************************************/ 00048000 * 0160 00049000 * IF(RPLRTNCD='08'X&RPLFDB2='00'X)|(RPLRTNCD='0C'X&(RPLFDB2='03'X| 00050000 * RPLFDB2='05'X)) THEN 0160 00051000 @RF00158 CLI RPLRTNCD(RPLPTR),8 0160 00052000 BNE @GL00001 0160 00053000 CLI RPLFDB2(RPLPTR),0 0160 00054000 BE @RT00160 0160 00055000 @GL00001 CLI RPLRTNCD(RPLPTR),12 0160 00056000 BNE @RF00160 0160 00057000 CLI RPLFDB2(RPLPTR),3 0160 00058000 BE @RT00160 0160 00059000 CLI RPLFDB2(RPLPTR),5 0160 00060000 BE @RT00160 0160 00061000 * GOTO C16C0225; 0161 00062000 * IF RPLRTNCD^='00'X /* IF THERE WAS AN ERROR */ 00063000 * THEN 0162 00064000 @RF00160 CLI RPLRTNCD(RPLPTR),0 0162 00065000 BE @RF00162 0162 00066000 * DO; 0163 00067000 * IF RPLRTNCD='0C'X&(RPLFDB2>='0A'X&RPLFDB2<='0C'X)/* CHECK TO 00068000 * SEE IF WE SHOULD STOP @D32JPGH*/ 00069000 * THEN 0164 00070000 CLI RPLRTNCD(RPLPTR),12 0164 00071000 BNE @RF00164 0164 00072000 CLI RPLFDB2(RPLPTR),10 0164 00073000 BL @RF00164 0164 00074000 CLI RPLFDB2(RPLPTR),12 0164 00075000 BH @RF00164 0164 00076000 * DO; /* NOT ERROR, BUT GET OUT NOW */ 00077000 * CALL C16C0910; /* FREE CURRENT ELEMENT */ 00078000 BAL @14,C16C0910 0166 00079000 * GOTO C16C0251; /* EXIT FROM THIS MODULE */ 00080000 B C16C0251 0167 00081000 * END; /* END OF NOT ERROR,BUT STOP CODE*/ 00082000 * IF RPLRTNCD<=4&$DEVLU(INDX)=ON THEN/* IF LU STATUS PASSED 0169 00083000 * BACK @DM00895*/ 00084000 @RF00164 CLI RPLRTNCD(RPLPTR),4 0169 00085000 BH @RF00169 0169 00086000 LR @11,INDX 0169 00087000 MH @11,@CH00335 0169 00088000 ALR @11,WAPTR 0169 00089000 TM $DEVLU-68(@11),B'00001000' 0169 00090000 BO @RT00169 0169 00091000 * GO TO C16C0253; /* PROCESS THE FEEDBACK */ 00092000 * IF RPLRTNCD='0C'X& /* WAS IT AN RFT RECEIVED */ 00093000 * RPLFDB2='02'X&INDX=CT /* FROM THE CT */ 00094000 * THEN 0171 00095000 @RF00169 CLI RPLRTNCD(RPLPTR),12 0171 00096000 BNE @RF00171 0171 00097000 CLI RPLFDB2(RPLPTR),2 0171 00098000 BNE @RF00171 0171 00099000 C INDX,@CF00072 0171 00100000 BNE @RF00171 0171 00101000 * DO; /* IF YES DO THE FOLLOWING */ 00102000 * $RETREG=0; 0173 00103000 SLR @11,@11 0173 00104000 ST @11,$RETREG(,WAPTR) 0173 00105000 * IF RPLAARLN=0 THEN 0174 00106000 C @11,RPLAARLN(,RPLPTR) 0174 00107000 BE @RT00174 0174 00108000 * GOTO C16C0100; 0175 00109000 * ELSE 0176 00110000 * GOTO C16C0225; /* GO & RETRY ORIG REQ */ 00111000 B C16C0225 0176 00112000 * END; 0177 00113000 * IF RPLRTNCD='04'X& /* WAS AN ATTENTION RECEIVED */ 00114000 * RPLFDB2='01'X&INDX=CT /* FROM CT */ 00115000 * THEN /* THEN DO THE FOLLOWING */ 00116000 @RF00171 CLI RPLRTNCD(RPLPTR),4 0178 00117000 BNE @RF00178 0178 00118000 CLI RPLFDB2(RPLPTR),1 0178 00119000 BNE @RF00178 0178 00120000 C INDX,@CF00072 0178 00121000 BNE @RF00178 0178 00122000 * DO; 0179 00123000 * $CIREQ=ON; /* SET C. I. REQ ON */ 00124000 OI $CIREQ(WAPTR),B'00000001' 0180 00125000 * $RETREG=0; /* SET ZERO RETURN CODE */ 00126000 SLR @00,@00 0181 00127000 ST @00,$RETREG(,WAPTR) 0181 00128000 * GOTO C16C0100; 0182 00129000 B C16C0100 0182 00130000 * END; 0183 00131000 * $RETREG=8; /* SET ERROR RC = 8 */ 00132000 @RF00178 MVC $RETREG(4,WAPTR),@CF00054 0184 00133000 *C16C0075: 0185 00134000 * CALL C16C0920; /* SET ERROR STATUS */ 00135000 C16C0075 BAL @14,C16C0920 0185 00136000 * GO TO C16C0251; /* EXIT FROM THE MODULE */ 00137000 B C16C0251 0186 00138000 * END; 0187 00139000 * ELSE 0188 00140000 * $RETREG=0; /* SET GOOD RC OF 00 */ 00141000 @RF00162 SLR @00,@00 0188 00142000 ST @00,$RETREG(,WAPTR) 0188 00143000 *C16C0100: 0189 00144000 * ; 0189 00145000 C16C0100 DS 0H 0190 00146000 * IF $DEVLU(INDX)=ON /* IF DEVICE IS AN LU */ 00147000 * THEN 0190 00148000 LR @11,INDX 0190 00149000 MH @11,@CH00335 0190 00150000 ST @11,@TF00001 0190 00151000 ALR @11,WAPTR 0190 00152000 TM $DEVLU-68(@11),B'00001000' 0190 00153000 BO @RT00190 0190 00154000 * GOTO C16C0253; /* THIS CODE HANDLES LU 0191 00155000 * INFORMATION */ 00156000 * IF INCT^=0 /* ONE WAY MSG? */ 00157000 * THEN 0192 00158000 L @11,@TF00001 0192 00159000 L @11,$CURELEM-68(@11,WAPTR) 0192 00160000 CLI INCT(@11),0 0192 00161000 BE @RF00192 0192 00162000 * DO; 0193 00163000 * IF RPLREQ='11'X|(RPLREQ='1D'X&RPLREOT=OFF)/* IF WRITE OR READ 00164000 * FOR EOT */ 00165000 * THEN 0194 00166000 CLI RPLREQ(RPLPTR),17 0194 00167000 BE @RT00194 0194 00168000 CLI RPLREQ(RPLPTR),29 0194 00169000 BNE @RF00194 0194 00170000 TM RPLREOT(RPLPTR),B'00001000' 0194 00171000 BNZ @RF00194 0194 00172000 @RT00194 DS 0H 0195 00173000 * DO; /* READING DATA FROM CT */ 00174000 * IF $DVINCT(1)^=0 THEN 0196 00175000 CLI $DVINCT(WAPTR),0 0196 00176000 BE @RF00196 0196 00177000 * DO; 0197 00178000 * RPLBUFL=$DVINCT(1); /* SET READ COUNT */ 00179000 SLR @00,@00 0198 00180000 IC @00,$DVINCT(,WAPTR) 0198 00181000 ST @00,RPLBUFL(,RPLPTR) 0198 00182000 * RPLAREA=ADDR($TRMINPT);/* POINT TO BUFFER */ 00183000 LA @00,$TRMINPT(,WAPTR) 0199 00184000 ST @00,RPLAREA(,RPLPTR) 0199 00185000 * END; 0200 00186000 * ELSE 0201 00187000 * DO; 0201 00188000 B @RC00196 0201 00189000 @RF00196 DS 0H 0202 00190000 * RPLBUFL=LENGTH(SCRATCH); 0202 00191000 MVC RPLBUFL(4,RPLPTR),@CF00072 0202 00192000 * RPLAREA=ADDR(SCRATCH); 0203 00193000 LA @00,SCRATCH 0203 00194000 ST @00,RPLAREA(,RPLPTR) 0203 00195000 * END; 0204 00196000 * GEN REFS(RPLPTR,ARG,ISTCC016); 0205 00197000 @RC00196 DS 0H 0205 00198000 * /* READ DATA */ 00199000 READ RPL=(RPLPTR),EXIT=ISTCC016,OPTCD=(ASY,TRUNC) 00200000 * IF R15^=0 THEN /* IF ERROR, GET OUT FAST */ 00201000 LTR R15,R15 0206 00202000 BNZ @RT00206 0206 00203000 * GO TO C16C0075; /* EXIT THE MODULE */ 00204000 * $DVINCT(1)=0; /* READ NO MORE DATA */ 00205000 MVI $DVINCT(WAPTR),X'00' 0208 00206000 * GOTO C16C0251; /* EXIT */ 00207000 B C16C0251 0209 00208000 * END; /* END OF READ FOR DATA */ 00209000 * CALL C16C0900; /* PUT DATA IN CALLERS BUFFER */ 00210000 @RF00194 BAL @14,C16C0900 0211 00211000 * END; /* END OF GETTING DATA FOR 0212 00212000 * TERMINAL */ 00213000 *C16C0200: 0213 00214000 * IF INDX=CT& /* CHECK FOR LOGOFF RECEIVED */ 00215000 * RPLFDB3='04'X /* IF YES */ 00216000 * THEN 0213 00217000 @RF00192 DS 0H 0213 00218000 C16C0200 C INDX,@CF00072 0213 00219000 BNE @RF00213 0213 00220000 CLI RPLFDB3(RPLPTR),4 0213 00221000 BNE @RF00213 0213 00222000 * $EOJ=ON; /* SET EOJ FLAG TO FORCE CANCEL */ 00223000 OI $EOJ(WAPTR),B'00000010' 0214 00224000 *C16C0250: 0215 00225000 * RPLSAVE=$CURELEM(INDX); /* SAVE PTR TO CURRENT ELEM */ 00226000 @RF00213 DS 0H 0215 00227000 C16C0250 LR @11,INDX 0215 00228000 MH @11,@CH00335 0215 00229000 L @00,$CURELEM-68(@11,WAPTR) 0215 00230000 ST @00,RPLSAVE 0215 00231000 * RESPECIFY 0216 00232000 * PTR1 RESTRICTED; /* DONT LET THIS REG GET ALTERED */ 00233000 * PTR1=INDX; /* POINT TO PARTICULAR ENTRY */ 00234000 LR PTR1,INDX 0217 00235000 * CALL C16C0265; /* START THE NEXT RPL */ 00236000 BAL @14,C16C0265 0218 00237000 * RESPECIFY 0219 00238000 * PTR1 UNRESTRICTED; /* RELEASE THIS REGISTER FOR USE */ 00239000 * RPLPTR=RPLSAVE; /* RESTORE ELEM PTR */ 00240000 L RPLPTR,RPLSAVE 0220 00241000 * IF RPLPTR^=0 THEN /* ONLY RELEASE IF THERE IS 0221 00242000 * SOMETHING TO RELEASE */ 00243000 LTR RPLPTR,RPLPTR 0221 00244000 BZ @RF00221 0221 00245000 * CALL C16C0270; /* FREE LAST RPL WE ARE DONE */ 00246000 BAL @14,C16C0270 0222 00247000 *C16C0251: 0223 00248000 * ; 0223 00249000 @RF00221 DS 0H 0223 00250000 C16C0251 DS 0H 0224 00251000 * R14=C16EXSAV; /* RESTORE RET REG */ 00252000 L R14,C16EXSAV 0224 00253000 * RETURN; /* RETURN TO VTAM */ 00254000 @EL00001 DS 0H 0225 00255000 @EF00001 DS 0H 0225 00256000 @ER00001 BR @14 0225 00257000 *C16C0225: 0226 00258000 * GEN SETS(RPLPTR); 0226 00259000 C16C0225 DS 0H 0226 00260000 EXECRPL RPL=(RPLPTR) 00261000 * IF R15^=0 THEN /* CHECK FOR AN ERROR */ 00262000 LTR R15,R15 0227 00263000 BNZ @RT00227 0227 00264000 * GO TO C16C0075; /* ERROR, GET OUT */ 00265000 * GOTO C16C0251; 0229 00266000 B C16C0251 0229 00267000 * 0230 00268000 * /*****************************************************************/ 00269000 * /* */ 00270000 * /* CODE TO HANDLE RECORD MODE */ 00271000 * /* */ 00272000 * /*****************************************************************/ 00273000 * 0230 00274000 *C16C0253: 0230 00275000 * R6=0; /* SET FLAG FOR STARTING QUEUE 0230 00276000 * AFTER RESPONSE OR NOT */ 00277000 C16C0253 SLR R6,R6 0230 00278000 * IF RPLRRESP=OFF /* IF IT IS A RESPONSE */ 00279000 * THEN 0231 00280000 LA @11,16 0231 00281000 ALR @11,RPLPTR 0231 00282000 TM RPLRRESP(@11),B'00001000' 0231 00283000 BNZ @RF00231 0231 00284000 * DO; 0232 00285000 * 0232 00286000 * /*************************************************************/ 00287000 * /* */ 00288000 * /* NOT A RESPONSE,EITHER NORMAL OR EXPIDITED FLOW */ 00289000 * /* */ 00290000 * /*************************************************************/ 00291000 * 0233 00292000 * IF RPLNFSYN=OFF /* IF IT IS NOT SYNCHRONEOUS */ 00293000 * THEN 0233 00294000 TM RPLNFSYN(@11),B'00000100' 0233 00295000 BNZ @RF00233 0233 00296000 * DO; 0234 00297000 * IF RPLSEQNO^=$DVSEQNO(INDX)/* CHECK FOR SEQ ERRORS */ 00298000 * THEN 0235 00299000 LR @11,INDX 0235 00300000 MH @11,@CH00335 0235 00301000 ALR @11,WAPTR 0235 00302000 CLC RPLSEQNO+60(2,RPLPTR),$DVSEQNO-68(@11) 0235 00303000 BE @RF00235 0235 00304000 * DO; 0236 00305000 * RPLSSNSO='0201'X; /* SET ERROR STATUS */ 00306000 MVC RPLSSNSO(2,RPLPTR),@CB01698 0237 00307000 * GOTO C16C0300; /* SEND RESPONSE */ 00308000 B C16C0300 0238 00309000 * END; 0239 00310000 * $DVSEQNO(INDX)=$DVSEQNO(INDX)+1;/* INCREMENT SEQ # BY 1 */ 00311000 @RF00235 LR @11,INDX 0240 00312000 MH @11,@CH00335 0240 00313000 LA @00,1 0240 00314000 LH @10,$DVSEQNO-68(@11,WAPTR) 0240 00315000 N @10,@CF01772 0240 00316000 ALR @00,@10 0240 00317000 STH @00,$DVSEQNO-68(@11,WAPTR) 0240 00318000 * END; 0241 00319000 * IF BINBRAK=ON /* IF BOUND WITH BRACKETS */ 00320000 * THEN 0242 00321000 @RF00233 LR @11,INDX 0242 00322000 MH @11,@CH00335 0242 00323000 LA @10,$DEVSESP-68(@11,WAPTR) 0242 00324000 TM BINBRAK-1(@10),B'00100000' 0242 00325000 BNO @RF00242 0242 00326000 * DO; 0243 00327000 * IF RPLBB=ON /* IF BEGIN BRACKET ON */ 00328000 * THEN 0244 00329000 TM RPLBB+16(RPLPTR),B'10000000' 0244 00330000 BNO @RF00244 0244 00331000 * $DVBRKST(INDX)=INB; /* GOING INTO BRACKET */ 00332000 LA @00,1 0245 00333000 STC @00,$DVBRKST-68(@11,WAPTR) 0245 00334000 * IF RPLEB=ON /* IF END BRACKET ON */ 00335000 * THEN 0246 00336000 @RF00244 TM RPLEB+16(RPLPTR),B'01000000' 0246 00337000 BNO @RF00246 0246 00338000 * $DVBRKST(INDX)=BETB; /* GOING TO BETWEEN BRACKETS */ 00339000 LR @11,INDX 0247 00340000 MH @11,@CH00335 0247 00341000 SLR @00,@00 0247 00342000 STC @00,$DVBRKST-68(@11,WAPTR) 0247 00343000 * END; 0248 00344000 @RF00246 DS 0H 0249 00345000 * N=MIN(RPLBUFL,RPLRLEN); /* GET NUMBER OF BYTES GIVEN BY 00346000 * VTAM */ 00347000 @RF00242 L @00,RPLBUFL(,RPLPTR) 0249 00348000 L @11,RPLRLEN(,RPLPTR) 0249 00349000 CR @00,@11 0249 00350000 BNH *+6 00351000 LR @00,@11 0249 00352000 STH @00,N 0249 00353000 * IF $ASCII(INDX)=ON&RPLCSI=ON/* IF ASCII */ 00354000 * THEN 0250 00355000 LR @11,INDX 0250 00356000 MH @11,@CH00335 0250 00357000 ALR @11,WAPTR 0250 00358000 TM $ASCII-68(@11),B'00000100' 0250 00359000 BNO @RF00250 0250 00360000 TM RPLCSI+16(RPLPTR),B'00001000' 0250 00361000 BNO @RF00250 0250 00362000 * DO I=1 TO N; /* TRANSLATE EACH CHARACTER TO 0251 00363000 * ASCII */ 00364000 LA @00,1 0251 00365000 B @DE00251 0251 00366000 @DL00251 DS 0H 0252 00367000 * DO M=1 TO LENGTH($TRASCII);/* SEARCH FOR ASCII MATCH */ 00368000 LA @00,1 0252 00369000 STH @00,M 0252 00370000 @DL00252 DS 0H 0253 00371000 * IF $TRMINPT(I)=$TRASCII(M)/* IF CHAR FOUND IN TABLE */ 00372000 * THEN 0253 00373000 LH @11,I 0253 00374000 L @10,RCAPTR(,WAPTR) 0253 00375000 ALR @11,WAPTR 0253 00376000 ALR @10,@00 0253 00377000 CLC $TRMINPT-1(1,@11),$TRASCII-1(@10) 0253 00378000 BNE @RF00253 0253 00379000 * DO; 0254 00380000 * $TRMINPT(I)=M-1; /* SET TO EBCDIC VALUE */ 00381000 LH @11,I 0255 00382000 BCTR @00,0 0255 00383000 STC @00,$TRMINPT-1(@11,WAPTR) 0255 00384000 * GOTO C16C0254; 0256 00385000 B C16C0254 0256 00386000 * END; 0257 00387000 * END; 0258 00388000 @RF00253 LA @00,1 0258 00389000 AH @00,M 0258 00390000 STH @00,M 0258 00391000 C @00,@CF00083 0258 00392000 BNH @DL00252 0258 00393000 * RPLSSNSO='1001'X; /* SET ERROR STATUS */ 00394000 MVC RPLSSNSO(2,RPLPTR),@CB01702 0259 00395000 * GOTO C16C0300; /* SEND RESPONSE */ 00396000 B C16C0300 0260 00397000 *C16C0254: 0261 00398000 * END; 0261 00399000 C16C0254 LA @00,1 0261 00400000 AH @00,I 0261 00401000 @DE00251 STH @00,I 0261 00402000 CH @00,N 0261 00403000 BNH @DL00251 0261 00404000 * IF RPLDATA=OFF /* IF NO DATA RECEIVED */ 00405000 * THEN 0262 00406000 @RF00250 LA @11,16 0262 00407000 ALR @11,RPLPTR 0262 00408000 TM RPLDATA(@11),B'10000000' 0262 00409000 BNZ @RF00262 0262 00410000 * DO; /* THIS IS A CONTROL FUNCTION */ 00411000 * 0263 00412000 * /*********************************************************/ 00413000 * /* */ 00414000 * /* PROCESSING A FUNCTION NOT DATA */ 00415000 * /* */ 00416000 * /*********************************************************/ 00417000 * 0264 00418000 * IF RPLCNCEL=ON /* WAS CANCEL REQUESTED */ 00419000 * THEN 0264 00420000 TM RPLCNCEL(@11),B'01000000' 0264 00421000 BNO @RF00264 0264 00422000 * DO; 0265 00423000 * $DVINCT(INDX)=LENGTH($TRMINPT);/* READ A NEW MESSAGE */ 00424000 LR @11,INDX 0266 00425000 MH @11,@CH00335 0266 00426000 LA @00,80 0266 00427000 STC @00,$DVINCT-68(@11,WAPTR) 0266 00428000 * $TRMINPT=$TRMINPT&&$TRMINPT;/* SCRATCH OLD MSG */ 00429000 XC $TRMINPT(80,WAPTR),$TRMINPT(WAPTR) 0267 00430000 * GOTO C16C0300; 0268 00431000 B C16C0300 0268 00432000 * END; /* SEND RESPONSE */ 00433000 * IF RPLSIGNL=ON /* IS IT A SIGNAL */ 00434000 * THEN 0270 00435000 @RF00264 TM RPLSIGNL+16(RPLPTR),B'00010000' 0270 00436000 BNO @RF00270 0270 00437000 * DO; 0271 00438000 * $CIREQ=ON; /* COMMUNICATION INTERVAL 0272 00439000 * REQUIRED */ 00440000 OI $CIREQ(WAPTR),B'00000001' 0272 00441000 * GOTO C16C0300; /* SEND RESPONSE */ 00442000 B C16C0300 0273 00443000 * END; 0274 00444000 * IF RPLCHASE=ON /* IS IT A CHASE */ 00445000 * THEN 0275 00446000 @RF00270 LA @11,16 0275 00447000 ALR @11,RPLPTR 0275 00448000 TM RPLCHASE(@11),B'00001000' 0275 00449000 BO @RT00275 0275 00450000 * GOTO C16C0300; /* SEND RESPONSE */ 00451000 * IF RPLLUS=ON /* IS LU STATU BEING SENT */ 00452000 * THEN 0277 00453000 TM RPLLUS(@11),B'00100000' 0277 00454000 BNO @RF00277 0277 00455000 * IF RPLSSEI=0 /* IS ERROR STATUS ZERO */ 00456000 * THEN 0278 00457000 CLI RPLSSEI(RPLPTR),0 0278 00458000 BE @RT00278 0278 00459000 * GOTO C16C0300; /* SEND RESPONSE */ 00460000 * ELSE 0280 00461000 * GOTO C16C0075; 0280 00462000 B C16C0075 0280 00463000 * IF RPLSHUTD=ON|RPLSHUTC=ON|RPLRSHUT=ON/* IF ANY SHUTDOWN 00464000 * REQUESTS ARE ON */ 00465000 * THEN 0281 00466000 @RF00277 LA @11,16 0281 00467000 ALR @11,RPLPTR 0281 00468000 TM RPLSHUTD(@11),B'00011010' 0281 00469000 BNZ @RT00281 0281 00470000 * GOTO C16C0075; 0282 00471000 * IF RPLRTR=ON /* IS TERMINAL READY TO RECEIVE 00472000 * DATA */ 00473000 * THEN 0283 00474000 TM RPLRTR(@11),B'01000000' 0283 00475000 BNO @RF00283 0283 00476000 * RPLSSNSO='0819'X; /* SET ERROR STATUS */ 00477000 MVC RPLSSNSO(2,RPLPTR),@CB01704 0284 00478000 * ELSE 0285 00479000 * RPLSSNSO='1007'X; /* SET ERROR STATUS */ 00480000 B @RC00283 0285 00481000 @RF00283 MVC RPLSSNSO(2,RPLPTR),@CB01705 0285 00482000 * GOTO C16C0300; /* SEND RESPONSE */ 00483000 B C16C0300 0286 00484000 * END; 0287 00485000 * IF RPLFMHDR=ON /* IS THERE AN FM HEADER @DM00898*/ 00486000 * THEN /* @DM00898*/ 00487000 @RF00262 TM RPLFMHDR(RPLPTR),B'00000001' 0288 00488000 BNO @RF00288 0288 00489000 * DO; /* @DM00898*/ 00490000 * RPLSSNSO='1008'X; /* SET ERROR STATUS @DM00898*/ 00491000 MVC RPLSSNSO(2,RPLPTR),@CB01706 0290 00492000 * GOTO C16C0300; /* SEND RESPONSE @DM00898*/ 00493000 B C16C0300 0291 00494000 * END; /* @DM00898*/ 00495000 * 0292 00496000 * /*************************************************************/ 00497000 * /* */ 00498000 * /* DATA RECEIVED,CHECK IF WE MUST WAIT FOR MORE */ 00499000 * /* */ 00500000 * /*************************************************************/ 00501000 * 0293 00502000 * IF RPLONLY^=ON&RPLLAST^=ON /* IS IT END OF CHAIN */ 00503000 * THEN 0293 00504000 @RF00288 TM RPLONLY+16(RPLPTR),B'00110000' 0293 00505000 BNZ @RF00293 0293 00506000 * DO; 0294 00507000 * $DVINCT(INDX)=0; /* DON'T READ ANYMORE DATA FROM 00508000 * TERMINAL */ 00509000 LR @11,INDX 0295 00510000 MH @11,@CH00335 0295 00511000 SLR @00,@00 0295 00512000 STC @00,$DVINCT-68(@11,WAPTR) 0295 00513000 * GOTO C16C0300; /* SEND RESPONSE */ 00514000 B C16C0300 0296 00515000 * END; 0297 00516000 * IF $CURELEM(INDX)=0|INCT=0|$DVSNDOK(INDX)='0'B/* IF NO 0298 00517000 * ELEMENTS */ 00518000 * THEN 0298 00519000 @RF00293 LR @11,INDX 0298 00520000 MH @11,@CH00335 0298 00521000 L @10,$CURELEM-68(@11,WAPTR) 0298 00522000 LTR @10,@10 0298 00523000 BZ @RT00298 0298 00524000 CLI INCT(@10),0 0298 00525000 BE @RT00298 0298 00526000 ALR @11,WAPTR 0298 00527000 TM $DVSNDOK-68(@11),B'00010000' 0298 00528000 BNZ @RF00298 0298 00529000 @RT00298 DS 0H 0299 00530000 * $CIREQ=ON; /* COMMUNICATION INTERVAL 0299 00531000 * REQUIRED */ 00532000 OI $CIREQ(WAPTR),B'00000001' 0299 00533000 * ELSE 0300 00534000 * DO; /* DATA RECEIVED FROM CT, PASS IT 00535000 * BACK */ 00536000 B @RC00298 0300 00537000 @RF00298 DS 0H 0301 00538000 * CALL C16C0900; /* PASS BACK RESPONSE TO CALLER */ 00539000 BAL @14,C16C0900 0301 00540000 * R6=1; /* START NEXT ELEMENT ON QUEUE */ 00541000 LA R6,1 0302 00542000 * END; /* END OF DATA RECEIVED FROM CT */ 00543000 *C16C0300: 0304 00544000 * IF(RPLNFME=OFF|RPLRRN=ON)& /* IF RESP TYPE 1 OR 2 @DM00899*/ 00545000 * (RPLEX=OFF|RPLSSEO^=0) THEN/* AND NORMAL OR ECEPTION 0304 00546000 * @DM00899*/ 00547000 @RC00298 DS 0H 0304 00548000 C16C0300 TM RPLRRN+16(RPLPTR),B'00000001' 0304 00549000 BNZ @GL00018 0304 00550000 TM RPLNFME+16(RPLPTR),B'00000010' 0304 00551000 BO @RF00304 0304 00552000 @GL00018 TM RPLEX+16(RPLPTR),B'00000100' 0304 00553000 BZ @RT00304 0304 00554000 CLI RPLSSEO(RPLPTR),0 0304 00555000 BE @RF00304 0304 00556000 @RT00304 DS 0H 0305 00557000 * DO; /* RESPONSE REQUIRED TO INBOUND 00558000 * REQUEST @DM00899*/ 00559000 * IF RPLSSEO^=0 THEN /* EXCEPTION RESPONSE @DM00899*/ 00560000 CLI RPLSSEO(RPLPTR),0 0306 00561000 BE @RF00306 0306 00562000 * RPLEX=ON; /* YES,SET EXCEPTION BIT @DM00899*/ 00563000 OI RPLEX+16(RPLPTR),B'00000100' 0307 00564000 * ARG=$CID(INDX); /* PICK UP THE CID */ 00565000 @RF00306 LR @11,INDX 0308 00566000 MH @11,@CH00335 0308 00567000 ALR @11,WAPTR 0308 00568000 ICM ARG,15,$CID-68(@11) 0308 00569000 * GEN REFS(RPLPTR,ARG); 0309 00570000 * /* SEND RESPONSE */ 00571000 SEND RPL=(RPLPTR),POST=SCHED,STYPE=RESP,OPTCD=SYN,ARG=(ARG) 00572000 * IF R15^=0 THEN /* CHECK FOR ERROR RETURN CODE */ 00573000 LTR R15,R15 0310 00574000 BNZ @RT00310 0310 00575000 * GO TO C16C0075; /* ERROR, GET OUT */ 00576000 * END; 0312 00577000 * IF R6^=0|$CURELEM(INDX)=0 /* SHOULD WE FREE THIS ELEMENT 0313 00578000 * AND START ANEW @DM00899*/ 00579000 * THEN 0313 00580000 @RF00304 SLR @11,@11 0313 00581000 CR R6,@11 0313 00582000 BNE @RT00313 0313 00583000 LR @10,INDX 0313 00584000 MH @10,@CH00335 0313 00585000 C @11,$CURELEM-68(@10,WAPTR) 0313 00586000 BE @RT00313 0313 00587000 * GOTO C16C0250; /* GET NEXT MESSAGE */ 00588000 *C16C0256: 0315 00589000 * RPLAREA=ADDR($TRMINPT); /* POINT TO THE BUFFER */ 00590000 C16C0256 LA @00,$TRMINPT(,WAPTR) 0315 00591000 ST @00,RPLAREA(,RPLPTR) 0315 00592000 * RPLBUFL=$DVINCT(INDX); /* SET FOR NUMBER OF BYTES TO 0316 00593000 * READ */ 00594000 LR @11,INDX 0316 00595000 MH @11,@CH00335 0316 00596000 SLR @00,@00 0316 00597000 IC @00,$DVINCT-68(@11,WAPTR) 0316 00598000 ST @00,RPLBUFL(,RPLPTR) 0316 00599000 * ARG=$CID(INDX); /* PICK UP THE CID */ 00600000 ALR @11,WAPTR 0317 00601000 ICM ARG,15,$CID-68(@11) 0317 00602000 * GEN REFS(RPLPTR,ARG); 0318 00603000 * /* DO A RECEIVE */ 00604000 RECEIVE RPL=(RPLPTR),ARG=(ARG),EXIT=ISTCC016, X00605000 OPTCD=(ASY,TRUNC,Q),RTYPE=(DFSYN,DFASY,RESP) 00606000 * IF R15^=0 THEN /* CHECK FOR ERROR RETURN CODE */ 00607000 LTR R15,R15 0319 00608000 BNZ @RT00319 0319 00609000 * GO TO C16C0075; /* IF ERROR,EXIT */ 00610000 * GOTO C16C0251; /* EXIT */ 00611000 B C16C0251 0321 00612000 * END; 0322 00613000 * 0322 00614000 * /*****************************************************************/ 00615000 * /* */ 00616000 * /* RESPONSE RECEIVED FROM OUR REQUEST */ 00617000 * /* */ 00618000 * /*****************************************************************/ 00619000 * 0323 00620000 * IF RPLEX=ON /* DID REQUEST TERMINATE WITH 0323 00621000 * EXCEPTION */ 00622000 * THEN 0323 00623000 @RF00231 TM RPLEX+16(RPLPTR),B'00000100' 0323 00624000 BNO @RF00323 0323 00625000 * DO; /* YES IT TERMINATED WITH AN 0324 00626000 * EXCEPTION */ 00627000 * IF RPLSSEI='08'X&(RPLSSMI='13'X|RPLSSMI='14'X|RPLSSMI='1B'X) 00628000 * /* IS IT A TEMPORARY ERROR */ 00629000 * THEN 0325 00630000 CLI RPLSSEI(RPLPTR),X'08' 0325 00631000 BNE @RF00325 0325 00632000 CLI RPLSSMI(RPLPTR),19 0325 00633000 BE @RT00325 0325 00634000 CLI RPLSSMI(RPLPTR),20 0325 00635000 BE @RT00325 0325 00636000 CLI RPLSSMI(RPLPTR),27 0325 00637000 BNE @RF00325 0325 00638000 @RT00325 DS 0H 0326 00639000 * DO; 0326 00640000 * CALL C16C0280; /* ADD ELEMENT BACK ON QUE */ 00641000 BAL @14,C16C0280 0327 00642000 * IF $DVSNDOK(INDX)=ON /* IF OK TO SEND NEXT MSG */ 00643000 * THEN 0328 00644000 LR @11,INDX 0328 00645000 MH @11,@CH00335 0328 00646000 ALR @11,WAPTR 0328 00647000 TM $DVSNDOK-68(@11),B'00010000' 0328 00648000 BO @RT00328 0328 00649000 * GOTO C16C0250; /* GET ELEMENT OFF QUE AND START 00650000 * IT */ 00651000 * ELSE 0330 00652000 * GOTO C16C0256; /* GOTO RECEIVE INPUT */ 00653000 B C16C0256 0330 00654000 * END; 0331 00655000 * ELSE 0332 00656000 * GOTO C16C0075; /* FLAG CT OR AP AS AN ERROR */ 00657000 * END; 0333 00658000 * $DVSNDOK(INDX)=ON; 0334 00659000 @RF00323 LR @11,INDX 0334 00660000 MH @11,@CH00335 0334 00661000 ST @11,@TF00001 0334 00662000 ALR @11,WAPTR 0334 00663000 OI $DVSNDOK-68(@11),B'00010000' 0334 00664000 * IF BINBRAK=ON /* IF BOUND WITH BRACKETS */ 00665000 * THEN 0335 00666000 L @11,@TF00001 0335 00667000 LA @11,$DEVSESP-68(@11,WAPTR) 0335 00668000 BCTR @11,0 0335 00669000 TM BINBRAK(@11),B'00100000' 0335 00670000 BNO @RF00335 0335 00671000 * IF BINBKTR=ON&$DVBRKSN(INDX)=SNDEB/* CHECK BRACKET */ 00672000 * THEN 0336 00673000 TM BINBKTR(@11),B'00010000' 0336 00674000 BNO @RF00336 0336 00675000 L @11,@TF00001 0336 00676000 SLR @00,@00 0336 00677000 IC @00,$DVBRKSN-68(@11,WAPTR) 0336 00678000 C @00,@CF00137 0336 00679000 BNE @RF00336 0336 00680000 * $DVBRKST(INDX)=BETB; /* NOW BETWEEN BRACKETS */ 00681000 SLR @00,@00 0337 00682000 L @11,@TF00001 0337 00683000 STC @00,$DVBRKST-68(@11,WAPTR) 0337 00684000 * ELSE 0338 00685000 * IF $DVBRKSN(INDX)=SNDBB /* WAS BEGIN BRACKET SUCCESSFUL */ 00686000 * THEN 0338 00687000 B @RC00336 0338 00688000 @RF00336 LA @11,1 0338 00689000 LR @10,INDX 0338 00690000 MH @10,@CH00335 0338 00691000 SLR @00,@00 0338 00692000 IC @00,$DVBRKSN-68(@10,WAPTR) 0338 00693000 CR @11,@00 0338 00694000 BNE @RF00338 0338 00695000 * $DVBRKST(INDX)=INB; /* NOW IN BRACKET */ 00696000 STC @11,$DVBRKST-68(@10,WAPTR) 0339 00697000 * IF $CURELEM(INDX)->INCT^=0 /* POINT TO CURRENT ELEMENT AND 00698000 * CHECK FOR INPUT */ 00699000 * THEN 0340 00700000 @RF00338 DS 0H 0340 00701000 @RC00336 DS 0H 0340 00702000 @RF00335 LR @11,INDX 0340 00703000 MH @11,@CH00335 0340 00704000 L @11,$CURELEM-68(@11,WAPTR) 0340 00705000 CLI INCT(@11),0 0340 00706000 BNE @RT00340 0340 00707000 * GOTO C16C0256; /* GOTO RECEIVE INPUT */ 00708000 * GOTO C16C0250; /* GET ELEMENT OFF QUE AND START 00709000 * IT */ 00710000 B C16C0250 0342 00711000 * RESPECIFY 0343 00712000 * (R0, 0343 00713000 * R1) RESTRICTED; /* DONT LET THESE REGISTERS GET 00714000 * ALTRED */ 00715000 *C16C1000: 0344 00716000 * GEN REFS(C16C1000,BASE,R12,R13,R14,R15,C16CBUF2); 0344 00717000 C16C1000 DS 0H 0344 00718000 * /*SETUP @ZD10878*/ 00719000 USING C16C1000,R15 00720000 STM R14,R12,12(R13) SAVE CALLERS REGISTERS 00721000 L R12,BASE PICK UP COMMON BASE ADDRESS 00722000 DROP R15 00723000 LA R9,C16CBUF2 POINT TO MAINLINE WORK AREA @ZD10878 00724000 * SAVEA(2)=R13; /* SAVE ADDRESS OF CALLERS 0345 00725000 * SAVEAREA */ 00726000 ST R13,SAVEA+4 0345 00727000 * BACKSAVE(3)=ADDR(SAVEA); /* POINT TO MY SAVEAREA */ 00728000 LA @11,SAVEA 0346 00729000 ST @11,BACKSAVE+8(,R13) 0346 00730000 * R13=ADDR(SAVEA); /* GET ADDRESS OF MY SAVEAREA */ 00731000 LR R13,@11 0347 00732000 * INDX=R1; /* POINT TO ENTRY IN DEV TABLE */ 00733000 LR INDX,R1 0348 00734000 * IF R0=0 THEN /* IF CALLED TO START A QUE */ 00735000 LTR R0,R0 0349 00736000 BNZ @RF00349 0349 00737000 * DO; /* THEN START THE QUEUE PASSED IN 00738000 * R1 */ 00739000 * CALL C16C0265; /* START THE QUEUE POINTED TO BY 00740000 * R1 */ 00741000 BAL @14,C16C0265 0351 00742000 * GO TO C16C1050; /* EXIT THE MODULE */ 00743000 B C16C1050 0352 00744000 * END; /* END OF ROUTINE TO START QUEUE */ 00745000 * IF R0=4 THEN /* IF CALLED TO PURGE A QUEUE */ 00746000 @RF00349 C R0,@CF00068 0354 00747000 BNE @RF00354 0354 00748000 * DO; /* PURGE QUEUE POINTED TO BY RU */ 00749000 * RESPECIFY 0356 00750000 * (PTR1, 0356 00751000 * PTR2) RESTRICTED; /* DONT ALTER REGISTERS */ 00752000 * PTR2=PTR1; /* SAVE ADDRESS OF QUEUE */ 00753000 LR PTR2,PTR1 0357 00754000 * R0=0; /* INDICATE NO ELEMENTS ON CHAIN */ 00755000 SLR R0,R0 0358 00756000 *C16C1005: 0359 00757000 * PTR1=LASTCHN; /* GET CHAIN PTR */ 00758000 C16C1005 L PTR1,LASTCHN(,PTR2) 0359 00759000 * CS(PTR1,R0,LASTCHN); /* REMOVE ALL ELEMENTS FROM QUEUE*/ 00760000 CS PTR1,@00,LASTCHN(PTR2) 0360 00761000 * BC(4,C16C1005); /* COMPARE AND SWAP FAILED, TRY 00762000 * AGAIN */ 00763000 BC 4,C16C1005 0361 00764000 * IF((PTR1&GATEBIT0)^=0) THEN /* CHECK FOR ANYTHING ON QUE 0362 00765000 * @ZD10874*/ 00766000 LR @11,PTR1 0362 00767000 N @11,@CF00617 0362 00768000 LTR @11,@11 0362 00769000 BZ @RF00362 0362 00770000 * DO; 0363 00771000 * R8=PTR1; /* POINT TO NEXT ELEMENT @DA04688*/ 00772000 LR R8,PTR1 0364 00773000 *C16C1025: 0365 00774000 * RPLPTR=R8; /* POINT TO ELE TO BE FREED 0365 00775000 * @ZD10874*/ 00776000 C16C1025 LR RPLPTR,R8 0365 00777000 * R8=RPLPTR->CHAIN&GATEBIT0;/* POINT TO NEXT ELE @ZD10874*/ 00778000 L R8,CHAIN(,RPLPTR) 0366 00779000 N R8,@CF00617 0366 00780000 * CALL C16C0270; /* FREE THIS ELEMENT @ZD10874*/ 00781000 BAL @14,C16C0270 0367 00782000 * IF R8^=0 THEN /* ANY ELEMENTS LEFT ON QUE 0368 00783000 * @ZD10874*/ 00784000 LTR R8,R8 0368 00785000 BNZ @RT00368 0368 00786000 * GOTO C16C1025; /* YES FREE IT @ZD10874*/ 00787000 * END; /* END OF LOOPING THOOUGHT THE 0370 00788000 * ELEMENTS */ 00789000 * GO TO C16C1050; /* EXIT THE MODULE */ 00790000 B C16C1050 0371 00791000 * END; /* END OF FREEING HE QUE CODE */ 00792000 *C16C1050: 0373 00793000 * GEN REFS(R13,R12,R14); 0373 00794000 @RF00354 DS 0H 0373 00795000 C16C1050 DS 0H 0373 00796000 L R13,4(R13) PICK UP LAST SAVE AREA ADDRESS 00797000 LM R14,R12,12(R13) RESTORE REGISTERS 00798000 BR R14 RETURN TO CALLER 00799000 * RESPECIFY 0374 00800000 * (PTR1, 0374 00801000 * PTR2) UNRESTRICTED; /* REGISTERS ARE FREE AGAIN */ 00802000 * RESPECIFY 0375 00803000 * (R0, 0375 00804000 * R1) UNRESTRICTED; /* RELEASE THESE REGISTERS FOR 0375 00805000 * USE */ 00806000 *C16C0255: 0376 00807000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0376 00808000 B @PB00002 0376 00809000 C16C0255 DS 0H 0377 00810000 * RESPECIFY 0377 00811000 * (PTR1, 0377 00812000 * PTR2) RESTRICTED; /* DONT ALTER REGISTERS */ 00813000 * R7=R14; /* SAVE R14 FOR RETRUN */ 00814000 LR R7,R14 0378 00815000 * PTR2=ADDR($MSGOTSD(INDX)); /* SAVE PTR1 */ 00816000 LR @11,INDX 0379 00817000 MH @11,@CH00335 0379 00818000 LA PTR2,$MSGOTSD-68(@11,WAPTR) 0379 00819000 * PTR1=LASTCHN&GATEBIT0; /* PTR TO 1ST ELEMENT */ 00820000 L PTR1,LASTCHN(,PTR2) 0380 00821000 N PTR1,@CF00617 0380 00822000 * IF PTR1=0 THEN /* IF NO OUTSTANDING MESSAGES */ 00823000 LTR PTR1,PTR1 0381 00824000 BNZ @RF00381 0381 00825000 * DO; /* HANDLE AS SPECIAL CASE */ 00826000 * LASTCHN=PTR1; /* SET MESSAGES OUTSTANDING TO 0383 00827000 * ZERO */ 00828000 ST PTR1,LASTCHN(,PTR2) 0383 00829000 * R1=ADDR($TLTECB2); /* POINT TO ECB TO BE POSTED 0384 00830000 * @ZD10879*/ 00831000 L R1,RCAPTR(,WAPTR) 0384 00832000 LA R1,$TLTECB2(,R1) 0384 00833000 * IF $CTEQTT='1'B&($SNDRFLG='1'B|$EXIOWAT='1'B)/* POST ECB 0385 00834000 * @ZD10879*/ 00835000 * THEN 0385 00836000 TM $CTEQTT(WAPTR),B'00010000' 0385 00837000 BNO @RF00385 0385 00838000 TM $SNDRFLG(WAPTR),B'00100100' 0385 00839000 BZ @RF00385 0385 00840000 * CALL I00C1001; /* POST ECB @ZD10879*/ 00841000 L @15,@CV01727 0386 00842000 BALR @14,@15 0386 00843000 * PTR1=0; /* SHOW NO ELEMENT FOUND @ZD10879*/ 00844000 @RF00385 SLR PTR1,PTR1 0387 00845000 * GO TO C16C0260; /* EXIT FROM THE FUNCTION */ 00846000 B C16C0260 0388 00847000 * END; /* END OF THE SPECIAL CASE */ 00848000 * DO WHILE((PTR1->CHAIN&GATEBIT0)^=0);/* LOOP UNTIL LAST ELEMENT */ 00849000 @RF00381 B @DE00390 0390 00850000 @DL00390 DS 0H 0391 00851000 * PTR2=PTR1; /* ADDR OF PTR TO NEXT ELEMENT */ 00852000 LR PTR2,PTR1 0391 00853000 * PTR1=PTR2->CHAIN; /* ADDR OF NEXT ELEMENT */ 00854000 L PTR1,CHAIN(,PTR2) 0392 00855000 * END; /* END OF LOOP LOOKING FOR LAST 00856000 * ELEMENT */ 00857000 @DE00390 L @00,CHAIN(,PTR1) 0393 00858000 N @00,@CF00617 0393 00859000 LTR @00,@00 0393 00860000 BNZ @DL00390 0393 00861000 * PTR2->LASTCHN=GATEBIT1; /* ZERO LAST CHAIN PTR */ 00862000 MVC LASTCHN(4,PTR2),@CF00619 0394 00863000 *C16C0260: 0395 00864000 * R14=R7; /* RETURN TO THE CALLER */ 00865000 C16C0260 LR R14,R7 0395 00866000 * END C16C0255; /* END OF SUBROUTINE TO REMOVE 0396 00867000 * ELEMENT FROM QUEUE */ 00868000 @EL00002 DS 0H 0396 00869000 @EF00002 DS 0H 0396 00870000 @ER00002 BR @14 0396 00871000 * RESPECIFY 0397 00872000 * (PTR1, 0397 00873000 * PTR2) UNRESTRICTED; /* REGISTERS ARE FREE AGAIN */ 00874000 * RESPECIFY 0398 00875000 * R1 RESTRICTED; /* DONT LET THIS REG GET ALTERED */ 00876000 *C16C0265: 0399 00877000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0399 00878000 C16C0265 DS 0H 0400 00879000 * R8=R14; /* SAVE THE RETURN ADDRESS */ 00880000 LR R8,R14 0400 00881000 * CALL C16C0255; /* GET AN RPL TO PROCESS */ 00882000 BAL @14,C16C0255 0401 00883000 * $CURELEM(INDX)=PTR1; 0402 00884000 LR @11,INDX 0402 00885000 MH @11,@CH00335 0402 00886000 ST PTR1,$CURELEM-68(@11,WAPTR) 0402 00887000 * RPLPTR=ADDR($TLTRPL1); /* POINT TO THE CT RPL */ 00888000 LA RPLPTR,$TLTRPL1(,WAPTR) 0403 00889000 * IF INDX=2 THEN /* CHECK TO SEE WHICH RPL IS 0404 00890000 * CORRECT */ 00891000 C INDX,@CF00137 0404 00892000 BNE @RF00404 0404 00893000 * RPLPTR=ADDR($TLTRPL2); /* MUST BE AN AP */ 00894000 LA RPLPTR,$TLTRPL2(,WAPTR) 0405 00895000 * ARG=$CID(INDX); /* PICK UP THE CID */ 00896000 @RF00404 LR @11,INDX 0406 00897000 MH @11,@CH00335 0406 00898000 ST @11,@TF00001 0406 00899000 ALR @11,WAPTR 0406 00900000 ICM ARG,15,$CID-68(@11) 0406 00901000 * IF R1^=0 THEN /* CHECK FOR ELEMENT TO PROCESS */ 00902000 LTR R1,R1 0407 00903000 BZ @RF00407 0407 00904000 * DO; /* IF THER WAS A RETURNED 0408 00905000 * ELEMENT, START IT */ 00906000 * RESPECIFY 0409 00907000 * R1 UNRESTRICTED; /* RELEASE THIS REGISTER FOR USE */ 00908000 * R7=ADDR(MSG); /* POINT TO MSG TO BE SENT */ 00909000 L @11,@TF00001 0410 00910000 L @11,$CURELEM-68(@11,WAPTR) 0410 00911000 LA R7,MSG(,@11) 0410 00912000 * R6=OUTCT; /* SET UP LENGTH OF OUTBOUND MSG */ 00913000 SLR R6,R6 0411 00914000 IC R6,OUTCT(,@11) 0411 00915000 * IF $DEVLU(INDX)=OFF /* IF NOT AN LU */ 00916000 * THEN 0412 00917000 LR @11,WAPTR 0412 00918000 AL @11,@TF00001 0412 00919000 TM $DEVLU-68(@11),B'00001000' 0412 00920000 BNZ @RF00412 0412 00921000 * DO; 0413 00922000 * IF $DVCTBYT(INDX)=OFF /* IF NO CONTROL BYTE PRESENT */ 00923000 * THEN 0414 00924000 LR @11,WAPTR 0414 00925000 AL @11,@TF00001 0414 00926000 TM $DVCTBYT-68(@11),B'00000010' 0414 00927000 BNZ @RF00414 0414 00928000 * GEN REFS(RPLPTR,ISTCC016,ARG,R6,R7); 0415 00929000 WRITE RPL=(RPLPTR),OPTCD=ASY,EXIT=ISTCC016,ARG=(ARG), X00930000 AREA=(R7),RECLEN=(R6) 00931000 * ELSE 0416 00932000 * DO; 0416 00933000 B @RC00414 0416 00934000 @RF00414 DS 0H 0417 00935000 * R7=R7+1; /* SKIP OVER CONTROL BYTE */ 00936000 AL R7,@CF00072 0417 00937000 * R6=R6-1; /* REDUCE THE COUNT */ 00938000 BCTR R6,0 0418 00939000 * IF MSG(1)='1' /* SHOULD SCREEN BE ERASED */ 00940000 * THEN 0419 00941000 LR @11,INDX 0419 00942000 MH @11,@CH00335 0419 00943000 L @11,$CURELEM-68(@11,WAPTR) 0419 00944000 CLI MSG(@11),C'1' 0419 00945000 BNE @RF00419 0419 00946000 * GEN REFS(RPLPTR,ISTCC016,ARG,R6,R7); 0420 00947000 WRITE RPL=(RPLPTR),EXIT=ISTCC016,ARG=(ARG),RECLEN=(R6), X00948000 AREA=(R7),OPTCD=(ASY,LBT,NERASE) 00949000 * ELSE 0421 00950000 * GEN REFS(RPLPTR,ISTCC016,ARG,R6,R7); 0421 00951000 B @RC00419 0421 00952000 @RF00419 DS 0H 0421 00953000 WRITE RPL=(RPLPTR),EXIT=ISTCC016,ARG=(ARG),RECLEN=(R6), X00954000 AREA=(R7),OPTCD=(ASY,LBT,ERASE) 00955000 * END; 0422 00956000 * END; 0423 00957000 * ELSE /* PROCESS AN LU @D32JPGH*/ 00958000 * DO; 0424 00959000 B @RC00412 0424 00960000 @RF00412 DS 0H 0425 00961000 * IF BINBRAK=ON /* DID WE BIND TO USE BRACKETS 0425 00962000 * @D32JPGH*/ 00963000 * THEN 0425 00964000 LR @11,INDX 0425 00965000 MH @11,@CH00335 0425 00966000 LA @10,$DEVSESP-68(@11,WAPTR) 0425 00967000 TM BINBRAK-1(@10),B'00100000' 0425 00968000 BNO @RF00425 0425 00969000 * DO; 0426 00970000 * RPLBB=OFF; 0427 00971000 * RPLEB=OFF; 0428 00972000 LA @10,16 0428 00973000 ALR @10,RPLPTR 0428 00974000 NI RPLBB(@10),B'00111111' 0428 00975000 * $DVBRKSN(INDX)=0; /* RESET BRACKET TO ZERO @D32JPGH*/ 00976000 SLR @00,@00 0429 00977000 STC @00,$DVBRKSN-68(@11,WAPTR) 0429 00978000 * IF $DVBRKST(INDX)^=INB/* NOT IN BRACKET STATE 0430 00979000 * @D32JPGH*/ 00980000 * THEN /* THEN @D32JPGH*/ 00981000 SLR @00,@00 0430 00982000 IC @00,$DVBRKST-68(@11,WAPTR) 0430 00983000 C @00,@CF00072 0430 00984000 BE @RF00430 0430 00985000 * RPLBB=ON; /* SET BEGIN BRACKET @D32JPGH*/ 00986000 OI RPLBB(@10),B'10000000' 0431 00987000 * IF($MSGOTSD(INDX)&GATEBIT0)=0&INCT=0/* IF NO MORE 0432 00988000 * ELEMENTS AND DON'T NEED DATA */ 00989000 * THEN 0432 00990000 @RF00430 LR @11,INDX 0432 00991000 MH @11,@CH00335 0432 00992000 L @00,$MSGOTSD-68(@11,WAPTR) 0432 00993000 N @00,@CF00617 0432 00994000 LTR @00,@00 0432 00995000 BNZ @RF00432 0432 00996000 L @11,$CURELEM-68(@11,WAPTR) 0432 00997000 CLI INCT(@11),0 0432 00998000 BNE @RF00432 0432 00999000 * RPLEB=ON; /* END BRACKET @D32JPGH*/ 01000000 OI RPLEB+16(RPLPTR),B'01000000' 0433 01001000 * IF RPLBB=ON THEN /* IF SENDING A BB */ 01002000 @RF00432 LA @11,16 0434 01003000 ALR @11,RPLPTR 0434 01004000 TM RPLBB(@11),B'10000000' 0434 01005000 BNO @RF00434 0434 01006000 * IF RPLEB=ON THEN /* AND IF SENDING AN EB */ 01007000 TM RPLEB(@11),B'01000000' 0435 01008000 BNO @RF00435 0435 01009000 * $DVBRKST(INDX)=BETB;/* THEN GOING BETEWEEN 0436 01010000 * BRACKET */ 01011000 LR @11,INDX 0436 01012000 MH @11,@CH00335 0436 01013000 SLR @00,@00 0436 01014000 STC @00,$DVBRKST-68(@11,WAPTR) 0436 01015000 * ELSE /* IF BB AND NOT EB */ 01016000 * $DVBRKSN(INDX)=SNDBB;/* OTHERWISE, ONLY SENDING 01017000 * BB */ 01018000 B @RC00435 0437 01019000 @RF00435 LR @11,INDX 0437 01020000 MH @11,@CH00335 0437 01021000 LA @00,1 0437 01022000 STC @00,$DVBRKSN-68(@11,WAPTR) 0437 01023000 * ELSE /* IF NOT SENDING BB */ 01024000 * IF RPLEB=ON THEN /* IF AN EB WITHOUT A BB */ 01025000 B @RC00434 0438 01026000 @RF00434 TM RPLEB+16(RPLPTR),B'01000000' 0438 01027000 BNO @RF00438 0438 01028000 * IF BINBKTR=ON THEN/* AND IF CONDITIONAL 0439 01029000 * TERMINATION */ 01030000 LR @11,INDX 0439 01031000 MH @11,@CH00335 0439 01032000 LA @10,$DEVSESP-68(@11,WAPTR) 0439 01033000 TM BINBKTR-1(@10),B'00010000' 0439 01034000 BNO @RF00439 0439 01035000 * $DVBRKSN(INDX)=SNDEB;/* ONLY SENDING AN EB */ 01036000 LA @00,2 0440 01037000 STC @00,$DVBRKSN-68(@11,WAPTR) 0440 01038000 * ELSE /* SENDING EB ONLY,NO CONDITIONAL 01039000 * TERMINATION */ 01040000 * $DVBRKST(INDX)=BETB;/* GO TO BETWEEN BRACKETS */ 01041000 B @RC00439 0441 01042000 @RF00439 LR @11,INDX 0441 01043000 MH @11,@CH00335 0441 01044000 SLR @00,@00 0441 01045000 STC @00,$DVBRKST-68(@11,WAPTR) 0441 01046000 * END; /* END OF BRACKET STATE MANAGER */ 01047000 @RC00439 DS 0H 0442 01048000 @RF00438 DS 0H 0442 01049000 @RC00434 DS 0H 0443 01050000 * IF $ASCII(INDX)=ON THEN /* IF ASCII, SET ALTERNATE CODE 01051000 * BIT @ZD10887*/ 01052000 @RF00425 LR @11,INDX 0443 01053000 MH @11,@CH00335 0443 01054000 ALR @11,WAPTR 0443 01055000 TM $ASCII-68(@11),B'00000100' 0443 01056000 BNO @RF00443 0443 01057000 * RPLCSI=ON; /* ITS ASCII, SET BIT */ 01058000 OI RPLCSI+16(RPLPTR),B'00001000' 0444 01059000 * $DVSNDOK(INDX)=OFF; /* DONT SEND ANOTHER MSG */ 01060000 @RF00443 LR @11,INDX 0445 01061000 MH @11,@CH00335 0445 01062000 ST @11,@TF00001 0445 01063000 ALR @11,WAPTR 0445 01064000 NI $DVSNDOK-68(@11),B'11101111' 0445 01065000 * IF INCT^=0&BINFMTRM=BINHDXFF THEN/* IF ANSWER EXPECTED 0446 01066000 * AND HALF- DUPLEX FF CHANGE 0446 01067000 * DIRECTION @AX11982*/ 01068000 L @11,@TF00001 0446 01069000 L @11,$CURELEM-68(@11,WAPTR) 0446 01070000 CLI INCT(@11),0 0446 01071000 BE @RF00446 0446 01072000 L @11,@TF00001 0446 01073000 LA @11,$DEVSESP-68(@11,WAPTR) 0446 01074000 TM BINFMTRM-1(@11),B'10000000' 0446 01075000 BNO @RF00446 0446 01076000 TM BINFMTRM-1(@11),B'01000000' 0446 01077000 BNZ @RF00446 0446 01078000 * RPLCMD='1'B; 0447 01079000 OI RPLCMD+16(RPLPTR),B'00100000' 0447 01080000 * GEN REFS(RPLPTR,ARG,R6,R7); 0448 01081000 @RF00446 DS 0H 0448 01082000 SEND RPL=(RPLPTR),ARG=(ARG),AREA=(R7),RECLEN=(R6), X01083000 STYPE=REQ,CONTROL=DATA,POST=SCHED,CHAIN=ONLY, X01084000 OPTCD=(SYN,NFMHDR),RESPOND=(NEX,FME,NRRN) 01085000 * END; /* END OF LU(RECORD) PROCESSING */ 01086000 * IF R15^=0 THEN /* CHECK TO SEE THE I/O WENT O.K */ 01087000 @RC00412 LTR R15,R15 0450 01088000 BZ @RF00450 0450 01089000 * DO; /* BAD R.C., PROCESS */ 01090000 * CALL C16C0920; /* IF ERROR, FREE STORAGE */ 01091000 BAL @14,C16C0920 0452 01092000 * GO TO C16C0266; /* IF ERROR,GET OUT NOW */ 01093000 B C16C0266 0453 01094000 * END; /* END OF BAD R.C, PROCESSING */ 01095000 * END; /* END OF STARTING A NEW ELEMENT 01096000 * OPERATION */ 01097000 @RF00450 DS 0H 0456 01098000 * IF $DEVLU(INDX)='1'B THEN /* IF THIS IS AN LU, RECEIVE RESP*/ 01099000 @RF00407 LR @11,INDX 0456 01100000 MH @11,@CH00335 0456 01101000 ST @11,@TF00001 0456 01102000 ALR @11,WAPTR 0456 01103000 TM $DEVLU-68(@11),B'00001000' 0456 01104000 BNO @RF00456 0456 01105000 * DO; /* LU, GET THE DATA */ 01106000 * RPLBUFL=$DVINCT(INDX); /* POINT TO BUFFER TO READ INTO */ 01107000 L @11,@TF00001 0458 01108000 SLR @00,@00 0458 01109000 IC @00,$DVINCT-68(@11,WAPTR) 0458 01110000 ST @00,RPLBUFL(,RPLPTR) 0458 01111000 * RPLAREA=ADDR($TRMINPT); /* LOCATION */ 01112000 LA @00,$TRMINPT(,WAPTR) 0459 01113000 ST @00,RPLAREA(,RPLPTR) 0459 01114000 * GEN REFS(RPLPTR,ARG); 0460 01115000 RECEIVE RPL=(RPLPTR),ARG=(ARG),EXIT=ISTCC016, X01116000 OPTCD=(ASY,TRUNC,Q),RTYPE=(DFSYN,DFASY,RESP) 01117000 * IF R15^=0 THEN /* IF ERROR DURING RECEIVE */ 01118000 LTR R15,R15 0461 01119000 BZ @RF00461 0461 01120000 * CALL C16C0920; /* ERROR, GET RID OF EVERYTHING */ 01121000 BAL @14,C16C0920 0462 01122000 * END; /* END OF LU RECEIVE FOR RESPONSE*/ 01123000 @RF00461 DS 0H 0464 01124000 *C16C0266: 0464 01125000 * R14=R8; /* RESTORE REG 14 */ 01126000 @RF00456 DS 0H 0464 01127000 C16C0266 LR R14,R8 0464 01128000 * END C16C0265; /* END OF ROUTINE TO START AN 0465 01129000 * ELEMENT ON QUEUE */ 01130000 @EL00003 DS 0H 0465 01131000 @EF00003 DS 0H 0465 01132000 @ER00003 BR @14 0465 01133000 *C16C0270: 0466 01134000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0466 01135000 C16C0270 DS 0H 0467 01136000 * RESPECIFY 0467 01137000 * R5 RESTRICTED; /* RESTRICT RETURN SAVE REGISTER */ 01138000 * R5=R14; /* SAVE REG 14 */ 01139000 LR R5,R14 0468 01140000 * RESPECIFY 0469 01141000 * (R0, 0469 01142000 * R1) RESTRICTED; /* DONT LET THESE REGISTERS GET 01143000 * ALTRED */ 01144000 * R0=RPLPTR->OUTCT+10; /* GET LENGTH OF GETMAINED AREA */ 01145000 LA R0,10 0470 01146000 SLR @11,@11 0470 01147000 IC @11,OUTCT(,RPLPTR) 0470 01148000 ALR R0,@11 0470 01149000 * R1=RPLPTR; /* PTR TO AREA TO BE FREED */ 01150000 LR R1,RPLPTR 0471 01151000 */*VFRMAIN SIZE((0))STORAGE((1))SUBPOOL(0) */ 01152000 * 0472 01153000 * DO; 0472 01154000 * DCL 0473 01155000 * GPR00F FIXED(31) REG(00); 0473 01156000 * DCL 0474 01157000 * GPR00P PTR(31) REG(00); 0474 01158000 * DCL 0475 01159000 * GPR15F FIXED(31) REG(15); 0475 01160000 * DCL 0476 01161000 * GPR15P PTR(31) REG(15); 0476 01162000 * RFY 0477 01163000 * (GPR00P, 0477 01164000 * GPR15P) RSTD; /* PUT SUBPOOL PARM IN HIGH- 0477 01165000 * ORDER BYTE OF REG 15 */ 01166000 * GPR15F=0; 0478 01167000 SLR GPR15F,GPR15F 0478 01168000 * SLL(GPR15P,24); /* COMBINE SUBPOOL AND SIZE IN 0479 01169000 * REGISTER 0 */ 01170000 SLL GPR15P,24 0479 01171000 * GPR00P=GPR00P|GPR15P; 0480 01172000 OR GPR00P,GPR15P 0480 01173000 * RFY 0481 01174000 * (GPR00P, 0481 01175000 * GPR15P) UNRSTD; /* DECLARE AND RESTRICT REG 1 */ 01176000 * DCL 0482 01177000 * GPR01F FIXED(31) REG(01); 0482 01178000 * DCL 0483 01179000 * GPR01P PTR(31) REG(01); 0483 01180000 * RFY 0484 01181000 * (GPR01P) RSTD; /* INVOKE XREGSET MACRO TO CHECK 01182000 * STORAGE PARM AND PUT ADDR IN 01183000 * REGISTER 1 */ 01184000 */*XREGSET PID('STORAGE')PPARM((1))RREG(1,GPR01P) */ 01185000 * 0485 01186000 * DO; 0485 01187000 * 0485 01188000 */*PARM ALREADY IN PROPER REGISTER */ 01189000 * 0486 01190000 * END; /* XREGSET INVOKE FREEMAIN MACRO */ 01191000 * GEN; 0487 01192000 FREEMAIN R,LV=(0),A=(1) 01193000 * /* UNRESTRICT REG 1 */ 01194000 * RFY 0488 01195000 * (GPR01P) UNRSTD; 0488 01196000 * END; /* VFRMAIN */ 01197000 * RESPECIFY 0490 01198000 * (R0, 0490 01199000 * R1) UNRESTRICTED; /* RELEASE THESE REGISTERS FOR 0490 01200000 * USE */ 01201000 * R14=R5; /* RESTORE REG 14 */ 01202000 LR R14,R5 0491 01203000 * END C16C0270; /* END OF ROUTINE TO FREE ELEMENT 01204000 * FROM QUEUE */ 01205000 @EL00004 DS 0H 0492 01206000 @EF00004 DS 0H 0492 01207000 @ER00004 BR @14 0492 01208000 *C16C0280: 0493 01209000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0493 01210000 C16C0280 DS 0H 0494 01211000 * R5=R14; /* SAVE THE RETURN ADDRESS 0494 01212000 * @D32JPGH*/ 01213000 LR R5,R14 0494 01214000 * RESPECIFY 0495 01215000 * LASTCHN BASED(PTR1); 0495 01216000 * PTR1=ADDR($MSGOTSD(INDX)); /* PTR TO 1ST ELEMENT @D32JPGH*/ 01217000 LR @11,INDX 0496 01218000 MH @11,@CH00335 0496 01219000 LA PTR1,$MSGOTSD-68(@11,WAPTR) 0496 01220000 * DO WHILE((PTR1->CHAIN&GATEBIT0)^=0);/* LOOP TILL LAST ELEMENT */ 01221000 B @DE00497 0497 01222000 @DL00497 DS 0H 0498 01223000 * PTR1=PTR1->CHAIN; /* ADDR OF NEXT ELEMENT @D32JPGH*/ 01224000 L PTR1,CHAIN(,PTR1) 0498 01225000 * END; /* END OF LOOP @D32JPGH*/ 01226000 @DE00497 SLR @11,@11 0499 01227000 L @00,CHAIN(,PTR1) 0499 01228000 N @00,@CF00617 0499 01229000 CR @00,@11 0499 01230000 BNE @DL00497 0499 01231000 * PTR1->CHAIN=$CURELEM(INDX); /* PUT PTR INTO LAST ELEMENT */ 01232000 LR @10,INDX 0500 01233000 MH @10,@CH00335 0500 01234000 L @00,$CURELEM-68(@10,WAPTR) 0500 01235000 ST @00,CHAIN(,PTR1) 0500 01236000 * $CURELEM(INDX)=0; /* SHOW NO CURRENT INDX */ 01237000 ST @11,$CURELEM-68(@10,WAPTR) 0501 01238000 * R14=R5; /* RETURN TO THE CALLER @D32JPGH*/ 01239000 LR R14,R5 0502 01240000 * END C16C0280; /* END OF SUBROUTINE TO ADD 0503 01241000 * ELEMENT TO QUE @D32JPGH*/ 01242000 @EL00005 DS 0H 0503 01243000 @EF00005 DS 0H 0503 01244000 @ER00005 BR @14 0503 01245000 *C16C0900: 0504 01246000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* MOVE DATA TO CALLER */ 01247000 C16C0900 DS 0H 0505 01248000 * R5=R14; /* SAVE RETURN POINT */ 01249000 LR R5,R14 0505 01250000 * IF INADR^=0 THEN /* BUFFER AVAILABLE */ 01251000 SLR @11,@11 0506 01252000 LR @10,INDX 0506 01253000 MH @10,@CH00335 0506 01254000 ST @10,@TF00001 0506 01255000 L @10,$CURELEM-68(@10,WAPTR) 0506 01256000 C @11,INADR(,@10) 0506 01257000 BE @RF00506 0506 01258000 * DO; /* YES, PASSBACK DATA */ 01259000 * M=0; 0508 01260000 STH @11,M 0508 01261000 * I=1; /* INITIAL COUNTERS */ 01262000 MVC I(2),@CH00072 0509 01263000 * IF $DEVFRRS(INDX)='19'X|$DEVFRRS(INDX)='1C'X THEN/* 3270 */ 01264000 LR @11,WAPTR 0510 01265000 AL @11,@TF00001 0510 01266000 CLI $DEVFRRS-68(@11),X'19' 0510 01267000 BE @RT00510 0510 01268000 LR @11,WAPTR 0510 01269000 AL @11,@TF00001 0510 01270000 CLI $DEVFRRS-68(@11),X'1C' 0510 01271000 BNE @RF00510 0510 01272000 @RT00510 DS 0H 0511 01273000 * I=7; /* YES, SKIP CURSOR ADDR */ 01274000 MVC I(2),@CH00213 0511 01275000 * DO I=I TO LENGTH($TRMINPT); /* MOVE DATA BACK TO CALLER */ 01276000 @RF00510 LH @00,I 0512 01277000 B @DE00512 0512 01278000 @DL00512 DS 0H 0513 01279000 * IF $TRMINPT(I)>=' ' THEN /* DATA */ 01280000 LR @11,@00 0513 01281000 ALR @11,WAPTR 0513 01282000 CLI $TRMINPT-1(@11),C' ' 0513 01283000 BL @RF00513 0513 01284000 * DO; /* YES, PASS IT BACK */ 01285000 * M=M+1; /* INCREASE BYTES PASSED */ 01286000 LA @11,1 0515 01287000 AH @11,M 0515 01288000 STH @11,M 0515 01289000 * CARRAY(M)=$TRMINPT(I)|' ';/* MOVE DATA, PUT IN UPPER 0516 01290000 * CASE */ 01291000 LR @10,INDX 0516 01292000 MH @10,@CH00335 0516 01293000 L @10,$CURELEM-68(@10,WAPTR) 0516 01294000 ST @10,@TF00001 0516 01295000 L @10,INADR(,@10) 0516 01296000 ALR @10,@11 0516 01297000 BCTR @10,0 0516 01298000 LR @11,@00 0516 01299000 ALR @11,WAPTR 0516 01300000 MVC CARRAY(1,@10),$TRMINPT-1(@11) 0516 01301000 OI CARRAY(@10),C' ' 0516 01302000 * IF M=INCT THEN /* MORE ROOM IN THE BUFFER */ 01303000 LH @11,M 0517 01304000 L @10,@TF00001 0517 01305000 SLR @00,@00 0517 01306000 IC @00,INCT(,@10) 0517 01307000 CR @11,@00 0517 01308000 BE @RT00517 0517 01309000 * GO TO C16C0905; /* NO, LEAVE */ 01310000 * END; /* END, OF PASS BACK DATA */ 01311000 * ELSE /* NOT DATA, CONTROL INFO */ 01312000 * IF $TRMINPT(I)='11'X THEN/* 3270, IS IT A SBA CHARACTER */ 01313000 B @RC00513 0520 01314000 @RF00513 LH @11,I 0520 01315000 ALR @11,WAPTR 0520 01316000 CLI $TRMINPT-1(@11),X'11' 0520 01317000 BNE @RF00520 0520 01318000 * I=I+2; /* YES, SKIP ADDR CHARACTERS */ 01319000 LH @11,I 0521 01320000 LA @11,2(,@11) 0521 01321000 STH @11,I 0521 01322000 * END; /* END OF MOVING BACK DATA */ 01323000 @RF00520 DS 0H 0522 01324000 @RC00513 LA @00,1 0522 01325000 AH @00,I 0522 01326000 STH @00,I 0522 01327000 @DE00512 C @00,@CF00048 0522 01328000 BNH @DL00512 0522 01329000 *C16C0905: 0523 01330000 * MSGCOUNT=M; /* RETURN COUNT */ 01331000 C16C0905 LR @11,INDX 0523 01332000 MH @11,@CH00335 0523 01333000 L @11,$CURELEM-68(@11,WAPTR) 0523 01334000 L @11,INADR(,@11) 0523 01335000 LH @00,M 0523 01336000 BCTR @11,0 0523 01337000 STC @00,MSGCOUNT(,@11) 0523 01338000 * IF $ALTPRTR=ON THEN /* IF AP PRESENT */ 01339000 TM $ALTPRTR(WAPTR),B'00000010' 0524 01340000 BNO @RF00524 0524 01341000 * $TWOWAY=ON; /* PUT REPLY THERE */ 01342000 OI $TWOWAY(WAPTR),B'01000000' 0525 01343000 * $POSTFLG=OFF; /* RESET WAITING FLAG */ 01344000 @RF00524 NI $POSTFLG(WAPTR),B'10111111' 0526 01345000 * R1=ADDR($TLTECB2); /* POINT TO THE ECB TO POST */ 01346000 L R1,RCAPTR(,WAPTR) 0527 01347000 LA R1,$TLTECB2(,R1) 0527 01348000 * CALL I00C1001; /* POST THE ECB */ 01349000 L @15,@CV01727 0528 01350000 BALR @14,@15 0528 01351000 * END; /* END USE OF BUFFER TRMINPT */ 01352000 * $TRMINPT=$TRMINPT&&$TRMINPT; 0530 01353000 @RF00506 XC $TRMINPT(80,WAPTR),$TRMINPT(WAPTR) 0530 01354000 * $DVINCT(1)=LENGTH($TRMINPT); 0531 01355000 MVI $DVINCT(WAPTR),X'50' 0531 01356000 * R14=R5; /* RESTORE RETURN POINTER */ 01357000 LR R14,R5 0532 01358000 * END C16C0900; 0533 01359000 @EL00006 DS 0H 0533 01360000 @EF00006 DS 0H 0533 01361000 @ER00006 BR @14 0533 01362000 *C16C0910: 0534 01363000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0534 01364000 C16C0910 DS 0H 0535 01365000 * R7=R14; /* SAVE RETURN POINT */ 01366000 LR R7,R14 0535 01367000 * RPLPTR=$CURELEM(INDX); /* POINT TO ELEMENT BEING 0536 01368000 * PROCESSED */ 01369000 LR @11,INDX 0536 01370000 MH @11,@CH00335 0536 01371000 L RPLPTR,$CURELEM-68(@11,WAPTR) 0536 01372000 * $CURELEM(INDX)=0; /* ZERO OUT CURRENT ELEMENT 0537 01373000 * POINTER */ 01374000 SLR @10,@10 0537 01375000 ST @10,$CURELEM-68(@11,WAPTR) 0537 01376000 * IF RPLPTR^=0 THEN /* ONLY CALL IF THERE IS AN 0538 01377000 * ELEMENT TO FREE */ 01378000 CR RPLPTR,@10 0538 01379000 BE @RF00538 0538 01380000 * CALL C16C0270; /* FREE THE ELEMENT */ 01381000 BAL @14,C16C0270 0539 01382000 * R14=R7; /* RESTORE THE RETURN POINT */ 01383000 @RF00538 LR R14,R7 0540 01384000 * END C16C0910; /* END OF ROUTINE TO FREE CURRENT 01385000 * ELEMENT */ 01386000 @EL00007 DS 0H 0541 01387000 @EF00007 DS 0H 0541 01388000 @ER00007 BR @14 0541 01389000 *C16C0920: 0542 01390000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0542 01391000 C16C0920 DS 0H 0543 01392000 * R6=R14; /* SAVE THE RETURN POINT */ 01393000 LR R6,R14 0543 01394000 * IF $ALTPRTR=ON& /* IF THERE IS AN AP */ 01395000 * INDX=AP /* AND THIS IS A TEST TERMINAL */ 01396000 * THEN 0544 01397000 TM $ALTPRTR(WAPTR),B'00000010' 0544 01398000 BNO @RF00544 0544 01399000 C INDX,@CF00137 0544 01400000 BNE @RF00544 0544 01401000 * $ALTPRTR=OFF; /* DITCH THE AP */ 01402000 NI $ALTPRTR(WAPTR),B'11111101' 0545 01403000 * ELSE /* THE ERROR WAS ON THE CT */ 01404000 * DO; 0546 01405000 B @RC00544 0546 01406000 @RF00544 DS 0H 0547 01407000 * IF $RPLERR=0 THEN 0547 01408000 L @00,$RPLERR-1(,WAPTR) 0547 01409000 ICM @00,8,@CB01266 0547 01410000 LTR @00,@00 0547 01411000 BNZ @RF00547 0547 01412000 * $RPLERR=RPLFDBK; /* SET FIRST ERROR FEEDBACK */ 01413000 MVC $RPLERR(3,WAPTR),RPLFDBK(RPLPTR) 0548 01414000 * $CANCEL=ON; /* CANCEL THIS LOGON */ 01415000 @RF00547 OI $CANCEL(WAPTR),B'00000010' 0549 01416000 * $CTERROR=ON; /* CANCEL BECAUSE OF CT ERR */ 01417000 OI $CTERROR(WAPTR),B'01000000' 0550 01418000 * $POSTFLG=OFF; /* STOP WAITING FOR DATA */ 01419000 NI $POSTFLG(WAPTR),B'10111111' 0551 01420000 * END; 0552 01421000 * CALL C16C0910; /* FREE THE CURRENT ELEMENT */ 01422000 @RC00544 BAL @14,C16C0910 0553 01423000 * R14=R6; /* RESTORE THE RETURN POINT */ 01424000 LR R14,R6 0554 01425000 * END C16C0920; /* END OF SETTING ERROR STATUS */ 01426000 @EL00008 DS 0H 0555 01427000 @EF00008 DS 0H 0555 01428000 @ER00008 BR @14 0555 01429000 @PB00008 DS 0H 0556 01430000 */* TPEPILOG */ 01431000 * 0556 01432000 * GEN(PRINT OFF); 0556 01433000 PRINT OFF 01434000 * GEN(PRINT ON); 0557 01435000 * 0557 01436000 PRINT ON 01437000 */* END OF TPEPILOG */ 01438000 */* ATDSPLY INVOKED. */ 01439000 */********************************************************************/ 01440000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 01441000 */* COMPILATION: */ 01442000 */* ISTAVT */ 01443000 */* ISTPAB */ 01444000 */* ISTLOK */ 01445000 */* ISTDYPAB */ 01446000 */* ISTRPH */ 01447000 */* ISTATCVT */ 01448000 */* ISTTIE */ 01449000 */* ISTBIND */ 01450000 */********************************************************************/ 01451000 */* END OF ATDSPLY. */ 01452000 * 0558 01453000 * END ISTCC016 0558 01454000 * 0558 01455000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01456000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01457000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01458000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01459000 * 0558 01460000 * ; 0558 01461000 B @EL00001 0558 01462000 @DATA DS 0H 01463000 @CH00213 DC H'7' 01464000 @CH00335 DC H'68' 01465000 @DATD DSECT 01466000 DS 0F 01467000 @TF00001 DS F 01468000 ISTCC016 CSECT 01469000 DS 0F 01470000 @CF00072 DC F'1' 01471000 @CH00072 EQU @CF00072+2 01472000 @CF00137 DC F'2' 01473000 @CF00068 DC F'4' 01474000 @CF00054 DC F'8' 01475000 @CF00048 DC F'80' 01476000 @CF00083 DC F'256' 01477000 @CF00617 DC XL4'7FFFFFFF' 01478000 @CF00619 DC XL4'80000000' 01479000 @CF01772 DC XL4'0000FFFF' 01480000 @DATD DSECT 01481000 DS 0D 01482000 RPLSAVE DS A 01483000 I DS H 01484000 M DS H 01485000 N DS H 01486000 SCRATCH DS CL1 01487000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01488000 @ENDDATD EQU * 01489000 ISTCC016 CSECT 01490000 DS 0F 01491000 @SIZDATD DC AL1(0) 01492000 DC AL3(@ENDDATD-@DATD) 01493000 @CV01727 DC V(I00C1001) 01494000 DS 0D 01495000 C16EXSAV DC F'0' 01496000 BASE DC AL4(ISTCC016) 01497000 @CB01698 DC X'0201' 01498000 @CB01702 DC X'1001' 01499000 @CB01704 DC X'0819' 01500000 @CB01705 DC X'1007' 01501000 @CB01706 DC X'1008' 01502000 @CB01266 DC X'00' 01503000 DS CL1 01504000 C16CBUF1 DC CL52' ' 01505000 C16CBUF2 DC CL52' ' 01506000 SAVEA DC 18F'0' 01507000 PATCH DC 25F'0' 01508000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01509000 @01 EQU 01 01510000 @02 EQU 02 01511000 @03 EQU 03 01512000 @04 EQU 04 01513000 @05 EQU 05 01514000 @06 EQU 06 01515000 @07 EQU 07 01516000 @08 EQU 08 01517000 @09 EQU 09 01518000 @10 EQU 10 01519000 @11 EQU 11 01520000 @12 EQU 12 01521000 @13 EQU 13 01522000 @14 EQU 14 01523000 @15 EQU 15 01524000 WAPTR EQU @02 01525000 RPLPTR EQU @04 01526000 RPHPTR EQU @01 01527000 R1 EQU @01 01528000 R14 EQU @14 01529000 R15 EQU @15 01530000 R0 EQU @00 01531000 R13 EQU @13 01532000 R5 EQU @05 01533000 R8 EQU @08 01534000 R6 EQU @06 01535000 R7 EQU @07 01536000 R9 EQU @09 01537000 R12 EQU @12 01538000 PTR2 EQU @15 01539000 PTR1 EQU @01 01540000 INDX EQU @03 01541000 ARG EQU @05 01542000 GPR00P EQU @00 01543000 GPR15F EQU @15 01544000 GPR15P EQU @15 01545000 GPR01P EQU @01 01546000 GPR00F EQU @00 01547000 GPR01F EQU @01 01548000 ENTRY C16C1000 01549000 ATCLCPTR EQU 1032 01550000 $RCAAREA EQU 0 01551000 $POINTER EQU $RCAAREA+100 01552000 $TLTECB2 EQU $POINTER+28 01553000 $TRTBLA EQU $POINTER+124 01554000 $CONSTNT EQU $RCAAREA+244 01555000 $RCAFLG EQU $RCAAREA+604 01556000 $TRASCII EQU $RCAAREA+608 01557000 $EXITSAV EQU $RCAAREA+864 01558000 TOLTEPWA EQU 0 01559000 $SCTTBLE EQU TOLTEPWA 01560000 $TESTOPT EQU $SCTTBLE+2 01561000 $ERROPT EQU $SCTTBLE+3 01562000 $PDEVFLG EQU $SCTTBLE+10 01563000 $CDSFLGS EQU $SCTTBLE+11 01564000 $CDS8T19 EQU $SCTTBLE+20 01565000 $EXECFLG EQU $SCTTBLE+33 01566000 $OLTFLGS EQU $SCTTBLE+36 01567000 $OLTFLG2 EQU $SCTTBLE+37 01568000 $TOTFLG1 EQU $SCTTBLE+38 01569000 $CTEQTT EQU $TOTFLG1 01570000 $ROUTMSK EQU $SCTTBLE+40 01571000 $CDA EQU TOLTEPWA+100 01572000 $RCA EQU $CDA+44 01573000 $OLTPTR EQU $CDA+52 01574000 $HIMOREC EQU $CDA+60 01575000 $COMMFLG EQU TOLTEPWA+224 01576000 $FLAG3 EQU $COMMFLG+2 01577000 $ALTPRTR EQU $FLAG3 01578000 $FLAG4 EQU $COMMFLG+3 01579000 $FLAG5 EQU $COMMFLG+4 01580000 $EOJ EQU $FLAG5 01581000 $CANCEL EQU $EOJ 01582000 $FLAG6 EQU $COMMFLG+5 01583000 $CTERROR EQU $FLAG6 01584000 $ABNDBIT EQU $FLAG6 01585000 $CIREQ EQU $FLAG6 01586000 $FLAG7 EQU $COMMFLG+6 01587000 $EXIOWAT EQU $FLAG7 01588000 $SNDRFLG EQU $FLAG7 01589000 $FLAG8 EQU $COMMFLG+7 01590000 $TWOWAY EQU $FLAG8 01591000 $FLAG12 EQU $COMMFLG+11 01592000 $POSTFLG EQU $FLAG12 01593000 $DEVTBLE EQU TOLTEPWA+240 01594000 $DEVCDS EQU $DEVTBLE 01595000 $DEVUNAD EQU $DEVCDS 01596000 @NM00043 EQU $DEVUNAD+2 01597000 $DEVFEAT EQU $DEVCDS+4 01598000 $DEVFRRS EQU $DEVFEAT+1 01599000 $DEVCDSF EQU $DEVCDS+9 01600000 $DEVSDCF EQU $DEVCDS+10 01601000 $$SYMNME EQU $DEVCDS+12 01602000 $MSGOTSD EQU $$SYMNME 01603000 $CURELEM EQU $$SYMNME+4 01604000 $DEVFLG1 EQU $DEVTBLE+20 01605000 $EVNCPLT EQU $DEVFLG1 01606000 $ATTNEXP EQU $DEVFLG1 01607000 $INTOCC EQU $DEVFLG1 01608000 $DVCTBYT EQU $INTOCC 01609000 $DEVFLG2 EQU $DEVTBLE+21 01610000 $DEVTECB EQU $DEVTBLE+22 01611000 $OPIS EQU $DEVTECB 01612000 $DVSEQNO EQU $OPIS 01613000 $OPND EQU $DEVTECB+2 01614000 $DVBRKSN EQU $OPND 01615000 $DVBRKST EQU $OPND+1 01616000 $DVINCT EQU $DEVTBLE+26 01617000 $DEVFLG3 EQU $DEVTBLE+27 01618000 $SIOFLG EQU $DEVFLG3 01619000 $DVSNDOK EQU $SIOFLG 01620000 $IFTOUT EQU $DEVTBLE+36 01621000 $DEVSESP EQU $IFTOUT 01622000 $SSCPDAF EQU $IFTOUT+6 01623000 $LDNCBPT EQU $DEVTBLE+48 01624000 $CID EQU $DEVTBLE+52 01625000 $RNINFO EQU $DEVTBLE+56 01626000 $DEVFLG5 EQU $RNINFO+8 01627000 $DEVLU EQU $DEVFLG5 01628000 $ASCII EQU $DEVFLG5 01629000 $DEVFLG4 EQU $DEVTBLE+65 01630000 $TLTRPL1 EQU TOLTEPWA+1616 01631000 $TLTRPL2 EQU TOLTEPWA+1736 01632000 $TRMINPT EQU TOLTEPWA+2184 01633000 #EXITA EQU TOLTEPWA+2632 01634000 $RETREG EQU TOLTEPWA+2636 01635000 $CCOMDAT EQU TOLTEPWA+2644 01636000 $CFLGS EQU $CCOMDAT+16 01637000 $24FEMSG EQU TOLTEPWA+2681 01638000 $24CATMG EQU $24FEMSG+11 01639000 @NM00051 EQU TOLTEPWA+2776 01640000 $OUNTPTR EQU @NM00051+4 01641000 $NSPTR EQU $OUNTPTR 01642000 $NSCNT EQU @NM00051+10 01643000 $ENXX EQU @NM00051+15 01644000 $IMITX EQU $ENXX 01645000 $RPLERR EQU TOLTEPWA+2977 01646000 SVESC033 EQU TOLTEPWA+3160 01647000 SVECC013 EQU TOLTEPWA+3232 01648000 SVEIC003 EQU TOLTEPWA+3592 01649000 SVESC022 EQU TOLTEPWA+3736 01650000 SVECC011 EQU TOLTEPWA+4024 01651000 IFGRPL EQU 0 01652000 RPLCOMN EQU IFGRPL 01653000 RPLIDWD EQU RPLCOMN 01654000 RPLREQ EQU RPLIDWD+2 01655000 RPLLEN EQU RPLIDWD+3 01656000 RPLECB EQU RPLCOMN+8 01657000 RPLFDBWD EQU RPLCOMN+12 01658000 RPLFDBK EQU RPLFDBWD+1 01659000 RPLRTNCD EQU RPLFDBK 01660000 RPLCNDCD EQU RPLFDBK+1 01661000 RPLCMPON EQU RPLCNDCD 01662000 RPLFDB2 EQU RPLCMPON 01663000 RPLERRCD EQU RPLCNDCD+1 01664000 RPLFDB3 EQU RPLERRCD 01665000 RPLREOT EQU RPLFDB3 01666000 RPLKEYLE EQU RPLCOMN+16 01667000 RPLAREA EQU RPLCOMN+32 01668000 RPLARG EQU RPLCOMN+36 01669000 RPLOPTCD EQU RPLCOMN+40 01670000 RPLOPT1 EQU RPLOPTCD 01671000 RPLECBSW EQU RPLOPT1 01672000 RPLOPT2 EQU RPLOPTCD+1 01673000 RPLADR EQU RPLOPT2 01674000 RPLOPT3 EQU RPLOPTCD+2 01675000 RPLOPT4 EQU RPLOPTCD+3 01676000 RPLNXTRP EQU RPLCOMN+44 01677000 RPLRLEN EQU RPLCOMN+48 01678000 RPLBUFL EQU RPLCOMN+52 01679000 RPLOPTC2 EQU RPLCOMN+56 01680000 RPLOPT5 EQU RPLOPTC2 01681000 RPLWRTYP EQU RPLOPT5 01682000 RPLOPT6 EQU RPLOPTC2+1 01683000 RPLUNTYP EQU RPLOPT6 01684000 RPLOPT7 EQU RPLOPTC2+2 01685000 RPLCNOPT EQU RPLOPT7 01686000 RPLOPT8 EQU RPLOPTC2+3 01687000 RPLRBAR EQU RPLCOMN+60 01688000 RPLAIXID EQU RPLRBAR+2 01689000 RPLEXTDS EQU RPLCOMN+68 01690000 RPLEXTD1 EQU RPLEXTDS 01691000 RPLVTEXT EQU IFGRPL+76 01692000 RPLAARLN EQU RPLVTEXT+4 01693000 RPLFDBK2 EQU RPLVTEXT+12 01694000 RPLSSNSI EQU RPLFDBK2 01695000 RPLDSB EQU RPLSSNSI 01696000 RPLDSB1 EQU RPLDSB 01697000 RPLSSEI EQU RPLDSB1 01698000 RPLDSB2 EQU RPLDSB+1 01699000 RPLSSMI EQU RPLDSB2 01700000 RPLUSNSI EQU RPLFDBK2+2 01701000 RPLUSFLD EQU RPLVTEXT+16 01702000 RPLOPTC3 EQU RPLVTEXT+20 01703000 RPLOPT9 EQU RPLOPTC3 01704000 RPLOPT10 EQU RPLOPTC3+1 01705000 RPLOPT11 EQU RPLOPTC3+2 01706000 RPLOPT12 EQU RPLOPTC3+3 01707000 RPLFMHDR EQU RPLOPT12 01708000 RPLOSENS EQU RPLVTEXT+24 01709000 RPLSSNSO EQU RPLOSENS 01710000 RPLSSEO EQU RPLSSNSO 01711000 ISTAVT EQU 0 01712000 ISTAS49 EQU ISTAVT+4 01713000 ISTPAB EQU 0 01714000 PABWQCHN EQU ISTPAB 01715000 PABWEQA EQU PABWQCHN 01716000 PABCHAIN EQU PABWQCHN+4 01717000 PABRPHFG EQU ISTPAB+12 01718000 PABFLAGS EQU PABRPHFG 01719000 PABERLCK EQU PABFLAGS 01720000 PABERRLK EQU PABERLCK 01721000 ISTLOK EQU 0 01722000 LOKCHN EQU ISTLOK+1 01723000 LOKCHNG EQU LOKCHN 01724000 @NM00055 EQU LOKCHNG+2 01725000 ISTDYPAB EQU 0 01726000 ISTRPH EQU 0 01727000 RPHCNTL EQU ISTRPH 01728000 RPHFLAGS EQU RPHCNTL+2 01729000 RPHAPTYP EQU RPHFLAGS 01730000 RPHFSTLC EQU RPHFLAGS 01731000 RPHFLGB EQU RPHCNTL+3 01732000 RPHRPHA EQU ISTRPH+4 01733000 RPHTSKID EQU ISTRPH+8 01734000 RPHRESMA EQU ISTRPH+16 01735000 RPHWPFLG EQU RPHRESMA 01736000 RPHWEA EQU ISTRPH+24 01737000 RPHCSPA EQU RPHWEA 01738000 RPHSRPRM EQU ISTRPH+28 01739000 RPHPABQA EQU ISTRPH+36 01740000 RPHWORK EQU ISTRPH+40 01741000 RPHSAVE1 EQU RPHWORK 01742000 RPHSBITS EQU RPHSAVE1+1 01743000 ISTATCVT EQU 0 01744000 ATCCOM EQU ISTATCVT 01745000 ATCSTAT EQU ATCCOM 01746000 ATCSTAT1 EQU ATCSTAT 01747000 ATCSTFLG EQU ATCSTAT+1 01748000 ATCPOFLG EQU ATCSTAT+2 01749000 ATCSTAT4 EQU ATCSTAT+3 01750000 ATCIOTRC EQU ATCCOM+140 01751000 ATCTHTRC EQU ATCIOTRC 01752000 ATCCSMR EQU ISTATCVT+296 01753000 ATCSHRFG EQU ISTATCVT+316 01754000 ATCHPGM EQU ISTATCVT+384 01755000 ATCVLCNT EQU ISTATCVT+772 01756000 ATCRNO EQU ISTATCVT+788 01757000 ATCSOPD EQU ISTATCVT+792 01758000 ATCSIPD EQU ISTATCVT+800 01759000 ATCSECST EQU ISTATCVT+812 01760000 ATCSTAT2 EQU ISTATCVT+818 01761000 ATCVTBAM EQU ISTATCVT+908 01762000 @NM00066 EQU ATCVTBAM+3 01763000 ATCAOSM EQU ISTATCVT+912 01764000 ATCGSRBQ EQU ATCAOSM+4 01765000 ATCGSRBG EQU ATCGSRBQ 01766000 ATCICAPP EQU ATCAOSM+100 01767000 ATCLDAPP EQU ATCAOSM+120 01768000 ATCDAPVT EQU ATCAOSM+140 01769000 ATCCRA EQU ATCAOSM+280 01770000 ATCCRACN EQU ATCCRA+4 01771000 ATCSRB EQU ATCAOSM+288 01772000 ATCSRBCN EQU ATCSRB+4 01773000 ATCCRPL EQU ATCAOSM+296 01774000 ATCRPLCN EQU ATCCRPL+4 01775000 ATCVTFLG EQU ATCAOSM+392 01776000 ATCZFLAG EQU ATCAOSM+588 01777000 ISTTIE EQU 0 01778000 TIETIEA EQU ISTTIE+4 01779000 TIESNA EQU ISTTIE+8 01780000 TIERPHA EQU ISTTIE+12 01781000 ISTBIND EQU 0 01782000 BINFMTY EQU ISTBIND 01783000 BINPRIP EQU ISTBIND+3 01784000 BINSECP EQU ISTBIND+4 01785000 BINCMNP EQU ISTBIND+5 01786000 BINBRAK EQU BINCMNP 01787000 BINBKTR EQU BINCMNP 01788000 BINCMNP2 EQU ISTBIND+6 01789000 BINFMTRM EQU BINCMNP2 01790000 BINTSU EQU ISTBIND+7 01791000 BINRPACE EQU BINTSU+1 01792000 BINRUSZ EQU BINTSU+2 01793000 BINSRUSZ EQU BINRUSZ 01794000 BINPRUSZ EQU BINRUSZ+1 01795000 BINPRSVC EQU ISTBIND+13 01796000 BINLUP EQU BINPRSVC 01797000 BINPSCHR EQU BINPRSVC+1 01798000 RPLOF16 EQU 0 01799000 RPLRH3 EQU RPLOF16 01800000 RPLBB EQU RPLRH3 01801000 RPLEB EQU RPLRH3 01802000 RPLCMD EQU RPLRH3 01803000 RPLCSI EQU RPLRH3 01804000 RPLSRTYP EQU RPLOF16+1 01805000 RPLSTYPE EQU RPLSRTYP 01806000 RPLRTYPE EQU RPLSRTYP 01807000 RPLRRESP EQU RPLRTYPE 01808000 RPLNFSYN EQU RPLRTYPE 01809000 RPLCHN EQU RPLOF16+2 01810000 RPLLAST EQU RPLCHN 01811000 RPLONLY EQU RPLCHN 01812000 RPLVTFL1 EQU RPLOF16+3 01813000 RPLVTFL2 EQU RPLOF16+4 01814000 RPLPOSTV EQU RPLVTFL2 01815000 RPLRESP EQU RPLVTFL2 01816000 RPLEX EQU RPLRESP 01817000 RPLNFME EQU RPLRESP 01818000 RPLRRN EQU RPLRESP 01819000 RPLCNTRL EQU RPLOF16+5 01820000 RPLCNTDF EQU RPLCNTRL 01821000 RPLDATA EQU RPLCNTDF 01822000 RPLCNCEL EQU RPLCNTDF 01823000 RPLCHASE EQU RPLCNTDF 01824000 RPLCNTDC EQU RPLCNTRL+1 01825000 RPLRTR EQU RPLCNTDC 01826000 RPLLUS EQU RPLCNTDC 01827000 RPLSIGNL EQU RPLCNTDC 01828000 RPLCNTSC EQU RPLCNTRL+2 01829000 RPLSHUTD EQU RPLCNTSC 01830000 RPLSHUTC EQU RPLCNTSC 01831000 RPLRSHUT EQU RPLCNTSC 01832000 RPLOF60 EQU 0 01833000 RPLOBSQ EQU RPLOF60+4 01834000 RPLIBSQ EQU RPLOF60+5 01835000 RPLSEQNO EQU RPLOF60+6 01836000 CARRAY EQU 0 01837000 MSGCOUNT EQU 0 01838000 ELEMENT EQU 0 01839000 CHAIN EQU ELEMENT 01840000 INADR EQU ELEMENT+4 01841000 OUTCT EQU ELEMENT+8 01842000 INCT EQU ELEMENT+9 01843000 MSG EQU ELEMENT+10 01844000 BACKSAVE EQU 0 01845000 LASTCHN EQU 0 01846000 $TRTBL EQU 0 01847000 #EXIT EQU 0 01848000 ISTRPL EQU 0 01849000 RCAPTR EQU $RCA 01850000 BINLUP1 EQU BINPSCHR 01851000 BINLUS EQU BINPSCHR 01852000 BINFMF1 EQU BINLUS 01853000 BINRSV09 EQU BINFMF1 01854000 BINDSPF1 EQU BINLUS+2 01855000 BINMEDIA EQU BINLUS+4 01856000 BINLUP2 EQU BINPSCHR 01857000 BINLUP3 EQU BINPSCHR 01858000 SVECC012 EQU SVESC022 01859000 SVEIC00A EQU SVEIC003 01860000 SVEIC004 EQU SVEIC003 01861000 SVEIC005 EQU SVEIC003 01862000 SVESC02A EQU SVESC022 01863000 SVESC02B EQU SVESC022 01864000 SVESC02D EQU SVESC022 01865000 SVESC02E EQU SVESC022 01866000 SVESC02F EQU SVECC013 01867000 SVESC024 EQU SVESC022 01868000 SVESC027 EQU SVESC022 01869000 SVESC029 EQU SVESC033 01870000 SVESC031 EQU SVECC013 01871000 SVESC032 EQU SVECC011 01872000 SVETC037 EQU SVEIC003 01873000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01874000 BINRSV26 EQU BINLUP3 01875000 BINRSV15 EQU BINLUP2+10 01876000 BINPRESZ EQU BINLUP2+9 01877000 BINRSV14 EQU BINLUP2 01878000 BINRSV13 EQU BINMEDIA 01879000 BINDISK EQU BINMEDIA 01880000 BINXCHNG EQU BINMEDIA 01881000 BINCARD EQU BINMEDIA 01882000 BINDOCMT EQU BINMEDIA 01883000 BINRSV17 EQU BINDSPF1+1 01884000 BINTRNDS EQU BINDSPF1 01885000 BINRSV12 EQU BINDSPF1 01886000 BINVSDS EQU BINDSPF1 01887000 BINVTDS EQU BINDSPF1 01888000 BINHFDS EQU BINDSPF1 01889000 BININTR EQU BINDSPF1 01890000 BINRSV11 EQU BINRSV09+1 01891000 BINXFPD EQU BINRSV09+1 01892000 BINCSDS EQU BINRSV09+1 01893000 BINQDSI EQU BINRSV09+1 01894000 BINRSV16 EQU BINRSV09+1 01895000 BINARRR EQU BINRSV09 01896000 BINSIDS EQU BINRSV09 01897000 BINSAI EQU BINRSV09 01898000 BINSDSI EQU BINRSV09 01899000 BINKDDSI EQU BINRSV09 01900000 BINPDIR EQU BINFMF1 01901000 BINCMPCT EQU BINFMF1 01902000 BINDESTS EQU BINFMF1 01903000 BINSLUS1 EQU BINLUP1+6 01904000 BINPLUS1 EQU BINLUP1+1 01905000 BINDSP1 EQU BINLUP1 01906000 BINFMHS1 EQU BINLUP1 01907000 @NM00094 EQU RPLIBSQ 01908000 RPLIINV EQU RPLIBSQ 01909000 RPLINEG EQU RPLIBSQ 01910000 RPLIPOS EQU RPLIBSQ 01911000 RPLIIGN EQU RPLIBSQ 01912000 RPLIRSET EQU RPLIBSQ 01913000 RPLITST EQU RPLIBSQ 01914000 RPLISET EQU RPLIBSQ 01915000 @NM00093 EQU RPLOBSQ 01916000 RPLOINV EQU RPLOBSQ 01917000 RPLONEG EQU RPLOBSQ 01918000 RPLOPOS EQU RPLOBSQ 01919000 RPLOIGN EQU RPLOBSQ 01920000 RPLORSET EQU RPLOBSQ 01921000 RPLOTST EQU RPLOBSQ 01922000 RPLOSET EQU RPLOBSQ 01923000 RPLIBSQV EQU RPLOF60+2 01924000 RPLOBSQV EQU RPLOF60 01925000 @NM00092 EQU RPLCNTSC 01926000 RPLRQR EQU RPLCNTSC 01927000 RPLSTSN EQU RPLCNTSC 01928000 RPLCLEAR EQU RPLCNTSC 01929000 RPLSDT EQU RPLCNTSC 01930000 @NM00091 EQU RPLCNTDC 01931000 RPLBID EQU RPLCNTDC 01932000 @NM00090 EQU RPLCNTDF 01933000 RPLQI EQU RPLCNTDF 01934000 RPLRELQ EQU RPLCNTDF 01935000 RPLQEC EQU RPLCNTDF 01936000 RPLQC EQU RPLCNTDF 01937000 @NM00089 EQU RPLRESP 01938000 @NM00088 EQU RPLPOSTV 01939000 RPLSCHED EQU RPLPOSTV 01940000 @NM00087 EQU RPLVTFL1 01941000 RPLAUTUS EQU RPLVTFL1 01942000 RPLVTUSE EQU RPLVTFL1 01943000 @NM00086 EQU RPLVTFL1 01944000 @NM00085 EQU RPLCHN 01945000 RPLMIDLE EQU RPLCHN 01946000 RPLFIRST EQU RPLCHN 01947000 @NM00084 EQU RPLRTYPE 01948000 RPLDFASY EQU RPLRTYPE 01949000 @NM00083 EQU RPLSTYPE 01950000 RPLSRESP EQU RPLSTYPE 01951000 @NM00082 EQU RPLRH3 01952000 RPLCHREQ EQU RPLRH3 01953000 BINUSE EQU ISTBIND+36 01954000 BINUSEL EQU ISTBIND+35 01955000 BINPRIM EQU ISTBIND+27 01956000 BINPRIML EQU ISTBIND+26 01957000 BINRSV05 EQU ISTBIND+25 01958000 BINLUTYP EQU BINLUP 01959000 BINRSV27 EQU BINLUP 01960000 BINRSV08 EQU BINTSU+4 01961000 BINPRUSE EQU BINPRUSZ 01962000 BINPRUSM EQU BINPRUSZ 01963000 BINSRUSE EQU BINSRUSZ 01964000 BINSRUSM EQU BINSRUSZ 01965000 BINRPACM EQU BINRPACE 01966000 BINRSV07 EQU BINRPACE 01967000 BINRSV06 EQU BINTSU 01968000 BINCONR EQU BINCMNP2 01969000 BINRCHN EQU BINCMNP2 01970000 BINMDIBK EQU BINCMNP2 01971000 BINBKFS EQU BINCMNP2 01972000 BINRCVR EQU BINCMNP2 01973000 BINRSV04 EQU BINCMNP 01974000 BINALT EQU BINCMNP 01975000 BINFMHD EQU BINCMNP 01976000 BINRSV03 EQU BINCMNP 01977000 BINSSEB EQU BINSECP 01978000 BINSCMP EQU BINSECP 01979000 BINRSV02 EQU BINSECP 01980000 BINSCHNR EQU BINSECP 01981000 BINSMCH EQU BINSECP 01982000 BINSCHN EQU BINSECP 01983000 BINPSEB EQU BINPRIP 01984000 BINPCMP EQU BINPRIP 01985000 BINRSV01 EQU BINPRIP 01986000 BINPCHNR EQU BINPRIP 01987000 BINPMCH EQU BINPRIP 01988000 BINPCHN EQU BINPRIP 01989000 BINTS EQU ISTBIND+2 01990000 BINFM EQU ISTBIND+1 01991000 BINTYPE EQU BINFMTY 01992000 BINFMT EQU BINFMTY 01993000 TIEPTR2 EQU TIERPHA 01994000 TIEPTR1 EQU TIESNA 01995000 TIEGATE EQU TIETIEA 01996000 TIEREQ EQU ISTTIE+3 01997000 TIERETCD EQU ISTTIE+2 01998000 TIELNGTH EQU ISTTIE+1 01999000 TIETYPE EQU ISTTIE 02000000 ATCAOS EQU ISTATCVT+1584 02001000 ATCPOPAB EQU ATCAOSM+640 02002000 ATCVIOPM EQU ATCAOSM+636 02003000 ATCTPMMI EQU ATCAOSM+632 02004000 ATCTPMPB EQU ATCAOSM+600 02005000 ATCRSV88 EQU ATCAOSM+596 02006000 ATCRPLCT EQU ATCAOSM+594 02007000 ATCCRACT EQU ATCAOSM+592 02008000 ATCSRBCT EQU ATCAOSM+590 02009000 ATCRSV75 EQU ATCAOSM+589 02010000 ATCRSV66 EQU ATCZFLAG 02011000 ATCZF001 EQU ATCZFLAG 02012000 ATCTPCP1 EQU ATCAOSM+584 02013000 ATCTPCP0 EQU ATCAOSM+580 02014000 ATCAICTN EQU ATCAOSM+576 02015000 ATCZR01 EQU ATCAOSM+572 02016000 ATCMPLTA EQU ATCAOSM+568 02017000 ATCASCB EQU ATCAOSM+564 02018000 ATCAP86 EQU ATCAOSM+560 02019000 ATCAP85 EQU ATCAOSM+556 02020000 ATCAP84 EQU ATCAOSM+552 02021000 ATCAP83 EQU ATCAOSM+548 02022000 ATCAP82 EQU ATCAOSM+544 02023000 ATCAP69 EQU ATCAOSM+540 02024000 ATCAP66 EQU ATCAOSM+536 02025000 ATCAP62 EQU ATCAOSM+532 02026000 ATCAPC59 EQU ATCAOSM+528 02027000 ATCAP56 EQU ATCAOSM+524 02028000 ATCAP55 EQU ATCAOSM+520 02029000 ATCRCFY0 EQU ATCAOSM+516 02030000 ATCAP41 EQU ATCAOSM+512 02031000 ATCAPC25 EQU ATCAOSM+508 02032000 ATCAP23 EQU ATCAOSM+504 02033000 ATCTPSPB EQU ATCAOSM+472 02034000 ATCTRMPB EQU ATCAOSM+440 02035000 ATCAPBE EQU ATCAOSM+436 02036000 ATCPSTA EQU ATCAOSM+432 02037000 ATCSMABF EQU ATCAOSM+428 02038000 ATCSMAPR EQU ATCAOSM+424 02039000 ATCTPWQA EQU ATCAOSM+420 02040000 ATCSMAID EQU ATCAOSM+416 02041000 ATCSMARA EQU ATCAOSM+412 02042000 ATCCACXA EQU ATCAOSM+408 02043000 ATCZLAAB EQU ATCAOSM+404 02044000 ATCATA10 EQU ATCAOSM+400 02045000 ATCHLTCB EQU ATCAOSM+396 02046000 @NM00068 EQU ATCVTFLG 02047000 ATCVTACT EQU ATCVTFLG 02048000 ATCRPT40 EQU ATCAOSM+388 02049000 ATCRPT39 EQU ATCAOSM+384 02050000 ATCRPT38 EQU ATCAOSM+380 02051000 ATCRPT37 EQU ATCAOSM+376 02052000 ATCRPT36 EQU ATCAOSM+372 02053000 ATCRPT35 EQU ATCAOSM+368 02054000 ATCRPT34 EQU ATCAOSM+364 02055000 ATCRPT33 EQU ATCAOSM+360 02056000 ATCRPT32 EQU ATCAOSM+356 02057000 ATCRPT31 EQU ATCAOSM+352 02058000 ATCRPT30 EQU ATCAOSM+348 02059000 ATCRPT29 EQU ATCAOSM+344 02060000 ATCRPT28 EQU ATCAOSM+340 02061000 ATCRPT27 EQU ATCAOSM+336 02062000 ATCRPT26 EQU ATCAOSM+332 02063000 ATCRPT25 EQU ATCAOSM+328 02064000 ATCRPT24 EQU ATCAOSM+324 02065000 ATCRPT23 EQU ATCAOSM+320 02066000 ATCRPT22 EQU ATCAOSM+316 02067000 ATCRPT21 EQU ATCAOSM+312 02068000 ATCRPT20 EQU ATCAOSM+308 02069000 ATCRPT19 EQU ATCAOSM+304 02070000 ATCRPLAC EQU ATCRPLCN+2 02071000 ATCRPLRC EQU ATCRPLCN 02072000 ATCCRPLQ EQU ATCCRPL 02073000 ATCSRBAC EQU ATCSRBCN+2 02074000 ATCSRBRC EQU ATCSRBCN 02075000 ATCSRBQ EQU ATCSRB 02076000 ATCCRAAC EQU ATCCRACN+2 02077000 ATCCRARC EQU ATCCRACN 02078000 ATCCRAQ EQU ATCCRA 02079000 ATCRPT12 EQU ATCAOSM+276 02080000 ATCDMAPP EQU ATCAOSM+272 02081000 ATCAP38 EQU ATCAOSM+268 02082000 ATCAP37 EQU ATCAOSM+264 02083000 ATCZDFJ0 EQU ATCAOSM+260 02084000 ATCAP51 EQU ATCAOSM+256 02085000 ATCZPAB2 EQU ATCAOSM+224 02086000 ATCZPAB1 EQU ATCAOSM+192 02087000 ATCZLFVT EQU ATCAOSM+188 02088000 ATCZLPVT EQU ATCAOSM+184 02089000 ATCZDVTX EQU ATCAOSM+180 02090000 ATCZDVTA EQU ATCAOSM+176 02091000 ATCZDVT9 EQU ATCAOSM+172 02092000 ATCZDVT8 EQU ATCAOSM+168 02093000 ATCZDVT7 EQU ATCAOSM+164 02094000 ATCRSV56 EQU ATCDAPVT+22 02095000 ATCDAPDG EQU ATCDAPVT+20 02096000 ATCDXCEA EQU ATCDAPVT+16 02097000 ATCDCEA EQU ATCDAPVT+12 02098000 ATCDPCIA EQU ATCDAPVT+8 02099000 ATCDSIOA EQU ATCDAPVT+4 02100000 ATCDEOEA EQU ATCDAPVT 02101000 ATCZLAEA EQU ATCLDAPP+16 02102000 ATCZLCEA EQU ATCLDAPP+12 02103000 ATCRSV17 EQU ATCLDAPP+8 02104000 ATCSMFRR EQU ATCLDAPP+4 02105000 ATCCDTID EQU ATCLDAPP 02106000 ATCZAEA EQU ATCICAPP+16 02107000 ATCZCEA EQU ATCICAPP+12 02108000 ATCCDTCB EQU ATCICAPP+8 02109000 ATCZSIOA EQU ATCICAPP+4 02110000 ATCCDRPH EQU ATCICAPP 02111000 ATCAP65 EQU ATCAOSM+96 02112000 ATCZDVT6 EQU ATCAOSM+92 02113000 ATCZDVT4 EQU ATCAOSM+88 02114000 ATCZDVT3 EQU ATCAOSM+84 02115000 ATCZDVT1 EQU ATCAOSM+80 02116000 ATCICNCB EQU ATCAOSM+76 02117000 ATCZPSVT EQU ATCAOSM+72 02118000 ATCZFSVT EQU ATCAOSM+68 02119000 ATCAP64 EQU ATCAOSM+64 02120000 ATCAP63 EQU ATCAOSM+60 02121000 ATCAP61 EQU ATCAOSM+56 02122000 ATCAP58 EQU ATCAOSM+52 02123000 ATCAP57 EQU ATCAOSM+48 02124000 ATCAP54 EQU ATCAOSM+44 02125000 ATCAP53 EQU ATCAOSM+40 02126000 ATCAP52 EQU ATCAOSM+36 02127000 ATCAP34 EQU ATCAOSM+32 02128000 ATCAP32 EQU ATCAOSM+28 02129000 ATCAP31 EQU ATCAOSM+24 02130000 ATCAP12 EQU ATCAOSM+20 02131000 ATCAP11 EQU ATCAOSM+16 02132000 ATCCMTCB EQU ATCAOSM+12 02133000 ATCPRPH EQU ATCAOSM+8 02134000 ATCGSRBF EQU ATCGSRBG 02135000 ATCSRBRT EQU ATCAOSM 02136000 @NM00067 EQU @NM00066 02137000 ATCVTMAB EQU @NM00066 02138000 @NM00065 EQU ATCVTBAM 02139000 ATCVDLOK EQU ISTATCVT+904 02140000 ATCVFPAB EQU ISTATCVT+872 02141000 ATCVDPAB EQU ISTATCVT+840 02142000 ATCIOECB EQU ISTATCVT+836 02143000 ATCINCW3 EQU ISTATCVT+832 02144000 ATCMODTB EQU ISTATCVT+828 02145000 ATCUSSPT EQU ISTATCVT+824 02146000 ATCSRTAB EQU ISTATCVT+820 02147000 @NM00064 EQU ISTATCVT+819 02148000 @NM00063 EQU ATCSTAT2 02149000 ATCTRSMS EQU ATCSTAT2 02150000 ATCTRLOK EQU ATCSTAT2 02151000 ATCTRPSS EQU ATCSTAT2 02152000 ATCTRESC EQU ATCSTAT2 02153000 ATCTRAPI EQU ATCSTAT2 02154000 ATCNMCTR EQU ISTATCVT+816 02155000 ATCSEC51 EQU ATCSECST 02156000 ATCSEC40 EQU ATCSIPD+8 02157000 ATCSEC30 EQU ATCSIPD+4 02158000 ATCSEC21 EQU ATCSIPD 02159000 ATCSEC10 EQU ATCSOPD+4 02160000 ATCSEC01 EQU ATCSOPD 02161000 ATCPOIA EQU ATCRNO+1 02162000 @NM00062 EQU ATCRNO 02163000 ATCPODVT EQU ISTATCVT+784 02164000 ATCS49XL EQU ISTATCVT+780 02165000 ATCS49XI EQU ISTATCVT+776 02166000 ATCLCLCT EQU ATCVLCNT+2 02167000 ATCRNCNT EQU ATCVLCNT 02168000 ATCCFEAD EQU ISTATCVT+768 02169000 ATCPTR00 EQU ISTATCVT+736 02170000 ATCRSV10 EQU ISTATCVT+704 02171000 ATCTACB EQU ISTATCVT+700 02172000 ATCVTINM EQU ISTATCVT+696 02173000 ATCTCLIM EQU ISTATCVT+692 02174000 ATCTCLOM EQU ISTATCVT+688 02175000 ATCVTIPB EQU ISTATCVT+656 02176000 ATCTCIPB EQU ISTATCVT+624 02177000 ATCTIPAB EQU ISTATCVT+592 02178000 ATCOCCCB EQU ISTATCVT+588 02179000 ATCOCCOB EQU ISTATCVT+584 02180000 ATCCDLAD EQU ISTATCVT+580 02181000 ATCCCLAD EQU ISTATCVT+576 02182000 ATCDLRPB EQU ISTATCVT+544 02183000 ATCPGPAB EQU ISTATCVT+512 02184000 ATCVPAB1 EQU ISTATCVT+480 02185000 ATCRSV97 EQU ISTATCVT+476 02186000 ATCRDTLK EQU ISTATCVT+472 02187000 ATCVOCLK EQU ISTATCVT+468 02188000 ATCCDFDN EQU ISTATCVT+464 02189000 ATCCDFIN EQU ISTATCVT+460 02190000 ATCDVTLK EQU ISTATCVT+456 02191000 ATCAP36 EQU ISTATCVT+452 02192000 ATCAP35 EQU ISTATCVT+448 02193000 ATCAP33 EQU ISTATCVT+444 02194000 ATCRSV99 EQU ISTATCVT+440 02195000 ATCONFIG EQU ISTATCVT+432 02196000 ATCNODDS EQU ISTATCVT+428 02197000 ATCNODEL EQU ISTATCVT+420 02198000 ATCRSV69 EQU ISTATCVT+416 02199000 ATCAPCR5 EQU ISTATCVT+412 02200000 ATCLDECB EQU ISTATCVT+408 02201000 ATCLDNCS EQU ISTATCVT+404 02202000 ATCCDPTR EQU ISTATCVT+400 02203000 ATCADEL EQU ISTATCVT+396 02204000 ATCTODVT EQU ISTATCVT+392 02205000 ATCDEBCH EQU ISTATCVT+388 02206000 ATCHBSIZ EQU ATCHPGM+2 02207000 ATCHBFNO EQU ATCHPGM 02208000 ATCCRME EQU ISTATCVT+380 02209000 ATCRVCHS EQU ISTATCVT+372 02210000 ATCECTLP EQU ISTATCVT+368 02211000 ATCZDVTB EQU ISTATCVT+364 02212000 ATCECPRT EQU ISTATCVT+360 02213000 ATCVTLOD EQU ISTATCVT+356 02214000 ATCTRPAB EQU ISTATCVT+352 02215000 ATCMSGM EQU ISTATCVT+348 02216000 ATCMSGP EQU ISTATCVT+344 02217000 ATCEPT EQU ISTATCVT+340 02218000 ATCDVT EQU ISTATCVT+336 02219000 ATCTRCPT EQU ISTATCVT+332 02220000 ATCDVLOD EQU ISTATCVT+328 02221000 ATCALERT EQU ISTATCVT+324 02222000 ATCEPA EQU ISTATCVT+320 02223000 ATCSAF EQU ISTATCVT+318 02224000 ATCXRANG EQU ISTATCVT+317 02225000 ATCLAST EQU ATCSHRFG 02226000 ATCSHRTN EQU ISTATCVT+308 02227000 ATCUEP EQU ISTATCVT+304 02228000 ATCOCRT EQU ISTATCVT+300 02229000 ATCCSMA EQU ATCCSMR 02230000 ATCESC02 EQU ISTATCVT+292 02231000 ATCESC01 EQU ISTATCVT+288 02232000 ATCCDFND EQU ISTATCVT+284 02233000 ATCCDDEL EQU ISTATCVT+280 02234000 ATCCDADD EQU ISTATCVT+276 02235000 ATCMNT EQU ISTATCVT+272 02236000 ATCRSV16 EQU ISTATCVT+270 02237000 ATCMAXID EQU ISTATCVT+269 02238000 ATCMSGSP EQU ATCCOM+268 02239000 ATCCIDM EQU ATCCOM+266 02240000 ATCACTRM EQU ATCCOM+264 02241000 ATCNERAP EQU ATCCOM+260 02242000 ATCNESAL EQU ATCCOM+256 02243000 ATCRCC65 EQU ATCCOM+252 02244000 ATCRCC26 EQU ATCCOM+248 02245000 ATCRCC63 EQU ATCCOM+244 02246000 ATCRSV11 EQU ATCCOM+242 02247000 ATCVTMID EQU ATCCOM+240 02248000 ATCAPOST EQU ATCCOM+236 02249000 ATCNERFN EQU ATCCOM+232 02250000 ATCNERNE EQU ATCCOM+228 02251000 ATCNERCV EQU ATCCOM+224 02252000 ATCNERST EQU ATCCOM+220 02253000 ATCDCC61 EQU ATCCOM+216 02254000 ATCDCC60 EQU ATCCOM+212 02255000 ATCSRTDF EQU ATCCOM+208 02256000 ATCSRTAD EQU ATCCOM+204 02257000 ATCFIRA EQU ATCCOM+200 02258000 ATCSMBQ EQU ATCCOM+196 02259000 ATCSMRC EQU ATCCOM+192 02260000 ATCSMRS EQU ATCCOM+188 02261000 ATCSMQU EQU ATCCOM+184 02262000 ATCSMRQ EQU ATCCOM+180 02263000 ATCACDA EQU ATCCOM+176 02264000 ATCSTMA EQU ATCCOM+172 02265000 ATCFRSTR EQU ATCCOM+168 02266000 ATCGTSTR EQU ATCCOM+164 02267000 ATCREADA EQU ATCCOM+160 02268000 ATCALOAD EQU ATCCOM+156 02269000 ATCBLDLA EQU ATCCOM+152 02270000 ATCFBRPH EQU ATCCOM+148 02271000 ATCBFTRC EQU ATCCOM+144 02272000 ATCTPBUF EQU ATCTHTRC 02273000 ATCREMOV EQU ATCCOM+136 02274000 ATCADD EQU ATCCOM+132 02275000 ATCBPDA EQU ATCCOM+128 02276000 ATCDVTPT EQU ATCCOM+124 02277000 ATCFEPT EQU ATCCOM+120 02278000 ATCFDVT EQU ATCCOM+116 02279000 ATCCONFT EQU ATCCOM+112 02280000 ATCPTCHA EQU ATCCOM+108 02281000 ATCAUTHA EQU ATCCOM+104 02282000 ATCACCTA EQU ATCCOM+100 02283000 ATCRDTH EQU ATCCOM+96 02284000 ATCFRSCH EQU ATCCOM+92 02285000 ATCFSB EQU ATCCOM+88 02286000 ATCHLTMS EQU ATCCOM+84 02287000 ATCECPRM EQU ATCCOM+80 02288000 ATCECNET EQU ATCCOM+76 02289000 ATCECOPC EQU ATCCOM+72 02290000 ATCVPARM EQU ATCCOM+68 02291000 ATCECVRQ EQU ATCCOM+64 02292000 ATCECSES EQU ATCCOM+60 02293000 ATCOCHA EQU ATCCOM+56 02294000 ATCDSPLQ EQU ATCCOM+52 02295000 ATCECDSP EQU ATCCOM+48 02296000 ATCVARYQ EQU ATCCOM+44 02297000 ATCECVRY EQU ATCCOM+40 02298000 ATCHALTQ EQU ATCCOM+36 02299000 ATCECHLT EQU ATCCOM+32 02300000 ATCMODQ EQU ATCCOM+28 02301000 ATCECMOD EQU ATCCOM+24 02302000 ATCASCHD EQU ATCCOM+20 02303000 ATCSRT EQU ATCCOM+16 02304000 ATCRDT EQU ATCCOM+12 02305000 ATCDCFRR EQU ATCCOM+8 02306000 ATCAPI EQU ATCCOM+4 02307000 ATCRSV04 EQU ATCSTAT4 02308000 ATCVTTRC EQU ATCSTAT4 02309000 ATCNCSD EQU ATCSTAT4 02310000 ATCMTST EQU ATCSTAT4 02311000 ATCTPRT EQU ATCSTAT4 02312000 ATCPRTAT EQU ATCSTAT4 02313000 @NM00061 EQU ATCPOFLG 02314000 ATCPOUNS EQU ATCPOFLG 02315000 ATCHSDMF EQU ATCSTFLG 02316000 @NM00060 EQU ATCSTAT1 02317000 ATCMDHLT EQU ATCSTAT1 02318000 ATCINHLT EQU ATCSTAT1 02319000 ATCNETSL EQU ATCSTAT1 02320000 ATCQKHLT EQU ATCSTAT1 02321000 ATCSNHLT EQU ATCSTAT1 02322000 ATCACTIV EQU ATCSTAT1 02323000 ATCSTART EQU ATCSTAT1 02324000 RPHNEXPO EQU ISTRPH+104 02325000 RPHSAV16 EQU RPHWORK+60 02326000 RPHSAV15 EQU RPHWORK+56 02327000 RPHSAV14 EQU RPHWORK+52 02328000 RPHSAV13 EQU RPHWORK+48 02329000 RPHSAV12 EQU RPHWORK+44 02330000 RPHSAV11 EQU RPHWORK+40 02331000 RPHSAV10 EQU RPHWORK+36 02332000 RPHSAVE9 EQU RPHWORK+32 02333000 RPHSAVE8 EQU RPHWORK+28 02334000 RPHSAVE7 EQU RPHWORK+24 02335000 RPHSAVE6 EQU RPHWORK+20 02336000 RPHSAVE5 EQU RPHWORK+16 02337000 RPHSAVE4 EQU RPHWORK+12 02338000 RPHSAVE3 EQU RPHWORK+8 02339000 RPHSAVE2 EQU RPHWORK+4 02340000 RPHSHALF EQU RPHSAVE1+2 02341000 RPHSBIT8 EQU RPHSBITS 02342000 RPHSBIT7 EQU RPHSBITS 02343000 RPHSBIT6 EQU RPHSBITS 02344000 RPHSBIT5 EQU RPHSBITS 02345000 RPHSBIT4 EQU RPHSBITS 02346000 RPHSBIT3 EQU RPHSBITS 02347000 RPHSBIT2 EQU RPHSBITS 02348000 RPHSBIT1 EQU RPHSBITS 02349000 RPHSBYTE EQU RPHSAVE1 02350000 RPHPABQP EQU RPHPABQA+1 02351000 RPHPABFG EQU RPHPABQA 02352000 RPHCRR EQU ISTRPH+32 02353000 RPHSRP34 EQU RPHSRPRM+2 02354000 RPHSRP12 EQU RPHSRPRM 02355000 RPHWEGT EQU RPHCSPA 02356000 RPHMAJCB EQU ISTRPH+21 02357000 RPHPABOF EQU ISTRPH+20 02358000 RPHRESUM EQU RPHRESMA+1 02359000 RPHRSV01 EQU RPHWPFLG 02360000 RPHPURGE EQU RPHWPFLG 02361000 RPHPT EQU RPHWPFLG 02362000 RPHWT EQU RPHWPFLG 02363000 RPHRSKEY EQU RPHWPFLG 02364000 RPHDVTA EQU ISTRPH+12 02365000 RPHTIK EQU RPHTSKID+3 02366000 @NM00059 EQU RPHTSKID 02367000 RPHRPHAP EQU RPHRPHA+1 02368000 @NM00058 EQU RPHRPHA 02369000 RPHGATE EQU RPHRPHA 02370000 @NM00057 EQU RPHFLGB 02371000 RPHRLCRA EQU RPHFLGB 02372000 RPHNRSAV EQU RPHFLGB 02373000 RPHPGCMP EQU RPHFLGB 02374000 RPHFBAPS EQU RPHFLGB 02375000 RPHBSSP EQU RPHFLGB 02376000 RPHLOCK EQU RPHFLGB 02377000 RPHFNFLG EQU RPHFSTLC 02378000 RPHMLTCP EQU RPHFLAGS 02379000 RPHSMCLR EQU RPHFLAGS 02380000 RPHSMTYP EQU RPHFLAGS 02381000 RPHSMQ EQU RPHFLAGS 02382000 RPHAUTEX EQU RPHAPTYP 02383000 RPHSPGIN EQU RPHFLAGS 02384000 RPHOGIND EQU RPHFLAGS 02385000 RPHLNGTH EQU RPHCNTL+1 02386000 RPHTYPE EQU RPHCNTL 02387000 DYPPAB EQU ISTDYPAB+16 02388000 DYPRSV01 EQU ISTDYPAB+12 02389000 DYPTSKID EQU ISTDYPAB+8 02390000 DYPCHAIN EQU ISTDYPAB+4 02391000 DYPFLGS EQU ISTDYPAB+2 02392000 DYPLNGTH EQU ISTDYPAB+1 02393000 DYPTYPE EQU ISTDYPAB 02394000 LOKXCL EQU @NM00055 02395000 LOKPRY EQU @NM00055 02396000 @NM00056 EQU @NM00055 02397000 @NM00054 EQU LOKCHNG 02398000 LOKCT EQU ISTLOK 02399000 PABRPHA EQU PABRPHFG+1 02400000 PABNODQ EQU PABFLAGS 02401000 PABINHBT EQU PABFLAGS 02402000 PABERLOK EQU PABERRLK 02403000 PABSSN EQU PABFLAGS 02404000 PABDYNAM EQU PABFLAGS 02405000 PABNORPR EQU PABFLAGS 02406000 PABPRIOR EQU PABFLAGS 02407000 PABAPYP EQU PABFLAGS 02408000 PABDVTA EQU ISTPAB+9 02409000 PABOFFST EQU ISTPAB+8 02410000 PABCHNGP EQU PABCHAIN+1 02411000 PABRSV02 EQU PABCHAIN 02412000 PABDELAY EQU PABCHAIN 02413000 PABRUNNG EQU PABCHAIN 02414000 PABRESET EQU PABCHAIN 02415000 PABUNCON EQU PABCHAIN 02416000 PABCDP EQU PABCHAIN 02417000 PABRESCH EQU PABCHAIN 02418000 PABCHNG EQU PABCHAIN 02419000 PABWEQP EQU PABWEQA+1 02420000 PABRSV01 EQU PABWEQA 02421000 PABWEQG EQU PABWEQA 02422000 ISTPDAVP EQU ISTAVT+40 02423000 ISTAVR01 EQU ISTAVT+38 02424000 ISTVTTP EQU ISTAVT+36 02425000 ISTAGTWT EQU ISTAVT+34 02426000 ISTATRT EQU ISTAVT+32 02427000 ISTARID EQU ISTAVT+30 02428000 ISTX1 EQU ISTAVT+29 02429000 ISTPHNM EQU ISTAVT+24 02430000 ISTAPSEX EQU ISTAVT+20 02431000 ISTVTTIK EQU ISTAVT+18 02432000 AVTASID EQU ISTAVT+16 02433000 ISTAPSTA EQU ISTAVT+12 02434000 ISTAS53 EQU ISTAVT+8 02435000 ISTAHIP EQU ISTAS49 02436000 ISTACVT EQU ISTAVT 02437000 RPLSIGDA EQU RPLVTEXT+32 02438000 RPLSAV13 EQU RPLVTEXT+28 02439000 RPLUSNSO EQU RPLOSENS+2 02440000 RPLSSMO EQU RPLSSNSO+1 02441000 @NM00081 EQU RPLSSEO 02442000 RPLRRO EQU RPLSSEO 02443000 RPLFIO EQU RPLSSEO 02444000 RPLSTATO EQU RPLSSEO 02445000 RPLCPMO EQU RPLSSEO 02446000 @NM00080 EQU RPLSSEO 02447000 @NM00079 EQU RPLOPT12 02448000 @NM00078 EQU RPLOPT12 02449000 @NM00077 EQU RPLOPT12 02450000 RPLNIBTK EQU RPLOPT12 02451000 RPLTRUNC EQU RPLOPT12 02452000 RPLKEEP EQU RPLOPT12 02453000 @NM00076 EQU RPLOPT12 02454000 RPLRSVE8 EQU RPLOPT11 02455000 RPLRSVE7 EQU RPLOPT11 02456000 RPLRSVE6 EQU RPLOPT11 02457000 RPLRSVE5 EQU RPLOPT11 02458000 RPLRSVE4 EQU RPLOPT11 02459000 RPLSTOP EQU RPLOPT11 02460000 RPLSTART EQU RPLOPT11 02461000 RPLQUIES EQU RPLOPT11 02462000 RPLRSVI6 EQU RPLOPT10 02463000 RPLRSVI5 EQU RPLOPT10 02464000 RPLRSVI4 EQU RPLOPT10 02465000 RPLRSVI3 EQU RPLOPT10 02466000 RPLRSVI2 EQU RPLOPT10 02467000 RPLSPARM EQU RPLOPT10 02468000 RPLDSPLY EQU RPLOPT10 02469000 RPLBSCID EQU RPLOPT10 02470000 RPLTOPL EQU RPLOPT9 02471000 RPLCIDE EQU RPLOPT9 02472000 RPLRNNM EQU RPLOPT9 02473000 RPLAPPST EQU RPLOPT9 02474000 RPLCOUNT EQU RPLOPT9 02475000 RPLTERMS EQU RPLOPT9 02476000 RPLDEVCH EQU RPLOPT9 02477000 RPLLOGON EQU RPLOPT9 02478000 RPLESR2 EQU RPLUSNSI+1 02479000 RPLESR1 EQU RPLUSNSI 02480000 @NM00075 EQU RPLSSEI 02481000 RPLRRI EQU RPLSSEI 02482000 RPLFII EQU RPLSSEI 02483000 RPLSTATI EQU RPLSSEI 02484000 RPLCPMI EQU RPLSSEI 02485000 RPLPATHI EQU RPLSSEI 02486000 RPLARCLN EQU RPLVTEXT+8 02487000 RPLAAREA EQU RPLVTEXT 02488000 RPLERMSA EQU RPLCOMN+72 02489000 RPLEMLEN EQU RPLCOMN+70 02490000 RPLACTIV EQU RPLCOMN+69 02491000 RPLBRANC EQU RPLEXTD1 02492000 RPLNIB EQU RPLEXTD1 02493000 @NM00074 EQU RPLEXTD1 02494000 RPLEXIT EQU RPLEXTD1 02495000 RPLNEXIT EQU RPLEXTD1 02496000 RPLEXSCH EQU RPLEXTD1 02497000 RPLDDDD EQU RPLRBAR+4 02498000 @NM00073 EQU RPLRBAR+3 02499000 @NM00072 EQU RPLAIXID 02500000 RPLAXPKP EQU RPLAIXID 02501000 RPLAIXPC EQU RPLRBAR 02502000 RPLRSV88 EQU RPLOPT8 02503000 RPLUNCON EQU RPLOPT8 02504000 RPLACTV EQU RPLOPT8 02505000 RPLSESS EQU RPLOPT8 02506000 RPLPEND EQU RPLOPT8 02507000 RPLODPRM EQU RPLOPT8 02508000 RPLODACP EQU RPLOPT8 02509000 RPLODACQ EQU RPLOPT8 02510000 RPLRSV78 EQU RPLOPT7 02511000 RPLTCRNO EQU RPLOPT7 02512000 RPLRLSOP EQU RPLOPT7 02513000 RPLTPOST EQU RPLOPT7 02514000 RPLQOPT EQU RPLOPT7 02515000 RPLCNIMM EQU RPLCNOPT 02516000 RPLCNANY EQU RPLCNOPT 02517000 RPLCNALL EQU RPLCNOPT 02518000 RPLRSV68 EQU RPLOPT6 02519000 RPLRSV67 EQU RPLOPT6 02520000 RPLLOCK EQU RPLOPT6 02521000 RPLNCOND EQU RPLOPT6 02522000 RPLCOND EQU RPLOPT6 02523000 RPLEOT EQU RPLUNTYP 02524000 RPLEOM EQU RPLUNTYP 02525000 RPLEOB EQU RPLUNTYP 02526000 RPLWROPT EQU RPLOPT5 02527000 RPLNODE EQU RPLOPT5 02528000 RPLERACE EQU RPLWRTYP 02529000 RPLEAU EQU RPLWRTYP 02530000 RPLNERAS EQU RPLWRTYP 02531000 RPLPSOPT EQU RPLOPT5 02532000 @NM00071 EQU RPLOPT5 02533000 RPLDLGIN EQU RPLOPT5 02534000 RPLCHAIN EQU RPLNXTRP 02535000 RPLBOP EQU RPLOPT4 02536000 @NM00070 EQU RPLOPT4 02537000 RPLMKFRM EQU RPLOPT4 02538000 RPLENDTR EQU RPLOPT4 02539000 RPLALIGN EQU RPLOPT3 02540000 RPLFMT EQU RPLOPT3 02541000 RPLFLD EQU RPLOPT3 02542000 RPLVFY EQU RPLOPT3 02543000 RPLBLK EQU RPLOPT3 02544000 RPLSFORM EQU RPLOPT3 02545000 RPLEODS EQU RPLOPT3 02546000 RPLNSP EQU RPLOPT2 02547000 RPLUPD EQU RPLOPT2 02548000 @NM00069 EQU RPLOPT2 02549000 RPLLRD EQU RPLOPT2 02550000 RPLBWD EQU RPLOPT2 02551000 RPLCNV EQU RPLOPT2 02552000 RPLADD EQU RPLADR 02553000 RPLKEY EQU RPLOPT2 02554000 RPLECBIN EQU RPLECBSW 02555000 RPLGEN EQU RPLOPT1 02556000 RPLKGE EQU RPLOPT1 02557000 RPLASY EQU RPLOPT1 02558000 RPLSKP EQU RPLOPT1 02559000 RPLSEQ EQU RPLOPT1 02560000 RPLDIR EQU RPLOPT1 02561000 RPLLOC EQU RPLOPT1 02562000 RPLDAF EQU RPLARG+2 02563000 RPLSAF EQU RPLARG 02564000 RPLTCBPT EQU RPLCOMN+28 02565000 RPLDACB EQU RPLCOMN+24 02566000 RPLCCHAR EQU RPLCOMN+20 02567000 RPLSTRID EQU RPLCOMN+18 02568000 RPLKEYL EQU RPLKEYLE 02569000 RPLRDSOH EQU RPLFDB3 02570000 RPLRLG EQU RPLFDB3 02571000 RPLLGFRC EQU RPLFDB3 02572000 RPLREOM EQU RPLFDB3 02573000 RPLREOB EQU RPLFDB3 02574000 RPLSV32 EQU RPLFDB3 02575000 RPLUINPT EQU RPLFDB3 02576000 RPLSTSAV EQU RPLFDB2 02577000 RPLCUERR EQU RPLFDB2 02578000 RPLDLGFL EQU RPLFDB2 02579000 RPLIOERR EQU RPLFDB2 02580000 RPLDVUNS EQU RPLFDB2 02581000 RPLATND EQU RPLFDB2 02582000 RPLRVID EQU RPLFDB2 02583000 RPLERLK EQU RPLFDB2 02584000 RPLERREG EQU RPLRTNCD 02585000 RPLSTAT EQU RPLFDBWD 02586000 RPLPOST EQU RPLECB 02587000 RPLWAIT EQU RPLECB 02588000 RPLPLHPT EQU RPLCOMN+4 02589000 RPLLEN2 EQU RPLLEN 02590000 RPLSTYP EQU RPLIDWD+1 02591000 RPLID EQU RPLIDWD 02592000 SVECC010 EQU TOLTEPWA+3952 02593000 SVETC035 EQU TOLTEPWA+3880 02594000 SVESC030 EQU TOLTEPWA+3808 02595000 SVESC020 EQU TOLTEPWA+3664 02596000 SVEIC002 EQU TOLTEPWA+3520 02597000 SVECC014 EQU TOLTEPWA+3376 02598000 SVESC120 EQU TOLTEPWA+3304 02599000 SVESC025 EQU TOLTEPWA+3088 02600000 @NM00053 EQU TOLTEPWA+2980 02601000 @NM00052 EQU TOLTEPWA+2976 02602000 $R13PR3 EQU TOLTEPWA+2972 02603000 $CEINT2 EQU TOLTEPWA+2968 02604000 $CEINT1 EQU TOLTEPWA+2964 02605000 $MSGGET EQU TOLTEPWA+2960 02606000 $ACQLIST EQU TOLTEPWA+2956 02607000 $R4SAVE1 EQU TOLTEPWA+2952 02608000 $CLSISS EQU TOLTEPWA+2950 02609000 $CLSCNT EQU TOLTEPWA+2948 02610000 $CUTABLE EQU TOLTEPWA+2868 02611000 $BUFSZ2 EQU TOLTEPWA+2864 02612000 $RESID2 EQU TOLTEPWA+2860 02613000 $OLTCCW2 EQU TOLTEPWA+2856 02614000 $ENDBFR2 EQU TOLTEPWA+2852 02615000 $1STBFR2 EQU TOLTEPWA+2848 02616000 $TECB2 EQU TOLTEPWA+2844 02617000 $BUFSZ1 EQU TOLTEPWA+2840 02618000 $RESID1 EQU TOLTEPWA+2836 02619000 $OLTCCW1 EQU TOLTEPWA+2832 02620000 $ENDBFR1 EQU TOLTEPWA+2828 02621000 $1STBFR1 EQU TOLTEPWA+2824 02622000 $TECB1 EQU TOLTEPWA+2820 02623000 $WAITIME EQU TOLTEPWA+2816 02624000 $TRTN# EQU TOLTEPWA+2815 02625000 $WIODEV EQU TOLTEPWA+2814 02626000 $RQSTSZE EQU TOLTEPWA+2812 02627000 $RQSTPTR EQU TOLTEPWA+2808 02628000 $R4SAVE EQU TOLTEPWA+2804 02629000 $PARTADR EQU TOLTEPWA+2800 02630000 $TBSDATA EQU TOLTEPWA+2796 02631000 $CTWIDTH EQU TOLTEPWA+2795 02632000 $CTLINE EQU TOLTEPWA+2794 02633000 $APWIDTH EQU TOLTEPWA+2793 02634000 $APLINE EQU TOLTEPWA+2792 02635000 $INDEX EQU $IMITX 02636000 $UMXX EQU @NM00051+14 02637000 $NSXX EQU @NM00051+12 02638000 $ATACNT EQU $NSCNT 02639000 $CTR EQU @NM00051+8 02640000 $ATAPTR EQU $NSPTR 02641000 $DDRPTR EQU @NM00051 02642000 $DTORESP EQU TOLTEPWA+2712 02643000 $APNAME EQU TOLTEPWA+2704 02644000 $24SYMNE EQU $24CATMG+4 02645000 $24DEVAD EQU $24CATMG 02646000 $24RTN# EQU $24FEMSG+8 02647000 $ESECTID EQU $24FEMSG 02648000 $24FLGS EQU TOLTEPWA+2680 02649000 $24SAVE2 EQU TOLTEPWA+2676 02650000 $24SAVE1 EQU TOLTEPWA+2672 02651000 $24UNADR EQU TOLTEPWA+2668 02652000 $24SAV13 EQU TOLTEPWA+2664 02653000 $24RETCD EQU TOLTEPWA+2663 02654000 $MACID EQU TOLTEPWA+2661 02655000 $CSPARE EQU $CFLGS 02656000 $C2WAY EQU $CFLGS 02657000 $CINCT EQU $CCOMDAT+12 02658000 $CINADR EQU $CCOMDAT+8 02659000 $COUTCT EQU $CCOMDAT+4 02660000 $COUTAD EQU $CCOMDAT 02661000 ROOTLOC EQU TOLTEPWA+2640 02662000 $WORK EQU TOLTEPWA+2376 02663000 $EXTA EQU TOLTEPWA+2320 02664000 $PASSONA EQU TOLTEPWA+2264 02665000 $INBUFR EQU TOLTEPWA+2104 02666000 $BUFFER EQU TOLTEPWA+1976 02667000 $TLTRPL3 EQU TOLTEPWA+1856 02668000 $SLTBL EQU TOLTEPWA+1468 02669000 $CDEVPT EQU TOLTEPWA+1466 02670000 $DEVCNTS EQU TOLTEPWA+1464 02671000 $FEEDBCK EQU $DEVTBLE+66 02672000 $WTISUED EQU $DEVFLG4 02673000 $EXIOISD EQU $DEVFLG4 02674000 $REMWRIT EQU $DEVFLG4 02675000 $REMDONE EQU $DEVFLG4 02676000 $2NDUSED EQU $DEVFLG4 02677000 $1STUSED EQU $DEVFLG4 02678000 $IGLXIFB EQU $DEVFLG4 02679000 $EXIOLV3 EQU $DEVFLG4 02680000 @NM00050 EQU $DEVFLG5 02681000 $OPNDFAL EQU $DEVFLG5 02682000 $ACQNCB EQU $DEVFLG5 02683000 $REMOTE EQU $DEVFLG5 02684000 $ENDNODE EQU $DEVFLG5 02685000 $LINENME EQU $RNINFO 02686000 $DVCOL EQU $LDNCBPT+2 02687000 $DVROW EQU $LDNCBPT 02688000 $NCSPLP EQU $DEVTBLE+44 02689000 $DVLN EQU $SSCPDAF 02690000 $DAF EQU $DEVSESP+4 02691000 $VARYPAB EQU $DEVSESP 02692000 $SYSMN EQU $DEVTBLE+28 02693000 @NM00049 EQU $DEVFLG3 02694000 $CLRSNT EQU $DEVFLG3 02695000 $OLTERR EQU $DEVFLG3 02696000 $SRTEST EQU $DEVFLG3 02697000 $POLLREQ EQU $DEVFLG3 02698000 $ACQRED EQU $DEVFLG3 02699000 $NOTDEV EQU $DEVFLG3 02700000 $CEINTRP EQU $DEVFLG2 02701000 $TESTMDE EQU $DEVFLG2 02702000 $DEVALOC EQU $DEVFLG2 02703000 $ALLDATA EQU $DEVFLG2 02704000 $ENDCNTL EQU $DEVFLG2 02705000 $CTLDEV EQU $DEVFLG2 02706000 $NOCDS EQU $DEVFLG2 02707000 $DATAIN EQU $DEVFLG2 02708000 $PRIMARY EQU $DEVFLG1 02709000 $DEVACT EQU $DEVFLG1 02710000 $DVLGMDE EQU $ATTNEXP 02711000 $DVSPRM EQU $EVNCPLT 02712000 $GRABBED EQU $DEVFLG1 02713000 $CATASTR EQU $DEVFLG1 02714000 $LETGO EQU $DEVFLG1 02715000 $EXTDEV EQU $DEVCDS+11 02716000 @NM00048 EQU $DEVSDCF 02717000 $NOTPRIM EQU $DEVSDCF 02718000 @NM00047 EQU $DEVCDSF 02719000 @NM00046 EQU $DEVCDSF 02720000 @NM00045 EQU $DEVCDSF 02721000 $CDSNAME EQU $DEVCDSF 02722000 $EXTRN EQU $DEVCDSF 02723000 $CEVOLUM EQU $DEVCDSF 02724000 $SHARD EQU $DEVCDSF 02725000 $DEVFPM EQU $DEVCDSF 02726000 $DEVCNT EQU $DEVCDS+8 02727000 $DEVTYPE EQU $DEVFEAT+3 02728000 $DEVCLAS EQU $DEVFEAT+2 02729000 $DEVMOD EQU $DEVFEAT 02730000 $DEVRDGT EQU @NM00043+1 02731000 $DEVCTLU EQU @NM00043+1 02732000 $DEVCHAN EQU @NM00043 02733000 @NM00044 EQU @NM00043 02734000 $CTINDX EQU $DEVUNAD 02735000 @NM00042 EQU $COMMFLG+15 02736000 @NM00041 EQU $COMMFLG+14 02737000 @NM00040 EQU $COMMFLG+13 02738000 @NM00039 EQU $COMMFLG+12 02739000 @NM00038 EQU $FLAG12 02740000 $VARYINP EQU $FLAG12 02741000 $ENDTEST EQU $FLAG12 02742000 $VRYHRD EQU $FLAG12 02743000 $VRYSFT EQU $FLAG12 02744000 $OPTMSG EQU $FLAG12 02745000 @NM00037 EQU $COMMFLG+10 02746000 @NM00036 EQU $COMMFLG+9 02747000 @NM00035 EQU $COMMFLG+8 02748000 $TCECM EQU $FLAG8 02749000 $VS2 EQU $FLAG8 02750000 $VS1 EQU $FLAG8 02751000 $EDOS EQU $FLAG8 02752000 @NM00034 EQU $FLAG8 02753000 @NM00033 EQU $FLAG8 02754000 $RCVMSG EQU $FLAG7 02755000 $RCVRFLG EQU $FLAG7 02756000 $LDOIS EQU $FLAG7 02757000 $DCONTCT EQU $FLAG7 02758000 $2NDDATA EQU $FLAG7 02759000 $1STDATA EQU $FLAG7 02760000 $ABTERM EQU $ABNDBIT 02761000 $FSTMCIS EQU $FLAG6 02762000 $DISCREQ EQU $FLAG6 02763000 $DISCISS EQU $FLAG6 02764000 $CHANGE EQU $FLAG6 02765000 $RECAL11 EQU $FLAG6 02766000 @NM00032 EQU $FLAG5 02767000 $PROGCK EQU $CANCEL 02768000 $PRINTAP EQU $FLAG5 02769000 @NM00031 EQU $FLAG5 02770000 $MSG922 EQU $FLAG5 02771000 $CT924 EQU $FLAG5 02772000 $FSTCAT EQU $FLAG5 02773000 $FSTFE EQU $FLAG5 02774000 $ACTOPND EQU $FLAG4 02775000 $ACQCUTT EQU $FLAG4 02776000 $CLSSACT EQU $FLAG4 02777000 $BACKINT EQU $FLAG4 02778000 $DMSGSW EQU $FLAG4 02779000 $TSTDEVP EQU $FLAG4 02780000 $APRQPER EQU $FLAG4 02781000 $OPCOM EQU $FLAG4 02782000 $NEWAP EQU $FLAG3 02783000 $OPTERR EQU $FLAG3 02784000 $PRTONLY EQU $FLAG3 02785000 $REQSTOR EQU $FLAG3 02786000 $LOGOFFE EQU $FLAG3 02787000 $TSTERR EQU $FLAG3 02788000 $DEVERR EQU $FLAG3 02789000 @NM00030 EQU $COMMFLG+1 02790000 @NM00029 EQU $COMMFLG 02791000 @NM00028 EQU $CDA+120 02792000 $CUCNT EQU $CDA+118 02793000 @NM00027 EQU $CDA+117 02794000 $PRTFORM EQU $CDA+116 02795000 $OPISCNT EQU $CDA+114 02796000 $OPNDCNT EQU $CDA+112 02797000 $GETMSZE EQU $CDA+110 02798000 $GRCNTS EQU $CDA+108 02799000 $CTLCNT EQU $CDA+106 02800000 $ACTLVL EQU $CDA+105 02801000 $PRNTLVL EQU $CDA+104 02802000 $ERRCNTA EQU $CDA+102 02803000 $TLCNT EQU $CDA+100 02804000 $TIMEALW EQU $CDA+96 02805000 $PTRAREA EQU $CDA+92 02806000 $GETMPTR EQU $CDA+88 02807000 $R13PTRT EQU $CDA+84 02808000 $R13PTR EQU $CDA+80 02809000 $TEPEND EQU $CDA+76 02810000 $PLINKDL EQU $CDA+72 02811000 $TEPBEGN EQU $CDA+68 02812000 $FRELPTR EQU $CDA+64 02813000 $HIGHADR EQU $HIMOREC 02814000 $LOMOREC EQU $CDA+56 02815000 $LOWADDR EQU $OLTPTR 02816000 $ENDCOMM EQU $CDA+48 02817000 $COMMON EQU $RCA 02818000 $SLASHAD EQU $CDA+32 02819000 $PASSON EQU $CDA+28 02820000 $TOLBRTB EQU $CDA+24 02821000 $SCTPTR8 EQU $CDA+20 02822000 $SCTPTR EQU $CDA+16 02823000 $TBWDPTR EQU $CDA+12 02824000 $TFWDPTR EQU $CDA+8 02825000 @NM00026 EQU $CDA 02826000 @NM00025 EQU $SCTTBLE+98 02827000 $SCTLWTC EQU $SCTTBLE+96 02828000 $SCTLWTA EQU $SCTTBLE+92 02829000 #EXT EQU $SCTTBLE+88 02830000 #PASS EQU $SCTTBLE+84 02831000 #TABLE EQU $SCTTBLE+80 02832000 #MSGIDAC EQU $SCTTBLE+78 02833000 @NM00024 EQU $SCTTBLE+71 02834000 $RETMASK EQU $SCTTBLE+70 02835000 $R249255 EQU $ROUTMSK+29 02836000 $R241248 EQU $ROUTMSK+28 02837000 $R233240 EQU $ROUTMSK+27 02838000 $R225232 EQU $ROUTMSK+26 02839000 $R217224 EQU $ROUTMSK+25 02840000 $R209216 EQU $ROUTMSK+24 02841000 $R201208 EQU $ROUTMSK+23 02842000 $R193200 EQU $ROUTMSK+22 02843000 $R185192 EQU $ROUTMSK+21 02844000 $R177184 EQU $ROUTMSK+20 02845000 $R169176 EQU $ROUTMSK+19 02846000 $R161168 EQU $ROUTMSK+18 02847000 $R153160 EQU $ROUTMSK+17 02848000 $R145152 EQU $ROUTMSK+16 02849000 $R137144 EQU $ROUTMSK+15 02850000 $R129136 EQU $ROUTMSK+14 02851000 $R121128 EQU $ROUTMSK+13 02852000 $R113120 EQU $ROUTMSK+12 02853000 $R105112 EQU $ROUTMSK+11 02854000 $R097104 EQU $ROUTMSK+10 02855000 $R089096 EQU $ROUTMSK+9 02856000 $R081088 EQU $ROUTMSK+8 02857000 $R073080 EQU $ROUTMSK+7 02858000 $R065072 EQU $ROUTMSK+6 02859000 $R057064 EQU $ROUTMSK+5 02860000 $R049056 EQU $ROUTMSK+4 02861000 $R041048 EQU $ROUTMSK+3 02862000 $R033040 EQU $ROUTMSK+2 02863000 $R025032 EQU $ROUTMSK+1 02864000 $R017024 EQU $ROUTMSK 02865000 $TOTFLG2 EQU $SCTTBLE+39 02866000 @NM00023 EQU $TOTFLG1 02867000 @NM00022 EQU $TOTFLG1 02868000 @NM00021 EQU $TOTFLG1 02869000 $CURELOD EQU $TOTFLG1 02870000 @NM00020 EQU $TOTFLG1 02871000 @NM00019 EQU $TOTFLG1 02872000 $LINESHR EQU $TOTFLG1 02873000 @NM00018 EQU $OLTFLG2 02874000 @NM00017 EQU $OLTFLG2 02875000 @NM00016 EQU $OLTFLG2 02876000 @NM00015 EQU $OLTFLG2 02877000 @NM00014 EQU $OLTFLG2 02878000 @NM00013 EQU $OLTFLG2 02879000 @NM00012 EQU $OLTFLG2 02880000 $TALK EQU $OLTFLG2 02881000 $DYCOM EQU $OLTFLGS 02882000 @NM00011 EQU $OLTFLGS 02883000 $TRACE EQU $OLTFLGS 02884000 $RETCODE EQU $OLTFLGS 02885000 $CONTCB EQU $OLTFLGS 02886000 $RETAIN EQU $OLTFLGS 02887000 $CLEANRT EQU $OLTFLGS 02888000 $MANINTV EQU $OLTFLGS 02889000 $OLTSIZE EQU $SCTTBLE+34 02890000 $QSCTMOD EQU $EXECFLG 02891000 $CTRLMOD EQU $EXECFLG 02892000 $CLEANUP EQU $EXECFLG 02893000 $LSTPDEV EQU $EXECFLG 02894000 $ERRCNT EQU $EXECFLG 02895000 $RTNSLCT EQU $EXECFLG 02896000 $MULTDEV EQU $EXECFLG 02897000 @NM00010 EQU $EXECFLG 02898000 $RMSKCNT EQU $SCTTBLE+32 02899000 $SYNAME EQU $CDS8T19+4 02900000 $EXTSIG EQU $CDS8T19+3 02901000 $CDFLGS EQU $CDS8T19+1 02902000 $CDSCNT EQU $CDS8T19 02903000 $PDEVDSC EQU $SCTTBLE+16 02904000 $PDEVADR EQU $SCTTBLE+12 02905000 $COMMCN EQU $CDSFLGS 02906000 $CUSTSYM EQU $CDSFLGS 02907000 $TWOCHSW EQU $CDSFLGS 02908000 $SYMNAME EQU $CDSFLGS 02909000 $EXTINTC EQU $CDSFLGS 02910000 $CEVOL EQU $CDSFLGS 02911000 $SHARED EQU $CDSFLGS 02912000 $FPM EQU $CDSFLGS 02913000 $LASTSUB EQU $PDEVFLG 02914000 @NM00009 EQU $PDEVFLG 02915000 @NM00008 EQU $PDEVFLG 02916000 @NM00007 EQU $PDEVFLG 02917000 $LASTDEV EQU $PDEVFLG 02918000 @NM00006 EQU $PDEVFLG 02919000 $EXFILPT EQU $PDEVFLG 02920000 $FPMOLD EQU $PDEVFLG 02921000 $TSSSYM EQU $SCTTBLE+8 02922000 $SCTLEVL EQU $SCTTBLE+7 02923000 $DRIVER EQU $SCTTBLE+6 02924000 $RT0916 EQU $SCTTBLE+5 02925000 $RT0108 EQU $SCTTBLE+4 02926000 $LOOPTST EQU $ERROPT 02927000 $LOOPERR EQU $ERROPT 02928000 $NERRPRT EQU $ERROPT 02929000 $NOCNTRL EQU $ERROPT 02930000 $ALTPRNT EQU $ERROPT 02931000 $CATERR EQU $ERROPT 02932000 $ASTERIK EQU $ERROPT 02933000 $TESTERR EQU $ERROPT 02934000 $FSTCOMM EQU $TESTOPT 02935000 $INDEFLP EQU $TESTOPT 02936000 $NOPRT EQU $TESTOPT 02937000 $PARAPRT EQU $TESTOPT 02938000 @NM00005 EQU $TESTOPT 02939000 $ERRLPCT EQU $SCTTBLE 02940000 $TLTEND EQU $RCAAREA+936 02941000 @NM00004 EQU $RCAAREA+605 02942000 $VTAMEND EQU $RCAFLG 02943000 $TPPOSTD EQU $RCAFLG 02944000 $NEWCT EQU $RCAFLG 02945000 $ABNDALL EQU $RCAFLG 02946000 $CUTESTB EQU $RCAFLG 02947000 $CONSOLE EQU $RCAFLG 02948000 $TPLOGON EQU $RCAFLG 02949000 $UPDATE EQU $RCAFLG 02950000 $DEVAREA EQU $RCAAREA+600 02951000 $CTDVAR EQU $RCAAREA+596 02952000 $BUFFS EQU $RCAAREA+464 02953000 $TLTNIB EQU $CONSTNT+140 02954000 $TLTPRPL EQU $CONSTNT+20 02955000 @NM00003 EQU $CONSTNT+4 02956000 @NM00002 EQU $CONSTNT+2 02957000 $USECNT EQU $CONSTNT 02958000 $CURRTWA EQU $POINTER+140 02959000 $CTNAME EQU $POINTER+132 02960000 $CTARGX EQU $POINTER+128 02961000 $COMINT EQU $POINTER+120 02962000 $QUEHNDL EQU $POINTER+116 02963000 @NM00001 EQU $POINTER+36 02964000 $RTNPTR EQU $POINTER+32 02965000 $TLTECB1 EQU $POINTER+24 02966000 $CLEANP EQU $POINTER+20 02967000 $ABEND EQU $POINTER+16 02968000 $LSTAREA EQU $POINTER+12 02969000 $FSTAREA EQU $POINTER+8 02970000 $CVTSAVE EQU $POINTER+4 02971000 $TOLTEP EQU $POINTER 02972000 $TLTACB EQU $RCAAREA 02973000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02974000 @RT00160 EQU C16C0225 02975000 @RT00169 EQU C16C0253 02976000 @RT00174 EQU C16C0100 02977000 @RF00174 EQU C16C0225 02978000 @RT00190 EQU C16C0253 02979000 @RT00206 EQU C16C0075 02980000 @RT00227 EQU C16C0075 02981000 @RT00275 EQU C16C0300 02982000 @RT00278 EQU C16C0300 02983000 @RF00278 EQU C16C0075 02984000 @RT00281 EQU C16C0075 02985000 @RC00283 EQU C16C0300 02986000 @RT00310 EQU C16C0075 02987000 @RT00313 EQU C16C0250 02988000 @RT00319 EQU C16C0075 02989000 @RT00328 EQU C16C0250 02990000 @RF00328 EQU C16C0256 02991000 @RF00325 EQU C16C0075 02992000 @RT00340 EQU C16C0256 02993000 @RT00368 EQU C16C1025 02994000 @RF00362 EQU C16C1050 02995000 @RC00414 EQU @RC00412 02996000 @RC00419 EQU @RC00412 02997000 @RC00435 EQU @RC00434 02998000 @RT00517 EQU C16C0905 02999000 @PB00007 EQU @PB00008 03000000 @PB00006 EQU @PB00007 03001000 @PB00005 EQU @PB00006 03002000 @PB00004 EQU @PB00005 03003000 @PB00003 EQU @PB00004 03004000 @PB00002 EQU @PB00003 03005000 @ENDDATA EQU * 03006000 END ISTCC016,(C'PLS0850',0701,76244) 03007000