aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/sharp.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/sharp.asm')
-rw-r--r--amforth-6.5/common/words/sharp.asm41
1 files changed, 0 insertions, 41 deletions
diff --git a/amforth-6.5/common/words/sharp.asm b/amforth-6.5/common/words/sharp.asm
deleted file mode 100644
index 7659a39..0000000
--- a/amforth-6.5/common/words/sharp.asm
+++ /dev/null
@@ -1,41 +0,0 @@
-; ( d1 -- d2 )
-; Numeric IO
-; pictured numeric output: convert one digit
-
-.if cpu_msp430==1
- HEADER(XT_SHARP,1,"#",DOCOLON)
-.endif
-
-.if cpu_avr8==1
-
-
-VE_SHARP:
- .dw $ff01
- .db "#",0
- .dw VE_HEAD
- .set VE_HEAD = VE_SHARP
-XT_SHARP:
- .dw DO_COLON
-PFA_SHARP:
-.endif
- .dw XT_BASE
- .dw XT_FETCH
- .dw XT_UDSLASHMOD
- .dw XT_ROT
- .dw XT_DOLITERAL
- .dw 9
- .dw XT_OVER
- .dw XT_LESS
- .dw XT_DOCONDBRANCH
- DEST(PFA_SHARP1)
- .dw XT_DOLITERAL
- .dw 7
- .dw XT_PLUS
-PFA_SHARP1:
- .dw XT_DOLITERAL
- .dw 48 ; ASCII 0
- .dw XT_PLUS
- .dw XT_HOLD
- .dw XT_EXIT
-; : # ( ud1 -- ud2 )
-; base @ ud/mod rot 9 over < if 7 + then 30 + hold ;