Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 152:e5f1cfec8113

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* for better gas again
author heinrichsweikamp
date Wed, 12 Jan 2011 14:38:24 +0100
parents fc699a7460e6
children 54cc1346ac15
comparison
equal deleted inserted replaced
151:c3ac603ba248 152:e5f1cfec8113
978 PUTC ' ' 978 PUTC ' '
979 clrf WREG ; Allow up to 5 chars to avoid 979 clrf WREG ; Allow up to 5 chars to avoid
980 movff WREG,letter+5 ; collision with sat graphs 980 movff WREG,letter+5 ; collision with sat graphs
981 bcf leftbind 981 bcf leftbind
982 call word_processor 982 call word_processor
983 return 983 rcall PLED_active_gas_divemode_better_gas ; show *, if required
984 984 return
985
986 PLED_active_gas_divemode_better_gas:
987 WIN_TOP .192
988 WIN_LEFT .42
989 WIN_FONT FT_SMALL
990 call PLED_standard_color
991 lfsr FSR2,letter
985 movlw ' ' 992 movlw ' '
986 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 993 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
987 movlw '*' 994 movlw '*'
988 movwf POSTINC2 995 movwf POSTINC2
989 call word_processor 996 call word_processor
999 PUTC ' ' 1006 PUTC ' '
1000 clrf WREG ; Allow up to 5 chars to avoid 1007 clrf WREG ; Allow up to 5 chars to avoid
1001 movff WREG,letter+5 ; collision with sat graphs 1008 movff WREG,letter+5 ; collision with sat graphs
1002 bcf leftbind 1009 bcf leftbind
1003 call word_processor 1010 call word_processor
1004 return 1011 rcall PLED_active_gas_divemode_better_gas ; show *, if required
1005 1012 return
1006
1007 movlw ' '
1008 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
1009 movlw '*'
1010 movwf POSTINC2
1011 bcf leftbind
1012 call word_processor
1013 return
1014
1015
1016 1013
1017 PLED_display_decotype_surface: 1014 PLED_display_decotype_surface:
1018 WIN_LEFT .85 1015 WIN_LEFT .85
1019 WIN_FONT FT_SMALL 1016 WIN_FONT FT_SMALL
1020 WIN_INVERT .0 ; Init new Wordprocessor 1017 WIN_INVERT .0 ; Init new Wordprocessor