; heat · m68k · multiarch twin · OP cool|warm|hot then |1
; PIN      BGF thermo
; 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=c · → d0 · show convention
; IRON
        .globl  heat
heat:
        cmp.l   #70,d0
        ble.s   1f
        cmp.l   #84,d0
        ble.s   2f
        moveq   #2,d0
        bra.s   3f
1:      moveq   #0,d0
        bra.s   3f
2:      moveq   #1,d0
3:      or.l    #1,d0
        rts