MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
MVI MSGGR+3Ø,X'4Ø' Clear<br />
UNPK MSGGR+31(9),X'1Ø'(5,R4) Unpk PSW Ø-31<br />
TR MSGGR+31(8),TAB edit PSW<br />
MVI MSGGR+39,X'4Ø' clear<br />
UNPK MSGGR+4Ø(9),X'1C'(5,R4) Unpk PSW 64-127<br />
TR MSGGR+4Ø(8),TAB edit PSW<br />
MVI MSGGR+48,X'4Ø' clear<br />
PUT SYSTRAP,MSGGRØØ Print<br />
* Prepare Resume Program (RP)<br />
MVC PPSW(16),16(R4) Return PSW<br />
MVC GR1(4),92(R4) Restore R15<br />
LA R15,PARM Load Parm for RP<br />
LM RØ,R14,32(R4) Restore register<br />
RP Ø(R15) Resume program<br />
PARM DC B'ØØØØØØØØØØØØØ1ØØ' Bit P=1 R=Ø D=Ø<br />
DC Y(PPSW-PARM) 16-31 offset to psw<br />
DC Y(AR1-PARM) 32-47 offset to AR<br />
DC Y(GR1-PARM) 48-63 Replace R15<br />
* (GR b2 of RP instr)<br />
PPSW DC 2D'Ø' RP PSW<br />
AR1 DC F'Ø' RP AR<br />
GR1 DC F'Ø' RP GR<br />
DC F'Ø' RP GR Addtionnal<br />
CNOP Ø,4<br />
MSGGRØØ DC CL16'GRØ GR1 GR2 PSW:'<br />
MSGGR DC CL2ØØ' '<br />
SYSTRAP DCB DDNAME=SYSTRAP,MACRF=PM,DSORG=PS,LRECL=2ØØ,RECFM=FB<br />
CNOP Ø,4<br />
TAB DC 15XL16'ØØ'<br />
DC C'Ø123456789ABCDEF'<br />
EXIT EQU *<br />
XR R15,R15<br />
PR return to <strong>MVS</strong><br />
CNOP Ø,8<br />
SA DS 64F<br />
RØ EQU Ø<br />
R1 EQU 1<br />
R2 EQU 2<br />
R3 EQU 3<br />
R4 EQU 4<br />
R5 EQU 5<br />
R6 EQU 6<br />
R7 EQU 7<br />
R8 EQU 8<br />
R9 EQU 9<br />
R1Ø EQU 1Ø<br />
R11 EQU 11<br />
R12 EQU 12<br />
R13 EQU 13<br />
R14 EQU 14<br />
6 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.