/ vim: set sw=8 noexpandtab :

*200

START,	CLA
	TAD SMC
	DCA SAVED

LOOP,	ISZ SMC
SMC,	JMP VEC
SAVED,	0

VEC,	0
	JMP FOO
	JMP BAR
	JMP RESET

FOO,	CLA
	TAD FOOSTR
	JMS PUTS
	JMP LOOP

BAR,	CLA
	TAD BARSTR
	JMS PUTS
	JMP LOOP

RESET,	CLA
	TAD SAVED
	DCA SMC
	JMP LOOP

PUTS,	0
	DCA 10
PUTSL,	CLA
	TAD I 10
	SNA
	JMP PUTSX
	JMS PUTC
	JMP PUTSL
PUTSX,	JMP I PUTS

PUTC,	0
	TLS
	TSF
	JMP .-1
	JMP I PUTC

FOOSTR,	.
	"F
	"o
	"o
	15
	12
	0

BARSTR,	.
	"B
	"a
	"r
	15
	12
	0

$