mk2: code_part1/OSTC_code_asm_part1/dump

annotate code_part1/OSTC_code_asm_part1/dump_screen.asm @ 675:0211d9b9f0ca

NEW: CF70: Safety Stop Duration [s] NEW: CF71: Safety Stop Start Depth [m] NEW: CF72: Safety Stop End Depth [m] NEW: CF73: Safety Stop Reset Depth [m]

author	heinrichsweikamp
date	Mon, 10 Dec 2012 22:00:37 +0100
parents	1b09cead63a8
children	6e456a6398e0

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
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	48 call dump_screen_0
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	49
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	50 bcf no_sensor_int ; Restore Sensor Interrupt
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	51 bcf LED_blue ; Clear led
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	52 bcf LED_red ; Clear led
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	53 bsf PIE1,RCIE ; Interrupt for RS232
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	54 return
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	55
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	56 ;=============================================================================
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	57 ; Dump screen contains to the UART
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_0:
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	60
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	61 ;---- Send OLED box command for the full screen window -------------------
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	62 mullw 0 ; PRODH:L <- 0
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	63
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	64 AA_CMD_WRITE 0x35 ; VerticalStartAddress HIGH:LOW
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	65 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	66
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	67 AA_CMD_WRITE 0x36 ; VerticalEndAddress HIGH:LOW
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	68 AA_DATA_WRITE 0x01
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	69 AA_DATA_WRITE 0x3F
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	70
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	71 AA_CMD_WRITE 0x37 ; HorizontalAddress START:END
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	72 AA_DATA_WRITE 0x00
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	73 AA_DATA_WRITE 0xEF
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	74
477 1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	75 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	76 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	77 movlw LOW(.239)
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	78 movwf PRODL
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	79 movlw HIGH(.239)
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	80 movwf PRODH
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	81 dump_screen_mk2:
1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	82
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	83 AA_CMD_WRITE 0x20 ; Start Address Horizontal (.0 - .239)
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	84 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	85
477 1b09cead63a8 BUGFIX dump screen top line in flip mode (OSTC 2N). JeanDo parents: 336 diff changeset	86 mullw 0 ; Make sure PROD is 0 again.
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	87 AA_CMD_WRITE 0x21 ; Start Address Vertical (.0 - .319)
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	88 AA_DATA_WRITE_PROD ; 00:00
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	89
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	90 AA_CMD_WRITE 0x22 ; Start reading.
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	91 rcall PLED_DataRead ; Dummy pixel to skip.
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	92 rcall PLED_DataRead ; Dummy pixel to skip.
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	93
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	94 movlw .160 ; 160x2 columns
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	95 movwf ds_column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	96 rcall dump_screen_pixel_reset
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	97
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	98 dump_screen_1:
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	99 btg LED_red ; LEDactivity toggle
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	100
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	101 AA_CMD_WRITE 0x22 ; Re-sync data.
469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	102
469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	103 setf TRISD ; PortD as input.
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	104
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	105 ; Dump even column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	106 movlw .240 ; 240 lines, once.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	107 movwf ds_line
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	108 dump_screen_2:
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	109 rcall PLED_DataRead ; read pixel-high byte
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	110 movwf PRODH
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	111 rcall PLED_DataRead ; read pixel-low byte
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	112 movwf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	113 rcall dump_screen_pixel
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	114
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	115 decfsz ds_line,F
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	116 bra dump_screen_2
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	117 rcall dump_screen_pixel_flush
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	118
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	119 ; Dump odd column
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	120 movlw .240 ; 240 lines, twice.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	121 movwf ds_line
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	122 dump_screen_3:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	123 rcall PLED_DataRead ; read pixel-high byte
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	124 movwf PRODH
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	125 rcall PLED_DataRead ; read pixel-low byte
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	126 movwf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	127 rcall dump_screen_pixel
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	128
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	129 decfsz ds_line,F
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	130 bra dump_screen_3
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	131 rcall dump_screen_pixel_flush
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	132
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	133 clrf TRISD ; Back to normal (PortD as output)
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	134
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	135 decfsz ds_column,F
331 469f4861c7c1 Debug screen dump JeanDo parents: 330 diff changeset	136 bra dump_screen_1
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	137
336 9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	138 AA_CMD_WRITE 0x00 ; NOP, to stop Address Update Counter
330 447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	139 return
447390289f47 NEW screen_dump serial command (l) JeanDo parents: diff changeset	140
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	141 ;=============================================================================
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	142 ; Pixel compression
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 ; Input: PRODH:L = pixel.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	145 ; Output: Compressed stream on output.
336 9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	146 ; Compressed format:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	147 ; 0ccccccc : BLACK pixel, repeated ccccccc+1 times (1..128).
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	148 ; 11cccccc : WHITE pixel, repeated cccccc+1 times (1..64).
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	149 ; 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	150 ;
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	151 dump_screen_pixel:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	152 movf PRODH,W ; Compare pixel-high
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	153 xorwf ds_pixel+1,W
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	154 bnz dump_screen_pixel_1 ; Different -> dump.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	155
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	156 movf PRODL,W ; Compare pixel-low
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	157 xorwf ds_pixel+0,W
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	158 bnz dump_screen_pixel_1 ; Different -> dump.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	159
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	160 incf ds_count,F ; Same color: just increment.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	161 return
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	162
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	163 dump_screen_pixel_1: ; Send (pixel,count) tuple
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	164 movf ds_count,W ; Is count zero ?
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	165 bz dump_screen_pixel_2 ; Yes: skip sending.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	166
336 9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	167 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	168 iorwf ds_pixel+0,W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	169 bz dump_screen_pix_black ; YES.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	170
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	171 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	172 andwf ds_pixel+0,W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	173 incf WREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	174 bz dump_screen_pix_white ; YES.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	175
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	176 ; No: write the pixel itself...
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	177 movlw .64 ; Max color pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	178 cpfsgt ds_count ; Skip if count > 64
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	179 movf ds_count,W ; W <- min(64,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	180 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	181 decf WREG ; Save as 0..63
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	182 iorlw b'10000000' ; MARK as a color pixel.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	183
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	184 movwf TXREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	185 call rs232_wait_tx ; wait for UART
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	186 movff ds_pixel+1,TXREG
336 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+0,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
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	190 bra dump_screen_pixel_1
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	191
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	192 dump_screen_pixel_2:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	193 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	194 movff PRODL,ds_pixel+0
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	195 movlw 1
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	196 movwf ds_count ; And set count=1.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	197 return
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	198
336 9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	199 dump_screen_pix_black:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	200 movlw .128 ; Max black pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	201 cpfsgt ds_count ; Skip if count > 128
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	202 movf ds_count,W ; W <- min(128,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	203 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	204 decf WREG ; Save as 0..127
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	205 dump_screen_pix_3:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	206 movwf TXREG
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	207 call rs232_wait_tx
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	208 bra dump_screen_pixel_1 ; More to dump ?
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	209
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	210 dump_screen_pix_white:
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	211 movlw .64 ; Max white pixel on a single byte.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	212 cpfsgt ds_count ; Skip if count > 64
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	213 movf ds_count,W ; W <- min(64,count)
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	214 subwf ds_count,F ; ds_count <- ds_count-W
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	215 decf WREG ; Save as 0..63
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	216 iorlw b'11000000' ; MARK as a compressed white.
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	217 bra dump_screen_pix_3
9ee86a19f1fa Beter compression for black/white pixels: ~1sec screen dumps. JeanDo parents: 332 diff changeset	218
332 1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	219 dump_screen_pixel_flush:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	220 clrf PRODH
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	221 clrf PRODL
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	222 rcall dump_screen_pixel_1 ; Send it
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	223 dump_screen_pixel_reset:
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	224 clrf ds_count ; But clear count.
1828234369fc Added dump_screen compression. From ~15 to ~2/3 secondes. JeanDo parents: 331 diff changeset	225 return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/dump_screen.asm @ 675:0211d9b9f0ca