For comparison, years ago I sent this (without the eyecatcher) to someone who had just installed Volker Bandke's Tur(n)key 3.
It's probably a bit 'old school', but does anyone care to comment on whether eyecatchers are any use these days, and I did I get that bit right? I'm a bit rusty. I still assembles and runs in TEST on TK5. (needs 'SYS2.MACLIB' for REGEQU) HELLO CSECT > REGEQU R0 EQU 0, R1 EQU 1, etc. > USING *,R15 > B EYEEND Branch over eye-catcher > EYECATCH DC YL1(EYEEND-EYECATCH) Length of dump eye-catcher > DC C'HELLO' > EYEEND DS 0H > STM R14,R12,12(R13) Housekeeping, save caller regs > LR R12,R15 Load our base reg > DROP R15 > USING HELLO,R12 ...and use it > * Chain save areas properly > * ...for easy dump reading > LA R15,REGSAVE Temp. address of save area > ST R15,8(,R13) Caller save area points to ours > ST R13,REGSAVE+4 Our save area points to callers > LR R13,R15 Save area for when we call > * > * > TPUT =C'Goodbye, planet!',16 Hello, world? > * > L R13,REGSAVE+4 Point back to caller save area > LM R14,R12,12(R13) Housekeeping, restore regs > LA R15,0 RC=0 > BR R14 Return to caller > * > REGSAVE DS 18F Register save area > * > END > Roops On Fri, 27 Jun 2025 at 19:17, martin < [email protected]> wrote: > Roops, I can vision an assembler that would translate the whole thingie ( > i do not dare to call it program) and use the output as data for a poke (in > a langsamer that has that) or an assign-stmt and invoke this later.With > HLASM it needs some extras in the CALL macro to translate the weired > CALL.I did stuff like that to generate data for AMASZAP.But it is dangerous > to sell that as Assembler.MartinVon meinem/meiner Galaxy gesendet > -------- Ursprüngliche Nachricht --------Von: Rupert Reynolds < > [email protected]> Datum: 27.06.25 15:05 (GMT+01:00) An: > [email protected] Betreff: Just for a Friday chuckle I > don't want to start a discussion about 'AI'/LLM, as it's been > donealready.That said, this was submitted this as a "Hello world" in > mainframe assembly TITLE 'HELLO WORLD PROGRAM' PRINT > NOGEN CSECT USING *,15START LA 1,=A(OUTPUT) Load > address of OUTPUT into register 1 CALL 14,=C'WRITE' Call the > WRITE service CALL 14,=C'EXIT' Call the EXIT serviceOUTPUT > DC C'Hello, World!' Output string DC C'0' End of > string END STARTI... erm...My favourite bit is the c'0' at the > end :-)Roops
