Remove XPACK

Now that everything is cross-compiled, no need to XPACK. If we ever need it again, we know where to find it.
2020-05-24 13:45:22 -04:00 · 2020-05-24 13:45:22 -04:00 · a59322c252
parent 4c1cacd8d0
commit a59322c252
4 changed files with 1 additions and 26 deletions
--- a/blk/262
+++ b/blk/262
@ -1 +1 @@
-1 LOAD+ 3 LOAD+ 6 LOAD+ 7 LOAD+
+1 LOAD+ 3 LOAD+ 6 LOAD+ 
--- a/blk/267
+++ b/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.
--- a/blk/268
+++ b/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+ !
-;
--- a/blk/269
+++ b/blk/269
@ -1,3 +0,0 @@
-( b1 b2 -- )
-: XPACKR 1+ SWAP DO I DUP . NL XPACK LOOP ;
-