Mercurial > public > mk2
view code_part1/OSTC_code_asm_part1/menu_settime.asm @ 365:6ea83f22b48b 64kByte Logbook
Merged B?hlmann half-times.
author | JeanDo |
---|---|
date | Thu, 09 Jun 2011 17:09:49 +0200 |
parents | 1efd59d689f8 |
children | ab2686087bce |
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/>. ; menu "Set Time" ; written by: Matthias Heinrichs, info@heinrichsweikamp.com ; written: 5/19/06 ; last updated: 080904 ; known bugs: ; ToDo: menu_settime: call PLED_ClearScreen bcf set_minutes bcf menubit4 bcf cursor clrf timeout_counter2 bcf menubit2 bcf menubit3 bcf sleepmode bcf set_year bcf set_day bcf set_month clrf menupos2 call PLED_topline_box WIN_INVERT .1 ; Init new Wordprocessor DISPLAYTEXT .29 ; Set Time WIN_INVERT .0 ; Init new Wordprocessor DISPLAYTEXT .22 ; Time: DISPLAYTEXT .23 ; Date: call set_time_refresh DISPLAYTEXT .24 ; Set Hours bcf switch_right bcf switch_left settime_loop: btfsc switch_right call add_hours_or_minutes_or_date btfsc switch_left call set_time_next_or_exit btfsc menubit4 bra set_time_done btfsc onesecupdate call timeout_surfmode btfsc onesecupdate call set_dive_modes bcf onesecupdate btfsc sleepmode bra exit_settime btfsc divemode goto restart bra settime_loop set_time_refresh: WIN_LEFT .32 WIN_TOP .65 lfsr FSR2,letter OUTPUTTEXT .22 ; "Hours:" (actual length depends on translation) movff hours,lo output_99x PUTC ':' movff mins,lo output_99x STRCAT_PRINT " " set_date_refresh: WIN_LEFT .32 WIN_TOP .95 lfsr FSR2,letter OUTPUTTEXT .23 ; "Date: " (actual length depends on translation) movff month,convert_value_temp+0 movff day,convert_value_temp+1 movff year,convert_value_temp+2 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 STRCAT_PRINT " " return set_time_done: ; Check date movff month,lo ; new month dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .28 dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .30 dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .30 dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .30 dcfsnz lo,F movlw .31 dcfsnz lo,F movlw .30 dcfsnz lo,F movlw .31 cpfsgt day ; day ok? bra set_time_done2 ; OK movlw .1 ; not OK, set to 1st movwf day set_time_done2: WIN_LEFT .0 WIN_TOP .215 movlw (.160-.0)/7 ; full line length, for various translations. movwf temp1 call PLED_display_clear_common_y1 movlw d'5' movwf wait_temp clrf secs bcf onesecupdate set_time_done_loop btfss onesecupdate bra set_time_done_loop bcf onesecupdate call set_date_refresh WIN_LEFT .32 WIN_TOP .65 lfsr FSR2,letter OUTPUTTEXT .22 ; "Hours:" (actual length depends on translation) movff hours,lo output_99x PUTC ':' movff mins,lo output_99x PUTC ':' movff secs,lo output_99x STRCAT_PRINT " " decfsz wait_temp,F bra set_time_done_loop exit_settime: ;Exit movlw d'1' movwf menupos goto more_menu2 set_time_next_or_exit: btfsc set_year bsf menubit4 ; quit settime incf menupos2,F movff menupos2,menupos3 dcfsnz menupos3,F bsf set_minutes dcfsnz menupos3,F bsf set_month dcfsnz menupos3,F bsf set_day dcfsnz menupos3,F bsf set_year WIN_LEFT .0 WIN_TOP .215 call PLED_standard_color lfsr FSR2,letter OUTPUTTEXT .94 ; Set movff menupos2,menupos3 decfsz menupos3,F bra set_time_next_or_exit2 OUTPUTTEXT .90 ; Minutes bra set_time_next_or_exit5 set_time_next_or_exit2: decfsz menupos3,F bra set_time_next_or_exit3 OUTPUTTEXT .91 ; Month bra set_time_next_or_exit5 set_time_next_or_exit3: decfsz menupos3,F bra set_time_next_or_exit4 OUTPUTTEXT .92 ; Day bra set_time_next_or_exit5 set_time_next_or_exit4: OUTPUTTEXT .93 ; Year set_time_next_or_exit5: call word_processor call wait_switches ; Waits until switches are released, resets flag if button stays pressed! return add_hours_or_minutes_or_date: bcf switch_left clrf secs btfsc set_year bra add_year btfsc set_day bra add_day btfsc set_month bra add_month btfsc set_minutes bra add_minutes ; Increase hours add_hours: incf hours,F movlw d'23' cpfsgt hours bra set_time_refresh_x clrf hours bra set_time_refresh_x add_minutes: incf mins,F movlw d'59' cpfsgt mins bra set_time_refresh_x clrf mins bra set_time_refresh_x add_day: incf day,F movlw d'31' cpfsgt day bra set_time_refresh_x movlw d'1' movwf day bra set_time_refresh_x add_month: incf month,F movlw d'12' cpfsgt month bra set_time_refresh_x movlw d'1' movwf month bra set_time_refresh_x add_year: incf year,F movlw d'20' ; calendar until 2020 cpfsgt year bra set_time_refresh_x movlw d'10' movwf year ; Set Year to 2010 set_time_refresh_x: call set_time_refresh call wait_switches ; Waits until switches are released, resets flag if button stays pressed! return