TITLE 'IGC084 ---- STORE BUFFER RESTART ADDRESS' D11 03000000 *STATUS: CHANGE LEVEL 000 06000002 *FUNCTION/OPERATION: STORES THE BUFFER RESTART ADDRESS IN THE UCB 09000002 *ENTRY POINT: IGC084 D11 12000000 *INPUT: IN REGISTER 0 -THE 16 HIGH ORDER BITS CONTAIN THE BUFFER 14000000 * RESTART ADDRESS; THE 16 LOW ORDER BITS CONTAIN THE ADDRESS OF 16000000 * THE UCB. 18000000 * IN REGISTER 1-ADDRESS DCB LG @ZM2358 21050000 *OUTPUT: THE BUFFER RESTART ADDRESS STORED IN THE UCB 24000002 *EXTERNAL ROUTINES: DEBCHK(VIA BRANCH ENTRY) D11 27000000 *EXITS-NORMAL: RETURN TO GIOCR VIA REG14 30000002 * -ERRORS: NONE 33000002 *TABLES/WORK AREAS: NONE 36000002 *ATTRIBUTES: TYPE 1, RESIDENT, SUPERVISOR STATE, REENTRANT 39000002 *NOTES - NONE 42000002 EJECT 45000002 IGC084 CSECT 48000002 *C630000,840000 LF YM4067 48050002 *A84100-849500,A720500-723000,A540500-54900,A550000 LG @ZM2358 48060000 *D570000-630000 LG @ZM2358 48070000 *A547650-547950,660200,847200 D11 ZA04879 48080000 *C546000-546500,A547000 D11 ZA04880 48090000 *A547960-547980,A660300 D11 ZA13198 48990000 *A54220002,C54760002,A72125002 D11 ZA13201 49890000 EJECT D11 51000000 BALR BASE,0 EST BASE REG 52000000 USING *,BASE AM USING REG 12 54000002 B MODID HOP AROUND EYECATCHER 54010000 DC C' IGC084.VS2R3.&SYSDATE' MODULE EYECATCHER 54040000 MODID LR R8,REGZERO SAVE REGISTER 0 LG @ZM2358 54070000 LR R5,REGONE SAVE REGISTER 1 LG @ZM2358 54100000 LR R6,REG14 SAVE REGISTER 14 LG @ZM2358 54150000 L DEBREG,DCBDEB(DCBREG) LD DEB ADDR LG @ZM2358 54200000 LR R2,DEBREG THO I WALK THRU THE SHADOW OF MVS D11 ZA13201 54220000 USING CVT,CVTREG BASE FOR CVT LG @ZM2358 54250000 USING CVTXTNT2,CVTEXTRG BASE FOR EXT2 LG @ZM2358 54300000 L CVTREG,CVTPTR LD ADDR CVT LG @ZM2358 54350000 L CVTEXTRG,CVTEXT2 LD ADDR EXT2 LG @ZM2358 54400000 L TCBREG,CVTTCBP LD TCB PTRS LG @ZM2358 54450000 L ASCBREG,CRNTASCB(TCBREG) LD ADR CURR ASCB LG @ZM2358 54500000 L TCBREG,CRRNTTCB(TCBREG) LD ADR CURR TCB LG @ZM2358 54550000 L BRREG,CVTDEBVR LD ADDR DEBVERIFY LG @ZM2358 54560000 SR REGZERO,REGZERO CLR REG 0 LG @ZM2358 54570000 BALR REG14,BRREG GO TO DEB VERIFY LG @ZM2358 54580000 B GOODEB DEB IS GOOD (+0) D11 ZA04880 54600000 B LEAVE DEB IS INVALID (+4) D11 YA04880 54650000 GOODEB SRDL R8,SIXTEEN SHIFT UCB TO REG 9 D11 YA04880 54700000 SRL R9,SIXTEEN RIGHT JUSTIFY UCB@ LG @ZM2358 54750000 LR R5,R2 I SHALL NOT FEAR DEBCHECK D11 ZA13201 54760000 SR R11,R11 FOR IC D11 YA04879 54765000 IC R11,NUMUCB(R5) GET NUMUCBS FROM DEB D11 YA04879 54770000 SLL R11,2 X4(EACH DSCRPTR 4 LONG) D11 YA04879 54775000 LA R11,32(R11,R5) DEBADR+DEBLEN+NUMUCBS(EACH4) D11 YA04879 54780000 * PREV INSTR POINTS R11 TO 1ST SBRTN LOADED BY OPEN D11 YA04879 54785000 CLC 0(2,R11),SBNAME BETTER BE 'OA'!! D11 YA04879 54790000 BNE LEAVE ITS NOT,SO NOT GAM,SO INVALID DEB D11 YA04879 54795000 CLC GUCBTYP(2,R9),G2250 PASSED UCB A 2250? D11 ZA13198 54796000 BNE LEAVE NO,SORRY BOUT THAT D11 ZA13198 54797000 CLM R9,SEVEN,DEBUCB(R5) IS PASSED UCB VALID? LG @ZM2358 54800000 BNE LEAVE NO...LEAVE LG @ZM2358 54850000 STH R8,UCBBSTR(R9) STR RESTART ADDRESS LG @ZM2358 54900000 LEAVE EQU * 54950000 LR REG14,R6 RESTORE RETURN REG LG @ZM2358 55000000 BR REG14 RETURN TO GIOCR 66000002 SBNAME DC C'OA' LST 2CHRS 1ST GAM MOD LOADED BY OPEN D11 YA04879 66020000 G2250 DC X'1002' 2250 DEVTYPE IN UCB D11 ZA13198 66030000 PATCH DS 0F D11 @ZM2358 66050000 DC 40X'FF' 40 BYTE PATCH AREA D11 @ZM2358 67050000 REGZERO EQU 0 REGISTER 0 69000002 REGONE EQU 1 REGISTER 1 72000002 DCBREG EQU 1 LG @ZM2358 72050000 DEBREG EQU 1 LG @ZM2358 72100000 R2 EQU 2 SAFE HOLDER FOR DEBADDR D11 ZA13201 72120000 CVTREG EQU 3 LG @ZM2358 72150000 CVTEXTRG EQU 4 LG @ZM2358 72200000 R5 EQU 5 LG @ZM2358 72250000 R6 EQU 6 GENERAL REG 6 LG @ZM2358 72260000 ASCBREG EQU 7 LG @ZM2358 72300000 TCBREG EQU 10 LG @ZM2358 72350000 BASE EQU 12 BASE REGISTER 75000002 REG14 EQU 14 RETURN REGISTER 78000002 SIXTEEN EQU 16 CONSTANT 81000002 UCBBSTR EQU 24 BUFFER RESTART ADDR LF YM4067 84000002 GUCBTYP EQU 18 UCBTYPE DISPL IN UCB D11 84100000 R8 EQU 8 WORK REGISTER LG @ZM2358 84120000 R9 EQU 9 WORK REGISTER LG @ZM2358 84150000 R11 EQU 11 WORK REGISTER LG @ZM2358 84250000 R15 EQU 15 WORK REGISTER LG @ZM2358 84300000 SEVEN EQU 7 VALUE OF 7 LG @ZM2358 84600000 DEBUCB EQU 33 DISP OF UCB IN DEB LG @ZM2358 84650000 DCBDEB EQU 44 DISP DEB IN DCB LG @ZM2358 84700000 NUMUCB EQU 16 DISPL IN DEB OF NUMUCBS BYTE D11 YA04879 84720000 CRNTASCB EQU 12 LG @ZM2358 84750000 BRREG EQU 15 LG @ZM2358 84800000 CRRNTTCB EQU 4 LG @ZM2358 84850000 CVT DSECT LG @ZM2358 84900000 CVT LIST=YES LG @ZM2358 84950000 END 87000002