that makes sense- but apparently the AI did not read it.
Martin
Am 27.06.25 um 21:50 schrieb Rupert Reynolds:
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 <
00001237eee49f7e-dmarc-requ...@listserv.uga.edu> 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 <
rreyno...@cix.co.uk> Datum: 27.06.25 15:05 (GMT+01:00) An:
ASSEMBLER-LIST@LISTSERV.UGA.EDU 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
