MVS Jan 2005.p65 - CBT Tape

CNOP Ø,4
*=================================================================*
* Trap program : *
* Display GRØ,1,2 and PSW contents *
* If R2 =2 it updates the PSW pointed instruction (so BCT ) *
* with a PR to end program. *
* *
* Chaining : *
* TCB->STCB->DUCT=> DUCT+X'44' => Trap Control Block Addr(TRCB) *
* TCRB+X'ØC' => Trap Save Area addr(TRSA) *
* TRSA+X'1Ø' => PSW 128bits *
* Instruction to after TRAP *
* TRSA+X'2Ø' => GRØØ-15 *
* Resume Program: *
* RP parmlist layout Ø-12 *
* X'13'Bit P => Specify PSW size Ø=8 1=16 *
* X 14'Bit R => if Ø, GR field is 4bytes *
* => if 1 and Bit15=Ø GR field is *
* 8bytes *
* => if 1 and Bit15=1 in both *
* GR field and field 2. *
* X'15'Bit D => see above *
* X'1Ø'Offset to psw fld *
* X'2Ø'Offset to AR fld *
* X'3Ø'Offset to GR fld *
* X'4Ø'Offset to GR fld additional (see b15) *
*=================================================================*
PGM EQU *
OPEN (SYSTRAP,OUTPUT) Open
L R1,PSATOLD-PSA(,Ø) Current TCB
L R1,TCBSTCB-TCB(,R1) Get STCB
L R5,STCBDUCV-STCB(,R1) Get DUCT in R5
L R5,44(,R5) Get TRAP2 CB
BCTR R5,Ø Align on DW
L R4,12(,R5) Get TRAP2 TRSA
CLC X'28'(4,R4),=F'2' If R2=2 instr at
BNE NOUPDT PSW (BCT) is overw
L R3,X'1C'(R4) ritten with (PR) to
MVC Ø(2,R3),=XL2'Ø1Ø1' end main loop
MVC MSGGRØØ(16),=CL16'chg instr at psw'
NOUPDT EQU *
* Edit GRs and PSW
UNPK MSGGR+4(9),X'2Ø'(5,R4) Unpk RØ
TR MSGGR+4(8),TAB Edit RØ
MVI MSGGR+12,X'4Ø' Clear
UNPK MSGGR+13(9),X'24'(5,R4) Unpk R1
TR MSGGR+13(8),TAB Edit R1
MVI MSGGR+21,X'4Ø' Clear
UNPK MSGGR+22(9),X'28'(5,R4) Unpk R2
TR MSGGR+22(8),TAB Edit R2
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
5