Mercurial > hg > Members > kono > nitros9-code

changeset 997:2115299c9612

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DriveWire support
author boisy
date Mon, 24 Feb 2003 13:07:33 +0000
parents 4df2fdb9045f
children 50e65888ce5c
files level2/modules/clock.asm
diffstat 1 files changed, 41 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/clock.asm	Mon Feb 24 13:07:15 2003 +0000
+++ b/level2/modules/clock.asm	Mon Feb 24 13:07:33 2003 +0000
@@ -34,6 +34,10 @@
 *
 * Setup for specific RTC chip
 *
+         IFNE RTCDriveWire
+RTC.Base equ  $0000
+         ENDC
+
          IFNE RTCElim
 RTC.Sped equ $20 32.768 KHz, rate=0
 RTC.Strt equ $06 binary, 24 Hour, DST disabled
@@ -407,6 +411,42 @@
 
 
 *
+* Update time from DriveWire
+*
+         IFNE  RTCDriveWire
+
+         use   bbwrite.asm
+
+UpdTime  pshs  y,x,cc
+         lda   #'#		Time packet
+         orcc  #IntMasks	Disable interrupts
+         lbsr  SerWrite
+         bsr   SerRead		Read year byte
+         bcs   UpdLeave         
+         sta   <D.Year
+         bsr   SerRead		Read month byte
+         bcs   UpdLeave         
+         sta   <D.Month
+         bsr   SerRead		Read day byte
+         bcs   UpdLeave         
+         sta   <D.Day
+         bsr   SerRead		Read hour byte
+         bcs   UpdLeave         
+         sta   <D.Hour
+         bsr   SerRead		Read minute byte
+         bcs   UpdLeave         
+         sta   <D.Min
+         bsr   SerRead		Read second byte
+         bcs   UpdLeave         
+         sta   <D.Sec
+         bsr   SerRead		Read day of week (0-6) byte
+UpdLeave puls  cc,x,y,pc 
+
+         use   bbread.asm
+
+         ENDC
+
+*
 * Update time from B&B RTC
 *
          IFNE  RTCBB+RTCTc3
@@ -769,7 +809,7 @@
 *
 * No RTC, just end  (Also for SmartWatch, temporarily)
 *
-         IFNE  RTCSoft+RTCSmart
+         IFNE  RTCSoft+RTCSmart+RTCDriveWire
          rts
          ENDC