From 9b01e16f6d9b62ee7a46b3b5c88335d3fe3c6140 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 25 May 2020 13:40:25 -0400 Subject: [PATCH] wip --- blk/360 | 17 ++++++----------- emul/forth.bin | Bin 6207 -> 6213 bytes 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/blk/360 b/blk/360 index 59b1089..3166781 100644 --- a/blk/360 +++ b/blk/360 @@ -2,14 +2,9 @@ ( '0': ASCII 0x30 'x': 0x78 0x7830: 30768 ) DUP @ 30768 = NOT IF 0 EXIT THEN ( a 0 ) ( We have "0x" 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 16 * + ( a r*16+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 4 LSHIFT + ( a r*16+n ) LOOP + NIP 1 ; diff --git a/emul/forth.bin b/emul/forth.bin index cb1987719ef52837369eb936d882aa7b8e35ed7e..b098f96d8aecc5e7d6d95d624a934dcf55a3ccd1 100644 GIT binary patch delta 1889 zcmYjRUu;ul6hHTV_pa@|xA*q{261p#%KiZxEQ)|c+q-tG(zQ!lK$(Pq!v=)Sz{rG` zt%|t$vY3x0COq(hn~4uf4G){i3?h30b?D22L>EaMfteUGogvCR=N8n5-hStN=R1FY zzw^b$Ya3lxRpDyA0N}ag`qmi*ab7C1lGGxaAi@O1#XHPoC02BTI8;#p1xCb@#2prp zg#=qV!BScP&+$iUs-1o=i4wK!skCYQ_65 z5C;^M#l;c+xe|GKMj2u=Xhk+&kn|a4R=T8sIHDB5i81H!E-ntSS?Rtjj*&M&UOre6 zM;||l1^8vTMVwKZ*}OEPjIr{YIVA@bFvGW~1EHd7LEQ@&QeRXq%XoHzpilF!)q{=) zstF7p@Xgvjc~Wf=+xQ1sWBQynE}xf2Su@iVQ=#(^v!MP^Pv7xV4H0mlpDUULt=U8@ zpKxPMcQq4KpgMQQvdNg0O8CL4|A|@=Cb`GGUcIS;SmW+PM<4MW?#7^owyl|TE+0$h z>ug(1d4->KuND^hnERxl^QZLH1C#0nr6fIa53%dg0)8#9QafwbVuu#oqwF^R=7jRS z1#PKax%MiM^+%{K;BfZpwt18qdQu0Go*cv>RzR(20m}XW%vBQ0Q zQnxUZzx8JPZZKXIzT)p2Rq3KJ2oIOZiIuCwu9`TbqG3U*4U0rcv8C2*S#m#?Qf+Qb z5INyUm{7KJ&HSlRe$gR$;;Va5cIn z*q9K8|Ee%?%=eZtbTS`a4QJ3}7&M$%Nivm!2gGritMdrwF$6V@rzyM!-qMFX5x8j3 z2x3+yn-6>8tp157BEi-QjbHQR>Wjv8DayV>2PSNV)BiTDXyjl4!@bai2pVNx9`$bS z{1`Fhfo|5}EgJO0C@-zB8v#N$>-YA1ks3NaAaC2S8zA<3mki=hNt(bxj4~6*v<3Be z!>7IL8mPxVFUuap{jQGA1K7D6264`bfm#sr63j~U`XXQHYmld~aZ|kAw@Ub)7kpu1 z4}Z_MDY(%`W2Si12<9O+B~8mkKI2>MKJ7C>hGSUQAImrRU%s%TsOHe;1HRVZ1%{N8bz%B3MU|H}%I39PVkT!)Tb?r@>T$^41>LP+}cH zs%4BF!T(RT$q$y4z0_!fy!~Yf-+C$x39pvMbs0w=Ox0+taMH*Gule*NTyf8J35sa+wp8H znO0CLyBe3D6uK*&Po_flMLDA<7hOKA7pHKca>dSa2U;^7oykN(td7|BA5Z|tSoRkzOrZ__i*syh{nHRzyHbfJZEIcRy*^HS>X1ov*Q~%#7s1Ln-|NG_l z`(Io4**eEng}d6o0mvUazP8g{jv#;9P6r%*)eTXilMH-QHegSZRy%fbe%kM7<2KXt zj=ySaWCOCPovCz814%6jb^JXC@I$gfV*FY9g&f{BBNxaFS}_|B2nf*HD584l(Z z1M0V6N_9!TAmV>JaO&suTV=m(QPF|GB5iZ_ijzu&kJ52xQ*z8XA-*jZNh^`$8kzks z5Ca+x9veI{)EEXE#<}7&pd%e`&&FNY(;cS{3a~zRw5Jp8h8g#PUHuKEJWSG{>q%u+ z0e+=x5CgqOx4W7G654j8l9_CKGFxxiO7af+nrjueL_c!9Fl<+K071vJhPf@Q;Y=n( z9on$(0%4j-=9o)YfUi>k@lDbZT-dxLf$H-(WJ`cE7_ zHrS}+To!~4wvuoeHrVpo2s|jWa7LyIC$Hlk^O^x>Ck_H%vi0gnS6;4%FSFByC4Hw& zqh+SMLk5DTI^^l!S}pezUFlv+#qR>2wc41t8( zD+x97J~!|a;_J$S5aG`eCNZETv<6;ON8Mo<*VsDRjZ``t^1#dL2PoSpNp#koX~=7{ zLX=!be;qc$seh-G*D|n(*|xMGn2JQ9ot~$=-$yvPp^tQV@*4YKlIK=f{Q}oV20Q~E zB#4R*EZQb)8u$UvvZmus*w}zCvgM*_1m&oq*FDXRY?OD(WegVU+1|Ym2Q;lk(BF=U zA_#v0<^<+FPIYgicu8BtIkqJuf!=Dv5Zx2nRj76ShG^SHONMmPDN;^t|;e@%E)WvpqjI1+}K zpN)v|WlGQy+U#H1M?dv9VFwxP;07YAVsOL4y_sr{HIE_C869+T$d6D$QQD27Im8X? z2YAI()(-hc;CF^Jrf#mq15j~^SWIHQI|GQPXj8QX;LVtuJsH-!0!2di23Bx=^i<$6 zr6=$!S7*D6=}yph13n%LycjU!taj(aK1!r3P#|GANBZ#h|GgN#5D0rt4xNN6&Jf5Q z$B!J@*MIV0Dq{`iJnafL4v%XaB?L~Y4xt`~%N8M6;i+y7DH4VeOVUcrAfo_MCmBG1 zG15sglQcNtv>F1g5tihrkb^(4?M)s;FgtlFo;-F^a}Y#y9ah+~ZgXr|l68KIj^THL z8Tf%Mx^ul%0UjBoqz-r&@hWGx#xdU+qyr