; CallBack2Life.Asm    Copyright 1989  by Andrew Kopp        16-May-89
; -----------------
; THIS IS PERHAPS NOT THE BEST BUT AT LEAST ONE WAY TO "CALL BACK TO LIFE"
; THE BATTERY BACKUP CLOCK EVEN IF YOU HAVE YOUR PERSONAL EXPERIENCE
; WITH RESETTING CLOCKS ON HARDWARE LEVEL !
; AFTER A NONE-MEDITATIONING SYSTEM CRASH MY CLOCK WAS NOT FOUND BY
; THE "SETCLOCK LOAD" COMMAND AND OPTIONAL RESET WON`T WORK (V1.3).
; THIS IS A BUG OF THE SETCLOCK 1.3 RELEASE !
;
; A BLOCKFILL IN THE LOCATION OF THAT DEVICE WAS ABLE TO REVIVE IT !
; FOR COMPAREABLE FUTURE EVENTS AND FOR YOU I WROTE DOWN MY EXPERIENCE
; IN AN EXECUTEABLE. WHEN THE CODE TERMINATES YOU GET FROM SETCLOCK A
;
; <unset> <unset> <unset>
;
; NOW SET YOU SYSTEM TIMER TO THE ACTUAL TIME AND RUN SETCLOCK WITH SAVE
; OPTION TO STORE IT TO THE BATTERY BACKUP CLOCK.
; IF YOU CAN'T REVIVE YOUR CLOCK WITH THIS PROGRAM WITHOUT REMOVING THE
; THE STANDBY POWER OF YOUR CLOCK PLEASE SEND A NOTE !
;
; ---------------------------------------------------------------------
; THIS PROGRAM MAY BE FREELY DISTRIBUTED AS LONG AS :
;
; - NO PARTS ARE CHANGED => COPY AS IS
; - NOT MORE THAN 5 US$ FOR DISK COPY FEE
; - NO FEE ON BBS FILEBASES
;
; ---------------------------------------------------------------------
; - PAPERMAIL -       - EMAILs -
;
; Andrew Kopp        UUCP: via <CB> (see below)
; Zu den Tannen 13
; D-5810 Witten 3     BBS Ffm Dungeon : <049> 069 4990769 (Charly)
; - Fed.Rep.Ger -     German BTX Serv.: 0230279655-0001
; ---------------------------------------------------------------------
;*
;* ______  /
;* ______\O                     - The Software Brewery -
;*       \\
;*        o           Sparkling, fresh software from West-Germany
;*
;*      @@@@@             Straight from the bar to your Amiga
;*      |~~~|\
;*      | | |/
;*      |___|        With our regards to the Software Distillery
;*
;* The Brewers are:
;* Christian Balzer alias <CB>, Lattice C, user interfaces, beer addict.
;* Heiko Rath alias <HR>, Assembler, ROM-Kernal stuff, Marabou addict.
;* Andrew Kopp alias Charly, Aztec C, Hardware & communications, beer addict.
;* Armin Sparr alias MARVIN, Aztec C, ARexx macros, Campari addict.
;* Ralf Woitinas alias RAF, Assembler, anything, Ray-Tracing addict.
;*
;* Beverages: Altenmuenster Brauer Bier, Urfraenkisches Landbier, Jever.
;*
;* Send exotic drinks, comments, flames to:
;*
;* The Software Brewery
;* Christian Balzer            UUCP: decwrl!frambo.dec.com!CB
;* Im Wingertsberg 45          ARPA: CB@frambo.dec.com
;* D-6108 Weiterstadt          CI$ : 71001,210 (be brief!)
;* West Germany (F.R.G.)       Fone: +49 6150 4151 (18:00-21:00 CET!)
;*

ClockBase   EQU $DC0000
Size       EQU 31       ; number of words-1 in the map

entry:
       lea ClockBase,a0  ; start on base of Clock and clear
       moveq #Size,d0   ; a block of size+1 words
_l1:   clr.w (a0)+
       dbf d0,_l1
       rts

    END


; A note from the Editor (<CB>):
; Well fellas, don't you just LOVE those sources that consist of
; a sound 80% comments? :-) ;-)