; > hello.mac

; PROGRAM INFORMATION
; -------------------
#define _TITLE$		"Hello World"
#define _VERSION%	&00
#define _VERSION$	"0.01 (01 Jan 2001)"
#define _COPYRIGHT$	"(C)J.G.Harston"

; PROGRAM HEADER
; --------------
#include <UnixHdr/mac>

; PROGRAM CODE
; ------------
._ENTRY%
adr  hello,r1			; calculate address of 'hello'
.loop
movb (r1)+,r0			; get byte from r1, inc r1
beq  end			; exit if final byte
jsr  pc,IO_WRCH			; send character to output
br   loop			; loop back
.end
jsr  pc,IO_QUIT			; quit to caller
halt

; INTERFACE CODE
; --------------
#include <BSDIO/mac>

; PROGRAM DATA
; ------------
._DATA%
.hello
equs "Hello world!",10,13
equb 0
align

._BSS%
._END%