|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2

|0100

	;rom-name !open-rom

BRK
	@rom-name "polycat.rom $1

@open-rom ( file* -- )

	.File/name DEO2
	#fe00 .File/length DEO2
	;loader-rom #ffd6 #0029 mcpy
	#ffd6

JMP2 ( -> )

@mcpy ( src* dst* len* -- )

	SWP2 STH2 OVR2 ADD2 SWP2
	&l
		LDAk STH2kr STA
		INC2r INC2 GTH2k ?&l
	POP2 POP2 POP2r

JMP2r

@loader-rom
	8000 8000 0711 0106 20ff f702 a001 00af
	80ac 37a0 ffd5 80a2 36ef 38af 8000 6f15
	21aa 20ff f622 226f 2c00