Radstone PME 68-1B, Manual

Page: 124 / 132

Initialisation of the Real-time Clock
ORG $3000;
/* INITIALISE REALTIME CLOCK */
RTCLOCK : EQU @$C0400 ;/* MM58167A BASE ADDRESS */
COUNT_1000: EQU 1(A0) ;/* COUNTER REG OFFSETS */
COUNT_100 : EQU 3(A0) ;
COUNT_SECS: EQU 5(A0) ;
COUNT_MIN : EQU 7(A0) ;
COUNT_HOUR: EQU 9(A0) ;
COUNT_DAY : EQU 11(A0) ;
COUNT_WEEK: EQU 13(A0) ;
COUNT_MONT: EQU 15(A0) ;
COUNT_GO : EQU $2B(A0) ;/* GO COMMAND REGISTER */
HOUR : EQU # 08 ;/* TIME AND DATE */
DAY : EQU # 01 ;
WEEK : EQU # 11 ;
MONT : EQU # 02 ;
NULL : EQU $00 ;
START : EQU $FF ;/* START COMMAND */
STARTRTC:: LEA.L RTCLOCK,A0 ;/* GET BASE INTO A0 */
MOVE.B # NULL,COUNT_1000 ;/* PRESET COUNTERS */
MOVE.B # NULL,COUNT_100 :
MOVE.B # NULL,COUNT_SECS
;
MOVE.B # NULL,COUNT_MIN ;
MOVE.B # HOUR,COUNT_HOUR;
MOVE.B # DAY ,COUNT_DAY ;
MOVE.B # WEEK,COUNT_WEEK;
MOVE.B # MONT,COUNT_MONT;
MOVE.B # START,COUNT_GO ;/* START CLOCK */
TRAP # 14 ;;/* MONITOR CALL */
PME68-1B Manual
Page 118 Issue 5