大家好 請問一下
PICDEM_2_PLUS Demoboard 的 LCD需不需要驅動程式
我使用PIC 16F873A 我參照光碟理的範例 但是還是出不來
可否指點一下 謝謝 以下是我的程式碼
list p=16F873a
#include P16F873a.inc


#define LCD_D4 PORTB, 0 ; LCD data bits
#define LCD_D5 PORTB, 1
#define LCD_D6 PORTB, 2
#define LCD_D7 PORTB, 3

#define LCD_D4_DIR TRISB, 0 ; LCD data bits
#define LCD_D5_DIR TRISB, 1
#define LCD_D6_DIR TRISB, 2
#define LCD_D7_DIR TRISB, 3

#define LCD_E PORTA, 1 ; LCD E clock
#define LCD_RW PORTA, 2 ; LCD read/write line
#define LCD_RS PORTA, 3 ; LCD register select line

#define LCD_E_DIR TRISA, 1
#define LCD_RW_DIR TRISA, 2
#define LCD_RS_DIR TRISA, 3

#define LCD_INS 0
#define LCD_DATA 1

D_LCD_DATA UDATA 0x10
COUNTER res 1
delay res 1
temp_wr res 1
temp_rd res 1

GLOBAL temp_wr

PROG1 CODE


;***************************************************************************

LCDLine_1
banksel temp_wr
movlw 0x80
movwf temp_wr
call i_write
return
GLOBAL LCDLine_1

LCDLine_2
banksel temp_wr
movlw 0xC0
movwf temp_wr
call i_write
return
GLOBAL LCDLine_2

d_write ;write data
call LCDBusy
bsf STATUS, C
call LCDWrite
banksel TXREG ;move data into TXREG
movwf TXREG
banksel TXSTA
btfss TXSTA,TRMT ;wait for data TX
goto $-1
banksel PORTA
return
GLOBAL d_write

i_write ;write instruction
call LCDBusy
bcf STATUS, C
call LCDWrite
return
GLOBAL i_write

rlcd macro MYREGISTER
IF MYREGISTER == 1
bsf STATUS, C
call LCDRead
ELSE
bcf STATUS, C
call LCDRead
ENDIF
endm
;****************************************************************************




; *******************************************************************
LCDInit
clrf PORTA

banksel TRISA ;configure control lines
bcf LCD_E_DIR
bcf LCD_RW_DIR
bcf LCD_RS_DIR

movlw b'00001110'
banksel ADCON1
movwf ADCON1

movlw 0xff ; Wait ~15ms @ 20 MHz
banksel COUNTER
movwf COUNTER
movlw 0xFF
banksel delay
movwf delay
call DelayXCycles
decfsz COUNTER, F
goto $-3

movlw b'00110000' ;#1 Send control sequence
movwf temp_wr
bcf STATUS,C
call LCDWriteNibble

movlw 0xff ;Wait ~4ms @ 20 MHz
movwf COUNTER
movlw 0xFF
movwf delay
call DelayXCycles
decfsz COUNTER, F
goto $-3

movlw b'00110000' ;#2 Send control sequence
movwf temp_wr
bcf STATUS,C
call LCDWriteNibble

movlw 0xFF ;Wait ~100us @ 20 MHz
movwf delay
call DelayXCycles

movlw b'0011000' ;#3 Send control sequence
movwf temp_wr
bcf STATUS,C
call LCDWriteNibble

;test delay
movlw 0xFF ;Wait ~100us @ 20 MHz
movwf delay
call DelayXCycles


movlw b'00100000' ;#4 set 4-bit
movwf temp_wr
bcf STATUS,C
call LCDWriteNibble

call LCDBusy ;Busy?

movlw b'00101000' ;#5 Function set
movwf temp_wr
call i_write

movlw b'00001101' ;#6 Display = ON
movwf temp_wr
call i_write

movlw b'00000001' ;#7 Display Clear
movwf temp_wr
call i_write

movlw b'00000110' ;#8 Entry Mode
movwf temp_wr
call i_write

movlw b'10000000' ;DDRAM addresss 0000
movwf temp_wr
call i_write

movlw b'00000010' ;return home
movwf temp_wr
call i_write


return

GLOBAL LCDInit
; *******************************************************************








;****************************************************************************
; _ ______________________________
; RS _>--<______________________________
; _____
; RW \_____________________________
; __________________
; E ____________/ \___
; _____________ ______
; DB _____________>--------------<______
;
LCDWriteNibble
btfss STATUS, C ; Set the register select
bcf LCD_RS
btfsc STATUS, C
bsf LCD_RS

bcf LCD_RW ; Set write mode

banksel TRISB
bcf LCD_D4_DIR ; Set data bits to outputs
bcf LCD_D5_DIR
bcf LCD_D6_DIR
bcf LCD_D7_DIR

NOP ; Small delay
NOP

banksel PORTA
bsf LCD_E ; Setup to clock data

btfss temp_wr, 7 ; Set high nibble
bcf LCD_D7
btfsc temp_wr, 7
bsf LCD_D7
btfss temp_wr, 6
bcf LCD_D6
btfsc temp_wr, 6
bsf LCD_D6
btfss temp_wr, 5
bcf LCD_D5
btfsc temp_wr, 5
bsf LCD_D5
btfss temp_wr, 4
bcf LCD_D4
btfsc temp_wr, 4
bsf LCD_D4

NOP
NOP

bcf LCD_E ; Send the data

return
; *******************************************************************





; *******************************************************************
LCDWrite
call LCDBusy
call LCDWriteNibble
BANKSEL temp_wr
swapf temp_wr, f
call LCDWriteNibble
banksel temp_wr
swapf temp_wr,f

return

GLOBAL LCDWrite
; *******************************************************************





; *******************************************************************
; _____ _____________________________________________________
; RS _____>--<_____________________________________________________
; ____________________________________________________
; RW _________/
; ____________________ ____________________
; E ____________/ \____/ \__
; _________________ __________ ___
; DB _________________>--------------<__________>--------------<___
;
LCDRead
banksel TRISB
bsf LCD_D4_DIR ; Set data bits to inputs
bsf LCD_D5_DIR
bsf LCD_D6_DIR
bsf LCD_D7_DIR

BANKSEL PORTA
btfss STATUS, C ; Set the register select
bcf LCD_RS
btfsc STATUS, C
bsf LCD_RS

bsf LCD_RW ;Read = 1

NOP
NOP

bsf LCD_E ; Setup to clock data

NOP
NOP
NOP
NOP

btfss LCD_D7 ; Get high nibble
bcf temp_rd, 7
btfsc LCD_D7
bsf temp_rd, 7
btfss LCD_D6
bcf temp_rd, 6
btfsc LCD_D6
bsf temp_rd, 6
btfss LCD_D5
bcf temp_rd, 5
btfsc LCD_D5
bsf temp_rd, 5
btfss LCD_D4
bcf temp_rd, 4
btfsc LCD_D4
bsf temp_rd, 4

bcf LCD_E ; Finished reading the data

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP

bsf LCD_E ; Setup to clock data

NOP
NOP

btfss LCD_D7 ; Get low nibble
bcf temp_rd, 3
btfsc LCD_D7
bsf temp_rd, 3
btfss LCD_D6