https://wiki.forth-ev.de/ 2026-04-17T05:35:59+00:00 https://wiki.forth-ev.de/ https://wiki.forth-ev.de/lib/exe/fetch.php/wiki:logo.png text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:arithmetic?rev=1293642765 Arithmetic ( n = signed, u = unsigned integer ) * ( n1 n2 --- n3 ) oder ( u1 u2 --- u3 ) */ ( n1 n2 n3 --- n4 ) */MOD ( n1 n2 n3 --- n4 n5 ) + ( n1 n2 --- n3 ) oder ( u1 u2 --- u3 ) - ( n1 n2 --- n3 ) oder ( u1 u2 --- u3 ) / ( n1 n2 --- n3 ) text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:compiler?rev=1293642765 Compiler , ( x --- ) ." Compilation: ( „ccc<quote>“ --- ) Run-time: ( --- ) : ( C: „<spaces>name“ --- colon-sys ) Initiation: ( ix --- ix ) ( R: --- nest-sys ) name Execution: ( ix --- j text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:control_structures?rev=1293642765 Control Structures EXIT ( x --- ) und ( R: x --- ) oder ( --- ) +LOOP Compilation: ( C: do-sys --- ) Run-time: ( n --- ) und ( R: loop-sys1 --- ) oder: ( R: loop-sys2 --- ) BEGIN Compilation: ( C: text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:interpreter?rev=1293642765 Interpreter ' ( „<spaces>name“ --- xt ) ( ( „xxx<paren> --- ) >BODY ( xt --- a-addr ) >IN ( --- a-addr ) CHAR ( “<spaces>name„ --- char ) ENVIRONMENT? ( c-addr u --- false ) oder ( c-addr u -- ix true )| ^ EVALUATE |( ix c-addr u --- jx )| ^ FIND |( c-addr text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:logic?rev=1293642765 Logic ( n = signed, u = unsigned integer ) AND ( x1 x2 --- x3 ) OR ( x1 x2 --- x3 ) XOR ( x1 x2 --- x3 ) INVERT ( x1 --- x2 ) LSHIFT ( x1 u --- x2 ) RSHIFT ( x1 u --- x2 ) text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:memory?rev=1293642765 Memory ! ( x a-addr --- ) +! ( n a-addr --- ) oder ( u a-addr --- ) 2! ( x1 x2 a-addr --- ) 2@ ( a-addr --- x1 x2 ) @ ( a-addr --- x ) ALIGN ( --- ) ALIGNED ( addr --- a-addr ) C! ( char c-addr --- ) C@ ( c-addr --- char ) CELL+ ( a-addr1 --- text/html 2016-09-13T15:02:56+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:minimum_word_set?rev=1473778976 English version: [Minimal word set (PDF)] Minimal Word Set Wie viele Primitives braucht ein Forth, um es daran hochzuziehen? Erstaunlich wenige, wie man an Gforth EC sieht, das für fast jedes Primitiv eine High-Level-Definition bereitstellt. Aber Vorsicht! Wer zuviel weglässt, riskiert Zirkelschlüsse (Endlosschleifen). text/html 2023-10-19T23:37:28+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:next?rev=1697758648 NEXT Sammlung von bekannten Routinen bitte hier entsprechend dem Muster einfügen. Grundsätzliches zum Inner Interpreter dagegen dort anhängen. * 6502 * AVR ATmega169 * MSP430 text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:number_input?rev=1293642765 Number input (folgt) text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:number_output?rev=1293642765 Number output # ( ud1 --- ud2 ) #> ( xd --- c-addr u ) #S ( ud1 --- ud2 ) . ( n --- ) <# ( --- ) >NUMBER ( ud1 c-addr1 u1 --- ud2 c-addr2 u2 ) BASE ( --- a-addr ) DECIMAL ( --- ) HOLD ( char --- ) SIGN ( n --- text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack?rev=1293642765 Stack Word Set Kern 2dup ( x1 x2 --- x1 x2 x1 x2 ) 2over ( x1 x2 x3 x4 --- x1 x2 x3 x4 x1 x2 ) 2swap ( x1 x2 x3 x4 --- x3 x4 x1 x2 ) >R Execution: ( x --- ) und ( R: --- x ) ?DUP entweder: ( x --- 0 ) oder: ( x --- x x ) depth ( --- +n ) drop ( x --- ) dup ( x text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:string_input?rev=1293642765 String input accept ( c-addr +n1 --- +n2 ) key ( --- char ) text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:string_output?rev=1293642765 String output bl ( --- char ) cr ( --- ) emit ( x --- ) space ( --- ) spaces ( n --- ) type ( c-addr u --- )