aboutsummaryrefslogtreecommitdiff
path: root/j1demo/firmware/ans.fs
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2019-10-30 20:04:56 +0100
committerDimitri Sokolyuk <demon@dim13.org>2019-10-30 20:04:56 +0100
commita76977af62010a392c16010c367185e61e856ffe (patch)
tree56cf4177d5bc0e3ead781d1c60818c13b1df0f3c /j1demo/firmware/ans.fs
parentc0165d167d7cb40d80028bcf7a4a6b160b5a7e83 (diff)
mv to docs
Diffstat (limited to 'j1demo/firmware/ans.fs')
-rw-r--r--j1demo/firmware/ans.fs46
1 files changed, 0 insertions, 46 deletions
diff --git a/j1demo/firmware/ans.fs b/j1demo/firmware/ans.fs
deleted file mode 100644
index dcd29ed..0000000
--- a/j1demo/firmware/ans.fs
+++ /dev/null
@@ -1,46 +0,0 @@
-( Main file for pure ANS forth JCB 13:53 11/27/10)
-
-: parse-word
- bl word count ;
-
-: defer create ( "name" -- )
- ['] abort , does> @ execute ;
-
-: include ( "filename" -- )
- bl word count included decimal ;
-
-: is ( xt "name" -- )
- ' ( xt xt2)
- state @ if
- postpone literal postpone >body postpone !
- else
- >body !
- then ; immediate
-
-
-: include ( "filename" -- )
- bl parse included decimal ;
-
- : Do-Vocabulary ( -- )
- DOES> @ >R ( )( R: widnew)
- GET-ORDER SWAP DROP ( wid_n ... wid_2 n)
- R> SWAP SET-ORDER ;
-
-: VOCABULARY ( "name" -- )
- WORDLIST CREATE , Do-Vocabulary ;
-
-: -rot rot rot ;
-: nstime 0. ;
-: <= > invert ;
-: >= < invert ;
-: d0<> d0= invert ;
-
-: f> fswap f< ;
-: f<= f> invert ;
-: f>= f< invert ;
-: f= 0e0 f~ ;
-: f<> f= invert ;
-
-3.1415926e0 fconstant pi
-
-include main.fs