;************************************************************************
;
;  romLodr (for 8K BASIC)
;  	ROM loader copies ROM content to RAM and then runs it.
;
;************************************************************************
pgmLen	equ	01d00h		;Length of 8K BASIC

	org	0e000h		;ROM run address
	lxi	h,0		;move to address zero
	lxi	d,pgmStrt	;start of Extended BASIC
	lxi	b,pgmLen	;bc = number of bytes to move
movelp	ldax	d		;read a byte
	mov	m,a		;write a byte
	inx	h
	inx	d
	dcx	b		;decrement byte count
	mov	a,b
	ora	c
	jnz	movelp
	out	0ffh		;issue disable ROM command
	jmp	0		;give control to BASIC

pgmStrt	equ	$
	end
