From a776df27d272c095eb614b60b47c19c52b7ccac2 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 25 May 2020 07:45:19 -0400 Subject: [PATCH] wip --- blk/328 | 24 +++++++++++++----------- emul/forth.bin | Bin 6172 -> 6178 bytes 2 files changed, 13 insertions(+), 11 deletions(-) diff --git a/blk/328 b/blk/328 index 2ac50ad..5da9201 100644 --- a/blk/328 +++ b/blk/328 @@ -1,14 +1,16 @@ CODE S= - DE POPqq, - HL POPqq, - chkPS, - BEGIN, - LDA(DE), - (HL) CPr, - JRNZ, BREAK, ( not equal? break early. NZ is set. ) - A ORr, ( if our char is null, stop ) - HL INCss, - DE INCss, - JRNZ, AGAIN, + DE POPqq, HL POPqq, chkPS, + HL DECss, DE DECss, + LDA(DE), + (HL) CPr, + IFZ, ( same size? ) + B A LDrr, ( loop A times ) + BEGIN, + HL INCss, DE INCss, + LDA(DE), + (HL) CPr, + JRNZ, BREAK, ( not equal? break early. NZ is set. ) + DJNZ, AGAIN, + THEN, PUSHZ, ;CODE diff --git a/emul/forth.bin b/emul/forth.bin index efb3a2dde14150e3458dec26c59cb529b4b26dde..c1fe1bd34c95ed8e3e451f774b4dc574ed5fff51 100644 GIT binary patch literal 6178 zcmai2du)_fc0b=^W;`?YJZ!K52lkt>v1dFO+vBJUS!2)BWXgEPJ2S>01PEiB(11;B zvn1XKob02n)NT3)s%naf)Han{6wpd&vks}if{;}#vAgmnhB$`0lYOX5Bf5_F zckZ15R=aBBFmunj=bU@q_uQGWD>FWYC|^Z0*OZyd%FKW=b3$3ZPcwg`%)F-Dr~je* zL^Ol{Z-9=!r{#BiPa;R8SKU}ciz^E=8_3r;;&%YCa)4HLD=X_6)d8HFOjQdnU-T`l z)U4D1iT`}ZhKEo1E6H3n|1=re{L{+(X_~+Cr7<&qTA9DHYW!e6Aph1~Z_jKdwQAvp znwv)>O;mXKf-3(%R$AufGU`2w}S-GGGpd|DkudF1hlwtppq&oR@T=ry&g%Y zb1e^7=RLIQnYicG?=_T=SG~9Fu_!k*nrWr0i-FVc_*&9tveqolRd4w0%w@w~T^+6t zY`9{mt}i}Z@Kr8WS69z1AE?>AF#c~oEuUFlFg|*_ZQq}T zAE(v8`|IwrRddTVH9)Mp8{ZR;_T=JQfzDvX0(-~7kn@i&h!Hl5*w5Xye@;_&#t3*?@3rs5IlKM#-plfb6Z zIe`WL%NLQ{hN4}Cgg`kdQowo^*jNe>S+|j34O`J*M?FrM^X@|aD7L$!A&qZue(1~jLE*e><$isa7dsURbbs& zQz47tu?wSJ-QJ?V;WcddOxiZpZodiv2M3Q1^*_Zy=Zr!D_(~Q*!CP~RBEEe`kGJ>@ zkmPs&FVM{;(6>O+V&%0YYitquuqupd2{6E361ClexJfX;HUTmAdH$aJ}z33mn7lkPBx?ipHyB8gO>Ou}e# z5qdVBiAz|goGC)lo=hg5$~CyD1Uz4V66Yd|W72evnKgM%v~Exd*eA7zCNG(N#}6GH^3z3Ao%)Fqp>QOf$<>j`;niK{2*ooQG!}=KEWQ&X zM~B9k@CfPjiLxELJJyrp7|`vI--gg(Iji>p-;N{)a76&kZFU%F(CV3S-rB*?akJpr z!KROkb#pt?O>;~NpuLSZ3{t6A9XIEdyfSXSuHwA*wjEW%;k@&@*m+&-bR|-iVE>#<{0U?#fsUs+Bt@<#x{DniRAZozhLBns>Tw$0zpV!uNv zTzRFq^Z6=ABCoJdr0m1~y#?6@)kAVjeV|Wka(!K8&CHM-q1(W+<_EVRpsYqSjMz?d zP{md-Cqj%r1ZeOPz87Xjpemat4}8wwAr3r;Lz-Xg6UNIUa4<}0g$YH6@PWHZNSzd? z>% z6)>0PmQApD3UxbWdZ3Tt8&bBo!8Bz$58UknE|SQFxY9X^H<%1kh)V}p4`Vsg6y(S@ zQ(id&;W1>&$7+@wIBJ!CgF2YjuB$=yJf!z#JDP=#oW|${>0C##y>XQT-cp1=wMHnH z?oDT6ochyxo%%LPIBK(NF*R%Z80q;r$Lv(!Q$nBvMgbfc9xDnsYn#;0+HfXBxS{7+ z+im?M8hzF#Gy6^K#neeu;oH`jsE3@1^EN7kf3_M_&)S-_CH<`Jye4_xv}NI3mV-9g z)fJB=!nyb!vWo7yBud1f3HrETtRU&w22bg4Bn)hsEWH#^8#H!*3@@YK-MMO zML46LW&MNw57I`qH@V$6#X(1qScaDIxQ3QVD&Xvzb!XzcIhcGRH@pr zCheB>Q!B68(LO=uuLap9+xHBrSFu=Q)B6Pwtb!ORe)Hj^BR9jW+uEz zw{UJWoyz9IsT{YKxzbzK?PYu$?@M&<$H43;2GP7P_iQ}1A06_NEuP&^#?_0tgQVPe%Mn5z#J-WLpuA<@R!w8T3pM&7EJXKr~r*UwPA02~^+$-MWU_U?b5~fiT zz#jvQcV;o`ib+f97tVk0(I?@;xQuS4(~q^~vb!kE^V$Uc672?P;u*rCJE8z+bQ2Sx^u4WFV;^lx!7ZG@?>I6rcF$#H6U zq~91C9y11qK`2PJcsD{(Zsi7f#RMXw`>8cc{|S#L6FKi!=-bf9i?Wz9P3xapV=hvs zOucpqX#58Acm*L5&9Y0Vn^%-k$Y^y?!m{ z&bc8LuQMU`87M<)&i#>-6OXfjdm$vw8`9$oGKo?1eO#E#Q}!s?#6Zjk`%l7xho;_gEMQtxr$7+K`?Pw9b;(OoTsCT55cKZNTks9pw+4S1n~XY4xldv-Q}V}1`YpP(NhqKQ;4p26js z+l_JN5~ieSG4sg$zG#xkau7Aj54FFuGVCC(adr54RNx&{z;#ZHzTx4qHh%>1sL}mEG=T{qhkkrpzcbvP{ zOwfPBP_`fw;0s@}1jS{=-u?xc!=Z+CBJ0~>FoWDx8`kpW2guVPU)&+N>EX?t#Z4ZQ z__F45`O(YCdCX<2yHvzAMm$0_;9u7?75Dk?CK^6!!IepA`WaI+jTq~jjH(0Ro- z%q04#L0pw`WfLpuV40$|G_5tPoz!aSytWhHk5l$e#pVhx=?6z&8l~@-ddU{WZ*+%F zj1Hu;A{YL8Ejm@-;pd)bmvZ)=K_2pBfLo>;jos2W(m4E$!DFE2mrE>NhhAPwmqo{C z=cc=zxC3f2O!FPkq%~D?KgZpW;>70`cFW2b{C4pQE+fTHavb^%Li3E96fw^^FwgNM ze1s~|6Iw9{7caA0NMth|w7y!IrJr;5ceV%xj)>z7k~1GqT5F+(ynLD}<+L78W-%MG za(FdbCGD>&r%Yx98Va_p$KEBIyuRd{;I{rksl2oz@tuj(Ci)KA1M*;JIFYgekdhvo z*^|m8l9ggZDpa(8UpcJ3QxT#4W|&w=-9#=d<6c|vNi^Nnok+&Z>CZ8YzFt*C?WlUG>b_a-A`@Gnt@$G{v|Yt$P&P4PO^0Gt5D ImWM(8cl+&!xBvhE literal 6172 zcmai2YjD%ol|TQ7BuldOu)&5<$X~W%O9*3IWVT7_hn`Nf$dZv{FhdBz7!wMy8QUo& zWWc4njoS|-Uzq7`yPff7%aD#cnYzs+v@_YT4j(WBG@kX$wu1;-#*L|09j24EnY6C= zckY#dPCIQJqGyP( zh-UHsHPG?*jQo!GCvrr3-L*BexKfyXgnR>|eg_aM&(X?GWo131x`1<&sjl$qJHAg= z8de&B#DBh{BO}NBwPdc#KTd|0e_Y9*qWt@RGG_Cql>Gav#!vGB`L}MaGxHd!b%kqg zlDxsrjDxhgj~KIjADii{1{Lc9s$izm4iZ4ij9CDxq!cs|&|=}aTB@m8S>M3)dL*6B zwSB&t_t2_mVyRwV+FU{P>e8~uqFmExb{kz@44it`*OoSuwPA5#!y~^uebKOQ*bv?j zc;tOUb$#|x!B@MuVZ(-n<>wl97GC+0Pb+4Y3&wxH-CnqKCEtL*mnc83T*(hpen?@{ zu9$r<4IMr1_q?hU_oz$qn4fz-TYa}U`tzTyTe`N9@{0vG0nR+}iwEj2L-FOByDN*r zew@|-@2|VdRxKtYlT zi|m6gAUJvgfoLg=jAhcj)r`bCyDQvlhTPsjp!go}K|W{==Lw$_geta&M zVGJ~7Z43}S$xt{Is}#mTuan;!dF4M2F*cpygb>P}d}rj99}8rEI#Y9>^amraObcu( zofBB_zxoc6+fcO2kPxUQMG9EY0-GxVBI`C1>|w-a2P4>{(4^Dlzgly(x>dKfDm5L( zZ;l;rue$4sUoK`^)%8`b-#jfM;qi!b#u`S!6S6S?nFu7uH0p5( zGsbuwvho_6!;K=(d!rsF%(+x39>#WWG{jlY3N=#k1=b+JD$1M_U{e(YZ)x{Kx#z3U5bt$GNh;f~9Zt;8?cTUrCla)I|xA$)dh3bzCLDWIH$r!Xc;u)4L5d z#_u0EFWS@lg|esNFKqZs+7qhXei^L$h7J!8eu2ZyxrEgBRV;#nw-yvdeESZ+*ycAt zQr!6mpj#`TX^EuG%4von}FAoera zXA<2xH*)h5Bg4AMXTI8gb))NZ=1z*;4S&9i9GAP9a8F=8=?;Tv$fI)!Fok$^Aj0n*U6YJnRJUnz1&DiXi)^C_d{lGM-O#;88FM;&e z9ozJ2-JlAvPimi<>dEYTasT0AKfP^gRBtO03P;kJTqBtr^}5X*p?D^Pmg1-ccV?8O3eYzd;+Yve}FYC_&--+}F@SXr#+wCyWpw-jkyw$D+CC^nBN|G)t!{7Z0IEbDcZxmk7Q zDk|ljU$1f`iVFKg%0A%VU6O536C}sfd-{wf*K;asW`^Vl%>&Dt@7scavKp;0;z_yz zRcs}5BE@N z6fl?OmQApD3UxbWx~C808&bBo!8Bz$58QkS7fIwoT9X7ibQ+sS5BRzl3F*`nh>jFkPU=+ZEBjaTOXKj<(SsTuT2siXR zYn#_c(CB+?GPA#ny_h^c@&gd&ps|VDa64UxcBt)~NsDvyN^t;v9VFB+oKf){)1L|_|am$r!W=Mm4z!Fp+ zX4tY73{$3OU@txDyYkLk3kB`2*w-)77(3>rWGCPmuY&Ae*s$3(}&QI3ieu2>oZJL3ZMt+ZoOz!jUBGsBqi>R;3fLjFZUc zf-ZKPn9t~Nzo3N^?(pR>#=swTC|`Yb*Lr{^)y&BC4^;oogV?nkIQ*_VBW9kT#5 z8`xG-p97qPr*1;5J#iWb_r=5G(2;w^haBu92Vce2&(A#1%~^ zvy!V9WtB{%;#pS2z!9kATyy_!37WxyQ5By!sYgyz24#iI<^3zW`?ukj(y(NdQk)fT zw)8tE=yQ<)k!&4z74-UkCywlv1CmWZ(Ts$uN>H+!WBWtro1o10M!CtbYRs5QmKo)h z!JSg-a0$Ee;rS?BTu;ui@%;ym7%vSE9vmGyI&z#s=-=XE+6YrmI7SrcJ<4LrG_BvVcDhKNGVQSQ zcyu1~443KF`UX1Vc;4lulTI!lF=f`f>FbWK1Gml0xP5r0K+q@XvxGs0Q>g-mwjv5; zSRT&f(;%qCG=lFe-G(Y#+rch}hDxwC!$X(#koFd|;gN;sLdo9m%+mjXp=&D`&S^_7 z9L>F#>8ygT8vHgiEHTz#+>mN;8Erk$BmzguVYE>f)bP6do%|1b{p(A6gIda+aziZM zWkT#zP=?f$`?`}8kF$Y$Au15b9R!|t?&%Y7X(N=V5ERW8R*3&jVYn&JMh0z#tO@$x z)tfjn*4NX!AKCGylf6+Pyuzh9FG}R3dxHK5L-8aS81r+#`2gMF2ChxnpBO6W{6IK| z1ULtI+vB^vBES0nBCEg8Sv@*zKQ$mZ4p|2%TrB_ewVL(GmE z&V>-&(L!iqh8XcfxSoRQMc~+gBQ-o@H>$7M*#M6D5@J3<|AmMqQn`2rmuqe(#+eyR zNi$;Rk@@|$NhZr~)F?mH{>93$gSf`kkt3+Uo2Y;}PK<$(k@0qa1o7m&;wHkPf_SVL z$WF$vo091;|G**cgbRqaoKSfsXIEZH?hEw1xN{_@mpp4E^}`;#S#!Na&v$9ruV~{X zxtyI)7M5R!v@CqaRPw>fSgB9oEW*Y&j-kcZNK}R|e15gD2T5IW-E_v+Owgw=lr6{v z_`;VgL2+5Jx9@^E9NN52WPK+LW{|t8cP(FjfIOS!i#sGYJ-it%Z}OPLmo=9(w=KSn zf@?7?S$LIR%O%a@lze12L4lh!HJC^Fmq>ZPsStYxZk9uablig%I|i=8a^ah6 z(WwRwyl{kF%GrAwdB~3eZkcYv(|=&JdE_fYM?uXmmsq+Hz1&L|MaO67rhA>Z1H2ff z`3`8&{I%TAaW|wm@wtV~Ss8=hF20J(Nb!>#hklFDJmn@u%ySORb36$jqFVHXW(>mR z%WMvbY^L4TS8KC$i?hGGO(<|k9A}W6`FPS=3pM2BRo4mf{n_yl)QYkO3Nc`zUY7_l4+5__7>2M-t10W?mFtaa}OC)Q>hE%9* z|DI}Cd$T4&d(AMhl)8yrSjOF3@<}w^)0;@ftLZfiqi@ue(R)gGOv&HC27B*I6_Dq} xZ8&F@!uB-nb