WG12864A

[Aerarh]

Рискнул после WH1602B освоить и WG12864A и вот:

#define WGDL PORTD ; Data Line
#define WGDT TRISD ; Data Tris
#define WGCL PORTC; Control Line
#define WGCT TRISC; Control Tris
#define WG_RSb 0 ; D/I (RS) bit of Control Line
#define WG_RWb 1 ;RW bit of Control Line
#define WG_Eb 2 ; E bit of Control Line
#define WG_CH1b 3 ; CH1 bit of Control Line
#define WG_CH2b 4 ; CH2 bit of Control Line
#define WG_RSTb 5 ; RST bit of Control Line
#define WG_RS WGCL,WG_RSb
#define WG_RW WGCL,WG_RWb
#define WG_E WGCL,WG_Eb
#define WG_CH1 WGCL,WG_CH1b
#define WG_CH2 WGCL,WG_CH2b
#define WG_RST WGCL,WG_RSTb
#define WG_TRS WGCT,WG_RSb
#define WG_TRW WGCT,WG_RWb
#define WG_TE WGCT,WG_Eb
#define WG_TCH1 WGCT,WG_CH1b
#define WG_TCH2 WGCT,WG_CH2b
#define WG_TRST WGCT,WG_RSTb

#include P16F877A.INC

ph org 0
goto start

inth org 4
call intp
retfie

#include C:\Users\Anton\Documents\My Dropbox\PicTest\Common.INC
#include C:\Users\Anton\Documents\My Dropbox\PicTest\WG12864A.INC
#include C:\Users\Anton\Documents\My Dropbox\PicTest\WH1602B.INC

cblock
endc

intp
return

start

call WG_ON
; call WG_ClrScr
l
movlf b'00111111',WG_TEMP
call WG_SendData

goto l

WG_ON
bsf STATUS,RP0
movlf 0x00,WGCT
bcf STATUS,RP0

bsf WG_RST
pause 5

bcf WG_CH1
bsf WG_CH2

bcf WG_E
call WG_PORT_OUT

movlf b'00111111',WG_TEMP
call WG_SendCom
movlf b'01000000',WG_TEMP
call WG_SendCom
movlf b'10111000',WG_TEMP
call WG_SendCom

WG_ON1
call WG_PORT_IN
bcf WG_RS
bsf WG_RW
bcf WG_E
pause 5
bsf WG_E
pause 5
btfsc WGDL,5
goto WG_ON1
bcf WG_E
call WG_PORT_OUT
return


WG_SendCom
movff WG_TEMP,WGDL
bcf WG_RS
call WG_Write
return

WG_SendData
movff WG_TEMP,WGDL
bsf WG_RS
call WG_Write
return

WG_ReadData
bsf STATUS,RP0
movlf 0xFF,WGDT
bcf STATUS,RP0

bsf WG_RS
bsf WG_RW
bsf WG_E
pause 0x2

movff WGDL,WG_TEMP
bcf WG_E

bsf STATUS,RP0
movlf 0x00,WGDT
bcf STATUS,RP0
return


WG_Write
bcf WG_RW
call WG_Enable
return

WG_Enable
bsf WG_E
pause 0x20
bcf WG_E
return

END

Продолжает выдавать 5 бит (Не включен) статуса дисплея.

[Aerarh]

А если в кратце, подскажите как правильно им управлять. Не пойму в чем ошибка.

[Dmitry Dubrovenko]

http://www.gaw.ru/html.cgi/txt/lcd/lcm/ ... 12864A.htm

[DiGiCat]

Вверху тема прилеплена Работа с графическими ЖКИ на контроллере KS0108 и аналогах

Использование графического LCD WG12864A


нашенский аналог - Подключаем МТ-12864-2YLG