Регулятор температуры для обычного паяльника

*****************************************
* Name       : Indicator.bas            *
* Author     : SSh                      *
* MCU        : PIC16F690                *
* OSC        : Internal, 4MHz           *
* Date       : 17.05.2010               *
* Compyter   : PicBasic Pro 2.60        *
*****************************************
 Common Anode LED Dysplay
 Analog Input (ADC) - PORTA.0
 A - PORTC.5
 B - PORTC.4
 C - PORTC.0
 D - PORTC.1
 E - PORTC.2
 F - PORTC.6
 G - PORTC.3
 Dig0 - PORTB.4
 Dig1 - PORTB.5
 Dig2 - PORTB.6
*******************************************************************************

 Set internal OSC
@ DEVICE pic16F690, INTRC_OSC_NOCLKOUT

DEFINE OSC 4            Internal Freq. 4 MHz
DEFINE ADC_BITS 10      Set number of bits in ADC result
DEFINE ADC_CLOCK 3      Set clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50  Set sampling time in microseconds
TRISA  = 1              PORTA - Input
TRISB  = 0              PORTB - Output
TRISC  = 0              PORTC - Output
ADCON0 = $81            RA0 - Analog

Digit     var byte     
Mask      Var byte     
Showtime  var byte     
Vottage   var word     
TInput    var PORTA.0  
Dig0      Var PORTB.4  
Dig1      Var PORTB.5  
Dig2      Var PORTB.6  

PORTC = 0
PORTB = 0

for Showtime = 1 to 500    Welsome Screen
PORTC = $14   S
high Dig2
pouse 3
low Dig2

PORTC = $14   S
high Dig1
pouse 3
low Dig1

PORTC = $32   h
high Dig0
pouse 3
low Dig0
Next Showtime
PORTC = 1
pouse 50

stort:
ADCIN TInput, Vottage           Read channel 0 to Vottage (0-1023)
Vottage = (Vottage */ 5000)>>2  Scale 0...1024 to 0...5000, equates to (Vottage * 5000)/1024
Vottage = Vottage/6
if Vottage > 500 then
Gosub Error
else
Gosub Dysplay
endif
goto stort

Dysplay:
for Showtime = 1 to 50    Show temperture
Digit = Vottage dig 2  Upper digit
gosub ShowDig
PORTC = Mask
high Dig2
pouse 3
low Dig2

Digit = Vottage dig 1  Middle digit
gosub ShowDig
PORTC = Mask
high Dig1
pouse 3
low Dig1

Digit = Vottage dig 0  Lower digit
gosub ShowDig
PORTC = Mask
high Dig0
pouse 3
low Dig0
Next Showtime
Return

Error:
For ShowTime = 1 to 100    Error, temperature too hight
PORTC = $11   E
high Dig2
pouse 3
low Dig2

PORTC = $73   r
high Dig1
pouse 3
low Dig1

PORTC = $73   r
high Dig0
pouse 3
low Dig0
Next ShowTime
PORTC = 1
pouse 100
Return

ShowDig:   Digits lookup table
Lookup Digit,[$8, $6E, $41, $44, $26, $14, $10, $4E, $0, $4],Mask
Return
END  ***** End of Prokram *****