CPX '3'          ;# Year starts in March to bypass
         BCS 'MARCH'      ;# leap year problem
         DEY              ;# If Jan or Feb, decrement year
MARCH:   EOR '$7F'        ;# Invert A so carry works right
...