Remove XPACK
Now that everything is cross-compiled, no need to XPACK. If we ever need it again, we know where to find it.
This commit is contained in:
parent
4c1cacd8d0
commit
a59322c252
6
blk/267
6
blk/267
@ -1,6 +0,0 @@
|
|||||||
XPACK - pack source code
|
|
||||||
|
|
||||||
The goal of this word is to pack source code in tight places,
|
|
||||||
such as on the boot section of an EEPROM. It takes a block
|
|
||||||
number, reads it and packs it to HERE. It normalizes all
|
|
||||||
whitespaces to a single space and ignore comments.
|
|
16
blk/268
16
blk/268
@ -1,16 +0,0 @@
|
|||||||
: 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
|
|
||||||
SCPY 0x20 C,
|
|
||||||
THEN 0 ( loop again )
|
|
||||||
ELSE 1 ( stop looping ) THEN
|
|
||||||
UNTIL
|
|
||||||
0 0x08 RAM+ !
|
|
||||||
;
|
|
Loading…
Reference in New Issue
Block a user