fbpx

Foros

Jal: un lenguage pa...
 
Avisos
Vaciar todo

Jal: un lenguage para PICs


fj_sanchez
Respuestas: 1083
Socio
Topic starter
(@fj_sanchez)
Ardero noble
Registrado: hace 16 años

Bueno, no he visto ninguna referencia en todo el foro a este lenguaje, y no me extraña pues hasta hace bien poco yo tampoco lo había escuchado nunca. Se trata de JAL, un lenguaje basado en Pascal y pensado para los micros de 8-bits de Microchip. Por lo que he visto tiene soporte para casi todos los micros actuales y también librerías que hacen uso de sus periféricos (jallib).

He escrito en mi blog una entrada sobre el mismo: http://www.mipixel.com/2009/08/23-empezando-con-jal-otro-lenguage-de-programacion " onclick="window.open(this.href);return false;

¿Qué os parece este lenguaje de programación?

Responder
3 respuestas
fj_sanchez
Respuestas: 1083
Socio
Topic starter
(@fj_sanchez)
Ardero noble
Registrado: hace 16 años

La verdad es que cuanto más lo miro más me gusta. Si me he dado cuenta que actualmente está en plena fase de desarrollo. En la lista de correo del proyecto tienen bastante actividad y la última versión de hace un par de semanas corrige bastantes bugs.

Supongo que aún no está muy maduro, pero es gratuito, libre y fácil de usar. Para facilidad dejo aquí un ejemplo de un servidor ECHO por puerto serie sobre USB, es uno de los ejemplos que he modificado un poco (no he puesto los fuses porque uso un bootloader y los básicos ya los tiene configurados):
include 18f4550
pragma target clock 48_000_000

include delay
include usb_serial
include print

-- Constantes
const byte str_welcome[] = "Prueba de jallib: serie sobre USBn"

-- Desactivamos interrupciones
INTCON_GIE = false

-- Inicializamos el módulo USB
usb_serial_init()

var bit se_ha_mostrado_msg = true
var byte ch

-- main loop
forever loop
-- Hay que llamar a esta función frecuentemente para atender
-- a las peticiones por USB
usb_serial_flush()

-- Esperamos a que el USB esté configurado por el HOST
if ( usb_cdc_line_status() != 0x00 ) then
if !se_ha_mostrado_msg then
se_ha_mostrado_msg = true
print_string( usb_serial_data, str_welcome )
end if
else
se_ha_mostrado_msg = false
end if

-- Miramos si nos ha llegado algún caracter
if usb_serial_read( ch ) then
-- Y lo imprimimos
usb_serial_data = ch
end if

end loop

A ver si más gente se anima a usar este lenguaje de programación.

¡Saludos!

Responder
fj_sanchez
Respuestas: 1083
Socio
Topic starter
(@fj_sanchez)
Ardero noble
Registrado: hace 16 años

Estoy escribiendo un tutorial de cómo usar JALv2. Podéis verlo en mi web http://www.mipixel.com/tutorial-jalv2 " onclick="window.open(this.href);return false;

Espero que os guste.
¡Un saludo!

Responder
jim_17
Respuestas: 21
Registrado
(@jim_17)
Ardero eminente
Registrado: hace 14 años

Muy interesante... Gracias por el aporte, no conocía para nada que este lenguaje se utilizara con PIC's, Gracias.

Responder
Compartir: