'ALPHANUMERIC 94 Character set for loading into an eeprom via I2C
'Written in MELabs PicBasicPro(TM) Ver 3.32
'
'================== 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.
'
'   LICENSE: This application may be used in its entirety or 
'   in parts within some other non-commercial application(s) as long
'   as the author is given credit for those parts used.
'
'        Contact: rsdiol@compsys1.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            'General variable used for loops
edata     =      0
addr      =      0



'NOTE CHANGES:
'=============





' Write data to EXT EEPROM at address 0
	       for i = 0 to 239	     'First 48 of 94 Printable characters
						'dec chr  hex
                        lookup i,[_
			$0,$0,$4F,$0,$0,_	'33 - ! - 21
			$0,$7,$0,$7,$0,_	'34 - " - 22
			$14,$7F,$14,$7F,$14,_	'35 - # - 23
			$24,$2A,$7F,$2A,$12,_	'36 - $ - 24
			$23,$13,$8,$64,$62,_	'37 - % - 25
			$36,$49,$55,$22,$50,_	'38 - & - 26
			$0,$5,$3,$0,$0,_	'39 - ' - 27
			$1C,$22,$41,$0,$0,_	'40 - ( - 28
			$0,$0,$41,$22,$1C,_	'41 - ) - 29
			$14,$8,$3E,$8,$14,_	'42 - * - 2A
			$8,$8,$3E,$8,$8,_	'43 - + - 2B
			$0,$50,$30,$0,$0,_	'44 - , - 2C
			$8,$8,$8,$8,$8,_	'45 - - - 2D
			$0,$60,$60,$0,$0,_	'46 - . - 2E
			$20,$10,$8,$4,$2,_	'47 - / - 2F
			$3E,$51,$49,$45,$3E,_	'48 - 0 - 30
			$0,$42,$7F,$40,$0,_	'49 - 1 - 31
			$42,$61,$51,$49,$46,_	'50 - 2 - 32
			$21,$41,$45,$4B,$31,_	'51 - 3 - 33
			$18,$14,$12,$7F,$10,_	'52 - 4 - 34
			$27,$45,$45,$45,$39,_	'53 - 5 - 35
			$3C,$4A,$49,$49,$30,_	'54 - 6 - 36
			$1,$71,$9,$5,$3,_	'55 - 7 - 37
			$36,$49,$49,$49,$36,_	'56 - 8 - 38
			$06,$49,$49,$40,$20,_	'57 - 9 - 39
			$0,$36,$36,$0,$0,_	'58 - : - 3A
			$0,$56,$36,$0,$0,_	'59 - ; - 3B
			$8,$14,$22,$41,$0,_	'60 - < - 3C
			$14,$14,$14,$14,$14,_	'61 - = - 3D
			$0,$41,$22,$14,$8,_	'62 - > - 3E
			$2,$1,$51,$9,$6,_	'63 - ? - 3F
			$32,$49,$79,$41,$3E,_	'64 - @ - 40
			$7E,$11,$11,$11,$7E,_	'65 - A - 41
			$7F,$49,$49,$49,$36,_	'66 - B - 42
			$3E,$41,$41,$41,$22,_	'67 - C - 43
			$7F,$41,$41,$22,$1C,_	'68 - D - 44
			$7F,$49,$49,$49,$41,_	'69 - E - 45
			$7F,$9,$9,$9,$1,_	'70 - F - 46
			$3E,$41,$49,$49,$7A,_	'71 - G - 47
			$7F,$8,$8,$8,$7F,_	'72 - H - 48
			$0,$41,$7F,$41,$0,_	'73 - I - 49
			$20,$40,$41,$3F,$1,_	'74 - J - 4A
			$7F,$8,$14,$22,$41,_	'75 - K - 4B
			$7F,$40,$40,$40,$40,_	'76 - L - 4C
			$7F,$2,$C,$2,$7F,_	'77 - M - 4D
			$7F,$4,$8,$10,$7F,_	'78 - N - 4E
			$3E,$41,$41,$41,$3E,_	'79 - O - 4F
			$7F,$9,$9,$9,$6_	'80 - P - 50
	   	     ],edata	
                  I2CWRITE sda,scl,ctl,addr,[edata]		  ' Write to EEPROM
	 	  pause 10
		  addr = addr +1
		  next

	            for i = 0 to 229	'Remaining 46 of 94 Printable characters
						'dec chr  hex
           		lookup i,[_
			$3E,$41,$51,$21,$5E,_	'81 - Q - 51
			$7F,$9,$19,$29,$46,_	'82 - R - 52
			$46,$49,$49,$49,$31,_	'83 - S - 53
			$1,$1,$7F,$1,$1,_	'84 - T - 54
			$3F,$40,$40,$40,$3F,_	'85 - U - 55
			$1F,$20,$40,$20,$1F,_	'86 - V - 56
			$3F,$40,$38,$40,$3F,_	'87 - W - 57
			$63,$14,$8,$14,$63,_	'88 - X - 58
			$7,$8,$70,$8,$7,_	'89 - Y - 59
			$61,$51,$49,$45,$43,_	'90 - Z - 5A
			$7F,$41,$41,$0,$0,_	'91 - [ - 5B
			$2,$4,$8,$10,$20,_	'92 - \ - 5C
			$0,$0,$41,$41,$7F,_	'93 - ] - 5D
			$4,$2,$1,$2,$4,_	'94 - ^ - 5E
			$40,$40,$40,$40,$40,_	'95 - _ - 5F
			$0,$1,$2,$4,$0,_	'96 - ` - 60
			$20,$54,$54,$54,$78,_	'97 - a - 61
			$7F,$48,$44,$44,$38,_	'98 - b - 62
			$38,$44,$44,$44,$20,_	'99 - c - 63
			$38,$44,$44,$48,$7F,_	'100  d - 64
			$38,$54,$54,$54,$18,_	'101  e - 65
			$8,$7E,$9,$1,$2,_	'102  f - 66
			$C,$52,$52,$52,$3E,_	'103  g - 67
			$7F,$8,$4,$4,$78,_	'104  h - 68
			$0,$44,$7D,$40,$0,_	'105  i - 69
			$0,$20,$40,$44,$3D,_	'106  j - 6A
			$7F,$10,$28,$44,$0,_	'107  k - 6B
			$0,$41,$7F,$40,$0,_	'108  l - 6C
			$7C,$4,$18,$4,$78,_	'109  m - 6D
			$7C,$8,$4,$4,$78,_	'110  n - 6E
			$38,$44,$44,$44,$38,_	'111  o - 6F
			$7C,$14,$14,$14,$8,_	'112  p - 70
			$8,$14,$14,$18,$7C,_	'113  q - 71
			$7C,$8,$4,$4,$8,_	'114  r - 72
			$48,$54,$54,$54,$20,_	'115  s - 73
			$4,$3F,$44,$40,$20,_	'116  t - 74
			$3C,$40,$40,$20,$7C,_	'117  u - 75
			$1C,$20,$40,$20,$1C,_	'118  v - 76
			$3C,$40,$30,$40,$3C,_	'119  w - 77
			$44,$28,$10,$28,$44,_	'120  x - 78
			$C,$50,$50,$50,$3C,_	'121  y - 79
			$44,$64,$54,$4C,$44,_	'122  z - 7A
			$8,$36,$41,$0,$0,_	'123  { - 7B
			$0,$0,$7F,$0,$0,_	'124  | - 7C
			$0,$0,$41,$36,$8,_	'125  } - 7D
			$0,$8,$4,$8,$4_ 	'126  ~ - 7E		
	   	     ],edata	
                  I2CWRITE sda,scl,ctl,addr,[edata]		  ' Write to EEPROM
	 	  pause 10
		  addr = addr + 1
		  next

'End of Program
end