Code:
eeprom 0,[%00111110,%01010001,%01001001,%01000101,%00111110] '0
eeprom 5,[%00000000,%01000010,%01111111,%01000000,%00000000] '1
eeprom 10,[%01000010,%01100001,%01010001,%01001001,%01000110] '2
eeprom 15,[%00100001,%01000001,%01000101,%01001011,%00110001] '3
eeprom 20,[%00011000,%00010100,%00010010,%01111111,%00010000] '4
eeprom 25,[%00100111,%01000101,%01000101,%01000101,%00111001] '5
eeprom 30,[%00111100,%01001010,%01001001,%01001001,%00110000] '6
eeprom 35,[%00000001,%01110001,%00001001,%00000101,%00000011] '7
eeprom 40,[%00110110,%01001001,%01001001,%01001001,%00110110] '8
eeprom 45,[%00000110,%01001001,%01001001,%00101001,%00011110] '9
eeprom 50,[%00000100,%00000110,%01111111,%00000110,%00000100] 'Up Arrow
eeprom 55,[%00010000,%00110000,%01111111,%00110000,%00010000] 'Dn Arrow
eeprom 60,[%01111110,%00010001,%00010001,%00010001,%01111110] 'A
eeprom 65,[%01111111,%01001001,%01001001,%01001001,%00110110] 'B
eeprom 70,[%00111110,%01000001,%01000001,%01000001,%00100010] 'C
eeprom 75,[%01111111,%01000001,%01000001,%00100010,%00011100] 'D
eeprom 80,[%01111111,%01001001,%01001001,%01001001,%01000001] 'E
eeprom 85,[%01111111,%00001001,%00001001,%00001001,%00000001] 'F
eeprom 90,[%00111110,%01000001,%01001001,%01001001,%01111010] 'G
eeprom 95,[%01111111,%00001000,%00001000,%00001000,%01111111] 'H
eeprom 100,[%00000000,%01000001,%01111111,%01000001,%00000000] 'I
eeprom 105,[%00100000,%01000000,%01000001,%00111111,%00000001] 'J
eeprom 110,[%01111111,%00001000,%00010100,%00100010,%01000001] 'K
eeprom 115,[%01111111,%01000000,%01000000,%01000000,%01000000] 'L
eeprom 120,[%01111111,%00000010,%00000110,%00000010,%01111111] 'M
eeprom 125,[%01111111,%00000100,%00001000,%00010000,%01111111] 'N
eeprom 130,[%00111110,%01000001,%01000001,%01000001,%00111110] 'O
eeprom 135,[%01111111,%00001001,%00001001,%00001001,%00000110] 'P
eeprom 140,[%00111110,%01000001,%01010001,%00100001,%01011110] 'Q
eeprom 145,[%01111111,%00001001,%00011001,%00101001,%01000110] 'R
eeprom 150,[%01000110,%01001001,%01001001,%01001001,%00110001] 'S
eeprom 155,[%00000001,%00000001,%01111111,%00000001,%00000001] 'T
eeprom 160,[%00111111,%01000000,%01000000,%01000000,%00111111] 'U
eeprom 165,[%00011111,%00100000,%01000000,%00100000,%00011111] 'V
eeprom 170,[%00111111,%01000000,%00110000,%01000000,%00111111] 'W
eeprom 175,[%01100011,%00010100,%00001000,%00010100,%01100011] 'X
eeprom 180,[%00000111,%00001000,%01110000,%00001000,%00000111] 'Y
eeprom 185,[%01100001,%01010001,%01001001,%01000101,%01000011] 'Z
eeprom 190,[%00100000,%00010000,%00001000,%00000100,%00000010] '/
leddata var byte[80]
START:
CLEAR
FOR counter = 0 TO 4
READ counter+65, leddata [counter+5] 'B
READ counter+60, leddata [counter+11] 'A
READ counter+65, leddata [counter+17] 'B
READ counter+189, leddata [counter+23] 'Y
READ counter+130, leddata [counter+32] 'O
READ counter+125, leddata [counter+38] 'N
READ counter+65, leddata [counter+47] 'B
READ counter+130, leddata [counter+53] 'O
READ counter+60, leddata [counter+59] 'A
READ counter+145, leddata [counter+65] 'R
READ counter+75, leddata [counter+71] 'D
NEXT
LOOP:
FOR scroll = 0 TO 77
FOR scan = 0 TO 15
PORTC = 1
FOR counter = 0 TO 7
PORTB = leddata [counter]
PAUSEUS 1500
PORTB = 0 'This helps prevent ghosting
PORTC = PORTC * 2
NEXT
NEXT
FOR counter = 0 TO 78
leddata [counter] = leddata [counter+1] ' *** SHIFTS DATA IN leddata ARRAY DOWN.***
NEXT
NEXT
GOTO START
End
you will have to modify the loop section to suit your 4017 setup
Bookmarks