Staton.us

amforth Examples

 

Run amforth from C-Kermit.

 

Find serial adapter ID:

 

mac:~ ken$ ls /dev/*usb*
/dev/cu.usbserial-A3000PrP /dev/tty.usbserial-A3000PrP

 

mac:~ ken$ kermit

 

set port /dev/tty.usbserial-A3000PrP

set baud 19200

c

 

 

 

Use marker for testing

 

here's an example of uploading a .frt file:

mac:utilities ken$ ./ftdi_amforth.py

Opening serial port: /dev/tty.usbserial-A3000PrP

f> upload /Users/ken/programming/avr/amforth-3.1/lib/ans94/marker.frt

+ ERROR!!


Clear error before uploading!

f> interactive

^] to exit interactive

-13 5

> ok

f> help upload

Upload a .frt file

f> upload /Users/ken/programming/avr/amforth-3.1/lib/ans94/marker.frt

+ + + + + + + + + + + + + + + + +

f>

 

 

 


using marker:

f> marker test1

> marker test1
ok

f>

 

Use Analog Inputs

 

> hex
ok
> 27 constant ADMUX
ok
> 26 constant ADCSRA
ok
> 25 constant ADCH
ok
> 24 constant ADCL
ok

> c0 ADMUX c!
ok
> c7 ADCSRA c!
ok
> ADCSRA c@ .
97 ok
> ADCL c@ .
44 ok
> ADCH c@ .
2 ok
> : adc ADCL c@ ADCH c@ 100 * + ;
ok

> : convert c7 ADCSRA c! ;
ok
> convert
ok
> adc .
22E ok

 

with a poteniometer connected to pins 61, 62, and 63:

 

> convert
ok
> adc .
3FF ok
> convert
ok
> adc .
205 ok
> convert
ok
> adc .
35 ok
> convert
ok
> adc .
34 ok
> convert
ok
> adc .
0 ok
>

 

| © 2009 Ken Staton