* TELETYPE LOW LEVEL I/O
* 
*       CALL    TT$IN(BUFFER,COUNT)
* 
	SUBR	TT$IN,KRD
* 
* 
	REL
	ORG	0
KRD	DAC	*
	LDA*	KRD	GET POINTER
	STA	PTR
	IRS	KRD
	LDA*	KRD
	STA	CNT
	IRS	KRD
	IRS	KRD
* 
	OCP	4
* 
*********
LOOP	JST	GETC
	STA	HI
	ANA	='177
	SUB	=13
	SNZ
	JMP	EHI
	JST	GETC
	STA	LO
	ANA	='177
	SUB	=13
	SNZ
	JMP	ELO
	IRS*	CNT
	IRS*	CNT
	LDA	HI
	ALS	8
	ADD	LO
	STA*	PTR
	IRS	PTR
	JMP	LOOP
***********
EHI	CRA
	STA*	PTR
	IRS	PTR
	STA*	PTR
	JMP*	KRD
* 
ELO	LDA	HI
	ALS	8
	STA*	PTR
	IRS	PTR
	CRA
	STA*	PTR
	IRS*	CNT
	JMP*	KRD
* 
PTR	DAC	**
CNT	DAC	**
HI	DAC	0
LO	DAC	0
* 
******
GETC	DAC	*
	INA	'1004
	JMP	*-1
	JMP*	GETC
******
	END