Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/Examples/LCD-Graphic-T.fth" into BV Terminal 3 or here to download.

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * // This will give a basic character set for an LCD 64 x 125 // graphics type display. It cannot be loaded as a library // because the table is compiled into RAM. // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY: //

// REQUIRES: // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100 // #URL-lib "http://pin1.org/forthlib/flb/General/LCD-Graphic.flb"

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// This will give a basic character set for an LCD 64 x 125
// graphics type display. It cannot be loaded as a library
// because the table is compiled into RAM.
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// HISTORY:
//

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-lib "http://pin1.org/forthlib/flb/General/LCD-Graphic.flb"

// Use this in conjunction with LCD_Graphic.fth
// This provides a character set. NOTE this is s vaey ineficent way
// to store bytes
// ============ LCD Character set ==================
h e r e 4 0 + c o n s t a n t L C D c h a r S e t
&f f c , &f f c , &f f c , &f f c , &f f c , // 32(space)
&f f c , &f f c , &a 0 c , &f f c , &f f c , // 33(!)
&f f c , &f 1 c , &f f c , &f 1 c , &f f c , // 34(")
&e b c , &8 0 c , &e b c , &8 0 c , &e b c , // 35(#)
&D B c , &D 5 c , &9 4 c , &D 5 c , &E D c , // 36($)
&9 C c , &E C c , &F 7 c , &9 B c , &9 C c , // 37()
&C F c , &B 5 c , &B 2 c , &8 D c , &C F c , // 38(&)
&F F c , &F F c , &F 8 c , &F F c , &F F c , // 39(')
&E 3 c , &D D c , &B E c , &F F c , &F F c , // 40(()
&F F c , &F F c , &B E c , &D D c , &E 3 c , // 41())
&F F c , &F 6 c , &F 9 c , &F 9 c , &F 6 c , // 42
&0 1 c , &0 1 c , &0 1 c , &0 1 c , &0 1 c , // 43(+)
&F F c , &F F c , &B F c , &C F c , &F F c , // 44(,)
&F F c , &F 7 c , &F 7 c , &F 7 c , &F 7 c , // 45(-)
&F F c , &F F c , &C F c , &C F c , &F F c , // 46(.)
&F F c , &9 F c , &E 3 c , &F C c , &F F c , // 47(/)
&C 1 c , &A E c , &B 6 c , &B A c , &C 1 c , // 48(0)
&B B c , &B D c , &8 0 c , &B F c , &B F c , // 49(1)
&9 D c , &A E c , &B 6 c , &B 6 c , &B 9 c , // 50(2)
&D D c , &B E c , &B 6 c , &B 6 c , &C 9 c , // 51(3)
&E 7 c , &E B c , &E D c , &8 0 c , &E F c , // 52(4)
&D 8 c , &B A c , &B A c , &B A c , &C 6 c , // 53(5)
&C 3 c , &B 5 c , &B 6 c , &B 6 c , &C F c , // 55(6)
&F E c , &8 E c , &F 6 c , &F A c , &F C c , // 56(7)
&C 9 c , &B 6 c , &B 6 c , &B 6 c , &C 9 c , // 57(8)
&F 9 c , &B 6 c , &B 6 c , &D 6 c , &E 1 c , // 57(9)
&F F c , &F F c , &9 3 c , &9 3 c , &F F c , // 58(:)
&F F c , &B 9 c , &C 9 c , &F F c , &F F c , // 59(;)
&F F c , &F 7 c , &E B c , &D D c , &F F c , // 60(<)
&F F c , &E B c , &E B c , &E B c , &E B c , // 61(=)
&F F c , &D D c , &E B c , &F 7 c , &F F c , // 62(>)
&F D c , &F E c , &A 6 c , &F A c , &F D c , // 63(?)
&D 5 c , &A A c , &A 2 c , &A E c , &B 1 c , // 64(@)
&8 1 c , &E E c , &E E c , &E E c , &8 1 c , // 65(A)
&8 0 c , &B 6 c , &B 6 c , &B 6 c , &C 9 c , // 66(B)
&C 1 c , &B E c , &B E c , &B E c , &D D c , // 67(C)
&8 0 c , &B E c , &B E c , &D D c , &E 3 c , // 68(D)
&8 0 c , &B 6 c , &B 6 c , &B 6 c , &B E c , // 69(E)
&8 0 c , &F 6 c , &F 6 c , &F 6 c , &F E c , // 70(F)
&C 1 c , &B E c , &B 6 c , &B 6 c , &8 5 c , // 71(G)
&8 0 c , &F 7 c , &F 7 c , &F 7 c , &8 0 c , // 72(H)
&F F c , &B E c , &8 0 c , &B E c , &F F c , // 73(I)
&C F c , &B F c , &B E c , &C 0 c , &F E c , // 74(J)
&8 0 c , &F 7 c , &E B c , &D D c , &B E c , // 75(K)
&8 0 c , &B F c , &B F c , &B F c , &B F c , // 76(L)
&8 0 c , &F D c , &F 3 c , &F D c , &8 0 c , // 77(M)
&8 0 c , &F B c , &F 7 c , &E F c , &8 0 c , // 78(N)
&C 1 c , &B E c , &B E c , &B E c , &C 1 c , // 79(O)
&8 0 c , &F 6 c , &F 6 c , &F 6 c , &F 9 c , // 80(P)
&C 1 c , &B E c , &9 E c , &B E c , &C 1 c , // 81(Q)
&8 0 c , &F 6 c , &E 6 c , &D 6 c , &B 9 c , // 82(R)
&D 9 c , &B 6 c , &B 6 c , &B 6 c , &C D c , // 83(S)
&F E c , &F E c , &8 0 c , &F E c , &F E c , // 84(T)
&C 0 c , &B F c , &B F c , &B F c , &C 0 c , // 85(U)
&E 0 c , &D F c , &B F c , &D F c , &E 0 c , // 86(V)
&C 0 c , &B F c , &C 7 c , &B F c , &C 0 c , // 87(W)
&9 C c , &E B c , &F 7 c , &E B c , &9 C c , // 88(X)
&F 8 c , &F 7 c , &8 F c , &F 7 c , &F 8 c , // 89(Y)
&9 E c , &A E c , &B 6 c , &B A c , &B C c , // 90(Z)
&F F c , &F F c , &8 0 c , &B E c , &F F c , // 91([)
&F F c , &F C c , &E 3 c , &9 F c , &F F c , // 92(\)
&F F c , &F F c , &F F c , &B E c , &8 0 c , // 93(])
&F F c , &F D c , &F E c , &F D c , &F F c , // 94(^)
&B F c , &B F c , &B F c , &B F c , &B F c , // 95(_)
&F F c , &F E c , &F D c , &F F c , &F F c , // 96(')
&D F c , &A B c , &A B c , &A B c , &8 7 c , // 97(a)
&8 0 c , &B B c , &B B c , &B B c , &C 7 c , // 98(b)
&C 7 c , &B B c , &B B c , &B B c , &B 7 c , // 99(c)
&C 7 c , &B B c , &B B c , &B B c , &8 0 c , // 100(d)
&C 7 c , &A B c , &A B c , &A B c , &A 7 c , // 101(e)
&F F c , &F B c , &8 1 c , &F A c , &F E c , // 102(f)
&B 3 c , &A D c , &A D c , &A D c , &C 3 c , // 103(g)
&8 1 c , &F 7 c , &F 7 c , &F 7 c , &8 F c , // 104(h)
&F F c , &B B c , &8 2 c , &B F c , &F F c , // 105(i)
&B F c , &7 F c , &7 B c , &8 2 c , &F F c , // 106(j)
&F F c , &8 0 c , &E F c , &D 7 c , &B B c , // 107(k)
&F F c , &B E c , &8 0 c , &B F c , &F F c , // 108(l)
&8 3 c , &F B c , &8 3 c , &F B c , &8 7 c , // 109(m)
&8 3 c , &F B c , &F B c , &F B c , &8 7 c , // 110(n)
&C 7 c , &B B c , &B B c , &B B c , &C 7 c , // 111(o)
&0 3 c , &D B c , &D B c , &D B c , &E 7 c , // 112(p)
&E 7 c , &D B c , &D B c , &D B c , &0 3 c , // 113(q)
&F B c , &8 7 c , &F B c , &F B c , &F 7 c , // 114(r)
&B 7 c , &A B c , &A B c , &A B c , &D B c , // 115(s)
&F B c , &C 0 c , &B B c , &B B c , &F F c , // 116(t)
&C 3 c , &B F c , &B F c , &B F c , &8 3 c , // 117(u)
&F 3 c , &C F c , &B F c , &C F c , &F 3 c , // 118(v)
&C 3 c , &B F c , &C 3 c , &B F c , &C 3 c , // 119(w)
&B B c , &D 7 c , &E F c , &D 7 c , &B B c , // 120(x)
&E 3 c , &5 F c , &5 F c , &5 F c , &8 3 c , // 121(y)
&B B c , &9 B c , &A B c , &B 3 c , &B B c , // 122(z)
a l i g n

// places character at current position
// uses LCDCharSet for data. Alignes position horizonatly
// ready for next char
// The position of the char is determined by LCDxy as follows
// 0 0 LCDxy = top left
// 1 0 LCDxy = line 2
// 7 0 LCDxy = line 8
// setting n ( 1 n LCDxy) will position the character at any pixel
// along the line
// ( char ---)
: LCDchar
3 2 - 5 * L C D C h a r S e t +
5 f o r
d u p c @ L C D d a t a
1 + // inc adress
n e x t
d r o p
&f f L C D d a t a // char spacing
;

// ============= just for testing purposes ==================
: init L C D i n i t ;
: cls L C D c l s ;