annotate src/tft.asm @ 641:1212d39c9f6f

3.14 beta work
author heinrichsweikamp
date Sat, 21 Nov 2020 17:46:29 +0100
parents 8c1f1f334275
children 070528a88715
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
heinrichsweikamp
parents:
diff changeset
1 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2 ;
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
3 ; File tft.asm combined next generation V3.09.4n
0
heinrichsweikamp
parents:
diff changeset
4 ;
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
5 ; low-level Display Outputs
0
heinrichsweikamp
parents:
diff changeset
6 ;
heinrichsweikamp
parents:
diff changeset
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
8 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
9 ; HISTORY
heinrichsweikamp
parents:
diff changeset
10 ; 2011-05-24 : [jDG] Cleanups from initial Matthias code.
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 225
diff changeset
12 #include "hwos.inc"
0
heinrichsweikamp
parents:
diff changeset
13 #include "wait.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "varargs.inc"
heinrichsweikamp
parents:
diff changeset
15 #include "tft_outputs.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "eeprom_rs232.inc"
heinrichsweikamp
parents:
diff changeset
17
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
18 ;-----------------------------------------------------------------------------
0
heinrichsweikamp
parents:
diff changeset
19 ; Basic bit-level macros
heinrichsweikamp
parents:
diff changeset
20
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
21 RD_H macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
22 bsf tft_rd,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
23 endm
0
heinrichsweikamp
parents:
diff changeset
24
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
25 RD_L macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
26 bcf tft_rd,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
27 endm
0
heinrichsweikamp
parents:
diff changeset
28
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
29 RS_H macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
30 bsf tft_rs,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
31 endm
0
heinrichsweikamp
parents:
diff changeset
32
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
33 RS_L macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
34 bcf tft_rs,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
35 endm
0
heinrichsweikamp
parents:
diff changeset
36
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
37 NCS_H macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
38 bsf tft_cs,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
39 endm
0
heinrichsweikamp
parents:
diff changeset
40
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
41 NCS_L macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
42 bcf tft_cs,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
43 endm
0
heinrichsweikamp
parents:
diff changeset
44
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
45 WR_H macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
46 bsf tft_nwr,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
47 endm
0
heinrichsweikamp
parents:
diff changeset
48
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
49 WR_L macro
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
50 bcf tft_nwr,0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
51 endm
0
heinrichsweikamp
parents:
diff changeset
52
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
53 ;-----------------------------------------------------------------------------
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
54 ; Byte-level macros
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
55
0
heinrichsweikamp
parents:
diff changeset
56 Index_out macro low_b
heinrichsweikamp
parents:
diff changeset
57 movlw low_b
heinrichsweikamp
parents:
diff changeset
58 rcall TFT_CmdWrite
heinrichsweikamp
parents:
diff changeset
59 endm
heinrichsweikamp
parents:
diff changeset
60
heinrichsweikamp
parents:
diff changeset
61 Parameter_out macro high_b, low_b
heinrichsweikamp
parents:
diff changeset
62 movlw high_b
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
63 movwf PORTA ; upper
0
heinrichsweikamp
parents:
diff changeset
64 movlw low_b
heinrichsweikamp
parents:
diff changeset
65 rcall TFT_DataWrite
heinrichsweikamp
parents:
diff changeset
66 endm
heinrichsweikamp
parents:
diff changeset
67
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
68 ;=============================================================================
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
69 tft CODE
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
70 ;=============================================================================
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
71
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
72 global TFT_ClearScreen
0
heinrichsweikamp
parents:
diff changeset
73 TFT_ClearScreen:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
74 btfsc screen_type2 ; screen type 2?
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
75 bra TFT_ClearScreen_display2; YES
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
76 btfsc screen_type3 ; screen type 3?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
77 bra TFT_ClearScreen_display3; YES
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
78
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
79 Index_out 0x50 ; window horizontal start address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
80 Parameter_out 0x00, 0x00 ; 0-239
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
81 Index_out 0x51 ; window horizontal end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
82 Parameter_out 0x00, 0xEF ; 0-239
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
83 Index_out 0x52 ; window vertical start address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
84 Parameter_out 0x00, 0x00 ; 0-319
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
85 Index_out 0x53 ; window vertical end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
86 Parameter_out 0x01, 0x3F ; 0-319
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
87 Index_out 0x20 ; frame memory horizontal address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
88 Parameter_out 0x00, 0x00 ; 0-239
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
89 Index_out 0x21 ; frame memory vertical address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
90 Parameter_out 0x01, 0x3F ; 0-319
0
heinrichsweikamp
parents:
diff changeset
91
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
92 Index_out 0x22 ; frame memory data write start
0
heinrichsweikamp
parents:
diff changeset
93
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
94 RD_H ; not read
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
95 RS_H ; data
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
96 NCS_L ; not CS
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
97 clrf PORTH ; data lower
0
heinrichsweikamp
parents:
diff changeset
98
heinrichsweikamp
parents:
diff changeset
99 movlw d'10'
heinrichsweikamp
parents:
diff changeset
100 movwf tft_temp3
heinrichsweikamp
parents:
diff changeset
101 TFT_ClearScreen2:
heinrichsweikamp
parents:
diff changeset
102 movlw d'30'
heinrichsweikamp
parents:
diff changeset
103 movwf tft_temp2
heinrichsweikamp
parents:
diff changeset
104 TFT_ClearScreen3:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
105 clrf tft_temp1 ; 30*10*256=76800 pixels -> clear complete 240*320
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
106 bcf INTCON,GIE
0
heinrichsweikamp
parents:
diff changeset
107 TFT_ClearScreen4:
heinrichsweikamp
parents:
diff changeset
108 WR_L
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
109 WR_H ; tick
0
heinrichsweikamp
parents:
diff changeset
110 decfsz tft_temp1,F
heinrichsweikamp
parents:
diff changeset
111 bra TFT_ClearScreen4
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
112 bsf INTCON,GIE
0
heinrichsweikamp
parents:
diff changeset
113 decfsz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
114 bra TFT_ClearScreen3
heinrichsweikamp
parents:
diff changeset
115 decfsz tft_temp3,F
heinrichsweikamp
parents:
diff changeset
116 bra TFT_ClearScreen2
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
117
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
118 movlw 0x00 ; NOP, to stop window mode
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
119 bra TFT_CmdWrite ; and return
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
120
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
121 TFT_ClearScreen_display2:
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
122 movlw 0x02 ; column address start
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
123 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
124 movlw 0x00
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
125 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
126 movlw 0x03
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
127 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
128 movlw 0x00
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
129 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
130
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
131 movlw 0x04 ; column address end
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
132 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
133 movlw 0x00
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
134 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
135 movlw 0x05
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
136 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
137 movlw 0xEF
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
138 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
139
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
140 movlw 0x06 ; row address start
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
141 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
142 movlw 0x00
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
143 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
144 movlw 0x07
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
145 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
146 movlw 0x00
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
147 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
148
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
149 movlw 0x08 ; row address end
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
150 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
151 movlw 0x01
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
152 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
153 movlw 0x09
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
154 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
155 movlw 0x3F
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
156 rcall TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
157
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
158 movlw 0x22 ; start writing data to GRAM
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
159 rcall TFT_CmdWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
160
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
161 movlw .160 ; 160 x 240 x 6 = 230400 ticks
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
162 TFT_ClearScreen_display2_loop0:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
163 bsf tft_rs ; data!
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
164 movwf PRODH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
165 clrf PORTH
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
166 TFT_ClearScreen_display2_loop1:
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
167 movlw .240
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
168 movwf PRODL
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
169 TFT_ClearScreen_display2_loop2:
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
170 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
171 bsf tft_nwr ; upper
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
172 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
173 bsf tft_nwr ; high
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
174 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
175 bsf tft_nwr ; lower
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
176 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
177 bsf tft_nwr ; upper
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
178 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
179 bsf tft_nwr ; high
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
180 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
181 bsf tft_nwr ; lower
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
182 decfsz PRODL,F
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
183 bra TFT_ClearScreen_display2_loop2
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
184 decfsz PRODH,F
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
185 bra TFT_ClearScreen_display2_loop1
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
186 return
0
heinrichsweikamp
parents:
diff changeset
187
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
188 TFT_ClearScreen_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
189 movlw 0x35 ; vertical start address HIGH:LOW
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
190 rcall TFT_CmdWrite
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
191 mullw 0
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
192 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
193
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
194 movlw 0x36 ; vertical end address HIGH:LOW
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
195 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
196 movlw 0x01
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
197 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
198 movlw 0x3F
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
199 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
200
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
201 movlw 0x37 ; horizontal address START:END
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
202 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
203 movlw 0x00
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
204 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
205 movlw 0xEF
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
206 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
207
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
208 movlw 0x20 ; start address horizontal (.0 - .239)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
209 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
210 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
211
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
212 movlw 0x21 ; start address vertical (.0 - .319)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
213 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
214 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
215
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
216 movlw 0x22 ; start writing data to GRAM
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
217 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
218
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
219 movlw .107 ; 107 x 240 x 6 = 154080 ticks (153600 would be enough)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
220 bra TFT_ClearScreen_display2_loop0
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
221
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
222
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
223 global TFT_DisplayOff
0
heinrichsweikamp
parents:
diff changeset
224 TFT_DisplayOff:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
225 bcf lightsen_power ; power-down light sensor
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
226 btfsc screen_type3 ; screen type 3 ?
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
227 bra TFT_DisplayOff_display3 ; YES - screen needs special power-down sequence
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
228 clrf CCP1CON ; NO - stop PWM
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
229 bcf PORTC,2 ; - pull PWM out to GND
0
heinrichsweikamp
parents:
diff changeset
230 clrf PORTA
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
231 clrf PORTH
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
232 RD_L ; LOW
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
233 RS_L ; LOW
640
8c1f1f334275 3.13 release
heinrichsweikamp
parents: 636
diff changeset
234 WR_L
8c1f1f334275 3.13 release
heinrichsweikamp
parents: 636
diff changeset
235 NCS_L
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
236 bcf tft_nreset
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
237 bsf tft_power ; inverted...
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
238 return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
239
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
240 TFT_DisplayOff_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
241 movlw 0x05
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
242 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
243 movlw 0x00
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
244 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
245 movlw 0x00
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
246 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
247 WAITMS d'32'
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
248 clrf CCP1CON ; stop PWM
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
249 bcf PORTC,2 ; pull PWM out to GND
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
250 WAITMS d'32'
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
251 movlw 0x10
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
252 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
253 movlw 0x00
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
254 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
255 movlw 0x01
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
256 rcall TFT_DataWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
257 WAITMS d'100'
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
258 clrf PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
259 bcf tft_nwr
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
260 bcf tft_cs
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
261 bcf tft_nreset
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
262 WAITMS d'10'
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
263 bsf tft_power ; inverted...
0
heinrichsweikamp
parents:
diff changeset
264 return
heinrichsweikamp
parents:
diff changeset
265
heinrichsweikamp
parents:
diff changeset
266 ; -----------------------------
heinrichsweikamp
parents:
diff changeset
267 ; TFT boot
heinrichsweikamp
parents:
diff changeset
268 ; -----------------------------
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
269
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
270 global TFT_boot
0
heinrichsweikamp
parents:
diff changeset
271 TFT_boot:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
272 ; switch off backlight
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
273 clrf CCP1CON ; stop PWM
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
274 bcf PORTC,2 ; pull PWM out to GND
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
275
0
heinrichsweikamp
parents:
diff changeset
276 clrf PORTA
heinrichsweikamp
parents:
diff changeset
277 clrf PORTH
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
278
0
heinrichsweikamp
parents:
diff changeset
279 RD_L ; LOW
heinrichsweikamp
parents:
diff changeset
280 nop
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
281 WR_L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
282 nop
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
283 NCS_L ; Not CS
0
heinrichsweikamp
parents:
diff changeset
284 nop
heinrichsweikamp
parents:
diff changeset
285 bcf tft_nreset
heinrichsweikamp
parents:
diff changeset
286 WAITMS d'1'
heinrichsweikamp
parents:
diff changeset
287 bcf tft_power ; inverted...
heinrichsweikamp
parents:
diff changeset
288 WAITMS d'1'
heinrichsweikamp
parents:
diff changeset
289 RD_H ; Keep high
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
290 nop
0
heinrichsweikamp
parents:
diff changeset
291 WAITMS d'2'
heinrichsweikamp
parents:
diff changeset
292 bsf tft_nreset
461
4927ba3bd3b5 repeated init (For screen 2 issues)
heinrichsweikamp
parents: 441
diff changeset
293 WAITMS d'5'
4927ba3bd3b5 repeated init (For screen 2 issues)
heinrichsweikamp
parents: 441
diff changeset
294 bcf tft_nreset
4927ba3bd3b5 repeated init (For screen 2 issues)
heinrichsweikamp
parents: 441
diff changeset
295 WAITMS d'5'
4927ba3bd3b5 repeated init (For screen 2 issues)
heinrichsweikamp
parents: 441
diff changeset
296 bsf tft_nreset
0
heinrichsweikamp
parents:
diff changeset
297 WAITMS d'150'
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
298 WR_H ; release bus
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
299 bsf lightsen_power ; supply power to light sensor
0
heinrichsweikamp
parents:
diff changeset
300
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
301 btfsc screen_type3 ; display type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
302 bra TFT_boot_screen3 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
303
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
304 ; Data Transfer Synchronization
0
heinrichsweikamp
parents:
diff changeset
305 Parameter_out 0x00, 0x00
heinrichsweikamp
parents:
diff changeset
306 Parameter_out 0x00, 0x00
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
307
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
308 btfsc screen_type2 ; display type 2 ?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
309 bra TFT_boot_screen2 ; YES
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
310
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
311 ; Get screen type from Bootloader-Info
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
312 movlw 0x7B
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
313 movwf TBLPTRL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
314 movlw 0xF7
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
315 movwf TBLPTRH
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
316 movlw 0x01
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
317 movwf TBLPTRU
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
318 TBLRD*+ ; reads 0x6E for cR and USB OSTC3, 0x00 for BLE (2 and 3), and 0x02 for display 1 OSTC
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
319 movlw 0x02 ; coding for display 1
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
320 cpfseq TABLAT ; display 1 ?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
321 bra TFT_boot_0 ; NO - display 0
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
322
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
323 TFT_boot_1:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
324 ; Init through config table...
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
325 movlw 0x74
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
326 movwf TBLPTRL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
327 movlw 0xF7
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
328 movwf TBLPTRH
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
329 movlw 0x01
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
330 movwf TBLPTRU
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
331 bsf screen_type1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
332 bra TFT_boot_com
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
333
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 436
diff changeset
334 TFT_boot_0:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
335 ; Init through config table...
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
336 movlw LOW display0_config_table
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
337 movwf TBLPTRL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
338 movlw HIGH display0_config_table
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
339 movwf TBLPTRH
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
340 movlw UPPER display0_config_table
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
341 movwf TBLPTRU
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
342 bcf screen_type1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
343
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
344 TFT_boot_com:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
345 rcall display0_init_loop
0
heinrichsweikamp
parents:
diff changeset
346
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
347 Index_out 0x03
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
348 btfsc flip_screen ; 180° rotation ?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
349 bra TFT_boot2 ; YES
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
350
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
351 btfss screen_type1 ; display1?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
352 bra TFT_boot1a ; NO
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
353 Parameter_out 0x10, 0x00 ; display1
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
354 bra TFT_boot3
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
355 TFT_boot1a:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
356 Parameter_out 0x50, 0x20 ; display0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
357 bra TFT_boot3
152
19ad15f04f60 BUGFIX: Clear Setpoint-Fallback warning when in bailout
heinrichsweikamp
parents: 151
diff changeset
358 TFT_boot2:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
359 btfss screen_type1 ; display1?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
360 bra TFT_boot2a ; NO
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
361 Parameter_out 0x10, 0x30 ; display1
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
362 bra TFT_boot3
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
363 TFT_boot2a:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
364 Parameter_out 0x50, 0x10 ; display0
152
19ad15f04f60 BUGFIX: Clear Setpoint-Fallback warning when in bailout
heinrichsweikamp
parents: 151
diff changeset
365 TFT_boot3:
0
heinrichsweikamp
parents:
diff changeset
366 Index_out 0x22
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 152
diff changeset
367 rcall TFT_ClearScreen
0
heinrichsweikamp
parents:
diff changeset
368 Index_out 0x07
312
b2f6a4b01e64 Config table for alternative display
heinrichsweikamp
parents: 275
diff changeset
369 Parameter_out 0x01, 0x33
0
heinrichsweikamp
parents:
diff changeset
370 return
heinrichsweikamp
parents:
diff changeset
371
heinrichsweikamp
parents:
diff changeset
372 display0_config_table:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
373 ; Reg, Dat0, Dat1 or 0xFF,0x00,0x00 for end
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
374 db 0xA4,0x00,0x01,0xFF,.002,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
375 db 0x09,0x00,0x01,0x92,0x04,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
376 db 0x93,0x04,0x02,0x94,0x00,0x02
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
377 db 0x07,0x00,0x00,0x10,0x04,0x30
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
378 db 0x11,0x02,0x37,0x12,0x11,0x8D
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
379 db 0x13,0x11,0x00,0x01,0x01,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
380 db 0x02,0x02,0x00,0x03,0x50,0x20
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
381 db 0x0A,0x00,0x08,0x0D,0x00,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
382 db 0x0E,0x00,0x30,0xFF,.151,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
383 db 0x12,0x11,0xBD,0x20,0x00,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
384 db 0x21,0x00,0x00,0x30,0x06,0x02
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
385 db 0x31,0x56,0x0D,0x32,0x05,0x07
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
386 db 0x33,0x06,0x09,0x34,0x00,0x00
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
387 db 0x35,0x09,0x06,0x36,0x57,0x05
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
388 db 0x37,0x0D,0x06,0x38,0x02,0x06
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
389 db 0x39,0x00,0x00,0xFF,0x00,0x00
0
heinrichsweikamp
parents:
diff changeset
390
heinrichsweikamp
parents:
diff changeset
391 display0_init_loop:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
392 TBLRD*+
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
393 movlw 0xFF
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
394 cpfseq TABLAT
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
395 bra display0_config_write ; write configuration data pair to display
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
396 ; Delay ms or quit (return)
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
397 TBLRD*+
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
398 tstfsz TABLAT ; end of configuration data?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
399 bra $+4 ; NO
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
400 return ; YES - done
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
401 movf TABLAT,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
402 call WAITMSX ; wait WREG milliseconds
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
403 TBLRD*+ ; dummy read (Third byte of delay command)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
404 bra display0_init_loop ; loop
0
heinrichsweikamp
parents:
diff changeset
405
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
406 display0_config_write: ; with command in WREG
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
407 movf TABLAT,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
408 rcall TFT_CmdWrite ; write command
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
409 TBLRD*+ ; get config0
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
410 movff TABLAT,PORTA
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
411 TBLRD*+ ; get config1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
412 movf TABLAT,W
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
413 rcall TFT_DataWrite ; write configuration
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
414 bra display0_init_loop ; loop
0
heinrichsweikamp
parents:
diff changeset
415
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
416
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
417 TFT_boot_screen2:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
418 rcall display1_init ; initialization sequence
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
419
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
420 btfss flip_screen ; 180° rotation?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
421 bra TFT_ClearScreen ; NO - done: clear screen and return
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
422 ; flip the GRAM
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
423 Index_out 0x16
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
424 movlw 0x48 ; flip image in the GRAM (very elegant with display 2...)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
425 rcall TFT_DataWrite ; Write configuration
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
426 bra TFT_ClearScreen ; clear screen and return
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
427
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
428 TFT_boot_screen3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
429 rcall display1_init ; init sequence
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
430 rcall TFT_ClearScreen
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
431 setf CCPR1L ; duty cycle, 255 is required for OLED
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
432 ; Set brightness
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
433 movff opt_brightness,PRODL ; =0: Eco, =1:Medium, =2:Full
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
434 incf PRODL,F ; +1
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
435 dcfsnz PRODL,F
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
436 rcall TFT_display3_low
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
437 dcfsnz PRODL,F
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
438 rcall TFT_display3_med
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
439 dcfsnz PRODL,F
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
440 rcall TFT_display3_high
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
441 ; ToDo: Flip....
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
442 return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
443
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
444 display1_init:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
445 movlw LOW (0x1F8BC )
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
446 movwf TBLPTRL
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
447 movlw HIGH (0x1F8BC & 0xFFFF)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
448 movwf TBLPTRH
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
449 movlw UPPER (0x1F8BC )
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
450 movwf TBLPTRU
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
451 display1_init_loop:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
452 TBLRD*+
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
453 movlw 0xFF ; coding for end of configuration or wait step
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
454 cpfseq TABLAT
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
455 bra display1_config_write ; write configuration pair to display
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
456 ; Delay ms or quit (return)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
457 TBLRD*+
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
458 tstfsz TABLAT ; end of configuration?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
459 bra $+4 ; NO - skip return
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
460 return ; YES - done
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
461 movf TABLAT,W ; read waiting time
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
462 call WAITMSX ; wait WREG milliseconds
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
463 bra display1_init_loop ; loop
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
464 display1_config_write: ; with command in WREG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
465 movf TABLAT,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
466 rcall TFT_CmdWrite ; write command
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
467 TBLRD*+ ; get configuration
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
468 movf TABLAT,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
469 rcall TFT_DataWrite ; write configuration
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
470 btfss screen_type3 ; screen 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
471 bra display1_init_loop ; NO - loop
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
472 ; Screen 3 gets another byte from the table
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
473 TBLRD*+ ; get configuration
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
474 movf TABLAT,W
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
475 rcall TFT_DataWrite ; write configuration
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
476 bra display1_init_loop ; loop
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
477
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
478
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
479 global TFT_CmdWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
480 TFT_CmdWrite:
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
481 RS_L ; command
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
482 ; btfsc screen_type2
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
483 ; bra TFT_CmdWrite_screen2
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
484 clrf PORTA ; upper
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
485 bcf INTCON,GIE
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
486 movwf PORTH ; lower
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
487 WR_L
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
488 WR_H ; tick
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
489 bsf INTCON,GIE
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
490 return
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
491 ;TFT_CmdWrite_screen2:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
492 ; movwf PORTH ; lower
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
493 ; WR_L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
494 ; WR_H ; tick
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
495 ; return;
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
496
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
497 global TFT_DataWrite
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
498 TFT_DataWrite:
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
499 RS_H ; data
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
500 ; btfsc screen_type2
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
501 ; bra TFT_DataWrite_screen2
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
502 bcf INTCON,GIE
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
503 movwf PORTH ; lower
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
504 WR_L
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
505 WR_H ; tick
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
506 bsf INTCON,GIE
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
507 return
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
508 ;TFT_DataWrite_screen2:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
509 ; movwf PORTH ; lower
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
510 ; WR_L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
511 ; WR_H ; tick
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
512 ; return
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
513
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
514
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
515 ;-----------------------------------------------------------------------------
0
heinrichsweikamp
parents:
diff changeset
516 ; Smooth lighting-up of the display:
heinrichsweikamp
parents:
diff changeset
517 ;
heinrichsweikamp
parents:
diff changeset
518 ; Trashes: WREG, PRODL
heinrichsweikamp
parents:
diff changeset
519 ; Typical usage:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
520 ; clrf CCPR1L ; backlight off
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
521 ; [draw splash screen]
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
522 ; call TFT_DisplayFadeIn
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
523 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
524 global TFT_Display_FadeIn
0
heinrichsweikamp
parents:
diff changeset
525 TFT_Display_FadeIn:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
526 movlw CCP1CON_VALUE ; get configuration
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
527 movwf CCP1CON ; set configuration
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
528 bsf tft_is_dimming ; TFT is dimming, ignore ambient sensor
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
529 btfsc screen_type3
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
530 bra TFT_Display_FadeIn_1
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
531 clrf CCPR1L ; backlight off - to be sure
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
532 movff max_CCPR1L,PRODL
0
heinrichsweikamp
parents:
diff changeset
533 TFT_Display_FadeIn_0:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
534 incf CCPR1L,F ; duty cycle
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
535 WAITMS d'2'
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
536 decfsz PRODL,F
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
537 bra TFT_Display_FadeIn_0
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
538 bcf tft_is_dimming ; dimming done
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
539 return
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
540 TFT_Display_FadeIn_1:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
541 setf CCPR1L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
542 return
0
heinrichsweikamp
parents:
diff changeset
543
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
544 ;-----------------------------------------------------------------------------
0
heinrichsweikamp
parents:
diff changeset
545 ; Smooth lighting-off of the display:
heinrichsweikamp
parents:
diff changeset
546 ; Trashes: WREG, PRODL
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
547 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
548 global TFT_Display_FadeOut
0
heinrichsweikamp
parents:
diff changeset
549 TFT_Display_FadeOut:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
550 movff max_CCPR1L,PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
551 bsf tft_is_dimming ; TFT is dimming, ignore ambient sensor
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
552 btfsc screen_type3
640
8c1f1f334275 3.13 release
heinrichsweikamp
parents: 636
diff changeset
553 return ; Do not fade out screen type 3
0
heinrichsweikamp
parents:
diff changeset
554 TFT_Display_FadeOut_0:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
555 movff PRODL,CCPR1L ; duty cycle
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
556 WAITMS d'1'
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
557 decfsz PRODL,F
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
558 bra TFT_Display_FadeOut_0
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
559 TFT_Display_FadeOut_1:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
560 clrf CCPR1L
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
561 return
0
heinrichsweikamp
parents:
diff changeset
562
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
563 ;-----------------------------------------------------------------------------
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
564 ; OLED brightness control
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
565 ;
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
566 TFT_display3_high: ; 0x01F8F8
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
567 movlw LOW (0x01F8F8 )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
568 movwf TBLPTRL
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
569 movlw HIGH (0x01F8F8 & 0xFFFF)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
570 movwf TBLPTRH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
571 movlw UPPER (0x01F8F8 )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
572 movwf TBLPTRU
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
573 bra display1_init_loop ; and return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
574
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
575 TFT_display3_med: ; 0x01F91C
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
576 movlw LOW (0x01F91C )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
577 movwf TBLPTRL
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
578 movlw HIGH (0x01F91C & 0xFFFF)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
579 movwf TBLPTRH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
580 movlw UPPER (0x01F91C )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
581 movwf TBLPTRU
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
582 bra display1_init_loop ; and return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
583
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
584 TFT_display3_low: ; 0x01F8D4
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
585 movlw LOW (0x01F8D4 )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
586 movwf TBLPTRL
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
587 movlw HIGH (0x01F8D4 & 0xFFFF)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
588 movwf TBLPTRH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
589 movlw UPPER (0x01F8D4 )
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
590 movwf TBLPTRU
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
591 bra display1_init_loop ; and return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
592
0
heinrichsweikamp
parents:
diff changeset
593
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
594 ;-----------------------------------------------------------------------------
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
595 ; colored (filled) Boxes
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
596 ;
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
597 global box_std_block, box_black_block, box_color_block, box_color
0
heinrichsweikamp
parents:
diff changeset
598
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
599 box_std_block: ; use white color
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
600 setf WREG
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
601 bra box_color_block
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
602 box_black_block: ; use black color
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
603 clrf WREG
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
604 box_color_block: ; use color from WREG
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
605 rcall TFT_set_color
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
606 VARARGS_BEGIN
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
607 VARARGS_GET8 win_top
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
608 VARARGS_GET8 win_height
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
609 VARARGS_GET8 win_leftx2
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
610 VARARGS_GET8 win_width
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
611 VARARGS_END
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
612 bra TFT_box
0
heinrichsweikamp
parents:
diff changeset
613
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
614 box_color: ; use color from WREG and pre-set coordinates
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
615 rcall TFT_set_color
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
616 bra TFT_box
0
heinrichsweikamp
parents:
diff changeset
617
heinrichsweikamp
parents:
diff changeset
618
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
619 ;-----------------------------------------------------------------------------
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
620 ; colored Frames
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
621 ;
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
622 global box_frame_std, box_frame_color
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
623
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
624 box_frame_std: ; use white color
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
625 setf WREG
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
626 box_frame_color: ; use color from WREG
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
627 rcall TFT_set_color
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
628 VARARGS_BEGIN
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
629 VARARGS_GET8 win_top
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
630 VARARGS_GET8 win_height
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
631 VARARGS_GET8 win_leftx2
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
632 VARARGS_GET8 win_width
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
633 VARARGS_END
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
634 bra TFT_frame
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
635
0
heinrichsweikamp
parents:
diff changeset
636
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
637 ; ;-----------------------------------------------------------------------------
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
638 ; ; Init for half_pixel_write
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
639 ; ; Set column register on TFT device, and current color.
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
640 ; ; Inputs: win_leftx2
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
641 ; ; Outputs: win_color_1/_2
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
642 ; ; Trashed: WREG, PROD
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
643 ; ;
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
644 ; ; global init_pixel_write
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
645 ; ;init_pixel_write:
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
646 ; ; movf win_leftx2,W
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
647 ; ; mullw 2
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
648 ; ; rcall pixel_write_col320 ; start address vertical (.0 - .319)
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
649 ; ; setf WREG
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
650 ; ; bra TFT_set_color
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
651
0
heinrichsweikamp
parents:
diff changeset
652
heinrichsweikamp
parents:
diff changeset
653 ;-----------------------------------------------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
654 ; Draw two half-pixels at position (win_top,win_leftx2)
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
655 ; Inputs: win_leftx2, win_top, win_color_1/_2
0
heinrichsweikamp
parents:
diff changeset
656 ; Trashed: WREG, PROD
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
657 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
658 global pixel_write
0
heinrichsweikamp
parents:
diff changeset
659 pixel_write:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
660 movf win_leftx2,W
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
661 mullw .2 ; win_leftx2 x 2 -> PRODH:PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
662 rcall pixel_write_col320 ; start address vertical (.0 - .319)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
663 rcall half_pixel_write ; write this half-one
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
664
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
665 movf win_leftx2,W ; address of next one
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
666 mullw .2 ; win_leftx2 x 2 -> PRODH:PRODL
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
667 INCI PROD ; PROD++
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
668 rcall pixel_write_col320
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
669 bra half_pixel_write ; and return... note: cmd 0x20 is mandatory, because
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
670 ; of the auto-increment going vertical
0
heinrichsweikamp
parents:
diff changeset
671
heinrichsweikamp
parents:
diff changeset
672 global pixel_write_col320
heinrichsweikamp
parents:
diff changeset
673 pixel_write_col320:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
674 btfsc screen_type2 ; display type 2 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
675 bra pixel_write_col320_d2 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
676 btfsc screen_type1 ; display type 1 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
677 bra pixel_write_col320_d1 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
678 btfsc screen_type3 ; display type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
679 bra pixel_write_col320_d3 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
680 ; NO to all - display type 0
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
681 btfss flip_screen ; 180° rotation?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
682 bra pixel_write_noflip_H ; NO
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
683 bra pixel_write_flip_H ; YES
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
684 pixel_write_col320_d1: ; display type 1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
685 btfsc flip_screen ; 180° rotation?
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
686 bra pixel_write_noflip_H ; YES
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
687 pixel_write_flip_H: ; flip d0
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
688 movf PRODL,W ; 16 bits 319 - PROD --> PROD
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
689 sublw LOW .319 ; 319-W --> W
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
690 movwf PRODL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
691 movf PRODH,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
692 btfss STATUS,C ; borrow = /CARRY
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
693 incf WREG
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
694 sublw HIGH .319
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
695 movwf PRODH
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
696
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
697 pixel_write_noflip_H:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
698 Index_out 0x21 ; frame memory vertical address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
699 bra TFT_DataWrite_PROD ; and return...
0
heinrichsweikamp
parents:
diff changeset
700
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
701 pixel_write_col320_d2:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
702 movlw 0x06
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
703 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
704 movf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
705 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
706 movlw 0x07
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
707 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
708 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
709 rcall TFT_DataWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
710
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
711 incf PRODL,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
712 movlw .0
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
713 addwfc PRODH,F ; +1
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
714
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
715 movlw 0x08
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
716 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
717 movf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
718 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
719 movlw 0x09
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
720 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
721 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
722 bra TFT_DataWrite ; ... and return
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
723
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
724 pixel_write_col320_d3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
725 movlw 0x21 ; start address vertical (.0 - .319)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
726 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
727 bra TFT_DataWrite_PROD ; and return...
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
728
0
heinrichsweikamp
parents:
diff changeset
729 ;-----------------------------------------------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
730 ; Write one half-pixel at position (win_top,win_leftx2).
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
731 ; Inputs: win_leftx2, win_top, win_color_1/_2
0
heinrichsweikamp
parents:
diff changeset
732 ; Trashed: WREG, PROD
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
733 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
734 global half_pixel_write
0
heinrichsweikamp
parents:
diff changeset
735 half_pixel_write:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
736 movf win_top,W ; d'0' ... d'239'
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
737 ; Variant with Y position in WREG
0
heinrichsweikamp
parents:
diff changeset
738 half_pixel_write_1:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
739 btfsc screen_type2 ; display type 2 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
740 bra half_pixel_write_1_display2 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
741 btfsc screen_type3 ; display type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
742 bra half_pixel_write_1_display3 ; YES
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
743
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
744 half_pixel_write_1_display1:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
745 btfss flip_screen ; 180° rotation?
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
746 sublw .239 ; 239-Y --> Y
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
747 mullw .1 ; copy row to PRODL (PRODH=0)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
748 Index_out 0x20 ; frame memory horizontal address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
749 rcall TFT_DataWrite_PROD
0
heinrichsweikamp
parents:
diff changeset
750
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
751 Index_out 0x22 ; frame memory data write start
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
752 RS_H ; data
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
753 bcf INTCON,GIE
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
754 movff win_color1,PORTA ; upper
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
755 movff win_color2,PORTH ; lower
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
756 WR_L
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
757 WR_H ; tick
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
758 bsf INTCON,GIE
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
759 return
0
heinrichsweikamp
parents:
diff changeset
760
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
761 half_pixel_write_1_display2:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
762 mullw 1 ; copy row to PRODL (PRODH=0)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
763 ; Row address start
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
764 movlw 0x02
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
765 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
766 movlw .0
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
767 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
768 movlw 0x03
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
769 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
770 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
771 rcall TFT_DataWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
772
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
773 incf PRODL,F
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
774
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
775 movlw 0x04
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
776 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
777 movlw .0
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
778 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
779 movlw 0x05
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
780 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
781 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
782 rcall TFT_DataWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
783
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
784 movff win_color1,PRODH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
785 movff win_color2,PRODL
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
786 rcall convert_for_display2
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
787
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
788 movlw 0x22 ; start writing data to GRAM
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
789 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
790 RS_H ; data
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
791 movff win_color5, PORTH
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
792 WR_L
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
793 WR_H ; tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
794 movff win_color4, PORTH
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
795 WR_L
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
796 WR_H ; tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
797 movff win_color3, PORTH
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
798 WR_L
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
799 WR_H ; tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
800 return
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
801
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
802 half_pixel_write_1_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
803 mullw 1 ; copy row to PRODL (PRODH=0)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
804
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
805 movlw 0x20 ; horizontal address START:END
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
806 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
807 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
808
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
809 movlw 0x22 ; start writing data to GRAM
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
810 rcall TFT_CmdWrite
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
811 RS_H ; data
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
812 movff win_color1, PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
813 WR_L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
814 WR_H ; tick
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
815 movff win_color2, PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
816 WR_L
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
817 WR_H ; tick
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
818 return ; done
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
819
0
heinrichsweikamp
parents:
diff changeset
820 ;-----------------------------------------------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
821 ; Draw a vertical line of half-pixel at position (win_top,win_leftx2,win_height).
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
822 ; Inputs: win_leftx2, win_top, win_height, win_color_1/_2
0
heinrichsweikamp
parents:
diff changeset
823 ; Trashed: WREG, PROD, TABLAT, TBLPTRL
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
824 ;
0
heinrichsweikamp
parents:
diff changeset
825 global half_vertical_line
heinrichsweikamp
parents:
diff changeset
826 half_vertical_line:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
827 clrf TABLAT ; loop index
0
heinrichsweikamp
parents:
diff changeset
828
heinrichsweikamp
parents:
diff changeset
829 half_vertical_line_loop:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
830 movf win_leftx2,W ; init X position
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
831 mullw .2 ; win_leftx2 x 2 -> PRODH:PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
832 movf TABLAT,W ; get loop index
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
833 andlw .1 ; just low bit
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
834 xorwf PRODL,F ; and use it to jitter current X position
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
835 rcall pixel_write_col320 ; start address vertical (.0 - .319)
0
heinrichsweikamp
parents:
diff changeset
836
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
837 movf win_height,W ; index reached height (bank0 read) ?
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
838 xorwf TABLAT,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
839 btfsc STATUS,Z ; Equal ?
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
840 return ; YES - done
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
841 movf win_top,W ; Y = top + index (bank0 read)
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
842 addwf TABLAT,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
843 rcall half_pixel_write_1
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
844 incf TABLAT,F ; index++
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
845 bra half_vertical_line_loop
0
heinrichsweikamp
parents:
diff changeset
846
heinrichsweikamp
parents:
diff changeset
847 ;-----------------------------------------------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
848 ; Draw a horizontal line of half-pixel at position (win_top,win_leftx2,win_width).
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
849 ; Inputs: win_leftx2, win_top, win_width, win_color_1/_2
0
heinrichsweikamp
parents:
diff changeset
850 ; Trashed: WREG, PROD, TABLAT, TBLPTRL
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
851 ;
0
heinrichsweikamp
parents:
diff changeset
852 global half_horizontal_line
heinrichsweikamp
parents:
diff changeset
853 half_horizontal_line:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
854 clrf TABLAT ; loop index
0
heinrichsweikamp
parents:
diff changeset
855
heinrichsweikamp
parents:
diff changeset
856 half_horizontal_line_loop:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
857 movf win_leftx2,W ; init X position
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
858 mullw .2 ; win_leftx2 x 2 -> PRODH:PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
859 rcall pixel_write_col320 ; start address vertical (.0 - .319)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
860 movf win_width,W ; index reached height (bank0 read) ?
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
861 xorwf TABLAT,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
862 btfsc STATUS,Z ; equal ?
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
863 return ; YES - done
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
864 movf win_top,W ; Y = top + index (bank0 read)
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
865 addwf TABLAT,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
866 rcall half_pixel_write_1
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
867 incf TABLAT,F ; index++
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
868 bra half_horizontal_line_loop
0
heinrichsweikamp
parents:
diff changeset
869
heinrichsweikamp
parents:
diff changeset
870
heinrichsweikamp
parents:
diff changeset
871 ;-----------------------------------------------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
872 ; TFT Data Command
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
873 ;
0
heinrichsweikamp
parents:
diff changeset
874 TFT_DataWrite_PROD:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
875 ; RD_H ; keep high
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
876 RS_H ; data
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
877 btfsc screen_type2 ; screen type 2 ?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
878 bra TFT_DataWrite_PROD_display2 ; YES
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
879 btfsc screen_type3 ; screen type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
880 bra TFT_DataWrite_PROD_display2 ; YES
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
881 bcf INTCON,GIE ; NO -
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
882 movff PRODH,PORTA ; - move high byte to PORTA
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
883 movff PRODL,PORTH ; - move low byte to PORTH
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
884 WR_L ; - tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
885 WR_H ; - tack
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
886 bsf INTCON,GIE ; -
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
887 return ; - done
0
heinrichsweikamp
parents:
diff changeset
888
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
889 TFT_DataWrite_PROD_display2:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
890 movff PRODH,PORTH ; move high byte to PORTH (display 2 is big endian)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
891 WR_L ; tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
892 WR_H ; tack
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
893 movff PRODL,PORTH ; move low byte to PORTH
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
894 WR_L ; tick
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
895 WR_H ; tack
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
896 btfsc screen_type3 ; screen type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
897 return ; YES - done
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
898 movff win_color3,PORTH ; NO - move low(est) byte to PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
899 WR_L ; - tick
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
900 WR_H ; - tack
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
901 return ; - done
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
902
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
903
0
heinrichsweikamp
parents:
diff changeset
904 TFT_DataRead_PROD:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
905 Index_out 0x22 ; frame memory data read start
360
5f142cff43f6 hardware support
heinrichsweikamp
parents: 312
diff changeset
906 TFT_CmdRead_PROD:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
907 setf TRISA ; port A as input
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
908 setf TRISH ; port H as input
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
909 RS_H ; data
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
910 WR_H ; not write
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
911 RD_L ; read
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
912 nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
913 nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
914 nop
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
915 RD_H ; tick
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
916 nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
917 nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
918 nop
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
919 RD_L ; read
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
920 nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
921 ;nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
922 ;nop
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
923 movff PORTA,PRODH
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
924 movff PORTH,PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
925 RD_H ; tick
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
926 nop
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
927 clrf TRISA ; port A as output
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
928 clrf TRISH ; port H as output
0
heinrichsweikamp
parents:
diff changeset
929 return
heinrichsweikamp
parents:
diff changeset
930
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
931 ;-----------------------------------------------------------------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
932 ; Output TFT Window Address commands
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
933 ; Inputs : win_top, win_leftx2, win_height, win_width
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
934 ; Output : PortA/PortH commands
0
heinrichsweikamp
parents:
diff changeset
935 ; Trashed: PROD
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
936 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
937 global TFT_box_write
0
heinrichsweikamp
parents:
diff changeset
938 TFT_box_write:
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
939 movf win_leftx2,W ; compute left = 2 * leftx2 --> PROD
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
940 mullw .2 ; win_leftx2 x 2 -> PRODH:PRODL
0
heinrichsweikamp
parents:
diff changeset
941
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
942 btfsc screen_type2 ; screen type 2 ?
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
943 bra TFT_box_write_display2 ; YES
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
944 btfsc screen_type3 ; screen type 3 ?
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
945 bra TFT_box_write_display3 ; YES
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
946 btfsc screen_type1 ; screen type 1 ?
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
947 bra TFT_box_write_display1 ; YES
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
948
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
949 ; screen type 0
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
950 TFT_box_write_display0:
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
951 btfsc flip_screen ; 180° rotation?
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
952 bra TFT_box_do_flip_H ; YES
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
953 bra TFT_box_no_flip_H ; NO
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
954
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
955 ; screen type 1
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
956 TFT_box_write_display1:
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
957 btfss flip_screen ; 180° rotation?
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
958 bra TFT_box_do_flip_H ; NO
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
959 ;bra TFT_box_no_flip_H ; YES
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
960
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
961 ;---- Normal horizontal window ---------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
962 TFT_box_no_flip_H:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
963 Index_out 0x52 ; window vertical start address
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
964 rcall TFT_DataWrite_PROD ; output left
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
965 Index_out 0x21 ; frame memory vertical address
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
966 rcall TFT_DataWrite_PROD ; output left
0
heinrichsweikamp
parents:
diff changeset
967
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
968 movf win_width+0,W ; right = left + width - 1
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
969 addwf PRODL,F
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
970 movf win_width+1,W
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
971 addwfc PRODH,F
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
972 decf PRODL,F ; right--
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
973 btfss STATUS,C
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
974 decf PRODH,F
0
heinrichsweikamp
parents:
diff changeset
975
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
976 Index_out 0x53 ; window vertical end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
977 rcall TFT_DataWrite_PROD
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
978 bra TFT_box_common_H
0
heinrichsweikamp
parents:
diff changeset
979
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
980 ;---- Flipped horizontal window --------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
981 TFT_box_do_flip_H:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
982 ; calculate new coordinate
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
983 movf PRODL,W ; 16 bits 319 - PROD --> PROD
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
984 sublw LOW .319 ; 319 - WREG --> WREG
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
985 movwf PRODL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
986 movf PRODH,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
987 btfss STATUS,C ; borrow = /CARRY
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
988 incf WREG
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
989 sublw HIGH .319
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
990 movwf PRODH
152
19ad15f04f60 BUGFIX: Clear Setpoint-Fallback warning when in bailout
heinrichsweikamp
parents: 151
diff changeset
991
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
992 Index_out 0x53 ; window vertical start address
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
993 rcall TFT_DataWrite_PROD ; output left
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
994 Index_out 0x21 ; frame memory vertical address
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
995 rcall TFT_DataWrite_PROD ; output left
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
996
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
997 ; calculate new coordinate
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
998 movf win_width+0,W ; 16 bits PROD - width --> PROD
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
999 subwf PRODL,F ; PRODL - WREG --> PRODL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1000 movf win_width+1,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1001 subwfb PRODH,F
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1002 INCI PROD ; PROD++
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1003
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1004 Index_out 0x52 ; window vertical end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1005 rcall TFT_DataWrite_PROD
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1006
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1007 TFT_box_common_H:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1008 btfss flip_screen ; 180° rotation ?
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1009 bra TFT_box_no_flip_V ; NO
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1010 ;bra TFT_box_do_flip_V ; YES
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1011
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1012 ;---- Flipped vertical window -----------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1013 TFT_box_do_flip_V:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1014 ; calculate new coordinate
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1015 movff win_top,PRODH ; top --> PRODH (first byte)
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1016 movf win_height,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1017 addwf PRODH,W
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1018 decf WREG
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1019 movwf PRODL ; top + height - 1 --> PRODL (second byte)
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1020
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1021 Index_out 0x50 ; window horizontal start address
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1022 movf PRODH,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1023 rcall TFT_DataWrite ; lower (and tick)
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1024
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1025 Index_out 0x51 ; window horizontal end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1026 movf PRODL,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1027 rcall TFT_DataWrite ; lower (and tick)
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1028
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1029 Index_out 0x20 ; frame memory horizontal address
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1030 movf PRODH,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1031 bra TFT_DataWrite ; lower (and tick) and return
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 125
diff changeset
1032
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1033 ;---- Normal vertical window ----------------------------------------
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1034 TFT_box_no_flip_V:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1035 movff win_top,PRODL
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1036 movf win_height,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1037 addwf PRODL,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1038 sublw .240 ; 240 - top - height
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1039 movwf PRODH ; first byte
0
heinrichsweikamp
parents:
diff changeset
1040
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1041 movf PRODL,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1042 sublw .239 ; 239 - top
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1043 movwf PRODL ; --> second byte
0
heinrichsweikamp
parents:
diff changeset
1044
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1045 Index_out 0x50 ; window horizontal start address
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1046 movf PRODH,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1047 rcall TFT_DataWrite ; lower (and tick)
0
heinrichsweikamp
parents:
diff changeset
1048
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1049 Index_out 0x51 ; window horizontal end address
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1050 movf PRODL,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1051 rcall TFT_DataWrite ; lower (and tick)
0
heinrichsweikamp
parents:
diff changeset
1052
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1053 Index_out 0x20 ; frame memory horizontal address
432
929feb0da4f5 hunting a bug in the logbook (Day 2)
heinrichsweikamp
parents: 431
diff changeset
1054 movf PRODL,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1055 bra TFT_DataWrite ; lower (and tick) and return
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1056
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1057
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1058 TFT_box_write_display2:
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1059 ; setup left border
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1060 movlw 0x06
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1061 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1062 movf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1063 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1064 movlw 0x07
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1065 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1066 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1067 rcall TFT_DataWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1068
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1069 movf win_width+0,W ; right = left + width - 1
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1070 addwf PRODL,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1071 movf win_width+1,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1072 addwfc PRODH,F
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1073 decf PRODL,F ; decrement result
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1074 btfss STATUS,C
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1075 decf PRODH,F
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1076
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1077 ; setup right border
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1078 movlw 0x08
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1079 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1080 movf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1081 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1082 movlw 0x09
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1083 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1084 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1085 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1086
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1087 ;---- Normal vertical window -----------------------------------------
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1088 ; Output (top) (bottom)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1089 movff win_top,PRODH ; top --> PRODH (first byte)
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1090 movf win_height,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1091 addwf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1092 decf WREG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1093 movwf PRODL ; top+height-1 --> PRODL (second byte)
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1094
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1095 movlw 0x02
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1096 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1097 movlw 0x00
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1098 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1099 movlw 0x03
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1100 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1101 movf PRODH,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1102 rcall TFT_DataWrite
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1103
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1104 movlw 0x04
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1105 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1106 movlw 0x00
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1107 rcall TFT_DataWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1108 movlw 0x05
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1109 rcall TFT_CmdWrite
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1110 movf PRODL,W
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1111 bra TFT_DataWrite ; ... and return
0
heinrichsweikamp
parents:
diff changeset
1112
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1113 TFT_box_write_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1114 ;---- Normal horizontal window ---------------------------------------
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1115 ; Output 0x35 left,
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1116 ; 0x36 right == left + width - 1.
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1117
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1118 Index_out 0x35 ; window vertical start address
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1119 rcall TFT_DataWrite_PROD ; output left
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1120 Index_out 0x21 ; also the horizontal first pix coordinate
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1121 rcall TFT_DataWrite_PROD ; output left
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1122
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1123 movf win_width+0,W ; right = left + width - 1
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1124 addwf PRODL,F
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1125 movf win_width+1,W
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1126 addwfc PRODH,F
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1127 decf PRODL,F ; decrement result
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1128 btfss STATUS,C
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1129 decf PRODH,F
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1130
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1131 Index_out 0x36 ; write and the right border
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1132 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1133
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1134 ;---- Normal vertical window -----------------------------------------
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1135 ; Output 0x37 (top) (bottom)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1136 movff win_top,PRODH ; top --> PRODH (first byte)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1137 movff win_height,WREG
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1138 addwf PRODH,W
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1139 decf WREG
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1140 movwf PRODL ; top + height - 1 --> PRODL (second byte)
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1141
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1142 Index_out 0x37
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1143 rcall TFT_DataWrite_PROD
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1144
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1145 movff PRODH,PRODL
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1146 clrf PRODH ; start pixel V coord == top.
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1147 Index_out 0x20
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1148 bra TFT_DataWrite_PROD ; and return...
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1149
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1150
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1151 ;-----------------------------------------------------------------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1152 ; TFT_frame : draw a frame around current box with current color
0
heinrichsweikamp
parents:
diff changeset
1153 ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
heinrichsweikamp
parents:
diff changeset
1154 ; Outputs: (none)
heinrichsweikamp
parents:
diff changeset
1155 ; Trashed: WREG, PROD, aa_start:2, aa_end:2
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1156 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1157 global TFT_frame
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1158 TFT_frame:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1159 movff win_top,tft_save_top ; backup everything
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1160 movff win_height,tft_save_height
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1161 movff win_leftx2,tft_save_left
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1162 movff win_width+0,tft_save_width
0
heinrichsweikamp
parents:
diff changeset
1163
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1164 ;---- TOP line -----------------------------------------------------------
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1165 movlw .1 ; row ~ height = 1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1166 movwf win_height
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1167 rcall TFT_box
0
heinrichsweikamp
parents:
diff changeset
1168
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1169 ;---- BOTTOM line --------------------------------------------------------
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1170 movff tft_save_top,PRODL ; get back top
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1171 movff tft_save_height,WREG ; get back height
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1172 addwf PRODL,W ; top + height
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1173 decf WREG ; top + height - 1
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1174 movwf win_top ; top + height - 1 --> top
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1175 rcall TFT_box
0
heinrichsweikamp
parents:
diff changeset
1176
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1177 ;---- LEFT column --------------------------------------------------------
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1178 movff tft_save_top,win_top ; restore top/height
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1179 movff tft_save_height,win_height
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1180 movlw .1 ; column ~ width = 1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1181 movwf win_width+0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1182 rcall TFT_box
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1183
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1184 ;---- RIGHT column -------------------------------------------------------
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1185 movff tft_save_left,WREG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1186 movff tft_save_width,PRODL
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1187 addwf PRODL,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1188 decf WREG
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1189 movwf win_leftx2
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1190 rcall TFT_box
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1191
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1192 ;---- Restore everything -------------------------------------------------
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1193 movff tft_save_left,win_leftx2
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1194 movff tft_save_width,win_width+0
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1195 return
0
heinrichsweikamp
parents:
diff changeset
1196
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1197 ;-----------------------------------------------------------------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1198 ; TFT_box: fills current box with current color
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1199 ; Inputs : win_top, win_leftx2, win_height, win_width, win_color1, win_color2
0
heinrichsweikamp
parents:
diff changeset
1200 ; Outputs: (none)
heinrichsweikamp
parents:
diff changeset
1201 ; Trashed: WREG, PROD
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1202 ;
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1203 global TFT_box
0
heinrichsweikamp
parents:
diff changeset
1204 TFT_box:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1205 ;---- Define Window ------------------------------------------------------
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1206 bcf STATUS,C
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1207 rlcf win_width+0,F
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1208 rlcf win_width+1,F ; x2
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1209 rcall TFT_box_write ; setup box
0
heinrichsweikamp
parents:
diff changeset
1210
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1211 bcf STATUS,C
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1212 rrcf win_width+1,F ; width /= 2
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1213 rrcf win_width+0,F
0
heinrichsweikamp
parents:
diff changeset
1214
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1215 ;---- Fill Window --------------------------------------------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1216 Index_out 0x22 ; frame memory data write start
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1217 clrf PRODH ; column counter
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1218 RS_H ; data
0
heinrichsweikamp
parents:
diff changeset
1219
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1220 btfsc screen_type2 ; display type 2 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1221 bra TFT_box_display2 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1222 btfsc screen_type3 ; display type 3 ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1223 bra TFT_box_display3 ; YES
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1224
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1225 TFT_box2: ; loop height times
0
heinrichsweikamp
parents:
diff changeset
1226 movff win_height,PRODL
heinrichsweikamp
parents:
diff changeset
1227
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1228 TFT_box3: ; loop width times
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1229 bcf INTCON,GIE
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1230 movff win_color1,PORTA ; upper
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1231 movff win_color2,PORTH ; lower
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1232 WR_L ; tick
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1233 WR_H ; ...
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1234 WR_L ; tick
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1235 WR_H ; ...
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1236 bsf INTCON,GIE
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1237 decfsz PRODL,F ; row loop finished ?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1238 bra TFT_box3 ; NO - continue
0
heinrichsweikamp
parents:
diff changeset
1239
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1240 incf PRODH,F ; column count ++
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1241 movf win_bargraph,W ; get width of active bargraph part
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1242 cpfseq PRODH ; current column == end of active bargraph ?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1243 bra TFT_box4 ; NO - just loop
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1244 clrf win_color1 ; YES - switch to black
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1245 clrf win_color2 ; - ...
0
heinrichsweikamp
parents:
diff changeset
1246 TFT_box4:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1247 movf win_width+0,W ; get total bargraph width
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1248 xorwf PRODH,W ; all columns done?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1249 bnz TFT_box2 ; NO - loop
0
heinrichsweikamp
parents:
diff changeset
1250
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1251 movlw 0x00 ; NOP, to stop window mode
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1252 rcall TFT_CmdWrite
0
heinrichsweikamp
parents:
diff changeset
1253
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1254 ; reset bargraph mode...
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1255 setf win_bargraph
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1256 return
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1257
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1258 TFT_box_display2:
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1259 ; Screen 2
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1260 movff win_color1,PRODH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1261 movff win_color2,PRODL
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1262 rcall convert_for_display2
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1263 clrf PRODH ; column counter
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1264 TFT_box2_display2: ; loop height times
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1265 movff win_height,PRODL
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1266 TFT_box3_display2: ; loop width times
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1267 movff win_color5,PORTH
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1268 bcf tft_nwr
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1269 bsf tft_nwr ; upper
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1270 movff win_color4,PORTH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1271 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1272 bsf tft_nwr ; high
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1273 movff win_color3,PORTH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1274 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1275 bsf tft_nwr ; low
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1276
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1277 movff win_color5,PORTH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1278 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1279 bsf tft_nwr ; upper
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1280 movff win_color4,PORTH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1281 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1282 bsf tft_nwr ; high
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1283 movff win_color3,PORTH
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1284 bcf tft_nwr
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1285 bsf tft_nwr ; low
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1286 decfsz PRODL,F ; row loop finished?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1287 bra TFT_box3_display2 ; NO - loop
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1288 incf PRODH,F ; YES - column count ++
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1289 movf win_bargraph,W ; - get bargraph width
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1290 cpfseq PRODH ; - current column = bargraph ?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1291 bra TFT_box4_display2 ; NO
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1292 clrf win_color5 ; YES - switch to black
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1293 clrf win_color4 ; - ...
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1294 clrf win_color3 ; - ...
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1295 TFT_box4_display2:
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1296 movf win_width+0,W ; get width
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1297 cpfseq PRODH ; width loop finished ?
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1298 bra TFT_box2_display2 ; NO - loop
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1299 setf win_bargraph ; YES - reset bargraph mode
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1300 return ; - done
0
heinrichsweikamp
parents:
diff changeset
1301
628
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1302 TFT_box_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1303 ; Screen 3
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1304 TFT_box2_display3: ; loop height times
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1305 movff win_height,PRODL
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1306 TFT_box3_display3: ; loop width times
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1307 movff win_color1,PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1308 bcf tft_nwr
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1309 bsf tft_nwr ; upper
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1310 movff win_color2,PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1311 bcf tft_nwr
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1312 bsf tft_nwr ; high
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1313 movff win_color1,PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1314 bcf tft_nwr
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1315 bsf tft_nwr ; low
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1316 movff win_color2,PORTH
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1317 bcf tft_nwr
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1318 bsf tft_nwr ; upper
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1319 decfsz PRODL,F ; row loop finished?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1320 bra TFT_box3_display3 ; NO - loop
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1321 incf PRODH,F ; YES - column count ++
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1322 movf win_bargraph,W ; - get bargraph width
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1323 cpfseq PRODH ; - current column = bargraph ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1324 bra TFT_box4_display3 ; NO
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1325 clrf win_color1 ; Yes - switch to black
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1326 clrf win_color2 ; - ...
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1327 TFT_box4_display3:
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1328 movf win_width+0,W ; get width
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1329 cpfseq PRODH ; width loop finished ?
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1330 bra TFT_box2_display3 ; NO - loop
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1331 setf win_bargraph ; YES - reset bargraph mode
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1332 return
cd58f7fc86db 3.05 stable work
heinrichsweikamp
parents: 623
diff changeset
1333
0
heinrichsweikamp
parents:
diff changeset
1334
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1335 ;-----------------------------------------------------------------------------
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1336 ; Convert 8 bit RGB b'RRRGGGBB' into 16 bit RGB b'RRRRRGGGGGGBBBBB'
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1337 ; WREG win_color1 win_color2
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1338 global TFT_set_color
0
heinrichsweikamp
parents:
diff changeset
1339 TFT_set_color:
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1340 movwf tft_temp1 ; get 8 bit RGB b'RRRGGGBB' into tft_temp1...
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1341 movwf tft_temp2 ; ... and tft_temp2
0
heinrichsweikamp
parents:
diff changeset
1342
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1343 ; mask bit 7,6,5,4,3,2
0
heinrichsweikamp
parents:
diff changeset
1344 movlw b'00000011'
heinrichsweikamp
parents:
diff changeset
1345 andwf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1346
heinrichsweikamp
parents:
diff changeset
1347 movlw b'00000000'
heinrichsweikamp
parents:
diff changeset
1348 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1349 movlw b'01010000'
heinrichsweikamp
parents:
diff changeset
1350 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1351 movlw b'10100000'
heinrichsweikamp
parents:
diff changeset
1352 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1353 movlw b'11111000'
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1354 movwf tft_temp3 ; blue done
0
heinrichsweikamp
parents:
diff changeset
1355
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1356 movff tft_temp1,tft_temp2 ; copy
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1357 ; mask bit 7,6,5,1,0
0
heinrichsweikamp
parents:
diff changeset
1358 movlw b'00011100'
heinrichsweikamp
parents:
diff changeset
1359 andwf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1360 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1361 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1362
heinrichsweikamp
parents:
diff changeset
1363 movlw b'00000000'
heinrichsweikamp
parents:
diff changeset
1364 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1365 movlw b'00000100'
heinrichsweikamp
parents:
diff changeset
1366 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1367 movlw b'00001000'
heinrichsweikamp
parents:
diff changeset
1368 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1369 movlw b'00001100'
heinrichsweikamp
parents:
diff changeset
1370 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1371 movlw b'00010000'
heinrichsweikamp
parents:
diff changeset
1372 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1373 movlw b'00010100'
heinrichsweikamp
parents:
diff changeset
1374 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1375 movlw b'00100000'
heinrichsweikamp
parents:
diff changeset
1376 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1377 movlw b'00111111'
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1378 movwf tft_temp4
0
heinrichsweikamp
parents:
diff changeset
1379
heinrichsweikamp
parents:
diff changeset
1380 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1381 rrcf tft_temp3,F
heinrichsweikamp
parents:
diff changeset
1382
heinrichsweikamp
parents:
diff changeset
1383 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1384 rrcf tft_temp3,F
heinrichsweikamp
parents:
diff changeset
1385
heinrichsweikamp
parents:
diff changeset
1386 rrcf tft_temp4,F
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1387 rrcf tft_temp3,W ; tft_temp3 (b'GGGBBBBB') done
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1388 movwf win_color2 ; set color registers...
0
heinrichsweikamp
parents:
diff changeset
1389
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1390 movff tft_temp1,tft_temp2 ; copy
0
heinrichsweikamp
parents:
diff changeset
1391 clrf tft_temp1
heinrichsweikamp
parents:
diff changeset
1392
heinrichsweikamp
parents:
diff changeset
1393 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1394 rrcf tft_temp1,F
heinrichsweikamp
parents:
diff changeset
1395
heinrichsweikamp
parents:
diff changeset
1396 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1397 rrcf tft_temp1,F
heinrichsweikamp
parents:
diff changeset
1398
heinrichsweikamp
parents:
diff changeset
1399 rrcf tft_temp4,F
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1400 rrcf tft_temp1,F ; green done
0
heinrichsweikamp
parents:
diff changeset
1401
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1402 ; mask bit 4,3,2,1,0
0
heinrichsweikamp
parents:
diff changeset
1403 movlw b'11100000'
heinrichsweikamp
parents:
diff changeset
1404 andwf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1405
heinrichsweikamp
parents:
diff changeset
1406 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1407 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1408 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1409 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1410 rrncf tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1411
heinrichsweikamp
parents:
diff changeset
1412 movlw b'00000000'
heinrichsweikamp
parents:
diff changeset
1413 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1414 movlw b'00000100'
heinrichsweikamp
parents:
diff changeset
1415 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1416 movlw b'00001000'
heinrichsweikamp
parents:
diff changeset
1417 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1418 movlw b'00001100'
heinrichsweikamp
parents:
diff changeset
1419 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1420 movlw b'00010000'
heinrichsweikamp
parents:
diff changeset
1421 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1422 movlw b'00010100'
heinrichsweikamp
parents:
diff changeset
1423 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1424 movlw b'00100000'
heinrichsweikamp
parents:
diff changeset
1425 dcfsnz tft_temp2,F
heinrichsweikamp
parents:
diff changeset
1426 movlw b'00111111'
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1427 movwf tft_temp4
0
heinrichsweikamp
parents:
diff changeset
1428
heinrichsweikamp
parents:
diff changeset
1429 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1430 rrcf tft_temp1,F
heinrichsweikamp
parents:
diff changeset
1431
heinrichsweikamp
parents:
diff changeset
1432 rrcf tft_temp4,F
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1433 rrcf tft_temp1,F
0
heinrichsweikamp
parents:
diff changeset
1434
heinrichsweikamp
parents:
diff changeset
1435 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1436 rrcf tft_temp1,F
heinrichsweikamp
parents:
diff changeset
1437
heinrichsweikamp
parents:
diff changeset
1438 rrcf tft_temp4,F
heinrichsweikamp
parents:
diff changeset
1439 rrcf tft_temp1,F
heinrichsweikamp
parents:
diff changeset
1440
heinrichsweikamp
parents:
diff changeset
1441 rrcf tft_temp4,F
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1442 rrcf tft_temp1,W ; red done
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1443 movwf win_color1 ; set color registers
0
heinrichsweikamp
parents:
diff changeset
1444 return
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1445
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1446
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1447 global convert_for_display2
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1448 convert_for_display2: ; convert 16 bit RGB b'RRRRRGGG GGGBBBBB' into 24 bit RGB b'RRRRRR00 GGGGGG00 BBBBBB00'
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1449 ; PRODH PRODL win_color5 win_color4 win_color3
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1450 ; Red
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1451 movff PRODH,win_color5 ; = RRRRRGGG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1452 bcf win_color5,2 ; = RRRRR0GG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1453 btfsc win_color5,7
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1454 bsf win_color5,2 ; = RRRRR1GG the lower two bits are ignored by the screen
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1455 ; Blue
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1456 movff PRODL,win_color3
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1457 rrcf win_color3,F ; = UGGGBBBB and the LSB-blue into carry
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1458 swapf win_color3,F ; = BBBBUGGG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1459 bcf win_color3,3 ; = BBBB0GGG
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1460 btfsc STATUS,C
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1461 bsf win_color3,3 ; = BBBB1GGG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1462 bcf win_color3,2 ; = BBBBB0GG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1463 btfsc win_color3,7
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1464 bsf win_color3,2 ; = BBBBB1GG
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1465 ; Green
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1466 rrcf PRODH,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1467 rrcf PRODL,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1468 rrcf PRODH,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1469 rrcf PRODL,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1470 rrcf PRODH,F
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1471 rrcf PRODL,F ; = GGGGGGBB the lower two bits are ignored by the screen
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1472 movff PRODL,win_color4
608
d866684249bd work on 2.99 stable
heinrichsweikamp
parents: 604
diff changeset
1473 return
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1474
0
heinrichsweikamp
parents:
diff changeset
1475
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1476 ;-----------------------------------------------------------------------------
0
heinrichsweikamp
parents:
diff changeset
1477
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1478 IFDEF _screendump
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1479
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1480 ;-----------------------------------------------------------------------------
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1481 ; Dump screen contents to the UART
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1482 ;
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1483 global TFT_dump_screen_check
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1484 TFT_dump_screen_check:
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1485 btfss vusb_in ; USB (still) plugged in?
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1486 bcf screen_dump_avail ; NO - disable screen dump function
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1487
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1488 SERIAL_CC_RECEIVE WREG ; try to read a byte from RS232
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1489 btfsc rs232_rx_timeout ; anything received?
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1490 return ; NO - done
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1491 xorlw "l" ; YES - exclusive-or with coding of screen dump command
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1492 tstfsz WREG ; - screen dump command received?
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1493 return ; NO - return
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1494 ;bra TFT_dump_screen ; YES - serve screen dump request
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1495
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1496 global TFT_dump_screen
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1497 TFT_dump_screen:
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1498 btfsc screen_type2 ; is this an OSTC with a screen of type 2?
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1499 return ; YES - not supported, abort
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1500 bsf block_sensor_interrupt ; NO - disable sensor interrupts
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1501 SERIAL_LC_SEND 'l' ; - send command acknowledge
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1502
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1503
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1504 ;---- Send DISPLAY box command for the full screen window -------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1505 Index_out 0x50 ; window horizontal start address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1506 Parameter_out 0x00, 0x00 ; 0-239
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1507 Index_out 0x51 ; window horizontal end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1508 Parameter_out 0x00, 0xEF ; 0-239
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1509 Index_out 0x52 ; window vertical start address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1510 Parameter_out 0x00, 0x00 ; 0-319
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1511 Index_out 0x53 ; window vertical end address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1512 Parameter_out 0x01, 0x3F ; 0-319
0
heinrichsweikamp
parents:
diff changeset
1513
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1514 clrf ds_column
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1515 rcall dump_screen_pixel_reset
0
heinrichsweikamp
parents:
diff changeset
1516 dump_screen_1:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1517 btg LEDr ; LED activity toggle
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1518 ; dump even column
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1519 movlw .240 ; 240 lines, once
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1520 movwf ds_line
0
heinrichsweikamp
parents:
diff changeset
1521 dump_screen_2:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1522 Index_out 0x20 ; frame memory horizontal address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1523 movff ds_line,WREG ; d'0' ... d'239'
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1524 mullw .1 ; copy row to PRODH:L
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1525 rcall TFT_DataWrite_PROD
0
heinrichsweikamp
parents:
diff changeset
1526
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1527 movff ds_column,WREG ; initialize X position
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1528 mullw .2 ; ds_column x 2 -> PRODH:PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1529 rcall pixel_write_col320 ; start address vertical (.0 - .319)
0
heinrichsweikamp
parents:
diff changeset
1530
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1531 rcall TFT_DataRead_PROD ; read pixel
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1532 rcall dump_screen_pixel
0
heinrichsweikamp
parents:
diff changeset
1533
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1534 decfsz ds_line,F
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1535 bra dump_screen_2
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1536 rcall dump_screen_pixel_flush
0
heinrichsweikamp
parents:
diff changeset
1537
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1538 ; dump odd column
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1539 movlw .240 ; 240 lines, twice
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1540 movwf ds_line
0
heinrichsweikamp
parents:
diff changeset
1541 dump_screen_3:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1542 Index_out 0x20 ; frame memory horizontal address
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1543 movff ds_line,WREG ; d'0' ... d'239'
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1544 mullw .1 ; copy row to PRODH:L
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1545 rcall TFT_DataWrite_PROD
0
heinrichsweikamp
parents:
diff changeset
1546
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1547 movff ds_column,WREG ; initialize X position
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1548 mullw .2 ; ds_column x 2 -> PRODH:PRODL
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1549 INCI PROD ; PROD++
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1550 rcall pixel_write_col320 ; start address vertical (.0 - .319)
0
heinrichsweikamp
parents:
diff changeset
1551
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1552 rcall TFT_DataRead_PROD ; read pixel
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1553 rcall dump_screen_pixel ; compress and send pixel
0
heinrichsweikamp
parents:
diff changeset
1554
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1555 decfsz ds_line,F
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1556 bra dump_screen_3
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1557 rcall dump_screen_pixel_flush
0
heinrichsweikamp
parents:
diff changeset
1558
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1559 incf ds_column,F
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1560 movlw .160
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1561 cpfseq ds_column
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1562 bra dump_screen_1
0
heinrichsweikamp
parents:
diff changeset
1563
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1564 bcf block_sensor_interrupt ; re-enable sensor interrupts
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1565 clrf RCREG1 ; clear receive buffer
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1566 bcf RCSTA1,CREN ; clear receiver status
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1567 bsf RCSTA1,CREN ; ...
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1568 bsf screen_dump_avail ; enable screen dump function
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1569 return
0
heinrichsweikamp
parents:
diff changeset
1570
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1571 ;-----------------------------------------------------------------------------
0
heinrichsweikamp
parents:
diff changeset
1572 ; Pixel compression
heinrichsweikamp
parents:
diff changeset
1573 ;
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1574 ; Input : PRODH:L = pixel
0
heinrichsweikamp
parents:
diff changeset
1575 ; Output: Compressed stream on output.
heinrichsweikamp
parents:
diff changeset
1576 ; Compressed format:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1577 ; 0ccccccc : BLACK pixel, repeated ccccccc+1 times (1..128)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1578 ; 11cccccc : WHITE pixel, repeated cccccc+1 times (1.. 64)
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1579 ; 10cccccc HIGH LOW : color pixel (H:L) repeated ccccc+1 times (1.. 64)
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1580 ;
0
heinrichsweikamp
parents:
diff changeset
1581 dump_screen_pixel:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1582 movf PRODH,W ; compare pixel-high
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1583 xorwf ds_pixel+1,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1584 bnz dump_screen_pixel_1 ; different -> dump
0
heinrichsweikamp
parents:
diff changeset
1585
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1586 movf PRODL,W ; compare pixel-low
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1587 xorwf ds_pixel+0,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1588 bnz dump_screen_pixel_1 ; different -> dump
0
heinrichsweikamp
parents:
diff changeset
1589
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1590 incf ds_count,F ; same color: just increment
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1591 return
0
heinrichsweikamp
parents:
diff changeset
1592
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1593 dump_screen_pixel_1: ; send (pixel,count) tuple
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1594 movf ds_count,W ; is count zero ?
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1595 bz dump_screen_pixel_2 ; YES - skip sending
0
heinrichsweikamp
parents:
diff changeset
1596
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1597 movf ds_pixel+1,W ; is this a BLACK pixel ?
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1598 iorwf ds_pixel+0,W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1599 bz dump_screen_pix_black ; YES
0
heinrichsweikamp
parents:
diff changeset
1600
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1601 movf ds_pixel+1,W ; is this a white pixel ?
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1602 andwf ds_pixel+0,W
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1603 incf WREG
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1604 bz dump_screen_pix_white ; YES
0
heinrichsweikamp
parents:
diff changeset
1605
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1606 ; No: write the pixel itself...
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1607 movlw .64 ; max color pixel on a single byte
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1608 cpfsgt ds_count ; skip if count > 64
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1609 movf ds_count,W ; W <- min(64,count)
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1610 subwf ds_count,F ; ds_count <- ds_count-W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1611 decf WREG ; save as 0..63
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1612 iorlw b'10000000' ; mark as a color pixel
0
heinrichsweikamp
parents:
diff changeset
1613
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1614 SERIAL_CC_SEND WREG ; send byte in WREG
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1615 SERIAL_CC_SEND ds_pixel+1 ; send bytes in ds_pixel, high byte first
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1616 SERIAL_CC_SEND ds_pixel+0 ; low byte last
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1617
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1618 bra dump_screen_pixel_1
0
heinrichsweikamp
parents:
diff changeset
1619
heinrichsweikamp
parents:
diff changeset
1620 dump_screen_pixel_2:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1621 movff PRODH,ds_pixel+1 ; save new pixel color
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1622 movff PRODL,ds_pixel+0
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1623 movlw 1
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1624 movwf ds_count ; and set count=1
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1625 return
0
heinrichsweikamp
parents:
diff changeset
1626
heinrichsweikamp
parents:
diff changeset
1627 dump_screen_pix_black:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1628 movlw .128 ; max black pixel on a single byte
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1629 cpfsgt ds_count ; skip if count > 128
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1630 movf ds_count,W ; W <- min(128,count)
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1631 subwf ds_count,F ; ds_count <- ds_count-W
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1632 decf WREG ; save as 0..127
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1633
0
heinrichsweikamp
parents:
diff changeset
1634 dump_screen_pix_3:
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1635 SERIAL_CC_SEND WREG ; send byte in WREG
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1636 bra dump_screen_pixel_1 ; more to dump ?
0
heinrichsweikamp
parents:
diff changeset
1637
heinrichsweikamp
parents:
diff changeset
1638 dump_screen_pix_white:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1639 movlw .64 ; max white pixel on a single byte
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1640 cpfsgt ds_count ; skip if count > 64
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1641 movf ds_count,W ; W <- min(64,count)
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1642 subwf ds_count,F ; ds_count <- ds_count-W
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1643 decf WREG ; save as 0..63
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1644 iorlw b'11000000' ; mark as a compressed white
631
185ba2f91f59 3.09 beta 1 release
heinrichsweikamp
parents: 628
diff changeset
1645 bra dump_screen_pix_3 ; send pixel
0
heinrichsweikamp
parents:
diff changeset
1646
heinrichsweikamp
parents:
diff changeset
1647 dump_screen_pixel_flush:
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1648 clrf PRODH
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1649 clrf PRODL
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1650 rcall dump_screen_pixel_1 ; send it
0
heinrichsweikamp
parents:
diff changeset
1651 dump_screen_pixel_reset:
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1652 clrf ds_count ; clear count
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1653 return
0
heinrichsweikamp
parents:
diff changeset
1654
623
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1655 ENDIF ; _screendump
c40025d8e750 3.03 beta released
heinrichsweikamp
parents: 608
diff changeset
1656
634
4050675965ea 3.10 stable release
heinrichsweikamp
parents: 631
diff changeset
1657 ;-----------------------------------------------------------------------------
604
ca4556fb60b9 bump to 2.99beta, work on 3.00 stable
heinrichsweikamp
parents: 582
diff changeset
1658
582
b455b31ce022 work on 2.97 stable
heinrichsweikamp
parents: 461
diff changeset
1659 END