> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Mark Zelden
>
> On Thu, 19 Jan 2006 06:52:33 -0600, Chase, John
> <[EMAIL PROTECTED]> wrote:
>
> >Well, here's a Q&D program that will just loop "for a long time":
> >
> >LOOPER CSECT ,
> >LOOPER RMODE ANY in case you're storage-constrained :-)
> > USING *,15
> > STM 14,12,12(,3) save caller's regs
> > SR 2,2 zero outer loop counter
> > SR 3,3 zero inner loop counter
> >LOOP EQU *
> > BCT 3,LOOP iterate inner
> > BCT 2,LOOP iterate outer
> > LM 14,12,12(13) restore caller's regs
> > SR 15,15 set rc=0
> > BR 14 return to caller
> > END LOOPER
> >
>
> How about IEFBR15? ;-)
Not "self-correcting" (won't eventually end). :-)
Now all we need are a few estimates how long LOOPER would run on various
processors if not cancelled....
-jc-
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
