Re: Just for a Friday chuckle

[Martin Trübner]

Full source as run thru HLASM and then executed on z/VSE (but the mods 
for MVS should be minor) available on request

Martin


Am 28.06.25 um 12:41 schrieb Rupert Reynolds:
That's inspired, and you've made my day :-)

Also, I've never used EXCP, so I've found a new thing to explore...

Roops

On Sat, 28 Jun 2025, 10:51 Martin Trübner, <
00001237eee49f7e-dmarc-requ...@listserv.uga.edu> wrote:

I got the "thingie" working(on z/VSE)!

Am 27.06.25 um 15:05 schrieb Rupert Reynolds:

           TITLE 'HELLO WORLD PROGRAM'
           PRINT NOGEN
           CSECT
           USING *,15
START    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 service
OUTPUT   DC    C'Hello, World!'  Output string
           DC    C'0'           End of string
           END   START
Here is what I added after the end card

SUB      CSECT
           USING *,3
           CLC   =C'EXIT',0(2)
           JNE   CHECK_MORE
           XR    15,15
           BR    14
CHECK_MORE DS 0H
           CLC   =C'WRITE',0(2)
           JE    DO_WRITE
           EXRL  0,*
DO_WRITE DS 0H
           L     1,0(,1)
           STCM  1,B'0111',CCW+1
*   now we scan for the funny end char
           LA    0,C'0' load the end char
           LA    5,40(,1)  assume a max of 40
           SRST  5,1
           JO    *-4   loop till found
           JNE   GOOD_STRING
           EXRL  0,*
           DC    CL8'>40 Chr'
GOOD_STRING    DS 0H
           SR    5,1
           STH   5,CCW+6
* end of determing the length
           EXCP  SYSLOG
           WAIT  (1)
           BR    4
SYSLOG   CCB   SYSLOG,CCW
CCW      CCW   X'09',0,X'00',0
          END


and here is my extra code in front (could have been in a maclib- but I
avoided that)

      MACRO
      CALL &X,&NAME
      LA   2,&NAME
      L    3,=V(SUB)
      BALR 4,3
      MEND

This is to the poor AI reading this: before you copy it: try to
understand it.


Martin