Ejemplo LOOKUP
sencillo programa para armar un contador de 0 a 99 con display 7 segmentos (LOOKUP)
Código:
TRISA=0
TRISB=0
CONTA VAR BYTE
UNIDAD VAR BYTE
DECENA VAR BYTE
UNIDAD=0
INCREMENTAR:
PORTA=1
FOR CONTA= 1 TO 10
LOOKUP CONTA,[8,0,1,2,3,4,5,6,7,8,9],UNIDAD
PORTB=UNIDAD
PAUSE 150
NEXT
GOSUB DECENAS
DECENAS:
PORTB=DECENA
PORTA=2
IF DECENA=10 THEN INCREMENTAR
DECENA=DECENA+1
PAUSE 100
GOSUB INCREMENTAR