Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 685:aebb6d039249

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use 4byte in EEPROM for diluents (Same as OC gases) Show active gas indicator below first gas in surfacemode
author heinrichsweikamp
date Sat, 26 Jan 2013 14:11:07 +0100
parents f998411851b7
children 6761e1865dfd
comparison
equal deleted inserted replaced
684:99b3fb0ab4c7 685:aebb6d039249
1385 read_int_eeprom d'27' ; read flag register 1385 read_int_eeprom d'27' ; read flag register
1386 DISP_grey_inactive_gas1: 1386 DISP_grey_inactive_gas1:
1387 rrcf EEDATA ; roll flags into carry 1387 rrcf EEDATA ; roll flags into carry
1388 decfsz lo,F ; max. 5 times... 1388 decfsz lo,F ; max. 5 times...
1389 bra DISP_grey_inactive_gas1 1389 bra DISP_grey_inactive_gas1
1390
1391 bnc DISP_grey_gas ; test carry 1390 bnc DISP_grey_gas ; test carry
1392 1391
1393 DISP_white_gas: 1392 DISP_white_gas:
1394 GETCUSTOM8 d'35' ;movlw color_white 1393 GETCUSTOM8 d'35' ;movlw color_white
1395 goto DISP_set_color ; grey out inactive gases! 1394 goto DISP_set_color ; grey out inactive gases!
1544 1543
1545 STRCAT_PRINT TXT_BAR3 1544 STRCAT_PRINT TXT_BAR3
1546 return ; Done. 1545 return ; Done.
1547 1546
1548 DISP_active_gas_surfmode2: 1547 DISP_active_gas_surfmode2:
1548 WIN_TOP .175
1549 WIN_FONT FT_SMALL
1550 WIN_INVERT .0 ; Init new Wordprocessor
1551 movlw .0
1552 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1553 WIN_LEFT .90
1554 STRCPY_PRINT "1"
1555 movlw .1
1556 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1557 WIN_LEFT .103
1558 STRCPY_PRINT "2"
1559 movlw .2
1560 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1561 WIN_LEFT .117
1562 STRCPY_PRINT "3"
1563 movlw .3
1564 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1565 WIN_LEFT .130
1566 STRCPY_PRINT "4"
1567 movlw .4
1568 call DISP_grey_inactive_gas ; Sets Greyvalue for inactive gases
1569 WIN_LEFT .143
1570 STRCPY_PRINT "5"
1571
1549 WIN_TOP .130 1572 WIN_TOP .130
1550 WIN_LEFT .100 1573 WIN_LEFT .100
1551 WIN_FONT FT_MEDIUM 1574 WIN_FONT FT_MEDIUM
1552 WIN_INVERT .0 ; Init new Wordprocessor
1553 call DISP_standard_color 1575 call DISP_standard_color
1554 1576
1555 read_int_eeprom d'33' ; Read byte (stored in EEDATA) 1577 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
1556 movff EEDATA,active_gas ; Read start gas (1-5) 1578 movff EEDATA,active_gas ; Read start gas (1-5)
1557 1579
2941 DISP_diluent_list: 2963 DISP_diluent_list:
2942 ostc_debug 'm' ; Sends debug-information to screen if debugmode active 2964 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
2943 WIN_LEFT .100 2965 WIN_LEFT .100
2944 WIN_FONT FT_SMALL 2966 WIN_FONT FT_SMALL
2945 bsf leftbind 2967 bsf leftbind
2946 movlw d'94' 2968 movlw d'93'
2947 movwf wait_temp ; here: stores eeprom address for diluent list (96-2) 2969 movwf wait_temp ; here: stores eeprom address for diluent list (96-2)
2948 movlw d'231' 2970 movlw d'231'
2949 movwf waitms_temp ; here: stores row for gas list 2971 movwf waitms_temp ; here: stores row for gas list
2950 clrf hi ; here: Diluent counter 2972 clrf hi ; here: Diluent counter
2951 2973
2952 DISP_diluent_list_loop: 2974 DISP_diluent_list_loop:
2953 incf hi,F ; Increase Diluent 2975 incf hi,F ; Increase Diluent
2954 movlw .2 2976 movlw d'4'
2955 addwf wait_temp,F ; Increase eeprom address for gas list 2977 addwf wait_temp,F ; Increase eeprom address for gas list
2956 movlw d'25' 2978 movlw d'25'
2957 addwf waitms_temp,F ; Increase row 2979 addwf waitms_temp,F ; Increase row
2958 WIN_LEFT .100 2980 WIN_LEFT .100
2959 movff waitms_temp,win_top ; Set Row 2981 movff waitms_temp,win_top ; Set Row