Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 140:87a53efbb5ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"beta" shown for beta versions noFly and Desat time only shown when > 0
author heinrichsweikamp
date Thu, 06 Jan 2011 18:12:15 +0100
parents dd4b899c56c1
children 622da16b768f
comparison
equal deleted inserted replaced
139:e09ecbae060e 140:87a53efbb5ba
1529 WIN_BOX_BLACK .24, .90, .0, .90 1529 WIN_BOX_BLACK .24, .90, .0, .90
1530 bsf depth_greater_100m ; Set Flag 1530 bsf depth_greater_100m ; Set Flag
1531 return 1531 return
1532 1532
1533 PLED_desaturation_time: 1533 PLED_desaturation_time:
1534 movff int_O_desaturation_time+0,lo
1535 movff int_O_desaturation_time+1,hi ; Copy
1536 tstfsz lo ; =0?
1537 bra PLED_desaturation_time2 ; No!
1538 tstfsz hi ; =0?
1539 bra PLED_desaturation_time2 ; No!
1540 return ; Do not display Desat
1541
1542 PLED_desaturation_time2:
1534 ostc_debug 'h' 1543 ostc_debug 'h'
1535 WIN_TOP .150 1544 WIN_TOP .150
1536 WIN_LEFT .1 1545 WIN_LEFT .1
1537 WIN_FONT FT_SMALL 1546 WIN_FONT FT_SMALL
1538 WIN_INVERT .0 ; Init new Wordprocessor 1547 WIN_INVERT .0 ; Init new Wordprocessor
1555 bcf leftbind 1564 bcf leftbind
1556 call word_processor 1565 call word_processor
1557 return 1566 return
1558 1567
1559 PLED_nofly_time: 1568 PLED_nofly_time:
1569 movff nofly_time+0,lo
1570 movff nofly_time+1,hi ; Copy
1571 tstfsz lo ; =0?
1572 bra PLED_nofly_time2 ; No!
1573 tstfsz hi ; =0?
1574 bra PLED_nofly_time2 ; No!
1575 return
1576
1577 PLED_nofly_time2:
1560 ostc_debug 'g' 1578 ostc_debug 'g'
1561 WIN_TOP .125 1579 WIN_TOP .125
1562 WIN_LEFT .1 1580 WIN_LEFT .1
1563 WIN_FONT FT_SMALL 1581 WIN_FONT FT_SMALL
1564 WIN_INVERT .0 ; Init new Wordprocessor 1582 WIN_INVERT .0 ; Init new Wordprocessor
1715 ; Use MMDDYY 1733 ; Use MMDDYY
1716 movff convert_value_temp+0,lo ;month 1734 movff convert_value_temp+0,lo ;month
1717 bsf leftbind 1735 bsf leftbind
1718 output_99x 1736 output_99x
1719 bcf leftbind 1737 bcf leftbind
1720 PUTC '/' 1738 PUTC '.'
1721 movff convert_value_temp+1,lo ;day 1739 movff convert_value_temp+1,lo ;day
1722 bra PLED_convert_date1_common ;year 1740 bra PLED_convert_date1_common ;year
1723 1741
1724 PLED_convert_date1: 1742 PLED_convert_date1:
1725 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD) 1743 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
1729 ; Use DDMMYY 1747 ; Use DDMMYY
1730 movff convert_value_temp+1,lo ;day 1748 movff convert_value_temp+1,lo ;day
1731 bsf leftbind 1749 bsf leftbind
1732 output_99x 1750 output_99x
1733 bcf leftbind 1751 bcf leftbind
1734 PUTC '/' 1752 PUTC '.'
1735 movff convert_value_temp+0,lo ;month 1753 movff convert_value_temp+0,lo ;month
1736 1754
1737 PLED_convert_date1_common: 1755 PLED_convert_date1_common:
1738 bsf leftbind 1756 bsf leftbind
1739 output_99x 1757 output_99x
1740 bcf leftbind 1758 bcf leftbind
1741 PUTC '/' 1759 PUTC '.'
1742 movff convert_value_temp+2,lo ;year 1760 movff convert_value_temp+2,lo ;year
1743 bsf leftbind 1761 bsf leftbind
1744 output_99x 1762 output_99x
1745 return 1763 return
1746 1764
1748 ; Use YYMMDD 1766 ; Use YYMMDD
1749 movff convert_value_temp+2,lo ;year 1767 movff convert_value_temp+2,lo ;year
1750 bsf leftbind 1768 bsf leftbind
1751 output_99x 1769 output_99x
1752 bcf leftbind 1770 bcf leftbind
1753 PUTC '/' 1771 PUTC '.'
1754 movff convert_value_temp+0,lo ;month 1772 movff convert_value_temp+0,lo ;month
1755 bsf leftbind 1773 bsf leftbind
1756 output_99x 1774 output_99x
1757 bcf leftbind 1775 bcf leftbind
1758 PUTC '/' 1776 PUTC '.'
1759 movff convert_value_temp+1,lo ;day 1777 movff convert_value_temp+1,lo ;day
1760 bsf leftbind 1778 bsf leftbind
1761 output_99x 1779 output_99x
1762 return 1780 return
1763 1781
1770 PLED_convert_date_short_common: 1788 PLED_convert_date_short_common:
1771 movff convert_value_temp+0,lo ;month 1789 movff convert_value_temp+0,lo ;month
1772 bsf leftbind 1790 bsf leftbind
1773 output_99x 1791 output_99x
1774 bcf leftbind 1792 bcf leftbind
1775 PUTC '/' 1793 PUTC '.'
1776 movff convert_value_temp+1,lo ;day 1794 movff convert_value_temp+1,lo ;day
1777 bsf leftbind 1795 bsf leftbind
1778 output_99x 1796 output_99x
1779 bcf leftbind 1797 bcf leftbind
1780 return 1798 return
1787 ; Use DDMMYY 1805 ; Use DDMMYY
1788 movff convert_value_temp+1,lo ;day 1806 movff convert_value_temp+1,lo ;day
1789 bsf leftbind 1807 bsf leftbind
1790 output_99x 1808 output_99x
1791 bcf leftbind 1809 bcf leftbind
1792 PUTC '/' 1810 PUTC '.'
1793 movff convert_value_temp+0,lo ;month 1811 movff convert_value_temp+0,lo ;month
1794 bsf leftbind 1812 bsf leftbind
1795 output_99x 1813 output_99x
1796 bcf leftbind 1814 bcf leftbind
1797 return 1815 return
2083 movlw softwareversion_y 2101 movlw softwareversion_y
2084 movwf lo 2102 movwf lo
2085 bsf leftbind 2103 bsf leftbind
2086 output_99x 2104 output_99x
2087 bcf leftbind 2105 bcf leftbind
2088
2089 call word_processor 2106 call word_processor
2107
2108 movlw softwareversion_beta ; =1: Beta, =0: Release
2109 decfsz WREG,F
2110 return ; Release version -> Return
2111
2112 call PLED_warnings_color
2113 DISPLAYTEXT d'243' ; beta
2114 call PLED_standard_color
2090 return 2115 return
2091 2116
2092 PLED_divemode_menu_mask_first: ; Write Divemode menu1 mask 2117 PLED_divemode_menu_mask_first: ; Write Divemode menu1 mask
2093 ostc_debug 'o' ; Sends debug-information to screen if debugmode active 2118 ostc_debug 'o' ; Sends debug-information to screen if debugmode active
2094 call PLED_menu_clear ; clear "Menu?" 2119 call PLED_menu_clear ; clear "Menu?"