=A(*+10) refers to the address of the 8 byte field loading that address
(address of adcon ltorg) is what I think I should be doing
R1 -> A(of timer field)
Here is the doc
2-14 will be preserved. - On
entry R1 should contain the
address of a standard parameter
list. The parameter list
consists of a fullword that is
the "address" of an 8-byte area
that contains the wait time in
TOD clock format. -
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
retired mainframer
Sent: Wednesday, December 26, 2018 10:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
Look at the assembled contents of your address literal. The * does not
refer to the location of the LA instruction but the address of the literal
itself.
Are you sure that your DC did not skip some bytes to force doubleword
alignment? If it did, your B instruction points to the wrong place. If it
didn't skip for this run, are you sure it won't the next time you make a
change.
What is your aversion to using labels?
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
> Behalf Of Joseph Reichman
> Sent: Wednesday, December 26, 2018 5:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
>
> Thanks
>
> I changed that however doesn't seem like I am getting out of the wait
> as I put a WTO after the code and IT didn't execute
>
> Thanks
>
> WAIT ANOP
> L R15,CVTPTR
> USING CVT,R15 GET CVT ADDRESS
> L R15,CVTECVT
> DROP R15
> USING ECVT,R15 GET ECVT ADDRESS
> L R15,ECVTXTSW X'384'(R15) GET
> ECVTXTSW ADDRESS
> LA R1,=A(*+10) PARAMTER LIST
> BASR R14,R15 GO THERE
> B *+12
> DC FDS12'90E6' 90 SECOND WAIT
> LM 15,2,SAVER
>
>
>
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
> Behalf Of Peter Relson
> Sent: Wednesday, December 26, 2018 8:19 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
>
> > L R15,16 GET CVT ADDRESS
> > L R15,X'8C'(R15) GET ECVT ADDRESS
> > L R15,X'384'(R15) GET ECVTXTSW ADDRESS
> > LA R1,=A(*+10) PARAMTER LIST
>
> Macros such as IHAPSA, CVT, and IHAECVT are provided for a reason --
> so
that
> you don't need to hard-code offsets and in so doing make your code
> less readable and less maintainable.
>
> Why do you avoid them? z/OS macros themselves might hard-code offsets
> because we don't necessarily want to impose a requirement on the
> invoker that they include other macros. But if you're writing your own
> code, you should insist on imposing that requirement on yourself.
>
> Peter Relson
> z/OS Core Technology Design
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu <mailto:lists...@listserv.ua.edu>
> with the
> message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
