On Tue, 25 Dec 2018 12:09:10 -0500, Joseph Reichman wrote: >Thanks > >I have it in a macro and will post the code >.WAIT ANOP > 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 > BASR R14,R15 GO THERE > B *+12 > DC X'0000000000002328' 90 SECOND WAIT > LM 15,2,SAVER > Looks too small. I get about 2 microseconds for that:
500 $ rexx say x2d(2328)/4096 2.19726563 say x2d(2328) 9000 -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
