From e1c6771fe17f96f512098d2b2365600e7a2e0de2 Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Sun, 20 Oct 2019 14:53:53 -0400
Subject: [PATCH] fix bugs, hello world assembles

---
 asm.img   | Bin 10804 -> 10910 bytes
 asm.qf    |  11 +-
 boot.img  | Bin 10118 -> 10152 bytes
 boot.qf   |   5 +-
 in.asm    |  17 ++-
 out.com   | Bin 5 -> 27 bytes
 qf.bas    |  15 ++-
 trace.txt | 386 +++++++-----------------------------------------------
 8 files changed, 85 insertions(+), 349 deletions(-)

diff --git a/asm.img b/asm.img
index 6124976f1d02afa73d962551104831142ace0298..d65d1ca7041a03746338d6b8e65cabea98440a3f 100755
GIT binary patch
delta 1826
zcmdlIGB0$41T&-BWJe}>)(8I?7-~Q)_WS=C7_zG3Cp$99Znj{~VPq*zP0gO{$Rxvl
z`#%FiNovmIhXS&UcQ!9%S<TFvUs_VGII&QgZ5jguLuT4!M<zMO#glV6lo?k~p2(rh
zxsid9At^OIGjC#{G{+tWMuzf?%$&&+xulsC_D%lFq0D$-vLdH4$4Lf8hSI!}%*hW0
zWLPgSFfwR>oWgpYfsr8w#A3WRc_XJX=Tim-hQy+x#7dB9Zx|RD$`XroKu%-%#K6EX
zS&&tpN#W~cM=oWyp9~BPd6|<Lh2%K?f|#l4iIXQXN;4}kFiu{_rNqU`$iQHgm!FrI
zJ9#3P6dNyy3-Z1kn*bvtLya}qBeIiixs@4}CMR+$b7(U%Fytm?r%ra{mf_T8WMD|i
zPc62aSSZbG$;dc)y|5y)CnLk;^W2JzzLP(4D{}@iGB6aSrlh7#ER<%9oovaY%$PJe
zmPeT}e{v&_GD{;PBg5o*Y;xQR3ayNc43(LwIVm8O(<Z;=QD&SmS&&zmeI6qtLuz93
z<U&DN_Qi~h47vG5ppau$P*^#+mRFf^<K%_B%IteV4$I5~MHlN)5PNcffIQ=w$-I2Z
zjF%@H@+os(V`N}RE-fm`pUfyEJvo4%g*m^#5Tu^*_T;&I%8d6WALLW!e!|GW;2#hl
z<mzrQu~3rn*<?<BWyTkib@`PUUri3=S7v|1$iR?apa|CZZt_fiWhMru$@}<~I9QoL
zUQM?EMFgibgkxw1iXu5C28QCI)O3&xqvB*=0cA#&$%O*StQt%V42hEq1?5?Fm>3w6
zCkG11Ga5|3E1=A1GMQ0Onbm@cfguGX%4!2<Jrs~<beNngsLbdxd7_{)s|OPUL(=4j
z0`jarU{;}^JY&G*zk<q)A(It_l-VLc7H5JYku3&f0GP>`Fu7MqnK5PZMj>U^43LV+
z6NThib3h8ftO6zm2Ia|t><W_|g_U{BnLsgKlANKNnOiXVp@2Ah3ljrFW?u2+g>2Hy
z3JQxSUlaxf@mFDG_8TA>uqs)`+mmfYlo`KGP83n*_yaN{zbpw90PGCR3=9RO#i00P
zlL4_o5hBNA%DnlaNE9EdAM;EGhRv)hij1<){|hnv|Nrm*r~m&M9{m6Q|I>d4#&<B@
zWKC6l+0_iM|NsBr&G7&KVut_!KmC99|JDD$|GODJ{D1X-_2g33Q0_Mjul|E%7#KcH
zzN)Iu#K1WDpQ?uXYKH&+UxSTiWcc|1@BiQb-~9jopO?Xm`OE*G|3Cd#Vtn<#n?ZZB
zubQ}_6XUc0Yz*3rzyJUG|M>s^{}2P27(V_7nE}xW(dEnd>i?(zQImVsOhxxFeER?I
zKZySbOipHa^?%>w>uU0>NsO=lADH}GP0@P><E#H^4FCUw)Phv)1AAf`NS@)-|HojP
z9{zv)|I`2NjL-hFFic~d!TA6GxBn0S|NlRY@%R6K|AiRd{{Q{|&;J>d)75p^FEjrB
z|NsBx$+Okv>u)lGTy~A|(f^PCfBnA<r9b^=WO)7m<NuqCzo5YaVd;Wh&c)=!`1}9g
z{~#X7<w8tOjQ{?FL_qpJ{{Q{|9pnH1N{n1gj0_->2~09GC@~5#F))C5AQ~hmRL{i1
z0A?^TLM0fXd{!vU1Qln3^4Xv?GgO=z%4dhtEKqS)D9r|?*`YK81H>VWU|LX!i3!XQ
zVq#`sW_ZK+Zt_VDdC5=z85qnM-u@S50Qu;{e=Y`)uh<x_O=i?o76thmqypsk)lk3R
zoNTG7C{)e_3eOg%xBuB0zWx96pMhy|j;4gNCnLxhP(tto2YolgoBwbAKl*=}>G%Iv
z|6l!o^#8`>^_r6PmziGw|N9>j<YyVa|Ns7<fe93ltC^S>c$k$KL9_((r~f+`ZZm%T
z|NZ|x#%T=y|1&VKFf%c*Fns#I0WSXiKS*4FnUR5o0i=(S!HD_Oe>R5OjGz8<FueZ{
z(hX9fz|73>>3;x3pY8wu|23I)m_aeLnu(FYoB7j!b_^|+U@Z|4E&u=jcVc#BW@2Dq
F008Jkud@IE

delta 1650
zcmbOix+P?T1oP$u<{rk)Caf!%Cvhq;PMfUAsmw8tfsr9Kr#N-8Ba;mK5(Y+wq}24u
z3;ARj*H7-{RA$^bc_XJX`(_44hQ#zlkT}O421bU`ypqhx6NO}04>K?_XiRowl4m?M
z*^x_`<01niLvnsz@nl1GX)c8u3=9m3MMa5~lO365Ca>jEW_&vNB9}793y^qDPCiH#
zhr$~M28O)Mg2|3dvWy=l+j1+jeFn)VP2MOh$NhtWfx#*-KQA#ibz-69<OFUOCaaps
zj!bfl%#+V@D>DjA{>ZJ&C^}h`N10J>vL%l)qr&7^9%W7)Mn(pel+?7;$%bsw95##$
z3{Z{?qr>F4Jj#qdlLdK|Spyjv7}6#iu*tK;F)}htRuq<JQYe^Q%d5;-GI=4dGDj;&
zV}2eubU51?85pcn^7B$B7D_YrPUhuPW}GzHkWZO&1|uUwQc-GR_QXPIjs=Vi3^|#3
z*^@U4%P_8)JeN<Iam(a`e9COQ85tPz3qZbNJT#e;UwQHYK9<P_{0fXGCI|8>v!4P>
z8-au2?BtpJ%8ZvM@8wr!ygK<IzcTlAMg|7|fcW4bS9ef21n{#=))7!(ygk`hK$-FG
z<U#>u&i9NA47u4wsp%kBd|_l@C`wJY07WY!*W|kb%8a~|83mPD1(+BZ5+^eX$+HTB
zSrdii8O0~(3Mw;7Po5~K%qq{sz>qw7qL4hRGMH5;D9@-q`LCcdqxNJ)A!Sy5CI*I-
z$%TUQtj0_X3`ro97|kd53Mn&MPu?h`%x2HTz)%c|OgT1ZkODB1(S5S4urj0fWJh6T
z7JnuNhRK5b(i0n4S%blLY!sGf44=GKSeY?;@<m}~)_5ic24!%nN}en!qRf~!*;YiE
zv3PQ#h%)yikp203DTyVC6ALAI4>2(?Wabr@=;ozXluT9>5obI$d8LRl%W04$iXtFO
z7|%`qD5A{%l8J#KH@^%Nz8vo%>?Ba=aDHZDV8|~mDOa3WD9!YpY4b)=f4<2FL?5$C
zGEZjU-OQ?@$jB_j@O-kfs=n+zhS&f9|L<n_|9=|8|No!<Kl}gc|KI=J3?Kf#`af@S
zziKG=eTG;6K{5;sPba@uRcHFlFj+!PgK^$uM>TQ(FHB$l|NQ^yzbNCY|J@97jKBVW
z`v3nwNJBTnr~k|hAOBY}eEM(7`0PI$gB;`U|G)k}hRVPG|NH-&|Ns9(^xH7L`v2*_
z=j8QjrlRW^KK=jqAH;tICMPqz`oD4VPc?bgK*m@9H&2#TSM+XYeDyz#;s1Y-T9B%Z
zV8^$D<QYEwe++iP!~c)}fBL_S@!5YChE~RQ#{d7n{eSrX|NmCT-~a#p7h-t(|M&kt
z|Jx^bs_U{JV*LI8|Nldi_o~a+pI`*J>?q@-{~!PV`hN&YfBMhJ@cRG9|0fuKL4yOr
zQUJUBC!;Cj@Be@QgLoj9GcuVn{`(IS0qOhr|M&m9jQ{_OGX7*_WB`#&V3L_Zl#!8%
zfdRw=(I7d-dL|YIFoTH^D!~ZlvqEVms5ldp&jzKLq2kO?K0B0Vfr_(2X*MX$4y73w
zAP!*!(}IjlOkf5h6Eg!d!)?a9lV5AdOPVo!`p>}d_P;0t$VVUkb1{H?#l~=Sva+VK
zD9GO+d63^{LH&MWa<rzRP#O~`Jd2s${%2?S_W#fS_l%SKG$rak{byqM2nup0kZ}+e
zC<?k6-u!>_|Iz<rOuzrX`v2<xqyMLw{{4UZp95;`-~X@vKl}gv|DXS_{~u#|{r~TO
zNOYWK`2PR<|M%cPp2ft(z{xDi2%<%q|ACSugA~K}|DXOdFuwc$9Ta_r|93E)V*L33
l`~S0y-<kgZXJBAtW@2Dr`1F4RLi|5SoR^uAfrWvA0RT5wb>IL1

diff --git a/asm.qf b/asm.qf
index e653384..0145256 100755
--- a/asm.qf
+++ b/asm.qf
@@ -32,7 +32,7 @@ OP_SREG mkreg sreg
   2 + ;
 
 : match-impl ( optypes opcount -- b )
-  begin dup > 0 while 
+  begin dup 0 > while 
       1 - 2dup + @ over optypes + @ != 
       if drop drop 0 ret then
   repeat drop drop 1 ;
@@ -44,7 +44,6 @@ OP_SREG mkreg sreg
     if execute drop assembled ret else drop then 
   repeat drop 1 message yelp ;
 
-: do.data ( cp -- data ) 2 + ;
 : inst-nextimpl do.data 1 + ;
 : inst-opcount do.data @ ;
 
@@ -58,8 +57,14 @@ OP_SREG mkreg sreg
 2 inst mov
 2 inst movb
 
-: outw! dup &hff and outb! 256 / outb! ;
 OP_IMM OP_REG16 :noname &hb8 op1 + outb! op2 outw! ; ' mov impl
 OP_IMM OP_REG8 :noname &hb0 op1 + outb! op2 outb! ; ' movb impl
 
+1 inst push
+OP_SREG :noname &h06 op1 8 * + outb! ; ' push impl
+OP_REG16 :noname &h50 op1 + outb! ; ' push impl
+1 inst pop
+OP_SREG :noname &h07 op1 8 * + outb! ; ' pop impl
+OP_REG16 :noname &h58 op1 + outb! ; ' pop impl
+
 
diff --git a/boot.img b/boot.img
index 359ccf7d1185ef0715076b9fe68014aa7af29ff2..9fd511265905340aad4bb8bb7d08c0b7db9d4a49 100755
GIT binary patch
delta 769
zcmZqkU*W$&f|*fm;zW7Y2mcuuY9>yUXTSfSfg!6Ze&R&g%@)i#j4Z{eso4`J%5dEN
z&%jWUnv*keq737m%?nvpGqdKGmXs?_4&;z!VPMEin>bO9aq;9_4rRvGlP7X0b8ci{
zWJpR)&&-=xD9y2lfsvs+BQt06L@sG2g?*F%awsz%n5@XD%z2W5k)brNBr|7Xp)~6S
z21W)AkaMmxFfznUoG8zDZ}LV?WzMGz3=D}yMTwOlv)(W;Fq9=0=}ep`!}5uNfnl;B
zt2~p!*U64t%IrTG7#Q+03nosK<@gI?rlu!Op2#T8tiZrHc^#J$7b_zJgH>LBUSjU#
ziCj`_ydZAP#EEij0*s6dHP#?M$WFH9R%TS1oXD-rq0Pv^keisDI@yt1hEtc3fgvS7
zwb*WAp)|K8BO^mfzFtaVN#evpNoG$*hRNr-6&Zaef8<u?3}j?rC`wI9O`BLK%@{k`
zl1G^_X>u%&GGqSaMjmCBMn*=4$@AFcxD^yy85tQWGgEU?CI@oJOn%Fw%s6ARAg?mV
zJVr)_)WqbBi4$em7c(+4<mMNFf{s~1VddmnUS-COlNa(Tv+o5tFEelAL|OKuAZB94
z#EG&@XBamN@=1xZUS`Z>;N8rsqR1%w{J#*x|NsB~fBOHQ;lcm!|3Cd_V0;JTP1aP^
zmtD>9`v3p`-3<T#FJ}1v|I`0x|6l$8`@fsv!~a+RS5Gcg4ds5r@ajKEhJoSJ<g2Rc
zObm>Z|EX#)uAZ!}CeN<K`09T*gZ5-!HE}~H#%KT87_=FG|Nr&>@&Et-A=;Q2KK}pz
z|Mmah|KI%o|NqPXpZ`Do_ho$b|I`1d$-Qc(qI(!V{r~qL#D4@PCo{bIzi;w&HF?$~
z##jFjO#ZE==skn+)&Dex|NlX1L8|tFojMI9&+zI0W3WvR|3Ci!>Hl`dXa89krZLW7
i{Qv*k|A+to|DVSA`~ScHLJV*J|Nj5y|BT7$>hb_UzC^eH

delta 668
zcmZ4C-{!wTf_ZZSa}VQY6V?^XlQ<O^r%hJmROXn+z{rrAQ=B?+q73^I21bUY)bz;<
z`D7W_PwwSZX52V=Bd0R^W(G!v#PmdvIOiS)MuyV7lFXcmh0?5t85kKfCQg)RJT=*o
zOPS*$10zFneqQlpLw0E{g&PbE42eZWiIo!zr5W!}UdyG-_;m6`E@h4vAc>rue2_8@
zg*OZg40)La6DP_tewb{_t<3%zB%M?|aiT2u4+aJXtGxWY#N5=0g_4sKxLKI2Y9>yU
zV`QFumRp%oVDd+9Wk%7-qCCosa+582lo=H!$MPt1>M$}gsHCK(rA{_vljg8tWMF`D
zWEdSLzvWS8^qDNktIQh6$iR>`*?>)+HI9*yArs_}g2}bK%8VtG7xF4|w1V{I=Yc|o
zvz?KF!8!%RDU@dHoy^Op%s6SXA)hkm3`RzVq@vWs?1_caoC_Ek7;-Z6vWr1JUNd<v
zpEBc?$p`tAnRYX7{>aBKI*I==>mkNu2I<YLDvFHELJZF*JFDu;&SQA}|NsAPhX4Pk
zG5r7k>Ho9;um1o2-_7vh|EvG=Cikm`a^Gio^&cd|!0>ePdsTI&&kU0#)HE39O?Fh1
zcNb-R^}m}zj`7$3Pyhe_2Py1k`1GHd;p6{GhEM-Z8K3=UV~}I~{r}hh$58p#|9}5~
z^Z)<<FaLl3|McI6@zwuN|2-$KS2Gn|&+zI0zyBcqBQQCc;nn|*lYgqovj#H0`oDRy
zth%CiJL9YWX$=4WgVcglZ3H{I6(rB_>HlM}3m*P|{QuMcWsJ}MvoN$Wwln_!|Ly<7
c|NsBDGXDPm@4pbk+yB4+|M}lOxl>&p0O!pe`~Uy|

diff --git a/boot.qf b/boot.qf
index 0e3030c..f0d7458 100755
--- a/boot.qf
+++ b/boot.qf
@@ -1,7 +1,8 @@
 : debug word@ yelp ;
 : here 0 @ ;
 : here! 0 ! ;
-: != not = ;
+: != = not ;
+: outw! dup &hff & outb! 256 / &hff & outb! ;
 
 : if ' jz_ , here 0 , ; immediate
 : then here over - swap ! ; immediate
@@ -36,6 +37,8 @@ var does.patch
 : makedo word@ create ' $do , here does.patch ! -1 , ;
 : does> here 3 + lit :| does.patch @ ! rdrop |; , ; immediate
 
+: do.data ( cp -- data ) 2 + ;
+
 : $defer r> @ >r ;
 : defer word@ create ' $defer , :| |; , ;
 : redef 1 + ! ;
diff --git a/in.asm b/in.asm
index 6d55dc0..80ff81e 100755
--- a/in.asm
+++ b/in.asm
@@ -1,6 +1,15 @@
-\ The simplest possible COM file: just return 1
+: .EXIT ax &h4c00 | # mov &h21 int ;
+: d" begin in@ dup [ in@ " lit ] != while outb! repeat drop ;
 
-\ 1 trace
-\ mov \ should fail and yelp
-ax &h4c01 # mov
+cs push \ copy code segment to data segment
+ds pop
+
+tell 1 + dx 0 # mov
+ah 9 # movb
 &h21 int
+
+0 .EXIT
+
+tell 
+d" Hello World!$"
+&h100 + swap seek outw!
diff --git a/out.com b/out.com
index f041664f6687e6900312efdb2ab3425cd68281f0..23241150ce4b57df14983f8fe8e1c10b7c3a1f71 100755
GIT binary patch
literal 27
icmd;+-^Itch4ZZ94hEmIiXN#sIr$3V`9(P?iYfqm7YOwL

literal 5
McmdnN=yO&P00uw-^Z)<=

diff --git a/qf.bas b/qf.bas
index c00bd52..42e3e32 100755
--- a/qf.bas
+++ b/qf.bas
@@ -90,6 +90,8 @@ CONST O.BITAND = -32
 CONST O.BITOR = -33
 CONST O.MESSAGE = -34
 CONST O.TRACE = -35
+CONST O.TELL = -36
+CONST O.SEEK = -37
 
 CONST P.HERE = 0
 CONST P.LATEST = 1
@@ -166,6 +168,8 @@ CALL opcode("*", O.MUL)
 CALL opcode("/", O.DIV)
 CALL opcode("<", O.LT)
 CALL opcode("=", O.EQ)
+CALL opcode("&", O.BITAND)
+CALL opcode("|", O.BITOR)
 CALL opcode("jz_", O.JZ)
 CALL opcode("jmp_", O.JMP)
 CALL opcode(">r", O.RPUSH)
@@ -177,6 +181,9 @@ CALL opcode(",", O.COMMA)
 CALL opcode("message", O.MESSAGE)
 CALL opcode("yelp", O.YELP)
 CALL opcode("trace", O.TRACE)
+CALL opcode("seek", O.SEEK)
+CALL opcode("tell", O.TELL)
+
 CALL assemble("<rot", ">rot >rot ret")
 CALL assemble("over", "swap dup >rot ret")
 CALL assemble("2dup", "over over ret")
@@ -208,7 +215,7 @@ SUB execute (op%)
   IF trace% > 0 AND tracevm THEN
     tp$ = "N/A"
     IF sp > 0 THEN tp$ = STR$(top)
-    PRINT #trace%, "ip:"; ip; " sp:"; sp; " rp:"; rsp; " tp:"; tp$; " fn:"; guessdef$(ip); " op:"; lookupop$(op%);
+    PRINT #trace%, "ip:"; ip; " sp:"; sp; " rp:"; rsp; " tp:"; tp$; " fn:"; guessdef$(ip); " op:"; lookupop$(op%)
   END IF
   SELECT CASE op%
   CASE IS >= 0
@@ -257,6 +264,11 @@ SUB execute (op%)
   CASE O.OUT
     byte$ = CHR$(pop)
     PUT #1, , byte$
+  CASE O.TELL
+    CALL push(SEEK(1) - 1)
+  CASE O.SEEK
+    SEEK #1, pop + 1
+
   CASE O.LOOKUP
     istr% = pop
     iword = lookup(strings$(istr%))
@@ -404,6 +416,7 @@ SUB interpret (st$)
 END SUB
 
 SUB loadfile (filename$)
+  PRINT "Building "; filename$
   inline% = 0
   OPEN filename$ FOR INPUT AS #2
   WHILE EOF(2) = 0
diff --git a/trace.txt b/trace.txt
index 33f5f8f..4fe3165 100755
--- a/trace.txt
+++ b/trace.txt
@@ -1,346 +1,52 @@
-read: array
-read: ops
-read: 2
-read: allot
-read: array
-read: optypes
-read: 2
-read: allot
-read: var
-read: currop
 read: :
-read: op1
-read: ops
-read: @
-read: ;
-read: :
-read: op2
-read: ops
-read: 1
-read: +
-read: @
-read: ;
-read: 0
-read: const
-read: OP_NONE
-read: 1
-read: const
-read: OP_REG8
-read: 2
-read: const
-read: OP_REG16
-read: 3
-read: const
-read: OP_SREG
-read: 4
-read: const
-read: OP_IMM
-read: :
-read: op!
-read: (
-read: currop
-read: @
-read: >r
-read: optypes
-read: r@
-read: +
-read: !
-read: ops
-read: r@
-read: +
-read: !
-read: 1
-read: r>
-read: +
-read: currop
-read: !
-read: ;
-read: :
-read: assembled
-read: 0
-read: currop
-read: !
-read: ;
-read: :
-read: mkreg
-read: makedo
-read: ,
-read: does>
-read: @
-read: swap
-read: makedo
-read: ,
-read: ,
-read: does>
-read: dup
-read: @
-read: swap
-read: 1
-read: +
-read: @
-read: op!
-read: ;
-read: OP_REG8
-read: mkreg
-read: reg8
-read: OP_REG16
-read: mkreg
-read: reg16
-read: OP_SREG
-read: mkreg
-read: sreg
-read: 0
-read: reg16
+read: .EXIT
 read: ax
-read: 0
-read: reg8
-read: al
-read: 4
-read: reg8
-read: ah
-read: 1
-read: reg16
-read: cx
-read: 1
-read: reg8
-read: cl
-read: 5
-read: reg8
-read: ch
-read: 2
-read: reg16
-read: dx
-read: 2
-read: reg8
-read: dl
-read: 6
-read: reg8
-read: dh
-read: 3
-read: reg16
-read: bx
-read: 3
-read: reg8
-read: bl
-read: 7
-read: reg8
-read: bh
-read: 4
-read: reg16
-read: sp
-read: 5
-read: reg16
-read: bp
-read: 6
-read: reg16
-read: si
-read: 7
-read: reg16
-read: di
-read: 0
-read: sreg
-read: es
-read: 1
-read: sreg
-read: cs
-read: 2
-read: sreg
-read: ss
-read: 3
-read: sreg
-read: ds
-read: :
-read: #
-read: OP_IMM
-read: op!
-read: ;
-read: :
-read: read-impl
-read: (
-read: dup
-read: @
-read: swap
-read: dup
-read: 1
-read: +
-read: @
-read: swap
-read: 2
-read: +
-read: ;
-read: :
-read: match-impl
-read: (
-read: begin
-read: dup
-read: >
-read: 0
-read: while
-read: 1
-read: -
-read: 2dup
-read: +
-read: @
-read: over
-read: optypes
-read: +
-read: @
-read: !=
-read: if
-read: drop
-read: drop
-read: 0
-read: ret
-read: then
-read: repeat
-read: drop
-read: drop
-read: 1
-read: ;
-read: :
-read: inst
-read: (
-read: makedo
-read: ,
-read: 0
-read: ,
-read: does>
-read: dup
-read: @
-read: currop
-read: @
-read: !=
-read: if
-read: 0
-read: message
-read: yelp
-read: ret
-read: then
-read: 1
-read: +
-read: @
-read: begin
-read: dup
-read: while
-read: read-impl
-read: currop
-read: @
-read: match-impl
-read: if
-read: execute
-read: drop
-read: assembled
-read: ret
-read: else
-read: drop
-read: then
-read: repeat
-read: drop
-read: 1
-read: message
-read: yelp
-read: ;
-read: :
-read: do.data
-read: (
-read: 2
-read: +
-read: ;
-read: :
-read: inst-nextimpl
-read: do.data
-read: 1
-read: +
-read: ;
-read: :
-read: inst-opcount
-read: do.data
-read: @
-read: ;
-read: :
-read: impl
-read: (
-read: here
-read: >r
-read: >r
-read: (
-read: r@
-read: inst-nextimpl
-read: @
-read: ,
-read: ,
-read: r@
-read: inst-opcount
-read: begin
-read: dup
-read: while
-read: 1
-read: -
-read: swap
-read: ,
-read: repeat
-read: drop
-read: r>
-read: inst-nextimpl
-read: r>
-read: swap
-read: !
-read: ;
-read: :
-read: int
-read: &hcd
-read: outb!
-read: outb!
-read: assembled
-read: ;
-read: 2
-read: inst
-read: mov
-read: 2
-read: inst
-read: movb
-read: :
-read: outw!
-read: dup
-read: &hff
-read: and
-read: outb!
-read: 256
-read: /
-read: outb!
-read: ;
-read: OP_IMM
-read: OP_REG16
-read: :noname
-read: &hb8
-read: op1
-read: +
-read: outb!
-read: op2
-read: outw!
-read: ;
-read: '
-read: mov
-read: impl
-read: OP_IMM
-read: OP_REG8
-read: :noname
-read: &hb0
-read: op1
-read: +
-read: outb!
-read: op2
-read: outb!
-read: ;
-read: '
-read: movb
-read: impl
-read: \
-read: \
-read: \
-read: ax
-read: &h4c01
+read: &h4c00
+read: |
 read: #
 read: mov
 read: &h21
 read: int
+read: ;
+read: :
+read: d"
+read: begin
+read: in@
+read: dup
+read: [
+read: in@
+read: lit
+read: ]
+read: !=
+read: while
+read: outb!
+read: repeat
+read: drop
+read: ;
+read: cs
+read: push
+read: \
+read: ds
+read: pop
+read: tell
+read: 1
+read: +
+read: dx
+read: 0
+read: #
+read: mov
+read: ah
+read: 9
+read: #
+read: movb
+read: &h21
+read: int
+read: 0
+read: .EXIT
+read: tell
+read: d"
+read: &h100
+read: +
+read: swap
+read: seek
+read: outw!