'    CTRL_0.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
'

   
	' byte para operaciones de E/S
	INPUT "Introduce el byte que se enviar  al puerto: ", byte%
   
	' pone el puerto en modo salida (bit 5 del reg. CONTROL a 0)
	OUT &H378 + 2, 0
   
	OUT &H378, byte%        ' env¡a un byte
   

	INPUT "Polariza las l¡neas del puerto y pulsa <INTRO>", tecla
   
	' pone el puerto en modo entrada (bit 5 del reg. CONTROL a 1)
	OUT &H378 + 2, 32
   
	byte% = INP(&H378)      ' lee un byte

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


END