Programacion:
program DISPLAYS_628A
DIM WW, X, M, K, Q AS WORD
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE HAB1 ''habilitar display 1
PORTA = 000001
END SUB
SUB PROCEDURE HAB2 ''habilitar display 2
PORTA = 000010
END SUB
SUB PROCEDURE HAB3 ''habilitar display 3
PORTA = 000100
END SUB
SUB PROCEDURE HAB4 ''habilitar display 4
PORTA = 001000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE DESHAB
PORTA = 000000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE H
PORTB = %10001001
END SUB
SUB PROCEDURE O
PORTB = %11000000
END SUB
SUB PROCEDURE L
PORTB = %11000111
END SUB
SUB PROCEDURE A
PORTB = %10001000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE J
PORTB = %11100001
END SUB
SUB PROCEDURE S
PORTB = %10010010
END SUB
SUB PROCEDURE E
PORTB = %10000110
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE U
PORTB = %11000001
END SUB
SUB PROCEDURE Y
PORTB = %10010001
END SUB
SUB PROCEDURE R
PORTB = %10101111
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
main:
TRISA = %11110000 ''PortA.0 hasta PortA.3 (activar displays)
TRISB = 000000 ''Salidas para valores de los displays
WHILE TRUE
FOR WW = 1 TO 35
A
HAB1
DELAY_MS(5)
DESHAB
L
HAB2
DELAY_MS(5)
DESHAB
O
HAB3
DELAY_MS(5)
DESHAB
H
HAB4
DELAY_MS(5)
DESHAB
NEXT WW
FOR X = 1 TO 35
E
HAB1
DELAY_MS(5)
DESHAB
S
HAB2
DELAY_MS(5)
DESHAB
O
HAB3
DELAY_MS(5)
DESHAB
J
HAB4
DELAY_MS(5)
DESHAB
NEXT X
FOR M = 1 TO 105
Y
HAB1
DELAY_MS(5)
DESHAB
NEXT M
FOR K = 1 TO 35
O
HAB1
DELAY_MS(5)
DESHAB
R
HAB2
DELAY_MS(5)
DESHAB
E
HAB3
DELAY_MS(5)
DESHAB
U
HAB4
DELAY_MS(5)
DESHAB
NEXT K
FOR Q = 1 TO 70
A
HAB1
DELAY_MS(5)
DESHAB
J
HAB2
DELAY_MS(5)
DESHAB
A
HAB3
DELAY_MS(5)
DESHAB
J
HAB4
DELAY_MS(5)
DESHAB
NEXT Q
WEND
END.
