Thanks, Tom. By the time I started working in mainframes in 1981, PSATOLD was already there.
-----Original Message----- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Tom Harper Sent: 02 September 2020 16:12 To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: Strange code snippet Pieter, This code works fine. The code below was used to get the current TCB address before PSATOLD was introduced with the advent of SRBs. I doubt if changing the code will make any difference one way or the other as it will all be in cache anyway. Tom Sent from my iPhone > On Sep 2, 2020, at 9:59 AM, pw...@mweb.co.za <pw...@mweb.co.za> wrote: > > HI all > I found the following code on 2 different client systems (one of them in an IMS sample user exit). > > L R8,CVTPTR > L R8,CVTTCBP-CVT(,R8) > L R8,4(,R8) > > Can anybody think of a reason why I should not rather use L R8,PSATOLD-PSA ? > > Pieter ---------------------------------------------------------------------------- ---- This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. -- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus
