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:
Virgil Dupras 2020-05-24 13:45:22 -04:00
parent 4c1cacd8d0
commit a59322c252
4 changed files with 1 additions and 26 deletions

View File

@ -1 +1 @@
1 LOAD+ 3 LOAD+ 6 LOAD+ 7 LOAD+ 1 LOAD+ 3 LOAD+ 6 LOAD+

View File

@ -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
View File

@ -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+ !
;

View File

@ -1,3 +0,0 @@
( b1 b2 -- )
: XPACKR 1+ SWAP DO I DUP . NL XPACK LOOP ;