Mercurial > public > hwos_code

comparison src/tft_outputs.asm @ 413:12e85930d95c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
author heinrichsweikamp
date Tue, 22 Mar 2016 16:39:00 +0100
parents e8a1486815d9
children eccae727702f
comparison
equal deleted inserted replaced
412:e8a1486815d9 413:12e85930d95c
3400 movlw .8 3400 movlw .8
3401 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG) 3401 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
3402 STRCAT_PRINT "" 3402 STRCAT_PRINT ""
3403 return 3403 return
3404 3404
3405 global TFT_sensor_check_mask ; Show ppO2 of O2 and Diluent mask
3406 TFT_sensor_check_mask:
3407 call TFT_divemask_color
3408 WIN_TINY dm_custom_s_check_text_column, dm_custom_s_check_text_row
3409 STRCPY_TEXT_PRINT tSensorCheck
3410 WIN_TINY dm_custom_ppO2_text_column, dm_custom_s_check_text_row
3411 STRCPY_PRINT "ppO2(O2)"
3412 WIN_TINY dm_custom_ppDil_text_column, dm_custom_s_check_text_row
3413 STRCPY_PRINT "ppO2(Dil)"
3414 return
3415
3416 global TFT_sensor_check ; Show ppO2 of O2 and Diluent
3417 TFT_sensor_check:
3418 ; Show ppO2 of O2 in this depth
3419 SAFE_2BYTE_COPY amb_pressure, xA
3420 movlw d'10'
3421 movwf xB+0
3422 clrf xB+1
3423 call div16x16 ; xC=p_amb/10
3424 movff xC+0,xA+0
3425 movff xC+1,xA+1
3426 movlw .100
3427 movwf xB+0 ; =O2 ratio
3428 clrf xB+1
3429 call mult16x16 ; char_I_O2_ratio * p_amb/10
3430 call TFT_standard_color
3431 TFT_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
3432 WIN_MEDIUM dm_custom_s_check_ppo2_o2_column, dm_custom_s_check_value_row
3433 ; ; hijacking neg_flag_velocity to know where the value is displayed
3434 bsf neg_flag_velocity
3435 call TFT_display_ppo2_com
3436
3437 ; Show ppO2 of the diluent in this depth
3438 SAFE_2BYTE_COPY amb_pressure, xA
3439 movlw d'10'
3440 movwf xB+0
3441 clrf xB+1
3442 call div16x16 ; xC=p_amb/10
3443 movff xC+0,xA+0
3444 movff xC+1,xA+1
3445 movff char_I_O2_ratio,xB+0 ; =O2 ratio
3446 clrf xB+1
3447 call mult16x16 ; char_I_O2_ratio * p_amb/10
3448 call TFT_standard_color
3449 TFT_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
3450 WIN_MEDIUM dm_custom_s_check_ppo2_dil_col, dm_custom_s_check_value_row
3451 ; ; hijacking neg_flag_velocity to know where the value is displayed
3452 bsf neg_flag_velocity
3453 call TFT_display_ppo2_com
3454 return ; Done.
3455
3456
3405 global TFT_surface_tissues 3457 global TFT_surface_tissues
3406 TFT_surface_tissues: ; Show Tissue diagram in surface mode 3458 TFT_surface_tissues: ; Show Tissue diagram in surface mode
3407 WIN_SMALL surf_tissue_N2_column,surf_tissue_N2_row 3459 WIN_SMALL surf_tissue_N2_column,surf_tissue_N2_row
3408 STRCPY_TEXT_PRINT tN2 3460 STRCPY_TEXT_PRINT tN2
3409 WIN_SMALL surf_tissue_He_column,surf_tissue_He_row 3461 WIN_SMALL surf_tissue_He_column,surf_tissue_He_row
3631 call TFT_standard_color 3683 call TFT_standard_color
3632 bcf win_invert 3684 bcf win_invert
3633 return 3685 return
3634 3686
3635 TFT_show_ppO2_3: 3687 TFT_show_ppO2_3:
3636 STRCAT "'6.6" ; Workaround until a ">" is available in STD font 3688 ; STRCAT "'6.6" ; Workaround until a ">" is available in STD font
3689 STRCAT "6.65" ; Workaround until a ">" is available in STD font
3637 bra TFT_show_ppO2_2 3690 bra TFT_show_ppO2_2
3638 3691
3639 3692
3640 global TFT_LogOffset_Logtitle 3693 global TFT_LogOffset_Logtitle
3641 TFT_LogOffset_Logtitle: 3694 TFT_LogOffset_Logtitle: