Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 528:67ab3c028bc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show change gas depth below gaslist (in divemode)
author heinrichsweikamp
date Tue, 13 Dec 2011 21:00:40 +0100
parents f9a03808dfe2
children e2acb601504c
comparison
equal deleted inserted replaced
527:31db81de1d4f 528:67ab3c028bc2
2843 cpfseq hi ; All gases shown? 2843 cpfseq hi ; All gases shown?
2844 bra PLED_de_activelist_loop ; No 2844 bra PLED_de_activelist_loop ; No
2845 2845
2846 return ; return 2846 return ; return
2847 2847
2848 PLED_show_change_depth: ; Yes, show change depth for gas #menupos
2849 btfsc display_set_setpoint ; In Setpoint list?
2850 return ; Yes, return.
2851 movlw color_yellow ; Blink in yellow
2852 call PLED_set_color
2853 WIN_LEFT .95
2854 WIN_TOP .150
2855 WIN_FONT FT_SMALL
2856
2857 movlw .6
2858 cpfslt menupos ; <6?
2859 bra PLED_show_change_depth_clear ; Yes!
2860
2861 bsf leftbind
2862 STRCPY TXT_GAS1
2863 movff menupos,lo
2864 output_8 ; Show gas number
2865 STRCAT " in "
2866 decf menupos,W
2867 addlw d'28' ; offset in memory
2868 movwf EEADR
2869 call read_eeprom ; Low-value
2870 movff EEDATA,lo
2871 output_8 ; Show gas number
2872 STRCAT_PRINT "m "
2873 bcf leftbind
2874 call PLED_standard_color
2875 return
2876
2877 PLED_show_change_depth_clear:
2878 STRCPY_PRINT " "
2879 return
2880
2848 2881
2849 PLED_gas_list: 2882 PLED_gas_list:
2850 ostc_debug 'm' ; Sends debug-information to screen if debugmode active 2883 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
2851 2884
2852 WIN_LEFT .100 2885 WIN_LEFT .100