Mercurial > public > mk2

comparison 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
comparison
equal deleted inserted replaced
51:ceeeb5e49348 53:263348f83485
1
2 ; OSTC - diving computer code 1 ; OSTC - diving computer code
3 ; Copyright (C) 2008 HeinrichsWeikamp GbR 2 ; Copyright (C) 2008 HeinrichsWeikamp GbR
4 3
5 ; This program is free software: you can redistribute it and/or modify 4 ; This program is free software: you can redistribute it and/or modify
6 ; it under the terms of the GNU General Public License as published by 5 ; it under the terms of the GNU General Public License as published by
132 movff temperature+0,EEDATA 131 movff temperature+0,EEDATA
133 write_int_eeprom d'45' 132 write_int_eeprom d'45'
134 movff temperature+1,EEDATA 133 movff temperature+1,EEDATA
135 write_int_eeprom d'46' 134 write_int_eeprom d'46'
136 ; Reset charge statistics 135 ; Reset charge statistics
137 clrf EEDATA ; last complete charge 136 clrf EEDATA
138 write_int_eeprom d'47' 137 write_int_eeprom d'47' ; last complete charge
139 clrf EEDATA ; last complete charge 138 write_int_eeprom d'48' ; last complete charge
140 write_int_eeprom d'48' 139 write_int_eeprom d'49' ; last complete charge
141 clrf EEDATA ; last complete charge 140 write_int_eeprom d'50' ; total cycles
142 write_int_eeprom d'49' 141 write_int_eeprom d'51' ; total cycles
143 clrf EEDATA ; total cycles 142 write_int_eeprom d'52' ; total complete cycles
144 write_int_eeprom d'50' 143 write_int_eeprom d'53' ; total complete cycles
145 clrf EEDATA ; total cycles
146 write_int_eeprom d'51'
147 clrf EEDATA ; total complete cycles
148 write_int_eeprom d'52'
149 clrf EEDATA ; total complete cycles
150 write_int_eeprom d'53'
151 ; Reset temperature extremas 144 ; Reset temperature extremas
152 movff temperature+0,EEDATA ; Reset mimimum extrema 145 movff temperature+0,EEDATA ; Reset mimimum extrema
153 write_int_eeprom d'54' 146 write_int_eeprom d'54'
154 movff temperature+1,EEDATA 147 movff temperature+1,EEDATA
155 write_int_eeprom d'55' 148 write_int_eeprom d'55'
230 movwf secs 223 movwf secs
231 movlw .00 224 movlw .00
232 movwf mins 225 movwf mins
233 movlw .12 226 movlw .12
234 movwf hours 227 movwf hours
235 movlw .23 228 movlw .1
236 movwf day 229 movwf day
237 movlw .4 230 movlw .8
238 movwf month 231 movwf month
239 movlw .10 232 movlw .10
240 movwf year 233 movwf year
241 bsf PIE1, TMR1IE 234 bsf PIE1, TMR1IE
242 return 235 return