VECT0	EQU	0B2H
VECT2	EQU	0B6H
BDOS	EQU	5
BASIC	EQU	8048H
MEMTOP	EQU	0A0H
T6416	EQU	0E1H
FILREG	EQU	85A7H
	ORG	32000D
INIT	LD	HL,(VECT0)
	LD	(VECSAV),HL
	LD	HL,OUT0
	LD	(VECT0),HL
	LD	HL,OUT2
	LD	(VECT2),HL
	LD	HL,INIT
	LD	(MEMTOP),HL
	CALL	V6416
	RET
OUT0	PUSH	AF
	LD	A,(MODE)
	OR	A
	CALL	NZ,V6416
	POP	AF
OUT0CH	LD	HL,(VECSAV)
	JP	(HL)
OUT2	PUSH	AF
	LD	A,(MODE)
	OR	A
	CALL	Z,V8024
	POP	AF
OUT2CH	LD	E,A
	LD	C,2
	JP	BDOS
V6416	LD	A,0
	LD	(MODE),A
	LD	A,0CH
	CALL	OUT0CH
	LD	HL,T6416
	JP	FILREG
V8024	LD	A,0FFH
	LD	(MODE),A
	LD	A,1AH
	CALL	OUT2CH
	LD	HL,T8024
	JP	FILREG
	DB	6BH
	DB	50H
	DB	58H
	DB	37H
	DB	1BH
	DB	5
	DB	18H
	DB	19H
	DB	48H
	DB	0AH
	DB	2AH
	DB	0AH
	DB	20H
	DB	0
	DB	0
T8024	DB	0
MODE	DB	0
VECSAV	DW	0
	END