*CHARACTER SET MOVE ROUTINE
*A-USR(1664,CHRAMH,l OR 2,PAGES)
*
	ORG	$680
***	TF	"D:CHARMOVE.OBJ
CHRAML	EQU	$CB
CHRAMH	EQU	$CC
CHROML	EQU	$CD
CHROMH	EQU	$CE
START	PLA			; PULL UNUSED BYTE OFF STACK
	PLA			; DISCARD LO BYTE
	PLA			; RAM LOCATION OF CHARACTER SET
	STA	CHRAMH
	PLA
	PLA			; START AT IST OR 2ND HALF?
	CMP	#$01
	BEQ	.1		; IF 2 SKIP 2 PAGES
	INC	CHROMH
	INC	CHRAMH
.1	PLA
	PLA			; PAGES
	STA	PAGES
	LDA	#$00
	STA	CHROMH
	STA	CHRAMH
	TAY
LOOP	LDA	(CHROML),Y	; LOAD FROM ROM
	STA	(CHRAML),Y	; STORE IN RAM
	INY
	BNE	LOOP		; DONE WITH 256 BYTE PAGE?
	INC	CHROMH		; NEXT ROM PAGE
	INC	CHRAMH		; NEXT RAM PAGE
	DEC	PAGES
	BNE	LOOP		; DONE?
	RTS
PAGES	DS	1