ds1302.asm

单片机汇编例程学习,大量的汇编例程

;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----[phone]
;[e-mail]
;本程序实现实时时钟模块           时钟芯片型号：DS1302 
;ds1302时钟上升沿输入命令或数据,下降沿输出数据.
;time:2004.05.23
;///////////////////////////////////////////
;本程序使用的数码管为共阳极数码管.
; 显示的时间:分为05,秒为00,然后在这个时间上累加.因数码管有限,只显示分
; 和秒.
; 在看本程序之前,最好看一下有关DS1302的资料.
T_CLK Bit P1.4                         ;实时时钟时钟线引脚
T_IO  Bit P1.5                         ;实时时钟数据线引脚
T_RST Bit P1.6                         ;实时时钟复位线引脚
;40h--46h 存放 "秒 分 时 日 月 星期 年 "
second	equ	40h

	org	0000h
	ajmp	main
	org	0030h
main:
								;
	mov     dptr,#tab			;送入表格地址
	mov		40h,#00				;秒赋初值
	mov		41h,#05				;分赋初值
	mov		42h,#11				;时赋初值
	mov		43h,#23				;日赋初值
	mov		44h,#05				;月赋初值
	mov		45h,#00				;星期赋初值
	mov		46h,#04				;年赋初值
	lcall	set1302				;调用初值设定子程序
loop:
	lcall 	get1302				;调用时钟子程序，时钟自动加时
	lcall	exchange			;调用十六进制转BCD码子程序
	mov 	r4,	#3				;刷新次数
tt1:
	lcall 	display				;调用动态扫描子程序
	djnz	r4,tt1
	ajmp 	loop	
;***************************************
  
exchange:
	mov	a,41h
	mov	b,#10h
	div	ab						;把41H高低4位分开
	mov	33h,a					;高4位存入33H单元
	mov	a,b
	mov	32h,a					;低4位存入32H单元
	mov	a,40h
	mov	b,#10h		
	div	ab						;把40H高低4位分开
	mov	31h,a					;高4位存入31H单元
	mov	a,b
	mov	30h,a					;低4位存入30H单元
	ret
;***************************************
display:
			mov r7,#100			;动态扫描次数
dd1:
			mov a,30h			
			movc a,@a+dptr
			mov p0,a			;秒低位段选码送P0口
			clr p2.0			;秒数码管低位开显示
			lcall delay100us
			setb p2.0			;秒数码管低位关显示

			mov a,31h			
			movc a,@a+dptr
			mov p0,a			;秒高位段选码送P0口
			clr p2.1			;秒数码管高位开显示
			lcall delay100us
			setb p2.1			;秒数码管高位关显示

			mov a,32h			;分低位段选码送P0口
			movc a,@a+dptr
			mov p0,a			;分低位段选码送P0口
			clr p2.2			;分数码管低位开显示
			lcall delay100us
			setb p2.2			;分数码管低位关显示

			mov a,33h
			movc a,@a+dptr
			mov p0,a			;分高位段选码送P0口
			clr p2.3			;分数码管高位开显示
			lcall delay100us
			setb p2.3			;分数码管高位关显示
			djnz r7,dd1
			ret
delay100us:
			mov r5,#50
			djnz	r5,$
			ret
		
tab:	db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
;**********************************************************
;子程序名：Set1302
;功    能：设置DS1302 初始时间,并启动计时。
;调    用：RTInputByte
;入口参数：初始时间:Second,Minute,Hour,Day,Month,Week.YearL(地址连续)
;出口参数：无
;影响资源：A B R0 R1 R4 R7 
;设    计：刘永忠           日    期：04-5-23 10:52
;**********************************************************
Set1302:
	CLR    T_RST
    CLR    T_CLK
    SETB   T_RST 
    MOV    B,     #8EH        ;控制寄存器
    LCALL  RTInputByte  
    MOV    B,     #00H        ;写操作前WP=0
    LCALL  RTInputByte  
    SETB   T_CLK 
    CLR    T_RST
    MOV    R0,    #Second;
    MOV    R7,    #7        ;秒 分 时 日 月 星期 年 
    MOV    R1,    #80H      ;秒写地址
S13021:   CLR    T_RST
    CLR    T_CLK
    SETB   T_RST 
    MOV    B,     R1        ;写秒 分 时 日 月 星期 年 地址
    LCALL  RTInputByte  
    MOV    A,     @R0       ;写秒数据
    MOV    B,     A
    LCALL  RTInputByte  
    INC    R0
    INC    R1
    INC    R1
    SETB   T_CLK 
    CLR    T_RST
    DJNZ   R7,    S13021
    CLR    T_RST
    CLR    T_CLK
    SETB   T_RST 
    MOV    B,     #8EH        ;控制寄存器
    LCALL  RTInputByte  
    MOV    B,     #80H        ;控制,WP=1,写保护
    LCALL  RTInputByte  
    SETB   T_CLK 
    CLR    T_RST
    RET
;**********************************************************
;子程序名：Get1302
;功    能：从DS1302 读时间
;调    用：RTInputByte,RTOutputByte
;入口参数：时间保存在:Second,Minute,Hour,Day,Month,Week.YearL
;出口参数：无
;影响资源：A B R0 R1 R4 R7
;设    计：刘永忠           日    期：04-5-23 10:52
;**********************************************************
Get1302:      
    MOV    R0,    #Second;
    MOV    R7,    #7
    MOV    R1,    #81H       ;秒地址
G13021:   CLR    T_RST
    CLR    T_CLK
    SETB   T_RST 
    MOV    B,     R1        ;秒 分 时 日 月 星期 年 地址
    LCALL  RTInputByte  
    LCALL  RTOutputByte
    MOV    @R0,   A         ;秒
    INC    R0
    INC    R1
    INC    R1
    SETB   T_CLK 
    CLR    T_RST
    DJNZ   R7,    G13021
    RET
;**********************************************************
;功    能：写1302一字节  （内部子程序）
;**********************************************************
RTInputByte:  
    MOV    50h,    #8		;一个字节有八个位,移八次.
Inbit1:   MOV    A,     B
    RRC    A				;通过A移入CY.
    MOV    B,     A
    MOV    T_IO,  C		;移入芯片内.
    SETB   T_CLK
    CLR    T_CLK
    DJNZ   50h,   Inbit1
    RET
;**********************************************************
;功    能：读1302一字节  （内部子程序）
;**********************************************************
RTOutputByte: 
    MOV    50h,    #8		;一个字节有八个位,移八次.
Outbit1:  MOV    C,     T_IO	;从芯片内移到CY
    RRC    A				;通过CY移入A.
    SETB   T_CLK
    CLR    T_CLK
    DJNZ   50h,    Outbit1
    RET
;/////////////////////////////////////////////////////////////////
end