Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 692:82f71a73f450

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
indicate first gas in surfacemode
author heinrichsweikamp
date Sun, 10 Feb 2013 12:51:44 +0100
parents 839eac136bd8
children 4498d34462d4
comparison
equal deleted inserted replaced
691:dc28ba4601ee 692:82f71a73f450
1543 1543
1544 STRCAT_PRINT TXT_BAR3 1544 STRCAT_PRINT TXT_BAR3
1545 return ; Done. 1545 return ; Done.
1546 1546
1547 DISP_active_gas_surfmode2: 1547 DISP_active_gas_surfmode2:
1548 clrf EEADRH ; Select EEPROM lower page.
1549 read_int_eeprom d'33' ; Get First gas (1-5)
1550 movff EEDATA,hi ; into register hi
1551
1548 WIN_TOP .175 1552 WIN_TOP .175
1549 WIN_FONT FT_SMALL 1553 WIN_FONT FT_SMALL
1550 WIN_INVERT .0 ; Init new Wordprocessor 1554 WIN_INVERT .0 ; Init new Wordprocessor
1551 movlw .0 1555 movlw .0
1552 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases 1556 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1553 WIN_LEFT .115 1557 WIN_LEFT .115
1554 STRCPY_PRINT "1" 1558 STRCPY_PRINT "1"
1555 movlw .1 1559 movlw .1
1560 cpfseq hi ; Is "first gas"?
1561 bra DISP_active_gas_surfmode3 ; No, skip box
1562 WIN_FRAME_STD .174, .196, .114, .122 ;top, bottom, left, right
1563 DISP_active_gas_surfmode3:
1564 movlw .1
1556 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases 1565 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1557 WIN_LEFT .124 1566 WIN_LEFT .124
1558 STRCPY_PRINT "2" 1567 STRCPY_PRINT "2"
1568 movlw .2
1569 cpfseq hi ; Is "first gas"?
1570 bra DISP_active_gas_surfmode4 ; No, skip box
1571 WIN_FRAME_STD .174, .196, .123, .131 ;top, bottom, left, right
1572 DISP_active_gas_surfmode4:
1559 movlw .2 1573 movlw .2
1560 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases 1574 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1561 WIN_LEFT .133 1575 WIN_LEFT .133
1562 STRCPY_PRINT "3" 1576 STRCPY_PRINT "3"
1563 movlw .3 1577 movlw .3
1578 cpfseq hi ; Is "first gas"?
1579 bra DISP_active_gas_surfmode5 ; No, skip box
1580 WIN_FRAME_STD .174, .196, .132, .140 ;top, bottom, left, right
1581 DISP_active_gas_surfmode5:
1582 movlw .3
1564 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases 1583 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1565 WIN_LEFT .142 1584 WIN_LEFT .142
1566 STRCPY_PRINT "4" 1585 STRCPY_PRINT "4"
1567 movlw .4 1586 movlw .4
1587 cpfseq hi ; Is "first gas"?
1588 bra DISP_active_gas_surfmode6 ; No, skip box
1589 WIN_FRAME_STD .174, .196, .141, .149 ;top, bottom, left, right
1590 DISP_active_gas_surfmode6:
1591 movlw .4
1568 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases 1592 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1569 WIN_LEFT .151 1593 WIN_LEFT .151
1570 STRCPY_PRINT "5" 1594 STRCPY_PRINT "5"
1595 movlw .5
1596 cpfseq hi ; Is "first gas"?
1597 bra DISP_active_gas_surfmode7 ; No, skip box
1598 WIN_FRAME_STD .174, .196, .150, .158 ;top, bottom, left, right
1599 DISP_active_gas_surfmode7:
1571 1600
1572 WIN_TOP .130 1601 WIN_TOP .130
1573 WIN_LEFT .100 1602 WIN_LEFT .100
1574 WIN_FONT FT_MEDIUM 1603 WIN_FONT FT_MEDIUM
1575 call DISP_standard_color 1604 call DISP_standard_color
1610 1639
1611 movff char_I_He_ratio,hi ; Copy into Bank1 register 1640 movff char_I_He_ratio,hi ; Copy into Bank1 register
1612 1641
1613 movlw d'21' 1642 movlw d'21'
1614 cpfseq lo ; Air? (O2=21%) 1643 cpfseq lo ; Air? (O2=21%)
1615 bra DISP_active_gas_surfmode4 ; No! 1644 bra DISP_active_gas_surfmode8 ; No!
1616 tstfsz hi ; Air? (He=0%) 1645 tstfsz hi ; Air? (He=0%)
1617 bra DISP_active_gas_surfmode4 ; No! 1646 bra DISP_active_gas_surfmode8 ; No!
1618 1647
1619 ; Yes, display "Air" instead of 21/0 1648 ; Yes, display "Air" instead of 21/0
1620 DISPLAYTEXTH d'265' ;"Air ", y-scale=2 1649 DISPLAYTEXTH d'265' ;"Air ", y-scale=2
1621 return ; Done. 1650 return ; Done.
1622 1651
1623 DISP_active_gas_surfmode4: 1652 DISP_active_gas_surfmode8:
1624 lfsr FSR2,letter 1653 lfsr FSR2,letter
1625 bsf leftbind ; left orientated output 1654 bsf leftbind ; left orientated output
1626 output_99 ; O2 ratio is still in "lo" 1655 output_99 ; O2 ratio is still in "lo"
1627 movff char_I_He_ratio,lo ; copy He ratio into lo 1656 movff char_I_He_ratio,lo ; copy He ratio into lo
1628 tstfsz lo ; He>0? 1657 tstfsz lo ; He>0?
1629 bra DISP_active_gas_surfmode5 ; Yes. 1658 bra DISP_active_gas_surfmode9 ; Yes.
1630 bra DISP_active_gas_surfmode6 ; No, skip He 1659 bra DISP_active_gas_surfmode10 ; No, skip He
1631 DISP_active_gas_surfmode5: 1660 DISP_active_gas_surfmode9:
1632 PUTC '/' 1661 PUTC '/'
1633 output_99 1662 output_99
1634 DISP_active_gas_surfmode6: 1663 DISP_active_gas_surfmode10:
1635 bcf leftbind 1664 bcf leftbind
1636 call word_processor 1665 call word_processor
1637 1666
1638 rcall DISP_mainscreen_show_nx 1667 rcall DISP_mainscreen_show_nx
1639 tstfsz lo ; He>0? 1668 tstfsz lo ; He>0?