aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/tib.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/words/tib.asm')
-rw-r--r--amforth-6.5/common/words/tib.asm96
1 files changed, 0 insertions, 96 deletions
diff --git a/amforth-6.5/common/words/tib.asm b/amforth-6.5/common/words/tib.asm
deleted file mode 100644
index ca5601f..0000000
--- a/amforth-6.5/common/words/tib.asm
+++ /dev/null
@@ -1,96 +0,0 @@
-; ( -- f )
-; System
-; refills the input buffer
-.if cpu_msp430==1
- HEADER(XT_REFILLTIB,10,"refill-tib",DOCOLON)
-.endif
-
-.if cpu_avr8==1
-VE_REFILLTIB:
- .dw $ff0a
- .db "refill-tib"
- .dw VE_HEAD
- .set VE_HEAD = VE_REFILLTIB
-XT_REFILLTIB:
- .dw DO_COLON
-PFA_REFILLTIB:
-.endif
- .dw XT_TIB
- .dw XT_DOLITERAL
- .dw TIB_SIZE
- .dw XT_ACCEPT
- .dw XT_NUMBERTIB
- .dw XT_STORE
- .dw XT_ZERO
- .dw XT_TO_IN
- .dw XT_STORE
- .dw XT_TRUE ; -1
- .dw XT_EXIT
-
-; ( -- addr n )
-; System
-; address and current length of the input buffer
-.if cpu_msp430==1
- HEADER(XT_SOURCETIB,10,"source-tib",DOCOLON)
-.endif
-
-.if cpu_avr8==1
-VE_SOURCETIB:
- .dw $FF0A
- .db "source-tib"
- .dw VE_HEAD
- .set VE_HEAD = VE_SOURCETIB
-XT_SOURCETIB:
- .dw DO_COLON
-PFA_SOURCETIB:
-.endif
- .dw XT_TIB
- .dw XT_NUMBERTIB
- .dw XT_FETCH
- .dw XT_EXIT
-
-; ( -- addr )
-; System Variable
-; terminal input buffer address
-.if cpu_msp430==1
- VARIABLE(XT_TIB,3,"tib")
- .DW TIBAREA
-.endif
-
-.if cpu_avr8==1
-VE_TIB:
- .dw $ff03
- .db "tib",0
- .dw VE_HEAD
- .set VE_HEAD = VE_TIB
-XT_TIB:
- .dw PFA_DOVARIABLE
-PFA_TIB:
- .dw ram_tib
-.dseg
-ram_tib: .byte TIB_SIZE
-.cseg
-.endif
-
-; ( -- addr )
-; System Variable
-; variable holding the number of characters in TIB
-.if cpu_msp430==1
- VARIABLE(XT_NUMBERTIB,4,"#tib")
- .DW RAM_NUMBERTIB
-.endif
-
-.if cpu_avr8==1
-VE_NUMBERTIB:
- .dw $ff04
- .db "#tib"
- .dw VE_HEAD
- .set VE_HEAD = VE_NUMBERTIB
-XT_NUMBERTIB:
- .dw PFA_DOVARIABLE
-PFA_NUMBERTIB:
- .dw ram_sharptib
-.dseg
-ram_sharptib: .byte 2
-.cseg
-.endif