PageRenderTime 193ms queryTime 36ms sortTime 0ms getByIdsTime 93ms findMatchingLines 14ms

100+ results results for 'forth' (193 ms)

Not the results you expected?
support.4th https://github.com/blacklion/GEOM-Events.git | Forth | 1529 lines
                    
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
                    
587
                    
                
support.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
                    
629
                    
                
menusets.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
                    
444
                    
                
RetStkDep.fth https://github.com/mwilbur/openbios.git | Forth | 105 lines
                    
4
                    
5\  From the ANSI Forth Spec:
                    
6\  3.2.3.3   Return stack  
                    
                
menu.4th https://github.com/freebsd/freebsd.git | Forth | 1328 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 ;
                    
                
beastie.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 $
                    
27
                    
                
pnp.4th https://github.com/okuoku/freebsd-head.git | Forth | 205 lines
                    
156
                    
157only forth also support-functions
                    
158
                    
                
eforth.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 \
                    
                
support.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
                    
647
                    
                
support.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
                    
149
                    
                
loader.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
                    
192
                    
                
aw.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 node
                    
                
softcore.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 ; 
                    
150
                    
                
tools.fth https://gitlab.com/Blueprint-Marketing/linguist | Forth | 133 lines
                    
1\ -*- forth -*- Copyright 2004, 2013 Lars Brinkhoff
                    
2
                    
114
                    
115( Forth2012 tools extension words. )
                    
116
                    
                
check-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
                    
181
                    
                
beastie.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 $
                    
27
                    
                
fth.trace.fth https://github.com/mediogre/colorite.git | Forth | 423 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
                    
402: TRACE.HELP ( -- )
                    
403    ."   TRACE  ( i*x <name> -- , setup trace for Forth word )" cr
                    
404    ."   S      ( -- , step over )" cr
                    
                
frames.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
                    
143
                    
                
asm.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
                    
238
                    
                
test.forth https://gitlab.com/aguai/punyforth | Forth | 240 lines
                    
237
                    
238' selftest execute print "Punyforth ready" cr
                    
239
                    
                
loader.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
                    
291
                    
                
loader.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
                    
228
                    
                
TAlias.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 checkmutual
                    
                
menuconf.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 of
                    
                
version.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
                    
97
                    
                
fth.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 software
                    
                
beastie.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 110 lines
                    
30
                    
31only forth definitions
                    
32
                    
109
                    
110only forth definitions
                    
111
                    
                
loader.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
                    
158
                    
                
bootmenu.4th https://github.com/sunnysujan/wikireader.git | Forth | 195 lines
                    
93    lcd-cls
                    
94    s" Forth programs" lcd-type
                    
95
                    
                
menu.4th https://bitbucket.org/killerpenguinassassins/open_distrib_devel.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
                    
120
                    
                
core-ext.fth https://bitbucket.org/liluo/linguist.git | Forth | 136 lines
                    
1\ -*- forth -*- Copyright 2004, 2013 Lars Brinkhoff
                    
2
                    
117
                    
118( Forth2012 core extension words. )
                    
119
                    
                
lineedit.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
                    
170
                    
                
KataDiversion.fth https://gitlab.com/Aaeinstein54/linguist | Forth | 79 lines
                    
1\ KataDiversion in Forth
                    
2
                    
                
highlight.4th git://pkgs.fedoraproject.org/kate | Forth | 188 lines
                    
2
                    
3  Example File for ANS Forth Syntax Highlighting
                    
4
                    
                
test-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
                    
17
                    
                
efi.4th https://bitbucket.org/freebsd/freebsd-base.git | Forth | 39 lines
                    
26
                    
27only forth definitions
                    
28
                    
                
beastie.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.12
                    
                
environ.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
                    
24
                    
                
dumpImage.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. Rodriguez
                    
                
beastie.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 point
                    
                
searchordertest.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
                    
94
                    
                
core.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 WHERE
                    
                
toolstest.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 avoid
                    
                
t_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.RE
                    
                
misc1.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 string
                    
                
loader.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
                    
195
                    
                
forth git://github.com/pixel/syntax-across-languages-and-more.git | Forth | 890 lines
                    
1# comp.lang.forth*
                    
22002-01-01 65
                    
                
prototype.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
                    
589
                    
                
memorytest.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 released
                    
                
support.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
                    
541
                    
                
menu.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
                    
168
                    
                
loader.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
                    
51
                    
                
brand.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		then
                    
                
coreexttest.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 Straub
                    
                
tester.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 )" cr
                    
                
stringtest.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 released
                    
                
coreplustest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 101 lines
                    
1\ More tests on the the ANS Forth Core word set
                    
2
                    
                
ficltest.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 include
                    
                
filetest.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 file
                    
                
exceptiontest.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. The
                    
                
t_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 be
                    
                
forth 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.
                    
5
                    
                
pcibios.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
                    
46
                    
                
loader.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
                    
195
                    
                
filefind.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.
                    
14
                    
                
beastie.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 $
                    
27
                    
                
list.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 +   \ HForth
                    
                
screen.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 $
                    
3
                    
                
vocab.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 $
                    
3
                    
                
beastie.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	else
                    
                
frames.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 $
                    
4
                    
                
menu.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
                    
158
                    
                
exceptiontest.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. The
                    
                
see.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 cr
                    
                
support.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
                    
648
                    
                
frames.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 $
                    
4
                    
                
wordslik.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 software
                    
                
check-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
                    
179
                    
                
screen.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
                    
152
                    
                
hdaudio.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
                    
125
                    
                
clone.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 released
                    
                
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/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
                    
13
                    
                
loadp4th.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 software
                    
                
locals.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
                    
43			
                    
                
valentine-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" CR
                    
                
kernel_words.fth https://github.com/august0815/forthos.git | Forth | 47 lines
                    
6
                    
7%include "forth.h"
                    
8
                    
                
doc-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` after
                    
                
MSP-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 first
                    
                
MSP-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+,IP
                    
                
RC5toLCD.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+,&BASE
                    
                
MSP-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 first
                    
                
MSP-EXP430FR5969_I2CF_SoftM_to_LCD_2x20.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 674 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 first
                    
                
MSP-EXP430FR5969_RC5_to_I2CF_SoftMM.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 457 lines
                    
7
                    
8; FORTH source file
                    
9
                    
                
MSP-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, 0
                    
                
roman_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 .rodata
                    
                
loader.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
                    
288
                    
                
loader.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
                    
288
                    
                
fx_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 a
                    
                
gateways.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.sp
                    
                
screen.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 $
                    
3
                    
                
coreexttest.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
                    
57
                    
                
kernel.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
                    
6
                    
                
beastie.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 $
                    
26
                    
                
pnp.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
                    
126
                    
                
bench.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
                    
                
 

Source

Language