51汇编做的电子时钟

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SECOND EQU 20H      ;当前秒
MINUTE EQU 21H      ;当前分
HOUR   EQU 22H      ;当前时
ALAMINU EQU 23H     ;闹钟分钟
ALAHOUR EQU 24H     ;闹钟小时
DAY    EQU 25H      ;当前日
MONTH  EQU 26H      ;当前月
YEAR  EQU 27H      ;当前年   
WEEK   EQU 29H      ;星期
STATE  EQU 30H      ;状态
INTNUM EQU 31H      ;中断次数
MONTHDAYS EQU 32H   ;月所对应的天数
ALAON     EQU 33H   ;闹钟开关状态
TEMP       EQU 34H  ;临时变量
ALARM     EQU 35H   ;实事报时,该处存放的变量为1时报时
;液晶模块的寄存器地址
LCD_CMD_WR EQU  0
LCD_DATA_WR EQU 1
LCD_BUSY_RD EQU 2
LCD_DATA_RD EQU 3
;显示命令
LCD_CLS  EQU 1            ;清楚屏幕并且置AC为0
LCD_HOME EQU 2            ;显示返回到原始位置
LCD_SETMODE EQU 4            ;设置模式
LCD_SETVISIBLE EQU 8            ;开关控制
LCD_SHIFT EQU 16           ;光标移位
LCD_SETFUNCTION EQU 32           ;功能设置
LCD_SETCGADDR EQU 64           ;设置CGRAM
LCD_SETDDADDR EQU 128          ;设置DDRAM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ORG 0000H
 LJMP MAIN                     ;跳往主程序
 ORG 0003H
 LJMP KEYDOWN                  ;键盘中断
 ORG 000BH
 LJMP TIMER                    ;定时中断
MAIN: 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;月份所对应的天数表  
DAYNUM: DB    1FH,1CH,1FH,1EH,1FH,1EH,1FH,1FH,1EH,1FH,1EH,1FH
;显示星期字符串
MON:    DB  'MON',0
TUE:    DB  'TUE',0
WED:    DB  'WED',0
THU:    DB  'THU',0
FRI:    DB  'FRI',0
SAT:    DB  'SAT',0
SUN:    DB  'SUN',0 
ON :    DB  'ON' ,0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 MOV   SP ,#40H
 MOV   TMOD,#01H               ;设置为T0
 LCALL INITIAL                 ;初始化内存数据
        LCALL DIS_INI                 ;液晶显示初始化
        MOV   A,#38H
 LCALL WRCMD
 SETB  ET0                     ;允许TO中断
 SETB  EX0                     ;允许INTRO中断
 MOV   IP,#02H                 ;设置定时器的中断优先于键盘中断
 SETB  EA                      ;CPU 开中断
 MOV   TH0,#3CH                ;装初始值
 MOV   TL0,#0B0H
 SETB  TCON.4                  ;启动T0
HERE:
        LCALL DISPLAY                 ;根据模式不同在LCD上显示
        LJMP HERE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;初始化子程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INITIAL:
        PUSH ACC
 MOV   INTNUM,#0AH              ;装入中断次数
 CLR A                         ;初始化时间:00:00:00
 MOV SECOND,A
 MOV MINUTE,A
 MOV HOUR  ,A                 
 MOV ALAMINU ,A
 MOV ALAHOUR ,A
 MOV DAY ,#4                 ;初始化日期为:2007-7-4 星期3
 MOV MONTH,#7
 MOV YEAR,#7H               
 MOV WEEK ,#3H
        MOV STATE ,#0H               ;初始化状态为0
 MOV ALAON,#00H               ;初始化闹钟关闭
 MOV ALARM,#00H               ;初始化不报时
 POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;键盘中断程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
KEYDOWN:
       PUSH ACC
       MOV A,P1                      ;读键盘的状态
       ANL A,#1FH                    ;屏蔽高三位
       MOV TEMP,A
       LCALL D_10MS                  ;延时10ms
       MOV A,P1                      ;再次读入按键状态
       ANL A,#1FH
       CJNE A,TEMP,RET_KEY           ;两次不等,则是抖动引起的
       CJNE A,#1EH,KEYDOWN1
       LCALL KEY_0
       AJMP RET_KEY
KEYDOWN1:
       CJNE A,#1DH,KEYDOWN2
       LCALL KEY_1
       AJMP RET_KEY
KEYDOWN2:
       CJNE A,#1BH,KEYDOWN3
       LCALL KEY_2
       AJMP RET_KEY
KEYDOWN3:
       CJNE A,#17H,KEYDOWN4
       LCALL KEY_3
       AJMP RET_KEY
KEYDOWN4:
       CJNE A,#0FH,RET_KEY
       LCALL KEY_4
       AJMP RET_KEY
RET_KEY:
       POP  ACC
RETI
;;;;;延时程序10MS
D_10MS:
      MOV R5,#0FFH
D_10MS1:
      MOV R6,#0EEH
D_10MS2:
      NOP
      DJNZ R6,D_10MS2
      DJNZ R5,D_10MS1
RET
;;;;;;功能键按下,设置状态
KEY_0:
       PUSH ACC
MOV P0,#00H
       MOV A,STATE
       INC A
       CJNE A,#05H,KEY_0_RET
       MOV A,#00H
KEY_0_RET:
       MOV STATE,A
       POP ACC
RET
;;;;;;;;;;;;;;;
KEY_1:
;MOV P0,#01H
       MOV R7,#01H             ;设置为增加(子程序的入口参数)
       MOV A,STATE
       CJNE A,#00H,KEY_1_1     
       AJMP KEY_1_RET          ;状态0下无作用
KEY_1_1: 
       CJNE A,#01H,KEY_1_2
       LCALL INC_DEC_HOUR      ;状态1下小时加一
       AJMP KEY_1_RET
KEY_1_2:
       CJNE A,#02H,KEY_1_3
       LCALL INC_DEC_ALAHOUR   ;状态2下闹钟小时加一
       AJMP KEY_1_RET
KEY_1_3:
       CJNE A,#03H,KEY_1_4
       LCALL INC_DEC_MONTH     ;状态3下月加一
       AJMP KEY_1_RET
KEY_1_4:
       CJNE A,#04H,KEY_1_RET
       LCALL INC_DEC_YEAR      ;状态4下年加一
KEY_1_RET:
RET
;;;;;;;;;;;;;
KEY_2:
;MOV P0,#02H
       MOV R7,#01H             ;设置为增加(子程序的入口参数)
       MOV A,STATE
       CJNE A,#00H,KEY_2_1     
       AJMP KEY_2_RET          ;状态0下无作用
KEY_2_1: 
       CJNE A,#01H,KEY_2_2
       LCALL INC_DEC_MINUTE    ;状态1下分钟加一
       AJMP KEY_2_RET
KEY_2_2:
       CJNE A,#02H,KEY_2_3
       LCALL INC_DEC_ALAMINU   ;状态2下闹钟分钟加一
       AJMP KEY_2_RET
KEY_2_3:
       CJNE A,#03H,KEY_2_4
       LCALL INC_DEC_DAY       ;状态3下日加一
       AJMP KEY_2_RET
KEY_2_4:
       CJNE A,#04H,KEY_2_RET
       LCALL INC_DEC_WEEK     ;状态4下星期加一
KEY_2_RET:
RET
;;;;;;;;;;;;;
KEY_3:
;MOV P0,#03H
       MOV R7,#00H             ;设置为减少(子程序的入口参数)
       MOV A,STATE
       CJNE A,#00H,KEY_3_1    
       MOV ALARM,#01H          ;状态0下报时:设定报时开关
       AJMP KEY_3_RET          
KEY_3_1: 
       CJNE A,#01H,KEY_3_2
       LCALL INC_DEC_HOUR      ;状态1下小时减一
       AJMP KEY_3_RET
KEY_3_2:
       CJNE A,#02H,KEY_3_3
       LCALL INC_DEC_ALAHOUR   ;状态2下闹钟小时减一
       AJMP KEY_3_RET
KEY_3_3:
       CJNE A,#03H,KEY_3_4
       LCALL INC_DEC_MONTH     ;状态3下月减一
       AJMP KEY_3_RET
KEY_3_4:
       CJNE A,#04H,KEY_3_RET
       LCALL INC_DEC_YEAR      ;状态4下年减一
KEY_3_RET:
RET
;;;;;;;;;;;;;
KEY_4:
;MOV P0,#04H
       MOV R7,#00H             ;设置为减(子程序的入口参数)
       MOV A,STATE
       CJNE A,#00H,KEY_4_1  
       MOV R6,ALAON             ;状态0下,设定闹钟开关
       CJNE R6,#01H,SET_ALAON_0
       MOV  R6,#00H
       AJMP SET_RET
SET_ALAON_0:
       MOV  R6,#01H
SET_RET:
       MOV  ALAON,R6
       AJMP KEY_4_RET          
KEY_4_1: 
       CJNE A,#01H,KEY_4_2
       LCALL INC_DEC_MINUTE    ;状态1下分钟减一
       AJMP KEY_4_RET
KEY_4_2:
       CJNE A,#02H,KEY_4_3
       LCALL INC_DEC_ALAMINU   ;状态2下闹钟分钟减一
       AJMP KEY_4_RET
KEY_4_3:
       CJNE A,#03H,KEY_4_4
       LCALL INC_DEC_DAY       ;状态3下日减一
       AJMP KEY_4_RET
KEY_4_4:
       CJNE A,#04H,KEY_4_RET
       LCALL INC_DEC_WEEK     ;状态4下星期减一
KEY_4_RET:
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;定时器中断服务程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TIMER:
        PUSH PSW
 PUSH ACC
 MOV  A,SECOND
 MOV  TH0,#3CH                ;T0装初始值
 MOV  TL0,#0B0H
 DJNZ INTNUM,RETURN           ;1秒未到,返回
 MOV  INTNUM,#0AH             ;重置中断次数
 INC  A
 CJNE A,#60,RETURN            ;是否到60秒,未到返回
        MOV  A,#00H          ;秒计满清零
 MOV  R7,#01H                 ;分钟加一
 LCALL INC_DEC_MINUTE
RETURN:
        MOV  SECOND,A
 POP  ACC
 POP  PSW
RETI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,增加年 
;         R7=0时,减少年
;         年的范围: 2000-2099
;用途:
;    1.作为INC_DEC_MONTH的子程序被调用
;    2.用于调整年
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_YEAR:
        PUSH ACC
 CJNE R7,#01,DEC_YEAR
INC_YEAR:
        MOV A,YEAR
 INC A
 CJNE A,#100,RET_YEAR         ;到达100年时复位到00年
 MOV A,0
 AJMP RET_YEAR
DEC_YEAR:
        MOV A,YEAR
        JZ DEC_YEAR1                 ;当前为0时,再减少则跳到99年
 DEC A
 AJMP RET_YEAR
DEC_YEAR1:
        MOV A,#99
RET_YEAR:
        MOV YEAR,A
 POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,增加一月,若大于12月时相应的增加一年
;         R7=0时,减少一月,若当前为1月时,再减少一月
;                则是12月,同时年减一
;用途:
;    1.作为INC_DEC_DAY的子程序被调用
;    2.用于调整月,同时可以改变年
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_MONTH:
        PUSH ACC
 CJNE R7,#01,DEC_MONTH
INC_MONTH:
        MOV A,MONTH
 INC A
 CJNE A,#13,RET_MONTH
 MOV R7,#01H
 LCALL INC_DEC_YEAR
 MOV A,#01H
 AJMP RET_MONTH
DEC_MONTH:
        MOV A,MONTH
 DEC A
 CJNE A,#0H,RET_MONTH
 MOV R7,#00H
 LCALL INC_DEC_YEAR
 MOV A,#12
RET_MONTH:
        MOV MONTH,A
 POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,星期加一
;         R7=0时,星期减一
;         不影响其他
;用途:
;    1.作为INC_DEC_DAY的子程序被调用
;    2.用于调整星期
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_WEEK:
       PUSH ACC
       CJNE R7,#01,DEC_WEEK
INC_WEEK:
       MOV A,WEEK
       INC A
       CJNE A,#08H,RET_WEEK
       MOV A,#01H
       AJMP RET_WEEK
DEC_WEEK:
       MOV A,WEEK
       DEC A
       CJNE A,#0H,RET_WEEK
       MOV A,#07H
RET_WEEK:
       MOV WEEK,A
       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,日加一,根据当前的年月来改变月份
;                同时星期加一.
;         R7=0时,日减一,同时改变月份,年.星期
;用途:
;    1.作为INC_DEC_HOUR的子程序被调用
;    2.用于调整日
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_DAY:
       PUSH ACC
       CJNE R7,#01H,DEC_DAY
INC_DAY:
       MOV R7,#01H
       LCALL INC_DEC_WEEK
       MOV A,DAY
       INC A
       LCALL SETMONTHDAYS
       MOV TEMP,MONTHDAYS
       INC TEMP
       CJNE A,TEMP,RET_DAY
       MOV R7,#01H
       LCALL INC_DEC_MONTH
       MOV A,#01H
       AJMP RET_DAY
DEC_DAY:
       MOV R7,#00H
       LCALL INC_DEC_WEEK
       MOV A,DAY
       DEC A
       CJNE A,#0H,RET_DAY
       MOV A,#00H
       LCALL INC_DEC_MONTH
       LCALL SETMONTHDAYS
       MOV A,MONTHDAYS
RET_DAY:
       MOV DAY,A
       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,增加一小时,同时有需要则改变日(星期),月,年
;         R7=0时,减少一小时,同时有需要则改变日(星期),月,年  
;用途:
;    1.作为INC_DEC_MINUTE的子程序被调用
;    2.用于调整当前小时        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_HOUR:
       PUSH ACC
       CJNE R7,#01H,DEC_HOUR
INC_HOUR:
       MOV A,HOUR
       INC A
       CJNE A,#24,RET_HOUR
       MOV R7,#01H
       LCALL INC_DEC_DAY
       MOV A,#00H
       AJMP RET_HOUR
DEC_HOUR:
       MOV A,HOUR
       JZ DEC_HOUR1
       DEC A
       AJMP RET_HOUR
DEC_HOUR1:
       MOV R7,#00H
       LCALL INC_DEC_DAY
       MOV A,#23
RET_HOUR:
       MOV HOUR,A
       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,增加一分钟,同时按需要改变小时...
;         R7=0时,减少一分钟................
;用途:
;    1.作为定时服务程序的子程序被调用
;    2.用于调整当前的分钟
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_MINUTE:
      PUSH ACC 
      CJNE R7,#01H,DEC_MINUTE
INC_MINUTE:
      MOV A,MINUTE
      INC A
      CJNE A,#60,RET_MINUTE
      MOV R7,#01H
      LCALL INC_DEC_HOUR
      MOV A,#00H
      AJMP RET_MINUTE
DEC_MINUTE:
      MOV A,MINUTE
      JZ DEC_MINUTE1
      DEC A
      AJMP RET_MINUTE
DEC_MINUTE1:
      MOV R7,#00H
      LCALL INC_DEC_HOUR
      MOV A,#59
RET_MINUTE:
      MOV MINUTE,A
      POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数: R7
;         R7=1时,闹钟小时增加一,不影响其他
;         R7=1时,闹钟小时减少一.......
;用途:
;    1.作为INC_DEC_ALAMINU的子程序被调用
;    2.用于调整闹钟的小时
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_ALAHOUR:
       PUSH ACC
       CJNE R7,#01H,DEC_ALAHOUR
INC_ALAHOUR:
       MOV A,ALAHOUR
       INC A
       CJNE A,#24,RET_ALAHOUR
       MOV A,#00H
       AJMP RET_ALAHOUR
DEC_ALAHOUR:
       MOV A,ALAHOUR
       JZ DEC_ALAHOUR1
       DEC A
       AJMP RET_ALAHOUR
DEC_ALAHOUR1:
       MOV A,#23
RET_ALAHOUR:
       MOV ALAHOUR,A
       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;入口参数:R7
;         R7=1时,闹钟分钟加一,同时该改变闹钟小时
;         R7=0时,闹钟分钟减一,..................
;用途:
;    1.用于调整闹钟的分钟
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INC_DEC_ALAMINU:
      PUSH ACC 
      CJNE R7,#01H,DEC_ALAMINU
INC_ALAMINU:
      MOV A,ALAMINU
      INC A
      CJNE A,#60,RET_ALAMINU
      MOV R7,#01H
      LCALL INC_DEC_ALAHOUR
      MOV A,#00H
      AJMP RET_ALAMINU
DEC_ALAMINU:
      MOV A,ALAMINU
      JZ DEC_ALAMINU1
      DEC A
      AJMP RET_ALAMINU
DEC_ALAMINU1:
      MOV R7,#00H
      LCALL INC_DEC_ALAHOUR
      MOV A,#59
RET_ALAMINU:
      MOV ALAMINU,A
      POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;求得当前月份所对应的天数
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SETMONTHDAYS:
        PUSH ACC
        PUSH DPH
 PUSH DPL
        MOV  DPTR,#DAYNUM        ;获得月天数的表地址
 MOV  A,MONTH             ;获得当前月份
 MOV  R0,MONTH
 DEC  A                   ;生成下标
 MOVC A,@A+DPTR           ;取表中的值
 MOV  MONTHDAYS,A         
 CJNE R0,#2H,CONTINUE     ;不是二月份则取表中的值
 MOV  A,YEAR              ;是二月份判断是否是闰年
        MOV  B,#4H
 DIV  AB
 MOV  A,#00H
 CJNE A,B,CONTINUE        ;是平年则跳转
        INC  MONTHDAYS           ;是闰年二月份为29天
CONTINUE:
 POP  DPL
 POP  DPH
 POP  ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;显示子程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DISPLAY:
       PUSH ACC
       MOV A,#LCD_SETVISIBLE+4 
       LCALL WRCMD
       MOV A,#LCD_HOME
       LCALL WRCMD
       MOV R5,STATE
       CJNE R5,#00H,DIS_1
       LCALL DISPLAY_0
       AJMP DIS_RET
DIS_1: 
       CJNE R5,#01H,DIS_2
       LCALL DISPLAY_1
       AJMP DIS_RET
DIS_2:
       CJNE R5,#02H,DIS_3
       LCALL DISPLAY_2
       AJMP DIS_RET
DIS_3:
       CJNE R5,#03H,DIS_4
       LCALL DISPLAY_3
       AJMP DIS_RET
DIS_4: 
       CJNE R5,#04H,DIS_RET
       LCALL DISPLAY_4
DIS_RET:
       POP ACC
RET
;;;;;;;;;;;;;;;
DISPLAY_0:
       PUSH ACC
       ;显示时间
       MOV A,#20H
       LCALL WRCHAR
       MOV R3,HOUR
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       MOV A,#3AH
       LCALL WRCHAR
       MOV R3,MINUTE
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       MOV A,#3AH
       LCALL WRCHAR
       MOV R3,SECOND
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       ;显示年
       MOV A,#20H
       LCALL WRCHAR
       MOV A,#20H
       LCALL WRCHAR
       MOV A,#32H
       LCALL WRCHAR
       MOV A,#30H
       LCALL WRCHAR
       MOV R3,YEAR
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       ;显示星期
       MOV A,#LCD_SETDDADDR+64
       LCALL WRCMD
       MOV A,#20H
       LCALL WRCHAR
       MOV A,#20
       LCALL WRCHAR
       
           MOV A,WEEK
       CJNE A,#01H,DIS_0_W1
       MOV DPTR,#MON
       AJMP DIS_0_RET
DIS_0_W1:
       CJNE A,#02H,DIS_0_W2
       MOV DPTR,#TUE
       AJMP DIS_0_RET
DIS_0_W2:
       CJNE A,#03H,DIS_0_W3
       MOV DPTR,#WED
       AJMP DIS_0_RET
DIS_0_W3:
       CJNE A,#04H,DIS_0_W4
       MOV DPTR,#THU
       AJMP DIS_0_RET
DIS_0_W4:
       CJNE A,#05H,DIS_0_W5
       MOV DPTR,#FRI
       AJMP DIS_0_RET
DIS_0_W5:
       CJNE A,#06H,DIS_0_W6
       MOV DPTR,#SAT
       AJMP DIS_0_RET
DIS_0_W6:
       CJNE A,#07H,DIS_0_RET
       MOV DPTR,#SUN
DIS_0_RET:
       LCALL WRSTR
       ;显示日期
       MOV A,#20H
       LCALL WRCHAR
       MOV A,#20H
       LCALL WRCHAR
       MOV R3,MONTH
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       MOV A,#2DH
       LCALL WRCHAR
       MOV R3,DAY
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       ;显示状态
       MOV A,#20H
       LCALL WRCHAR
       MOV A,ALAON
       CJNE A,#01H,RET_DSP_0
       MOV DPTR,#ON
       LCALL WRSTR
RET_DSP_0:
       
       POP ACC
RET
;;;;;;;;;;;;;;;
DISPLAY_1:
       PUSH ACC
       MOV A,#LCD_CLS
       LCALL WRCMD
       ;显示时间
       MOV A,#20H
       LCALL WRCHAR
       MOV R3,HOUR
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       MOV A,#3AH
       LCALL WRCHAR
       MOV R3,MINUTE
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       MOV A,#3AH
       LCALL WRCHAR
       MOV R3,SECOND
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR

       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;;
DISPLAY_2:
       PUSH ACC
       MOV A,#LCD_CLS
       LCALL WRCMD
       ;显示时间
       MOV A,#20H
       LCALL WRCHAR
       MOV R3,ALAHOUR
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       MOV A,#3AH
       LCALL WRCHAR
       MOV R3,ALAMINU
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       POP  ACC
   
RET
;;;;;;;;;;;;;;;;;;;;
DISPLAY_3:
       PUSH ACC
       MOV A,#LCD_CLS
       LCALL WRCMD
       ;;;;;;;;;;;;;;;
       ;显示日期
       MOV A,#20H
       LCALL WRCHAR
       MOV A,#20H
       LCALL WRCHAR
       MOV R3,MONTH
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       
       MOV A,#2DH
       LCALL WRCHAR
       MOV R3,DAY
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
 
       POP ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;
DISPLAY_4:
       PUSH ACC
       MOV A,#LCD_CLS
       LCALL WRCMD
       MOV A,#8BH
       LCALL WRCMD
       MOV A,#32H
       LCALL WRCHAR
       MOV A,#30H
       LCALL WRCHAR
       MOV R3,YEAR
       LCALL GETCHAR
       MOV A,R3
       LCALL WRCHAR
       MOV A,R4
       LCALL WRCHAR
       MOV A,#0C2H
       LCALL WRCMD
              MOV A,WEEK
       CJNE A,#01H,DIS_4_W1
       MOV DPTR,#MON
       AJMP DIS_4_RET
DIS_4_W1:
       CJNE A,#02H,DIS_4_W2
       MOV DPTR,#TUE
       AJMP DIS_4_RET
DIS_4_W2:
       CJNE A,#03H,DIS_4_W3
       MOV DPTR,#WED
       AJMP DIS_4_RET
DIS_4_W3:
       CJNE A,#04H,DIS_4_W4
       MOV DPTR,#THU
       AJMP DIS_4_RET
DIS_4_W4:
       CJNE A,#05H,DIS_4_W5
       MOV DPTR,#FRI
       AJMP DIS_4_RET
DIS_4_W5:
       CJNE A,#06H,DIS_4_W6
       MOV DPTR,#SAT
       AJMP DIS_4_RET
DIS_4_W6:
       CJNE A,#07H,DIS_4_RET
       MOV DPTR,#SUN
DIS_4_RET:
       LCALL WRSTR
       POP ACC 
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;获得x的显示码:
; 入口参数: R3:存放要被转换的数字
; 出口参数: R3:高位对应的显示码
;           R4:低微对应的显示码
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GETCHAR:
       PUSH ACC
       MOV  A,R3
       MOV  B,#10
       DIV  AB
       ADD  A,#30H
       MOV  R3,A
       MOV  A,B
       ADD  A,#30H
       MOV  R4,A
       POP  ACC
RET
;;;;;;;;;;;;;;;;;;;;;;;
;写以零结尾的字符串
;  首地址在DPTR中
wrstr: mov R0,#LCD_DATA_WR
wrstr1: clr A
 movc A,@A+DPTR
 jz wrstr2
 movx @R0,A
 call wtbusy
 inc DPTR
 push DPL
 push DPH
 pop DPH
 pop DPL 
 jmp wrstr1
wrstr2: ret
;;;;;;;;;;;;;;;;;;;;;;;
;写命令,命令控制字在A中
wrcmd: mov R0,#LCD_CMD_WR
 movx @R0,A
 jmp wtbusy

;写字字符,字符的代码放在A中
wrchar: mov R0,#LCD_DATA_WR
 movx @R0,A
;忙则等待
wtbusy: mov R1,#LCD_BUSY_RD
 movx A,@r1
 jb ACC.7,wtbusy
 ret
;;;;;;;;;;;;;;;
;液晶显示初始化
;;;;;;;;;;;;;;;
DIS_INI:
       ACALL D_15MS
       MOV A,30H
       MOV R0,#LCD_CMD_WR
       MOVX @R0,A
       ACALL D_5MS
       MOV A,#30H
       MOV R0,#LCD_CMD_WR
       MOVX @R0,A
       ACALL D_5MS
       MOV A,#30H
       MOV R0,#LCD_CMD_WR
       MOVX @R0,A
       MOV A,#38H       ;功能设置
       ACALL WRCMD
       MOV A,#08H       ;关显示
       ACALL WRCMD
       MOV A,#01H       ;清屏
       ACALL WRCMD
       MOV A,#06H       ;设定输入方式
       ACALL WRCMD
       ACALL D_40US    
       
       MOV A,#10H      ;光标移位
       ACALL WRCMD
       MOV A,#0C0H     ;开显示
       ACALL WRCMD
RET
;;;;;;;;
D_40US:
      MOV R1,#10
D_40US_1:
      NOP
      DJNZ R1,D_40US_1     
RET
;;;;;;;
D_5MS:
     MOV R1,#10
D_5MS_1:
     MOV R2,#125
D_5MS_2:
     NOP
     DJNZ R2,D_5MS_2
     DJNZ R1,D_5MS_1
RET
;;;;;;
D_15MS:
     MOV R0,#3
D_15MS_1:
     NOP
     DJNZ R0,D_15MS_1
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
END