; junk rom mover
; 13 mar 1983
;
	org	5000h
;
start:	in	1ch
	db	0cbh,0ffh
	out	1ch
; we just banked in the lower 16k of bank 2
; the first 2048 bytes are the system rom
;
move:	lxi	h,0	;start address
	lxi	d,4000h	;where to put things
	lxi	b,800h	;count of bytes to move
movelp:	mov	a,m	;get byte
	stax	d	;move it
	inx	h	;point to next get
	inx	d	;point to next put
	dcx	b	;down count bytes to go
	mov	a,c	;get count.low
	ora	b	;test for done
	jnz	movelp	;branch not done
	in	1ch	;get bank port
	db	0cbh,0bfh	;deselect rom
	out	1ch	;deselect bank2
	ret		;exit