;args
;$00-01: source address
;$02-03: dest address
;$04: palette (in low four bits)
.proc draw_str
    ldx #$00
    ldy #$FF
again: iny
    lda ($00), y
    cmp #$00
    beq done
    inc $02
    sta ($02, x)
    lda $04
    inc $02
    sta ($02, x)
    jmp again
done: ret
.endproc