From 53c9580944f6e267e41bd043a19ee8c56dba6f70 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 25 May 2020 13:43:04 -0400 Subject: [PATCH] wip --- blk/362 | 18 ++++++------------ emul/forth.bin | Bin 6213 -> 6217 bytes 2 files changed, 6 insertions(+), 12 deletions(-) diff --git a/blk/362 b/blk/362 index e940db4..5db77f0 100644 --- a/blk/362 +++ b/blk/362 @@ -2,15 +2,9 @@ ( '0': ASCII 0x30 'b': 0x62 0x6230: 25136 ) DUP @ 25136 = NOT IF 0 EXIT THEN ( a 0 ) ( We have "0b" prefix ) - 2+ - 0 ( a r ) - BEGIN - SWAP C@+ ( r a+1 c ) - ?DUP NOT IF DROP 1 EXIT THEN ( r 1 ) - _ ( r a n ) - DUP 0< IF ROT 2DROP 0 EXIT THEN ( a 0 ) - ROT 2 * + ( a r*2+n ) - AGAIN -; - - + DUP 1- C@ ( a len ) + 0 SWAP ( len ) 2 DO ( a r ) + OVER I + C@ ( a r c ) _ ( a r n ) + DUP 0< IF 2DROP 0 UNLOOP EXIT THEN + SWAP 1 LSHIFT + ( a r*2+n ) LOOP + NIP 1 ; diff --git a/emul/forth.bin b/emul/forth.bin index b098f96d8aecc5e7d6d95d624a934dcf55a3ccd1..2f2c31817e4d6a79d1406b8271120169628da980 100644 GIT binary patch delta 1884 zcmYjRZ)_7~7=P~GyS8`N-d+D(H`K||9s9#zgJOuo1-9EdsC4aU%fu{`|7i>`mJL4) z44Xo=8c~xsix?A$F<~14%>4L&tsN(=apGn;ko%U2Ne@p_t;L3pv@9;%|x^0N^CE;n&B%|=-LZ!PT z*ibjHV{m9s{nj(@OA1$I$u?wD&!y5G8o1P=P{ZHD7)ND=bnujZDO=A^$ptcnR?Nl^ zf;uHn3zIVNRL+41^V~sQ2VWr5!ab>jH(>>2#htDWjB%6C!Osg(eoAg4Gs2X7ij;ls z$Qf|K6kVr`g!76Gwd*mZIwwzx`0W8s{f2(8>~zm6CJ>mVE#5w{q(u2=>4)BB$rIjj z@dI&;G!b34WcFPk2x?FN!NK8r3)~pzqSuD@bgV5K^C70YUK12xID6XC@isdV3xY@e z3#B}iXxO)0xuyWW)OQdAou*yBWrmKn?WtrY+m_7MI<~sJoxbH;%+1l$zL!PunzHf}&Vn42|x1lq!C9|;- zM3q;^NDc&eL3PYqS*wRt;F-%#9H|RxcpKQeqCmcLVwB@9sX^}&rlV)oO_UtT(YSGs0?jQ8)*y-Fa;k9xSkUcBTSbZ{i^Hnhl9g>;%4K=hdDr zzkCm0iB2EZbVIv}mYME$83>x1kf(oZRow6NaeW1u(B|nTy=oWZkO>j^uW$=z{_6s! zh-V{<;TU>GK*#YF1xwzm13xalr_2aZ{uE&n8yX|k@Tz)Tw_rkJ^JueE>1@Oguc>EH z*6h;hWj#}u*DedKu;!Mt^8?0(s2j2 zban5*23^&n=(*pCJpk|<6Jg?1b=V>zVB=-Z|ABb?h^xeQJFE?lL2FyhWD8H_ng8-k7QlJY>bpn`4>){=S6pl=4N zM~-7>b*J9jxRFPKto~NGO)ILMLO{23T79>NgLu_A4f{D~-UlRR1)PVJ8u>LE^tFr!zL;FOkt)t;>(`6>9^TI1?1h{&blUs!x{E4X7`jNiu;Hh}<*g?%f7^yX+uu0wG z*rasl_@0zTJ_%>w2Agu{DyM>+lg|Xaig=T=8)KO7814ew%${%*FT4%0LI6{5q1F{A>5M8 z#uH)GTTm|Lk)k(%KqVY`p9|4FBt$&hra0}eFje_rcXh`Tu>icTUQ@oPcqHy^PdW0w fFuZ{ZX8DW<<5^&X?w8BadTaZ1ILiE}RN3+m)N7+8 delta 1875 zcmYjRUu;ul6hHTV_qOZ3xA#x~4G43Wu68TP1|`9ODDB<4FzD9Wb|B6L$DcGH8^}fw z9^9&^-HRjnwx`9Im4@(dsF%T{K;DSaMNf?3gLMAgjFwb{8#E0H~-}%nJ z-#Nc?e%NqrgX^lyU2Wh1^oy>vEB06@2~mEN)8J*2hbjp3(}D%7T)-C{d63{CH^P@t z@{luuhZr$Q7RpN&G#u|a(SInCyY!h$=4wpIf?R4(D$}BYLoEqm{sDRzlw{JvkI-vU zXm436k}_&B9RmclEX@cPCE!OS7IlQ5#kUr|NM?iwt`^>e^^gM8%i&Jux zZ>3)-Ydc1j3*xvqMw*BsnG!n}34%J*H*n%~Bm_?Mb49VBIg^Oz5^ltFPccCThI4m3 z(-yaq2`^Ns|DcqIDZ0x2l6*@BevNwo9eqV#cdzv;sN0=J9KRmE5)FMXb=gdyM>!zge#GZb56ZGrMC2i0V@m z=RtrsRa-sA3VKono|){&wmGnk7O*?IwOv%)t_h>@v>lCs?L9m|zgI2H#Hlsm_hs!s z9`D%O6Nmc-A|{q$PT1ru36rqNSaPtA5-{WpY6SK32a$*%pUFf6}uJ z1?`3qBR`|P30vUIf8{D@S(wLY+Z&NPW5l34jm_z=kv%#bB<)5)V?PY?#!4G6a0kgL z()u!7P_W^tcc4_SCx1cuWwX7Xd$Bx=9`0ptB$|>qoT7+vuEgw3GQ|Fz+GE zA@~l<+SZXvWYU>LZa27ax_~d)b6lb7WwEk-#$C*Cmix`c?rs$pwIJ}v-ob{7^i|(x zZk`VK>gtA7j1P@ihaw5VP9G~BJ5LKHa-W?MY{~AVMSH|>q+T&l%9ii|0 zSJ!s=A97*m9gOv!e+Y>?g0s@l+jF=tQjac0I_Ymuuw0epyi26r&+oYEQQ%6CU_Py(LdpKNEK?%ewt)k%#ONOZ2K1*m!v)b