INOUT START 3000
		  
INLOOP	TD	INDEV	TEST INPUT DEVICE
		JEQ INLOOP	LOOP UNTIL DEVICE IS READY
		RD 	INDEV	READ ONE BYTE INTO REGISTER A
		STCH	DATA	STORE BYTE THAT WAS READ

OUTLP	TD	OUTDEV	TEST OUTPUT	DEVICE
		JEQ	OUTLP	LOOP UNTIL DEVICE IS READY
		LDCH	DATA	LOAD DATA BYTE INTRO REGSITER A	
		WD		OUTDEV	WRITE ONE BYTE TO OUTUT DEVICES


INDEV	BYTE	X'F1'	INPUT DEVICE NUMBER
OUTDEV	BYTE	X'05'	OUTPUT DEVICE NUMBER
DATA	RESB	1		ONE-BYTE VARIABLE

	END INOUT