From c63826bbfac31f73a2fbed335c46d7ae59069ae0 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 21 Mar 2018 12:39:23 -0700
Subject: [PATCH] Z1 support

---
 src/onbeyond/onbeyond.system.s |  10 +-
 src/onbeyond/z1/0800-21ff.org  | Bin 0 -> 6656 bytes
 src/onbeyond/z1/0800-21ff.pak  | Bin 0 -> 4206 bytes
 src/onbeyond/z1/z1.s           | 582 +++++++++++++++++++++++++++++++++
 winmake.bat                    |   2 +
 5 files changed, 590 insertions(+), 4 deletions(-)
 create mode 100644 src/onbeyond/z1/0800-21ff.org
 create mode 100644 src/onbeyond/z1/0800-21ff.pak
 create mode 100644 src/onbeyond/z1/z1.s

diff --git a/src/onbeyond/onbeyond.system.s b/src/onbeyond/onbeyond.system.s
index 5272c6a..c0766c3 100644
--- a/src/onbeyond/onbeyond.system.s
+++ b/src/onbeyond/onbeyond.system.s
@@ -62,19 +62,21 @@ quit    jsr     $bf00
         bne     quit
 
         ;select interpreter by auxtype
-        ;3, 4, 5, "$55" (special case)
+        ;1, 3, 4, 5, "$55" (special case)
 
         lda     c4_parms+5
+        cmp     #1
+        beq     +
         cmp     #3
         bcc     quit
         cmp     #$55
-        beq     +
+        beq     ++
         cmp     #6
         bcs     quit
-        dec     filename
++       dec     filename
         ora     #$30
         sta     version
-+
+++
 
         ;get volume name
 
diff --git a/src/onbeyond/z1/0800-21ff.org b/src/onbeyond/z1/0800-21ff.org
new file mode 100644
index 0000000000000000000000000000000000000000..a825d1f7328e40ea8ada29a3963e468c0c00aa33
GIT binary patch
literal 6656
zcmbtZdvF}ZnV;R&uB_E-WxZCmB)9xz1qSo7_nf)|0!r2}*pwe62S+gpCD+=O<j6tg
z?&`Q8OWQ)Xme8(^ZG~{jqEhQLN?g%$2f;Sj4p_>L0Bek^QpTVl&(4e_KzMlg4hmDg
zU(c*%DO|`Ox25gv{`%{$zxVge=!`7%w(Jw8)GvB3JuUx^ek2Rj!nd35mt8a?Pf<no
z&{6pkeGAaz@>2RcxrM%h-&e6dAuprDSdZZM_bE`4h2-(%D?Py-uH=cH@U$yAk{MOs
z>yR%cPXPU>{5U;^-^23N^azR8v%^$pN2mdihHsYKRG;vO!h)0+2M%|n57U>-mt+Cd
z2AhG#(c{A}S>=)W=uxq6LCTdr9CB@NS({V&I2Y%KcY|hUsu;5#EQ28NGeBNsFY)Oi
z^6KKSaVW8LAQO9eAa;ziNT=vDeUH8`dn4pPWfc6Y|1JJU0Xf)kchPr?9w_QA`ejj+
zxEc;E?kyTBI=1+QqF0N?iry;vw8&Q+D!#6`x%iRdpA?T5=a>9z$=;H_l3$lRQruB?
zq~vtT`z4>3RF|$Qy`^+x=>w%dE^ROUW$AB9-!1*Tv@-CMz^?*oU?N}zR+N3G?4Qbx
zm;H31yzupfp7O%V^2+a5?yBsrWO4d2+f6@Vo%B=4u#5Cn(-x&=$Rj@KSBCJj#jhMs
z{0QJ)Au<q;^n{M9J~H7KzbH^zFe@+Qvs*Fy1BXSUVwpcW$n<@!%-Gj9HD&IKh8x3;
z;^_i;FV*D&D7!_O0NvyM=?TRTt2|QdA4uy|%V5Zo$AlkfLU?*eDYCaB@+#+4RJ__B
zTH{>3)2{@a3wQd#0NiO8(<v^bZLB3!sswUJZ<%v6$KlWUfjP*;q4Qi090Lt1yFsrd
zv_x5yqx0YuI$S+E^khhwMeJ1+ivq#&i;D{JQy@NCNZPB#`>L59VMYXVAVjGS2+)DC
zP6-T^!UOz+&p%C#DGa(4o(}lA>owABko7ccRAWDD&eCj3NNd!{V9+H{l5n$qJ9(%O
z?vuNruX@nAB3>Y<9^5l~0Zj1p6m0SI*IdAiq?TcNQsWX82y4m%`Sv8>58bMIFvUfK
zp<At@c!=v0qKlstVm>Q;h*&;m6dZ?T4X<uJ$aDxt^&$6&1Gs%2fNFkQOcoC|>j|H!
zscth%<1Fjdtg0Z>ns?LPEZf`}a?ws)){Wco2NSnq)h6bb$bz`3h&)up<&V?7@ZBVQ
zcMo>=lSmEQ3tCB#*h4$ne%j5RqFrnseNw^+xtQpSWj_Y-ZhjmJz3d5~%Z-MMuHb-v
zo43{Sh(`*==L%UXDXva=#fc(k=1c35SzAP*__u-QY~{g`9YsA*7-X%@JQuauY37P%
zQUdwB3h77uP9eFum@~7Pk03DPH+AU5aEuGUr+&w}lD#=cnc}U*td-NI23Zyqe^DYH
zY#@*2$beb!p}Hi*BKN~MXCF)tx2kZ+Y!n`*MOZeH@}{+vFR6=f6x#yY7#HSZq_w2(
zaFEJF7S=OKowH)tT!Uynk6RwRpa^cV)NlmgJi#EZQH8xuN7)-RV=LUcQSNcFER=8h
zgWTB@@BwV5T-*;kxJNQAJng0$oG3eDs(cgJyO}{do#|_szRsrx?5)!`xT{=NhWG#s
z0ZyQox!Ur>at@T-6oji>R=175;S%4%Xv{qwgG>}j>5l5e9kzL~ZlhTi12Toy0lx-t
z*bX2YRV*rnJ;9O2jQNQ3{3wsbPU)7#X@bs*9L*K2R3n?Jtur><%lVIa!82!x0tri?
z@FnT4V%ZgwxItTCdb4Uj=c2m`3e>!2Qtv=GO~R&dD;sETxU>RR>|m3aWbKX1GT08r
z5g&sy!2=v`NrAzno^zQ&)_U0k;#OYDYoGVUR?;AgHFK5HX7C1clZS%f?JLlSgR|j4
z#;VAtRl_kWl<*NxwHOSf3WMpx2oVj16fpwb`Ug6AzT*Qo2I3^62-af7WqD99zv65_
znG<ib7ZeV8#BGKAj(-j~{uu0OMqI+xj4;y;9+ZZG+Rv{Tt70*0p~G3(?7`;(fbakX
zkrM$P$=vR3&9E2_g;}d%uMKC-xF&2H<(%ewFp=tKn&P&~lsv0|oU9}dSK*{jUup2K
zSW)(Mhe~h=^|cCU-!iuA{QG~O01kt~Sk~rip8CZf7WeNOMH)ZYz*>i6s*kk|Q>$Ur
zT8w48y?nx2IBFp@hC9@Eu={UU5}vnBEks;hPGyK-9U0dkC~dD{`nogSjcKPnbz;zu
zfNX2zEm9+b6-5#yZw-2f*<v>ukAMW<!I#>pWpK7oP1(KCn`{>~M@(xuNTMoIy<dBt
z_M?uOd=_(Nre<o$4IrR%mNN7WrqI{eD1DtrcFYg|yyBffrrUYg;CVPDuqTkmSbHuK
zz6Q@hnd?<hC3lFig*nG8&pGBilDT6Ab?Ek-63`0AIYQgGbq>=QLgomi<k31h3GvL7
z3yC#`zGDJ~?i`AKEORQRdbk{uUelSFiVt?2Drcs8ZOYdx$ilwUQyuDO>|EbOCX-3V
z`p%_W$&!kpYwbx%MIzrkH!>-%FK3h1QX96QVyK2s`ptc(M<z|vJcnI++BC5^$4sl8
zO-48|W+r1~>mqV@Mc)L=CSw_<VaQ}+6KIBGyakU%9mZ|yC^9+n375q0G)-};oLqa&
zEyezVBCrH7TKENT2^E$PUHkt8rLYtsH&sATeK2ZS8RWv5Q884JT7Z@s?GA!-p24IX
z@&L+=A0KMk&7xg&GCgP{oVZR2;!i73z}_AT^5doh4Kr;zfKp<PWCI!xeZYBhf@Wg}
z;Jo%Q^G<wV2Z6nPN>8j;YcuRDCfBRwDK{I(Y?WG&Veep4Z!Mcco0ln<Q>Ku4v+7Y;
zGfOpzUxS=xXP7LnmgqTP%v_2f4V8Rl1U%%vN^XC<aVnSX77*oz$8!WqyrvRHDT)Sn
ztigG>`UOc|Bcg>_&B^^^70B7;2tGC^1vtqLX=e7e`*>r+Yh|k_m&)!)YC*5?{8VFO
z<2DSv!rG~+%YPl}v>ku%u=fzv@1x*sq*H7YotBsxfpc(P@ty1qFfABzA#HFigZ<`7
zI=OvvySY8PT^m(r8v$m5LsThvOO%>9A`E4p8Mgn}sin7!YfBq|va$&;HF~JN(p)*Y
z5*cz-g&!C@Q5E!^pajE#8k%XF8W{P28H6IuVvyJeAs0L`EDHwQ0i$8}<!j)QAK1#`
z#Vv+s1N7dxir}aU8OG&^C6|T`ZO~fa!}X)$p(^g5xz>i;a9*#&TUA~|vQ9#QUk+rX
zv>sZ5VJH8D@+D-5!OUpjVn%Y3DARe`zx?I>ug5fkJ8sT-Zy|q_1n;~O+IdQ1*(M|4
zW!YgvV#aV*&13qoCNYIOodO>og~RGeWexznlVWCAM)|J<Px^?vw1S3AK}R`?neNO+
zGOE4Hx~<B-c)BYSi(5QKW8LO%V0KEZ6SZOY@Joqm^w&;)zq*DdhJxf1gjS;2e$agq
z7U;tBd$-tEJ$yjT!*V}+5$K1g!4kn{7yzd=REOE;@4f`vojlGu@gy()fwy#fnL(2{
zX!q|D)BPOM$U%*Ck9b{>)0ABVmmeU9`R(jLu=x<(hkKrq$iu-1zIF|f*nY^eH~my5
zw%3tmznO$AdnC38vLtO;l3;ERY859pwA_~EfFsL3T=W!V*)KjE98Q41AOPKQX;vOw
z%jHQzo;`EqIlz*TXAhUBH#mG$^{}H-|518$AbkR_6p|;>BX|jMDLK+-z)&aR1MFyW
zgz3s9%Lji?j=-$+nAHC=x8tef>H=n*dd2cH9a++1$HG!ikU#Q`Q5CG6BnuWLToN^{
zO(;3{D0zu{6<^}}<YG;MfI@wLu-W8!VRMb*QoZsw#2?o%Gd!K2$R9YAtq~us!Ev5D
z{Si#48TFb<fqGIV*l`Bu$%i9etO@RLgW8!IdJ^>b+F6Zp>YjuzJna$B)JSWtzv0H4
zZeF`C{8!gr({Rg!%T_JD?(ZI3z5c2YI~nk>F)4K^c2Z($z#W#<N>fF92#cSB$ZxVY
z@4Pd#1a)BAr3O*=Q~=niodX=+vlF?PZ$fgw19^~LWv6nGv0fqNlfC=S^4cf+>@<Sr
zr(ZYq=TB1;l6%F9#R|bh;FDstq8~eo-}1`E;x87Ny6gfR36`1Uhl{B;JZ9a?F|Zic
z)W)ze7Tn>1=opcAG&;r~m9qWXzO!gICQ*w!`C-wGaTa%Q3P|xk#o-6}9S|~rOdg)T
z|1t)8tRF1`As8IsZ*YE0a{prWUD-E_a+gz-?hJWmL1AWwmH@eT`FOU*@{I;QO9@gu
zxFcUuzL&^X{$<D`3zBjhruSp&;%_DL*0^Q2#NOtHUwIaP{b$?X_P#^UvOn6OasSHk
z{_*y4@4NIJHeS#|$0gELi#KH$1^F0vUaF^r5hJai($&v4TuSm^i~ll1>YssrJz`g_
zLK2mVgp2XwC_GIHTK-*d>kUJBQ|&X7oEjJ0mUmSBtiPfC!}b|aHb3nDP;W?h5N9t7
z?*18In=}0%inX<=GXA#B@{p!l@(;BVTN`2PBFv&|*++C;ub|IZew-jPUrveJYS~(9
zv32yLC|wt&Yo#mO7PcR)?G<qQ{daHL-1LBXo}C|FmbglO0-3m$8ofUG7J38OUI+1R
zAVpuY<>6@`T~404$d=Ocz@CYawYAaV26#;uvA)c))i9qQY|VT*pNU>U^wpB@+GM0H
zx8v^hAjFnO*a}`fm(vww=|%hQXD-SCJnZ8+8iL9-bUEIJ>T(_D4Sbo)<ubn8P$^%B
zsFoKx3yunoqjW_S+%CPy^SfTq0uGTeE=c?;@K65!OY^+k1+7lSBRSUnaXJH~f`^%C
zN;uV;aHm@%)}p~ff;;p$e8vZ#aTkzGvQ;UzJfrGlR6<!?3Vb48MH}QGT_*nxz0ua!
z7qya0atVTPz77NbVC6c0rt7^rrgxcj%;=h|lRaHp9n<==VdL?kywNrJ;SaSs(O(~I
ze!MGNC)cI^NQ98{Ld%T`WxoePrvIewPhbZ>s*4=_xGo}}>H4@%KHv3Go$Lly6ssr}
z5_zRgYDec5o9vrR>(G@siB{<o=^nA^wk=I$!^SO5o41lJx82)B?%1&9uBNS9o30`F
zY}mMU6Cqo~O<UKKJDR?A+ct44`D?P4Z`q$aHgC8W#=Ek0{p!`L$vvB!wrnA*HaBhE
zwt3?!a#z#e5|H_3)3-NlBz*siTDUj<@akHZ>tW1V@`HN5ekQjL@by~9;BZ0t*Ex9M
z6=#faZ-6UCl`dql7sRbglyu^V^5W2M2SfQhYP;U8i-#VEsGRU`{|w>Z|0Tj{@t{Na
zKRIDf*Tfv6Z{`j!bGSu>fESZrcZq5=ds(@gn^x!a`|aEAo}=GCuc_NNZQQzH<F+QQ
ztb^~?DUy2A!HGIltks<OIIdj+r7g)R?P6}d@+)je(1Gj%&l0&%kCGsy4|8{y<2Zp=
zlqnCnK;)-$i+aAu<Q6_G$ol%Bjd+COMuPL<Wt;<BpM!Y-i{@Y}8E^CWQ)3C9OYqP{
zzF9w1W*WR7=Tje9O7MP=k4FkS(mH43xWI$)LOof@|LySe28Y3Mq(Q#o5lKIo%j>fZ
zV7hw_zW`j}_t^%}8M<>GzYc8eJbs^T_zJ7n)(<UoSY;oi%94lY@%pmhPU;S?2w~^*
TLX9A}1sC4m+TQ#Bu>b!8sacNq

literal 0
HcmV?d00001

diff --git a/src/onbeyond/z1/0800-21ff.pak b/src/onbeyond/z1/0800-21ff.pak
new file mode 100644
index 0000000000000000000000000000000000000000..00269b9f9a5419a826ae976cbc315b0540dc1d57
GIT binary patch
literal 4206
zcmV-!5RvcLaH$-kfRzX6(ED@$n&82O@!cR9@ClFUmiYns$oc5`$@v5M%JKj4*`F=I
zA0i*YAAlLc5yPJ$#2+IO#WBVa$Dpy5D3QR(!k8WyX#pL?j5z5G#s<jB(CUbO*&biM
z;eXM;pAotrD*?M8Xdb2K`{bve?ByrozzO3ZG#-#R156AEpao;PF^I7~yynYeGM%br
zKu<4<1jW4Y6G(Vy=%mbM0bD8QN$l`?Qe_8miVQuAON{;v%oUg)7|e&6CAcW1ybA-l
zAj2Ct<*<+<s2#|Jy*a7BqZEbiI_W#=KI;JmNFbLLXi&h=_Dnvf2?MPmO$=C*U89e)
zpTlVL0r0sSqWrM@zwEaB!|>1a+4%JQ200BWIxjnAJaavEKHUxn4t-9Oj-=157$Ard
ze!G6te(Qeu92XBKoj)B;o?RYspN1cwpRb?apZSLs5Oyc4N6=^Bhwz~#5m(80(ZJY#
z5^||@%nkz+3l)5wVjY2=j{~KOh4Q0|qw~Xz!t|iTfgq$8`harDP_X}wcM9#04^s@l
zkZv!c;7B>Bil3M%kI)9d;0jFp3ENB+K$Z$XiPl3DXpi?1j-aZg<duTx<>-TP=qToa
z?qDheOw$ReNRwrB?ImrIzTghP3hDlONoPUI=%}$s<ass73l4gG4{Tf{AO*0=3_=@7
zsV9>*1+Xg$DKH{?YK4;!CUF#sfk{t+y5dFQgN?c=4>}AxKZm2Dl$$X^E#IjZ5wggH
zx|^v2p$ax1$r?yxUpYx1xEerU$`wcsnP?jc!SIcW8Ve8WyL7l9h8Ox;=bN5LoSqrm
zLk8|8*<VFBL7=b?Gy)14s<oOl=!^^GU>*?vGJ7N{0s|POm}S-&?3wNFNE-Svu^8pZ
zwhKs=>7n#~J`-aLP(NbXtg1+3ipIRq1JRCQsDqm5l8ozGVcAHLA$zh&3SgL@FcT^e
z2MO;YG&Tbl(_yL>@C=I8KS+H{H1i7?E&cDw@CJ#B3BWJfhXv%uUzphWG_V3v#t|b!
zZ1M`GhLCueEDz+62Il9`0!oNJ|L6tu@KF|<{bezX%XS(!j45PH+mG7)2d3kK9e#tb
z0o@KsPYezKaFPhTlaY}kk`I<3NEz&tnUT$hl78`)2gj7hjmMS4j$j>SsSQr#8>|Wo
zOi@igR8fiwZLuAp(<E%cgAxUT@Ci}72W+xGo`oO{7so%+;0%!p1~9Hjk&I+$lX=@i
zP$e}4HgPFk3qjI?Wpa!zgJ)_9a)Edt`4)74OiWiU6g3Tvic$tJgY63DN#qnH<=xC9
z^hpZdieMd~L}5%o4WK4mh=d~;{GM|TxKEfshDVHu3eW*ys!2tPaJ9vP(3+7!;~@dd
zcrfQg(}rCzOp%`y%?;tvA|v%pK%+c@HKfOe$H@ANW#u-uXIKZglP0}ki;mn8!H|@d
zkq*m+$&SpA$`8#6$QW_(GbO2*8fKw=<_Z`xj3$r-u{)pvGKeOKl1-Ka=K@4B=i}t&
zbkLKl5sN8|3lYm9%rg#(G9S&Mk3|hCcZ>_IE(i(?STq=#E2VEDFDOa>8_^6tqJ*#1
zcSDs#7m%Ed-;g1LWHIDO<wPu1yhba2Bn%JGzeo*=<tfrlNSOpQ(IE=Pj8s1*rd08P
z!5~i;@Yqrq1)GAkP>hqG)g=#hj1nM^79VLD=WpWJ<^}Z7Ql^G#C_$g%lI9Dbh$K(v
zl++O76^iEB3MJwf8Rrw@R2eCoBVj=)Avq13CN4suX-+vas-!XkP>S$O1S3R120w%*
zu^38af=5SbvV&s^noNkC7Wr__#Sg!m&lcX8#f0!!Df@g_191!(5TIbOS-K-p_mU60
zAqWbn?&R>$3p0}kD9FhJ@Ef85!i!iik!@ROM;>8R^(<pQRnTO4O%RZa7>xH(kjfP}
z<v&=Jo_$3LHHz-=5;;T>EV6G9C5l%JpTsQ6M1(h5HM5F>y<ZSxBsEq^VWTY2us)l~
z0;r<|q=9126(9>1!Bqz2Cgn#2vJ?@wH4zR=3}6;dMik{{<OD-9rb(v_tAAijZ4IUp
zfy&S(IdX&D%LaCKK85fk%1<&Mh8c%O`5r_Ji2mG(iF5Ii4}s7wsS+()HNujtic-^q
z+sh*t%n^$rjHZOe3Xze6DrqBR3XJ6?DDx*Ui9AK^56X&~TUkHua?7c8v>Zp$wSmMN
z!T9hbX~2i%rf0RDnLp-23WPJ~tpsHpzk||<F31HsF3A{>%1GbI3aX$9bKbhSh&;kd
z2la=M$QFil3Tr4rBS}`JQcEEb&k{G8BNL%h=r?aG9YXF=1G+<Wk)AgiP20a34<K|M
zYUkgU<`|<4k%XRj65zw>;XdxMAIQ<l&;v>q=Mc~doyf@s1R&@W9o8-smQiD5mDBWq
zwD_gr8>HaK0(XA$v9Q4k9~7`I37!r|kO$_F#^+2r-DFDeA{3bjIvEJ2ZRU0~*L(uc
zJ%xJ^dmF~E@P<@TNKLR7oFG&h=1pl791T_&n<C;1c>?`-4Su|Xzbk0DB3_hbAzzx1
z6by8tOrxmyE-XI^4GIYilOPwi!wv}99;VSPgSPh=`#6+?{WSGf=?7hC@D#|P4DA`p
zOerD=aRoW=b%M5uQ(!GDsQQ}<19|ef2yaE07>d|oMofMbf+)q?uo#6u=8EnN;^`1j
zu%YJT-_?ox=2;Q9M&fA@S$v@JYDxo$xO!0AjF1#M&>ZtK+7mIz6QBb0-Om*#ObI63
zh#v4#BV5vwrvWou7KkOjtk@u6yJ9>;C*uh&%utko;vp4}4hawk&|0iz=CmkB6Qv6F
zeoWAbNFqfn6-bo~XpnJfFo7ZK^<b&#Ou7`PEl(wP7P^m1WJ_mlePfZ+QyrM?g7B$K
z4`n1sW+Xlawdg7WY*h;uHuv(f13^#eV}Mu*GU|Ej4-ZZj50_7h>B9-;NT?mGO$p?p
z5X9UVDZ=;+Mhc6+v*$M|W(3ZT<H_O+;gp=wY@#RUu1vcI<upaL_qAjsidzz*5g{((
zs3a}pGmr%!m>e!9=AGv^484{m2-#{qD|OA4=B<&O<=J`cpE@9A4KfS9y3vs&ia5zG
z<zx@moXD6knv+TFElM)og!mk`8znLl5(cGp0cY2ZHUNmK@Ca!J{{fG=7NEjqW~#)T
z?Al5`Mxgz6DM^?}oiShxDIb&zY5{tG2f89ms_+^R{4z4?3&y(p3j}EZ1E~JqO*OvB
z3yJs|%UTMP_cFXiVI>8d48<4sS%zN(g!fX5$z*lw63S??<dOeN5p7N$F&*2N(zKA|
zm6~{av6>YB6UrkM<POHj)gAz)kMI?wim_OY+I90{q<0yQ=8Hj$xiZTh9K^-EkfPwn
zD;b~G9az@$URx4nvgs<0)Ju(kz>iF%6c@#ponarArMQq^xot>9*JKZT;!?6vj-=Qm
zk-&mh%0DgEB*>Frb#k-7YVJlL5>YA>f(nvMFBpm!pCEm8mr%NXrSY?}z?BoxlwiYJ
zNTvwBgJPwYq0E!9lm}SFmc+(L%#u09?i;jUqXd_*BsYk}l}MC~mQ0|<W{`ubBRh|Z
z($L74#F0pnd6%Lj&_a?jqH?}NSLZ`urn`m6sIkPya*B~&?Z#@nu69YJ{bL-8sBAtM
z6v-3+@CI7&7NggNza(P4$UxD+&<Ncgi^A~2<l`p4#J?62+#~1Dm+G5>&L9XHP)d-i
zCGby&b5KVF*H(uHKw=>L8NPl63#nTRq2`eoQvZKEe+79vd2z5YkQg}!kPoQ2<A0xY
zvVRJO0Z0?Xif9GE3klH9eW}nj1(%Kb1}UVFm1hE-*uCnapb&%(M9;|@1CR!;4E-Kp
z05CB!Gc+|eH~u*QE-WEGUn3_X054p8EjlPErCiS2bV$#I9{+@B;(X9i0?E}CaldFE
zRPxb@(&Lj#jf5)}-6w5nWB9Hk=Fuo>s2F#c_emWD`Ue;g1cv_+Q_&JG&#@1n1_A|@
z+FJba>gGqXZcL`ybSSmc*Ngg)OcWb8$siL5M-89NrZwOS@Ppt?o*L3l8c#9u+kw+<
z;{|xd&+t|oA{*b*&??~q&qDnJt?dnMUu)v)3CpI=<eYC4=Youkjy=r+4IC`0W#~(a
zc_gB9WQgSu6_Jb;TOx??4Q?7sMDYq2JCICLTgo2a(IX?0OU;!+3In+lI0YC6TcRXL
z-O@-xSXw6dI0|5jgDh$Z$zcxXf_tz7jPw>kiCYo@UY3UhFan-Z3544a`6k-V2d1xv
zqXpcB*`?l76Wuxorn`oN1>c3-rRfQP+x3A~jT|-FxD6Ajza_o#_`$~F;nvaOL2*ej
z%K`}S5{bwJx$Tr-8q8LMaF7+>{PTc<57D`hoxlR*d?5)0=!WeBwV>Tl8h*;he5N7x
z?jp{$=KlQYK8Zr6XuUYuj9uo}941U0NuUw(Zk|yeMLEB6(785{r(-t;@P)^x@lP@Z
z`{eD09%XkR2L0$vRUABjh21_4@n|-_1}R`4PSG2593TMwTTM?=MP24O@1+67BakSm
zhbW3594Dd%U>!0bDrOzu!43@lr6feQhfH5bocyOEcJEzS?Ir>?9B9QMX*P|cpO?Sa
zkeW9LiG}kN=u8H>Dp*GuU{gc+I<}L(Xig<wJ~?;(B31l+yVkN0ehOSjBI))S-!|0)
zoFN?|m}TZ35eFV26@@Q|m=dH7f-5Yt(k0CXB$agF<dANPqRBG#`i*Pz{crw=!<{Nt
z73hjcyUz+lh3%A8U4+<ZYSDrnkOHv*Nbnk}xrs_Cf21@9UV#Z9$dQ5}(?)-q6X$4P
zf)^quAcrW2A;%cUBga0(GmJ3%keO})1Q-JE9pM?d9eoSfjp`i^;jHEg<@D!}T7Ls>
z;uK}3<ANrCU<t}Fcn4wbAWRA#aZCJ-<K8^Spxz(^DeTe60w+cY!sH<H9kvt>t??a5
zjPeMn+rA8|@2(!%I8A7}9cUZ$8NvvLXu1xB=cG~<3@m)}Xe$8oU{Fj&K~v@+F-cAe
zQdHm9##R`8MEFbl^Y51|{R6!+F;5IrOxL?Q2Qo!QK~=0wJ&-~9SOG*dQb}ew8!>M!
z0_ji((NiC+Ck#}2Rd-JRpPpHBk3#!LeV(Eqj~l9u0}82t#E>2{q8e<y2oRj)5F$2A
z@sbDdtfm-D3ytDPi5(#zXvvLq#<tJ;A0x4lyXd&Ew-%}?2OzeM-yKMbwMFX!S+^gM
z$EpaiOs&MTB?_+KRaw#;BaGR3XXZv4lyc%o<6Wf*2Q4{ZNBvC?Rx0Gj63*FXRrW+J
zQLV>dG|+c6((;G0`dt~_?;jUQIW_!D5GJLEWMGs8hc49MABpuIViREpx-#z;sfvth
zpl$;$UsRe6$R0$<at1HKIv%i2sBEQ^X*7H{6gcDqNND9Iy-dcS4#@Q?6gBQ=DiM$O
zl#m$<pd#K}FCYeXyG)3JLWelOSdEaGb5ABkCz~N+q1^@W6AmGgh3s0a8KEH)k58}=
zp&|Af#gVW|ZLkOwHm$I<C@ZTVE=Cd<rR?sJx~;6PDhiS0tj-kyhPD|9SOUy(nE+QX
E0Ef7A1ONa4

literal 0
HcmV?d00001

diff --git a/src/onbeyond/z1/z1.s b/src/onbeyond/z1/z1.s
new file mode 100644
index 0000000..839b79d
--- /dev/null
+++ b/src/onbeyond/z1/z1.s
@@ -0,0 +1,582 @@
+;license:MIT
+;(c) 2017-2018 by qkumba
+
+!cpu 6502
+!to "build/ONBEYONDZ1",plain
+*=$3000
+
+!macro version {!scrxor $80, "1/180221"}
+
+                ;user-defined options
+                verbose_info = 0        ;set to 1 to enable display of memory usage
+
+gamename=$2940
+savename=$2980
+scrpname=$29C0
+
+;unpacker variables, no need to change these
+src        =        $0
+dst        =        $2
+ecx        =        $4
+last       =        $6
+tmp        =        $8
+
+-       jsr     $bf00
+op_c7
+
+        !byte   $c7
+        !word   c7_parms
+        ldx     $200
+        bne     +
+        lda     $bf30
+        sta     c5_parms+1
+        jsr     $bf00
+        !byte   $c5
+        !word   c5_parms
+        ldx     $201
+        inx
+        txa
+        and     #$0f
+        sta     $200
+        lda     #$2f
+        sta     $201
+        dec     op_c7
+        bne     -
++
+
+        ldy     $2006
+        lda     #'1'
+        sta     gamename,y
+        lda     #'Z'
+        sta     gamename-1,y
+        lda     #'V'
+        sta     savename+1,y
+        lda     #'A'
+        sta     savename,y
+        lda     #'S'
+        sta     savename-1,y
+        lda     #'G'
+        sta     scrpname+1,y
+        lda     #'O'
+        sta     scrpname,y
+        lda     #'L'
+        sta     scrpname-1,y
+        dey
+        dey
+-       lda     $2006,y
+        sta     gamename,y
+        sta     savename,y
+        sta     scrpname,y
+        dey
+        bpl     -
+        inc     savename
+        inc     scrpname
+
+        lda     $306
+        eor     $305
+        eor     $304
+        eor     $303
+        eor     $302
+        eor     $301
+        eor     $300
+        eor     #$a5
+        beq     +
+        ldx     #0
+        stx     $303        ;no script
+        stx     $304
+        dex
+        stx     $302        ;no load
++
+
+        jsr     $fe93
+        jsr     $fc58
+        lda     #$17
+        sta     $25
+        lda     #0
+        sta     $24
+        sta     $57b
+        jsr     $fc22
+        ldy     #0
+        beq     +
+-       jsr     $fdf0
+        iny
++       lda     brandtext,y
+        bne     -
+
+        lda     #>pakoff
+        sta     src + 1
+        lda     #<pakoff
+        sta     src
+        lda     #8
+        sta     dst + 1
+        lda     #0
+        sta     dst
+        jsr     unpack
+
+        ;copy new RWTS and interpreter support routines
+
+        ldy     #0
+-       lda     unrelochdd, y
+        sta     $2800, y
+        iny
+        bne     -
+        ldy     #<(hddcodeend - $2800)
+-       lda     unrelochdd + $ff, y
+        sta     $28ff, y
+        dey
+        bne     -
+
+        sty     $1e37
+        sty     $1e5d
+        lda     #$28
+        sta     $1e38
+        sta     $1e5e
+
+        lda     $303
+        beq     +
+        lda     #<print
+        sta     $1c3f
+        lda     #>print
+        sta     $1c40
+        lda     #<printer
+        sta     $1d94
+        lda     #>printer
+        sta     $1d95
+
+        lda     $304
+        beq     +
+        lda     #<callbackprn1
+        sta     $1d7c
+        lda     #>callbackprn1
+        sta     $1d7d
++
+        ldx     $302
+        inx
+        beq     +
+        lda     $1d7c
+        sta     loadcall1+1
+        lda     $1d7d
+        sta     loadcall2+1
+        lda     #<callback1
+        sta     $1d7c
+        lda     #>callback1
+        sta     $1d7d
++
+
+        lda     #<savefile
+        sta     $2069
+        lda     #>savefile
+        sta     $206a
+        lda     #<loadfile
+        sta     $2102
+        lda     #>loadfile
+        sta     $2103
+        lda     #<closefile
+        sta     $20ea
+        sta     $20f0
+        sta     $2196
+        sta     $219c
+        lda     #>closefile
+        sta     $20eb
+        sta     $20f1
+        sta     $2197
+        sta     $219d
+        lda     #<quit
+        sta     $1bc0
+        lda     #>quit
+        sta     $1bc1
+
+        jsr     closefile
+        lda     #$60
+        sta     $7c ;!
+        jmp     $800
+
+brandtext
+        !scrxor $80, "ON BEYOND Z-MACHINE! REVISION "
+        +version
+        !byte   0
+
+c7_parms
+        !byte   1
+        !word   $200
+
+c5_parms
+        !byte   2
+        !byte   0
+        !word   $201
+
+unrelochdd
+!pseudopc $2800 {
+        clc
+        adc     #$c9
+        sta     pro_op
+        lda     #0
+        sta     ce_parms+2
+        lda     $e2
+        sta     ce_parms+3
+        lda     $e3
+        sta     ce_parms+4
+        lda     $e5
+        sta     ca_parms+3
+
+-       jsr     $bf00
+        !byte   $ce                ;seek
+        !word   ce_parms
+        bcc     +
+        jsr     $bf00
+        !byte   $d0                ;set EOF
+        !word   ce_parms
+        bcc     -
+
++
+        jsr     $bf00
+pro_op
+        !byte   $ca                ;read file
+        !word   ca_parms
+        bcs     quit
+        rts
+
+printer
+        ldx     $ed
+        lda     #$8d
+        sta     $200,x
+        inx
+        stx     cb_parms+4
+        lda     #<scrpname
+        sta     c8_parms+1
+        ldx     #(<gamename xor <scrpname)
+        jsr     closefile1
+
+        jsr     $bf00
+        !byte   $d1
+        !word   ce_parms
+
+        jsr     $bf00
+        !byte   $ce
+        !word   ce_parms
+
+        jsr     $bf00
+        !byte   $cb
+        !word   cb_parms
+
+        bcc     closefile
+
+quit
+        jsr     xclose
+        jsr     $bf00
+        !byte   $65
+        !word   quit_parms
+
+savefile
+        jsr     $bf00
+        !byte   $c0
+        !word   c0_parms
+loadfile
+        lda     #$ff
+        sta     $e2
+        sta     $e3
+
+closefile
+        ldx     #(<gamename xor <savename)
+
+closefile1
+        jsr     xclose
+        jsr     xopen
+        txa
+        eor     c8_parms+1
+        sta     c8_parms+1
+        rts
+
+callback1
+        ldx     #$ff
+-       inx
+        lda     xrestore,x
+        sta     $200,x
+        jsr     $fded
+        cmp     #$8d
+        bne     -
+loadcall1
+        ldy     #$6f
+        sty     $1d7c
+loadcall2
+        ldy     #$fd
+        sty     $1d7d
+        rts
+
+xrestore
+        !byte   $d2,$c5,$d3,$d4,$cf,$d2,$c5,$8d
+
+callbackprn1
+        ldx     #$ff
+-       inx
+        lda     xscript,x
+        sta     $200,x
+        jsr     $fded
+        cmp     #$8d
+        bne     -
+        ldy     #$6f
+        sty     $1d7c
+        ldy     #$fd
+        sty     $1d7d
+        rts
+
+xscript
+        !byte   $d3,$c3,$d2,$c9,$d0,$d4,$8d
+
+print
+        jsr     $bf00
+        !byte   $c1
+        !word   c1_parms
+        lda     #<scrpname
+        sta     c0_parms+1
+        jsr     $bf00
+        !byte   $c0
+        !word   c0_parms
+
+        lda     #<printer
+        sta     $1c3f
+        lda     #>printer
+        sta     $1c40
+
+        lda     #<savename
+        sta     c0_parms+1
+        rts
+
+xclose
+        jsr     $bf00
+        !byte   $cc
+        !word   cc_parms
+        rts
+
+xopen
+        jsr     $bf00
+        !byte   $c8
+        !word   c8_parms
+        lda     c8_parms+5
+        sta     ce_parms+1
+        sta     ca_parms+1
+        sta     cb_parms+1
+        rts
+
+c8_parms
+        !byte    3
+        !word    gamename
+        !word    $2400
+        !byte    0
+
+c0_parms
+        !byte    7
+        !word    savename
+        !byte    %11000011
+        !byte    04
+        !word    0
+cc_parms
+        !byte    1
+        !word    0
+        !word    0
+
+ce_parms
+        !byte    2
+        !byte    0
+        !byte    0
+        !byte    0
+        !byte    0
+
+ca_parms
+        !byte    4
+        !byte    $ff
+        !word    $2900
+        !word    $100
+        !word    $ffff
+
+c1_parms
+        !byte    1
+        !word    scrpname
+
+cb_parms
+quit_parms
+        !byte    4
+        !byte    $ff
+        !word    $200
+        !word    $00ff
+        !word    $ffff
+hddcodeend
+}
+
+unpack ;unpacker entrypoint
+        lda    #0
+        sta    last
+        sta    ecx+1
+
+literal
+        jsr    getput
+        ldy    #2
+
+nexttag
+        jsr    getbit
+        bcc    literal
+        jsr    getbit
+        bcc    codepair
+        jsr    getbit
+        bcs    onebyte
+        jsr    getsrc
+        lsr
+        beq    donedepacking
+        ldx    #0
+        stx    ecx
+        rol    ecx
+        stx    last+1
+        tax
+        bne    domatch_with_2inc
+
+getbit
+        asl    last
+        bne    .stillbitsleft
+        jsr    getsrc
+        sec
+        rol
+        sta    last
+
+.stillbitsleft
+
+donedepacking
+        rts
+
+onebyte
+        ldy    #0
+        sty    tmp+1
+        iny
+        sty    ecx
+        iny
+        lda    #$10
+
+.getmorebits
+        pha
+        jsr    getbit
+        pla
+        rol
+        bcc    .getmorebits
+        bne    domatch
+        jsr    putdst
+
+linktag
+        bne    nexttag
+
+codepair
+        jsr    getgamma
+-       jsr    dececx
+        dey
+        bne    -
+        tay
+        beq    +
+
+normalcodepair
+        dey
+        sty    last+1
+        jsr    getsrc
+        tax
+        !byte  $a9
++       iny
+        jsr    getgamma
+        cpy    #$7d
+        bcs    domatch_with_2inc
+        cpy    #5
+        bcs    domatch_with_inc
+        txa
+        bmi    domatch_new_lastpos
+        tya
+        bne    domatch_new_lastpos
+
+domatch_with_2inc
+        clc
+        !byte  $24
+set_carry
+        sec
+
+domatch_with_inc
+        inc    ecx
+        bne    test_carry
+        inc    ecx+1
+test_carry
+        bcc    set_carry
+
+domatch_new_lastpos
+
+domatch_lastpos
+        ldy    #1
+        lda    last+1
+        sta    tmp+1
+        txa
+
+domatch
+        sta    tmp
+        lda    src+1
+        pha
+        lda    src
+        pha
+        lda    dst
+        sec
+        sbc    tmp
+        sta    src
+        lda    dst+1
+        sbc    tmp+1
+        sta    src+1
+;;access1
+;;      sta    $c003
+-       jsr    getput
+        jsr    dececx
+        ora    ecx+1
+        bne    -
+;;      sta    $c002
+        pla
+        sta    src
+        pla
+        sta    src+1
+        bne    linktag
+
+getgamma
+        lda    #1
+        sta    ecx
+
+.getgammaloop
+        jsr    getbit
+        rol    ecx
+        rol    ecx+1
+        jsr    getbit
+        bcs    .getgammaloop
+        rts
+
+dececx
+        lda    ecx
+        bne    +
+        dec    ecx+1
++       dec    ecx
+        lda    ecx
+        rts
+
+getput
+        jsr    getsrc
+
+putdst
+        sty    tmp
+        ldy    #0
+        sta    (dst), y
+        inc    dst
+        bne    +
+        inc    dst+1
+        bne    +
+
+getsrc
+        sty    tmp
+        ldy    #0
+        lda    (src), y
+        inc    src
+        bne    +
+        inc    src+1
++       ldy    tmp
+        rts
+
+pakoff
+!bin "src/onbeyond/z1/0800-21ff.pak"
+
+!byte $D3,$C1,$CE,$A0,$C9,$CE,$C3,$AE
\ No newline at end of file
diff --git a/winmake.bat b/winmake.bat
index 728b8a3..a465124 100644
--- a/winmake.bat
+++ b/winmake.bat
@@ -12,6 +12,7 @@ if "%1" equ "asm" (
 acme -r build\grue.system.lst src\grue.system.s
 acme -r build\pitchdark.lst src\pitchdark.a
 acme -r build\onbeyond.system.lst src\onbeyond\onbeyond.system.s
+acme -r build\z1.lst src\onbeyond\z1\z1.s
 acme -r build\z3.lst src\onbeyond\z3\z3.s
 acme -r build\z4.lst src\onbeyond\z4\z4.s
 acme -r build\z5.lst src\onbeyond\z5\z5.s
@@ -32,6 +33,7 @@ cadius ADDFILE "build\%DISK%" "/PITCH.DARK/" "build\PITCH.DARK"
 cadius ADDFILE "build\%DISK%" "/PITCH.DARK/" "build\ONBEYOND.SYSTEM"
 cadius CREATEFOLDER "build\%DISK%" "/PITCH.DARK/LIB/"
 cadius ADDFILE "build\%DISK%" "/PITCH.DARK/LIB/" "build\WEEGUI"
+cadius ADDFILE "build\%DISK%" "/PITCH.DARK/LIB/" "build\ONBEYONDZ1"
 cadius ADDFILE "build\%DISK%" "/PITCH.DARK/LIB/" "build\ONBEYONDZ3"
 cadius ADDFILE "build\%DISK%" "/PITCH.DARK/LIB/" "build\ONBEYONDZ4"
 cadius ADDFILE "build\%DISK%" "/PITCH.DARK/LIB/" "build\ONBEYONDZ5"