[h316.git] / lib / hachti / src / tt$low.asm

* 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
Commit	Line	Data
23208140	1	* TELETYPE LOW LEVEL I/O
	2	*
	3	* CALL TT$IN(BUFFER,COUNT)
	4	*
	5	SUBR TT$IN,KRD
	6	*
	7	*
	8	REL
	9	ORG 0
	10	KRD DAC *
	11	LDA* KRD GET POINTER
	12	STA PTR
	13	IRS KRD
	14	LDA* KRD
	15	STA CNT
	16	IRS KRD
	17	IRS KRD
	18	*
	19	OCP 4
	20	*
	21	*********
	22	LOOP JST GETC
	23	STA HI
	24	ANA ='177
	25	SUB =13
	26	SNZ
	27	JMP EHI
	28	JST GETC
	29	STA LO
	30	ANA ='177
	31	SUB =13
	32	SNZ
	33	JMP ELO
	34	IRS* CNT
	35	IRS* CNT
	36	LDA HI
	37	ALS 8
	38	ADD LO
	39	STA* PTR
	40	IRS PTR
	41	JMP LOOP
	42	***********
	43	EHI CRA
	44	STA* PTR
	45	IRS PTR
	46	STA* PTR
	47	JMP* KRD
	48	*
	49	ELO LDA HI
	50	ALS 8
	51	STA* PTR
	52	IRS PTR
	53	CRA
	54	STA* PTR
	55	IRS* CNT
	56	JMP* KRD
	57	*
	58	PTR DAC **
	59	CNT DAC **
	60	HI DAC 0
	61	LO DAC 0
	62	*
	63	******
	64	GETC DAC *
65	INA '1004
66	JMP *-1
67	JMP* GETC
68	******
69	END