From 450c21fae3dad4b567ce2966725b88c1982fb63c Mon Sep 17 00:00:00 2001
From: Robert Pengelly <robertapengelly@hotmail.com>
Date: Mon, 23 Sep 2024 22:37:07 +0100
Subject: [PATCH] Set environment variables in COMMAND.COM

---
 build/chimaera.img           | Bin 368640 -> 368640 bytes
 build/chimaera.vhd           | Bin 34120704 -> 34120704 bytes
 src/apps/pcomm/Makefile.unix |   2 +-
 src/apps/pcomm/Makefile.w32  |   2 +-
 src/apps/pcomm/commands      |   1 +
 src/apps/pcomm/pcomm.asm     |   8 +
 src/apps/pcomm/set.asm       | 368 +++++++++++++++++++++++++++++++++++
 src/apps/pcomm/writechr.asm  |  18 +-
 src/apps/pcomm/writestr.asm  |   4 -
 src/kernel/mem.asm           |   2 +-
 10 files changed, 386 insertions(+), 19 deletions(-)
 create mode 100644 src/apps/pcomm/set.asm

diff --git a/build/chimaera.img b/build/chimaera.img
index b454e691b6c56b2b2329df038a39fed0042ddd45..003447778d4fdad0f15b9754364be6a216cae4cf 100644
GIT binary patch
delta 4076
zcmb7H3s6&68ou`?B#IzGG4jyl#$0(R*90&;Eg*umJ_w`@4_gph>)L{JAc1YC6<oGk
z0}f+*blUC6R@Anbtu-2K!E_~xqSeM)e9>ZU-BstLsk?RPDzzy4pBo}Rwllk#N$$Dl
z@jt%*|Nir*!6|QW$~Q%cpM9)yaPO=*M(h*~1=-vDcZ%MU6y5jYKe7Jhj-=wGVu~V9
zO8Csr%X^abeq`Qx-#R0#=N9DTELl*%8j20<gX@0Od+8LlIHzD)&Jy;&tWTkuj1-lf
zw{&UNvIQ(WSt?ji>{Bp{I-O%LA6^;wR_Mf~_gm)G%=4pmvFt;Zc`f%@2D=_w7lHHd
zi$H4L{Zd83vEP>ZpugF<3m@`VOu0br4$(e#pM|!f=a&@P{jHXedON3bngaEB{rtuw
zjMmBTuygz|NgGE|@VE$C`KF04s5IC4whuXe$6l_xLZxvQ<_}u=?Juf|%dld4Nomp0
z38G$aFg9dRW;MU<CMVA7U^X0fsXCZ_slxBmE|p_HhiyrCKjkU!WGTJnk`YJH^U>t)
zv}w;JH4cgDrZf&Q)iTQ<ekuu<P#%e6tr$O%gkI>bo%RPENQ!f*8b<tUBrw#tRGKRr
zhO~Y7cRDoO9m*`zp}eb!0p{^|mCpS(Wx&5?BBN6ow0Umh5wTC5H52{q>U7lRoXg~9
zqJC#GlaYxQUrR!Z4$WjPXCSR7eLU6yAmgwm1^x3{BpNuxG3h!)A6`7^`9xx)oY)xb
zFptB=M0@Gs%?$I67X5sLWzy1-{HQYMtmZy_Kcorz%8#Zp>(fx{(NJb}8v69;JbF0_
zKBPkO-gM?ps-RUIFKAtoC}{2O<(MKZy4w3x?C<A*)>@H!F9nKgMDAUbgPMp}&cUmP
z+^tmOx?!d|h|K8c*q=Kl7Uk~c_-6TsT*~Qck^5ar+m}g##y2bMT+4v=CZ8txkgEyJ
z?_#K1my0Eq9=>e{*W!$9mP%XtwKv)8rb5jXewz(_eB#9??VK4B;|>5gni$KK(jJMz
zz_;z?w0$Y3>qPF8lptC)U{2OUJTU0f7vNWB0S1<yBGrIN#alqNq)=hZ*SGW>tU#3~
zr>ggI|BC?$=$n(tAzmZI4;X>Uu5tnSQ}C)-Z=@5E@e7D_%zemP6TOlC0wSG=`oDlk
zCwe38f=DNLBOU9FbeuQRE{Jq2qEF41y&esin}Z$sA^4SOTz|t}emH?aFP)C6&sO2k
zNWRTSnpz0<C^j8oE)~E1CU<Z@r|Iih2rvH+i<k)=<6J7%X?`B?Y~=trr2&Tu(gy&+
zR<1yyKhQuS`BzI~ygVE;!aC=k5k=|aO(ORmT5rfNa8#h?uOcG0s!8%6tWX(oQzQTc
zE{iO^xkkKc4m$Kz$m5_4X52EmGZV4}f_IIBUHpz#PEnwToapNacd3d>l#Z=xLT*3D
zJ8BQx$phK(EU!HCL}UKJchK}c72S$5`lg0%RqOHPnIr{%Eh|<z%{-hn;D7LFZC?Vt
z6>aZ}f{iEoVj^3)dkT~#9eFNQ^-Q;Rgl}u*^f-_o^{N$xol#8oVe)MpnHDfXPn=1f
z^d3i>V~M-oa$^OrH=miARiUyB#q@7*Yp$mpH>vZ%{cf---*RYhr^ab5E{Yi)WF6e9
zhKe@0v#8A4Nr|)rE}7-m#rVJsbo-2&u0V>j>G^v&vy@Mj+c;AQ+h>;S%e#BZ!`wa5
zNr4?MSzbx;a(DIc`jHBiS>#?bEKv|^jD?Od6Y?#0^F|eV$@SN>vzUu2)PI&|K2o7|
z=j2Fn&OeN}BI}^Lq!O15lIJ}r!Jdg^fU?fX!Iq+P9HS%KGm3&#-bh9X#4@xvC5|1O
z0ncS&8hq7`5YGiymlu~R%cKo=7_$}@8eXMS&C!}GO=3MpGXP15j>x_Lws+<<ho+oQ
zNxRK;1yQ?Gj+rF8cmMsCM`6JKiiNFoPc|fgX<S1FTPMo)4DRMfLfq`_?#daRPm^M9
zz#S@NIUiB~w%0iG3<KUq4ieA>GSC#=W8<y1XRWp>tF6-N2{hn!z8!QA1m-~HjBLwy
zjtaG<p4nI??xYq&PKew)e{sC3#-Awp#>d(?x_UB6KSw3VpG{O*dU~Z4yy7iN{4RD!
z*8Kuyj3-eL(1ub)(4db)oaryS^wg~ze3NbuT6BR8wf)xO`U~pcUi|DrsB90%H$h5_
zCP8-vx^iJ5#AtT^w7?}01pwA`u>e0a13lHx1yrbdz$BwL_^<c3GMlE`xv#&c(+oMj
z?uA{jrsk!J@|S0`tJapUtXRcXRkP2nsS$>&*4D16u3B5UYORT_Ew5ffCTkEq;EcG*
zH5`VE_R(wh-EeeqV44K1+#t81y94Tg6h2X>O_>`L=ueH<%b8%t{@5imjb36T$o}0t
z_B@*tPEk+JJm;jSg|T;cQB=U3b!8M)HK+6kin^76R$Nu5w#VRPxlnRX5g)tTqb!$5
zbRlw%_9&7aTDa6Zw@2ym>M0Nz-?jT1ONw#e2T^n_)tq}f6K<go(3{^+R&9?G?jFlw
zDUPN*=lM2rG>pjJc)Z2gy*&y=Tnm@CM|V-Q#yMyuHFiVpu;siFPhv?mr`u87WmeK2
zU5GoBLQQwbg_<r3BQ>3Ak4A@j6_eVd^*Bfl1}RG+;r+T{`bMvO0i6eiccdO@k9MhQ
zlDpc4s_*AG7UKzQ9Fjq)^N;n29GX~i8A#taiQ_}yCoY7n$t)+aIs`|5>%AIYyYk0+
zW1&O=?Z_6Ilt}~MtlI_G?!?_(ORsiB^*PY2nwBUcoBdjx+5xz4q4Evjgkak|d`1@8
zypSY}cTO3slr|n?Y=QWI%;t~x%ND^|9qn;gE_DaYF4Q;yj6rLe5u=Dvay7g*!q(MG
zdvivpJkOv5HgyNY0ZnTsG-S*(Nt&eAY|l^N>X=OiuTiEPiC~aKuqa=m*!XqJAu!CT
z?+oDe_-#-iR&MNXadrm8d8cy8loX1(X=xF$a*>JgeA+3d^xAr-9yiEf)zYi)+yw>P
z76dQkApS92Ff=Q_0GE;-5+kU;8EFw0wm1(4#A!zccb1jH6u=_j08PiA$PukG(z1||
zF2~sv$*qaRrC4yuEY8LnsyOCr)#oM_gpMadvx!TQmK>(VX}Ls1Li>1Y7CsxKl$Mo3
zjV|hWpnCO~s;bz^^0hCs<<+argjzL${=f@bgzj9Krb`X*Hm(i7+}~~<hxoF-l}8#;
zNdW0UQ)~%%dVoL@JER=bZ39mDNMh68BZ*b3$4e#<h(=rCmFTmpimZ>dV;uQdTc@<-
z-hN!$C$wvp9tq!O)jq@+BIhoU&C3|8mM~_DE&fr)+(J)WOJ;2Gh`+3q*y0QEpQjMU
zjN29<Fb1RR*P_TW5GL3bug5<V<3<T%LoQFK#ug7encb1z#Zm`^F-w@?=lC)KX!3mm
zj`a7oO}2O(;g8ufz>NhAias$FVYfQfoQk(d1zcuLBDk1!W4M@g_i(Aw>G2WCeYkuR
zOo~TVjcyE>8r`G7ROuc9h6t(+_5o9+6H19W=}};+f=MZ1%t-_pKXXzc4n`W!yz!yq
z1YlP93#9~>NhvWW>2Za03>la{<(azBoCMH7r_KNz@28UbL4etu3c!4linsZ}d!3&A
zb6D&!C*e(gc*`kICUoD8k6jeerudGGt`X{hIoUq@$Ae<}P2~A$#rV;Vrlbfhy3xc$
zq}$KkXr!6YOjKSJfn-HtzTt#@qr*hsOr38g0_`3fDvIwN39}2s;F55(%pOjT1(!r1
zr*{JxI(!=vneh3bFbu6I31y}&7#&LNcmG``LC@H-Li3G<&9#!|b>ff4K^tlH3|WTC
bN{gTAX)GUpqkNc#F9ToEr{%+9&0qcl&ODM4

delta 3518
zcmb7`3s6&68pqGQfq;}pu#h4k+-olKFx)&8R6r3Q*cO#Q+7Qqt&?>E~))tA(&bCU2
zwI$eL98VuRcDovNA7#f~OK1hN3qcfJHLYS*c2TRX+c_cI?K*6g`hfk;4H2sA%x-3q
zdvd;W&-b0*|2y9~^=@UoTe%}O=+2Il-+VkHlV$5iosO{I$ac!j_nTpnTbp-fm1mVB
zM4w3dEG#a5hVy?E{{DcSmF$J3OO`BKT*?{Cjogpz!Dx3LLPbkTS1eh^{TF*IYBC|T
zsCfDEf)$H7cycIOavX3l13kCk&{>9gK4NEF<noE3`CW_RSYRCYKxqEZ1EImF2kbIf
z`>$m%Yw^TcWzuVpp7qBIUR1dBfdvO456rty*2=Zo@tS33XIP6pX6r_Qch^Q3$cytD
zj<PzpxNoB%9+$r$AOw#~;8SdhRP)+zMaNn}+_ypK5_zq=tYoM~+?&alTglbL3X6I8
zBz0~un(FhBO(pJW6@m)d*v2CszKw0ok$zWsc-N}}c~4J1LB6VX4jJrMOoU<P;g7E>
zae7xu;?w$uVOd>l!!TQ;un&=3J*hxGx$EU1qSfP{bZt(2Ne8oKdieU$uuXDkYCXL6
zdgHLJkF3z)yIpbYEFHEC&I-3pB1Jmy`^ZSH<zkaNIcl4>;b>66<&IqNI2AkGS*$u2
z_q*q?DY-cR+HCw(cM5wv2fxytH|aASKnW$vS@@oBIv(g2*l9Y<94VT-OhaQ-(io#%
zwosC%aaxYN!?JEQ{`XOi<!58%vE-;@GbZ>ulP&qHI+nw}n2kR?7RN5n#)pp0V+*pu
zEr*r8dF<C&lG{PG<W{ed+;;T}?0hx;d+)OumJD#aS?2v1f#*#!??=dmBFU2(<i%m{
zhp1u8UA88Q_GD)`S04|O6>bp3?aH;n+%q*Y?=Gb4TR@c)w<m2Bng?_@#a#JXVN+a5
z2a9f9E0^1QM8_JT**$%GNJw+P?k4wbZJGAExMw~7!^w5eY!qye9bW^%vFuox9MU6C
zGK!83g064wnL3&G6q2Uq2W)c;AP50}hEh^F9U$0y%=|ztFWSMiye!F7VrcH^6!C^r
zPpCEs|4RTf@!w9(iSY+9sF@f9etA#`FNq~ZDSoLn*mN4C7ABzIq47(78l=|X{?j0}
z#xJ!8q!#^Br}(8#^GodksZ%iXnOd<<1<Y;Hu96s1sUll%IIE7#WbrF!Qnv>4WP}qP
zft|Ao)E;BgHpRn>ds~IhR|Rcf+fw-R|7@kBVQrxvo^#u(fu~gfaLGn8l0j!50D@Mb
zG|6zd9%1F#W$FISI3C0fX_&Nq&3Th*W!^tB24hL7OT^pHCL~x?H2XV6-b7yE0T3)%
zX74RDk<A&n`)tgU;0$`a3Z{JlWDAIQIvGZZ`>aAzsR44LuPxrgn=6uC78Tv$!LACG
zk82lU$CGIPe6~naNoNI~+Q&0ioZt6EoJD0I$2pn;cdX^S+a|)hM)H?*{Bqw+#)9|u
zrNY3Ied*J!!hHwH6>Y^Hz9z-18x<W^!9a%6#?V^vlygas2blCo-4YZ0^tm~cs|3cD
zL6_^VIW4g2ch030h`fC`y}!|`{dVq&T2%=wzYC%&v3C#c*ScHE&FN!}f=-JH%G%I=
zv$dri$#erAh5b$u*)tX2KBr<tob*Lr$vVLnBIYR93$-y^pH1FcJo1^39XZ*KKpT&u
zxT1Wex908}qatsUdDq^RC(&q3Wv=lMO6()WV-EeB>-S&GV2>o?{x3v!XCmHmUWt>=
zhfSeNQM54~A##rblBWvlurHD}aKU*c#9}@#u!(edzWMtEzmloa#xgd$<*qe?kxZxE
zuvXnDUAeT>mF1RXYe@Y))}{kP{cB8)Elqp9Dab&6Iu!teIx_DkxBWezCga!(b8|lx
zIwH}5xyNhe2M&C7%a>#%=Tl%P)3XQ?pf<EVpR1EC@(mpjM`OI)?Jmu<_Eof^8_BLj
zY`>7O_4Pz4INLNMd6T|Kp-Y>AK}^p<vE|?kEeAKY9Nf_2i!hSafe}m(2y<97ZIS&;
zm#DIDW#6_2wWA`)37L2Q53czt^2>O!Vg3sOQ}Z}YKbHpPpG;lZdwN3<{3Sn&C%cGu
zdfg9D#zd-uL>o#KrNNv4ote)&4CvMku_=2Ue(E9@xBgMaH!i9kZT!>4IK?_aY=V>+
zOM)&DU%$8%G*b5`M(9BW09$*hlq{NxpY0dIMZO0@GWo^d*8d^9InF8k^(uoG4*Z#E
z-FYcC7>>uzSR8*TQ4SL~D%az@ORDhM;>@{O+1cq4VQAD@#YVHv*RI$YeCx}3@xS1f
z#3K}zGV&2Z_tLjm5vt6v3?f8Cym3&KV@W43MN74Dga*@PNwr_0G5}(iC6&skgCn@z
zoN6F@6@V~sKpse-Rdd0rRAw{UUU+)}92cun>yqt-x1ZGYNoR(=M=m<dsnU^QKN3RH
zknaNRFp#IHr?*cuySvOd@>+t@lGcG3t$V12R>sD{yY>qvvM_<xVAhg`i@KBLmb5Z*
zJzgrszG$fw&y1m^nA*F0lO|iz3?x4q!b`S5o(6Y8_l;g9HhdMDXG!z$o91*_(rBR$
zcD<hNi)a{DK+B!(lexZ0r`;iMog&Xi!OwG1)TXeXBE~3EbJ<_bk6-^eRt&~vYr_5a
zl=>eg-YibQ%_25ndFak@=P`QO$Z?2da=1kKcS=gxp&qB~P~WHgf!aWpJvM=InUYd2
z*sUI?yj%S+<qy;kP^J?N#Re#UpvF<x;+2lfhcW*nR>JJalrTFo%Sdx9#T@!>xP<vK
zzUxb6!AvPTG7ZE_!yBUv-IxFMgw_GKtxf8-ybcZ>mfD;jwOa(hXGM|_=077HnM4sr
zH2pwzF^jMMGbg7yi!_BuSh&d)OEu(LAo;3w_pwy!4CJVM0+!FCB`m9T<5*Vf9>!9s
zdjJcaXdR@9Klv(k6iaNi{$VVu@wM;fu+@5rO0~X>$fKp?iwKpdJR2q@AJ{3DYQ2F}
zg^Xi?Zosm%S`S#@Cdfjry_ZF^j^^LCEP(RcEb?wJ{I4_6J7STmT2HnGll|v>3*eg7
zF#nQ_snxgTcZ{OL)ia&BH#&ouH}UQ7EAg6}jVv?U`Q6P1h8@YlRptb&Fi#0IA8Q?J
z&I<I@1$q+jf$?Ti`TbX>IHhKEMLb^NjHj<fS0rG!e*kT|0t05TXdXD6f-5WHST=vG
pDR)}hCduFD8OG#nI=q>A>ncOPEPQ3~4LWp{3Fdy~JQx-c^dCVTkyHQx

diff --git a/build/chimaera.vhd b/build/chimaera.vhd
index 3e022c8c767d32c53e7fca8c0f774b59d3cf15c2..2f3513afae545ce74a944d64b344438a6c80473c 100644
GIT binary patch
delta 24806
zcmeI4eN>cH9><^OnPFxw0S<}?49+~`Jn|+y&HxUAm=J<%S`17Mpao%BStu>cz}A+~
zQkx?kPJ7DkZY!&x6-`-VV1U!g7#*`ZRL5S9rM0!&?zz+CZbe5)P4@RZGk`DKIlKSt
zUzc-c=D9D=z2E!2zu)Ix|FQj8ueKdN-XT``&F-D!{jaf)^2$Gb4^OKW^e7@;m}Hpd
z{?iK`nsBA~;F5?Y1}Zy_-1g{^+gSK;@KN9+w<+^p+4u(g^Q}+ap^0g`e;}_WuZCfy
zUl<1dt}8FUi4Xm0L-kYb3c0<kvb1#V%1Yi|W9Kh#S24Q_8D>ps<&C9l`Tx+qklEp2
zn3D1vZYaKSB@e$m6Dv<VH9-aQerZ3;ZDgOiOA~X$rP4xEi(*(9&tD-;R>n+8gI-s(
zD`D7Y<YCJ%9abs7_w&PEzT%RyRadMyf*FH>_p+}xXkK}Q_24_6(o_vbey?%Iwe<@|
zzcboK9=fjM4bI{h_x20oo2njxVc_Q!3@q-5x!Y(yE%rPoh<gtRBMnBgzp7%~Blg~7
ztf?dV`Ri+|C*I~jq0R1SU%|Lc;+`{tvUq^o{`#14fP1At{=Rw4=sPG7Zyq_w1nY-*
z#^(OqL3HeOc#aw^OTIm?V?xn7w_}29(z?gVx;(O;395WsmE`(7e7734B>%<=V`YsQ
z+b1KNRq$vYGn&8JK4Cdd?y}+wYLvj;XvO7OC^yQ5$R=w5Gj?*m2s<>$Fzd-B9d9V7
z=JXWdKWCx&xJQGQaAigKga$3;RuthiBFe+75n9N7xdK~qP$42#@J2(-`S_nAO2H=)
z61YMuW+Ty>*>~hhg5xE@u|AiEIC2MTBhix__o)T{5QTVdSs{*(hPgj9Uo!XC%R+P4
zN23Dnp=G!`8g$>e3=c-5<?IF=i;xk=$Dl&)r-G0KWwtC~ZEi@yNDN4*w&1_VpmiC)
zS_~3e6oCT_sAyIMo@aba4B5Dt+&K~GW;(WA;F@MhHMYfrx6eXKMcDyC?2La-$bY{{
z5qO%h950eKRP5CE3tcBIXT)Wy=Y-~jieZj9`(=&FJu3F>6}tQ>ooaR03CkJ&w6n_m
zmAJ=?Uz&~Xxv5`pLDc*N#)hM2gF!v2(%Z$J1A^sv{`;+pz&ngQw(+EEsSUP@z=XC+
za{nUm!#!GUJn1xwZkStDrFT@=x<(H-;4O2|JktT;zmkxHKb?b?#)Wh!FVlhRvXBr}
zF_&!02!%l|cEm|xkbcQlcyhyG5GRE}E<O<_g+XpO4CYE<kP{Arj8GV4g~MR36b2cX
zjYpZ<N77&qT(Q22IC6g)Y5Q)lJ`&|{_}&DR+E!vD2`OUFRED)cAcVadNE|bYy=R2O
z2L<!-fmKlWUs8^{W<WD$<o&KYz~62Gj5OFuf;{?3aI{;f)Y}fVGdMmGtxXSQ?TiY~
z;%ODtg~+K0yv*9{6_vgQ+?j}Ux?LtIO%6909b`uexCJX$xQ~`O$m5Igkwg^t3z!e8
z0$O&c2qFmf^B)3q6Zdut`brzb$?<`tF=O?5gKw8ff<c7u_og5}Bmx}BqR@b@7)Qn7
z-{bj7$jEl%6-j7b!Y-4Ie7R7Hi}Q6gM!!phx9#L_BHo&Wa@bwCHwmRe-?x)cdP=u2
zJ&R%eK>3)lX<@)JDfV;=HWDp{7uSswbx1#F%AC)#q<YyLe7z1WoxNLNT^Z84LzMEs
z@}Jb9g~bg<_eA=M?E&-Y{9{g21^6%m+A7>f#`l^1o|@|P@I&$8T_zym_`d2o&k&=q
zoE+1-&#xhe7T|L_WMUhzJ{c8OyezoXVnMuDaK`b+U8+~gFTNY(F1|g)fR-_B`TCj-
zfu;)&O*R-^iooUzD!nAgQRSNvQQ^K=9-cCkdM_lSMcgSPK9P(>?nNWsHXp@f{d^Re
zD6L34zz(ZbV_Jx&-2m`ljP!tup${mko)2Mbm0wv=J<Ax{+f+IE>|K79Z?9k{OL(Y;
zMO!8%3*<F#sHrv7soQ_zTo!0(e}FA;rJ29lp|p`F7J#X+S&G2HbD^5|1w2=e@|T?x
zhG#MR^WSu;_V54e*`VG|{*?iJ+0haR38$ug1>dSD36Ad<C*uPAxsfdkhHjRQ13MWo
zVz(aY+HgpoYk{5Yk=~U2ms5mg*io<O@!sa~HhR2UJi%x?**4XK9fdtQv}Hkw`!Bu*
zle>+3tWG(^tbqto1or*td%#3qHHaP8_6Tg#94R7wTVVW5X)5>VQ8fcaveQ7GCV`aJ
zAAxqFv>meT05r)D_84qA``)mPIs2Ws!}>B_Z9sg2_vcz4G9c5>x4vdT3EGzhaR-D)
zI3PwE@K*-33ic|KN6FD^VKcyA=c!6^%L2TP2c$I^M?sh)6bp~=sGECy{-9t)U$D#U
zrBk;de&y!odmHNS%j7q0t>4(NiEnJ;Z{OT3KW^IEvbm{o>y}MhoqS7u(`Ko%8M7wj
z*PRjCUx!2c>LdH<Bz($*l2ssfd%PE4G$B(|zL;yZ<S$8&j$|g`W)aH`UYmkk>=QOt
zh5J*{a{gn!G>KtuTKJKlVOC{ae4b&V7H_L#n8wAmUo*_v9DHjQG8Octlcn)8qTiJk
zJJOfx{#@E?*hgPqsuV01xFrnrrrOAzb77yRj_?P0ncdOPrm`(eXW6+TIJ=(3ze_`N
zjJ>Jyk>!3}P12a)$6}B4a-uZ)W5>GuBfY6uC!(bIzO-S6HT%as5{kE%U2uQwAhUTH
z{%jx4N=Lk^FRh9U7(z#YFJ3+Z6p8W?!1bl!BQZ!nyD!Z~X2pXrLoFmi#0b=X7lYzg
zvgNRXfr3MQX=BFbrNe#lArawwGd&pHF`)%0MrH&RK68e2cBmhHhh)dWS5}<VrggtV
zOmQUbv+zmsU?zIF%~7S&!$oH&D<Rb`c3Pi@V>@QQ&~?-@X?zPZu!&XaQ#vEM{Fak&
zUIQRclAKuYa`J&TrE`@OM4>uEtU=xJCg+VNhqT^Ea!|V(-nFtppZoKXsLU#}A50nd
z)H%o#x^ULDKRC&^wyBSnPBP`eaUXOViOPZmZn>s?#d4==huTvT{1z5Fqsbl;<t$an
zf>g4i3YGq`Pr8nPFu!dmO0*FS6DSRjo#^rpMP-Gm%A_ha;NN*ewWM;jlM4<GDH)rk
z&2J;^T4;42wGBNFocGRxg7hN!CP@}rTv17Cr5-8=On)ZDt*q+uACAhhOpfoXtA#4C
zMfL&iEWedrvG`Nmt2p%rQo=}K79%Yw1D51cmJl;jlm3bEEhi6yB5BYPX-O&WQm)JI
z{#+UoZl-4!kq>7X)OEE$@#@jbxHjr+Y~;7pZ@rJNZ@SYZ<yv!eBxDJzz&~Z8WNSfG
z=vLhR<E1y*W3a*eRLfO&Tve2Ox6SwFkoi$^#`HtnaU)(xkg1IETBb9`W3iF7*GMLX
zFWMXNYgtHN{E}rRVP3Md8r)^)eqlK--}v04DzV37xgvX{fi6Pog|f$Ek+Wy6H~Z@B
zIg76s;RfZ+#$q}$sJz)#<PUS@?9uFrlCy{4(;`ZhdPvC=>&>>2A0&<8<niLM9F$=8
zW<$<o4ipaa%pv)im$D?n_g)U9%ojN%B{Fp5@@5lVB;h}h@?<54(`KW2m{<TRt^%@C
zEnBo`wq%jZI%AQ`I&D#-)kfY>U1HIvu`*POo2@e*HCwOtsL^_bN76_wu~Qy3T0?|!
z<z4MjW2{UV&Xp&d6yeINBC*(<gO;NNjqK5_ks-oB51BBoJR50H&zJ=D@8+O+t6X{D
z65RheaORl;2`iFEPZoejuNII!5m0WmN&h%m<8$Sa$0NwjcY{T6rSG`*l!A3;53CrT
zWDdEO4rb<}!%FsdIJgwuio&;{_0@QFKH9<Q3I{*RM;$DeP=xDyH9D;A)g(?At~obd
z$epfiovGB}{g)Q>d#AhWaN_w;A$Ff83Ey~LlOzoQ1s(Q>yU7LLOt)Mv={iY7BEEH>
zCV@*{IbBc<UR;jqRQQ$&O>shnqpGt-)wxaiq6TiMp5TOgqOP{)mQl#QNkhMu`<8xD
z4`>|FG@vM;B%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yy
zB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yy
zB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~yyB%~z#
y|B$da;ZMC9E>ZFDABT4*!&A!az^{L)TAjEkdtF(p>aJ~(x38NA|6$;Z?7sogyRfbR

delta 24534
zcmeI4eN<cJ9mnszfg}&|5-3DSLUPkwUV`D0ghI<pODUFGX-gm)UaSFXi*{{ADJf@X
zDtK76p&sVh(LOtMu7-AJlZ~xX6lfeo>1<brcI?d4v#QhCd7hZn&9Pae2z&0m;l)<Z
z+5Xw-&UtbU$$eh#^Zf4j_kBLkll(#Fxn5N#{yRBLN0e>)^y5>n(oeDxp~LuU(@LK#
zvVWeU9zJy?&7}-i@{i_4OwZ59ouZj}!zmT>_nY_4%na-}L;wFod!$(z+wr}ld3AYp
z6eWC8;%h@?<z1}wQc3j-?J}{wyn5rtEw@**&N?Ui)pj{`teB!IHdb%jxP|?i_B5*7
zMNwsyTep^OyPd_KEEO+Kyf8r(b?<td=pFQt2b8f}mxm@z&GX^FSoXTmq|g^a!@aI+
zkHEwJSRA%;`LGe<ecwFnSD(17eA9JL97#>!fsfO#>{SjNgu9L?Ylou#q4Xwpv~b2i
zTZ{wUzqacPV+-)dTR8r#{63DN@W;D&SiU>fVzgf2eY-jS_&#ooH(CQVRa1R@Z?>_n
z0ezsWch^pzXK;KDr>nDs@|gG+2DpgQLFUlw6UISipiq3@K4J7f%%LN8^fDD{8fGbn
z_k9<l>9z2sOrVBl1xVA~Y44hrwI_8=Gp#D`6e_Z#dMYIMKNx|mcK9s?IG}sLh6l`^
zFm}#I?U&<A>x9vI`Ovg&5^b}=Sp`UDR@tE24pv2b0IIMBA>~9L7D1O17~&3EyUs)`
zO#F0_FmEdKDM21%DS{W3U=5R21WU|dHQWq98gsS~J_JB9c*}+bQX=&#_+>6ghnE20
zn3Xn2M}dljEjdEKY9ZiwzekCRbB5ee;2DMqSl~aS0m~RyLv;+E``5QEoBKk(G<Q=B
zC}i%>htJ30xVPrRp%}21Da{vRV4*q|6f+;?Nilq45o56DNHL7X;uzLh;9p|F-C6D|
z9K!)w@Ffa|v0oN^k@8cq=#DIO|8($qs_U^?rZrBe$<G?v83!U{<@-4PuzELFaG_Ne
zJWAOn*9&Ro59?dFo=djR`6BslZhvys2t!@{uukqB=Y6}lo<RCxg`(%8?Q`}@TaEQH
z|H5AQiv+Oet`^RNz4H-PHtd~y42p5N-pTv+akj~V3+=Mto0K@V@seka1Lq3i2_4m_
zF&zuy9j`TBYBTa)Jh!|?@2Yb2jF0kg-wJT6X&?6=g^&yXxB{$6l;Zd#XL%g(K|A20
ztCCPfn&g8V=t>lPz%9$g(>Y-uBnm#rffo}6ALN96kR<qk5BnfZ@<C?U2T6ht(jct{
z7S$dT&VeW1UzLa&O{n9up{6L1%fN?{K}JWU5zVo@Z(*Hn$4&@qHJCDC<a-CW(T6$f
z<lrV;_-_{8nW#bKgpmz+nz6nO92U~xL~~if=$Ejf4P3R}ak`U&>J+fWEUn$8D4rJk
ziL1S~7_`ZPzoZ?`s%k$E52paF)@>5j$tZ7hp@)oEE&Sv%?;GVVbRY}9mI4y*!1Lj%
zpo$(|j~#^b`C9|-#vgCs^wkdRlgUBNgt4~X;CGt@Bt-h_O(Axe$B01j(tw^=SJh}e
zOw|A*-2h88;MQcf$$`$Yf-kN$)ENUF9^dUmzcIrHH6WLE!(I)@z<tkafH}Q^Tb#vE
zKUg_oY)uQ==6PQO=Ri}LVTl`HiWcZsEQm8M){El6JGEd<LK8=OvV`ZBSk;Fg{~0Yv
zE9H&eY4gQHLF<)*b8V(7tiu?Nt;+k_)Cp^#uddb{z9=1an=lWjPSiH^4O24Pr3sby
zS_OI`70zgZiRPhR2a2oqa2^F;sNT!9C9;zq`9S5|TOnrd{4j+RHKD4kue&GMI{WxM
zZ}iB5yJzKkAs|<ce<_G6?_6bgN@?l+Ob2dbUf02kI>0mE*TKh9F+ugIASy+8BGn*0
zqL5Fhu$!7N#zV2f1uVsVa74AK*tR<HmXg|kX{Fp|h>OqJ6Oj9NaZZ#jRO5%X%?lEU
z&wNjv+t8rs{F3q5a6{)KbfG8HdbvBofxexJ#m32!1z(<#YF;tGBt0l7dW9Q_rTPob
zw#obZ|9my1ccMR};lA{E8MZ{5va^J3mz9O4`uX|9AUiXbvvPR5uqimvQ62Q^fwtpO
zofw{Hr4v0N+$rcUE)kld$4~NoC-3V!+0u7%UtcK3iFPjZpvQ5JPUoyF^Zv=to4g&&
zQw<TrR0Vd3EO_Dz|2h-;p@#2TcOOT$t`HpQ&%xs-2vd2--%wDvh`ysiM^P}n{R>Px
zUPy;1I|iDd2Yn8woPK-6L0$cf@6O)?HyZ$(y!V@0A2$HgH@CiO0LiL79N&%Y5jMma
z4=)?QCY&n^3v@AdoD8gQ+q>1MEEV3(Vx;lLaU7US^1?wDJkK0R9^#DP0~&5HfnU)B
zM>voai8tHPB&gwlPL3xyq}~gQIbe!j&F2>6<>#AYqNsU%B8X>(9!Uot8eYu+Yc)S$
zH)<#<DsApXiu%(0SOY~hX1PD1D8$1SJ1`Zx&FF!65vFrOSYz%C@B2blu;PAqhLBbp
z-qnX|GaRT_g%w@cZTqz%W!G=dpbt=o%V*Z(U1obmyTMyNbBAqG+-khza^6>)A?`HZ
z*A*y}3cVv#IM8Ncs;AEN1jcG%tQlz4?#vO2wg#s91b`kYpY^`uLL0OqvKe<KtN_3u
zcW2h1%NmK?p?HzpxrrjVg)Xnf0)2uz(}7Cjag+u(_HX1EuKz3+FC<46P!_v0Cye{o
zjJPueut)kIHHTulrd9YVU=GRrADe}0#glKM9dY>W-Z-I6<$V)5<525+Vfvr7fbT+;
z9VF-HL`%n@&M%gqTF&89OVUEi4d<C_w}|JMLLZM3qD9Gnsum>oS(YUCSr#RK&f-8@
zZdoRIjarnv^q6Hy@?(}8C4bIxo#etuQ%MVwKWBk)W}s2~vTxM<uSt^TzHCWzUv>@Z
zNfI?zJ{v7+{vMpo1sM$PAxiGccA%gTWms}t|K1vKtJQ~(bo(uX#Um_rTD)c@*#kTl
z`*%FjMoIgtFB_?%P|ig`;oBMbK|UxfY|ca73Q-_7K@g}JTX4aX&9+5>8f^}AM!rm-
zx8o&&cG{K%+G)E{phnwu0tqAS!M>3^*=Q35N@}*>D9}#$;c9%GXtqoGG}~*CJYMo-
zj8fF+?kLHVxQi%Iv)zH36iWi(dO@H~&2}shK5R1Bfk*NLFAA<an1|*0NgjGO5|`T@
z!ZEbM-)u(*BhiW9ht}h>Ti3dGWptZ;uw-POI^CQ*R8#;)Bj_jK%v#V0cdY}57<%>4
z-`0UHnwcwvO}$DjRP`!T77Mq`EEZNRR<<uyYGMEKg8ukocP&i0CKcjOC^c}~HKj%v
z02j0{5bh=x{7c<dG1OWih!og(LYd4kC5r|5kb71M<j}YoxQ4nJaDcwKzhU3RU;asG
zH}!8bBt0ZOH}5Zp#GS;Q#GN<uZ~J70k`+o;C|RN8`w<}_At50lAt50lAt50lAt50l
zAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50l
zAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50lAt50l
zAt50lAt52*|BQrNbwBD=GAXjh&wqMMhp*BT&;@31YJPc3amt3ajvcjywp{$rPJd4S
E8w3^`kpKVy

diff --git a/src/apps/pcomm/Makefile.unix b/src/apps/pcomm/Makefile.unix
index bdad935..a7fc585 100644
--- a/src/apps/pcomm/Makefile.unix
+++ b/src/apps/pcomm/Makefile.unix
@@ -46,7 +46,7 @@ genver: genver.c
 	gcc -o $@ $^
 endif
 
-pcomm.com: ../../lib/crt/crt0.o cbreak.o cd.o crlf.o date.o del.o dir.o erase.o exit.o history.o mkdir.o pcomm.o rmdir.o time.o touch.o type.o vector.o writedec.o writehex.o writestr.o xmalloc.o xstrcpy.o ../../lib/crt/libc.a
+pcomm.com: ../../lib/crt/crt0.o cbreak.o cd.o crlf.o date.o del.o dir.o erase.o exit.o history.o mkdir.o pcomm.o rmdir.o set.o time.o touch.o type.o vector.o writechr.o writedec.o writehex.o writestr.o xmalloc.o xstrcpy.o ../../lib/crt/libc.a
 	../../utils/binutils/slink --oformat msdos -o $@ $^
 
 %.o: %.asm
diff --git a/src/apps/pcomm/Makefile.w32 b/src/apps/pcomm/Makefile.w32
index 385d11a..6c4cfa8 100644
--- a/src/apps/pcomm/Makefile.w32
+++ b/src/apps/pcomm/Makefile.w32
@@ -30,7 +30,7 @@ genhash.exe: genhash.c
 genver.exe: genver.c
 	gcc -o $@ $^
 
-pcomm.com: ../../lib/crt/crt0.o cbreak.o cd.o crlf.o date.o del.o dir.o erase.o exit.o history.o mkdir.o pcomm.o rmdir.o time.o touch.o type.o vector.o writedec.o writehex.o writestr.o xmalloc.o xstrcpy.o ../../lib/crt/libc.a
+pcomm.com: ../../lib/crt/crt0.o cbreak.o cd.o crlf.o date.o del.o dir.o erase.o exit.o history.o mkdir.o pcomm.o rmdir.o set.o time.o touch.o type.o vector.o writedec.o writehex.o writestr.o xmalloc.o xstrcpy.o ../../lib/crt/libc.a
 	../../utils/binutils/slink --oformat msdos -o $@ $^
 
 %.o: %.asm
diff --git a/src/apps/pcomm/commands b/src/apps/pcomm/commands
index 0ccdbb5..ac84bbf 100644
--- a/src/apps/pcomm/commands
+++ b/src/apps/pcomm/commands
@@ -9,6 +9,7 @@ help
 mkdir
 reboot
 rmdir
+set
 shutdown
 time
 touch
diff --git a/src/apps/pcomm/pcomm.asm b/src/apps/pcomm/pcomm.asm
index e14ce4d..8a67bf5 100644
--- a/src/apps/pcomm/pcomm.asm
+++ b/src/apps/pcomm/pcomm.asm
@@ -1850,6 +1850,7 @@ _handler_help.msg:
     db      "MKDIR      Create a new directory.",                                           HEX (0D),   HEX (0A)
     db      "REBOOT     Reboots the machine.",                                              HEX (0D),   HEX (0A)
     db      "RMDIR      Delete an empty directory.",                                        HEX (0D),   HEX (0A)
+    db      "SET        Display, enable or disable environment variables.",                 HEX (0D),   HEX (0A)
     db      "TIME       Displays the system time.",                                         HEX (0D),   HEX (0A)
     db      "TOUCH      Create a new file if it doesn't already exist.",                    HEX (0D),   HEX (0A)
     db      "TYPE       Displays the contents of a text file.",                             HEX (0D),   HEX (0A)
@@ -2002,6 +2003,9 @@ _need_ext:                      dw      HEX (0000)
 global      _vec_history
 _vec_history:                   db      6       dup (0)
 
+global      _vec_env
+_vec_env:                       db      6       dup (0)
+
 global      _curr_row
 _curr_row:                      db      HEX (00)
 
@@ -2073,6 +2077,10 @@ _cmd_table:
     dw      0
     dw      _handler_rmdir
     
+    dw      hash_set
+    dw      0
+    dw      _handler_set
+    
     dw      hash_time
     dw      0
     dw      _handler_time
diff --git a/src/apps/pcomm/set.asm b/src/apps/pcomm/set.asm
new file mode 100644
index 0000000..2c19553
--- /dev/null
+++ b/src/apps/pcomm/set.asm
@@ -0,0 +1,368 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; @file            set.asm
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+%ifndef     HEX
+% define        HEX(y)                  0x##y
+%endif
+
+;******************************************************************************
+; @function         _handler_set
+;******************************************************************************
+global      _handler_set
+_handler_set:
+
+    push    ax
+    push    bx
+    push    cx
+    push    dx
+    push    si
+    push    di
+    push    es
+    push    ds
+    
+    xor     dx,     dx
+    call    _skip_whitespace
+    
+    cmp     byte ptr [bx],      0
+    jne     _handler_set.copy
+    
+    mov     si,     cs:[_vec_env]
+    mov     cx,     cs:[_vec_env + 4]
+    
+    mov     es,     si
+    xor     di,     di
+
+_handler_set.print:
+
+    and     cx,     cx
+    jz      _handler_set.done
+    
+    push    es
+    push    ds
+    
+    mov     ax,     es:[di]
+    mov     es,     ax
+    
+    xor     bx,     bx
+    mov     ax,     es:[bx]
+    
+    mov     ds,     ax
+    
+    xor     bx,     bx
+    call    _writestr
+    
+    mov     al,     '='
+    call    _writechr
+    
+    mov     ax,     es:[bx + 2]
+    
+    and     ax,     ax
+    jz      _handler_set.no_value
+    
+    mov     ds,     ax
+    
+    xor     bx,     bx
+    call    _writestr
+
+_handler_set.no_value:
+
+    pop     ds
+    pop     es
+    add     di,     2
+    
+    mov     al,     HEX (0D)
+    call    _writechr
+    
+    mov     al,     HEX (0A)
+    call    _writechr
+    
+    dec     cx
+    jz      _handler_set.done
+    
+    jmp     _handler_set.print
+
+_handler_set.copy:
+
+    mov     si,     bx
+    
+    mov     di,     offset _arg
+    push    di
+    
+    xor     al,     al
+    
+    mov     cx,     256
+    rep     stosb
+    
+    pop     di
+    push    si
+    
+    call    _strlen
+    add     sp,     2
+    
+    mov     cx,     ax
+    rep     movsb
+
+_handler_set.trim:
+
+    cmp     byte ptr [di - 1],      ' '
+    ja      _handler_set.got_arg
+    
+    mov     byte ptr [di - 1],      0
+    dec     di
+    
+    jmp     _handler_set.trim
+
+_handler_set.got_arg:
+
+    mov     bx,     offset _arg
+    push    di
+    mov     di,     offset _var
+
+_handler_set.check:
+
+    cmp     byte ptr [bx],      ' '
+    jbe     _handler_set.got_var
+    
+    cmp     byte ptr [bx],      '='
+    je      _handler_set.got_var
+    
+    mov     al,     byte ptr [bx]
+    stosb
+    
+    inc     bx
+    jmp     _handler_set.check
+
+_handler_set.got_var:
+
+    xor     al,     al
+    stosb
+    
+    mov     si,     cs:[_vec_env]
+    mov     cx,     cs:[_vec_env + 4]
+    
+    push    bx
+    
+    mov     es,     si
+    xor     di,     di
+
+_handler_set.find:
+
+    and     cx,     cx
+    jz      _handler_set.no_var
+    
+    push    es
+    mov     ax,     es:[di]
+    
+    mov     es,     ax
+    push    es
+    
+    xor     bx,     bx
+    mov     ax,     es:[bx]
+    
+    push    cx
+    push    es
+    push    ds
+    
+    mov     cx,     ds
+    mov     es,     cx
+    mov     ds,     ax
+    
+    xor     ax,     ax
+    push    ax
+    
+    mov     ax,     offset _temp
+    push    ax
+    
+    call    _strcpy
+    add     sp,     4
+    
+    pop     ds
+    
+    mov     ax,     ds
+    mov     es,     ax
+    
+    mov     ax,     offset _var
+    push    ax
+    
+    mov     ax,     offset _temp
+    push    ax
+    
+    call    _strcmp
+    add     sp,     4
+    
+    pop     es
+    pop     cx
+    
+    and     ax,     ax
+    jz      _handler_set.found
+    
+    pop     ax
+    pop     es
+    
+    add     di,     2
+    
+    dec     cx
+    jz      _handler_set.no_var
+    
+    jmp     _handler_set.find
+
+_handler_set.no_var:
+
+    mov     ax,     4
+    push    ax
+    
+    xor     ax,     ax
+    push    ax
+    
+    call    _xmalloc
+    add     sp,     4
+    
+    mov     si,     ax
+    push    ax
+    
+    mov     ax,     offset _vec_env
+    push    ax
+    
+    call    _vec_push
+    add     sp,     4
+    
+    mov     ax,     offset _var
+    push    ax
+    
+    call    _strlen
+    add     sp,     2
+    
+    mov     cx,     ax
+    inc     cx
+    
+    push    cx
+    push    dx
+    
+    call    _xmalloc
+    add     sp,     4
+    
+    push    es
+    push    si
+    
+    mov     es,     si
+    xor     si,     si
+    
+    mov     word ptr es:[si],       ax
+    push    di
+    mov     es,     ax
+    
+    mov     si,     offset _var
+    xor     di,     di
+    rep     movsb
+    
+    pop     di
+
+_handler_set.found:
+
+    pop     si
+    
+    mov     es,     si
+    xor     bx,     bx
+    
+    mov     ax,     es:[bx + 2]
+    
+    and     ax,     ax
+    jz      _handler_set.get_value
+    
+    push    ax
+    
+    call    _free
+    add     sp,     2
+    
+    xor     ax,     ax
+    mov     es:[bx + 2],        ax
+
+_handler_set.get_value:
+
+    pop     es
+    pop     bx
+    
+    call    _skip_whitespace
+    
+    cmp     byte ptr [bx],      0
+    je      _handler_set.no_equals
+    
+    cmp     byte ptr [bx],      ' '
+    jbe     _handler_set.err_invalid
+    
+    cmp     byte ptr [bx],      '='
+    jne     _handler_set.no_equals
+    
+    inc     bx
+    call    _skip_whitespace
+
+_handler_set.no_equals:
+
+    pop     cx
+    sub     cx,     bx
+    
+    and     cx,     cx
+    jz      _handler_set.done
+    
+    push    cx
+    push    dx
+    
+    call    _xmalloc
+    add     sp,     4
+    
+    mov     es,     si
+    xor     di,     di
+    
+    mov     es:[di + 2],        ax
+    mov     es,     ax
+    
+    mov     si,     bx
+    xor     di,     di
+    rep     movsb
+    
+    jmp     _handler_set.done
+
+_handler_set.err_invalid:
+
+    mov     bx,     offset _err_invalid
+    call    _writestr
+
+_handler_set.done:
+
+    pop     ds
+    pop     es
+    pop     di
+    pop     si
+    pop     dx
+    pop     cx
+    pop     bx
+    pop     ax
+    ret
+
+;******************************************************************************
+; @function         _skip_whitespace
+;******************************************************************************
+global      _skip_whitespace
+_skip_whitespace:
+
+    cmp     byte ptr [bx],      0
+    je      _skip_whitespace.done
+    
+    cmp     byte ptr [bx],      ' '
+    ja      _skip_whitespace.done
+    
+    inc     bx
+    jmp     _skip_whitespace
+
+_skip_whitespace.done:
+
+    ret
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data area.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+_err_invalid:                   db      "too many arguments",       HEX (0D),   HEX (0A),   HEX (00)
+
+_arg:                           db      256     dup (0)
+_var:                           db      256     dup (0)
+_temp:                          db      256     dup (0)
diff --git a/src/apps/pcomm/writechr.asm b/src/apps/pcomm/writechr.asm
index b268990..c735600 100644
--- a/src/apps/pcomm/writechr.asm
+++ b/src/apps/pcomm/writechr.asm
@@ -15,25 +15,19 @@ _writechr:
     ;; Preserve registers.
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     push    ax
-    push    bx
-    push    bp                                                                  ; Some BIOSes destroy BP when the screen scrolls
+    push    dx
     
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     ;; Print the character to the screen.
-    ;;
-    ;;     AH = 0Eh - Teletype output
-    ;;     AL       - Character to print
-    ;;     BX       - Page number and color
-    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-    mov     ah,     HEX (0E)
-    mov     bx,     HEX (0007)
-    int     HEX (10)
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    mov     ah,     HEX (02)
+    mov     dl,     al
+    int     HEX (21)
     
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     ;; Restore registers.
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-    pop     bp
-    pop     bx
+    pop     dx
     pop     ax
     
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/src/apps/pcomm/writestr.asm b/src/apps/pcomm/writestr.asm
index 64cc800..3e50fb8 100644
--- a/src/apps/pcomm/writestr.asm
+++ b/src/apps/pcomm/writestr.asm
@@ -34,10 +34,6 @@ _writestr.print:
 
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     ;; Print the character to the screen.
-    ;;
-    ;;     AH = 0Eh - Teletype output
-    ;;     AL       - Character to print
-    ;;     BX       - Page number and color
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     mov     ah,     HEX (02)
     mov     dl,     al
diff --git a/src/kernel/mem.asm b/src/kernel/mem.asm
index 477a423..2bd24a0 100644
--- a/src/kernel/mem.asm
+++ b/src/kernel/mem.asm
@@ -168,7 +168,7 @@ _free_mem:
     
     xor     al,     al
     mov     cx,     16
-    rep     movsb
+    rep     stosb
     
     xor     ax,     ax
     clc
-- 
2.34.1