Primitivas para los Puertos Seriales

.serialinit :nombre_puerto :velocidad

Esta primitiva activa un puerto serial. El primer parámetro es una palabra que designa el puerto serial. El segundo parámetro especifica la velocidad, medida en bits por segundo. Por ejemplo,

.serialinit "COM2 19200

activa el puerto serial COM 2 y establece una velocidad de 19.200 bps.

.setbaud :velocidad :paridad :bits_de_parada

Esta primitiva establece la velocidad en baudios, la paridad y el protocolo bits de parada para un puerto serial. El primer parámetro especifica la velocidad de conexión en bits por segundo. El segundo parámetro especifica la paridad con un número que tiene un rango de 0 a 4 (0 - no hay paridad, 1 - impar, 2 - par, 3 - marca, 4 - espacio). El tercer parámetro especifica los bits de parada con un número que tiene un rango del 0 al 3 (0 - un bit de parada, 1 - un bit y medio de parada, 2 - dos bits de parada). Por ejemplo,

.setbaud 2400 1 0

establece la velocidad del puerto serial en 2400 bps, una paridad impar y un bit de parada.

.recc

Esta primitiva lee información del puerto serial activado. Actúa como un reportero que reporta el próximo byte (un número entero entre 0 y 255 inclusive); o, si no hubiera información entrante, reporta un entero -1.

.send :byte

Esta primitiva manda un byte de información al puerto serial. Acepta como información a enviar un número entero entre 0 y 255 inclusive.