;U MSP-EXP430G2 LaunchPad =================================================

;U PORTS ------------------------------------------------------------------

; TI document SLAU144I - December 2004 - Revised January 2012 
; The digital I/O registers are listed in Table 8-2. 

;U \ P1in = $20
;U \ P1out = $21
;U \ P1dir = $22

;U \ P2in = $28
;U \ P2out = $29
;U \ P2dir = $2A

;U \ LED - portpinX->---resistor---LED---GND
;U \ P1.0 - red LED
;U \ P1.6 - green LED

;U RED      -- mask port         red LED mask and port address
    HEADER red,3,'red',DOTWOCON
	  DW P1OUT
	  DW 00000001b

;U GREEN     -- mask port        green LED mask and port address
    HEADER green,5,'green',DOTWOCON
      DW P1OUT
      DW 01000000b

;U \ Switch S2
;U portpin P1.3 --->0_0----GND
;U S2        -- mask port        second button mask and port address
    HEADER S2,2,'s2',DOTWOCON
      DW P1IN
      DW 00001000b

;U S?     -- f    test button S2, true is pressed 
    HEADER SQEST,2,'s?',DOCOLON
        DW S2, cget, ZEROEQUAL, EXIT

; amforth Kompatibilität -------------------------------------------------------

;U portpin:       comp: portadr n -- | name    pin n von Portx eien namen geben.
;U                exec: -- mask adr            liefert mask und adr
;  1 swap lshift swap 2constant ;
    HEADER PORTPINDEF,8,'portpin:',DOCOLON
       DW lit,1,SWAP,LSHIFT,SWAP,TWOCONSTANT,EXIT

;U low          mask adr --                alias von cclr
    HEADER LOWW,3,'low',DOCOLON
       DW cclr,EXIT

;U high         mask adr --                alias von cset
    HEADER HIGHH,4,'high',DOCOLON
       DW cset,EXIT

; benutze es so:
; p1 0 portpin: redled
; p1 6 portpin: greenled
;
; redled high
; geenled low
;