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/prompt-ok.asm | 52 ---------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 amforth-6.5/common/words/prompt-ok.asm (limited to 'amforth-6.5/common/words/prompt-ok.asm') diff --git a/amforth-6.5/common/words/prompt-ok.asm b/amforth-6.5/common/words/prompt-ok.asm deleted file mode 100644 index 6a73974..0000000 --- a/amforth-6.5/common/words/prompt-ok.asm +++ /dev/null @@ -1,52 +0,0 @@ -; ( -- ) -; System -; send the READY prompt to the command line - -.if cpu_msp430==1 - HEADLESS(XT_DEFAULT_PROMPTOK,DOCOLON) - DW XT_DOSLITERAL - DB 3," ok" -.endif - -.if cpu_avr8==1 -;VE_PROMPTOK: -; .dw $ff02 -; .db "ok" -; .dw VE_HEAD -; .set VE_HEAD = VE_PROMPTOK -XT_DEFAULT_PROMPTOK: - .dw DO_COLON -PFA_DEFAULT_PROMPTOK: - .dw XT_DOSLITERAL - .dw 3 - .db " ok",0 -.endif - .dw XT_ITYPE - .dw XT_EXIT - -; ------------------------ - -.if cpu_msp430==1 -; DEFER(XT_PROMPTOK,2,"ok") - DW link - DB 0FFh -.set link = $ - DB 3,".","ok" - .align 16 -XT_PROMPTOK: - DW DODEFER -.endif - -.if cpu_avr8==1 -VE_PROMPTOK: - .dw $FF03 - .db ".ok" - .dw VE_HEAD - .set VE_HEAD = VE_PROMPTOK -XT_PROMPTOK: - .dw PFA_DODEFER1 -PFA_PROMPTOK: -.endif - .dw USER_P_OK - .dw XT_UDEFERFETCH - .dw XT_UDEFERSTORE -- cgit v1.2.3