Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 762:cc997dde80cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
BUGFIX: ppO2 display in PSCR Mode
author heinrichsweikamp
date Wed, 04 Dec 2013 17:12:53 +0100
parents ae830d5e63ef
children aac1379d6983
comparison
equal deleted inserted replaced
761:ff2b4f5fad9c 762:cc997dde80cf
3799 WIN_LEFT .159-.63 ; 9 chars aligned right. 3799 WIN_LEFT .159-.63 ; 9 chars aligned right.
3800 WIN_TOP .170 3800 WIN_TOP .170
3801 call DISP_divemask_color ; Set Color for Divemode mask 3801 call DISP_divemask_color ; Set Color for Divemode mask
3802 lfsr FSR2,letter 3802 lfsr FSR2,letter
3803 OUTPUTTEXTH .266 ; "pSCR Info" 3803 OUTPUTTEXTH .266 ; "pSCR Info"
3804 call word_processor ; pCCR 3804 call word_processor
3805
3806 rcall compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
3807 3805
3808 WIN_FONT FT_SMALL 3806 WIN_FONT FT_SMALL
3809 WIN_LEFT .95 3807 WIN_LEFT .95
3810 WIN_TOP .192 3808 WIN_TOP .192
3811 lfsr FSR2,letter 3809 lfsr FSR2,letter
3812 STRCPY_PRINT TXT_PPO2_5 ; ppO2: 3810 STRCPY_PRINT TXT_PPO2_5 ; ppO2:
3813 3811 rcall compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
3814 movff sub_c+0,xC+0 3812 movff sub_c+0,xC+0
3815 movff sub_c+1,xC+1 3813 movff sub_c+1,xC+1
3816 clrf xC+2 3814 clrf xC+2
3817 clrf xC+3 ; For color coding 3815 clrf xC+3 ; For color coding
3818 DISP_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC) 3816 DISP_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
3819 WIN_LEFT .130 3817 WIN_LEFT .130
3820 WIN_TOP .192 3818 WIN_TOP .192
3821 lfsr FSR2,letter 3819 lfsr FSR2,letter
3822 movff xC+0,lo 3820 movff xC+0,lo
3823 movff xC+1,hi 3821 movff xC+1,hi
3824 bsf ignore_digit4 3822 bsf ignore_digit4
3825 output_16dp d'1' 3823 output_16dp d'1'
3826 bcf ignore_digit4 3824 bcf ignore_digit4
3827 STRCAT_PRINT " " 3825 PUTC " "
3826 movlw .0
3827 movff WREG,letter+.4 ; Limit to 4chars
3828 STRCAT_PRINT ""
3828 call DISP_standard_color ; Back to white. 3829 call DISP_standard_color ; Back to white.
3829 ; Show O2 drop and counter lung ration in second row 3830 ; Show O2 drop and counter lung ration in second row
3830 WIN_LEFT .98 3831 WIN_LEFT .98
3831 WIN_TOP .216 3832 WIN_TOP .216
3832 lfsr FSR2,letter 3833 lfsr FSR2,letter
3837 STRCAT "% 1/" 3838 STRCAT "% 1/"
3838 GETCUSTOM8 d'63' ; Counter lung ratio in 1/X 3839 GETCUSTOM8 d'63' ; Counter lung ratio in 1/X
3839 movwf lo 3840 movwf lo
3840 output_8 3841 output_8
3841 bcf leftbind 3842 bcf leftbind
3842 STRCAT_PRINT " " ; Trailing space needed when changing the O2 drop 3843 PUTC " "
3844 movlw .0
3845 movff WREG,letter+.9 ; Limit to 9chars
3846 STRCAT_PRINT ""
3843 return 3847 return
3844 3848
3845 ;============================================================================= 3849 ;=============================================================================
3846 ; Display cave consomation prediction (and warning). 3850 ; Display cave consomation prediction (and warning).
3847 ; 3851 ;