John Summerfield <[EMAIL PROTECTED]>
>
> On Wed, 16 Jul 2003, Kanter, Mauri wrote:
>
> > To slightly modify IEFBR14 processing some sites coded home written 'user
> > exits' :-)
>
> In early MVS, IBM modified to code to something like this:
> IEFBR14 CSECT
> B THERE-*(0,15)
> DC AL1(THERE-*),C"COPYRIGHT 9999 IBM CORP INC'
> THERE SR 15,15
> BR 14
> END IEFBR14
>
> No joke.
So - perhaps a better Linux version would be:
main CSECT
main ALIAS C'main'
balr 13,0
using *,13
b there
DC AL1(there-*),C'No Copyright'
there DS 0H
sr 2,2
br 14
end
This starts to get into the specifics of Linux linkage
and return values (using R13 as the base register, R2
as the return value register.) But, that seems to be
appropriately analogous :-) And, of course, this
would assemble and run "correctly" using Systems/ASM
for Linux.
- Dave Rivers -
>
> >
> > -----Original Message-----
> > From: John Summerfield [mailto:[EMAIL PROTECTED]
> > Sent: Wednesday, July 16, 2003 3:47 AM
> > To: [EMAIL PROTECTED]
> > Subject: Re: Dignus announces Systems/ASM V1.70
> >
> >
> > On Tue, 15 Jul 2003, Tom Duerbusch wrote:
> >
> > > APAR that puppy....it doesn't set the return code.
> > >
> > > IEFBR14 also had the same problem.
> >
> > And a few others;-)
> >
> >
> > --
> >
> >
> > Cheers
> > John.
> >
> > Join the "Linux Support by Small Businesses" list at
> > http://mail.computerdatasafe.com.au/mailman/listinfo/lssb
> > Copyright John Summerfield. Reproduction prohibited.
> >
>
> --
>
>
> Cheers
> John.
>
> Join the "Linux Support by Small Businesses" list at
> http://mail.computerdatasafe.com.au/mailman/listinfo/lssb
> Copyright John Summerfield. Reproduction prohibited.
>
