ORG 0000H
AJMP START
ORG 0003H
LJMP S_INT
ORG 000BH
LJMP P_INT
ORG 001BH
LJMP DISPLAY
;**************************** ;main program
ORG 0040H
START: CLR RST
MOV SP,#2AH
SETB 05H
CLR 06H
START1: SETB 07H; CLR 07H
SETB 08H
CLR 09H
CLR 0AH
CLR 0BH
CLR 0CH
SETB 0DH
CLR 0EH
CLR 0FH
CLR 10H
CLR 11H
CLR 21H
CLR 22H
CLR 23H
CLR 18H
CLR 24H
MOV P1,#00H
MOV P2,#0FFH
MOV R2,#00H ;
MOV R3,#00H ;
MOV TMOD,#12H
MOV TL1,#0e5H ;wait
MOV TH1,#0BeH
MOV TH0,#3FH ;200uS 3f
MOV TL0,#3FH
SETB ET0 ;設置中斷優先
SETB ET1
SETB PT0 ; 定時中斷優先0
SETB TR0
SETB TR1
SETB IT0 ;脈沖觸發T0
SETB EX0 ; 允許外中斷
CLR PX0 ;外部中斷0優先設0
;LCALL SET1302 ;初始化
NOP
MOV R1,#0C1H ;取定時參數從1302中
ACALL T_6061
NOP
MOV 6AH,A ;M
MOV R1,#0C3H
ACALL T_6061
MOV 6BH,A ;H
MOV 61H,#00H
MOV 62H,#00H
NOP
SETB EA
SJMP $
NOP
NOP
NOP
NOP
AJMP 0000H
NOP
NOP
NOP
LJMP 0000H
;*************DISPLAY*********
DISPLAY: PUSH ACC
PUSH PSW
MOV TL1,#0e0H ;wait how long to display (20ms)
MOV TH1,#0b0H
mov dptr,#TAB1
JB 18H,DISMAO ;分、秒
JB 0EH,DIS2 ;時
JB 0FH,DIS3 ;分
NOP
JB 10H,DIS4 ;鬧時
JB 11H,DIS5 ;鬧分
NOP
JB 21H,DIS6 ;年、月、日
JB 22H,DIS7 ;分、秒
NOP
JB 24H,DIS6
NOP
JB 18H,DISMAO
JNB 0DH,NEXD_OUT
NOP
JNB 08H,D_GO ;定時到時，顯示閃爍
NOP
JNB 07H,NEXD_OUT
NOP
LJMP D_GO;顯示時、分、秒
NOP
LJMP D_GO
NOP
NEXD_OUT:LJMP D_OUT
NOP
;*********************
DISMAO: LJMP DIS_7
DIS2: LJMP DIS_2
DIS3: LJMP DIS_3
DIS4: LJMP DIS_4
DIS5: LJMP DIS_5
DIS6: LJMP DIS_6
DIS7: LJMP DIS_6


;******************** 時、分、秒顯示
D_GO: MOV DPTR,#TAB1
MOV A,62H
ANL A,#0FH
MOV B,A
MOV A,62H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P1,A
CLR P2.0
LCALL DLIM
SETB P2.0
MOV A,B
MOVC A,@A+DPTR
MOV C,07H
MOV acc.0,C ;秒燈閃爍
MOV P1,A
CLR P2.1
LCALL DLIM
SETB P2.1
mov dptr,#TAB2 ;倒裝LED字段表
MOV A,61H
ANL A,#0FH
MOV B,A
MOV A,61H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV C,07H
MOV acc.1,C ;秒燈閃爍
MOV P1,A
MOV P1,A
CLR P2.2
LCALL DLIM
SETB P2.2
mov dptr,#TAB1
MOV A,B
MOVC A,@A+DPTR
MOV C,07H
MOV acc.0,C ;鬧鈴指示燈
MOV P1,A
CLR P2.3
LCALL DLIM
SETB P2.3
MOV DPTR,#TAB1 ;倒裝LED字段表
MOV A,60H
ANL A,#0FH
MOV B,A
MOV A,61H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV C,07H
MOV acc.1,C ;秒燈閃爍
MOV P1,A
MOV P1,A
CLR P2.4
LCALL DLIM
SETB P2.4
mov dptr,#TAB1
MOV A,B
MOVC A,@A+DPTR
MOV C,06H
CPL 06H
MOV acc.0,C ;鬧鈴指示燈
MOV P1,A
MOV P1,A
CLR P2.5
LCALL DLIM
SETB P2.5
D_OUT: SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
AJMP START1
DIS_7: MOV DPTR,#TAB1 ;分秒顯示
MOV A,61H
ANL A,#0FH
MOV B,A
MOV A,61H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P1,A
CLR P2.0
LCALL DLIM
SETB P2.0
MOV A,B
MOV DPTR,#TAB2
MOVC A,@A+DPTR
CLR C
MOV ACC.0,C
MOV P1,A
CLR P2.1
LCALL DLIM
SETB P2.1
MOV DPTR,#TAB1
MOV A,60H
ANL A,#0FH
MOV B,A
MOV A,60H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
CLR C
MOV ACC.0,C
MOV P1,A
CLR P2.2
CLR P2.2
LCALL DLIM
SETB P2.2
MOV P1,#0FFH
MOV DPTR,#TAB1
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
CLR P2.3
CLR P2.3
LCALL DLIM
SETB P2.3
SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
NOP
LJMP 0000H
DIS_2: mov dptr,#TAB1 ;顯示設置小時
MOV 6FH,62H
LCALL BCD_HEX
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV P1,A
CLR P2.0
LCALL DLIM
SETB P2.0
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
CLR P2.1
LCALL DLIM
SETB P2.1
SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0000H
;*****************
DIS_3: MOV DPTR,#TAB2 ;顯示設置分
MOV 6FH,61H
LCALL BCD_HEX
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV P1,A
CLR P2.2
CLR P2.2
LCALL DLIM
SETB P2.2
SETB P2.2
MOV A,B
MOV DPTR,#TAB1
MOVC A,@A+DPTR
MOV P1,A
CLR P2.3
CLR P2.3
LCALL DLIM
SETB P2.3
SETB P2.3
SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
NOP
LJMP 0000H
;*****************
DIS_4: MOV DPTR,#TAB1 ;顯示設置鬧時
JNB 07H,D4_OUT ;顯示時閃爍
MOV P1,#0FFH
MOV 6FH,6BH
LCALL BCD_HEX
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV P1,A
CLR P2.0
LCALL DLIM
SETB P2.0
MOV P1,#0FFH
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
CLR P2.1
LCALL DLIM
SETB P2.1
MOV P1,#0FFH
D4_OUT: SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0000H
;***********************
DIS_5: MOV DPTR,#TAB2
MOV P1,#0FFH
JNB 07H,D5_OUT ;顯示時閃爍
MOV 6FH,6AH ;顯示設置鬧分
LCALL BCD_HEX
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV P1,A
MOV P1,A
CLR P2.2
LCALL DLIM
SETB P2.2
MOV DPTR,#TAB1
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
CLR P2.3
LCALL DLIM
SETB P2.3
D5_OUT: SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0030H
DIS_6: MOV DPTR,#TAB1 ;顯示設置日月nian
MOV A,66H
ANL A,#0FH
MOV B,A
MOV A,66H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P1,A
CLR P2.0
LCALL DLIM
SETB P2.0
MOV A,B
MOVC A,@A+DPTR
CLR C
MOV ACC.0,C
MOV P1,A
CLR P2.1
CLR P2.1
LCALL DLIM
SETB P2.1
MOV P1,#0FFH
MOV DPTR,#TAB2
MOV A,64H
ANL A,#0FH
MOV B,A
MOV A,64H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P1,A
CLR P2.2
CLR P2.2
LCALL DLIM
SETB P2.2
MOV DPTR,#TAB1
MOV A,B
MOVC A,@A+DPTR
CLR C
MOV ACC.0,C
MOV P1,A
CLR P2.3
CLR P2.3
LCALL DLIM
SETB P2.3
MOV P1,#0FFH
MOV DPTR,#TAB2
MOV A,63H
ANL A,#0FH
MOV B,A
MOV A,63H
SWAP A
ANL A,#0FH
MOVC A,@A+DPTR
MOV P1,A
CLR P2.4
LCALL DLIM
SETB P2.4
MOV DPTR,#TAB1
MOV A,B
MOVC A,@A+DPTR
MOV P1,A
CLR P2.5
CLR P2.5
LCALL DLIM
SETB P2.5
SETB TR1
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0030H
;*****************************
DLIM: MOV 43H,#14H ; every LED(2ms)
DL2: MOV 44H,#14H
DL1: NOP
NOP
DJNZ 44H,DL1
DJNZ 43H,DL2
RET

TAB1: DB 03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H
TAB2: DB 03H,0F3H,4AH,62H,0B2H,26H,06H,73H,02H,22H;倒裝LED段碼表
;**************定時讀取數1302及判斷*******
P_INT: PUSH ACC
PUSH PSW
INC R2
CJNE R2,#250D,P_OUT
MOV R2,#00H
INC R3
CJNE R3,#10D,P_OUT
MOV R3,#00H
CPL 07H
MOV P1,#0FFH
ACALL R_1302
NOP
ACALL R_1302
NOP
OUT: JNB 06H,P_OUT
MOV 6FH,6BH
LCALL BCD_HEX
MOV B,#10
DIV AB
SWAP A
ADD A,B
CJNE A,62H,PP_OUT
MOV 6FH,6AH
LCALL BCD_HEX
MOV B,#10
DIV AB
SWAP A
ADD A,B
CJNE A,61H,PP_OUT
SETB 08H ;定時到標志
MOV C,06H
CPL C
MOV K_ON,C
NOP
P_OUT: POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0000H
PP_OUT: SETB K_ON
CLR 08H
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0000H
;*******有接收遙控信號**********
S_INT: CLR EA
PUSH ACC
PUSH PSW
PUSH DPH
PUSH DPL
PUSH 02H
PUSH 03H
MOV R6,#10D
SB: ACALL YS1
JB P3.2,EXIT
DJNZ R6,SB
JNB P3.2,$
ACALL YS2
JB P3.2,EXIT
MOV R1,#1AH
MOV R2,#04H
PP: MOV R3,#08H
IIII: JNB P3.2,$
ACALL YS1
NOP
MOV C,P3.2
JNC UUU
JB P3.2,$
UUU: MOV A,@R1
RRC A
MOV @R1,A
DJNZ R3,IIII
INC R1
DJNZ R2,PP
;------解碼驗證-------
MOV A,1AH
XRL A,#40H;判斷遙控低8位
JNZ EXIT
MOV A,1BH
XRL A,#0BFH;高8位是否正確
JNZ EXIT
MOV A,1CH
CPL A
XRL A,1DH;將功1CH和1DH比,不同無效
JNZ EXIT
ACALL DO
EXIT: SETB EA
POP 03H
POP 02H
POP DPL
POP DPH
POP PSW
POP ACC
NOP
NOP
RETI
NOP
NOP
LJMP 0030H
;--------延時-------
YS1: MOV 70H,#20D
D1: MOV 71H,#20D
DJNZ 71H,$
DJNZ 70H,D1
RET

YS2: MOV 70H,#10D ;延時2
D2: MOV 71H,#235D
DJNZ 71H,$

DJNZ 70H,D2
RET

;0CH 為設置標志，0DH為全顯示標志，0EH為顯示設置小時標志，0FH為顯示設置分標志
;10H 為顯示設置鬧時標志，11H為顯示設置鬧分標志
;增加鬧時靜音功能
;mute-10h,timer-0eh,left-46h,right-47h,up-19h,down-1dh

DO: MOV A,1CH
CJNE A,#TIMERT,REDO ;代碼不是設置/退出鍵
JNB 0CH,SET1 ;是，則進入
CLR 0CH ;是，已經進入，則退出
SETB 0DH ;恢復正常顯示
CLR 0EH
CLR 0FH
CLR 10H
CLR 11H
CLR 21H
CLR 22H
CLR 13H
CLR 18H
CLR 24H
NOP
NOP
RET

SET1: SETB 0CH
SETB 0EH
CLR 0DH
CLR 0FH
CLR 10H
CLR 11H
CLR 21H
CLR 22H
CLR 13H
CLR 18H
CLR 24H
NOP
NOP
RET

REDO: CJNE A,#MUTEM,SET2D1 ;不是設置鍵的處理REDO1,2,3,4...
LJMP MUTE ;MUTE?
SET2D1: CJNE A, #FEIMAO,SET2D3
LJMP DFEIMAO

SET2D3: CJNE A,#FANHUI,SET2D4
LJMP SET1302
SET2D4: CJNE A,#RECALL,REDO1
LJMP RECALL2
REDO1: CJNE A,#D_OFF,DO_SET2
LJMP DIS_OFF ;關閉顯示
DO_SET2:JB 0CH,SET2 ;時間設置的處理
RET
SET2: CJNE A,#UPU,SET2A
SETB 23H
LJMP INC1;加(^)
SET2A: CJNE A,#DOWND,SET2B
CLR 23H
LJMP INC1;減(-)
SET2B: CJNE A,#RIGHTR,SET2C
LJMP RIGHT; 右移(>)
SET2C: CJNE A,#LEFTL,SET2D
LJMP LEFT; 左移(<)

SET2D: CJNE A,#FANHUI,SET2EXT
LJMP SET1302
SET2EXT:NOP
NOP
RET
RECALL2: CPL 24H ;
CLR 0EH
CLR 0FH
CLR 10H
CLR 11H
RET
DFEIMAO: CPL 18H
CLR 22H
CLR 21H
CLR 0FH
CLR 0EH
CLR 10H
CLR 11H
RET



;--------------
RIGHT: JB 0EH,RIGHT1
JB 0FH,RIGHT2
JB 10H,RIGHT3
NOP
JB 11H,RIGHT4
JB 21H,RIGHT5
NOP
JB 22H,RIGHT6
JB 25H,RIGHT7
RET
RIGHT1: CLR 0EH
SETB 0FH
RET
RIGHT2: CLR 0FH
SETB 10H
RET
RIGHT3: CLR 10H
SETB 11H
RET
RIGHT4: CLR 11H
SETB 21H
RET
RIGHT5: CLR 21H
SETB 22H
RET
RIGHT6: CLR 22H
SETB 25H
RET
RIGHT7:CLR 25H
SETB 0EH
RET
;*****LEFT******
LEFT: JB 0EH,LEFT1
JB 0FH,LEFT2
NOP
JB 10H,LEFT3
JB 11H,LEFT4
NOP
JB 21H,LEFT5
JB 22H,LEFT6
JB 25H,LEFT7
NOP
NOP
RET
LEFT1: SETB 25H
CLR 0EH
NOP
RET
LEFT2: SETB 0EH
CLR 0FH
NOP
RET
LEFT3: SETB 0FH
CLR 10H
NOP
RET
LEFT4: SETB 10H
CLR 11H
NOP
RET
LEFT5: SETB 11H
CLR 21H
NOP
RET
LEFT6: SETB 21H
CLR 22H
NOP
RET
LEFT7: SETB 22H
CLR 25H
NOP
RET
;*****MUTE***DISPLAY OFF********
MUTE:SETB K_ON
CPL 06H
CLR 08H
RET
DIS_OFF:CLR ET1;
CPL 05H
JNB 05H,REDORE
SETB ET1
REDORE: RET
LJMP START1
;***********INC*******DEC*******
INC1: JB 0EH,INCH
JB 0FH,INCM
JB 10H,INC_H
JB 11H,INC_M
JB 21H,INC_DA
JB 22H,INC_DAA
JB 25H,INC_YEAR
RET

INCH: MOV R0,#062H
MOV 5FH,#084H
MOV 5EH,#24D
JNB 23H,DEC23H
ACALL INC11
NOP
RET

DEC23H: ACALL DEC11
NOP
RET
INCM: MOV R0,#061H
MOV 5FH,#082H
MOV 5EH,#60D
JNB 23H,DEC23M
ACALL INC11
NOP
RET

DEC23M:ACALL DEC11
NOP
RET
INC_H: MOV R0,#06BH

MOV 5FH,#0C2H
MOV 5EH,#018H
JNB 23H,DEC_H
ACALL INC11
NOP
RET

DEC_H: ACALL DEC11
NOP
RET
INC_M: MOV R0,#06AH
MOV 5FH,#0C0H
MOV 5EH,#60D
JNB 23H,DEC_M
ACALL INC11
NOP
RET

DEC_M: ACALL DEC11
NOP
RET
INC_YEAR:MOV R0,#66H
MOV 5FH,#08CH
MOV 5EH,#100D
JNB 23H,DEC_YEAR
LCALL INC11
NOP
RET
DEC_YEAR:LCALL DEC10
NOP
RET
INC_DA: MOV R0,#064H
MOV 5FH,#088H
MOV 5EH,#13D
JNB 23H,DEC_DA
ACALL INC10
NOP
RET

DEC_DA: ACALL DEC10
NOP
RET
INC_DAA: MOV R0,#63H
MOV 5FH,#086H
MOV 5EH,#32D
JNB 23H,DEC_DAA
ACALL INC10
NOP
RET
DEC_DAA: ACALL DEC10
NOP
RET
;-------INC11 DEC11--------
INC11: MOV 6FH,@R0
LCALL BCD_HEX
NOP
INC A
CJNE A,5EH,INCH1
MOV A,#00H
INCH1: MOV 6FH, A
LCALL HEX_BCD
MOV @R0, A
MOV R1,5FH
MOV R0,A
LCALL SETONE
NOP
RET
LJMP START1
DEC11: MOV 6FH,@R0
LCALL BCD_HEX
NOP

DEC A
CJNE A,#0FFH,DECH1
MOV A,5EH
DEC A
DECH1: MOV 6FH,A
lCALL HEX_BCD
NOP
MOV @R0,A
MOV R1,5FH
MOV R0,A
LCALL SETONE;寫入1302

NOP
RET
LJMP START1
;------INC10 DEC10--------
INC10: MOV 6FH,@R0
LCALL BCD_HEX
NOP
INC A
CJNE A,5EH,INCH15
MOV A,#01H

INCH15: MOV 6FH, A
LCALL HEX_BCD
NOP
MOV @R0, A
MOV R1,5FH
MOV R0,A
LCALL SETONE
NOP
RET
DEC10: MOV 6FH,@R0
LCALL BCD_HEX
NOP
DEC A
CJNE A,#00H,DECH15
MOV A,5EH
DEC A
DECH15: MOV 6FH,A
LCALL HEX_BCD
NOP
MOV @R0,A
MOV R1,5FH
MOV R0,A
LCALL SETONE;寫入1302
NOP
NOP
RET
NOP
NOP
LJMP 0030H
;------------------------------------初始化1302-------------------------
SET1302: PUSH PSW
CLR RST ;2006年1月1日12:00:00
NOP
CLR DS1302CLK
MOV SECOND,#0
MOV 61H,#0
MOV 62H,#18 ;
MOV 63H,#1
MOV 64H,#1
MOV 65H,#1
MOV 66H,#06
MOV 67H,#20
SETB RST
MOV A,#8EH
LCALL R_BIT
MOV A,#00H
LCALL R_BIT
SETB DS1302CLK
CLR RST
NOP
MOV R0,#SECOND
MOV R7,#7
MOV R1,#80H
SET1302A:CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,R1
SETB RST
LCALL R_BIT
MOV A,@R0
LCALL R_BIT
INC R0
INC R1
INC R1
SETB DS1302CLK
CLR RST
NOP
DJNZ R7,SET1302A
CLR RST
CLR DS1302CLK
NOP
SETB DS1302CLK
nop
CLR RST
nop
clr DS1302CLK
SETB RST
MOV A,#90H
LCALL R_BIT
MOV A,#10100101B ;充電器設置
LCALL R_BIT
SETB DS1302CLK
CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,#8EH
LCALL R_BIT
MOV A,#80H
LCALL R_BIT
SETB DS1302CLK
CLR RST
POP PSW
NOP
NOP
RET
NOP
NOP
LJMP START1
;----------------------讀取一RAM ------
T_6061: CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,R1

LCALL R_BIT
NOP
LCALL W_BIT
SETB DS1302CLK
CLR RST
RET
LJMP START1
;-----------------------------
R_1302: PUSH PSW
MOV R0,#SECOND
MOV R7,#7
MOV R1,#81H
R_1302A: CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,R1
LCALL R_BIT
LCALL W_BIT
NOP
MOV @R0,A
INC R0
INC R1
INC R1
SETB DS1302CLK
CLR RST
NOP
DJNZ R7,R_1302A
MOV R0,#6AH
MOV R7,#2
MOV R1,#0C1H
R_1302B: CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,R1
LCALL R_BIT
LCALL W_BIT
NOP
MOV @R0,A
INC R0
INC R1
INC R1
SETB DS1302CLK
CLR RST
NOP
DJNZ R7,R_1302B
POP PSW
NOP
NOP
RET
LJMP 0030H
;------------------R_BIT------------------
R_BIT: MOV R4,#8
R_BIT1: RRC A
MOV DS1302IO,C
NOP
SETB DS1302CLK
NOP
CLR DS1302CLK
NOP
DJNZ R4,R_BIT1
RET
;-------------------W_BIT-----------------------
W_BIT: CLR DS1302CLK
MOV R4,#8
W_BIT1: MOV C,DS1302IO
NOP
RRC A
SETB DS1302CLK
NOP
CLR DS1302CLK
DJNZ R4,W_BIT1
RET
;---------------6FH-----------------------------
BCD_HEX:
MOV A,6FH
ANL A,#0FH
MOV B,A
MOV A,6FH

MOV 6FH,B
SWAP A
ANL A,#0FH
MOV B,#0AH
MUL AB
ADD A,6FH
;MOV 6FH,A
RET
LJMP START1

HEX_BCD:
MOV A,6FH
MOV B,#10
DIV AB
SWAP A
ADD A,B
;MOV 6FH,A
NOP
NOP
RET
LJMP START1

;-----寫一地址---R1 為地址，R0 為數據----------
SETONE: PUSH PSW
CLR DS1302CLK
CLR RST
NOP
CLR DS1302CLK
NOP
SETB RST
MOV A,#8EH
LCALL R_BIT
MOV A,#00H
LCALL R_BIT
SETB DS1302CLK
NOP
CLR RST
NOP
CLR DS1302CLK
NOP
CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,R1
LCALL R_BIT
MOV A,R0
LCALL R_BIT
NOP
SETB DS1302CLK
NOP
CLR RST
NOP
NOP
CLR RST
CLR DS1302CLK
NOP
SETB RST
MOV A,#8EH
LCALL R_BIT
MOV A,#80H
LCALL R_BIT
SETB DS1302CLK
CLR RST
POP PSW
NOP
NOP
RET
LJMP 0000H
NOP
NOP
LJMP 0000H
NOP
NOP
NOP
LJMP 0000H
NOP
NOP
NOP
LJMP 0000H
END