From 84af3c041adc18905147603fdbd5e4f1b0b7d8cc Mon Sep 17 00:00:00 2001
From: sparky4 <sparky4@cock.li>
Date: Thu, 14 May 2015 13:59:59 -0500
Subject: [PATCH] ems workings~ 	new file:   src/lib/exmm/EM0.EXE 	new
 file:   src/lib/exmm/MEMORY.ASM 	new file:   src/lib/exmm/MEMORY.MAP 
 new file:   src/lib/exmm/MEMORY.OB 	modified:   src/lib/exmm/memory.h 
 modified:   src/lib/exmm/x.bat

---
 src/lib/exmm/EM0.EXE    | Bin 0 -> 10572 bytes
 src/lib/exmm/MEMORY.ASM | 718 ++++++++++++++++++++++++++++++++++++++++
 src/lib/exmm/MEMORY.MAP |  35 ++
 src/lib/exmm/MEMORY.OB  | Bin 0 -> 2232 bytes
 src/lib/exmm/memory.h   |   2 +-
 src/lib/exmm/x.bat      |   8 +-
 6 files changed, 761 insertions(+), 2 deletions(-)
 create mode 100644 src/lib/exmm/EM0.EXE
 create mode 100644 src/lib/exmm/MEMORY.ASM
 create mode 100644 src/lib/exmm/MEMORY.MAP
 create mode 100644 src/lib/exmm/MEMORY.OB

diff --git a/src/lib/exmm/EM0.EXE b/src/lib/exmm/EM0.EXE
new file mode 100644
index 0000000000000000000000000000000000000000..bb0ff518f92bc129901aa22823263db0efd1a35a
GIT binary patch
literal 10572
zcmeHNe{>U7zP~d`CLt+lT9WWXO#{lPR4Y=gXa%e2R0V1TO(}gAiz4D8xNVZIM+og^
zS4gI<E^m(u-Cwf!W7lOp;MQlrcd*-*)`ex4w!2zdA0oJJ!W8WmYzqyU_qj7k+G2P2
zyuaRg=e*HRbLZagulv2<d++z&Vd=^xjE(%76p%?omLFxSiTW(W4?{-gK2wpXnDB=|
zZ7J|75C+Zy=YT<A7xOdb$G{JO?*Zk&Lf~c~3z!59k)JVVfNr1}*ay50>;US33Sc$x
zDDWVV58MJ|00WvZvlI9}-~md31;9LD25^`SGd~Bsz&(H+IL?3vC<XdSnCSrC23`Wz
z1NQ-QfU5v2Fc~<j4Kqi8*MRQ=rNFH~29VAY@(l1eunbrX6aWrp20H_=0|OdDI)E_n
zW8f8F6(9h21J?l40TvhpZx3(`cnA0qPz(G~OUNz2Y~UIlA$nj0<#ik(CBSXK3Do@&
zC<Oik@4o>!BO%|NM92zYKA;04211?(RsqGpTp$BDsVC&$f%|}A@SXuWfvX^67H|`A
z8&C*50Xz#-0@c7aU<c3$90Y!8f-E2eJObPf`~mf*G(v_@&Y4U|H_DF#%YgZS1Na{5
z*8-0LKLz#ye*$`e0l;V`#0uO8906qDnsh?kz$V}g;19rL3)-!O`~?^Q(rpOH|9>X%
zz=0WTPSDP=jdPFA6mwW2I&L8KJ-auPTJ8lBbX1XG&Pxaxrgfp0i0xwcetAo5;O*0k
z7V-0S-ofgl)kDXFW-r;#lCIN%7E9oCf6(zfsqM@@^T7<ZzMU5ro@8re!d4nSAS@rm
z+dggASB3dsRcfLYjQFXhC+OG;MIzbt0?F>KZ)$w7_~^`4U4Oe+-zolWBn%-<3R@#N
zIwNSWAwhG1<esJV-3Q;$e6U9oIZ1Nr9UPm}#=XZ>;O`p@k@G5nZvz{FXMt~#h8wVG
zxEcgZCzX4T!u<=CTXt9(*)a{cl5r{W%#lZl*w?ruBxsM$+;1iaZX(e(;s}#lkIoD_
zO5vc#NLZ`9tinq<3G0-XC-Aa{ggND9Ene1PX`EeqxW4DWwan3(SuGAlJOs@?WG^MC
zafG!fu2PFS6rZ5QFo)7wS~}7wiyw<8@;~)htM8IM#`$ZRDqUzTBX$K^I4P3<vBxR)
zIP_fgU8GGfE7CoBUS7p!Nr!m37(WMF8VlZMA**G-gB)0(b~$oJ#+u|ZN77}i3{8)U
zeGbJjfrZ<N)2j<JM7mORY$qM3J5Gy&L3DG$t*?;akA6sGZac|s%6jaG%8+#=#Vbuy
zM=Z&wzR5rTq2lu<e%E%w%jWIG)a3n0_HhwUyaZyv?k-kki2_$3_N#2!c`p#LO?MaB
z$8|--{`@>A<DG#fSR$5bX<XPv!Ur8etkOh!22@`pv@gVh4!Vy(qp`n0@;~;O#E<ck
zjTdpity0Ml-_VZLqNGF|4#=|CB(_mayPb@*Qzb!6YT7YH>YMr9FA=_-tHTsR&sUW_
z)~qF|UMIBLw-SEW_la0U&5Jx~ui}#p;N4Z1Y*=isn2f&5K5axN!x6f$EK4l)XA2|-
z`V6WklDz2Ru3(b)Wn0i44+^nlV^U*WEQ>`3Y*o{f4M~kk!*N@s;eaetJ=d!QyC7Ax
z2T4%47<3QIzPRj*MXKVkhL!#zx-W{taF+O2#UOWTU`&F+YiRg8_MPZEq_vFW#lp;d
zf%9+>9Q}n-6S#|PD&mI<Sp)If&~C<91)6pF;JlT;y*SN#6Xk2i7Bjwan$nnwN+T~8
z8~9+MnGY7HNsFZiR7D)G(IYVU>u+;kPUKp~hYGbjTn$sOg9KU)`E4F6Wr7ui^-khz
z9%3ydx>AOR%am9P^l6jfmMb5$l6E0JgKZaLvl!{B*0LC7)DVwZ^-4n)`dd;`7!YDs
zv8@Om`b2C;0KhvmZpX-KEz|Po|7P@{P%&3B(JE2DGq*XrS?m{w=_`a65DzOYQrgf>
zu{bR##Dngb!aQ4=EEmP771ehcy-cC1vQI*fVzO{qZPE}m7Lx<zgXIPUSi*8slShfL
z)qyzUolYGCBmEYYCXz4jyk0O)cc;;Ynzihzcye^c4TM|vrO7^H!qGZxyKr>iqU<#;
zz{E*KaLT`G%ut!?&<tSHFHu7`VZr9iga!NKI~gIC;f_m5o8FAWrr30MT*UuEj0WQ9
z3KOm{xDdmxa314QCDaK<S7iPqbsb46Ht=#f3<gC=;1C-F$YcVoTw<|NsnGI^UbeN&
z0FTI<7xS{71|=_6rSWoMTFBl@_nvLmdcmkhv}bnp!d}+s(bJ#F-l?kmQ8z2|;3A0*
zU@90W%ge;8{IbN0P%x;GC>>7}3Bw1raKy8Y4v1&U<<eMbFC|1Q4R!Oue`VUNai&=>
z7p94>mZegK#(QnTx&q?85(}rx5$<7KiE(N}vV@Uczz}bi+SbduD7`w2qs<<3LJFps
zCOT7owU=!qiTRZZL@qf{ZgXU7oVs5PkmT$WeFia}m=p%$$&qHM>tbt}QHIk)`W@Jv
ziYTKJWw}k!Cm3}?d>k!iQnLvLd`J{uqVyBO-(JO4-jQ@FU1vv!h?Nc`LYZ=p>r{SQ
zB`f_TDr4~Iq}8--;;9U88df(x8#6knm*Cg&@-)$P@)&_~m6?~T(i$GZt`cZ9CMD6~
zW2(}kyU7^Z%av=Q4mnz*Xjj5wg|w9N%lgecg23!r&Wo$k#FkPTn@I;v6}$EPwyB}!
zMj{~`scp$7JzV!?Ea5s$v^lOiZjY4p4I5JHCUUZdxU#4`)@($oLz66Zzj&2rFp170
z1uwx0n5I_N@YgW%r7*!{RMNB|?iz-$SZ%NyV?T4{HsyA@mZ8lRo`uZo5Dox=)&%dX
zcT6a7{$&E^s{+|?2*m793e2M0W-6roX3=M%YmB-%c})SC-NMzx<t@I%{0uBSfeD#j
z<LB}iuc4hg!NOi^VBsgIos8O9jF)TYK0$3_sq##tQ$g*Gy5ux`h(ne#z{)nGC7yJQ
zyAd!nthUqrg0f;cJty<+g;;vj{0TcDb~Yn+w$u&>>pV}H27Rkl7q)YDoT-s$SeZvA
zi-OT4q<OR44fjt~mQQRHMpLr~YYBuu#A=D8iO!MnCJJey8*<fMb5uta7m(2#N^D5v
zEn`;FF`eQX5^K7;K-ToVOh!GLCbkzWU`eG86YvT~EaN&(CkA{g4yn~1Td}&_AOIT@
zD@61h8ADg|<~yu>3EdIhhM;gh=pG3Ahowz&5q87@Ss1`f-zE&*Y4l>oT;$vIlV#x|
zN+Ds0-=;^o?#1V1Bqh1M*~bFC#MHZKv6rj4SWPMxjc-9}XUC?HvI6@mO$Gw~IE<&+
z&q}d9TNsv#q=zYEtviPNC*U6@9!>Py^5wF`W>b@Ij@wS_zbQ3Ck;+QH6x%gIJiAR|
zle=*;El}srLG3@tFOUP$tShlL718{{H0b>_E16lOR#B~KaMKlm_zJ(~U~wXi4(6R=
zL*M(H-68f%Q^mHSZm~ZQzk183$sjt#BHL5uWH4_FLC>-9HnU?AR&p<f=jhDsv#ZJ2
zee)Y*)_6|{p@je|qGNY-W(6zhT#?7+ohnzLZ&or)xK_VWEHeZ~uBrOB>Jhf0SQN}+
zk;U};&6(AH>~d**o9@QKq2oi{f#amkcjC0=2icuN=YBABE^nJvIBk^r=_@T`fjM7S
zbYkeZ=8v(WypZ+=W2IJmhooTz?OUh5+)Lili|#Z8lbVDzn`yU_R){`M^rr=6qgN-k
z?Ub})TW;qv3?5AciuW?Ez2&ZmAk+MPbRMWvT1{|dpLs7)sGRb+TtQ4`RVtl35QmE7
zLPw?c$1mI5TK(K1pHVC_cSK|7Uaw?cg9CB8N$O6VcR&T-!pWhNv7vT`c(kV{z4bsx
z^xUs2nYXf5jWIKXG)GZRb31e7eHr_7LgW~##s@J7^#aDWLWy{8xht~o(hBq?)D~e$
zsQJ&97f+(_;z{kx*IEm%eTy!hHGQw7rhB{aB|*gYx$x%<A<~1z`(=4v)4<z99S^K(
z$=jwYj2HEJbC*B7jH`R`8993x^Wz!Wg(ZL{h_c&^;nRVYQH3!6FY69IBkNa|l(uj&
zS`7MQqCeK^<M=(sCQs&_vppFJsawuQ-jt<C^ixgH*U#@k%NHQd{e7@#04chYY%BV@
zT^N?-c43g7nD{;OJ{OOP-PMw_dgSrSDWRX=rwNQq^=YCZO~>gR`OR0X(P~ZgB~mpU
zD2g-EpJ?$cimcR1i>IpnUuSzX+uUDEje)1)pGsP^Ip5VuZ_w7ILqZ%I!u6;#yvs=2
zqqk~Azcx?Q1q3ZyeTl8iG&Mbs)Qrjt3d8Seq8sGuOIq*8L18d{C|XWmDi6P_m4(6R
zBl7ke=I#Jf)%17St-`RWX;VkXN%2_6$&QnnW=0r}&Qo}Qyj2)Py8iCiw!x@fh7L<~
zja*X{Ck!n8Dq14HXON8V83D_0qij!`@HN@y9?9+8hNGKerDS=}*d|<LP^(t#EG!KA
zICRQFJi0v5hF8C~&i_7!>n2mDH#^`TL~k)NV$tyF8G#G3$0iE#*+|Q@@646hcbuW-
z2#KG%5WP1JbF|A`_To_c4p&IH=vp2*H)6-695i)q(L|#pdY&2sZFT+wI0@&;w=G%}
zEYm`_lXxt7;#B3;u8(}{(%w7Xvg=nyR$t0%(-GK9(7lnmq666%w*CnM^E<Y%Vn-CW
z4n8i`6FLBPJxrhXd0tSrpCQp-jkYUFkOn>!&ud)(N^NbEsokq{=s#GfiR50&FB<e|
z#G*l|DkTwbSfn)jIbtt<*j`um{_<s**H;U17yADz!gwZy4Fr;mk{*8zVUD;Wzv2`F
zpbY+*Cc1}Bo&Jo-pK&}}aHE%bAiKk_!6p|HzD9%_X{AT|5Wh_qc_$_gQ5TmDhjmoN
z0v+*A2|YDZ9oy)g9Pkg2Eton3NJp-yj(x|YtB$SkX29D8ix&qr46vJNBO#ii0Vqan
zrb*mhXXIP4#rem#45A9>O4HuCk(IHKFcNtrCb|b;*0tG(vwQfE_RbqUhC7`e?VZ_P
zJ-;V%YwUr=TMwVsgMLoz)CCkXvybz8k~2{gxhi(5-_+}$Bp!hdJxHR9WAGV*De2<A
zSi;3&7nvjUX@oENpbm`)FnwVm-;NY1YK@7${(4*<`D1%$N18_Hoc9h@`}<s*HIV}&
z`hfoo!jW#x8d3N%v7)DuA<Ji$8#4MVD>K$+yq>WqV_$|XqbDPr@t+w@8O50wGT+Q>
z&%DuEuKcIZn4Ez%Ox<nAY+yq)IWc%_VRkfkOQkuE#sXzmOFKk&wX6!8YYb=2OW?Gu
zkhHFdZx}1**lW|AeET&v&u#TR^$wN<7UD9|qtB^z@HT0FZFf#Sheq2j1IgLV+Z;%N
zBfIEb+Z>y8b&d$eoOTf4`n#Ru)t~F=4<%SeiGOo;#fp~t9!EXLl6C->{~Tl~Dsy;6
zo0s2(Pc9tKAgQeVo#q&Brqp^pA2b_?ge1_6Y*`a|nCNS9`vtQ4Zq-hv1*|G#Q*E!t
zftD72H%n@J^Bvfrr`K~Fsds3hlOudB3h38$w))-{m`m+!$=P+C4a<|Ww(Da3u{=ti
zR}0QsyOz{<jVLUXw?*Nj0%)t6oTF-v4ZD@8)02+=@HVe5^4mDfw9xy?IX1c>(`(l`
zHu%968SE=9ot=(D@c|3TK9<|0w78Z<PN05;E4MfF32u?4u9HeVcDOdwm*R}*nTE@3
zxH$+7^|)CkBxq-GOG{dEn|8KLz*slRD4O|kjBsO;QS7-Me$*hb$JIDwV(7&l#euy^
z`G~;WPHgYeB$U)`*<Gym`a{!UPnm8C33QT*yN8<lWp6&Lk93_fo>GDWK5?P|-*$R3
z#h&_}+o7!TO3}`d{4Q^Qq)?W!BA>;j84;f>!9P1COV#<v{c+J@P)vc9DIYG+5%X@a
zx$!s0hC_FSTw037oh@z2s&D2T%SCh{_TUFvA`W4_JNG&?-d5XGP~TMBT~ObhD`Ry!
zTyud~e472l((xJn@7(J(XHa3OZPF17C8R&yQkSCA9C5~1u3Sm|l#`E1;JH^E(G1tO
zi+|7V=Yx3&H|i_SMFS0ope{{EGG1{(9mMRBa3ES}AmTZ5<fBU~SBf7|QOi|wP4{v-
zDR!JmXi!`%af*Lw{)a>-;bM&U4Yr)!IW|+TXP!v?eT(Yvq@N*B#GO_ChZW{3z1RgM
z(p8ZqvNSDnG%ih9hNJTRacR<W{JJi|!K+rK99n8#UVXt*X%V}-PIjFdJYM}fOP6Ho
zI#M0AY|m}#I(0;E=CFOF4RsB51X`Ft2a#^lv{Y(qnu#S8-KXvREBkdQ(iPDh3mrm4
zPe9(0P08Wo&;^kHZC-D7*JTXoG4k6(KAK|3kQ%-|<@e`aqj}_E19><Up`E1SL#Ml>
z63vm&C(si(ou1#}W%FBFaxhO>UgqD>P%)0M0cU#Ahs=Q<BI7t+aYZ<G3?!1*Kp&@)
zG#GHHj%y&#G<>Kau7+PCCQC}_Iav9EQX-`}!kMG>*c9z`NCg_c02?kH)T=&R-kF5B
z7b0ekl43a?6>)E>-VuHzRmS+>xQ%T0VnaT@+CpBKTy%xa1XaqJX_s=pVi-gBJC)86
zUNb5MnkdCMG1dQEOhTO_Ts0~Ns#Uc}y6IgM-B2cwo22=XLNnTflx15}BB@2k@Cmx4
z;V!sq^nNn~W7Dt+->$LBPHH%-6ujEpCdt-d#MkECwe-6QeOFE%iIW?~l=1}@))Io-
z`&)7crP<<%j?;k;a2@WMPK)w;X{2E@B;0#1eQn>079s@V1)Dx<=fIY{xEmuWb&De<
z)F_cb72%?s9uO|#YwtZr*BU<mjxAV*Yub2j=RR}8)zh&&D#vQk9TSC%;2wWbP9=zb
zBl3AF1d>#{ahs@q7Rc>H_k6gu*u>SyF^xabP;g#pcnqCmsNtJUsV;iI!n-#?w@9VC
zwYVWC)!iVvYijbFcGco@M_f@#nMG7ntwCh2^qLu_rf&5UKFu9etn(l>GmuUC8ovP+
zDdW-jFjgOY+fW>!ImqBU75LRt<&q`zG^%!#OAgE8l;uXM{B{hE7iac@O{_E*&ae>4
zM(f9n6k>ptjBu=6M8C^?Mw``<8)N6?il}i<{{vM@<SZ_3_^INVe8IRWE#No8(fF(N
z>%s-+r5kZ0D@_;MvIT?7UEJ^}C=u|9ptA_L#nK4I{I)IsMNhueU&_hzf7D@w=v-9}
z1|z9IuJyCf3+3r<B!jM$Y9Zej-_$pz!wJXwICsM#r620q9(&zabl#-~Au)ou4@eO_
zf)g{?A_`k-y|X4Lv3#A!RXFDM{z;_aHN-I&UW;$IwN0>7k6{Q3U*cG7B%rIs1(wjC
zaI;}EzRmQ@LO*V?TFd%mp^v{q@A)DSH>ei`bVv{ysgD>mFd7SJ;5>i%R9><~?Ox;E
zN?aM#i6yBL5&}{*i;%G<$Y}h=$CITZ7#n3HE_?n_uqG7VmyBg)Wl<F-##W_JCT!!9
zB$*~*T55VH^c}qCd}CpXX#BiLsJdTiPNvoOEnVvLZYcMauUlWfdi|OlBf0O{XPv2c
zBPrVGajx00(Yy9(C#Bt3;oRu;I5$4!e7bzYlk3-1f@2NkSigSb6KkGyKD5|KmX<%~
zyt&fjyv6xk`Pw!3H!8GZ!<z4Sob!@3k5rUzsC;T;#k0;Q%RS{rvS|Ir$~8_1g8rpT
zSKygDHtYZ2E#I@TVm&(RT$G*dywSO6<8#kftXuoE$9ePZx8LkcHa@Vyvp$F1yUw@n
zNpz&5Vq?W*<K3$_po`_}ozGQlTw788tkbim;@Nc@%025gZkUYQ`2V91J#{5PyD*8K
zl*T->aD{Hf_5Ii<53ejcp724`Eu#PIYRprHx_fZ5KK7|lMByJvjCo$1psrzpy0<5&
zYo4I)qY3J8hlXdo-uMJ{nM$|D)A1A3-7!I3(FAp?C#dsHP#2n@?q@9HWbvQ&RrXc+
zpFa4OL?8T1Ei#2=wK~pVFj#H6DY9Lcf$Qrrk4`t{MJcAsSF`xOi)V@~v#c(iGN7nF
zSJR)X@lLMW;9bA|di<L)D`T};@vy|I(OM_zk`Jv*Jn2)@4JhiZ_GFE9a;jvt7}L|!
Z4MwY#vu2viR%?be&6;XQXkCHn^xri*(lr18

literal 0
HcmV?d00001

diff --git a/src/lib/exmm/MEMORY.ASM b/src/lib/exmm/MEMORY.ASM
new file mode 100644
index 00000000..802d01cd
--- /dev/null
+++ b/src/lib/exmm/MEMORY.ASM
@@ -0,0 +1,718 @@
+.387
+		PUBLIC	_OpenEMM
+		PUBLIC	_CloseEMM
+		PUBLIC	_EMMInstalled
+		PUBLIC	_EMMCoreLeft
+		PUBLIC	_EMMalloc
+		PUBLIC	_EMMRealloc
+		PUBLIC	_EMMFree
+		PUBLIC	_MapEMM
+		PUBLIC	_UnmapEMM
+		PUBLIC	_UseEMM
+		PUBLIC	_SaveEMM
+		EXTRN	`F_LXLSH@`:BYTE
+		EXTRN	`F_SCOPY@`:BYTE
+MEMORY_TEXT		SEGMENT	BYTE PUBLIC USE16 'CODE'
+		ASSUME CS:MEMORY_TEXT, DS:DGROUP, SS:DGROUP
+_OpenEMM:
+    push        bp 
+    mov         bp,sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    call        far ptr L$59 
+    or          ax,ax 
+    je          L$1 
+    call        far ptr L$65 
+    or          ax,ax 
+    jne         L$2 
+L$1:
+    xor         ax,ax 
+    jmp         L$4 
+L$2:
+    call        far ptr L$68 
+    mov         word ptr L$89,ax 
+    or          ax,ax 
+    jne         L$3 
+    xor         ax,ax 
+    jmp         L$4 
+L$3:
+    mov         ax,1 
+    jmp         L$4 
+L$4:
+    pop         ds 
+    pop         bp 
+    retf        
+_CloseEMM:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    cmp         word ptr L$89,0 
+    jne         L$5 
+    jmp         L$9 
+L$5:
+    xor         si,si 
+    jmp         L$8 
+L$6:
+    mov         bx,si 
+    shl         bx,1 
+    cmp         word ptr L$88[bx],0 
+    je          L$7 
+    mov         bx,si 
+    shl         bx,1 
+    push        word ptr L$88[bx] 
+    call        far ptr L$77 
+    inc         sp 
+    inc         sp 
+    mov         bx,si 
+    shl         bx,1 
+    mov         word ptr L$88[bx],0 
+L$7:
+    inc         si 
+L$8:
+    cmp         si,40H 
+    jl          L$6 
+    mov         word ptr L$89,0 
+L$9:
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+_EMMInstalled:
+    push        bp 
+    mov         bp,sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    cmp         word ptr L$89,0 
+    je          L$10 
+    mov         ax,1 
+    jmp         L$11 
+L$10:
+    xor         ax,ax 
+L$11:
+    jmp         L$12 
+L$12:
+    pop         ds 
+    pop         bp 
+    retf        
+_EMMCoreLeft:
+    push        bp 
+    mov         bp,sp 
+    sub         sp,6 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         word ptr -4[bp],0 
+    mov         word ptr -6[bp],0 
+    mov         ah,42H 
+    int         67H 
+    or          ah,ah 
+    js          L$13 
+    mov         word ptr -2[bp],bx 
+    mov         ax,word ptr -2[bp] 
+    xor         dx,dx 
+    mov         cl,0eH 
+    call        far ptr `F_LXLSH@` 
+    mov         word ptr -4[bp],dx 
+    mov         word ptr -6[bp],ax 
+L$13:
+    mov         dx,word ptr -4[bp] 
+    mov         ax,word ptr -6[bp] 
+    jmp         L$14 
+L$14:
+    pop         ds 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+_EMMalloc:
+    push        bp 
+    mov         bp,sp 
+    sub         sp,4 
+    push        si 
+    push        di 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         di,word ptr 0aH[bp] 
+    mov         word ptr -2[bp],0 
+    mov         word ptr -4[bp],0 
+    cmp         word ptr L$89,0 
+    jne         L$15 
+    les         bx,dword ptr 6[bp] 
+    mov         word ptr es:[bx],0 
+    xor         dx,dx 
+    xor         ax,ax 
+    jmp         L$23 
+L$15:
+    cmp         di,1 
+    jl          L$16 
+    cmp         di,3fcH 
+    jle         L$17 
+L$16:
+    les         bx,dword ptr 6[bp] 
+    mov         word ptr es:[bx],0f440H 
+    xor         dx,dx 
+    xor         ax,ax 
+    jmp         L$23 
+L$17:
+    xor         si,si 
+    jmp         L$19 
+L$18:
+    inc         si 
+L$19:
+    cmp         si,40H 
+    jge         L$20 
+    mov         bx,si 
+    shl         bx,1 
+    cmp         word ptr L$88[bx],0 
+    jne         L$18 
+L$20:
+    cmp         si,40H 
+    jne         L$21 
+    les         bx,dword ptr 6[bp] 
+    mov         word ptr es:[bx],0f443H 
+    xor         dx,dx 
+    xor         ax,ax 
+    jmp         L$23 
+L$21:
+    push        di 
+    call        far ptr L$71 
+    inc         sp 
+    inc         sp 
+    mov         bx,si 
+    shl         bx,1 
+    mov         word ptr L$88[bx],ax 
+    or          ax,ax 
+    jle         L$22 
+    mov         ax,word ptr L$89 
+    mov         word ptr -2[bp],ax 
+    mov         word ptr -4[bp],0 
+L$22:
+    mov         bx,si 
+    shl         bx,1 
+    mov         ax,word ptr L$88[bx] 
+    les         bx,dword ptr 6[bp] 
+    mov         word ptr es:[bx],ax 
+    mov         dx,word ptr -2[bp] 
+    mov         ax,word ptr -4[bp] 
+    jmp         L$23 
+L$23:
+    pop         ds 
+    pop         di 
+    pop         si 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+_EMMRealloc:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    xor         si,si 
+    cmp         word ptr L$89,0 
+    je          L$24 
+    cmp         word ptr 8[bp],0 
+    jl          L$24 
+    cmp         word ptr 8[bp],3fcH 
+    jle         L$25 
+L$24:
+    xor         ax,ax 
+    jmp         L$27 
+L$25:
+    mov         ah,51H 
+    mov         bx,word ptr 8[bp] 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$26 
+    mov         si,1 
+L$26:
+    mov         ax,si 
+    jmp         L$27 
+L$27:
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+_EMMFree:
+    push        bp 
+    mov         bp,sp 
+    dec         sp 
+    dec         sp 
+    push        si 
+    push        di 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         di,word ptr 6[bp] 
+    cmp         word ptr L$89,0 
+    jne         L$28 
+    jmp         L$36 
+L$28:
+    xor         si,si 
+    jmp         L$30 
+L$29:
+    inc         si 
+L$30:
+    cmp         si,40H 
+    jge         L$31 
+    mov         bx,si 
+    shl         bx,1 
+    cmp         word ptr L$88[bx],di 
+    jne         L$29 
+L$31:
+    cmp         si,40H 
+    jl          L$32 
+    jmp         L$36 
+L$32:
+    mov         word ptr -2[bp],10H 
+    jmp         L$34 
+L$33:
+    mov         bx,si 
+    shl         bx,1 
+    push        word ptr L$88[bx] 
+    call        far ptr L$77 
+    inc         sp 
+    inc         sp 
+    or          ax,ax 
+    je          L$34 
+    jmp         L$35 
+L$34:
+    mov         ax,word ptr -2[bp] 
+    dec         word ptr -2[bp] 
+    or          ax,ax 
+    jne         L$33 
+L$35:
+    mov         bx,si 
+    shl         bx,1 
+    mov         word ptr L$88[bx],0 
+L$36:
+    pop         ds 
+    pop         di 
+    pop         si 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+_MapEMM:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        di 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         di,word ptr 6[bp] 
+    cmp         word ptr L$89,0 
+    jne         L$37 
+    xor         ax,ax 
+    jmp         L$47 
+L$37:
+    xor         si,si 
+    jmp         L$39 
+L$38:
+    inc         si 
+L$39:
+    cmp         si,40H 
+    jge         L$40 
+    mov         bx,si 
+    shl         bx,1 
+    cmp         word ptr L$88[bx],di 
+    jne         L$38 
+L$40:
+    cmp         si,40H 
+    jne         L$41 
+    xor         ax,ax 
+    jmp         L$47 
+L$41:
+    push        di 
+    call        far ptr L$80 
+    inc         sp 
+    inc         sp 
+    cmp         ax,word ptr 0aH[bp] 
+    jl          L$42 
+    cmp         word ptr 0aH[bp],1 
+    jl          L$42 
+    cmp         word ptr 0aH[bp],4 
+    jle         L$43 
+L$42:
+    mov         ax,0f440H 
+    jmp         L$47 
+L$43:
+    mov         si,word ptr 8[bp] 
+    jmp         L$46 
+L$44:
+    mov         ax,si 
+    sub         ax,word ptr 8[bp] 
+    push        ax 
+    push        si 
+    push        di 
+    call        far ptr L$74 
+    add         sp,6 
+    or          ax,ax 
+    jne         L$45 
+    xor         ax,ax 
+    jmp         L$47 
+L$45:
+    inc         si 
+L$46:
+    mov         ax,word ptr 8[bp] 
+    add         ax,word ptr 0aH[bp] 
+    cmp         ax,si 
+    jg          L$44 
+    mov         ax,1 
+    jmp         L$47 
+L$47:
+    pop         ds 
+    pop         di 
+    pop         si 
+    pop         bp 
+    retf        
+_UnmapEMM:
+    push        bp 
+    mov         bp,sp 
+    dec         sp 
+    dec         sp 
+    push        si 
+    push        di 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         di,word ptr 6[bp] 
+    cmp         word ptr L$89,0 
+    jne         L$48 
+    jmp         L$57 
+L$48:
+    xor         si,si 
+    jmp         L$50 
+L$49:
+    inc         si 
+L$50:
+    cmp         si,40H 
+    jge         L$51 
+    mov         bx,si 
+    shl         bx,1 
+    cmp         word ptr L$88[bx],di 
+    jne         L$49 
+L$51:
+    cmp         si,40H 
+    jne         L$52 
+    jmp         L$57 
+L$52:
+    mov         ax,word ptr 8[bp] 
+    add         ax,word ptr 0aH[bp] 
+    mov         word ptr -2[bp],ax 
+    cmp         word ptr 0aH[bp],1 
+    jl          L$53 
+    cmp         word ptr -2[bp],4 
+    jle         L$54 
+L$53:
+    jmp         L$57 
+L$54:
+    mov         si,word ptr 8[bp] 
+    jmp         L$56 
+L$55:
+    push        si 
+    mov         ax,0ffffH 
+    push        ax 
+    push        di 
+    call        far ptr L$74 
+    add         sp,6 
+    inc         si 
+L$56:
+    cmp         si,word ptr -2[bp] 
+    jl          L$55 
+L$57:
+    pop         ds 
+    pop         di 
+    pop         si 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+_UseEMM:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         si,word ptr 6[bp] 
+    push        si 
+    call        far ptr L$83 
+    inc         sp 
+    inc         sp 
+    push        word ptr 0aH[bp] 
+    push        word ptr 8[bp] 
+    push        si 
+    push        cs 
+    call        near ptr _MapEMM 
+    add         sp,6 
+    jmp         L$58 
+L$58:
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+_SaveEMM:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         si,word ptr 6[bp] 
+    push        word ptr 0aH[bp] 
+    push        word ptr 8[bp] 
+    push        si 
+    push        cs 
+    call        near ptr _UnmapEMM 
+    add         sp,6 
+    push        si 
+    call        far ptr L$86 
+    inc         sp 
+    inc         sp 
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+L$59:
+    push        bp 
+    mov         bp,sp 
+    sub         sp,14H 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    push        ss 
+    lea         ax,-0cH[bp] 
+    push        ax 
+    push        ds 
+    mov         ax,offset L$87 
+    push        ax 
+    mov         cx,9 
+    call        far ptr `F_SCOPY@` 
+    push        es 
+    mov         ax,3567H 
+    int         21H 
+    mov         ax,es 
+    mov         word ptr -2[bp],ax 
+    pop         es 
+    mov         ax,word ptr -2[bp] 
+    mov         word ptr -12H[bp],ax 
+    mov         word ptr -14H[bp],0aH 
+    lea         ax,-0cH[bp] 
+    mov         word ptr -0eH[bp],ss 
+    mov         word ptr -10H[bp],ax 
+    xor         si,si 
+    jmp         L$61 
+L$60:
+    inc         si 
+L$61:
+    cmp         si,8 
+    jge         L$62 
+    les         bx,dword ptr -10H[bp] 
+    inc         word ptr -10H[bp] 
+    mov         al,byte ptr es:[bx] 
+    les         bx,dword ptr -14H[bp] 
+    inc         word ptr -14H[bp] 
+    cmp         al,byte ptr es:[bx] 
+    je          L$60 
+L$62:
+    cmp         si,8 
+    jne         L$63 
+    mov         ax,1 
+    jmp         L$64 
+L$63:
+    xor         ax,ax 
+    jmp         L$64 
+L$64:
+    pop         ds 
+    pop         si 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+L$65:
+    push        bp 
+    mov         bp,sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         ah,40H 
+    int         67H 
+    or          ah,ah 
+    jns         L$66 
+    xor         ax,ax 
+    jmp         L$67 
+L$66:
+    mov         ax,1 
+    jmp         L$67 
+L$67:
+    pop         ds 
+    pop         bp 
+    retf        
+L$68:
+    push        bp 
+    mov         bp,sp 
+    dec         sp 
+    dec         sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         ah,41H 
+    int         67H 
+    or          ah,ah 
+    js          L$69 
+    mov         word ptr -2[bp],bx 
+    mov         ax,word ptr -2[bp] 
+    jmp         L$70 
+L$69:
+    xor         ax,ax 
+    jmp         L$70 
+L$70:
+    pop         ds 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+L$71:
+    push        bp 
+    mov         bp,sp 
+    dec         sp 
+    dec         sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         ah,43H 
+    mov         bx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$72 
+    mov         word ptr -2[bp],dx 
+    mov         ax,word ptr -2[bp] 
+    jmp         L$73 
+L$72:
+    xor         ax,ax 
+    jmp         L$73 
+L$73:
+    pop         ds 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+L$74:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    xor         si,si 
+    mov         ax,word ptr 0aH[bp] 
+    mov         ah,44H 
+    mov         bx,word ptr 8[bp] 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$75 
+    mov         si,1 
+L$75:
+    mov         ax,si 
+    jmp         L$76 
+L$76:
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+L$77:
+    push        bp 
+    mov         bp,sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         ah,45H 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$78 
+    mov         ax,1 
+    jmp         L$79 
+L$78:
+    xor         ax,ax 
+    jmp         L$79 
+L$79:
+    pop         ds 
+    pop         bp 
+    retf        
+L$80:
+    push        bp 
+    mov         bp,sp 
+    dec         sp 
+    dec         sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         word ptr -2[bp],0 
+    mov         ah,4cH 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$81 
+    mov         word ptr -2[bp],bx 
+L$81:
+    mov         ax,word ptr -2[bp] 
+    jmp         L$82 
+L$82:
+    pop         ds 
+    mov         sp,bp 
+    pop         bp 
+    retf        
+L$83:
+    push        bp 
+    mov         bp,sp 
+    push        si 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         si,0f442H 
+    mov         ah,47H 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    or          ah,ah 
+    js          L$84 
+    mov         si,1 
+L$84:
+    mov         ax,si 
+    jmp         L$85 
+L$85:
+    pop         ds 
+    pop         si 
+    pop         bp 
+    retf        
+L$86:
+    push        bp 
+    mov         bp,sp 
+    push        ds 
+    mov         ax,MEMORY_DATA 
+    mov         ds,ax 
+    mov         ah,48H 
+    mov         dx,word ptr 6[bp] 
+    int         67H 
+    pop         ds 
+    pop         bp 
+    retf        
+MEMORY_TEXT		ENDS
+MEMORY_DATA		SEGMENT	WORD PUBLIC USE16 'FAR_DATA'
+L$87:
+    DB	45H, 4dH, 4dH, 58H, 58H, 58H, 58H, 30H
+    DB	0, 0
+L$88:
+    DB	0FH DUP(0,0,0,0,0,0,0,0)
+    DB	0, 0, 0, 0, 0, 0, 0, 0
+L$89:
+    DB	0, 0
+
+MEMORY_DATA		ENDS
+		END
diff --git a/src/lib/exmm/MEMORY.MAP b/src/lib/exmm/MEMORY.MAP
new file mode 100644
index 00000000..7c39ab42
--- /dev/null
+++ b/src/lib/exmm/MEMORY.MAP
@@ -0,0 +1,35 @@
+Error: Segment _TEXT exceeds 64K
+
+ Start  Stop   Length Name               Class
+
+ 00000H 004F2H 004F3H MEMORY_TEXT        CODE
+ 004F3H 40507H 40015H _TEXT              CODE
+ 504F2H 5057DH 0008CH MEMORY_DATA        FAR_DATA
+ 50580H 50581H 00002H FSBDTR5_FAR        FAR_DATA
+ 50590H 50590H 00000H IOSTSTD5_FAR       FAR_DATA
+ 50590H 505C3H 00034H IOSTSTD6_FAR       FAR_DATA
+ 505D0H 505D0H 00000H IOSTSTD7_FAR       FAR_DATA
+ 505D0H 50601H 00032H IOSTSTD8_FAR       FAR_DATA
+ 50610H 50610H 00000H IOSTSTD9_FAR       FAR_DATA
+ 50610H 50641H 00032H IOSTSTD10_FAR      FAR_DATA
+ 50650H 50650H 00000H IOSTSTD11_FAR      FAR_DATA
+ 50650H 50681H 00032H IOSTSTD12_FAR      FAR_DATA
+ 50690H 50693H 00004H IOSTSTD13_FAR      FAR_DATA
+ 506A0H 506A3H 00004H IOSTSTD14_FAR      FAR_DATA
+ 506B0H 506B3H 00004H IOSTSTD15_FAR      FAR_DATA
+ 506C0H 506C3H 00004H STDTR5_FAR         FAR_DATA
+ 506D0H 506D3H 00004H STDTR6_FAR         FAR_DATA
+ 506E0H 506E3H 00004H STDTR7_FAR         FAR_DATA
+ 506F0H 506F3H 00004H STDTR8_FAR         FAR_DATA
+ 50700H 50701H 00002H STDTR9_FAR         FAR_DATA
+ 50710H 50713H 00004H STSYNC5_FAR        FAR_DATA
+ 50720H 50723H 00004H STSYNC6_FAR        FAR_DATA
+ 50730H 50733H 00004H STSYNC7_FAR        FAR_DATA
+ 50734H 5161BH 00EE8H _DATA              DATA
+ 5161CH 5161DH 00002H _CVTSEG            DATA
+ 5161EH 51623H 00006H _SCNSEG            DATA
+ 51624H 5164DH 0002AH _INIT_             INITDATA
+ 5164EH 51651H 00004H _BSS               BSS
+ 51652H 5165DH 0000CH _EXIT_             EXITDATA
+
+
diff --git a/src/lib/exmm/MEMORY.OB b/src/lib/exmm/MEMORY.OB
new file mode 100644
index 0000000000000000000000000000000000000000..51c3b504810eb3c0352abf6dd443cff7cba636ce
GIT binary patch
literal 2232
zcmc&$ZERCj7=G_<*WTU1n6jCm0cMniNT`byQKn{F+arXQjqU6X%xKw1rRcW8);0p8
ziv2;mJGA`3XtNj$i9bzDmN;U>sbwvWkH8OOOeCnxOxnQI1ruCa-*fNTWh4?4|Jda8
zJ?H&=&iirNH)W9e{C&ZJ1Ga8wd=&sZOdZcYQ{5OG=<V$9sixt9u3)ue-MZ?hY_;il
z1;DS@TDys1vp>EDS=IXoT`L`%I$rK*Y-({gY;!s~wrq2_+nlbB!BEfMpe^uO{4uWg
z$Up1#1P5(_(SOrIsJ6f<4aV{Aj|~`s-FK1s`}zj_AzR>3`~eQO6j_6N5BhC^(zpqE
zBk>Y|8^Y2<@2&+X^SC@sEjxYGwS$@+O-|PW!`VO^B+}60W1H*mSz+xTX3-=(kGsty
zU@j42BUK;~U#p|3d1pP_xp%l*H`haNvJya8>T`KKTlxn>oxQ#Op0@yQCd-j+^|cN9
zQS!J6vdIULQO5LI{HPV|Rt1<$E=T4P#&iS+{BHj%p$`CdCo%CtsjscSuX7)YPK(gN
zS$NWHuL3-oT!vZ_vn2z5e^!7?oYUGFVL?46sN*O+njgCe=eQq7Z%_la5g^B{n)dno
z(F%Jae$s3f0NT|2s&Rm~ze|NMk7W~~($uuJ37hQ`xvG?C1~@g00_|KfE<g@e@0vn0
zMYoH+I1CULb5GlE=hmoKFaI3-LIwz}VB6xSGNi)j!Rchj%u$p8i52RHzRg(B3|4zJ
zSBpG_v=Ac3=3!!ai!RQPd4LSL12EQjVUKkE^{Rxoppt_9$|vP1^aTlJK0)rN%DhVM
zptU-!`HtnyO1thsjmjBPU{27Jj=MbVwbW#+0QM^wG7>8aLzW}Oc~g`N>gP1UF1(z;
zfFCY1t{A?B=P=iE=z1I4Q#HnQ6L{USiD=n}!;l~aEhsZqk<Fqetg3?e=Mk#U%fa%T
z+HY&<LQ7*&35Kjkq7ov~>M^!m^-8K@(Gp-fBY--I_IeiG?z<PYER<!dfm~+6pTpvW
zXITZrTrDP}0&-Q1zo=5!17c3b#1^*|u<SoFv0k}FIE{?*Knz^qKB2VE+1j2up=G9y
z$U{qFQ5h4B-{xq^c>P>%y&92nE7Zw#L~2&rQy$cer7gVaDu_xX6OrpC-}piAKi_}2
zFt%u|?gxvp5WirKiWnDzFH^>g#bzTksf!eb@{2CaJ1AmNQlD%0C`ROBL{iFUZWR!!
zQ3PH=HDWOoXb}~Z)HThF*D98;<eCp1BXiBnd-Lg1(E8XizGuUQM@J?QrxnYPAU884
zF9Yh0D8DDjEKjp^xH9dXEt1)qVQbo(FOq!CCTr-ISV0PFGsH@Qt-(7>$3Irj8s`8L
z@ll=~{Su~bQ1Q|`ijav@aq2McU!}rSD^fesCy-W9Ve%&`PEJwro3E&N@dOnvzJ|OG
z<T;SH3F%toFF{@@70>>L>w7AmyNvXGq{oqlaP{EYMa2u-sc?2971MuFF*`%W^BG0V
zeuU>^cs`2sAg+GocTpkj!#%}?ak4KUU4#5;Dx6=AOQu4$go^Vg{{#Wd+PJ&j{H6`s
zh)DVyk<*jGb7AN>RIffsQi6?Q;a)Xk7*!&VIqyGrJfLe~EEi?}9!T2TGv;1UGjV9f
zOU2`zX`CB-$xym?#CfRAni!wquF;i{oyN?3jcXJaW-g1B%dW?Tm9U*mf(U>w{to=q
ZvRCr|{`lB$_{`mZDD1Dt{$T_e`Wq&GB`yE}

literal 0
HcmV?d00001

diff --git a/src/lib/exmm/memory.h b/src/lib/exmm/memory.h
index 7571ff3f..8abc7d6b 100644
--- a/src/lib/exmm/memory.h
+++ b/src/lib/exmm/memory.h
@@ -29,6 +29,6 @@ extern int      MapEMM(int Handle, int Start, int Pages);
 extern void     UnmapEMM(int Handle, int Start, int Pages);
 extern int      UseEMM(int Handle, int Start, int Pages);
 extern void     SaveEMM(int Handle, int Start, int Pages);
-extern unsigned long EMMCoreLeft(void);
+extern unsigned long EMMCoreLeft(void);
 
 #endif
diff --git a/src/lib/exmm/x.bat b/src/lib/exmm/x.bat
index e1751702..851d518d 100644
--- a/src/lib/exmm/x.bat
+++ b/src/lib/exmm/x.bat
@@ -1 +1,7 @@
-wcp -mh emm.c
+bcc -mh -c -lh memory.c
+bcc -mh emm.c memory.obj
+move emm.exe em0.exe
+move memory.obj memory.ob
+wdis -a memory.ob > memory.asm
+wasm -c -mh -0 memory.asm
+wcp -ecc -mh emm.c memory.obj
\ No newline at end of file
-- 
2.39.5