Mercurial > public > mk2
view code_part1/OSTC_code_asm_part1/menu_battery.asm @ 226:24cd6e256d61
Better gas lookup policy, supporting unsorted list.
author | JeanDo |
---|---|
date | Fri, 04 Mar 2011 01:20:18 +0100 |
parents | 6a94f96e9cea |
children | ba109a7948df |
line wrap: on
line source
; OSTC - diving computer code ; Copyright (C) 2008 HeinrichsWeikamp GbR ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; You should have received a copy of the GNU General Public License ; along with this program. If not, see <http://www.gnu.org/licenses/>. ; Submenu battery state ; written by: Matthias Heinrichs, info@heinrichsweikamp.com ; written: 05/15/08 ; last updated: 05/15/08 ; known bugs: ; ToDo: menu_battery_state: call PLED_ClearScreen call PLED_topline_box WIN_INVERT .1 ; Init new Wordprocessor DISPLAYTEXT .114 ; Battery Information WIN_INVERT .0 ; Init new Wordprocessor WIN_TOP .35 WIN_LEFT .0 WIN_FONT FT_SMALL lfsr FSR2,letter OUTPUTTEXT .115 ; Cycles: read_int_eeprom d'50' ; Get charge cycles movff EEDATA,lo read_int_eeprom d'51' movff EEDATA,hi bsf leftbind output_16 STRCAT " (" read_int_eeprom d'52' ; Get complete cycles movff EEDATA,lo read_int_eeprom d'53' movff EEDATA,hi bsf leftbind output_16 STRCAT_PRINT ")" WIN_TOP .65 lfsr FSR2,letter OUTPUTTEXT .117 ; Last Complete at: read_int_eeprom d'47' ; Month movff EEDATA,convert_value_temp+0 read_int_eeprom d'48' ; Day movff EEDATA,convert_value_temp+1 read_int_eeprom d'49' ; Year movff EEDATA,convert_value_temp+2 call PLED_convert_date ; coverts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 call word_processor WIN_TOP .95 lfsr FSR2,letter OUTPUTTEXT .118 ; Lowest Battery: read_int_eeprom d'40' ; Batt LOW movff EEDATA,lo read_int_eeprom d'41' ; Batt HIGH movff EEDATA,hi movlw d'1' movwf ignore_digits bsf leftbind output_16dp d'2' bcf leftbind STRCAT_PRINT "V" WIN_TOP .125 lfsr FSR2,letter OUTPUTTEXT .119 ; Lowest Battery at: read_int_eeprom d'42' ; Month movff EEDATA,convert_value_temp+0 read_int_eeprom d'43' ; Day movff EEDATA,convert_value_temp+1 read_int_eeprom d'44' ; Year movff EEDATA,convert_value_temp+2 call PLED_convert_date ; coverts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 call word_processor WIN_TOP .155 lfsr FSR2,letter OUTPUTTEXT .120 ; Temp min: read_int_eeprom d'54' ; TEMP_min LOW movff EEDATA,lo read_int_eeprom d'55' ; TEMP_min HIGH movff EEDATA,hi movlw d'3' movwf ignore_digits bsf leftbind ; left orientated output output_16dp d'2' bcf leftbind STRCAT "° (" read_int_eeprom d'56' ; Month movff EEDATA,convert_value_temp+0 read_int_eeprom d'57' ; Day movff EEDATA,convert_value_temp+1 read_int_eeprom d'58' ; Year movff EEDATA,convert_value_temp+2 call PLED_convert_date ; coverts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 STRCAT_PRINT ") " WIN_TOP .185 lfsr FSR2,letter OUTPUTTEXT .121 ; Temp max: read_int_eeprom d'59' ; TEMP_max LOW movff EEDATA,lo read_int_eeprom d'60' ; TEMP_max HIGH movff EEDATA,hi movlw d'3' movwf ignore_digits bsf leftbind ; left orientated output output_16dp d'2' bcf leftbind STRCAT "° (" read_int_eeprom d'61' ; Month movff EEDATA,convert_value_temp+0 read_int_eeprom d'62' ; Day movff EEDATA,convert_value_temp+1 read_int_eeprom d'63' ; Year movff EEDATA,convert_value_temp+2 call PLED_convert_date ; coverts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 STRCAT_PRINT ") " menu_battery_state5: btfss SWITCH2 bra menu_battery_state5 bcf switch_left bcf switch_right bcf menubit2 menu_battery_state_loop: call check_switches_logbook btfsc menubit2 bra menu_battery_state_exit ; Exit btfsc divemode goto restart ; dive started! btfsc onesecupdate call timeout_surfmode btfsc onesecupdate call set_dive_modes bcf onesecupdate ; 1 sec. functions done btfsc sleepmode bra menu_battery_state_exit bra menu_battery_state_loop menu_battery_state_exit: ; exit... movlw d'3' movwf menupos goto more_menu2