echo	START	0
	LDA	#65
	JSUB	char
	JSUB	nl
	LDA	#what
	JSUB	string
	JSUB	nl
	LDA	#123
	JSUB	num
	JSUB	nl
halt 	J	halt

char	WD	dev
	RSUB

nl	STA	a
	LDA	#10
	WD	dev
	LDA 	a
	RSUB

string	STA	a
	STA	b
strlp	LDCH	@a
	COMP	#0
	JEQ	strcup
	WD	dev
	LDA	#1
	ADD	a
	STA	a
	J	strlp
	LDA	b
strcup	
	RSUB

num	STA	aa
	STA	a
	LDA	#buffer
	ADD	#15
	STA	b
numlp	LDA	a
	DIV	#10
	MUL	#10
	SUB	a
	MUL	negone
	COMP	#0
	JEQ	numcup
	ADD	#48
	STCH	@b
	LDA	b
	SUB 	#1
	STA	b
	LDA	a
	DIV	#10
	STA	a
	J	numlp
numcup	LDA	b
	ADD	#1
	STA	a
strll	LDCH	@a
	COMP	#0
	JEQ	strcul
	WD	dev
	LDA	#1
	ADD	a
	STA	a
	J	strll
	LDA	b
strcul	
	LDA	aa
	RSUB


dev	BYTE	1
what	BYTE	C'word'
	BYTE	0
buffer	RESB	16
	BYTE	0
a	RESW	1
b	RESW	1
aa	RESW	1
negone	WORD	-1

	END	echo