Mercurial > public > mk2
diff code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 221:448478ceccea
new sorted_gaslist_active flag register
author | heinrichsweikamp |
---|---|
date | Tue, 01 Mar 2011 11:48:11 +0100 |
parents | b6dd54b3567c |
children | 2a0a446fa6c0 |
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/pled_outputs.asm Tue Mar 01 10:07:58 2011 +0100 +++ b/code_part1/OSTC_code_asm_part1/pled_outputs.asm Tue Mar 01 11:48:11 2011 +0100 @@ -2498,7 +2498,7 @@ WIN_FONT FT_SMALL bsf leftbind - movlw d'2' + movlw d'92' movwf wait_temp ; here: stores eeprom address for gas list movlw d'0' movwf waitms_temp ; here: stores row for gas list @@ -2513,10 +2513,7 @@ WIN_LEFT .100 movff waitms_temp,win_top ; Set Row - STRCPY "G" - movff hi,lo ; copy gas number - output_8 ; display gas number - PUTC ':' + lfsr FSR2,letter movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM call read_eeprom ; get byte (stored in EEDATA) movff EEDATA,lo ; copy to lo @@ -2526,12 +2523,20 @@ call read_eeprom ; get byte (stored in EEDATA) movff EEDATA,lo ; copy to lo output_8 ; outputs into Postinc2! - - decf EEADR,F ; Gas #hi: %O2 - Set address in internal EEPROM + PUTC '@' + + movlw d'117' + addwf hi,W + movwf EEADR ; Point to Change depth + call read_eeprom ; get byte (stored in EEDATA) - PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA") + movff EEDATA,lo ; copy to lo + output_8 ; outputs into Postinc2! + +; call PLED_standard_color + ; Check if gas needs to be greyed-out (inactive) - read_int_eeprom d'27' ; read flag register + movff sorted_gaslist_active,EEDATA ; Get flag register movff hi,lo ; copy gas number PLED_de_activelist_loop1: rrcf EEDATA ; roll flags into carry @@ -2541,7 +2546,10 @@ movlw color_grey btfss STATUS,C ; test carry call PLED_set_color ; grey out inactive gases! - + + dcfsnz hi,W ; First in List? + call PLED_standard_color + call word_processor call PLED_standard_color