MSP430: Add basic pin test for G2553.

3 years ago · 50ed8de458
parent c9ad538f68
commit 50ed8de458
1 changed files with 37 additions and 0 deletions
--- a/msp430/g2553/test-launchpad-basic.fs
+++ b/msp430/g2553/test-launchpad-basic.fs
@ -0,0 +1,37 @@
+\ MSP430G2553 Launchpad-specific words
+
+include basis-g2553.fs
+
+compiletoflash
+
+: init init
+  8 $21 cbis! \ High  (P1OUT)
+  8 $27 cbis! \ Pullup for button  (P1REN)
+  %11110001 $21 cbic! \ all free P1 pins low (P1OUT)
+  %11110001 $22 cbis! \ all free P1 pins are outputs  (P1DIR)
+  %00111111 $29 cbic! \ all free P2 pins low (P2OUT)
+  %00111111 $2A cbis! \ all free P2 pins are outputs  (P2DIR)
+;
+
+: blink \ all free pins
+  begin
+    %11110001 $21 cbis!
+    %00111111 $29 cbis!
+    700 ms
+    %11110001 $21 cbic!
+    %00111111 $29 cbic!
+    700 ms
+  key? until ;
+
+: button?
+  8 $20 cbit@
+  ;
+
+: button
+  begin
+  1 $21 button? if cbic! else cbis! then
+  20 ms
+  key? until ;
+    
+
+compiletoram