From b162ef84f506b58ac2ed2109c11f67c67992fe00 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Thu, 2 Apr 2020 13:42:49 -0400 Subject: [PATCH] forth: fix broken RAM+ --- emul/forth/z80c.bin | Bin 1778 -> 1781 bytes forth/icore.fs | 3 +-- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin index 4b454a4e0e97d70dac2d798490ccf9fb8aeee1b9..d5b0fe71e9b9f22f4997f141de0596bf15536d35 100644 GIT binary patch delta 721 zcmYjOziSg=7=FIHFL$}nTtrbqEP4$sO+rBz2W>Q%&w~b~iOFfBgA#0TlQY#p9D;N= z=*{^9vI*i`inzFoP#VN34u?U(O^ENCFN4D!chB?wc%Jw9o&J-4w{N&F@#A9-gr|7Blo#Vuz5t7JZbRf@* z@6k6|>c6#yG+C9GVX%WGvJ{vsY$Lux^$j1N=l5HH(!8R{(qemx< NtzYI;C_JRp{sF;elK}t# delta 748 zcmYjPzl#$=82x5;b~d@YY*2~BD7Y6QW{(4HEYx_1H!c{?OLVixMZ}XRL2QmC7Z9r` zmKIUA%O8+hw6%$rb~fRJSlEOuG$_~!@%wgCSnRU%-uL6ZdHW~xJM;D>U;b2pa;JUh zH{4A0hQGI3d6oX0`Vnm##a_--P!3z2!}gkc98xwouml9&^nA|-L4ZgAwd?y{EjR`i zVLZX^>{f$C5x{v<84Xc{YAx{m+rAgTK+ISl6kOk``@uOdZBU|vv#+Ir+3;M9_*n&& z#leC3e2C;mMw1RO7)HyYlpUHO6kx^(8S|rPL#*cBA+`jUxdVU;Cdj4XW7HL%dt{Dy zh?)n9v(A%)uA3vx6ZX`YFybWkDfkwB7i+z~q&ihO1DtHFpsm0l&Ffi`v4baN(3>oe z`3`!-^7R6h6a08Vk}^&1H8xL!LBm$jqSidZeL;P%?%&9Rv|%hKtYndt=#_cue$L#q zvRvT`nxe@Ne$L6Ao!oP|ebDVZb1#q&+PZIj5Ly(2DW5Rf{FhBpL147-netdlD>+3> zp6Kmc0}(h<6v#a>+e7H*Pa1s5Rls6s~)zJdkY z-ra=M*S07qQALPTX`;Z?zF6uZ+^Pn(hW?uzh-EAlT*<%-8(v%FF_v24NldBmUw15< bn6lP)FQpY;y+nNuMik3m#*8U=fKmMecx0DU diff --git a/forth/icore.fs b/forth/icore.fs index 088202b..ae6e175 100644 --- a/forth/icore.fs +++ b/forth/icore.fs @@ -56,8 +56,7 @@ ; IMMEDIATE : RAM+ - ( 0x24 == RAMSTART ) - [ 0x24 @ LITN ] _c + + [ RAMSTART LITN ] _c + ; : FLAGS 0x08 _c RAM+ ;