'**************************************************************** '* Name : NOKIA_DEMO.PBP * '* Author : richard * '* Notice : * '* : * '* Date : 16/5/2018 * '* Version : * '* 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=%11111111 BUFF VAR BYTE[16] ;DEFINES FOR DISPLAY #DEFINE PIC16 1 lcdheight con 5 ; PAGES 48/8 lcdwidth con 83 ; 84 PIXELS WIDE LCD_CLK var LATA.1 ' Clock LCD_DIN var LATA.2 ' Data LCD_RST var LATA.4 LCD_DC var LATA.3 LCD_CE var LATA.6 LCD_LIGHT var LATA.0 Include "nokia.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 LCDSTR 6,0,"-Nokia-Demo-" LCDC 25,5,"8" PAUSE 1000 GOTO looper END