Compucolor.org – Virtual Media

Listing of file='TALK.SRC;01' on disk='vmedia/comm_pgms-sideA-sector.ccvf'


	ORG	33215
	JMP	LINK
	ORG	33221
	JMP	START
	ORG	40900

	;
	;	ROUTINE TO EDIT INPUT
	;
START:	PUSH	PSW
	MOV	A,E
	ANI	7FH
	CPI	7FH
	JZ	EX2	;IGN DEL
	CPI	0AH
	JZ	EX1	;TAKE LF
	CPI	0DH
	JZ	EX1	;TAKE CR
	CPI	20H
	JC	EX2	;IGN CONTROL CHARACTERS
EX1:	MOV	E,A
	POP	PSW
	JMP	39DCH
EX2:	POP	PSW
	RET
	;
	;	SET UP LINKAGE
	;
LINK:	PUSH	PSW
	MVI	A,31
	STA	81E3H	;INP FLAG
	MVI	A,84H
	OUT	5	;BAUD RATE
	MVI	A,14
	STA	33247	;KB FLAG
	POP	PSW
	RET
	END	START