Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 143:e82e0df6d0ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
divemode gas fix
author heinrichsweikamp
date Fri, 07 Jan 2011 14:23:58 +0100
parents 8b75ba28d641
children 55a763d514ed
comparison
equal deleted inserted replaced
142:8b75ba28d641 143:e82e0df6d0ea
973 bra PLED_active_gas_divemode4 ; No! 973 bra PLED_active_gas_divemode4 ; No!
974 974
975 ; Yes, display "Air" instead of 21/0 975 ; Yes, display "Air" instead of 21/0
976 lfsr FSR2,letter 976 lfsr FSR2,letter
977 OUTPUTTEXTH d'264' ;"Air " 977 OUTPUTTEXTH d'264' ;"Air "
978 clrf WREG 978 PUTC ' '
979 clrf WREG ; Allow up to 5 chars to avoid
980 movff WREG,letter+5 ; collision with sat graphs
981 bcf leftbind
982 call word_processor
983 return
984
985 movlw ' '
979 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 986 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
980 movlw '*' 987 movlw '*'
981 movwf POSTINC2 988 movwf POSTINC2
982 call word_processor 989 call word_processor
983 return 990 return
987 bsf leftbind ; left orientated output 994 bsf leftbind ; left orientated output
988 output_8 ; O2 ratio is still in "lo" 995 output_8 ; O2 ratio is still in "lo"
989 PUTC '/' 996 PUTC '/'
990 movff char_I_He_ratio,lo ; copy He ratio into lo 997 movff char_I_He_ratio,lo ; copy He ratio into lo
991 output_8 998 output_8
992 clrf WREG 999 PUTC ' '
1000 clrf WREG ; Allow up to 5 chars to avoid
1001 movff WREG,letter+5 ; collision with sat graphs
1002 bcf leftbind
1003 call word_processor
1004 return
1005
1006
1007 movlw ' '
993 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 1008 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
994 movlw '*' 1009 movlw '*'
995 movwf POSTINC2 1010 movwf POSTINC2
996 bcf leftbind 1011 bcf leftbind
997 call word_processor 1012 call word_processor