	NAM	HELLO
	OPT	M,NOG
*
* MINIMAL "HELLO WORLD!" PROGRAM
*
OUTCH	EQU	$FF81		;OUTPUT CHARACTER IN MONITOR
MON	EQU	$FFAB		;MONITOR MAIN LOOP
CR	EQU	$0D		;ASCII CARRIAGE RETURN
LF	EQU	$0A		;ASCII LINE FEED
*
* START OF CODE
*
	ORG	$5000
	LDX	#MHELLO		;X->MESSAGE
*
DSPCHAR	LDAB	0,X		;DISPLAY NEXT CHAR
	BEQ	JMPMON		;DONE
	JSR	OUTCH
	INX
	BRA	DSPCHAR
*
JMPMON	JMP	MON		;EXIT TO MONITOR
*
MHELLO	FCB	CR,LF,LF
	FCC	"ALTAIR 680"
	FCB	LF,0

	END
