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