From 909fc89a302c28acc2c188e3602b202a0b661cb8 Mon Sep 17 00:00:00 2001
From: Robert Pengelly <robertapengelly@hotmail.com>
Date: Thu, 1 Aug 2024 05:28:38 +0100
Subject: [PATCH] Added error messages

---
 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/cd.asm        | 151 +++++++++++++++++++++++++++++++++++
 src/apps/pcomm/pcomm.asm     |  95 +++++++++-------------
 src/apps/pcomm/type.asm      |  59 +++++++++++++-
 7 files changed, 247 insertions(+), 62 deletions(-)
 create mode 100644 src/apps/pcomm/cd.asm

diff --git a/build/chimaera.img b/build/chimaera.img
index a1adb6ecdae438887f5080a8dfec7d39a758eaeb..fbf278fafeef33232f3f63e70847825ca00be465 100644
GIT binary patch
delta 2489
zcmaJ?4^R_l7XS87HiRY^Si-;3un|Rj+HJPgUZM1Wf+$!eWE}*tcvPXoje$-`^zP=S
z$xZZ*6^G&2o9Q2WHwLuUjLx8>V=yz2x>l_-nPccp&pSGLJ(;;LO~JX+Q&C9n+l|3L
z(`#ln`}V!}z3=zl_ulVwhqBzEto~Kx^t$!4XV%=*xP&!W6V?QP{07SJwYs`(OyZ|c
z=#zF_u~%C+Y<RuO%J5A*^SE6FntlSn<_*@Z8(wFAz^(^Hr2tgcZP`+>wTeM+2Ba$+
zCpSRf%SXJ!Z|Vke(zZN`EU`1oKETB=PasPmPa;EJPuPi(3j8>MqSiecl~9)b|EQ1W
zTUovFiF`@Wjp7awXPNQ0@jaT6Px~)nu35c#W_!IkG<U3N7wctcc4!67dW&dN$f2`9
zbC%~K&V|^aA{zR%jq1BsabV#a+-1O7$R6#W$qGN-b0KW<<7Z2h|D9n|a5W9>neY=3
zZ4EHMB3y5P^9IjF5=Ep1>5>{$qUDYhcNw$4q;h+7&i{(=UD(vU-g6gss)Ai)G|h9D
zKvD}CC7Xk85*B45#eM^_+x5a6%+7>6K$HsBkWic1(%dLHy1E!!Yv-?+R{L8{TU)22
zTbC*py;~xV4y?d!w0L76C!ePg#OJ~$_x;pv3W?^h$voY2jhlqUv`C9Dxyoq-ksXSs
z82gacpBFY2$XOCWOvA&AnWzloaZ0!@d^&f`9P$O@l$->Ik_*gJ7U;}CtCQJwBkv!|
zHe4B<V?94xq_BOe%hd}w=&in2&b~q|Qu_;BLiN2(+~g<@?tCps6ziR*`a(s$YT<$!
zz6hdUvfg-#1*Xb4WSa%X5nlZ8mA=sUJY^1zQee(kpx)K8qp7*kbCG&OvhY@8{pIQy
z0Aq2rwE<q05qjQP!0f=kmHQkO{HKY6XKA83&)rJ7;wnv)2(HpJ!Dlj1#rF}B06;$7
zL}VBQ<7%kRfVHv6F@U1r_GPl>zv+pChcCnsz>!0LjN=<o`}Afpbn%3ph<pIJ$#SKm
zdW}VN-xPNnrOVLWIrU1SO_U(9-h5igRE_F>o0)NJH&3%i3u$rU-Ct}gqMfJ-&n;VO
z!sY_CL>YP3yMpE>izoIIk*k1}W1FU&FI&)wLbRd93Xi9uYz3*&H03a{0<u%vjScmd
zK51-L?0YY}a0UG%2pY`O2>>sM_uhNil>jl0B0iV|8APCP<#{)On*B39H0u1hVG}#p
zL65Db&6EC(=;Jb#M*{$tsn|nl-=Yyqj@J0B-k%aSF(GG;{4U+(Bq9(i-Rx*AwIJ~(
z7X4?b#<|u~Z%rgKN{YVsD_kq_=wVc9oibyoX#EUwek1-cVU;e?bE}j@`MwYp%%^!c
z`4m!*&FZ;$PsBW<v~F`#OTjL+dl7eX$l(4BR^nW3o<2lc;PY~drVxrupvbajuO4aE
zR`hJV;7<#iB45SetC)S8aGeYB+|;QQ+4b)+Ez=_**^zoi^@XHmI4Sxc;YRbAjUG(}
zr;9H;sMDwabth`%p+hI0`5?#TiH+Y%5A2kgfrlI-7<pE-3NyeXV0fpmGQcK`nF*tF
zIS*H&{BU{rl*(cNlZIK}@NVC5mv7kSi|TktBt0+*4e0q>=^hCaZUkpD1Q&jI7a0JX
z!zR>{s*+eRmI0r63Qb}jjoE2=v*4|C9-fd%N`Zks;X*1byA!##2>-GWi7&#~{mA^H
zSbwApn-%|XBwy>*Dz$QaWrb(O(IYE$vw8_N@3y7pH4J>1TdTVt05~^wwl1vS(cBmd
z*A-n-0SVr|mlOklI;ZA7KVO#<)+?^uWLPgjsDW#4qY*Zu0lyY}Ck_5><dYBQvEt=4
z+mlsDqb4$k9yHdR4~c^_`X6KCkJRG7|NN46J<D<2y7kZMQb8PD1nKzGueI)Bc6Zqj
zdG2Al>`Z&d-ZrMQ)z-#5$A}epy{o^!pVR^{N__WQ04!-=9s=ML$^QueT(uJepgrv^
z8vym1&)x^Xmi9dlK)F745`dF*%QpaMGcA0*)xS1u625RRK1#c2Na1cWK^^Y-M=e*7
zr6y^Ki|Ro={yZt>4nA8hld&dPn+=zf5f#S6zpBsyjMo|-QgW?fiIS@f7I=_A$C;#L
zk4kh5np~R<h|~svP`&UN*H#%4Tq~*h0RF1*4@8b^f*gOHoxF`YvgO;THyi$rkZ+@{
z@@-Vp41Y<$;H_wRvmlMvW+5I1*qqN_HW~-#YqL<lF{rik$7-`qF(JqGQt|7-Y(wPd
zan>sXJVT-k6b7#{jA)1QaAQs9zSg}RdzenA?aekj)78$r-D*e2;b^lbue1|2Yennv
zARf#aS@zL642SvR(T|@NZ=T3ain$*ziFFUfgGq5+($95Z$#2z3MVvUG7$*+oiOj(~
s*-sX)oLmxPNc_f#w7KGoz8w5pMixEozTda|F!bQ)A<nh?NaOea19zv;!T<mO

delta 2132
zcmZ`(3rrJd9RKdFTq{s%kAf&l@1j<%?siq@1R01x)hSY`;}MCB`N|ewp{>S6ZI|lg
z#1Q7`;)^Jc&43!g)`&KP>N#IYm9Xf{*nCW~eO;poVtlXcyOxT&?UK9u=l}b@|Nr-Y
zI=qPvZ(_|j*|X&vsn&`2huDkk{l)#o07!ojdS>P4FQUVbDy)y-cnCKZ<mS%LDWJ_I
zX8LVB3Y6#pn3r3yAa_3fAGiwW(gDcM&&$hNkVB(C4b&mW5eGEbL%Y-`KU3~X8k+Ye
zv#@8D9pFXN?=TB9k1#{0-oXi17XBT9tmeOIl?Yw?f2(iDn{Ax^PP{T;L3SI6lXS;A
z{A-2lT+KzypjUAZiWYL-zQ&R=wl0HW8)i{#T@J-~tx6MgYn&HwgO_c{q2M1e#qwuY
zap7BGEPkC5eh`vIo}%3N$@hGW<7KpkL?Y*7xSq;ehAw!35_*McdG(a@f{blo6e-n6
z>mK1_w2n+*BRr!OW~h^lcQ7P>n?Kjr$a$MR42e*yfxlhYmQ0%9&uVnLjRq#9fH&fW
zhr1GseA$6M)|sItvGq}xjIVG|WqdJ{ok42J4O-s#VveEf3=W>&<3*CKOD3zmx+*z;
zUJj>#z)iM}QJCPWc;r>WOt4%McV4dcb|ee;cGGr7UQh@pNtB&iUSSo$y})qA$5=je
zKErKMp6QB!()o-)(l|wc@XS?|K)V_#))W3VfR0!Qe+%$1a`?F#ejM~S0%QcQh?6u$
zYLuKb9|I=`B@)%QoLhpxDkYEhF<}UOU5-6};<Hius}eJ))XoaRzaJR7W`-(Km6AhM
zcN?CdNHZu)(!x-XB_uDhb!k*6N;%5#6Z(O*i0fewXHf!Hn;>}hjS}weoo>&eY^a#S
z<6akYu~sgUDQ32A7G>y4?c6~4uL4%`!F1cEn@|lQa%?Jq@}VdhyjaY1TN#!|I9ZfZ
zxX@HBw(C`f{z^ahAXK>Gk|o+QxuI*0#P#3Y;^Yx>g<Q`dw@+4tc`?YzK$A(l+D4B(
z>mYoL2U9^utb4eRVe7Y3?M900a?eIN<f7OeL&u}GjkIfrUgcK!7}{$~lK$y)Y=r+b
zmOjr~oNhwmNn!JTbLL|#uoLB28OnDwI{g4a%lZdHT@#B!MO{BG6r#D>OM22MGn^5F
z)a`m9?m&`VuX1d{(rn|oo*gn1+^a;i880#ujm$`z8&ZNNWmTSc5A`wr`#~6sRV?Cf
z8@y&i_c4WZ@@_Det`w1Mjc$$lNsOfpVxX75v$(yAIui|!r(Uv>$B+O1G>~G3zac(2
zCT2?$p>Sl<8wfjU{o`!E#=j%jF;U%CD$Ru%?oSBwj^)LRasa;oEv3!bZEP6a90qO4
zW>_uRlLieFTiE87rOhpCn_E^l2b5-L8HCUjo}H+6iWq;#qo;T~zOzi$2Ilz~)Q#%+
zpkEb)^1uCD5KepL*9V1_2Qw$=RmW(rby_;To=s1)j!rMNYSUS3GS|bOFMu;7(<rOI
z7Qp$!^@C%TdX<QpbkXZ3WwBg=t4$onz6|>Ebr++6XfhW@W`0bJH1qGrpupWT_(wh_
zKzb}nxMIkX#l_;%Wofi^?OJ+u`I?P%dBsZG>g8*!7G*RLOtr%(ZU|IALAFxReBbh%
zRYI+6W9@THJCkB76SFAPGn{vzkNTRCSU*9<9^Os~-yBMaGE(p%DI7gCEp`e!W%389
zsS}XZezZHw@XVT;8d)p=Y05`m0kBhfa|Zy|2y-m}V`QZm0QJh1s{ybme%uE@lk%|{
zfK741CIBu`Oa1~tA1^f3j~sc02+zFZ`I~F=GFqD_2;p9R626B(+cQy6H^fgi!#PnX
zg&jK0;F{EFUav`7V}j3d)B%x{J(Wo*6TWPSF^<t}DCdo@-dc&YCcF|wc^m!_{|l;X
z1}}E#5;*S}fb})IGtcycv$_PNr%}~Lw(AmvV8bX)U^iPQxhjz%E}@M{Yg}C82wXTa
zcam`Jdk>yD%vE*dG={HA7FwE;g|epM5%Gv~K%5%U#BY5K&K(r(gW{>M*ts=y<<q0d
zLfp~N6-g}GHXu&L*NhT6w+<Ih98JR4X$M5o^<vu)(%IX(y|)!ZFOFW~bZ@IH?xD+s
HZ^Hfogm6bM

diff --git a/build/chimaera.vhd b/build/chimaera.vhd
index 63ee89caf0e6144faad2c6290972a1cd134c07b1..d3567ff048d81b1bf83376aa6159cc9b23c0e1d5 100644
GIT binary patch
delta 5262
zcmdVceOwfE0>|;+%r477fQ!qc63+U7TDq~NmJj6vii!^`tf7bx;Zxa(bUbL!P*l3=
zk=31h)m5Ta7pH}a0d5Jore<v!b!F=LkXC~m_&}+su=o8gV%Dp>zwdm#KJT5`8D@Vo
zJM&wM_pUP*ql#)t|I!mPnzp_tEmQS<_hD&l_cC2Ty-$dVTN`_2C|BRKd^bRuD1^A^
z^L5%P$-Zt|jq;iQUEY_s%;_ine~oy}0wt_y#m!Qtlqm#Xak=qtRBGxJwf&#5{r!&Z
zI{)_M^f6;5j!swYnRfNp+YKV~CLtz_NuNAsqWU}A<3z$RA(B!jO&U3Qw2D_%g!@0Z
z;{%3@@b37s=SXYrQ^F=)KeYCbwpgwXOjUm~H2=s%$I!6XZ?@}k*w_7sO}+lGdjH@3
z=fnQ`jFXbb{^pDWL_Q9@UV3+tQoBf=7gY7Z0cE#T)MQL-oSK$c*SsNfwxvupS=RS7
zS;`Vj=DLDVo0b?=vP-tsS=J|*wDOQ?ffx75!e-AX9xe)dSk^8y=|@(|%XfOrmGYJ$
zerI^hu0AF$FGAZUyxG;NusM!oXf2T?yYx7s$>H7|D3b8!1xoR7b?K0#sov(wp^kGN
zbN;}Ri*jLrD_8FgE4iq{(k#7KpXDmnYY7o}V`(I|=NTQ%T6BaqU3d+y@p>&JVpi5P
zcR_Bhnv=cwAvHVi-ol*uiwp8YgPjRSl_AcWgGx_1$K*VEP>G4Nn=s1$9&_>K;CurX
z6Fug{lgkfS>$Slqr|FO~sAz-<!?djTDe<LvyRwVN+>K|db4fvVZC3;?MXk@^IO6!A
zc|&4dxyxtZiCA%h)hz~_R@fPT-EqeG*!%a+*puXKwv^n}YLJ!$>`A^Ni<QZjMp%X#
zS`ACP6*-bGjkDI*$l}6rhudH&YcZ78C9Di|><rXy6W*^ZWj@8G1#=wSX48Baue@q+
zX<coLA+fH;Aezg&1<sx|Ju_=s$u7f8x6Pg&pSCBtO^6-7!1N4lA4gd7_!TKnR8F>j
zgo}QA`$dlm@`jdNOyX4!2=eM&y@N8f8$08wFVQtr3+$7xYp4(|U!WG)Sxaea*dTBe
zIj<An`8mA(%hzsg!vL#R99DetSlmM^qg2!2{du~EmxQ%`g#Wf$8J}P(J!CzP^Hojx
zF=_rY%``aNma;gL|5O8U;m@m$1yd7GTGsY3Irkq`?w^uiD#Wc=)#=);nAI)NZHTv9
z%6git^@H~>)ivxB79QMusPGOOzElmLXiL{#55xI7+|$g53d|M<wi~9#XQbIm-8-6`
zrN@-$9z9L}WegdKC$A3SR_CQ-${j`R<EX_!uRanSM|F>0+lzI$>pwJV@u8Km9<ycL
zLeq{uro{Tnu~^w-=wcE=>l9#F5%wdVwT@@3w#itjc+6^DVGLh~jVshOXwt9=1=EJv
zuy{i99vc=^*w2=h-hMtcdT04@Wn@t=*}DoCJk<ZR1>*pX*n6h$my-?%ZNKw+`%l(h
zT4!*@ne1Bq4S0J;lhNv1-jLYnzk#zdXLXw$SllWXTCt({QE5nFpTv_Z^fv7lo};-A
zN7muUd}omn@AMnFeC*E3Fps(6aGQ3glsCn3#9C*!9@?mI*KgWF)a7n07X)t(_`)5c
zTHW5Wj-y#Sa!fVBV$<L~1%^$VzP;d$w`&EV&duK{F-0Y9wWq_YXK<3RYgWuPd}KoW
zlZ5uNsF+cnRBdVB7}375u)AIBg%gzd4EnFFBqVo*rMzNpc|~q{MNYXl)UN3|_K@6o
zPPd;9FL6tbqpqgTjv{&0Y<;zu;4$OI3>ebpYU`}scmp2DE+#3@#1C_w4!3J>a=!8p
z1FPDVU~Tw?h6AnIXIC10ty<gVhL%=m+6iU2)Z~2bgc2807UI8L1&7nMEzX(~O0Uo+
zqZ@belwa=R$TcUG*p$%A)k3x&+LG!qPS2Xw=1EQ19U$D=`AZ#()xuB}X#Hq=YK+I|
z-_=_0F}gJ^NW1ww9_M&G><3(rhiP9|Z9A#7NQ1kZEX$*Mm~b;C)?K~9n#-}cuF?44
zrsp>Toj-i93<?=&v0AMI2KEgN7C!tqgv(t=WzSRR=H_5Jou}sJsS6e^ny)U-&Y7?F
zS6>(@r4_ASy;>h4M2+s;6GGU+zFHx~M!o$NA>@D=k`N2R?#&S*E$G7+g~$o}$u7hQ
zW7}Ioyk(koN{EmMn>{VPvY*H7_@cP=`dJtctTtEQK9Ll+T)$;6wv6xC;&TR`QjGE~
zdS~n@rSAw%&Oxq}Xsx@xAwaTgUk2cNs7;CdWr|LTyf#ITj<jh{>+rpHOwlC)&Vo~l
zxoBJ@X1V8uBl*g&Cg0JK?US!N&|WRy={Shl($YR#J{;Zg6SXj!KT#{AwP$qviJHux
zsPS3agF4N1+B+i4;jT@I!o)13=JLwnH9oODB?@<*ikm!cM@rO2wXWdEFz4}8N_1qy
zJw8hrhqzgfbMVjUqa&+Ayh;~2e*EGk*^3s=Qx_NJ%$c93<}Oel$j-xeQZPU7+ArOk
zFDU(->5Ym@cEwb6YEr5sS&MV7J)?AWo;a<<UR#MhbKOen^(#;RvNGV>?nR$ow|noi
z?JN5~Rs4J4wTn~z3`4|6`B(Oyy>6wAE2rYQCDwV{IVDE^QT4AZTX0T6K`0pAfI?6x
z3PYWc5rw19$b=$LB#J`OC<eu%E~qPtLpP#$)D5Y~jJl&9s3+=$5>Ri{2lYiap_@@Z
z)E`;UEhrIL(XHq<Gyn}mgV62h4m21IK||3nbSJtC4M!u;NHhv1q0wjzN=9SRI5Zxm
zpb2OqnuI2!RAfVGC>`0+6m&PrKvU5)l!>OJEHnenM6=LrbPvi#bI@Eg56wpl(7otB
zv=H5o{(u&t9JCnaq6g3)Q69=i1*i}$K}*qt=ppnldIUX+9z&0#B2<i?Ku@9)^b~p;
zJ%g5^<;a0npp|G9`V%Te&!W}nIrKbw0sR^M1+76&^jGvEdI`OZ{)S#bucFt`T2zMC
zq4j73dL6xi-b8;#Z=rJZ53~_&LT{sYPzBnIwxF%35^Y28qAFC4YS4D%LhqsX(GFCL
z>d*&hCvu}*=tHy{?Lm9dM`$1V7=3~~=u`9=+K)a*_2>)qCHg1&3Vn?Zpl{GYbO;?r
z|3XL5QFII)N8h3o=p_0MeUE-X8frkNkQe=k8c`EEjn1I6=p1TBKcSz|d2|6?L@nqN
zx{R)%R@8=kD;J!To<&3^I-(~5#6SXxLV`#zxq*a`P!dKu5hDpFor#G=kVq0mqDc&i
zC0$5Y5=U+%@uVA3iJ5dKJxEW|izJZVqz~y!ZX!36exyIKkXuM1v65TKZDar$NCuJH
z$sJ@c8A67VVdPG77a2}Qkdb5*Ng|`k7?MoJl5u1_Ng)%+L^6p?CaJ_m(nvb7lPTnG
zl0l}DX(W?OCs||$nMr1m+2kIQP3DlfWFDDM7La?%ePkiIpZtL=A~|F+$t4evKaxC>
zPYOsOSwfbQ2gyU^Ve$xhlsrZrCq<-~JVBl$CFCjcG<k+BBg=_{tRO4ND)J{%N}eUF
z$#dj+@&frY`3qS?oaC?MMe-7Pnf#5sLS7}Wk+r0ZtRw5m2J$+2gS<)pPTnHr<R4@s
z*+kwZ?~n?znQS3jNhR4v-X&F}n$(c(#6{jC?~@&*mei3C$WG!WyU2%RH`zn>l8?wf
z@-g{@c*v*ZGqRt2PU^`Q<V*5T@)h}-93bD2gX9o7O#VfVkfY=nIZnPMC&)?i9r>R8
zKs3@oP7yEpku;Jfa+;hWXURFzOnxFilk?;Pxky^bC32ZuA+4m1_#{k!G8QBv6CKf$
z0Ai49G5yK$Z@;=uk-Nwr&wnir3%$b^_P;%?>jP3stQz^~pn>sIGw?t1jncmX5eYc>

delta 4602
zcmZ|R3s_Ti1IO{RGZ;r?G6r}9VM|3tJ8fzzNa6)i^ER1rNz=TfUA&YG&0Y<PN+(8|
z>B??`mWi6A7$_yvnYWr6rkQvb^B`#<=DqR$enZiEdwrhohjZD^`Jc=Fk6C;2by=ve
zMCCJn!bbh3Z&dRPK8v?tX~08yYTrY3f-rc~rMAh^-Hr13uGyvu^Gp*|NJQ!-I`OBC
z<2$MTW%II0Qj^TI%(~RNR6*ch!TYc8@Zlp3_5XDB+wbjHd-o?M_3u9<A<1A(vl{-s
zUn8VNV?h0rhV>s}_?P|RLR6d}^cy~OXrEyT2K+S$LEaPJJ3&ujsbP~!9IsmTtkh)a
zgF~x7wJhHqn8EOmq16xl-q7%=f9&_cVL$U8cKCyb_3?i1{~z}6SKKdgz(20oS4hW!
zSE|0AB9%=M-;#>AAC-2g%+Wg2rIZmSXYH!Av2tE7y}YuoUd~I<8=W?-MJWo&-YJ@$
z^2!9g@@wN%zZ?5R$Fd5kt$0B1__ji79==&$ByN1zZOppupRU28$!#=M&Od4{S3cA`
zYAU2|L-Y07JALGpMkyi}n~PeyjgeXLLWa7uwPaPIc>FS>#(vViy>^w!Sx{=!V6V+=
zKbc$-rm-kL2jSZ#2El?2%Hd$g<zrIQ6nDSsS~<H{q((K<cX#3)QOHTW)m!eViPX%B
zv?tygXfEF(3fIrrT^czrOq1)3%JH-B@Kd@7)kow!qhwL01mm>aXHmv+ap9g^XIYrz
z%yG$(Y4l4<RyuLe*{|MF%@B%)nfJPl>D{w$h#9`6J)~-F_6;?b+DX;w(m_(1k{N^z
zGu2fk0zQ(it|}Btjeg2=LCWKvs#O9GBF+fpmXsjepIEn1>FnVsa*t-e>Je<be+IX)
zeitmxIw4&U2jC&(H0`C2IXFXIwOlZl_x3)QoQMQ{ZiV?8uC<pwz4-|5Wu|HDE;%n&
z@4Zex+~jM9OSTkKrM#k#-k~}#g*r;lNUa>FPfI;A6Z9E)sx1N=p6aMbKbI!LD(Cgp
zo6BPk&Qe$H6J(yoSdr1gf=8*~+?FK8uL*95-IZ#ruo-1L_G?lil1Er_UE88{=DPV+
zrc2((mzp*va;%@Zd?1JWzrzdkyEndMQ{{uhdty@k$c#A6-S>?nD{0+!YnIw=ELG{0
ztbn2xZljz(ProfuZz?YufIDgOl@~N=k2m<<n_CvGE0WwsgEON!|Hci>P*)YJ;s)DN
z<1AR*=$Ly}vc_LkRWHP?)_QNdKR$j5`zF@izuIX5xLW)I+Ig?in(Ne*#_Fv~&&Jri
zE!q)yPHLVRt;?FDip^+ms$Ae>QQp^L;6^8o<B#KT%VFN+PJQO@C~D$1R-N-G0je1z
z?I+DntGQyG#7~~~1Q_PKux#`H%J+~fz+iS&*Vs>u+Loi=;xDX^*=^ITUw`&`b%a$p
zfdPpsS3mwXq^x+uEOjP+1MB6wkg5fqvW`I|qxlQ5D$7Ib2OeN|?eY_p=Y_)21^r6o
z`kiy@cV>iHm0TW=KRK1FP%bE(P*6C%pm1tIwbrVn-`|Db<JOKr*)Em+RB5!{o+&OI
z>r)~Ob{p|h1_gVnbRNa;uPT#A>2{|o+T)m9DaCh))~z!*ZQbGwGv&BgTkE*dw#Ycy
z7G|on??_U5^4Peq$CH#HjsulaTWz$?g|~I&{kK(C^>>)gOHG@}w>|FRQM-Hvm&KZV
zZw6@7*gFF}(im4?)YE>&ZLHRmrfZc+jmC^hbxoKUYp_k9ZkRf5+HAwP8Iv=nJ~Pdh
zuJsojmh)0Gy{VBBbPY#~z|Z|?=~k^0Sv>o^bW;`CTQARV+DDI<$K<^GLe&;vF~5UO
zUNKMaSbRYW^-a_(mo<*H7o=_hUF0sEAB~CWfFsvoP8}=8FIu$7CqNKlwO3vfgoWB8
z3j|@m+WN5|wDB3O5`=v1<f(#?E`9fbAgs||wF<(VK+hUM*sULPQ4peo9cwO1;o*DL
z^|L_M%?IbwJ(x>3s2yi6O3lTkYR;)m9YNJnaA&JB&=<F}EGp#w>=_l(Fnbz8EXqw0
zufx52ciqQ(?;NjGON|rTgv=UePrUQDsnQTqKUKQ?O2o(P$MBeY*<EE(p(f`RK~-B&
z6u+fT*cugz?FKx<@NH3{4o|hzDx~^7Ige*c^TBYuQ>h`O*z}v!Qgp0dB6V`?zbuuC
z@y&{JewT_>;*>B)VT}~#7+WK?Xjob8ZdmEsurYXl!^SYjpa)knA6(gdcje%I$@|@>
zYjO0z+WPN$S5gi%taKHpwQ}H-EgTzaaYJ8>Y*^70-#Q>Q(#)&5DWOKlA2mh+NQ;`F
zK%_%KNRNV12nt0_Q8UyWwLmRV7z#(NPy~uZ24qAJq1LDkYKx*!JJcR^K+&ip>VzIf
zGI|7=kQsGGT~Jr_DC&l~qaG**#iE`l4n2l?p?K6A^+A16Ka_y_qeL_S4Mc;`<7hA%
zf`+1DXgIQ<5hw{+(Ma?JN=7Lt6{Vpk(I_+;J%z@gvFK?u4vj|>&_whMnuI2!XVG)$
zdGrFBf~KNrXgYcky@Y0<bYw#rXeOG4UPiOgE9gIH4w{QzMVTlIy@p;#+2{@QCVC6a
zL-UaxEkHSFA$l9-qIb|Dv>3gMmZ100QnU;?(EI2Ev>bhiK0+U(Ptd1m1<FJDXeC;O
zK0}|Q)#wYf1{I*SXdPOQzC;^PA^Hk!M4M0%+Kj$N#i#^rL0eHN`UZWAwxKfQMBC90
z<U%{qcW4*djrO3uXdn6>{eawPKRSR8q90K?I)r{ghtU!AGdhZXLB~)9I*v}DljsyW
zjn1I6=p3p<=h3g|0#Z;Fx`?XLZ|D-bjDAOdpc-@q)uOBDPjn4kM>o(-bPL@^chFzR
zgX(f>ZmQlvL?mkBLwt#b_z{UTBL1W?2_Rb1gai^D2_kwDOhQN~X-b-r=A;E_Ny11t
zX+<JPBry;pd5E+oZAe=ZMcR?}qyvd29Z4thFp<e4#6--bGwDLQl1E85(w+1mF(j7s
zByr?1(u>5C-lPxdOZt%n(w`)f0c0Q<L>?!D$q+J>3?svdg^VCc#7ahzCrC0$A*m#d
zJV{28(c~#IhKwaolW}A`nLs9zXUHTnnLJCLBhQl;$P_Y_Oe53Di{vFTgQOE1$sjYy
zEb=m$O<p1YA#=!F@+!$BS>!eHI>{z)kT=O&WFDDM>|_DSAq&adB$vEH7Lmo|U9yC{
zN0yRh#6jLCACTqbL-G;%n0!J$B`ZiC$tNqxD)JfmoUA5akTs-$tR?Hndh#XNKnlrM
zWFy%`ipXa2H7O<~WDD6!O363mTe6Lm5hvMBb`TfYNxmby$ZoQS>?Qli_v8oSCi}?&
za*+H;%E=+}6FE$dke|s>@(VdeD#&qif}A9$$Z2whoF(T-B{@%iB^QW7s>nrBO@1Sn
z$Yt_7`GeGuE2NfOC4Z7@<T|-QZjxK%Hn~IoA|6tw!t^I%K}AHOCO*WMXv8v1e`4Sl
un{?tF)hGFq*izK4{WKg4?Sihv#D%{6WNK9RHVLx^1*lpF;Xl9YRR0BsK3`=3

diff --git a/src/apps/pcomm/Makefile.unix b/src/apps/pcomm/Makefile.unix
index 4b669c3..215b56d 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 crlf.o date.o dir.o erase.o exit.o history.o pcomm.o time.o type.o vector.o writedec.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 dir.o erase.o exit.o history.o pcomm.o time.o type.o vector.o writedec.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 994bad8..176b539 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 crlf.o date.o dir.o erase.o exit.o history.o pcomm.o time.o type.o vector.o writedec.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 dir.o erase.o exit.o history.o pcomm.o time.o type.o vector.o writedec.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/cd.asm b/src/apps/pcomm/cd.asm
new file mode 100644
index 0000000..2f62504
--- /dev/null
+++ b/src/apps/pcomm/cd.asm
@@ -0,0 +1,151 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; @file            cd.asm
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+%ifndef     HEX
+% define        HEX(y)                  0x##y
+%endif
+
+;******************************************************************************
+; @function         _handler_cd
+;******************************************************************************
+global      _handler_cd
+_handler_cd:
+
+    push    ax
+    push    bx
+    push    si
+    
+    cmp     byte ptr [bx],      0
+    jne     _handler_cd.got_arg
+    
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; Print the current drive letter.
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    mov     al,     cs:[_curr_drive]
+    add     al,     'A'
+    
+    mov     ah,     HEX (02)
+    mov     dl,     al
+    int     HEX (21)
+    
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; Print a colon and backsplash.
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    mov     ah,     HEX (02)
+    mov     dl,     ':'
+    int     HEX (21)
+    
+    mov     ah,     HEX (02)
+    mov     dl,     '\\'
+    int     HEX (21)
+    
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; Print the current directory.
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    mov     bx,     offset _curr_path
+    call    _writestr
+    
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; Print a newline.
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    call    _crlf
+    
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ;; Jump to done.
+    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    jmp     _handler_cd.done
+
+_handler_cd.got_arg:
+
+    mov     ax,     ' '
+    push    ax
+    
+    mov     si,     bx
+    push    si
+    
+    call    _strchr
+    add     sp,     4
+    
+    and     ax,     ax
+    jz      _handler_cd.change
+    
+    mov     bx,     ax
+    mov     byte ptr [bx],      0
+    
+    inc     bx
+
+_handler_cd.skip:
+
+    cmp     byte ptr [bx],      0
+    je      _handler_cd.change
+    
+    cmp     byte ptr [bx],      ' '
+    ja      _handler_cd.err_invalid
+    
+    inc     bx
+    jmp     _handler_cd.skip
+
+_handler_cd.change:
+
+    mov     ah,     HEX (3B)
+    mov     dx,     si
+    int     HEX (21)
+    jnc     _handler_cd.done
+    
+    cmp     ax,     2
+    jne     _handler_cd.check3
+    
+    mov     bx,     offset _err_no_file
+    jmp     _handler_cd.error
+
+_handler_cd.check3:
+
+    cmp     ax,     3
+    jne     _handler_cd.unhandled
+    
+    mov     bx,     offset _err_no_dir
+    jmp     _handler_cd.error
+
+_handler_cd.unhandled:
+
+    pop     bx
+    mov     bx,     offset _err_unhandled
+
+_handler_cd.error:
+
+    call    _writestr
+    
+    cmp     ax,     3
+    ja      _handler_cd.done
+    
+    cmp     ax,     2
+    jb      _handler_cd.done
+    
+    mov     bx,     si
+    
+    call    _writestr
+    call    _crlf
+    
+    jmp     _handler_cd.done
+
+_handler_cd.err_invalid:
+
+    mov     bx,     offset _err_invalid
+    call    _writestr
+
+_handler_cd.done:
+
+    pop     si
+    pop     bx
+    pop     ax
+    ret
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data area.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+_err_invalid:                   db      "too many arguments",       HEX (0D),   HEX (0A),   HEX (00)
+
+_err_no_dir:                    db      "Path not found: ",     HEX (00)
+_err_no_file:                   db      "File not found: ",     HEX (00)
+
+_err_unhandled:                 db      "Unhandled error code",     HEX (0D),   HEX (0A),   HEX (00)
diff --git a/src/apps/pcomm/pcomm.asm b/src/apps/pcomm/pcomm.asm
index c9c2a41..f8505d1 100644
--- a/src/apps/pcomm/pcomm.asm
+++ b/src/apps/pcomm/pcomm.asm
@@ -35,6 +35,7 @@ _main:
 
 .L7:
 
+    mov     word ptr cs:[_need_ext],    0
     call    _prompt
     
     mov     cl,     cs:[_scratch_size]
@@ -378,6 +379,7 @@ _main:
     mov     cx,     ax
     rep     movsb
     
+    mov     word ptr cs:[_need_ext],    1
     add     bx,     ax
     
     mov     al,     '.'
@@ -425,6 +427,30 @@ _main:
     int     HEX (21)
     jnc     .L5
     
+    mov     bx,     offset _err_invalid
+    call    _writestr
+    
+    cmp     word ptr cs:[_need_ext],    1
+    jb      .L34
+    
+    mov     ax,     '.'
+    push    ax
+    
+    mov     bx,     offset _app_path
+    push    bx
+    
+    call    _strrchr
+    add     sp,     4
+    
+    mov     bx,     ax
+    mov     byte ptr [bx],      0
+
+.L34:
+
+    mov     bx,     offset _app_path
+    call    _writestr
+    
+    call    _crlf
     jmp     .L5
 
 .L1:
@@ -659,65 +685,6 @@ _handle_backspace:
 
     ret
 
-;******************************************************************************
-; @function         _handler_cd
-;******************************************************************************
-_handler_cd:
-
-    push    ax
-    push    bx
-    push    si
-    
-    mov     ax,     ' '
-    push    ax
-    
-    mov     si,     bx
-    push    si
-    
-    call    _strchr
-    add     sp,     4
-    
-    and     ax,     ax
-    jz      _handler_cd.change
-    
-    mov     bx,     ax
-    mov     byte ptr [bx],      0
-    
-    inc     bx
-
-_handler_cd.skip:
-
-    cmp     byte ptr [bx],      0
-    je      _handler_cd.change
-    
-    cmp     byte ptr [bx],      ' '
-    ja      _handler_cd.error
-    
-    inc     bx
-    jmp     _handler_cd.skip
-
-_handler_cd.change:
-
-    mov     ah,     HEX (3B)
-    mov     dx,     si
-    int     HEX (21)
-    
-    jmp     _handler_cd.done
-
-_handler_cd.error:
-
-    mov     bx,     offset _handler_cd.errmsg
-    call    _writestr
-
-_handler_cd.done:
-
-    pop     si
-    pop     bx
-    pop     ax
-    ret
-
-_handler_cd.errmsg:             db      "cd: too many arguments",   HEX (0D),   HEX (0A),   HEX (00)
-
 ;******************************************************************************
 ; @function         _handler_cls
 ;******************************************************************************
@@ -921,9 +888,16 @@ _scratch:                       db      257     dup (0)
 _app_path:                      db      255     dup (0)
 _param_blk:                     db      16      dup (0)
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Error messages.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+_err_invalid:                   db      "Bad command or file name - ",      HEX (00)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Data area.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+_need_ext:                      dw      HEX (0000)
+
 global      _vec_history
 _vec_history:                   db      6       dup (0)
 
@@ -939,7 +913,10 @@ _history_idx:                   dw      HEX (0000)
 global      _curr_scratch
 _curr_scratch:                  dw      HEX (0000)
 
+global      _curr_path
 _curr_path:                     db      65      dup (0)
+
+global      _curr_drive
 _curr_drive:                    db      HEX (00)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/src/apps/pcomm/type.asm b/src/apps/pcomm/type.asm
index 57197f2..4d504cf 100644
--- a/src/apps/pcomm/type.asm
+++ b/src/apps/pcomm/type.asm
@@ -28,6 +28,16 @@ _handler_type:
     mov     word ptr [bp - 4],      0
     mov     word ptr [bp - 2],      0
     
+    cmp     byte ptr [bx],      0
+    jne     _handler_type.ok
+    
+    mov     bx,     offset _err_invalid
+    call    _writestr
+    
+    jmp     _handler_type.done
+
+_handler_type.ok:
+
     push    bx
     
     call    _strlen
@@ -117,11 +127,52 @@ _handler_type.next:
 
 _handler_type.open:
 
+    push    bx
+    
     mov     ax,     HEX (3D02)
     mov     dx,     bx
     int     HEX (21)
-    jc      _handler_type.cleanup
+    jnc     _handler_type.file_open
+    
+    cmp     ax,     2
+    jne     _handler_type.check3
+    
+    mov     bx,     offset _err_no_file
+    jmp     _handler_type.error
+
+_handler_type.check3:
+
+    cmp     ax,     3
+    jne     _handler_type.unhandled
+    
+    mov     bx,     offset _err_no_dir
+    jmp     _handler_type.error
+
+_handler_type.unhandled:
+
+    pop     bx
+    mov     bx,     offset _err_unhandled
+
+_handler_type.error:
+
+    call    _writestr
+    
+    cmp     ax,     3
+    ja      _handler_type.cleanup
+    
+    cmp     ax,     2
+    jb      _handler_type.cleanup
+    
+    pop     bx
+    
+    call    _writestr
+    call    _crlf
     
+    jmp     _handler_type.cleanup
+
+_handler_type.file_open:
+
+    pop     bx
     mov     bx,     ax
 
 _handler_type.clear_and_read:
@@ -217,3 +268,9 @@ _vec_files:                     db      6       dup (0)
 _cmdline:                       db      256     dup (0)
 _buffer:                        db      256     dup (0)
 
+_err_invalid:                   db      "Invalid number of parameters",     HEX (0D),   HEX (0A),   HEX (00)
+
+_err_no_dir:                    db      "Path not found: ",     HEX (00)
+_err_no_file:                   db      "File not found: ",     HEX (00)
+
+_err_unhandled:                 db      "Unhandled error code",     HEX (0D),   HEX (0A),   HEX (00)
-- 
2.34.1