From f62376bd0a84c87c27fc63861479ba65756c59ec Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Fri, 10 Apr 2020 09:59:45 -0400 Subject: [PATCH] boot: remove _bend It's not needed anymore now that the boot binary is built in one pass. --- emul/forth/z80c.bin | Bin 2182 -> 2169 bytes forth/boot.fs | 17 +---------------- 2 files changed, 1 insertion(+), 16 deletions(-) diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin index 6746926a5dc417be52b98d0c0fa537a4678cfdfc..ae61f4a964cffdd8360667ec8c6135651ed855b8 100644 GIT binary patch delta 1008 zcmY*YzfTlF7=1IlI~=IXPYq(T5{)dL35^uONx0=aFM&JQTf%{b8o-2xY|uh!RvSyM zptSK%P(1t-h`EZ^qw-9wj9Xis-#5bJ8C>JRKsdz*kR#r>V0PKX>fcN&ab=e+AsT>u;<**O|PFvIwU_M_7 zqnoTv+QUwOTrY%+yxkz(v*&9MolcR??q4!z9t3!ATx|Ix?BZ1HSf`>PV-g?G&chul zN@9$mO&fux+;>u10jX%oR0LWXBU5Nez5rC6n8L_PUK^5LZ2pIFeII_xCNUV+R7lxv z-RQJMDoj7EFQJ(IcbwI}W3-m1oDe zoZr&8B_$QH>-A_Mwt;ni?^e zsfh8b!{%N6($!#jJZqZ`jW=igDKoE6bdIdE z`zjt7WBPoh65TLmlAtpJ$1#!UKfu>>c+3ikxO<0=iCQ0-C*m8Wa*3xlCJ`)vb6DyL zuvm)98;0FOPURH&Sz0PA%nfnyoKuUY!^3OD^e8jKc*AIbg`E0sag_J;!(Zs()N{(X Zze15;&2(GYgx6^3jCVU@+&{hx@duu^$*TYW delta 1018 zcmY+CO-~b16o%h>=c9$l6wnZYE=Hn4NlkQN;s;9LQl$-aV0sCa4WNAJhD?x{xG>d) zvSi_sjeo$zMB~NW9 zQ1fA!FX@q1*4)2h4^kdZY;94o_2-+bSr4vFt1%GH2Rwz3B8K@>_l zAI^q(jV`AlcA+pn5rq0Gd&}6qqj0|i!b4ymknhpf*+;XfDfXbt#C!TNc$*^QYP1`Y$($pk+F}m549|AN zKrR0FA<6L(aijFy0H?FO-U{+KCb&=@y9kSmT_$YC62sHMLJ&??`}tXJyT{_4+h)@c z6`VE|IDW~zw?{rcx*4gcFPAnKB1&Tx991Z**~d9fH>5X`dM?3bkbJ3vUsQE?ZF76; zRd$GHKC)M|weOy~W+IVrX50J%tnt3oWzpS8GU8;~zdJI94iEco7xC{;TJRR_(#h;o zg?9PS)*qr&UzI7ct@fMvSZ2?}ZXyWu6*HtH>4e0=*5YK7B|IdBZM3gY^y#PxnfKuf zg;If6HlmihsDP(lOestkbZL=_Z<8q>MYrfG6lP}flViP%ow3wuH+;OoYkHD<=kbN^3pAcKbwow@&Et; diff --git a/forth/boot.fs b/forth/boot.fs index 86f97e1..c990d5f 100644 --- a/forth/boot.fs +++ b/forth/boot.fs @@ -87,6 +87,7 @@ L1 BSET ( CBR ) 'E' A, 'X' A, 'E' A, 'C' A, 'U' A, 'T' A, 'E' A, PC L1 @ - A,, ( prev ) 7 A, +H@ XCURRENT ! ( set current tip of dict ) L2 BSET ( used frequently below ) 0x17 A,, ( nativeWord ) IY POPqq, ( is a wordref ) @@ -366,19 +367,3 @@ PC ORG @ 0x22 + ! ( litWord ) want... ) RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP ) JPNEXT, - -( filler ) -NOP, NOP, NOP, NOP, NOP, - -( DICT HOOK ) -( This dummy dictionary entry serves two purposes: - 1. Allow binary grafting. Because each binary dict always - end with a dummy entry, we always have a predictable - prev offset for the grafter's first entry. - 2. Tell icore's "_c" routine where the boot binary ends. - See comment there. -) -'_' A, 'b' A, 'e' A, 'n' A, 'd' A, -PC L2 @ - A,, ( prev ) -5 A, -H@ XCURRENT ! ( set current tip of dict )