Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/divemode_menu.asm @ 352:544a96faa9f3 64kByte Logbook

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator
author Heinrichsweikamp
date Mon, 06 Jun 2011 18:50:26 +0200
parents 6bdf80d7276c
children 88660a400338
comparison
equal deleted inserted replaced
351:5c186a72cb5d 352:544a96faa9f3
129 movlw d'5' ; Number of entries for this menu+1 = 5 129 movlw d'5' ; Number of entries for this menu+1 = 5
130 btfsc display_set_active ; De/Activate gases underwater menu is visible? 130 btfsc display_set_active ; De/Activate gases underwater menu is visible?
131 movlw d'7' ; Number of entries for this menu+1 = 7 131 movlw d'7' ; Number of entries for this menu+1 = 7
132 btfsc display_set_xgas ; Are we in the Gas6 menu? 132 btfsc display_set_xgas ; Are we in the Gas6 menu?
133 movlw d'7' ; Number of entries for this menu+1 = 7 133 movlw d'7' ; Number of entries for this menu+1 = 7
134 btfsc display_set_simulator ; Are we in the simulator menu?
135 movlw d'7' ; Number of entries for this menu+1 = 7
134 cpfseq menupos ; =limit? 136 cpfseq menupos ; =limit?
135 bra test_switches_divemode_menu1; No! 137 bra test_switches_divemode_menu1; No!
136 movlw d'1' ; Yes, reset to position 1! 138 movlw d'1' ; Yes, reset to position 1!
137 movwf menupos 139 movwf menupos
138 140
346 bra divemode_menu_simulator_m1 ; Adjust -1m 348 bra divemode_menu_simulator_m1 ; Adjust -1m
347 dcfsnz menupos,F 349 dcfsnz menupos,F
348 bra divemode_menu_simulator_p10 ; Adjust +10m 350 bra divemode_menu_simulator_p10 ; Adjust +10m
349 dcfsnz menupos,F 351 dcfsnz menupos,F
350 bra divemode_menu_simulator_m10 ; Adjust -10m 352 bra divemode_menu_simulator_m10 ; Adjust -10m
353 dcfsnz menupos,F
354 bra divemode_menu_simulator_quit; Adjust to zero m
351 bra timeout_divemenu2 ; quit underwater menu! 355 bra timeout_divemenu2 ; quit underwater menu!
352 356
353 divemode_menu_simulator_common: 357 divemode_menu_simulator_common:
354 call PLED_divemode_simulator_mask ; Redraw Simualtor mask 358 call PLED_divemode_simulator_mask ; Redraw Simualtor mask
355 359
364 movlw LOW d'14000' 368 movlw LOW d'14000'
365 movwf sim_pressure+0 369 movwf sim_pressure+0
366 movlw HIGH d'14000' 370 movlw HIGH d'14000'
367 movwf sim_pressure+1 371 movwf sim_pressure+1
368 return 372 return
369
370 divemode_menu_simulator_common2: 373 divemode_menu_simulator_common2:
371 movlw LOW d'1000' ; Compare to 1bar == 0m == 1000 mbar. 374 movlw LOW d'1000' ; Compare to 1bar == 0m == 1000 mbar.
372 subwf sim_pressure+0,W 375 subwf sim_pressure+0,W
373 movlw HIGH d'1000' 376 movlw HIGH d'1000'
374 subwfb sim_pressure+1,W 377 subwfb sim_pressure+1,W
398 addwfc sim_pressure+1,F 401 addwfc sim_pressure+1,F
399 402
400 movlw d'4' 403 movlw d'4'
401 movwf menupos ; reset cursor 404 movwf menupos ; reset cursor
402 bra divemode_menu_simulator_common 405 bra divemode_menu_simulator_common
406
407 divemode_menu_simulator_quit:
408 movlw LOW d'1000'
409 movwf sim_pressure+0
410 movlw HIGH d'1000'
411 movwf sim_pressure+1
412 bra timeout_divemenu2 ; quit menu
403 413
404 divemode_menu_simulator_p1: 414 divemode_menu_simulator_p1:
405 movlw d'100' 415 movlw d'100'
406 addwf sim_pressure+0,F 416 addwf sim_pressure+0,F
407 movlw d'0' 417 movlw d'0'