Compucolor.org – Virtual Media

Listing of file='4OVR79.SRC;01' on disk='vmedia/chip_120-sector.ccvf'

;	8.79 OVERLAY FOR FORTH V6.78
;	BILL GREENE  30MAR84
;
;
	ORG	4205H
START:
	ORG	5358H
	CALL	1331H	;RD

	ORG	5371H
	CALL	132EH	;WR

	ORG	5453H
	CALL	17C8H	;LO

	ORG	5465H
	CALL	17F9H	;S1OUT

	ORG	546CH	;INPUT EDITING
	CALL	17C8H	;LO
	MVI	A,' '	;SPACE
	CALL	17C8H	;LO
	MVI	A,26	;BACKSPACE
	JMP	17C8H	;LO

	ORG	579EH	; 'BYE', EXIT TO FCS ROUTINE

	LXI	SP,8042H;STACK(V9.80) - USE 8042H FOR V8.79
	LXI	H,81DFH	;KBDFL
	LXI	D,01B6H	;BEGIN
	PUSH	D
	JMP	16FFH	;ESCD

	ORG	58EBH
	CALL	0AD3H	;FCSEM

	ORG	5921H
	CALL	17F9H	;S1OUT

	END	START