Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/oled_samsung.asm @ 388:681bdc91114c 64kByte Logbook

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
BUGFIX Gas switch number.
author JeanDo
date Sun, 19 Jun 2011 00:07:31 +0200
parents 469f4861c7c1
children e6e1b89b7c3e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1 ; OSTC - diving computer code
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2 ; Copyright (C) 2009 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
5 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
6 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
7 ; (at your option) any later version.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
9 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
12 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
13
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
14 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
15 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
17
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
18 ; hardware routines for S6E6D6 Samsung OLED Driver IC
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
20 ; written: 090801
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
21 ; History:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
22 ; 2009-08-30: [MH] last updated.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
23 ; 2011-01-07: [jDG] Added flip_screen option
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
24 ; known bugs: pixel-write (loogbok curves) not done yet...
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
25 ; ToDo:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
26
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
27 WIN_FONT macro win_font_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
28 movlw win_font_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
29 movff WREG,win_font
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
30 endm
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
31
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
32 WIN_TOP macro win_top_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
33 movlw win_top_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
34 movff WREG,win_top
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
35 endm
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
36
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
37 WIN_LEFT macro win_left_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
38 movlw win_left_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
39 movff WREG,win_leftx2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
40 endm
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
41
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
42 WIN_INVERT macro win_invert_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
43 movlw win_invert_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
44 movff WREG,win_invert
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
45 endm
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
46
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
47 WIN_COLOR macro win_color_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
48 movlw win_color_input
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
49 call PLED_set_color
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
50 endm
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
51
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
52 ;=============================================================================
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
53
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
54 word_processor: ; word_processor:
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
55 clrf POSTINC2 ; Required, to mark end of string.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
56 call aa_wordprocessor
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
57 movlb b'00000001' ; Back to Rambank1
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
58 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
59
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
60 ;=============================================================================
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
61 ; Macro to provides our own interface code.
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
62 ;
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
63 PIXEL_WRITE macro colRegister, rowRegister
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
64 movff colRegister,win_leftx2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
65 movff rowRegister,win_top
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
66 call pixel_write
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
67 endm
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
68
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
69 INIT_PIXEL_WROTE macro colRegister
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
70 movff colRegister,win_leftx2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
71 call init_pixel_write
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
72 endm
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
73
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
74 HALF_PIXEL_WRITE macro rowRegister
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
75 movff rowRegister,win_top
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
76 call half_pixel_write
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
77 endm
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
78
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
79 ;-----------------------------------------------------------------------------
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
80 ; Init for half_pixel_write
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
81 ; Set column register on OLED device, and current color.
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
82 ; Inputs: win_leftx2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
83 ; Outputs: win_color:2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
84 ; Trashed: WREG, PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
85 init_pixel_write:
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
86 movff win_leftx2,WREG
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
87 mullw 2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
88 rcall pixel_write_col320 ; Start Address Vertical (.0 - .319)
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
89 goto PLED_standard_color
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
90
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
91 ;-----------------------------------------------------------------------------
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
92 ; Writes two half-pixels at position (win_top,win_leftx2)
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
93 ; Inputs: win_leftx2, win_top, win_color:2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
94 ; Trashed: WREG, PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
95 pixel_write:
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
96 movff win_leftx2,WREG
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
97 mullw 2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
98 rcall pixel_write_col320 ; Start Address Vertical (.0 - .319)
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
99 rcall half_pixel_write ; Write this half-one.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
100
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
101 movff win_leftx2,WREG ; Address of next one
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
102 mullw 2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
103 infsnz PRODL ; +1
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
104 incf PRODH
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
105 rcall pixel_write_col320
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
106 bra half_pixel_write ; Note: Cmd 0x20 is mandatory, because
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
107 ; of the autoincrement going vertical
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
108
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
109 ;---- Do the 16bit 319-X-->X, if needed, and send to OLED ------------
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
110 pixel_write_col320:
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
111 movff win_flags,WREG ; BEWARE: bank0 bit-test
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
112 btfss WREG,0 ; 180° rotation ?
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
113 bra pixel_write_noflip_H
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
114
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
115 movf PRODL,W ; 16bits 319 - PROD --> PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
116 sublw LOW(.319) ; 319-W --> W
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
117 movwf PRODL
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
118 movf PRODH,W
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
119 btfss STATUS,C ; Borrow = /CARRY
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
120 incf WREG
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
121 sublw HIGH(.319)
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
122 movwf PRODH
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
123
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
124 pixel_write_noflip_H:
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
125 movlw 0x21 ; Start Address Vertical (.0 - .319)
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
126 rcall PLED_CmdWrite
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
127 bra PLED_DataWrite_PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
128
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
129 ;-----------------------------------------------------------------------------
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
130 ; Writes one half-pixel at position (win_top,win_leftx2).
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
131 ; Inputs: win_leftx2, win_top, win_color:2
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
132 ; Trashed: WREG, PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
133 half_pixel_write:
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
134 movff win_top,WREG ; d'0' ... d'239'
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
135
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
136 movff win_flags,PRODL ; BEWARE: bank0 bit-test
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
137 btfsc PRODL,0 ; 180° rotation ?
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
138 sublw .239 ; 239-Y --> Y
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
139
146
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
140 mullw 1 ; Copy row to PRODH:L
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
141 movlw 0x20 ; Horizontal Address START:END
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
142 rcall PLED_CmdWrite
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
143 rcall PLED_DataWrite_PROD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
144
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
145 movlw 0x22 ; Start Writing Data to GRAM
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
146 rcall PLED_CmdWrite
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
147 bsf oled_rs ; Data!
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
148 movff win_color1, PORTD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
149 bcf oled_rw
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
150 bsf oled_rw ; Upper
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
151 movff win_color2, PORTD
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
152 bcf oled_rw
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
153 bsf oled_rw ; Lower
c09b0be2e1e6 PIXEL_WRITE macros.
JeanDo
parents: 142
diff changeset
154 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
155
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
156 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
157 ; PLED Display Off
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
158 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
159 PLED_DisplayOff:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
160 clrf PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
161 bcf oled_hv
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
162 bcf oled_vdd
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
163 bcf oled_cs
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
164 bcf oled_e_nwr
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
165 bcf oled_rw
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
166 bcf oled_nreset
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
167 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
168
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
169 ;=============================================================================
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
170 ; Fast macros to write to OLED display.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
171 ; Adding a call/return adds 3 words and a pipeline flush, hence make it
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
172 ; nearly twice slower...
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
173 ;
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
174 ; Input : commande as macro parameter.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
175 ; Output : NONE
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
176 ; Trash : WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
177 ;
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
178 AA_CMD_WRITE macro cmd
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
179 movlw cmd
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
180 rcall PLED_CmdWrite
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
181 ; bcf oled_rs ; Cmd mode
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
182 ; movwf PORTD,A
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
183 ; bcf oled_rw ; Tick the clock
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
184 ; bsf oled_rw
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
185 endm
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
186 ;
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
187 ; Input : data as macro parameter.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
188 ; Output : NONE
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
189 ; Trash : WREG
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
190 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
191 AA_DATA_WRITE macro data
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
192 movlw data
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
193 rcall PLED_DataWrite
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
194 endm
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
195 ;
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
196 ; Input : PRODH:L as 16bits data.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
197 ; Output : NONE
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
198 ; Trash : NONE
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
199 ;
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
200 AA_DATA_WRITE_PROD macro
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
201 rcall PLED_DataWrite_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
202 ; bsf oled_rs ; Data mode
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
203 ; movff PRODH,PORTD ; NOTE: OLED is BIGENDIAN!
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
204 ; bcf oled_rw ; Tick the clock
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
205 ; bsf oled_rw
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
206 ; movff PRODL,PORTD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
207 ; bcf oled_rw ; Tick the clock
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
208 ; bsf oled_rw
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
209 endm
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
210
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
211 ;=============================================================================
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
212 ; Output OLED Window Address commands.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
213 ; Inputs : win_top, win_leftx2, win_height, aa_width.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
214 ; Output : PortD commands.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
215 ; Trashed: PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
216 ;
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
217 PLED_box_write:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
218 movff win_leftx2,WREG ; Compute left = 2*leftx2 --> PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
219 mullw 2
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
220
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
221 movff win_flags,WREG ; BEWARE: bank0 bit-test
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
222 btfsc WREG,0 ; 180° rotation ?
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
223 bra PLED_box_flip_H ; YES:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
224
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
225 ;---- Normal horizontal window ---------------------------------------
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
226 ; Output 0x35 left,
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
227 ; 0x36 right == left + width - 1.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
228 AA_CMD_WRITE 0x35 ; this is the left border
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
229 AA_DATA_WRITE_PROD ; Output left
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
230 AA_CMD_WRITE 0x21 ; Also the horizontal first pix coord.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
231 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
232
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
233 movf aa_width+0,W,ACCESS ; right = left + width - 1
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
234 addwf PRODL,F
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
235 movf aa_width+1,W,ACCESS
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
236 addwfc PRODH,F
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
237 decf PRODL,F,A ; decrement result
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
238 btfss STATUS,C
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
239 decf PRODH,F,A
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
240
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
241 AA_CMD_WRITE 0x36 ; Write and the right border
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
242 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
243
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
244 bra PLED_box_noflip_H
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
245
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
246 ;---- Flipped horizontal window --------------------------------------
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
247 PLED_box_flip_H:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
248 ; Output 0x36 flipped(left) = 319-left
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
249 ; 0x35 flipped(right) = 319-right = 320 - left - width
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
250 movf PRODL,W ; 16bits 319 - PROD --> PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
251 sublw LOW(.319) ; 319-W --> W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
252 movwf PRODL
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
253 movf PRODH,W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
254 btfss STATUS,C ; Borrow = /CARRY
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
255 incf WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
256 sublw HIGH(.319)
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
257 movwf PRODH
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
258 AA_CMD_WRITE 0x36 ; this is the left border
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
259 AA_DATA_WRITE_PROD ; Output left
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
260 AA_CMD_WRITE 0x21
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
261 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
262
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
263 movf aa_width+0,W ; 16bits PROD - width --> PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
264 subwf PRODL,F ; PRODL - WREG --> PRODL
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
265 movf aa_width+1,W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
266 subwfb PRODH,F
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
267 infsnz PRODL ; PROD+1 --> PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
268 incf PRODH
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
269 AA_CMD_WRITE 0x35 ; this is the left border
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
270 AA_DATA_WRITE_PROD ; Output left
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
271
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
272 PLED_box_noflip_H:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
273 movff win_flags,WREG ; BEWARE: bank0 bit-test
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
274 btfsc WREG,0 ; 180° rotation ?
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
275 bra PLED_box_flip_V
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
276
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
277 ;---- Normal vertical window -----------------------------------------
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
278 ; Output 0x37 (top) (bottom)
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
279 movff win_top,PRODH ; top --> PRODH (first byte)
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
280 movff win_height,WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
281 addwf PRODH,W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
282 decf WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
283 movwf PRODL ; top+height-1 --> PRODL (second byte)
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
284
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
285 AA_CMD_WRITE 0x37
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
286 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
287
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
288 movff PRODH,PRODL
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
289 clrf PRODH ; Start pixel V coord == top.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
290 AA_CMD_WRITE 0x20
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
291 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
292
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
293 return
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
294
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
295 ;---- Flipped vertical window ----------------------------------------
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
296 ; Output 0x37 flipped(bottom) = 239-bottom = 240 - top - height
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
297 ; flipped(top) = 239-top
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
298 PLED_box_flip_V:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
299 movff win_top,PRODL
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
300 movff win_height,WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
301 addwf PRODL,W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
302 sublw .240 ; 240 - top - height
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
303 movwf PRODH ; First byte
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
304
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
305 movf PRODL,W
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
306 sublw .239 ; 249-top
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
307 movwf PRODL ; --> second byte.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
308
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
309 AA_CMD_WRITE 0x37
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
310 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
311
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
312 clrf PRODH ; Start pixel V coord.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
313 AA_CMD_WRITE 0x20
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
314 AA_DATA_WRITE_PROD
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
315
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
316 return
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
317
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
318 ;=============================================================================
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
319 ; PLED_frame : draw a frame around current box with current color.
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
320 ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
321 ; Outputs: (none)
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
322 ; Trashed: WREG, PROD, aa_start:2, aa_end:2, win_leftx2, win_width:1
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 150
diff changeset
323 global PLED_frame
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
324 PLED_frame:
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
325 movff win_top,aa_start+0 ; Backup everything.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
326 movff win_height,aa_start+1
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
327 movff win_leftx2,aa_end+0
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
328 movff win_width,aa_end+1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
329
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
330 ;---- TOP line -----------------------------------------------------------
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
331 movlw 1 ; row ~ height=1
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
332 movff WREG,win_height
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
333 rcall PLED_box
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
334
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
335 ;---- BOTTOM line --------------------------------------------------------
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
336 movff aa_start+0,PRODL ; Get back top,
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
337 movff aa_start+1,WREG ; and height
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
338 addwf PRODL,W ; top+height
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
339 decf WREG ; top+height-1
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
340 movff WREG,win_top ; top+height-1 --> top
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
341 rcall PLED_box
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
342
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
343 ;---- LEFT column --------------------------------------------------------
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
344 movff aa_start+0,win_top ; Restore top/height.
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
345 movff aa_start+1,win_height
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
346 movlw 1 ; column ~ width=1
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
347 movff WREG,win_width
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
348 rcall PLED_box
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
349
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
350 ;---- RIGHT column -------------------------------------------------------
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
351 movff aa_end+0,WREG
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
352 movff aa_end+1,PRODL
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
353 addwf PRODL,W
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
354 decf WREG
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
355 movff WREG,win_leftx2
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
356 bra PLED_box
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
357
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
358 ;=============================================================================
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
359 ; PLED_box : fills current box with current color.
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
360 ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
361 ; Outputs: (none)
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
362 ; Trashed: WREG, PROD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
363
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 150
diff changeset
364 global PLED_box
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
365 PLED_box:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
366 ;---- Define Window ------------------------------------------------------
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
367 movff win_width,WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
368 bcf STATUS,C
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
369 rlcf WREG
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
370 movwf aa_width+0
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
371 movlw 0
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
372 rlcf WREG
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
373 movwf aa_width+1
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
374 rcall PLED_box_write
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
375
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
376 ;---- Fill Window --------------------------------------------------------
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
377 movlw 0x22 ; Start Writing Data to GRAM
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
378 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
379
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
380 clrf PRODH ; Column counter.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
381 bsf oled_rs ; Data!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
382
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
383 PLED_box2: ; Loop height times
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
384 movff win_height,PRODL
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
385
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
386 PLED_box3: ; loop width times
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
387 movff win_color1,PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
388 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
389 bsf oled_rw ; Upper
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
390 movff win_color2,PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
391 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
392 bsf oled_rw ; Lower
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
393
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
394 movff win_color1,PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
395 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
396 bsf oled_rw ; Upper
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
397 movff win_color2,PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
398 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
399 bsf oled_rw ; Lower
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
400
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
401 decfsz PRODL,F ; row loop finished ?
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
402 bra PLED_box3 ; No: continue.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
403
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
404 incf PRODH,F ; column count ++
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
405
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
406 movff win_bargraph,WREG ; current column == bargraph ?
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
407 cpfseq PRODH
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
408 bra PLED_box4 ; No: just loop.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
409
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
410 clrf WREG ; Yes: switch to black
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
411 movff WREG,win_color1
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
412 movff WREG,win_color2
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
413 PLED_box4:
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
414 movff win_width,WREG
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
415 cpfseq PRODH
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
416 bra PLED_box2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
417
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
418 movlw 0x00 ; NOP, to stop window mode
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
419 rcall PLED_CmdWrite
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
420
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
421 setf WREG ; Reset bargraph mode...
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
422 movff WREG,win_bargraph
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
423 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
424
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
425 ;=============================================================================
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 123
diff changeset
426 ; PLED_ClearScreen: An optimized version of PLEX_box, for full screen black.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
427 ; Trashed: WREG, PROD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
428
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 150
diff changeset
429 global PLED_ClearScreen
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
430 PLED_ClearScreen:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
431 movlw 0x35 ; VerticalStartAddress HIGH:LOW
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
432 rcall PLED_CmdWrite
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
433 mullw 0
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
434 rcall PLED_DataWrite_PROD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
435
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
436 movlw 0x36 ; VerticalEndAddress HIGH:LOW
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
437 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
438 movlw 0x01
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
439 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
440 movlw 0x3F
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
441 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
442
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
443 movlw 0x37 ; HorizontalAddress START:END
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
444 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
445 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
446 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
447 movlw 0xEF
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
448 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
449
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
450 movlw 0x20 ; Start Address Horizontal (.0 - .239)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
451 rcall PLED_CmdWrite
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
452 rcall PLED_DataWrite_PROD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
453
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
454 movlw 0x21 ; Start Address Vertical (.0 - .319)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
455 rcall PLED_CmdWrite
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
456 rcall PLED_DataWrite_PROD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
457
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
458 movlw 0x22 ; Start Writing Data to GRAM
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
459 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
460
83
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando
heinrichsweikamp
parents: 81
diff changeset
461 ; See Page 101 of OLED Driver IC Datasheet how to handle rs/rw clocks
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
462 bsf oled_rs ; Data!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
463
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
464 movlw .160
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
465 movwf PRODH
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
466 PLED_ClearScreen2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
467 movlw .240
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
468 movwf PRODL
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
469 PLED_ClearScreen3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
470
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
471 clrf PORTD ; Need to generate trace here too.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
472 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
473 bsf oled_rw ; Upper
81
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents: 3
diff changeset
474
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
475 clrf PORTD ; Need to generate trace here too.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
476 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
477 bsf oled_rw ; Lower
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
478
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
479 clrf PORTD ; Need to generate trace here too.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
480 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
481 bsf oled_rw ; Upper
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
482
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
483 clrf PORTD ; Need to generate trace here too.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
484 bcf oled_rw
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 146
diff changeset
485 bsf oled_rw ; Lower
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
486
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
487 decfsz PRODL,F
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
488 bra PLED_ClearScreen3
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
489 decfsz PRODH,F
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
490 bra PLED_ClearScreen2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
491
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
492 movlw 0x00 ; NOP, to stop Address Update Counter
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
493 bra PLED_CmdWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
494
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
495 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
496 ; PLED Write Cmd via W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
497 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
498 PLED_CmdWrite:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
499 bcf oled_rs ; Command!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
500 movwf PORTD ; Move Data to PORTD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
501 bcf oled_rw
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
502 bsf oled_rw
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
503 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
504
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
505 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
506 ; PLED Write Display Data via W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
507 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
508 PLED_DataWrite:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
509 bsf oled_rs ; Data!
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
510 movwf PORTD ; Move Data to PORTD
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
511 bcf oled_rw
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
512 bsf oled_rw
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
513 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
514
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
515 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
516 ; PLED Data Cmd via W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
517 ; -----------------------------
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
518 PLED_DataWrite_PROD:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
519 bsf oled_rs ; Data!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
520 movff PRODH,PORTD ; Move high byte to PORTD (OLED is bigendian)
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
521 bcf oled_rw
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
522 bsf oled_rw
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
523 movff PRODL,PORTD ; Move low byte to PORTD
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
524 bcf oled_rw
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
525 bsf oled_rw
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
526 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
527
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
528 ; -----------------------------
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
529 ; PLED Read data into WREG
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
530 ; -----------------------------
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
531 ; NOTE: you should "setf TRISD" before calling this function,
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
532 ; to make PortD an input port...
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
533 PLED_DataRead:
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
534 bsf oled_rs ; Data register.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
535 bcf oled_e_nwr ; Read enable.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
536 movf PORTD,W ; Read byte.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
537 bsf oled_e_nwr ; release bus.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
538 return
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
539
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents: 167
diff changeset
540 ; -----------------------------
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
541 ; PLED boot
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
542 ; -----------------------------
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
543 PLED_boot:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
544 bcf oled_hv
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
545 WAITMS d'32'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
546 bsf oled_vdd
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
547 nop
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
548 bcf oled_cs
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
549 nop
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
550 bsf oled_nreset
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 2
diff changeset
551 ; WAITMS d'10' ; Quick wake-up
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 2
diff changeset
552 WAITMS d'250' ; Standard wake-up
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
553 bsf oled_e_nwr
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
554 nop
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
555 bcf oled_nreset
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
556 WAIT10US d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
557 bsf oled_nreset
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
558 WAITMS d'10'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
559
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
560 movlw 0x24 ; 80-System 8-Bit Mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
561 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
562
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
563 movlw 0x02 ; RGB Interface Control (S6E63D6 Datasheet page 42)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
564 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
565 movlw 0x00 ; X X X X X X X RM
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
566 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
567 movlw 0x00 ; DM X RIM1 RIM0 VSPL HSPL EPL DPL
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
568 rcall PLED_DataWrite ; System Interface: RIM is ignored, Internal Clock
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
569
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
570 movlw 0x03 ; Entry Mode (S6E63D6 Datasheet page 46)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
571 rcall PLED_CmdWrite
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
572 movlw 0x00 ; CLS MDT1 MDT0 BGR X X X SS 65k Color
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
573 rcall PLED_DataWrite
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
574
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
575 ; Change direction for block-writes of pixels
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
576 lfsr FSR0,win_flags
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
577 btfss INDF0,0 ; BANK-SAFE bit test.
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
578 movlw b'00110000' ; [normal] X X I/D1 I/D0 X X X AM
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
579 btfsc INDF0,0
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 130
diff changeset
580 movlw b'00000000' ; [flipped] X X I/D1 I/D0 X X X AM
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
581 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
582
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
583 movlw 0x18
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
584 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
585 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
586 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
587 movlw 0x28
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
588 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
589
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
590 movlw 0xF8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
591 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
592 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
593 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
594 movlw 0x0F
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
595 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
596
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
597 movlw 0xF9
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
598 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
599 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
600 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
601 movlw 0x0F
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
602 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
603
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
604 movlw 0x10
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
605 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
606 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
607 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
608 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
609 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
610
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
611 ; Now Gamma settings...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
612 rcall PLED_brightness_full
2
d11ef8dc4b2c Bugfix: PC simulator
heinrichsweikamp
parents: 0
diff changeset
613 ;rcall PLED_brightness_low
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
614 ; End Gamma Settings
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
615
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
616 rcall PLED_ClearScreen
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
617
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
618 bsf oled_hv
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
619 WAITMS d'32'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
620
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
621 movlw 0x05
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
622 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
623 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
624 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
625 movlw 0x01
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
626 rcall PLED_DataWrite ; Display ON
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
627 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
628
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
629
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
630 PLED_brightness_full:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
631 movlw 0x70
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
632 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
633 movlw 0x1F
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
634 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
635 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
636 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
637 movlw 0x71
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
638 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
639 movlw 0x23
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
640 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
641 movlw 0x80
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
642 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
643 movlw 0x72
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
644 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
645 movlw 0x2A
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
646 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
647 movlw 0x80
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
648 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
649
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
650 movlw 0x73
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
651 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
652 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
653 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
654 movlw 0x11
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
655 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
656 movlw 0x74
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
657 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
658 movlw 0x1C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
659 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
660 movlw 0x11
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
661 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
662
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
663 movlw 0x75
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
664 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
665 movlw 0x1B
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
666 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
667 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
668 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
669 movlw 0x76
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
670 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
671 movlw 0x1A
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
672 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
673 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
674 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
675
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
676 movlw 0x77
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
677 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
678 movlw 0x1C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
679 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
680 movlw 0x18
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
681 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
682 movlw 0x78
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
683 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
684 movlw 0x21
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
685 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
686 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
687 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
688
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
689 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
690
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
691 PLED_brightness_low:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
692 movlw 0x70
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
693 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
694 movlw 0x14
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
695 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
696 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
697 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
698 movlw 0x71
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
699 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
700 movlw 0x17
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
701 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
702 movlw 0x00
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
703 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
704 movlw 0x72
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
705 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
706 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
707 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
708 movlw 0x80
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
709 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
710
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
711 movlw 0x73
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
712 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
713 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
714 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
715 movlw 0x11
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
716 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
717 movlw 0x74
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
718 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
719 movlw 0x14
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
720 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
721 movlw 0x0B
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
722 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
723
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
724 movlw 0x75
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
725 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
726 movlw 0x1B
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
727 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
728 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
729 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
730 movlw 0x76
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
731 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
732 movlw 0x13
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
733 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
734 movlw 0x0E
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
735 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
736
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
737 movlw 0x77
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
738 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
739 movlw 0x1C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
740 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
741 movlw 0x18
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
742 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
743 movlw 0x78
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
744 rcall PLED_CmdWrite
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
745 movlw 0x15
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
746 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
747 movlw 0x0E
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 83
diff changeset
748 rcall PLED_DataWrite
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
749
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
750 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
751
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
752 PLED_set_color:;Converts 8Bit RGB b'RRRGGGBB' into 16Bit RGB b'RRRRRGGGGGGBBBBB'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
753 movwf oled1_temp ; Get 8Bit RGB b'RRRGGGBB'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
754 movff oled1_temp, oled2_temp ; Copy
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
755
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
756 ; Mask Bit 7,6,5,4,3,2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
757 movlw b'00000011'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
758 andwf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
759
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
760 movlw b'00000000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
761 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
762 movlw b'01010000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
763 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
764 movlw b'10100000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
765 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
766 movlw b'11111000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
767 movwf oled3_temp ; Blue done.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
768
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
769 movff oled1_temp, oled2_temp ; Copy
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
770 ; Mask Bit 7,6,5,1,0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
771 movlw b'00011100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
772 andwf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
773 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
774 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
775
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
776 movlw b'00000000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
777 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
778 movlw b'00000100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
779 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
780 movlw b'00001000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
781 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
782 movlw b'00001100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
783 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
784 movlw b'00010000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
785 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
786 movlw b'00010100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
787 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
788 movlw b'00100000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
789 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
790 movlw b'00111111'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
791 movwf oled4_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
792
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
793 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
794 rrcf oled3_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
795
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
796 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
797 rrcf oled3_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
798
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
799 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
800 rrcf oled3_temp,F ; oled3_temp (b'GGGBBBBB') done.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
801
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
802 movff oled1_temp, oled2_temp ; Copy
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
803 clrf oled1_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
804
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
805 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
806 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
807
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
808 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
809 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
810
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
811 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
812 rrcf oled1_temp,F ; Green done.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
813
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
814 ; Mask Bit 4,3,2,1,0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
815 movlw b'11100000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
816 andwf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
817
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
818 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
819 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
820 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
821 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
822 rrncf oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
823
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
824 movlw b'00000000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
825 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
826 movlw b'00000100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
827 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
828 movlw b'00001000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
829 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
830 movlw b'00001100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
831 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
832 movlw b'00010000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
833 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
834 movlw b'00010100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
835 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
836 movlw b'00100000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
837 dcfsnz oled2_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
838 movlw b'00111111'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
839 movwf oled4_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
840
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
841 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
842 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
843
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
844 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
845 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
846
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
847 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
848 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
849
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
850 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
851 rrcf oled1_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
852
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
853 rrcf oled4_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
854 rrcf oled1_temp,F ; Red done.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
855
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
856 movff oled1_temp,win_color1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
857 movff oled3_temp,win_color2 ; Set Bank0 Color registers...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
858 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
859