I asked ChatGPT for an example HLASM program. Here's what I got:

         BALR    R9,0             Set the base register
         USING   *,R9             Establish a base register
         LR      R3,R9            Load the base register into R3
         LA      R4,ARRAY         Load the address of the array into R4
         LA      R5,SIZE          Load the size of the array into R5
         L       R6,0(R4)         Load the first element of the array into
R6
         L       R7,=F'0'         Initialize the sum to zero
LOOP     AR      R7,R6            Add the current element to the sum
         A       R4,=F'4'         Move to the next element of the array
         LA      R8,1(0,R4)       Load the address of the next element into
R8
         L       R6,0(R8)         Load the next element into R6
         CR      R4,R5            Compare the current element to the end of
the array
         BNE     LOOP             Branch back to LOOP if not at the end of
the array
         BR      R14              Return to the caller
ARRAY    DC      F'1'             Array of numbers
         DC      F'2'
         DC      F'3'
         DC      F'4'
         DC      F'5'
SIZE     DC      F'5'             Size of the array

Of course, there are a lot of problems with this, such as no CSECT and no
END. But I was amazed it had anything at all.It's fun to play with.

Reply via email to