; heat · z80 · 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      B=a C=b E=c · → A · 8-bit show (live |1 in A)
; IRON
; heat z80 · B=temp
heat:
        ld      a,b
        cp      71
        jr      c,1f
        cp      85
        jr      c,2f
        ld      a,2
        jr      3f
1:      xor     a
        jr      3f
2:      ld      a,1
3:      or      1
        ret