Т > 6502.ProgTips.DofWeek16a 5Т Calculate day of week for 16-bit Gregorian date 4Т Works for any date in Gregorian 400-year cycle (: 2 ч mc% 200 < Ц P=0 ╦ 1 FP%=mc%:O%=P% P[OPT P*2+4 Z+\ On entry day = day, 1-31 d+\ month = month, 1-12 n.\ year+0,year+1 = year, 0-39999 x*\ On exit A=day of week 0=Sun, 6=Sat ┌\ X=corrupted ▄\ Y=corrupted √,\ Size 160 bytes, 4 bytes workspace ═0\ 129 bytes if zero page workspace ╙\ Є\ Uses the formula: Ў\ if (m < 3) then y = y-1 х;\ return (y + y/4 - y/100 + y/400 + t[m-1] + d) mod 7 р\ э.DayOfWeek ФLDA day:LDX month ПDCLC:ADC DofWOffsets-1,X:STA day :\ acc=t[m]+d, offset to prevent ЗBLDA #1:STA month :\ overflow with small numbers 5CPX #3:BCS DayOfWeekMarch :\ March or later : /LDX year+0:BNE DayOfWeekSub2 :\ Year>255 "7LDA year+1:BNE DayOfWeekSub1 :\ Not year n*400+0 ,;LDX #5:INC year+1 :\ Adjust for year zero 6.DayOfWeekSub1 @М Ъ