JAL (compilador)

-- ****************************************************** 
-- Título: Led intermitente                 
-- Descripción: el led conectado en RA0 lucirá en modo
--              intermitente.
-- Licencia GPL                                         
-- ****************************************************** 

-- **********************DIRECTIVAS********************** 
        
include 16f84_4       -- PIC16F84 a 4 MHz
include jlib          -- biblioteca necesaria

-- ******************CONFIGURACIONES********************* 

pin_a0_direction = output -- RA0 como salida

-- *********************VARIABLES************************ 
var bit led is pin_a0     -- La variable led, de tipo
                          -- bit se asigna a RA0

-- ****************PROGRAMA PRINCIPAL******************* 

led = high          -- Valor inicial, el led luce

-- Bucle

forever loop        -- Bucle infinito

led = ! led         -- Cambio de estado del led

delay_1ms(500)      -- Retardo de 500 ms

end loop            -- Fin del bucle

end                 -- Fin del programa