Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 249:544cc5d47755

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small clean
author heinrichsweikamp
date Tue, 29 Mar 2011 22:59:58 +0200
parents 3ed240d60341
children 8b252ff2eded
comparison
equal deleted inserted replaced
248:571626276aaa 249:544cc5d47755
1709 bcf leftbind 1709 bcf leftbind
1710 call word_processor 1710 call word_processor
1711 return 1711 return
1712 1712
1713 PLED_nofly_time: 1713 PLED_nofly_time:
1714 movff nofly_time+0,lo 1714 movf nofly_time+0,W ; Is nofly null ?
1715 movff nofly_time+1,hi ; Copy 1715 iorwf nofly_time+1,W
1716 tstfsz lo ; =0? 1716 bnz PLED_nofly_time2 ; No...
1717 bra PLED_nofly_time2 ; No! 1717 return
1718 tstfsz hi ; =0? 1718
1719 bra PLED_nofly_time2 ; No!
1720 return
1721
1722 PLED_nofly_time2: 1719 PLED_nofly_time2:
1723 ostc_debug 'g' 1720 ostc_debug 'g'
1724 WIN_TOP .125 1721 WIN_TOP .125
1725 WIN_LEFT .1 1722 WIN_LEFT .1
1726 WIN_FONT FT_SMALL 1723 WIN_FONT FT_SMALL
1730 lfsr FSR2,letter 1727 lfsr FSR2,letter
1731 OUTPUTTEXT d'35' ; NoFly 1728 OUTPUTTEXT d'35' ; NoFly
1732 PUTC ' ' 1729 PUTC ' '
1733 movff nofly_time+0,lo ; divide by 60... 1730 movff nofly_time+0,lo ; divide by 60...
1734 movff nofly_time+1,hi 1731 movff nofly_time+1,hi
1735 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo) 1732 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
1736 bsf leftbind 1733 bsf leftbind
1737 movf lo,W 1734 movf lo,W
1738 movff hi,lo 1735 movff hi,lo
1739 movwf hi ; exchange lo and hi... 1736 movwf hi ; exchange lo and hi...
1740 output_8 ; Hours 1737 output_8 ; Hours
1741 PUTC ':' 1738 PUTC ':'
1742 movff hi,lo ; Minutes 1739 movff hi,lo ; Minutes
1743 decf lo,F 1740 ; decf lo,F
1744 btfsc lo,7 ; keep Nofly time 1741 ; btfsc lo,7 ; keep Nofly time
1745 clrf lo 1742 ; clrf lo
1746 output_99x 1743 output_99x
1747 bcf leftbind 1744 bcf leftbind
1748 call word_processor 1745 call word_processor
1749 return 1746 return
1750 1747