CFA633-RDI-KS datasheet(76/88 Pages) CRYSTAIFONTZ

76 / 88 page

Crystalfontz America, Inc.

Data Sheet Release Date 2012/02/21

www.crystalfontz.com

CFA633-RDI-KS LCD Module (Hardware v2.0 / Firmware s2v1)

February 2012

Page 76

clrc

; clear carry for CRC register shift

rrf

datareg,f

; perform shift of data into CRC register

rrf

accumh,f

;

rrf

accuml,f

;

btfss

STATUS,C

; skip jump if if carry

goto

_notset

; otherwise goto next bit

movlw

polyL

; XOR poly mask with CRC register

xorwf

accuml,F

;

movlw

polyH

;

xorwf

accumh,F

;

_notset

decfsz

j,F

; decrement bit counter

goto

_loop

; loop if not complete

movfw

savchr

; restore the input character

return

; return to calling routine

;====================================================================

; USER SUPPLIED Serial port transmit routine

;--------------------------------------------------------------------

SENDUART

return

; put serial xmit routine here

;====================================================================

; test string storage

;--------------------------------------------------------------------

org

0100h

;

InputStr

addwf

PCL,f

7h,10h,"This is a test. ",0

;

;====================================================================

end

Algorithm 4: “Visual Basic” Table Implementation

Visual BASIC has its own challenges as a language (such as initializing static arrays), and it is also challenging to use

Visual BASIC to work with “binary” (arbitrary length character data possibly containing nulls—such as the “data” portion

of the CFA633 packet) data. This routine was adapted from the C table implementation. The complete project can be

found in our forums.

'This program is brutally blunt. Just like VB. No apologies.

'Written by Crystalfontz America, Inc. 2004 http://www.crystalfontz.com

'Free code, not copyright copyleft or anything else.

'Some visual basic concepts taken from:

'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=21434&lngWId=1

'most of the algorithm is from functions in 633_WinTest:

'http://www.crystalfontz.com/products/633/633_WinTest.zip

'Full zip of the project is available in our forum:

'http://www.crystalfontz.com/forum/showthread.php?postid=9921#post9921

Private Type WORD

Lo As Byte

Hi As Byte

End Type

Private Type PACKET_STRUCT

command As Byte

data_length As Byte

data(22) As Byte

crc As WORD

End Type

Dim crcLookupTable(256) As WORD

Private Sub MSComm_OnComm()

'Leave this here

CFA633-RDI-KS датащи(PDF) 76 Page - Crystalfontz America, Inc.

CFA633-RDI-KS датащи(HTML) 76 Page - Crystalfontz America, Inc.

Html Pages

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88

датащи скачать

ссылки URL