wboot		equ	1
charmat		equ	0b800h
scrrunroutine	equ	000e9h

	cseg

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

start:		
	mov	a,c
	cpi	73
	jz	begin
	jmp	next

begin:		
	lxi	d,buffer
	lxi	b,9
	db	0edh,0b0h	;move parms to high mem before switch

	lhld	wboot
	lxi	d,87
	dad	d
	shld	cjfirm

	lxi	h,buffer
	lxi	b,code
	call	entfw
	dw	scrrunroutine

	ret

entfw:	db	0c3h
cjfirm:	dw	0

code:
	mov	a,m		;get char nunber
	inx	h
	push	h
	mov	l,a
	mvi	h,0
	dad	h
	dad	h
	dad	h
	lxi	d,charmat
	dad	d
	push	h
	pop	d
	pop	h
	lxi	b,8
	db	0edh,0b0h	;ldir
	ret

buffer:
	ds	10
	end