Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 17:68825abc35f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.55beta rc1
author heinrichsweikamp
date Sun, 11 Apr 2010 20:16:47 +0200
parents 239cb2cdc0c9
children 07e7ca48b49d
comparison
equal deleted inserted replaced
16:01510acaeb11 17:68825abc35f7
852 movlw ' ' 852 movlw ' '
853 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 853 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
854 movlw '*' 854 movlw '*'
855 movwf POSTINC2 855 movwf POSTINC2
856 call word_processor 856 call word_processor
857 return 857 bra PLED_active_gas_divemode_exit
858 858
859 PLED_active_gas_divemode4: 859 PLED_active_gas_divemode4:
860 lfsr FSR2,letter 860 lfsr FSR2,letter
861 bsf leftbind ; left orientated output 861 bsf leftbind ; left orientated output
862 output_8 ; O2 ratio is still in "lo" 862 output_8 ; O2 ratio is still in "lo"
868 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 868 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
869 movlw '*' 869 movlw '*'
870 movwf POSTINC2 870 movwf POSTINC2
871 bcf leftbind 871 bcf leftbind
872 call word_processor 872 call word_processor
873 return 873
874 PLED_active_gas_divemode_exit:
875 btfss better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
876 return ; Done.
877
878 ; Check if Gas Output should blink when a better gas is available...
879 GETCUSTOM8 d'42' ; =1 if gas should blink
880 movwf lo
881 movlw d'1'
882 cpfseq lo ; =1?
883 return ; No, Done.
884
885 btg blinking_better_gas ; Toggle blink bit...
886 btfss blinking_better_gas ; blink now?
887 return ; No, Done.
888 call PLED_active_gas_clear ; Blink once.
889 return ; Done.
890
874 891
875 PLED_display_decotype_surface: 892 PLED_display_decotype_surface:
876 WIN_LEFT .85 893 WIN_LEFT .85
877 WIN_FONT FT_SMALL 894 WIN_FONT FT_SMALL
878 WIN_INVERT .0 ; Init new Wordprocessor 895 WIN_INVERT .0 ; Init new Wordprocessor
2574 return 2591 return
2575 2592
2576 PLED_profileview_menu: 2593 PLED_profileview_menu:
2577 DISPLAYTEXT .127 ;"Exit" 2594 DISPLAYTEXT .127 ;"Exit"
2578 DISPLAYTEXT .128 ;"Delete" 2595 DISPLAYTEXT .128 ;"Delete"
2579 DISPLAYTEXT .132 ;"Format" 2596 ; DISPLAYTEXT .132 ;"Format"
2580 return 2597 return
2581 2598
2582 custom_warn_surfmode: 2599 custom_warn_surfmode:
2583 movlw .0 2600 movlw .0
2584 movff WREG,box_temp+0 ; Data 2601 movff WREG,box_temp+0 ; Data