原创 基于单片机的万年历程序

2008-4-30 22:22 4538 6 8 分类: MCU/ 嵌入式

;真正的万年历: 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


SUB_WNL:
      PUSH PSW
      MOV A, SJ 
      ACALL BCD2BIN_MOD4      
      ; x 400年: (大周期

      ;       =146097天 = 7 * 20871 + 0 天
      ; x 100年

      ; 000年
 = 7 * 0     + 0 + 1 - 1       1  =  0 * 2 + 1 ****
      ; 100年
 = 7 * 5217  + 7 + 1 - 2       2  =  1 * 2 
      ; 200年
 = 7 * 10435 + 7 + 1 - 4       4  =  2 * 2  
      ; 300年
 = 7 * 15653 + 7 + 1 - 6       6  =  3 * 2 
      ;                                 {1,2,4,6}              
      MOV A, R6  ; A=R6= SJ_BIN MOD 4
      RLC A   ; A=A*2+C       A =       {1,2,4,6}           ****
      XRL A, #10000111B ;     A = 87H - A  ; 边界调整
      MOV R5, A         ;     A =   {86H, 85H, 83H, 81H} ; R5: 星期
  
      MOV A, NH  
      JZ  WNL_1
        ACALL BCD2BIN_MOD4
        XCH A, R5     
        SUBB A, R5 ; 0 年
 ;  0  =   0 +   0 + 1 + (-1) ***
        MOV R5, A

WNL_1:
      MOV A, YF
      ADD A, #(WNL_TAB-$-4)
      MOVC A, @A+PC
      MOV R6, A
       
      SWAP A
      ACALL WNL_F0; 大年对>=3月调整准备
      ADDC A, R5  ; 月调整
      MOV B, #7
      DIV AB      ; B = A MOD 7

      MOV A, R6
      ACALL WNL_F0; 大年调整准备
      ADDC A, #28
      POP PSW
      RET

WNL_TAB:
      DB 3*2 + 5 * 32+0 ;1     BIT 0   :  "2月" 标志
      DB 0*2+1+1 * 32+0 ;2 **  BIT 1..2: 月大小
      DB 3*2 + 1 * 32+16 ;3              00:28 天
  
      DB 2*2 + 4 * 32+16 ;4              01:
---- 
      DB 3*2 + 6 * 32+16 ;5              10: 30 天
 
      DB 2*2 + 2 * 32+16 ;6              11: 31 天
      DB 3*2 + 4 * 32+16 ;7    BIT 3: 0 ----- 
      DB 3*2 + 7 * 32+16 ;8    BIT 4:  0: 1/2月
                
      DB 2*2 + 3 * 32+16 ;9            1: >=3月
 
WNL_F0:        ; 6 BYTES ; 大年调整准备
        RRC A            ;0AH 
        ANL A, #07H      ;0BH
                         ;0CH 
        ANL C, F0        ;0DH
                         ;0EH
        RET              ;0FH
      DB 3*2 + 5 * 32+16 ;10H  BIT 5..7:  星期调整数
          
      DB 2*2 + 1 * 32+16 ;11H            0:
---         
      DB 3*2 + 3 * 32+16 ;12H          1-7: 调整数
 

BCD2BIN_MOD4:
     ; 功能:
A. 1 BYTES BCD TO BIN
          ;  B. MOD 4
          ;  C. MUL 2 
     ; 入口:
        ;  A  :  SJ OR NH   
        ;  F0 :  大世纪
     ; 出口
        ; ACC   --  (BIN(A) \ 4) * 2 - (BIN(A) MOD 4) - F0
        ; R6    --  BIN(A) MOD 4
        ;  C    --  IIF( (BIN(A) MOD 4)=0, 1, 0 )
     ; 使用
:  ACC, B, R6, PSW 
     ; STACK:  0 bytes (不包括调用
)

      MOV R6, A        ;   BCD ==> BIN 
      ANL A, #0F0H     ; 16X+Y ==> 10X+Y 
      SWAP A
      MOV B, #(256-6)  ; (256-6)*X + (16X+Y)  
      MUL AB           ;
      ADD A, R6        ; = 256X + (10X+Y) 
      
      MOV R6, A        ; MOD4   
      ANL A, #3
      XCH A, R6       ; R6 = BIN MOD 4   = {0,1,2,3}
                 ; X 4年:
3 * 365 + 366 = 7*209 + (-2) **
      XRL A, R6              ; A = (BIN \ 4)
      RR A                   ; A = (BIN \4 ) *      2  **
      MOV C, F0   ; 大世纪调整
      SUBB A, R6 
      ;X 1 年
:                          
           ;0 年
  0  =   0 +             0 + 1 + (-1) *** 
           ;1 年
 366 = 7*52 +            1 + 1
           ;2 年
 366 + 365 = 7*104 +     2 + 1
           ;3 年
 366 + 365 + 365 = 7*156+3 + 1
           ;                         {-1,1,2,3} 
      CJNE R6, #1, $ + 3 ; C = IIF(R6>=1, 0, 1)
      MOV F0, C          ; C=1 为大年/大世纪
  
      RET 
       ;----------------------------- 
   END ;======== END OF FILE

文章评论2条评论)

登录后参与讨论

craftor 2008-6-1 23:00

有点图就更精彩了!

xiezhaohui007_794911347 2008-5-30 16:06

可不可以把你的硬件电路图也发上来,谢谢
相关推荐阅读
Tangle 2008-06-20 10:31
基于神经网络的电子鼻肺癌早期诊断系统
作者:江苏大学 赵景波 赵德安 蒋春彬 肺癌是目前全世界最常见的恶性肿瘤之一,其发病率和死亡率不断上升。究其原因是肺癌病因不明,发病时间短、转移快、恶性程度高,早期不易诊断,到中、晚期失去了手术机会,...
Tangle 2008-06-20 10:24
怎样应对医疗电子设备日益复杂的设计挑战?
作者:苏宇 医疗电子设备要从微弱而复杂的人体电信号中采集有效信息,并根据这些信息进行监控、显示和疾病诊断,同时还要避免医疗电子设备对人体造成伤害,因此技术人员在医疗电子设 备的开发过程中面临诸多挑战。...
Tangle 2008-06-20 10:23
医学研究中的统计技术
人与人之间普遍存在着个体差异,所以医学研究中的变异无处不在,再加上外在因素的影响,医学现象更显得变化无常。         例如,某种疾病的发生或流行是什么因素所致?可能涉及的多种因素中哪些是无关紧要...
Tangle 2008-06-20 10:22
RFID有效追踪药品和医疗管理
药品是特殊商品,如果给病人用错药,用假药、劣药或者过期药品,将给人民的身体健康及生命带来威胁。  近些年来,药品安全问题频频发生,2006年我国就发生了几起药品叫停事件:卫生部紧急叫停欣弗、国家食品药...
Tangle 2008-06-20 10:22
酸度计的使用方法
酸度计简称pH计,由电极和电计两部分组成。使用中若能够合理维护电极、按要求配制标准缓冲液和正确操作电计,可大大减小pH示值误差,从而提高化学实验、医学检验数据的可*性。 一、 正确使用酸度计的使用方法...
Tangle 2008-05-22 17:36
虚拟仪器概念
       虚拟仪器( VI - Virtual Instrumentation )是指通过应用程序将通用计算机与功能化硬件结合起来,用户可通过友好的图形界面来操作这台计算机,就像在操作自己定义、自...
广告
我要评论
2
6
1
2
3
4
5
6
7
8
9
0
广告
关闭 热点推荐上一条 /3 下一条