.TITLE	MOVBYT	MOVE A BYTE ARRAY
	.IDENT	/F1.0/
	.ENABL	LC

; MODULE FUNCTION:

;	CALL MOVBYT (SOURCE, TARGET, COUNT)

;		SOURCE - Start address from which to move bytes.
;		TARGET - Start address of target.
;		COUNT - Number of bytes to move.

	.LIST	TTM		; TERMINAL LISTING MODE
	.NLIST	BEX		; SUPPRESS BIN EXTENSION

	.PSECT	,I

MOVBYT::
	TST	(R5)+		; Skip arg count
	MOV	(R5)+,R0	; #SOURCE
	MOV	(R5)+,R1	; #TARGET
	MOV	@(R5)+,R2	; COUNT
	BLE	RET		; Nothing to do?
1$:	MOVB	(R0)+,(R1)+
	SOB	R2,1$
RET:	RETURN
	.END