LF: Kcal 0.2b (was Re: Announce: Kcal 0.1b)
[Prev][Next][Index][Thread]
LF: Kcal 0.2b (was Re: Announce: Kcal 0.1b)
You are correct, I was missing a register clear before a 32/16 divide
(there was junk in the upper word since the year is stored as a 16 bit
word). Thank you! Try this version. I wonder if that was there all
along...
-Kevin
Hellgate Math Department writes:
> You have an error in your calendar program.
>
> A year is a leap-year if it is not a century year and is divisible by four.
> Or if it is a century year, then it must be divisible by 400.
> Consequently, 1700, 1800, and 1900 are not leap-years, but the year 2000 is
> a leap-year. This is because there is less than 365.25 days in a year, so
> only every fourth century is counted.
>
> Your progam has a February 29 for the year 1900, and it should not.
begin 644 kcal02b.zip
M4$L#!!0````(`-2M@B%Z9FI$A`$```H#```+````2T-!3#`R0BY46%2M44UK
MW#`0O>M7O%L3:%Q[#P4O(31I"0V%4FAZZ%&VQ_8063+ZV*S_?4?:#>30T$OG
M(C3S9MY[,\`_XENO#>IJUZDW$71@BZ^I(X_KISF_GQ9?68HW;_;D^.S6S?,T
M1USTEVC:]N/?X%\<K(L8.$3/78H$(=-8W,`CTX#1^:525_\W5''-08@"+ZLA
MX;-Q-ALD3W;0'@>F9S$L](@SX?'AJMWA`^ZUGQR:JKYK=DH]SC)CY*/HS*"-
MI+%IZQJK=YVA)7NIJZ:KE/KMTCMC8$FPWBV&NZK=K=!6++Y\V(:HC1&$L]A<
M\F?:Z."3!4>9\RM0X>J3#Z)MU4,N][.VTZE0G)2Y68XR-,8]1)!<T:5P*JMR
ME[VH.<9S)JW[?(Z2*8V#>[:O&TN20I]A=.2HE-R(Y!?TH<CQ9%^&]4;`>W@*
MT7DJB.%<4M]=Y#Y+U;'H?56$V-_".<-C7D&APE,^5[9T6@/TI-G*,AY.F)&E
MI.V&+DWA/>2>6K9$BV:#A7#[\_9'I?X`4$L#!!0````(`-NM@B'#(?\H*@0`
M`.$&```(````2T-!3"XY,E!U5%]HFU44/_?/]S6FGW'44=HB\4Z4C8#2)1);
M"6W:E1@[F[5)G:.(-&WS)9E-4CZ38(J.*</MP8?2ISWL80\J*")]<.!$1F6%
M]:'*Z(MCB$[IH);")(12V]!Y[OV2_A,OG'O/^9W?.=^Y]Y[O>CS#KW=Z/1X"
MF7@Z"SA"<2N9$U-6+FG%,^+_!X$HLM\=CT_*J":4/W2`ST>DI5^&P9/MVF?:
MK'8=@'\"1R(W*8"C.P`EE$<H($6A<.:1\M#(38)DM&AW)RKE\#1?1+FC<!?B
M3F011&[@VHAR67EHW;,O'G,CKU6BNYXZKX#R`.48BNM`!:+F:?F/![.Q"JZM
MMJ>>S5>%8_C)]:>K<M=\NUW5?;$*/!PT@@"FM_?B+C9A8]GF/8S,V%B2CCHP
MARQ_&W,^"Z`91@FP`%XQVQ!Y1B&=-L,<B9:D/1I%#E<<68E;85V(Z8<P#V)/
M',*:$6M4F+&+X:Y\_\C*T+*U"FK<KD3C69=>`D-J,?E]:N]#X]'@?!7:<(=.
MWSS:>@VGB'XH]ZU0A\)TKYP=R\$Z1_IG]UED9CGH^U%E^4AQ]8^KT!#ND1C?
M">!-^-19:\[:F6^]&@`-,1?J:QT!T)WV*6W]4)(1F3%U5DZ5WYA3>B8B^TMS
MAJ=I"F5RK[^&9<R:FM?M7J.*BY:<U_9N_DW%5/-Z-/2R\OH54^\%MWX*7+7;
MVC+;NEDW/9BEWEEXGFZ)#"T][D==[F%]Z*?'WD-_`U;R&MZ&UMI[J>CLD#DJ
ML;[%V[\LA&.U/^&5O<I4=J<1)%'3+??.RT;I^!&Y9J`Z[;.[K#P*U2QRSIGN
M6(VC3K.<A>I97_7X4S5./W*&S`[%J=0X%>1X,8^AZC@<W;(OVL#H8;,C6H]^
M4JX9V*[4JJ@<KF_[_EY]VS]C=(/9HOIP0V)*VY1QZ)U#K],\6N]7OE'O5[Z)
M'H<).YN1PFE\G43[2U[QHCB=**:S(EP82UB@X"+BOXM3N:F2E4ZF\N)+<;*S
MTR\.$$6LD!5B((?3<"$AQ%N)"=12!2%"5EJ(6#POH#X:EJ!1BC(TV#_<+TR`
M?#)Q@OYXMA"W2JB%$F.64F$@;HVG%*%GRDI/*FT@7K+?6>@O9!-U;=(&H:>0
M++R7EUHL,95/9&2Q9\;S.5P1B^2*"A+0EQBO:=@=5BXSF1X#4TY@/]HGP`]!
MB$`*BC`#7\$"_`9K4(9-8A!!_*2+A,@@.4=&R7F2)Q?(%3)+KI$OR!SYGMPB
M"V21W"7WR0.R2C8I4!<]2MOH\]1+NVB(1ND[U*06O4`OT4_I++U*K]-OZ'?T
M%EVBR_0>_9.NTK_I!M-9$VMA;N9A?M;'HNQM9K$/V!4VPZZQK]FW;)[=9??8
M"EMC9;;#7;R9/\=/\'8>X&_P07Z6C_#S/,OS_'V`OYI68/7A$$ZM*P\!@K\Z
MKOX+4$L!`A0`%`````@`U*V"(7IF:D2$`0``"@,```L``````````0``````
M`````$M#04PP,D(N5%A44$L!`A0`%`````@`VZV"(<,A_R@J!```X08```@`
M````````````````K0$``$M#04PN.3)04$L%!@`````"``(`;P```/T%````
!````
`
end
References: