brooksware2000

'------------------------------------------------------------------------------- 
'  Read temperature 
'-------------------------------------------------------------------------------
READ_TEMPERATURE:
    'Get a sampling of temperature values and write to temperature array
    FOR index = 0 TO BUFFERSIZE - 1
        LOW CS
        SHIFTIN DAT, CLK, 0,[curTemp\16]
        HIGH CS

brooksware2000

'------------------------------------------------------------------------------- 
'  Regulates heater controls based on phase temperature parameters 
'-------------------------------------------------------------------------------
PROCESS_PHASE:      
    GOSUB READ_TEMPERATURE
    GOSUB COMPUTE_PID

    WHILE (elapsedTime <> 0)
        IF (SecondsChanged = 1) THEN 
            elapsedTime = elapsedTime - 1

brooksware2000

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

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

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

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

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

/*
 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

/*
  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 SHT1x humidity/temperature sensor
 breakout V1.o.
 
 Reads humidity, temperature (Celsius) and temperature (Fahrenheit).  
 Displays results to Serial Monitor.
*/

#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 LCD.
*/

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