13 lines
291 B
Text
13 lines
291 B
Text
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
|