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