> L R1,16 CVT POINTER
> L R1,0(R1) TCB TABLE
> L R1,4(R1) OWN TCB
FWIW, the above sequence hasn't been necessary for probably 25+ years (it
does still work). Instead
L R1,X'21C'(0,0) PSATOLD, address of this TCB
Similarly, PSAAOLD for the ASCB.
By the way, using the form that loads the CVT pointer (or TCB pointer,
etc) with "(0,0)" or "(,0)" will avoid a warning from the assembler's
"flag(page0)". We have found that option to be very useful.
Peter Relson
z/OS Core Technology Design
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
