DS12C887与单片机制作万年历带汇编程序

;**************************************
;DS12C887:1脚MOT 接VCC(按MOTO时序)
; 4~11脚总线接89C2051(对应P1.0~P1.7脚)
; 13脚CS 接P3.2
; 14脚AS 接P3.3
; 15脚RW 接P3.5
; 17脚DS 接P3.7
; 18脚RESET 接VCC
; 19~23脚悬空
;74HC595:11脚SRCLK 时钟接P3.4
; 12脚RCLK 副时钟与SRCLK 电平相反接P3.0
; 13脚允许端高电平禁止,但数据可传入并锁存,可等所有位写入数据后允许输出,可改善显示
; 14脚SER 数据接P3.1
;74HC14P:六反相器,用于单片机P口输出缓冲,提高抗干扰能力
;**************************************
org 0000h
acall delay1
T_SEC EQU 40H ;存秒
T_MIN EQU 41H ;存分
T_HOUR EQU 42H ;存时
T_WEEK EQU 43H ;存星期
T_DAY EQU 44H ;存日
T_MON EQU 45H ;存月
T_YEAR EQU 46H ;存年
CS EQU p3.2 ;片选低有效
AS EQU p3.3 ;地址锁存,下降沿有效
RW EQU p3.5 ;低电平写,高电平读
DSRD EQU p3.7 ;低电平写,高电平读
KEY EQU p3.4
mov p1,#0ffh
mov p3,#0ffh
mov r0,#3Dh ;位值暂存（31~3Dh)
mov r3,#8 ;字节传输（8段）
mov r4,#13 ;LED 位数传输（13位）
MIAO:
star: ;初始化芯片
MOV B,#0BH ;芯片内B控制器SET位为1,停止芯片
MOV A,#82H
ACALL WAD
MOV B,#0AH ;芯片内A控制器
MOV A,#0A0H
ACALL WAD
MOV B,#0CH
MOV A,#00H
ACALL WAD
MOV B,#0DH
ACALL RDT
;===============================
MOV B,#00H ;秒
MOV A,#30H
ACALL WAD
MOV B,#02H ;分
MOV A,#51H
ACALL WAD
MOV B,#04H ;时
MOV A,#20H
ACALL WAD
MOV B,#06H ;周
MOV A,#02H ;置时间初值
ACALL WAD
MOV B,#07H ;日
MOV A,#11H
ACALL WAD
MOV B,#08H ;月
MOV A,#11H
ACALL WAD
MOV B,#09H ;年
MOV A,#08H
ACALL WAD
;================================
MOV B,#0AH
MOV A,#020H
ACALL WAD
MOV B,#0BH ;启动芯片
MOV A,#02H
ACALL WAD
;=====================
MOV B,#0AH ;A控制器
ACALL RDT ;该段有效时芯片不能更新时间初值JB ACC.7,MIAO ;但可以手动复位单片机进行更新;=====================
MOV B,#00H ;读秒寄存器
ACALL RDT
MOV 78H,A
LCALL DELAY1 ;解决闪烁问题,但每秒出现闪烁MOV B,#00H ;读秒寄存器
ACALL RDT
CJNE A,78H,X
AJMP MIAO
;===================== X: MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 3DH,60H
MOV 3CH,A
FEN:
MOV B,#02H ;读分寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 3BH,60H
MOV 3AH,A
SHI:
MOV B,#04H ;读时寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 39H,60H
MOV 38H,A
ZHOU:
MOV B,#06H ;读周寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
MOV 37H,60H
RII:
MOV B,#07H ;读日寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 36H,60H
MOV 35H,A
YUE:
MOV B,#08H ;读月寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 34H,60H
MOV 33H,A
NIAN:
MOV B,#09H ;读年寄存器
ACALL RDT
MOV 60H,A
ANL 60H,#0FH
SWAP A
ANL A,#0FH
MOV 32H,60H
MOV 31H,A
ACALL DISP
ACALL DELAY1
AJMP MIAO
WAD: ;时钟芯片写地址
MOV P3,#0FFH
MOV P1,B ;送地址
CLR CS ;片选有效低电平
CLR RW ;低电平为写前半期
CLR DSRD
ACALL DELAY
CLR AS ;下降沿锁存地址B
SETB DSRD
ACALL DELAY ;延时大于5uS
MOV P1,A ;送数据
CLR DSRD
NOP
CLR CS
RET
RDT: ;从芯片读数据
MOV P3,#0FFH
MOV P1,B ;送地址
CLR CS ;片选有效低电平
CLR RW ;低电平为写前半期
CLR DSRD
ACALL DELAY
CLR AS ;下降沿锁存地址B
MOV P1,#0FFH
SETB RW
SETB DSRD
NOP
MOV A,P1
NOP
CLR CS
RET
disp: m ov a,@r0
mov dptr,#tab
movc a,@a+dptr
disp1: clr c
rlc a
mov p3.1,c ;数据，高低电平值
clr p3.0
setb p3.4
CLR P3.4 ;时钟，下降沿有效
setb p3.0
djnz r3,disp1
dec r0
mov r3,#8
djnz r4,disp
mov p3,#0ffh
MOV R0,#3DH
MOV R4,#13
ret
delay: mov r5,#1
loop: mov r6,#3
djnz r6,$
djnz r5,loop
ret
delay1: mov r5,#200
loop1: mov r6,#200
LOOP2: MOV R7,#1
DJNZ R7,$
djnz r6,LOOP2
djnz r5,loop1
ret
tab: db 3h,9fh,25h,0dh,99h,49h,41h,1fh,1h,9h end。