.title	MOVE
	.psect		code,pic,shr,nowrt,long
;
;	routine to move a string to another
;
;	call move(a1,ist,isp,a2,ist2)
;
;	a1   - string one
;	ist  - start pos in a1
;	isp  - end pos in a1
;	a2   - string two
;	ist2 - start pos in a2
;
	.entry		MOVE,^m<R2>
	movl		@8(AP),R1	;get ist
	movl		@20(AP),R2	;get ist2
	decl		R1		;adjust
	decl		R2		;them
	subl3		@8(AP),@12(AP),R3;calculate length
	incl		R3		;of move
;
M1:	movb		@4(AP)[R1],@16(AP)[R2];move a char
	incl		R1		;increment
	incl		R2		;pointers
	sobgtr		R3,M1		;done?
	ret
;
	.end