Browse Source
Merge pull request #13 from b1ackmai1er/master
Display more config info at DS1302 RTC initialization
pull/14/head
Wayne Warthen
7 years ago
committed by
GitHub
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with
19 additions and
1 deletions
-
Source/HBIOS/dsrtc.asm
|
|
|
@ -122,7 +122,14 @@ DSRTC_INIT1: |
|
|
|
CALL DSRTC_CLK2TIM |
|
|
|
LD HL,DSRTC_TIMBUF |
|
|
|
CALL PRTDT |
|
|
|
; |
|
|
|
PRTS(" CHARGE=$") |
|
|
|
CALL DSRTC_TSTCHG |
|
|
|
JR NZ,NOCHG1 |
|
|
|
PRTS("ON$") |
|
|
|
JR NOCHG2 |
|
|
|
NOCHG1: |
|
|
|
PRTS("OFF$") |
|
|
|
NOCHG2: |
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
; |
|
|
|
@ -260,6 +267,17 @@ DSRTC_TIM2CLK: |
|
|
|
LD (DSRTC_DAY),A |
|
|
|
RET |
|
|
|
; |
|
|
|
; TEST CLOCK FOR CHARGE DATA |
|
|
|
; |
|
|
|
DSRTC_TSTCHG: |
|
|
|
LD C,$91 ; CHARGE RESISTOR & DIODE VALUES |
|
|
|
CALL DSRTC_CMD ; SEND THE COMMAND |
|
|
|
CALL DSRTC_GET ; READ THE REGISTER |
|
|
|
CALL DSRTC_END ; FINISH IT |
|
|
|
AND %11110000 ; CHECK FOR |
|
|
|
CP %10100000 ; ENABLED FLAG |
|
|
|
RET |
|
|
|
; |
|
|
|
; TEST CLOCK FOR VALID DATA |
|
|
|
; READ CLOCK HALT BIT AND RETURN ZF BASED ON BIT VALUE |
|
|
|
; 0 = RUNNING |
|
|
|
|
