'    CTRL.BAS
'    Ejemplo b sico de E/S digital mediante el puerto paralelo
'       Salidas:  l¡neas de datos  (bits D0-D7 del registro de datos)
'       Entradas: l¡neas de estado (bits S3-S7 del registro de estado)
'
'    2002 V¡ctor R. Gonz lez
'
'    Suponemos puerto est ndar en la direcci¢n H378
'

   
	' byte para operaciones de E/S
	INPUT "Introduce el byte que se enviar  al puerto: ", byte%
   
	OUT &H378, byte%        ' env¡a un byte a las l¡neas de datos
   

	INPUT "Polariza las l¡neas de estado y pulsa <INTRO>", tecla
   
	byte% = INP(&H378 + 1)  ' lee un byte de las l¡neas de estado

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


END