MVS Jan 2005.p65 - CBT Tape

BAKR R14,Ø
LR R12,R15
USING MYTRAP2,R12
* Begin: Prepare TRAP2 environement
L R1,PSATOLD-PSA(,Ø) Current TCB
L R1,TCBSTCB-TCB(,R1) Get STCB
L R5,STCBDUCV-STCB(,R1) Get DUCT in R5
MODESET MODE=SUP,KEY=ZERO Get into Key Ø
LA R7,TRPR Load TRAP CB addr
O R7,=XL4'ØØØØØØØ1' Bit E (31) = on
ST R7,44(,R5) Store CB in DUCT
* Main Routine Loop
LA R2,8 Loop limit
LOOP EQU *
M RØ,=F'2' Multiply R1 by 2
LA R15,98 Just for test
TRAP2 TRAP
BCT R2,LOOP Loop
B EXIT Exit
CNOP Ø,8
*=================================================================*
* Tran Control Block *
* Offset *
* X'ØØ' => 'xxxxxxxxxxxxxPRxxxxxxxxxxxxxxxxx' *
* Bit 13 and 14 controls the use of current PSW bit 31 *
* the use of current PSW bit 12 and 33-127*
* if P=X'ØØ' Current PSWbit31 must be zero *
* Current PSWbit12 will be set to one *
* Current PSWbit97-127 will be stored in *
* PSWfield33-63 *
* Current PSWbit33-96 will not be stored in *
* PSWfield and zero are put in *
* PSWfield64-127 *
* if P=X'Ø1' Current PSWbit31 can be zero or one. *
* Current PSWbit12 will be store in *
* PSWField12 *
* Current PSWbit64-127 will be stored in *
* PSWfieldbit64-127 *
* if R=X'ØØ' GRs bit32-63 stored in four-bytes location *
* from GR field (GRs bitØ-31 not stored) *
* if R=X'Ø1' GRs bitØØ-63 stored in eightbytes location *
* from GR field . *
*=================================================================*
TRPR DS ØF
DC BL4'ØØØØØØØØØØØØØ1ØØØØØØØØØØØØØØØØØØ' Bit P=1,R=Ø
DC F'Ø',F'Ø' Reserved
TRSA DC A(SA) Save area Addr
DC F'Ø' Reserved
TRPGM DC A(PGM) Trap program addr
DC 8F'Ø' Reserved
4 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.