From 60b4bbf28aa4b15e7d88071d24f5551deb2d8b44 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Tue, 5 May 2020 22:09:11 -0400 Subject: [PATCH] Fix DUMP's broken "round up to next 8" logic This was caused by the removal of signed-ness a long while ago. --- blk/445 | 7 ++----- emul/forth.bin | Bin 5739 -> 5749 bytes 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/blk/445 b/blk/445 index d98508c..8ad77b7 100644 --- a/blk/445 +++ b/blk/445 @@ -1,9 +1,6 @@ : DUMP ( n a -- ) LF - BEGIN - OVER 1 < IF 2DROP EXIT THEN - _ - SWAP 8 - SWAP - AGAIN + SWAP 8 /MOD SWAP IF 1+ THEN + 0 DO _ LOOP ; diff --git a/emul/forth.bin b/emul/forth.bin index c928a49a17d46b2807d5dafa0738db5fc96fc286..cdd42bb92ea6423dedf776c3efa39615aed9bd9d 100644 GIT binary patch delta 653 zcmXw1J!lkB5T5swOLBL)&D-6V6C=q6mvAdFfy1bUKXEyto|i*C6F5r`OazsH3WtS( zlqn9(D~@cT5K9rNoA+zx&&=@t4(xvf zfM?XVj)BHD3u$ zl(N7I4p2y;mq*wU9j;;N!Q=Z6Jp(d@D({Jagd(OfP566HJc)cL4Av7%13Iw}8g1}U zF>_w(`oc6snHWUj}NyiwfcqQ zFpwmfV*z%T2MiF0IW6|V4Al>F+UN)eQJ3cO2f~G~YTP<^vts$+*KSOm%44{0?ufWF z0vs{#{()w8r(^?h;x-&Z=WYKnD z6#4^hv2|XzUmFfAK#N5*P%rHBq^%dF5Odg yIYIW+BRMWoCQ3@{;x}rk9XUq=^;urTeQ@lw^~rMKoor&MF8r2jc;?jAG50_1QJ7%> delta 704 zcmYLHOK1~O6us}gX>5~Brf)v=v#=A4A!%xbLad0NIK-eaHa647#zhwf459=@Iy+#on$4rlj6>mpdg|sE_5^Amq~FkGw{($m^ERF+yA^Jp2_5B2dQ+k8g9OKb4gyRCJ&?BhTwTbMn* z4~F_p4zm`iK^U-re+fyk=XzWG(Bs-Fw-GgID7?*M@J<{wW-cBx9B>NfqZ45)m&*+T zCsj}oD?2zlUy<9{XxM;}@EOB9I4N;MJTsEZD~3m_N*&+6coH*pLt{($+#z{I<{iit z7TmLYu z7ppg!yc9CN$>a!y;^}N^4V%iznsiGnTKm&m=CoRapPr=rr