aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/appl/launchpad430/words
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/appl/launchpad430/words')
-rw-r--r--amforth-6.5/appl/launchpad430/words/applturnkey.asm37
-rw-r--r--amforth-6.5/appl/launchpad430/words/dump.asm19
2 files changed, 0 insertions, 56 deletions
diff --git a/amforth-6.5/appl/launchpad430/words/applturnkey.asm b/amforth-6.5/appl/launchpad430/words/applturnkey.asm
deleted file mode 100644
index 807741f..0000000
--- a/amforth-6.5/appl/launchpad430/words/applturnkey.asm
+++ /dev/null
@@ -1,37 +0,0 @@
-; ( -- ) System
-; R( -- )
-; application specific turnkey action
-
-.if cpu_msp430==1
- HEADER(XT_APPLTURNKEY,11,"applturnkey",DOCOLON)
-.endif
-
-.if cpu_avr8==1
-VE_APPLTURNKEY:
- .dw $ff0b
- .db "applturnkey",0
- .dw VE_HEAD
- .set VE_HEAD = VE_APPLTURNKEY
-XT_APPLTURNKEY:
- .dw DO_COLON
-PFA_APPLTURNKEY:
-.if WANT_INTERRUPTS==1
- .dw XT_INTON
-.endif
-.endif
- .dw XT_USART
- .dw XT_DOT_VER
- .dw XT_SPACE
- .dw XT_F_CPU
- .dw XT_DOLITERAL
- .dw 1000
- .dw XT_UMSLASHMOD
- .dw XT_NIP
- .dw XT_DECIMAL
- .dw XT_DOT
- .dw XT_DOSLITERAL
- .db 3
- .db "kHz"
- .align 16
- .dw XT_ITYPE
- .dw XT_EXIT
diff --git a/amforth-6.5/appl/launchpad430/words/dump.asm b/amforth-6.5/appl/launchpad430/words/dump.asm
deleted file mode 100644
index 6cc9095..0000000
--- a/amforth-6.5/appl/launchpad430/words/dump.asm
+++ /dev/null
@@ -1,19 +0,0 @@
-;X DUMP adr n -- dump memory
-; OVER + SWAP DO
-; CR I 4 U.R SPACE SPACE
-; I $10 + I DO I C@ 3 U.R LOOP SPACE SPACE
-; I $10 + I DO I C@ $7F AND $7E MIN BL MAX EMIT LOOP
-; 10 +LOOP ;
- HEADER(DUMP,4,"dump",DOCOLON)
- DW XT_OVER,XT_PLUS,XT_SWAP,XT_DODO
-LDUMP1: DW XT_CR,XT_I,XT_DOLITERAL,4,XT_UDOTR,XT_SPACE,XT_SPACE
- DW XT_I,XT_DOLITERAL,10h,XT_PLUS,XT_I,XT_DODO
-LDUMP2: DW XT_I,XT_CFETCH,XT_DOLITERAL,3,XT_UDOTR,XT_DOLOOP
- DEST(LDUMP2)
- DW XT_SPACE,XT_SPACE
- DW XT_I,XT_DOLITERAL,10h,XT_PLUS,XT_I,XT_DODO
-LDUMP3: DW XT_I,XT_CFETCH,XT_DOLITERAL,7Fh,XT_AND,XT_DOLITERAL,7Eh,XT_MIN,XT_BL,XT_MAX,XT_EMIT,XT_DOLOOP
- DEST(LDUMP3)
- DW XT_DOLITERAL,10h,XT_DOPLUSLOOP
- DEST(LDUMP1)
- DW XT_EXIT