'  ###########  start  ###########
'  avr:tiny13
'  ###########   end   ###########
'
' ******************************************************************
' A program to show the temperature level
' 2025-10-09 (c) Paolo Iocco
' ******************************************************************
'
' Circuit diagram
' ---------------
'   ATtiny 13/45/85 Pin map
'                           +--\/--+
'            +5V>--/Reset---|1°   8|---Vcc--<+5V
'                          -|2    7|-  
'            PTH>--ADC2-PB4-|3    6|---PB1--> LED R
'            GND>-----GND---|4    5|---PB0--> LED G
'                           +------+
'
' -------------------------------------------------------------
' 9.6MHz:
' LFuse: 0x7A; HFuse: 0x1F;
' AVRDude: avrdude -B 10 -c USBasp -p attiny13 -U lfuse:w:0x7a:m -U hfuse:w:0x1f:m
'
' ******************************************************************

' Chip model
#chip tiny13, 9.6
#define ledR PORTB.0
#define ledG PORTB.1
#define ledB PORTB.3
#define PTH PORTB.4

#define S0 107
#define S1 108
#define S2 134
#define S3 159

dir ledG out
dir ledR out
dir ledB out

'Startup routine
Startup:
SET ledG OFF
SET ledR OFF
set ledB OFF

'Main routine
Loop:
	'Read temperature
	'temp=ReadAD(ADC2)
	temp=ReadAD(PTH)
	
	if temp < S1 then
		set ledB ON
		SET ledG OFF
		SET ledR OFF
	end if
	if (temp > S1) and (temp <S2) then
		set ledB OFF
		SET ledG ON
		SET ledR OFF
	end if
	if (temp > S2) and (temp <S3) then
		set ledB OFF
		SET ledG ON
		SET ledR ON
	end if
	if temp > S3 then
		set ledB OFF
		SET ledG OFF
		SET ledR ON
	end if
 	
    Wait 100 ms
'Jump back to the start of the program
goto Loop