TITLE 'IDDWIAPP - EXCP INTERCEPT APPENDAGE SIMULATOR *00001000 ' 00002000 IDDWIAPP CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 USING *,R15 ADDRESSABILITY FOR BRANCH TABLE 00005000 B WIEXCP WI EXCP ENTRY POINT 00006000 B WICLOSE WI CLOSE ENTRY POINT 00007000 DS 0H WI JOURNAL ENTRY POINT 00008000 L R15,ADWIJRN POINTER TO JOURNAL MODULE 00009000 BR R15 GO TO IDDWIJRN 00010000 DC C'IDDWIAPP' MODULE ID @YM01137 00011000 WICLOSE L R15,ADWICLS POINTER TO CLOSE MODULE 00012000 BR R15 GO TO IDDWICLS 00013000 WIEXCP EQU * * 00014000 BALR R8,0 ADDRESSABILITY IDDWIEXCP 00015000 USING *,R8 * 00016000 * R9=ADDR(IDDWIFRR); /* RECOVERY POINT */ 00017000 L R9,@CV00557 0146 00018000 * GEN SETS(R9,R10,R11,FRRSCURR,FRRSFRRA,FRRSPARM) REFS(R9,PSA,PSACSTK 00019000 * ,FRRSCURR,FRRS,FRRSLAST,FRRSELEN,FRRSPARM,PSALSFCC) 0147 00020000 * (SETFRR A,FRRAD=(R9),PARMAD=(R9),WRKREGS=(R10,R11) );/* 0147 00021000 * @YM03030*/ 00022000 SETFRR A,FRRAD=(R9),PARMAD=(R9),WRKREGS=(R10,R11) 00023000 * RQESRB=R9; /* SAVE RECOVERY PARAMETER LIST 00024000 * @YM03196*/ 00025000 ST R9,RQESRB(,RQEREG) 0148 00026000 * RESPECIFY 0149 00027000 * EIFRRPRM BASED(RQESRB); /* @YM03196*/ 00028000 * 0149 00029000 * /*****************************************************************/ 00030000 * /* */ 00031000 * /* SAVE IOS REGISTER FOR SUBSEQUENT RETURN IN THE RQE */ 00032000 * /* */ 00033000 * /*****************************************************************/ 00034000 * 0150 00035000 * RQENRQE=SAVERG; /* SAVE AREA PASSED */ 00036000 ST SAVERG,RQENRQE(,RQEREG) 0150 00037000 * EIRQEPTR=RQEREG; /* SAVE RQE POINTER */ 00038000 L @15,RQESRB(,RQEREG) 0151 00039000 ST RQEREG,EIRQEPTR(,@15) 0151 00040000 * EIREG14=R14; /* SAVE RETURN VECTOR */ 00041000 ST R14,EIREG14(,@15) 0152 00042000 * EIREG5=R5; /* SAVE IOS BASE REGISTER */ 00043000 ST R5,EIREG5(,@15) 0153 00044000 * RESPECIFY 0154 00045000 * (R5, 0154 00046000 * R14, 0154 00047000 * R9, 0154 00048000 * R10, 0154 00049000 * R11) UNRSTD; /* RELEASE REGISTERS */ 00050000 * 0155 00051000 */********************************************************************/ 00052000 */* */ 00053000 */* FUNCTION - SETS UP REGISTERS AND ADDRESSABILITY FOR MODULE */ 00054000 */* */ 00055000 */********************************************************************/ 00056000 * 0155 00057000 * RESPECIFY 0155 00058000 * VDSCB BASED(VDSCBREG); /* VDSCB AND UCB ADDRESSABILITY */ 00059000 * RESPECIFY 0156 00060000 * IOBSTDRD BASED(IOBREG); /* IOB ADDRESSABILITY */ 00061000 * RESPECIFY 0157 00062000 * DEBBASIC BASED(RQEDEB); /* DEB ADDRESSABILITY */ 00063000 * 0157 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* WICB AND WICSEEKA(APPENDAGES) ADDRESSABILITY */ 00067000 * /* */ 00068000 * /*****************************************************************/ 00069000 * 0158 00070000 * WICBREG=VDSWICB; 0158 00071000 L WICBREG,VDSWICB(,VDSCBREG) 0158 00072000 * RESPECIFY 0159 00073000 * WICB BASED(WICBREG); 0159 00074000 * 0160 00075000 */********************************************************************/ 00076000 */* */ 00077000 */* FUNCTION - INSURES THAT THE WINDOW, WICB AND VBPPL EXIST FOR THE */ 00078000 */* EXIST FOR THE APPENDAGE INTERCEPT AND THE TRACK MANAGER. */ 00079000 */* IF THE KEY OF THE USER HAS CHANGED IT FREES THE CURRENT */ 00080000 */* WINDOW AND WICB AND REACQUIRES THEM IN THE NEW USER KEY. */ 00081000 */* ALSO FREE WICB AND WINDOW IF PREVIOUSLY ACQUIRED BUT A */ 00082000 */* SUCCESSFUL VOPEN WAS NEVER COMPLETED AS EVIDENCED BY A */ 00083000 */* NON ZERO WICB POINTER AND A ZERO DSPCT POINTER. @ZA00121*/ 00084000 */* */ 00085000 */********************************************************************/ 00086000 * 0160 00087000 * IF((WICBREG^=0)&(VDSDSPCT=0))|(((WICPRT&'F0'X)^=/* @ZA27906*/ 00088000 * (RQEPRT&'F0'X))&(WICBREG^=0)) THEN 0160 00089000 SLR @12,@12 0160 00090000 CR WICBREG,@12 0160 00091000 BE @GL00001 0160 00092000 C @12,VDSDSPCT(,VDSCBREG) 0160 00093000 BE @RT00160 0160 00094000 @GL00001 LA @12,240 0160 00095000 SLR @09,@09 0160 00096000 IC @09,WICPRT(,WICBREG) 0160 00097000 NR @09,@12 0160 00098000 SLR @05,@05 0160 00099000 IC @05,RQEPRT(,RQEREG) 0160 00100000 NR @12,@05 0160 00101000 CR @09,@12 0160 00102000 BE @RF00160 0160 00103000 LTR WICBREG,WICBREG 0160 00104000 BZ @RF00160 0160 00105000 @RT00160 DS 0H 0161 00106000 * DO; /* @ZA27906 00107000 * KEY OF USER HAS CHANGED - OR 00108000 * UNSUCESSFUL VOPEN FREE WICB 0161 00109000 * AND WINDOW SO THEY CAN BE 0161 00110000 * ACQUIRED IN THE NEW KEY. 0161 00111000 * @ZA00121*/ 00112000 * RESPECIFY 0162 00113000 * (R9, 0162 00114000 * R10) RSTD; /* SAVE THE RQE AND VDSCB 0162 00115000 * POINTERS */ 00116000 * R9=VDSCBREG; /* VDSCB ADDRESSABILITY */ 00117000 LR R9,VDSCBREG 0163 00118000 * RESPECIFY 0164 00119000 * VDSCB BASED(R9); 0164 00120000 * RESPECIFY 0165 00121000 * UCBOB BASED(R9); /* UCB ADDRESSABILITY */ 00122000 * R10=RQEREG; /* RQE ADDRESSABILITY */ 00123000 LR R10,RQEREG 0166 00124000 * RESPECIFY 0167 00125000 * RQE BASED(R10); 0167 00126000 * 0167 00127000 * /*************************************************************/ 00128000 * /* */ 00129000 * /* PURGE THE WINDOW - CALL THE TRACK MANAGER TO VWRITE THE */ 00130000 * /* WINDOW SO IT CAN BE FREED */ 00131000 * /* */ 00132000 * /*************************************************************/ 00133000 * 0168 00134000 * RESPECIFY 0168 00135000 * (R1) RSTD; 0168 00136000 * IF VDSDSPCT^=0 THEN 0169 00137000 L @12,VDSDSPCT(,R9) 0169 00138000 LTR @12,@12 0169 00139000 BZ @RF00169 0169 00140000 * DO; /* MAKE SURE THAT VOPEN HAS 0170 00141000 * COMPLETED SUCCESSFULLY 0170 00142000 * @ZA00121*/ 00143000 * R1=0; /* RQE = 0 FORCES WINDOW PURGE */ 00144000 SLR R1,R1 0171 00145000 * CALL IDDWITRM; /* VWRITE THE WINDOW */ 00146000 L @15,@CV00548 0172 00147000 BALR @14,@15 0172 00148000 * END; /* END OF FLUSH WINDOW @ZA00121*/ 00149000 * 0173 00150000 * /*************************************************************/ 00151000 * /* */ 00152000 * /* PREPARE TO FREE THE WINDOW AND THE WICB */ 00153000 * /* */ 00154000 * /*************************************************************/ 00155000 * 0174 00156000 * R7=ASCBPTR; /* ASCB ADDRESSABILITY FOR 0174 00157000 * FREEMAIN */ 00158000 @RF00169 L @12,CVTPTR 0174 00159000 L @11,CVTTCBP(,@12) 0174 00160000 L R7,ASCBPTR(,@11) 0174 00161000 * R4=WICTCB; /* FREEMAIN UNDER THE SAME TCB AS 00162000 * GETMAIN @VS05944*/ 00163000 * 0175 00164000 L R4,WICTCB(,WICBREG) 0175 00165000 * /*************************************************************/ 00166000 * /* */ 00167000 * /* FREE THE WINDOW */ 00168000 * /* */ 00169000 * /*************************************************************/ 00170000 * 0176 00171000 * DO; /* FREEMAIN(RU) LV(VDSWINSI)A(VDS 00172000 * WINDW->VTRACK) SP(SP229) 0176 00173000 * KEY(WICPRT/16) BRANCH */ 00174000 * RESPECIFY 0177 00175000 * (GPR01F, 0177 00176000 * GPR03F, 0177 00177000 * GPR00F) RESTRICTED; 0177 00178000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00179000 SLR GPR01F,GPR01F 0178 00180000 * GPR03F=3; /* SET TYPE */ 00181000 LA GPR03F,3 0179 00182000 * GPR00F=VDSWINSI; /* LENGTH REQUESTED */ 00183000 LH GPR00F,VDSWINSI(,R9) 0180 00184000 * GPR01F=ADDR(VDSWINDW->VTRACK);/* SET REGISTER ONE */ 00185000 L GPR01F,VDSWINDW(,R9) 0181 00186000 * GPR03F=GPR03F+((SP229)*256);/* SUBPOOL VALUE */ 00187000 AL GPR03F,@CF03313 0182 00188000 * GPR03F=GPR03F|((WICPRT/16)*1048576);/* KEY IN BYTE ONE */ 00189000 SLR @11,@11 0183 00190000 IC @11,WICPRT(,WICBREG) 0183 00191000 SRL @11,4 0183 00192000 SLA @11,20 0183 00193000 OR GPR03F,@11 0183 00194000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00195000 L @15,CVTCRMN(,@12) 0184 00196000 BALR @14,@15 0184 00197000 * RESPECIFY 0185 00198000 * (GPR01F, 0185 00199000 * GPR03F, 0185 00200000 * GPR00F) UNRESTRICTED; 0185 00201000 * END; /* FREEMAIN(RU) LV(VDSWINSI)A(VDS 00202000 * WINDW->VTRACK) SP(SP229) 0186 00203000 * KEY(WICPRT/16) BRANCH @YM01169*/ 00204000 * 0186 00205000 * /*************************************************************/ 00206000 * /* */ 00207000 * /* FREE THE WICB */ 00208000 * /* */ 00209000 * /*************************************************************/ 00210000 * 0187 00211000 * DO; /* FREEMAIN(RU) 0187 00212000 * LV(LENGTH(WICB))A(WICB) 0187 00213000 * SP(230) KEY(WICPRT/16) BRANCH */ 00214000 * RESPECIFY 0188 00215000 * (GPR01F, 0188 00216000 * GPR03F, 0188 00217000 * GPR00F) RESTRICTED; 0188 00218000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00219000 SLR GPR01F,GPR01F 0189 00220000 * GPR03F=3; /* SET TYPE */ 00221000 LA GPR03F,3 0190 00222000 * GPR00F=LENGTH(WICB); /* LENGTH REQUESTED */ 00223000 LA GPR00F,124 0191 00224000 * GPR01F=ADDR(WICB); /* SET REGISTER ONE */ 00225000 LR GPR01F,WICBREG 0192 00226000 * GPR03F=GPR03F+((230)*256);/* SUBPOOL VALUE */ 00227000 AL GPR03F,@CF03315 0193 00228000 * GPR03F=GPR03F|((WICPRT/16)*1048576);/* KEY IN BYTE ONE */ 00229000 SLR @12,@12 0194 00230000 IC @12,WICPRT(,WICBREG) 0194 00231000 SRL @12,4 0194 00232000 SLA @12,20 0194 00233000 OR GPR03F,@12 0194 00234000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00235000 L @12,CVTPTR 0195 00236000 L @15,CVTCRMN(,@12) 0195 00237000 BALR @14,@15 0195 00238000 * RESPECIFY 0196 00239000 * (GPR01F, 0196 00240000 * GPR03F, 0196 00241000 * GPR00F) UNRESTRICTED; 0196 00242000 * END; /* FREEMAIN(RU) 0197 00243000 * LV(LENGTH(WICB))A(WICB) 0197 00244000 * SP(230) KEY(WICPRT/16) BRANCH */ 00245000 * 0198 00246000 * /*************************************************************/ 00247000 * /* */ 00248000 * /* DISCONNECT OLD WICB AND WINDOW FROM THE VDSCB */ 00249000 * /* */ 00250000 * /*************************************************************/ 00251000 * 0198 00252000 * WICBREG=0; /* NO WICB */ 00253000 SLR WICBREG,WICBREG 0198 00254000 * VDSWICB=0; /* NO WICB */ 00255000 SLR @12,@12 0199 00256000 ST @12,VDSWICB(,R9) 0199 00257000 * VDSWINDW=0; /* NO WINDOW */ 00258000 * 0200 00259000 ST @12,VDSWINDW(,R9) 0200 00260000 * /*************************************************************/ 00261000 * /* */ 00262000 * /* REESTABLISH VDSCB AND RQE ADDRESSABILITY */ 00263000 * /* */ 00264000 * /*************************************************************/ 00265000 * 0201 00266000 * VDSCBREG=R9; /* VDSCB */ 00267000 LR VDSCBREG,R9 0201 00268000 * RQEREG=R10; /* RQE */ 00269000 LR RQEREG,R10 0202 00270000 * END; 0203 00271000 * IF WICBREG=0 THEN 0204 00272000 @RF00160 SLR @12,@12 0204 00273000 CR WICBREG,@12 0204 00274000 BNE @RF00204 0204 00275000 * DO; /* ACQUIRE THE WICB AND WINDOW 0205 00276000 * AND IF NECESSARY THE VBPPL. 0205 00277000 * FILL IN THE WICB */ 00278000 * 0205 00279000 * /*************************************************************/ 00280000 * /* */ 00281000 * /* SAVE THE RQE AND VDSCB POINTERS @ZA00139*/ 00282000 * /* */ 00283000 * /*************************************************************/ 00284000 * 0206 00285000 * R9=VDSCBREG; /* VDSCB ADDRESSABILITY @ZA00139*/ 00286000 LR R9,VDSCBREG 0206 00287000 * R10=RQEREG; /* RQE ADDRESSABILITY @ZA00139*/ 00288000 * 0207 00289000 LR R10,RQEREG 0207 00290000 * /*************************************************************/ 00291000 * /* */ 00292000 * /* ABEND IF THE DATA SET HAS BEEN SCRATCHED. SCRATCH SETS */ 00293000 * /* RELATIVE TRACK TO -1 WHEN IT SCRATCHES VIRTUAL DATA SETS. */ 00294000 * /* ALSO MERGE MODULE IDAVBPJ2 SETS VBPHSCR ON WHEN IT DOES AN*/ 00295000 * /* ACTIVATE ON A LOGICAL GROUP BUT THE LOGICAL GROUP HAS BEEN*/ 00296000 * /* DELETED. @ZA00139*/ 00297000 * /* */ 00298000 * /*************************************************************/ 00299000 * 0208 00300000 * IF VDSABSTT=-1|((VDSDSPCT^=0)&(VBPHDEL=SET)) THEN 0208 00301000 CLC VDSABSTT(2,R9),@CH03240 0208 00302000 BE @RT00208 0208 00303000 L @11,VDSDSPCT(,R9) 0208 00304000 CR @11,@12 0208 00305000 BE @RF00208 0208 00306000 TM VBPHDEL(@11),B'00001000' 0208 00307000 BNO @RF00208 0208 00308000 @RT00208 DS 0H 0209 00309000 * DO; /* @ZA00139*/ 00310000 * RESPECIFY 0210 00311000 * R15 RSTD; 0210 00312000 * R15=24; /* INDICATE REASON FOR ABEND */ 00313000 LA R15,24 0211 00314000 * GEN(ABEND X'0E6',DUMP,,SYSTEM) 0212 00315000 * EXIT NOSEQFLOW; 0212 00316000 ABEND X'0E6',DUMP,,SYSTEM 00317000 * RESPECIFY 0213 00318000 * R15 UNRSTD; 0213 00319000 * END; 0214 00320000 * 0215 00321000 * /*************************************************************/ 00322000 * /* */ 00323000 * /* PREPARE TO ACQUIRE CONTROL BLOCKS */ 00324000 * /* */ 00325000 * /*************************************************************/ 00326000 * 0215 00327000 * R7=ASCBPTR; /* ASCB ADDRESSABILITY FOR 0215 00328000 * GETMAIN */ 00329000 @RF00208 L @12,CVTPTR 0215 00330000 L @11,CVTTCBP(,@12) 0215 00331000 L R7,ASCBPTR(,@11) 0215 00332000 * R4=TCBJSTCB; /* JOB STEP TCB ADDRESSABILITY 0216 00333000 * FOR GETMAIN */ 00334000 * 0216 00335000 L @11,TCBPTR(,@11) 0216 00336000 L R4,TCBJSTCB(,@11) 0216 00337000 * /*************************************************************/ 00338000 * /* */ 00339000 * /* ACQUIRE VBPPL IF NECESSARY */ 00340000 * /* */ 00341000 * /*************************************************************/ 00342000 * 0217 00343000 * IF VDSVBPPL=0 THEN 0217 00344000 L @11,VDSVBPPL(,R9) 0217 00345000 LTR @11,@11 0217 00346000 BNZ @RF00217 0217 00347000 * DO; /* NO VBPPL ACQUIRE ONE */ 00348000 * DO; /* GETMAIN (RU) LV(LENGTH(VBPPL)) 00349000 * SP(SP230) KEY(KEYONE) BRANCH */ 00350000 * RESPECIFY 0220 00351000 * (GPR01F, 0220 00352000 * GPR03F, 0220 00353000 * GPR00F) RESTRICTED; 0220 00354000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00355000 SLR GPR01F,GPR01F 0221 00356000 * GPR03F=2; /* RU-TYPE GETMAIN */ 00357000 LA GPR03F,2 0222 00358000 * GPR00F=LENGTH(VBPPL); /* LENGTH REQUESTED */ 00359000 LA GPR00F,184 0223 00360000 * GPR03F=GPR03F|((SP230)*256);/* SP IN BYTE 2 */ 00361000 O GPR03F,@CF03315 0224 00362000 * GPR03F=GPR03F|((KEYONE)*65536*16);/* KEY IN BYTE 1 */ 00363000 SLR @11,@11 0225 00364000 IC @11,KEYONE 0225 00365000 SLA @11,20 0225 00366000 OR GPR03F,@11 0225 00367000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00368000 L @15,CVTCRMN(,@12) 0226 00369000 BALR @14,@15 0226 00370000 * RESPECIFY 0227 00371000 * (GPR01F, 0227 00372000 * GPR03F, 0227 00373000 * GPR00F) UNRESTRICTED; 0227 00374000 * END; /* GETMAIN (RU) LV(LENGTH(VBPPL)) 00375000 * SP(SP230) KEY(KEYONE) BRANCH */ 00376000 * VDSVBPPL=R1; /* CONNECT VBPPL TO VDSCB */ 00377000 ST R1,VDSVBPPL(,R9) 0229 00378000 * END; 0230 00379000 * 0231 00380000 * /*************************************************************/ 00381000 * /* */ 00382000 * /* ACQUIRE WICB IN USER KEY LSQA. WORK AREA FOR EXCP */ 00383000 * /* INTERCEPT */ 00384000 * /* */ 00385000 * /*************************************************************/ 00386000 * 0231 00387000 * DO; /* GETMAIN (RU) LV(LENGTH(WICB)) 00388000 * SP(SP230) KEY(RQEPRT/16) 0231 00389000 * BRANCH */ 00390000 @RF00217 DS 0H 0232 00391000 * RESPECIFY 0232 00392000 * (GPR01F, 0232 00393000 * GPR03F, 0232 00394000 * GPR00F) RESTRICTED; 0232 00395000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00396000 SLR GPR01F,GPR01F 0233 00397000 * GPR03F=2; /* RU-TYPE GETMAIN */ 00398000 LA GPR03F,2 0234 00399000 * GPR00F=LENGTH(WICB); /* LENGTH REQUESTED */ 00400000 LA GPR00F,124 0235 00401000 * GPR03F=GPR03F|((SP230)*256);/* SP IN BYTE 2 */ 00402000 O GPR03F,@CF03315 0236 00403000 * GPR03F=GPR03F|((RQEPRT/16)*65536*16);/* KEY IN BYTE 1 */ 00404000 SLR @12,@12 0237 00405000 IC @12,RQEPRT(,R10) 0237 00406000 SRL @12,4 0237 00407000 SLA @12,20 0237 00408000 OR GPR03F,@12 0237 00409000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00410000 L @12,CVTPTR 0238 00411000 L @15,CVTCRMN(,@12) 0238 00412000 BALR @14,@15 0238 00413000 * RESPECIFY 0239 00414000 * (GPR01F, 0239 00415000 * GPR03F, 0239 00416000 * GPR00F) UNRESTRICTED; 0239 00417000 * END; /* GETMAIN (RU) LV(LENGTH(WICB)) 00418000 * SP(SP230) KEY(RQEPRT/16) 0240 00419000 * BRANCH */ 00420000 * WICBREG=R1; /* WICB ADDRESSABILITY */ 00421000 LR WICBREG,R1 0241 00422000 * VDSWICB=WICBREG; /* CONNECT VDSCB TO WICB */ 00423000 ST WICBREG,VDSWICB(,R9) 0242 00424000 * 0243 00425000 * /*************************************************************/ 00426000 * /* */ 00427000 * /* FILL IN THE WICB */ 00428000 * /* */ 00429000 * /*************************************************************/ 00430000 * 0243 00431000 * WICB=WICB&&WICB; /* CLEAR ACQUIRED WICB */ 00432000 XC WICB(124,WICBREG),WICB(WICBREG) 0243 00433000 * WICTCB=R4; /* SAVE TCB ADDR UNDER WHICH 0244 00434000 * WICB, @VS05944 00435000 * WINDOW AND VBPPL WERE 0244 00436000 * GETMAINED @VS05944*/ 00437000 ST R4,WICTCB(,WICBREG) 0244 00438000 * WICAUDIT='APP'; /* APPENDAGE INTERFACE HANDLER IN 00439000 * CONTROL */ 00440000 MVC WICAUDIT(3,WICBREG),@CC03242 0245 00441000 * RESPECIFY 0246 00442000 * (WORKREG) RSTD; 0246 00443000 * WORKREG=(DVCTYPMK&UCBTYP)+CVTZDTAB;/* DEVICE TABLE INDEX 0247 00444000 * POINTER */ 00445000 L WORKREG,UCBTYP(,R9) 0247 00446000 N WORKREG,@CF00103 0247 00447000 L @12,CVTPTR 0247 00448000 L @12,CVTZDTAB(,@12) 0247 00449000 ALR WORKREG,@12 0247 00450000 * RESPECIFY 0248 00451000 * DVCINDEX BASED(WORKREG); /* ADDRESSABILITY ON DEVICE TABLE 00452000 * INDEX */ 00453000 * 0249 00454000 * /*************************************************************/ 00455000 * /* */ 00456000 * /* FILL IN DEVICE TABLE TYPE ENTRIES */ 00457000 * /* */ 00458000 * /*************************************************************/ 00459000 * 0249 00460000 * WORKREG=DVCINDEX+CVTZDTAB; /* DEVICE TABLE ENTRY POINTER */ 00461000 SLR @11,@11 0249 00462000 IC @11,DVCINDEX(,WORKREG) 0249 00463000 ALR @12,@11 0249 00464000 LR WORKREG,@12 0249 00465000 * RESPECIFY 0250 00466000 * DVCT BASED(WORKREG); 0250 00467000 * 0250 00468000 * /*************************************************************/ 00469000 * /* */ 00470000 * /* MOVE MAXIMUM CYLINDERS AND TRACKS AND THE TRACK CAPACITY */ 00471000 * /* */ 00472000 * /*************************************************************/ 00473000 * 0251 00474000 * WICCHHTR=DVCCHHTR; /* MOVE THEM */ 00475000 MVC WICCHHTR(6,WICBREG),DVCCHHTR(WORKREG) 0251 00476000 * IF DVC2BOV=SET THEN 0252 00477000 TM DVC2BOV(WORKREG),B'00001000' 0252 00478000 BNO @RF00252 0252 00479000 * DO; 0253 00480000 * 0253 00481000 * /*********************************************************/ 00482000 * /* */ 00483000 * /* ZEUS 2 BYTE OVERHEADS */ 00484000 * /* */ 00485000 * /*********************************************************/ 00486000 * 0254 00487000 * WICIGAP=DVCOVHD; /* NORMAL GAP */ 00488000 LH @12,DVCOVHD(,WORKREG) 0254 00489000 STH @12,WICIGAP(,WICBREG) 0254 00490000 * WICLGAP=DVCOVHD; /* LAST GAP */ 00491000 STH @12,WICLGAP(,WICBREG) 0255 00492000 * END; 0256 00493000 * ELSE 0257 00494000 * DO; 0257 00495000 * 0257 00496000 B @RC00252 0257 00497000 @RF00252 DS 0H 0258 00498000 * /*********************************************************/ 00499000 * /* */ 00500000 * /* NON-ZEUS - 1 BYTE OVERHEADS */ 00501000 * /* */ 00502000 * /*********************************************************/ 00503000 * 0258 00504000 * WICIGP(2)=DVCOVNLB; /* NORMAL GAP */ 00505000 IC @12,DVCOVNLB(,WORKREG) 0258 00506000 STC @12,WICIGP+1(,WICBREG) 0258 00507000 * WICLGP(2)=DVCOVLB; /* LAST GAP */ 00508000 IC @12,DVCOVLB(,WORKREG) 0259 00509000 STC @12,WICLGP+1(,WICBREG) 0259 00510000 * END; 0260 00511000 * WICKYGP(2)=DVCOVNK; /* KEYED RECORD OVERHEAD */ 00512000 * 0261 00513000 @RC00252 IC @12,DVCOVNK(,WORKREG) 0261 00514000 STC @12,WICKYGP+1(,WICBREG) 0261 00515000 * /*************************************************************/ 00516000 * /* */ 00517000 * /* FILL IN HIGH SECTOR VALUE IF RPS IS SUPPORTED */ 00518000 * /* */ 00519000 * /*************************************************************/ 00520000 * 0262 00521000 * IF UCB2OPT3=SET THEN 0262 00522000 TM UCB2OPT3(R9),B'00010000' 0262 00523000 BNO @RF00262 0262 00524000 * WICSECT=DVCSECT; /* HIGH SECTOR */ 00525000 * 0263 00526000 IC @12,DVCSECT(,WORKREG) 0263 00527000 STC @12,WICSECT(,WICBREG) 0263 00528000 * /*************************************************************/ 00529000 * /* */ 00530000 * /* SET UP TOLERANCE IF THERE IS ONE */ 00531000 * /* */ 00532000 * /*************************************************************/ 00533000 * 0264 00534000 * IF DVCFTOL=SET THEN 0264 00535000 @RF00262 TM DVCFTOL(WORKREG),B'00000001' 0264 00536000 BNO @RF00264 0264 00537000 * WICTOL=DVCTOL; /* SET UP TOLERANCE */ 00538000 LH @12,DVCTOL(,WORKREG) 0265 00539000 STH @12,WICTOL(,WICBREG) 0265 00540000 * RESPECIFY 0266 00541000 * (WORKREG) UNRSTD; 0266 00542000 @RF00264 DS 0H 0267 00543000 * RESPECIFY 0267 00544000 * DVCT BASED; 0267 00545000 * WICDEVTP=UCBTBYT4; /* DEVICE TYPE */ 00546000 IC @12,UCBTBYT4(,R9) 0268 00547000 STC @12,WICDEVTP(,WICBREG) 0268 00548000 * WICPRT=RQEPRT; /* KEY OF WICB */ 00549000 SLR @12,@12 0269 00550000 IC @12,RQEPRT(,R10) 0269 00551000 STC @12,WICPRT(,WICBREG) 0269 00552000 * 0270 00553000 * /*************************************************************/ 00554000 * /* */ 00555000 * /* CALCULATE THE WINDOW SIZE. - TRACK SIZE ROUNDED UP TO NEXT*/ 00556000 * /* PAGE SIZE */ 00557000 * /* */ 00558000 * /*************************************************************/ 00559000 * 0270 00560000 * VDSWINSI=(((VDSTRKSI+LENGTH(VTRACK)+7+WICKEYGP-WICLGAP)+ 0270 00561000 * PAGESIZE-1)/PAGESIZE)*PAGESIZE; 0270 00562000 * 0270 00563000 LA @14,38 0270 00564000 AH @14,VDSTRKSI(,R9) 0270 00565000 AH @14,WICKEYGP(,WICBREG) 0270 00566000 SH @14,WICLGAP(,WICBREG) 0270 00567000 SL @14,@CF03318 0270 00568000 SRDA @14,32 0270 00569000 D @14,@CF00066 0270 00570000 SLA @15,12 0270 00571000 STH @15,VDSWINSI(,R9) 0270 00572000 * /*************************************************************/ 00573000 * /* */ 00574000 * /* ACQUIRE WINDOW IN USER KEY LSQA. HOLDS CURRENT TRACK FOR */ 00575000 * /* EXCP INTERCEPT */ 00576000 * /* */ 00577000 * /*************************************************************/ 00578000 * 0271 00579000 * DO; /* GETMAIN (RU) LV(VDSWINSI) 0271 00580000 * SP(SP229) KEY(RQEPRT/16) 0271 00581000 * BRANCH */ 00582000 * RESPECIFY 0272 00583000 * (GPR01F, 0272 00584000 * GPR03F, 0272 00585000 * GPR00F) RESTRICTED; 0272 00586000 * GPR01F=0; /* REG 1 MUST BE ZERO */ 00587000 SLR GPR01F,GPR01F 0273 00588000 * GPR03F=2; /* RU-TYPE GETMAIN */ 00589000 LA GPR03F,2 0274 00590000 * GPR00F=VDSWINSI; /* LENGTH REQUESTED */ 00591000 LR GPR00F,@15 0275 00592000 * GPR03F=GPR03F|((SP229)*256);/* SP IN BYTE 2 */ 00593000 O GPR03F,@CF03313 0276 00594000 * GPR03F=GPR03F|((RQEPRT/16)*65536*16);/* KEY IN BYTE 1 */ 00595000 SRL @12,4 0277 00596000 SLA @12,20 0277 00597000 OR GPR03F,@12 0277 00598000 * CALL CVTCRMN; /* BRANCH ENTRY POINT */ 00599000 L @12,CVTPTR 0278 00600000 L @15,CVTCRMN(,@12) 0278 00601000 BALR @14,@15 0278 00602000 * RESPECIFY 0279 00603000 * (GPR01F, 0279 00604000 * GPR03F, 0279 00605000 * GPR00F) UNRESTRICTED; 0279 00606000 * END; /* GETMAIN (RU) LV(VDSWINSI) 0280 00607000 * SP(SP229) KEY(RQEPRT/16) 0280 00608000 * BRANCH */ 00609000 * VDSWINDW=R1; /* CONNECT WINDOW TO VDSCB */ 00610000 ST R1,VDSWINDW(,R9) 0281 00611000 * 0282 00612000 * /*************************************************************/ 00613000 * /* */ 00614000 * /* REESTABLISH REGISTERS */ 00615000 * /* */ 00616000 * /*************************************************************/ 00617000 * 0282 00618000 * VDSCBREG=R9; /* VDSCB */ 00619000 LR VDSCBREG,R9 0282 00620000 * RESPECIFY 0283 00621000 * R9 UNRSTD; 0283 00622000 * DEBREG=RQEDEB; /* DEB */ 00623000 L DEBREG,RQEDEB(,R10) 0284 00624000 * RESPECIFY 0285 00625000 * DEBBASIC BASED(DEBREG); 0285 00626000 * DCBREG=DEBDCBAD; /* DCB */ 00627000 L DCBREG,DEBDCBAD(,DEBREG) 0286 00628000 * RESPECIFY 0287 00629000 * VDSCB BASED(VDSCBREG); 0287 00630000 * RESPECIFY 0288 00631000 * UCBOB BASED(VDSCBREG); 0288 00632000 * 0289 00633000 * /*************************************************************/ 00634000 * /* */ 00635000 * /* MARK THE UCBSEEK INVALID BECAUSE THERE IS NO CURRENT TRACK*/ 00636000 * /* - WINDOW WAS JUST ACQUIRED */ 00637000 * /* */ 00638000 * /*************************************************************/ 00639000 * 0289 00640000 * VDSSEEKA(1)=FOXES; /* INVALID EXTENT */ 00641000 MVI VDSSEEKA(VDSCBREG),X'FF' 0289 00642000 * 0290 00643000 * /*************************************************************/ 00644000 * /* */ 00645000 * /* VOPEN DATA SET - ALLOWS VBP TO CONNECT NEW WINDOW TO */ 00646000 * /* DATASET AND TO ACQUIRE A DSPCT IF NECESSARY */ 00647000 * /* */ 00648000 * /*************************************************************/ 00649000 * 0290 00650000 * VBPRWPRM=VBPRWPRM&&VBPRWPRM;/* CLEAR PARAMETER LIST @ZA00121*/ 00651000 L @12,VDSVBPPL(,VDSCBREG) 0290 00652000 XC VBPRWPRM(40,@12),VBPRWPRM(@12) 0290 00653000 * VBPOHPTR=VDSDSPCT; /* HEADER ADDRESS FOR VOPEN */ 00654000 LA @11,144 0291 00655000 ALR @11,@12 0291 00656000 L @09,VDSDSPCT(,VDSCBREG) 0291 00657000 ST @09,VBPOHPTR(,@11) 0291 00658000 * VBPOWIA=VDSWINDW; /* WINDOW POINTER */ 00659000 L @09,VDSWINDW(,VDSCBREG) 0292 00660000 ST @09,VBPOWIA(,@11) 0292 00661000 * VBPOLEN=VDSWINSI/PAGESIZE; /* LENGTH OF WINDOW IN PAGES */ 00662000 LH @09,VDSWINSI(,VDSCBREG) 0293 00663000 LR @14,@09 0293 00664000 SRDA @14,32 0293 00665000 D @14,@CF00066 0293 00666000 ST @15,VBPOLEN(,@11) 0293 00667000 * VBPODSSZ=VDSWINSI*VDSNMTRK; /* NUMBER OF BYTES IN THE DATA 0294 00668000 * SET @Y025010*/ 00669000 MH @09,VDSNMTRK(,VDSCBREG) 0294 00670000 ST @09,VBPODSSZ(,@11) 0294 00671000 * DO; 0295 00672000 * RFY 0296 00673000 * GPR01P RSTD; 0296 00674000 * GPR01P=ADDR(VBPOPPRM); 0297 00675000 LA GPR01P,VBPOPPRM(,@12) 0297 00676000 * CALL VOPEN; /* ENTER OPEN ROUTINE */ 00677000 L @12,CVTPTR 0298 00678000 L @12,CVTPVBP(,@12) 0298 00679000 L @15,VBPMOD(,@12) 0298 00680000 BALR @14,@15 0298 00681000 * RFY 0299 00682000 * GPR01P UNRSTD; 0299 00683000 * END; 0300 00684000 * VDSDSPCT=VBPOHPTR; /* SET UP DSPCT ADDRESSABILITY */ 00685000 * 0301 00686000 L @12,VDSVBPPL(,VDSCBREG) 0301 00687000 LA @11,144 0301 00688000 ALR @11,@12 0301 00689000 L @09,VBPOHPTR(,@11) 0301 00690000 ST @09,VDSDSPCT(,VDSCBREG) 0301 00691000 * /*************************************************************/ 00692000 * /* */ 00693000 * /* INITIALIZE VREAD AND VWRITE PARAMETER LIST FOR THE TRACK */ 00694000 * /* MANAGER */ 00695000 * /* */ 00696000 * /*************************************************************/ 00697000 * 0302 00698000 * VBPRWPRM=VBPRWPRM&&VBPRWPRM;/* CLEAR PARAMETER LIST */ 00699000 XC VBPRWPRM(40,@12),VBPRWPRM(@12) 0302 00700000 * BUFCDSPC=VDSDSPCT; /* HOOK PARAMETER LIST TO DSPCT */ 00701000 ST @09,BUFCDSPC(,@11) 0303 00702000 * BUFCBAD=VDSWINDW; /* HOOK PARAMETER LIST TO WINDOW */ 00703000 L @12,VDSWINDW(,VDSCBREG) 0304 00704000 ST @12,BUFCBAD(,@11) 0304 00705000 * RESPECIFY 0305 00706000 * RQE BASED(RQEREG); 0305 00707000 * RQEREG=R10; /* RQE */ 00708000 LR RQEREG,R10 0306 00709000 * RESPECIFY 0307 00710000 * R10 UNRSTD; 0307 00711000 * END; /* END OF VOPEN AND ACQUIRE WICB 00712000 * @ZA00121*/ 00713000 * 0309 00714000 */********************************************************************/ 00715000 */* */ 00716000 */* FUNCTION - CONTROLS IOS/USER/DEVICE SIMULATION OF CHANNEL */ 00717000 */* PROGRAM EXECUTION. */ 00718000 */* */ 00719000 */* INPUT - REGISTERS AT INPUT */ 00720000 */* 1 - RQE */ 00721000 */* 2 - IOB */ 00722000 */* 3 - DEB */ 00723000 */* 4 - DCB */ 00724000 */* 6 - WICB */ 00725000 */* 7 - VDSCB/UCB */ 00726000 */* 13 - SAVE AREA */ 00727000 */* */ 00728000 */* OUTPUT - REGISTERS AT OUTPUT */ 00729000 */* 1,5,13,14 - SAME AS AT ENTRY TO MODULE */ 00730000 */* */ 00731000 */* EXTERNAL REFERENCES */ 00732000 */* IDDWITRM - SIMULATE CHANNEL AND DEVICE */ 00733000 */* USER APPENDAGES - COMPATABILITY WITH CURRENT IOS/USER */ 00734000 */* INTERFACES. */ 00735000 */* IEASMFEX - RECORD INFORMATION ABOUT PCI AND REEXCPS. */ 00736000 */* */ 00737000 */********************************************************************/ 00738000 * 0309 00739000 * RESPECIFY 0309 00740000 * (R9, 0309 00741000 * R10, 0309 00742000 * R11, 0309 00743000 * R12) RSTD; 0309 00744000 * 0309 00745000 @RF00204 DS 0H 0310 00746000 * /*****************************************************************/ 00747000 * /* */ 00748000 * /* IF THE USER SPECIFIED IT THE PAGEFIX APPENDAGE MUST BE ENTERED*/ 00749000 * /* BEFORE ANY I/O IS SIMULATED FOR COMPATABILITY REASONS. NO */ 00750000 * /* PAGES WILL BE FIXED */ 00751000 * /* */ 00752000 * /*****************************************************************/ 00753000 * 0310 00754000 * IF DEBPGFX=SET THEN 0310 00755000 L @05,DEBAPPAD(,DEBREG) 0310 00756000 TM DEBPGFX(@05),B'10000000' 0310 00757000 BNO @RF00310 0310 00758000 * DO; /* INVOKE USER PAGE FIX APPENDAGE*/ 00759000 * R10=ADDR(VBPPL); /* PSUEDO PAGE FIX LIST */ 00760000 L R10,VDSVBPPL(,VDSCBREG) 0312 00761000 * R11=0; /* NO ENTRIES IN LIST */ 00762000 * 0313 00763000 SLR R11,R11 0313 00764000 * /*************************************************************/ 00765000 * /* */ 00766000 * /* LINK TO PGFX APPENDAGE */ 00767000 * /* */ 00768000 * /*************************************************************/ 00769000 * 0314 00770000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 00771000 L SAVERG,RQENRQE(,RQEREG) 0314 00772000 * RESPECIFY 0315 00773000 * (R9, 0315 00774000 * R10, 0315 00775000 * R11, 0315 00776000 * R12, 0315 00777000 * R15) RSTD; 0315 00778000 * R15=DEBSIOA; /* ROUTINE ADDRESS */ 00779000 L R15,DEBSIOA(,@05) 0316 00780000 * GEN; 0317 00781000 BAL R14,PGFX4(R15) GO TO ROUTINE 00782000 * RESPECIFY 0318 00783000 * (R9, 0318 00784000 * R10, 0318 00785000 * R11, 0318 00786000 * R12, 0318 00787000 * R15) UNRSTD; 0318 00788000 * END; 0319 00789000 * 0319 00790000 * /*****************************************************************/ 00791000 * /* */ 00792000 * /* RESET IOB FLAGS */ 00793000 * /* */ 00794000 * /*****************************************************************/ 00795000 * 0320 00796000 * IOBERRTN=RESET; /* ERP IN CONTROL SWITCH */ 00797000 @RF00310 DS 0H 0321 00798000 * IOBIOERR=RESET; /* EXPECTED ERROR SWITCH */ 00799000 NI IOBERRTN(IOBREG),B'11011011' 0321 00800000 *STARTCPX: 0322 00801000 * 0322 00802000 * /*****************************************************************/ 00803000 * /* */ 00804000 * /* NEW CP OR RE-EXCP */ 00805000 * /* */ 00806000 * /*****************************************************************/ 00807000 * 0322 00808000 * WICSEEKA=IOBSEEK; /* STARTING SEEK FOR EXCP OR 0322 00809000 * RE-EXCP */ 00810000 * 0322 00811000 STARTCPX MVC WICSEEKA(8,WICBREG),IOBSEEK(IOBREG) 0322 00812000 * /*****************************************************************/ 00813000 * /* */ 00814000 * /* IF THIS IS A RELATED REQUEST AND IF THE DCB IOS FLAG DCBIFLGS */ 00815000 * /* INDICATES PERMANENT ERROR THEN @YM03854*/ 00816000 * /* */ 00817000 * /*****************************************************************/ 00818000 * 0323 00819000 * IF IOBUNREL=RESET&DCBIFEC=IOSCMPLF THEN 0323 00820000 TM IOBUNREL(IOBREG),B'00000010' 0323 00821000 BNZ @RF00323 0323 00822000 L @12,DEBDCBAD(,DEBREG) 0323 00823000 TM DCBIFEC+40(@12),B'11000000' 0323 00824000 BNO @RF00323 0323 00825000 * DO; /* @YM03854*/ 00826000 * IOBECBCC=PURGREQ; /* SET COMPLETION CODE = X-48 IN 00827000 * IOBECBCC */ 00828000 MVI IOBECBCC(IOBREG),X'48' 0325 00829000 * GO TO AEAPP2ND; /* GO TO ABNORMAL APPENDAGE 0326 00830000 * @YM03854*/ 00831000 B AEAPP2ND 0326 00832000 * END; /* @YM03854*/ 00833000 *STARTERP: 0328 00834000 * 0328 00835000 * /*****************************************************************/ 00836000 * /* */ 00837000 * /* ERP RESTART POINT */ 00838000 * /* */ 00839000 * /*****************************************************************/ 00840000 * 0328 00841000 * IOBECBCC=NORMEND; /* ASSUME NORMAL COMPLETION */ 00842000 @RF00323 DS 0H 0328 00843000 STARTERP MVI IOBECBCC(IOBREG),X'7F' 0328 00844000 * 0329 00845000 * /*****************************************************************/ 00846000 * /* */ 00847000 * /* TEST FOR EXTENT VIOLATION. GO TO EOE APPENDAGE IF BAD SEEK */ 00848000 * /* FIELD OTHERWISE CONTINUE. */ 00849000 * /* */ 00850000 * /*****************************************************************/ 00851000 * 0329 00852000 * RFY 0329 00853000 * DEBDASD BASED(IOBM*(LENGTH(DEBDASD))+LENGTH(DEBBASIC)-LENGTH( 00854000 * DEBBASND)+ADDR(DEBBASIC));/* POINTER TO DA EXTENT @YM01169*/ 00855000 * WICFMASK=DEBDVMOD; /* FILE MASK @YM05961*/ 00856000 SLR @12,@12 0330 00857000 IC @12,IOBM(,IOBREG) 0330 00858000 SLA @12,4 0330 00859000 SL @12,@CF03320 0330 00860000 ALR @12,DEBREG 0330 00861000 IC @09,DEBDVMOD(,@12) 0330 00862000 STC @09,WICFMASK(,WICBREG) 0330 00863000 * DO WHILE(WICSKACH>DEBHIGH)|(WICSKBCH=DEBNMEXT)); /* @YM03839*/ 00865000 * 0331 00866000 B @DE00331 0331 00867000 @DL00331 DS 0H 0332 00868000 * /***************************************************************/ 00869000 * /* */ 00870000 * /* PERFORM FOR BAD SEEK ADDRESS LINK TO EOE APPENDAGE */ 00871000 * /* */ 00872000 * /***************************************************************/ 00873000 * 0332 00874000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 00875000 L SAVERG,RQENRQE(,RQEREG) 0332 00876000 * RESPECIFY 0333 00877000 * (R9, 0333 00878000 * R10, 0333 00879000 * R11, 0333 00880000 * R12) RSTD; 0333 00881000 * CALL EOEAPPX; /* LINK TO EOE APPENDAGE */ 00882000 L @05,DEBAPPAD(,DEBREG) 0334 00883000 L @15,DEBEOEA(,@05) 0334 00884000 BALR @14,@15 0334 00885000 * RESPECIFY 0335 00886000 * (R9, 0335 00887000 * R10, 0335 00888000 * R11, 0335 00889000 * R12) UNRSTD; 0335 00890000 * BC(15,EOEPOST); /* +0 RETURN GO TO AE APPENDAGE 00891000 * NEXT */ 00892000 BC 15,EOEPOST 0336 00893000 *EOE4: 0337 00894000 * BC(15,POSTIOS); /* +4 RETURN RETURN TO IOS TO 0337 00895000 * POST IOB */ 00896000 EOE4 BC 15,POSTIOS 0337 00897000 *EOE8: /* +8 RETURN EXTENT CHECK NEW 0338 00898000 * SEEK FIELD */ 00899000 * END; 0338 00900000 EOE8 DS 0H 0338 00901000 @DE00331 SLR @12,@12 0338 00902000 IC @12,IOBM(,IOBREG) 0338 00903000 SLA @12,4 0338 00904000 SL @12,@CF03320 0338 00905000 ALR @12,DEBREG 0338 00906000 CLC WICSKACH(4,WICBREG),DEBHIGH(@12) 0338 00907000 BH @DL00331 0338 00908000 CLC WICSKBCH(6,WICBREG),DEBLOW(@12) 0338 00909000 BL @DL00331 0338 00910000 CLI WICSKAM(WICBREG),0 0338 00911000 BE @DC00331 0338 00912000 CLC WICSKAM(1,WICBREG),DEBNMEXT(DEBREG) 0338 00913000 BNL @DL00331 0338 00914000 @DC00331 DS 0H 0339 00915000 * 0339 00916000 * /*****************************************************************/ 00917000 * /* */ 00918000 * /* VALID SEEK FIELD, GO TO USER SUPPLIED SIO MODULE UNLESS ERP */ 00919000 * /* RESTART */ 00920000 * /* */ 00921000 * /*****************************************************************/ 00922000 * 0339 00923000 * IF IOBERRTN=SET /* CHECK FOR ERP CONTROL */ 00924000 * THEN 0339 00925000 TM IOBERRTN(IOBREG),B'00100000' 0339 00926000 BNO @RF00339 0339 00927000 * IOBERRTN=RESET; /* DON'T GO TO SIO APP RESET 0340 00928000 * ERP'S */ 00929000 NI IOBERRTN(IOBREG),B'11011111' 0340 00930000 * ELSE 0341 00931000 * DO; /* NOT ERP'S - GO TO USER SIO 0341 00932000 * ROUTINE */ 00933000 * 0341 00934000 B @RC00339 0341 00935000 @RF00339 DS 0H 0342 00936000 * /*************************************************************/ 00937000 * /* */ 00938000 * /* LINK TO SIO APPENDAGE */ 00939000 * /* */ 00940000 * /*************************************************************/ 00941000 * 0342 00942000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 00943000 L SAVERG,RQENRQE(,RQEREG) 0342 00944000 * RESPECIFY 0343 00945000 * (R9, 0343 00946000 * R10, 0343 00947000 * R11, 0343 00948000 * R12) RSTD; 0343 00949000 * CALL SIOAPPX; /* LINK TO SIO APPENDAGE */ 00950000 L @05,DEBAPPAD(,DEBREG) 0344 00951000 L @15,DEBSIOA(,@05) 0344 00952000 BALR @14,@15 0344 00953000 * RESPECIFY 0345 00954000 * (R9, 0345 00955000 * R10, 0345 00956000 * R11, 0345 00957000 * R12) UNRSTD; 0345 00958000 * BC(15,SIO0A); /* +0 -RETURN - CONTINUE */ 00959000 BC 15,SIO0A 0346 00960000 *SIO4: 0347 00961000 * BC(15,SKIPIOS); /* +4 -RETURN - SKIP POSTING */ 00962000 SIO4 BC 15,SKIPIOS 0347 00963000 *SIO0A: 0348 00964000 * WICSTART=IOBSTART; /* SET UP CP STARTING POINT */ 00965000 SIO0A L @12,IOBSTART(,IOBREG) 0348 00966000 ST @12,WICSTART(,WICBREG) 0348 00967000 * END; 0349 00968000 *WITRM: 0350 00969000 * 0350 00970000 * /*****************************************************************/ 00971000 * /* */ 00972000 * /* SIMULATE CHANNEL - DEVICE OPERATION BY INVOKING THE TRACK */ 00973000 * /* MANAGER/CHANNEL PROGRAM INTERPRETOR. THE IOB WILL BE POSTED */ 00974000 * /* AND ALL ACTIONS ASSOCIATED WITH THE CHANNEL PROGRAM WILL HAVE */ 00975000 * /* BEEN COMPLETED WHEN CONTROL IS RETURNED. */ 00976000 * /* */ 00977000 * /*****************************************************************/ 00978000 * 0350 00979000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA 0350 00980000 * ADDRESSABILITY */ 00981000 @RC00339 DS 0H 0350 00982000 WITRM L SAVERG,RQENRQE(,RQEREG) 0350 00983000 * WICAUDIT='TRM'; /* TRACK MANAGER IN CONTROL */ 00984000 MVC WICAUDIT(3,WICBREG),@CC03271 0351 00985000 * CALL IDDWITRM; /* LINK TO TRACK MANAGER */ 00986000 L @15,@CV00548 0352 00987000 BALR @14,@15 0352 00988000 * WICAUDIT='APP'; /* APPENDAGE INTERFACE HANDLER IN 00989000 * CONTROL */ 00990000 * 0353 00991000 MVC WICAUDIT(3,WICBREG),@CC03242 0353 00992000 * /*****************************************************************/ 00993000 * /* */ 00994000 * /* GO TO PCI APPENDAGE IF THIS IS A PCI INTERRUPT. */ 00995000 * /* */ 00996000 * /*****************************************************************/ 00997000 * 0354 00998000 * IF PCI=SET THEN 0354 00999000 TM PCI(IOBREG),B'10000000' 0354 01000000 BNO @RF00354 0354 01001000 * DO; 0355 01002000 * 0355 01003000 * /*************************************************************/ 01004000 * /* */ 01005000 * /* LINK TO PCI APPENDAGE */ 01006000 * /* */ 01007000 * /*************************************************************/ 01008000 * 0356 01009000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01010000 L SAVERG,RQENRQE(,RQEREG) 0356 01011000 * RESPECIFY 0357 01012000 * (R9, 0357 01013000 * R10, 0357 01014000 * R11, 0357 01015000 * R12) RSTD; 0357 01016000 * CALL PCIAPPX; /* LINK TO PCI APPENDAGE */ 01017000 L @05,DEBAPPAD(,DEBREG) 0358 01018000 L @15,DEBPCIA(,@05) 0358 01019000 BALR @14,@15 0358 01020000 * RESPECIFY 0359 01021000 * (R9, 0359 01022000 * R10, 0359 01023000 * R11, 0359 01024000 * R12) UNRSTD; 0359 01025000 * 0359 01026000 * /*************************************************************/ 01027000 * /* */ 01028000 * /* LINK TO SMF ROUTINE */ 01029000 * /* */ 01030000 * /*************************************************************/ 01031000 * 0360 01032000 * IF RQESMFRQ='1'B THEN 0360 01033000 TM RQESMFRQ(RQEREG),B'00000001' 0360 01034000 BO @RT00360 0360 01035000 * GO TO COUNT; /* INCREMENT SMF COUNTER @ZA18542*/ 01036000 * GEN; 0362 01037000 L R9,RQETCB(,RQEREG) /* GET TCB ADDRESS @ZA09129*/ 01038000 L R9,0(R9) /* GET RB ADDRESS @ZA09129*/ 01039000 TM 10(R9),X'C0' /* IS THIS RB AN SVRB @ZA09129*/ 01040000 BZ COUNT /* NO IT IS A PRB - COUNT EXCP'S @ZA09129*/ 01041000 BM SMFEND /*NO IT IS AN IRB/SIRB - EXIT @ZA09129*/ 01042000 * IF RQEPRT>=USERKEY THEN /* CALL SMF IF USER KEY @ZA04728*/ 01043000 CLI RQEPRT(RQEREG),X'80' 0363 01044000 BL @RF00363 0363 01045000 * DO; /* @ZA04728*/ 01046000 * RESPECIFY 0365 01047000 * (R0, 0365 01048000 * R1, 0365 01049000 * R9, 0365 01050000 * R10, 0365 01051000 * R11, 0365 01052000 * R12, 0365 01053000 * R15) RSTD; 0365 01054000 *COUNT: /* @ZA09129*/ 01055000 * R0=RQETCB; /* PASS TCB ADDR FOR SMF */ 01056000 COUNT L R0,RQETCB(,RQEREG) 0366 01057000 * R9=R1; /* SAVE RQE ADDRESS ACCROSS CALL 01058000 * @ZA04728*/ 01059000 LR R9,R1 0367 01060000 * R1=ONE; /* SET INCREMENT TO ONE @ZA04728*/ 01061000 LA R1,1 0368 01062000 * CALL IEASMFEX; /* CALL SMF EXCP COUNT ROUTINE */ 01063000 L @05,CVTPTR 0369 01064000 L @15,CVTSMFEX(,@05) 0369 01065000 BALR @14,@15 0369 01066000 * R1=R9; /* RESTORE RQE ADDRESS @ZA04728*/ 01067000 LR R1,R9 0370 01068000 * RFY 0371 01069000 * (R0, 0371 01070000 * R1, 0371 01071000 * R9, 0371 01072000 * R10, 0371 01073000 * R11, 0371 01074000 * R12, 0371 01075000 * R15) UNRSTD; 0371 01076000 * END; /* @ZA04728*/ 01077000 *SMFEND: /* @ZA09129*/ 01078000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01079000 @RF00363 DS 0H 0373 01080000 SMFEND L SAVERG,RQENRQE(,RQEREG) 0373 01081000 * GO TO WITRM; /* CONTROL IS RETURNED TO THE 0374 01082000 * TRACK MANAGER TO COMPLETE THIS 01083000 * CHANNEL PROGRAM */ 01084000 B WITRM 0374 01085000 * END; 0375 01086000 * 0376 01087000 * /*****************************************************************/ 01088000 * /* */ 01089000 * /* IF ERPS RESTARTED THIS CHANNEL PROGRAM THEN THE ADDRESS IN */ 01090000 * /* CSWEND WILL HAVE TO BE RESET IF IT POINTS TO AN ERP CCW */ 01091000 * /* */ 01092000 * /*****************************************************************/ 01093000 * 0376 01094000 * IF WICERPOV=SET THEN 0376 01095000 @RF00354 TM WICERPOV(WICBREG),B'10000000' 0376 01096000 BNO @RF00376 0376 01097000 * DO; 0377 01098000 * 0377 01099000 * /*************************************************************/ 01100000 * /* */ 01101000 * /* ERP RESTART OF OVERFLOW CP CORRECT CSW ADDRESS IF */ 01102000 * /* NECESSARY */ 01103000 * /* */ 01104000 * /*************************************************************/ 01105000 * 0378 01106000 * WICERPOV=RESET; /* RESET OVERFLOW INDICATOR */ 01107000 * 0378 01108000 NI WICERPOV(WICBREG),B'01111111' 0378 01109000 * /*************************************************************/ 01110000 * /* */ 01111000 * /* TEST IF ERP CCW IN ERROR */ 01112000 * /* */ 01113000 * /*************************************************************/ 01114000 * 0379 01115000 * IF CSWEND=ADDR(WICCCW2) THEN 0379 01116000 LA @12,WICCCW2(,WICBREG) 0379 01117000 L @09,CSWEND-1(,IOBREG) 0379 01118000 LA @09,0(,@09) 0379 01119000 CR @12,@09 0379 01120000 BNE @RF00379 0379 01121000 * CSWEND=WICERPSV; /* POINT TO RESTARTED CCW */ 01122000 MVC CSWEND(3,IOBREG),WICERPSV(WICBREG) 0380 01123000 * END; 0381 01124000 @RF00379 DS 0H 0382 01125000 * 0382 01126000 * /*****************************************************************/ 01127000 * /* */ 01128000 * /* POST CP PROCESSING - DETERMINES HOW CP TERMINATED AND ENTERS */ 01129000 * /* CE AND/OR AE APPENDAGES. TEST FOR SERIOUS ERROR - AE APPENDAGE*/ 01130000 * /* WILL HAVE TO BE ENTERED. */ 01131000 * /* */ 01132000 * /*****************************************************************/ 01133000 * 0382 01134000 * IF UNITCHK=RESET&PROGCHK=RESET&PROTCHK=RESET&CHANLCHK=RESET THEN 01135000 @RF00376 TM UNITCHK(IOBREG),B'00000010' 0382 01136000 BNZ @RF00382 0382 01137000 TM PROGCHK(IOBREG),B'00110100' 0382 01138000 BNZ @RF00382 0382 01139000 * DO; 0383 01140000 * 0383 01141000 * /*************************************************************/ 01142000 * /* */ 01143000 * /* MARK UNEXPECTED ERROR IF INCORRECT LENGTH OR UNIT */ 01144000 * /* EXCEPTION */ 01145000 * /* */ 01146000 * /*************************************************************/ 01147000 * 0384 01148000 * IF UNITEXC=SET|INCLEN=SET THEN 0384 01149000 TM UNITEXC(IOBREG),B'00000001' 0384 01150000 BO @RT00384 0384 01151000 TM INCLEN(IOBREG),B'01000000' 0384 01152000 BNO @RF00384 0384 01153000 @RT00384 DS 0H 0385 01154000 * IOBIOERR=SET; /* MARK UNEXPECTED ERROR */ 01155000 OI IOBIOERR(IOBREG),B'00000100' 0385 01156000 * 0386 01157000 * /*************************************************************/ 01158000 * /* */ 01159000 * /* LINK TO CE APPENDAGE */ 01160000 * /* */ 01161000 * /*************************************************************/ 01162000 * 0386 01163000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01164000 @RF00384 L SAVERG,RQENRQE(,RQEREG) 0386 01165000 * RESPECIFY 0387 01166000 * (R9, 0387 01167000 * R10, 0387 01168000 * R11, 0387 01169000 * R12) RSTD; 0387 01170000 * CALL CEAPPX; /* LINK TO CE APPENDAGE */ 01171000 L @05,DEBAPPAD(,DEBREG) 0388 01172000 L @15,DEBCEA(,@05) 0388 01173000 BALR @14,@15 0388 01174000 * RESPECIFY 0389 01175000 * (R9, 0389 01176000 * R10, 0389 01177000 * R11, 0389 01178000 * R12) UNRSTD; 0389 01179000 * BC(15,CE0A); /* +0 RETURN - CONTINUE */ 01180000 BC 15,CE0A 0390 01181000 *CE4: 0391 01182000 * BC(15,SKIPIOS); /* +4 RETURN - SKIP POSTING IOB */ 01183000 CE4 BC 15,SKIPIOS 0391 01184000 *CE8: 0392 01185000 * BC(15,STARTCP); /* +8 RETURN - REEXCP NEW CHANNEL 01186000 * PROGRAM */ 01187000 CE8 BC 15,STARTCP 0392 01188000 *CE12: 0393 01189000 * BC(15,BYPASIOS); /* +12 RETURN BYPASS POSTING IOB */ 01190000 CE12 BC 15,BYPASIOS 0393 01191000 *CE16: 0394 01192000 * BC(15,STARTCP); /* +16 RETURN-REEXCP NEW CHANNEL 01193000 * PROGRAM BUT PUT THIS REQUEST 01194000 * AT THE TOP OF THE CHAIN 0394 01195000 * INSTEAD OF THE BOTTOM @YM03829*/ 01196000 * 0394 01197000 CE16 BC 15,STARTCP 0394 01198000 * /*************************************************************/ 01199000 * /* */ 01200000 * /* +0 RETURN - TEST EXPECTED ERROR FLAG IF IT HASN'T BEEN */ 01201000 * /* RESET THE THE AE APPENDAGE MUST BE ENTERED WITH A */ 01202000 * /* PERMANENT ERROR */ 01203000 * /* */ 01204000 * /*************************************************************/ 01205000 * 0395 01206000 *CE0A: 0395 01207000 * IF IOBIOERR^=SET THEN 0395 01208000 CE0A TM IOBIOERR(IOBREG),B'00000100' 0395 01209000 BNO @RT00395 0395 01210000 * GO TO POSTIOS; /* POST IOB COMPLETE */ 01211000 * IOBECBCC=ERRPOST; /* POST ERROR */ 01212000 MVI IOBECBCC(IOBREG),X'41' 0397 01213000 * END; 0398 01214000 * ELSE 0399 01215000 * DO; 0399 01216000 * 0399 01217000 B @RC00382 0399 01218000 @RF00382 DS 0H 0400 01219000 * /*************************************************************/ 01220000 * /* */ 01221000 * /* CP ENDED ABNORMALLY INVOKE USER AE APPENDAGE, ERP'S & USER*/ 01222000 * /* AE APPENDAGE AGAIN. */ 01223000 * /* */ 01224000 * /*************************************************************/ 01225000 * 0400 01226000 *AEPOST: /* EOE ENTRY */ 01227000 * IOBERRTN=SET; /* ASSUME ERROR IS CORRECTABLE 0400 01228000 * USER AE MAY RESET */ 01229000 * 0400 01230000 AEPOST OI IOBERRTN(IOBREG),B'00100000' 0400 01231000 * /*************************************************************/ 01232000 * /* */ 01233000 * /* LINK TO AE APPENDAGE */ 01234000 * /* */ 01235000 * /*************************************************************/ 01236000 * 0401 01237000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01238000 L SAVERG,RQENRQE(,RQEREG) 0401 01239000 * RESPECIFY 0402 01240000 * (R9, 0402 01241000 * R10, 0402 01242000 * R11, 0402 01243000 * R12) RSTD; 0402 01244000 * CALL AEAPPX; /* LINK TO AE APPENDAGE */ 01245000 L @05,DEBAPPAD(,DEBREG) 0403 01246000 L @15,DEBXCEA(,@05) 0403 01247000 BALR @14,@15 0403 01248000 * RESPECIFY 0404 01249000 * (R9, 0404 01250000 * R10, 0404 01251000 * R11, 0404 01252000 * R12) UNRSTD; 0404 01253000 * BC(15,AE0A); /* +0 RETURN - CONTINUE */ 01254000 BC 15,AE0A 0405 01255000 *AE4: 0406 01256000 * BC(15,SKIPIOS); /* +4 RETURN - SKIP POSTING IOB */ 01257000 AE4 BC 15,SKIPIOS 0406 01258000 *AE8: 0407 01259000 * BC(15,STARTCP); /* +8 RETURN - REEXCP NEW CHANNEL 01260000 * PROGRAM */ 01261000 AE8 BC 15,STARTCP 0407 01262000 *AE12: 0408 01263000 * BC(15,BYPASIOS); /* +12 RETURN BYPASS POSTING IOB */ 01264000 AE12 BC 15,BYPASIOS 0408 01265000 *AE16: 0409 01266000 * BC(15,STARTCP); /* +16 RETURN-REEXCP NEW CHANNEL 01267000 * PROGRAM BUT PUT THIS REQUEST 01268000 * AT THE TOP OF THE CHAIN 0409 01269000 * INSTEAD OF THE BOTTOM @YM03829*/ 01270000 AE16 BC 15,STARTCP 0409 01271000 *AE0A: 0410 01272000 * IOBECBCC=ERRPOST; /* PERMANENT ERROR */ 01273000 AE0A MVI IOBECBCC(IOBREG),X'41' 0410 01274000 * 0411 01275000 * /*************************************************************/ 01276000 * /* */ 01277000 * /* CHECK IF AE END RESET RECOVERY SW */ 01278000 * /* */ 01279000 * /*************************************************************/ 01280000 * 0411 01281000 * IF IOBERRTN^=SET THEN 0411 01282000 TM IOBERRTN(IOBREG),B'00100000' 0411 01283000 BNO @RT00411 0411 01284000 * GO TO POSTIOS; /* POST IOB COMPLETE */ 01285000 * IF DCBDSGPS=SET& /* IF DSORG IS PHYS SEQ @ZA12180*/ 01286000 * DCBRECL(1:2)='10'B& /* & RECFM IS FIXED @ZA12180*/ 01287000 * DCBRECSB=SET& /* & STANDARD BLOCKS @ZA12180*/ 01288000 * DCBCNEVA=SET /* & EOV HAS BEEN SET @ZA12180*/ 01289000 * THEN 0413 01290000 L @12,DEBDCBAD(,DEBREG) 0413 01291000 TM DCBDSGPS+16(@12),B'01000000' 0413 01292000 BNO @RF00413 0413 01293000 LA @09,28 0413 01294000 ALR @09,@12 0413 01295000 TM DCBRECL(@09),B'10000000' 0413 01296000 BNO @RF00413 0413 01297000 TM DCBRECL(@09),B'01000000' 0413 01298000 BNZ @RF00413 0413 01299000 TM DCBRECSB(@09),B'00001000' 0413 01300000 BNO @RF00413 0413 01301000 TM DCBCNEVA+52(@12),B'00010000' 0413 01302000 BO @RT00413 0413 01303000 * GO TO POSTIOS; /* POST IOB COMPLETE @ZA12180*/ 01304000 * 0414 01305000 * /*************************************************************/ 01306000 * /* */ 01307000 * /* RECOVERY DESIRED CHECK IF POSSIBLE */ 01308000 * /* */ 01309000 * /*************************************************************/ 01310000 * 0415 01311000 * IF WICERDSP>RECOVER&PROGCHK^=SET THEN 0415 01312000 @RF00413 LH @12,WICERDSP(,WICBREG) 0415 01313000 C @12,@CF00074 0415 01314000 BNH @RF00415 0415 01315000 TM PROGCHK(IOBREG),B'00100000' 0415 01316000 BO @RF00415 0415 01317000 * DO; 0416 01318000 * 0416 01319000 */********************************************************************/ 01320000 */* */ 01321000 */* RECOVERABLE SITUATIONS */ 01322000 */* */ 01323000 */* 1. SEEK, FILE MASK VIOLATION */ 01324000 */* RESTART CP ON DESIRED TRACK WITH NEXT CCW UNLESS IT */ 01325000 */* IS A TIC. */ 01326000 */* */ 01327000 */* 2. MT READ/SEARCH, FM VIOLATION OR END OF CYLINDER */ 01328000 */* RESTART MT READ/SEARCH ON NEXT TRACK. */ 01329000 */* */ 01330000 */* 3. OVERFLOW INCOMPLETE, FM VIOLATION OR END OF CYLINDER */ 01331000 */* CONSTRUCT A CCW PREFIX TO FINISH OPERATION - CHAIN TO */ 01332000 */* REMAINDER OF CHANNEL PROGRAM. */ 01333000 */* IF IT IS A READ AND RESIDUAL = 0 AND SILI BIT ISN'T */ 01334000 */* ON THEN RECOVERY ISN'T POSSIBLE */ 01335000 */* */ 01336000 */********************************************************************/ 01337000 * 0417 01338000 * RESPECIFY 0417 01339000 * (WORKREG) RSTD; 0417 01340000 * WORKREG=CSWEND-LENGTH(WICCCW1);/* POINTER TO FAILING CCW */ 01341000 * 0418 01342000 L @12,CSWEND-1(,IOBREG) 0418 01343000 LA @12,0(,@12) 0418 01344000 LR WORKREG,@12 0418 01345000 SL WORKREG,@CF00037 0418 01346000 * /*********************************************************/ 01347000 * /* */ 01348000 * /* FILE MASK VIOLATIONS MUST BE RESTARTED */ 01349000 * /* */ 01350000 * /*********************************************************/ 01351000 * 0419 01352000 * IF IOBS1B7^=SET THEN 0419 01353000 * 0419 01354000 TM IOBS1B7(IOBREG),B'00000001' 0419 01355000 BO @RF00419 0419 01356000 * /*******************************************************/ 01357000 * /* */ 01358000 * /* TEST FOR SEEK OP CODE */ 01359000 * /* */ 01360000 * /*******************************************************/ 01361000 * 0420 01362000 * IF WRBIT=SET&RDBIT=SET THEN 0420 01363000 TM WRBIT(WICBREG),B'00000011' 0420 01364000 BNO @RF00420 0420 01365000 * DO; 0421 01366000 * 0421 01367000 * /***************************************************/ 01368000 * /* */ 01369000 * /* FAILING CCW WAS A SEEK RESTART CHANNEL PROGRAM */ 01370000 * /* ON NEXT CCW AND POSITION TO NEW TRACK */ 01371000 * /* */ 01372000 * /***************************************************/ 01373000 * 0422 01374000 * WICSTART=CSWEND; 0422 01375000 * 0422 01376000 ST @12,WICSTART(,WICBREG) 0422 01377000 * /***************************************************/ 01378000 * /* */ 01379000 * /* CP CAN'T START WITH A TIC */ 01380000 * /* */ 01381000 * /***************************************************/ 01382000 * 0423 01383000 * IF WICSTART->TICBITS=TIC THEN 0423 01384000 TM TICBITS(@12),B'00001000' 0423 01385000 BNO @RF00423 0423 01386000 TM TICBITS(@12),B'00000111' 0423 01387000 BNZ @RF00423 0423 01388000 * WICSTART=WICSTART->CCWADDR;/* REMOVE EXTRA TIC */ 01389000 L @12,CCWADDR-1(,@12) 0424 01390000 LA @12,0(,@12) 0424 01391000 ST @12,WICSTART(,WICBREG) 0424 01392000 * END; 0425 01393000 * ELSE 0426 01394000 * 0426 01395000 * /*****************************************************/ 01396000 * /* */ 01397000 * /* FAILING CCW WAS A MT READ OR SEARCH CONTINUE CP */ 01398000 * /* WITH FAILING CCW ON NEXT TRACK */ 01399000 * /* */ 01400000 * /*****************************************************/ 01401000 * 0426 01402000 * WICSTART=WORKREG; 0426 01403000 B @RC00420 0426 01404000 @RF00420 ST WORKREG,WICSTART(,WICBREG) 0426 01405000 * ELSE 0427 01406000 * 0427 01407000 * /*******************************************************/ 01408000 * /* */ 01409000 * /* OVERFLOW INCOMPLETE CONSTRUCT A NEW CCW PREFIX TO */ 01410000 * /* FINISH THE CCW FUNCTION */ 01411000 * /* */ 01412000 * /*******************************************************/ 01413000 * 0427 01414000 * DO; 0427 01415000 B @RC00419 0427 01416000 @RF00419 DS 0H 0428 01417000 * WICSTART=ADDR(WICRSTCP);/* ERP CCW PREFIX */ 01418000 LA @12,WICRSTCP(,WICBREG) 0428 01419000 ST @12,WICSTART(,WICBREG) 0428 01420000 * CCW1FLAG=WORKREG->CCWFLAGS;/* USE SAME CCW FLAGS */ 01421000 * 0429 01422000 IC @12,CCWFLAGS(,WORKREG) 0429 01423000 STC @12,CCW1FLAG(,WICBREG) 0429 01424000 * /*****************************************************/ 01425000 * /* */ 01426000 * /* SET UP CCW ADDRESS AND LENGTH */ 01427000 * /* */ 01428000 * /*****************************************************/ 01429000 * 0430 01430000 * IF CSWCNT^=ZERO THEN 0430 01431000 LH @12,CSWCNT(,IOBREG) 0430 01432000 LTR @12,@12 0430 01433000 BZ @RF00430 0430 01434000 * DO; 0431 01435000 * 0431 01436000 * /*************************************************/ 01437000 * /* */ 01438000 * /* RESTART IN MIDDLE OF CCW USING SAME DATA */ 01439000 * /* */ 01440000 * /*************************************************/ 01441000 * 0432 01442000 * CCW1LEN=CSWCNT; /* LENGTH(REMAINDER) */ 01443000 * 0432 01444000 STH @12,CCW1LEN(,WICBREG) 0432 01445000 * /*************************************************/ 01446000 * /* */ 01447000 * /* A(REMAINDER) */ 01448000 * /* */ 01449000 * /*************************************************/ 01450000 * 0433 01451000 * CCW1ADDR=WORKREG->CCWADDR+WORKREG->CCWLEN-CSWCNT; 01452000 L @09,CCWADDR-1(,WORKREG) 0433 01453000 LA @09,0(,@09) 0433 01454000 LH @00,CCWLEN(,WORKREG) 0433 01455000 N @00,@CF03331 0433 01456000 ALR @09,@00 0433 01457000 SLR @09,@12 0433 01458000 ST @09,CCW1ADDR(,WICBREG) 0433 01459000 * END; 0434 01460000 * ELSE 0435 01461000 * DO; 0435 01462000 * 0435 01463000 B @RC00430 0435 01464000 @RF00430 DS 0H 0436 01465000 * /*************************************************/ 01466000 * /* */ 01467000 * /* NO RESTART FOR READS IF RESIDUAL=0 AND SILI */ 01468000 * /* BIT ISN'T SET */ 01469000 * /* */ 01470000 * /*************************************************/ 01471000 * 0436 01472000 * IF RDBIT=SET THEN 0436 01473000 TM RDBIT(WICBREG),B'00000010' 0436 01474000 BNO @RF00436 0436 01475000 * IF WORKREG->SILI=SET THEN/* READ CCW */ 01476000 TM SILI(WORKREG),B'00100000' 0437 01477000 BNO @RF00437 0437 01478000 * CCW1SDT=SET;/* ALLOW CP TO CONTINUE BUT DON'T 01479000 * TRANSFER DATA */ 01480000 OI CCW1SDT(WICBREG),B'00010000' 0438 01481000 * ELSE 0439 01482000 * GO TO AEAPP2ND;/* NO RECOVERY GO TO AE AGAIN */ 01483000 * 0439 01484000 * /*************************************************/ 01485000 * /* */ 01486000 * /* RESTART WITH ONE BYTE OF ZERO DATA TO FINISH */ 01487000 * /* PADDING THE RECORD. */ 01488000 * /* */ 01489000 * /*************************************************/ 01490000 * 0440 01491000 * CCW1LEN=ONE; /* ONE BYTE TO BE TRANSFERRED */ 01492000 @RF00436 MVC CCW1LEN(2,WICBREG),@CH00042 0440 01493000 * CCW1ADDR=ADDR(CCW1NULL);/* '00'X DATA */ 01494000 LA @12,CCW1NULL(,WICBREG) 0441 01495000 ST @12,CCW1ADDR(,WICBREG) 0441 01496000 * END; 0442 01497000 * 0443 01498000 * /*****************************************************/ 01499000 * /* */ 01500000 * /* SET UP OPCDE */ 01501000 * /* */ 01502000 * /*****************************************************/ 01503000 * 0443 01504000 * IF RDBIT=SET THEN 0443 01505000 @RC00430 TM RDBIT(WICBREG),B'00000010' 0443 01506000 BNO @RF00443 0443 01507000 * CCW1OP=RDDATA; /* CONTINUE WITH READ */ 01508000 MVI CCW1OP(WICBREG),X'06' 0444 01509000 * ELSE 0445 01510000 * DO; 0445 01511000 B @RC00443 0445 01512000 @RF00443 DS 0H 0446 01513000 * CCW1OP=WRDATA; /* CONTINUE WITH WRITE */ 01514000 MVI CCW1OP(WICBREG),X'05' 0446 01515000 * WICERPWR=SET; /* SATISFY WRITE PREREQUISITES - 01516000 * CPI WILL TEST AND RESET THIS 01517000 * SWITCH */ 01518000 OI WICERPWR(WICBREG),B'01000000' 0447 01519000 * END; 0448 01520000 * WICERPSV=CSWEND; /* SAVE FOR POSSIBLE RESET OF 0449 01521000 * CSWEND ADDRESS */ 01522000 * 0449 01523000 @RC00443 L @12,CSWEND-1(,IOBREG) 0449 01524000 LA @12,0(,@12) 0449 01525000 STCM @12,7,WICERPSV(WICBREG) 0449 01526000 * /*****************************************************/ 01527000 * /* */ 01528000 * /* SET UP TIC ADDRESS */ 01529000 * /* */ 01530000 * /*****************************************************/ 01531000 * 0450 01532000 * IF CSWEND->TICBITS=TIC THEN 0450 01533000 TM TICBITS(@12),B'00001000' 0450 01534000 BNO @RF00450 0450 01535000 TM TICBITS(@12),B'00000111' 0450 01536000 BNZ @RF00450 0450 01537000 * CCW2ADDR=CSWEND->CCWADDR;/* TIC POINTS TO TIC SKIP 01538000 * 2ND TIC */ 01539000 L @12,CCWADDR-1(,@12) 0451 01540000 LA @12,0(,@12) 0451 01541000 ST @12,CCW2ADDR(,WICBREG) 0451 01542000 * ELSE 0452 01543000 * CCW2ADDR=CSWEND; /* POINT TO NEXT CCW */ 01544000 B @RC00450 0452 01545000 @RF00450 L @12,CSWEND-1(,IOBREG) 0452 01546000 LA @12,0(,@12) 0452 01547000 ST @12,CCW2ADDR(,WICBREG) 0452 01548000 * CCW2OP=OPTIC; /* OPERATION = TIC */ 01549000 @RC00450 MVI CCW2OP(WICBREG),X'08' 0453 01550000 * WICERPOV=SET; /* ERP OVERFLOW RESTART */ 01551000 OI WICERPOV(WICBREG),B'10000000' 0454 01552000 * END; 0455 01553000 * GO TO STARTERP; /* RESTART CP */ 01554000 B STARTERP 0456 01555000 * END; 0457 01556000 * RESPECIFY 0458 01557000 * (WORKREG) UNRSTD; 0458 01558000 @RF00415 DS 0H 0459 01559000 * END; 0459 01560000 *AEAPP2ND: 0460 01561000 * 0460 01562000 * /*****************************************************************/ 01563000 * /* */ 01564000 * /* FINAL ENTRY TO AE APPENDAGE, NO RECOVERY IS POSSIBLE USER MAY */ 01565000 * /* POST SKIP, RE-EXCP OR BYPASS. */ 01566000 * /* */ 01567000 * /*****************************************************************/ 01568000 * 0460 01569000 * IOBERRTN=RESET; /* RESET RECOVERY SW */ 01570000 @RC00382 DS 0H 0460 01571000 AEAPP2ND DS 0H 0461 01572000 * IOBIOERR=RESET; /* UNEXPECTED ERROR IS PERMANENT */ 01573000 * 0461 01574000 NI IOBERRTN(IOBREG),B'11011011' 0461 01575000 * /*****************************************************************/ 01576000 * /* */ 01577000 * /* LINK TO AE APPENDAGE */ 01578000 * /* */ 01579000 * /*****************************************************************/ 01580000 * 0462 01581000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01582000 L SAVERG,RQENRQE(,RQEREG) 0462 01583000 * RESPECIFY 0463 01584000 * (R9, 0463 01585000 * R10, 0463 01586000 * R11, 0463 01587000 * R12) RSTD; 0463 01588000 * CALL AEBAPPX; /* LINK TO AE APPENDAGE */ 01589000 L @05,DEBAPPAD(,DEBREG) 0464 01590000 L @15,DEBXCEA(,@05) 0464 01591000 BALR @14,@15 0464 01592000 * RESPECIFY 0465 01593000 * (R9, 0465 01594000 * R10, 0465 01595000 * R11, 0465 01596000 * R12) UNRSTD; 0465 01597000 * BC(15,POSTIOS); /* +0 RETURN - CONTINUE @YM03854*/ 01598000 BC 15,POSTIOS 0466 01599000 *AEB4: 0467 01600000 * BC(15,SKIPIOS); /* +4 RETURN - SKIP POSTING IOB */ 01601000 AEB4 BC 15,SKIPIOS 0467 01602000 *AEB8: 0468 01603000 * BC(15,STARTCP); /* +8 RETURN - REEXCP NEW CHANNEL 01604000 * PROGRAM */ 01605000 AEB8 BC 15,STARTCP 0468 01606000 *AEB12: 0469 01607000 * BC(15,BYPASIOS); /* +12 RETURN BYPASS POSTING IOB */ 01608000 AEB12 BC 15,BYPASIOS 0469 01609000 *AEB16: 0470 01610000 * BC(15,STARTCP); /* +16 RETURN-REEXCP NEW CHANNEL 01611000 * PROGRAM BUT PUT THIS REQUEST 01612000 * AT THE TOP OF THE CHAIN 0470 01613000 * INSTEAD OF THE BOTTOM @YM03829*/ 01614000 AEB16 BC 15,STARTCP 0470 01615000 *EOEPOST: 0471 01616000 * 0471 01617000 * /*****************************************************************/ 01618000 * /* */ 01619000 * /* POST IOB WITH AN EXTENT VIOLATION THEN ENTER AE APPENDAGE */ 01620000 * /* */ 01621000 * /*****************************************************************/ 01622000 * 0471 01623000 * IOBECBCC=EXVIOL; /* MARK ECB WITH EXTENT VIOLATION*/ 01624000 EOEPOST MVI IOBECBCC(IOBREG),X'42' 0471 01625000 * GO TO AEAPP2ND; /* ENTER AE APPENDAGE */ 01626000 B AEAPP2ND 0472 01627000 *STARTCP: 0473 01628000 * 0473 01629000 * /*****************************************************************/ 01630000 * /* */ 01631000 * /* USER REQUESTED THAT A NEW CHANNEL PROGRAM BE RESTARTED */ 01632000 * /* */ 01633000 * /*****************************************************************/ 01634000 * 0473 01635000 * IOBIOERR=RESET; /* RESET FOR REEXCP */ 01636000 STARTCP DS 0H 0474 01637000 * IOBERRTN=RESET; /* RESET FOR REEXCP */ 01638000 * 0474 01639000 NI IOBIOERR(IOBREG),B'11011011' 0474 01640000 * /*****************************************************************/ 01641000 * /* */ 01642000 * /* REEXCP OF CP, GO TO SMF FOR COUNTING EXCPS */ 01643000 * /* */ 01644000 * /*****************************************************************/ 01645000 * 0475 01646000 * IF RQESMFRQ='1'B THEN 0475 01647000 TM RQESMFRQ(RQEREG),B'00000001' 0475 01648000 BO @RT00475 0475 01649000 * GO TO COUNT1; /* INCREMENT SMF COUNTER@ZA18542 */ 01650000 * GEN; 0477 01651000 L R9,RQETCB(,RQEREG) /* GET TCB ADDRESS @ZA09129*/ 01652000 L R9,0(R9) /* GET RB ADDRESS @ZA09129*/ 01653000 TM 10(R9),X'C0' /* IS THIS RB AN SVRB @ZA09129*/ 01654000 BZ COUNT1 /* NO, IT IS A PRB - COUNT EXCPS @ZA09129*/ 01655000 BM SMFEND1 /* NO, IT IS AN IRB/SIRB - EXIT @ZA09129*/ 01656000 * IF RQEPRT>=USERKEY THEN /* CALL SMF IF USER KEY @ZA04728*/ 01657000 CLI RQEPRT(RQEREG),X'80' 0478 01658000 BL @RF00478 0478 01659000 * DO; /* @ZA04728*/ 01660000 * RFY 0480 01661000 * (R0, 0480 01662000 * R1, 0480 01663000 * R9, 0480 01664000 * R10, 0480 01665000 * R11, 0480 01666000 * R12, 0480 01667000 * R15) RSTD; 0480 01668000 *COUNT1: /* @ZA09129*/ 01669000 * R0=RQETCB; /* PASS TCB ADDR TO SMF ROUTINE */ 01670000 COUNT1 L R0,RQETCB(,RQEREG) 0481 01671000 * R9=R1; /* SAVE RQE ADDRESS @ZA04728*/ 01672000 LR R9,R1 0482 01673000 * R1=ONE; /* SET INCREMENT TO ONE @ZA04728*/ 01674000 LA R1,1 0483 01675000 * CALL IEASMFEX; /* GO TO SMF */ 01676000 L @05,CVTPTR 0484 01677000 L @15,CVTSMFEX(,@05) 0484 01678000 BALR @14,@15 0484 01679000 * R1=R9; /* RESTORE RQE ADDRESS @ZA04728*/ 01680000 LR R1,R9 0485 01681000 * RFY 0486 01682000 * (R0, 0486 01683000 * R1, 0486 01684000 * R9, 0486 01685000 * R10, 0486 01686000 * R11, 0486 01687000 * R12, 0486 01688000 * R15) UNRSTD; 0486 01689000 * END; /* @ZA04728*/ 01690000 *SMFEND1: /* @ZA09129*/ 01691000 * SAVERG=RQENRQE; /* RESTORE SAVE AREA POINTER */ 01692000 @RF00478 DS 0H 0488 01693000 SMFEND1 L SAVERG,RQENRQE(,RQEREG) 0488 01694000 * GO TO STARTCPX; /* START NEW CP */ 01695000 B STARTCPX 0489 01696000 * RESPECIFY 0490 01697000 * (R14) RSTD; 0490 01698000 *BYPASIOS: 0491 01699000 * 0491 01700000 * /*****************************************************************/ 01701000 * /* */ 01702000 * /* BYPASS FREEING RQE AND POSTING IOB */ 01703000 * /* */ 01704000 * /*****************************************************************/ 01705000 * 0491 01706000 * R14=IOSBYPAS; /* BYPASS - DISPLACEMENT = 8 */ 01707000 BYPASIOS LA R14,8 0491 01708000 * GO TO IOSRET; /* RETURN TO IOS */ 01709000 B IOSRET 0492 01710000 *POSTIOS: 0493 01711000 * 0493 01712000 * /*****************************************************************/ 01713000 * /* */ 01714000 * /* IF BIT 2 OF IOBECBCC IS OFF THEN TURN ON THE ERROR COMPLETION */ 01715000 * /* FLAG IN DCBIFLGS(DCBIFEC) (ONLY FOR RELATED REQUEST) @YM03854*/ 01716000 * /* */ 01717000 * /*****************************************************************/ 01718000 * 0493 01719000 * IF ERRESETF=RESET&IOBUNREL=RESET THEN 0493 01720000 POSTIOS TM ERRESETF(IOBREG),B'00100000' 0493 01721000 BNZ @RF00493 0493 01722000 TM IOBUNREL(IOBREG),B'00000010' 0493 01723000 BNZ @RF00493 0493 01724000 * DCBIFEC=IOSCMPLF; /* SET ERROR FLAG IN DCBIFLGS 0494 01725000 * @ZA00616*/ 01726000 * 0494 01727000 L @15,DEBDCBAD(,DEBREG) 0494 01728000 OI DCBIFEC+40(@15),B'11000000' 0494 01729000 * /*****************************************************************/ 01730000 * /* */ 01731000 * /* IF THE ECB IS NOT BEING WAITED UPON THEN POST THE ECB COMPLETE*/ 01732000 * /* - SINCE THE LOCAL LOCK IS HELD AND ALL I/O IS COMPLETED BEFORE*/ 01733000 * /* CONTROL IS PASSED TO THE USER THE COMPLETION CODE CAN BE MOVED*/ 01734000 * /* INTO THE ECB WITHOUT USING THE POST INTERFACE. THE SKIP RETURN*/ 01735000 * /* IS TAKEN SINCE THE ECB IS POSTED. */ 01736000 * /* */ 01737000 * /*****************************************************************/ 01738000 * 0495 01739000 * IF ECB