;出口信息:
;影响资源:R0,R1,R2,R5,R6,R7,A,PSW,P2,DPTR,SBUF,(位)TI,P2_BIT.
;**********************************************************
SHANDONG_YANSI: NOP;
MOV R5,#20;
SHANDONG_YANSI_1: ACALL DISPLAY;
DJNZ R5,SHANDONG_YANSI_1; 实现延时的功能
RET;
;*********************************************************
; 双BCD码转换成单BCD码子程序
;入口信息: SEC_SG,MIN_SG,HOUR_SG,DATE_SG,MONTH_SG,YEAR_SG,
; TEMP_SG,NONG_DATE_SG,NONG_MONTH_SG
;出口信息:SEC_G,SEC_S,MIN_G,MIN_S,HOUR_G,HOUR_S,DATE_G,

DATE_S,MONTH_G,MONTH_S,YEAR_G,YEAR_S,
; TEMP_G,TEMP_S,NONG_DATE_G,NONG_DATE_S,NONG_MONTH_G,NONG_MONTH_S
;影响资源:R0,R1,R2,R7,A,PSW.
;占用资源 :SEC_G,SEC_S,MIN_G,MIN_S,HOUR_G,HOUR_S,DATE_G,

DATE_S,MONTH_G,MONTH_S,YEAR_G,YEAR_S,
; TEMP_G,TEMP_S,NONG_DATE_G,NONG_DATE_S,NONG_MONTH_G,NONG_MONTH_S
;****************************************************************
DBCD_SBCD: MOV R0,#SEC_G
MOV R1,#SEC_SG
MOV R7,#9;
BCD1: NOP;
CJNE R7,#3,BCD2;
MOV R0,#TEMP_G;
MOV R1,#TEMP_SG;
BCD2: MOV A,@R1
MOV R2,A
ANL A,#0FH;
MOV @R0,A;

DEC R0
MOV A,R2
ANL A,#0F0H
SWAP A
MOV @R0,A

DEC R0
DEC R1
DJNZ R7,BCD1;
RET