HELLO    CSECT
         STM   14,12,12(13)
         BALR  12,0
         USING *,12
         LA    15,SAVEAREA
         ST    13,4(15)
         ST    15,8(13)
         LR    13,15

         WTO   'Hello, World!',ROUTCDE=11

         L     13,4(13)
         LM    14,12,12(13)
         SR    15,15
         BR    14

SAVEAREA DS    18F
         END   HELLO