; phi · z80 · 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      B=a C=b E=c · → A · 8-bit show (live |1 in A)
; IRON
; phi z80 · tiny scale (B*C low) then |1
phi:
        ld      a,0
        ld      d,c
        ld      e,b
1:      ld      a,e
        or      a
        jr      z,2f
        add     a,d
        dec     e
        jr      1b
2:      or      1
        ret