Tareas

U VAR BYTE
D VAR BYTE
C VAR BYTE
M VAR BYTE
UNI VAR BYTE
DECN VAR BYTE
CEN VAR BYTE
MIL VAR BYTE
REST VAR BYTE
MENOS VAR BIT
MAS VAR BIT
ACTIVAR VAR BIT
VECES VAR BYTE
X var byte
Yvar byte
TRISB=$0
TRISC=%11110000
TRISD=$00000011
UP VAR PORTC.6
BOTONS:
PORTB=%00000000
PORTC=%00001000
IF PORTC.4=0 THEN HOLA
IF PORTC.5=0 THEN CONT
if PORTD.0=0 THEN CONT_A
IFPORTD.1=0 THEN FRASE
GOTO BOTONS
HOLA:;DISPLAYS CON ANODO COMUN
FOR VECES=1 TO 200
PORTC=$9 ;SE ACATIVA EL PRIMER DISPLAY D
PORTB=$76 ;SE MUESTRA LA LETRA A EN D1
PAUSE 5
PORTC=$2 ;SEACTIVA EL SEGUNDO DIAPLAY
PORTB=$3F ;SE MUESTRA LA LETRA L EN D2
PAUSE 5
PORTC=$4
PORTB=$38 ;SE MUESTRA LA LETRA O EN D3
PAUSE 5
PORTC=$0 ;
PORTB=$8 ;SE MUESTRA LA LETRA H EN D4
PAUSE5
NEXT
GOTO BOTONS

FRASE:
U=0: D=0: C=0: M=0
DISPLAY_B:
for y=1 to 25
LOOKUPU,[%1111111,%0001001,%1000000,%1000111,%0001000,%1111111,%1000111,%1000000,%1000110,%1000000,%1111111,%1001000,%1000000,%1011000,%1111111,%1111111,%1111111],UNI
LOOKUPD,[%0000000,%1110110,%0111111,%0111000,%1110111,%0000000,%0111000,%0111111,%0111001,%0111111,%0000000,%0110111,%0111111,%0100111,%0000000,%0000000,%0000000],DECN
LOOKUPC,[%0000000,%1110110,%0111111,%0111000,%1110111,%0000000,%0111000,%0111111,%0111001,%0111111,%0000000,%0110111,%0111111,%0100111,%0000000,%0000000,%0000000],CEN
LOOKUP M,[%0000000,%1110110,%0111111,%0111000,%1110111,%0000000,%0111000,%0111111,%0111001,%0111111,%0000000,%0110111,%0111111,%0100111,%0000000,%0000000,%0000000],MIL PORTC=$0 :PORTB=UNIPAUSE 5
PORTC=$C :PORTB=DECN
PAUSE 5
PORTC=$A :PORTB=CEN
PAUSE 5
PORTC=$9 :PORTB=MIL
PAUSE 5
next
GOSUB UNO
Goto DISPLAY_B
UNO:
IF PORTC.7=0 THEN BOTONS
U=U+1
IF U>1 THEND=D+1
ENDIF
IF D>1 THEN
C=C+1
ENDIF
IF C>1 THEN
M=M+1
ENDIF
IF M>14 THEN U=0: D=0: C=0: M=0
RETURN ;REGRESA A GOSUB TECLAS
CONT_A:
U=0: D=0: C=0: M=0
DISPLAY_A:
LOOKUP...