⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 m41t0.lst

📁 实时时钟M41T0源程序,你只要定议好引脚,便能使用,主程序是一个应用试验
💻 LST
📖 第 1 页 / 共 2 页
字号:
                                                                    页     1
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

            ;  时钟元件M41T0调试程序
                    T_SCL   EQU   P1.6   ;时钟
                    T_SDA   EQU   P1.3   ;数据
                    DATA1   EQU   10H    ;汉字的高位
                    DATA2   EQU   11H    ;汉字的低位
                    ;  年  月   日   时   分   秒   星   期
                    ;C4EA D4C2 C8D5 CAB1 B7D6 C3EB D0C7 C6DA 
                    ORG   2000H
2000 90E010         MOV   DPTR,#0E010H
2003 7400           MOV   A,#0
2005 F0             MOVX  @DPTR,A
2006 7801           MOV  R0,#01H
            R_CLR:
2008 7400           MOV  A,#0
200A F6             MOV  @R0,A
200B 08             INC  R0
200C B87FF9         CJNE R0,#7FH,R_CLR
            
200F 758150         MOV   SP,#50H
2012 D296           SETB  T_SCL
2014 00             NOP
2015 D293           SETB  T_SDA
            ;调试格式
            ;#RDDRDDRDDRDDRDD..*    R---读命令  DD 地址
            ;#WDDXXWDDXXWDDXX..*    W---写命令  DD 地址  XX 数据
            START:
2017 3098FD         JNB   RI,$
201A E599           MOV   A,SBUF
201C C298           CLR   RI
201E B423F6         CJNE  A,#23H,START        ;#  START
2021 7830           MOV   R0,#30H
            MAIN:
2023 3098FD         JNB   RI,MAIN
2026 C298           CLR   RI
2028 E599           MOV   A,SBUF
202A F6             MOV   @R0,A
202B 08             INC   R0
202C B42AF4         CJNE  A,#2AH,MAIN        ;* END
            
202F 7830           MOV   R0,#30H             ;DOING
2031 E6             MOV   A,@R0
            MAIN_W_R:
2032 B45243         CJNE  A,#52H,MAIN2        ;R  READ
2035 08             INC   R0
2036 E6             MOV   A,@R0
2037 120400         LCALL 0400H
203A 540F           ANL   A,#0FH
203C C4             SWAP  A


E:\ZHUXIANWU\USER\汇编\M41T0\M41T0.ASM                          
 
                                                                    页     2
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

203D F5F0           MOV   B,A
            
203F 08             INC   R0
2040 E6             MOV   A,@R0
2041 120400         LCALL 0400H
2044 540F           ANL   A,#0FH
2046 45F0           ORL   A,B
                    
2048 1220C4         LCALL BIJIAO
                    
204B 12212F         LCALL DATE_READ
204E 120430         LCALL 0430H
2051 855E99         MOV   SBUF,5EH
2054 3099FD         JNB   TI,$
2057 C299           CLR   TI
2059 F599           MOV   SBUF,A
205B 3099FD         JNB   TI,$
205E C299           CLR   TI      
                    
2060 851099         MOV   SBUF,DATA1
2063 3099FD         JNB   TI,$
2066 C299           CLR   TI
2068 851199         MOV   SBUF,DATA2
206B 3099FD         JNB   TI,$
206E C299           CLR   TI  
            
2070 08             INC   R0
2071 E6             MOV   A,@R0
2072 B42ABD         CJNE  A,#2AH,MAIN_W_R
            
2075 022017         LJMP  START
                    
            MAIN2:
2078 B4579C         CJNE  A,#57H,START        ;W  WRITE
207B 08             INC   R0
207C E6             MOV   A,@R0
207D 120400         LCALL 0400H
2080 540F           ANL   A,#0FH
2082 C4             SWAP  A
2083 F5F0           MOV   B,A
            
2085 08             INC   R0
2086 E6             MOV   A,@R0
2087 120400         LCALL 0400H
208A 540F           ANL   A,#0FH
208C 45F0           ORL   A,B
208E F5F0           MOV   B,A
            


E:\ZHUXIANWU\USER\汇编\M41T0\M41T0.ASM                          
 
                                                                    页     3
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

2090 08             INC   R0
2091 E6             MOV   A,@R0
2092 120400         LCALL 0400H
2095 540F           ANL   A,#0FH
2097 C4             SWAP  A
2098 F520           MOV   20H,A
            
209A 08             INC   R0
209B E6             MOV   A,@R0
209C 120400         LCALL 0400H
209F 540F           ANL   A,#0FH
20A1 4520           ORL   A,20H
            
20A3 1221C2         LCALL DATE_WRITE
20A6 08             INC   R0
20A7 E6             MOV   A,@R0
20A8 B42A03         CJNE  A,#2AH,MAIN_W_R_T
20AB 022017         LJMP  START
            MAIN_W_R_T:
20AE 022032         LJMP  MAIN_W_R        
            send:
20B1 120430    lcall 0430h
20B4 855E99    mov   sbuf,5eh
20B7 3099FD    jnb   ti,$
20BA C299      clr   ti
20BC F599      mov   sbuf,a
20BE 3099FD    jnb   ti,$
20C1 C299      clr   ti
20C3 22        ret
                    ;  年  月   日   时   分   秒   星   期       周
                    ;C4EA D4C2 C8D5 CAB1 B7D6 C3EB D0C7 C6DA     D6DC
               
            BIJIAO:
20C4 B40007         CJNE A,#00H,BIJIAO1
20C7 7510C3         MOV  DATA1,#0C3H
20CA 7511EB         MOV  DATA2,#0EBH
20CD 22             RET
            BIJIAO1:
20CE B40107         CJNE A,#01H,BIJIAO2
20D1 7510B7         MOV  DATA1,#0B7H
20D4 7511D6         MOV  DATA2,#0D6H
20D7 22             RET
            
            BIJIAO2:
20D8 B40207         CJNE A,#02H,BIJIAO3
20DB 7510CA         MOV  DATA1,#0CAH
20DE 7511B1         MOV  DATA2,#0B1H
20E1 22             RET


E:\ZHUXIANWU\USER\汇编\M41T0\M41T0.ASM                          
 
                                                                    页     4
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

            
            BIJIAO3:
20E2 B40407         CJNE A,#04H,BIJIAO4
20E5 7510C8         MOV  DATA1,#0C8H
20E8 7511D5         MOV  DATA2,#0D5H
20EB 22             RET
            
            BIJIAO4:
20EC B40507         CJNE A,#05H,BIJIAO5
20EF 7510D4         MOV  DATA1,#0D4H
20F2 7511C2         MOV  DATA2,#0C2H
20F5 22             RET
            
            BIJIAO5:
20F6 B40607         CJNE A,#06H,BIJIAO6
20F9 7510C4         MOV  DATA1,#0C4H
20FC 7511EA         MOV  DATA2,#0EAH
20FF 22             RET
                    
            BIJIAO6: ;星期   D0C7 C6DA
2100 759920         MOV  SBUF,#20H
2103 3099FD         JNB  TI,$
2106 C299           CLR  TI
2108 7599D0         MOV  SBUF,#0D0H
210B 3099FD         JNB  TI,$
210E C299           CLR  TI
2110 7599C7         MOV  SBUF,#0C7H
2113 3099FD         JNB  TI,$
2116 C299           CLR  TI
2118 7599C6         MOV  SBUF,#0C6H
211B 3099FD         JNB  TI,$
211E C299           CLR  TI
2120 7599DA         MOV  SBUF,#0DAH
2123 3099FD         JNB  TI,$
2126 C299           CLR  TI
2128 751020         MOV  DATA1,#20H
212B 751120         MOV  DATA2,#20H
212E 22             RET            
            
            ;*******************************************************
            ;  M41T0-- address table(地址表)
            ;  00:seconds
            ;  01:minutes
            ;  02:hours
            ;  03:week
            ;  04:date
            ;  05:mouth
            ;  06:year


E:\ZHUXIANWU\USER\汇编\M41T0\M41T0.ASM                          
 
                                                                    页     5
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

            ;  07:control
            ;====================================================
            ;        T_SCL   EQU   P1.6   ;时钟
            ;        T_SDA   EQU   P1.3   ;数据
            ;  要读的地址由A送入(地址表如上)
            ;  读出的数据在A中(ASC码)
            DATE_READ:
212F C293           CLR   T_SDA
2131 00             NOP             ;启动
2132 00             NOP
2133 00     	NOP
2134 C296           CLR   T_SCL
                 ;------------------------
2136 C0E0           PUSH  ACC
2138 74D0           MOV   A,#0D0H   ;准备写命令
213A 7D08           MOV   R5,#08H   ;准备8位的记数
            READ_WRITE1:
213C 33             RLC   A
213D 9293           MOV   T_SDA,C
213F 00     	NOP
2140 D296           SETB  T_SCL
2142 00             NOP             ;一个高脉冲,由低到高--再拉低
2143 00             NOP
2144 C296           CLR   T_SCL     ;写命令
2146 DDF4           DJNZ  R5,READ_WRITE1
            
                  ;---------------------
2148 C293           CLR   T_SDA
214A 00             NOP
214B 00             NOP
214C D296           SETB  T_SCL    ;一个空脉冲
214E 00             NOP
214F 00             NOP
2150 C296           CLR   T_SCL
2152 00             NOP
2153 00             NOP
                  ;----------------------
            
2154 D0E0           POP   ACC
2156 7D08           MOV   R5,#08H
            READ_WRITE2:
2158 33             RLC   A
2159 9293           MOV   T_SDA,C
215B 00             NOP
215C D296           SETB  T_SCL
215E 00             NOP             ;一个高脉冲,由低到高--再拉低
215F 00             NOP
2160 C296           CLR   T_SCL       ;写地址


E:\ZHUXIANWU\USER\汇编\M41T0\M41T0.ASM                          
 
                                                                    页     6
                                                                    12-09-04
                                                                    16:41:47
伟福汇编器 V5.00                             Copyright (c) 1989, 2001 by CHY

地址  机器码 源程序

2162 DDF4           DJNZ  R5,READ_WRITE2
                 ;-------------------------
2164 C293           CLR  T_SDA
2166 00             NOP
2167 00             NOP
2168 D296           SETB  T_SCL    ;一个空脉冲
216A 00             NOP
216B 00             NOP
216C C296           CLR   T_SCL
216E 00             NOP
216F 00             NOP
                 ;--------------------------
                 ;-------------------------
                    ;读前的在一次启动
2170 D296           SETB  T_SCL
2172 00     	NOP
2173 00     	NOP
2174 D293           SETB  T_SDA
2176 00             NOP
2177 00             NOP
2178 C293           CLR   T_SDA
217A 00             NOP
217B 00             NOP

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -