ATmega2560

The ATmega2560 processor provides 256 Kbytes of program memory, 8 Kbytes of RAM, and 4 Kbytes of EEPROM. With uLisp it is capable of running all the programs in the Examples section with arbitrary symbol names.

Arduino Mega 2560

The Arduino Mega 2560 is based on the ATmega2560 processor. I've tested uLisp with an official Arduino Mega 2560 board:

Mega.jpg

Also with a Chinese equivalent [1]:

MegaC.jpg

LEDs

The Arduino Mega 2560 has an orange LED connected to the digital pin 13 which you can flash with the following program:

(defun b (x)
  (pinmode 13 t)
  (digitalwrite 13 x)
  (delay 1000)
  (b (not x)))

Run it by typing:

(b t)

Crius All in One Pro

Another interesting Arduino-compatible ATmega2560-based board is the Crius All In One Pro, intended for use as a multicopter controller. It's an ideal platform for running uLisp, and could form the basis for uLisp robot and control projects:

Crius.jpg

It fits on a board just 2" (5cm) square, and is available from many sites at about £25 or $35. I bought mine from Aliexpress [2], but it is also available on Banggood [3] and eBay.

The board includes USB, I2C, SPI, and serial interfaces, all of which are brought to connectors at the edge of the board. Most suppliers include a set of cables to allow you to connect to each interface.

It is supplied with a bootloader already installed, and you can program it via the USB port by setting the Board option to Arduino/Genuino Mega or Mega 2560 in the Arduino IDE.

The board includes several interesting sensors, including an MPU-6050 accelerometer and gyro, a HMC5883L 3-axis digital magnetometer, a MS5611-01BA01 high precision altimeter, and an SPI serial memory which could be used for data logging.

LEDs

The Crius board has red, blue, and green LEDs labelled A, B, and C connected to the digital pins 13 , 31, and 30 respectively which you can flash in sequence with the following program:

(defun blink ()
  (let ((x 0)
        (pins '(13 31 30)))
    (mapc pinmode pins '(t t t))
    (loop
     (digitalwrite (nth x pins) nil)
     (setq x (mod (1+ x) 3))
     (digitalwrite (nth x pins) t)
     (delay 1000))))

Run it by typing:

(blink)
  1. ^ Mega 2560 R3 on Banggood.
  2. ^ Crius All In One Pro v2.0 AIOP RC Multi-Copter Flight Control Board on Aliexpress.
  3. ^ Crius All In One Pro v2.0 Multi-Copter Flight Control Board on Banggood.