Mediante este programa podemos configurar bit a bit la los puertos del Centronics y ver sus entradas. De esta manera podemos controlar las señales que enviamos por el para testear pequeños circuitos.
En este caso los textos asociados a cada señal están nombrados con la función que desempeñan en el puerto centronics. Cada uno puede luego cambiar estos textos por el uso que haga de cada bit en su prototipo.
Como el puerto Centronis tiene dos puertos de salida y uno de entradas, y los de salidas no son de entradas, normalmente, no podemos leer los puertos 378h y 37Ah , que normalmente son simplemente un latch de salida. Por ello, no siempre el dato inicial será correcto. En el caso de realizar un programa test particularizado para una aplicación, podemos cargar al comienzo del programa en estos puertos un valor inicial, para no tener que ir colocando bit a bit.
En el siguiente blog colocaré el esquema de una targeta que permitirá obtener 48 E/S a través de dos PIO's.
Estos podrán ser programados y manejados por el ordenador a través del puerto centronics.
Por supuesto, una vez realizada la tarjeta hay que probarla, y para ello es necesario este programa. Con él podremos ir enviando las señales de control a la tarjeta y verificando que funciona.
Con el esquema de la tarjeta añadiré una versión de este programa con los textos cambiados y adapatados al uso que se vaya ha hacer en esa tarjeta.
Una vez que la tarjeta funcione podremos realizar librerías de control de esta, para programarla y manejar sus 48 E/S. De esta forma crearemos unos drive's de control para estas tarjeta.
Con estas librerías podremos hacer un programa equivalente a este pero que en pantalla aparezcan en vez de los tres puertos centronics los 6 puertos de la tarjeta y sus puertos de configuración. Esta será, al igual que este programa, una herramienta para crear prototipos controlados mediante esta tarjeta.
Un ejemplo que pondré, bajo una licencia GPL será un emulador de 8051.
Como todos mis programas, todo lo que uso está basado en mis propias librerías. No existe ni una sola línea de programación estandar o cogido de librerías estandar. Por ello, quien quiera entender como funcionan las funciones implementadas, debe de recorrer este blog, ya que el código de todo lo que se usa ya ha sido publicado en él.
CENTRON.ASM
; Copyright (C) 2013 José Ángel Moneo Fernández ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; You should have received a copy of the GNU General Public License ; along with this program. If not, see <http://www.gnu.org/licenses/>.
;programa monitor del puerto centronics
include main.mac
include stdio.mac
include mouse.mac
include math.mac
include window.mac
.model compact,pascal
.stack 100
.data
raton dw 0 ;bandera para detectar flanco de pulsación
m1 db "Control puerto paralelo V1.1",10,13
db " (c)Jose Angel Moneo Fernández",0
datos db "Dato-378H",0
control db "Cont-37AH",0
Estado db "Esta-379H",0
idest1 db "/Ocupado-11--------+¦¦¦¦",0
idest2 db "Reconocido-10-------+¦¦¦",0
idest3 db "Sin papel-12---------+¦¦",0
idest4 db "Seleccion Entrada-13--+¦",0
idest5 db "Error-15---------------+",0
idcont1 db "¦¦¦¦+------ /Strobe-1",0
idcont2 db "¦¦¦+------- /Auto feed-14",0
idcont3 db "¦¦+-------- Inicializacion-16",0
idcont4 db "¦+--------- /Select-17",0
idcont5 db "+---------- En. In.",0
msalir db "Salir",0
orden db "76543210",0
;Inicializamos la varialbe con 100h para que al presentar el número en
; binario siempre mantenga los 8 dígitos. Despuñes borraremos el 1 inical
; en pantalla
numero dw 100h,0
ncontrol dw 100h,0
nestado dw 100h,0
.code
centronics proc far
main
setcursor off
resmouse
mouse on
putmouse 64,64
clrscr
gotoxy 10,1
puts m1
draw_win 9,35,12,46,control
gotoxy 37,10
puts orden
draw_win 15,25,18,36,estado
gotoxy 27,16
puts orden
draw_win 9,18,12,29,datos
gotoxy 20,10
puts orden
gotoxy 8,19
puts idest1
gotoxy 8,20
puts idest2
gotoxy 8,21
puts idest3
gotoxy 8,22
puts idest4
gotoxy 8,23
puts idest5
gotoxy 40,13
puts idcont1
gotoxy 40,14
puts idcont2
gotoxy 40,15
puts idcont3
gotoxy 40,16
puts idcont4
gotoxy 40,17
puts idcont5
gotoxy 50,22
puts msalir
mov dx,378h
in al,dx
mov byte ptr numero,al
mov dx,37Ah
in al,dx
mov byte ptr ncontrol,al
refresca:
;imprime el valor para enviar como dato
gotoxy 19,11
printf numero,@b ;imprime el valor en binario
gotoxy 19,11 ; borra el uno no valido
putchar ' '
; imprime el valor para ncontrol
gotoxy 36,11
printf ncontrol,@b
gotoxy 36,11 ; borra el uno no valido
putchar ' '
test2:
mov dx,379h
in al,dx
cmp al,byte ptr nestado ; no imprime si no cambia el valor
je espera
mov byte ptr nestado,al
gotoxy 26,17
printf nestado,@b
gotoxy 26,17 ; borra el uno no valido
putchar ' '
espera:
getmouse ;comprueba el estado del raton
cmp ax,1
jnz actual ;si no se ha pulsado se espera
cmp ax,raton ;si se pulso se verifica si ha sido un
mov raton,ax ;flanco de subida
jnz seleccion ;si es asi se selecciona la opcion deseada
actual:
mov raton,ax
jmp espera
seleccion:
getmousexy 19,11,8,0 ; numero
cmp al,0ffh
jnz op_numero
getmousexy 36,11,8,0 ; ncontrol
cmp al,0ffh
jnz op_control
getmousexy 50,22,5,0 ; ventana para salir
cmp al,0ffh
jnz fin
jmp espera
op_control:
; ncontrol
;Creamos una palabra con el bit indicado a 1
;mediante traslaciones de un bit
mov cl,ah
xor al,al ; borra al , donde crearemos la mascara
stc ; carry a 1
rcr al,cl ; situa el bit elegido
mov ah,al
mov al,byte ptr ncontrol
xor al,ah
;cambiar bit ncontrol para enviarlo
mov byte ptr ncontrol,al
mov dx,37Ah
out dx,al
jmp refresca
op_numero: ;numero
;Creamos una palabra con el bit indicado a 1
;mediante traslaciones de un bit
mov cl,ah
xor al,al ; borra al , donde crearemos la mascara
stc ; carry a 1
rcr al,cl ; situa el bit elegido
mov ah,al
mov al,byte ptr numero
xor al,ah
;cambiar bit ncontrol para enviarlo
mov byte ptr numero,al
;saca el dato por el puerto
mov dx,378h
out dx,al
jmp refresca
fin:
setcursor on
mouse off
ret
centronics endp
end centronics