Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 281:f8f865c70a0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
no more sorted gaslist...
author heinrichsweikamp
date Tue, 19 Apr 2011 09:54:33 +0200
parents ce6f861d4e3e
children 4ec488f046f4
comparison
equal deleted inserted replaced
280:ce6f861d4e3e 281:f8f865c70a0d
434 434
435 lfsr FSR2,letter 435 lfsr FSR2,letter
436 movff char_O_nullzeit,lo ; NDL in minutes 436 movff char_O_nullzeit,lo ; NDL in minutes
437 output_8 437 output_8
438 STRCAT_PRINT "'" 438 STRCAT_PRINT "'"
439
440 WIN_FONT FT_SMALL 439 WIN_FONT FT_SMALL
441 return 440 return
442 441
443 PLED_display_deko_mask: 442 PLED_display_deko_mask:
444 btfsc menubit ; Divemode menu active? 443 btfsc menubit ; Divemode menu active?
455 PLED_display_deko: 454 PLED_display_deko:
456 btfsc menubit ; Divemode menu active? 455 btfsc menubit ; Divemode menu active?
457 bra PLED_display_deko1 ; Yes, do not display deco, only GF (if required) 456 bra PLED_display_deko1 ; Yes, do not display deco, only GF (if required)
458 457
459 ostc_debug 'y' ; Sends debug-information to screen if debugmode active 458 ostc_debug 'y' ; Sends debug-information to screen if debugmode active
460 ; deco stop word
461 WIN_TOP .80 459 WIN_TOP .80
462 WIN_LEFT .94 460 WIN_LEFT .94
463 WIN_FONT FT_MEDIUM 461 WIN_FONT FT_MEDIUM
464 WIN_INVERT .0 ; Init new Wordprocessor 462 WIN_INVERT .0 ; Init new Wordprocessor
465 PLED_color_code warn_ceiling ; Color-code Output 463 PLED_color_code warn_ceiling ; Color-code Output
2537 2535
2538 WIN_LEFT .100 2536 WIN_LEFT .100
2539 WIN_FONT FT_SMALL 2537 WIN_FONT FT_SMALL
2540 bsf leftbind 2538 bsf leftbind
2541 2539
2542 movlw d'92' 2540 ; movlw d'92' ; old sorted list
2541 movlw d'2'
2543 movwf wait_temp ; here: stores eeprom address for gas list 2542 movwf wait_temp ; here: stores eeprom address for gas list
2544 movlw d'0' 2543 movlw d'0'
2545 movwf waitms_temp ; here: stores row for gas list 2544 movwf waitms_temp ; here: stores row for gas list
2546 clrf hi ; here: Gas counter 2545 clrf hi ; here: Gas counter
2547 2546
2564 call read_eeprom ; get byte (stored in EEDATA) 2563 call read_eeprom ; get byte (stored in EEDATA)
2565 movff EEDATA,lo ; copy to lo 2564 movff EEDATA,lo ; copy to lo
2566 output_8 ; outputs into Postinc2! 2565 output_8 ; outputs into Postinc2!
2567 PUTC '@' 2566 PUTC '@'
2568 2567
2569 movlw d'117' 2568 ; movlw d'117' ; old sorted list
2569 movlw d'27'
2570 addwf hi,W 2570 addwf hi,W
2571 movwf EEADR ; Point to Change depth 2571 movwf EEADR ; Point to Change depth
2572 2572
2573 call read_eeprom ; get byte (stored in EEDATA) 2573 call read_eeprom ; get byte (stored in EEDATA)
2574 movff EEDATA,lo ; copy to lo 2574 movff EEDATA,lo ; copy to lo
2638 output_8 ; outputs into Postinc2! 2638 output_8 ; outputs into Postinc2!
2639 2639
2640 decf EEADR,F ; Gas #hi: %O2 - Set address in internal EEPROM 2640 decf EEADR,F ; Gas #hi: %O2 - Set address in internal EEPROM
2641 call read_eeprom ; get byte (stored in EEDATA) 2641 call read_eeprom ; get byte (stored in EEDATA)
2642 PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA") 2642 PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA")
2643 ; Check if gas needs to be greyed-out (inactive) 2643 ; Check if gas needs to be greyed-out (inactive)
2644 read_int_eeprom d'27' ; read flag register 2644 movff sorted_gaslist_active, EEDATA ; Work with sorted list
2645 ; read_int_eeprom d'27' ; read flag register
2645 movff hi,lo ; copy gas number 2646 movff hi,lo ; copy gas number
2646 PLED_gas_list_loop1: 2647 PLED_gas_list_loop1:
2647 rrcf EEDATA ; roll flags into carry 2648 rrcf EEDATA ; roll flags into carry
2648 decfsz lo,F ; max. 5 times... 2649 decfsz lo,F ; max. 5 times...
2649 bra PLED_gas_list_loop1 2650 bra PLED_gas_list_loop1