Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 674:3927bc5019c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show some feedback if marker was set
author heinrichsweikamp
date Mon, 10 Dec 2012 16:55:18 +0100
parents 3282581fe178
children
comparison
equal deleted inserted replaced
673:7e651625d4c0 674:3927bc5019c9
3803 output_8 3803 output_8
3804 STRCAT_PRINT "% " 3804 STRCAT_PRINT "% "
3805 bcf leftbind 3805 bcf leftbind
3806 return 3806 return
3807 3807
3808 PLED_marker_set:
3809 WIN_LEFT .105
3810 WIN_TOP .170
3811 WIN_FONT FT_SMALL
3812 WIN_INVERT .0 ; Init new Wordprocessor
3813 call PLED_divemask_color ; Set Color for Divemode mask
3814 SAFE_2BYTE_COPY marker_depth, lo
3815 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
3816 lfsr FSR2,letter
3817 bsf leftbind
3818 bsf ignore_digit5 ; do not display 1cm depth
3819 output_16dp d'3'
3820 PUTC TXT_METER_C
3821 bcf show_last3
3822 call word_processor
3823
3824 WIN_LEFT .105
3825 WIN_TOP .192
3826 WIN_INVERT .0 ; Init new Wordprocessor
3827 movff marker_time+0,lo
3828 movff marker_time+1,hi
3829 bsf leftbind
3830 lfsr FSR2,letter
3831 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
3832 PUTC ':'
3833 movff marker_time+2,lo
3834 output_99x
3835 call word_processor
3836 bcf leftbind
3837 call PLED_standard_color
3838 return
3839
3808 PLED_topline_box_clear: ; Writes an empty box 3840 PLED_topline_box_clear: ; Writes an empty box
3809 movlw .0 3841 movlw .0
3810 bra PLED_topline_box2 3842 bra PLED_topline_box2
3811 PLED_topline_box: ; Writes a filled box... 3843 PLED_topline_box: ; Writes a filled box...
3812 GETCUSTOM8 d'35' ; ... with the standard color 3844 GETCUSTOM8 d'35' ; ... with the standard color