Thank you John, I have downloaded it and I will take a look.
Thanks, Etienne On Wed, 1 May 2013 15:17:02 -0500, John McKown <[email protected]> wrote: ><caution>Tooting own horn</caution> > >If you're really curious and have the time, you might want to look at my >contribution to the CBT tape, file #864 from http://cbttape.org/cbtdowns.htm or >you can download it directly via: > >ftp://cbttape.org/ftp/cbt/CBT864.zip > >This is a lot of .s files which are complete LE enabled HLASM UNIX command >line programs. Comes complete with a makefile. One gotcha is that the >source is "free format" and requires that you have the FLOWASM processor >available. But the code is readable without it. Well, FSVO "readable", of >course. > >I would _strongly_ suggest that you take the time and effort to LE enable >your assembler subroutines if you're going to use them with an LE main >routine such as C or COBOL. The debugging from a CEEDUMP is much easier. >And this will greatly ease making your code reentrant. Which, again, I >strongly suggest for UNIX programs since UNIX defaults to loading the code >(TEXT segment) into read-only storage. > >On Wed, May 1, 2013 at 10:27 AM, Etienne Thijsse <[email protected]>wrote: > >> Hi all, >> >> I am trying to call an assembler function from C: >> >> C-code (bla.c): >> >> #pragma linkage(BLA,OS) >> main() >> { >> BLA(); >> printf("No crash.\n"); >> } >> >> Assembler code (bla1.s): >> >> BLA CSECT >> BLA MODE ANY >> >> SAVE (14,12) >> BALR 3,0 >> USING *,3 >> ST 13,SAVE+4 <<<<< crashes here >> >> * todo: add useful code here >> >> L 15,=X'01' >> L 13,SAVE+4 >> RETURN (14,12),RC=(15) >> >> SAVE DS 18F >> END >> >> So the only code in this assembler source is the "standard linkage" stuff, >> which I got from the "MVS Assembler Language" book. >> >> I compiled and linked this under OpenMVS like this: >> >> cc bla.c bla1.s >> >> which gives me an executable 'a.out' in the HFS. >> >> Running this under OpenMVS crashes in the "ST 13,SAVE+4" line, >> SC04. If I comment out that line and the corresponding L13,SAVE+4 line, it >> does not crash anymore. >> I don't understand this... This ST line is part of the standard linkage >> 'protocol'; the area where the ST stores is declared in the SAVE DS 18F >> line at the bottom --- Why does this crash? >> >> What is weirder still is that I can copy a.out to a PDSE member, and >> submit it with some JCL that has CEE.SCEELIB in its STEPLIB; this does not >> crash, without SCEELIB it also crashes. >> Adding CEE.SCEELIB to the STEPLIB environment variable in OpenMVS however >> does not help, it keeps crashing, SC04. >> >> Anyone have an idea? >> >> Thanks, >> Etienne >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> > > > >-- >This is a test of the Emergency Broadcast System. If this had been an >actual emergency, do you really think we'd stick around to tell you? > >Maranatha! <>< >John McKown > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
