Browse Source

MSP430: Add basic pin test for G2553.

master
flabbergast 2 years ago
parent
commit
50ed8de458
  1. 37
      msp430/g2553/test-launchpad-basic.fs

37
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
Loading…
Cancel
Save