There's also ASMDREG. Not sure it it's in SYS1.MACLIB or the HLASM toolkit maclib
-----Original Message----- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Charles Mills Sent: 21 April 2017 01:22 To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help Not sure what your question is? - Does using index registers as opposed to base registers hurt performance? Maybe. Who knows anymore. "It depends." They don't help. They also add an astonishment factor if you ever end up in AR mode. - Is there an AGI instruction? I don't think so, but there is an AGFI. What is the relevance here? Yes, if you had minimum wage for every hour that programmers have spent defining their own register equates you could retire AND buy yourself a z13 to play with. I don't think IBM provides an official and generic set of equates but IIRC there is one in TCPIP.SEZACMAC. Yes, if you really wanted to make life H3ll on your successors you could use R0 EQU 5 R1 EQU 2 etc. Charles -----Original Message----- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, April 20, 2017 3:56 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-20, at 14:14, Charles Mills wrote: > Is this routine run millions of times? Is performance important? If so > > LA R4,THATCLOK Address save area > LG GR7,0(R4) Load address into 64 bit register > > is doing things the hard way. Why not just LG GR7,THATCLOK? Same for E1970, MILL16 and THISCLOK. > I was wondering about that, also. I surmised his mother was traumatized during gestation by a CDC 6600. > If you are going to do LG GR7,0(R4) then 0(,R4) is better. > Is that still true? Performance? Is there an AGI (whatever) on R0? > -----Original Message----- > From: Ward, Mike S > Sent: 20 April 2017 21:21 > ... > Thanks for the help everyone. I used a combination of Tony's, Peter's, > and Aldo's routines to do my routine. It also led me to do further study of these instructions in the poop. > I believe this is working. > You might test it against the TOD examples in the PoOp. > ... > R0 EQU 0,,,,GR32 > ... > GRF EQU 15,,,,GR64 > I shudder to think. Isn't there a library macro for that stuff? Used to be YREGS. I shudder especially that every programmer might equate idiosyncratic symbols. -- gil --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus
