Old Chestnut ? - 128 x 64 GLCD

[richard]

first up you need to create a font

 
font8x8:  
  @ DB 0X00,0X00,0X00,0X00,0X00,0X00,0X00,0                                                ' Code for char num 32
  @ DB 0X08,0X1C,0X1C,0X08,0X08,0X00,0X08,0                                                ' Code for char num 33
  @ DB 0X36,0X36,0X12,0X00,0X00,0X00,0X00,0                                                ' Code for char num 34
  @ DB 0X00,0X14,0X3E,0X14,0X14,0X3E,0X14,0                                                ' Code for char num 35
  @ DB 0X04,0X1C,0X02,0X0C,0X10,0X0E,0X08,0                                                ' Code for char num 36
  @ DB 0X26,0X26,0X10,0X08,0X04,0X32,0X32,0                                                ' Code for char num 37
  @ DB 0X04,0X0A,0X0A,0X04,0X2A,0X12,0X2C,0                                                ' Code for char num 38
  @ DB 0X0C,0X0C,0X04,0X00,0X00,0X00,0X00,0                                                ' Code for char num 39
  @ DB 0X08,0X04,0X04,0X04,0X04,0X04,0X08,0                                                ' Code for char num 40
  @ DB 0X04,0X08,0X08,0X08,0X08,0X08,0X04,0                                                ' Code for char num 41
  @ DB 0X00,0X14,0X1C,0X3E,0X1C,0X14,0X00,0                                                ' Code for char num 42
  @ DB 0X00,0X08,0X08,0X3E,0X08,0X08,0X00,0                                                ' Code for char num 43
  @ DB 0X00,0X00,0X00,0X00,0X00,0X0C,0X0C,4                                                ' Code for char num 44
  @ DB 0X00,0X00,0X00,0X3E,0X00,0X00,0X00,0                                                ' Code for char num 45
  @ DB 0X00,0X00,0X00,0X00,0X00,0X0C,0X0C,0                                                ' Code for char num 46
  @ DB 0X00,0X20,0X10,0X08,0X04,0X02,0X00,0                                                ' Code for char num 47
  @ DB 0X1C,0X22,0X32,0X2A,0X26,0X22,0X1C,0                                                ' Code for char num 48
  @ DB 0X08,0X0C,0X08,0X08,0X08,0X08,0X1C,0                                                ' Code for char num 49
  @ DB 0X1C,0X22,0X20,0X18,0X04,0X02,0X3E,0                                                ' Code for char num 50
  @ DB 0X1C,0X22,0X20,0X1C,0X20,0X22,0X1C,0                                                ' Code for char num 51
  @ DB 0X10,0X18,0X14,0X12,0X3E,0X10,0X10,0                                                ' Code for char num 52
  @ DB 0X3E,0X02,0X02,0X1E,0X20,0X22,0X1C,0                                                ' Code for char num 53
  @ DB 0X18,0X04,0X02,0X1E,0X22,0X22,0X1C,0                                                ' Code for char num 54
  @ DB 0X3E,0X20,0X10,0X08,0X04,0X04,0X04,0                                                ' Code for char num 55
  @ DB 0X1C,0X22,0X22,0X1C,0X22,0X22,0X1C,0                                                ' Code for char num 56
  @ DB 0X1C,0X22,0X22,0X3C,0X20,0X10,0X0C,0                                                ' Code for char num 57
  @ DB 0X00,0X00,0X0C,0X0C,0X00,0X0C,0X0C,0                                                ' Code for char num 58
  @ DB 0X00,0X00,0X0C,0X0C,0X00,0X0C,0X0C,4                                                ' Code for char num 59
  @ DB 0X10,0X08,0X04,0X02,0X04,0X08,0X10,0                                                ' Code for char num 60
  @ DB 0X00,0X00,0X3E,0X00,0X00,0X3E,0X00,0                                                ' Code for char num 61
  @ DB 0X04,0X08,0X10,0X20,0X10,0X08,0X04,0                                                ' Code for char num 62
  @ DB 0X1C,0X22,0X20,0X18,0X08,0X00,0X08,0                                                ' Code for char num 63
  @ DB 0X1C,0X22,0X3A,0X2A,0X3A,0X02,0X1C,0                                                ' Code for char num 64
  @ DB 0X1C,0X22,0X22,0X22,0X3E,0X22,0X22,0                                                ' Code for char num 65
  @ DB 0X1E,0X22,0X22,0X1E,0X22,0X22,0X1E,0                                                ' Code for char num 66
  @ DB 0X1C,0X22,0X02,0X02,0X02,0X22,0X1C,0                                                ' Code for char num 67
  @ DB 0X1E,0X22,0X22,0X22,0X22,0X22,0X1E,0                                                ' Code for char num 68
  @ DB 0X3E,0X02,0X02,0X1E,0X02,0X02,0X3E,0                                                ' Code for char num 69
  @ DB 0X3E,0X02,0X02,0X1E,0X02,0X02,0X02,0                                                ' Code for char num 70
  @ DB 0X1C,0X22,0X02,0X3A,0X22,0X22,0X3C,0                                                ' Code for char num 71
  @ DB 0X22,0X22,0X22,0X3E,0X22,0X22,0X22,0                                                ' Code for char num 72
  @ DB 0X1C,0X08,0X08,0X08,0X08,0X08,0X1C,0                                                ' Code for char num 73
  @ DB 0X20,0X20,0X20,0X20,0X22,0X22,0X1C,0                                                ' Code for char num 74
  @ DB 0X22,0X12,0X0A,0X06,0X0A,0X12,0X22,0                                                ' Code for char num 75
  @ DB 0X02,0X02,0X02,0X02,0X02,0X02,0X3E,0                                                ' Code for char num 76
  @ DB 0X22,0X36,0X2A,0X22,0X22,0X22,0X22,0                                                ' Code for char num 77
  @ DB 0X22,0X26,0X2A,0X32,0X22,0X22,0X22,0                                                ' Code for char num 78
  @ DB 0X1C,0X22,0X22,0X22,0X22,0X22,0X1C,0                                                ' Code for char num 79
  @ DB 0X1E,0X22,0X22,0X1E,0X02,0X02,0X02,0                                                ' Code for char num 80
  @ DB 0X1C,0X22,0X22,0X22,0X2A,0X12,0X2C,0                                                ' Code for char num 81
  @ DB 0X1E,0X22,0X22,0X1E,0X12,0X22,0X22,0                                                ' Code for char num 82
  @ DB 0X1C,0X22,0X02,0X1C,0X20,0X22,0X1C,0                                                ' Code for char num 83
  @ DB 0X3E,0X08,0X08,0X08,0X08,0X08,0X08,0                                                ' Code for char num 84
  @ DB 0X22,0X22,0X22,0X22,0X22,0X22,0X1C,0                                                ' Code for char num 85
  @ DB 0X22,0X22,0X22,0X22,0X22,0X14,0X08,0                                                ' Code for char num 86
  @ DB 0X22,0X22,0X2A,0X2A,0X2A,0X2A,0X14,0                                                ' Code for char num 87
  @ DB 0X22,0X22,0X14,0X08,0X14,0X22,0X22,0                                                ' Code for char num 88
  @ DB 0X22,0X22,0X22,0X14,0X08,0X08,0X08,0                                                ' Code for char num 89
  @ DB 0X1E,0X10,0X08,0X04,0X02,0X02,0X1E,0                                                ' Code for char num 90

then a way to read the font

get_chr:
  @ getaddr _font8x8, _tempPC
   tempoff = (chr-$20)*8   +  tempPC
    for i=0 to 7
        readcode tempoff +i ,cga[I]
    next

a macro to get the fonts address

      
 asm
getaddr macro Text, Addr
  movlw low Text
  movwf Addr
  movlw High Text
  movwf Addr + 1
 endm

then put the 8 bytes in array cga[] onto the display


ps this is for a pic18 its not easy to do it this way with a pic16

tempPC var word
tempoff var word
cga var byte[8]
I var byte
chr var byte