From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/words/tib.asm | 96 ---------------------------------------- 1 file changed, 96 deletions(-) delete mode 100644 amforth-6.5/common/words/tib.asm (limited to 'amforth-6.5/common/words/tib.asm') 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 -- cgit v1.2.3