trunk/workspace/gcb/tiny13-Temperature.gcb

@@ -0,0 +1,78 @@
+'  ###########  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