602 results for 'forth' (543 ms)
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 17support.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 589test-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 17test-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 17cross.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 138MSP-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 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_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 firstMSP-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 firstMSP-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 firstsupport.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 587MSP-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+,IPMSP-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 firstsearchordertest.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 52kernel.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 195forth.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+,&BASERC5toLCD.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