From a76977af62010a392c16010c367185e61e856ffe Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 30 Oct 2019 20:04:56 +0100 Subject: mv to docs --- j1demo/firmware/ans.fs | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 j1demo/firmware/ans.fs (limited to 'j1demo/firmware/ans.fs') 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 -- cgit v1.2.3