RosettaCodeData/Task/Hello-world-Line-printer/360-Assembly/hello-world-line-printer.360

HELLO    CSECT
         PRINT NOGEN
         BALR  12,0
         USING *,12
         OPEN  LNPRNTR
         LA    6,HW
         PUT   LNPRNTR
         CLOSE LNPRNTR
         EOJ
LNPRNTR  DTFPR DEVADDR=SYSLST,IOAREA1=L1
L1       DS    0CL133
HW       DC    C'Hello World!'
         END HELLO