por cmte » 20 Nov 2009 18:21
Serve em Basic para o KS0108?
Dá para você portar facilmente para o C.
Dim temp as byte
Dim X as byte '"<----------POSICION X DE 0 A 128
Dim Y as byte '"<-----------POSICION Y DE 1 A 8
Dim DATO as Byte '"<--------VALOR A ESCRIBIR EN POSICION X,Y
Dim PUNTERO as Word '"<-----POSICIONAMIENTO DE VALOR
Y = 0
PUNTERO = 0
cls
Repeat
repeat
DATO = lread REL_1 + PUNTERO
LCDwrite Y,X,[DATO]
inc X
inc PUNTERO
until X = 128
X = 0
inc Y
until Y = 8
Stop
REL_1:
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80,_
$80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80,_
$80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80,_
$80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $80, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $07, $07, $07, $07, $07,_
$07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07,_
$87, $87, $87, $87, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07, $07,_
$07, $07, $07, $07, $07, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00,_
$70, $70, $F0, $F0, $F0, $F0, $E0, $C0, $C0, $80, $0E, $5E, $FE, $FF, $F9, $FD,_
$FD, $FF, $FF, $FF, $FF, $FF, $FC, $F8, $78, $F8, $FC, $9C, $FC, $FC, $F0, $00,_
$00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00,_
$40, $F0, $F1, $F1, $F1, $F1, $F7, $FF, $FF, $FF, $FF, $FE, $FF, $FF, $FF, $FF,_
$FF, $FF, $FF, $FF, $FF, $07, $07, $01, $00, $01, $0F, $78, $E3, $07, $07, $00,_
$00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00,_
$00, $01, $01, $00, $01, $01, $00, $00, $80, $C0, $F0, $F9, $FF, $FF, $FF, $FF,_
$FF, $FF, $FF, $FF, $FF, $FF, $FC, $F8, $F8, $F8, $8C, $0E, $07, $00, $00, $00,_
$00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00, $00, $00,_
$00, $00, $60, $78, $F8, $F8, $F8, $F8, $FF, $FF, $FF, $7F, $0F, $07, $03, $01,_
$00, $00, $01, $81, $F3, $F3, $F7, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $E0, $E0, $E0, $E0, $E0,_
$E0, $E0, $E0, $E0, $E0, $E0, $E0, $E0, $E0, $E0, $E1, $E0, $E0, $E0, $E0, $E0,_
$E0, $E0, $E0, $E0, $E0, $E1, $E1, $E1, $E1, $E1, $E1, $E1, $E1, $E0, $E0, $E0,_
$E0, $E0, $E0, $E0, $E0, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;
LData $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01,_
$01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01,_
$01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01,_
$01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,_
$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00;