34 lines
528 B
Tal
34 lines
528 B
Tal
|
|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
|
||
|
|