'**************************************************************** '* Name : NOKIA_DEMO.PBP * '* Author : richard * '* Notice : * '* : * '* Date : 16/5/2018 * '* Version : mssp1 version with bigtxt * '* Notes : * '* :FOR pic 16F1847@32MHZ NOKIA * '**************************************************************** #CONFIG ; 16FF1847. __config _CONFIG1, _FOSC_INTOSC & _WDTE_ON & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _BOREN_OFF __config _CONFIG2, _PLLEN_OFF & _LVP_OFF #ENDCONFIG define OSC 32 ; --- *** Oscillator *** --------------------------------------------------- OSCCON = %11110000 ;32 MHz, ANSELb = 0 ANSELA = 0 TRISA=%10010000 TRISB=%11101011 ch var byte BUFF VAR BYTE [10] ;DEFINES FOR DISPLAY use font7x5_16.bas or font7x5_18.bas for pic18 #DEFINE PIC16 1 #define use_mssp 1 lcdheight con 5 ; 6 PAGES lcdwidth con 83 ; 84 PIXELS WIDE ' LCD_CLK var LATB.4 ' SCK1 pin needs to be set as dig o/p ' LCD_DIN var LATB.2 ' SDO1 pin needs to be set as dig o/p LCD_RST var LATA.4 LCD_DC var LATA.3 LCD_CE var LATA.6 LCD_LIGHT var LATA.0 Include "nokia_ds.INC" ' bring it in include "font7x5_16.bas" '========================== MAIN Routine ============================== gosub lcd_init LCDCLR ARRAYWRITE BUFF,["READY",0] LCDSTR 5,0,BUFF PAUSE 1000 LCDCLR PAUSE 1000 looper: LCDCLR bigtxt = 1 ;double size chrs LCDSTR 2,0,"Nokia" LCDSTR 12,2,"LCD" bigtxt = 0 ;normal size chrs LCDSTR 52,3,"Demo" LCDSTR 0,4,"With MSSP xfer" LCDSTR 0,5,"Dble Size Chrs" PAUSE 1000 GOTO looper END