64x64 Dot - need some help with the code

ilker_32 · Jun 24, 2009

Code:

define OSC 40
trisa=0  :  trisd=0  :  trise=0  :  trisb=0
porta=0  :  portb=0  :  portd=0  :  porte=7
adcon1=7

data_reg var byte  :  en1 var porte.0  :  en2 var  porte.1

veri var byte  :  i var byte  :  x var byte  : y var byte
z var byte  :  grafik var byte

grafik=0  :  data_reg=0  :  goto loop

loop:  for z=0 to 11
for y=1 to 30
for i=0 to 15
for x=0 to 15
call datalar  :  portb=veri  :  portd=x
porta=i
porte=6  :  pauseus 100  :  porte=7
next x
next i
data_reg=0  :  grafik=z+1  :  goto loop1 

loop1: for i=0 to 15
for x=0 to 15
call datalar  :  portb=veri  :  portd=x
porta=i
porte=5  :  pauseus 100  :  porte=7
next x
next i
grafik=z  :  data_reg=0
next y
z=z+1
next z
goto loop


datalar: select case grafik
case 0
lookup data_reg,[$FF,$FF,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$0C,$1E,$1E,$0C,$00,$00,$00,$00,$06,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$06,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$FE,$FF,$FF,$FE,$00,$00,$FE,$FF,$FF,$FE,$00,$00,$FE,$FF,$FF,$FE,$00,$00,$00,$00,$00,$06,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$06,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$00,$00,$FF,$FF,$FF,$FF,$00,$00,$FF,$FF,$FF,$FF,$C0,$E0,$F0,$F0,$F8,$FC,$7C,$18,$00,$00,$F8,$FC,$FC,$FC,$BC,$BC,$BC,$FE,$FE,$FC,$F8,$00,$00,$FC,$FE,$FE,$FE,$3C,$3C,$3C,$3C,$3C,$3C,$18,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$7F,$FF,$FF,$7F,$00,$00,$7F,$FF,$FF,$7F,$00,$00,$7F,$FF,$FF,$7F,$1F,$3F,$7F,$7D,$F8,$F8,$F0,$60,$00,$00,$3F,$7F,$FF,$FF,$F7,$F7,$E7,$C7,$87,$07,$03,$00,$00,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$00,$00,$00,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 1
lookup data_reg,[$FF,$FF,$00,$00,$00,$00,$00,$00,$01,$00,$C0,$40,$40,$41,$41,$00,$C1,$00,$01,$00,$00,$00,$01,$00,$C0,$01,$00,$01,$00,$C0,$04,$03_
,$00,$00,$00,$00,$01,$01,$01,$00,$00,$00,$00,$01,$00,$00,$00,$01,$40,$01,$C0,$01,$00,$00,$00,$01,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$22,$22,$22,$22,$00,$3F,$00,$1E,$25,$25,$25,$16,$00,$3F,$04,$1A,$21,$01,$3F,$21,$00_
,$3F,$02,$01,$00,$1E,$21,$21,$21,$1E,$00,$3F,$01,$01,$01,$3E,$00,$3F,$00,$3F,$04,$1A,$21,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F8,$48,$48,$48,$08,$00,$C0,$20,$20,$20,$C0,$00,$E0,$40,$20,$00_
,$E0,$40,$20,$E0,$20,$20,$C0,$00,$E0,$00,$00,$00,$E0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C7,$C0,$C0,$C0,$C0,$C0,$C3,$C4,$C4,$C4,$C3,$C0,$C7,$C0,$C0,$C0_
,$C7,$C0,$C0,$C7,$C0,$C0,$C7,$C0,$C3,$C4,$C4,$C2,$C7,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 2
lookup data_reg,[$FF,$FF,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$83,$83,$83,$83,$C3,$C3,$C3,$03,$03_
,$C3,$C3,$C3,$C3,$C3,$83,$83,$83,$83,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$E0,$E0,$F0,$F8,$F8,$FC,$FE,$FE,$FF,$FF,$FF,$FF,$FF,$3F,$0F,$C3,$F0,$3C,$0F_
,$03,$00,$00,$00,$80,$C1,$C1,$E1,$E1,$E3,$E3,$E6,$C6,$CC,$98,$18,$30,$60,$E0,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$E0,$F0,$F8,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$80,$00,$3F,$FF,$C0,$00_
,$00,$00,$FC,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FC,$00,$00,$01,$0F,$1E,$38,$F0,$E0,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$F8,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$F8,$E1,$C7,$1E_
,$78,$E0,$80,$01,$07,$0F,$0F,$1F,$1F,$1F,$1F,$1F,$0F,$0F,$07,$01,$00,$00,$00,$00,$00,$00,$00,$00,$07,$FF,$F8,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 3
lookup data_reg,[$FF,$FF,$00,$00,$00,$1F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$3F,$1F,$07,$07,$03,$03,$03,$03,$03,$07,$07,$1F,$3F,$FF,$FF,$FF,$FF_
,$FC,$F1,$C7,$1E,$F8,$E0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$F0,$FF,$1F,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$07,$0F,$1F,$7F,$FF,$FF,$FF,$FF,$F0,$E0,$80,$80,$00,$00,$00,$00,$00,$80,$80,$E0,$F0,$FF,$FF,$FF,$FF_
,$FF,$FF,$FF,$1C,$00,$E7,$FF,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$E0,$78,$1C,$0F,$07,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$07,$07,$0F,$1F,$1F,$3F,$7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F_
,$1F,$87,$E1,$78,$3E,$87,$81,$80,$80,$C0,$C0,$60,$60,$30,$18,$18,$0C,$06,$07,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C1,$C1,$C1,$C1,$C3,$C3,$C3,$C3,$C0_
,$C0,$C3,$C3,$C3,$C3,$C1,$C1,$C1,$C1,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 4
lookup data_reg,[$FF,$FF,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$83,$63,$13,$0B,$1B,$13,$E3_
,$03,$83,$83,$43,$C3,$83,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$F3,$F3,$FF,$FF,$FF,$01,$01,$01,$FF,$00,$F0,$FC,$FE,$FE,$F8,$FF_
,$01,$00,$E0,$F8,$F8,$F0,$03,$0E,$FA,$02,$FE,$FE,$FE,$E6,$FE,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$1F,$20,$61,$47,$47,$67,$21,$1F_
,$10,$20,$47,$8F,$8F,$C7,$20,$18,$0F,$00,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE_
,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FF,$FF,$FF,$FF,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 5
lookup data_reg,[$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$03,$01,$01,$F1,$F9,$F9,$F9,$01,$01,$01,$01_
,$01,$01,$01,$01,$01,$03,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7F,$7F,$7F,$7F,$7F,$7F,$60,$60,$60,$7F,$7F,$7F,$7F,$60,$60,$60,$60_
,$60,$60,$60,$60,$60,$60,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$E0,$38,$0C,$02,$02,$03,$01,$01,$01,$01,$01,$03,$06,$FC,$00,$00,$00_
,$00,$FC,$06,$02,$03,$01,$01,$01,$01,$01,$01,$01,$01,$03,$02,$0C,$38,$E0,$80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$DF,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D8,$C8,$CF,$C0,$C0,$C0_
,$C0,$CF,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0,$DC,$C7,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 6
lookup data_reg,[$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$7F,$3F,$3F,$3F,$3F,$1F,$1F,$0F,$0F,$03,$03,$03,$03,$03,$03,$03,$03,$03_
,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$0F,$0F,$1F,$1F,$3F,$7F,$7F,$7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF_
,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$3F,$1F,$0F,$0F,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0_
,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$07,$0F,$1F,$3F,$FF,$FF,$FF,$FF,$FF,$FF,$FF_
,$FF,$FF,$7F,$3F,$03,$03,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FC,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF_
,$FF,$3F,$02,$F0,$FC,$FC,$FC,$F8,$F8,$F8,$F0,$E0,$E0,$E0,$E0,$E0,$E0,$F0,$F8,$78,$3C,$00,$00,$00,$00,$00,$01,$03,$3F,$FF,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$90,$90,$9E,$9F,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$8F,$9F,$3F,$3F_
,$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 7
lookup data_reg,[$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$E0,$F8,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$1F,$80,$F0_
,$FC,$FD,$F9,$F1,$F3,$F3,$F3,$F3,$F3,$F3,$F3,$F3,$F3,$F3,$19,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$FE,$FC,$C0,$C0,$80,$00,$00,$00,$00,$00,$1F,$1F,$0F,$07,$07,$07,$07,$07,$07,$07,$07,$1F,$3F,$7F,$7F,$3F,$01,$7C,$FF,$FF_
,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$80,$C0,$F8,$FF,$FF,$FF_
,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FC,$F8,$F0,$E0,$E0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03_
,$03,$07,$07,$07,$07,$07,$07,$07,$07,$03,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$E0,$E0,$F8,$FC,$FF,$FF,$FF,$FF,$FF,$FF,$FF_
,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE,$FC,$FC,$FC,$FC,$F8,$F0,$F0,$F0,$F0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0_
,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$F0,$F0,$F0,$F8,$F8,$FC,$FC,$FC,$FC,$FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF],veri
data_reg=data_reg+1  :  return
lookup data_reg,[$FF,$FF,$00,$00,$00,$80,$C0,$E0,$E2,$FF,$FF,$7F,$7E,$7E,$7E,$7F,$3F,$3E,$BE,$BF,$BF,$BE,$BF,$BF,$BC,$BC,$3C,$70,$60,$60,$E0,$00_
,$00,$00,$E0,$E0,$E1,$73,$7E,$7C,$7C,$7C,$7F,$7F,$7C,$7C,$7C,$7D,$FC,$FC,$FE,$FA,$F8,$FC,$EC,$E0,$E0,$80,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$08,$FF,$07,$07,$03,$00,$00,$00,$00,$00,$00,$38,$FE,$FF,$FF,$F3,$FB,$FF,$FF,$FF,$FF,$FF,$FF,$FC,$F8,$00,$87,$FC_
,$00,$FE,$03,$F8,$EC,$E4,$E6,$FE,$FF,$FF,$FF,$FF,$FE,$FE,$FC,$F8,$E0,$00,$01,$01,$03,$03,$03,$07,$07,$0F,$FF,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$01,$03,$02,$0E,$38,$20,$20,$60,$40,$40,$40,$41,$43,$43,$43,$43,$63,$23,$23,$23,$33,$13,$18,$0E,$02,$03,$00_
,$00,$03,$3E,$20,$67,$4F,$CF,$9F,$9F,$9F,$1F,$1F,$1F,$0F,$0F,$03,$01,$80,$80,$C0,$40,$60,$20,$30,$18,$0E,$03,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0_
,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C1,$C1,$C1,$C3,$C2,$C2,$C3,$C1,$C1,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 8
lookup data_reg,[$FF,$FF,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$83,$83,$C3,$E3,$E3,$E3,$F3,$F3,$F3,$F3,$E3,$C3,$03,$03_
,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$1C,$3E,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FC,$F0_
,$C0,$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,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$1F,$7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$7F,$7F,$3F_
,$3F,$1F,$7F,$9C,$0C,$06,$02,$01,$00,$00,$00,$00,$00,$00,$00,$E0,$F0,$F8,$1C,$1C,$1C,$78,$60,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$10,$30,$D0,$90,$30,$20,$20,$40,$C0,$80,$8C,$CC,$4C,$64,$27,$FF,$31,$1D,$84,$84,$84,$04,$88_
,$8C,$84,$84,$0D,$FB,$06,$18,$20,$20,$C0,$80,$80,$80,$80,$80,$FF,$FF,$3F,$60,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 9
lookup data_reg,[$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$1F,$70,$C0,$00,$00,$C0,$20,$20,$40,$80,$80,$0F,$10,$17,$1F,$1F,$0F,$02,$07_
,$0F,$1F,$1F,$10,$0F,$00,$00,$80,$40,$60,$C0,$00,$00,$80,$80,$FF,$FF,$F8,$0C,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$02,$1C,$F1,$01,$02,$04,$0C,$19,$31,$23,$4E,$5C,$5C,$5C,$5C_
,$5C,$5C,$4E,$43,$21,$11,$09,$04,$06,$03,$F0,$0C,$03,$01,$00,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$E0,$3F,$00,$00,$80,$C0,$60,$30,$10,$10,$10,$10,$10,$10_
,$10,$10,$10,$30,$60,$40,$C0,$80,$00,$00,$1F,$F0,$00,$00,$00,$03,$03,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$DC,$CF,$CC,$C6,$C2,$C3,$C1,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0_
,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C1,$C2,$CE,$C8,$DB,$DC,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 10
lookup data_reg,[$FF,$FF,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03_
,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$02,$FE,$FE,$FE,$02,$00,$00,$00,$00,$00,$00,$00,$C0,$E0,$E0,$20,$E0,$E0,$C0,$00,$00,$C0,$E0,$E0,$20,$F8_
,$D8,$00,$00,$E0,$30,$0C,$04,$C6,$22,$12,$92,$F2,$04,$08,$F0,$00,$20,$E0,$E0,$E0,$40,$20,$E0,$C0,$80,$00,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$04,$07,$07,$07,$04,$04,$04,$06,$07,$07,$00,$00,$03,$07,$07,$04,$07,$07,$03,$00,$00,$16,$2D,$2D,$2D,$3D_
,$18,$00,$00,$03,$0C,$10,$10,$33,$22,$21,$23,$25,$14,$12,$09,$04,$04,$07,$07,$07,$04,$00,$07,$07,$07,$04,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$E0,$E0,$00,$00,$00,$F8,$C0,$00,$E0,$F8,$F0,$00,$00,$00,$00,$00,$00,$00_
,$00,$00,$00,$00,$C0,$E0,$00,$00,$00,$00,$C0,$E0,$10,$00,$00,$80,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF],veri
data_reg=data_reg+1  :  return
case 11
lookup data_reg,[$FF,$FF,$00,$00,$00,$80,$C0,$E0,$E2,$FF,$FF,$7F,$7E,$7E,$7E,$7F,$3F,$3E,$BE,$BF,$BF,$BE,$BF,$BF,$BC,$BC,$3C,$70,$60,$60,$E0,$00_
,$00,$00,$E0,$E0,$E1,$73,$7E,$7C,$7C,$7C,$7F,$7F,$7C,$7C,$7C,$7D,$FC,$FC,$FE,$FA,$F8,$FC,$EC,$E0,$E0,$80,$00,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$08,$FF,$07,$07,$03,$00,$00,$00,$00,$00,$00,$38,$FE,$FF,$FF,$F3,$FB,$FF,$FF,$FF,$FF,$FF,$FF,$FC,$F8,$00,$87,$FC_
,$00,$FE,$03,$F8,$EC,$E4,$E6,$FE,$FF,$FF,$FF,$FF,$FE,$FE,$FC,$F8,$E0,$00,$01,$01,$03,$03,$03,$07,$07,$0F,$FF,$00,$00,$00,$FF,$FF_
,$FF,$FF,$00,$00,$00,$01,$03,$02,$0E,$38,$20,$20,$60,$40,$40,$40,$41,$43,$43,$43,$43,$63,$23,$23,$23,$33,$13,$18,$0E,$02,$03,$00_
,$00,$03,$3E,$20,$67,$4F,$CF,$9F,$9F,$9F,$1F,$1F,$1F,$0F,$0F,$03,$01,$80,$80,$C0,$40,$60,$20,$30,$18,$0E,$03,$00,$00,$00,$FF,$FF_
,$FF,$FF,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0_
,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C1,$C1,$C1,$C3,$C2,$C2,$C3,$C1,$C1,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$C0,$FF,$FF],veri
data_reg=data_reg+1  :  return
end select

end

Welcome to EDAboard.com

64x64 Dot - need some help with the code

ilker_32

Member level 3

Similar threads

Part and Inventory Search

Welcome to EDABoard.com

Sponsor

Connect with us

Online statistics

Forum statistics