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