A51 MACRO ASSEMBLER  DS1302                                                               07/04/2005 18:31:16 PAGE     1


MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN ds1302.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE ds1302.a51 SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  0091                 1     B_SCLK  EQU     P1.1
  0093                 2     B_RST   EQU     P1.3
  0092                 3     B_SIO   EQU     P1.2
                       4     
0000                   5     ORG 0000H
0000                   6     MAIN:
0000 758140            7             MOV SP,#40H
                       8     
0003 7820              9             MOV R0,#20H
0005 7A07             10             MOV R2,#7
                      11     
                      12             ;LCALL SET_TIME
                      13     
0007 120123           14             LCALL GET_TIME
000A 12013C           15             LCALL OPENF_COM
000D 120155           16             LCALL SEND_COM
                      17     ;       MOV R3,#84H
                      18     ;       LCALL READ_DATA
                      19     ;       LCALL GET_TIME
0010 80EE             20             JMP MAIN
                      21     ;------------------------------------------------------
                      22     ;向DS1302發送一個字節，發送示軦CC
                      23     ;輸入：ACC，輸出:空
                      24     ;------------------------------------------------------
0012                  25     SEND_BYTE:
0012 8AF0             26             MOV B,R2
0014 7A08             27             MOV R2,#8
0016                  28     SEND_BYTE1:
0016 13               29             RRC A
0017 9292             30             MOV B_SIO,C
0019 D291             31             SETB B_SCLK
001B 00               32             NOP
001C 00               33             NOP
001D C291             34             CLR B_SCLK
001F DAF5             35             DJNZ R2,SEND_BYTE1
0021 AAF0             36             MOV R2,B
0023 22               37             RET
                      38     ;---------------------------------------------------
                      39     ;從DS1302接受一個字節示萁郵蓯據放入ACC
                      40     ;輸入：空，輸出:ACC
                      41     ;---------------------------------------------------
0024                  42     GET_BYTE:
0024 8AF0             43             MOV B,R2
0026 7A08             44             MOV R2,#8
0028 E4               45             CLR A
0029                  46     GET_BYTE1:
0029 A292             47             MOV C,B_SIO
002B 13               48             RRC A
002C D291             49             SETB B_SCLK
002E 00               50             NOP
002F 00               51             NOP
0030 C291             52             CLR B_SCLK      
0032 DAF5             53             DJNZ R2,GET_BYTE1
0034 AAF0             54             MOV R2,B
0036 22               55             RET
                      56     ;--------------------------------------------------
                      57     ;向DS1302寫一個示藎盒慈氳刂販旁赗3,寫入示莘旁贏CC
                      58     ;輸入：R3、ACC，輸出:空
A51 MACRO ASSEMBLER  DS1302                                                               07/04/2005 18:31:16 PAGE     2

                      59     ;--------------------------------------------------             
0037                  60     WRITE_DATA:
0037 C293             61             CLR B_RST
0039 C291             62             CLR B_SCLK
003B D293             63             SETB B_RST
003D C0E0             64             PUSH ACC
003F EB               65             MOV A,R3
0040 120012           66             LCALL SEND_BYTE                                 ;發送地址（R3）
0043 D0E0             67             POP ACC
0045 120012           68             LCALL SEND_BYTE                                 ;發送示藎ˋCC）
0048 D291             69             SETB B_SCLK                     
004A C293             70             CLR B_RST
004C 22               71             RET
                      72     ;---------------------------------------------------
                      73     ;從DS1302讀一個示藎閡