aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/do-variable.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/msp430/words/do-variable.asm')
-rw-r--r--amforth-6.5/msp430/words/do-variable.asm11
1 files changed, 0 insertions, 11 deletions
diff --git a/amforth-6.5/msp430/words/do-variable.asm b/amforth-6.5/msp430/words/do-variable.asm
deleted file mode 100644
index 2198c4b..0000000
--- a/amforth-6.5/msp430/words/do-variable.asm
+++ /dev/null
@@ -1,11 +0,0 @@
-; DOCON, code action of CONSTANT,
-; entered with W=Parameter Field Adrs
-; This is also the action of VARIABLE (Harvard model)
-; This is also the action of CREATE (Harvard model)
-docreate: ; -- a-addr ; ROMable CREATE fetches address from PFA
-DOCON: ; -- x ; CONSTANT fetches cell from PFA to TOS
-PFA_DOVARIABLE:
- SUB #2,PSP ; make room on stack
- MOV TOS,0(PSP)
- MOV @W,TOS ; fetch from parameter field to TOS
- NEXT