From 47d14694c7d288c4e1f9b8e19628cfcbb7e97759 Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Thu, 28 Sep 2023 22:07:10 -0400
Subject: [PATCH] PC speaker, timer reprogramming / ISR, fix IN and OUT
 instructions

---
 asm.jrt      |  12 ++++-----
 assemble.com | Bin 12797 -> 12801 bytes
 beep.jrt     |  27 ++++++++++++++++++++
 common.jrt   |   9 +++++++
 readme.txt   |   4 +--
 swine.com    | Bin 5303 -> 6108 bytes
 swine.jrt    |  36 +++++++++++++++------------
 timer.jrt    |  68 +++++++++++++++++++++++++++++++++++++++++++++++++++
 zipoff.com   | Bin 15462 -> 17237 bytes
 zipoff.jrt   |   2 ++
 zipstub.seg  | Bin 829 -> 2052 bytes
 11 files changed, 134 insertions(+), 24 deletions(-)
 create mode 100755 beep.jrt
 create mode 100755 common.jrt
 create mode 100755 timer.jrt

diff --git a/asm.jrt b/asm.jrt
index 7d34bbb..7fd4d3a 100755
--- a/asm.jrt
+++ b/asm.jrt
@@ -334,14 +334,14 @@ var ignoreimm
 : AX? oparg-reg? oparg-val @ 0x00 = and ;
 
 : >inout* ( base )
-  arg2 oparg-reg? oparg-val @ 0x03 ( DX ) = and arg1 if 
+  oparg-reg? oparg-val @ 0x03 ( DX ) = and swap-args if 
     AL? if 8 + >t 2ret then
     AX? if 9 + >t 2ret then
   then 
-  arg2 oparg-imm? arg1 if 
-    AL? if >t oparg-val @ >t 2ret then 
-    AX? if 1+ >t oparg-val @ >t 2ret then
+  swap-args oparg-imm? swap-args if 
+    AL? if swap-args >t oparg-val @ >t 2ret then 
+    AX? if swap-args 1+ >t oparg-val @ >t 2ret then
   then ;
 
-2 :op IN  0xe4 >inout* ;
-2 :op OUT 0xe6 >inout* ;
+2 :op IN  arg2 0xe4 >inout* ;
+2 :op OUT      0xe6 >inout* ;
diff --git a/assemble.com b/assemble.com
index dd1bb142a095b72e3e606a656d4f70ddc11a71a8..c87cb60fd68bab3f367c210c7d99b3a0b7979d01 100755
GIT binary patch
delta 217
zcmeyH+?b;BvP>vJ{i0#F!A*l0!%~GJnd?SN^y7{GYc+{YG*mZyZCGV=eWOYXD-)yf
z=2fgIJd9H|^9#L_i?EO^mB?ZhVPa-TWSPcdArZi&YqZ}mfJxR!go%S;HS-cNR@Iw8
zzAli@3FTWzut<Vb#)4IP8d*pz5d)b5QyU8une1;UDVuD>#ITl8K|+M-3Bz~8V~j`i
znHl^;Ll}NB-chQX+-ztedETglsa`ajxshWZb1u_%qY9=7<_GM@7#B>wVyFoKqdGr8

delta 213
zcmZon`J1frvP>vJ{i0#F!A*l0!%~GJnaf5?^ka?wYc+{YG*mZyZCGY>d80}TE7M=2
z&8t{bco-*a<`;S;7p5R#Az3Ps#VW$Y%#g@3jfGbtfJxtIzhMBAypaeK2g7RSC1R|q
zH-UV8AfFS;SCC+l1gVS$tMoKlA_g)8rZU=Sa-gB4bfOUx!&*iWrY8*F4UaJ%(Pw7x
w4-H}X#dt@lYI3`wh2&|Y4yJn1Z01IeeayK`n~f@%BA6erA7h*|`G%n;04Xd#5dZ)H

diff --git a/beep.jrt b/beep.jrt
new file mode 100755
index 0000000..a6ca975
--- /dev/null
+++ b/beep.jrt
@@ -0,0 +1,27 @@
+import timer.jrt
+
+:asm >spk ( div -- )
+  MOV AL 0xb6 #
+  OUT 0x43 # AL
+  POP AX
+  OUT 0x42 # AL
+  MOV AL AH
+  OUT 0x42 # AL
+  IN AL 0x61 #
+  OR AL 0x03 #
+  OUT 0x61 # AL
+  NEXT
+
+:asm silence ( -- )
+  IN AL 0x61 #
+  AND AL 0xfc #
+  OUT 0x61 # AL
+  NEXT
+
+: slide ( div count + -- )
+  >r begin over >spk 1 sleep-csec swap r@ + swap 1- dup not until
+  rdrop drop drop silence ;
+: boop ( div count -- ) swap >spk sleep-csec silence ;
+: noise ( count -- ) 
+  begin rand >spk 1 sleep-csec 1- dup not until drop silence ;
+
diff --git a/common.jrt b/common.jrt
new file mode 100755
index 0000000..d10612c
--- /dev/null
+++ b/common.jrt
@@ -0,0 +1,9 @@
+import text.jrt
+import keys.jrt
+import random.jrt
+
+: !+ ( v p -- ) dup @ <rot + swap ! ;
+: b!+ ( v p -- ) dup b@ <rot + swap b! ;
+: b!| ( f p -- ) dup b@ <rot | swap b! ;
+: b!^ ( f p -- ) dup b@ <rot ^ swap b! ;
+: ~ 0xffff ^ ;
diff --git a/readme.txt b/readme.txt
index 0d9ffa8..6b2eedc 100755
--- a/readme.txt
+++ b/readme.txt
@@ -16,8 +16,8 @@ We start with MINIJORT.EXE, compiled with Borland Turbo C++ from MINIJORT.C
 and MAIN.C. This is a stripped-down version of the Jorth engine that Neut
 Tower[1] was built with, and the only part of this project that existed in
 any form before August 14, 2023. (I started early on the jam because I 
-basically knew what I wanted to implement, and I knew that getting _anything_
-playable by the end of September with the absurd plan I had in mind was
+basically knew what I wanted to implement, and with the absurd plan I had in 
+mind, I knew that getting _anything_ playable by the end of September was
 going to be a long shot.) MINIJORT.EXE is a simple Forth interpreter that
 loads BOOT.JOR and then reads the rest of its input from stdin.
 
diff --git a/swine.com b/swine.com
index a9aaf5df072976375479fa57a04d5a119e8220ed..9dc1f85e717ac7c81d7e9a5d674fbf0722881a0d 100755
GIT binary patch
delta 3392
zcmb7GeQXrh5#M?5?tFWDw|o0>AB2D$;TY4%hNy9(q&Bu`?KFln4oPj-$W5?H(^RCG
z+E!5lY}!OFR+@rqp^bVC(2pn}QskTq$WS#=(8ZOjdP`M=fu=-&+yItPs@4<?xz4=3
zvt7~tQJvoH%)I$}znM3?$CmwN`Osp{#*)Lu{Ibsu$Pb?X(aH6vE}gnmn)@y*%{}s~
z{*$?-i{`|)N_Q2N?s}Zfh>cEgASiXSE~u5&SqYQEzHT<ayMXq&;E1kdDJF}Z6z<ls
z26>@ekT=LaIc2kP?x~FPm2!$bEf<u^K$2)lQc$|pT=809uUuQvkN@{`si$bDc(S-{
z#%-Ia$W{DY9+QV2p8R6lWbMw6Cu{Rb{Zt;{-OL4gF6SAzD35}dUM}YVlQ#3;$@^t{
ztH{TJT#ndhk&B1^D<b7{;{Sz6bLjs@#AYp_2SNo%T0&MRH4l*{<h~xN%j?{Q$l(wn
zayWDsBAL*+(A|i<6Y>zDCn56p&?wmd3CTogD6~_gLx>R9g<PpJbd=y-h48Mrydlgd
zHwchdDwj8u+|DypY+xly2V4zJLyC2?Y1o7KUt}3bDXnZ2MxjcfaMMttTn%}&-52ys
z3aYkJP;=mqMGp8S2ZnM_2tx;I1D>Q=DoDzt?fE^@=F%3$f&H3CbwM>q)qwx38hADM
z5W!CPSea5LM5lhFOfAimQ%ag6i*4NrM5B_RwQvUR58qUV*92b%+ldVDG_HNDJWN*r
zn_Y0-vwV5DpONeko}TtyXopAmG?3K|7D1{YAuW<bFqKAlxf*J#p|~2fPB;>AA<geZ
zYB*uHM7<N4h6&yd7i|%;FG!{zu)ZKU{ea1829~K5tUT<(FCsV4XuaAFz$UoOvQV#j
zjlU1Im#PJvH|C{YAhJ$#uGR=#(p;LQ0(oj7I}7&dNCt-0Bbd($bUcDC=tss>`#oZ%
z*qf?H&rvpx0g{ruKow;6JSow%KMgkGXR|t_yP(kboi;4e2KWj*-{-XsSfCvbQs_n6
zID)eP{~fqbJE1N>9g;iHt5#}6&EfKr=0Y}-(txG;YF<ESy;c|vcHW{+eMW5+wv(b;
zJP$TOJFH1~l5;_V_RYMZ3${wNI)m<eu^fNU22pDo&IPk@c2=h!C4;C(756%)AMtQ8
zJ@U(=qe#(?3;h_uX8kJl3(cx-LFeo5!g<X9n&yv2@De{7y{7FEeKB{+7oy~X5_%4)
zY{Wr}O3mYrX-lG%dJTr7U>qBKB-%a?qeEzu<}OeJP6Ktqy`mA{irR&`WMMm+Q-G1^
zrP=F5p=?ZTP@Te^^U<tAp^srnvhYzp9QAfTBJ^qWL^KQkj2_dn$`_(rqLhl)fEkGB
z2bC;nx+5;OXF;*bZJi^8F3d!)BCyMKIzbs|a>xe(E(OcrxZVj>I!(E>z_=Z1^(#K|
z-GS6;K@pyFG@nQN=F$FH`azw%(XFkubvoEP7<a3lg~P&Ol|GK4`d~;e^7$oAP(C#x
zsT#=uOIV~5#r=MNk-rn@KDn@4cOe7+(j8cV#m&NJ=+l8>X~a*-wxB$cr=LZ7Do@*+
zka;)Hcm>M9V}@#sLKdowzv`l(7$5^p1~anIY}{jb$hxAC8Tf`#it=w7D~+w5wx5Q{
zOE@U{S)afx;HR-NU$V()5NYkOjW$8N=-(~elIcGJ)WR8f-vCBK;V>pMisNCw(1_zq
zUW}`$=z!o$k*>hikmpw-{V=YUJbydj!aC!2z($|hh}UAD8J@3pDA^X+s;|*^8*dn6
zMtS&_K}s}}9y71vsmjbzIA;t#u9e!2CbepsH=5MD1c3uZdEn-7-eG>t%)lFFkC}y^
zm^<)CnqK#3;HWv`cVVYVw`D)Nrfw7OkUhyxc+VW*^kL(T<O1h)-Fv1zz-dmAx8Ioi
z*h!OK7Bt2>;RYIBGreyjPs4j506S&U>i}oDb;BIzS$M$mZYWuFvxr6Bh^8J~ZK-(R
zlvT+2PrlQ>Yq<AAQ6I;K#rWEkrEmE^=WoXYk?Rb+Zn^L%t|u*<z32zl;LpNl4B~|`
zf{TMLtPYa<x2)@m3#$Zu#G+4ua<r=#{7I_=%B?R8+O=lP3j(y8$_4WoYtZ6hx~Yw4
ztc5trDBDU#;Ltx!>4<g8suOgbI1yqZ-pL)XE%2%?$I{q%n~ZKuEiC9A#^6JGg-r~7
zPmlsV&jM9_dn_EA;4-c(d@oiw2kDSL73;oEn18Ha#^_j8BK4y&I#xTh#$2cok`H4Y
zc*%+P4n7fU$F9lcT4N6t&i)CCI)uuu7~wP>dnKmhRVFm1p&kG4#R7)ouf#4y2V+K=
zt;QV)VHx(CM$m)VQ4T6|i)u=r8!q4&MTg&ye<^;*cg6Q1*7I%H7XRwnuN1egZNg&S
zBUQxlU4%Ms$4@BlqK+$cekOF*tbOWfR9b*a<njP+AIELm0iUFzs1N>T9gMTF_;uw{
z{A_&P#-85qe7m@3bMbQ<Uf76Tc_lx@pX`0Uhr~V4_iQ3Leg4eEPY9=RQ;U)Fo5~u!
z*1Qw{aqQE$SMEq6Znng4igDeq(NyRYWl7fvlB(oS&;@v^^@*nX;#7TobNxE>PJX=H
zniBpkiKF_fiT8CUF{U3({8|5X;<_@}Y&KT!i;Uw(7rxzbT^BLv^aab`C-|+zCy8ar
zM6xZ}fH#u>FRYQo;2E==;Ui#)N2RrFS*_`Sjw&4MQj^%5&!9KyJCIzG7*3u}{5IK=
a$R;uR53G_XQ>uMK!Pk8Q$!cF5qyHNz(8rws

delta 2572
zcmYjTYitx%6rOWurn|HAo}JyIlCs7MrOL}dF~;Rxq`ZX!veJlacp2njTQ&F?;YTY5
zOlrXeTSHL7Ln0}QhR{SvkfmZsCxKu}g9MR8Fpa@T7Jd-xId^tTv$;FpJ@>rNxo76u
zn3E$r%0zY~b|N9(k`^UFNCG5*B|%JrQ~^R7LP}KW5jQ~^qyZFF+C)j|V?-q!D&Q(5
z3v-o(vI%vRB|)oz6XVp?(7Ic*ywi~u@hq-=tX8S#l0@0Z>Ie3<%63Myqbv`k*@qNN
z6!Sn*_nD5UNFgqw=;+sM_&5nul8{J(nTBf-AKJunb+UMqWns2juI8afOu<c$n`{bm
zH&|1cl%8c{)hsMj$ylx8!!MEhD6~yY0k9s?V>wu_c5zqEBlmoDH}iqi?kG?LLnPfM
zR-(xOjTk_q3g`)T6}*R$EcB|^B6%2#if^C_`jN;425dK9^Vm5xz>ko}0!;KGD$=|`
zQiSO|4<6>vV^a}t0xY3GEA7DytwkJ*-lw!Wn4)!t$@C1Z8<R5y|1&U4yQxk=9-?QU
zU0tCOdX$&1H6QvS4H~dEagJEb&^9dyA_E5t5^L2a^&>8;^M(mDc$C^+Z3M>G8>ZBr
zD+u~1NJ;$<)wg3g?rELKm51JN4g@_=?n4JsI+2emo(3x7cFc#5?vdU~<g3N5qn_zN
z3m)rGsb4a{gnEt(_4k44z#RQqT^F;kQg`&-ye}R_xl1P%<j`k``XZ=8U!euN>)LFc
zTwh&qs}kG&hMpRfqf02$Ci*}Pm<Q^Fp}Y|<>Rz!fIXHmgWZ;G#8Msko>L8}JQ|-eO
z!63ueu^>5MMvw#Q><-LN+_<UdV2E*DOY3`dia9tTja5b^=IJlY-1A(j0!$?$L5V1Y
zy$blrNJF*JBGzL8NiGF7#vO@J9il57QN|u&aS)aUVR-<*V30Ptmo)}?{sY?GYUJP~
z*H>+HqopP|WrRFQ7EBH$Ll+E_h+ybq$RH%jvK*4rKsUyRy@n5205bz)v3xlQnO#`Q
zgm6kGXJ0cipcn8u#C-+ai1>H`2NlS|bh8v?b5L!1e;OoA*E9>uOx4W6a`P#ZXyiYY
zDhnIUF-YHRzGQCY+@egK_CAh+?W~FCtVE{4F__Y5&g5=2o3HTa7I`n%N|N_Vs7JGK
z!Ndzm*Zw4W(}e@z2xp0hGEjzVe&{&g4@W#2*UZ9x65=XcOAGslB|f}rJ}mK2X<sC0
zqL3BnO2G#uTa6{gUUR>B*{oGWi+E`0Ot=2Upi0JBUGRt5I>{LxS!_`=wuy_a)(y^3
zui08-WnsVdp_PMgtY-XCR)R*(!Wrw7>_dx1jei7nP&e{-LqjYLKU*!LBGu!CBaz}R
zXfN8)#G#X%wU1r2XzcT01cHspu}HE-^a7S(w&QfLXtHPFIa{#1#T<;cgZ?LxdKR}y
z9bxLWTDufOTWS}5z9e0d?xEQoyb_pPAp?r=rd%nfFdovJg)eL$rr}E29@`=Vo9W3p
zcn^&PW}I+Y*oQe`Qh&^j<6B`G$EWQK^!HbxU^U-gwCkYCp2cyGE!nqu(h|yTYpvaG
zS1SC1+tY9;k+TyRWrO}{-p1`-dn(6MF`#mu6#lNQ!y@i99H$LCtkJAzGvye^&1UN}
z?r4uT^*G##fu2`^>f7YRoF37^m4i>6fjE$d_^DV=reSbc-#HZ4i`?}y4uzG1m5vXS
zImLJC@HW#v2>f>^g_p0tf2A|N82dj+s^cts9LiI_v%@LFJ4@NfLkj<gVgX~(9gbwQ
zYOxBhG@5}3*5Q!lgo8BGSA!1`{BFp?yV0Z49qByQ?htH_E?=-Dv24M7tlZ<m#Hh|W
zzKkA64xe-E;v91qEUrbC$B=~@;xHa};&BEfp%f`iaMx~+vLB;y<=5y%FS=+|L*v^U
z5)B&@YhHhA6@JxNg~|JJ<GKbSH>_(|Pjvc%`8#@yD;;JHaY%VWSz^>!ccX32t!PkK
z!5wDJi_&*a8alKG$Xx-8m(|R#PRy&WURb>d6_H5b$0#=@FLcisZ@3qXcihXyC+=@X
zs~cBZH^*lu&quoPtEgK%jVsReQKUuDZ(Z@K+vSF1d3R#$X}oWg#^T!JwmyiDV)z(Q
z${$NhM~<wqGGHT%h}kZ44;5UfjY-Y1xchnRd-to@1ouD;tsgEe*OF34c&D@}mc-fr
EKj2uZm;e9(

diff --git a/swine.jrt b/swine.jrt
index 98d4023..161adc1 100755
--- a/swine.jrt
+++ b/swine.jrt
@@ -1,12 +1,10 @@
-import text.jrt
-import keys.jrt
-import random.jrt
+import timer.jrt
+import beep.jrt
 
-: !+ ( v p -- ) dup @ <rot + swap ! ;
-: b!+ ( v p -- ) dup b@ <rot + swap b! ;
-: b!| ( f p -- ) dup b@ <rot | swap b! ;
-: b!^ ( f p -- ) dup b@ <rot ^ swap b! ;
-: ~ 0xffff ^ ;
+: meep 2000 5 -80 slide ;
+: moop 1600 5 80 slide ;
+: boom 40 noise ;
+: click 2000 3 boop 4000 3 boop ;
 
 0 const IN-PROGRESS
 1 const CANCEL
@@ -89,7 +87,7 @@ var neighbour-check
   board begin dup board-lim < while FREVEALED over b!| 1+ repeat drop ;
 
 : reveal ( p -- ) dup flag? not if 
-    dup mine? if lose then FREVEALED swap b!| 
+    dup mine? if lose then FREVEALED swap b!|
   else drop then  ;
 
 : visibly-empty? dup revealed? swap squarecount not and ;
@@ -114,10 +112,13 @@ var neighbour-check
 
 : reveal-unflagged-neighbours? ( p -- )
   dup square-pos count-surrounding-flags over squarecount =
-  if square-pos ' reveal do-neighbour-squares else drop then ;
+  if click square-pos ' reveal do-neighbour-squares else drop then ;
 : reveal-at square-at dup revealed? 
-  if reveal-unflagged-neighbours? else reveal then autoreveal check-win ;
-: flag-at square-at dup revealed? not if FFLAG swap b!^ else drop then ;
+  if reveal-unflagged-neighbours? else reveal click then 
+  autoreveal check-win ;
+: flag-noise ( p -- ) b@ FFLAG & if moop else meep then ;
+: flag-at square-at dup revealed? not 
+  if FFLAG swap dup flag-noise b!^ else drop then ;
 
 ( theming )
 array countcolors white b, lblue b, lgreen b, red b, blue b, 
@@ -269,10 +270,11 @@ var current-menu
   5 popupbox ( x ) 10 textxy! draw-spaced-text 
   wait-key drop ;
 
+: fanfare meep moop meep moop meep moop meep ;
 : display-result
   game-state b@
-  dup WON = if green bg! lcyan fg! s" YOU WON" 26 result-message then
-     LOST = if red bg! yellow fg! s" YOU LOST" 25 result-message then ;
+  dup WON = if fanfare green bg! lcyan fg! s" YOU WON" 26 result-message then
+     LOST = if boom red bg! yellow fg! s" YOU LOST" 25 result-message then ;
 
 2 :noname blue bg! lgray fg! 4 popupbox ; defmenu quitmenu
 ' leave                      s" Return to game" 0 defitem
@@ -285,7 +287,7 @@ var current-menu
   begin draw-game await-command confirm-quit in-progress? not until 
   draw-board display-result enter ;
 
-: start init-board play ;
+: start init-board boardw @ 2/ cursx b! boardh @ 2/ cursy b! play ;
 
 ( title menu )
 array title-text t", SWINE MEEPER"
@@ -316,7 +318,9 @@ array title-text t", SWINE MEEPER"
 ' theme-menu      s" Themes"     2 defitem
 ' leave           s" Quit"       3 defitem
 
-: title textmode reseed! hidecursor title-menu textmode ;
+: title install-timer textmode reseed! hidecursor 
+  title-menu 
+  textmode uninstall-timer ;
 
 ' title ' main redefine
 
diff --git a/timer.jrt b/timer.jrt
new file mode 100755
index 0000000..a038930
--- /dev/null
+++ b/timer.jrt
@@ -0,0 +1,68 @@
+:asm intvect@ ( int -- seg off )
+  XOR BX BX
+  MOV ES BX
+  POP BX
+  SHL BX 1 #
+  SHL BX 1 #
+  PUSH @[ 2 @+ ES: BX]
+  PUSH @[ ES: BX]
+  NEXT
+
+:asm intvect! ( seg off int -- )
+  XOR BX BX
+  MOV ES BX
+  POP BX
+  SHL BX 1 #
+  SHL BX 1 #
+  CLI
+  POP @[ ES: BX]
+  POP @[ 2 @+ ES: BX]
+  STI
+  NEXT
+
+: irq 8 + ;
+
+{ :timm :asmisr ( int -- ) ARRAY 4 ALLOT w>t CLI PUSH AX ;
+  :timm ISR-DONE MOV AL 0x20 # OUT 0x20 # AL POP AX STI IRET ;
+  :timm CHAIN-ISR ( isr -- )
+    POP AX
+    STI
+    JMP FAR CS: @+ ; }
+
+:asm get-cseg
+  PUSH CS
+  NEXT
+
+: isr>int ( isr -- int ) 2 cells + @ ;
+: isr>code ( isr -- p ) 3 cells + ;
+: uninstall-isr ( isr -- )
+  >r r@ cell + @ r@ @ <r isr>int intvect! ;
+: install-isr ( isr -- ) 
+  >r r@ isr>int intvect@ r@ ! r@ cell + ! 
+  get-cseg r@ isr>code <r isr>int intvect! ;
+
+var timer
+0 irq :asmisr timer-isr
+  MOV AX CS: timer @+
+  INC AX
+  MOV CS: timer @+ AX
+  AND AX 0x03 #
+  JZ 0 @>
+  ISR-DONE
+0 <:
+  timer-isr CHAIN-ISR
+
+:asm set-timer-div ( div -- )
+  MOV AL 0x36 #
+  OUT 0x43 # AL
+  POP AX
+  OUT 0x40 # AL
+  MOV AL AH
+  OUT 0x40 # AL
+  NEXT
+
+: sleep-csec ( cs -- )
+  timer @ + begin dup timer @ <= until drop ;
+: install-timer 0xffff 2 >> set-timer-div timer-isr install-isr ;
+: uninstall-timer 0xffff set-timer-div timer-isr uninstall-isr ;
+
diff --git a/zipoff.com b/zipoff.com
index fc20566053efa6e7f2757eeb9976669ae888ff14..11ee562634470141d719eafada4ebfd80525e33b 100755
GIT binary patch
delta 4339
zcmY*c3vg7`89wLS$KF6fFx`ak2m#sv6_Sv>n|);;+3Y45iAhKTMq0$p?oD=KU+ivP
z7_#*NMXOa<mGRLEWAIUo6+@+>rMAdI5y4Rzf!fw8ILauFPAO9drT>5Lg5xj~zVCmZ
zbN=(+v!4u|+)OJz8z?&KI&S>HuB#un_0Rc*t<*7A{g!Q&J8j-tv&a0Daf4x%dr!q(
z0$bso_?^&3DVg|2TtkaD&Iv{0u|#T)KNg9^qE%}F-kw<@nKEP2BD!PZZE2K=BoqjQ
zmCW*)WfSWspQN;IVrju)p5{*!7F}eF&zlg7t(1AZ6Yi49g1Ae_D`O&9&zgwN?4#^Q
z;>7#2=IOgF)B8);3VOy7AO8q%DQ#z!hCkP|voeF8Nn|%SRw7iK23`p~FUKvV{B*Qj
zty(r4ETv;580D(%YLH~wYNnU@4UCM_Ii-4bmRzdI(l@F((zc?Dd_zB&H=4Pt#xnhc
zVGBzaujB5J4sa2+&oIQgxes+&x+C*m&5h|ISs<xE$e$t=^j*(Xuk3xI;cL%f&$Nbh
z4d1!nb55$ezu{?jhtuW#eVxmjm?e?<P3{hlyQKvj^z=yOLx!)5SIc#}-P{QwOXtZV
z`H8m;OhE1NTrppny+)o=K7P-^D+|`kjHVQ*c2E9d`Dnq~!YsW%E$c`s9E+{%k6%+P
z=iAu<c?<hXAx2#bQFox{0x)=9egwR-Naw2*El_k4MT=F@_9^X5Fjf@m*~=v(x(L%5
zUoOeg_YE9b;7q9&$n%VOWH6M<%#wdx@u|!aZ(|eaib@>JXB?+31?R*M^BvQ0NqV+e
zUSJ%_1mt=7>y13IxjSzH(`A`$@<Qs#yeiL3FEi@dLW*JAWuB~bcVH!_)V%i^Ib!p)
zt2|2yk#KuFZLOVMWK>>4x!ODwG+dR`QGM+sl&rWWx`CcvA`s00(i*q0rWx(*mRdb?
zK*}*lnpt5iN)LkI#+*RU41lnn`L*hKKuM5pCFG}M37}OfssXf`-cg&YsimzI1h;`o
zBnc(epNImD)3MsgSP*PbV@F4$7i1&!4XtcXN29x|5hQohm4xu5rMYVju<a0nC(&3e
z4rB*CV3crsHE&#jo{d6z*BNm?CX?pYmgd$*ue-~QzR%D<)N-U@72=oZ^o+f>EIle8
zqNi$k5=f{K4^y9sBLV1`QTYUwO*}DZ<g}Vs*2pLHm!L@w`q1pZswOs|B!EzM9)j5u
zu@sOg>=F>CMrN|8DUYO-L?jgTL933+3mG9d=!i0;`1@7C685Tzfj#JI*$V*e2;FQ0
zz(hU3n;0<*B$2E2W;Pj_Rz_xyX>N71IZKD2rH&S4DQ_wyDPN+mGM)%kUb_XT+rqX_
zc^>Y;U?y%Vr*)YJO+W2iEbG~w;$V@UDP}$MP8lq6uz#7ysdh{7wDrtgh|-H7)wAun
z9?-KckY?#cqd;t_P$UA)xX;{Duy)F(Oul(8Y;u*kOkZwdG}H?!J$nfpFF?36nKkB8
z(-9L-Q$ZyPDt=m)PB#m*N9hY8?=H^LPLn_fgP|~9?C)Lg&5WC8q#vslsISkb+UnV%
zTs=J&f%ZpJq3|^itbMteBdK|KafT;tVR|-?9Dwx~TgOTwj9Q1-Hj1tO5LB6*2S#|y
z?N&W|My>UVg`XB-_15m<D;Df3Mr|WxJkw;kZs|qv7^zcJ#laSrp!Hx6uw7HKw82WL
z4fIiKmX27#6Ndzn$1IfM(0NPF(k+?aTBfJVtOE7NqDi#y)M6r@4)_vS^cT?0Z(2E|
zz_zLUMObK0PJhaX<-Z9MUn1cf2AfmhaTx;o!eQvdae55&JFPsm`I2}-8BqTWO2go|
zKj*D%DeXaqffm^~8V;db7fip~EfNhVy-FgX1VD71DNC(z@pIQxTkd9vvQ3S2HnY)M
zn#Q3vwLt3~{Ch8)<s~T3+t%2*5rT9V;|Seq8`0?*Y>aLn^z9l0d=k~qCK&9=Z-S<(
zu~4!I+CIthZH&|)OtT6QRsy<*okt<UhuJI}CD#LblI?_xnXZn+0>E}NeH|s$fcCS0
zgIfilzp@S+Pr5o*G{R@>zOrNNj8z~_?v_rCA7^Hpj&wA3U9)(bb=65I`QGR>I}bx5
zs^0OB*hR?gfXJUSFCaUh^d&Y7iJbr$cf|(Z<|vj^z|E~=B!+i-7WWjux#+fldjOyv
zVKw(CKqo>o=Y<IK0lBzCfJOi<<K6~zE1;XXbLfM){M?u5gSlc{FF?cf1cut}T%jE>
zu6;B2U@av$KDKf*K-h!uac)r^NBUL#3|C?2NqsML*QmUgtF{YZqp{by{g84l$d7ZK
z=!@_a=L7q>n#IT5I<(KRFS!rlP?{H^*=6okD^L7NI1D6@e*(;qB!T7gciAQQ4nSXp
zqBshRc*QoEz;me=E_>7$QQ!;T?4@$%Ox>Kc=)imWwS9=;)50&Gvac0BwPVk?OcEJP
zgi?wU9e}Pm%1+r&2wT_%=?&?e0nIc#ZphM2bv%jSw1Ca$pMzSGFdT76&*5v~d{fF$
z3YrFMaqzb~CaHqBuTKdD(jaT*V-C#-WgxhTZ-N*|aH;UB0Ch4L8_cN{-UBfr@KNyh
zCz9%sujh9<@`*;1L0?>Tyo2{xCXrw$@V(vr{2_3~SUFcX&F%c14tUEzjd7Tjqw-FE
zA8vZs=U)eG7eCd>1MA1ap5-5ghVDzimH^w$f8l^L81^A~fuHT<aMuCv;a`G?5vV_!
z@&Vt=H#s3<A~uMY`}qIW2_)Qy!(=oq@8=gm0*%Rk;^SZ$&ZT>u|CLijOD*3){!vus
z5@z{l!7r?3{2TwWQzGH-Qy$~nEFu|(mWT~P&J+A7xWcqoKZWn`e~13;?StJ-%P09B
zD7*)W{28BdXd91CoRH_zSP+;fSe<#K6Gl^GYiHw9kmLyq%mt*qqp`iRtFgPw)7E|q
z^vT|;=gReLvT%Cl-m3ocd?)^IEPudpdS;e>1reYL!<D&{ED+MfncMpq_U?RP7*gU{
z3<0}dxF^S8r(}z;-6d)|thGtlm7~K*yM?_jEz*$6*9tt`f+$1^Yqwy7V0KOYVYQXr
zx1^!sW>;&qv3!#YD?DN^gcln;mponSqT1U!!6I*owt~G?Xk{$V(u1x%c-8m@E3sBc
zf1glYpOg55>Ro?DaM$N+Ho=4vSA1ypzR-D9IG_sCD7`Fv3#Zo;8%m~z;d2a+7x9ck
zB*Ck6vH0tHU5?^fZDJoRec-CPLmUUSMp4}(ZiHH{hC|7S_!?N?&MN^I@Xg{s>qV8P
z)rNgY{0;D6EY~ehi{I7@B$!*sAH@s626F7UnC}K%Zd1>SGk^``*yrNAE=H>GtMMPv
z>jsFE^|JV_Sx0RCSRx9qxN#b{jlts=|LGZ@)@`+AX|SHbj|s3X(QN>?6wb=ox?>>i
zLFs(mgCOleX_fAvlaX*2K$GrqkR}j1bvBrv{Ro?Mn?M>s*s5y-ScPA<mAXA{5w|3z
zK16TT{ll&9P)|CRO2r~zF`!%Mo|@Z&N-&J5zaT-eS!V);ws${JjOjktf?PBGKzG<J
zX-5tb!1sb~NkbtF1z(^t84UHNdc(dxY;#fi7!G{U7fPio*D2WCMbcJiSHRAsU!5nj
zrI7|v75MS?EtD$Y$Wf=ho(<A#u<sRNr8fmiyR;i@D-xl;AX1m~N&`nKRKo`8NCOxK
zw9(Tjy@!S{melw34bn&H1|E3Q4{pn(uTUBGrxLj7t<rZ5I-qLdz?Vw}9^i?qyh|$c
zU<tl3=Db;|^ni0R?(<^<uafFKd8EScizmY|b&jr<ZuCG=z4+7RHtFZ++S?!X<NWta
zL8QSLe3?e&h%|sK-lx_dm+tmph3YpxDQ(kK0i2@)(vzqPMR7-mrEw$y1xp{1_G7Ld
zRHUV8a8=`pXdir&)aiGp)Cr4DXwL>^v(x|^lnVLRq4k(_4i=eEl8O?*i}Rv10F5;l
vTWCN07J@mc;-k_`6=Qp!krt>JpAP4xcifbW0{TYU5Q-;L{XJDlrH}j{?Crz4

delta 2663
zcmYjTYfx0@8UDWaoV_S4C_Rf1G+8hR)ly*3-uJAq!eTJXC4fkDh+Sa8C3|6ZmrIaj
z$0S2AO{URpurp1@{2*f!!w<5pnej(%HETnim`<tHY1%QZWtwTnj?JWLV>0%A&w}X>
zo#%Pp>-U}adzatM^3|!z&nAkt+m|g@l?%#iu5r_hOY$t#e(3tI{iyv!{i6M}Wx_0Z
zmMWjpz_2Itx~7Bky_v7Hhj}`#H<ubVnoQp2W|OziWT|u7OxsCl>*zJ57xcUMGntR|
zPk=7S*!URRnGWQACq0%Y(!b1D-WAU6nZ1UKBG+dMi@pHxh#9TX$)VGe@fPQ4;2i(|
z2sJ8Fc0?63f7`lQ>NS-(O2<n^H4+FcAkK@1l1`{Kzf<1{_n9Tov$MiNv8M7G@>=8@
z*0`xeEG5rFs%NWtp_p>4dmb{UAF3}c3z&f|atUs*FYB}XLao3$_V=)__$L+9>1XO4
zrN1`MLCW~3a7_QU5P^(&3i^cWx-5SweYJjHszBDT<WOiZ$tw9CC9Y%?zo*`9Q-1G0
z;cRd`=+L^KSH5sJc$jk5?f1mD>e-GKZ&#Do@5ca%|ElH%^S_J_%WmCS;j$*n@0GRe
z{^kyJL32~n9s8Yo56K1hEgt{novMfoJQ>7Zm-4ISWy5G;mLE^aI+hH_VvpjjuNxi`
zJK?-M2k#Y9)=|v*5=B;_!_VY-jC!Bw4waGzNxvcKd#ZG*pcA;IvQUC^#WT7H2$plj
zS^itIz^Zm9RS)7C%LX<XN~TTn_R1Twz?yw6Xe%oAK)+>?`wf59UeEVzp(9C9EpN9>
zrH{xJ`4NlAT;A?Bblsbtm#cY0`W?9}wbz19oYMMbk@b4JsFM}7?yN;%uBJ|vXE|ef
zx}K(v_U;}wE!Xio*aixF))hD3WZg*0{=3ox{92uc<s7iAWe!^I>4g1O2|QSG0gI*|
zwiKljDC}DkBrqeQek!c$_rR90Trbw=tPasZ71bl^=Z{<0dh&O)qwoVXX<0m&9FIql
zj`3HldDIYIkgu!D*NoZ>f7hzE-PGmt_V`eFn)fm$GJk8&VPvN;g~+0@*cg&m_<4(-
zt~VD=Cy?L?Y|mh!`^aOh?f%wwU$eKzOR;D8l2u@P4ibKo8`F)}ZK-Mb1HNJv*-%`~
zc#-$p1U7^dGc8}{wKkENbL5&@SI&`D{uEjglL2!3w`z$^1mj3JtYR`H9!nxAfX|Wa
z&XF=0wQXR@U_26v25?lT<!WH;0UZlY1qa7fp$^`%0s5oO3a=wn2zp@xVZ0Gx8+>ik
zu=rZ92S8^>mTMz@zpcE(XV3B}9I0gk9^Y2Tl7aY0%~(8CbN3aHZ4OQqyn*i^p?b%(
z<o#qZXGd|6B#3Dxcv3rAB!NBsW7~JTtL1ebuuITfFj?e*KiC&}?)}glNZ>6b^%klU
zoLZX>33^b?@>>=Sb0tHO2xiaN{f5zkW9d!y@|4lRxm&F`h7rFgpby4*H7aeJv%Jg(
zJT$DD-$e6GEOW&s@?bbYk6eNeRB;)^Ex4A@kUSEMqJgN<uHgg0kr44dW0rT=G<@<%
zD4Yvi&&FrdOZIzG^HvQHj09BYTvj^KBMuE8k0wLmyA6=qW*1npf}Y=F8|OfR3idYM
z;%4VUaRk0`Ou<P`59S5zJW+v8v@0A=3C^gk-gbyvBA__?jJF+hRN$@|wwT`M*qpkB
z5i{Rj1)U)`$paYqDqhTPC+9BAIO@dD>%>S}HALp|4rz6LC};W8P91keW6?l_4%%mw
zU_HFlso{gMXo8{|tW;d&6M;A#<THFHsf$j5IMS1<@CKfKV9jC0LT9>&N+2E&Jcd3i
z81f&?7zl@P$QSt~w7={Wxhs&MPy8b^AHaSoJ6+l;_B%j?@>ID59u84d5AM}Thn^1w
zhpU6}cyI_cgDuOgxKq|%e(nxtG0RCc)AjT*XGx0o<t9UJ_~`#<@e6;B?KOA!x*x|R
zeMZ{O&%0)H5@h*|E`vkfZ`QI<WGoh^%1ikzIF&UH&UWF8N`T%4te#*B%2BLAbR1Sm
zB={nfxH#L1=rp{HZ$4EUi47q;3!B`W)gn3%f5fm#MDIhpOJqG=`+fKe`P{ZkaK))%
zEna_jj(-HQOUJr=J$F4mhEBJhly9A`!7A>bsJcG>47aeh2Q&Wz8WAaoQeVP27T%2z
zgxfCs!H-fq24R~USd7-iR^c?latf;weuz*ZSS!4Ua5q7_(1;m!AZifaLo|cvLE#dj
zM-UwlKBX9{H7NX@VyIS37(i&=$#7pD74j6sboN={IV)$hnNA4BC=L+(sZiw>*tm+%
z2<3{%8i#SZrsbatyA%!j<k-8yIV@R@`bR<s#S*+K^rL@y&f_n_2>GwEe+r-AM`_(f
zZeI&;IYl-Y42O|y5PyPhL=wpI#gwAQpBNmhP?WZ8kr;60vB6km7*~M$Ix6`=&o}1u
zpWLP}c<AxoRHlIbYB?;gD5IJi3eAk$re~A!P%;>dPT<rm!-{fQGY2>I7xbT+$t{Op
mGiUiRx5y&2Lh$m%SFx7_?p@mdCUH76mPn2dd_NH!VgCbVGSA)s

diff --git a/zipoff.jrt b/zipoff.jrt
index 40b6ff3..d8bd29e 100755
--- a/zipoff.jrt
+++ b/zipoff.jrt
@@ -162,5 +162,7 @@ dbg" boot"
   MOV BP 0x00 #
   NEXT
 
+} import common.jrt {
+
 here s", zipstub.seg" s" zipoff.com" writeenv
 
diff --git a/zipstub.seg b/zipstub.seg
index 69721138384b7f7614f7504e5bd0b6792587cf7a..a99766938856cf72d606b509cea420cee66c28f6 100755
GIT binary patch
delta 1240
zcmZ8gO-NKx6n@{k@80(+Q;7(QidNHL5f&6yT%}DVgJibQf+AjvmI+piT)h4mnu5TE
z%pxeFXk$UxRAaxEnf<7v{h1X-KM;nCAee$mJLkTqOu`K3eBV9y-0z%s&TVzH^s*K~
zm6H`#U+JY(*ZAT%EQ|j>a;SFtMH)rcE>S~XBX&Ct85zYjImas#PR8CA;Umu03?ko0
z8gA^6(+J}!_Tnh9H0TEnTSI6#8d5`P1g?gsF->E-#te-jjhPz78YMo?IxQsOyHzC;
z;;a$DDIJm&o|F`vXw+)VT>&dwA{$Ps8S;4SoO7ablhZNa{%D)5&PPnPh@=qmzRe0_
zK?H9YSRsWxV>j8&A||<LAB@Z7RHhJD$iU{Pi907{>c@^k1)?%8FM6GOowkvm<4Z_V
ziip&Eqv>YwzgmuMJEG#!Hpj!VVe994Q<DvTL~&dWjzo2h$zF<DG&QR2P|s<rdf%^!
z7Ylk2SKL@o`x*nPaXYF+NR63}##LB*$l1gtO)ogEIg0%IUt|tzl&`p7;T?xl7oY^)
zD$Mzt&O;{fu~fC=kxHY_>P9cw2NqwgBlbO^8^nGhd&RI>H6;18U;QyQt2!dgHhf%A
z@+SL~U?vI2ee?3wW43p**Ke}zeDVAd+u=L6ZzThAGFPv4Fwym}r<d)$+`tpI_XnRn
zW!wFFsNYAK%wvw5hHa(nFKVHCK(04W$0oUDE=%J9TWMyd)m|@i7**?Ro~BXLpE9}9
z4s+yb$=VUTa9izusscnWvW6u42V@Oh?MA!XgC5kI(M(c5zPab!Zj8D~^AIQ4;pS;2
zSQ6}a?tbDuFEguePObUcv%Te=6F#qwXYDbcC5`du1Em8Tv=T&WBs6L?Hkw76Z&r1I
zMw!McjS7v`8f!Gx`q=5U(t_}X4I0%Nn>03S)M;#?wT;tI9rI48qh6|O@NN0KV_ye8
zl>aJ!kRm3Obb%$!t26R^ocC%Ed*NW@&?1T{a~>1;RD@p}%{eemh&&2${UoNE#_K8a
EAKd6+TmS$7

delta 7
OcmZn>*vq!TmKgvFSprA^