Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 785:b0c96aaa86e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add ceiling display, no turkish language support anymore
author heinrichsweikamp
date Sun, 29 Jun 2014 15:13:32 +0200
parents 9635f6276c3e
children a652b0ff4dcf
comparison
equal deleted inserted replaced
784:46ef1e1388f1 785:b0c96aaa86e4
3725 setf lo ; show ">2.55" 3725 setf lo ; show ">2.55"
3726 clrf hi ; clear hi 3726 clrf hi ; clear hi
3727 call DISP_warnings_color ; Set Warning color 3727 call DISP_warnings_color ; Set Warning color
3728 return 3728 return
3729 3729
3730
3731 DISP_show_ceiling:
3732 call DISP_divemask_color ; Set Color for Divemode mask
3733 WIN_FONT FT_SMALL
3734 DISPLAYTEXT d'233' ; Ceiling
3735 DISP_show_ceiling_1:
3736 call DISP_standard_color
3737 WIN_FONT FT_MEDIUM
3738 WIN_LEFT .100
3739 WIN_TOP .195
3740 lfsr FSR2,letter
3741 movff int_O_ceiling+0,lo
3742 movff int_O_ceiling+1,hi
3743 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
3744 bsf ignore_digit5 ; no cm
3745 output_16dp .3 ; yxz.a
3746 bcf ignore_digit5
3747 STRCAT_PRINT ""
3748 return
3749
3730 ;============================================================================= 3750 ;=============================================================================
3731 ; Display EAD/END computed in calc_hauptroutine_update_tissues() every 2sec. 3751 ; Display EAD/END computed in calc_hauptroutine_update_tissues() every 2sec.
3732 ; 3752 ;
3733 DISP_show_end_ead_divemode: 3753 DISP_show_end_ead_divemode:
3734 call DISP_divemask_color ; Set Color for Divemode mask 3754 call DISP_divemask_color ; Set Color for Divemode mask