 org $fd00

**************************************
*  Test code only - not for ROM
**************************************

* jump vectors

vc1 jmp setcpy
vc2 jmp swtchu
vc3 jmp xmapsp
vc4 jmp mapbuf
vc5 jmp mapxbf
vc6 jmp mapspg
vc7 jmp mapbf2


setcpy sta datbox+$c
 stb datbox+$d
 rts

swtchu puls y
 stb $e
 stb datbox+$b
 stb $10b
 lds $bf5d
 jmp 0,y

xmapsp puls x
 stb datbox+$b
 stb $10b
 stb $e
 jmp 0,x

mapbuf ldd 15,x
mapbf2 andb #$f0
 lslb
 rola
 lslb
 rola
 lslb
 rola
 lslb
 rola
 sta datbox+$c
 rts

mapxbf sta datbox+$d
 rts

mapspg pshs x
 ldx #datbox
 stb a,x
 puls x,pc

