6 lines
382 B
Text
6 lines
382 B
Text
desc: .ascid "Hello World!" ;descriptor (len+addr) and text
|
|
.entry hello, ^m<> ;register save mask
|
|
pushaq desc ;address of descriptor
|
|
calls #1, g^lib$put_output ;call with one argument on stack
|
|
ret ;restore registers, clean stack & return
|
|
.end hello ;transfer address for linker
|