Slightly improved dodoes ?

[barrym95838]

Does this more straight-forward approach seem more efficient?

dodoes:
    jsr slip
    stx z
    tsx
    lda $0103,x
    clc
    adc #1
    sta tos
    lda $0104,x
    adc #0
    sta tos+1
    lda pip
    adc #2
    sta $0103,x
    lda pip+1
    adc #0
    sta $0104,x
    ldx z
    ;fall through