'****************************************************************
'* Name : mledsV3.BAS *
'* Author : Pao & Navaismo & Friend *
'* Notice : Copyright (c) 2007 GPL *
'* : All Rights Reserved *
'* Date : 18/12/2007 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
device = 16f877a
config WDT_OFF, CP_OFF, LVP_OFF, XT_OSC
xtal = 4
declare rsin_mode true
DECLARE RSOUT_MODE true
declare rsin_pin portd.0
declare rsout_pin portd.1
DECLARE SERIAL_BAUD 9600
adcon1=7
trisa=0 'salida ambos puertos, sin comparadores
trisb=0
dim i as byte
DIM K AS BYTE
dim j as byte
dim z as byte
dim n as byte
dim d[26] as byte
dim datos as byte
dim spell[7] as byte
'Letra A en eeprom
edata 31, 254, 5, 253, 5, 251, 5, 247, 31, 239
'Letra B en eeprom
edata 31, 254, 21, 253, 21, 251, 21, 247, 31, 239
'Letra C en eeprom
edata 31, 254, 17, 253, 17, 251, 17, 247, 17, 239
'Letra D en eeprom
edata 31, 254, 17, 253, 17, 251, 10, 247, 4, 239
'Letra E en eeprom
edata 31, 254, 21, 253, 21, 251, 21, 247, 17, 239
'Letra F en eeprom
edata 31, 254, 5, 253, 5, 251, 5, 247, 1, 239
'Letra G en eeprom
edata 31, 254, 17, 253, 21, 251, 21, 247, 29, 239
'Letra H en eeprom
edata 31, 254, 4, 253, 4, 251, 4, 247, 31, 239
'Letra I en eeprom
edata 17, 254, 17, 253, 31, 251, 17, 247, 17, 239
'Letra J en eeprom
edata 25, 254, 17, 253, 31, 251, 1, 247, 1, 239
'Letra K en eeprom
edata 31, 254, 4, 253, 4, 251, 10, 247, 17, 239
'Letra L en eeprom
edata 31, 254, 16, 253, 16, 251, 16, 247, 16, 239
'Letra M en eeprom
edata 31, 254, 2, 253, 4, 251, 2, 247, 31, 239
'Letra N en eeprom
edata 31, 254, 2, 253, 4, 251, 8, 247, 31, 239
'Letra O en eeprom
edata 31, 254, 17, 253, 17, 251, 17, 247, 31, 239
'Letra P en eeprom
edata 31, 254, 5, 253, 5, 251, 5, 247, 7, 239
'Letra Q en eeprom
edata 15, 254, 9, 253, 29, 251, 25, 247, 31, 239
'Letra R en eeprom
edata 31, 254, 5, 253, 29, 251, 21, 247, 23, 239
'Letra S en eeprom
edata 23, 254, 21, 253, 21, 251, 21, 247, 29, 239
'Letra T en eeprom
edata 1, 254, 1, 253, 31, 251, 1, 247, 1, 239
'Letra U en eeprom
edata 31, 254, 16, 253, 16, 251, 16, 247, 31, 239
'Letra V en eeprom
edata 15, 254, 24, 253, 16, 251, 24, 247, 15, 239
'Letra W en eeprom
edata 31, 254, 16, 253, 28, 251, 16, 247, 31, 239
'Letra X en eeprom
edata 27, 254, 10, 253, 14, 251, 10, 247, 27, 239
'Letra Y en eeprom
edata 7, 254, 4, 253, 28, 251, 4, 247, 7, 239
'Letra Z en eeprom
'edata 29, 254, 21, 253, 21, 251, 21, 247, 23, 239
D[0] = 0
D[1] = 10
D[2] = 20
D[3] = 30
D[4] = 40
D[5] = 50
D[6] = 60
D[7] = 70
D[8] = 80
D[9] = 90
D[10] = 100
D[11] = 110
D[12] = 120
D[13] = 130
D[14] = 140
D[15] = 150
D[16] = 160
D[17] = 170
D[18] = 180
D[19] = 190
D[20] = 200
D[21] = 210
D[22] = 220
D[23] = 230
D[24] = 240
D[25] = 250
loop:
delayms 500
GOSUB CLSM
rsin wait("y"), str spell\7
for z=0 to 7
i = spell[z] - 65
for j=0 to 15
FOR K=0 TO 9 step 2
PORTA=EREAD d[I]+k
PORTB=EREAD (d[i]+k) + 1
DELAYMS 50
next j
NEXT K
next z
goto loop
CLSM:
porta=0
portb=255
delayms 750
RETURN