diff --git a/blk/262 b/blk/262 index 7766ca5..570d9e6 100644 --- a/blk/262 +++ b/blk/262 @@ -1 +1 @@ -1 LOAD+ 3 LOAD+ 6 LOAD+ 7 LOAD+ +1 LOAD+ 3 LOAD+ 6 LOAD+ diff --git a/blk/267 b/blk/267 deleted file mode 100644 index 74a7e59..0000000 --- a/blk/267 +++ /dev/null @@ -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. diff --git a/blk/268 b/blk/268 deleted file mode 100644 index e1e312b..0000000 --- a/blk/268 +++ /dev/null @@ -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+ ! -; diff --git a/blk/269 b/blk/269 deleted file mode 100644 index 4277618..0000000 --- a/blk/269 +++ /dev/null @@ -1,3 +0,0 @@ -( b1 b2 -- ) -: XPACKR 1+ SWAP DO I DUP . NL XPACK LOOP ; -