Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 121:e0f29e20bd24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
author JeanDo
date Sun, 26 Dec 2010 23:49:11 +0100
parents 50a06adabc67
children 6a94f96e9cea
comparison
equal deleted inserted replaced
119:f24137eb85de 121:e0f29e20bd24
62 bsf leftbind 62 bsf leftbind
63 output_99 63 output_99
64 movlw ':' 64 movlw ':'
65 movwf POSTINC2 65 movwf POSTINC2
66 66
67 call menu_gassetup_grey_inactive ; Sets Greyvalue for inactive gases 67 movf decodata+0,W
68 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases
68 call word_processor 69 call word_processor
69 WIN_LEFT .40 70 WIN_LEFT .40
70 movf waitms_temp,W ; Load row into WREG 71 movf waitms_temp,W ; Load row into WREG
71 movff WREG,win_top 72 movff WREG,win_top
72 lfsr FSR2,letter 73 lfsr FSR2,letter
80 movlw '*' ; display * 81 movlw '*' ; display *
81 movwf POSTINC2 82 movwf POSTINC2
82 83
83 ; New v1.44se 84 ; New v1.44se
84 menu_gassetup_Tx: 85 menu_gassetup_Tx:
85 call menu_gassetup_grey_inactive ; Sets Greyvalue for inactive gases 86 movf decodata+0,W
87 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases
86 call word_processor 88 call word_processor
87 89
88 WIN_LEFT .48 90 WIN_LEFT .48
89 movf waitms_temp,W ; Load row into WREG 91 movf waitms_temp,W ; Load row into WREG
90 movff WREG,win_top 92 movff WREG,win_top
170 movwf POSTINC2 172 movwf POSTINC2
171 output_8 173 output_8
172 174
173 ; Changed v1.44se 175 ; Changed v1.44se
174 menu_gassetup_list0: 176 menu_gassetup_list0:
175 call menu_gassetup_grey_inactive ; Sets Greyvalue for inactive gases 177 movf decodata+0,W
178 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases
176 call word_processor 179 call word_processor
177 180
178 WIN_LEFT .105 181 WIN_LEFT .105
179 movf waitms_temp,W ; Load row into WREG 182 movf waitms_temp,W ; Load row into WREG
180 movff WREG,win_top 183 movff WREG,win_top
194 call read_eeprom ; Low-value 197 call read_eeprom ; Low-value
195 movff EEDATA,lo 198 movff EEDATA,lo
196 output_8 199 output_8
197 movlw 'm' 200 movlw 'm'
198 movwf POSTINC2 201 movwf POSTINC2
199 call menu_gassetup_grey_inactive ; Sets Greyvalue for inactive gases 202 movf decodata+0,W
203 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases
200 call word_processor 204 call word_processor
201 205
202 call PLED_standard_color 206 call PLED_standard_color
203 207
204 incf decodata+0,F 208 incf decodata+0,F
1123 movwf POSTINC2 1127 movwf POSTINC2
1124 movlw ' ' 1128 movlw ' '
1125 movwf POSTINC2 1129 movwf POSTINC2
1126 return 1130 return
1127 1131
1128 ; New v1.44se
1129 menu_gassetup_grey_inactive:
1130 ; Set Greyvalue to lower value when gas is inactive
1131 read_int_eeprom d'27' ; read flag register
1132 movff decodata+0,lo ; copy gas number 0-4
1133 incf lo,F ; 1-5
1134 menu_gassetup_list1:
1135 rrcf EEDATA ; roll flags into carry
1136 decfsz lo,F ; max. 5 times...
1137 bra menu_gassetup_list1
1138
1139 btfss STATUS,C ; test carry
1140 bra menu_gassetup_list1_grey
1141
1142 GETCUSTOM8 d'35' ;movlw color_white
1143 call PLED_set_color ; grey out inactive gases!
1144 return
1145
1146 menu_gassetup_list1_grey:
1147 movlw color_grey
1148 call PLED_set_color ; grey out inactive gases!
1149 return
1150
1151 gassetup_show_ppO2: 1132 gassetup_show_ppO2:
1152 movf divemins+0,W 1133 movf divemins+0,W
1153 addlw 0x06 1134 addlw 0x06
1154 movwf EEADR 1135 movwf EEADR
1155 call read_eeprom ; O2 value 1136 call read_eeprom ; O2 value