Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 640:50ba6255f53e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ccr menu
author heinrichsweikamp
date Thu, 20 Sep 2012 14:29:58 +0200
parents 2ab9e9a8a189
children 2cecac640202
comparison
equal deleted inserted replaced
639:2ab9e9a8a189 640:50ba6255f53e
109 movlw d'30' 109 movlw d'30'
110 addwf waitms_temp,F ; Increase row 110 addwf waitms_temp,F ; Increase row
111 movf waitms_temp,W ; Load row into WREG 111 movf waitms_temp,W ; Load row into WREG
112 movff WREG,win_top 112 movff WREG,win_top
113 lfsr FSR2,letter 113 lfsr FSR2,letter
114 PUTC TXT_GAS_C 114 PUTC TXT_DIL_C
115 movff decodata+0,lo 115 movff decodata+0,lo
116 incf lo,F 116 incf lo,F
117 bsf leftbind 117 bsf leftbind
118 output_99 118 output_99
119 PUTC ':' 119 PUTC ':'
192 goto menu_diluentsetup_list 192 goto menu_diluentsetup_list
193 193
194 DISPLAYTEXT .11 ; Exit 194 DISPLAYTEXT .11 ; Exit
195 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 195 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
196 call PLED_menu_cursor 196 call PLED_menu_cursor
197 clrf EEADRH
197 198
198 menu_diluentsetup_loop: 199 menu_diluentsetup_loop:
199 call check_switches_logbook 200 call check_switches_logbook
200 201
201 btfsc menubit3 202 btfsc menubit3
290 STRCAT " (" 291 STRCAT " ("
291 292
292 OUTPUTTEXT d'192' ; Dil. 293 OUTPUTTEXT d'192' ; Dil.
293 PUTC ' ' 294 PUTC ' '
294 295
295 read_int_eeprom d'33' ; Read byte (stored in EEDATA) 296 movlw .1
296 movff EEDATA,active_gas ; Read start gas (1-5) 297 movwf EEADRH
297 298 addlw d'96' ; = address for O2 ratio
298 decf active_gas,W ; Gas 0-4
299 mullw d'4'
300 movf PRODL,W
301 addlw d'6' ; = address for O2 ratio
302 movwf EEADR 299 movwf EEADR
303 call read_eeprom ; Read O2 ratio 300 call read_eeprom ; Read O2 ratio
304 movff EEDATA, lo ; O2 ratio 301 movff EEDATA, lo ; O2 ratio
305
306
307 bsf leftbind 302 bsf leftbind
308 output_99 303 output_99
309
310 PUTC '/' 304 PUTC '/'
311 305 addlw d'97' ; = address for He ratio
312 decf active_gas,W ; Gas 0-4
313 mullw d'4'
314 movf PRODL,W
315 addlw d'7' ; = address for He ratio
316 movwf EEADR 306 movwf EEADR
317 call read_eeprom ; Read He ratio 307 call read_eeprom ; Read He ratio
318 movff EEDATA,lo ; And copy into hold register 308 movff EEDATA,lo ; And copy into hold register
319 309 clrf EEADRH
320 bsf leftbind 310 bsf leftbind
321 output_99 311 output_99
322 STRCAT_PRINT ")" 312 STRCAT_PRINT ")"
323 313
324 314