From ba4edbdce3f708a6b0ea72a4f6088fe83e92eaa9 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Sat, 2 Jan 2021 09:23:28 -0500 Subject: [PATCH] Spit SPC instead of NL between blknos in LOADR It's a bit wasteful to spit full NLs. --- blk.fs | 2 +- cvm/stage.bin | Bin 4977 -> 4977 bytes 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/blk.fs b/blk.fs index 808c397..3b0fd85 100644 --- a/blk.fs +++ b/blk.fs @@ -2079,7 +2079,7 @@ SYSVARS 0x55 + :** KEY? ( ----- 385 ) : LOAD+ BLK> @ + LOAD ; ( b1 b2 -- ) -: LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ; +: LOADR 1+ SWAP DO I DUP . SPC LOAD LOOP ; : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ; ( ----- 390 ) ( xcomp core high ) diff --git a/cvm/stage.bin b/cvm/stage.bin index af86de0904aa5c781fa32546689986f8a4b3794e..1585c77d475a511ddf21cd1b3b89eb5cf1aadfe2 100644 GIT binary patch delta 14 VcmeyU_EBwvyZ|H9W(9#jW&kO61V{h? delta 14 VcmeyU_EBwvya1!XW(9#jW&kP51Xch5