Mercurial > public > mk2
comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 281:f8f865c70a0d
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 |