Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/dump_screen.asm @ 785:b0c96aaa86e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add ceiling display, no turkish language support anymore
author heinrichsweikamp
date Sun, 29 Jun 2014 15:13:32 +0200
parents a8a36c85e031
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
1 ;=============================================================================
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
2 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
3 ; File dump_screen.asm
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
4 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
5 ; Dump screen contains to the serial interface.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
6 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
7 ; This program is free software: you can redistribute it and/or modify
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
8 ; it under the terms of the GNU General Public License as published by
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
9 ; the Free Software Foundation, either version 3 of the License, or
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
10 ; (at your option) any later version.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
11 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
12 ; This program is distributed in the hope that it will be useful,
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
15 ; GNU General Public License for more details.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
16 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
17 ; You should have received a copy of the GNU General Public License
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
18 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
19 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
20 ; Copyright (c) 2011, JD Gascuel.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
21 ;=============================================================================
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
22 ; HISTORY
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
23 ; 2011-05-08 : [jDG] Creation.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
24 ;
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
25 ; BUGS :
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
26 ; * ...
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
27 ;=============================================================================
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
28 CBLOCK 0x000
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
29 ds_line ; Current line (0..239).
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
30 ds_column ; Current columnx2 (0..159)
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
31 ds_pixel:2 ; Current pixel color.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
32 ds_count ; Repetition count.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
33 ENDC
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
34 ;=============================================================================
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
35
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
36 ; Manage interface to the OSTC platform:
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
37 dump_screen:
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
38 bcf uart_dump_screen ; clear flag!
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
39
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
40 movlw 'l'
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
41 movwf TXREG ; Send command echo.
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
42 bsf no_sensor_int ; No Sensor Interrupt
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
43 bcf PIE1,RCIE ; no interrupt for UART
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
44 bcf PIR1,RCIF ; clear flag
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
45 bsf LED_blue ; LEDusb ON
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
46 call rs232_wait_tx ; wait for UART
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
47
687
a8a36c85e031 ignore screenshots with display1 (for now)
heinrichsweikamp
parents: 681
diff changeset
48 movff win_flags,WREG ; BEWARE: bank0 bit-test
a8a36c85e031 ignore screenshots with display1 (for now)
heinrichsweikamp
parents: 681
diff changeset
49 btfss WREG,1 ; Display1?
a8a36c85e031 ignore screenshots with display1 (for now)
heinrichsweikamp
parents: 681
diff changeset
50 call dump_screen_0 ; No, dump screen
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
51
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
52 bcf no_sensor_int ; Restore Sensor Interrupt
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
53 bcf LED_blue ; Clear led
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
54 bcf LED_red ; Clear led
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
55 bsf PIE1,RCIE ; Interrupt for RS232
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
56 return
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
57
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
58 ;=============================================================================
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
59 ; Dump screen contains to the UART
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
60
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
61 dump_screen_0:
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
62
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
63 ;---- Send DISPLAY box command for the full screen window -------------------
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
64 mullw 0 ; PRODH:L <- 0
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
65
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
66 AA_CMD_WRITE 0x35 ; VerticalStartAddress HIGH:LOW
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
67 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
68
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
69 AA_CMD_WRITE 0x36 ; VerticalEndAddress HIGH:LOW
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
70 AA_DATA_WRITE 0x01
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
71 AA_DATA_WRITE 0x3F
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
72
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
73 AA_CMD_WRITE 0x37 ; HorizontalAddress START:END
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
74 AA_DATA_WRITE 0x00
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
75 AA_DATA_WRITE 0xEF
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
76
477
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
77 btfss win_flip_screen ; OSTC 2N have a flipped screen,
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
78 bra dump_screen_mk2 ; So we should start 239 instead.
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
79 movlw LOW(.239)
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
80 movwf PRODL
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
81 movlw HIGH(.239)
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
82 movwf PRODH
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
83 dump_screen_mk2:
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
84
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
85 AA_CMD_WRITE 0x20 ; Start Address Horizontal (.0 - .239)
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
86 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
87
477
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N).
JeanDo
parents: 336
diff changeset
88 mullw 0 ; Make sure PROD is 0 again.
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
89 AA_CMD_WRITE 0x21 ; Start Address Vertical (.0 - .319)
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
90 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
91
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
92 AA_CMD_WRITE 0x22 ; Start reading.
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
93 rcall DISP_DataRead ; Dummy pixel to skip.
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
94 rcall DISP_DataRead ; Dummy pixel to skip.
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
95
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
96 movlw .160 ; 160x2 columns
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
97 movwf ds_column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
98 rcall dump_screen_pixel_reset
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
99
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
100 dump_screen_1:
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
101 btg LED_red ; LEDactivity toggle
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
102
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
103 AA_CMD_WRITE 0x22 ; Re-sync data.
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
104
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
105 setf TRISD ; PortD as input.
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
106
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
107 ; Dump even column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
108 movlw .240 ; 240 lines, once.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
109 movwf ds_line
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
110 dump_screen_2:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
111 rcall DISP_DataRead ; read pixel-high byte
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
112 movwf PRODH
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
113 rcall DISP_DataRead ; read pixel-low byte
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
114 movwf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
115 rcall dump_screen_pixel
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
116
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
117 decfsz ds_line,F
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
118 bra dump_screen_2
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
119 rcall dump_screen_pixel_flush
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
120
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
121 ; Dump odd column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
122 movlw .240 ; 240 lines, twice.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
123 movwf ds_line
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
124 dump_screen_3:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
125 rcall DISP_DataRead ; read pixel-high byte
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
126 movwf PRODH
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 477
diff changeset
127 rcall DISP_DataRead ; read pixel-low byte
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
128 movwf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
129 rcall dump_screen_pixel
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
130
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
131 decfsz ds_line,F
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
132 bra dump_screen_3
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
133 rcall dump_screen_pixel_flush
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
134
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
135 clrf TRISD ; Back to normal (PortD as output)
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
136
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
137 decfsz ds_column,F
331
469f4861c7c1 Debug screen dump
JeanDo
parents: 330
diff changeset
138 bra dump_screen_1
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
139
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
140 AA_CMD_WRITE 0x00 ; NOP, to stop Address Update Counter
330
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
141 return
447390289f47 NEW screen_dump serial command (l)
JeanDo
parents:
diff changeset
142
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
143 ;=============================================================================
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
144 ; Pixel compression
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
145 ;
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
146 ; Input: PRODH:L = pixel.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
147 ; Output: Compressed stream on output.
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
148 ; Compressed format:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
149 ; 0ccccccc : BLACK pixel, repeated ccccccc+1 times (1..128).
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
150 ; 11cccccc : WHITE pixel, repeated cccccc+1 times (1..64).
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
151 ; 10cccccc HIGH LOW : color pixel (H:L) repeated ccccc+1 times (1..64).
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
152 ;
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
153 dump_screen_pixel:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
154 movf PRODH,W ; Compare pixel-high
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
155 xorwf ds_pixel+1,W
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
156 bnz dump_screen_pixel_1 ; Different -> dump.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
157
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
158 movf PRODL,W ; Compare pixel-low
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
159 xorwf ds_pixel+0,W
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
160 bnz dump_screen_pixel_1 ; Different -> dump.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
161
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
162 incf ds_count,F ; Same color: just increment.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
163 return
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
164
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
165 dump_screen_pixel_1: ; Send (pixel,count) tuple
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
166 movf ds_count,W ; Is count zero ?
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
167 bz dump_screen_pixel_2 ; Yes: skip sending.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
168
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
169 movf ds_pixel+1,W ; This is a BLACK pixel ?
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
170 iorwf ds_pixel+0,W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
171 bz dump_screen_pix_black ; YES.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
172
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
173 movf ds_pixel+1,W ; This is a white pixel ?
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
174 andwf ds_pixel+0,W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
175 incf WREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
176 bz dump_screen_pix_white ; YES.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
177
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
178 ; No: write the pixel itself...
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
179 movlw .64 ; Max color pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
180 cpfsgt ds_count ; Skip if count > 64
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
181 movf ds_count,W ; W <- min(64,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
182 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
183 decf WREG ; Save as 0..63
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
184 iorlw b'10000000' ; MARK as a color pixel.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
185
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
186 movwf TXREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
187 call rs232_wait_tx ; wait for UART
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
188 movff ds_pixel+1,TXREG
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
189 call rs232_wait_tx ; wait for UART
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
190 movff ds_pixel+0,TXREG
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
191 call rs232_wait_tx ; wait for UART
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
192 bra dump_screen_pixel_1
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
193
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
194 dump_screen_pixel_2:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
195 movff PRODH,ds_pixel+1 ; Save new pixel color
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
196 movff PRODL,ds_pixel+0
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
197 movlw 1
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
198 movwf ds_count ; And set count=1.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
199 return
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
200
336
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
201 dump_screen_pix_black:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
202 movlw .128 ; Max black pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
203 cpfsgt ds_count ; Skip if count > 128
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
204 movf ds_count,W ; W <- min(128,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
205 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
206 decf WREG ; Save as 0..127
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
207 dump_screen_pix_3:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
208 movwf TXREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
209 call rs232_wait_tx
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
210 bra dump_screen_pixel_1 ; More to dump ?
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
211
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
212 dump_screen_pix_white:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
213 movlw .64 ; Max white pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
214 cpfsgt ds_count ; Skip if count > 64
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
215 movf ds_count,W ; W <- min(64,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
216 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
217 decf WREG ; Save as 0..63
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
218 iorlw b'11000000' ; MARK as a compressed white.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
219 bra dump_screen_pix_3
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps.
JeanDo
parents: 332
diff changeset
220
332
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
221 dump_screen_pixel_flush:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
222 clrf PRODH
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
223 clrf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
224 rcall dump_screen_pixel_1 ; Send it
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
225 dump_screen_pixel_reset:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
226 clrf ds_count ; But clear count.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes.
JeanDo
parents: 331
diff changeset
227 return