! -*- coding: utf-8 -*-
! ChipStick_FR2433.pat
!
-! Fast Forth For M. Ken Boak "ChipStick"
-!
-! Copyright (C) <2016> <J.M. THOORENS>
-!
-! This program is free software: you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation, either version 3 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program. If not, see <http://www.gnu.org/licenses/>.
-!
-\.f=\.4th! to change file type
+\.f=\.4th for ChipStick_FR2433! to change file type
!
!========================
! remove comments
! ============================================
! FORTH I/O :
! ============================================
-TERM_TX=\$10! ; P1.4 = TX also Deep_RST pin
-TERM_RX=\$20! ; P1.5 = RX
-TERM_BUS=\$30!
+!TERMINAL
+BUS_TERM=\$30! ; P1.4 = TX, P1.5 = RX
TERM_IN=\$200!
TERM_REN=\$206!
-TERM_SEL=\$20A! SEL0
-TERM_IE=\$21A!
-TERM_IFG=\$21C!
+TERM_SEL=\$20A! \SEL0
+
+TERM_VEC=\$FFE4! \ UCA0
+WAKE_UP=1! \ RX int
-TERM_CTLW0=\$500! \ eUSCI_A control word 0
-TERM_CTLW1=\$502! \ eUSCI_A control word 1
+TERM_CTLW0=\$500! \ eUSCI_A control word 0
+TERM_CTLW1=\$502! \ eUSCI_A control word 1
TERM_BRW=\$506!
-TERM_BR0=\$506! \ eUSCI_A baud rate 0
-TERM_BR1=\$507! \ eUSCI_A baud rate 1
-TERM_MCTLW=\$508! \ eUSCI_A modulation control
-TERM_STATW=\$50A! \ eUSCI_A status
-TERM_RXBUF=\$50C! \ eUSCI_A receive buffer
-TERM_TXBUF=\$50E! \ eUSCI_A transmit buffer
-TERM_ABCTL=\$510! \ eUSCI_A LIN control
-TERM_IRTCTL=\$512! \ eUSCI_A IrDA transmit control
-TERM_IRRCTL=\$513! \ eUSCI_A IrDA receive control
-TERM_IE=\$51A! \ eUSCI_A interrupt enable
-TERM_IFG=\$51C! \ eUSCI_A interrupt flags
-TERM_IV=\$51E! \ eUSCI_A interrupt vector word
+TERM_BR0=\$506! \ eUSCI_A baud rate 0
+TERM_BR1=\$507! \ eUSCI_A baud rate 1
+TERM_MCTLW=\$508! \ eUSCI_A modulation control
+TERM_STATW=\$50A! \ eUSCI_A status
+TERM_RXBUF=\$50C! \ eUSCI_A receive buffer
+TERM_TXBUF=\$50E! \ eUSCI_A transmit buffer
+TERM_ABCTL=\$510! \ eUSCI_A LIN control
+TERM_IRTCTL=\$512! \ eUSCI_A IrDA transmit control
+TERM_IRRCTL=\$513! \ eUSCI_A IrDA receive control
+TERM_IE=\$51A! \ eUSCI_A interrupt enable
+TERM_IFG=\$51C! \ eUSCI_A interrupt flags
+TERM_IV=\$51E! \ eUSCI_A interrupt vector word
RTS=4! ; P3.2
CTS=1! ; P3.0
SW1_IN=\$201!
SW1=\$02! P2.1
+WIPE_IN=\$201!
+IO_WIPE=\$02! P2.1
+
SW2_IN=\$201!
SW2=\$01! P2.0