Forth - Revision history

Ⅳᵗʰ: /* sample */ all teh squares

2017-10-15T02:45:05Z

sample: all teh squares

@@ Line 81: / Line 81: @@
-'''fix point sqrt'''
+'''fix point 1 sqrt'''
 <pre>
 : pt 8 emit 46 emit ;
 : fixpt1 10 /mod . pt . ;
@@ Line 90: / Line 91: @@
 result <code>1.7</code>
 == links ==

Ⅳᵗʰ: /* sample */ fix point

2017-10-15T02:36:03Z

sample: fix point

← Older revision		Revision as of 19:36, 14 October 2017
Line 79:		Line 79:

	result <code>10</code>		result <code>10</code>


			'''fix point sqrt'''
			<pre>
			: pt 8 emit 46 emit ;
			: fixpt1 10 /mod . pt . ;
			: xsqrt 100 * nsqrt fixpt1 ;
			3 xsqrt
			</pre>

			result <code>1.7</code>

	== links ==		== links ==

Ⅳᵗʰ: /* sample */ nsqrt

2017-10-15T02:29:18Z

sample: nsqrt

@@ Line 67: / Line 67: @@
 t c <7> -1 128 65 34 20 16 16 -1  ok
 </pre>
 == links ==

Ⅳᵗʰ: /* sample */ g typo

2017-10-13T01:41:13Z

sample: g typo

← Older revision		Revision as of 18:41, 12 October 2017
Line 48:		Line 48:
	256 x !		256 x !
	variable g		variable g
	1 x !		1 g !
	: r x @ g @ / ;		: r x @ g @ / ;
	: a g @ + 2/ g ! ;		: a g @ + 2/ g ! ;

Ⅳᵗʰ: /* sample */ xsqrt

2017-10-13T01:40:02Z

sample: xsqrt

← Older revision		Revision as of 18:40, 12 October 2017
Line 41:		Line 41:
	result <code>hello world</code>		result <code>hello world</code>


			'''integer square root'''
			<pre>
			-1
			variable x
			256 x !
			variable g
			1 x !
			: r x @ g @ / ;
			: a g @ + 2/ g ! ;
			: t r a g @ .s ;
			: c over over = . ;
			t c
			...
			t c
			</pre>

			result
			<pre>
			t c <2> -1 128 0 ok
			t c <3> -1 128 65 0 ok
			t c <4> -1 128 65 34 0 ok
			t c <5> -1 128 65 34 20 0 ok
			t c <6> -1 128 65 34 20 16 0 ok
			t c <7> -1 128 65 34 20 16 16 -1 ok
			</pre>

	== links ==		== links ==

Ⅳᵗʰ: intro

2017-10-12T00:29:50Z

intro

New page

== sample ==

'''2 + 2'''
<pre>
2
2
+
.
</pre>

result <code>4</code>

'''9 % 4'''
<pre>
9
4
/mod
.s
</pre>

result <code>1 2</code>

'''square word'''
<pre>
: sq dup * ;
2 sq
.s
</pre>

result <code>4</code>

'''hello world'''
<pre>
: hw ." hello world" ;
hw
</pre>

result <code>hello world</code>

== links ==

http://amforth.sourceforge.net/

AmForth, Floating point and ATmega implementation:
*https://www.physics.wisc.edu/~lmaurer/projects/FloatingAway/FloatingAway.html#biblio-31
**https://web.archive.org/web/20140411013704/https://mywebspace.wisc.edu/lnmaurer/web/FloatingAway/amforth-5.1.tar.gz

Pygmy Forth:
http://pygmy.utoh.org/riscy/