wboot		equ	1
charmat		equ	0b800h
scrrunroutine	equ	000e9h

	cseg

	db	0,0,0,0,0,0
	jp	start
next:	db	0c3h
	dw	0
prev:	dw	0
remov:	db	0ffh
nbank:	db	0
	db	'NCHARSET'
loader:	db	0
	db	0,0

start:	
	ld	a,c
	cp	73
	jp	z,begin
	jp	next

begin:	
	ld	de,buffer
	ld	bc,9
	ldir			; Move parms to high mem before switch

	ld	hl,(wboot)
	ld	de,87
	add	hl,de
	ld	(cjfirm),hl

	ld	hl,buffer
	ld	bc,code
	call	entfw
	dw	scrrunroutine

	ret

entfw:	db	0c3h
cjfirm:	dw	0

code:
	ld	a,(hl)		; Get char nunber
	inc	hl
	push	hl
	ld	l,a
	ld	h,0
	add	hl,hl
	add	hl,hl
	add	hl,hl
	ld	de,charmat
	add	hl,de
	push	hl
	pop	de
	pop	hl
	ld	bc,8
	ldir
	ret

buffer:
	ds	10
	end