Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 29:c6cab044a338

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.61beta rc2
author heinrichsweikamp
date Sun, 16 May 2010 21:17:43 +0200
parents 29341afd2060
children 943dc3336f48
comparison
equal deleted inserted replaced
28:e01e6428d316 29:c6cab044a338
21 ; written: 15/01/05 21 ; written: 15/01/05
22 ; last updated: 06/06/08 22 ; last updated: 06/06/08
23 ; known bugs: 23 ; known bugs:
24 ; ToDo: More comments 24 ; ToDo: More comments
25 25
26 PLED_divemask_color:
27 GETCUSTOM8 d'36' ; Divemask output color
28 bra PLED_standard_color_0
29
30 PLED_warnings_color:
31 GETCUSTOM8 d'37' ; Warnings output color
32 bra PLED_standard_color_0
33
26 PLED_standard_color: 34 PLED_standard_color:
27 GETCUSTOM8 d'35' ; Standard output color 35 GETCUSTOM8 d'35' ; Standard output color
28 tstfsz WREG ; =0? 36 PLED_standard_color_0: ; Common entry point
37 movwf oled1_temp ; copy
38 movlw d'0'
39 cpfseq oled1_temp
40 bra PLED_standard_color_1
29 bra PLED_standard_color2 41 bra PLED_standard_color2
42 PLED_standard_color_1:
43 movlw d'4'
44 cpfseq oled1_temp
45 bra PLED_standard_color_2
46 bra PLED_standard_color2
47 PLED_standard_color_2:
48 movlw d'8'
49 cpfseq oled1_temp
50 bra PLED_standard_color_3
51 bra PLED_standard_color2
52 PLED_standard_color_3:
53 movlw d'192'
54 cpfseq oled1_temp
55 bra PLED_standard_color_4
56 bra PLED_standard_color2
57 PLED_standard_color_4:
58 movlw d'196'
59 cpfseq oled1_temp
60 bra PLED_standard_color_5
61 bra PLED_standard_color2
62 PLED_standard_color_5:
63 movlw d'200'
64 cpfseq oled1_temp
65 bra PLED_standard_color_6
66 bra PLED_standard_color2
67 PLED_standard_color_6:
68 movf oled1_temp,W ; Color should be OK...
69 call PLED_set_color
70 return
71 PLED_standard_color2:
30 movlw color_standard1 ; Reset Color 72 movlw color_standard1 ; Reset Color
31 PLED_standard_color2:
32 call PLED_set_color
33 return
34
35 PLED_divemask_color:
36 GETCUSTOM8 d'36' ; Divemask output color
37 tstfsz WREG ; =0?
38 bra PLED_divemask_color2
39 movlw color_divemask ; Reset Color
40 PLED_divemask_color2:
41 call PLED_set_color
42 return
43
44 PLED_warnings_color:
45 GETCUSTOM8 d'37' ; Warnings output color
46 tstfsz WREG ; =0?
47 bra PLED_warnings_color2
48 movlw color_warnings ; Reset Color
49 PLED_warnings_color2:
50 call PLED_set_color 73 call PLED_set_color
51 return 74 return
52 75
53 PLED_color_code macro color_code_temp 76 PLED_color_code macro color_code_temp
54 movlw color_code_temp 77 movlw color_code_temp
648 671
649 WIN_TOP .65 672 WIN_TOP .65
650 WIN_LEFT .0 673 WIN_LEFT .0
651 WIN_FONT FT_SMALL 674 WIN_FONT FT_SMALL
652 WIN_INVERT .0 ; Init new Wordprocessor 675 WIN_INVERT .0 ; Init new Wordprocessor
653 call PLED_standard_color
654 676
655 lfsr FSR2,letter 677 lfsr FSR2,letter
656 movlw 0xB8 678 movlw 0xB8
657 movwf POSTINC2 679 movwf POSTINC2
658 call word_processor 680 call word_processor
659 681
660 WIN_TOP .95 682 WIN_TOP .95
661 WIN_LEFT .0 683 WIN_LEFT .0
662 WIN_FONT FT_SMALL 684 WIN_FONT FT_SMALL
663 WIN_INVERT .0 ; Init new Wordprocessor 685 WIN_INVERT .0 ; Init new Wordprocessor
664 call PLED_standard_color
665 686
666 lfsr FSR2,letter 687 lfsr FSR2,letter
667 movlw 0xB8 688 movlw 0xB8
668 movwf POSTINC2 689 movwf POSTINC2
669 call word_processor 690 call word_processor
670 691
671 WIN_TOP .125 692 WIN_TOP .125
672 WIN_LEFT .0 693 WIN_LEFT .0
673 WIN_FONT FT_SMALL 694 WIN_FONT FT_SMALL
674 WIN_INVERT .0 ; Init new Wordprocessor 695 WIN_INVERT .0 ; Init new Wordprocessor
675 call PLED_standard_color
676 696
677 lfsr FSR2,letter 697 lfsr FSR2,letter
678 movlw 0xB8 698 movlw 0xB8
679 movwf POSTINC2 699 movwf POSTINC2
680 call word_processor 700 call word_processor
692 712
693 WIN_TOP .185 713 WIN_TOP .185
694 WIN_LEFT .0 714 WIN_LEFT .0
695 WIN_FONT FT_SMALL 715 WIN_FONT FT_SMALL
696 WIN_INVERT .0 ; Init new Wordprocessor 716 WIN_INVERT .0 ; Init new Wordprocessor
697 call PLED_standard_color
698 717
699 lfsr FSR2,letter 718 lfsr FSR2,letter
700 movlw 0xB8 719 movlw 0xB8
701 movwf POSTINC2 720 movwf POSTINC2
702 call word_processor 721 call word_processor
717 736
718 movff WREG,win_top 737 movff WREG,win_top
719 WIN_LEFT .0 738 WIN_LEFT .0
720 WIN_FONT FT_SMALL 739 WIN_FONT FT_SMALL
721 WIN_INVERT .0 ; Init new Wordprocessor 740 WIN_INVERT .0 ; Init new Wordprocessor
722 call PLED_standard_color
723 741
724 lfsr FSR2,letter 742 lfsr FSR2,letter
725 movlw 0xB7 743 movlw 0xB7
726 movwf POSTINC2 744 movwf POSTINC2
727 call word_processor 745 call word_processor