.title	ADEOUT	Output byte strings
.ident	/TCS3/
.psect	ADEOUT
 
.mcall	QIO$S, WTSE$S
 
 
;	call ADEOUT(NCHAR, ARRAY) integer NCHAR, logical*1 ARRAY
 
ADEOUT::		; Write all bits to unit 6, synchronize with
			;  flag #1, <addr(ARRAY), NCHAR>
 
	QIO$S	#IO.WAL, #6, #1,,,, <4(R5), @2(R5)>
	bcc	10$	; branch if success.
	mov	#427, PC
 
10$:	WTSE$S	#1	; wait for I/0 to complete
	return
 

IWORD::		;Sign extend a byte to a word.
	movb	@2(R5), R0	;Simple to do.
	return

.end