CHLOOP START 3000
		  LDX	ZERO		INITIALIZE INDEX REGISTER TO 0
MOVECH	LDCH	STR1,X      LOAD CHARACTER FROM STR1 INTO REG A
		  STCH	STR2,X     	STORE CHARACTER INTO STR2
		  TIX   ELEVEN      ADD 1 TO INDEX, COMPARE RESULT TO 11
		  JLT	MOVECH		LOOP IF INDEX IS LESS THAN 11


STR1	BYTE 	C'TEST STRING' 11-BYTE STRING CONSTANT
STR2	RESB	11			   11-BYTE VARIABLE


ZERO 	WORD 0
ELEVEN  WORD 11

	END CHLOOP