Mercurial > public > mk2

diff code_part1/OSTC_code_asm_part1/adc_rtc.asm @ 53:263348f83485

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.70 cleaning the code
author heinrichsweikamp
date Sat, 31 Jul 2010 10:25:59 +0200
parents 73014f788032
children 31fa973a70fd
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/adc_rtc.asm	Fri Jul 30 12:32:15 2010 +0200
+++ b/code_part1/OSTC_code_asm_part1/adc_rtc.asm	Sat Jul 31 10:25:59 2010 +0200
@@ -1,4 +1,3 @@
-
 ; OSTC - diving computer code
 ; Copyright (C) 2008 HeinrichsWeikamp GbR
 
@@ -134,20 +133,14 @@
 	movff	temperature+1,EEDATA
 	write_int_eeprom	d'46'
 	; Reset charge statistics
-	clrf	EEDATA					; last complete charge
-	write_int_eeprom	d'47'		
-	clrf	EEDATA					; last complete charge
-	write_int_eeprom	d'48'		
-	clrf	EEDATA					; last complete charge
-	write_int_eeprom	d'49'		
-	clrf	EEDATA					; total cycles
-	write_int_eeprom	d'50'		
-	clrf	EEDATA					; total cycles
-	write_int_eeprom	d'51'		
-	clrf	EEDATA					; total complete cycles
-	write_int_eeprom	d'52'		
-	clrf	EEDATA					; total complete cycles
-	write_int_eeprom	d'53'		
+	clrf	EEDATA
+	write_int_eeprom	d'47'		; last complete charge
+	write_int_eeprom	d'48'		; last complete charge
+	write_int_eeprom	d'49'		; last complete charge
+	write_int_eeprom	d'50'		; total cycles
+	write_int_eeprom	d'51'		; total cycles
+	write_int_eeprom	d'52'		; total complete cycles
+	write_int_eeprom	d'53'		; total complete cycles
 	; Reset temperature extremas
 	movff	temperature+0,EEDATA	; Reset mimimum extrema
 	write_int_eeprom	d'54'
@@ -232,9 +225,9 @@
 	movwf	mins
 	movlw	.12
 	movwf	hours
-	movlw	.23
+	movlw	.1
 	movwf	day
-	movlw	.4
+	movlw	.8
 	movwf	month
 	movlw	.10
 	movwf	year