monsonite

// Txtzyme_UART_2
// A code-reduced version of Txtzyme for the Arduino 

// Ken Boak  2013-2016

// Inspired by Txtzyme by Ward Cunningham
// https://github.com/WardCunningham/Txtzyme/blob/master/arduino/Arduinozyme/Arduinozyme.pde

// Replaced many of Arduino I/O dependencies  reducing code from 3518 to 1040 bytes!

monsonite

//  Tiny FORTH by  T. NAKAGAWA   2004/07/04-10,7/29,8/5-6

/*
  Tiny FORTH
  Experimental Forth for Arduino
  T. Nakagawa
  2004/07/10
*/

#include <stdio.h>

monsonite

// Very Tiny Language  T. Nakagawa  2004/05/23 2004/06/26 

#include <uart.h>
#include <avr/io.h>

#define F_CPU 16000000UL        // define the clock frequency as 16MHz
#define BAUD 115200*2

#include <util/setbaud.h>      // Set up the Uart baud rate generator

monsonite

/*
 50Hz 8-bit sinusoid pwm driver for Open Inverter Project
 
 Complimentary pwm available on Digital 3 and Digital 11
 
 Ken Boak & Trysatn Lea  #bothyHack  - September 2015
 
 */

monsonite

// SIMPL
// A Serial Interpreted Minimal Programming Language
// Created to inspire interactive creative programming
// Inspired by Txtzyme - by Ward Cunningham

// Filename simpl_2015_32bit.ino

// This is the version of simpl that removes most of the Arduino specific routines
// but setup() and loop() remain - as there was a problem with the millisecond delay() without loop()

monsonite

// SIMPL
// A Serial Interpreted Minimal Programming Language
// Inspired by Txtzyme - by Ward Cunningham

// Filename simpl_2015_slim_11

// This is the slim version of simpl that removes most of the Arduino specific routines - saving almost 1800 bytes

// In Version 10: Added printlong() to print out a 32 bit integer plus some 32bit arithmetic and timing functions

monsonite

/*
 This is a very quick hack to run SIMPL on a Papilio Duo using the LogicStart shield for some LEDs
 The SIMPL Interpreter is between lines 356 and 548
 ken.boak@gmail.com  9th Feb 2015
 
 SIMPL  described from May 2013 on my Blog 
 http://sustburbia.blogspot.co.uk/2013/05/txtzyme-minimal-interpreter-and.html

 Gadget Factory
 LogicStart MegaWing Example

monsonite

// EtherShield webserver demo

// Reads the 6 analogue inputs and prints them up to the webpage


#include "EtherShield.h"

#include <stdlib.h>
#include <string.h>

monsonite

/* MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA MEGA*/
/***********************************************************************************
/****************Navitrino Solar/Heating Controller*********************************
/***********************************************************************************

// ---------------navitrino1_53_M  - Changes since last version:--------------------

Updated Mon 20/12/10

Accumulates gas pulse count (10 litres) over hourly intervals to allow mean hourly power to be displayed

monsonite

// SPI SRAM/EPROM  Speed Test

// Written by Ken Boak for Nanode SRAM tests  May 22 2011

// Simple test of the 23K256 32Kx8 SRAM on the Nanode 5 board
// Remember to write 0 to the status register to put it into byte mode (not page or streaming mode)
// Before each write take the select line low and then high again after each write!
// Writes 32K bytes in about 2.68 seconds - with digital write 12,226 per second