solon	equ	0		; enables solos phantom
soloff	equ	1		; disables solos phantom

	org	00248h

	db	16		; set HITE
	db	64		; set WID

	org	002a4h

	jmp	unscroll	; go fix the screen

	org	002aah

	db	0ffh		; set USELST

	org	002aeh

	db	000h		; clear DELCUS
	db	000h		; clear DELMIS

	org	002b0h

	db	0ffh		; set MEMAPV
	dw	0cc00h		; MEMADR is 0cc00h
	db	0ffh		; set HIBIV
	db	0ffh		; set HIBCUR
	db	0ffh		; set CRBLIV

	org	002c3h

	mvi	a,solon		; SWIN routine
	out	0fch
	ret

	org	002c9h		; SWOUT routine

	mvi	a,soloff
	out	0fch
	ret

	org	002e0h

MORPAT:

unscroll:			; unscroll the screen
	xra	a
	out	0feh
	ret

	org	00360h		; set initial help level to 2

ITHELP:
	db	2

	org	00717h		; send char to port driver

CSWTCH:
	db	1

	org	00392h		; set default to N mode

NONDOC:
	db	0ffh

	org	00728h		; port driver

POBSY:				; port driver status entry
	in	0f8h
	nop
	ani	082h
	xri	080h
	stc
	rnz
	ora	a
	ret

	org	00733h

POSEND:				; port driver send char entry
	out	0f9h
	nop
	ret

POINP:				; port driver input char entry (not used)
	nop
	stc
	ret

	end