; Modified to match the output example
;

; CONSTANTS SECTION
       EQU ZERO 0        
       EQU ELEVEN 11
       
; PROGRAM SECTION
       START EX1 0       ; PROGRAM EX1
       
; DATA SECTION
       EQU FSTR *        ; FROM STRING
       BYTE C'T'
       BYTE C'E'
       BYTE C'S'
       BYTE C'T'
       BYTE C' '
       BYTE C'S'
       BYTE C'T'
       BYTE C'R'
       BYTE C'I'
       BYTE C'N'
       BYTE C'G'
       
       EQU TSTR *       ; DESTINATION (TO) BUFFER
       RESB ELEVEN       
       
; CODE SECTION
       
       EQU ENTRY *      ; PROGRAM ENTRY POINT
       
       LDS #ELEVEN      ; USE S REGISTER FOR LOOP BOUNDS
       LDX #ZERO        ; INITIALIZE X REGISTER FOR LOOP START
       
       EQU LOOP *
       LDCH -FSTR,X
       STCH -TSTR,X
       TIXR S
       JLT #LOOP
       
; END OF PROGRAM
       END ENTRY