home *** CD-ROM | disk | FTP | other *** search
-
-
- TRIM EQU 096H
- RTCSS EQU 0FAH
- RTCS EQU 0FBH
- RTCC EQU 0F9H
- P1 EQU 090H
-
- ORG 0000
- LJMP 100H
-
- ORG 0100H
-
- Debut SETB RTCC.0 ; RTC Enable = 1 --> Run Clock
- CLR TRIM.6 ; Qwartz = 6 pF
- CLR P1.2 ; Beep OFF
- BCL MOV A,RTCSS
- JZ SUITE
- SJMP BCL
-
- SUITE SETB P1.2 ; Beep ON
- ACALL TEMPO
- CLR P1.2 ; Beep OFF
- AJMP BCL
-
- TEMPO MOV R7,#0A0H
- TMP2 MOV R6,#0FFH
- DJNZ R6,$
- DJNZ R7,TMP2
- RET
-
-
-
-
-