From e1e634c8156c1dafed162fce5f7e48540f349444 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 15 Apr 2020 20:57:46 -0400 Subject: [PATCH] boot: compaction It's more hassle than it seems to move the stable ABI... --- emul/forth/z80c.bin | Bin 2148 -> 2139 bytes forth/boot.fs | 11 +++-------- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin index 8cb032fbff545236a1eb9a44027e8da59888455e..935068e6ccde038aae556da78880434e30533a52 100644 GIT binary patch delta 1198 zcmYjQ-%C?*6hGg4@9w7PO+#iH!gLm!tq}96O!Mk0LpR;7Sy+j`GeX4#34&`6Sx{Q;IfgzV+M^kVc}5C|4lP_JQI>vO($tM;&c&*%L5oX!PME|?1fFN6fwo}Lw{wVf$ZxgHcvqV;7=l&W@0G3ioo z=jEh99wR_Lx~iEJnjc-bKiPz8K47I1yAn-A%SnT+NxN$>k%-2uCO2l_f2@MM#=2If zqR`aL>_oVnbmIl=jHp5Jfx#Z@h%7`jY-?HNt=d36F)NzrPed)+);7hmFsajwC#*)0 z+EL#i>w=Gjaj4p$+vYw4l+Pc+(_SV$0TRUK$o$0U_;@8+rbU42$>W*E1edZg-93cwLeCYCtxQAu9~iN# z?FcDYL>WXcQ(3Ht0S#;zS%tp?q)-a4EY#|X)F7DAI@R@|ZNWE`v^#1^MX7o^M3(d* z$BGZd6W!I&(4(hCTz6YD?IeANEbKilS7?C3jQ&n!ArNP~@zaRnQQ2!!vaA2bDMY)1 zwa98ZYOy#rCnf1KiVjcCE-pN{brQoe&y3j8i+p)wJWU3oGRDWWq4;&wk`~VylIh_# zq(9L=>gK1 z>gU~H?-F|kd$s)IJ9!EAx_F)*&^*H4z?OHL{pXnfqTR|W0`-biNC=Efen_agGC*jjA$LXYmmIR9wvDu*72xPyL_48 zF&cFcUA;D)iPn&1KgYSiEg&BnNw~F&h$xdYO#PkSLWu!4o*GQWU3zV-^CCNR;$$-A zwxOvv`di#O79_THV*%~P{MRs*O1kOL@oE(b6O$Y#vYE-tm+Mh-g~PO$Y%>c5>v(5! zC`<=vRg(y*NX`$HN)8FQjrROa7pwrRie74YO)gZ7$wbFt%nEnwa%VrvW@%@+L|$7m zC3l%uwE|?wdw~y{D=ckrnP;7anJJ$`FWvewj(*Bk$=9*W>$vRCA$lEtE}08j7S{iU z7f!5}Gz_8|rZ?(hR;LXQ7H}|i`45vud2IpSBDr%Hk_Bxq$56H$8y(K|hDZn1UeXQK zkR}eh$(LmlKeWDC&cBtaqiuj*8!{y6G6SYX*pKxya;Bcf($9fr5#m0ekI2-_%&l1T5QxIm zr7V`t%L9Wd!KC8JWYTR_E@(iW0BfmCOl|QT5b3mX15uw^Mg8%izAQgJZs{*b(u8<( zB;e55ggbCv@rS9|Y8FZT{qa-1vfH9#RqF=#JoRB>Jq>i@*8VHttDiVb{0HCh^dA5K diff --git a/forth/boot.fs b/forth/boot.fs index 0f47005..cb8db55 100644 --- a/forth/boot.fs +++ b/forth/boot.fs @@ -41,7 +41,6 @@ RAMSTART 0x4e + JPnn, ( RST 30 ) 0 JPnn, ( 33, execute ) NOP, NOP, ( unused ) RAMSTART 0x4e + JPnn, ( RST 38 ) -NOP, ( unused ) ( BOOT DICT There are only 3 words in the boot dict, but these words' @@ -51,24 +50,20 @@ NOP, ( unused ) 'E' A, 'X' A, 'I' A, 'T' A, 0 A,, ( prev ) 4 A, -H@ XCURRENT ! ( set current tip of dict, 0x43 ) +H@ XCURRENT ! ( set current tip of dict, 0x42 ) 0x17 A, ( nativeWord ) 0x14 CALLnn, ( popRS ) HL PUSHqq, IY POPqq, ( --> IP ) JPNEXT, -NOP, NOP, NOP, NOP, ( unused ) - -CODE (br) ( 0x58 ) +CODE (br) ( 0x53 ) L2 BSET ( used in CBR ) E 0 IY+ LDrIXY, D 1 IY+ LDrIXY, DE ADDIYss, JPNEXT, -NOP, NOP, NOP, NOP, ( unused ) - -CODE (?br) ( 0x70 ) +CODE (?br) ( 0x67 ) HL POPqq, chkPS, A H LDrr,