'    CTRL_2.BAS
'    Ejemplo b sico de E/S digital mediante el puerto paralelo
'
'    2002 V¡ctor R. Gonz lez
'
'    Suponemos puerto bidireccional (comprobar en BIOS)
'    en la direcci¢n H378
'

	CONST LPTBASE = &H378       ' direcci¢n base del puerto paralelo
	CONST DATOS = LPTBASE       ' direcci¢n de E/S del reg. de datos
	CONST CONTROL = LPTBASE + 2 ' direcci¢n de E/S del reg. de control

	CONST C5ON = &H20           ' bit 5 de control a 1
   
   
	ctrl% = INP(CONTROL)    ' guarda el valor actual del reg. de control
   
	' byte para operaciones de E/S
	INPUT "Introduce el byte que se enviar  al puerto: ", byte%
   
	OUT CONTROL, ctrl% AND NOT (C5ON)   ' pone el puerto en modo salida
   
	OUT DATOS, byte%        ' env¡a un byte
   

	INPUT "Polariza las l¡neas del puerto y pulsa <INTRO>", tecla

	OUT CONTROL, ctrl% OR C5ON          ' pone el puerto en modo entrada
   
	byte% = INP(DATOS)      ' lee un byte

	PRINT "El valor le¡do es "; byte%

	OUT CONTROL, ctrl%      ' restaura el valor original del reg. de control

END