From b3792e9d57d66e1c694bf851416b809647bf40d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Thu, 30 Jul 2020 17:45:10 +0200 Subject: [PATCH] Kernel 0.94 --- .Floppies/A2OSX.BUILD.po | Bin 33553920 -> 33553920 bytes BIN/SHUTDOWN.S.txt | 2 +- SYS/KERNEL.S.PWDX.txt | 147 ++++++++++++++++++++------------------- 3 files changed, 76 insertions(+), 73 deletions(-) diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 6fa35bc7136685ebd70eb74f64c4b86fb76c09b3..e236f75fb175c878ad4e89872cb2df19e0a7d3a5 100644 GIT binary patch delta 10066 zcmZvh2|!fU8pqF_8Ej;jfngmOmJ#=Dlmi-276>R7DgmxhfjWxGCX0%_LQIZkQkpNW zysXTWqNj$L%qT5ZuBC=%dsdeE+%hUNbAA7F&m9~|>*w5i&v(xG&Ue1=JBtgh-tb)j zn$PGo1I#PW=`u7u%qtVUKG67^S6=h#r|EBA*|$qijnQvQW|x+(EB$8>rkP7P|7f}P`6NpBo*CQsM+N%Hs^n!CcyuakyH%gbu+w~usG6gi5BPZMdFGPS(M zo{%6rXJ|&%?>A+(6lm_&>c1a)x&N zUD4Yrx4pUT>uue)57<7^*|l7={WPrR+?A`ndav$!pT2(1U8}Xbdxt#ewBi3M=Ps$; z%jR${IMvA7wHe#wwL7);;dnp0S+_5-?N9NwWiNy?s+=3IoNmipLv8Ipw>fQFov$~M zWmiwvT{~^taHhF&k*?P3nJcH8$a6Z|YqI|?ZS;K)yH@Cy_+7H(*>;}e#cRyGsy5^L zRvT?;)-_F!&$E5JwK;zct<&vT;i~i6fmSU=X!Gi6G+uPg-T1xo6T7sraj!X>h^?o~ zlGjuapSRKXOnXnY;kR_{5o^e;BRZ?-K1}{`m)0KGX+*=Edo!x!=-t|WJ~6Hp1UfE- zl2o3!Tia*sM_X+Vw=~_bDXF$mTuT0HfRNwPdfYN{-p1eZsfOY3p?yZ_3ZwIC;Sy zZJ>O3kG5~)Uaj5>WtP19Hf@MhC0p9GJ*(F_H|yHF?=!YX?MrO8_VrEQxX$VAZ7IUv zb?cl3`~kmv7kte}0EP7@b#0eUdM&sRzudBxK>IGPrbHMKbK!pC6KXT7pJP2=;yPq1 z)u%w$nil?OL=#K%AlrV~)>Ce4(*{aCn)9;HdE{RS})dS*-*mE_O?l3Yujx>KQ&KyCTiQF+FG_g%*z_z?z=t= zmC9Y~t@x>MS&A!N)54}%&(C(Xd7UqFwGSFl=^E^PzMQ{SxZn&atph6McMoYpdRMyq zyx=Rnj;{+_Z(R#Z*c7!k%yDgwOt(0~Rz&J;>8*Vl4{J4M@zG&j5s6Qi3v4FY=ZH4E z`iWM{f?sUet;UCZwo(ed!lv0dH6#i z`~iKZw7$VzbTS_1^ZEX`?ZQ(0+PqrP{l>Z6r%NDNwtacB`0&88d9J!D*T!NOTEetp zin3dq`|RCc>}vZRL&J+z`~-?0md$b1q4Bw{&EY(JB5R}aI=ljgvs4#BV2*2P(OfR~`b{ZC zhj>xioSg?X>PlSv?^0KuQg(h0raRrXq_rS#GCr(`MD&$r}Vp3kcaNncT5x!L1d!pPcpn6#Fp7aaY{Ir9tcbH-OCAB|UYpw0Su%Sr7O zuf}s)jhDW*tIgVSUaQect7PqO+DnbUYb{=DZtOj^xy4&|MQZfX>AW`UUL@ugKmO{k z8{qX_leGK0mV0zp%=MYNN~{IWxtY3!l9GrQUwc63y!L>XHrETwOOMA|HhEou6~++J9-Ty7PCAkM25-9Q<5UOS-IFeVhC3?h#|&Ejh(tR zh>TLi`r3q8P&c$zimtQmnG@{lf@_FI-C_rCHK>Q|mzNaSt*6>~FVD_UJ;xDCtVUULGbg0-Rd;w*h2u#s z5*a7HXQwA;G0Po|7X5H9zdHYO>su!4uShIc&vLu6TyK_ZV7Wdl*VveAnj(9@XIkv6 zf6w%~{=GE}V3&xd~r4A>CnT;QsG~om@p-h$eQ7)2S*1MXpkIMM;?>r69kI=szY6QwygO{U@ZM ztfHI*9w7DvVa_!BD9A!{{XuBzm`V(vqAa1Fi|N~l;$XHza_#|BRP|wOSKub9Ek|bA z6G-3@_XxzE27X4&pOc1rvU4US*9gBO0bi0%o=8H!`bS#{3)9AqAck-FSgN?2_x$$e zSjIT!RmjioF!{(2&#-pYgdde7j+R@izsI=X#Y#Uh{bNYr51pHhCqc(6tQyls5Y<$tu5KmxA*WAcKo-A2xMLv63e^y$Q#NJthuhgl^#zt|8cw|#2z z>Tl3UBGJT=0G*^vojWj)n+#rRDJ3Cy$R%y2U>`lch*=8qmRGcy0*4qxHIcV`P|Pz- zEHRrTCHZyCoWWOZES?0L>DcGvXNJuK1{mR>HQ!5^k+$lyLnjpV>*ktiZ?9j-1 zw|wldDRg?*d!&A=xTx>FQbYcG5h6w?;!|0Q7~gH`QuRZC2AwQB7J!czVV zxq;oGs^s4%Ra-7nZCR_vDdUE>r#cE96%H|%BxG^N7}z@BmUVvfw)pkxL!Rn2)cc+5 zKYw%o^*-3#Et$aa2LT`u1c6`>0xTdDggKW?u>Rny>1mN`c9?odVaggOZ<%2o?OlO= zl~|h^3#__o`-qvv(^L%%OSqBvEdudg%BP2?xPYfcfOw==(=uV%?kV<^EMllbEuK5E zvwN1CwhCz!rqwS;$W|d_R|p&UK6h&zuH>@S`64b6i2v>!h|k{)#Ck647Dd~}RjOAg zOT>TNOGLm6p1Q{IWD>AiRP|8b@S>_P#k%{l{A`gmsOuV`W5g@+#v*I@__d-EpCct> z@)Sl4ud3#WCzka*yr(Ko(;)!8ykC>V`c1r>I)d#DG3VX>EB7q6+8i5h6DpfJg-SrP zJ6F2(CPACgJCBY8kLWON@wCHM$sQ|~%9fi;h3QUheS8X$ZB z5g_}7;q@P@0rH73R_uPcuEa|F9T2a<2bFl~l=Tdss-wpa?~r`H#M(o1SV;=e+VIaL zIr3`B?lsiQ}YArYszM?}RNLIR2J8KH+drl_-0gKR@dDBm!efAK6t7g6Wc;w(NmeY@09 zT2MudzjHCH(@F$gaC=U`pQ5&hhZrw<&h}r>mwRCxvHmUE4UQm&%lOJ&1WEoXPpC=` z#PRZ)D)I=?-$1{GRU}B#z{z;IM;9iIdW;hZMXR3U;)&7A^L*DuJ&X+{20cHaD(9jI zZ;gE@H%u@qv$C@Ama>RFXL?$4(z0{x8DmGP_prJ+n?!v0C9Kh}J5erSjed*IT>Pjiu%by6VrpLCW=e? z8)WaJ}0o`HEcVR5ZkQtkX2gUS01{?^>qIrBjna zMig|qYkBl`cP+DoQpQ40^AxE%A$61p^OUM8%~n;yLRs#4*HXd7!ow_c{^>=^RmNPQ zah0m^d{yJegvQXjltDnEkG#TnUG&ZeL zEg~{nLq~z}1rJjhR(E{&c?oJ_*Nc2i^e=0Wqw|SzjmUD!PF4R31j-AEel7o-0E4vm(6!N^z(j?&k{f6_`a`E?nV*@*A7ofA^IJvh94*z z;#eTI4;hYPqW@6S(1S;%;UjnWk$|225i6pSG?j}_%Wk>3Bq=0ekC+GLsvvmp&EUCt zFBY`Vv$A?`Y57E{KJszbtiGr;y0cxe%nbzX)*AqXi>J!PKuHuoyRm@Q4;>`^n=E-BtMg| znpkQqKZtSv=-KA6+qLQcv!|APrLde(>c*e+toy&))eSuDSyyCt%UNDKc#!FwT3rdh z;9qW6U;ir-1+Ek<)} za7doe6t7UTp8k?(E9h^<36&yl@WrJCr9^+3$N4-GdPOunIyomjmfDkPc1~8z;4zs* zf0YOBJfgp*Y49&CEG32;>X-+Ua7imCR~iBu7bW?39bP#dd-({BR?e+Y3QN~(wR|H^ zf_2)CJL{XiYVgv!gInK4t6W?K-J$K!oKN;*eq|q_m!FoC!Y6grDjCzAnu)JBZ{3|J ziNS#8c$_8>vyW#9PoYMw`^v#2dg|`WdlJ__^`%LcSU+upJvEvCTLX7{UvtMR_t`*y zye3bsi7qQCsfb>r1Z7x&e1BJvm#nnm9O`m_pTF6?gFu<1M4OvfNQto*092t7o|(Tzwl%dPMLx z8&@UO%e$m-3`R#Y zI)>4)jAkPg&Si8Sqg9N~ zXY?^f|HbIzj6T6=HKPj{tzmQ_qfaurh|yX`8Ka9CUBc*7j4oyLX-1bZTF2-!j6Tcg zaz*D<=D z(MCpJWAt@Kn;3nA(f=~KfzgeOZesLJMw=Pk%;;N;ZejFoMz=EB!l;u`7o*!4-Ogw$ zqwg^KE~D=;`aYvO82y0J4;lT4(VdL$Vstm7dl=oz=sre2X7m$A_cMBc(SwYB%4i#- zhZsG~=x2-`Vf1rGzhLxBM!#b8Yev6e^jk*1WArGa-!u9HqdziwjM1MM{h86@jGkch zB%}Xh^c16~89l@3Sw_z>`U|7y8U2;fc1C|=^mj)8VDti`e=>TJ(Z3kI#OU9QUS{+P zqgNTd#^`lMZ!D$KGgJZ^panYM1-gJcfF5)O-oOBSfDxF0FYp6q;12>oAP54%AOu)I zCrU>b0M>0kyZ05id(U=}C@MW7gzfKo6Ul!0*2QpX%8o+(0^7iL&t?>z~A69xB{+%Yv8)HiQbU*{~u5tj*b8T delta 10485 zcmZvh2|!fU8pqF_nVVOJ8PXbh zmvp`SSH9)#xy9~%`hXy9>2rLTkj65Tva=_QVx9kV`@#kGCu8R#8l4$Oxj;`{c-20nVR|C1Rr^Sg{EK7FYiQbeQ@i{tsicE)D^nDeEVzLk8Tg! z(RarPXZK3Yj&o?)xi?39?H=8^$WTw`-Zk2NeFGnGTJe9CbFa`YT63NA&NkMzYt!D5 z*YDBVM&SIX&AJ1LZGZ5q+gf3qR^{Au^;}!#x>#%b$u_68+4*V{TXOAO{q=L!H_kUV zF4WbCORt`5V$bQU>t)})+K91}Tq|^oy#F@mTK8O_+v|L&s5b5LR_nlR&AO&(@wwK$ zTbpy%#n$U~uW;3iyHTsT1a)3JhssN?cUGP#KfPBQH)y@noZD0wpS#KHe0y)T&bM{# zq3hVKo%u;|J6=A$S8MaXtuyh?*0d_Q?>=pm=K$9V2KN@jzk%{Y`?Qf6yS7>kd^j2+S&84kq#>|^h!glD=*5%szOIs;)rY$-m?5`ZWBvOZ{aoYuI>$P>+|MJ*C|U|xYFgtN_V?lm8>DBtaDoCUBqlC z#*{(Z!&_dXSv(mBbKzF&M{U0^#;=vNz=us0E?AbqvSi2dBz|Gsl1f*7m1|Rx3pHUr zVF=S(nj>2e7P;DfMb~g*;XnTT$M8m_Yg3i$%_3KBQ>ju_vzAU$F~ye*-cdh9zJ632 zApDhtNU<{N&!&@7ysLjUVV}Gb(NW#G5ha@?Y!u z9oFkR=D8H_kpn_%LN~ZJZeKFXRgcOmT$@8^g@x6G=XT8#1kPMt0)ttu#U&MF_v%e6 z#fNx)w>di(Zq(0k5ofw`m3tRwVFILD7qk@SPR4~5VRRw*_&U}ktk+rJJm2g?tu4N& zw7w$b%3O2qmAO=uTYB*u=9?|9zgo-Ix6}&jS!&@opE*lE*FI+uoBgepV=oJy8mD+h zdsP&rn(kIh;{`3wFKRVfVWlknqWxQ3*U@@*bK|dCvs3iYT@}R5x)+#Fqo+>i6us&E zM3b=ZM5C{6fKwcZ%)~#024?wFw$HKzhyR7k z6?qO@925V>W#eVRHdrp6n&;>ly^vY1kWo+}8fakBHKC!rcn&k&5NtyflgP=LnN<~W z{RYfo#txw&zogvJbEIu#7Sl5gZ!De}G#Y-RZ(?7j*W!9m71vgVMa;0yrRF}KUOkmqIUNg z$jnAf=7dqUtb+Wqim9=g6Y7em&Ouk0w>Pyk8;3RNN%ti)lds%7#qQt3kGEv-clXky zdLPTe0_7ia?V&x)WHy`WgH(rNn8Bj4#j3urun@&8D3qI-!cbc|8q2n2PO#BdqSoB4 z(JYN{ijyUb)s@t99fh?yQf*H6+8mGC9DQw$XKjw5F~>N?qY5SBmy)Zib{Xq*Vic=$ z*6uPkVJk3}H8^d%jk|=#4~&|i>8zo$YPN%VTX=tE#i$WXEMyH#U$knEF}RyJ6URZt z^4f#Oz~N#EPW(!l5^JSEN<}#e=*t)%rdTGH!^C$MYnV}4;kef}t)ifyq@aX}71(M_ z*<;MoiI3xG%N}Fz2yre|{RGv9&{B0uZP`V03kJq8@k!XV?=cS7i4OLxJaDh^xyF6Q zJLKl+n#@%Pjs11vP8dWTG~T5XcjIX4L1ThW+=HVv2aUlg;yzR^?Pm@7#raHXWepWo zmCXMmW=r6)PPUCfi|}3g82vBEXPyUfFJTqT985aIlu2McESnD*!>d2x-BVmFs7lGQ zB{2UZon1^Rs6r1hf0@sxtYLWe_(@3)KA)N2QD%#|Wrnk$WB;ftVSaMPXr}){4Ma5S z{UxuP+Dk8(T_xv~Sxnu;uUH)mIW8}qZn2F18XdzbQQC>=AH)1l++J-wGktq&HEBhq z1x)`P3~4FEu#g{Q+hL@kEMRzSkI}G5sZP{>12K z^1J+xVKH5yTmI&2YN1}!rZJD}3@elJhvkM+L4SP*cLur7PvCjVEp_QNYG#aOfjYTI zn=znTRFh&1Gj;3Chi)YdlA7$4oYo!2l+%zwJ&-1S^n#LUMrUMYrjN%M>pj)_<5_@F z_&;2$QS)`_-^@`BRrg38LGvQp+3&P!8sYI@OI)qY@+ z_dvtG5!___#PONqvwZr;EMWScU9kx1Ex&lgXvyk>9w{jW>+L>d6n$Tq{Cfc$xGRE6FQ_BF{4j3p4pBhcoHuR+`&%s9}h8{uEAfaJu0iGJs zXra8=VT)x_tk6(3JC8|m7%)mGgL%(`h6=Vgnf#*ujV>yk%9jq)-`VAzB>`pUw!X=+unUIcvo6xF34IoEvDgR7(@opiksM7blTxlTjVgw#S14Qo52j za`-GXJ;Z0>$l|ifg3b!1hq<}*h&p9+xv?Qnh;n3Rjd>txd@_@!s4FF(YOrCVA>l3d zp~>$yefbfQ_0 z5;?uh65Op6bAv;ANP|?jXo3&q z3;99*kO>Na0wFUL1O+=6O|X3DC5eH^`n}Ce&M314$%bz#J+wirPJVW}WoBccMW@5; zo2`!L908l4e5RkP1|)$=PpU)w6dxYnY8utftfM?L=BWedPzP|nnsXK?V>POvxS*;) zU3`HHZ^p`fP1aC^Dyu1Fh_#qQ9(6QGlrQ}j@nz+fn~l%#;Hn$Z#VAY385_1G6x}(< z(}=EAuPkmRE#>ZcExUCIFXtnnE@7V)Xr>y|>E`l%?&k7c>28a<4bQ7{LwOj zTkY=aV9Hp24ZNtE`}%*Y4#%>9HM{`LVQlbZ&k~E&{RQrC=!X=7k*K&M?4^WR+x?G% zgu(Yq;%gWLpVx0&M}C{Ar!@AR-C?FT;Rr3A1h=JQXm$_J+mwivXZ032uT<|ZsR>V#3RPV;I!0nx>kz#Ojne2cCEt6Pg+WG&U;P0xlM0tYmf-y~! zAJO^%h-Ts;1h)5KN+G?3Pn1j|*Oys5G;M;sY`P_=m)8+K-pV{gI{uV0 z>SyHg93~#cNyst9(&V3lEuYWl?$-Td@TN4}Z>s({pH_JCczsQWv(@b=)1Oe|5W|AM z6&lJAKfJ+YCue7m$w;?lD$io(_dU;$oux40^*^ZP@EY+WoCrH9KU8iB@eohpB=j^* z3wo~$Wa1fI@cJ)rU+qKqS$f4Z%kPz2?(jYDehW2+|HN-zDz}JZ#0w}b{fw8;LiF|` zP7IgG9$N)vrTx-5mHd9?)ws1E7JB z4H^VRLorY+6bB84hCoB1JE3?e0ZN4Kg6?)+$QkCZb&9#et_mx?J;mB7!)m7tZ=7<^ zjbwbE)`zPv)R^ZzG+0XR>yP$C5$gMGPxtrRUh4bpU>4Sgzu)#%-)|$;_gg#`qcmL~ z0$5mo#jMW&Zst4C{r#5SF7!6lkHO3wEhpvM1BDn~a~yZTJOnT6>V8Xo4lbZM8a7lh z%Zle_{)y^qy7K0nk~}gao0;y`{PTN*G>jK840rF?J!;2>vM@VuK8bs*AE9<^2s4bN z4-LvQDw>6jQp_Gq=4QU5-8(jF48CNfs2v;1Ok*^*JO2^jv8o^Uy8Dr)`Vr5 ztA1pte%#3nnKwUXu&{B8*&|up%s<=Rk8GNwOg~=r1aF8BXw=87+Z2~3a8HaARZo;J zF`koDS7OlF$x0&;530W8sJl;Xh8$Oh+lF%Yk1eyv zHl&+afjj0(Wwyx?`S#FY=`q#g$5oGKbB}w>k(cG$t$pUIjm9(a36zzdR6Tpj&9lI# z<+gl#fL}F@j#n3Xhaq9!g>z*)P)2 zYXy^@;l6q;*4*;)@T^AJ1M-~)(=S0iv^$JvKK0a4e(B9kh{w_{AD5{^vs@V(b%8DI z+SZz$!}#7lb@eN|dSZOu-Ff}0t{aBNX?9KE;ArO2#71S?lGE`a0e^k6CFA#X=jN!8 zJW5K78fVyb)vMj2sBh@1!t+1qAU4iO(o9;TLH5pLh8OsEKV_#Yy$FNKVkWIsf7kKI z7+&I$;YREEO~cDPKK$YaR9B2xZbXSVOjSdpTM@%6?xszAnDnp1G5#GTbdyHT3p55- zOK7Z06DQe_M%WQaRp>J6{m}w%i^`>{Yt@DsIIHdu>w&s`GVF@5F7s1@&>c z-=Qbxb}Gu<@o1sZq<15)of_raOhR;_i^seg8uFk>bJBYM`QYO8}UDxmKTzky) zJ{{trsH9N(*om)l<_~4#e0!jA5086K+V%wOmFLa3`v(T@b1%UE@QEVw_p9vYID@vq zHY$len^KzhGIpI(^7i+_Y0_jzL`7LyRm4K&!)ma%++Vf_h4`qqdObm}@K2G&posaD zQp0@ZT-hEf_{mSp_8xiuTIDl`#iYeznP^k~qPp0Yl+9~RjE-Q&0JT+RY54|H&A9z& zWkE${Vhrw^-S6vz)U#;TE12qBRc;R#EbL<|vDxFZVxrSCnRJ;J|7<2*q2F?*zovE!`{?Tke+d4(E+;*TPxhf5*Ypcd*huJhYwPJM_Gzo}PTd)ADFsZC~YsSNt)f3?8w`qZ0-uMO&kz zo#neyL_zkPHZt7#ulG_?H5y#|_WhJBZQYT#6+%VO z3}_})43$8oP#IJX&4MbRN~j8Y6nYGL9GVTyf#yO_KuvpR1FeBxfL?^wLhGQH zp!Lwp&<1ED)Cj!-y$Ur!uR*UvZ$O)%H=(znW@t0?HnatL2igj4gPf2H+79i2TA-cK zyU;G^J!m)dKJ)?fA+!hD3+;pUL#@yO=p*Q3=pb|mIt+aRwLwRqPodACqtG$vbLb1` zOXw@;IP^7i0{RB}7WxkQ9{K_L5jqK-f=)wcp#MT=p>xoA=qKm`^fPo3x&*aDzd*l2 zzd^r4e?Wgie?fmkm!T`rRp=UY9l8N^JbPrYunZz-2wH-UAQJ8%bR$TF?gS5lp5RF^ z5R3#bf;Yj3;7jl$_!CTo074+aOb8+b6D))fLMS1O5KgcXdJrNAJqf)Cy$O8?eF>3- zeuOAOf5HI5K!S}hh!9PPA;c2m2uciw(9uxBorHKo0wIxb7vXNgFv4)cJp?-;i7l2|0v^ z2oDn;A>5G2 zbA*+Ie-WN1tRl#S)r1DZzX|^#tRcKWc#*J{u#WH&VLjnx!Un=dLL=c7!mETP!fS-r z32zWK5#A)cMQA2$CcI79LU@O;m9UNAB)ACM2|EZagq?(U3A+gI5q1;aCwxHokg$ia zm#~kppU_G;K=_F8G2tNL5aBT46G9u|2;o!0XN04KV}#EMUl6_|d__1;_?mEn@D1Tx z!gqx42|o~iB%CCiBAh0iA^ewcmT-=6p70al0^w)EMZzUQJK-0?uY}(SzZ3o-{7LwW a@HgQy;R@j@;TqvO;fC-YvY#;M!2bY0UgmlL diff --git a/BIN/SHUTDOWN.S.txt b/BIN/SHUTDOWN.S.txt index a0d2b769..7aab914a 100644 --- a/BIN/SHUTDOWN.S.txt +++ b/BIN/SHUTDOWN.S.txt @@ -79,7 +79,7 @@ CS.RUN.PS ldy #S.PS.PID lda (ZPPtr1),y - beq .7 + beq .7 don't kill PS0 cmp #1 beq .7 don't kill INITD diff --git a/SYS/KERNEL.S.PWDX.txt b/SYS/KERNEL.S.PWDX.txt index ff2bc9dc..1e2f2d61 100644 --- a/SYS/KERNEL.S.PWDX.txt +++ b/SYS/KERNEL.S.PWDX.txt @@ -20,9 +20,9 @@ PWDX.GetPWUID lda PWD.hUsrDB ldy #0 jsr PWD.NextString skip USERNAME - + jsr PWD.NextString skip PASSWORD - + jsr PWD.GetByte get UID cmp ZPPtr1+1 beq PWD.GetPW.8 @@ -39,7 +39,7 @@ PWD.GetPW.8 ldx FORPNT+1 PWD.GetPW.9 lda #E.IPWDDB .HS 2C BIT ABS - + PWD.GetPW.99 lda #E.IUSR sec PWD.GetPW.RTS rts @@ -71,7 +71,7 @@ PWDX.GetPWName lda PWD.hUsrDB .4 lda (ZPPtr3),y cmp #':' bne .3 - + ldx FORPNT+1 beq .8 @@ -101,32 +101,32 @@ PWDX.PutPW lda PWD.hUsrDB >STYA ZPPtr3 stx PWD.hUsrDB - + lda #0 sta (ZPPtr3) - + jsr PWD.AppendRecord - + lda PWD.hGrpDB beq .2 - + jsr K.freemem - + .2 >LDYAI PWDX.GROUP.Size >STYA PWD.GrpDBSize jsr K.getmem bcs .9 - + >STYA ZPPtr3 stx PWD.hGrpDB - + ldy #PWD.GrpDBSize-1 - + .3 lda PWDX.GROUP,y sta (ZPPtr3),y dey bpl .3 - + clc .9 rts *-------------------------------------- @@ -160,14 +160,14 @@ PWDX.PutPW.1 jsr K.GetmemPtr adc PWD.UsrDBSize sta PWD.UsrDBSize tay - + lda #0 adc PWD.UsrDBSize+1 sta PWD.UsrDBSize+1 - + jsr K.Getmem bcs .99 - + >STYA ZPPtr3 lda PWD.hUsrDB @@ -185,23 +185,26 @@ PWDX.PutPW.1 jsr K.GetmemPtr inc ZPPtr4 inc ZPPtr3 bra .3 - + .4 lda PWD.hUsrDB stx PWD.hUsrDB jsr K.Freemem - + lda PWD.hUsrDB jsr K.GetMemPtr >STYA ZPPtr3 - + jsr PWD.AppendRecord - + + lda #0 + jsr PWD.StoreChar + clc rts .9 lda #E.IPWDDB sec -.99 rts +.99 rts *-------------------------------------- PWDX.GetGRGID lda PWD.hGrpDB beq PWD.GetGR.9 @@ -214,7 +217,7 @@ PWDX.GetGRGID lda PWD.hGrpDB ldy #0 jsr PWD.NextString skip USERNAME - + jsr PWD.GetByte get UID cmp ZPPtr1+1 beq PWD.GetGR.8 @@ -231,7 +234,7 @@ PWD.GetGR.8 ldx FORPNT+1 PWD.GetGR.9 lda #E.IPWDDB .HS 2C BIT ABS - + PWD.GetGR.99 lda #E.IUSR sec PWD.GetGR.RTS rts @@ -263,7 +266,7 @@ PWDX.GetGRName lda PWD.hGrpDB .4 lda (ZPPtr3),y cmp #':' bne .3 - + ldx FORPNT+1 beq .8 @@ -274,7 +277,7 @@ PWDX.GetGRName lda PWD.hGrpDB *-------------------------------------- PWDX.PutGR lda PWD.hGrpDB beq PWD.GetGR.9 - + jsr K.GetmemPtr >STYA ZPPtr3 @@ -286,8 +289,8 @@ PWDX.PutGR lda PWD.hGrpDB PWDX.OpenSession lda PWD.hUsrDB beq .1 - - lda TXTPTR+1 + + lda TXTPTR+1 bne .3 .1 >LDYAI PWDX.ROOT.Size @@ -295,9 +298,9 @@ PWDX.OpenSession bcs .9 >STYA ZPPtr1 - + ldy #PWDX.ROOT.Size-1 - + .2 lda PWDX.ROOT,y sta (ZPPtr1),y dey @@ -311,21 +314,21 @@ PWDX.OpenSession bcs .9 tya Y = Name length +1 - + * clc adc ZPPtr3 sta ZPPtr4 - + lda ZPPtr3+1 adc #0 sta ZPPtr4+1 - + ldy #31 .5 jsr SHARED.FORPNT.getY cmp (ZPPtr4),y Check MD5 bne .9 - + dey bpl .5 @@ -335,14 +338,14 @@ PWDX.OpenSession >STYA ZPPtr2 stx .8+1 - + jsr PWD.Record2Session - + .8 lda #$ff SELF MODIFIED clc rts - + sec .9 rts *-------------------------------------- @@ -387,7 +390,7 @@ PWD.GetUID lda PWD.hUsrDB PWD.DeleteRecord jsr PWD.FindRecord bcs .9 - + .1 iny lda (ZPPtr3),y cmp #C.CR @@ -415,15 +418,15 @@ PWD.DeleteRecord sta PWD.UsrDBSize bcs .8 - dec PWD.UsrDBSize+1 + dec PWD.UsrDBSize+1 .8 clc - + .9 rts *-------------------------------------- PWD.FindRecord lda PWD.hUsrDB jsr K.GetmemPtr - + >STYA ZPPtr3 .2 lda (ZPPtr3) @@ -458,19 +461,19 @@ PWD.FindRecord lda PWD.hUsrDB *-------------------------------------- PWD.Record2Session ldy #0 - + jsr PWD.NextString skip USERNAME jsr PWD.NextString skip PASSWORD jsr PWD.GetByte get UID sta ZPPtr1 - + iny - + jsr PWD.GetByte get GID sta ZPPtr1+1 - + iny - + lda #0 ldx ZPPtr1 bne .1 @@ -479,32 +482,32 @@ PWD.Record2Session .1 ldx ZPPtr1+1 bne .2 - + ora #S.SESSION.P.SYSADMIN - + .2 jsr SHARED.PutCharPtr2 - + lda ZPPtr1 jsr SHARED.PutCharPtr2 UID lda ZPPtr1+1 jsr SHARED.PutCharPtr2 GID - + phy - + ldy #$ff .3 iny lda (ZPPtr3),y cmp #':' beq .4 - + jsr SHARED.PutCharPtr2 bra .3 - -.4 lda #0 + +.4 lda #0 jsr SHARED.PutCharPtr2 - + ply .5 lda (ZPPtr3),y @@ -513,14 +516,14 @@ PWD.Record2Session cmp #':' bne .6 - + lda #0 .6 jsr SHARED.PutCharPtr2 iny bra .5 - -.8 lda #0 + +.8 lda #0 jmp SHARED.PutCharPtr2 *-------------------------------------- PWD.Record2PW ldy #0 @@ -616,14 +619,14 @@ PWD.Record2GR ldy #0 iny cmp #':' beq .2 - + jsr SHARED.FORPNT.PutNext inx bra .1 - + .2 lda #0 jsr SHARED.FORPNT.PutNext - + jsr PWD.GetByte UID jsr SHARED.FORPNT.PutNext @@ -632,7 +635,7 @@ PWD.Record2GR ldy #0 *-------------------------------------- PWD.NextString lda (ZPPtr3),y beq .8 - + iny cmp #':' bne PWD.NextString @@ -640,11 +643,11 @@ PWD.NextString lda (ZPPtr3),y *-------------------------------------- PWD.NextLine lda (ZPPtr3),y beq .8 - + iny cmp #C.CR bne PWD.NextLine - + tya clc adc ZPPtr3 @@ -690,7 +693,7 @@ PWD.GetByte stz .8+1 PWD.AppendRecord .1 lda (ZPPtr3) beq .8 - + inc ZPPtr3 bne .1 inc ZPPtr3+1 @@ -702,14 +705,14 @@ PWD.AppendRecord PWD.GetRecordLen clc ldx #0 - ldy #S.PW.NAME-1 + ldy #S.PW.NAME jsr PWD.StoreString lda #':' jsr PWD.StoreChar - ldy #S.PW.PASSWD-1 + ldy #S.PW.PASSWD - jsr PWD.StoreString + jsr PWD.StoreString lda #':' jsr PWD.StoreChar @@ -720,26 +723,26 @@ PWD.GetRecordLen lda #':' jsr PWD.StoreChar - + ldy #S.PW.GID jsr SHARED.TXTPTR.GetY jsr PWD.StoreByte lda #':' jsr PWD.StoreChar - ldy #S.PW.GECOS-1 + ldy #S.PW.GECOS jsr PWD.StoreString lda #':' jsr PWD.StoreChar - ldy #S.PW.DIR-1 + ldy #S.PW.DIR jsr PWD.StoreString lda #':' jsr PWD.StoreChar - ldy #S.PW.SHELL-1 + ldy #S.PW.SHELL jsr PWD.StoreString lda #C.CR @@ -762,7 +765,7 @@ PWD.StoreByte php plp ldy #0 - + .1 lda A2osX.NumStrBuf,y beq PWD.GetRecordLen.RTS iny