Would 
> This is refreshable, and even runs on S/360

          PTR      DC    A(0)
label L     R15,PTR
          LTR   R15,R15
          BNZ   CALLIT
          ...        ...                                    Code that always 
leaves the same value in R15
          ST    R15,PTR
 CALLIT   BALR  R14,R15

Still incur cache flush?

> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
> Behalf Of Seymour J Metz
> Sent: Sunday, February 07, 2021 6:38 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: LINK vs LOAD/CALL
> 
> This is refreshable, and even runs on S/360
> 
>          L     R15,PTR
>          LTR   R15,R15
>          BNZ   CALLIT
>          ...        ...                                    Code that always 
> leaves the same value in R15
>          ST    R15,PTR
> CALLIT   BALR  R14,R15
>          ...
> PTR      DC    A(0)
> 
> This is reentrant, and requires at least S/370
> 
> RETRY    L     R1,COUNTER
>          LA    R0,1(,R1)
>          CS    R1,,R0,COUNTER
>          BNE   RETRY
>          ...
> COUNTER  DC    F'0'
> 
> I would consider either to be bad form.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!JmPEg
> BY0HMszNaDT!-
> 1NaByIe2DdFVQi57azbuR3UW5HAMXlA4KDajF5k5WLAnbGJyoxt244VTE368g
> $
> 
> ________________________________________
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
> behalf of Binyamin Dissen [bdis...@dissensoftware.com]
> Sent: Sunday, February 7, 2021 1:40 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: LINK vs LOAD/CALL
> 
> On Sun, 7 Feb 2021 16:52:55 +0000 Seymour J Metz <sme...@gmu.edu>
> wrote:
> 
> :>Second, you can write code that is reentrant and refreshable, modifies
> itself .......
> 
> Only possible if it modifies itself but pays no attention to the modified
> area.
> 
> Not really relevant.
> 
> --
> Binyamin Dissen <bdis...@dissensoftware.com>
> https://urldefense.com/v3/__http://secure-
> web.cisco.com/19fzBBFfAFBx8PysD0V3qJwF9qE3g50-
> el2X9G9hk1S6e6J1OJCsS3iW5Z4sW_eIxmVeSUtphiZ1F_hVA17R0eQ0sISoKma
> je1LKLxW5hXXG57Bhp2jgb7tfsyTUCz7uR3oi_3QvypHyqrkZbk90NkCCElTsVY_
> WlQLUN3ZGkDG1kO6WKuK6QjZMrhjWBiYf0C9yl8O8I4qv3EpHVq2VRzt08kpx
> pmxsg6gnybjtHX8YvBuUnV69On_Zzc0LY2kT7e31qhCg19eAfUSCspghB948WQ
> 7TW-XVS3W0hjnawFDJuSq_Gu6Ik-pJsBZ9JBai6AHJCbw-
> 0jDqyvmh1mpiJaD4SemvF8t211o_Xhkk4-
> K9gYDgDLDpWbiole96yIwNk6hI6rfM33dkqiO-
> w6cJY6yIpcdBe1cjlMlsHJsUJGWjQHoOCTBflbOxTayrH2erW/http*3A*2F*2Fw
> ww.dissensoftware.com__;JSUl!!JmPEgBY0HMszNaDT!-
> 1NaByIe2DdFVQi57azbuR3UW5HAMXlA4KDajF5k5WLAnbGJyoxt2452VV_WR
> A$
> 
> Director, Dissen Software, Bar & Grill - Israel
> 
> 
> Should you use the mailblocks package and expect a response from me,
> you should preauthorize the dissensoftware.com domain.
> 
> I very rarely bother responding to challenge/response systems,
> especially those from irresponsible companies.
> 
> ----------------------------------------------------------------------
> 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

Reply via email to