IN$BYT::
	EMT	340
	BCS	.-2
	SUB	#40,R0
	RETURN

OUT$BYT::
	ADD	#40,R0
	EMT	341
	BCS	.-2
	RETURN

OUT$PAR::
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R0,R1
	CLR	R0
	DIV	#100,R0
	CALL	OUT$BYT
	MOV	R1,R0
	CALL	OUT$BYT
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	RETURN

OUT$WORD::
	MOV	R1,-(SP)
	MOV	R0,R1
	BIC	#<^C17>,R0
	CALL	OUT$BYT
		
	ASH	#-4,R1	
	MOV	R1,R0
	BIC	#<^C17>,R0
	CALL	OUT$BYT

	ASH	#-4.,R1	
	MOV	R1,R0
	BIC	#<^C17>,R0
	CALL	OUT$BYT

	ASH	#-4.,R1	
	MOV	R1,R0
	BIC	#<^C17>,R0
	CALL	OUT$BYT
	
	MOV	(SP)+,R1
	RETURN
	
IN$WORD::
	CALL	IN$BYT
	MOV	R0,-(SP)
	
	CALL	IN$BYT
	ASH	#4,R0
	BIS	R0,(SP)	
	
	CALL	IN$BYT
	ASH	#8.,R0
	BIS	R0,(SP)	
	
	CALL	IN$BYT
	ASH	#12.,R0
	BIS	R0,(SP)	

	MOV	(SP)+,R0	
	RETURN


	.END