.word $801 *=$801 .word $80b,1 .byt $9e,"2061",0,0,0 sei lda #$33 sta 1 ldx #0 ldy #2 loop src lda $d000,x ; ... dest sta $3800,x inx bne loop inc src+2 inc dest+2 dey bne loop lda #$37 sta 1 lda #$1e sta $d018 cli rts