10 ; This is a position independent subroutine›20 ; found in DATA statements line numbered 250 and 260›30 ; Calling Sequence from BASIC is:›40 ; A = USR(ADR($STR),Start Addr,Count)›50 ;›60          *=  $600 ;can go anywhere›70          PLA     ;ignore argument count›80          PLA     ;save lo-byte of dest addr›90          STA  $CC›0100        PLA ;save hi-byte of dest addr›0110        STA  $CB›0120        PLA     ;save total to be moved›0130        STA  $CE ;*›0140  PLA     ;save total to be moved›0150        STA  $CD  ; *›0160        LDX  $CE  ; count of bytes to move›0170        LDY  #0   ; init index›0180        LDA  #0   ; init character to be moved›0190 MOV    STA  ($CB),Y  ; move data›0200        DEY       ; decrement index›0210        BNE  MOV  ; go move next character›0220        INC  $CC  ; incr dest addr l0-byte›0230        DEX       ; decr lo-byte count to move›0240        BMI  EXIT›0250        BNE  MOV  ; go move next character›0260        LDY  $CD  ; hi-byte of count to move›0270        BNE  MOV  ; go move next character›0280 EXIT   DEC  $CC  ; decr lo-byte dest addr›0290        LDY  #0›0300        STA  ($CB),Y›0310        RTS       ; return to BASIC›0320        .END›