.NLIST
	.MACRO	MOVE A1,?A2
	.PSECT	$TEXT$
..A..=	.
        .ASCII  /A1/
..B..=	.-..A..
	.PSECT
	MOV  #..A..,R1
	MOV  #..B..,R2
A2:
	MOVB  (R1)+,(R0)+
	SOB  R2,A2
	.DSABL	LSB
	.ENDM  MOVE
	.LIST