Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 402:e565392e0fcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a trailing space for nofly and desat
author heinrichsweikamp
date Mon, 27 Jun 2011 10:15:28 +0200
parents 6ed12fad3b97
children 5b560559bc1a
comparison
equal deleted inserted replaced
401:6ed12fad3b97 402:e565392e0fcc
1703 call PLED_standard_color 1703 call PLED_standard_color
1704 1704
1705 lfsr FSR2,letter 1705 lfsr FSR2,letter
1706 OUTPUTTEXT d'14' ; Desat 1706 OUTPUTTEXT d'14' ; Desat
1707 PUTC ' ' 1707 PUTC ' '
1708 ; movff int_O_desaturation_time+0,lo ; divide by 60...
1709 ; movff int_O_desaturation_time+1,hi
1710 movff desaturation_time_buffer+0,lo ; divide by 60... 1708 movff desaturation_time_buffer+0,lo ; divide by 60...
1711 movff desaturation_time_buffer+1,hi 1709 movff desaturation_time_buffer+1,hi
1712 1710
1713 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo) 1711 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
1714 bsf leftbind 1712 bsf leftbind
1715 movf lo,W 1713 movf lo,W
1716 movff hi,lo 1714 movff hi,lo
1717 movwf hi ; exchange lo and hi... 1715 movwf hi ; exchange lo and hi...
1718 output_8 ; Hours 1716 output_8 ; Hours
1719 PUTC ':' 1717 PUTC ':'
1720 movff hi,lo ; Minutes 1718 movff hi,lo ; Minutes
1721 output_99x 1719 output_99x
1722 bcf leftbind 1720 bcf leftbind
1721 PUTC ' '
1722 ; clrf WREG ; Allow up to 5 chars to avoid
1723 ; movff WREG,letter+6 ; collision with decotype letters
1723 call word_processor 1724 call word_processor
1724 return 1725 return
1725 1726
1726 PLED_nofly_time: 1727 PLED_nofly_time:
1727 movf nofly_time+0,W ; Is nofly null ? 1728 movf nofly_time+0,W ; Is nofly null ?
1745 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo) 1746 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
1746 bsf leftbind 1747 bsf leftbind
1747 movf lo,W 1748 movf lo,W
1748 movff hi,lo 1749 movff hi,lo
1749 movwf hi ; exchange lo and hi... 1750 movwf hi ; exchange lo and hi...
1750 output_8 ; Hours 1751 output_8 ; Hours
1751 PUTC ':' 1752 PUTC ':'
1752 movff hi,lo ; Minutes 1753 movff hi,lo ; Minutes
1753 ; decf lo,F
1754 ; btfsc lo,7 ; keep Nofly time
1755 ; clrf lo
1756 output_99x 1754 output_99x
1757 bcf leftbind 1755 bcf leftbind
1756 PUTC ' '
1757 ; clrf WREG ; Allow up to 5 chars to avoid
1758 ; movff WREG,letter+6 ; collision with decotype letters
1758 call word_processor 1759 call word_processor
1759 return 1760 return
1760 1761
1761 1762
1762 update_surf_press: 1763 update_surf_press: