Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 772:5d6da9ddde27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: Show First Diluent (CCR Mode) permantely in surface mode
author heinrichsweikamp
date Sun, 02 Mar 2014 20:11:10 +0100
parents 3b69d3e23051
children 43ef5a003df7
comparison
equal deleted inserted replaced
771:3b69d3e23051 772:5d6da9ddde27
1637 WIN_LEFT .90 1637 WIN_LEFT .90
1638 WIN_FONT FT_SMALL 1638 WIN_FONT FT_SMALL
1639 WIN_INVERT .0 ; Init new Wordprocessor 1639 WIN_INVERT .0 ; Init new Wordprocessor
1640 call DISP_standard_color 1640 call DISP_standard_color
1641 1641
1642 lfsr FSR2,letter 1642 lfsr FSR2,letter
1643 read_int_eeprom d'36' 1643 read_int_eeprom d'36'
1644 movff EEDATA,lo ; copy to lo 1644 movff EEDATA,lo ; copy to lo
1645 clrf hi 1645 clrf hi
1646 output_16dp d'3' ; outputs into Postinc2! 1646 output_16dp d'3' ; outputs into Postinc2!
1647 bcf leftbind
1648
1649 STRCAT_PRINT TXT_BAR3 1647 STRCAT_PRINT TXT_BAR3
1648
1649 bsf leftbind
1650 call get_first_diluent ; Read first diluent into lo(O2) and hi(He)
1651 WIN_TOP .160
1652 WIN_LEFT .104
1653 lfsr FSR2,letter
1654 output_8 ; O2 Ratio
1655 PUTC '/'
1656 movff hi,lo
1657 output_8 ; He Ratio
1658 STRCAT_PRINT ""
1659 bcf leftbind
1650 return ; Done. 1660 return ; Done.
1651 1661
1652 DISP_active_gas_surfmode2: 1662 DISP_active_gas_surfmode2:
1653 clrf EEADRH ; Select EEPROM lower page. 1663 clrf EEADRH ; Select EEPROM lower page.
1654 read_int_eeprom d'33' ; Get First gas (1-5) 1664 read_int_eeprom d'33' ; Get First gas (1-5)