.code

cat	START	0

	CLEAR	X

read	RD	#0
	STCH	BUFF, X
	COMP	#10	. \n
	JEQ	cont
	TIX	#bufflen
	JLT	read


cont 	CLEAR	X
print	LDCH	BUFF, X
	WD	#1
	TIX	#bufflen
	COMP	#0
	JGT	print

halt	J	halt


.data
	
BUFF	RESB	128
	BYTE	0
buffend	EQU	*
bufflen	EQU	buffend - BUFF - 1


	END	cat