Compucolor.org – Virtual Media

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

;	8.79 OVERLAY FOR FORTH V6.78
;	BILL GREENE  16APR84
;
;
	ORG	8205H
START:
	ORG	9558H
	CALL	1331H	;RD

	ORG	9571H
	CALL	132EH	;WR

	ORG	9653H
	CALL	17C8H	;LO

	ORG	9665H
	CALL	17F9H	;S1OUT

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

	ORG	999EH	; '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	9AEBH
	CALL	0AD3H	;FCSEM

	ORG	9B21H
	CALL	17F9H	;S1OUT

	END	START