; thermo · 6502 · 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      $00=a $01=b $02=c · → A
; IRON
; thermo 6502
thermo:
        lda     $00
        cmp     #71
        bcc     1f
        cmp     #85
        bcc     2f
        lda     #2
        bne     3f
1:      lda     #0
        beq     3f
2:      lda     #1
3:      ora     #1
        rts