.TITLE	MOVEB
	.IDENT	/V1.0/
;
;	CALL	MOVE(IA,IB,ICOUNT)
;		This moves BYTE array to byte array IB for ICOUNT bytes
;
MOVEB::	MOV	#3,R0		; Only 3 params
	CALL	R5CHEK
	MOV	(R5)+,R0	; Input array
	MOV	(R5)+,R1	; Output array
	MOV	@(R5)+,R2	; Count
	BLE	ERROR		; Bad count
1$:	MOVB	(R0)+,(R1)+	; Move 1 byte
	SOB	R2,1$		; Till done
	RETURN
ERROR:	JMP	BPARM		; Bad parameter error routine
	.END