2020-04-25 15:43:07 -04:00
|
|
|
: XPACK ( blkno -- )
|
|
|
|
|
BLK@
|
|
|
|
|
BLK( 0x2e RAM+ ! ( boot ptr )
|
|
|
|
|
['] (boot<) 0x08 RAM+ ! ( C<* override )
|
|
|
|
|
BEGIN
|
|
|
|
|
WORD
|
|
|
|
|
0x2e RAM+ @ BLK( 1024 + < IF
|
|
|
|
|
DUP LIT< ( S= IF
|
|
|
|
|
DROP [COMPILE] (
|
|
|
|
|
ELSE
|
2020-05-12 07:36:20 -04:00
|
|
|
SCPY 0x20 C,
|
2020-04-25 15:43:07 -04:00
|
|
|
THEN 0 ( loop again )
|
|
|
|
|
ELSE 1 ( stop looping ) THEN
|
|
|
|
|
UNTIL
|
|
|
|
|
0 0x08 RAM+ !
|
|
|
|
|
;
|
