基于单片机的万年历程序

基于单片机的万年历程序

;真正的万年历: 84 bytes 的 51 ASM

;==SUB_WNL=== 万年历 ==* Deng Miao *  2004-06-01 ***** GuangZhou ******
          SJ    DATA   30H ; 世纪  BCD  00 TO 99   
          NH    DATA   31H ; 年号  BCD  00 TO 99    0000 TO 9999 年
          YF    DATA   32H ; 月份  BCD  01 TO 12

   org 000h
     MOV SP, #40H
     MOV SJ, #21H ;2004-05
     MOV NH, #01H
     MOV YF, #4H   
     ACALL SUB_WNL
     SJMP $   

;===============SUB_WNL===================
     ; 入口：
        ;  SJ    DATA   30H ; 世纪  BCD  00 TO 99   
        ;  NH    DATA   31H ; 年号  BCD  00 TO 99    0000 TO 9999 年
        ;  YF    DATA   32H ; 月份  BCD  01 TO 12
     ; 出口
        ; ACC   --  本月天数 BCD 28 to 31
        ; B     --  本月1日的星期数 1 to 6 == 星期1 to 星期6
        ;                                0 -- 星期日
     ; 使用:  ACC, B, R5, R6 
     ; STACK:  3 bytes (不包括调用）
      ORG 50H