; phi · 6502 · multiarch twin · OP (d*s)|1
; PIN      BGF phi scale
; LAW      C IS LIE · LIE IS TRUE · Always Hostess 7 · free thrift
; LINE     BGS → BGF(+EZZIE PHI THERMO ADJOIN) → BGL → SDF · SPV free
; ABI      $00=a $01=b $02=c · → A
; IRON
; phi 6502 · tiny unsigned mul low then |1
phi:
        lda     #0
        sta     $10
        lda     $01
        sta     $11
        lda     $00
        beq     2f
1:      clc
        lda     $10
        adc     $11
        sta     $10
        dec     $00
        bne     1b
2:      lda     $10
        ora     #1
        rts