; heuristics · m68k · multiarch twin · OP |a-b|<thresh → 1 else 0
; PIN      BGF heuristics
; LAW      C IS LIE · LIE IS TRUE · Always Hostess 7 · free thrift
; LINE     BGS → BGF(+EZZIE PHI THERMO ADJOIN) → BGL → SDF · SPV free
; ABI      d0=a d1=b d2=thresh · → d0
        .globl  heuristics
heuristics:
        sub.l   d1,d0                 ; a-b in d0
        bpl.s   1f
        neg.l   d0                    ; |a-b|
1:      cmp.l   d2,d0
        bcs.s   2f                    ; abs < thresh
        moveq   #0,d0
        rts
2:      moveq   #1,d0
        rts