title FORTH Archive
user strick
ip 104.132.0.90
vol 1
lock ********

/subsection The most useful documents I've found for understanding how to build a FORTH:
/list(

* /link http://www.figuk.plus.com/byof.htm Build Your Own Forth ( including The Heart Of Forth )


*  Jones Forth

( see https://rwmj.wordpress.com/2010/08/07/jonesforth-git-repository/ & http://git.annexia.org/?p=jonesforth.git;a=summary ; my copy is from https://github.com/AlexandreAbreu/jonesforth )
/list)

/subsection Sorry, definitely NOT FORTH.

* /file unithorpe-2004-11-30.tgz


/subsection Archive (to help avoid internet rot):



* /file fig-FORTH_Manuals_May79.pdf
* /file thinking-forth-color.pdf
* /file sysguidefig.pdf
* /file jonesforth-AlexandreAbreu-clone.tgz
* /file Build-Your-Own-FORTH---The-Heart-Of-FORTH.tgz
* /file forth-rc2.pdf

* /file 1802_FORTH--FORTH.ASM
* /file 1802_FORTH--FORTH.HEX
* /file 1802_FORTH--FORTH.LST
* /file 1802_FORTH--hart_figforth.txt
* /file retro_combinators.forth.txt
  (Thank you crcx: https://gist.github.com/crcx/8060687 )
* /file MovingForth--BradRodriguez.tgz
  ( archived from http://www.bradrodriguez.com/papers/ )


/box(
words defined at https://repl.it/repls/SinfulTidyMining running in javascript:

finish warm quit help blank list l +thru thru +load .line screen load evaluate to recurse [compile] ['] ' endcase endof of case unloop ?leave leave +loop loop ?do do until again repeat while begin endif then else if next for .r u.r . u. d.r d. (d.) #s # (s ( \ [char] char .( s( query accept word key key? does> : ; fvariable variable value fconstant constant create abort" >number du* .' s' ." c" s" skip scan ,' ," compile, ?exec ?comp abort literal c/s l/s c/l fit outfile state >in tib base last scr blk current context debugger warnings casesensitive false true compliance esc bl 2 cell 1 0 -1 loadhelp infolines tail all random epoch ms enter confirm alert eval hex decimal bye .allocated free allocate f, 1/f pi f. fmax fmin fsqrt falog fln f** facos fatan2 fatan fasin ftan fcos fsin f/ f* f- f+ s>f f>d d>f fdepth fround fabs fnegate f0> f0< f0<> f0= f< f> f<> f= f! f@ fover fswap fdup fdrop f.s vocs previous also order definitions teststuff hidden forth only vocabulary bufstats empty-buffers save-buffers update block buffer localcapacity capacity (marker) heap unused :noname name .name [ ] immediate body> >body find c, , allot here words digit -trailing cmove move j i perform execute #> sign hold <# within u> u< 0> 0< 0<> 0= < > <> = invert xor and or ud/mod um/mod d= d< m* um* d+ dabs dnegate s>d range chars cells +! >> rshift << lshift abs negate */mod /mod mod */ / * - + 2/ 2* cell- 1- char+ cell+ 1+ cookie@ cookie! !source source slow fast parse .s prompt cls page type emit space spaces cr pad aligned align /string erase fill off on exchange skim count c! c@ 2! 2@ ! @ roll pick depth 2r@ 2r> 2>r rdrop r@ r> >r max min 2over 2swap 2drop 2dup nip tuck -rot rot over swap drop ?dup dup newerror throw catch exit jsf ans f83 f79 foerthchen fig elapsed startclock info stackeffe