TITLE '*** IKTOMLU2, OUTPUT MANAGER FOR NDS/DSE TERMINALS *** *00001000 ' 00002000 IKTOMLU2 CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(16) 01S0001 00007000 DC C'IKTOMLU2 78.016' 01S0001 00008000 DROP @15 00009000 @PROLOG BALR @05,0 01S0001 00010000 @PSTART DS 0H 01S0001 00011000 USING @PSTART,@05 01S0001 00012000 * TOMWAPTR=REG1; /* ADDRESS OF COMPILER STORAGE */ 00013000 LR TOMWAPTR,REG1 01S0140 00014000 * GEN(USING @DATD,TOMWAPTR) 01S0141 00015000 * REFS(TOMWAPTR); /* ADDRESSABILITY FOR COMPILER */ 00016000 USING @DATD,TOMWAPTR 00017000 * RETADR00=REG14; /* SAVE RETURN ADDR TO CALLER */ 00018000 ST REG14,RETADR00 01S0142 00019000 * RFY 01S0143 00020000 * (REG14) UNRSTD; /* UNRESTRICT REGISTER 14 */ 00021000 * RPLPTR=TOMWAPTR+LEN@DATA+LENGTH(TOMWA);/* SET ADDRESS OF WORKING 00022000 * RPL */ 00023000 LA RPLPTR,744 01S0144 00024000 ALR RPLPTR,TOMWAPTR 01S0144 00025000 * RFY 01S0145 00026000 * IFGRPL BASED(RPLPTR); 01S0145 00027000 * TVWAPTR=TSBXTVWA; /* TVWA POINTER */ 00028000 L @12,PSAAOLD 01S0146 00029000 L @12,ASCBTSB(,@12) 01S0146 00030000 L @12,TSBEXTNT(,@12) 01S0146 00031000 L TVWAPTR,TSBXTVWA(,@12) 01S0146 00032000 * TOMGETMN=RPLPTR+LENGTH(IFGRPL); /* SET ADDRESS OF OUTPUT RU BUF */ 00033000 LA @12,112 01S0147 00034000 ALR @12,RPLPTR 01S0147 00035000 ST @12,TOMGETMN(,TOMWAPTR) 01S0147 00036000 * DO; /* CHECKPOINT REGISTERS AND THE 00037000 * ADDRESS @ZM20856*/ 00038000 *CKMC0002: 01S0149 00039000 * STM(REG0,REG15,FRWACKRG); /* SAVE ALL REGISTERS @ZM20856*/ 00040000 CKMC0002 L @12,TVWAFRWO(,TVWAPTR) 01S0149 00041000 STM REG0,REG15,FRWACKRG(@12) 01S0149 00042000 * FRWACKPT(2)=ADDR(CKMC0002); /* SAVE ADDRESS @ZM20856*/ 00043000 LA @04,CKMC0002 01S0150 00044000 ST @04,FRWACKPT+4(,@12) 01S0150 00045000 * END; /* CHECK POINT @ZM20856*/ 00046000 * STM(REG0,REG15,RTRYREGS); /* SAVE REGS FOR ERROR RECOVERY */ 00047000 STM REG0,REG15,RTRYREGS 01S0152 00048000 * RFY 01S0153 00049000 * (REG1, 01S0153 00050000 * REG14) UNRSTD; /* FREE UP REGS 1,14 @ZM20856*/ 00051000 * CALL OFRRLOCK(ADDR(RESTART1)); /* ADD FRR AND OBTAIN LOCAL LOCK 00052000 * @ZM20856*/ 00053000 LA @12,RESTART1 01S0154 00054000 ST @12,@AFTEMPS+12 01S0154 00055000 LA @12,@AFTEMPS+12 01S0154 00056000 ST @12,@AL00001 01S0154 00057000 LA @01,@AL00001 01S0154 00058000 BAL @14,OFRRLOCK 01S0154 00059000 *RESTART1: 01S0155 00060000 * TOMERCNT=0; /* RESET ERROR COUNT */ 00061000 RESTART1 SLR @12,@12 01S0155 00062000 ST @12,TOMERCNT(,TOMWAPTR) 01S0155 00063000 * IF TOMINITS='0'B THEN /* IS THIS FIRST PASS THROUGH? */ 00064000 TM TOMINITS(TOMWAPTR),B'10000000' 01S0156 00065000 BNZ @RF00156 01S0156 00066000 */* *****************************************************************/ 00067000 */* */ 00068000 */* INITIALIZE TOM'S WORKING STORAGE ON FIRST ENTRY. */ 00069000 */* */ 00070000 */* *****************************************************************/ 00071000 * 01S0157 00072000 * CALL TOMINIT; /* INITIALIZE RPL & INDICATORS */ 00073000 BAL @14,TOMINIT 01S0157 00074000 * ELSE 01S0158 00075000 * ; /* NOT FIRST PASS */ 00076000 @RF00156 DS 0H 01S0159 00077000 * TVWATIR='1'B; /* SET TOM IS RUNNING FLAG */ 00078000 OI TVWATIR(TVWAPTR),B'00001000' 01S0159 00079000 * IF TVWASDSG='1'B THEN /* SEND SIGNAL? @ZM20268*/ 00080000 TM TVWASDSG(TVWAPTR),B'01000000' 01S0160 00081000 BNO @RF00160 01S0160 00082000 * DO; /* SEND SIGNAL @ZM20268*/ 00083000 * CALL SENDSIG(ADDR(RESTART1));/* SEND SIGNAL @ZM20856*/ 00084000 LA @12,RESTART1 01S0162 00085000 ST @12,@AFTEMPS+12 01S0162 00086000 LA @12,@AFTEMPS+12 01S0162 00087000 ST @12,@AL00001 01S0162 00088000 LA @01,@AL00001 01S0162 00089000 BAL @14,SENDSIG 01S0162 00090000 * IF TVWASDSG='0'B THEN /* CMD RECEIVED BY TIM? @ZM20268*/ 00091000 TM TVWASDSG(TVWAPTR),B'01000000' 01S0163 00092000 BNZ @RF00163 01S0163 00093000 * TOMEMAIN='0'B; /* CONTINUE MAINLINE @ZM20268*/ 00094000 NI TOMEMAIN(TOMWAPTR),B'11011111' 01S0164 00095000 * ELSE /* CMD NOT RECEIVED @ZM20268*/ 00096000 * DO; /* PREPARE FOR EXIT @ZM20268*/ 00097000 B @RC00163 01S0165 00098000 @RF00163 DS 0H 01S0166 00099000 * TOMEMAIN='1'B; /* EXIT MAIN LOOP @ZM20268*/ 00100000 OI TOMEMAIN(TOMWAPTR),B'00100000' 01S0166 00101000 * TVWATAS='1'B; /* TOM UNAVAILABLE @ZM20268*/ 00102000 OI TVWATAS(TVWAPTR),B'00100000' 01S0167 00103000 * END; /* PREPARED FOR EXIT @ZM20268*/ 00104000 * END; /* SIGNAL SENT @ZM20268*/ 00105000 * ELSE /* DO NOT SEND SIGNAL @ZM20268*/ 00106000 * TOMEMAIN='0'B; /* CONTINUE MAINLINE PROCESSING */ 00107000 B @RC00160 01S0170 00108000 @RF00160 NI TOMEMAIN(TOMWAPTR),B'11011111' 01S0170 00109000 */********************************************************************/ 00110000 */* */ 00111000 */* THIS DO GROUP ENCOMPASSES THE MAINLINE PROCESSING FOR THE 3270 */ 00112000 */* TERMINAL OUTPUT MANAGER (TOM) */ 00113000 */* */ 00114000 */********************************************************************/ 00115000 * 01S0171 00116000 * DO WHILE(TOMEMAIN='0'B); /* @ZM20268*/ 00117000 @RC00160 B @DE00171 01S0171 00118000 @DL00171 DS 0H 01S0172 00119000 * DO; /* CHECKPOINT REGISTERS AND THE 00120000 * ADDRESS @ZM20856*/ 00121000 *CKMC0003: 01S0173 00122000 * STM(REG0,REG15,FRWACKRG); /* SAVE ALL REGISTERS @ZM20856*/ 00123000 CKMC0003 L @12,TVWAFRWO(,TVWAPTR) 01S0173 00124000 STM REG0,REG15,FRWACKRG(@12) 01S0173 00125000 * FRWACKPT(2)=ADDR(CKMC0003); /* SAVE ADDRESS @ZM20856*/ 00126000 LA @04,CKMC0003 01S0174 00127000 ST @04,FRWACKPT+4(,@12) 01S0174 00128000 * END; /* CHECK POINT @ZM20856*/ 00129000 * IF(TVWATID='0'B)& /* HAS TIM EXITED PERMANENTLY? */ 00130000 * (TVWALTE='0'B) THEN /* HAS LOSTERM BEEN ENTERED? */ 00131000 * 01S0176 00132000 TM TVWATID(TVWAPTR),B'00010010' 01S0176 00133000 BNZ @RF00176 01S0176 00134000 * /*************************************************************/ 00135000 * /* */ 00136000 * /* TIM IS NOT DEAD AND LOSTERM HAS NOT BEEN ENTERED SO CON- */ 00137000 * /* TINUE PROCESSING. */ 00138000 * /* */ 00139000 * /*************************************************************/ 00140000 * 01S0177 00141000 * DO; 01S0177 00142000 * IF TOMERMG9='1'B THEN 01S0178 00143000 * 01S0178 00144000 TM TOMERMG9(TOMWAPTR),B'00100000' 01S0178 00145000 BNO @RF00178 01S0178 00146000 * /*********************************************************/ 00147000 * /* */ 00148000 * /* IF THIS IS THE 1ST ENTRY AFTER A PAGING RESPONSE FROM */ 00149000 * /* A SCRN ERASURE AS AN ERP, THEN RESET LINE-CNT AND RE- */ 00150000 * /* SEND RU (ALREADY BUILT). */ 00151000 * /* */ 00152000 * /*********************************************************/ 00153000 * 01S0179 00154000 * DO; 01S0179 00155000 * TVWALNCT=TOMLNCNT; /* USE LINE-COUNT BEFORE ERROR */ 00156000 L @12,TOMLNCNT(,TOMWAPTR) 01S0180 00157000 STC @12,TVWALNCT(,TVWAPTR) 01S0180 00158000 * TOMERMG9='0'B; /* OFF, REQ FOR LINE-CNT RESET */ 00159000 NI TOMERMG9(TOMWAPTR),B'11011111' 01S0181 00160000 * END; 01S0182 00161000 * ELSE 01S0183 00162000 * DO; 01S0183 00163000 B @RC00178 01S0183 00164000 @RF00178 DS 0H 01S0184 00165000 * TOMLNCNT=TVWALNCT; /* USE LINE-COUNT AS LOCAL */ 00166000 SLR @12,@12 01S0184 00167000 IC @12,TVWALNCT(,TVWAPTR) 01S0184 00168000 ST @12,TOMLNCNT(,TOMWAPTR) 01S0184 00169000 * IF VRTRYCNT^=0 THEN 01S0185 00170000 * 01S0185 00171000 SLR @12,@12 01S0185 00172000 C @12,VRTRYCNT 01S0185 00173000 BE @RF00185 01S0185 00174000 * /*****************************************************/ 00175000 * /* */ 00176000 * /* IF THIS ENTRY IS FOR ERROR RETRY OUT OF TOM'S FRR,*/ 00177000 * /* THEN RESET OUTPUT QUEUE POINTER TO TOP OF QUEUE. */ 00178000 * /* */ 00179000 * /*****************************************************/ 00180000 * 01S0186 00181000 * DO; /* BEGIN RESET */ 00182000 * TOMCOLMN=0; /* RESET COLUMN COUNT */ 00183000 ST @12,TOMCOLMN(,TOMWAPTR) 01S0187 00184000 * OPREQ=RESET; /* QUE MANAGER'S CODE FOR RESET */ 00185000 MVI OPREQ(TOMWAPTR),X'07' 01S0188 00186000 * CALL IKTQMOUT(OPARMS);/* CALL OUTPUT QUEUE MANAGER */ 00187000 LA @12,OPARMS(,TOMWAPTR) 01S0189 00188000 ST @12,@AL00001 01S0189 00189000 L @12,CVTPTR 01S0189 00190000 L @12,CVTTCASP(,@12) 01S0189 00191000 L @15,TCASOQM(,@12) 01S0189 00192000 LA @01,@AL00001 01S0189 00193000 BALR @14,@15 01S0189 00194000 * TOMBRKMG='0'B; /* RESET BREAK-MESSAGE SWITCH */ 00195000 NI TOMBRKMG(TOMWAPTR),B'01111111' 01S0190 00196000 * END; /* END OF RESET */ 00197000 * ELSE 01S0192 00198000 * ; /* NOT A RETRY SITUATION */ 00199000 * 01S0192 00200000 @RF00185 DS 0H 01S0193 00201000 * /*******************************************************/ 00202000 * /* */ 00203000 * /* BUILD OUTPUT RU IF OUTPUT DATA & CONTROLS ARE */ 00204000 * /* PENDING */ 00205000 * /* */ 00206000 * /*******************************************************/ 00207000 * 01S0193 00208000 * TOMESEND='0'B; /* INIT LOOP CONTROL FOR SEND */ 00209000 NI TOMESEND(TOMWAPTR),B'11101111' 01S0193 00210000 * IF TVWAFMEW='1'B THEN /* IS THIS ENTRY FOR TIM'S ERASE */ 00211000 TM TVWAFMEW(TVWAPTR),B'00001000' 01S0194 00212000 BNO @RF00194 01S0194 00213000 * DO; 01S0195 00214000 * TVWAFMEW='0'B; /* RESET TVWAFMEW */ 00215000 NI TVWAFMEW(TVWAPTR),B'11110111' 01S0196 00216000 * TOMREQCD=TOMFMWRT;/* SET REQ CODE FOR FORMAT WRT */ 00217000 MVI TOMREQCD(TOMWAPTR),X'01' 01S0197 00218000 * CALL IKT3270O; /* CALL SCRN MANAGER TO BLD RU */ 00219000 L @12,CVTPTR 01S0198 00220000 L @12,CVTTCASP(,@12) 01S0198 00221000 L @15,TCASDATO(,@12) 01S0198 00222000 BALR @14,@15 01S0198 00223000 * END; 01S0199 00224000 * ELSE /* ENTRY IS NOT FOR TIM'S ERASE */ 00225000 * IF TVWABRIN='1'B THEN/* BREAK-IN PROCESS IN PROGRESS?*/ 00226000 B @RC00194 01S0200 00227000 @RF00194 TM TVWABRIN(TVWAPTR),B'10000000' 01S0200 00228000 BNO @RF00200 01S0200 00229000 * IF TVWASCD='1'B THEN/* YES, HAS TIM RECEIVED CD? */ 00230000 TM TVWASCD(TVWAPTR),B'00100000' 01S0201 00231000 BNO @RF00201 01S0201 00232000 * DO; 01S0202 00233000 * TVWARDBF='1'B;/* TURN ON READ BUFFER INDICATOR */ 00234000 OI TVWARDBF(TVWAPTR),B'00100000' 01S0203 00235000 * TVWASCD='0'B; /* OFF, REQ TO SEND CD */ 00236000 NI TVWASCD(TVWAPTR),B'11011111' 01S0204 00237000 * TOMREQCD=TOMRDBF;/* REQ CODE FOR READ BUFFER 00238000 * CMD */ 00239000 MVI TOMREQCD(TOMWAPTR),X'02' 01S0205 00240000 * CALL IKT3270O;/* CALL SCRN MANAGER TO BLD RU */ 00241000 L @12,CVTPTR 01S0206 00242000 L @12,CVTTCASP(,@12) 01S0206 00243000 L @15,TCASDATO(,@12) 01S0206 00244000 BALR @14,@15 01S0206 00245000 * END; 01S0207 00246000 * ELSE 01S0208 00247000 * IF TVWARCDT='1'B THEN/* HAS TIM RECEIVED RD 01S0208 00248000 * BUFFER? */ 00249000 B @RC00201 01S0208 00250000 @RF00201 TM TVWARCDT(TVWAPTR),B'00010000' 01S0208 00251000 BNO @RF00208 01S0208 00252000 * IF(TOMBPREQ='1'B)&/* HAS BREAK-IN PAGE STARTED?*/ 00253000 * (TOMBPRSP='1'B) THEN/* HAS BRK-IN PAGE 00254000 * FINISH? */ 00255000 TM TOMBPREQ(TOMWAPTR),B'00001100' 01S0209 00256000 BNO @RF00209 01S0209 00257000 * DO; 01S0210 00258000 * TVWARCDT='0'B;/* TURN OFF READ BUFF 01S0211 00259000 * RECEIVED */ 00260000 NI TVWARCDT(TVWAPTR),B'11101111' 01S0211 00261000 * TOMBPREQ='0'B;/* TURN OFF BRK-IN PAGE REQ */ 00262000 * TOMBPRSP='0'B;/* TURN OFF BRK-IN PAGE RESP */ 00263000 NI TOMBPREQ(TOMWAPTR),B'11110011' 01S0213 00264000 * TOMREQCD=TOMSCRES;/* REQ CODE FOR SCRN 00265000 * RESTORE */ 00266000 MVI TOMREQCD(TOMWAPTR),X'04' 01S0214 00267000 * CALL IKT3270O;/* CALL SCRN MANAGER TO BLD 00268000 * RU */ 00269000 L @12,CVTPTR 01S0215 00270000 L @12,CVTTCASP(,@12) 01S0215 00271000 L @15,TCASDATO(,@12) 01S0215 00272000 BALR @14,@15 01S0215 00273000 * END; 01S0216 00274000 * ELSE 01S0217 00275000 * DO; 01S0217 00276000 B @RC00209 01S0217 00277000 @RF00209 DS 0H 01S0218 00278000 * TOMBPREQ='1'B;/* REQUEST PAGING AFTER 01S0218 00279000 * BRK-IN */ 00280000 OI TOMBPREQ(TOMWAPTR),B'00001000' 01S0218 00281000 * TOMREQCD=TOMOPRU;/* SET REQ CODE FOR RU BLD*/ 00282000 MVI TOMREQCD(TOMWAPTR),X'00' 01S0219 00283000 * CALL IKT3270O;/* CALL SCRN MANAGER TO BLD 00284000 * RU */ 00285000 L @12,CVTPTR 01S0220 00286000 L @12,CVTTCASP(,@12) 01S0220 00287000 L @15,TCASDATO(,@12) 01S0220 00288000 BALR @14,@15 01S0220 00289000 * END; 01S0221 00290000 * ELSE 01S0222 00291000 * DO; 01S0222 00292000 B @RC00208 01S0222 00293000 @RF00208 DS 0H 01S0223 00294000 * TOMESEND='1'B;/* SET EXIT FROM SEND LOOP */ 00295000 * TOMEMAIN='1'B;/* SET EXIT FROM MAIN LOOP */ 00296000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0224 00297000 * TVWATAS='1'B;/* TOM NOT AVAILABLE */ 00298000 OI TVWATAS(TVWAPTR),B'00100000' 01S0225 00299000 * END; 01S0226 00300000 * ELSE 01S0227 00301000 * DO; /* @ZM20753*/ 00302000 B @RC00200 01S0227 00303000 @RF00200 DS 0H 01S0228 00304000 * IF TVWAGMPT^=0 THEN/* @ZM20753*/ 00305000 L @12,TVWAGMPT(,TVWAPTR) 01S0228 00306000 LTR @12,@12 01S0228 00307000 BZ @RF00228 01S0228 00308000 * CALL FREERDBF;/* @ZM20753*/ 00309000 BAL @14,FREERDBF 01S0229 00310000 * ELSE 01S0230 00311000 * ; /* @ZM20753*/ 00312000 @RF00228 DS 0H 01S0231 00313000 * TOMBPREQ='0'B; /* @ZM20753*/ 00314000 * TOMBPRSP='0'B; /* @ZM20753*/ 00315000 NI TOMBPREQ(TOMWAPTR),B'11110011' 01S0232 00316000 * IF TVWAKBDL='0'B&/* KEYBOARD UNLOCKED? */ 00317000 * TVWASCD='0'B&/* NO CHANGE DIRECTION? */ 00318000 * (TVWAATTN^=0|TVWAAIGN='1'B)&/* ATTENTION? */ 00319000 * TOMEBSV='0'B THEN/* NO END BRACKET SENT? 00320000 * @ZM20919*/ 00321000 TM TVWAKBDL(TVWAPTR),B'00100000' 01S0233 00322000 BNZ @RF00233 01S0233 00323000 TM TVWASCD(TVWAPTR),B'00100000' 01S0233 00324000 BNZ @RF00233 01S0233 00325000 CLI TVWAATTN(TVWAPTR),0 01S0233 00326000 BNE @GL00001 01S0233 00327000 TM TVWAAIGN(TVWAPTR),B'00100000' 01S0233 00328000 BNO @RF00233 01S0233 00329000 @GL00001 TM TOMEBSV(TOMWAPTR),B'00001000' 01S0233 00330000 BNZ @RF00233 01S0233 00331000 * DO; 01S0234 00332000 * IF RPLFIRST='1'B|/* BEGINNING OF CHAIN? */ 00333000 * RPLMIDLE='1'B THEN/* MIDDLE OF CHAIN? */ 00334000 LA @12,16 01S0235 00335000 ALR @12,RPLPTR 01S0235 00336000 TM RPLFIRST(@12),B'11000000' 01S0235 00337000 BZ @RF00235 01S0235 00338000 * DO; /* SET UP FOR END OF CHAIN */ 00339000 * RPLFIRST='0'B;/* ^ BEGINNING OF CHAIN */ 00340000 * RPLMIDLE='0'B;/* ^ MIDDLE OF CHAIN */ 00341000 * RPLLAST='1'B;/* END OF CHAIN */ 00342000 OI RPLLAST(@12),B'00100000' 01S0239 00343000 NI RPLFIRST(@12),B'00111111' 01S0239 00344000 * END; 01S0240 00345000 * ELSE /* END OF OR ONLY CHAIN */ 00346000 * DO; 01S0241 00347000 B @RC00235 01S0241 00348000 @RF00235 DS 0H 01S0242 00349000 * RPLONLY='1'B;/* ONLY CHAIN */ 00350000 * RPLLAST='0'B;/* RESET END OF CHAIN */ 00351000 OI RPLONLY+16(RPLPTR),B'00010000' 01S0243 00352000 NI RPLLAST+16(RPLPTR),B'11011111' 01S0243 00353000 * END; 01S0244 00354000 * CALL SENDSIG(ADDR(RESTART1));/* SEND SIGNAL */ 00355000 @RC00235 LA @12,RESTART1 01S0245 00356000 ST @12,@AFTEMPS+12 01S0245 00357000 LA @12,@AFTEMPS+12 01S0245 00358000 ST @12,@AL00001 01S0245 00359000 LA @01,@AL00001 01S0245 00360000 BAL @14,SENDSIG 01S0245 00361000 * IF TVWASCD='1'B|/* CHANGE DIRECTION RECVD? */ 00362000 * TVWAKBDL='1'B THEN/* KEYBOARD LOCKED? */ 00363000 TM TVWASCD(TVWAPTR),B'00100000' 01S0246 00364000 BO @RT00246 01S0246 00365000 TM TVWAKBDL(TVWAPTR),B'00100000' 01S0246 00366000 BNO @RF00246 01S0246 00367000 @RT00246 DS 0H 01S0247 00368000 * DO; 01S0247 00369000 * TVWASCD='0'B;/* RESET CHANGE DIRECTION */ 00370000 NI TVWASCD(TVWAPTR),B'11011111' 01S0248 00371000 * TOMREQCD=TOMOPRU;/* REQUEST TO BUILD RU */ 00372000 MVI TOMREQCD(TOMWAPTR),X'00' 01S0249 00373000 * CALL IKT3270O;/* DATA HANDLING ROUTINE */ 00374000 L @12,CVTPTR 01S0250 00375000 L @12,CVTTCASP(,@12) 01S0250 00376000 L @15,TCASDATO(,@12) 01S0250 00377000 BALR @14,@15 01S0250 00378000 * END; 01S0251 00379000 * ELSE 01S0252 00380000 * DO; 01S0252 00381000 B @RC00246 01S0252 00382000 @RF00246 DS 0H 01S0253 00383000 * TOMESEND='1'B;/* EXIT SEND LOOP */ 00384000 * TOMEMAIN='1'B;/* EXIT MAINLINE LOOP */ 00385000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0254 00386000 * TVWATAS='1'B;/* TOM UNAVAILABLE */ 00387000 OI TVWATAS(TVWAPTR),B'00100000' 01S0255 00388000 * END; 01S0256 00389000 * END; 01S0257 00390000 * ELSE 01S0258 00391000 * DO; 01S0258 00392000 B @RC00233 01S0258 00393000 @RF00233 DS 0H 01S0259 00394000 * TVWASCD='0'B;/* RESET CHANGE-DIRECTION BIT */ 00395000 NI TVWASCD(TVWAPTR),B'11011111' 01S0259 00396000 * TOMREQCD=TOMOPRU;/* SET REQ CODE FOR NORMAL 00397000 * RU */ 00398000 MVI TOMREQCD(TOMWAPTR),X'00' 01S0260 00399000 * CALL IKT3270O;/* CALL SCRN MANAGER TO BLD RU */ 00400000 L @12,CVTPTR 01S0261 00401000 L @12,CVTTCASP(,@12) 01S0261 00402000 L @15,TCASDATO(,@12) 01S0261 00403000 BALR @14,@15 01S0261 00404000 * END; 01S0262 00405000 * END; /* @ZM20753*/ 00406000 @RC00233 DS 0H 01S0264 00407000 * STM(REG0,REG15,RTRYREGS);/* SAVE REGISTERS FOR RECOVERY*/ 00408000 @RC00200 DS 0H 01S0264 00409000 @RC00194 STM REG0,REG15,RTRYREGS 01S0264 00410000 * RFY 01S0265 00411000 * INFODSCT BASED(ADDR(FRWARTRY));/* POINT TO @ZM20856 00412000 * RETRY INFO AREA @ZM20856*/ 00413000 * INFOADDR=ADDR(RESTART2);/* CHANGE RETRY ADDRESS 01S0266 00414000 * @ZM20856*/ 00415000 L @12,TVWAFRWO(,TVWAPTR) 01S0266 00416000 LA @04,RESTART2 01S0266 00417000 ST @04,INFOADDR+8(,@12) 01S0266 00418000 * END; /* */ 00419000 *RESTART2: 01S0268 00420000 * IF TOMBRKMG='1'B& /* BREAK MESSAGE? @ZM20919*/ 00421000 * TVWABRIN='0'B& /* ^BREAKIN PROCESSING? @ZM20919*/ 00422000 * TVWAKBDL='0'B& /* KEYBOARD UNLOCK? @ZM20919*/ 00423000 * TVWASCD='0'B& /* NO CHANGE DIRECTION @ZM20919*/ 00424000 * TOMEBSV='0'B THEN /* END BRACKET ^ SENT? @ZM20919*/ 00425000 @RC00178 DS 0H 01S0268 00426000 RESTART2 TM TOMBRKMG(TOMWAPTR),B'10000000' 01S0268 00427000 BNO @RF00268 01S0268 00428000 TM TVWABRIN(TVWAPTR),B'10000000' 01S0268 00429000 BNZ @RF00268 01S0268 00430000 TM TVWAKBDL(TVWAPTR),B'00100000' 01S0268 00431000 BNZ @RF00268 01S0268 00432000 TM TVWASCD(TVWAPTR),B'00100000' 01S0268 00433000 BNZ @RF00268 01S0268 00434000 TM TOMEBSV(TOMWAPTR),B'00001000' 01S0268 00435000 BNZ @RF00268 01S0268 00436000 * CALL BREAKIN; /* PROCEED WITH BREAKIN @ZM20919*/ 00437000 BAL @14,BREAKIN 01S0269 00438000 * ELSE 01S0270 00439000 * ; /* @ZM20919*/ 00440000 @RF00268 DS 0H 01S0271 00441000 * DO WHILE TOMESEND='0'B; /* BEGINNING OF SEND LOOP */ 00442000 B @DE00271 01S0271 00443000 @DL00271 DS 0H 01S0272 00444000 * IF TOMBFCNT^=0 THEN /* IS THERE DATA IN OUTPUT RU? */ 00445000 * 01S0272 00446000 L @12,TOMBFCNT(,TOMWAPTR) 01S0272 00447000 LTR @12,@12 01S0272 00448000 BZ @RF00272 01S0272 00449000 * /*******************************************************/ 00450000 * /* */ 00451000 * /* THIS DO GROUP WILL SEND RU TO THE TERMINAL, INVOKE */ 00452000 * /* ERROR RECOVERY IF NECESSARY, DELETE MESSAGES FROM */ 00453000 * /* OUTPUT QUEUE, AND STATUS START TASTS WHEN NECESSARY.*/ 00454000 * /* */ 00455000 * /*******************************************************/ 00456000 * 01S0273 00457000 * DO; /* YES, CONTINUE PROCESSING */ 00458000 * RFY 01S0274 00459000 * (REG0, 01S0274 00460000 * REG15) RSTD; /* RESTRICT RETURN CODE REGISTERS 00461000 * @ZM31130*/ 00462000 EJECT 00463000 * 02S0275 00464000 */********************************************************************/ 00465000 */* */ 00466000 */* THIS PROCEDURE, SENDRU, WILL CALL VTAM TO OUTPUT THE 3270 RU TO */ 00467000 */* THE TERMINAL. */ 00468000 */* */ 00469000 */********************************************************************/ 00470000 * 02S0275 00471000 *SENDRU: 02S0275 00472000 * DO; 02S0275 00473000 SENDRU DS 0H 02S0276 00474000 * DECLARE 02S0276 00475000 * 1 TOMCHAIN BIT(8) DEF(RPLCHN),/* RPL CHAINING 00476000 * FIELD */ 00477000 * 2 TOMFMLO BIT(4),/* RPL CHAINING FLAGS */ 00478000 * 2 * BIT(4); /* RESERVED BY VTAM */ 00479000 * IF TSBXASCI='1'B THEN/* IS TRANSMISSION IN ASCI? */ 00480000 L @14,PSAAOLD 02S0277 00481000 L @01,ASCBTSB(,@14) 02S0277 00482000 L @01,TSBEXTNT(,@01) 02S0277 00483000 TM TSBXASCI(@01),B'10000000' 02S0277 00484000 BNO @RF00277 02S0277 00485000 * RPLCSI='1'B; /* YES, SET RPL FOR ALT CODE */ 00486000 OI RPLCSI+16(RPLPTR),B'00001000' 02S0278 00487000 * ELSE /* NO, STANDARD CODE IS IN USE */ 00488000 * RPLCSI='0'B; /* NO, SET RPL FOR STANDARD CDE */ 00489000 B @RC00277 02S0279 00490000 @RF00277 NI RPLCSI+16(RPLPTR),B'11110111' 02S0279 00491000 * IF TOMERMG9='1'B THEN/* THIS SEND FOR ERROR ERASE? */ 00492000 @RC00277 TM TOMERMG9(TOMWAPTR),B'00100000' 02S0280 00493000 BNO @RF00280 02S0280 00494000 */* *****************************************************************/ 00495000 */* */ 00496000 */* A SPECIAL BUFFER IS USED WHEN THE SCREEN IS ERASED AS AN ERP. */ 00497000 */* */ 00498000 */* *****************************************************************/ 00499000 * 02S0281 00500000 * DO; /* YES, SEND ERROR MSG */ 00501000 * DATAADDR=ADDR(TOMWRKBF);/* CHANGE OUTPUT BUFFER 00502000 * ADDR */ 00503000 LA @14,TOMWRKBF(,TOMWAPTR) 02S0282 00504000 ST @14,DATAADDR 02S0282 00505000 * DATACNT=TOMWRKSZ;/* SET OUTPUT BUFFER SIZE */ 00506000 SLR @14,@14 02S0283 00507000 IC @14,TOMWRKSZ(,TOMWAPTR) 02S0283 00508000 ST @14,DATACNT 02S0283 00509000 * END; /* END SETTING OF RPL FOR ERROR */ 00510000 * ELSE /* RU IS NOT FOR SPECIAL ERR MSG */ 00511000 */* *****************************************************************/ 00512000 */* */ 00513000 */* THIS DO GROUP SETS THE RU ADDRESS AND LENGTH FOR A NORMAL SEND */ 00514000 */* */ 00515000 */* *****************************************************************/ 00516000 * 02S0285 00517000 * DO; /* SET RPL FOR NORMAL RU */ 00518000 B @RC00280 02S0285 00519000 @RF00280 DS 0H 02S0286 00520000 * DATAADDR=TOMGETMN;/* LOAD ADDR OF RU FOR SEND */ 00521000 L @14,TOMGETMN(,TOMWAPTR) 02S0286 00522000 ST @14,DATAADDR 02S0286 00523000 * DATACNT=TOMBFCNT;/* SET OUTPUT RU SIZE */ 00524000 L @14,TOMBFCNT(,TOMWAPTR) 02S0287 00525000 ST @14,DATACNT 02S0287 00526000 * END; /* END SET RPL FOR NORMAL MSG */ 00527000 * TOMWRKVI=0; /* SET CHAINING CONTROL FLAG */ 00528000 @RC00280 SLR @14,@14 02S0289 00529000 ST @14,TOMWRKVI(,TOMWAPTR) 02S0289 00530000 * DO WHILE DATACNT>0;/* SEND UNTIL DATA-CNT IS 0 */ 00531000 B @DE00290 02S0290 00532000 @DL00290 DS 0H 02S0291 00533000 * IF DATACNT>MAXRUSZO THEN/* IS REMAINING DATA > RU 00534000 * SIZE? */ 00535000 L @14,DATACNT 02S0291 00536000 L @12,MAXRUSZO 02S0291 00537000 CR @14,@12 02S0291 00538000 BNH @RF00291 02S0291 00539000 * DO; 02S0292 00540000 * RPLRLEN=MAXRUSZO;/* SET LENGTH OF OUTPUT 00541000 * BUFFER */ 00542000 ST @12,RPLRLEN(,RPLPTR) 02S0293 00543000 * RPLAREA=DATAADDR;/* SET ADDRESS OF OUTPUT 00544000 * BUFFER */ 00545000 L @04,DATAADDR 02S0294 00546000 ST @04,RPLAREA(,RPLPTR) 02S0294 00547000 * DATACNT=DATACNT-MAXRUSZO;/* UPDATE CNT OF 00548000 * DATA REMAINING */ 00549000 SLR @14,@12 02S0295 00550000 ST @14,DATACNT 02S0295 00551000 * DATAADDR=DATAADDR+MAXRUSZO;/* UPDATE ADDR OF 00552000 * REMAINING DATA */ 00553000 ALR @04,@12 02S0296 00554000 ST @04,DATAADDR 02S0296 00555000 * IF TOMWRKVI=0 THEN/* IS THIS THE FIRST PASS? */ 00556000 L @14,TOMWRKVI(,TOMWAPTR) 02S0297 00557000 LTR @14,@14 02S0297 00558000 BNZ @RF00297 02S0297 00559000 EJECT 00560000 * 03S0298 00561000 */********************************************************************/ 00562000 */* */ 00563000 */* THIS PROCEDURE, BGNCHAIN, WILL DO BEGINNING-OF-CHAIN PROCESSING */ 00564000 */* BEFORE THE SEND. */ 00565000 */* */ 00566000 */********************************************************************/ 00567000 * 03S0298 00568000 *BGNCHAIN: 03S0298 00569000 * DO; 03S0298 00570000 BGNCHAIN DS 0H 03S0299 00571000 * TOMWRKVI=1;/* NO LONGER FIRST PASS */ 00572000 MVC TOMWRKVI(4,TOMWAPTR),@CF00040 03S0299 00573000 * TOMFMLO='1000'B;/* SET RU AS BEGINNING OF 00574000 * CHAIN */ 00575000 LA @14,16 03S0300 00576000 ALR @14,RPLPTR 03S0300 00577000 NI TOMFMLO(@14),B'10001111' 03S0300 00578000 OI TOMFMLO(@14),B'10000000' 03S0300 00579000 * RPLSCHED='1'B;/* POST=SCHED */ 00580000 * RPLEX='1'B;/* EXCEPTION REPONSE ONLY */ 00581000 OI RPLSCHED(@14),B'10000100' 03S0302 00582000 * IF TVWARCRS='1'B THEN/* IS TIM RECEIVING 00583000 * RESPONSES? */ 00584000 TM TVWARCRS(TVWAPTR),B'00000010' 03S0303 00585000 BNO @RF00303 03S0303 00586000 * DO; /* BEGIN TIM'S RECEIVING RESP */ 00587000 * RPLNFSYN='1'B;/* CANCEL RESPONSES TO 00588000 * TIM REC */ 00589000 * RPLDFASY='0'B; 03S0306 00590000 OI RPLNFSYN(@14),B'00000100' 03S0306 00591000 NI RPLDFASY(@14),B'11111101' 03S0306 00592000 * TVWARCRS='0'B;/* TIM NOT RECEIVING 00593000 * RESPONSES */ 00594000 NI TVWARCRS(TVWAPTR),B'11111101' 03S0307 00595000 * CALL RESETSR1;/* ISSUE RESETSR */ 00596000 BAL @14,RESETSR1 03S0308 00597000 * END; /* END TIM RECEIVING RESPONSES */ 00598000 * ELSE 03S0310 00599000 * ; /* END TIM RECEIVING RESPONSES */ 00600000 @RF00303 DS 0H 03S0311 00601000 * IF TVWAINB='0'B THEN/* IS SESSION OUT OF 00602000 * BRACKETS? */ 00603000 TM TVWAINB(TVWAPTR),B'00000100' 03S0311 00604000 BNZ @RF00311 03S0311 00605000 * DO; /* BEGIN SESSION OUT OF BRACKETS */ 00606000 * RPLBB='1'B;/* SET RPL FOR BEGIN 03S0313 00607000 * BRACKETS */ 00608000 OI RPLBB+16(RPLPTR),B'10000000' 03S0313 00609000 * TVWATOBB='1'B;/* BEGIN BRACKET 03S0314 00610000 * @ZM20858*/ 00611000 OI TVWATOBB(TVWAPTR),B'00000100' 03S0314 00612000 * TVWAINB='1'B;/* SESSION IS IN 03S0315 00613000 * BRACKETS */ 00614000 OI TVWAINB(TVWAPTR),B'00000100' 03S0315 00615000 * END; /* END SESSION OUT OF BRACKETS */ 00616000 * ELSE /* SESSION IS IN BRACKETS */ 00617000 * DO; 03S0317 00618000 B @RC00311 03S0317 00619000 @RF00311 DS 0H 03S0318 00620000 * TVWATOBB='0'B;/* NOT BEGIN BRACKET 00621000 * @ZM20858*/ 00622000 NI TVWATOBB(TVWAPTR),B'11111011' 03S0318 00623000 * RPLBB='0'B;/* TURN OFF BEGIN BRACKETS*/ 00624000 NI RPLBB+16(RPLPTR),B'01111111' 03S0319 00625000 * END; 03S0320 00626000 * IF TSBNOBRK='0'B&TOMEXBRU='0'B&TVWABRIN='0' 00627000 * THEN 03S0321 00628000 @RC00311 L @14,PSAAOLD 03S0321 00629000 L @01,ASCBTSB(,@14) 03S0321 00630000 TM TSBNOBRK(@01),B'00000010' 03S0321 00631000 BNZ @RF00321 03S0321 00632000 TM TOMEXBRU(TOMWAPTR),B'00000010' 03S0321 00633000 BNZ @RF00321 03S0321 00634000 TM TVWABRIN(TVWAPTR),B'10000000' 03S0321 00635000 BNZ @RF00321 03S0321 00636000 * DO; 03S0322 00637000 * RPLEB='1'B;/* END BRACKET */ 00638000 OI RPLEB+16(RPLPTR),B'01000000' 03S0323 00639000 * TOMEB='1'B;/* END BRACKET */ 00640000 * TOMEBSV='1'B;/* SAVE--END BRACKET 00641000 * @ZM20919*/ 00642000 OI TOMEB(TOMWAPTR),B'01001000' 03S0325 00643000 * TVWAINB='0'B;/* NO LONGER IN BRACKETS*/ 00644000 NI TVWAINB(TVWAPTR),B'11111011' 03S0326 00645000 * END; 03S0327 00646000 * ELSE 03S0328 00647000 * DO; 03S0328 00648000 B @RC00321 03S0328 00649000 @RF00321 DS 0H 03S0329 00650000 * RPLEB='0'B;/* NO END BRACKET */ 00651000 NI RPLEB+16(RPLPTR),B'10111111' 03S0329 00652000 * TOMEB='0'B;/* RESET END-BRACKET FLAG */ 00653000 * TOMEBSV='0'B;/* SAVE--NO END BRACKET 00654000 * @ZM20919*/ 00655000 NI TOMEB(TOMWAPTR),B'10110111' 03S0331 00656000 * END; 03S0332 00657000 * END BGNCHAIN;/* END OF BGNCHAIN */ 00658000 * ELSE /* NO, NOT FIRST PASS */ 00659000 * DO; /* MIDDLE-OF-CHAIN PROCEDSSING */ 00660000 B @RC00297 02S0334 00661000 @RF00297 DS 0H 02S0335 00662000 * TOMFMLO='0100'B;/* NO, SEND RU AS MIDDLE 00663000 * CHAIN */ 00664000 LA @14,16 02S0335 00665000 ALR @14,RPLPTR 02S0335 00666000 NI TOMFMLO(@14),B'01001111' 02S0335 00667000 OI TOMFMLO(@14),B'01000000' 02S0335 00668000 * RPLBB='0'B;/* SET RPL FOR CONTINUE 02S0336 00669000 * BRACKETS */ 00670000 * RPLEB='0'B;/* SET RPL FOR CONTINUE 02S0337 00671000 * BRACKETS */ 00672000 NI RPLBB(@14),B'00111111' 02S0337 00673000 * END; /* END SESSION IS IN BRACKETS */ 00674000 * END; /* END REMAINING DATA > RU SIZE */ 00675000 * ELSE /* REMAINING DATA <= RU SIZE */ 00676000 * DO; /* REMAINING DATA <= RU SIZE */ 00677000 B @RC00291 02S0340 00678000 @RF00291 DS 0H 02S0341 00679000 * RPLRLEN=DATACNT;/* SET LENGTH OF OUTPUT 02S0341 00680000 * BUFFER */ 00681000 L @14,DATACNT 02S0341 00682000 ST @14,RPLRLEN(,RPLPTR) 02S0341 00683000 * RPLAREA=DATAADDR;/* SET ADDRESS OF OUTPUT 00684000 * BUFFER */ 00685000 L @14,DATAADDR 02S0342 00686000 ST @14,RPLAREA(,RPLPTR) 02S0342 00687000 * DATACNT=0; /* UPDATA CNT OF DATA REMAINING */ 00688000 SLR @14,@14 02S0343 00689000 ST @14,DATACNT 02S0343 00690000 * IF TOMWRKVI=0 THEN/* IS THIS THE FIRST PASS? */ 00691000 C @14,TOMWRKVI(,TOMWAPTR) 02S0344 00692000 BNE @RF00344 02S0344 00693000 EJECT 00694000 * 03S0345 00695000 */********************************************************************/ 00696000 */* */ 00697000 */* THIS PROCEDURE, ONLYCHN, WILL DO ONLY CHAIN PROCESSING BEFORE THE*/ 00698000 */* SEND. */ 00699000 */* */ 00700000 */********************************************************************/ 00701000 * 03S0345 00702000 *ONLYCHN: 03S0345 00703000 * DO; 03S0345 00704000 ONLYCHN DS 0H 03S0346 00705000 * TOMFMLO='0001'B;/* SEND RU AS ONLY CHAIN */ 00706000 LA @14,16 03S0346 00707000 ALR @14,RPLPTR 03S0346 00708000 NI TOMFMLO(@14),B'00011111' 03S0346 00709000 OI TOMFMLO(@14),B'00010000' 03S0346 00710000 * TOMEB='0'B;/* RESET END-BRACKET FLAG */ 00711000 * TOMEBSV='0'B;/* RESET TOMEBSV @ZM20919*/ 00712000 NI TOMEB(TOMWAPTR),B'10110111' 03S0348 00713000 * RPLEB='0'B;/* RESET END-BRACKET SWITCH */ 00714000 NI RPLEB(@14),B'10111111' 03S0349 00715000 * IF TVWAINB='0'B THEN/* IS SESSION OUT OF 00716000 * BRACKETS? */ 00717000 TM TVWAINB(TVWAPTR),B'00000100' 03S0350 00718000 BNZ @RF00350 03S0350 00719000 * DO; /* YES, SET BB INDICATOR */ 00720000 * RPLBB='1'B;/* BEGIN BRACKET */ 00721000 OI RPLBB(@14),B'10000000' 03S0352 00722000 * TVWATOBB='1'B;/* BEGIN BRACKET 03S0353 00723000 * @ZM20858*/ 00724000 OI TVWATOBB(TVWAPTR),B'00000100' 03S0353 00725000 * TVWAINB='1'B;/* SESSION IS IN 03S0354 00726000 * BRACKETS */ 00727000 OI TVWAINB(TVWAPTR),B'00000100' 03S0354 00728000 * END; 03S0355 00729000 * ELSE /* IN BRACKETS */ 00730000 * DO; 03S0356 00731000 B @RC00350 03S0356 00732000 @RF00350 DS 0H 03S0357 00733000 * TVWATOBB='0'B;/* NOT BEGIN BRACKET 00734000 * @ZM20858*/ 00735000 NI TVWATOBB(TVWAPTR),B'11111011' 03S0357 00736000 * RPLBB='0'B;/* NOT BEGIN BRACKET */ 00737000 NI RPLBB+16(RPLPTR),B'01111111' 03S0358 00738000 * END; 03S0359 00739000 * IF TOMSCHED='1'B THEN/* RU CONTAIN 03S0360 00740000 * AUTO-PROMT ONLY? */ 00741000 @RC00350 TM TOMSCHED(TOMWAPTR),B'00001000' 03S0360 00742000 BNO @RF00360 03S0360 00743000 */* *****************************************************************/ 00744000 */* */ 00745000 */* RU'S CONTAINING AUTO-PROMPT DATA ONLY WILL BE SENT POST=SHED */ 00746000 */* WITH ONLY EXCEPTION RESPONSES REQUESTED. EXECEPTION RESPONSES */ 00747000 */* WILL BE DETECTED AND HANDLED BY THE INPUT MANAGER (TIM). */ 00748000 */* */ 00749000 */* *****************************************************************/ 00750000 * 03S0361 00751000 * DO; /* BEGIN RU HAS ONLY AUTO-PROMPT */ 00752000 * IF TVWARCRS='0'B THEN/* IS TIM NOT 00753000 * RECEIVING RESPONSE */ 00754000 TM TVWARCRS(TVWAPTR),B'00000010' 03S0362 00755000 BNZ @RF00362 03S0362 00756000 * DO;/* BEGIN TIM NOT RECEIVING RESP */ 00757000 * RPLNFSYN='0'B;/* */ 00758000 * RPLDFASY='1'B; 03S0365 00759000 OI RPLDFASY+16(RPLPTR),B'00000010' 03S0365 00760000 NI RPLNFSYN+16(RPLPTR),B'11111011' 03S0365 00761000 * TVWARCRS='1'B;/* TIM RECEIVING 00762000 * RESPONSES */ 00763000 OI TVWARCRS(TVWAPTR),B'00000010' 03S0366 00764000 * CALL RESETSR1;/* ISSUE RESETSR */ 00765000 BAL @14,RESETSR1 03S0367 00766000 * END;/* END TIM NOT RECEIVING RESP */ 00767000 * ELSE 03S0369 00768000 * ; /* */ 00769000 @RF00362 DS 0H 03S0370 00770000 * RPLSCHED='1'B;/* SEND RU POST=SCHED */ 00771000 * RPLEX='1'B;/* REQUEST EXCEPTION RESP 00772000 * ONLY */ 00773000 OI RPLSCHED+16(RPLPTR),B'10000100' 03S0371 00774000 * END; /* END RU HAS ONLY AUTO-PROMPT */ 00775000 * ELSE /* RU IS NOT AUTO-PROMPT ONLY */ 00776000 */* *****************************************************************/ 00777000 */* */ 00778000 */* RU'S CONTAINING OTHER THAN AUTO-PROMPT DATA ALONE WILL BE SENT */ 00779000 */* POST=RESP WITH NORMAL AND EXCEPTION RESPONSES REQUESTED. */ 00780000 */* */ 00781000 */* *****************************************************************/ 00782000 * 03S0373 00783000 * DO; /* BEGIN RU MORE THAN AUTO-PRMPT */ 00784000 B @RC00360 03S0373 00785000 @RF00360 DS 0H 03S0374 00786000 * RPLSCHED='0'B;/* SEND RU POST=RESP */ 00787000 * RPLEX='0'B;/* REQ, NORMAL & EXCEPTION 00788000 * RESP */ 00789000 LA @14,16 03S0375 00790000 ALR @14,RPLPTR 03S0375 00791000 NI RPLSCHED(@14),B'01111011' 03S0375 00792000 * IF(TSBNOBRK='0'B&/* IS TERMINAL IN 00793000 * BREAK MODE? */ 00794000 * TVWABRIN='0'B&TOMEXBRU='0'B) THEN 00795000 L @12,PSAAOLD 03S0376 00796000 L @01,ASCBTSB(,@12) 03S0376 00797000 TM TSBNOBRK(@01),B'00000010' 03S0376 00798000 BNZ @RF00376 03S0376 00799000 TM TVWABRIN(TVWAPTR),B'10000000' 03S0376 00800000 BNZ @RF00376 03S0376 00801000 TM TOMEXBRU(TOMWAPTR),B'00000010' 03S0376 00802000 BNZ @RF00376 03S0376 00803000 * /* ALL DATA QUEUES CHECKED? */ 00804000 * DO; 03S0377 00805000 * RPLEB='1'B;/* SET EB INDICATOR IN 00806000 * RPL */ 00807000 OI RPLEB(@14),B'01000000' 03S0378 00808000 * TOMEB='1'B;/* END BRACKET */ 00809000 * TOMEBSV='1'B;/* SAVE-END BRACKET 00810000 * @ZM20919*/ 00811000 OI TOMEB(TOMWAPTR),B'01001000' 03S0380 00812000 * TVWAINB='0'B; 03S0381 00813000 NI TVWAINB(TVWAPTR),B'11111011' 03S0381 00814000 * END; 03S0382 00815000 * ELSE 03S0383 00816000 * ; 03S0383 00817000 @RF00376 DS 0H 03S0384 00818000 * END; 03S0384 00819000 * END ONLYCHN;/* END OF ONLYCHN */ 00820000 * ELSE /* NO, NOT FIRST PASS */ 00821000 EJECT 00822000 * 03S0386 00823000 */********************************************************************/ 00824000 */* */ 00825000 */* THIS PROCEDURE, ENDCHAIN, WILL DO END-OF-CHAIN PROCESSING BEFORE */ 00826000 */* THE SEND. */ 00827000 */* */ 00828000 */********************************************************************/ 00829000 * 03S0386 00830000 *ENDCHAIN: 03S0386 00831000 * DO; 03S0386 00832000 B @RC00344 03S0386 00833000 @RF00344 DS 0H 03S0386 00834000 ENDCHAIN DS 0H 03S0387 00835000 * TOMFMLO='0010'B;/* SEND RU AS 03S0387 00836000 * END-OF-CHAIN */ 00837000 LA @14,16 03S0387 00838000 ALR @14,RPLPTR 03S0387 00839000 NI TOMFMLO(@14),B'00101111' 03S0387 00840000 OI TOMFMLO(@14),B'00100000' 03S0387 00841000 * RPLSCHED='0'B;/* SEND RU POST=RESPONSE */ 00842000 * RPLEX='0'B;/* REQUEST NORMAL & EXCEPT 00843000 * RESP */ 00844000 NI RPLSCHED(@14),B'01111011' 03S0389 00845000 * RPLBB='0'B;/* NOT BEGIN BRACKET */ 00846000 NI RPLBB(@14),B'01111111' 03S0390 00847000 * END ENDCHAIN;/* END OF ENDCHAIN */ 00848000 * END; /* END RU SIZE <= REMAINING DATA */ 00849000 @RC00344 DS 0H 02S0393 00850000 * IF TVWAKBDL='0'B THEN/* DOES CURRENT RU UNLOCK 00851000 * KEYBD? */ 00852000 @RC00291 TM TVWAKBDL(TVWAPTR),B'00100000' 02S0393 00853000 BNZ @RF00393 02S0393 00854000 * DO; 02S0394 00855000 * RPLEB='0'B; /* NO END BRACKET */ 00856000 LA @14,16 02S0395 00857000 ALR @14,RPLPTR 02S0395 00858000 NI RPLEB(@14),B'10111111' 02S0395 00859000 * TOMEB='0'B; /* RESET END-BRACKET FLAG */ 00860000 * TOMEBSV='0'B;/* SAVE--NO END BRACKET @ZM20919*/ 00861000 NI TOMEB(TOMWAPTR),B'10110111' 02S0397 00862000 * TVWAINB='1'B;/* IN BRACKETS */ 00863000 OI TVWAINB(TVWAPTR),B'00000100' 02S0398 00864000 * IF RPLLAST='1'B|/* END OF CHAIN? */ 00865000 * RPLONLY='1'B THEN/* ONLY CHAIN? */ 00866000 TM RPLLAST(@14),B'00110000' 02S0399 00867000 BZ @RF00399 02S0399 00868000 * RPLCMD='1'B;/* SET RPL FOR CHANG DIRECTION */ 00869000 OI RPLCMD(@14),B'00100000' 02S0400 00870000 * END; 02S0401 00871000 * ELSE 02S0402 00872000 * ; /* END CURRENT RU UNLOCKS KEYBD */ 00873000 @RF00393 DS 0H 02S0403 00874000 * IF RPLONLY='1'B|/* ONLY CHAIN? */ 00875000 * RPLLAST='1'B THEN/* END OF CHAIN? */ 00876000 @RC00393 TM RPLONLY+16(RPLPTR),B'00110000' 02S0403 00877000 BZ @RF00403 02S0403 00878000 * IF(TSBIWAIT='1'B&/* IS TASK IN INPUT WAIT 02S0404 00879000 * STATUS?*/ 00880000 * TVWAKBDL='0'B)|/* IS KEYBOARD UNLOCKED? */ 00881000 * (TSBOWAIT='1'B&/* IS TASK IN OUTPUT WAIT ? */ 00882000 * TVWAPGN='1'B) THEN/* IS PAGING IN EFFECT? */ 00883000 * 02S0404 00884000 L @14,PSAAOLD 02S0404 00885000 L @01,ASCBTSB(,@14) 02S0404 00886000 TM TSBIWAIT(@01),B'01000000' 02S0404 00887000 BNO @GL00014 02S0404 00888000 TM TVWAKBDL(TVWAPTR),B'00100000' 02S0404 00889000 BZ @RT00404 02S0404 00890000 @GL00014 L @14,PSAAOLD 02S0404 00891000 L @01,ASCBTSB(,@14) 02S0404 00892000 TM TSBOWAIT(@01),B'00100000' 02S0404 00893000 BNO @RF00404 02S0404 00894000 TM TVWAPGN(TVWAPTR),B'01000000' 02S0404 00895000 BNO @RF00404 02S0404 00896000 @RT00404 DS 0H 02S0405 00897000 * /*********************************************/ 00898000 * /* */ 00899000 * /* IF TASK IS IN I-WAIT, THERE IS CURRENTLY */ 00900000 * /* NO MORE DATA A- VAILABLE FOR OUTPUT, AND */ 00901000 * /* NO PAGING OR IF TASK IS IN OUT- PUT-WAIT */ 00902000 * /* STATUS AND PAGING IS ACTIVE, THEN SYSEVENT*/ 00903000 * /* TERM- WAIT (INPUT) WILL BE REQUESTED TO */ 00904000 * /* CAUSE THE ADDRESS SPACE TO BE SWAPPED OUT */ 00905000 * /* PENDING TERMINAL INPUT. */ 00906000 * /* */ 00907000 * /*********************************************/ 00908000 * 02S0405 00909000 * DO; /* BEGIN SYSEVENT PROCESSING */ 00910000 * MPSTSOIR='1'B;/* SYSEVENT REQUESTED */ 00911000 L @14,PSAAOLD 02S0406 00912000 L @01,ASCBASXB(,@14) 02S0406 00913000 L @01,ASXBMPST(,@01) 02S0406 00914000 OI MPSTSOIR(@01),B'01000000' 02S0406 00915000 * TVWAISYS='1'B;/* INPUT-WAIT SYSEVENT */ 00916000 OI TVWAISYS(TVWAPTR),B'10000000' 02S0407 00917000 * END; /* END SYSEVENT IWAIT PROCESSING */ 00918000 * ELSE /* RESET MPST FLAGS @ZM20536*/ 00919000 * DO; /* RESET MPST FLAGS @ZM20536*/ 00920000 B @RC00404 02S0409 00921000 @RF00404 DS 0H 02S0410 00922000 * MPSTSOIR='0'B;/* NO SYSEVENT REQUEST 02S0410 00923000 * @ZM20536*/ 00924000 * MPSTSOIW='0'B;/* NO IWAIT SYSEVENT @ZM20536*/ 00925000 L @14,PSAAOLD 02S0411 00926000 L @01,ASCBASXB(,@14) 02S0411 00927000 L @01,ASXBMPST(,@01) 02S0411 00928000 NI MPSTSOIR(@01),B'00111111' 02S0411 00929000 * END; /* END OF RESET @ZM20536*/ 00930000 * ELSE /* BOC OR MOC @ZM20536*/ 00931000 * DO; /* RESET MPST FLAGS @ZM20536*/ 00932000 B @RC00403 02S0413 00933000 @RF00403 DS 0H 02S0414 00934000 * MPSTSOIR='0'B;/* NO SYSEVENT REQUEST @ZM20536*/ 00935000 * MPSTSOIW='0'B;/* NO IWAIT SYSEVENT @ZM20536*/ 00936000 L @14,PSAAOLD 02S0415 00937000 L @01,ASCBASXB(,@14) 02S0415 00938000 L @01,ASXBMPST(,@01) 02S0415 00939000 NI MPSTSOIR(@01),B'00111111' 02S0415 00940000 * END; /* END OF RESET @ZM20536*/ 00941000 * TVWAIOTR='0'B; /* OUTPUT TRANSACTION */ 00942000 @RC00403 DS 0H 02S0418 00943000 * TVWAIOP='1'B; /* I-O PENDING */ 00944000 OI TVWAIOP(TVWAPTR),B'00100000' 02S0418 00945000 NI TVWAIOTR(TVWAPTR),B'10111111' 02S0418 00946000 */* *****************************************************************/ 00947000 */* */ 00948000 */* RELEASE LOCAL LOCK AND SEND REQUEST UNIT TO TERMINAL (VIA VTAM)*/ 00949000 */* */ 00950000 */* *****************************************************************/ 00951000 * 02S0419 00952000 * CALL RELLOCK; /* RELEASE LOCAL LOCK */ 00953000 BAL @14,RELLOCK 02S0419 00954000 * RFY 02S0420 00955000 * REG2 RSTD; /* RESTRICT REGISTER 2 */ 00956000 * REG2=ADDR(IFGRPL);/* LOAD ADDR OF RPL FOR SEND */ 00957000 LR REG2,RPLPTR 02S0421 00958000 * GEN REFS(REG2) SETS(REG0,REG1,REG14,REG15); 02S0422 00959000 SEND RPL=(REG2),CONTROL=DATA,STYPE=REQ,OPTCD=(SYN,CS) 00960000 * RFY 02S0423 00961000 * REG2 UNRSTD; /* UNRESTRICT REGISTER 2 */ 00962000 * CALL OFRRLOCK(ADDR(RESTART2));/* ADD FRR AND 00963000 * OBTAIN LOCAL LOCK @ZM20856*/ 00964000 LA @14,RESTART2 02S0424 00965000 ST @14,@AFTEMPS+12 02S0424 00966000 LA @14,@AFTEMPS+12 02S0424 00967000 ST @14,@AL00001 02S0424 00968000 LA @01,@AL00001 02S0424 00969000 BAL @14,OFRRLOCK 02S0424 00970000 * TVWAIOP='0'B; /* I-O NOT PENDING */ 00971000 NI TVWAIOP(TVWAPTR),B'11011111' 02S0425 00972000 * IF REG15^=0 THEN/* IS VTAM RETURN CODE BAD? */ 00973000 SLR @14,@14 02S0426 00974000 CR REG15,@14 02S0426 00975000 BE @RF00426 02S0426 00976000 * DATACNT=0; /* YES, RESET DATA CNT FOR RETRY */ 00977000 ST @14,DATACNT 02S0427 00978000 * ELSE 02S0428 00979000 * ; /* */ 00980000 @RF00426 DS 0H 02S0429 00981000 * END; /* */ 00982000 @DE00290 SLR @14,@14 02S0429 00983000 C @14,DATACNT 02S0429 00984000 BL @DL00290 02S0429 00985000 * END SENDRU; /* END OF SENDRU */ 00986000 * TVWAISYS='0'B; /* RESET IWAIT-SYSEVENT FLAG */ 00987000 NI TVWAISYS(TVWAPTR),B'01111111' 01S0431 00988000 * RPLCMD='0'B; /* RESET CHANGE-DIRECTION FLAG */ 00989000 NI RPLCMD+16(RPLPTR),B'11011111' 01S0432 00990000 * IF REG15^=0 THEN /* EXCEPTION CONDITION ON SEND? */ 00991000 * 01S0433 00992000 CR REG15,@14 01S0433 00993000 BE @RF00433 01S0433 00994000 * /***************************************************/ 00995000 * /* */ 00996000 * /* IF EXCEPTION ON SEND THEN ATTEMPT ERROR RECOVERY*/ 00997000 * /* */ 00998000 * /***************************************************/ 00999000 * 01S0434 01000000 * CALL CKVTAMRC; /* YES, PROCESS RETURN CODES */ 01001000 BAL @14,CKVTAMRC 01S0434 01002000 * ELSE /* */ 01003000 * DO; /* */ 01004000 B @RC00433 01S0435 01005000 @RF00433 DS 0H 01S0436 01006000 * RFY 01S0436 01007000 * REG0 UNRSTD; /* FREE UP REG0 @ZM20858*/ 01008000 * STM(REG0,REG15,RTRYREGS);/* REGS FOR RECOVERY */ 01009000 STM REG0,REG15,RTRYREGS 01S0437 01010000 * RFY 01S0438 01011000 * INFODSCT BASED(ADDR(FRWARTRY));/* POINT 01S0438 01012000 * @ZM20856 01013000 * TO RETRY INFO AREA @ZM20856*/ 01014000 * INFOADDR=ADDR(RESTART3);/* CHANGE RETRY 01S0439 01015000 * ADDR@ZM20856 */ 01016000 L @14,TVWAFRWO(,TVWAPTR) 01S0439 01017000 LA @12,RESTART3 01S0439 01018000 ST @12,INFOADDR+8(,@14) 01S0439 01019000 *RESTART3: 01S0440 01020000 * VRTRYCNT=0; /* ERROR RETRY CNT = 0 */ 01021000 RESTART3 SLR @14,@14 01S0440 01022000 ST @14,VRTRYCNT 01S0440 01023000 * TOMERCNT=0; /* RESET ERROR COUNT */ 01024000 ST @14,TOMERCNT(,TOMWAPTR) 01S0441 01025000 * TOMBRKMG='0'B; /* RESET BREAK-MSG FLAG */ 01026000 NI TOMBRKMG(TOMWAPTR),B'01111111' 01S0442 01027000 * TVWASND1='1'B; /* NO LONGER FIRST SEND */ 01028000 OI TVWASND1(TVWAPTR),B'01000000' 01S0443 01029000 * IF TOMREQCD=TOMSCRES THEN/* LAST RU SCRN RESTORE?*/ 01030000 CLI TOMREQCD(TOMWAPTR),4 01S0444 01031000 BNE @RF00444 01S0444 01032000 * DO; 01S0445 01033000 * TVWABRIN='0'B;/* BREAK-IN COMPLETE */ 01034000 NI TVWABRIN(TVWAPTR),B'01111111' 01S0446 01035000 * IF TVWAGMPT^=0 THEN/* @ZM20753*/ 01036000 C @14,TVWAGMPT(,TVWAPTR) 01S0447 01037000 BE @RF00447 01S0447 01038000 * CALL FREERDBF;/* FREE READ BUFF INPUT */ 01039000 BAL @14,FREERDBF 01S0448 01040000 * ELSE 01S0449 01041000 * ; /* @ZM20753*/ 01042000 @RF00447 DS 0H 01S0450 01043000 * END; 01S0450 01044000 * ELSE 01S0451 01045000 * ; /* */ 01046000 @RF00444 DS 0H 01S0452 01047000 * IF TOMERMG9='1'B THEN/* LAST SEND ERR ERASE? */ 01048000 * 01S0452 01049000 TM TOMERMG9(TOMWAPTR),B'00100000' 01S0452 01050000 BNO @RF00452 01S0452 01051000 * /***********************************************/ 01052000 * /* */ 01053000 * /* IF LAST SEND ERASED SCREEN AS AN ERP, RESEND*/ 01054000 * /* RU (ALREADY BUILT) UPON WHICH ERR OCCURRED */ 01055000 * /* IF PAGING RESPONSE HAS ALREADY BEEN */ 01056000 * /* RECEIVED. */ 01057000 * /* */ 01058000 * /***********************************************/ 01059000 * 01S0453 01060000 * DO; /* YES, RESEND OUTPUT RU */ 01061000 * IF TVWAPGN='0'B THEN/* RESP TO ERR PAGE IN? */ 01062000 TM TVWAPGN(TVWAPTR),B'01000000' 01S0454 01063000 BNZ @RF00454 01S0454 01064000 * DO; /* RESET LINE-CNT,SEND RU */ 01065000 * TVWALNCT=TOMLNCNT;/* LINE-CNT BEFORE 01066000 * ERROR */ 01067000 L @14,TOMLNCNT(,TOMWAPTR) 01S0456 01068000 STC @14,TVWALNCT(,TVWAPTR) 01S0456 01069000 * TOMERMG9='0'B;/* OFF, LINE-COUNT RESET */ 01070000 NI TOMERMG9(TOMWAPTR),B'11011111' 01S0457 01071000 * END; /* */ 01072000 * ELSE /* */ 01073000 * DO; 01S0459 01074000 B @RC00454 01S0459 01075000 @RF00454 DS 0H 01S0460 01076000 * TOMESEND='1'B;/* SET EXIT FROM SEND LOOP */ 01077000 * TOMEMAIN='1'B;/* SET EXIT FORM MAIN LOOP */ 01078000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0461 01079000 * END; 01S0462 01080000 * END; 01S0463 01081000 * ELSE /* RESEND RU NEXT ENTRY */ 01082000 * DO; /* */ 01083000 B @RC00452 01S0464 01084000 @RF00452 DS 0H 01S0465 01085000 * RFY 01S0465 01086000 * (REG15) UNRSTD;/* UNRESTRICT REG 15 */ 01087000 * OPREQ=DELETO;/* SET Q MNGR REQ TO DEL */ 01088000 * 01S0466 01089000 MVI OPREQ(TOMWAPTR),X'03' 01S0466 01090000 * /*********************************************/ 01091000 * /* */ 01092000 * /* DELETE SENT MESSAGES FROM OUTPUT QUEUE */ 01093000 * /* */ 01094000 * /*********************************************/ 01095000 * 01S0467 01096000 * CALL IKTQMOUT(OPARMS);/* DELETE MESSAGE +FME */ 01097000 LA @12,OPARMS(,TOMWAPTR) 01S0467 01098000 ST @12,@AL00001 01S0467 01099000 L @12,CVTPTR 01S0467 01100000 L @12,CVTTCASP(,@12) 01S0467 01101000 L @15,TCASOQM(,@12) 01S0467 01102000 LA @01,@AL00001 01S0467 01103000 BALR @14,@15 01S0467 01104000 * IF TOMOWAIT='1'B THEN/* OWAIT MSG COMPLETE? */ 01105000 * 01S0468 01106000 TM TOMOWAIT(TOMWAPTR),B'00000001' 01S0468 01107000 BNO @RF00468 01S0468 01108000 * /*******************************************/ 01109000 * /* */ 01110000 * /* REMOVE TASK FROM OUTPUT WAIT STATUS */ 01111000 * /* */ 01112000 * /*******************************************/ 01113000 * 01S0469 01114000 * DO; /* BEGIN OWAIT PROCESS */ 01115000 * RFY 01S0470 01116000 * (REG0, 01S0470 01117000 * REG1, 01S0470 01118000 * REG4) RSTD;/* @ZM20856*/ 01119000 * REG0=8; /* TASK IS TO BE RESET */ 01120000 LA REG0,8 01S0471 01121000 * REG1='80000000'X;/* CALL IS FOR RESET */ 01122000 L REG1,@CF01565 01S0472 01123000 * REG4=REG13;/* SAVE SAVE AREA ADDRESS IN 01124000 * REG 4 @ZM20856*/ 01125000 LR REG4,REG13 01S0473 01126000 * REG13='0400'X;/* NON-DISPATCHABILITY TO 01127000 * RESET IS OWAIT */ 01128000 LA REG13,1024 01S0474 01129000 * CALL STATUS;/* INVOKE STATUS ROUTINE */ 01130000 L @12,CVTPTR 01S0475 01131000 L @12,CVTABEND(,@12) 01S0475 01132000 L @15,SCVTSTAT(,@12) 01S0475 01133000 BALR @14,@15 01S0475 01134000 * TSBOWAIT='0'B;/* TURN OFF OWAIT BIT */ 01135000 L @12,PSAAOLD 01S0476 01136000 L @12,ASCBTSB(,@12) 01S0476 01137000 NI TSBOWAIT(@12),B'11011111' 01S0476 01138000 * REG13=REG4;/* RESTORE SAVE AREA ADDRESS 01139000 * @ZM20856*/ 01140000 LR REG13,REG4 01S0477 01141000 * RFY 01S0478 01142000 * (REG0, 01S0478 01143000 * REG1, 01S0478 01144000 * REG4) UNRSTD;/* @ZM20856*/ 01145000 * END; /* END OWAIT PROCESS */ 01146000 * ELSE 01S0480 01147000 * ; 01S0480 01148000 @RF00468 DS 0H 01S0481 01149000 * IF TVWAPGN='1'B|/* IS PAGING IN EFFECT? */ 01150000 * TVWAKBDL='0'B THEN/* IS KEYBOARD UNLOCK? */ 01151000 * 01S0481 01152000 TM TVWAPGN(TVWAPTR),B'01000000' 01S0481 01153000 BO @RT00481 01S0481 01154000 TM TVWAKBDL(TVWAPTR),B'00100000' 01S0481 01155000 BNZ @RF00481 01S0481 01156000 @RT00481 DS 0H 01S0482 01157000 * /*******************************************/ 01158000 * /* */ 01159000 * /* PAGING RESPONSE IS OUTSTANDING OR KEYBD */ 01160000 * /* IS UNLOCK - NO WORK CAN BE DONE SO EXIT */ 01161000 * /* */ 01162000 * /*******************************************/ 01163000 * 01S0482 01164000 * TOMEMAIN='1'B;/* SET EXIT MAINLINE LOOP */ 01165000 OI TOMEMAIN(TOMWAPTR),B'00100000' 01S0482 01166000 * ELSE 01S0483 01167000 * ; 01S0483 01168000 @RF00481 DS 0H 01S0484 01169000 * TOMESEND='1'B;/* SET FLAG FOR EXIT SEND LOOP */ 01170000 OI TOMESEND(TOMWAPTR),B'00010000' 01S0484 01171000 * END; 01S0485 01172000 * END; 01S0486 01173000 * END; 01S0487 01174000 * ELSE 01S0488 01175000 * IF(TSBNOBRK='0'B& /* IS TERMINAL IN BREAK MODE? */ 01176000 * TVWABRIN='0'B& /* ^ BREAK PROCESSING? */ 01177000 * TVWAINB='1'B) THEN/* IS SESSION IN BRACKETS? */ 01178000 B @RC00272 01S0488 01179000 @RF00272 L @12,PSAAOLD 01S0488 01180000 L @12,ASCBTSB(,@12) 01S0488 01181000 TM TSBNOBRK(@12),B'00000010' 01S0488 01182000 BNZ @RF00488 01S0488 01183000 TM TVWABRIN(TVWAPTR),B'10000000' 01S0488 01184000 BNZ @RF00488 01S0488 01185000 TM TVWAINB(TVWAPTR),B'00000100' 01S0488 01186000 BNO @RF00488 01S0488 01187000 * DO; 01S0489 01188000 * TOMREQCD=TOMBKSE; /* REQ CODE FOR BRK-MODE SEND */ 01189000 MVI TOMREQCD(TOMWAPTR),X'03' 01S0490 01190000 * CALL IKT3270O; /* CALL SCRN MANAGER TO BLD RU */ 01191000 L @12,CVTPTR 01S0491 01192000 L @12,CVTTCASP(,@12) 01S0491 01193000 L @15,TCASDATO(,@12) 01S0491 01194000 BALR @14,@15 01S0491 01195000 * END; 01S0492 01196000 * ELSE 01S0493 01197000 * DO; 01S0493 01198000 B @RC00488 01S0493 01199000 @RF00488 DS 0H 01S0494 01200000 * TOMESEND='1'B; /* SET EXIT FROM SEND LOOP */ 01201000 * TOMEMAIN='1'B; /* SET EXIT FROM MAIN-LINE LOOP */ 01202000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0495 01203000 * END; 01S0496 01204000 * END; /* END OF SEND LOOP */ 01205000 @RC00488 DS 0H 01S0497 01206000 @RC00272 DS 0H 01S0497 01207000 @DE00271 TM TOMESEND(TOMWAPTR),B'00010000' 01S0497 01208000 BZ @DL00271 01S0497 01209000 * END; /* */ 01210000 * ELSE /* CHK FOR TIM DEAD OR LOSTERM */ 01211000 * IF TVWATID='1'B THEN /* HAS TIM EXITED PERMANENTLY? */ 01212000 B @RC00176 01S0499 01213000 @RF00176 TM TVWATID(TVWAPTR),B'00010000' 01S0499 01214000 BNO @RF00499 01S0499 01215000 * CALL ERREXIT; /* YES, EXIT PERMANENTLY */ 01216000 BAL @14,ERREXIT 01S0500 01217000 * ELSE /* TIM IS NOT DEAD SO CONTINUE */ 01218000 * IF TVWALTE='1'B THEN /* HAS LOSTERM BEEN ENTERED? */ 01219000 B @RC00499 01S0501 01220000 @RF00499 TM TVWALTE(TVWAPTR),B'00000010' 01S0501 01221000 BNO @RF00501 01S0501 01222000 * TOMEMAIN='1'B; /* YES, EXIT NORMALLY */ 01223000 OI TOMEMAIN(TOMWAPTR),B'00100000' 01S0502 01224000 * ELSE 01S0503 01225000 * ; /* */ 01226000 @RF00501 DS 0H 01S0504 01227000 * END; /* **** END OF MAINLINE LOOP */ 01228000 @RC00499 DS 0H 01S0504 01229000 @RC00176 DS 0H 01S0504 01230000 @DE00171 TM TOMEMAIN(TOMWAPTR),B'00100000' 01S0504 01231000 BZ @DL00171 01S0504 01232000 * TVWATIS='0'B; /* INDICATE TOM'S NOT SCHEDULED */ 01233000 NI TVWATIS(TVWAPTR),B'10111111' 01S0505 01234000 * TVWATIR='0'B; /* INDICATE TOM IS NOT RUNNING */ 01235000 NI TVWATIR(TVWAPTR),B'11110111' 01S0506 01236000 */********************************************************************/ 01237000 */* */ 01238000 */* RELEASE LOCAL LOCK AND DELETE FRR BEFORE EXITING */ 01239000 */* */ 01240000 */********************************************************************/ 01241000 * 01S0507 01242000 * CALL RELLOCK; /* RELEASE LOCAL LOCK */ 01243000 BAL @14,RELLOCK 01S0507 01244000 * GEN REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRSELEN,PSA,FRRS) SETS(REG2,REG3 01245000 * ); 01S0508 01246000 * /* VARIABLES REFERENCED AND SET */ 01247000 SETFRR D,WRKREGS=(REG2,REG3),RELATED=(ADDFRR) 01248000 * RFY 01S0509 01249000 * (REG14) RSTD; /* RESTRICT REGISTER 14 */ 01250000 * REG14=RETADR00; /* RESTORE RETURN ADR TO SYSTEM */ 01251000 L REG14,RETADR00 01S0510 01252000 * RFY 01S0511 01253000 * (REG14) UNRSTD; /* UNRESTRICT REGISTER 14 */ 01254000 * GEN(BR REG14) /* RETURN CONTROL TO DISPATCHER */ 01255000 * REFS(REG14); /* REGISTER 14 IS REFERENCED */ 01256000 BR REG14 01257000 */***************** END OF MAINLINE PROCESSING ***********************/ 01258000 * 01S0513 01259000 EJECT 01260000 *SENDSIG: 01S0513 01261000 * PROCEDURE(FRRADD) OPTIONS(SAVE(14));/* SEND SIGNAL @ZM20856*/ 01262000 B @PB00002 01S0513 01263000 SENDSIG ST @14,@SA00002 01S0513 01264000 MVC @PC00002(4),0(@01) 01S0513 01265000 * DECLARE 01S0514 01266000 * FRRADD POINTER(31); /* FRR RETRY ADDR @ZM20856*/ 01267000 * CALL RELLOCK; /* RELEASE LOCK @ZM20268*/ 01268000 BAL @14,RELLOCK 01S0515 01269000 * MPSTSOIR='0'B; /* RESET IWAIT SYSEVENT REQUEST 01270000 * @ZM21354*/ 01271000 * MPSTSOIW='0'B; /* RESET IWAIT SYSEVENT @ZM21354*/ 01272000 L @12,PSAAOLD 01S0517 01273000 L @12,ASCBASXB(,@12) 01S0517 01274000 L @12,ASXBMPST(,@12) 01S0517 01275000 NI MPSTSOIR(@12),B'00111111' 01S0517 01276000 * RFY 01S0518 01277000 * REG2 RSTD; /* RESTRICT REG2 @ZM20268*/ 01278000 * REG2=ADDR(IFGRPL); /* RPL ADDRESS @ZM20268*/ 01279000 LR REG2,RPLPTR 01S0519 01280000 * RPLSIGDA='00010000'X; /* SIGNAL DATA @ZM20268*/ 01281000 MVC RPLSIGDA(4,RPLPTR),@CF02540 01S0520 01282000 * GEN REFS(REG2) SETS(REG0,REG1,REG14,REG15); 01S0521 01283000 SEND RPL=(REG2),CONTROL=SIGNAL,STYPE=REQ,OPTCD=(SYN,CS) 01284000 * RFY 01S0522 01285000 * REG2 UNRSTD; /* FREE REG2 @ZM20268*/ 01286000 * CALL OFRRLOCK(FRRADD); /* SETFRR AND GET THE LOCAL LOCK 01287000 * @ZM20856*/ 01288000 L @12,@PC00002 01S0523 01289000 ST @12,@AL00001 01S0523 01290000 LA @01,@AL00001 01S0523 01291000 BAL @14,OFRRLOCK 01S0523 01292000 * RPLSIGDA=0; /* RESET RPLSIGDA @ZM20268*/ 01293000 SLR @12,@12 01S0524 01294000 ST @12,RPLSIGDA(,RPLPTR) 01S0524 01295000 * RPLFMHDR='0'B; /* RESET FM HEADER@ZM20453 */ 01296000 NI RPLFMHDR(RPLPTR),B'11111110' 01S0525 01297000 * END SENDSIG; /* END OF SENDSIG @ZM20268*/ 01298000 @EL00002 DS 0H 01S0526 01299000 @EF00002 DS 0H 01S0526 01300000 @ER00002 L @14,@SA00002 01S0526 01301000 BR @14 01S0526 01302000 @PB00002 DS 0H 01S0526 01303000 EJECT 01304000 * 01S0527 01305000 */********************************************************************/ 01306000 */* */ 01307000 */* THIS SEGMENT OF CODE BUILDS THE DUMMY RPL FROM WHICH TOM'S WORK- */ 01308000 */* ING RPL IS INITIALIZED AND REBUILT (DURING ERROR RECOVERY). THIS */ 01309000 */* CODE IS NEVER EXECUTED. */ 01310000 */* */ 01311000 */********************************************************************/ 01312000 * 01S0527 01313000 * GEN; 01S0527 01314000 WRKRPL RPL AM=VTAM,BRANCH=YES,POST=RESP,RESPOND=(NEX, CC01315000 FME,NRRN),CHAIN=ONLY,BRACKET=(NBB,NEB), CC01316000 OPTCD=(SYN,CS,SPEC,Q),CHNGDIR=(NCMD,NREQ) 01317000 EJECT 01318000 * 01S0528 01319000 */********************************************************************/ 01320000 */* */ 01321000 */* THIS PROCEDURE, TOMINIT, WILL BE CALLED TO DO ONE-TIME INITIALI- */ 01322000 */* ZATION FOR TOM AND TO REBUILD THE RPL AS NECESSARY. */ 01323000 */* */ 01324000 */********************************************************************/ 01325000 * 01S0528 01326000 *TOMINIT: 01S0528 01327000 * PROCEDURE OPTIONS(SAVE(14)); 01S0528 01328000 B @PB00003 01S0528 01329000 TOMINIT ST @14,12(,@13) 01S0528 01330000 * TOMCOLMN=0; /* RESET COLUMN COUNT */ 01331000 SLR @12,@12 01S0529 01332000 ST @12,TOMCOLMN(,TOMWAPTR) 01S0529 01333000 * IF TOMINITS='0'B THEN /* IS THIS THE INITIAL ENTRY? */ 01334000 TM TOMINITS(TOMWAPTR),B'10000000' 01S0530 01335000 BNZ @RF00530 01S0530 01336000 * DO; /* BEGIN INITIAL ENTRY PROCESS */ 01337000 * TVWALNCT=2; /* RESET LINE COUNT */ 01338000 MVI TVWALNCT(TVWAPTR),X'02' 01S0532 01339000 * TOMINITS='1'B; /* INDICATE 1ST-PASS INIT DONE */ 01340000 OI TOMINITS(TOMWAPTR),B'10000000' 01S0533 01341000 * TOMWRKVI=TSBXRSZO/16; /* MANTISSA FOR COMPUTING RU SZ */ 01342000 L @04,PSAAOLD 01S0534 01343000 L @04,ASCBTSB(,@04) 01S0534 01344000 L @04,TSBEXTNT(,@04) 01S0534 01345000 SLR @15,@15 01S0534 01346000 IC @15,TSBXRSZO(,@04) 01S0534 01347000 LR @04,@15 01S0534 01348000 SRL @04,4 01S0534 01349000 ST @04,TOMWRKVI(,TOMWAPTR) 01S0534 01350000 * TOMWRKVJ=TSBXRSZO//16; /* EXPONENT FOR COMPUINT RU SIZE */ 01351000 LR @00,@15 01S0535 01352000 SRDA @00,32 01S0535 01353000 D @00,@CF00515 01S0535 01354000 ST @00,TOMWRKVJ(,TOMWAPTR) 01S0535 01355000 * SLL(TOMWRKVI,TOMWRKVJ); /* COMPUTE MAXIMUM RU SIZE */ 01356000 L @04,TOMWRKVI(,TOMWAPTR) 01S0536 01357000 LR @01,@00 01S0536 01358000 SLL @04,0(@01) 01S0536 01359000 ST @04,TOMWRKVI(,TOMWAPTR) 01S0536 01360000 * MAXRUSZO=TOMWRKVI; /* SAVE COMPUTED MAX RU SIZE */ 01361000 L @04,TOMWRKVI(,TOMWAPTR) 01S0537 01362000 ST @04,MAXRUSZO 01S0537 01363000 * WRKLGNTH=BUFFSIZE; /* LENGTH OF TOM'S WORK AREA */ 01364000 L @04,@CF02446 01S0538 01365000 ST @04,WRKLGNTH 01S0538 01366000 * TIMTOMLH=0; /* CLEAR TIM-TOM AREA LENGTH */ 01367000 ST @12,TIMTOMLH 01S0539 01368000 * TOMBUFSZ=BUFFSIZE-EVAL(LEN@DATA+LENGTH(TOMWA)+LENGTH(IFGRPL)); 01369000 SL @04,@CF02601 01S0540 01370000 ST @04,TOMBUFSZ(,TOMWAPTR) 01S0540 01371000 * /* SET LENGTH OF OUTPUT BUFFER */ 01372000 * END; /* END INITIAL ENTRY PROCESSING */ 01373000 * ELSE 01S0542 01374000 * ; /* */ 01375000 @RF00530 DS 0H 01S0543 01376000 * IFGRPL=WRKRPL; /* INIT WORKING RPL FROM DUMMY */ 01377000 MVC IFGRPL(112,RPLPTR),WRKRPL 01S0543 01378000 * RPLDACB=TVWAACB; /* PUT ACB ADDRESS IN RPL */ 01379000 L @12,TVWAACB(,TVWAPTR) 01S0544 01380000 ST @12,RPLDACB(,RPLPTR) 01S0544 01381000 * RPLARG=NIBCID; /* CID IN RPL */ 01382000 L @12,TVWANIB(,TVWAPTR) 01S0545 01383000 L @12,NIBCID(,@12) 01S0545 01384000 ST @12,RPLARG(,RPLPTR) 01S0545 01385000 * END TOMINIT; /* END OF TOMINIT */ 01386000 @EL00003 DS 0H 01S0546 01387000 @EF00003 DS 0H 01S0546 01388000 @ER00003 L @14,12(,@13) 01S0546 01389000 BR @14 01S0546 01390000 EJECT 01391000 * 01S0547 01392000 */********************************************************************/ 01393000 */* */ 01394000 */* THIS PROCEDURE, RESETSR1, */ 01395000 */* */ 01396000 */********************************************************************/ 01397000 * 01S0547 01398000 *RESETSR1: 01S0547 01399000 * PROCEDURE OPTIONS(SAVE(14)); 01S0547 01400000 RESETSR1 ST @14,@SA00004 01S0547 01401000 * RFY 01S0548 01402000 * (REG2) RSTD; /* RESTRICT REGISTER(2) */ 01403000 * REG2=ADDR(IFGRPL); /* SET RPL ADDRESS FOR RESETSR */ 01404000 LR REG2,RPLPTR 01S0549 01405000 * RPLRRESP='1'B; /* RTYPE=RESP */ 01406000 OI RPLRRESP+16(RPLPTR),B'00001000' 01S0550 01407000 * CALL RELLOCK; /* RELEASE LOCAL LOCK */ 01408000 BAL @14,RELLOCK 01S0551 01409000 * GEN( RESETSR RPL=(REG2),OPTCD=(SYN,CS))/* RESETSR TO CANCEL TIM'S*/ 01410000 * REFS(REG2); /* RECEIVE - REGISTER 2 IS REFS */ 01411000 RESETSR RPL=(REG2),OPTCD=(SYN,CS) 01412000 * CALL OFRRLOCK(ADDR(RESTART2)); /* ADD FRR AND OBTAIN LOCAL LOCK 01413000 * @ZM20856*/ 01414000 LA @12,RESTART2 01S0553 01415000 ST @12,@AFTEMPS 01S0553 01416000 LA @12,@AFTEMPS 01S0553 01417000 ST @12,@AL00001 01S0553 01418000 LA @01,@AL00001 01S0553 01419000 BAL @14,OFRRLOCK 01S0553 01420000 * RFY 01S0554 01421000 * (REG2) UNRSTD; /* UNRESTRICT REGISTER 2 */ 01422000 * END RESETSR1; /* END OF RESETSR1 */ 01423000 @EL00004 DS 0H 01S0555 01424000 @EF00004 DS 0H 01S0555 01425000 @ER00004 L @14,@SA00004 01S0555 01426000 BR @14 01S0555 01427000 EJECT 01428000 * 01S0556 01429000 */********************************************************************/ 01430000 */* */ 01431000 */* THIS PROCEDURE, OFRRLOCK, WILL SET THE FRR AND OBTAIN THE LOCAL */ 01432000 */* LOCK. */ 01433000 */* */ 01434000 */********************************************************************/ 01435000 * 01S0556 01436000 *OFRRLOCK: 01S0556 01437000 * PROCEDURE(ADDRRTRY) /* @ZM20856*/ 01438000 * OPTIONS(SAVE(14)); /* SAVE RETURN REGISTER @ZM20856*/ 01439000 OFRRLOCK ST @14,@SA00005 01S0556 01440000 MVC @PC00005(4),0(@01) 01S0556 01441000 * DECLARE 01S0557 01442000 * ADDRRTRY POINTER(31); /* PARAMETER @ZM20586*/ 01443000 * RFY 01S0558 01444000 * (REG3, 01S0558 01445000 * REG7, 01S0558 01446000 * REG15) RSTD; /* RESTRICT REGISTERS */ 01447000 * REG7=ADDR(IKTIOFRR); /* ADDRESS OF FRR FOR SETFRR */ 01448000 L @14,CVTPTR 01S0559 01449000 L @14,CVTTCASP(,@14) 01S0559 01450000 L REG7,TCASFRR(,@14) 01S0559 01451000 * GEN REFS(FRRS,FRRSLAST,FRRSELEN,FRRSCURR,FRRSENTR,FRRSFRRA,FRRSPARM 01452000 * ,PSALITA,PSA,PSACSTK,PSALSFCC,REG7,FLC) SETS(REG0,REG1,REG2, 01453000 * REG3,REG13,REG14,REG15); 01S0560 01454000 * /* @ZM20856*/ 01455000 STM @14,@01,12(@13) /* SAVE REGISTERS @ZM21271*/ 01456000 SETFRR A,FRRAD=(REG7),WRKREGS=(REG1,REG2),PARMAD=(REG3) 01457000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,RELATED=(FREELOCK), **01458000 REGS=USE 01459000 LM @14,@01,12(@13) /* RESTORE REGISTERS @ZM21271*/ 01460000 * FRRPRMPT=REG3; /* SET ADDR OF FRR PARMS AREA */ 01461000 ST REG3,FRRPRMPT 01S0561 01462000 * CALL INITFRR(ADDRRTRY); /* CALL FRR INIT PROCESS@ZM20856 */ 01463000 L @14,@PC00005 01S0562 01464000 ST @14,@AL00001 01S0562 01465000 LA @01,@AL00001 01S0562 01466000 BAL @14,INITFRR 01S0562 01467000 * RFY 01S0563 01468000 * (REG3, 01S0563 01469000 * REG7) UNRSTD; /* FREE REGISTERS */ 01470000 * END OFRRLOCK; /* END OF OFRRLOCK */ 01471000 @EL00005 DS 0H 01S0564 01472000 @EF00005 DS 0H 01S0564 01473000 @ER00005 L @14,@SA00005 01S0564 01474000 BR @14 01S0564 01475000 EJECT 01476000 * 01S0565 01477000 */********************************************************************/ 01478000 */* */ 01479000 */* THIS PROCEDURE, RELLOCK, WILL RELEASE THE LOCAL LOCK. */ 01480000 */* */ 01481000 */********************************************************************/ 01482000 * 01S0565 01483000 *RELLOCK: 01S0565 01484000 * PROCEDURE OPTIONS(SAVE,NOSAVEAREA);/* SAVE ALL REGS@ZM20856 */ 01485000 RELLOCK STM @14,@12,12(@13) 01S0565 01486000 * RFY 01S0566 01487000 * REG15 UNRSTD; /* FREE REGISTER 15 */ 01488000 * GEN REFS(PSALITA,FLC) SETS(REG13,REG14); 01S0567 01489000 SETLOCK RELEASE,TYPE=LOCAL,REGS=USE,RELATED=(GETLOCAL) 01490000 * END RELLOCK; /* END OF RELLOCK */ 01491000 @EL00006 DS 0H 01S0568 01492000 @EF00006 DS 0H 01S0568 01493000 @ER00006 LM @14,@12,12(@13) 01S0568 01494000 BR @14 01S0568 01495000 EJECT 01496000 * 01S0569 01497000 */********************************************************************/ 01498000 */* */ 01499000 */* THIS PROCEDURE, FREERDBF, WILL FREE THE READ-BUFFER AREA. */ 01500000 */* */ 01501000 */********************************************************************/ 01502000 * 01S0569 01503000 *FREERDBF: 01S0569 01504000 * PROCEDURE OPTIONS(SAVE(14)); 01S0569 01505000 FREERDBF ST @14,@SA00007 01S0569 01506000 * DCL 01S0570 01507000 * GETMLENG FIXED(31) BASED(TVWAGMPT); 01S0570 01508000 * RFY 01S0571 01509000 * (REG2, 01S0571 01510000 * REG4, 01S0571 01511000 * REG7, 01S0571 01512000 * REG10, 01S0571 01513000 * REG11, 01S0571 01514000 * REG15) RSTD; /* RESTRICT REG@ZM21242 */ 01515000 * REG4=TVWATCB; /* TCB ADDRESS */ 01516000 L REG4,TVWATCB(,TVWAPTR) 01S0572 01517000 * REG7=PSAAOLD; 01S0573 01518000 L REG7,PSAAOLD 01S0573 01519000 * REG10=GETMLENG; /* LENGTH OF AREA TO BE FREED */ 01520000 L @14,TVWAGMPT(,TVWAPTR) 01S0574 01521000 L REG10,GETMLENG(,@14) 01S0574 01522000 * REG11=TVWAGMPT; /* AREA TO BE FREED */ 01523000 LR REG11,@14 01S0575 01524000 * GEN REFS(CVTMAP,CVTPTR,CVTCRMN,REG10,REG11) SETS(REG0,REG1,REG3, 01525000 * REG14,REG15); 01S0576 01526000 FREEMAIN RC,LV=(REG10),A=(REG11),SP=229,BRANCH=YES 01527000 * TVWAGMPT=0; /* CLEAR POINTER @ZM21242*/ 01528000 SLR @14,@14 01S0577 01529000 ST @14,TVWAGMPT(,TVWAPTR) 01S0577 01530000 * REG4=TVWATOMW; 01S0578 01531000 L REG4,TVWATOMW(,TVWAPTR) 01S0578 01532000 * RFY 01S0579 01533000 * (REG2, 01S0579 01534000 * REG4, 01S0579 01535000 * REG7, 01S0579 01536000 * REG10, 01S0579 01537000 * REG11, 01S0579 01538000 * REG15) UNRSTD; /* FREE REGS @ZM21242*/ 01539000 * END FREERDBF; /* END OF FREERDBF */ 01540000 @EL00007 DS 0H 01S0580 01541000 @EF00007 DS 0H 01S0580 01542000 @ER00007 L @14,@SA00007 01S0580 01543000 BR @14 01S0580 01544000 EJECT 01545000 * 01S0581 01546000 */********************************************************************/ 01547000 */* */ 01548000 */* IF THE TERMINAL IS IN BREAK MODE AND A BREAK MESSAGE IS TO BE */ 01549000 */* SENT, START BREAK-IN PROCESSING BY CALLING SENDSIG TO SEND A */ 01550000 */* SIGNAL TO THE TERMINAL. */ 01551000 */* */ 01552000 */********************************************************************/ 01553000 * 01S0581 01554000 *BREAKIN: 01S0581 01555000 * PROCEDURE OPTIONS(SAVE(14)); /* @ZM20919*/ 01556000 BREAKIN ST @14,@SA00008 01S0581 01557000 * TOMESEND='1'B; /* EXIT FROM SEND LOOP */ 01558000 OI TOMESEND(TOMWAPTR),B'00010000' 01S0582 01559000 * IF TOMBRKMG='1'B& /* TPUT BREAK MESSAGE? */ 01560000 * TSBNOBRK='0'B THEN /* BREAK TERMINAL? */ 01561000 TM TOMBRKMG(TOMWAPTR),B'10000000' 01S0583 01562000 BNO @RF00583 01S0583 01563000 L @12,PSAAOLD 01S0583 01564000 L @12,ASCBTSB(,@12) 01S0583 01565000 TM TSBNOBRK(@12),B'00000010' 01S0583 01566000 BNZ @RF00583 01S0583 01567000 * DO; /* DO BREAK-IN PROCESSING */ 01568000 * TVWABRIN='1'B; /* START BREAK-IN PROCESSING */ 01569000 OI TVWABRIN(TVWAPTR),B'10000000' 01S0585 01570000 * TVWALNCT=1; /* RESET LINE COUNT @ZM20919*/ 01571000 MVI TVWALNCT(TVWAPTR),X'01' 01S0586 01572000 * TVWAPGN='0'B; /* RESET PAGING BIT @ZM20919*/ 01573000 NI TVWAPGN(TVWAPTR),B'10111111' 01S0587 01574000 * IF RPLFIRST='1'B| /* BEGINNING OF CHAIN? */ 01575000 * RPLMIDLE='1'B THEN /* MIDDLE OF CHAIN? */ 01576000 LA @12,16 01S0588 01577000 ALR @12,RPLPTR 01S0588 01578000 TM RPLFIRST(@12),B'11000000' 01S0588 01579000 BZ @RF00588 01S0588 01580000 * DO; /* SET CHAIN ELEMENT TO EOC */ 01581000 * RPLFIRST='0'B; /* NOT BEGINNING OF CHAIN */ 01582000 * RPLMIDLE='0'B; /* NOT MIDDLE OF CHAIN */ 01583000 * RPLLAST='1'B; /* LAST OF CHAIN */ 01584000 OI RPLLAST(@12),B'00100000' 01S0592 01585000 NI RPLFIRST(@12),B'00111111' 01S0592 01586000 * END; /* CHAIN-ELEMENT SET TO EOC */ 01587000 * ELSE /* END OF CHAIN OR ONLY CHAIN */ 01588000 * DO; /* SET CHAIN ELEMENT TO OC */ 01589000 B @RC00588 01S0594 01590000 @RF00588 DS 0H 01S0595 01591000 * RPLONLY='1'B; /* ONLY CHAIN */ 01592000 * RPLLAST='0'B; /* NOT END OF CHAIN */ 01593000 OI RPLONLY+16(RPLPTR),B'00010000' 01S0596 01594000 NI RPLLAST+16(RPLPTR),B'11011111' 01S0596 01595000 * END; /* CHAIN ELEMENT SET TO OC */ 01596000 * CALL SENDSIG(ADDR(RESTART2));/* SEND SIGNAL @ZM20856*/ 01597000 @RC00588 LA @12,RESTART2 01S0598 01598000 ST @12,@AFTEMPS+4 01S0598 01599000 LA @12,@AFTEMPS+4 01S0598 01600000 ST @12,@AL00001 01S0598 01601000 LA @01,@AL00001 01S0598 01602000 BAL @14,SENDSIG 01S0598 01603000 * END; /* END OF BREAK-IN PROCESSING */ 01604000 * ELSE /* DO NOT BREAK IN */ 01605000 * DO; 01S0600 01606000 B @RC00583 01S0600 01607000 @RF00583 DS 0H 01S0601 01608000 * TVWABFC='1'B; /* BUFFER CONTENTION */ 01609000 OI TVWABFC(TVWAPTR),B'10000000' 01S0601 01610000 * TOMEMAIN='1'B; /* EXIT MAINLINE LOOP */ 01611000 OI TOMEMAIN(TOMWAPTR),B'00100000' 01S0602 01612000 * END; 01S0603 01613000 * TOMBRKMG='0'B; /* RESET TOMBRKMG @ZM20919*/ 01614000 @RC00583 NI TOMBRKMG(TOMWAPTR),B'01111111' 01S0604 01615000 * TOMCOLMN=0; /* RESET COLUMN COUNT @ZM20919*/ 01616000 SLR @12,@12 01S0605 01617000 ST @12,TOMCOLMN(,TOMWAPTR) 01S0605 01618000 * OPREQ=RESET; /* RESET MESSAGES @ZM20919*/ 01619000 MVI OPREQ(TOMWAPTR),X'07' 01S0606 01620000 * CALL IKTQMOUT(OPARMS); /* CALL QUEUE MANAGER @ZM20919*/ 01621000 LA @12,OPARMS(,TOMWAPTR) 01S0607 01622000 ST @12,@AL00001 01S0607 01623000 L @12,CVTPTR 01S0607 01624000 L @12,CVTTCASP(,@12) 01S0607 01625000 L @15,TCASOQM(,@12) 01S0607 01626000 LA @01,@AL00001 01S0607 01627000 BALR @14,@15 01S0607 01628000 * END BREAKIN; /* END OF BREAKIN @ZM20919*/ 01629000 @EL00008 DS 0H 01S0608 01630000 @EF00008 DS 0H 01S0608 01631000 @ER00008 L @14,@SA00008 01S0608 01632000 BR @14 01S0608 01633000 EJECT 01634000 * 01S0609 01635000 */********************************************************************/ 01636000 */* */ 01637000 */* THIS PROCEDURE, CKVTAMRC, WILL BE CALLED TO PROCESS EXCEPTION */ 01638000 */* RETURN CODES FROM VTAM WHEN AN EXCEPTION CONDITION IS DETECTED */ 01639000 */* ON A SEND. */ 01640000 */* */ 01641000 */********************************************************************/ 01642000 * 01S0609 01643000 *CKVTAMRC: 01S0609 01644000 * PROCEDURE OPTIONS(SAVE(14)); 01S0609 01645000 CKVTAMRC ST @14,@SA00009 01S0609 01646000 * RFY 01S0610 01647000 * (REG2, 01S0610 01648000 * REG15, 01S0610 01649000 * REG0) RSTD; /* RESTRICT REGISTERS @ZM20858*/ 01650000 */********************************************************************/ 01651000 */* CHECK IMMEDIATE VTAM RETURN CODE @ZM20858*/ 01652000 */********************************************************************/ 01653000 * 01S0611 01654000 * IF REG15=32| /* IF RPL IS INVALID OR @ZM20858*/ 01655000 * (REG15=4®0=24) THEN /* VTAM NOT ACTIVE @ZM20858 01656000 * RETRY 3 TIMES @ZM20858*/ 01657000 C REG15,@CF00036 01S0611 01658000 BE @RT00611 01S0611 01659000 C REG15,@CF00123 01S0611 01660000 BNE @RF00611 01S0611 01661000 C REG0,@CF00284 01S0611 01662000 BNE @RF00611 01S0611 01663000 @RT00611 DS 0H 01S0612 01664000 * IF VRTRYCNT>=3|TOMERCNT>=3 THEN/* RETRY LIMIT EXCEEDED @ZM20858*/ 01665000 LA @14,3 01S0612 01666000 C @14,VRTRYCNT 01S0612 01667000 BNH @RT00612 01S0612 01668000 C @14,TOMERCNT(,TOMWAPTR) 01S0612 01669000 BH @RF00612 01S0612 01670000 @RT00612 DS 0H 01S0613 01671000 * CALL EXITFRR; /* CALL ABEND ROUTINE @ZM20856*/ 01672000 BAL @14,EXITFRR 01S0613 01673000 * ELSE 01S0614 01674000 * CALL TOMINIT; /* REFRESH RPL AND RETRY@ZM20858 */ 01675000 B @RC00612 01S0614 01676000 @RF00612 BAL @14,TOMINIT 01S0614 01677000 * ELSE /* IMMEDIATE VTAM RC OK @ZM20858*/ 01678000 * DO; /* ***** CONTINUE NORMAL 01S0615 01679000 * PROCEEDURE** @ZM20858*/ 01680000 B @RC00611 01S0615 01681000 @RF00611 DS 0H 01S0616 01682000 */* *****************************************************************/ 01683000 */* CHECK LOSTERM SITUATIONS */ 01684000 */* *****************************************************************/ 01685000 * 01S0616 01686000 * IF(RPLRTNCD=12&(RPLFDB2=2| /* REQUEST RESET @ZM20858*/ 01687000 * RPLFDB2=7| /* RECOVERY IN PROGRESS @ZM20858*/ 01688000 * RPLFDB2=8| /* RECORD TERM RESTARTED AFTER 01689000 * FAILURE @ZM20858*/ 01690000 * RPLFDB2=9| /* CLSDST CANCELED OPNDST@ZM20858*/ 01691000 * RPLFDB2=11))| /* CLSDST OCCURED @ZM20858*/ 01692000 * (RPLRTNCD=20&(RPLFDB2=18|RPLFDB2=65))|/* NO SDT ISSUED? */ 01693000 * (RPLRTNCD=16&(RPLFDB2=3|/* HALT QUICK ISSUED? */ 01694000 * RPLFDB2=5| /* CHANNEL OR LINK FAIL?@ZM20858 */ 01695000 * RPLFDB2=6| /* NCP SHUTDOWN? @ZM20858*/ 01696000 * RPLFDB2=7| /* V NET INACT ISSUED? */ 01697000 * RPLFDB2=9| /* TERMINATE SELF? */ 01698000 * RPLFDB2=15))| /* BUFFERS FILLED? */ 01699000 * TVWALTE='1'B /* LOSTERM ENTERED @ZM20858*/ 01700000 * THEN /* LOSTERM SITUATION */ 01701000 CLI RPLRTNCD(RPLPTR),12 01S0616 01702000 BNE @GL00026 01S0616 01703000 CLI RPLFDB2(RPLPTR),2 01S0616 01704000 BE @RT00616 01S0616 01705000 CLI RPLFDB2(RPLPTR),7 01S0616 01706000 BE @RT00616 01S0616 01707000 CLI RPLFDB2(RPLPTR),8 01S0616 01708000 BE @RT00616 01S0616 01709000 CLI RPLFDB2(RPLPTR),9 01S0616 01710000 BE @RT00616 01S0616 01711000 CLI RPLFDB2(RPLPTR),11 01S0616 01712000 BE @RT00616 01S0616 01713000 @GL00026 CLI RPLRTNCD(RPLPTR),20 01S0616 01714000 BNE @GL00025 01S0616 01715000 CLI RPLFDB2(RPLPTR),18 01S0616 01716000 BE @RT00616 01S0616 01717000 CLI RPLFDB2(RPLPTR),65 01S0616 01718000 BE @RT00616 01S0616 01719000 @GL00025 CLI RPLRTNCD(RPLPTR),16 01S0616 01720000 BNE @GL00024 01S0616 01721000 CLI RPLFDB2(RPLPTR),3 01S0616 01722000 BE @RT00616 01S0616 01723000 CLI RPLFDB2(RPLPTR),5 01S0616 01724000 BE @RT00616 01S0616 01725000 CLI RPLFDB2(RPLPTR),6 01S0616 01726000 BE @RT00616 01S0616 01727000 CLI RPLFDB2(RPLPTR),7 01S0616 01728000 BE @RT00616 01S0616 01729000 CLI RPLFDB2(RPLPTR),9 01S0616 01730000 BE @RT00616 01S0616 01731000 CLI RPLFDB2(RPLPTR),15 01S0616 01732000 BE @RT00616 01S0616 01733000 @GL00024 TM TVWALTE(TVWAPTR),B'00000010' 01S0616 01734000 BNO @RF00616 01S0616 01735000 @RT00616 DS 0H 01S0617 01736000 * IF TVWATID='1'B THEN /* IS TIM DEAD? */ 01737000 TM TVWATID(TVWAPTR),B'00010000' 01S0617 01738000 BNO @RF00617 01S0617 01739000 * CALL ERREXIT; /* YES, EXIT PERMANENTLY */ 01740000 BAL @14,ERREXIT 01S0618 01741000 * ELSE /* NO, EXIT NORMALLY */ 01742000 * DO; /* EXIT NORMALLY */ 01743000 B @RC00617 01S0619 01744000 @RF00617 DS 0H 01S0620 01745000 * TVWATAS='1'B; /* TOM UNAVAILABLE @ZM20661*/ 01746000 OI TVWATAS(TVWAPTR),B'00100000' 01S0620 01747000 * TOMESEND='1'B; /* EXIT SEND LOOP */ 01748000 * TOMEMAIN='1'B; /* EXIT MAINLINE LOOP */ 01749000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0622 01750000 * END; /* END NORMAL EXIT */ 01751000 * ELSE /* CONTINUE RTNCD/FEEDBACK CHECK */ 01752000 * DO; 01S0624 01753000 B @RC00616 01S0624 01754000 @RF00616 DS 0H 01S0625 01755000 * IF VRTRYCNT>=3|TOMERCNT>3 THEN/* IS RETRY LIMIT EXCEEDED?*/ 01756000 * 01S0625 01757000 LA @14,3 01S0625 01758000 C @14,VRTRYCNT 01S0625 01759000 BNH @RT00625 01S0625 01760000 C @14,TOMERCNT(,TOMWAPTR) 01S0625 01761000 BNL @RF00625 01S0625 01762000 @RT00625 DS 0H 01S0626 01763000 * /*******************************************************/ 01764000 * /* */ 01765000 * /* ERROR RETRY LIMIT HAS BEEN REACHED */ 01766000 * /* */ 01767000 * /*******************************************************/ 01768000 * 01S0626 01769000 * CALL EXITFRR; /* CALL ABEND ROUTINE @ZM20856*/ 01770000 BAL @14,EXITFRR 01S0626 01771000 * ELSE 01S0627 01772000 * ; /* CONTINUE ERROR CHECK */ 01773000 @RF00625 DS 0H 01S0628 01774000 * IF RPLRTNCD=12&RPLFDB2=13 THEN/* PRIOR EXCEPTION 01S0628 01775000 * RESPONSE? */ 01776000 CLI RPLRTNCD(RPLPTR),12 01S0628 01777000 BNE @RF00628 01S0628 01778000 CLI RPLFDB2(RPLPTR),13 01S0628 01779000 BNE @RF00628 01S0628 01780000 * DO; /* OBTAIN RESPONSE */ 01781000 * CALL RELLOCK; /* RELEASE LOCK */ 01782000 BAL @14,RELLOCK 01S0630 01783000 * REG2=ADDR(IFGRPL); /* SET RPL ADDRESS */ 01784000 LR REG2,RPLPTR 01S0631 01785000 * GEN REFS(REG2) SETS(REG0,REG1,REG14,REG15); 01S0632 01786000 RECEIVE RPL=(REG2),RTYPE=(NDFSYN,NDFASY,RESP), CC01787000 OPTCD=(SYN,CS,SPEC,Q) 01788000 * RFY 01S0633 01789000 * REG2 UNRSTD; /* FREE UP REG2 @ZM20858*/ 01790000 * CALL OFRRLOCK(ADDR(RESTART2));/* SET FRR AND OBTAIN 01791000 * LOCAL LOCK @ZM20856*/ 01792000 LA @14,RESTART2 01S0634 01793000 ST @14,@AFTEMPS+8 01S0634 01794000 LA @14,@AFTEMPS+8 01S0634 01795000 ST @14,@AL00001 01S0634 01796000 LA @01,@AL00001 01S0634 01797000 BAL @14,OFRRLOCK 01S0634 01798000 * IF REG15=32| /* INVALID RPL OR @ZM20858*/ 01799000 * (REG15=4®0=24) THEN/* VTAM NOT ACTIVE @ZM20858*/ 01800000 C REG15,@CF00036 01S0635 01801000 BE @RT00635 01S0635 01802000 C REG15,@CF00123 01S0635 01803000 BNE @RF00635 01S0635 01804000 C REG0,@CF00284 01S0635 01805000 BNE @RF00635 01S0635 01806000 @RT00635 DS 0H 01S0636 01807000 * CALL EXITFRR; /* CALL ABEND ROUTINE @ZM20856*/ 01808000 BAL @14,EXITFRR 01S0636 01809000 * END; /* RESPONSE OBTAINED */ 01810000 * ELSE 01S0638 01811000 * ; /* NO PRIOR EXCEPTION RESPONSE 01812000 * VTAM RETURN CODE @ZM20858 01813000 * CHECK MOVED AFTER @ZM20858 01814000 * RECEIVE @ZM20858*/ 01815000 @RF00628 DS 0H 01S0639 01816000 * IF RPLRTNCD=4&RPLFDB2=4 THEN/* CHECK RETURN CODE/FEEDBACK*/ 01817000 * 01S0639 01818000 @RC00628 CLI RPLRTNCD(RPLPTR),4 01S0639 01819000 BNE @RF00639 01S0639 01820000 CLI RPLFDB2(RPLPTR),4 01S0639 01821000 BNE @RF00639 01S0639 01822000 * /*******************************************************/ 01823000 * /* */ 01824000 * /* THIS DO GROUP WILL CHECK THE SENSE CODES RETURNED IN*/ 01825000 * /* THE SEND RPL ON EXCEPTION CONDITIONS (DEVICE */ 01826000 * /* DETECTED). ERROR RECOVERY ACTION IS BASED ON */ 01827000 * /* SPECIFIC CODE RETURNED. */ 01828000 * /* */ 01829000 * /*******************************************************/ 01830000 * 01S0640 01831000 * IF RPLSSNSI='081B'X| /* TERMINAL-TRANSIT MODE@ZM20889 */ 01832000 * RPLSSNSI='2004'X THEN/* TERMINAL-SEND STATE? 01S0640 01833000 * @ZM20889*/ 01834000 CLC RPLSSNSI(2,RPLPTR),@CB02571 01S0640 01835000 BE @RT00640 01S0640 01836000 CLC RPLSSNSI(2,RPLPTR),@CB02572 01S0640 01837000 BNE @RF00640 01S0640 01838000 @RT00640 DS 0H 01S0641 01839000 * CALL BREAKIN; /* BREAK IN @ZM20919*/ 01840000 BAL @14,BREAKIN 01S0641 01841000 * ELSE 01S0642 01842000 * IF RPLSSEI='08'X THEN/* SYSTEM SENSE INFO? @ZM20889*/ 01843000 B @RC00640 01S0642 01844000 @RF00640 CLI RPLSSEI(RPLPTR),X'08' 01S0642 01845000 BNE @RF00642 01S0642 01846000 * IF RPLSSMI='1C'X THEN/* IS MODIFIER REQ NOT 01S0643 01847000 * EXECUTA'? */ 01848000 CLI RPLSSMI(RPLPTR),28 01S0643 01849000 BNE @RF00643 01S0643 01850000 * IF TVWATID='1'B THEN/* IS TIM GONE? */ 01851000 TM TVWATID(TVWAPTR),B'00010000' 01S0644 01852000 BNO @RF00644 01S0644 01853000 * CALL ERREXIT; /* YES, EXIT PERMANENTLY */ 01854000 BAL @14,ERREXIT 01S0645 01855000 * ELSE /* TIM IS NOT GONE */ 01856000 * DO; 01S0646 01857000 B @RC00644 01S0646 01858000 @RF00644 DS 0H 01S0647 01859000 * TOMESEND='1'B;/* EXIT SEND LOOP */ 01860000 * TOMEMAIN='1'B;/* EXIT MAINLINE LOOP */ 01861000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0648 01862000 * END; 01S0649 01863000 * ELSE /* NO, CONTINUE MODIFIER CHECK */ 01864000 * IF RPLSSMI='2A'X|/* IS MODIFIER PSA? */ 01865000 * RPLSSMI='2B'X THEN/* IS MODIFIER PSE? */ 01866000 B @RC00643 01S0650 01867000 @RF00643 CLI RPLSSMI(RPLPTR),42 01S0650 01868000 BE @RT00650 01S0650 01869000 CLI RPLSSMI(RPLPTR),43 01S0650 01870000 BNE @RF00650 01S0650 01871000 @RT00650 DS 0H 01S0651 01872000 * DO; 01S0651 01873000 * TOMREQCD=TOMFMWRT;/* REQUEST FORMATING WRITE */ 01874000 MVI TOMREQCD(TOMWAPTR),X'01' 01S0652 01875000 * CALL IKT3270O;/* CALL SCREEN MANAGER TO BLD 01876000 * RU */ 01877000 L @12,CVTPTR 01S0653 01878000 L @01,CVTTCASP(,@12) 01S0653 01879000 L @15,TCASDATO(,@01) 01S0653 01880000 BALR @14,@15 01S0653 01881000 * END; 01S0654 01882000 * ELSE 01S0655 01883000 * IF RPLSSMI='29'X THEN/* REQUEST 01S0655 01884000 * CHANGE-DIRECTION? */ 01885000 B @RC00650 01S0655 01886000 @RF00650 CLI RPLSSMI(RPLPTR),41 01S0655 01887000 BNE @RF00655 01S0655 01888000 * RPLCMD='1'B;/* CHANGE DIRECTION */ 01889000 OI RPLCMD+16(RPLPTR),B'00100000' 01S0656 01890000 * ELSE 01S0657 01891000 * IF RPLSSMI='2D'X|/* SLU BUSY? @ZM20274*/ 01892000 * RPLSSMI='13'X THEN/* BRACKET ERROR? 01S0657 01893000 * @ZM20274*/ 01894000 B @RC00655 01S0657 01895000 @RF00655 CLI RPLSSMI(RPLPTR),45 01S0657 01896000 BE @RT00657 01S0657 01897000 CLI RPLSSMI(RPLPTR),19 01S0657 01898000 BNE @RF00657 01S0657 01899000 @RT00657 DS 0H 01S0658 01900000 * DO; 01S0658 01901000 * TVWATAS='1'B;/* TOM UNAVAILABLE */ 01902000 OI TVWATAS(TVWAPTR),B'00100000' 01S0659 01903000 * TOMESEND='1'B;/* EXIT SEND LOOP */ 01904000 * TOMEMAIN='1'B;/* EXIT MAINLINE LOOP */ 01905000 OI TOMESEND(TOMWAPTR),B'00110000' 01S0661 01906000 * END; 01S0662 01907000 * ELSE 01S0663 01908000 * ; /* RETRY @ZM20274*/ 01909000 @RF00657 DS 0H 01S0664 01910000 * ELSE /* CONTINUE RTNCD/FEEDBACK CHK */ 01911000 * IF RPLSSNSI='2003'X THEN/* BRACKET-STATE ERROR? */ 01912000 B @RC00642 01S0664 01913000 @RF00642 CLC RPLSSNSI(2,RPLPTR),@CB02577 01S0664 01914000 BNE @RF00664 01S0664 01915000 * IF TVWATOBB='1'B THEN/* BEGIN-BRACKET 01S0665 01916000 * SENT?@ZM20858 */ 01917000 TM TVWATOBB(TVWAPTR),B'00000100' 01S0665 01918000 BNO @RF00665 01S0665 01919000 * TVWAINB='1'B; /* DO NOT SEND BEGIN-BRACKET */ 01920000 OI TVWAINB(TVWAPTR),B'00000100' 01S0666 01921000 * ELSE /* BEGIN-BRACKET NOT SENT */ 01922000 * TVWAINB='0'B; /* SEND BEGIN-BRACKET */ 01923000 B @RC00665 01S0667 01924000 @RF00665 NI TVWAINB(TVWAPTR),B'11111011' 01S0667 01925000 * ELSE /* NOT BRACKET-STATE ERROR */ 01926000 * IF RPLFII='1'B THEN/* FUNCTION INTERPRET ERROR? */ 01927000 B @RC00664 01S0668 01928000 @RF00664 TM RPLFII(RPLPTR),B'00010000' 01S0668 01929000 BNO @RF00668 01S0668 01930000 * DO; 01S0669 01931000 * VRTRYCNT=VRTRYCNT-1; 01S0670 01932000 L @14,VRTRYCNT 01S0670 01933000 BCTR @14,0 01S0670 01934000 ST @14,VRTRYCNT 01S0670 01935000 * IF TOMERCNT>=3 THEN/* THIRD OCCURRENCE? 01S0671 01936000 * @ZM20858*/ 01937000 L @14,TOMERCNT(,TOMWAPTR) 01S0671 01938000 C @14,@CF00079 01S0671 01939000 BL @RF00671 01S0671 01940000 * DO; /* YES, THIRD OCCURRENCE */ 01941000 * TOMBRKMG='0'B;/* RESET BREAK-MESSAGE 01942000 * SWITCH */ 01943000 NI TOMBRKMG(TOMWAPTR),B'01111111' 01S0673 01944000 * OPREQ=DELETO;/* DELETE MESSAGE REQUEST */ 01945000 MVI OPREQ(TOMWAPTR),X'03' 01S0674 01946000 * CALL IKTQMOUT(OPARMS);/* CALL QUEUE 01S0675 01947000 * MANAGER */ 01948000 LA @14,OPARMS(,TOMWAPTR) 01S0675 01949000 ST @14,@AL00001 01S0675 01950000 L @12,CVTPTR 01S0675 01951000 L @01,CVTTCASP(,@12) 01S0675 01952000 L @15,TCASOQM(,@01) 01S0675 01953000 LA @01,@AL00001 01S0675 01954000 BALR @14,@15 01S0675 01955000 * TOMREQCD=TOMFMWRT;/* ERROR ERASE MESSAGE */ 01956000 MVI TOMREQCD(TOMWAPTR),X'01' 01S0676 01957000 * CALL IKT3270O;/* PUT ERROR MESSAGE IN RU */ 01958000 L @12,CVTPTR 01S0677 01959000 L @01,CVTTCASP(,@12) 01S0677 01960000 L @15,TCASDATO(,@01) 01S0677 01961000 BALR @14,@15 01S0677 01962000 * END; 01S0678 01963000 * ELSE 01S0679 01964000 * ; /* NO, NOT THIRD OCCURRENCE */ 01965000 @RF00671 DS 0H 01S0680 01966000 * TOMERCNT=TOMERCNT+1;/* INCREMENT COUNT */ 01967000 LA @14,1 01S0680 01968000 AL @14,TOMERCNT(,TOMWAPTR) 01S0680 01969000 ST @14,TOMERCNT(,TOMWAPTR) 01S0680 01970000 * END; 01S0681 01971000 * ELSE 01S0682 01972000 * ; 01S0682 01973000 @RF00668 DS 0H 01S0683 01974000 * ELSE /* CONTINUE ERROR CHECK */ 01975000 * 01S0683 01976000 * /*******************************************************/ 01977000 * /* */ 01978000 * /* VTAM STORAGE SHRTAGE RETRY 3 TIMES *@ZM20858 */ 01979000 * /* */ 01980000 * /*******************************************************/ 01981000 * 01S0683 01982000 * IF RPLRTNCD=16 THEN 01S0683 01983000 * 01S0683 01984000 B @RC00639 01S0683 01985000 @RF00639 CLI RPLRTNCD(RPLPTR),16 01S0683 01986000 BNE @RF00683 01S0683 01987000 * /*****************************************************/ 01988000 * /* */ 01989000 * /* UNRECOVERABLE VTAM DETECTED ERROR INDICATED-ABEND */ 01990000 * /* */ 01991000 * /*****************************************************/ 01992000 * 01S0684 01993000 * CALL EXITFRR; /* CALL ABEND RTN @ZM20856*/ 01994000 BAL @14,EXITFRR 01S0684 01995000 * ELSE /* CONTINUE RTNCD/FEEDBACK CHECK */ 01996000 * IF RPLRTNCD=12&RPLFDB2=12 THEN/* REQUEST CANCELED BY 01997000 * CLEAR? */ 01998000 B @RC00683 01S0685 01999000 @RF00683 CLI RPLRTNCD(RPLPTR),12 01S0685 02000000 BNE @RF00685 01S0685 02001000 CLI RPLFDB2(RPLPTR),12 01S0685 02002000 BNE @RF00685 01S0685 02003000 * TVWAINB='0'B; /* YES, SEND RU BEGIN BRACKET */ 02004000 NI TVWAINB(TVWAPTR),B'11111011' 01S0686 02005000 * ELSE /* ALL OTHER ERRORS */ 02006000 * CALL TOMINIT; /* REFRESH RPL */ 02007000 B @RC00685 01S0687 02008000 @RF00685 BAL @14,TOMINIT 01S0687 02009000 * END; 01S0688 02010000 @RC00685 DS 0H 01S0688 02011000 @RC00683 DS 0H 01S0688 02012000 @RC00639 DS 0H 01S0689 02013000 * END; /* END IMMEDIATE RC OK @ZM20858*/ 02014000 @RC00616 DS 0H 01S0690 02015000 * VRTRYCNT=VRTRYCNT+1; /* ADD ONE TO RETRY COUNT */ 02016000 @RC00611 LA @14,1 01S0690 02017000 AL @14,VRTRYCNT 01S0690 02018000 ST @14,VRTRYCNT 01S0690 02019000 * IF RPLFIRST='1'B| /* BEGINNING OF CHAIN? */ 02020000 * RPLMIDLE='1'B THEN /* MIDDLE OF CHAIN? */ 02021000 LA @14,16 01S0691 02022000 ALR @14,RPLPTR 01S0691 02023000 TM RPLFIRST(@14),B'11000000' 01S0691 02024000 BZ @RF00691 01S0691 02025000 * DO; /* BEGINNING OR MIDDLE OF CHAIN */ 02026000 * MPSTSOIR='0'B; /* RESET IWAIT SYSEVENT REQUEST 02027000 * @ZM21354*/ 02028000 * MPSTSOIW='0'B; /* RESET IWAIT SYSEVENT @ZM21354*/ 02029000 L @12,PSAAOLD 01S0694 02030000 L @01,ASCBASXB(,@12) 01S0694 02031000 L @01,ASXBMPST(,@01) 01S0694 02032000 NI MPSTSOIR(@01),B'00111111' 01S0694 02033000 * RPLONLY='1'B; /* SEND ONLY CHAIN @ZM20858*/ 02034000 * RPLLAST='0'B; /* RESET END OF CHAIN @ZM20858*/ 02035000 * RPLFIRST='0'B; /* RESET BEGINNING OF CHAIN */ 02036000 * RPLMIDLE='0'B; /* RESET MIDDLE OF CHAIN */ 02037000 OI RPLONLY(@14),B'00010000' 01S0698 02038000 NI RPLLAST(@14),B'00011111' 01S0698 02039000 * RFY 01S0699 02040000 * REG2 RSTD; /* RESTRICT REGISTER 2 */ 02041000 * REG2=ADDR(IFGRPL); /* RPL ADDRESS */ 02042000 LR REG2,RPLPTR 01S0700 02043000 * CALL RELLOCK; /* RELEASE LOCK */ 02044000 BAL @14,RELLOCK 01S0701 02045000 * GEN REFS(REG2) SETS(REG0,REG1,REG14,REG15); 01S0702 02046000 SEND RPL=(REG2),CONTROL=CANCEL,STYPE=REQ, CC02047000 OPTCD=(SYN,CS) 02048000 * RFY 01S0703 02049000 * REG2 UNRSTD; /* FREE REGISTER 2 */ 02050000 * CALL OFRRLOCK(ADDR(RESTART2));/* SETFRR AND OBTAIN LOCAL LOCK 02051000 * @ZM20856*/ 02052000 LA @14,RESTART2 01S0704 02053000 ST @14,@AFTEMPS+8 01S0704 02054000 LA @14,@AFTEMPS+8 01S0704 02055000 ST @14,@AL00001 01S0704 02056000 LA @01,@AL00001 01S0704 02057000 BAL @14,OFRRLOCK 01S0704 02058000 * END; /* CHAIN CANCELED */ 02059000 * ELSE 01S0706 02060000 * ; /* END OF CHAIN OR ONLY CHAIN */ 02061000 @RF00691 DS 0H 01S0707 02062000 * END CKVTAMRC; /* END OF CKVTAMRC */ 02063000 @EL00009 DS 0H 01S0707 02064000 @EF00009 DS 0H 01S0707 02065000 @ER00009 L @14,@SA00009 01S0707 02066000 BR @14 01S0707 02067000 EJECT 02068000 * 01S0708 02069000 */********************************************************************/ 02070000 */* */ 02071000 */* THIS PROCEDURE, ERREXIT, WILL BE CALLED TO DO A PERMANENT EXIT. */ 02072000 */* */ 02073000 */********************************************************************/ 02074000 * 01S0708 02075000 *ERREXIT: 01S0708 02076000 * PROCEDURE OPTIONS(NOSAVE); 01S0708 02077000 ERREXIT DS 0H 01S0709 02078000 * RFY 01S0709 02079000 * (REG1) RSTD; /* RESTRICT REGISTER 1 */ 02080000 * TVWATOD='1'B; /* INDICATE TOM IS DEAD */ 02081000 * TVWATIS='0'B; /* INDICATE TOM IS NOT SCHEDULED */ 02082000 * TVWATAS='1'B; /* TOM IS NOT AVAILABLE */ 02083000 OI TVWATOD(TVWAPTR),B'10100000' 01S0712 02084000 NI TVWATIS(TVWAPTR),B'10111111' 01S0712 02085000 * TOMCOLMN=0; /* RESET COLUMN COUNT */ 02086000 SLR @14,@14 01S0713 02087000 ST @14,TOMCOLMN(,TOMWAPTR) 01S0713 02088000 * REG1=ADDR(EXITPARM); /* SET ADDR OF EXIT PARAMETERS */ 02089000 LA REG1,EXITPARM 01S0714 02090000 * CALL IKTEXIT; /* EXIT PERMANENTLY */ 02091000 L @12,CVTPTR 01S0715 02092000 L @12,CVTTCASP(,@12) 01S0715 02093000 L @15,TCASEXIT(,@12) 01S0715 02094000 BALR @14,@15 01S0715 02095000 * RFY 01S0716 02096000 * (REG1) UNRSTD; /* UNRESTRICT REGISTER 1 */ 02097000 * END ERREXIT; /* END OF ERREXIT */ 02098000 @EL00010 DS 0H 01S0717 02099000 @EF00010 DS 0H 01S0717 02100000 @ER00010 BR @14 01S0717 02101000 EJECT 02102000 * 01S0718 02103000 */********************************************************************/ 02104000 */* THIS PROCEDURE, INITFRR WILL SET UP ALL PARAMETERS AND @ZM20856*/ 02105000 */* AREAS FOR THE FRR ROUTINE (IKTIOFRR) @ZM20856*/ 02106000 */********************************************************************/ 02107000 * 01S0718 02108000 *INITFRR: 01S0718 02109000 * PROCEDURE(RTRYADDR) OPTIONS(PARMREG);/* @ZM20856*/ 02110000 INITFRR STM @14,@12,12(@13) 01S0718 02111000 MVC @PC00011(4),0(@01) 01S0718 02112000 * DECLARE 01S0719 02113000 * RTRYADDR POINTER(31); /* ADDR OF RETRY POINT @ZM20856*/ 02114000 * RFY 01S0720 02115000 * IKTFRPRM BASED(FRRPRMPT); /* BASE FRR PARAMETERS ON ON 02116000 * ADDRESS PROVIDED @ZM20856*/ 02117000 * IKTFRPRM=IKTFRPRM&&IKTFRPRM; /* ZERO CONTROL BLOCK @ZM20856*/ 02118000 L @14,FRRPRMPT 01S0721 02119000 XC IKTFRPRM(24,@14),IKTFRPRM(@14) 01S0721 02120000 * FRPRPLAD=ADDR(IFGRPL); /* SET FRR RPL ADDRESS TO CURRENT 02121000 * RPL @ZM21178*/ 02122000 ST RPLPTR,FRPRPLAD(,@14) 01S0722 02123000 * FRPRETRY=ADDR(FRWARTRY); /* SET ADDR OF RETRY INFO 01S0723 02124000 * @ZM20856*/ 02125000 L @12,TVWAFRWO(,TVWAPTR) 01S0723 02126000 LA @04,FRWARTRY(,@12) 01S0723 02127000 ST @04,FRPRETRY(,@14) 01S0723 02128000 * RFY 01S0724 02129000 * INFODSCT BASED(ADDR(FRWARTRY));/* POINT TO RETRY AREA @ZM20856*/ 02130000 * INFOREGS=ADDR(RTRYREGS); /* SET ADDRESS OF RETRY REGISTER 02131000 * SAVE AREA @ZM20856*/ 02132000 LA @04,8 01S0725 02133000 ALR @04,@12 01S0725 02134000 LA @01,RTRYREGS 01S0725 02135000 ST @01,INFOREGS(,@04) 01S0725 02136000 * INFOADDR=RTRYADDR; /* SET RETRY ADDRESS @ZM20856*/ 02137000 L @01,@PC00011 01S0726 02138000 L @01,RTRYADDR(,@01) 01S0726 02139000 ST @01,INFOADDR(,@04) 01S0726 02140000 * RFY 01S0727 02141000 * INFODSCT BASED(ADDR(FRWACKPT));/* POINT TO CHECK POINT AREA 02142000 * @ZM20856*/ 02143000 * FRPCKINF=ADDR(FRWACKPT); /* SET ADDRESS OF CHECK POINT 02144000 * AREA @ZM20856*/ 02145000 ST @12,FRPCKINF(,@14) 01S0728 02146000 * INFOREGS=ADDR(FRWACKRG); /* POINT TO CHECK POINT REGISTER 02147000 * SAVE AREA @ZM20856*/ 02148000 LA @04,FRWACKRG(,@12) 01S0729 02149000 ST @04,INFOREGS(,@12) 01S0729 02150000 * RFY 01S0730 02151000 * INFODSCT BASED(ADDR(FRWAEXIT));/* POINT TO EXIT INFO AREA 01S0730 02152000 * @ZM20856*/ 02153000 * FRPXITPT=ADDR(FRWAEXIT); /* SET ADDRESS OF EXIT 01S0731 02154000 * INFORMATION AREA @ZM20856*/ 02155000 LA @04,FRWAEXIT(,@12) 01S0731 02156000 ST @04,FRPXITPT(,@14) 01S0731 02157000 * INFOREGS=ADDR(FRWAEXRG); /* POINT TO EXIT REGISTER SAVE 02158000 * AREA @ZM20856*/ 02159000 LA @04,16 01S0732 02160000 ALR @04,@12 01S0732 02161000 LA @01,FRWAEXRG(,@12) 01S0732 02162000 ST @01,INFOREGS(,@04) 01S0732 02163000 * INFOADDR=ADDR(IKTEXIT); /* POINT TO EXIT ROUTINE @ZM20856*/ 02164000 L @01,CVTPTR 01S0733 02165000 L @01,CVTTCASP(,@01) 01S0733 02166000 L @01,TCASEXIT(,@01) 01S0733 02167000 ST @01,INFOADDR(,@04) 01S0733 02168000 * RFY 01S0734 02169000 * REG1 RSTD; /* RESTRICT PARM ADDRESS @ZM20856*/ 02170000 * REG1=ADDR(EXITPARM); /* SET ADDRESS OF THE PARAMETER 02171000 * LIST @ZM20856*/ 02172000 LA REG1,EXITPARM 01S0735 02173000 * WRKLGNTH=BUFFSIZE; /* SET WORK AREA LENGTH @ZM20856*/ 02174000 MVC WRKLGNTH(4),@CF02446 01S0736 02175000 * TIMTOMLH=0; /* INDICATE OUTPUT MGR @ZM20856*/ 02176000 SLR @04,@04 01S0737 02177000 ST @04,TIMTOMLH 01S0737 02178000 * STM(REG0,REG15,FRWAEXRG); /* STORE CURRENT REGS FOR USE BY 02179000 * EXIT ROUTINE@ZM20856 */ 02180000 STM REG0,REG15,FRWAEXRG(@12) 01S0738 02181000 * RFY 01S0739 02182000 * REG1 UNRSTD; /* FREE UP REG1 @ZM20856*/ 02183000 * FRPOMNGR='1'B; /* INDICATE OUTPUT MANAGER TO FRR 02184000 * @ZM20856*/ 02185000 OI FRPOMNGR(@14),B'10000000' 01S0740 02186000 * FRPCONST=ADDR(CONSAREA); /* SET CONSTANTS AREA 01S0741 02187000 * ADDR@ZM20856 */ 02188000 LA @12,CONSAREA 01S0741 02189000 ST @12,FRPCONST(,@14) 01S0741 02190000 * END INITFRR; /* END OF INITFRR @ZM20856*/ 02191000 @EL00011 DS 0H 01S0742 02192000 @EF00011 DS 0H 01S0742 02193000 @ER00011 LM @14,@12,12(@13) 01S0742 02194000 BR @14 01S0742 02195000 EJECT 02196000 * 01S0743 02197000 */********************************************************************/ 02198000 */* EXITFRR SETS UP THE I/O INDICATOR FOR THE FRR (IKTIOFRR) @ZM20856*/ 02199000 */* AND ISSUES THE ABEND TO DRIVE IT @ZM20856*/ 02200000 */********************************************************************/ 02201000 * 01S0743 02202000 *EXITFRR: 01S0743 02203000 * PROCEDURE OPTIONS(NOSAVEAREA); /* @ZM20856*/ 02204000 EXITFRR STM @14,@12,12(@13) 01S0743 02205000 * RFY 01S0744 02206000 * IKTLTCB BASED(ADDR(RPLUSFLD));/* POINT TO LOSTERM FLAGS TO RPL 02207000 * USER FIELD @ZM20856*/ 02208000 * IKTLTCB=0; /* ZERO USER FIELD @ZM20856*/ 02209000 LA @14,92 01S0745 02210000 ALR @14,RPLPTR 01S0745 02211000 SLR @12,@12 01S0745 02212000 STCM @12,15,IKTLTCB(@14) 01S0745 02213000 * LTCBIOER='1'B; /* SET I/O INDICATOR @ZM20856*/ 02214000 OI LTCBIOER(@14),B'10000000' 01S0746 02215000 * REG15=REASONCD; /* REASON CODE @ZM21142*/ 02216000 L REG15,REASONCD 01S0747 02217000 * GEN EXIT /* @ZM20856*/ 02218000 * (ABEND VTAMERCD,,,SYSTEM); /* ISSUE ABEND @ZM20856*/ 02219000 ABEND VTAMERCD,,,SYSTEM 02220000 * END EXITFRR; /* END OF EXITFRR @ZM20856*/ 02221000 @EL00012 DS 0H 01S0749 02222000 @EF00012 DS 0H 01S0749 02223000 @ER00012 LM @14,@12,12(@13) 01S0749 02224000 BR @14 01S0749 02225000 @PB00012 DS 0H 01S0749 02226000 * END IKTOMLU2 /* END OF IKTOMLU2 */ 02227000 * 01S0750 02228000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02229000 */*%INCLUDE SYSUT5 (PROLOG ) */ 02230000 */*%INCLUDE SYSUT5 (IKTOMLU2) */ 02231000 */*%INCLUDE SYSLIB (IKJTSB ) */ 02232000 */*%INCLUDE SYSLIB (IKTTSBX ) */ 02233000 */*%INCLUDE SYSLIB (IKTFRPRM) */ 02234000 */*%INCLUDE SYSLIB (IKTFRRWA) */ 02235000 */*%INCLUDE SYSLIB (IKTLTCB ) */ 02236000 */*%INCLUDE SYSLIB (IKTTCAST) */ 02237000 */*%INCLUDE SYSLIB (IKTTVWA ) */ 02238000 */*%INCLUDE SYSLIB (IFGRPL ) */ 02239000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 02240000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 02241000 */*%INCLUDE SYSLIB (IHASRB ) */ 02242000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02243000 */*%INCLUDE SYSLIB (IHASCVT ) */ 02244000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02245000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02246000 */*%INCLUDE SYSLIB (IHAASXB ) */ 02247000 */*%INCLUDE SYSLIB (ISTPAB ) */ 02248000 */*%INCLUDE SYSLIB (ISTDYPAB) */ 02249000 */*%INCLUDE SYSLIB (ISTMPST ) */ 02250000 */*%INCLUDE SYSLIB (CVT ) */ 02251000 */*%INCLUDE SYSLIB (IKTEQU ) */ 02252000 */*%INCLUDE SYSLIB (IKTTOMWA) */ 02253000 */*%INCLUDE SYSLIB (IKTOPARM) */ 02254000 */*%INCLUDE SYSUT5 (SENDRU ) */ 02255000 */*%INCLUDE SYSUT5 (BGNCHAIN) */ 02256000 */*%INCLUDE SYSUT5 (ONLYCHN ) */ 02257000 */*%INCLUDE SYSUT5 (ENDCHAIN) */ 02258000 */*%INCLUDE SYSUT5 (SENDSIG ) */ 02259000 */*%INCLUDE SYSUT5 (TOMINIT ) */ 02260000 */*%INCLUDE SYSUT5 (RESETSR1) */ 02261000 */*%INCLUDE SYSUT5 (OFRRLOCK) */ 02262000 * 01S0750 02263000 * ; 01S0750 02264000 @DATA DS 0H 02265000 @DATD DSECT 02266000 DS 0F 02267000 @SA00001 DS 18F 02268000 @SA00005 DS 1F 02269000 @PC00005 DS 1F 02270000 @SA00002 DS 1F 02271000 @PC00002 DS 1F 02272000 @SA00007 DS 1F 02273000 @SA00008 DS 1F 02274000 @SA00004 DS 1F 02275000 @SA00009 DS 1F 02276000 @PC00011 DS 1F 02277000 @AL00001 DS 1A 02278000 @AFTEMPS DS 4F 02279000 IKTOMLU2 CSECT 02280000 DS 0F 02281000 @CF00040 DC F'1' 02282000 @CF00079 DC F'3' 02283000 @CF00123 DC F'4' 02284000 @CF00515 DC F'16' 02285000 @CF00284 DC F'24' 02286000 @CF00036 DC F'32' 02287000 @CF02601 DC F'856' 02288000 @CF02446 DC F'5192' 02289000 @CF01565 DC XL4'80000000' 02290000 @CF02540 DC XL4'00010000' 02291000 @DATD DSECT 02292000 DS 0D 02293000 EXITPARM DS CL12 02294000 ORG EXITPARM 02295000 RETADR00 DS FL4 02296000 WRKLGNTH DS FL4 02297000 TIMTOMLH DS FL4 02298000 ORG EXITPARM+12 02299000 @NM00147 DS CL20 02300000 ORG @NM00147 02301000 MAXRUSZO DS FL4 02302000 FRRPRMPT DS AL4 02303000 DATAADDR DS AL4 02304000 DATACNT DS FL4 02305000 VRTRYCNT DS FL4 02306000 ORG @NM00147+20 02307000 RTRYREGS DS CL64 02308000 IKTOMLU2 CSECT 02309000 NOPR ((@ENDDATD-@DATD)/241*16) 02310000 DS 0F 02311000 @SIZDATD DC AL1(0) 02312000 DC AL3(@ENDDATD-@DATD) 02313000 DS 0D 02314000 @CB02571 DC X'081B' 02315000 @CB02572 DC X'2004' 02316000 @CB02577 DC X'2003' 02317000 DS CL2 02318000 CONSAREA DS CL28 02319000 ORG CONSAREA 02320000 CSECTNME DC CL8'IKTOMLU2' 02321000 FRRNAME DC CL8'IKTIOFRR' 02322000 LOADNAME DC CL8'IKTIOM03' 02323000 REASONCD DC XL4'104' 02324000 ORG CONSAREA+28 02325000 PATCH DC 50F'0' 02326000 @DATD DSECT 02327000 VTAMERCD EQU 171 ABEND CODE '0AB'X 02328000 @DATD DSECT 02329000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02330000 @ENDDATD EQU * 02331000 IKTOMLU2 CSECT 02332000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02333000 @01 EQU 01 02334000 @02 EQU 02 02335000 @03 EQU 03 02336000 @04 EQU 04 02337000 @05 EQU 05 02338000 @06 EQU 06 02339000 @07 EQU 07 02340000 @08 EQU 08 02341000 @09 EQU 09 02342000 @10 EQU 10 02343000 @11 EQU 11 02344000 @12 EQU 12 02345000 @13 EQU 13 02346000 @14 EQU 14 02347000 @15 EQU 15 02348000 TVWAPTR EQU @08 02349000 TOMWAPTR EQU @13 02350000 REG0 EQU @00 02351000 REG1 EQU @01 02352000 REG2 EQU @02 02353000 REG3 EQU @03 02354000 REG4 EQU @04 02355000 REG5 EQU @05 02356000 REG7 EQU @07 02357000 RPLPTR EQU @09 02358000 REG10 EQU @10 02359000 REG11 EQU @11 02360000 REG13 EQU @13 02361000 REG14 EQU @14 02362000 REG15 EQU @15 02363000 REG6 EQU @06 02364000 PSA EQU 0 02365000 FLCRNPSW EQU PSA 02366000 FLCROPSW EQU PSA+8 02367000 FLCICCW2 EQU PSA+16 02368000 FLCCVT EQU FLCICCW2 02369000 PSAEEPSW EQU PSA+132 02370000 PSAESPSW EQU PSA+136 02371000 FLCSVILC EQU PSAESPSW+1 02372000 PSAEPPSW EQU PSA+140 02373000 FLCPIILC EQU PSAEPPSW+1 02374000 FLCPICOD EQU PSAEPPSW+2 02375000 PSAPICOD EQU FLCPICOD+1 02376000 FLCTEA EQU PSAEPPSW+4 02377000 FLCPER EQU PSA+152 02378000 FLCMCLA EQU PSA+168 02379000 FLCIOEL EQU FLCMCLA+4 02380000 FLCIOA EQU FLCMCLA+16 02381000 FLCFSA EQU FLCMCLA+80 02382000 PSAAOLD EQU PSA+548 02383000 PSASUPER EQU PSA+552 02384000 PSASUP1 EQU PSASUPER 02385000 PSASUP2 EQU PSASUPER+1 02386000 PSASUP3 EQU PSASUPER+2 02387000 PSASUP4 EQU PSASUPER+3 02388000 PSACLHT EQU PSA+640 02389000 PSALKSA EQU PSA+696 02390000 PSAHLHI EQU PSA+760 02391000 PSALITA EQU PSA+764 02392000 PSADSSFL EQU PSA+836 02393000 PSADSSF1 EQU PSADSSFL 02394000 PSADSSF3 EQU PSADSSFL+2 02395000 PSADSSF4 EQU PSADSSFL+3 02396000 PSARSVT EQU PSA+896 02397000 PSALSFCC EQU PSA+1012 02398000 ISTPROCD EQU 0 02399000 PROPROC EQU ISTPROCD 02400000 PROPROC1 EQU PROPROC 02401000 PROPROC2 EQU PROPROC+1 02402000 PROPROC3 EQU PROPROC+2 02403000 PROPROC4 EQU PROPROC+3 02404000 PROPROCS EQU 0 02405000 PROSETMS EQU PROPROCS+1 02406000 PROSETM2 EQU PROSETMS 02407000 PROSETM3 EQU PROSETMS+1 02408000 PROSETM4 EQU PROSETMS+2 02409000 ISTDEVCH EQU 0 02410000 DEVSHCH EQU ISTDEVCH 02411000 DEVCHAR EQU DEVSHCH 02412000 DEVTCODE EQU ISTDEVCH+1 02413000 DEVFLAGS EQU ISTDEVCH+3 02414000 DEVFCCTL EQU DEVFLAGS 02415000 DEVCHAR3 EQU DEVFLAGS 02416000 ISTNIB EQU 0 02417000 NIBCID EQU ISTNIB+4 02418000 NIBFLGS EQU ISTNIB+40 02419000 NIBFLG1 EQU NIBFLGS 02420000 TSB EQU 0 02421000 TSBASCBA EQU TSB 02422000 TSBSTAT EQU TSBASCBA 02423000 TSBFLG1 EQU TSB+4 02424000 TSBFLG2 EQU TSB+16 02425000 TSBFLG3 EQU TSB+24 02426000 TSBNOBRK EQU TSBFLG3 02427000 TSBFLG5 EQU TSB+25 02428000 TSBTERMC EQU TSB+26 02429000 TSBTERM1 EQU TSBTERMC 02430000 TSBTERM2 EQU TSBTERMC+1 02431000 TSBSTCC EQU TSB+34 02432000 TSBFLG4 EQU TSB+41 02433000 TSBIWAIT EQU TSBFLG4 02434000 TSBOWAIT EQU TSBFLG4 02435000 TSBRCB EQU TSB+64 02436000 TSBLINKA EQU TSBRCB+4 02437000 TSBTPOST EQU TSB+72 02438000 TSBTPFLG EQU TSBTPOST 02439000 TSBMINL EQU TSB+84 02440000 TSBEXTNT EQU TSB+96 02441000 TSBX EQU 0 02442000 TSBXFLG1 EQU TSBX+32 02443000 TSBXASCI EQU TSBXFLG1 02444000 TSBXTVWA EQU TSBX+36 02445000 TSBXSRB EQU TSBX+56 02446000 TSBXRSZO EQU TSBX+69 02447000 TSBXTERM EQU TSBX+72 02448000 IKTFRPRM EQU 0 02449000 FRPCKINF EQU IKTFRPRM 02450000 FRPCONST EQU IKTFRPRM+4 02451000 FRPRETRY EQU IKTFRPRM+8 02452000 FRPXITPT EQU IKTFRPRM+12 02453000 FRPRPLAD EQU IKTFRPRM+16 02454000 FRPFRFLG EQU IKTFRPRM+20 02455000 FRPOMNGR EQU FRPFRFLG 02456000 IKTFRRWA EQU 0 02457000 FRWACKPT EQU IKTFRRWA 02458000 FRWARTRY EQU IKTFRRWA+8 02459000 FRWAEXIT EQU IKTFRRWA+16 02460000 FRWACKRG EQU IKTFRRWA+24 02461000 FRWAEXRG EQU IKTFRRWA+88 02462000 FRWAFLGS EQU IKTFRRWA+152 02463000 FRWAFL1 EQU FRWAFLGS 02464000 IKTLTCB EQU 0 02465000 LTCBFLAG EQU IKTLTCB+3 02466000 LTCBIOER EQU LTCBFLAG 02467000 TCAST EQU 0 02468000 TCASUSER EQU TCAST+4 02469000 TCASDATO EQU TCAST+48 02470000 TCASFRR EQU TCAST+56 02471000 TCASOQM EQU TCAST+76 02472000 TCASEXIT EQU TCAST+80 02473000 TCASFLG1 EQU TCAST+88 02474000 TCASFLG2 EQU TCAST+89 02475000 TVWA EQU 0 02476000 TVWATOMW EQU TVWA+12 02477000 TVWATCB EQU TVWA+64 02478000 TVWAGMPT EQU TVWA+68 02479000 TVWAATTN EQU TVWA+85 02480000 TVWAACB EQU TVWA+88 02481000 TVWANIB EQU TVWA+92 02482000 TVWAFLG7 EQU TVWA+110 02483000 TVWASND1 EQU TVWAFLG7 02484000 TVWARDBF EQU TVWAFLG7 02485000 TVWATOBB EQU TVWAFLG7 02486000 TVWAECBL EQU TVWA+120 02487000 TVWADLST EQU TVWA+132 02488000 TVWAFLG1 EQU TVWA+144 02489000 TVWATOD EQU TVWAFLG1 02490000 TVWATIS EQU TVWAFLG1 02491000 TVWATAS EQU TVWAFLG1 02492000 TVWATID EQU TVWAFLG1 02493000 TVWALTE EQU TVWAFLG1 02494000 TVWAFLG2 EQU TVWA+145 02495000 TVWABFC EQU TVWAFLG2 02496000 TVWAPGN EQU TVWAFLG2 02497000 TVWASCD EQU TVWAFLG2 02498000 TVWAFLG3 EQU TVWA+146 02499000 TVWABRIN EQU TVWAFLG3 02500000 TVWASDSG EQU TVWAFLG3 02501000 TVWAAIGN EQU TVWAFLG3 02502000 TVWAFLG4 EQU TVWA+147 02503000 TVWAKBDL EQU TVWAFLG4 02504000 TVWARCRS EQU TVWAFLG4 02505000 TVWAFLG5 EQU TVWA+150 02506000 TVWATIR EQU TVWAFLG5 02507000 TVWALNCT EQU TVWA+151 02508000 TVWAFLG6 EQU TVWA+182 02509000 TVWAISYS EQU TVWAFLG6 02510000 TVWAIOTR EQU TVWAFLG6 02511000 TVWAIOP EQU TVWAFLG6 02512000 TVWARCDT EQU TVWAFLG6 02513000 TVWAFMEW EQU TVWAFLG6 02514000 TVWAINB EQU TVWAFLG6 02515000 TVWAFRWO EQU TVWA+188 02516000 IFGRPL EQU 0 02517000 RPLCOMN EQU IFGRPL 02518000 RPLIDWD EQU RPLCOMN 02519000 RPLLEN EQU RPLIDWD+3 02520000 RPLECB EQU RPLCOMN+8 02521000 RPLFDBWD EQU RPLCOMN+12 02522000 RPLFDBK EQU RPLFDBWD+1 02523000 RPLRTNCD EQU RPLFDBK 02524000 RPLCNDCD EQU RPLFDBK+1 02525000 RPLCMPON EQU RPLCNDCD 02526000 RPLFDB2 EQU RPLCMPON 02527000 RPLERRCD EQU RPLCNDCD+1 02528000 RPLFDB3 EQU RPLERRCD 02529000 RPLKEYLE EQU RPLCOMN+16 02530000 RPLDACB EQU RPLCOMN+24 02531000 RPLAREA EQU RPLCOMN+32 02532000 RPLARG EQU RPLCOMN+36 02533000 RPLOPTCD EQU RPLCOMN+40 02534000 RPLOPT1 EQU RPLOPTCD 02535000 RPLECBSW EQU RPLOPT1 02536000 RPLOPT2 EQU RPLOPTCD+1 02537000 RPLADR EQU RPLOPT2 02538000 RPLOPT3 EQU RPLOPTCD+2 02539000 RPLOPT4 EQU RPLOPTCD+3 02540000 RPLNXTRP EQU RPLCOMN+44 02541000 RPLRLEN EQU RPLCOMN+48 02542000 RPLOPTC2 EQU RPLCOMN+56 02543000 RPLOPT5 EQU RPLOPTC2 02544000 RPLWRTYP EQU RPLOPT5 02545000 RPLOPT6 EQU RPLOPTC2+1 02546000 RPLUNTYP EQU RPLOPT6 02547000 RPLOPT7 EQU RPLOPTC2+2 02548000 RPLCNOPT EQU RPLOPT7 02549000 RPLOPT8 EQU RPLOPTC2+3 02550000 RPLRBAR EQU RPLCOMN+60 02551000 RPLAIXID EQU RPLRBAR+2 02552000 RPLEXTDS EQU RPLCOMN+68 02553000 RPLEXTD1 EQU RPLEXTDS 02554000 RPLVTEXT EQU IFGRPL+76 02555000 RPLFDBK2 EQU RPLVTEXT+12 02556000 RPLSSNSI EQU RPLFDBK2 02557000 RPLDSB EQU RPLSSNSI 02558000 RPLDSB1 EQU RPLDSB 02559000 RPLSSEI EQU RPLDSB1 02560000 RPLFII EQU RPLSSEI 02561000 RPLDSB2 EQU RPLDSB+1 02562000 RPLSSMI EQU RPLDSB2 02563000 RPLUSNSI EQU RPLFDBK2+2 02564000 RPLUSFLD EQU RPLVTEXT+16 02565000 RPLOPTC3 EQU RPLVTEXT+20 02566000 RPLOPT9 EQU RPLOPTC3 02567000 RPLOPT10 EQU RPLOPTC3+1 02568000 RPLOPT11 EQU RPLOPTC3+2 02569000 RPLOPT12 EQU RPLOPTC3+3 02570000 RPLFMHDR EQU RPLOPT12 02571000 RPLOSENS EQU RPLVTEXT+24 02572000 RPLSSNSO EQU RPLOSENS 02573000 RPLSSEO EQU RPLSSNSO 02574000 RPLSIGDA EQU RPLVTEXT+32 02575000 RPLOF16 EQU 0 02576000 RPLRH3 EQU RPLOF16 02577000 RPLBB EQU RPLRH3 02578000 RPLEB EQU RPLRH3 02579000 RPLCMD EQU RPLRH3 02580000 RPLCSI EQU RPLRH3 02581000 RPLSRTYP EQU RPLOF16+1 02582000 RPLSTYPE EQU RPLSRTYP 02583000 RPLRTYPE EQU RPLSRTYP 02584000 RPLRRESP EQU RPLRTYPE 02585000 RPLNFSYN EQU RPLRTYPE 02586000 RPLDFASY EQU RPLRTYPE 02587000 RPLCHN EQU RPLOF16+2 02588000 RPLFIRST EQU RPLCHN 02589000 RPLMIDLE EQU RPLCHN 02590000 RPLLAST EQU RPLCHN 02591000 RPLONLY EQU RPLCHN 02592000 RPLVTFL1 EQU RPLOF16+3 02593000 RPLVTFL2 EQU RPLOF16+4 02594000 RPLPOSTV EQU RPLVTFL2 02595000 RPLSCHED EQU RPLPOSTV 02596000 RPLRESP EQU RPLVTFL2 02597000 RPLEX EQU RPLRESP 02598000 RPLCNTRL EQU RPLOF16+5 02599000 RPLCNTDF EQU RPLCNTRL 02600000 RPLCNTDC EQU RPLCNTRL+1 02601000 RPLCNTSC EQU RPLCNTRL+2 02602000 RPLOF60 EQU 0 02603000 RPLOBSQ EQU RPLOF60+4 02604000 RPLIBSQ EQU RPLOF60+5 02605000 SRBSECT EQU 0 02606000 SRBFLC EQU SRBSECT+12 02607000 SCVTSECT EQU 0 02608000 SCVTSTAT EQU SCVTSECT+148 02609000 FRRS EQU 0 02610000 FRRSHEAD EQU FRRS 02611000 FRRSEMP EQU FRRSHEAD 02612000 FRRSLAST EQU FRRSHEAD+4 02613000 FRRSELEN EQU FRRSHEAD+8 02614000 FRRSCURR EQU FRRSHEAD+12 02615000 FRRSENTR EQU 0 02616000 FRRSFRRA EQU FRRSENTR 02617000 FRRSFLGS EQU FRRSENTR+4 02618000 FRRSFLG1 EQU FRRSFLGS 02619000 FRRSPARM EQU FRRSENTR+8 02620000 ASCB EQU 0 02621000 ASCBSUPC EQU ASCB+16 02622000 ASCBTSB EQU ASCB+60 02623000 ASCBFW1 EQU ASCB+100 02624000 ASCBRCTF EQU ASCBFW1+2 02625000 ASCBFLG1 EQU ASCBFW1+3 02626000 ASCBASXB EQU ASCB+108 02627000 ASCBDSP1 EQU ASCB+114 02628000 ASCBFLG2 EQU ASCB+115 02629000 ASCBLKGP EQU ASCB+128 02630000 ASCBSRQ EQU ASCB+180 02631000 ASCBSRQ1 EQU ASCBSRQ 02632000 ASCBSRQ2 EQU ASCBSRQ+1 02633000 ASCBSRQ3 EQU ASCBSRQ+2 02634000 ASCBSRQ4 EQU ASCBSRQ+3 02635000 ASXB EQU 0 02636000 ASXBMPST EQU ASXB+16 02637000 ASXBAEQ EQU ASXB+168 02638000 ASXBCASW EQU ASXB+216 02639000 ASXBCRB1 EQU ASXBCASW 02640000 ISTPAB EQU 0 02641000 PABWQCHN EQU ISTPAB 02642000 PABWEQA EQU PABWQCHN 02643000 PABCHAIN EQU PABWQCHN+4 02644000 PABRPHFG EQU ISTPAB+12 02645000 PABFLAGS EQU PABRPHFG 02646000 PABERLCK EQU PABFLAGS 02647000 PABERRLK EQU PABERLCK 02648000 ISTDYPAB EQU 0 02649000 ISTMPST EQU 0 02650000 MPSRSV07 EQU ISTMPST+4 02651000 MPSTSOIW EQU MPSRSV07 02652000 MPSTSOIR EQU MPSRSV07 02653000 MPSRQUE EQU ISTMPST+8 02654000 MPSFLGA EQU ISTMPST+12 02655000 MPSCRA EQU ISTMPST+24 02656000 MPSCRACT EQU MPSCRA+4 02657000 MPSSRB EQU ISTMPST+32 02658000 MPSSRBCT EQU MPSSRB+4 02659000 MPSCRPL EQU ISTMPST+40 02660000 MPSRPLCT EQU MPSCRPL+4 02661000 CVTMAP EQU 0 02662000 CVTDAR EQU CVTMAP+72 02663000 CVTFLGS1 EQU CVTDAR 02664000 CVTDCB EQU CVTMAP+116 02665000 CVTIERLC EQU CVTMAP+144 02666000 CVTOPTA EQU CVTMAP+182 02667000 CVTOPTB EQU CVTMAP+183 02668000 CVTABEND EQU CVTMAP+200 02669000 CVTGTF EQU CVTMAP+236 02670000 CVTGTFST EQU CVTGTF 02671000 CVTGTFS EQU CVTGTFST 02672000 CVTSTATE EQU CVTGTFST 02673000 CVTTMODE EQU CVTGTFST 02674000 CVTFORM EQU CVTGTFST 02675000 CVTAQAVT EQU CVTMAP+240 02676000 CVTTCMFG EQU CVTAQAVT 02677000 CVTVOLM2 EQU CVTMAP+244 02678000 CVTTATA EQU CVTVOLM2 02679000 CVTTSKS EQU CVTTATA 02680000 CVTVOLF2 EQU CVTTSKS 02681000 CVTTAT EQU CVTTATA+1 02682000 CVTATER EQU CVTMAP+248 02683000 CVTEXT1 EQU CVTMAP+252 02684000 CVTPURG EQU CVTMAP+260 02685000 CVTQMSG EQU CVTMAP+268 02686000 CVTDMSR EQU CVTMAP+272 02687000 CVTRSV37 EQU CVTDMSR 02688000 CVTDMSRF EQU CVTRSV37 02689000 CVTERPV EQU CVTMAP+316 02690000 CVTINTLA EQU CVTMAP+320 02691000 CVTAPF EQU CVTMAP+324 02692000 CVTEXT2 EQU CVTMAP+328 02693000 CVTHJES EQU CVTMAP+332 02694000 CVTPGSIA EQU CVTMAP+348 02695000 CVTA1F1 EQU CVTMAP+356 02696000 CVTSYSK EQU CVTMAP+357 02697000 CVTVOLM1 EQU CVTMAP+380 02698000 CVTVOLF1 EQU CVTVOLM1 02699000 CVTATMCT EQU CVTMAP+388 02700000 CVTXTNT1 EQU 0 02701000 CVTXTNT2 EQU 0 02702000 CVTDSSV EQU CVTXTNT2 02703000 CVTFLGBT EQU CVTXTNT2+5 02704000 CVTQID EQU CVTXTNT2+24 02705000 CVTSHS EQU CVTXTNT2+40 02706000 CVTRV400 EQU CVTXTNT2+52 02707000 CVTRV409 EQU CVTXTNT2+53 02708000 CVTATCVT EQU CVTXTNT2+64 02709000 CVTRV429 EQU CVTXTNT2+84 02710000 CVTRV438 EQU CVTXTNT2+85 02711000 CVTRV457 EQU CVTXTNT2+112 02712000 CVTRV466 EQU CVTXTNT2+113 02713000 CVTFIX EQU 0 02714000 CVTRELNO EQU CVTFIX+252 02715000 TOMWA EQU 240 02716000 TOMWRKBF EQU TOMWA+200 02717000 TOMBFCNT EQU TOMWA+352 02718000 TOMWRKVI EQU TOMWA+364 02719000 TOMWRKVJ EQU TOMWA+368 02720000 TOMGETMN EQU TOMWA+380 02721000 TOMBUFSZ EQU TOMWA+384 02722000 TOMWRKSZ EQU TOMWA+392 02723000 TOMSCPRM EQU TOMWA+396 02724000 TOMREQCD EQU TOMSCPRM 02725000 TOMLNCNT EQU TOMSCPRM+12 02726000 TOMFMTDA EQU TOMSCPRM+16 02727000 TOMLNADR EQU TOMSCPRM+21 02728000 TOMWFLGS EQU TOMWA+421 02729000 TOMWFLG1 EQU TOMWFLGS 02730000 TOMEXBRU EQU TOMWFLG1 02731000 TOMOWAIT EQU TOMWFLG1 02732000 TOMWFLG2 EQU TOMWFLGS+1 02733000 TOMERMG9 EQU TOMWFLG2 02734000 TOMSCHED EQU TOMWFLG2 02735000 TOMWFLG3 EQU TOMWFLGS+2 02736000 TOMINITS EQU TOMWFLG3 02737000 TOMEMAIN EQU TOMWFLG3 02738000 TOMESEND EQU TOMWFLG3 02739000 TOMBPREQ EQU TOMWFLG3 02740000 TOMBPRSP EQU TOMWFLG3 02741000 TOMWRLG4 EQU TOMWFLGS+3 02742000 TOMBRKMG EQU TOMWRLG4 02743000 TOMEB EQU TOMWRLG4 02744000 TOMEBSV EQU TOMWRLG4 02745000 TOMUPARM EQU TOMWA+428 02746000 TOMERCNT EQU TOMWA+460 02747000 TOMCOLMN EQU TOMWA+464 02748000 OPARMS EQU TOMWA+484 02749000 OPREQ EQU OPARMS+4 02750000 OPFLAGS EQU OPARMS+8 02751000 OPOPTNS EQU OPFLAGS+1 02752000 OPNXFLGS EQU OPARMS+16 02753000 IKTIOFRR EQU 0 02754000 IKT3270O EQU 0 02755000 IKTEXIT EQU 0 02756000 STATUS EQU 0 02757000 IKTQMOUT EQU 0 02758000 INFODSCT EQU 0 02759000 INFOREGS EQU INFODSCT 02760000 INFOADDR EQU INFODSCT+4 02761000 GETMLENG EQU 0 02762000 ISTRPL EQU 0 02763000 FRRADD EQU 0 02764000 ADDRRTRY EQU 0 02765000 RTRYADDR EQU 0 02766000 SRBPTR EQU TSBXSRB 02767000 FLC EQU PSA 02768000 PSARSVTE EQU PSARSVT 02769000 PSACSTK EQU PSARSVTE 02770000 FRREPTR EQU FRRSCURR 02771000 ASXBPTR EQU ASCBASXB 02772000 CVTPTR EQU FLCCVT 02773000 CVTS01 EQU CVTPGSIA 02774000 CVTLPDIA EQU CVTS01+12 02775000 CVTDIRST EQU CVTLPDIA 02776000 CVTSLIDA EQU CVTS01+24 02777000 CVTCTLFG EQU CVTS01+50 02778000 CVTCRMN EQU CVTS01+156 02779000 CVTRV210 EQU CVTS01+424 02780000 CVTRV219 EQU CVTS01+425 02781000 CVTRV228 EQU CVTS01+426 02782000 CVTRV237 EQU CVTS01+427 02783000 CVTMFRTR EQU CVTS01+452 02784000 CVTRV262 EQU CVTS01+468 02785000 CVTRV271 EQU CVTS01+469 02786000 CVTRV280 EQU CVTS01+470 02787000 CVTRV289 EQU CVTS01+471 02788000 CVTGSDA EQU CVTS01+600 02789000 CVTTCASP EQU CVTS01+664 02790000 TOMCHAIN EQU RPLCHN 02791000 TOMFMLO EQU TOMCHAIN 02792000 SRB EQU SRBSECT 02793000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02794000 @NM00148 EQU TOMCHAIN 02795000 CVTRV628 EQU CVTS01+728 02796000 CVTRV627 EQU CVTS01+724 02797000 CVTRV626 EQU CVTS01+720 02798000 CVTRV625 EQU CVTS01+716 02799000 CVTRV624 EQU CVTS01+712 02800000 CVTRV623 EQU CVTS01+708 02801000 CVTRV622 EQU CVTS01+704 02802000 CVTRV621 EQU CVTS01+700 02803000 CVTRV620 EQU CVTS01+696 02804000 CVTRV619 EQU CVTS01+692 02805000 CVTRV618 EQU CVTS01+688 02806000 CVTRV617 EQU CVTS01+684 02807000 CVTRV616 EQU CVTS01+680 02808000 CVTRV615 EQU CVTS01+676 02809000 CVTRV614 EQU CVTS01+672 02810000 CVTRV613 EQU CVTS01+668 02811000 CVT0PT03 EQU CVTS01+660 02812000 CVT0PT0E EQU CVTS01+656 02813000 CVTIRM EQU CVTS01+652 02814000 CVTCGK EQU CVTS01+648 02815000 CVTRV607 EQU CVTS01+644 02816000 CVTRV606 EQU CVTS01+640 02817000 CVTRV605 EQU CVTS01+636 02818000 CVTRV604 EQU CVTS01+632 02819000 CVTEFF02 EQU CVTS01+628 02820000 CVTCBBR EQU CVTS01+624 02821000 CVTSSCR EQU CVTS01+620 02822000 CVTEVENT EQU CVTS01+616 02823000 CVTCRCA EQU CVTS01+612 02824000 CVTTPIO EQU CVTS01+608 02825000 CVTADV EQU CVTS01+604 02826000 CVTGSDAB EQU CVTGSDA 02827000 CVTQV3 EQU CVTS01+596 02828000 CVTQV2 EQU CVTS01+592 02829000 CVTQV1 EQU CVTS01+588 02830000 CVTRPT EQU CVTS01+584 02831000 CVTSSRB EQU CVTS01+580 02832000 CVTCSDRL EQU CVTS01+576 02833000 CVTEXP1 EQU CVTS01+572 02834000 CVTRMPMT EQU CVTS01+568 02835000 CVTRMPTT EQU CVTS01+564 02836000 CVTVPSA EQU CVTS01+560 02837000 CVTVSTOP EQU CVTS01+556 02838000 CVTGTFR8 EQU CVTS01+552 02839000 CVTQUIT EQU CVTS01+548 02840000 CVTVACR EQU CVTS01+544 02841000 CVTWTCB EQU CVTS01+540 02842000 CVTSTPRS EQU CVTS01+536 02843000 CVT0PT02 EQU CVTS01+532 02844000 CVTDARCM EQU CVTS01+528 02845000 CVTIRECM EQU CVTS01+524 02846000 CVTJRECM EQU CVTS01+520 02847000 CVTVEMS0 EQU CVTS01+516 02848000 CVTSPFRR EQU CVTS01+512 02849000 CVTRLSTG EQU CVTS01+508 02850000 CVT0TC0A EQU CVTS01+504 02851000 CVTGMBR EQU CVTS01+500 02852000 CVTLFRM EQU CVTS01+496 02853000 CVTRMBR EQU CVTS01+492 02854000 CVTVIOP EQU CVTS01+488 02855000 CVTRV307 EQU CVTS01+486 02856000 CVTRV306 EQU CVTS01+484 02857000 CVTRV305 EQU CVTS01+482 02858000 CVTRV304 EQU CVTS01+480 02859000 CVTRV303 EQU CVTS01+478 02860000 CVTRV302 EQU CVTS01+476 02861000 CVTTRCA EQU CVTS01+472 02862000 CVTRV297 EQU CVTRV289 02863000 CVTRV296 EQU CVTRV289 02864000 CVTRV295 EQU CVTRV289 02865000 CVTRV294 EQU CVTRV289 02866000 CVTRV293 EQU CVTRV289 02867000 CVTRV292 EQU CVTRV289 02868000 CVTRV291 EQU CVTRV289 02869000 CVTRV290 EQU CVTRV289 02870000 CVTRV288 EQU CVTRV280 02871000 CVTRV287 EQU CVTRV280 02872000 CVTRV286 EQU CVTRV280 02873000 CVTRV285 EQU CVTRV280 02874000 CVTRV284 EQU CVTRV280 02875000 CVTRV283 EQU CVTRV280 02876000 CVTRV282 EQU CVTRV280 02877000 CVTRV281 EQU CVTRV280 02878000 CVTRV279 EQU CVTRV271 02879000 CVTRV278 EQU CVTRV271 02880000 CVTRV277 EQU CVTRV271 02881000 CVTRV276 EQU CVTRV271 02882000 CVTRV275 EQU CVTRV271 02883000 CVTRV274 EQU CVTRV271 02884000 CVTRV273 EQU CVTRV271 02885000 CVTRV272 EQU CVTRV271 02886000 CVTRV270 EQU CVTRV262 02887000 CVTRV269 EQU CVTRV262 02888000 CVTRV268 EQU CVTRV262 02889000 CVTRV267 EQU CVTRV262 02890000 CVTRV266 EQU CVTRV262 02891000 CVTRV265 EQU CVTRV262 02892000 CVTRV264 EQU CVTRV262 02893000 CVTRV263 EQU CVTRV262 02894000 CVTVFP EQU CVTS01+464 02895000 CVTVSI EQU CVTS01+460 02896000 CVTVPSIB EQU CVTS01+456 02897000 CVTMFACT EQU CVTMFRTR 02898000 CVTMFCTL EQU CVTS01+448 02899000 CVTPVBP EQU CVTS01+444 02900000 CVTPWI EQU CVTS01+440 02901000 CVTRV254 EQU CVTS01+438 02902000 CVTRV253 EQU CVTS01+436 02903000 CVTRV252 EQU CVTS01+434 02904000 CVTRV251 EQU CVTS01+433 02905000 CVTRV250 EQU CVTS01+432 02906000 CVTRV249 EQU CVTS01+431 02907000 CVTRV248 EQU CVTS01+430 02908000 CVTRV247 EQU CVTS01+429 02909000 CVTRV246 EQU CVTS01+428 02910000 CVTRV245 EQU CVTRV237 02911000 CVTRV244 EQU CVTRV237 02912000 CVTRV243 EQU CVTRV237 02913000 CVTRV242 EQU CVTRV237 02914000 CVTRV241 EQU CVTRV237 02915000 CVTRV240 EQU CVTRV237 02916000 CVTRV239 EQU CVTRV237 02917000 CVTRV238 EQU CVTRV237 02918000 CVTRV236 EQU CVTRV228 02919000 CVTRV235 EQU CVTRV228 02920000 CVTRV234 EQU CVTRV228 02921000 CVTRV233 EQU CVTRV228 02922000 CVTRV232 EQU CVTRV228 02923000 CVTRV231 EQU CVTRV228 02924000 CVTRV230 EQU CVTRV228 02925000 CVTRV229 EQU CVTRV228 02926000 CVTRV227 EQU CVTRV219 02927000 CVTRV226 EQU CVTRV219 02928000 CVTRV225 EQU CVTRV219 02929000 CVTRV224 EQU CVTRV219 02930000 CVTRV223 EQU CVTRV219 02931000 CVTRV222 EQU CVTRV219 02932000 CVTRV221 EQU CVTRV219 02933000 CVTRV220 EQU CVTRV219 02934000 CVTRV218 EQU CVTRV210 02935000 CVTRV217 EQU CVTRV210 02936000 CVTRV216 EQU CVTRV210 02937000 CVTRV215 EQU CVTRV210 02938000 CVTRV214 EQU CVTRV210 02939000 CVTRV213 EQU CVTRV210 02940000 CVTRV212 EQU CVTRV210 02941000 CVTRV211 EQU CVTRV210 02942000 CVTLCCAT EQU CVTS01+420 02943000 CVTPCCAT EQU CVTS01+416 02944000 CVTIPCRP EQU CVTS01+412 02945000 CVTIPCRI EQU CVTS01+408 02946000 CVTIPCDS EQU CVTS01+404 02947000 CVTAIDVT EQU CVTS01+400 02948000 CVTSSAP EQU CVTS01+396 02949000 CVTEHCIR EQU CVTS01+392 02950000 CVTEHDEF EQU CVTS01+388 02951000 CVTDAIR EQU CVTS01+384 02952000 CVTPERFM EQU CVTS01+380 02953000 CVT044R2 EQU CVTS01+376 02954000 CVTFETCH EQU CVTS01+372 02955000 CVTRSTWD EQU CVTS01+368 02956000 CVTSPOST EQU CVTS01+364 02957000 CVTIOBP EQU CVTS01+360 02958000 CVTASMVT EQU CVTS01+356 02959000 CVTRECRQ EQU CVTS01+352 02960000 CVTWSAC EQU CVTS01+348 02961000 CVTRV149 EQU CVTS01+344 02962000 CVTWSAL EQU CVTS01+340 02963000 CVTSPSA EQU CVTS01+336 02964000 CVTGLMN EQU CVTS01+332 02965000 CVTVEAC0 EQU CVTS01+328 02966000 CVT062R1 EQU CVTS01+324 02967000 CVTRPOST EQU CVTS01+320 02968000 CVTDQIQE EQU CVTS01+316 02969000 CVTCSD EQU CVTS01+312 02970000 CVTLKRMA EQU CVTS01+308 02971000 CVTRSPIE EQU CVTS01+304 02972000 CVTRENQ EQU CVTS01+300 02973000 CVTLQCB EQU CVTS01+296 02974000 CVTFQCB EQU CVTS01+292 02975000 CVTQCS01 EQU CVTS01+288 02976000 CVTAPFT EQU CVTS01+284 02977000 CVTPARRL EQU CVTS01+280 02978000 CVTVWAIT EQU CVTS01+276 02979000 CVTGSPL EQU CVTS01+272 02980000 CVTLSMQ EQU CVTS01+268 02981000 CVTGSMQ EQU CVTS01+264 02982000 CVTEXPRO EQU CVTS01+260 02983000 CVTOPCTP EQU CVTS01+256 02984000 CVTSIC EQU CVTS01+252 02985000 CVTTPIOS EQU CVTS01+248 02986000 CVTRTMS EQU CVTS01+244 02987000 CVTSDBF EQU CVTS01+240 02988000 CVTSCBP EQU CVTS01+236 02989000 CVTSDMP EQU CVTS01+232 02990000 CVTSV60 EQU CVTS01+228 02991000 CVTRTMCT EQU CVTS01+224 02992000 CVTASCBL EQU CVTS01+220 02993000 CVTASCBH EQU CVTS01+216 02994000 CVTGDA EQU CVTS01+212 02995000 CVTASVT EQU CVTS01+208 02996000 CVTVVMDI EQU CVTS01+204 02997000 CVTAQTOP EQU CVTS01+200 02998000 CVTIOSCS EQU CVTS01+196 02999000 CVTSDRM EQU CVTS01+192 03000000 CVTOPTE EQU CVTS01+188 03001000 CVTSTXU EQU CVTS01+184 03002000 CVTQUIS EQU CVTS01+180 03003000 CVTPARS EQU CVTS01+176 03004000 CVTS1EE EQU CVTS01+172 03005000 CVTFRAS EQU CVTS01+168 03006000 CVTQSAS EQU CVTS01+164 03007000 CVTCRAS EQU CVTS01+160 03008000 CVTDELCP EQU CVTS01+152 03009000 CVTFRECL EQU CVTS01+148 03010000 CVTGETCL EQU CVTS01+144 03011000 CVTBLDCP EQU CVTS01+140 03012000 CVTAUTHL EQU CVTS01+136 03013000 CVTSCAN EQU CVTS01+132 03014000 CVTRV144 EQU CVTS01+130 03015000 CVTMAXMP EQU CVTS01+128 03016000 CVTSTCK EQU CVTS01+124 03017000 CVTRV139 EQU CVTS01+123 03018000 CVTDSSAC EQU CVTS01+122 03019000 CVTRV513 EQU CVTS01+121 03020000 CVTIOSPL EQU CVTS01+120 03021000 CVTPTGT EQU CVTS01+116 03022000 CVTCSPIE EQU CVTS01+112 03023000 CVTSMFEX EQU CVTS01+108 03024000 CVTOLT0A EQU CVTS01+104 03025000 CVTSRBRT EQU CVTS01+100 03026000 CVTPUTL EQU CVTS01+96 03027000 CVTASCRL EQU CVTS01+92 03028000 CVTASCRF EQU CVTS01+88 03029000 CVTRV326 EQU CVTS01+84 03030000 CVTRV325 EQU CVTS01+80 03031000 CVTRV324 EQU CVTS01+76 03032000 CVT0VL01 EQU CVTS01+72 03033000 CVTSHRVM EQU CVTS01+68 03034000 CVTRV332 EQU CVTS01+64 03035000 CVTTAS EQU CVTS01+60 03036000 CVTRSCN EQU CVTS01+56 03037000 CVTTRAC2 EQU CVTS01+54 03038000 CVTTRACE EQU CVTS01+52 03039000 CVTAPG EQU CVTS01+51 03040000 CVTSDTRC EQU CVTCTLFG 03041000 CVTGTRCE EQU CVTCTLFG 03042000 CVTNOMP EQU CVTCTLFG 03043000 CVTRSV79 EQU CVTCTLFG 03044000 CVTDSTAT EQU CVTCTLFG 03045000 CVTRSV78 EQU CVTCTLFG 03046000 CVTRV333 EQU CVTCTLFG 03047000 CVTRV323 EQU CVTCTLFG 03048000 CVTSPVLK EQU CVTS01+49 03049000 CVTRSV77 EQU CVTS01+48 03050000 CVTRV331 EQU CVTS01+44 03051000 CVTRV330 EQU CVTS01+40 03052000 CVTRV329 EQU CVTS01+36 03053000 CVTRV328 EQU CVTS01+32 03054000 CVTRV322 EQU CVTS01+28 03055000 CVTSLID EQU CVTSLIDA+1 03056000 CVTSYLK EQU CVTSLIDA 03057000 CVTRV321 EQU CVTS01+20 03058000 CVTRV320 EQU CVTS01+16 03059000 CVTLPDIR EQU CVTLPDIA+1 03060000 CVTRSV69 EQU CVTDIRST 03061000 CVTRSV68 EQU CVTDIRST 03062000 CVTRSV67 EQU CVTDIRST 03063000 CVTRSV66 EQU CVTDIRST 03064000 CVTRSV65 EQU CVTDIRST 03065000 CVTRSV64 EQU CVTDIRST 03066000 CVTRSV63 EQU CVTDIRST 03067000 CVTDICOM EQU CVTDIRST 03068000 CVTPVTP EQU CVTS01+8 03069000 CVTLPDSR EQU CVTS01+4 03070000 CVTGETL EQU CVTS01 03071000 PSARSAV EQU PSARSVTE+60 03072000 PSARSTK EQU PSARSVTE+56 03073000 PSAESAV3 EQU PSARSVTE+52 03074000 PSAESTK3 EQU PSARSVTE+48 03075000 PSAESAV2 EQU PSARSVTE+44 03076000 PSAESTK2 EQU PSARSVTE+40 03077000 PSAESAV1 EQU PSARSVTE+36 03078000 PSAESTK1 EQU PSARSVTE+32 03079000 PSAPSAV EQU PSARSVTE+28 03080000 PSAPSTK EQU PSARSVTE+24 03081000 PSAMSAV EQU PSARSVTE+20 03082000 PSAMSTK EQU PSARSVTE+16 03083000 PSASSAV EQU PSARSVTE+12 03084000 PSASSTK EQU PSARSVTE+8 03085000 PSANSTK EQU PSARSVTE+4 03086000 TOMWAEND EQU TOMWA+504 03087000 @NM00146 EQU OPNXFLGS+3 03088000 @NM00145 EQU OPNXFLGS+2 03089000 @NM00144 EQU OPNXFLGS+1 03090000 OPNXASID EQU OPNXFLGS+1 03091000 OPNXEDIT EQU OPNXFLGS+1 03092000 OPNXBRK EQU OPNXFLGS+1 03093000 OPNXHOLD EQU OPNXFLGS+1 03094000 @NM00143 EQU OPNXFLGS 03095000 OPNXADTP EQU OPNXFLGS 03096000 OPNXALC EQU OPNXFLGS 03097000 OPNXBFSZ EQU OPARMS+14 03098000 @NM00142 EQU OPARMS+12 03099000 @NM00141 EQU OPFLAGS+3 03100000 @NM00140 EQU OPFLAGS+2 03101000 @NM00139 EQU OPOPTNS 03102000 OPASID EQU OPOPTNS 03103000 OPEDIT EQU OPOPTNS 03104000 OPBRK EQU OPOPTNS 03105000 OPHOLD EQU OPOPTNS 03106000 @NM00138 EQU OPFLAGS 03107000 OPADTOP EQU OPFLAGS 03108000 OPALLOC EQU OPFLAGS 03109000 OPBFSZ EQU OPARMS+6 03110000 OPRC EQU OPARMS+5 03111000 OPBUFADR EQU OPARMS 03112000 @NM00137 EQU TOMWA+476 03113000 TOMCOLSV EQU TOMWA+472 03114000 TOMXCNT EQU TOMWA+468 03115000 TOMUPRM8 EQU TOMUPARM+28 03116000 TOMUPRM7 EQU TOMUPARM+24 03117000 TOMUPRM6 EQU TOMUPARM+20 03118000 TOMUPRM5 EQU TOMUPARM+16 03119000 TOMUPRM4 EQU TOMUPARM+12 03120000 TOMUPRM3 EQU TOMUPARM+8 03121000 TOMUPRM2 EQU TOMUPARM+4 03122000 TOMUPRM1 EQU TOMUPARM 03123000 @NM00136 EQU TOMWFLGS+4 03124000 @NM00135 EQU TOMWRLG4 03125000 TOMPGNSV EQU TOMWRLG4 03126000 @NM00134 EQU TOMWRLG4 03127000 TOMENDB EQU TOMWFLG3 03128000 TOMBRKPG EQU TOMWFLG3 03129000 TOMBRKSW EQU TOMWFLG3 03130000 TOMTRSBA EQU TOMWFLG2 03131000 TOMERLCT EQU TOMWFLG2 03132000 TOMSTCUR EQU TOMWFLG2 03133000 TOMERASE EQU TOMWFLG2 03134000 TOMALARM EQU TOMWFLG2 03135000 TOMKBULK EQU TOMWFLG2 03136000 TOMEXDTA EQU TOMWFLG1 03137000 TOMENDSC EQU TOMWFLG1 03138000 TOMCURST EQU TOMWFLG1 03139000 TOMENDBF EQU TOMWFLG1 03140000 TOMEDSAV EQU TOMWFLG1 03141000 @NM00133 EQU TOMSCPRM+23 03142000 TOMCOLAD EQU TOMLNADR+1 03143000 TOMROWAD EQU TOMLNADR 03144000 TOMFMATT EQU TOMFMTDA+3 03145000 TOMFMTAD EQU TOMFMTDA+1 03146000 TOMSBACD EQU TOMFMTDA 03147000 TOMPLSZ EQU TOMSCPRM+8 03148000 TOMLNNO EQU TOMSCPRM+4 03149000 @NM00132 EQU TOMSCPRM+3 03150000 TOMLNSZ EQU TOMSCPRM+2 03151000 TOMPLNNO EQU TOMSCPRM+1 03152000 @NM00131 EQU TOMWA+393 03153000 TOMBFPTR EQU TOMWA+388 03154000 TOMQBPTR EQU TOMWA+376 03155000 TOMNWLSZ EQU TOMWA+372 03156000 TOMQDATA EQU TOMWA+360 03157000 TOMMVCNT EQU TOMWA+356 03158000 SAVEREGS EQU TOMWA+280 03159000 TOMAUTOD EQU TOMWA 03160000 CVTLEVL EQU CVTRELNO+2 03161000 CVTNUMB EQU CVTRELNO 03162000 CVTMDL EQU CVTFIX+250 03163000 @NM00130 EQU CVTFIX+248 03164000 @NM00129 EQU CVTFIX 03165000 CVTRV482 EQU CVTXTNT2+128 03166000 CVTRV481 EQU CVTXTNT2+124 03167000 CVTRV480 EQU CVTXTNT2+120 03168000 CVTRV479 EQU CVTXTNT2+118 03169000 CVTRV478 EQU CVTXTNT2+117 03170000 CVTRV477 EQU CVTXTNT2+116 03171000 CVTRV476 EQU CVTXTNT2+115 03172000 CVTRV475 EQU CVTXTNT2+114 03173000 CVTRV474 EQU CVTRV466 03174000 CVTRV473 EQU CVTRV466 03175000 CVTRV472 EQU CVTRV466 03176000 CVTRV471 EQU CVTRV466 03177000 CVTRV470 EQU CVTRV466 03178000 CVTRV469 EQU CVTRV466 03179000 CVTRV468 EQU CVTRV466 03180000 CVTRV467 EQU CVTRV466 03181000 CVTRV465 EQU CVTRV457 03182000 CVTRV464 EQU CVTRV457 03183000 CVTRV463 EQU CVTRV457 03184000 CVTRV462 EQU CVTRV457 03185000 CVTRV461 EQU CVTRV457 03186000 CVTRV460 EQU CVTRV457 03187000 CVTRV459 EQU CVTRV457 03188000 CVTRV458 EQU CVTRV457 03189000 CVTRV456 EQU CVTXTNT2+108 03190000 CVTRV455 EQU CVTXTNT2+104 03191000 CVTRV454 EQU CVTXTNT2+100 03192000 CVTRV453 EQU CVTXTNT2+96 03193000 CVTRV452 EQU CVTXTNT2+94 03194000 CVTRV451 EQU CVTXTNT2+92 03195000 CVTRV450 EQU CVTXTNT2+90 03196000 CVTRV449 EQU CVTXTNT2+88 03197000 CVTRV448 EQU CVTXTNT2+87 03198000 CVTRV447 EQU CVTXTNT2+86 03199000 CVTRV446 EQU CVTRV438 03200000 CVTRV445 EQU CVTRV438 03201000 CVTRV444 EQU CVTRV438 03202000 CVTRV443 EQU CVTRV438 03203000 CVTRV442 EQU CVTRV438 03204000 CVTRV441 EQU CVTRV438 03205000 CVTRV440 EQU CVTRV438 03206000 CVTRV439 EQU CVTRV438 03207000 CVTRV437 EQU CVTRV429 03208000 CVTRV436 EQU CVTRV429 03209000 CVTRV435 EQU CVTRV429 03210000 CVTRV434 EQU CVTRV429 03211000 CVTRV433 EQU CVTRV429 03212000 CVTRV432 EQU CVTRV429 03213000 CVTRV431 EQU CVTRV429 03214000 CVTRV430 EQU CVTRV429 03215000 CVTRV428 EQU CVTXTNT2+80 03216000 CVTRV427 EQU CVTXTNT2+76 03217000 CVTRV426 EQU CVTXTNT2+72 03218000 CVTRV425 EQU CVTXTNT2+68 03219000 CVTATACT EQU CVTATCVT 03220000 CVTRV423 EQU CVTXTNT2+62 03221000 CVTRV422 EQU CVTXTNT2+60 03222000 CVTRV421 EQU CVTXTNT2+58 03223000 CVTRV420 EQU CVTXTNT2+56 03224000 CVTRV419 EQU CVTXTNT2+55 03225000 CVTRV418 EQU CVTXTNT2+54 03226000 CVTRV417 EQU CVTRV409 03227000 CVTRV416 EQU CVTRV409 03228000 CVTRV415 EQU CVTRV409 03229000 CVTRV414 EQU CVTRV409 03230000 CVTRV413 EQU CVTRV409 03231000 CVTRV412 EQU CVTRV409 03232000 CVTRV411 EQU CVTRV409 03233000 CVTRV410 EQU CVTRV409 03234000 CVTRV408 EQU CVTRV400 03235000 CVTRV407 EQU CVTRV400 03236000 CVTRV406 EQU CVTRV400 03237000 CVTRV405 EQU CVTRV400 03238000 CVTRV404 EQU CVTRV400 03239000 CVTRV403 EQU CVTRV400 03240000 CVTRV402 EQU CVTRV400 03241000 CVTRV401 EQU CVTRV400 03242000 CVTICB EQU CVTXTNT2+48 03243000 CVTSKTA EQU CVTXTNT2+44 03244000 CVTSHSB EQU CVTSHS 03245000 CVTRSV98 EQU CVTXTNT2+36 03246000 CVTRSV97 EQU CVTXTNT2+34 03247000 CVTRSV96 EQU CVTXTNT2+32 03248000 CVTOLTEP EQU CVTXTNT2+28 03249000 CVTQIDA EQU CVTQID+1 03250000 CVTRSV95 EQU CVTQID 03251000 CVTRSV94 EQU CVTXTNT2+20 03252000 CVTRSV93 EQU CVTXTNT2+16 03253000 CVTRSV92 EQU CVTXTNT2+12 03254000 CVTDEBVR EQU CVTXTNT2+8 03255000 CVTRSV91 EQU CVTXTNT2+6 03256000 CVTRSV9H EQU CVTFLGBT 03257000 CVTRSV9G EQU CVTFLGBT 03258000 CVTRSV9F EQU CVTFLGBT 03259000 CVTRSV9E EQU CVTFLGBT 03260000 CVTRSV9D EQU CVTFLGBT 03261000 CVTRSV9C EQU CVTFLGBT 03262000 CVTVME EQU CVTFLGBT 03263000 CVTNPE EQU CVTFLGBT 03264000 CVTNUCLS EQU CVTXTNT2+4 03265000 CVTDSSVA EQU CVTDSSV+1 03266000 CVTRSV89 EQU CVTDSSV 03267000 CVTRSV88 EQU CVTXTNT1+8 03268000 CVTRSV87 EQU CVTXTNT1+4 03269000 CVTFACHN EQU CVTXTNT1 03270000 CVTRV488 EQU CVTMAP+412 03271000 CVTRV487 EQU CVTMAP+408 03272000 CVTRV486 EQU CVTMAP+404 03273000 CVTRV485 EQU CVTMAP+400 03274000 CVTACTAP EQU CVTMAP+396 03275000 CVTAUTH EQU CVTMAP+392 03276000 CVTATMCA EQU CVTATMCT+1 03277000 CVTATMST EQU CVTATMCT 03278000 CVTRSV61 EQU CVTMAP+384 03279000 CVTVOLT1 EQU CVTVOLM1+1 03280000 CVTVOLI1 EQU CVTVOLF1 03281000 CVTSTOA EQU CVTMAP+376 03282000 CVTRSV58 EQU CVTMAP+374 03283000 CVTRSV57 EQU CVTMAP+372 03284000 CVTDDCE EQU CVTMAP+368 03285000 CVTPNWFR EQU CVTMAP+364 03286000 CVTSMF EQU CVTMAP+360 03287000 CVTSULK EQU CVTMAP+358 03288000 CVTSLKO EQU CVTSYSK 03289000 CVTSLKP EQU CVTSYSK 03290000 CVTSLKQ EQU CVTSYSK 03291000 CVTSLKR EQU CVTSYSK 03292000 CVTRSV56 EQU CVTSYSK 03293000 CVTRSV55 EQU CVTSYSK 03294000 CVTRSV54 EQU CVTSYSK 03295000 CVTRSV53 EQU CVTSYSK 03296000 CVTRSV52 EQU CVTA1F1 03297000 CVTRSV51 EQU CVTA1F1 03298000 CVTRSV50 EQU CVTA1F1 03299000 CVTRSV49 EQU CVTA1F1 03300000 CVTRSV48 EQU CVTA1F1 03301000 CVTRSV47 EQU CVTA1F1 03302000 CVTSRSW EQU CVTA1F1 03303000 CVTPFSW EQU CVTA1F1 03304000 CVTPCVT EQU CVTMAP+352 03305000 CVTRSV46 EQU CVTMAP+344 03306000 CVTRSV45 EQU CVTMAP+340 03307000 CVTRSV44 EQU CVTMAP+338 03308000 CVTRSV43 EQU CVTMAP+336 03309000 CVTHJESA EQU CVTHJES+1 03310000 CVTRSV42 EQU CVTHJES 03311000 CVTEXT2A EQU CVTEXT2+1 03312000 CVTRSV41 EQU CVTEXT2 03313000 CVTAPFA EQU CVTAPF+1 03314000 CVTRSV40 EQU CVTAPF 03315000 CVTRV518 EQU CVTINTLA 03316000 CVTRV517 EQU CVTERPV 03317000 CVTEORM EQU CVTMAP+312 03318000 CVTMCHPR EQU CVTMAP+308 03319000 CVTTZ EQU CVTMAP+304 03320000 CVTJEPS EQU CVTMAP+300 03321000 CVTJESCT EQU CVTMAP+296 03322000 CVTMODE EQU CVTMAP+292 03323000 CVTPTRV EQU CVTMAP+288 03324000 CVTREAL EQU CVTMAP+284 03325000 CVTRSV39 EQU CVTMAP+280 03326000 CVTRSV38 EQU CVTMAP+276 03327000 CVTDMSRA EQU CVTDMSR+1 03328000 CVTRV634 EQU CVTDMSRF 03329000 CVTRV633 EQU CVTDMSRF 03330000 CVTRV632 EQU CVTDMSRF 03331000 CVTRV631 EQU CVTDMSRF 03332000 CVTRV630 EQU CVTDMSRF 03333000 CVTRV629 EQU CVTDMSRF 03334000 CVTUDUMP EQU CVTDMSRF 03335000 CVTSDUMP EQU CVTDMSRF 03336000 CVTQMSGA EQU CVTQMSG+1 03337000 CVTRSV36 EQU CVTQMSG 03338000 CVTAMFF EQU CVTMAP+264 03339000 CVTPURGA EQU CVTPURG+1 03340000 CVTRSV35 EQU CVTPURG 03341000 CVTCBSP EQU CVTMAP+256 03342000 CVTATERA EQU CVTATER+1 03343000 CVTSYST EQU CVTATER 03344000 CVTVOLT2 EQU CVTTAT 03345000 CVTVOLI2 EQU CVTVOLF2 03346000 CVTAQAVB EQU CVTAQAVT+1 03347000 CVTRSV34 EQU CVTTCMFG 03348000 CVTRSV33 EQU CVTTCMFG 03349000 CVTRSV32 EQU CVTTCMFG 03350000 CVTRSV31 EQU CVTTCMFG 03351000 CVTRSV30 EQU CVTTCMFG 03352000 CVTRSV29 EQU CVTTCMFG 03353000 CVTRSV28 EQU CVTTCMFG 03354000 CVTTCRDY EQU CVTTCMFG 03355000 CVTGTFA EQU CVTGTF+1 03356000 CVTRSV27 EQU CVTGTFST 03357000 CVTRNIO EQU CVTGTFST 03358000 CVTUSR EQU CVTGTFST 03359000 CVTRV318 EQU CVTFORM 03360000 CVTRV317 EQU CVTTMODE 03361000 CVTRV316 EQU CVTSTATE 03362000 CVTRV315 EQU CVTGTFS 03363000 CVTGTFAV EQU CVTGTFS 03364000 CVT0SCR1 EQU CVTMAP+232 03365000 CVTRV515 EQU CVTMAP+228 03366000 CVTRMS EQU CVTMAP+224 03367000 CVTPATCH EQU CVTMAP+220 03368000 CVTTSCE EQU CVTMAP+216 03369000 CVTLNKSC EQU CVTMAP+214 03370000 CVTQABST EQU CVTMAP+212 03371000 CVTMDLDS EQU CVTMAP+208 03372000 CVTUSER EQU CVTMAP+204 03373000 CVTSMCA EQU CVTMAP+196 03374000 CVTRSV18 EQU CVTMAP+192 03375000 CVTQLPAQ EQU CVTMAP+188 03376000 CVTQCDSR EQU CVTMAP+184 03377000 CVTRSV17 EQU CVTOPTB 03378000 CVTRSV16 EQU CVTOPTB 03379000 CVTFP EQU CVTOPTB 03380000 CVTAPTHR EQU CVTOPTB 03381000 CVTNLOG EQU CVTOPTB 03382000 CVTTOD EQU CVTOPTB 03383000 CVTCTIMS EQU CVTOPTB 03384000 CVTPROT EQU CVTOPTB 03385000 CVTXPFP EQU CVTOPTA 03386000 CVTASCII EQU CVTOPTA 03387000 CVTRSV13 EQU CVTOPTA 03388000 CVTRSV12 EQU CVTOPTA 03389000 CVTNIP EQU CVTOPTA 03390000 CVTDDR EQU CVTOPTA 03391000 CVTAPR EQU CVTOPTA 03392000 CVTCCH EQU CVTOPTA 03393000 CVTSNCTR EQU CVTMAP+180 03394000 CVTQMWR EQU CVTMAP+176 03395000 CVTQOCR EQU CVTMAP+172 03396000 CVT1EF00 EQU CVTMAP+168 03397000 CVTMZ00 EQU CVTMAP+164 03398000 CVTHEAD EQU CVTMAP+160 03399000 CVTRSV11 EQU CVTMAP+156 03400000 CVT0PT01 EQU CVTMAP+152 03401000 CVTMSER EQU CVTMAP+148 03402000 CVTRV516 EQU CVTIERLC 03403000 CVTILCH EQU CVTMAP+140 03404000 CVT0DS EQU CVTMAP+136 03405000 CVTFBOSV EQU CVTMAP+132 03406000 CVTNUCB EQU CVTMAP+128 03407000 CVTIXAVL EQU CVTMAP+124 03408000 CVTIOQET EQU CVTMAP+120 03409000 CVTDCBA EQU CVTMAP+117 03410000 CVTMVS2 EQU CVTDCB 03411000 CVT6DAT EQU CVTDCB 03412000 CVT4MPS EQU CVTDCB 03413000 CVTRSV09 EQU CVTDCB 03414000 CVT4MS1 EQU CVTDCB 03415000 CVT2SPS EQU CVTDCB 03416000 CVT1SSS EQU CVTDCB 03417000 CVTRSV08 EQU CVTDCB 03418000 CVTSTB EQU CVTMAP+112 03419000 CVTQTD00 EQU CVTMAP+108 03420000 CVTQTE00 EQU CVTMAP+104 03421000 CVTCUCB EQU CVTMAP+100 03422000 CVTSJQ EQU CVTMAP+96 03423000 CVTPBLDL EQU CVTMAP+92 03424000 CVTTPC EQU CVTMAP+88 03425000 CVTSVDCB EQU CVTMAP+84 03426000 CVTBRET EQU CVTMAP+82 03427000 CVTEXIT EQU CVTMAP+80 03428000 CVT0FN00 EQU CVTMAP+76 03429000 CVTDARA EQU CVTDAR+1 03430000 CVTRSV07 EQU CVTFLGS1 03431000 CVTRSV06 EQU CVTFLGS1 03432000 CVTRSV05 EQU CVTFLGS1 03433000 CVTRSV04 EQU CVTFLGS1 03434000 CVTRSV03 EQU CVTFLGS1 03435000 CVTRSV02 EQU CVTFLGS1 03436000 CVTRSV01 EQU CVTFLGS1 03437000 CVTDMPLK EQU CVTFLGS1 03438000 CVTXITP EQU CVTMAP+68 03439000 CVTZDTAB EQU CVTMAP+64 03440000 CVTMSLT EQU CVTMAP+60 03441000 CVTDATE EQU CVTMAP+56 03442000 CVTBTERM EQU CVTMAP+52 03443000 CVTSYSAD EQU CVTMAP+48 03444000 CVTXTLER EQU CVTMAP+44 03445000 CVTILK2 EQU CVTMAP+40 03446000 CVTILK1 EQU CVTMAP+36 03447000 CVTPRLTV EQU CVTMAP+32 03448000 CVTPCNVT EQU CVTMAP+28 03449000 CVT0VL00 EQU CVTMAP+24 03450000 CVTXAPG EQU CVTMAP+20 03451000 CVTBUF EQU CVTMAP+16 03452000 CVTJOB EQU CVTMAP+12 03453000 CVTLINK EQU CVTMAP+8 03454000 CVT0EF00 EQU CVTMAP+4 03455000 CVTTCBP EQU CVTMAP 03456000 CVT EQU CVTMAP 03457000 MPSSRB1 EQU ISTMPST+172 03458000 MPSSAVE EQU ISTMPST+140 03459000 MPSMQLBP EQU ISTMPST+136 03460000 MPSSYSRT EQU ISTMPST+132 03461000 MPSQEL EQU ISTMPST+128 03462000 MPSDBTBL EQU ISTMPST+124 03463000 MPSASCB EQU ISTMPST+120 03464000 MPSTPPAB EQU ISTMPST+88 03465000 MPSSMPAB EQU ISTMPST+56 03466000 MPSSMRPH EQU ISTMPST+52 03467000 MPSSRB55 EQU ISTMPST+48 03468000 MPSRPLAC EQU MPSRPLCT+2 03469000 MPSRPLRC EQU MPSRPLCT 03470000 MPSCRPLQ EQU MPSCRPL 03471000 MPSSRBAC EQU MPSSRBCT+2 03472000 MPSSRBRC EQU MPSSRBCT 03473000 MPSSRBQ EQU MPSSRB 03474000 MPSCRAAC EQU MPSCRACT+2 03475000 MPSCRARC EQU MPSCRACT 03476000 MPSCRAQ EQU MPSCRA 03477000 MPSMPSTP EQU ISTMPST+20 03478000 MPSPSTCT EQU ISTMPST+16 03479000 MPSASID EQU MPSFLGA+2 03480000 MPSRSV02 EQU MPSFLGA+1 03481000 MPSPSTAB EQU MPSFLGA 03482000 MPSRSV01 EQU MPSFLGA 03483000 MPSTPBU EQU MPSFLGA 03484000 MPMEMTRM EQU MPSFLGA 03485000 MPSAUTH EQU MPSFLGA 03486000 MPSCRAO EQU MPSFLGA 03487000 MPSSRBO EQU MPSFLGA 03488000 MPSRQUEG EQU MPSRQUE 03489000 MPSID EQU ISTMPST 03490000 DYPPAB EQU ISTDYPAB+16 03491000 DYPRSV01 EQU ISTDYPAB+12 03492000 DYPTSKID EQU ISTDYPAB+8 03493000 DYPCHAIN EQU ISTDYPAB+4 03494000 DYPFLGS EQU ISTDYPAB+2 03495000 DYPLNGTH EQU ISTDYPAB+1 03496000 DYPTYPE EQU ISTDYPAB 03497000 PABRPHA EQU PABRPHFG+1 03498000 PABNODQ EQU PABFLAGS 03499000 PABINHBT EQU PABFLAGS 03500000 PABERLOK EQU PABERRLK 03501000 PABSSN EQU PABFLAGS 03502000 PABDYNAM EQU PABFLAGS 03503000 PABNORPR EQU PABFLAGS 03504000 PABPRIOR EQU PABFLAGS 03505000 PABAPYP EQU PABFLAGS 03506000 PABDVTA EQU ISTPAB+9 03507000 PABOFFST EQU ISTPAB+8 03508000 PABCHNGP EQU PABCHAIN+1 03509000 PABRSV02 EQU PABCHAIN 03510000 PABDELAY EQU PABCHAIN 03511000 PABRUNNG EQU PABCHAIN 03512000 PABRESET EQU PABCHAIN 03513000 PABUNCON EQU PABCHAIN 03514000 PABCDP EQU PABCHAIN 03515000 PABRESCH EQU PABCHAIN 03516000 PABCHNG EQU PABCHAIN 03517000 PABWEQP EQU PABWEQA+1 03518000 PABRSV01 EQU PABWEQA 03519000 PABWEQG EQU PABWEQA 03520000 ASXBEND EQU ASXB+232 03521000 ASXBRV25 EQU ASXB+228 03522000 ASXBRV24 EQU ASXB+224 03523000 ASXBPT0E EQU ASXB+220 03524000 ASXBCRB4 EQU ASXBCASW+3 03525000 ASXBCRB3 EQU ASXBCASW+2 03526000 ASXBCRB2 EQU ASXBCASW+1 03527000 ASXBCR06 EQU ASXBCRB1 03528000 ASXBCR05 EQU ASXBCRB1 03529000 ASXBCR04 EQU ASXBCRB1 03530000 ASXBCR03 EQU ASXBCRB1 03531000 ASXBCR02 EQU ASXBCRB1 03532000 ASXBCR01 EQU ASXBCRB1 03533000 ASXBTFD EQU ASXBCRB1 03534000 ASXBPIP EQU ASXBCRB1 03535000 ASXBCTDC EQU ASXB+212 03536000 ASXBTDCB EQU ASXB+208 03537000 ASXBRV19 EQU ASXB+204 03538000 ASXBRV18 EQU ASXB+200 03539000 ASXBRV17 EQU ASXB+196 03540000 ASXBRV16 EQU ASXB+192 03541000 ASXBLSRB EQU ASXBAEQ+20 03542000 ASXBFSRB EQU ASXBAEQ+16 03543000 ASXBLRQE EQU ASXBAEQ+12 03544000 ASXBFRQE EQU ASXBAEQ+8 03545000 ASXBLIQE EQU ASXBAEQ+4 03546000 ASXBFIQE EQU ASXBAEQ 03547000 ASXBETSK EQU ASXB+164 03548000 ASXBSIRB EQU ASXB+160 03549000 ASXBPSWD EQU ASXB+152 03550000 ASXBPRG EQU ASXB+136 03551000 ASXBRV26 EQU ASXB+132 03552000 ASXBOUSB EQU ASXB+128 03553000 ASXBDDR EQU ASXB+124 03554000 ASXBRCTD EQU ASXB+120 03555000 ASXBRSMD EQU ASXB+116 03556000 ASXBSPSA EQU ASXB+112 03557000 ASXBFRWA EQU ASXB+108 03558000 ASXBFLSA EQU ASXB+36 03559000 ASXBIHSA EQU ASXB+32 03560000 ASXBRV15 EQU ASXB+28 03561000 ASXBRV14 EQU ASXB+24 03562000 ASXBLWA EQU ASXB+20 03563000 ASXBRS00 EQU ASXB+14 03564000 ASXBTCBS EQU ASXB+12 03565000 ASXBLTCB EQU ASXB+8 03566000 ASXBFTCB EQU ASXB+4 03567000 ASXBASXB EQU ASXB 03568000 ASXBEGIN EQU ASXB 03569000 ASCBEND EQU ASCB+208 03570000 ASCBSRBT EQU ASCB+200 03571000 ASCBSWTL EQU ASCB+196 03572000 ASCBRS14 EQU ASCB+195 03573000 ASCBSMCT EQU ASCB+194 03574000 ASCBRS12 EQU ASCB+192 03575000 ASCBPCTT EQU ASCB+188 03576000 ASCBVGTT EQU ASCB+184 03577000 ASCBRV43 EQU ASCBSRQ4 03578000 ASCBRV42 EQU ASCBSRQ4 03579000 ASCBRV41 EQU ASCBSRQ4 03580000 ASCBRV40 EQU ASCBSRQ4 03581000 ASCBRV39 EQU ASCBSRQ4 03582000 ASCBRV38 EQU ASCBSRQ4 03583000 ASCBRV37 EQU ASCBSRQ4 03584000 ASCBRV36 EQU ASCBSRQ4 03585000 ASCBRV35 EQU ASCBSRQ3 03586000 ASCBRV34 EQU ASCBSRQ3 03587000 ASCBRV33 EQU ASCBSRQ3 03588000 ASCBRV32 EQU ASCBSRQ3 03589000 ASCBRV31 EQU ASCBSRQ3 03590000 ASCBRV30 EQU ASCBSRQ3 03591000 ASCBRV29 EQU ASCBSRQ3 03592000 ASCBRV28 EQU ASCBSRQ3 03593000 ASCBRV27 EQU ASCBSRQ2 03594000 ASCBRV26 EQU ASCBSRQ2 03595000 ASCBRV25 EQU ASCBSRQ2 03596000 ASCBRV24 EQU ASCBSRQ2 03597000 ASCBRV23 EQU ASCBSRQ2 03598000 ASCBRV22 EQU ASCBSRQ2 03599000 ASCBRV21 EQU ASCBSRQ2 03600000 ASCBRV20 EQU ASCBSRQ2 03601000 ASCBRV19 EQU ASCBSRQ1 03602000 ASCBRV18 EQU ASCBSRQ1 03603000 ASCBRV17 EQU ASCBSRQ1 03604000 ASCBRV16 EQU ASCBSRQ1 03605000 ASCBRV15 EQU ASCBSRQ1 03606000 ASCBRV14 EQU ASCBSRQ1 03607000 ASCBRV13 EQU ASCBSRQ1 03608000 ASCBSTA EQU ASCBSRQ1 03609000 ASCBJBNS EQU ASCB+176 03610000 ASCBJBNI EQU ASCB+172 03611000 ASCBMCC EQU ASCB+168 03612000 ASCBRTWA EQU ASCB+164 03613000 ASCBIQEA EQU ASCB+160 03614000 ASCBXMPQ EQU ASCB+156 03615000 ASCBRS01 EQU ASCB+154 03616000 ASCBFMCT EQU ASCB+152 03617000 ASCBOUXB EQU ASCB+148 03618000 ASCBOUCB EQU ASCB+144 03619000 ASCBMECB EQU ASCB+140 03620000 ASCBQECB EQU ASCB+136 03621000 ASCBLSQH EQU ASCBLKGP+4 03622000 ASCBLOCK EQU ASCBLKGP 03623000 ASCBTCBS EQU ASCB+124 03624000 ASCBNVSC EQU ASCB+122 03625000 ASCBVSC EQU ASCB+120 03626000 ASCBSRBS EQU ASCB+118 03627000 ASCBSSRB EQU ASCB+116 03628000 ASCBRV06 EQU ASCBFLG2 03629000 ASCBRV05 EQU ASCBFLG2 03630000 ASCBRV04 EQU ASCBFLG2 03631000 ASCBSNQS EQU ASCBFLG2 03632000 ASCBS2S EQU ASCBFLG2 03633000 ASCBCEXT EQU ASCBFLG2 03634000 ASCBPXMT EQU ASCBFLG2 03635000 ASCBXMPT EQU ASCBFLG2 03636000 ASCBRF07 EQU ASCBDSP1 03637000 ASCBRF06 EQU ASCBDSP1 03638000 ASCBRF05 EQU ASCBDSP1 03639000 ASCBRF04 EQU ASCBDSP1 03640000 ASCBRF03 EQU ASCBDSP1 03641000 ASCBRF02 EQU ASCBDSP1 03642000 ASCBFAIL EQU ASCBDSP1 03643000 ASCBNOQ EQU ASCBDSP1 03644000 ASCBSWCT EQU ASCB+112 03645000 ASCBTMCH EQU ASCB+104 03646000 ASCBNSWP EQU ASCBFLG1 03647000 ASCBTYP1 EQU ASCBFLG1 03648000 ASCBSTND EQU ASCBFLG1 03649000 ASCBABNT EQU ASCBFLG1 03650000 ASCBTERM EQU ASCBFLG1 03651000 ASCBS3S EQU ASCBFLG1 03652000 ASCBCMSH EQU ASCBFLG1 03653000 ASCBTOFF EQU ASCBFLG1 03654000 ASCBRF01 EQU ASCBRCTF 03655000 ASCBTMLW EQU ASCBRCTF 03656000 ASCBOUT EQU ASCBRCTF 03657000 ASCBWAIT EQU ASCBRCTF 03658000 ASCBRV08 EQU ASCBRCTF 03659000 ASCBFQU EQU ASCBRCTF 03660000 ASCBFRS EQU ASCBRCTF 03661000 ASCBTMNO EQU ASCBRCTF 03662000 ASCBAFFN EQU ASCBFW1 03663000 ASCBDUMP EQU ASCB+96 03664000 ASCBQSVC EQU ASCB+92 03665000 ASCBUBET EQU ASCB+88 03666000 ASCBECB EQU ASCB+84 03667000 ASCBJSTL EQU ASCB+80 03668000 ASCBEWST EQU ASCB+72 03669000 ASCBEJST EQU ASCB+64 03670000 ASCBCSCB EQU ASCB+56 03671000 ASCBRSM EQU ASCB+52 03672000 ASCBLDA EQU ASCB+48 03673000 ASCBSTOR EQU ASCB+44 03674000 ASCBDP EQU ASCB+43 03675000 ASCBRV07 EQU ASCB+42 03676000 ASCBIOSM EQU ASCB+40 03677000 ASCBSEQN EQU ASCB+38 03678000 ASCBASID EQU ASCB+36 03679000 ASCBCPUS EQU ASCB+32 03680000 ASCBSPL EQU ASCB+28 03681000 ASCBIOSP EQU ASCB+24 03682000 ASCBSYNC EQU ASCBSUPC+4 03683000 ASCBSVRB EQU ASCBSUPC 03684000 ASCBCMSF EQU ASCB+12 03685000 ASCBBWDP EQU ASCB+8 03686000 ASCBFWDP EQU ASCB+4 03687000 ASCBASCB EQU ASCB 03688000 ASCBEGIN EQU ASCB 03689000 @NM00128 EQU FRRSFLGS+1 03690000 @NM00127 EQU FRRSFLG1 03691000 FRRSRCUR EQU FRRSFLG1 03692000 FRRSENTS EQU FRRS+84 03693000 FRRSRTMW EQU FRRS+16 03694000 @NM00126 EQU SCVTSECT+180 03695000 @NM00125 EQU SCVTSECT+176 03696000 SCVTPIQE EQU SCVTSECT+172 03697000 @NM00124 EQU SCVTSECT+168 03698000 SCVTPTRM EQU SCVTSECT+164 03699000 @NM00123 EQU SCVTSECT+160 03700000 @NM00122 EQU SCVTSECT+156 03701000 SCVTQCBR EQU SCVTSECT+152 03702000 @NM00121 EQU SCVTSECT+144 03703000 SCVTTQE EQU SCVTSECT+140 03704000 @NM00120 EQU SCVTSECT+136 03705000 SCVTSVCT EQU SCVTSECT+132 03706000 @NM00119 EQU SCVTSECT+128 03707000 @NM00118 EQU SCVTSECT+124 03708000 SCVTRXLQ EQU SCVTSECT+120 03709000 @NM00117 EQU SCVTSECT+116 03710000 SCVTCTCB EQU SCVTSECT+112 03711000 @NM00116 EQU SCVTSECT+108 03712000 @NM00115 EQU SCVTSECT+104 03713000 @NM00114 EQU SCVTSECT+100 03714000 @NM00113 EQU SCVTSECT+96 03715000 SCVTCOMM EQU SCVTSECT+92 03716000 @NM00112 EQU SCVTSECT+88 03717000 @NM00111 EQU SCVTSECT+84 03718000 @NM00110 EQU SCVTSECT+80 03719000 @NM00109 EQU SCVTSECT+76 03720000 @NM00108 EQU SCVTSECT+72 03721000 SCVTGMBR EQU SCVTSECT+68 03722000 SCVTRPTR EQU SCVTSECT+64 03723000 SCVTHSKP EQU SCVTSECT+60 03724000 @NM00107 EQU SCVTSECT+56 03725000 @NM00106 EQU SCVTSECT+52 03726000 SCVTLFRM EQU SCVTSECT+48 03727000 SCVTCDCL EQU SCVTSECT+44 03728000 @NM00105 EQU SCVTSECT+40 03729000 SCVTRACE EQU SCVTSECT+36 03730000 @NM00104 EQU SCVTSECT+32 03731000 SCVTRMBR EQU SCVTSECT+28 03732000 @NM00103 EQU SCVTSECT+24 03733000 @NM00102 EQU SCVTSECT+20 03734000 @NM00101 EQU SCVTSECT+16 03735000 @NM00100 EQU SCVTSECT+14 03736000 SCVTBR14 EQU SCVTSECT+12 03737000 SCVTSPET EQU SCVTSECT+8 03738000 SCVTPGWR EQU SCVTSECT+4 03739000 SCVTPGTM EQU SCVTSECT 03740000 @NM00075 EQU SRBSECT+40 03741000 @NM00074 EQU SRBSECT+38 03742000 SRBPRIOR EQU SRBSECT+37 03743000 SRBPKF EQU SRBSECT+36 03744000 SRBSAVE EQU SRBSECT+32 03745000 SRBPARM EQU SRBSECT+28 03746000 SRBRMTR EQU SRBSECT+24 03747000 SRBEP EQU SRBSECT+20 03748000 SRBPTCB EQU SRBFLC+4 03749000 SRBPASID EQU SRBFLC+2 03750000 SRBCPAFF EQU SRBFLC 03751000 SRBASCB EQU SRBSECT+8 03752000 SRBFLNK EQU SRBSECT+4 03753000 SRBID EQU SRBSECT 03754000 RPLSEQNO EQU RPLOF60+6 03755000 @NM00073 EQU RPLIBSQ 03756000 RPLIINV EQU RPLIBSQ 03757000 RPLINEG EQU RPLIBSQ 03758000 RPLIPOS EQU RPLIBSQ 03759000 RPLIIGN EQU RPLIBSQ 03760000 RPLIRSET EQU RPLIBSQ 03761000 RPLITST EQU RPLIBSQ 03762000 RPLISET EQU RPLIBSQ 03763000 @NM00072 EQU RPLOBSQ 03764000 RPLOINV EQU RPLOBSQ 03765000 RPLONEG EQU RPLOBSQ 03766000 RPLOPOS EQU RPLOBSQ 03767000 RPLOIGN EQU RPLOBSQ 03768000 RPLORSET EQU RPLOBSQ 03769000 RPLOTST EQU RPLOBSQ 03770000 RPLOSET EQU RPLOBSQ 03771000 RPLIBSQV EQU RPLOF60+2 03772000 RPLOBSQV EQU RPLOF60 03773000 @NM00071 EQU RPLCNTSC 03774000 RPLRSHUT EQU RPLCNTSC 03775000 RPLRQR EQU RPLCNTSC 03776000 RPLSHUTC EQU RPLCNTSC 03777000 RPLSHUTD EQU RPLCNTSC 03778000 RPLSTSN EQU RPLCNTSC 03779000 RPLCLEAR EQU RPLCNTSC 03780000 RPLSDT EQU RPLCNTSC 03781000 @NM00070 EQU RPLCNTDC 03782000 RPLSIGNL EQU RPLCNTDC 03783000 RPLLUS EQU RPLCNTDC 03784000 RPLRTR EQU RPLCNTDC 03785000 RPLBID EQU RPLCNTDC 03786000 @NM00069 EQU RPLCNTDF 03787000 RPLQI EQU RPLCNTDF 03788000 RPLRELQ EQU RPLCNTDF 03789000 RPLCHASE EQU RPLCNTDF 03790000 RPLQEC EQU RPLCNTDF 03791000 RPLQC EQU RPLCNTDF 03792000 RPLCNCEL EQU RPLCNTDF 03793000 RPLDATA EQU RPLCNTDF 03794000 RPLRRN EQU RPLRESP 03795000 RPLNFME EQU RPLRESP 03796000 @NM00068 EQU RPLRESP 03797000 @NM00067 EQU RPLPOSTV 03798000 @NM00066 EQU RPLVTFL1 03799000 RPLAUTUS EQU RPLVTFL1 03800000 RPLVTUSE EQU RPLVTFL1 03801000 @NM00065 EQU RPLVTFL1 03802000 @NM00064 EQU RPLCHN 03803000 @NM00063 EQU RPLRTYPE 03804000 @NM00062 EQU RPLSTYPE 03805000 RPLSRESP EQU RPLSTYPE 03806000 @NM00061 EQU RPLRH3 03807000 RPLCHREQ EQU RPLRH3 03808000 RPLSAV13 EQU RPLVTEXT+28 03809000 RPLUSNSO EQU RPLOSENS+2 03810000 RPLSSMO EQU RPLSSNSO+1 03811000 @NM00060 EQU RPLSSEO 03812000 RPLRRO EQU RPLSSEO 03813000 RPLFIO EQU RPLSSEO 03814000 RPLSTATO EQU RPLSSEO 03815000 RPLCPMO EQU RPLSSEO 03816000 @NM00059 EQU RPLSSEO 03817000 @NM00058 EQU RPLOPT12 03818000 @NM00057 EQU RPLOPT12 03819000 @NM00056 EQU RPLOPT12 03820000 RPLNIBTK EQU RPLOPT12 03821000 RPLTRUNC EQU RPLOPT12 03822000 RPLKEEP EQU RPLOPT12 03823000 @NM00055 EQU RPLOPT12 03824000 RPLRSVE8 EQU RPLOPT11 03825000 RPLRSVE7 EQU RPLOPT11 03826000 RPLRSVE6 EQU RPLOPT11 03827000 RPLRSVE5 EQU RPLOPT11 03828000 RPLRSVE4 EQU RPLOPT11 03829000 RPLSTOP EQU RPLOPT11 03830000 RPLSTART EQU RPLOPT11 03831000 RPLQUIES EQU RPLOPT11 03832000 RPLRSVI6 EQU RPLOPT10 03833000 RPLRSVI5 EQU RPLOPT10 03834000 RPLRSVI4 EQU RPLOPT10 03835000 RPLRSVI3 EQU RPLOPT10 03836000 RPLRSVI2 EQU RPLOPT10 03837000 RPLSPARM EQU RPLOPT10 03838000 RPLDSPLY EQU RPLOPT10 03839000 RPLBSCID EQU RPLOPT10 03840000 RPLTOPL EQU RPLOPT9 03841000 RPLCIDE EQU RPLOPT9 03842000 RPLRNNM EQU RPLOPT9 03843000 RPLAPPST EQU RPLOPT9 03844000 RPLCOUNT EQU RPLOPT9 03845000 RPLTERMS EQU RPLOPT9 03846000 RPLDEVCH EQU RPLOPT9 03847000 RPLLOGON EQU RPLOPT9 03848000 RPLESR2 EQU RPLUSNSI+1 03849000 RPLESR1 EQU RPLUSNSI 03850000 @NM00054 EQU RPLSSEI 03851000 RPLRRI EQU RPLSSEI 03852000 RPLSTATI EQU RPLSSEI 03853000 RPLCPMI EQU RPLSSEI 03854000 RPLPATHI EQU RPLSSEI 03855000 RPLARCLN EQU RPLVTEXT+8 03856000 RPLAARLN EQU RPLVTEXT+4 03857000 RPLAAREA EQU RPLVTEXT 03858000 RPLERMSA EQU RPLCOMN+72 03859000 RPLEMLEN EQU RPLCOMN+70 03860000 RPLACTIV EQU RPLCOMN+69 03861000 RPLBRANC EQU RPLEXTD1 03862000 RPLNIB EQU RPLEXTD1 03863000 @NM00053 EQU RPLEXTD1 03864000 RPLEXIT EQU RPLEXTD1 03865000 RPLNEXIT EQU RPLEXTD1 03866000 RPLEXSCH EQU RPLEXTD1 03867000 RPLDDDD EQU RPLRBAR+4 03868000 @NM00052 EQU RPLRBAR+3 03869000 @NM00051 EQU RPLAIXID 03870000 RPLAXPKP EQU RPLAIXID 03871000 RPLAIXPC EQU RPLRBAR 03872000 RPLRSV88 EQU RPLOPT8 03873000 RPLUNCON EQU RPLOPT8 03874000 RPLACTV EQU RPLOPT8 03875000 RPLSESS EQU RPLOPT8 03876000 RPLPEND EQU RPLOPT8 03877000 RPLODPRM EQU RPLOPT8 03878000 RPLODACP EQU RPLOPT8 03879000 RPLODACQ EQU RPLOPT8 03880000 RPLRSV78 EQU RPLOPT7 03881000 RPLTCRNO EQU RPLOPT7 03882000 RPLRLSOP EQU RPLOPT7 03883000 RPLTPOST EQU RPLOPT7 03884000 RPLQOPT EQU RPLOPT7 03885000 RPLCNIMM EQU RPLCNOPT 03886000 RPLCNANY EQU RPLCNOPT 03887000 RPLCNALL EQU RPLCNOPT 03888000 RPLRSV68 EQU RPLOPT6 03889000 RPLRSV67 EQU RPLOPT6 03890000 RPLLOCK EQU RPLOPT6 03891000 RPLNCOND EQU RPLOPT6 03892000 RPLCOND EQU RPLOPT6 03893000 RPLEOT EQU RPLUNTYP 03894000 RPLEOM EQU RPLUNTYP 03895000 RPLEOB EQU RPLUNTYP 03896000 RPLWROPT EQU RPLOPT5 03897000 RPLNODE EQU RPLOPT5 03898000 RPLERACE EQU RPLWRTYP 03899000 RPLEAU EQU RPLWRTYP 03900000 RPLNERAS EQU RPLWRTYP 03901000 RPLPSOPT EQU RPLOPT5 03902000 @NM00050 EQU RPLOPT5 03903000 RPLDLGIN EQU RPLOPT5 03904000 RPLBUFL EQU RPLCOMN+52 03905000 RPLCHAIN EQU RPLNXTRP 03906000 RPLBOP EQU RPLOPT4 03907000 @NM00049 EQU RPLOPT4 03908000 RPLMKFRM EQU RPLOPT4 03909000 RPLENDTR EQU RPLOPT4 03910000 RPLALIGN EQU RPLOPT3 03911000 RPLFMT EQU RPLOPT3 03912000 RPLFLD EQU RPLOPT3 03913000 RPLVFY EQU RPLOPT3 03914000 RPLBLK EQU RPLOPT3 03915000 RPLSFORM EQU RPLOPT3 03916000 RPLEODS EQU RPLOPT3 03917000 RPLNSP EQU RPLOPT2 03918000 RPLUPD EQU RPLOPT2 03919000 @NM00048 EQU RPLOPT2 03920000 RPLLRD EQU RPLOPT2 03921000 RPLBWD EQU RPLOPT2 03922000 RPLCNV EQU RPLOPT2 03923000 RPLADD EQU RPLADR 03924000 RPLKEY EQU RPLOPT2 03925000 RPLECBIN EQU RPLECBSW 03926000 RPLGEN EQU RPLOPT1 03927000 RPLKGE EQU RPLOPT1 03928000 RPLASY EQU RPLOPT1 03929000 RPLSKP EQU RPLOPT1 03930000 RPLSEQ EQU RPLOPT1 03931000 RPLDIR EQU RPLOPT1 03932000 RPLLOC EQU RPLOPT1 03933000 RPLDAF EQU RPLARG+2 03934000 RPLSAF EQU RPLARG 03935000 RPLTCBPT EQU RPLCOMN+28 03936000 RPLCCHAR EQU RPLCOMN+20 03937000 RPLSTRID EQU RPLCOMN+18 03938000 RPLKEYL EQU RPLKEYLE 03939000 RPLRDSOH EQU RPLFDB3 03940000 RPLRLG EQU RPLFDB3 03941000 RPLLGFRC EQU RPLFDB3 03942000 RPLREOT EQU RPLFDB3 03943000 RPLREOM EQU RPLFDB3 03944000 RPLREOB EQU RPLFDB3 03945000 RPLSV32 EQU RPLFDB3 03946000 RPLUINPT EQU RPLFDB3 03947000 RPLSTSAV EQU RPLFDB2 03948000 RPLCUERR EQU RPLFDB2 03949000 RPLDLGFL EQU RPLFDB2 03950000 RPLIOERR EQU RPLFDB2 03951000 RPLDVUNS EQU RPLFDB2 03952000 RPLATND EQU RPLFDB2 03953000 RPLRVID EQU RPLFDB2 03954000 RPLERLK EQU RPLFDB2 03955000 RPLERREG EQU RPLRTNCD 03956000 RPLSTAT EQU RPLFDBWD 03957000 RPLPOST EQU RPLECB 03958000 RPLWAIT EQU RPLECB 03959000 RPLPLHPT EQU RPLCOMN+4 03960000 RPLLEN2 EQU RPLLEN 03961000 RPLREQ EQU RPLIDWD+2 03962000 RPLSTYP EQU RPLIDWD+1 03963000 RPLID EQU RPLIDWD 03964000 TVWAEND EQU TVWA+216 03965000 @NM00047 EQU TVWA+208 03966000 TVWAUSRA EQU TVWA+200 03967000 @NM00046 EQU TVWA+192 03968000 TVWAFRWI EQU TVWA+184 03969000 TVWARSHW EQU TVWA+183 03970000 @NM00045 EQU TVWAFLG6 03971000 @NM00044 EQU TVWA+180 03972000 TVWAQMLB EQU TVWA+176 03973000 TVWAATBO EQU TVWA+172 03974000 TVWAATBI EQU TVWA+168 03975000 TVWATRNM EQU TVWA+160 03976000 TVWATABO EQU TVWA+156 03977000 TVWATABI EQU TVWA+152 03978000 TVWAP1ST EQU TVWAFLG5 03979000 TVWAPRMT EQU TVWAFLG5 03980000 TVWANFSP EQU TVWAFLG5 03981000 TVWAFSW EQU TVWAFLG5 03982000 TVWAWO EQU TVWAFLG5 03983000 TVWAFSM EQU TVWAFLG5 03984000 TVWASCAN EQU TVWAFLG5 03985000 @NM00043 EQU TVWA+148 03986000 TVWADARC EQU TVWAFLG4 03987000 TVWAQMEV EQU TVWAFLG4 03988000 TVWAFLSC EQU TVWAFLG4 03989000 TVWANOFB EQU TVWAFLG4 03990000 TVWADOOQ EQU TVWAFLG4 03991000 TVWAFMSC EQU TVWAFLG4 03992000 TVWATRDF EQU TVWAFLG3 03993000 TVWATRAN EQU TVWAFLG3 03994000 TVWAQLBU EQU TVWAFLG3 03995000 TVWAQMIO EQU TVWAFLG3 03996000 TVWAQMRT EQU TVWAFLG3 03997000 TVWABIR EQU TVWAFLG2 03998000 TVWARTRY EQU TVWAFLG2 03999000 TVWABKMG EQU TVWAFLG2 04000000 TVWAERMG EQU TVWAFLG2 04001000 TVWAGERR EQU TVWAFLG2 04002000 TVWAOOPS EQU TVWAFLG1 04003000 TVWAULK EQU TVWAFLG1 04004000 TVWAXSCD EQU TVWAFLG1 04005000 TVWADIN3 EQU TVWADLST+8 04006000 TVWADIN2 EQU TVWADLST+4 04007000 TVWADIN1 EQU TVWADLST 04008000 TVWAECB3 EQU TVWAECBL+8 04009000 TVWAECB2 EQU TVWAECBL+4 04010000 TVWAECB1 EQU TVWAECBL 04011000 TVWATECB EQU TVWA+116 04012000 TVWAECB EQU TVWA+112 04013000 TVWALNSV EQU TVWA+111 04014000 @NM00042 EQU TVWAFLG7 04015000 TVWACHSE EQU TVWAFLG7 04016000 TVWARISW EQU TVWAFLG7 04017000 TVWARET EQU TVWAFLG7 04018000 TVWABKPG EQU TVWAFLG7 04019000 TVWAVSZ EQU TVWA+108 04020000 TVWAVST EQU TVWA+104 04021000 TVWAEXL EQU TVWA+100 04022000 TVWARPL EQU TVWA+96 04023000 TVWATQL2 EQU TVWA+87 04024000 TVWATQL1 EQU TVWA+86 04025000 TVWACHNL EQU TVWA+84 04026000 TVWALBUF EQU TVWA+80 04027000 TVWAHBUF EQU TVWA+76 04028000 TVWACLSZ EQU TVWA+74 04029000 TVWARTR EQU TVWA+72 04030000 TVWAUSMN EQU TVWA+60 04031000 TVWACPID EQU TVWA+56 04032000 TVWAEOQ EQU TVWA+52 04033000 TVWANOM EQU TVWA+48 04034000 TVWABOQ EQU TVWA+44 04035000 TVWAEIQ EQU TVWA+40 04036000 TVWANIM EQU TVWA+36 04037000 TVWABIQ EQU TVWA+32 04038000 TVWAQMWA EQU TVWA+28 04039000 TVWALLWA EQU TVWA+24 04040000 TVWABFPT EQU TVWA+20 04041000 TVWATOPQ EQU TVWA+16 04042000 TVWATIMW EQU TVWA+8 04043000 TVWAPPL EQU TVWA 04044000 TCASTEND EQU TCAST+136 04045000 TCASDUMP EQU TCAST+132 04046000 TCASSCHD EQU TCAST+128 04047000 TCASTPND EQU TCAST+124 04048000 TCASOMJR EQU TCAST+120 04049000 @NM00041 EQU TCAST+118 04050000 TCASBR14 EQU TCAST+116 04051000 TCASATTN EQU TCAST+112 04052000 TCASASCI EQU TCAST+108 04053000 TCASTTQH EQU TCAST+104 04054000 @NM00040 EQU TCAST+102 04055000 @NM00039 EQU TCAST+100 04056000 @NM00038 EQU TCAST+98 04057000 @NM00037 EQU TCAST+96 04058000 TCASASCB EQU TCAST+92 04059000 @NM00036 EQU TCAST+90 04060000 @NM00035 EQU TCASFLG2 04061000 @NM00034 EQU TCASFLG1 04062000 TCASNACT EQU TCASFLG1 04063000 TCASVSD EQU TCASFLG1 04064000 TCASABND EQU TCASFLG1 04065000 TCASMDSW EQU TCASFLG1 04066000 TCASBKMD EQU TCASFLG1 04067000 TCASLTE EQU TCAST+84 04068000 TCASIQM EQU TCAST+72 04069000 TCASTSB EQU TCAST+68 04070000 TCASTTL EQU TCAST+64 04071000 TCASWA EQU TCAST+60 04072000 TCASMSGS EQU TCAST+52 04073000 TCASDATI EQU TCAST+44 04074000 TCASXECB EQU TCAST+40 04075000 TCASTID EQU TCAST+32 04076000 @NM00033 EQU TCAST+31 04077000 TCASCHNL EQU TCAST+30 04078000 TCASCRSZ EQU TCAST+28 04079000 TCASLBUF EQU TCAST+24 04080000 TCASHBUF EQU TCAST+20 04081000 TCASCLSZ EQU TCAST+18 04082000 TCASRCON EQU TCAST+16 04083000 TCASACBP EQU TCAST+8 04084000 TCASUMAX EQU TCASUSER+2 04085000 TCASUSEC EQU TCASUSER 04086000 TCASID EQU TCAST 04087000 @NM00032 EQU LTCBFLAG 04088000 LTCBRCUR EQU LTCBFLAG 04089000 @NM00031 EQU IKTLTCB 04090000 @NM00030 EQU FRWAFLGS+1 04091000 @NM00029 EQU FRWAFL1 04092000 FRWAPCRE EQU FRWAFL1 04093000 @NM00028 EQU IKTFRPRM+21 04094000 @NM00027 EQU FRPFRFLG 04095000 FRPIMNGR EQU FRPFRFLG 04096000 TSBXEND EQU TSBX+120 04097000 @NM00026 EQU TSBX+116 04098000 TSBXBIND EQU TSBX+80 04099000 TSBXRPL EQU TSBX+76 04100000 TSBXTMBF EQU TSBXTERM+2 04101000 @NM00025 EQU TSBXTERM+1 04102000 TSBXTMTP EQU TSBXTERM 04103000 TSBXAIND EQU TSBX+70 04104000 TSBXRSZI EQU TSBX+68 04105000 TSBXLBUF EQU TSBX+64 04106000 TSBXCSAP EQU TSBX+60 04107000 TSBXSRBI EQU TSBX+52 04108000 @NM00024 EQU TSBX+48 04109000 TSBXTOM EQU TSBX+44 04110000 TSBXTIM EQU TSBX+40 04111000 @NM00023 EQU TSBX+33 04112000 @NM00022 EQU TSBXFLG1 04113000 TSBXWREC EQU TSBXFLG1 04114000 TSBXLOGF EQU TSBXFLG1 04115000 TSBXACTV EQU TSBXFLG1 04116000 TSBXUID EQU TSBX+24 04117000 @NM00021 EQU TSBX+16 04118000 @NM00020 EQU TSBX+12 04119000 TSBXECB EQU TSBX+8 04120000 TSBXBCK EQU TSBX+4 04121000 TSBXFWD EQU TSBX 04122000 TSBEND EQU TSB+120 04123000 TSBSF1 EQU TSB+112 04124000 TSBTRMID EQU TSB+104 04125000 TSBALTC EQU TSB+103 04126000 TSBALTR EQU TSB+102 04127000 TSBPRMC EQU TSB+101 04128000 TSBPRMR EQU TSB+100 04129000 TSBPSWD EQU TSB+88 04130000 TSBLECB EQU TSBMINL 04131000 TSBLINE EQU TSB+82 04132000 TSBSTAX EQU TSB+81 04133000 TSBATTNC EQU TSB+80 04134000 TSBF1V EQU TSBTPOST+7 04135000 TSBF1M EQU TSBTPOST+6 04136000 TSBF2V EQU TSBTPOST+5 04137000 TSBF2M EQU TSBTPOST+4 04138000 TSBFLAGV EQU TSBTPOST+3 04139000 TSBFLAGM EQU TSBTPOST+2 04140000 TSBSBASV EQU TSBTPOST+1 04141000 @NM00019 EQU TSBTPFLG 04142000 @NM00018 EQU TSBTPFLG 04143000 @NM00017 EQU TSBTPFLG 04144000 @NM00016 EQU TSBTPFLG 04145000 TSBNEWID EQU TSBTPFLG 04146000 TSBTPAYI EQU TSBTPFLG 04147000 TSBTPQCB EQU TSBTPFLG 04148000 TSBPOSTO EQU TSBTPFLG 04149000 TSBLINKB EQU TSBLINKA+1 04150000 TSBPRI EQU TSBLINKA 04151000 TSBRQCB EQU TSBRCB 04152000 TSBCTCB EQU TSB+60 04153000 TSBERSDS EQU TSB+56 04154000 TSBAUTOI EQU TSB+52 04155000 TSBAUTOS EQU TSB+48 04156000 TSBATNCC EQU TSB+44 04157000 TSBASRCE EQU TSB+42 04158000 TSBHLDL EQU TSBFLG4 04159000 TSBGETBF EQU TSBFLG4 04160000 TSBCANC EQU TSBFLG4 04161000 TSBHOLD EQU TSBFLG4 04162000 TSBHUNG EQU TSBFLG4 04163000 TSBOCAB EQU TSBFLG4 04164000 TSBLNNO EQU TSB+40 04165000 TSBATNTC EQU TSB+38 04166000 TSBATNLC EQU TSB+36 04167000 TSBCHDCC EQU TSBSTCC+1 04168000 TSBLNDCC EQU TSBSTCC 04169000 TSBWTJID EQU TSB+32 04170000 TSBECB EQU TSB+28 04171000 TSBC1050 EQU TSBTERM2 04172000 @NM00015 EQU TSBTERM2 04173000 @NM00014 EQU TSBTERM2 04174000 @NM00013 EQU TSBTERM2 04175000 @NM00012 EQU TSBTERM2 04176000 TSBCTWX EQU TSBTERM2 04177000 @NM00011 EQU TSBTERM2 04178000 @NM00010 EQU TSBTERM2 04179000 @NM00009 EQU TSBTERM1 04180000 @NM00008 EQU TSBTERM1 04181000 @NM00007 EQU TSBTERM1 04182000 TSBC2741 EQU TSBTERM1 04183000 TSBC5041 EQU TSBTERM1 04184000 TSBCATTN EQU TSBTERM1 04185000 TSBCBRK EQU TSBTERM1 04186000 TSBCIHBN EQU TSBTERM1 04187000 TSBVTAM EQU TSBFLG5 04188000 TSBKEYS EQU TSBFLG5 04189000 @NM00006 EQU TSBFLG5 04190000 TSBATMP EQU TSBFLG5 04191000 TSBNFLOP EQU TSBFLG3 04192000 TSBTPUT EQU TSBFLG3 04193000 TSBAWOIP EQU TSBFLG3 04194000 TSBNBKSP EQU TSBFLG3 04195000 TSBSPIT EQU TSBFLG3 04196000 TSBTJMSG EQU TSBFLG3 04197000 TSBATTN EQU TSBFLG3 04198000 TSBIBFP EQU TSB+21 04199000 TSBNIBF EQU TSB+20 04200000 TSBITBFP EQU TSB+17 04201000 TSBSATN2 EQU TSBFLG2 04202000 TSBSATN1 EQU TSBFLG2 04203000 TSBSTAUT EQU TSBFLG2 04204000 TSBAUTOC EQU TSBFLG2 04205000 TSBAULST EQU TSBFLG2 04206000 TSBBRKIN EQU TSBFLG2 04207000 TSBAUTON EQU TSBFLG2 04208000 TSBBIPI EQU TSBFLG2 04209000 TSBOBFP EQU TSB+13 04210000 TSBNOBF EQU TSB+12 04211000 TSBOTBFP EQU TSB+9 04212000 TSBLNSZ EQU TSB+8 04213000 TSBWTCB EQU TSB+5 04214000 TSBTJBF EQU TSBFLG1 04215000 TSBTJIP EQU TSBFLG1 04216000 TSBTJOW EQU TSBFLG1 04217000 TSBIFLSH EQU TSBFLG1 04218000 TSBWOWIP EQU TSBFLG1 04219000 TSBOWIP EQU TSBFLG1 04220000 TSBOFLSH EQU TSBFLG1 04221000 TSBANSR EQU TSBFLG1 04222000 TSBASCB EQU TSBASCBA+1 04223000 TSBATNLD EQU TSBSTAT 04224000 TSB3270 EQU TSBSTAT 04225000 TSBDISC EQU TSBSTAT 04226000 TSBITOFF EQU TSBSTAT 04227000 TSBNOBUF EQU TSBSTAT 04228000 TSBDSPLY EQU TSBSTAT 04229000 TSBLWAIT EQU TSBSTAT 04230000 TSBINUSE EQU TSBSTAT 04231000 NIBRESV EQU ISTNIB+60 04232000 NIBNDAR EQU ISTNIB+56 04233000 NIBLMODE EQU ISTNIB+48 04234000 NIBEXLST EQU ISTNIB+44 04235000 NIBLIMIT EQU ISTNIB+42 04236000 @NM00005 EQU ISTNIB+41 04237000 @NM00004 EQU NIBFLG1 04238000 @NM00003 EQU NIBFLG1 04239000 @NM00002 EQU NIBFLG1 04240000 @NM00001 EQU NIBFLG1 04241000 NIBSHLTP EQU NIBFLG1 04242000 NIBSDAPP EQU NIBFLG1 04243000 NIBCON EQU NIBFLG1 04244000 NIBLAST EQU NIBFLG1 04245000 NIBPROCD EQU ISTNIB+36 04246000 NIBDEVCH EQU ISTNIB+28 04247000 NIBMODE EQU ISTNIB+20 04248000 NIBSYM EQU ISTNIB+12 04249000 NIBUSER EQU ISTNIB+8 04250000 NIBLEN EQU ISTNIB+3 04251000 NIBCONDN EQU ISTNIB+2 04252000 NIBRSV01 EQU ISTNIB+1 04253000 NIBID EQU ISTNIB 04254000 DEVRSV03 EQU ISTDEVCH+5 04255000 DEVPHYSA EQU ISTDEVCH+4 04256000 DEVCSLPN EQU DEVCHAR3 04257000 DEVCSTCL EQU DEVCHAR3 04258000 DEVCCHEK EQU DEVCHAR3 04259000 DEVCATTN EQU DEVCHAR3 04260000 DEVCSWL EQU DEVFCCTL 04261000 DEVCRVB EQU DEVFCCTL 04262000 DEVCSSL EQU DEVFCCTL 04263000 DEVCBSC EQU DEVFCCTL 04264000 DEVMCODE EQU ISTDEVCH+2 04265000 DEVCHAR2 EQU DEVTCODE 04266000 DEVRSV01 EQU DEVCHAR 04267000 DEVCCTL EQU DEVCHAR 04268000 DEVNNSPT EQU DEVCHAR 04269000 DEVSPS EQU DEVCHAR 04270000 DEVSUBND EQU DEVCHAR 04271000 DEVCONVR EQU DEVCHAR 04272000 DEVOTPUT EQU DEVCHAR 04273000 DEVINPUT EQU DEVCHAR 04274000 PROSRDEF EQU PROSETM4 04275000 PRORSV47 EQU PROSETM4 04276000 PROSCON EQU PROSETM4 04277000 PRORSV46 EQU PROSETM3 04278000 PROSMONT EQU PROSETM3 04279000 PRORSV45 EQU PROSETM3 04280000 PROSNTO EQU PROSETM3 04281000 PRORSV44 EQU PROSETM3 04282000 PRORSV43 EQU PROSETM2 04283000 PROSNTFL EQU PROSETM2 04284000 PRORSV42 EQU PROSETM2 04285000 PRORSV41 EQU PROPROCS 04286000 PROMODC EQU PROPROC4 04287000 PROMODT EQU PROPROC4 04288000 PROMODM EQU PROPROC4 04289000 PROMODB EQU PROPROC4 04290000 PRORSV14 EQU PROPROC4 04291000 PRORSV13 EQU PROPROC4 04292000 PRORSV12 EQU PROPROC4 04293000 PROEIB EQU PROPROC4 04294000 PROMONT3 EQU PROPROC3 04295000 PROMONT2 EQU PROPROC3 04296000 PROMONIT EQU PROPROC3 04297000 PROSUBLK EQU PROPROC3 04298000 PRONTO EQU PROPROC3 04299000 PROLGIN EQU PROPROC3 04300000 PROERPI EQU PROPROC3 04301000 PRORSV07 EQU PROPROC3 04302000 PROCFTX EQU PROPROC2 04303000 PROEMLC EQU PROPROC2 04304000 PRONTFL EQU PROPROC2 04305000 PRORSV05 EQU PROPROC2 04306000 PRORSV04 EQU PROPROC2 04307000 PROLGOT EQU PROPROC2 04308000 PROERPO EQU PROPROC2 04309000 PRORSV03 EQU PROPROC2 04310000 PRORPLC EQU PROPROC1 04311000 PROCS EQU PROPROC1 04312000 PROCA EQU PROPROC1 04313000 PRORESPX EQU PROPROC1 04314000 PRODFASY EQU PROPROC1 04315000 PROXPOPT EQU PROPROC1 04316000 PROTRUNC EQU PROPROC1 04317000 PROASYIP EQU PROPROC1 04318000 @NM00099 EQU PSA+3668 04319000 PSASTAK EQU PSA+3072 04320000 @NM00098 EQU PSA+1048 04321000 PSAUSEND EQU PSA+1048 04322000 PSARV062 EQU PSA+1044 04323000 PSACDAL EQU PSA+1040 04324000 PSAWTCOD EQU PSA+1036 04325000 PSAATCVT EQU PSA+1032 04326000 PSAPCPSW EQU PSA+1024 04327000 PSAPIR2 EQU PSA+1020 04328000 PSARV059 EQU PSA+1018 04329000 PSASVC13 EQU PSA+1016 04330000 PSASFACC EQU PSA+1008 04331000 PSASTOP EQU PSA+992 04332000 PSASTART EQU PSA+976 04333000 PSARSPSW EQU PSA+968 04334000 PSASRPSW EQU PSA+960 04335000 PSARV045 EQU PSA+892 04336000 PSARV044 EQU PSA+888 04337000 PSARV043 EQU PSA+884 04338000 PSARV042 EQU PSA+880 04339000 PSARV041 EQU PSA+876 04340000 PSARV040 EQU PSA+872 04341000 PSARV025 EQU PSA+868 04342000 PSADSSED EQU PSA+868 04343000 PSADSSPR EQU PSA+864 04344000 PSADSSFW EQU PSA+860 04345000 PSADSS14 EQU PSA+856 04346000 PSADSSPP EQU PSA+848 04347000 PSADSSRP EQU PSA+840 04348000 PSADSS05 EQU PSADSSF4 04349000 PSADSS10 EQU PSADSSF4 04350000 PSADSSVE EQU PSADSSF4 04351000 PSADSSDE EQU PSADSSF4 04352000 PSADSSC0 EQU PSADSSF4 04353000 PSADSSIE EQU PSADSSF4 04354000 PSADSS12 EQU PSADSSF4 04355000 PSADSSRC EQU PSADSSF4 04356000 PSARV057 EQU PSADSSF3 04357000 PSARV056 EQU PSADSSF3 04358000 PSARV055 EQU PSADSSF3 04359000 PSADSSMC EQU PSADSSF3 04360000 PSADSSRW EQU PSADSSF3 04361000 PSADSSNM EQU PSADSSF3 04362000 PSADSSES EQU PSADSSF3 04363000 PSADSSGP EQU PSADSSF3 04364000 PSADSSF2 EQU PSADSSFL+1 04365000 PSADSSPI EQU PSADSSF1 04366000 PSADSSOI EQU PSADSSF1 04367000 PSADSSSP EQU PSADSSF1 04368000 PSADSSTP EQU PSADSSF1 04369000 PSADSSDW EQU PSADSSF1 04370000 PSADSSDD EQU PSADSSF1 04371000 PSADSSDM EQU PSADSSF1 04372000 PSADSSMV EQU PSADSSF1 04373000 PSADSSTS EQU PSA+816 04374000 PSADSSWK EQU PSA+812 04375000 PSADSSR3 EQU PSA+808 04376000 PSADSSR2 EQU PSA+804 04377000 PSADSSRS EQU PSA+800 04378000 PSASTOR EQU PSA+796 04379000 PSACPUSA EQU PSA+794 04380000 PSAVSTAP EQU PSA+792 04381000 PSAWKVAP EQU PSA+788 04382000 PSAWKRAP EQU PSA+784 04383000 PSAMCHIC EQU PSA+783 04384000 PSARV061 EQU PSA+782 04385000 PSASYMSK EQU PSA+781 04386000 PSAMCHFL EQU PSA+780 04387000 PSACR0 EQU PSA+776 04388000 PSAPSWSV EQU PSA+768 04389000 PSACLHS EQU PSAHLHI 04390000 PSALKR15 EQU PSALKSA+60 04391000 PSALKR14 EQU PSALKSA+56 04392000 PSALKR13 EQU PSALKSA+52 04393000 PSALKR12 EQU PSALKSA+48 04394000 PSALKR11 EQU PSALKSA+44 04395000 PSALKR10 EQU PSALKSA+40 04396000 PSALKR9 EQU PSALKSA+36 04397000 PSALKR8 EQU PSALKSA+32 04398000 PSALKR7 EQU PSALKSA+28 04399000 PSALKR6 EQU PSALKSA+24 04400000 PSALKR5 EQU PSALKSA+20 04401000 PSALKR4 EQU PSALKSA+16 04402000 PSALKR3 EQU PSALKSA+12 04403000 PSALKR2 EQU PSALKSA+8 04404000 PSALKR1 EQU PSALKSA+4 04405000 PSALKR0 EQU PSALKSA 04406000 PSARV023 EQU PSACLHT+52 04407000 PSALOCAL EQU PSACLHT+48 04408000 PSACMSL EQU PSACLHT+44 04409000 PSAOPTL EQU PSACLHT+40 04410000 PSATPACL EQU PSACLHT+36 04411000 PSATPDNL EQU PSACLHT+32 04412000 PSATPNCL EQU PSACLHT+28 04413000 PSAIOSLL EQU PSACLHT+24 04414000 PSAIOSUL EQU PSACLHT+20 04415000 PSAIOSCL EQU PSACLHT+16 04416000 PSAIOSSL EQU PSACLHT+12 04417000 PSASALCL EQU PSACLHT+8 04418000 PSAASML EQU PSACLHT+4 04419000 PSADISPL EQU PSACLHT 04420000 PSASRSA EQU PSA+636 04421000 PSARV050 EQU PSA+634 04422000 PSADSSGO EQU PSA+633 04423000 PSARECUR EQU PSA+632 04424000 PSAHLHIS EQU PSA+628 04425000 PSAIPCSA EQU PSA+624 04426000 @NM00097 EQU PSA+621 04427000 PSAIPCDM EQU PSA+620 04428000 PSAIPCD EQU PSA+616 04429000 @NM00096 EQU PSA+613 04430000 PSAIPCRM EQU PSA+612 04431000 PSAIPCR EQU PSA+608 04432000 PSAMCHEX EQU PSA+600 04433000 PSAMPSW EQU PSA+592 04434000 PSAEXPS2 EQU PSA+584 04435000 PSAEXPS1 EQU PSA+576 04436000 PSAPIREG EQU PSA+572 04437000 PSARSREG EQU PSA+568 04438000 PSAGPREG EQU PSA+556 04439000 PSARV022 EQU PSASUP4 04440000 PSARV021 EQU PSASUP4 04441000 PSARV020 EQU PSASUP4 04442000 PSARV019 EQU PSASUP4 04443000 PSARV018 EQU PSASUP4 04444000 PSARV017 EQU PSASUP4 04445000 PSARV016 EQU PSASUP4 04446000 PSARV015 EQU PSASUP4 04447000 PSARV014 EQU PSASUP3 04448000 PSARV013 EQU PSASUP3 04449000 PSARV012 EQU PSASUP3 04450000 PSARV011 EQU PSASUP3 04451000 PSASPR EQU PSASUP3 04452000 PSAPSREG EQU PSASUP3 04453000 PSAPI2 EQU PSASUP3 04454000 PSAIOSUP EQU PSASUP3 04455000 PSALCR EQU PSASUP2 04456000 PSARTM EQU PSASUP2 04457000 PSAACR EQU PSASUP2 04458000 PSAIPCE2 EQU PSASUP2 04459000 PSAIPCES EQU PSASUP2 04460000 PSAIPCEC EQU PSASUP2 04461000 PSAGTF EQU PSASUP2 04462000 PSAIPCRI EQU PSASUP2 04463000 PSARV063 EQU PSASUP1 04464000 PSATCTL EQU PSASUP1 04465000 PSADISP EQU PSASUP1 04466000 PSALOCK EQU PSASUP1 04467000 PSAPI EQU PSASUP1 04468000 PSAEXT EQU PSASUP1 04469000 PSASVC EQU PSASUP1 04470000 PSAIO EQU PSASUP1 04471000 PSAANEW EQU PSA+544 04472000 PSATOLD EQU PSA+540 04473000 PSATNEW EQU PSA+536 04474000 PSALCCAR EQU PSA+532 04475000 PSALCCAV EQU PSA+528 04476000 PSAPCCAR EQU PSA+524 04477000 PSAPCCAV EQU PSA+520 04478000 PSACPULA EQU PSA+518 04479000 PSACPUPA EQU PSA+516 04480000 PSAPSA EQU PSA+512 04481000 FLCHDEND EQU PSA+512 04482000 FLCCRSAV EQU FLCMCLA+280 04483000 FLCGRSAV EQU FLCMCLA+216 04484000 FLCFPSAV EQU FLCMCLA+184 04485000 FLCFLA EQU FLCMCLA+88 04486000 FLCRGNCD EQU FLCMCLA+84 04487000 FLCFSAA EQU FLCFSA+1 04488000 @NM00095 EQU FLCFSA 04489000 @NM00094 EQU FLCMCLA+72 04490000 FLCMCIC EQU FLCMCLA+64 04491000 @NM00093 EQU FLCMCLA+20 04492000 FLCIOAA EQU FLCIOA+1 04493000 @NM00092 EQU FLCIOA 04494000 @NM00091 EQU FLCMCLA+15 04495000 @NM00090 EQU FLCMCLA+14 04496000 @NM00089 EQU FLCMCLA+12 04497000 FLCLCL EQU FLCMCLA+8 04498000 FLCIOELA EQU FLCIOEL+1 04499000 @NM00088 EQU FLCIOEL 04500000 FLCCHNID EQU FLCMCLA 04501000 @NM00087 EQU PSA+160 04502000 FLCMTRCD EQU PSA+157 04503000 @NM00086 EQU PSA+156 04504000 FLCPERA EQU FLCPER+1 04505000 @NM00085 EQU FLCPER 04506000 @NM00084 EQU PSA+151 04507000 FLCPERCD EQU PSA+150 04508000 FLCMCNUM EQU PSA+149 04509000 @NM00083 EQU PSA+148 04510000 FLCTEAA EQU FLCTEA+1 04511000 @NM00082 EQU FLCTEA 04512000 PSAPIPC EQU PSAPICOD 04513000 PSAPIMC EQU PSAPICOD 04514000 PSAPIPER EQU PSAPICOD 04515000 PSARV049 EQU FLCPICOD 04516000 FLCPILCB EQU FLCPIILC 04517000 @NM00081 EQU FLCPIILC 04518000 @NM00080 EQU PSAEPPSW 04519000 FLCSVCN EQU PSAESPSW+2 04520000 FLCSILCB EQU FLCSVILC 04521000 @NM00079 EQU FLCSVILC 04522000 @NM00078 EQU PSAESPSW 04523000 FLCEICOD EQU PSAEEPSW+2 04524000 PSASPAD EQU PSAEEPSW 04525000 @NM00077 EQU PSA+128 04526000 FLCINPSW EQU PSA+120 04527000 FLCMNPSW EQU PSA+112 04528000 FLCPNPSW EQU PSA+104 04529000 FLCSNPSW EQU PSA+96 04530000 FLCENPSW EQU PSA+88 04531000 FLCTRACE EQU PSA+84 04532000 FLCTIMER EQU PSA+80 04533000 FLCCVT2 EQU PSA+76 04534000 FLCCAW EQU PSA+72 04535000 FLCCSW EQU PSA+64 04536000 FLCIOPSW EQU PSA+56 04537000 FLCMOPSW EQU PSA+48 04538000 FLCPOPSW EQU PSA+40 04539000 FLCSOPSW EQU PSA+32 04540000 FLCEOPSW EQU PSA+24 04541000 @NM00076 EQU FLCICCW2+4 04542000 FLCICCW1 EQU FLCROPSW 04543000 FLCIPPSW EQU FLCRNPSW 04544000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04545000 @RC00163 EQU @RC00160 04546000 @RC00208 EQU @RC00200 04547000 @RC00201 EQU @RC00200 04548000 @RC00246 EQU @RC00233 04549000 @RC00297 EQU @RC00291 04550000 @RC00360 EQU @RC00344 04551000 @RF00399 EQU @RC00393 04552000 @RC00404 EQU @RC00403 04553000 @RC00433 EQU @RC00272 04554000 @RC00452 EQU @RC00272 04555000 @RC00612 EQU @RC00611 04556000 @RC00617 EQU @RC00616 04557000 @RF00635 EQU @RC00628 04558000 @RC00664 EQU @RC00639 04559000 @RC00642 EQU @RC00639 04560000 @RC00640 EQU @RC00639 04561000 @PB00011 EQU @PB00012 04562000 @RC00209 EQU @RC00208 04563000 @RC00321 EQU @RC00297 04564000 @RC00454 EQU @RC00452 04565000 @RC00655 EQU @RC00642 04566000 @RC00650 EQU @RC00642 04567000 @RC00643 EQU @RC00642 04568000 @RC00665 EQU @RC00664 04569000 @PB00010 EQU @PB00011 04570000 @RC00644 EQU @RC00643 04571000 @PB00009 EQU @PB00010 04572000 @PB00008 EQU @PB00009 04573000 @PB00007 EQU @PB00008 04574000 @PB00006 EQU @PB00007 04575000 @PB00005 EQU @PB00006 04576000 @PB00004 EQU @PB00005 04577000 @PB00003 EQU @PB00004 04578000 @ENDDATA EQU * 04579000 END IKTOMLU2,(C'PLS1856',0701,78016) 04580000