aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/appl/arduino/blocks/led-mega.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/appl/arduino/blocks/led-mega.frt')
-rw-r--r--amforth-6.5/appl/arduino/blocks/led-mega.frt38
1 files changed, 38 insertions, 0 deletions
diff --git a/amforth-6.5/appl/arduino/blocks/led-mega.frt b/amforth-6.5/appl/arduino/blocks/led-mega.frt
new file mode 100644
index 0000000..ada5b36
--- /dev/null
+++ b/amforth-6.5/appl/arduino/blocks/led-mega.frt
@@ -0,0 +1,38 @@
+\ let the led at digital-13 aka PortB.7 blink
+
+\
+$25 constant PORTB
+$24 constant DDRB
+
+\ initialize the Port: change to output mode
+: led-init
+ $80 DDRB c!
+;
+
+\ turn the led on
+: led-on
+ $80 PORTB c!
+;
+
+\ turn the led off
+: led-off
+ 0 PORTB c!
+;
+
+\ let led blink once
+: led-blink
+ led-on 500 ms led-off 500 ms
+;
+
+\ let led blink until a keystroke
+: blink
+ ." press any key to stop "
+ begin
+ led-blink
+ key?
+ until
+ key drop \ we do not want to keep this key stroke
+;
+
+\ and do it....
+led-init blink