2021-09-22 07:52:37 +00:00
|
|
|
@load-rom ( filename* -- )
|
|
|
|
|
(
|
|
|
|
|
Attempts to load the ROM from filename* and executes it. If the file exists
|
|
|
|
|
and has non-zero length, this function does not return, because the new ROM
|
|
|
|
|
is executing in its place.
|
|
|
|
|
|
2021-09-22 15:41:25 +00:00
|
|
|
The screen and both stacks are cleared and all the device vectors are
|
|
|
|
|
written to zero as a convenience. All other device bytes are left
|
|
|
|
|
untouched, so they could introduce a device state to the next ROM that
|
|
|
|
|
it's not expecting.
|
2021-09-22 07:52:37 +00:00
|
|
|
)
|
|
|
|
|
|
|
|
|
|
.File/name DEO2
|
|
|
|
|
|
|
|
|
|
( clear wst )
|
|
|
|
|
#ab
|
|
|
|
|
&wst-loop
|
|
|
|
|
POP
|
2021-09-22 23:15:40 +00:00
|
|
|
.System/wst STH DEIr STHr ,&wst-loop JCN
|
2021-09-22 07:52:37 +00:00
|
|
|
|
|
|
|
|
( clear rst )
|
|
|
|
|
LITr ab
|
|
|
|
|
&rst-loop
|
|
|
|
|
POPr
|
|
|
|
|
.System/rst DEI ,&rst-loop JCN
|
|
|
|
|
|
2021-09-22 15:41:25 +00:00
|
|
|
( clear screen )
|
|
|
|
|
#01 .Screen/auto DEO
|
|
|
|
|
#0000 .Screen/y DEO2
|
|
|
|
|
.Screen/width DEI2 #0007 ADD2 #03 SFT2 #ffff MUL2 STH2
|
|
|
|
|
&screen-yloop
|
|
|
|
|
#0000 .Screen/x DEO2
|
|
|
|
|
STH2kr
|
|
|
|
|
&screen-xloop-bg
|
|
|
|
|
#00 .Screen/sprite DEO
|
|
|
|
|
INC2
|
|
|
|
|
ORAk ,&screen-xloop-bg JCN
|
|
|
|
|
POP2
|
|
|
|
|
#0000 .Screen/x DEO2
|
|
|
|
|
STH2kr
|
|
|
|
|
&screen-xloop-fg
|
|
|
|
|
#40 .Screen/sprite DEO
|
|
|
|
|
INC2
|
|
|
|
|
ORAk ,&screen-xloop-fg JCN
|
|
|
|
|
POP2
|
|
|
|
|
.Screen/y DEI2 #0008 ADD2
|
|
|
|
|
DUP2 .Screen/y DEO2
|
|
|
|
|
.Screen/height DEI2 LTH2 ,&screen-yloop JCN
|
|
|
|
|
POP2r
|
|
|
|
|
#00 .Screen/auto DEO
|
|
|
|
|
|
2021-09-22 07:52:37 +00:00
|
|
|
( reset device vectors )
|
|
|
|
|
LIT2r 0000 #00
|
|
|
|
|
&device-vector-loop
|
|
|
|
|
DUP2r STHk DEO2r
|
|
|
|
|
#10 ADD
|
|
|
|
|
DUP ,&device-vector-loop JCN
|
|
|
|
|
POP POP2r
|
|
|
|
|
|
|
|
|
|
( copy the zero-page-loader into f0-ff )
|
2021-09-22 23:18:35 +00:00
|
|
|
;&zero-page-loader LITr f0
|
2021-09-22 07:52:37 +00:00
|
|
|
©-loop
|
2021-09-22 23:18:35 +00:00
|
|
|
LDAk STHkr STZ
|
|
|
|
|
INC2 INCr
|
2021-09-22 07:52:37 +00:00
|
|
|
STHkr ,©-loop JCN
|
2021-09-22 23:18:35 +00:00
|
|
|
POP2 ( leave 00 on return stack )
|
2021-09-22 07:52:37 +00:00
|
|
|
|
|
|
|
|
( prepare the stack for the zero-page-loader )
|
|
|
|
|
( the more we prepare here in advance, the less we'll have to overwrite )
|
2021-09-22 23:18:35 +00:00
|
|
|
STHkr #00fe ( arguments for STZ2 at ff )
|
|
|
|
|
STHkr ( argument for JMP at fe (carry on) )
|
|
|
|
|
DUPk #fcfe ( arguments for STZ2 at fd and JMP (repeat) )
|
|
|
|
|
OVR2 #fafe ( arguments for STZ2 at fd and JMP (repeat) )
|
|
|
|
|
OVR2 #f8fe ( arguments for STZ2 at fd and JMP (repeat) )
|
|
|
|
|
OVR2 #f6fe ( arguments for STZ2 at fd and JMP (repeat) )
|
2021-09-23 23:04:25 +00:00
|
|
|
OVR2 #f401 ( arguments for STZ2 at fd, plus an extra 01 )
|
2021-09-22 07:52:37 +00:00
|
|
|
STHkr ( first argument for ADD2 )
|
|
|
|
|
.File/success ( argument for DEI2 )
|
2021-11-07 19:10:30 +00:00
|
|
|
#0100 .File/read ( arguments for DEO2 )
|
2021-09-22 07:52:37 +00:00
|
|
|
#ff00 .File/length DEO2
|
|
|
|
|
#00f0 JMP2
|
|
|
|
|
|
|
|
|
|
&zero-page-loader
|
|
|
|
|
( f0 ) DEO2
|
|
|
|
|
( f1 ) DEI2
|
|
|
|
|
( f2 ) ADD2
|
|
|
|
|
( f3 ) &loop DUPr
|
|
|
|
|
( f4 ) STH2k
|
|
|
|
|
( f5 ) STAr
|
|
|
|
|
( f6 ) INC2
|
|
|
|
|
( f7 ) NEQ2k
|
|
|
|
|
( f8 ) ,&loop
|
|
|
|
|
( f9 )
|
|
|
|
|
( fa ) JCN
|
|
|
|
|
( fb ) POPr
|
|
|
|
|
( fc ) POP2
|
2021-09-23 23:04:25 +00:00
|
|
|
( fd ) STZ2 ( deletes f4-fd through looping )
|
2021-09-22 07:52:37 +00:00
|
|
|
( fe ) JMP
|
2021-09-22 23:18:35 +00:00
|
|
|
( ff ) STZ2 ( deletes fe-ff )
|
2021-09-22 07:52:37 +00:00
|
|
|
|
|
|
|
|
&tmp $1
|
|
|
|
|
|
