From a650cb83dabee84695da2f3304156120973e03b8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Sat, 31 Oct 2020 11:33:29 +0100 Subject: [PATCH] Kernel 0.94 --- .Floppies/A2OSX.BUILD.po | Bin 33553920 -> 33553920 bytes SYS/KERNEL.S.FS.txt | 9 ++++++--- SYS/KERNEL.S.TIMEX.txt | 35 ++++++++++++++++++++++++++++------- 3 files changed, 34 insertions(+), 10 deletions(-) diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 671af03d7576b8207a58bc58162a4f98f9dbf0a3..c699dfcef9a18031abd6f966f947bd78c734f44d 100644 GIT binary patch delta 8153 zcmZXY30zcF`^V2^m~mts6lK_Nf(vRRiwkNC2o@Fy3Av@kA_A$PfF-uTlsuY+OZIxD zG~?I?}zW)d(L^z^E~G{&snY&f8Oz~ z0G8jht}jFcy07?4+Yc{BcWZ>Mmzxl3O*Y&*YKX{ZQ~P>&vA-`eQI@i%UHVf{#nLWo zw+e4Gk6$Ht9_(L#z_q&E(5|Q1lMe<*VKk2 zPYA9(UhjgoW!iSZu{E=%sa~_dwNeYg-%4Ck^r^x14?!$d8e8fTB^aghQWw93H$rkQ zUfQ6mA70N`L;b<}!iKg6#%^pZXiDAm$0py+BR5+%->{0?rfeJaNy#UTpM3g>7e8lP zvi;lbfjdU;Sh{1?4(r0xr7q2b7aI<3ACh?V@F88_FXp*R88>pJuU0BU?42glp34 zts2p5)FykEk2kEV7q4x~e{Gc1*s2N8B)@i1`l3~n2AQDUni1Nwn-+;@rRR2QhJ^ZV zwsc7n6E`RC*qm7tP|s=|BD-J-T##3pU&FRvmp1R##KsC1#iQy*Yunx#_S>y-4za!h zrFzzecP-v3ey%arS1iw4H={k)q7koe7N=RnR4H_iroV9jdT+^-2h*_g6|1=H;+DJ! zZ@fxbdo=z+qx8xi&6x5=>+-xSA2wRAd=qQ`RqbEHjN9L~&dFPz*S0D`WB;kuVDHGR z@!pbG{kC#f!6t!?`aKOq8cZX0S5w^z2lwqCZ`c4hGxSG%Keqjmeptp$B* z`{Us)O%2xmruA0S2CJ#wYHG0Vx8JPQ$Oe{LWdlnU190Rc>zcQl3-@aLUHo=7i}*X+ z{JG%Jiu;-?uGEo3lUyTx_+O3bNtCZ|acv)Azpd8tHV7x5ZEniEYR{;NMuOY7iGH>X z_3WLjt5w-o+w4Ms*zKC7R$h!tGOyONcU{GDs8LiC(YicNr~xdt7qaun=!LKKQ^>Gm{TpM-ZImSC8cIz^HnlIB{?!U#6)V z$;ExrF1x0uP#~SKYvP4{lJT%6!TW487El|4EN)@^__ei>t$RjHmtQGxODUvF?b*#h{q0WU{tOp{<^+Jf@k}M`wd@Si7eqw0(pl zFv2^jNoR9&GtRaem9{leTr0TCxW<+U4dpyEY)U@T3jfT8|5s2}|DIzM!&_ z)&*z-V;$b>0?_xEZCxN9$8E;K6Sipq(*iq=*zDSlqc%tXfhTN{ZXL(u;&Iy~N1(X5 z1yu%D1ji5IzZ_scb~&)ZUOx-Dal+<#(q_;i$(CLGIAC31?H#0m;&S6D+m?_dV{X9m z5WTpqrJq{P4O||A((n1=eCg2>nxOJ)EyjwQ;;xouS2F8a@~#%OvpU|-1MGb^9kyKx zw1+C=UaX9{(^0)h7sYEW6&*;`nX!u5%`FXbT2F?{^W{w0Z@;w|PjOBQ%r~8u*Fg~^ zzuK`ZUaffMoinzov$m!~HfU0Id-!7M*LL8L&Hf`sg+ieE@Kqn4jc064XKkAf*)r=3 z6;&3ETu4GTT7- zaCq{?_B(bj#rAd8j4@MviqEx(h0@`Zn(i}B*{Y!Lv~5d}yp%#JLo++`1FM2c+p^CNT zLBG#8X8t~3mX(`qcJGdVxKTTkSna1I)Uu@f^NG#xpVBPsBE&WK`bN{$MYz&D@PcNq zP6;3mU^^S^)YSl)v;H}d2@rEET zE30PuZLE4)ZW#;wL=o<0;P-@Eb&zdVWCLuF_1>_xJy}XRxyj(C9RoYi1gU)^emD^?2$VK4^Js7EX^M@Evt}A!ZS@WnQ>!nDZyM&V$Ltf%Qt5il$wjCn`g;=Bypm_-&@}fjU~k_ zct5Mo&YdGU#v6Ke_c*|+b7svphegG(;Dcz$DUloebYH^To`+VREb?{fZI|5(A8{D* zEX^`MZAvJbHG6Jp?u5knNv5a)7}^mC_c#il=4DY{ZmBstD`$pTb~O0dJzJvZ31_gv zqn=ifuds*12k7IayT-OPKABZ!4c z{34m}|5$ZyQ8B_(Sz45rH#66qz#^_l`cp-HJ>9Q%&QRZLimz@7xrL>3i_2KVb;)J2 zp`XW1r$jUh>rm#fXG%dK(|@nb9@9J2k%s@Ev;`#<%`Ij77=qvOX#GK1#6MkIzoE104rc>$>62AwLdP8{0xLUqn;XX}Uo(agQ8P@P?v zYc@qQA9u7NGo6!cW=0RR<<9wM{;^(Og0x_YK`b{2)w5@2u^v7`b=I^TdCp>n4#5hT zW*)}eyQ$j3@Y)@Ea&pY380O;(f3qPvtTH7v5n^sV1yhV9N5SAHAPsYz=HaUGLDxO~ zoeHCnW$pn`Ib8M|fo8s}r5yKu6OtF%(-`tJ3 z$Ky_0u?S;ar!n_IyBDE z(_<3TC#j(wI!3B}!7${pr_`eF(}Ftag!@i_WT(y;)?=)ity$)Nlhe{li=!e2ma(8z zL5efZ4k%BPhg-(npMhhuXUY>8ny!XAEPZrBI$U`(J|V&UsM%R!UKw&CWSLQmJcM43rU%)q-879dU$ShgmfEYG%va~1DFrw!awWG377RWI% z=U{`TYy)NcPFf5$Y?)i8si;=k($VpKm zZv*-n^728N%|w;DGw2JUstgOgNFF#2@6L3PBEKziEuXE%O`XJOc@n+nI3<-Wjd>T# z5@lv(mSdQAi5kE#brbU`Rr{;0n3*1P1)O=EDPx)>AJaZBsmao*#ph*J%Vak>cVf`5 z_dMy%_x;1m%LL_o$#5PZS;aUZ+~+%EgMHu?bi}#r^{T2s-6}m_b4CMu7}LM5hS^Yl zp9m~?R;WUQWFdF695k$2WXhZB5ENDA5Y#VFqwZCCUjy?db!)mChlS1&C<9=gi|*gy z-g1UNig~{+>zIExdOq*muLQQ-t2#y9mSU2P%C6(H{C?#S^M6;``GLQ&e1+=K-PvM2 z{v`|En^k#InD@&2d$aD+gPkzNzN;Rbq@_ezBxjj8s?7{8TZ39Ayjkk<>G^l;U zhDI{KjddUTMclbQamL{`EN4O)^V+0pQNqExZ~p%d zSX9IME$Zg!wpHkF9#d!@!F;Sj|2HOKr@MRId8Fqy)WoAkUK-|pktWmd;Ssnb3;h=q zOgHzFuVu*VOCO)25W< zF{ZTmaq%hX$T;J5^`-`C+>uI6i6y0qc=sE3@5yM$h|hqi9v4C7tn9#TRNlm5m=>2n z7UqyFZUKSPY`1_eE`c8^-D$8J}G`83%eyt_j0+-B%^0wkkS8V z2;zqHPeCcjJ>cs)j{sM#GR52w@Q1*=1?2AN=EFil*pPl*yMFff#S72M|4H8b@_~St z1VepK_Eo<=9+tl^PMG>agpYgkUk3v;k7<>Ykb4CFA&^%fc?EH=;Mafdla`uh9?W_k zW%9@|K+~jn)3}UulG9XwOub|JAD5Q6h8X>E<}D}tdHq^c!8!CkcSM?uIXY59BJJ*2o$pDr#BeJ3?( zL&N}F{gurFzRTH=P*}?RuQFT@XOb?2bfKgZN%s)xdXX-Sbm64yO}aj$>r1+Rq>CV3 zf6@&g-9XYkOgaCS45a29s_G>4uVS80lh3H=J}MNH>ynkC5(B(mh7H z$Ln-)#o8FAA0@1u7xzYFNQ$x{P(fZ{QE@Ilv8Le*t2Eb~TZ|7srcZUQ)--i(#6Bav zH!p6OFitu!FYX~BUFw(@7t%FDZH#|b>QNRKCybZIm&HX06Qqi=xIw~1$x;><-gS~H zlQfy;$I<+Fnm?*;euA4J>FS+)i&x{Kn@bkm-1OGXD!w4WArK|hQKHGXUoZ`qaE6nz zWc6P-eK~OV8u1(PMB<}~KSBIS;z`8E5PypJ)5MdBrw|`YJe7DF@n?vSBc4t?gZQ(= z#}l7Gd?N8l#3vJfj`$SfQ;9!M`~~8f#IuNJ6VD+&jd(8c>BRGh=Myg={vz=i#Agzp zMZA!B5%Jl?=MXO@UP8Q-_*~*I5r3KZJmO`<=M#U0_^ZTUBmO$^a^e-l&BWgz{wDDS z#4Cvt@rA?}5r2#LV&ZQTe}{M#@g>BU5?@AqIq`RiuOR*&@qZCtNn9enig-2g_lbW% zd^Pbk#6KjymUs>Ee-p1I{t@wyiLWDGM|?f;4aDn-HxS=Qypebl@lC`x6SolGLVPQ6 zEAef_KOxSEHxsuJ-%fl7@fPBr65mPuGvd35w-Vn?d=K&e5Z_DubK?IczK?ht@pj_- ziGM--0P%ywza)N$xSjZ6;zx)dC4P+fapEV4pCo>Y_-W#2h@T~Xj`(@vUlISB_&3DA zC4PbUMdFu;e@FZ>@&6IOLi{T6Ys9Y;zd`&a@ebnO6L%2*f%uQaeoAP54%AOwU05j+HXfiMsbdV@ZoFX#s%Kz}d*3wl0)~QNAQlVJf>e+O zo&n=PI>-Reg7IJim2FK1xy9cgBL(1$O73Q2TTLGU^>VH`Je#22xfqpU=}C@ zMPN3V1ByWjCcL zU?XS*O<)t)3@l&^*b1y*8~6lp&f-k`#UO#Xn{$&nuS93 zJd#>GN}gjP;3zXnC6*Ov%UG$om4*2FPnQaM7 z%^7BBIcb(aVuP%YadaA*+sy1bX`Kure_1I>Q)CV^KLBx=G_6t+Noy)4{s|R<1^t(H z$<33@gzPqdWG>s?yPJ^fZxppn-Ft1Xv^~7Nx&6F_+n>5W>OjGP?FaT8`18PrwxdD^Xu%KSJimltZ(@fKP*lEmJ+R(%5Jfrs7U0&a{)2utYxA>_j`gRYi zkwKu!K+pBCnGiMR2pcOqzITJ}I9+yx9UmlZ?{G=hjcZTc-EL^sm`RI6N51LMt}Ci5 zZYBrM(ZfgBn3x~hg*G&8xAY!eX1~=F=g^sJ;m%BY;aUb)wYQs9=Gw-hoy+=SI#}Jg zc3pOdZYmx74m(<cjneFtsci5Dg?Uu%(E3a&~ zT)7xy|3%E-OjHM-u&gL*Eb84F#@c`C;p_v3W@Tql(-W2r+%Ma=LH$r@n0&Wxb;rOq zOWQU}U!47h;mPWbXFA^OxYgm^*}}e6W0|tnvg0|+G47^tmvVQBFzoMqT%%MOZ>sgp75ddrlWzp}2k{5>m_iUnb*_vNge0rxeQ1&}I~1b5W30ICu0 zYQuzLp&)D!wgIw29h+;MC2js&PRRBmB>W6`)Aun2XJYjwMD65wEw^?=Y|G4!%#v#*Lt+iKLc?X-?K=;1S>Sw_H zwN7bYto@eww5u0_Q;%EQ3|H;h%~7zV?fZ2uwq0iOyzy#%{?%SPqtOlhuA>ECy-kLz zX7Ykm_p6l#f51L4xx>~dg(+7VbWztaz1a)%D|CyxI;v8~cj2##ZhTiqNv%@HbafOq zN7YMv8g2Em9-RxV{eVqN_|=H(PsI1?B8)kk3E*=40(mJx&ws>}dD3wnhRC-3TpRM62wq_Ms>%_R4jgq>eqS zn{6#t8B#yF27}q9r4V3Vc@k5mSsq^+tY>~8Fn@c&A0r_>=$@vz@MTP>!G-K`^7 zP#x22Cas^c63TtfE*g2;3cguX01=rt(=EDX2(w9GHwM98L zb1V!h%*Nmq&a1A#`8fLin{oGIR^7Ym!YdCbVWR;;9e3cWxAvCetZw4BcS2$NVHwBe zUfpUMaFWffiR;#_?bf}}-PU7^`Bs&3xBeYl+Y#HhYPfpW)=;%m)vDGl?cV-@ZD*Z~ zw+HO$!Q@`MOcPV~fep4b-)}nRZF=J1y1F`kr$(lYaVU3cAn#GzPA&YrXH%8EZ(F2U zq#bz2W|s}TYjcbq^S&*@b>Jx8zGusIXmzi4!y`@#gX0gwe_3Py{Ia&zZZ3rd^1jXE z0~;rUMb^;&x@M=g?cHK#vA^$W>?8Lcv0c*IgM@x>6#9Ixp$Z+}uRGgaI{@poBu1$A z)$ZN6tn;AB)woiQ*>7%yU!AcVs&DJV_n;giKR(nDFFu&{{4rboaa-GA82{`iPL9(#`2+K$`y9<~|GWkOLMEZ!u;!hZf=hw8V`NvGN2%!hRT zX*MS9ux)#s zeZ*!E(gu2A!jpBEx{D2Y@SrhppqD=O1?xLOsI4*JPPNK#ry651$!1p${G%By^Lf(p zCeO5xKp*Sj$B)~Ji@5D9bDI{6#+D8tpCWLr)Nr;cQ^^z!-G)=R9!%3Wq1 zGOph-w{L_aq)+GYtiO3q_g>d^RwA(u9bgAoZV$Wf{N?lYZQ{=xZ0nD#%F4M))r{n3 zHw|}_p5$8Y?jwC;9hzp>&QEbJTHU2mE5}J4jPlAA-Q>?}&&L=t=Oq%NvflNQGOkuG z0MfWKckkNI^bR5RpZFacbyKgm21=pi2~r2ky}o?s3SB`!gSSDrI^G(KB|a>5cyY;B z?-qA>?%8l-(}o*+pS@AfXG*&=WfPXb0nXEPee6LQAO~Ck1uz7_=Wc*I-~o7AV-G4% zHqiXli<4jE+|65Na!M)Ue3ps?jRaUewK;}&vf2!PD67m*3lE)2mslv3#x9OgFT!ed%v%L`{?8snt&i`G~w7l5J zuQWbhXi79z5yesHa(M-v`HgItykuns@$1`iy4*)H;+Rk*{VIoZNjVO~Q)x8K)F+ge zE?-qyI4?0iS05P;t@{vK=lc+`r!w{!P;I*LZ7d#mWH^Ef&EGLIX=T%cDV!u=~} zL=*|WI5-w^-z8;4@il3xG_E0vZ^Rac^baP>0+P#DRS@4x&a7E_Tn75&j5)JO$hX4a z_!nb@;2}SZlfV0atoHM2!|p|3dooT>50d<@QGs?eGJ8kyf^6X z5zd-oU?d~&Rpk~1k8!AC$gpt?ZMaabRukXxV&{ULZvejhL_2|@UfG;qKrT^C6l+t& zFv8}km?RGJgjm{O;Ko1vka+7enGyHYg!}f?DbAv!iSJZKSf@r)XkKP!WkqDzm?{zw z$Iv*{a*aP|V#lCuGI2Sxr57V#JLrWbtC6$Y#XtW{&vcxXxwtQM3~G;dxLoe1hC^ z;8%D*h+8gB(n@?46?wR#VbULkN4Wgp(R?VX3f{d1|C}Bg@pZXWzEJ2GpU?66UVQ#g zKHr`FuY<-@i3ql}s0}SP>%0Vd(QKR*aBD=hEf7RZ&bH_4*^=d-zB;w(e04 z)HtUj3a3N)n6oNzA5t2yiYk*ZU(rNq6vsAL+=#sLg$6iNVeEYi82EtPn|!_SA@f=! zPW!!5yb8rq#6rWRkz~YTx?-C;q^1a#S9uAa?cDv16&0``ik*WC@AeYN2;VQyrD6f% zcIUCoIh?RB5k-kOPh9DJA<#09GBIc@2Dz2vsKZMLi($Fg1)-=K2vn>Pr_HnCz67FN zDQ-7|<4}2j4~WMq=ld<}T8}&DFOn$NU>Vheqvut1e<4tpTlKwA*C$|=XoXF~>#6$- zhcNZi%;>FKvN)d_uNtvY;`0P$Y?_e?O$KI{HIPswRn z#H|iZFg>YJH$QC^%Z8cDW%L5OT1oXMn98lnqo>QEUR1vE7h-=n(S)d5&vdJ zuUoR%6pBYR;X^qtA_Br9!pM*oW;72c95U`T+HF@yx4xo|n(#Uln6au7N>uKI5)-l@ zHWj}|-mQ3>0JrJomEt4Cf5cV<@1h|m)WenL!39)TR!&0RpmR>BgXMeRQ=x04PoGc+ zF?;DNC)C>DcH#2?pS&_C2|sqG(8x&<&>}^L*gefYdj5o39c*zH7(Q%$9ThOF)cMkpBXWR*{w%56dO!CZ_pErQsSP zYB>BXh40+-Ea%BRtI}AR8=pgbZWDNhclz1cS)1UDzm7iOruj-HOmM5aMrxIDn%@|i z@cHQ)swq4)lp_(t$oSA9L*D+g-#%9g6J%Zeq2_Uh_}NL>rg22^nRxP3e?Hi- z7xI@>ni4W*C+VkWr6dyXlQ0&gORy_Kv!~|}*(tJ~j50X*4<9y&GEbJ1{ zfEiGBLRlqIUm2R;ikT?%;i8(O6+DtKiY(}Dd@+^t?e$R$} ziQfZR78a2$R-Kqb6mwuC;K<6&l?Z=HB$Tfzt1PS_>Um-@JvoU|UCv-QeD{Xt{w)xm zX!C^7Eprm(l1C-<;Rh4_*SmEk0!hGhU0Z#)pKrLVbo&nYZ>wr3d2i5}{fMUhk$P2P2eryZQwA_0~`U~0p10U0`CFu z10MjrKp$`nI1YRWd<1+9d;-{k6TqjyXTaycN#GQ48u$V@1DplU0q21Wz?Z;Rz(wF| z;2WSHxCDF)Tn7FNTmh~E-vQTv>%a|Q0Qeqo06zdf0zUyafm^_B;Ah|$;8)-d@EhT(s1c}-NyqEb<5 zsB}~YDibveH5-+M%0|sW%|*>a<)Cs=d8kKG^HB>>3sH}u3@9TiA60-_gepWWMirro zQAeyGNGP9 ztwpUv)uDLQdejEgv#5=z=TOh1>QS3en^6s@M$`+a7f~;v{)O6tqNuH?Ce+KQZK&<2 z9jI4OucDe!|3q25LvM)jbMpx!~fi#m#W5A{Ck15_`n4|NQ69Q7gUBh<&JPf&K$ z3Dl>k&rqMEPNGhsPNTj+ok5*NokN{RT|j+_`U-Us^)>1nR6ptx>RZ%h)PGS|P*+jk zp{}8>qi&!EP~W2*s2@;2qJBc%MBPH&M*WQX1@$ZH4(d15@2Edee=>(*_hW9&_#b^Q B`7{6k diff --git a/SYS/KERNEL.S.FS.txt b/SYS/KERNEL.S.FS.txt index 8d7627c4..d468b55a 100644 --- a/SYS/KERNEL.S.FS.txt +++ b/SYS/KERNEL.S.FS.txt @@ -207,13 +207,14 @@ FS.STAT.YA >PUSHYA jsr FS.Stat.203 -.9 >RET 4 +.9 >POP 4 +FS.STAT.YA.RTS rts *-------------------------------------- FS.Stat bit CORE.FSID bmi FS.Stat.FX FS.Stat.203 >MLICALL MLIGETFILEINFO - bcs FS.Stat.RTS + bcs FS.STAT.YA.RTS jsr FS.ClrStat @@ -243,7 +244,6 @@ FS.Stat.203 >MLICALL MLIGETFILEINFO >LDYAI K.MLI.PARAMS+S.FI.MDATE ldx #K.S.STAT+S.STAT.MTIME jmp FS.PTime2StatYAX -FS.Stat.RTS rts *-------------------------------------- FS.Stat.FX >MLICALL MLIGETFILEINFOEX bcc .1 @@ -329,6 +329,9 @@ FS.PTime2StatYAX txa >PUSHA >SYSCALL2 PTime2Time + + clc ignore bad date error + rts *-------------------------------------- FS.GFI.Src .DA #S.FI.T,#S.FI.AUXTYPE,#S.FI.AUXTYPE+1 diff --git a/SYS/KERNEL.S.TIMEX.txt b/SYS/KERNEL.S.TIMEX.txt index 8c7475ef..be741276 100644 --- a/SYS/KERNEL.S.TIMEX.txt +++ b/SYS/KERNEL.S.TIMEX.txt @@ -168,6 +168,7 @@ TIMEX.MON >PSTR "???" >PSTR "December" *-------------------------------------- TIMEX.PTime2Time.BAD + lda #E.OOB sec rts TIMEX.PTime2Time @@ -192,18 +193,28 @@ TIMEX.PTime2Time ldy #0 jsr SHARED.TXTPTR.GetY Get Month/day - pha save Day - ror + tax save Day + ror C is high bit of month lsr lsr lsr lsr + beq TIMEX.PTime2Time.BAD + + cmp #13 + bcs TIMEX.PTime2Time.BAD + ldy #S.Time.MONTH jsr SHARED.FORPNT.PutY set month sta K.ComputeWDAY.1+1 - pla get back day + txa get back day + beq TIMEX.PTime2Time.BAD + and #$1F + cmp #32 + bcs TIMEX.PTime2Time.BAD + iny jsr SHARED.FORPNT.PutY set day @@ -211,6 +222,9 @@ TIMEX.PTime2Time sta ARG32.Sign For later... lda ARG32+3 get back year + cmp #100 + bcs TIMEX.PTime2Time.BAD + cmp #69 if before 70 CC,if > 70, CS lda #0 rol get back C in bit 0 @@ -239,7 +253,7 @@ TIMEX.PTime2Time K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7) pha - lda #CENT0 + lda #CENT0 Starts at 1970 sta ARG32 lda #YEAR0 sta ARG32+1 @@ -249,6 +263,7 @@ K.ComputeWDAY lda #DAY0-1 Thursday : 4 (-1 for mod 7) cpy ARG32+2 bne .2 + cmp ARG32+3 beq K.ComputeWDAY.1 @@ -307,9 +322,9 @@ K.ComputeWDAY.1 ldx #$ff SELF MODIFIED : month .80 inc adjust range 1..7 ldy #S.Time.WDAY - jsr SHARED.FORPNT.PutY - clc - rts + +* clc + jmp SHARED.FORPNT.PutY *-------------------------------------- TIMEX.MDAY .DA #3,#0,#3,#2,#3,#2,#3,#3,#2,#3,#2,#3 *-------------------------------------- @@ -339,12 +354,15 @@ TIMEX.CTime2Time eor #$ff tax pla + .2 tay sec sbc #7 bcs .2 + inx bne .2 + tya ldy #S.Time.WDAY sta (ZPPtr2),y @@ -365,6 +383,7 @@ K.CTime2Time.Year lda ARG32+1 sbc /365 bcc .2 + sta ARG32+1 pla sta ARG32 @@ -376,6 +395,7 @@ K.CTime2Time.Year stz ZPPtr3 inc ZPPtr3+1 bne .1 + .2 pla lda ZPPtr3+1 @@ -428,6 +448,7 @@ TIMEX.IsLeap cmp #0 Year = 00 ? and #$3 Century mod 4 = 0 ? beq .9 leap year (2000) + .8 clc not leap (1900) rts