.TITLE  HELLO - Hello World Program
        .PSECT  $CODE,NOWRT

START:  .WORD   0
        PUSHAL  MSG             ; Push address of message
        CALLS   #1,G^LIB$PUT_OUTPUT ; Call library routine
        RET                     ; Return to DCL

        .PSECT  $DATA,WRT,NOEXE

MSG:    .ASCID  /Hello, World!/

        .END    START