'    CTRL_1.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
	CONST C5OFF = &H0           ' bit 5 de control a 0
   
   
	' byte para operaciones de E/S
	INPUT "Introduce el byte que se enviar  al puerto: ", byte%
   
	OUT CONTROL, C5OFF      ' 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, C5ON       ' pone el puerto en modo entrada
   
	byte% = INP(DATOS)      ' lee un byte

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


END