ia4420fifo(pic).asm

IA4420的收发操作源代码 是汇编做的,PIC 单片机

IICSENDBYTE
	MOVLW		08H
	MOVWF		BITCOUNT
IICNEXTBIT
	NOP
	NOP
	CLRC
	RLF		DATABUFF,F
	BTFSC		STATUS,C
	GOTO		IICSENDBIT1
	BCF		DSDI
	GOTO		IICSENDBIT
IICSENDBIT1
	BSF		DSDI
	NOP	
IICSENDBIT
	NOP
	NOP
	BCF		DCLK
	NOP
	NOP
	BSF		DCLK
	DECFSZ		BITCOUNT,F
	GOTO		IICNEXTBIT
	BSF		DSDI	
	CLRF		DATABUFF
	RETURN

LCDWRITECMD
	BCF		DCS
	NOP
	BSF		DSDI
	NOP
	BCF		DCLK
	NOP
	BSF		DCLK
	NOP
	BCF		DSDI
	NOP
	BCF		DCLK
	NOP
	BSF		DCLK
	NOP
	BCF		DSDI
	NOP
	BCF		DCLK
	NOP
	BSF		DCLK
	CALL		IICSENDBYTE
	NOP
	BCF		DCLK
	NOP
	BSF		DCLK
	NOP
	BSF		DCS
	RETURN

LCDCLEAR
	MOVLW		20H
	MOVWF		BYTECOUNT
	BCF		DCS
	NOP
	BSF		DSDI
	NOP
	BCF		DCLK
	NOP
	BSF		DCLK
	MOVLW		40H
	MOVWF		DATABUFF
	CALL		IICSENDBYTE
CLEARLOOP
	CLRF		DATABUFF
	CALL		IICSENDBYTE
	DECFSZ		BYTECOUNT,F
	GOTO		CLEARLOOP
	BSF		DCS
	RETURN

	ORG		0X1000
IICSENDBYTE2
	MOVLW		08H
	MOVWF		BITCOUNT
IICNEXTBIT2
	NOP
	NOP
	CLRC
	RRF		DATABUFF,F
	BTFSC		STATUS,C
	GOTO		IICSENDBIT21
	BCF		DSDI
	GOTO		IICSENDBIT2
IICSENDBIT21
	BSF		DSDI
	NOP	
IICSENDBIT2
	NOP
	NOP
	BCF		DCLK
	NOP
	NOP
	BSF		DCLK
	DECFSZ		BITCOUNT,F
	GOTO		IICNEXTBIT2
	BSF		DSDI	
	CLRF		DATABUFF
	RETURN

CHARDISP
	MOVLW		05H
	MOVWF		BYTECOUNT
	CLRF		INDEX
	MOVLW		20H
	SUBWF		CHARCODE,W
	BCF		STATUS,C
	MOVWF		INDEX+1
	RLF		INDEX+1,F
	RLF		INDEX,F
	RLF		INDEX+1,F
	RLF		INDEX,F
	ADDWF		INDEX+1,F
	BTFSC		STATUS,C
	INCF		INDEX,F
DISPLOOP
	CALL		CHARTABLE
	MOVWF		DATABUFF
	CALL		IICSENDBYTE2
	BCF		STATUS,Z
	INCF		INDEX+1,F
	BTFSC		STATUS,Z
	INCF		INDEX,F
	DECFSZ		BYTECOUNT,F
	GOTO		DISPLOOP
	RETURN

CHARTABLE
	MOVLW		LOW(TABDATA)
	ADDWF		INDEX+1,W
	MOVWF		INDEXBUF
	MOVLW		HIGH(TABDATA)
	BTFSC		STATUS,C
	ADDLW		01H
	ADDWF		INDEX,W
	MOVWF		PCLATH
	MOVF		INDEXBUF,W
	MOVWF		PCL
TABDATA
;DB	000h, 000h, 000h, 000h, 000h, 000h	； ,20H
	RETLW	000H
	RETLW	000H
	RETLW	000H
	RETLW	000H
	RETLW	000H
;DB	000h, 000h, 05Fh, 000h, 000h, 000h	；!,21H
	RETLW	000H
	RETLW	000H
	RETLW	05FH
	RETLW	000H
	RETLW	000H
;DB	000h, 007h, 000h, 007h, 000h, 000h	；",22H
	RETLW	000H
	RETLW	007H
	RETLW	000H
	RETLW	007H
	RETLW	000H
;DB	014h, 07Fh, 014h, 07Fh, 014h, 000h	；#,23H
	RETLW	014H
	RETLW	07FH
	RETLW	014H
	RETLW	07FH
	RETLW	014H
;DB	024h, 02Ah, 07Fh, 02Ah, 012h, 000h	；$,24H
	RETLW	024H
	RETLW	02AH
	RETLW	07FH
	RETLW	02AH
	RETLW	012H
;DB	023h, 013h, 008h, 064h, 062h, 000h	；%,25H
	RETLW	023H
	RETLW	013H
	RETLW	008H
	RETLW	064H
	RETLW	062H
;DB	036h, 049h, 056h, 020h, 050h, 000h	；&,26H
	RETLW	036H
	RETLW	049H
	RETLW	056H
	RETLW	020H
	RETLW	050H
;DB	000h, 008h, 007h, 003h, 000h, 000h	；',27H
	RETLW	000H
	RETLW	008H
	RETLW	007H
	RETLW	003H
	RETLW	000H
;DB	000h, 01Ch, 022h, 041h, 000h, 000h	；(,28H
	RETLW	000H
	RETLW	01CH
	RETLW	022H
	RETLW	041H
	RETLW	000H
;DB	000h, 041h, 022h, 01Ch, 000h, 000h	；),29H
	RETLW	000H
	RETLW	041H
	RETLW	022H
	RETLW	01CH
	RETLW	000H
;DB	02Ah, 01Ch, 07Fh, 01Ch, 02Ah, 000h	；*,2AH
	RETLW	02AH
	RETLW	01CH
	RETLW	07FH
	RETLW	01CH
	RETLW	02AH
;DB	008h, 008h, 03Eh, 008h, 008h, 000h	；+,2BH
	RETLW	008H
	RETLW	008H
	RETLW	03EH
	RETLW	008H
	RETLW	008H
;DB	000h, 080h, 070h, 030h, 000h, 000h	；,,2CH
	RETLW	000H
	RETLW	080H
	RETLW	070H
	RETLW	030H
	RETLW	000H
;DB	008h, 008h, 008h, 008h, 008h, 000h	；-,2DH
	RETLW	008H
	RETLW	008H
	RETLW	008H
	RETLW	008H
	RETLW	008H
;DB	000h, 000h, 060h, 060h, 000h, 000h	；.,2EH
	RETLW	000H
	RETLW	000H
	RETLW	060H
	RETLW	060H
	RETLW	000H
;DB	020h, 010h, 008h, 004h, 002h, 000h	；/,2FH
	RETLW	020H
	RETLW	010H
	RETLW	008H
	RETLW	004H
	RETLW	002H
;DB	03Eh, 051h, 049h, 045h, 03Eh, 000h	；0,30H
	RETLW	03EH
	RETLW	051H
	RETLW	049H
	RETLW	045H
	RETLW	03EH
;DB	000h, 042h, 07Fh, 040h, 000h, 000h	；1
	RETLW	000H
	RETLW	042H
	RETLW	07FH
	RETLW	040H
	RETLW	000H
;DB	072h, 049h, 049h, 049h, 046h, 000h	；2	
	RETLW	072H
	RETLW	049H
	RETLW	049H
	RETLW	049H
	RETLW	046H
;DB	021h, 041h, 049h, 04Dh, 033h, 000h	；3
	RETLW	021H
	RETLW	041H
	RETLW	049H
	RETLW	04DH
	RETLW	033H
;DB	018h, 014h, 012h, 07Fh, 010h, 000h	；4
	RETLW	018H
	RETLW	014H
	RETLW	012H
	RETLW	07FH
	RETLW	010H
;DB	027h, 045h, 045h, 045h, 039h, 000h	；5
	RETLW	027H
	RETLW	045H
	RETLW	045H
	RETLW	045H
	RETLW	039H
;DB	03Ch, 04Ah, 049h, 049h, 031h, 000h	；6
	RETLW	03CH
	RETLW	04AH
	RETLW	049H
	RETLW	049H
	RETLW	031H
;DB	041h, 021h, 011h, 009h, 007h, 000h	；7
	RETLW	041H
	RETLW	021H
	RETLW	011H
	RETLW	009H
	RETLW	007H
;DB	036h, 049h, 049h, 049h, 036h, 000h	；8
	RETLW	036H
	RETLW	049H
	RETLW	049H
	RETLW	049H
	RETLW	036H
;DB	046h, 049h, 049h, 029h, 01Eh, 000h	；9
	RETLW	046H
	RETLW	049H
	RETLW	049H
	RETLW	029H
	RETLW	01EH
;DB	000h, 000h, 014h, 000h, 000h, 000h	；:
	RETLW	000H
	RETLW	000H
	RETLW	014H
	RETLW	000H
	RETLW	000H
;DB	000h, 040h, 034h, 000h, 000h, 000h	；;
	RETLW	000H
	RETLW	040H
	RETLW	034H
	RETLW	000H
	RETLW	000H
;DB	000h, 008h, 014h, 022h, 041h, 000h	；<
	RETLW	000H
	RETLW	008H
	RETLW	014H
	RETLW	022H
	RETLW	041H
;DB	014h, 014h, 014h, 014h, 014h, 000h	；=
	RETLW	014H
	RETLW	014H
	RETLW	014H
	RETLW	014H
	RETLW	014H
;DB	000h, 041h, 022h, 014h, 008h, 000h	；>
	RETLW	000H
	RETLW	041H
	RETLW	022H
	RETLW	014H
	RETLW	008H
;DB	002h, 001h, 059h, 009h, 006h, 000h	；?
	RETLW	002H
	RETLW	001H
	RETLW	059H
	RETLW	009H
	RETLW	006H
;DB	03Eh, 041h, 05Dh, 059h, 04Eh, 000h	；@
	RETLW	03EH
	RETLW	041H
	RETLW	05DH
	RETLW	059H
	RETLW	04EH
TABDATA1
;DB	07Ch, 012h, 011h, 012h, 07Ch, 000h	；A
	RETLW	07CH
	RETLW	012H
	RETLW	011H
	RETLW	012H
	RETLW	07CH
;DB	07Fh, 049h, 049h, 049h, 036h, 000h	；B
	RETLW	07FH
	RETLW	049H
	RETLW	049H
	RETLW	049H
	RETLW	036H
;DB	03Eh, 041h, 041h, 041h, 022h, 000h	；C
	RETLW	03EH
	RETLW	041H
	RETLW	041H
	RETLW	041H
	RETLW	022H
;DB	07Fh, 041h, 041h, 041h, 03Eh, 000h	；D
	RETLW	07FH
	RETLW	041H
	RETLW	041H
	RETLW	041H
	RETLW	03EH
;DB	07Fh, 049h, 049h, 049h, 041h, 000h	；E
	RETLW	07FH
	RETLW	049H
	RETLW	049H
	RETLW	049H
	RETLW	041H
;DB	07Fh, 009h, 009h, 009h, 001h, 000h	；F
	RETLW	07FH
	RETLW	009H
	RETLW	009H
	RETLW	009H
	RETLW	001H
;DB	03Eh, 041h, 041h, 051h, 073h, 000h	；G
	RETLW	03EH
	RETLW	041H
	RETLW	041H
	RETLW	051H
	RETLW	073H
;DB	07Fh, 008h, 008h, 008h, 07Fh, 000h	；H
	RETLW	07FH
	RETLW	008H
	RETLW	008H
	RETLW	008H
	RETLW	07FH
;DB	000h, 041h, 07Fh, 041h, 000h, 000h	；I
	RETLW	000H
	RETLW	041H
	RETLW	07FH
	RETLW	041H
	RETLW	000H
;DB	020h, 040h, 041h, 03Fh, 001h, 000h	；J
	RETLW	020H
	RETLW	040H
	RETLW	041H
	RETLW	03FH
	RETLW	001H
;DB	07Fh, 008h, 014h, 022h, 041h, 000h	；K
	RETLW	07FH
	RETLW	008H
	RETLW	014H
	RETLW	022H
	RETLW	041H
;DB	07Fh, 040h, 040h, 040h, 040h, 000h	；L
	RETLW	07FH
	RETLW	040H
	RETLW	040H
	RETLW	040H
	RETLW	040H
;DB	07Fh, 002h, 01Ch, 002h, 07Fh, 000h	；M
	RETLW	07FH
	RETLW	002H
	RETLW	01CH
	RETLW	002H
	RETLW	07FH
;DB	07Fh, 004h, 008h, 010h, 07Fh, 000h	；N
	RETLW	07FH
	RETLW	004H
	RETLW	008H
	RETLW	010H
	RETLW	07FH
;DB	03Eh, 041h, 041h, 041h, 03Eh, 000h	；O
	RETLW	03EH
	RETLW	041H
	RETLW	041H
	RETLW	041H
	RETLW	03EH
;DB	07Fh, 009h, 009h, 009h, 006h, 000h	；P
	RETLW	07FH
	RETLW	009H
	RETLW	009H
	RETLW	009H
	RETLW	006H
;DB	03Eh, 041h, 051h, 021h, 05Eh, 000h	；Q
	RETLW	03EH
	RETLW	041H
	RETLW	051H
	RETLW	021H
	RETLW	05EH
;DB	07Fh, 009h, 019h, 029h, 046h, 000h	；R
	RETLW	07FH
	RETLW	009H
	RETLW	019H
	RETLW	029H
	RETLW	046H
;DB	026h, 049h, 049h, 049h, 032h, 000h	；S
	RETLW	026H
	RETLW	049H
	RETLW	049H
	RETLW	049H
	RETLW	032H
;DB	003h, 001h, 07Fh, 001h, 003h, 000h	；T
	RETLW	003H
	RETLW	001H
	RETLW	07FH
	RETLW	001H
	RETLW	003H
;DB	03Fh, 040h, 040h, 040h, 03Fh, 000h	；U
	RETLW	03FH
	RETLW	040H
	RETLW	040H
	RETLW	040H
	RETLW	03FH
;DB	01Fh, 020h, 040h, 020h, 01Fh, 000h	；V
	RETLW	01FH
	RETLW	020H
	RETLW	040H
	RETLW	020H
	RETLW	01FH
;DB	03Fh, 040h, 038h, 040h, 03Fh, 000h	；W
	RETLW	03FH
	RETLW	040H
	RETLW	038H
	RETLW	040H
	RETLW	03FH
;DB	063h, 014h, 008h, 014h, 063h, 000h	；X
	RETLW	063H
	RETLW	014H
	RETLW	008H
	RETLW	014H
	RETLW	063H
;DB	003h, 004h, 078h, 004h, 003h, 000h	；Y
	RETLW	003H
	RETLW	004H
	RETLW	078H
	RETLW	004H
	RETLW	003H
;DB	061h, 059h, 049h, 04Dh, 043h, 000h	；Z
	RETLW	061H
	RETLW	059H
	RETLW	049H
	RETLW	04DH
	RETLW	043H


	END