.TITLE BYTMOV
	.IDENT /082989/

;
;	File: DE:[22,310]BYTMOV.MAC
;	Author: Peter Stadick
;	History: 28-Aug-89 Created
;
;
;	Last Edit: 29-AUG-1989 18:42:21 

.REM |

PROCEDURE BYTMOV(source_add : address;
	         destin_add : address;
 	         length     : integer); EXTERNAL;

{*USER*

This procedure will copy the data from the source address to the
destination address of the speficied length.
}
|
;
;
;


	PROC  BYTMOV
	PARAM SOURCE, ADDRESS
	PARAM DESTIN, ADDRESS
	PARAM LENGTH, INTEGER
	SAVE <R0, R1, R2>
	BEGIN
	TST	LENGTH(SP)	; MUST BE GREATER THEN ZERO
	BEQ	XT		; EXIT IF ZERO

	MOV	LENGTH(SP),R0	; MOVE LENGTH TO R0
	MOV 	SOURCE(SP),R1	; MOVE SOURCE ADDRESS TO R1
	MOV	DESTIN(SP),R2	; MOVE DESTINATION ADDRESS TO R2
	
1$:	MOVB	(R1),(R2)	; MOVE CHARACTER
	INC	R1
	INC	R2
	SOB	R0,1$		; LOOP TILL END

XT:
	ENDPR
	.END