RosettaCodeData/Task/Hello-world-Text/360-Assembly/hello-world-text-1.360
2019-09-12 10:33:56 -07:00

10 lines
464 B
Text

HELLO CSECT
USING HELLO,15
LA 1,MSGAREA Point Register 1 to message area
SVC 35 Invoke SVC 35 (Write to Operator)
BR 14 Return
MSGAREA EQU * Message Area
DC AL2(19) Total area length = 19 (Prefix length:4 + Data Length:15)
DC XL2'00' 2 bytes binary of zeros
DC C'Hello world!' Text to be written to system console
END