search

chitselb / pettil

6502 Forth-83 dialect for the Commodore PET 2001
http://pettil.tumblr.com
34 stars 3 forks source link

Slightly improved dodoes ? #80

Open barrym95838 opened 3 years ago

barrym95838 commented 3 years ago

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