brooksware2000

/*
 Demonstration sketch for Hobbybotics MAX6675 Thermocouple breakout board.
 
 Reads temperature from MAX6675 in celsius and fahrenheit.  Prints results to I2C LCD.
*/

#include <MAX6675.h>
#include <LCD.h>
#include <Wire.h>

brooksware2000

/*
 Demonstration sketch for Hobbybotics MAX6675 Thermocouple breakout board.
 
 Reads temperature from MAX6675 in celsius and fahrenheit.  Prints results to serial  monitor.
*/

#include <MAX6675.h>

MAX6675 thermocouple;

brooksware2000

/*
 Demonstration sketch for Hobbybotics SHT1x humidity/temperature sensor
 breakout V1.o.
 
 Reads humidity, temperature (Celsius) and temperature (Fahrenheit).  
 Displays results to LCD.
*/

#include <LCD.h>
#include <SHT15.h>

brooksware2000

/*
 Demonstration sketch for Hobbybotics SHT1x humidity/temperature sensor
 breakout V1.o.
 
 Reads humidity, temperature (Celsius) and temperature (Fahrenheit).  
 Displays results to Serial Monitor.
*/

#include <SHT15.h>

brooksware2000

/*
  Blink
  Turns on an LED on for one second, then off for one second, repeatedly.

  This example code is in the public domain.
 */

void setup() {
  // initialize the digital pin as an output.
  // Pin 13 has an LED connected on most Arduino boards:

brooksware2000

/*
 Demonstration sketch for Hobbybotics AD595 Thermocouple breakout board.
 
 Reads temperature from AD595 in Celsius and Fahrenheit. Prints results to I2C LCD.
*/

#include <AD595.h>
#include <LCD.h>
#include <Wire.h>

brooksware2000

/*
 Demonstration sketch for Hobbybotics AD595 Thermocouple breakout board.
 
 Reads temperature from AD595 in Celsius and Fahrenheit. Prints results to serial monitor.
*/

#include <AD595.h>

AD595 thermocouple;

brooksware2000

/******************************************************************************
 *  PCF8574A I2C Output
 *
 *  Prototype I2C interface to PCF8574A I/O Expander.
 *
 *  Arduino analog input 5 - I2C SCL
 *  Arduino analog input 4 - I2C SDA
 *
 ******************************************************************************/

brooksware2000

'------------------------------------------------------------------------------- 
'  Instant Interrupts Elapsed Timer routine
'-------------------------------------------------------------------------------

ASM
INT_LIST  macro      ;IntSource,  Label,        Type, ResetFlag?
        INT_Handler   TMR1_INT,  _ClockCount,   PBP,  yes
    endm
    ;Creates the interrupt processor
    INT_CREATE            

brooksware2000

'------------------------------------------------------------------------------- 
'  Ramps up to setpoint 
'-------------------------------------------------------------------------------
RAMP_UP:     
    GOSUB StartTimer

    WHILE (curTemp < setpoint)
        IF (SecondsChanged = 1) THEN           
            GOSUB READ_TEMPERATURE
            GOSUB COMPUTE_PID