From 2b0186fd58c0cd4656d6570e940caeb8397b61d7 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Wed, 15 Apr 2020 16:24:03 -0400
Subject: [PATCH] boot: make routine field 1b

I forgot to do it earlier. NOP having an opcode of 0, it didn't have
any effect.
---
 emul/forth/z80c.bin | Bin 2153 -> 2152 bytes
 forth/boot.fs       |  10 ++++++----
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 75b5f60df14c6cefc508e1bdb60b40a17531ea0b..5e30fda921390ba4932b5380702f35249660155e 100644
GIT binary patch
delta 1204
zcmYjQ%WD&H5T4oHY#!RQ)@rSyrj1CFRuR!dH8s|4)Syjlvf79*?2Fce4YdeLF%>-a
z($+s9xp?vr2>t=O0TC?Z;zcj&K_Y@zFGBq0w~3lVcIWlYeBaD|?`m`vofqW1CG~S2
zv$MdCkDZ<T<2yOy>>TH3v_a1hcG3;!3A@iJ_esfo$|f>;w|Z#6Y&d%rN@Qv&+6`yS
zY}^iC8|-UEA_@3+k*D{|)_z)f75R*KI6SbvdX~%Uujlx{W`turx|!n<K3HAn_gb;6
zS#<vL=!IO6Ji!q8XwtAKQn<VHU^W)rK|c5b%6BoDO?Hq0+fcT3HJeSQ?U<W0@xQN&
zyup&urvqqi;r>jtgUnzRcAXCceBx@#?o>cT^F_n2f6@mim9~@FE7_z?j#1+cwrKQR
zCTkzUQ1A2)s2cGR2ffA`#*MqLA!;_g9*fRwSCJ4giFv0mb9Z`rhqUAn^;5T}00uR@
zGg%a(V^q;3LMl>pL(Qf|;`CGh-*oZS;S11ft*l8wTbP;X4G2@^VO?sDplyNnv|5z4
zO^@W3xT4iTL*DCr(o<y_BhbRBu^=;*i<o6tFTr$E8cml+iEAi!_Yl1YJvTjTS^?7k
zh89-5lQb-1J4El(MXaG9G+2Y-*X2J%8kMy*Xp7{bJ|v4b){3ERD>j)cCiapJsDAPq
zY9LJ%wlkBN>{u@}>^7@>({x)~pqQthkVT^V)Cz+b;i37J{pcyUZhiq-LRF#`<*X~$
z2a)XxmQZLWutc1q6y@m~KyS?6UtW52>oCa5v~_-Cx?EUoOxV;Rs`%uXDq7eCma>Fr
zM3qP5D1UDLFs*+l)kS`|97C2QQ_cfv1M=hijG|x9<LFlavjK7+F-K%-ad9~wJr1A{
z9aR#`<gJB)mH4FNxlG0mD-|?&O7IP|H>R$51s<8SU4f_zt)lMw&|i)ppSaBDBN;-p
z8Sz?lIc2ABD*O<I&9G1!A5V@Y<hF%JMH>e8DqX_HPIuGO;2~US*nFvrw5Q}EVqV!n
d!gSg1#))t9wYwNd%~MaH#r>DpWq;=c@gFUy_bdPa

delta 1171
zcmYjQ%}*0?5Ph?|-Ij_A0*YXa3pCP#8WW8N<a?>w1X?Vs)+iD{Oz@x$ni%6p<-n0d
zviJwI7f&9DcsH&j#>k-;55|MW#MEd!dogupf1viz-FY+fX6DUorT$xe!G8+>4T7J4
zkNoT8*O1>t-@n06lYfks;9-f~e!AipNIhrO6Uki41&n5FHlf|D_^m<{pIJyW2-sy-
zu5_I5Zc(220OPw6YR2cy{kZ=k{)zn^9V-uqsI>C(8XfRDsf&iaEcKE7{4u@L3MI|K
zsnMa+6Ba_2jR<mvgLr;=;nrMNVizKeMFZ?iGMn59gKZ<Qopaf2GVOM$n6v+5^$1%<
zqg7|3Yx6g*CU(NK*4ZvoCzGE&mvZX@B4EB?MD>q)J5p&knH|q2UA#6n$Rh_s!<nob
z<EGx~?>Vb40<t2;GPm2SUTsvXk&uJ_+Q4IjAm&v5>h$dFE-6Vi+Rzxv^8_3GPH<r3
zDAqLbAn<f5SGDRuz#6pw4HvA;SQM|clD8OYEUZ(HE>VZMP#$}?NK4vk$OcfPHLc8z
z%X^tlgw{z4@6g0{I99j_B`)5h7uiw~m8xpINE@81gil;&0aruITAsE3&BHsrb<nJW
zjartuRTp^<Sv>VJ8&O^UZD>rr%xZG<p%#u7w0p}ZWtH#3#6T-_USb;}hU!Nobu$+-
z*^y=zt<hYkNmG@Uu5<XwI*4~)Ay}HlE!;7`P?T#5uS&>sn2ai32NTZt#cqyPf(-_A
zCX<Ocl9R(%CcQLw<MzVc$%8zsG+QR$RHIO^B5AnHnhGY@vo@~9Oy&wqnKK^bCwe*m
ziTT5H{vA<0Y8ZNL$daVuJX3irKOY>w<@m}UFpK9+hxZgjQ0a4fJvNT;48lL0$+#WC
z%o-y_#@e?R6kO>8Mx?Rr4EE04ym`Af5qQ<IBqx>TFIbw1z+*i{i2ksH(UhCMj0O3k
zY{bl%3@|p992t<?m9E#c9_D_8QC`r=1}s`JzN47=Ocx=0WdGe^QGC!;v+m&&u8nM$
WF*r2G2N+CBzrs0uV9lqFgZ=<52Jrd-

diff --git a/forth/boot.fs b/forth/boot.fs
index 28f45e6..6fd98f0 100644
--- a/forth/boot.fs
+++ b/forth/boot.fs
@@ -45,18 +45,18 @@ NOP,              ( unused )
 0 A,,   ( prev )
 4 A,
 L1 BSET ( EXIT )
-    0x17 A,,         ( nativeWord )
+    0x17 A,         ( nativeWord )
     0x14 CALLnn,     ( popRS )
     RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP )
     JPNEXT,
 
-NOP, NOP, NOP,   ( unused )
+NOP, NOP, NOP, NOP,  ( unused )
 
 '(' A, 'b' A, 'r' A, ')' A,
 PC L1 @ - A,, ( prev )
 4 A,
 L1 BSET ( BR )
-    0x17 A,,         ( nativeWord )
+    0x17 A,         ( nativeWord )
 L2 BSET ( used in CBR )
     RAMSTART 0x06 + LDHL(nn), ( RAMSTART+0x06 == IP )
     E (HL) LDrr,
@@ -67,11 +67,13 @@ L2 BSET ( used in CBR )
     RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP )
     JPNEXT,
 
+NOP,  ( unused )
+
 '(' A, '?' A, 'b' A, 'r' A, ')' A,
 PC L1 @ - A,, ( prev )
 5 A,
 H@ XCURRENT !        ( set current tip of dict )
-    0x17 A,,         ( nativeWord )
+    0x17 A,          ( nativeWord )
     HL POPqq,
     chkPS,
     A H LDrr,