100+ results results for 'forth' (43 ms)
154 int md.size 155 2 member: md.type \ this is not ANS Forth compatible (XXX) 156 ptr md.next \ file_metadata 206vocabulary support-functions 207only forth also support-functions definitions 208 384 385only forth also support-functions definitions 386 585 586only forth also support-functions also file-processing definitions also 587menu-commands.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 418 lines
30 31only forth definitions 32 417 418only forth definitions 419support.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 1608 lines
154 int md.size 155 2 member: md.type \ this is not ANS Forth compatible (XXX) 156 ptr md.next \ file_metadata 246vocabulary support-functions 247only forth also support-functions definitions 248 426 427only forth also support-functions definitions 428 627 628only forth also support-functions also file-processing definitions 629menusets.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 624 lines
29vocabulary menusets-infrastructure 30only forth also menusets-infrastructure definitions 31 442 443only forth definitions also menusets-infrastructure 444menu.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 1319 lines
37 38only forth also menu-infrastructure definitions 39 85 86only forth also menu-namespace definitions 87 141 142only forth definitions 143 176 177only forth also menu-namespace definitions 178 178 179\ Forth variables 180: namespace ( C-ADDR/U N -- ) also menu-namespace +c! evaluate previous ;RetStkDep.fth https://github.com/mwilbur/openbios.git | Forth | 105 lines
4 5\ From the ANSI Forth Spec: 6\ 3.2.3.3 Return stackbeastie.4th https://github.com/vongrippen/pfsense-tools.git | Forth | 296 lines
25\ 26\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.12 2006/03/31 21:36:17 scottl Exp $ 27eforth.4th https://github.com/sunnysujan/wikireader.git | Forth | 864 lines
1\ eForth Initial Model (8086) 2 2 3\ Based on bFORTH 1990 by Bill Muench, 1990 4\ Donated to eForth Working Group, Silicon Valley FIG Chapter 4\ Donated to eForth Working Group, Silicon Valley FIG Chapter 5\ to serve as a model of portable Forth for experimentation. 6 37 \ 0 < la na < .. < la na < va < CONTEXT @ 38 \ 0 < FORTH < .. < vl va < vl va < CURRENT CELL+ @ 39 67 68\ The Forth inner interpreter 69 \pnp.4th https://github.com/blacklion/GEOM-Events.git | Forth | 205 lines
156 157only forth also support-functions 158support.4th https://github.com/kame/kame.git | Forth | 1713 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/support.4th,v 1.15 2002/05/24 02:28:58 gordon Exp $ 26 156 int md.size 157 2 member: md.type \ this is not ANS Forth compatible (XXX) 158 ptr md.next \ file_metadata 257vocabulary support-functions 258only forth also support-functions definitions 259 420 421only forth also support-functions definitions 422 645 646only forth also support-functions also file-processing definitions also 647support.4th https://github.com/kame/kame.git | Forth | 1131 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/support.4th,v 1.3 1999/11/24 17:56:40 dcs Exp $ 26 147vocabulary support-functions 148only forth also support-functions definitions 149loader.4th https://github.com/blacklion/GEOM-Events.git | Forth | 192 lines
47 48only forth also support-functions also builtins definitions 49 84 85also forth definitions also builtins 86 89 90only forth definitions also support-functions 91 170 171\ Return to strict forth vocabulary 172 190 191only forth also 192aw.fth https://github.com/mediogre/colorite.git | Forth | 507 lines
139 save-instdata then \ Save inst data 140 \ forth definitions ( set forth vocabulary as master ) 141 ini-instproc makenode \ Create new nodesoftcore.fr https://github.com/kame/kame.git | Forth | 206 lines
145 146\ FORTH drops the top of the search stack and pushes FORTH-WORDLIST 147: forth ( -- ) 148 search> drop 149 forth-wordlist >search ; 150tools.4TH https://gitlab.com/Aaeinstein54/linguist | Forth | 133 lines
1\ -*- forth -*- Copyright 2004, 2013 Lars Brinkhoff 2 114 115( Forth2012 tools extension words. ) 116check-password.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 180 lines
31vocabulary password-processing 32only forth also password-processing definitions 33 131 132only forth definitions also password-processing also support-functions 133 179 180only forth definitions 181trace.fth https://github.com/mediogre/colorite.git | Forth | 409 lines
1\ @(#) trace.fth 98/01/28 1.2 2\ TRACE ( <name> -- , trace pForth word ) 3\ 4\ Single step debugger. 5\ TRACE ( i*x <name> -- , setup trace for Forth word ) 6\ S ( -- , step over ) 11\ 12\ This debugger works by emulating the inner interpreter of pForth. 13\ It executes code and maintains a separate return stack for the 84 85\ The implementation of these pForth primitives is specific to pForth. 86variable TRACE-LOCALS-PTR \ point to top of local frame 388: TRACE.HELP ( -- ) 389 ." TRACE ( i*x <name> -- , setup trace for Forth word )" cr 390 ." S ( -- , step over )" crbeastie.4th https://github.com/vongrippen/pfsense-tools.git | Forth | 295 lines
25\ 26\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.12.10.1.4.1 2010/06/14 02:09:06 kensmith Exp $ 27frames.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 142 lines
30vocabulary frame-drawing 31only forth also frame-drawing definitions 32 69 70only forth definitions also frame-drawing 71 141 142only forth definitions 143asm.fr https://gitlab.com/Aaeinstein54/linguist | Forth | 244 lines
4 5\ Adds to FORTH vocabulary: ASSEMBLER CODE ;CODE. 6\ Creates ASSEMBLER vocabulary with: END-CODE and x86 opcodes. 236 237base ! only forth definitions also assembler 238test.forth https://gitlab.com/aguai/punyforth | Forth | 240 lines
237 238' selftest execute print "Punyforth ready" cr 239loader.4th https://github.com/kame/kame.git | Forth | 311 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.24 2002/05/24 02:28:58 gordon Exp $ 26 59 60only forth also support-functions also builtins definitions 61 96 97also forth definitions also builtins 98 101 102only forth definitions also support-functions 103 289 290\ Return to strict forth vocabulary 291loader.4th https://github.com/kame/kame.git | Forth | 228 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.5 1999/11/24 17:56:39 dcs Exp $ 26 28 29only forth definitions also support-functions 30 224 225\ Return to strict forth vocabulary 226 226 227only forth also 228TAlias.fr http://frege.googlecode.com/svn/ | Forth | 75 lines
69 | otherwise = stio () 70 changeST Global.{sub <- SubSt.{definitions=reverse other}} -- no more type aliases henceforth 71 foreach agrps checkmutualmenuconf.4th https://github.com/okuoku/freebsd-head.git | Forth | 110 lines
9 29 4 at-xy 15 fg 7 bg 10 ." Welcome to BootFORTH!" 11 me 61 12 20 at-xy ." See '?' for available commands, and 'words' for" 62 12 21 at-xy ." complete list of Forth words." 63 10 22 at-xy ." * Choose 4 in order to warm boot your machine."DevNodAli_01.fth https://github.com/mwilbur/openbios.git | Forth | 159 lines
26\ the scope of a alias to a core-function. 27\ A true FORTH-based tokenizer would place an alias-created definition 28\ into the "current" vocabulary, regardless of where the target ofversion.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 96 lines
29vocabulary version-processing 30only forth also version-processing definitions 31 41 42only forth definitions also version-processing 43 95 96only forth definitions 97fth.misc2.fth https://github.com/mediogre/colorite.git | Forth | 232 lines
1\ @(#) misc2.fth 98/01/26 1.2 2\ Utilities for PForth extracted from HMSL 3\ 6\ 7\ The pForth software code is dedicated to the public domain, 8\ and any third party may reproduce, distribute and modify 8\ and any third party may reproduce, distribute and modify 9\ the pForth software code or any derivative works thereof 10\ without any compensation or license. The pForth softwareloader.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 286 lines
27 28only forth definitions 29 72 73only forth definitions 74 106 107only forth also support-functions also builtins definitions 108 151 152also forth definitions previous 153 156 157only forth definitions also support-functions 158bootmenu.4th https://github.com/sunnysujan/wikireader.git | Forth | 195 lines
93 lcd-cls 94 s" Forth programs" lcd-type 95menu.4th https://github.com/blacklion/GEOM-Events.git | Forth | 99 lines
9 29 4 at-xy 15 fg 7 bg 10 ." Welcome to BootFORTH!" 11 me 18 20 8 at-xy 19 ." 2. Interact with BootFORTH." 20 20 9 at-xy 59 12 20 at-xy ." See '?' for available commands, and 'words' for" 60 12 21 at-xy ." complete list of Forth words." 61 10 22 at-xy ." * Choose 3 in order to warm boot your machine."delay.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 119 lines
29vocabulary delay-processing 30only forth also delay-processing definitions 31 41 42only forth definitions also delay-processing 43 118 119only forth definitions 120core-ext.fth https://gitlab.com/Aaeinstein54/linguist | Forth | 136 lines
1\ -*- forth -*- Copyright 2004, 2013 Lars Brinkhoff 2 117 118( Forth2012 core extension words. ) 119lineedit.fth https://bitbucket.org/garryl/camelforth.git | Forth | 169 lines
1\ **************************************************************************** 2\ CamelForth for the Zilog Z80 3\ Copyright (c) 1994,1995 Bradford J. Rodriguez 22CR .( Loading Line Editor...) 23\ Fig-Forth style block editor with extra facilities 24 33VOCABULARY EDITOR 34ALSO EDITOR DEFINITIONS ALSO FORTH 35 168 169FORTH DEFINITIONS PREVIOUS PREVIOUS 170KataDiversion.fth https://gitlab.com/Aaeinstein54/linguist | Forth | 79 lines
1\ KataDiversion in Forth 2highlight.4th git://pkgs.fedoraproject.org/kate | Forth | 188 lines
2 3 Example File for ANS Forth Syntax Highlighting 4test-forth.fth https://gitlab.com/wilfred/emacs | Forth | 53 lines
1\ 2\ This is a file that tests Forth tags 3\ 4\ You should get: 5\ a-forth-word (twice) 6\ a-forth-constant! 6\ a-forth-constant! 7\ a-forth-value? 8\ :a-forth-dictionary-entry 9\ #a-defer-word 10\ (another-forth-word) 11\ (a-forth-constant 15 16\ This is a forth comment 17efi.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 39 lines
26 27only forth definitions 28beastie.4th https://github.com/billm/pfsense-tools-centipede-slbd.git | Forth | 69 lines
2=================================================================== 3RCS file: /home/ncvs/src/sys/boot/forth/beastie.4th,v 4retrieving revision 1.12environ.fth https://bitbucket.org/garryl/camelforth.git | Forth | 52 lines
1\ **************************************************************************** 2\ CamelForth for the Zilog Z80 3\ Copyright (c) 1994,1995 Bradford J. Rodriguez 22CR .( Loading environment variables...) 23\ ANS Forth environment variables for Sprinter CamelForth 24dumpImage.rx https://github.com/crcx/retro-language.git | Forth | 50 lines
11needs eval' 12needs forth' 13needs hash'errors.fth https://bitbucket.org/garryl/camelforth.git | Forth | 67 lines
1\ **************************************************************************** 2\ CamelForth for the Zilog Z80 3\ Copyright (c) 1994,1995 Bradford J. Rodriguezbeastie.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 257 lines
25\ 26\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.7 2003/10/28 17:18:42 scottl Exp $ 27\ $DragonFly: src/sys/boot/forth/beastie.4th,v 1.7 2005/05/30 01:35:00 swildner Exp $beastie.4th https://repo.or.cz/dfdiff.git | Forth | 257 lines
25\ 26\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.7 2003/10/28 17:18:42 scottl Exp $ 27\ $DragonFly: src/sys/boot/forth/beastie.4th,v 1.8 2007/08/09 00:28:09 swildner Exp $walktree.fth https://github.com/mediogre/colorite.git | Forth | 61 lines
2cr ." Device tree parsing" 3forth definitions decimal anew task-walktree.fth 4defer workfornode \ Work that must executed on node pointsearchordertest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 187 lines
15\ Version 0.4 6 March 2009 { and } replaced with T{ and }T 16\ 0.3 20 April 2007 ANS Forth words changed to upper case 17\ 0.2 30 Oct 2006 updated following GForth tests to get 25\ Words tested in this file are: 26\ FORTH-WORDLIST GET-ORDER SET-ORDER ALSO ONLY FORTH GET-CURRENT 27\ SET-CURRENT DEFINITIONS PREVIOUS SEARCH-WORDLIST WORDLIST FIND 34\ - tester.fr has been loaded prior to this file 35\ - that ONLY FORTH DEFINITIONS will work at the start of the file 36\ to ensure the search order is in a known state 76T{ ALSO GET-ORDER -> get-orderlist OVER SWAP 1+ }T 77T{ ONLY FORTH GET-ORDER -> get-orderlist }T \ See assumptions above 78 92 93: so1 SET-ORDER ; \ In case it is unavailable in the forth wordlist 94core.fr https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 1002 lines
7\ VERSION 1.2 8\ THIS PROGRAM TESTS THE CORE WORDS OF AN ANS FORTH SYSTEM. 9\ THE PROGRAM ASSUMES A TWO'S COMPLEMENT IMPLEMENTATION WHEREtoolstest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 161 lines
1\ To test some of the ANS Forth Programming Tools and extension wordset 2 15\ Version 0.4 6 March 2009 ENDIF changed to THEN. {...} changed to T{...}T 16\ 0.3 20 April 2007 ANS Forth words changed to upper case 17\ 0.2 30 Oct 2006 updated following GForth test to avoidt_floats.fth https://github.com/cataska/pforth.git | Forth | 134 lines
1\ @(#) t_floats.fth 98/02/26 1.1 17:46:04 2\ Test ANS Forth FLOAT words. 3\core.4 https://bitbucket.org/illumos/illumos-gate/ | Forth | 475 lines
93regular file (that is, is a symlink, block or character special-file, and so 94forth). 95.RE 164value, controlling terminal, user-ID, process-ID, the name of the executable, 165and so forth. The \fBprpsinfo_t\fR structure is defined in 166<\fBsys/old_procfs.h\fR>. 206a debugger from the operating system, such as the general registers, signal 207dispositions, state, reason for stopping, process-ID, and so forth. The 208\fBprstatus_t\fR structure is defined in <\fBsys/old_procfs.h\fR>. 257value, controlling terminal, user-ID, process-ID, the name of the executable, 258and so forth. The \fBpsinfo_t\fR structure is defined in <\fBsys/procfs.h\fR>. 259.RE 268debugger from the operating system, such as pending signals, state, process-ID, 269and so forth. The \fBpstatus_t\fR structure is defined in <\fBsys/procfs.h\fR>. 270.REmisc1.fth https://github.com/cataska/pforth.git | Forth | 176 lines
6\ 7\ The pForth software code is dedicated to the public domain, 8\ and any third party may reproduce, distribute and modify 8\ and any third party may reproduce, distribute and modify 9\ the pForth software code or any derivative works thereof 10\ without any compensation or license. The pForth software 153 154: EVALUATE ( i*x c-addr num -- j*x , evaluate string of Forth ) 155\ save current input state and switch to passed in stringloader.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 215 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.25.2.1.4.1 2010/02/10 00:26:20 kensmith Exp $ 26 47 48only forth also support-functions also builtins definitions 49 84 85also forth definitions also builtins 86 89 90only forth definitions also support-functions 91 193 194\ Return to strict forth vocabulary 195forth git://github.com/pixel/syntax-across-languages-and-more.git | Forth | 890 lines
1# comp.lang.forth* 22002-01-01 65prototype.4 https://bitbucket.org/illumos/illumos-gate/ | Forth | 427 lines
14Each entry in the file describes a single deliverable object. An object can be 15a data file, directory, source file, executable object, and so forth. This file 16is generated by the package developer.support.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 1562 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/support.4th,v 1.16.2.2.4.1 2010/02/10 00:26:20 kensmith Exp $ 26 155 int md.size 156 2 member: md.type \ this is not ANS Forth compatible (XXX) 157 ptr md.next \ file_metadata 208vocabulary support-functions 209only forth also support-functions definitions 210 386 387only forth also support-functions definitions 388 587 588only forth also support-functions also file-processing definitions also 589memorytest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 92 lines
1\ To test the ANS Forth Memory-Allocation word set 2 15\ Version 0.3 6 March 2009 { and } replaced with T{ and }T 16\ 0.2 20 April 2007 ANS Forth words changed to upper case 17\ 0.1 October 2006 First version releasedsupport.4th https://github.com/illumos/illumos-gate.git | Forth | 2056 lines
158 int md.size 159 2 member: md.type \ this is not ANS Forth compatible (XXX) 160 ptr md.next \ file_metadata 358vocabulary support-functions 359only forth also support-functions definitions 360 539 540only forth also support-functions definitions 541menu.4th https://github.com/illumos/illumos-gate.git | Forth | 1202 lines
30\ Frame drawing 31include /boot/forth/frames.4th 32 36 37only forth also menu-infrastructure definitions 38 74 75only forth also menu-namespace definitions 76 131 132only forth definitions 133 166 167only forth also menu-namespace definitions 168loader.4th https://github.com/illumos/illumos-gate.git | Forth | 635 lines
27 28only forth definitions 29 41 42include /boot/forth/support.4th 43include /boot/forth/color.4th 43include /boot/forth/color.4th 44include /boot/forth/delay.4th 45include /boot/forth/check-password.4th 46efi? [if] 47 include /boot/forth/efi.4th 48[then] 49 50only forth definitions 51brand.4th https://github.com/illumos/illumos-gate.git | Forth | 76 lines
58 dup 0= if 2drop else drop then \ getenv result unused 59 s" try-include /boot/forth/brand-illumos.4th" 60 else 61 2drop ( c-addr/u -- ) \ getenv result unused 62 s" try-include /boot/forth/brand-${loader_brand}.4th" 63 thencoreexttest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 247 lines
1\ To test some of the ANS Forth Core Ext word set, version 0.1 2 16\ CONVERT test now independent of cell size 17\ 0.2 20 April 2007 ANS Forth words changed to upper case 18\ Tests qd3 to qd6 by Reinhold Straubtester.fr https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 61 lines
9\ 22/1/09 The words { and } have been changed to T{ and }T respectively to 10\ agree with the Forth 200X file ttester.fs. This avoids clashes with 11\ locals using { ... } and the FSL use of }trace.fth https://github.com/cataska/pforth.git | Forth | 438 lines
1\ @(#) trace.fth 98/01/08 1.1 2\ TRACE ( <name> -- , trace pForth word ) 3\ 4\ Single step debugger. 5\ TRACE ( i*x <name> -- , setup trace for Forth word ) 6\ S ( -- , step over ) 11\ 12\ This debugger works by emulating the inner interpreter of pForth. 13\ It executes code and maintains a separate return stack for the 101 102\ The implementation of these pForth primitives is specific to pForth. 103 411: TRACE.HELP ( -- ) 412 ." TRACE ( i*x <name> -- , setup trace for Forth word )" cr 413 ." S ( -- , step over )" crstringtest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 133 lines
1\ To test the ANS Forth String word set 2 15\ Version 0.3 6 March 2009 { and } replaced with T{ and }T 16\ 0.2 20 April 2007 ANS Forth words changed to upper case 17\ 0.1 Oct 2006 First version releasedcoreplustest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 101 lines
1\ More tests on the the ANS Forth Core word set 2ficltest.fr https://github.com/illumos/illumos-gate.git | Forth | 105 lines
44testing default search order 45{ get-order -> forth-wordlist 1 } 46{ only definitions get-order -> forth-wordlist 1 }frames.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 91 lines
2\ XXX Filled boxes are left as an exercise for the reader... ;-/ 3\ $FreeBSD: src/sys/boot/forth/frames.4th,v 1.1 2003/05/30 09:29:23 scottl Exp $ 4\ $DragonFly: src/sys/boot/forth/frames.4th,v 1.1 2003/11/10 07:08:34 dillon Exp $doubletest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 388 lines
1\ To test the ANS Forth Double-Number word set and double number extensions 2 17\ tests re-ordered 18\ 0.3 20 April 2007 ANS Forth words changed to upper case 19\ 0.2 30 Oct 2006 Updated following GForth test to includefiletest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 205 lines
15\ Version 0.4 22 March 2009 { and } replaced with T{ and }T 16\ 0.3 20 April 2007 ANS Forth words changed to upper case 17\ Removed directory test from the filenames 17\ Removed directory test from the filenames 18\ 0.2 30 Oct 2006 updated following GForth tests to remove 19\ system dependency on file size, to allow for fileexceptiontest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 100 lines
1\ To test the ANS Forth Exception word set and extension words 2 15\ Version 0.3 6 March 2009 { and } replaced with T{ and }T 16\ 0.2 20 April 2007 ANS Forth words changed to upper case 17\ 0.1 Oct 2006 First version released 27\ Assumptions and dependencies: 28\ - the forth system under test throws an exception with throw 29\ code -13 for a word not found by the text interpreter. Thet_locals.fth https://github.com/cataska/pforth.git | Forth | 52 lines
1\ @(#) t_locals.fth 97/01/28 1.1 2\ Test PForth LOCAL variables. 3\t_alloc.fth https://github.com/cataska/pforth.git | Forth | 116 lines
1\ @(#) t_alloc.fth 97/01/28 1.4 2\ Test PForth ALLOCATE 3\sbus.4 https://bitbucket.org/illumos/illumos-gate/ | Forth | 190 lines
21.LP 22The information is usually derived from a small Forth program stored in the 23\fBFCode\fR \fBPROM\fR on the card, so driver configuration files should beforth https://ScintillaNET.svn.codeplex.com/svn | Forth | 27 lines
3 \ Note 3: To be strictly ANSI compliant, the code below is in UPPERCASE. 4 \ Most PC Forth implementations are (optionally) case insensitive. 5pcibios.4th https://github.com/illumos/illumos-gate.git | Forth | 47 lines
26 27only forth also support-functions also builtins definitions 28 44 45also forth definitions also builtins 46loader.4th https://github.com/jwg286/freebsd_usb.git | Forth | 215 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.26 2009/01/05 20:09:54 luigi Exp $ 26 47 48only forth also support-functions also builtins definitions 49 84 85also forth definitions also builtins 86 89 90only forth definitions also support-functions 91 193 194\ Return to strict forth vocabulary 195filefind.fth https://github.com/cataska/pforth.git | Forth | 119 lines
1\ @(#) filefind.fth 98/01/26 1.2 2\ FILE? ( <name> -- , report which file this Forth word was defined in ) 3\ 12\ Support EACH.FILE? 13\ 961213 PLB Port to pForth. 14beastie.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 295 lines
25\ 26\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.12.12.1 2010/02/10 00:26:20 kensmith Exp $ 27list.forth https://github.com/crcx/retroforth.git | Forth | 52 lines
25~~~ 26'dict-words-listing.forth include 27~~~kernel_kbd.fth https://github.com/august0815/forthos.git | Forth | 132 lines
6 7%include "forth.h" 8%include "kernel_words.h"system.fth https://github.com/cataska/pforth.git | Forth | 827 lines
22\ This is another style of comment that is common in Forth. 23\ pFORTH - Portable Forth System 24\ Based on HMSL Forth 28\ 29\ The pForth software code is dedicated to the public domain, 30\ and any third party may reproduce, distribute and modify 30\ and any third party may reproduce, distribute and modify 31\ the pForth software code or any derivative works thereof 32\ without any compensation or license. The pForth software 193 194\ for JForth code 195\ : >REL ( adr -- adr ) ; immediate 431 432\ Define JForth like words. 433: >US ustack >stack ;t_tools.fth https://github.com/cataska/pforth.git | Forth | 83 lines
1\ @(#) t_tools.fth 97/12/10 1.1 2\ Test Tools for pForth 3\dump_struct.fth https://github.com/cataska/pforth.git | Forth | 120 lines
10\ MOD: PLB 12/6/90 Modified to work with H4th 11\ 941109 PLB Converted to pforth. Added RP detection. 12 31 WHILE 32\ dup n>link @ \ JForth 33 dup prevname \ HForth 65 >newline swap >r ( -- as , save addr-data for dumping ) 66\ dup cell+ @ over + \ JForth 67 dup code> >name swap cell+ @ over + \ HForthscreen.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 36 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/sys/boot/forth/screen.4th,v 1.1.36.1 2010/02/10 00:26:20 kensmith Exp $ 3vocab.fr https://github.com/illumos/illumos-gate.git | Forth | 32 lines
15 16CREATE FORTH FORTH-WORDLIST , DO-VOCABULARY 17 27 28\ Forth-83 version; just removes ONLY 29: SEAL ( -- ) GET-ORDER 1- SET-ORDER DROP ;screen.4th https://github.com/kame/kame.git | Forth | 36 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/sys/boot/forth/screen.4th,v 1.1 2003/05/30 09:29:23 scottl Exp $ 3beastie.4th https://github.com/illumos/illumos-gate.git | Forth | 112 lines
28 29only forth definitions 30 64 loader_color? if 65 s" try-include /boot/forth/logo-orb.4th" 66 else 66 else 67 s" try-include /boot/forth/logo-orbbw.4th" 68 then 70 2drop ( c-addr/u -- ) \ getenv result unused 71 s" try-include /boot/forth/logo-${loader_logo}.4th" 72 then 101 s" loader_delay" getenv -1 = if 102 s" include /boot/forth/menu.rc" evaluate 103 elseframes.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 112 lines
2\ XXX Filled boxes are left as an exercise for the reader... ;-/ 3\ $FreeBSD: src/sys/boot/forth/frames.4th,v 1.2.32.1 2010/02/10 00:26:20 kensmith Exp $ 4menu.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 100 lines
3\ XXX about something more fancy... :-/ 4\ $FreeBSD: src/share/examples/bootforth/menu.4th,v 1.4 1999/08/28 00:19:10 peter Exp $ 5\ $DragonFly: src/share/examples/bootforth/menu.4th,v 1.2 2003/06/17 06:36:57 dillon Exp $ 10 29 4 at-xy 15 fg 7 bg 11 ." Welcome to BootFORTH!" 12 me 19 20 8 at-xy 20 ." 2. Interact with BootFORTH." 21 20 9 at-xy 60 12 20 at-xy ." See '?' for available commands, and 'words' for" 61 12 21 at-xy ." complete list of Forth words." 62 10 22 at-xy ." * Choose 3 in order to warm boot your machine."menu.4th https://repo.or.cz/dfdiff.git | Forth | 100 lines
3\ XXX about something more fancy... :-/ 4\ $FreeBSD: src/share/examples/bootforth/menu.4th,v 1.4 1999/08/28 00:19:10 peter Exp $ 5\ $DragonFly: src/share/examples/bootforth/menu.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $ 10 29 4 at-xy 15 fg 7 bg 11 ." Welcome to BootFORTH!" 12 me 19 20 8 at-xy 20 ." 2. Interact with BootFORTH." 21 20 9 at-xy 60 12 20 at-xy ." See '?' for available commands, and 'words' for" 61 12 21 at-xy ." complete list of Forth words." 62 10 22 at-xy ." * Choose 3 in order to warm boot your machine."pnp.4th https://github.com/oza/FreeBSD-7.3-dyntick.git | Forth | 205 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/pnp.4th,v 1.2.24.1.4.1 2010/02/10 00:26:20 kensmith Exp $ 26 156 157only forth also support-functions 158exceptiontest.fth https://github.com/chitselb/pettil.git | Forth | 96 lines
1\ To test the ANS Forth Exception word set and extension words 2 15\ 0.3 6 March 2009 { and } replaced with T{ and }T 16\ 0.2 20 April 2007 ANS Forth words changed to upper case 17\ 0.1 Oct 2006 First version released 26\ Assumptions and dependencies: 27\ - the forth system under test throws an exception with throw 28\ code -13 for a word not found by the text interpreter. Thesee.fth https://github.com/cataska/pforth.git | Forth | 218 lines
1\ @(#) see.fth 98/01/26 1.4 2\ SEE ( <name> -- , disassemble pForth word ) 3\ 213 ." Here are some strings." cr 214 c" Forth string." count type cr 215 s" Addr/Cnt string" type crsupport.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 1714 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/support.4th,v 1.15 2002/05/24 02:28:58 gordon Exp $ 26\ $DragonFly: src/sys/boot/forth/support.4th,v 1.3 2003/11/10 07:08:34 dillon Exp $ 157 int md.size 158 2 member: md.type \ this is not ANS Forth compatible (XXX) 159 ptr md.next \ file_metadata 258vocabulary support-functions 259only forth also support-functions definitions 260 421 422only forth also support-functions definitions 423 646 647only forth also support-functions also file-processing definitions also 648frames.4th https://github.com/kame/kame.git | Forth | 90 lines
2\ XXX Filled boxes are left as an exercise for the reader... ;-/ 3\ $FreeBSD: src/sys/boot/forth/frames.4th,v 1.1 2003/05/30 09:29:23 scottl Exp $ 4wordslik.fth https://github.com/cataska/pforth.git | Forth | 44 lines
10\ 11\ The pForth software code is dedicated to the public domain, 12\ and any third party may reproduce, distribute and modify 12\ and any third party may reproduce, distribute and modify 13\ the pForth software code or any derivative works thereof 14\ without any compensation or license. The pForth softwarecheck-password.4th https://github.com/illumos/illumos-gate.git | Forth | 178 lines
27 28include /boot/forth/screen.4th 29 30vocabulary password-processing 31only forth also password-processing definitions 32 130 131only forth definitions also password-processing 132 177 178only forth definitions 179screen.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 37 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/share/examples/bootforth/screen.4th,v 1.2 1999/08/28 00:19:10 peter Exp $ 3\ $DragonFly: src/share/examples/bootforth/screen.4th,v 1.2 2003/06/17 06:36:57 dillon Exp $screen.4th https://repo.or.cz/dfdiff.git | Forth | 37 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/share/examples/bootforth/screen.4th,v 1.2 1999/08/28 00:19:10 peter Exp $ 3\ $DragonFly: src/share/examples/bootforth/screen.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $coreplustest.fth https://github.com/chitselb/pettil.git | Forth | 198 lines
1\ Additional tests on the the ANS Forth Core word set 2 98\ Two's complement arithmetic, wraps around modulo wordsize 99\ Only tested if the Forth system does wrap around, use of conditional 100\ compilation deliberately avoided 150TESTING multiple ELSE's in an IF statement 151\ Discussed on comp.lang.forth and accepted as valid ANS Forth 152hdaudio.fth https://github.com/lukego/fwd.git | Forth | 817 lines
1\ Intel HD Audio driver (work in progress) -*- forth -*- 2\ Copyright 2009 Luke Gorrie <luke@bup.co.nz>pnp.4th https://github.com/kame/kame.git | Forth | 172 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/pnp.4th,v 1.2 2001/12/11 00:49:34 jhb Exp $ 26 123 124only forth also support-functions 125clone.fth https://github.com/cataska/pforth.git | Forth | 489 lines
1\ @(#) clone.fth 97/12/10 1.1 2\ Clone for PForth 3\ 5\ 6\ Clone decompiles the Forth dictionary starting with the top 7\ word in the program. It then moves all referenced secondaries 10\ This work was inspired by the CLONE feature that Mike Haas wrote 11\ for JForth. Mike's CLONE disassembled 68000 machine code then 12\ reassembled it which is much more difficult.strings.fth https://github.com/cataska/pforth.git | Forth | 97 lines
1\ @(#) strings.fth 98/01/26 1.2 2\ String support for PForth 3\ 52 53: TEXT=? ( addr1 count addr2 -- flag , for JForth compatibility ) 54 swap text=stringtest.fth https://github.com/chitselb/pettil.git | Forth | 161 lines
1\ To test the ANS Forth String word set 2 16\ all strings zero length (suggested by Krishna Myneni). 17\ SLITERAL test amended in line with comp.lang.forth 18\ discussion 21\ 0.3 6 March 2009 { and } replaced with T{ and }T 22\ 0.2 20 April 2007 ANS Forth words changed to upper case 23\ 0.1 Oct 2006 First version releasedframes.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 91 lines
2\ XXX Filled boxes are left as an exercise for the reader... ;-/ 3\ $FreeBSD: src/share/examples/bootforth/frames.4th,v 1.2 1999/08/28 00:19:09 peter Exp $ 4\ $DragonFly: src/share/examples/bootforth/frames.4th,v 1.2 2003/06/17 06:36:57 dillon Exp $frames.4th https://repo.or.cz/dfdiff.git | Forth | 91 lines
2\ XXX Filled boxes are left as an exercise for the reader... ;-/ 3\ $FreeBSD: src/share/examples/bootforth/frames.4th,v 1.2 1999/08/28 00:19:09 peter Exp $ 4\ $DragonFly: src/share/examples/bootforth/frames.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $termio.fth https://github.com/cataska/pforth.git | Forth | 88 lines
11\ Copyright 1988 Phil Burk 12\ Revised 2001 for pForth 13loadp4th.fth https://github.com/cataska/pforth.git | Forth | 46 lines
1\ @(#) loadp4th.fth 98/01/28 1.3 2\ Load various files needed by PForth 3\ 6\ 7\ The pForth software code is dedicated to the public domain, 8\ and any third party may reproduce, distribute and modify 8\ and any third party may reproduce, distribute and modify 9\ the pForth software code or any derivative works thereof 10\ without any compensation or license. The pForth softwarelocals.fth https://github.com/cataska/pforth.git | Forth | 77 lines
7\ 8\ The pForth software code is dedicated to the public domain, 9\ and any third party may reproduce, distribute and modify 9\ and any third party may reproduce, distribute and modify 10\ the pForth software code or any derivative works thereof 11\ without any compensation or license. The pForth software 41 ascii ) OF ." { ... ) imbalance!" cr abort ENDOF 42 ascii \ OF postpone \ 2drop ENDOF \ Forth comment 43valentine-bingo.rx https://github.com/crcx/retro-language.git | Forth | 84 lines
1( Port of http://groups.google.com/group/comp.lang.forth/browse_frm/thread/f37aff28d9a3102e ) 2( This is a pretty simple Bingo card generator using an array of words/phrases. )SD_TESTS.4TH https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 90 lines
14 15; your launchpad is running the right Fast Forth For MSP430FRxxxx, 8MHz version, 16 26; all wiring is described in MSP-EXP430FR5969.inc file 27; serial configuration is described in the start of DTCforthMSP430FR5xxx.asm file 28 42 ." 3 Read only this source file (quiet mode)" CR 43 ." 4 Write a dump of the FORTH kernel to yourfile.txt" CR 44 ." 5 append a dump of the FORTH kernel to yourfile.txt" CRkernel_words.fth https://github.com/august0815/forthos.git | Forth | 47 lines
6 7%include "forth.h" 8doc-engine.frt https://bitbucket.org/alexandervantsev/forth.git | Forth | 74 lines
1( 2This file implements Forthress documentation engine. To use it, place a 3string on the stack before defining a new word, and use `wit-doc` afterMSP-EXP430FR6989_I2C_Slave_to_LCD_2x20_8MHz.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 507 lines
7 8; FORTH source file 9 33; target : MSP-EXP430fr5969 LAUNCHPAD 34; with code : "FORTH_MSP430FR596916MHzTxx.HEX" 35; 1088 bytes 110; ******************************; 111CODE WDT_Int ; Watchdog interrupt routine, warning : not FORTH executable ! 112; ******************************; 184 PUSH IP 185 ASM>FORTH 186 TOP_LCD 2 20_us \ write high nibble first 194 PUSH IP 195 ASM>FORTH 196 TOP_LCD 2 20_us \ read high nibble firstMSP-EXP430FR6989_IR_RC5_to_LCD_2x20_8MHz.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 492 lines
7 8; FORTH source file 9 34 35; target : MSP-EXP430fr6989 LAUNCHPAD @ 8 MHz running FastForth ; 922 bytes 36; note : at 4MHz and 921600bds, the protocol XON/XOFF crashes if line is empty. 159 PUSH IP 160 ASM>FORTH 161 TOP_LCD 2 20_us \ write high nibble first 169 PUSH IP 170 ASM>FORTH 171 TOP_LCD 2 20_us \ read high nibble first 172 TOP_LCD 2 20_us 173 FORTH>ASM ; -- 0b0000HHHH 0b0000LLLL 174 MOV @RSP+,IPRC5toLCD.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 489 lines
155 PUSH IP 156 ASM>FORTH 157 TOP_LCD 2 20_us \ write high nibble first 165 PUSH IP 166 ASM>FORTH 167 TOP_LCD 2 20_us \ read high nibble first 168 TOP_LCD 2 20_us 169 FORTH>ASM ; -- 0b0000HHHH 0b0000LLLL 170 MOV @RSP+,IP 324 MOV.B U,TOS ; 325 ASM>FORTH \ ; IP is free 326 ['] LCD_CLEAR IS CR 330 ['] (EMIT) IS EMIT 331 FORTH>ASM ; nice code, right ? 332 MOV @PSP+,&BASEMSP-EXP430FR5969_I2C_Slave_to_LCD_2x20.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 548 lines
7 8; FORTH source file 9 33; target : MSP-EXP430fr5969 LAUNCHPAD 34; with code : "FORTH_MSP430FR596916MHzTxx.HEX" 35; 1088 bytes 110; ******************************; 111CODE INT_P1 ; PORT1 interrupt routine, warning : not FORTH executable ! 112; ******************************; 127; ******************************; 128CODE INT_P4 ; PORT4 interrupt routine, warning : not FORTH executable ! 129; ******************************; 191 PUSH IP 192 ASM>FORTH 193 TOP_LCD 2 20_us \ write high nibble firstMSP-EXP430FR5969_I2C_SoftM_to_LCD_2x20.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 669 lines
7 8; FORTH source file 9 111; ******************************; 112CODE INT_P1 ; PORT1 interrupt routine, warning : not FORTH executable ! 113; ******************************; 128; ******************************; 129CODE INT_P4 ; PORT4 interrupt routine, warning : not FORTH executable ! 130; ******************************; 191 PUSH IP 192 ASM>FORTH 193 TOP_LCD 2 20_us \ write high nibble first 201 PUSH IP 202 ASM>FORTH 203 TOP_LCD 2 20_us \ read high nibble firstMSP-EXP430FR5969_RC5_to_I2CF_SoftMM.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 457 lines
7 8; FORTH source file 9MSP-EXP430FR5969_RC5_to_I2C_Slave.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 376 lines
7 8; FORTH source file 9 34; target : MSP-EXP430fr5969 LAUNCHPAD 35; with code : "FORTH_MSP430FR596916MHzT16.HEX" 36 219; MOV.B U,TOS 220; ASM>FORTH 221; SPACE ." 0x" HEX 2 U.R 221; SPACE ." 0x" HEX 2 U.R 222; FORTH>ASM 223; ------------------------------;MSP-EXP430FR5969_RC5_to_I2CF_SoftM.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 446 lines
7 8; FORTH source file 9 255; MOV.B U,TOS 256; ASM>FORTH 257; cr ." 0x" HEX 2 U.R 257; cr ." 0x" HEX 2 U.R 258; FORTH>ASM 259; ==============================;member.fth https://github.com/cataska/pforth.git | Forth | 155 lines
10\ 11\ The pForth software code is dedicated to the public domain, 12\ and any third party may reproduce, distribute and modify 12\ and any third party may reproduce, distribute and modify 13\ the pForth software code or any derivative works thereof 14\ without any compensation or license. The pForth software 27\ 00001 PLB 8/3/92 Make RPTR a -4 for S@ and S! 28\ 941102 RDG port to pforth 29\ 941108 PLB more porting to pforth. Use ?LITERAL instead os smart literal.screen.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 37 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/sys/boot/forth/screen.4th,v 1.1 2003/05/30 09:29:23 scottl Exp $ 3\ $DragonFly: src/sys/boot/forth/screen.4th,v 1.1 2003/11/10 07:08:34 dillon Exp $t_strings.fth https://github.com/cataska/pforth.git | Forth | 106 lines
1\ @(#) t_strings.fth 97/12/10 1.1 2\ Test ANS Forth String Word Set 3\kernel_test.fth https://github.com/august0815/forthos.git | Forth | 816 lines
6 7%include "forth.h" 8%include "kernel_words.h" 336; function: : 337; [#] needed by forth2s.py to compile -> dd DOCOL (not litn DOCOL) 338defword ":", colon, 0roman_numerals.rx https://github.com/crcx/retro-language.git | Forth | 28 lines
1This is a port of the Forth code; but returns a string rather than displaying 2the roman numerals. It only handles numbers between 1 and 3999.test.fth https://github.com/jdinuncio/forthos.git | Forth | 50 lines
4 5%include "forth.h" 6 11_start: 12 mov [var_S0], esp ; Save the initial data stack pointer in FORTH variable S0. 13 mov ebp, return_stack_top ; init the return stack 16 17; Forth Entry point 18section .rodataloader.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 308 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.24 2002/05/24 02:28:58 gordon Exp $ 26\ $DragonFly: src/sys/boot/forth/loader.4th,v 1.8 2005/02/20 17:31:53 swildner Exp $ 48 49only forth also support-functions also builtins definitions 50 85 86also forth definitions also builtins 87 90 91only forth definitions also support-functions 92 286 287\ Return to strict forth vocabulary 288loader.4th https://repo.or.cz/dfdiff.git | Forth | 308 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/loader.4th,v 1.24 2002/05/24 02:28:58 gordon Exp $ 26\ $DragonFly: src/sys/boot/forth/loader.4th,v 1.8 2005/02/20 16:31:53 swildner Exp $ 48 49only forth also support-functions also builtins definitions 50 85 86also forth definitions also builtins 87 90 91only forth definitions also support-functions 92 286 287\ Return to strict forth vocabulary 288fx_dptbl.4 https://bitbucket.org/illumos/illumos-gate/ | Forth | 411 lines
133quantum for fixed-priority level 0, the second line specifies the quantum for 134fixed-priority level 1, and so forth. There must be exactly one line for each 135configured fixed priority priority level. Each \fBfx_quantum\fR entry must be agateways.4 https://bitbucket.org/illumos/illumos-gate/ | Forth | 503 lines
118To set parameters for remote or external interfaces, use a line starting with 119\fBif=alias(\fIHname\fR)\fR, \fBif=remote(\fIHname\fR)\fR, and so forth. 120.spscreen.4th https://github.com/oza/FreeBSD-8.0-dyntick.git | Forth | 36 lines
1\ Screen manipulation related words. 2\ $FreeBSD: src/sys/boot/forth/screen.4th,v 1.1.34.1.2.1 2009/10/25 01:10:29 kensmith Exp $ 3coreexttest.fth https://github.com/chitselb/pettil.git | Forth | 677 lines
1\ To test some of the ANS Forth Core Extension word set 2 26\ of T{ moved so that tests work with ttester.fs 27\ CONVERT test deleted - obsolete word removed from Forth 200X 28\ IMMEDIATE VALUEs tested 37\ CONVERT test now independent of cell size 38\ 0.2 20 April 2007 ANS Forth words changed to upper case 39\ Tests qd3 to qd6 by Reinhold Straub 55\ Obsolescent words #TIB CONVERT EXPECT QUERY SPAN TIB as they have been 56\ removed from the Forth 200X standard 57kernel.fth https://github.com/august0815/forthos.git | Forth | 66 lines
4 5%include "forth.h" 6global main 12; function: main 13; Initialize the forth machinery. 14; 16main: 17 mov [var_S0], esp ; Save the initial data stack pointer in FORTH variable S0. 18 mov ebp, return_stack_top ; init the return stack 25 26; Bridge to the forth's word main 27cold_start:logistic.forth https://github.com/crcx/retroforth.git | Forth | 63 lines
4 5\ Forth Scientific Library Algorithm #4 6beastie.4th https://github.com/kame/kame.git | Forth | 208 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.2 2003/05/31 11:19:11 scottl Exp $ 26pnp.4th https://repo.or.cz/dragonfly/vkernel-mp.git | Forth | 173 lines
24\ 25\ $FreeBSD: src/sys/boot/forth/pnp.4th,v 1.2 2001/12/11 00:49:34 jhb Exp $ 26\ $DragonFly: src/sys/boot/forth/pnp.4th,v 1.1 2003/11/10 07:08:34 dillon Exp $ 124 125only forth also support-functions 126bench.fth https://github.com/cataska/pforth.git | Forth | 198 lines
1\ @(#) bench.fth 97/12/10 1.1 2\ Benchmark Forth 3\ by Phil Burk 5\ 6\ pForthV9 on Indy, compiled with gcc 7\ bench1 took 15 seconds 21\ 22\ HForth on Mac Quadra 800, 68040 23\ bench1 took 1.73 seconds 29\ 30\ pForthV9 on Mac Quadra 800 31\ bench1 took 40 seconds 37\ 38\ pForthV9 on PB5300, 100 MHz PPC 603 based Mac Powerbook 39\ bench1 took 8.6 seconds