PageRenderTime 543ms queryFilters 1ms Sphinxql 14ms app.CodeModel.GetByIds 491ms findMatchingLines 17ms GetByIds 508ms meta 0ms repositoryFilters 156ms languageFilters 0ms sourceFilters 0ms

602 results for 'forth' (543 ms)

Source

Language

Repository

test-forth.fth git://github.com/davidswelt/aquamacs-emacs.git | Forth | 54 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
support.4th https://github.com/jwg286/freebsd_usb.git | Forth | 1,563 lines
24\
25\ $FreeBSD: src/sys/boot/forth/support.4th,v 1.20 2009/01/13 12:28:14 luigi 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
test-forth.fth https://bitbucket.org/notetienne/emacs.git | Forth | 74 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
test-forth.fth https://bitbucket.org/ylluminarious/emacs-mac-multi-tty.git | 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
cross.4 https://bitbucket.org/kt97679/relf.git | Forth | 313 lines
1\ Cross compiler to produce machine-independent binary image of RelF
2\ (Relative Forth). Uses kernel.4.
3\ Based on SOD32 by L.C. Benschop
20\ Expl: The word IF occurs in all three vocabularies. The word IF in the
21\       FORTH vocabulary is run by the host system and is used when
22\       compiling host definitions. A different version is in the
69
70\ After the Forth system is constructed, its image must be saved.
71: SAVE-IMAGE ( "name" --- )
122
123ONLY FORTH ALSO TRANSIENT DEFINITIONS FORTH
124\ Now define the words that do compile code.
136
137FORTH DEFINITIONS
138
MSP-EXP430FR5969_I2C_SoftMM_to_LCD_2x20.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 720 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_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 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_I2CF_SoftMM_to_LCD_2x20.4th https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx.git | Forth | 692 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_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
support.4th https://github.com/Dexhub/Course-Project---OS-Integration.git | Forth | 1,529 lines
24\
25\ $FreeBSD: release/9.1.0/sys/boot/forth/support.4th 222417 2011-05-28 08:50:38Z julian $
26
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
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
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
searchordertest.fth https://gitlab.com/BGCX261/zmforth-hg-to-git.git | Forth | 187 lines
1\ To test the ANS Forth search-order word set and search order extensions
2
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
18\             initial search order into a known state
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
38
39ONLY FORTH DEFINITIONS
40
50
51Testing FORTH-WORDLIST GET-ORDER SET-ORDER
52
kernel.4 https://bitbucket.org/kt97679/relf.git | Forth | 1,295 lines
1\ This is the file kernel.4, included by the cross compiler to build
2\ machine-idependent binary image for RelF (Relative Forth).
3\ Based on SOD32 by L.C. Benschop
117PRIMITIVE BYE  ( ---)
118\ Terminate the execution of Forth, return to host OS.
119
787
788VARIABLE FORTH-WORDLIST ( --- addr)
789\ This variable holds a pointer to the last definition in the Forth
1280  2 #ORDER !
1281  FORTH-WORDLIST CONTEXT !
1282  FORTH-WORDLIST CONTEXT CELL+ !
1282  FORTH-WORDLIST CONTEXT CELL+ !
1283  FORTH-WORDLIST CURRENT !
1284  QUIT ;
loader.4th https://github.com/jwg286/freebsd_usb.git | Forth | 216 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
forth.rx https://bitbucket.org/crcx/retro-language | Forth | 197 lines
1chain: forth'
2  ( loops ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
77======
78forth'
79======
83--------
84This vocabulary will make Retro closer to a traditional Forth system. When
85it is visible, some things will be significantly different than in a standard
85it is visible, some things will be significantly different than in a standard
86Retro system, but it will also be easier to port existing Forth code.
87
87
88Eventually this should provide a large subset of the ANS Forth standard, with
89the limitation that only lowercase function names are provided.
98=======
99Strings in ANS Forth are represented either as counted, or address and length
100pairs.
jonesforth.f git://github.com/chengchangwu/jonesforth.git | Forth | 1,922 lines
1\ -*- text -*-
2\	A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
3\	By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
6\
7\	The first part of this tutorial is in jonesforth.S.  Get if from http://annexia.org/forth
8\
923	agreed syntax for this, so I've gone for the syntax mandated by the ISO standard
924	FORTH (ANS-FORTH).
925
957	Other versions of FORTH need you to write OTHERWISE to indicate the default case.
958	As I said above, this FORTH tries to follow the ANS FORTH standard).
959
1158(
1159	Some high level ANS Forth CORE words are not presented in the original jonesforth. They
1160	are included here without explanation. Most of them are adapted from bb4wforth.
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
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21