elektroline
- 27th December 2005, 20:48
hi all,
what s the problem...
help me pls.......
--------------------------------------------------------
Include "modedefs.bas" ' Include shift modes
chr var byte
sira var bit [8]
I VAR byte
Z VAR BYTE [6]
W VAR BYTE
Q VAR BYTE
S VAR BYTE
SCK var PORTC.3
SDI var PORTC.5
TRISB = 0
TRISC = 0
MAIN :
FOR I=0 TO 7
for q =1 to 48
gosub sec
z.0(q)=sira[i]
next q
portc.4=0
portc.4=1
PORTB=0
Shiftout SDI, SCK, MSBFIRST, [z(5),z(4),z(3),z(2),z(1),z(0)]
portb= I
pause 1
NEXT I
GOTO MAIN
sec:
lookup q,[$00,$7f,$01,$01,$01,$00,$3f,$48,$48,$48,$3f,$00,$7 f,$49,$49,$49,$36,$00,$3f,$48,$48,$48,$3f,$00,$7f, $48,$4c,$4a,$31,$00,$7f,$20,$1c,$02,$7f,$00,$3f,$4 8,$48,$48,$3f,$00,$00,$00,$00,$00,$00,$00,$00],sira
return
what s the problem...
help me pls.......
--------------------------------------------------------
Include "modedefs.bas" ' Include shift modes
chr var byte
sira var bit [8]
I VAR byte
Z VAR BYTE [6]
W VAR BYTE
Q VAR BYTE
S VAR BYTE
SCK var PORTC.3
SDI var PORTC.5
TRISB = 0
TRISC = 0
MAIN :
FOR I=0 TO 7
for q =1 to 48
gosub sec
z.0(q)=sira[i]
next q
portc.4=0
portc.4=1
PORTB=0
Shiftout SDI, SCK, MSBFIRST, [z(5),z(4),z(3),z(2),z(1),z(0)]
portb= I
pause 1
NEXT I
GOTO MAIN
sec:
lookup q,[$00,$7f,$01,$01,$01,$00,$3f,$48,$48,$48,$3f,$00,$7 f,$49,$49,$49,$36,$00,$3f,$48,$48,$48,$3f,$00,$7f, $48,$4c,$4a,$31,$00,$7f,$20,$1c,$02,$7f,$00,$3f,$4 8,$48,$48,$3f,$00,$00,$00,$00,$00,$00,$00,$00],sira
return