'************************************************************************
'EEPMINI.BAS Mini 3x5 character set for use with a KS0108 (or compatible)
'graphic LCD controller connected to a Microchip(TM) PIC 16F877
'Written in MELabs PicBasicPro(TM) Ver 3.32
'This is a mini-alphanumric set of letters and numbers only
'It is intended to be loaded in an external I2C eeprom
'================== NOT FOR COMMERICIAL USE =============================
'
'       Author: Ranjit Diol - COMPSys LLC, March 2000
'            (c) Copyright Ranjit Diol, 2001
'
'   DISCLAIMER: This file is being released as non-commericial
'   freeware. It is being provided "AS IS", neither the author, 
'   nor COMPSys LLC shall be held liable for any damages caused
'   by its use.This application may be used in its entirety or 
'   in parts within some other application as long as the author
'   is given credit for those parts used.
'
'        Contact: rsdiol@mich.com for more information
'
'************************************************************************

DEFINE	ONINT_USED	1
DEFINE OSC 20
ADCON1	= 7

dat	 var 	PORTD

scl	 var 	PORTC.3		'I2C SCL  for ext eeprom 
sda	 var	PORTC.4		'I2C SDA for ext eeprom
ctl      con    $A0		'EEPROM control code
addr	 var	WORD		'EEPROM address		
edata	 var	BYTE		'Data byte to be written
i        var    BYTE            'Index Counter
edata     =      0
addr      =      $01e0



'NOTE CHANGES:
'=============
'This is a 3x5 mini abbreviated (numbers and letters only)
'character set




' Write data to EXT EEPROM at address $01E0 to $020B
' 3 bytes/char = 129 ($2B) bytes total

for i = 0 to 128	'Load ext eeprom $01e0 to $020B	  
lookup i,[_
$1F,$11,$1F,_       '0	30 	   
$1,$1F,$0,_         '1  31
$1D,$15,$17,_       '2  32
$15,$15,$1F,_       '3  33
$C,$A,$1F,_         '4  34
$17,$15,$1D,_       '5  35
$1F,$15,$1C,_       '6  36
$19,$5,$3,_         '7  37
$1F,$15,$1F,_       '8  38
$17,$15,$1F,_       '9  39
$0,$0,$0,_ 	    'empty 3a 
$0,$0,$0,_          'empty 3b
$0,$0,$0,_          'empty 3c
$0,$0,$0,_          'empty 3d
$0,$0,$0,_          'empty 3e
$0,$0,$0,_          'empty 3f
$0,$0,$0,_          'empty 40
$1E,$5,$1E,_        'A	41
$1F,$15,$E,_        'B	42
$1F,$11,$11,_ 	    'C  43
$1F,$11,$E,_ 	    'D  44   
$1F,$15,$11,_ 	    'E	45
$1F,$5,$1,_ 	    'F	46
$1F,$11,$1D,_ 	    'G	47
$1F,$4,$1F,_ 	    'H	48
$11,$1F,$11,_ 	    'I	49
$18,$10,$1F,_ 	    'J	4a
$1F,$A,$11,_ 	    'K	4b
$1F,$10,$10,_ 	    'L	4c
$1F,$6,$1F,_ 	    'M	4d
$1F,$E,$1F,_ 	    'N	4e
$E,$11,$E,_ 	    'O	4f
$1F,$5,$2,_ 	    'P	50
$E,$9,$16,_ 	    'Q	51
$1F,$5,$1B,_ 	    'R	52
$16,$15,$D,_ 	    'S	53
$1,$1F,$1,_ 	    'T	54
$1F,$10,$1F,_ 	    'U	55
$F,$10,$F,_ 	    'V	56
$1F,$8,$1F,_ 	    'W	57
$1B,$4,$1B,_ 	    'X	58
$3,$1C,$3,_ 	    'Y	59
$19,$15,$13_ 	    'Z	5a	
	   	     ],edata	
I2CWRITE sda,scl,ctl,addr,[edata]		  ' Write to EEPROM
pause 20
addr = addr + 1
next

'End of Program
end