*** Logfile started
*** on Mi Mär 19 19:58:49 2008

[Mi Mär 19 2008] [19:58:49] Join	You have joined the channel #forth-ev (~bernd@dslb-088-064-089-100.pools.arcor-ip.net).
[Mi Mär 19 2008] [19:58:49] Topic	The channel topic is "Willkommen, wir diskutieren über Forth.".
[Mi Mär 19 2008] [19:58:49] Topic	The topic was set by uho!~uho@f054025251.adsl.alicedsl.de on 12.03.2008 20:06:04.
[Mi Mär 19 2008] [19:59:05] <BerndPaysan>	Hallo
[Mi Mär 19 2008] [19:59:11] <MatthiasT>	hi
[Mi Mär 19 2008] [19:59:59] Away	You are now marked as being away.
[Mi Mär 19 2008] [20:06:03] Join	uho has joined this channel (~uho@i577A44AE.versanet.de).
[Mi Mär 19 2008] [20:06:16] <uho>	hi
[Mi Mär 19 2008] [20:06:31] <MatthiasT>	hi
[Mi Mär 19 2008] [20:07:34] <uho>	hi, war übrigens in polyForth das Wort, das die Extensions geladen hat....
[Mi Mär 19 2008] [20:08:15] <MatthiasT>	bei passender BASE geht's auch als Zahl durch ;=)
[Mi Mär 19 2008] [20:08:56] <MatthiasT>	664 z.B.
[Mi Mär 19 2008] [20:09:25] <MatthiasT>	> 26 base !
[Mi Mär 19 2008] [20:09:29] <MatthiasT>	 ok
[Mi Mär 19 2008] [20:09:33] <MatthiasT>	> hi
[Mi Mär 19 2008] [20:09:37] <MatthiasT>	 ok
[Mi Mär 19 2008] [20:09:37] <MatthiasT>	> decimal
[Mi Mär 19 2008] [20:09:37] <MatthiasT>	 ok
[Mi Mär 19 2008] [20:09:37] <MatthiasT>	> .
[Mi Mär 19 2008] [20:09:37] <MatthiasT>	 664 ok
[Mi Mär 19 2008] [20:09:38] <MatthiasT>	>
[Mi Mär 19 2008] [20:10:06] <uho>	Ja - ich finde es aber schöner, wenn mein Forth bier ausgibt.
[Mi Mär 19 2008] [20:11:02] <uho>	537075
[Mi Mär 19 2008] [20:11:21] <uho>	36 base ! .
[Mi Mär 19 2008] [20:11:51] <MatthiasT>	so grosse Zahlen kann mein Forth nicht
[Mi Mär 19 2008] [20:12:49] <uho>	537075. 36 base !  D.    :-)
[Mi Mär 19 2008] [20:14:01] <MatthiasT>	buuuh!
[Mi Mär 19 2008] [20:14:25] <uho>	Buuuuhhhmerang :-))
[Mi Mär 19 2008] [20:15:08] <MatthiasT>	Ist aber auch vermessen, auf einer 8bit CPU mit 32bit Zahlen zu operieren. Früher nannte man sowas größenwahnsinnig ;=)
[Mi Mär 19 2008] [20:15:57] <MatthiasT>	Dafür besteht mein Forth immer mehr Tests vom Hayes-Core :=))
[Mi Mär 19 2008] [20:16:08] <uho>	Ist immer eine Frage der Algorithmen, die man realisieren will.
[Mi Mär 19 2008] [20:16:09] Away	You are no longer marked as being away.
[Mi Mär 19 2008] [20:16:37] <BerndPaysan>	Hallo nochmal
[Mi Mär 19 2008] [20:16:39] <uho>	Wo sind denn da im Moment die Knackpunkte?
[Mi Mär 19 2008] [20:16:48] <MatthiasT>	Interessant wäre eine (portable) Methode, das Carry-FLag zu pflegen
[Mi Mär 19 2008] [20:16:50] <uho>	Hi, Bernd.
[Mi Mär 19 2008] [20:17:11] <MatthiasT>	Dann kann man multi-Byte Arithmetik nach Gusto machen
[Mi Mär 19 2008] [20:17:34] <MatthiasT>	Derzeit scheitert es am fehlenden sm/rem/fm/mod und den ganzen Dictionary tests so ab C,
[Mi Mär 19 2008] [20:18:00] <MatthiasT>	Ersteres mache ich vielleicht noch mal, letzteres setzt wieder ein Dictionary im RAM voraus
[Mi Mär 19 2008] [20:18:07] <uho>	Hast Du denn ein UM/MOD?
[Mi Mär 19 2008] [20:18:11] <MatthiasT>	jo
[Mi Mär 19 2008] [20:18:33] <uho>	Dann gibt es ja High-Level-Definitionen für sm/rem und fm/mod.
[Mi Mär 19 2008] [20:18:59] <MatthiasT>	Wo?
[Mi Mär 19 2008] [20:19:08] <uho>	Moment mal.
[Mi Mär 19 2008] [20:19:30] <BerndPaysan>	Im Gforth z.B.
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	: fm/mod  ( d1 n1 -- n2 n3 )
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 dup >r dup 0< IF  negate >r dnegate r>  THEN
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 over       0< IF  tuck + swap  THEN
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 um/mod
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 r> 0< IF  swap negate swap  THEN ;
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	: sm/rem  ( d1 n1 -- n2 n3 )
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 over >r dup >r abs -rot
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 dabs rot um/mod
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 r> r@ xor 0< IF       negate       THEN
[Mi Mär 19 2008] [20:19:57] <BerndPaysan>	 r>        0< IF  swap negate swap  THEN ;
[Mi Mär 19 2008] [20:20:14] <uho>	: SM/REM ( d1 n2 -- n2 n3 )
[Mi Mär 19 2008] [20:20:14] <uho>	    over >r  2dup xor 0< >r
[Mi Mär 19 2008] [20:20:14] <uho>	    abs >r  dabs r>   um/mod ( rem quot )
[Mi Mär 19 2008] [20:20:14] <uho>	    r> ?negate swap  r> ?negate swap ;
[Mi Mär 19 2008] [20:20:25] <MatthiasT>	Cool, danke
[Mi Mär 19 2008] [20:21:31] <MatthiasT>	appropos gforth: Da gibt es Verzeichnis avr. Aber so ausgebaut wie der Port zum R8 scheint das aber nicht zu sein, oder?
[Mi Mär 19 2008] [20:21:55] Join	frunobulax has joined this channel (~mhx@e243118.upc-e.chello.nl).
[Mi Mär 19 2008] [20:22:05] <BerndPaysan>	Da ist mal damit angefangen worden, indem Klaus Kohl einen Assembler zur Verfügung gestellt hat
[Mi Mär 19 2008] [20:22:10] <BerndPaysan>	Aber sonst ist da nichts passiert.
[Mi Mär 19 2008] [20:22:16] <BerndPaysan>	Hallo Marcel
[Mi Mär 19 2008] [20:22:41] <uho>	Hi, Marcel
[Mi Mär 19 2008] [20:22:48] <MatthiasT>	Hi Marcel
[Mi Mär 19 2008] [20:23:58] <frunobulax>	Hi gang-of-four(th)
[Mi Mär 19 2008] [20:24:21] <MatthiasT>	Immer noch besser als das fifth rad am Wagen zu sein ;=)
[Mi Mär 19 2008] [20:26:57] Join	reinhold has joined this channel (~reinhold@1Cust218.tnt5.muc2.deu.da.uu.net).
[Mi Mär 19 2008] [20:27:24] <BerndPaysan>	Hallo
[Mi Mär 19 2008] [20:27:39] <reinhold>	Hallo zusammen
[Mi Mär 19 2008] [20:29:55] <MatthiasT>	Gibt es eigentlich einen sieve Benchmark, der mit weniger als 8K RAM auskommt? Theoretisch würden ja 8 KBit ausreichen, aber irgendwie scheinen alle auf Bytes zu setzen
[Mi Mär 19 2008] [20:30:32] <BerndPaysan>	Machbar ist das sicher.
[Mi Mär 19 2008] [20:31:11] <frunobulax>	Sollst mal Albert van der Horst fragen (wenn du viel Zeit hast :-)
[Mi Mär 19 2008] [20:31:42] <MatthiasT>	Ich werde mich auf Dich beziehen (und nur EMail benutzen) ;=)
[Mi Mär 19 2008] [20:33:52] <MatthiasT>	Eigentlich müsste man ja nur ein flag-get/set faktorieren und das dann optimieren.
[Mi Mär 19 2008] [20:34:48] <MatthiasT>	Bei Fibonacci Zahlen ist mein Forth Faktor 2 langsamer als gforth (gleicher Takt unterstellt)
[Mi Mär 19 2008] [20:42:52] <frunobulax>	Ich weiss nicht wie IRC jetzt reagieren wird, aber hier ist bit-sieve.frt..
[Mi Mär 19 2008] [20:43:03] <frunobulax>	(*
[Mi Mär 19 2008] [20:44:20] <frunobulax>	(*
[Mi Mär 19 2008] [20:44:20] <frunobulax>	 * LANGUAGE    : ANS Forth
[Mi Mär 19 2008] [20:44:20] <frunobulax>	 * PROJECT     : Forth Environments
[Mi Mär 19 2008] [20:44:20] <frunobulax>	 * DESCRIPTION : The Famous Sieve of Eratosthanes, using bits
[Mi Mär 19 2008] [20:44:20] <frunobulax>	 * CATEGORY    : Benchmarks
[Mi Mär 19 2008] [20:44:21] <frunobulax>	 * AUTHOR      : Marcel Hendrix
[Mi Mär 19 2008] [20:44:23] <frunobulax>	 * LAST CHANGE : Monday, June 04, 2001 11:54 PM, MHX
[Mi Mär 19 2008] [20:44:25] <frunobulax>	 *)
[Mi Mär 19 2008] [20:44:30] <frunobulax>	NEEDS -miscutil
[Mi Mär 19 2008] [20:44:34] <frunobulax>	REVISION -bit-sieve "ÄÄÄ SIEVE benchmark     Version 1.01 ÄÄÄ"
[Mi Mär 19 2008] [20:44:41] <frunobulax>	#1000 =: #times
[Mi Mär 19 2008] [20:44:43] <frunobulax>	#8192 =: size
[Mi Mär 19 2008] [20:44:46] <frunobulax>	CREATE flags size 8 / CHARS ALLOT
[Mi Mär 19 2008] [20:44:50] <frunobulax>	: DO-PRIME flags [ size 8 / ] LITERAL %11111111 FILL
[Mi Mär 19 2008] [20:44:53] <frunobulax>	0  size 0 DO flags I
[Mi Mär 19 2008] [20:44:54] <frunobulax>	     BIT? IF I 2*  3 +
[Mi Mär 19 2008] [20:44:56] <frunobulax>	     DUP  I +
[Mi Mär 19 2008] [20:44:59] <frunobulax>	       BEGIN  DUP size
[Mi Mär 19 2008] [20:45:01] <frunobulax>	  U< WHILE  flags OVER BIT-RESET
[Mi Mär 19 2008] [20:45:02] <frunobulax>	    OVER +
[Mi Mär 19 2008] [20:45:05] <frunobulax>	     REPEAT
[Mi Mär 19 2008] [20:45:06] <frunobulax>	     2DROP 1+
[Mi Mär 19 2008] [20:45:09] <frunobulax>	       ENDIF
[Mi Mär 19 2008] [20:45:11] <frunobulax>	LOOP ;
[Mi Mär 19 2008] [20:45:15] <frunobulax>	: PRIMES CR #times DEC. ." iterations."  TIMER-RESET
[Mi Mär 19 2008] [20:45:16] <frunobulax>	0 #times 0 DO  DROP  DO-PRIME  LOOP
[Mi Mär 19 2008] [20:45:19] <frunobulax>	MS? SWAP CR .  ." primes found, " DEC. ." ms elapsed." ;
[Mi Mär 19 2008] [20:45:22] <frunobulax>	:ABOUT CR ." Sieve (" #times 0 .R ."  iterations)"
[Mi Mär 19 2008] [20:45:25] <frunobulax>	CR ." Enter PRIMES to run the (bit test) benchmark."
[Mi Mär 19 2008] [20:45:27] <frunobulax>	CR ." On AMD Athlon this is only 10% slower than sieve.frt ." ;
[Mi Mär 19 2008] [20:45:30] Quit	frunobulax has left this server (Connection reset by peer).
[Mi Mär 19 2008] [20:46:58] Join	frunobulax has joined this channel (~mhx@e243118.upc-e.chello.nl).
[Mi Mär 19 2008] [20:48:50] <MatthiasT>	Das sieht vielversprechend aus. Danke
[Mi Mär 19 2008] [20:50:14] <frunobulax>	Gibt's hier ein paste.bin?
[Mi Mär 19 2008] [20:51:00] <MatthiasT>	Keine Ahnung, aber im Zweifel kannst Du ja auch übers Usenet posten
[Mi Mär 19 2008] [20:55:09] <frunobulax>	http://forth.pastebin.ca/949392
[Mi Mär 19 2008] [20:56:35] <uho>	Ist das ein Tipfehler mit :ABOUT ?
[Mi Mär 19 2008] [20:57:48] <frunobulax>	Nein, Ich habe hier kein ANS Substitut vor handen.
[Mi Mär 19 2008] [20:58:51] <uho>	Ah, also :ABOUT definiert .ABOUT oder wie ist das zu verstehen?
[Mi Mär 19 2008] [21:00:13] <frunobulax>	:ABOUT und .ABOUT gehoeren zusammen und bilden eine gelinkte Liste fuer alle geladene Modulen. (Ach, koennte ich doch Deutsch schreiben :-)
[Mi Mär 19 2008] [21:01:34] <MatthiasT>	Das ist aber eine interessante Linkseite: lisp in forth, jedit Anpassungen.
[Mi Mär 19 2008] [21:02:18] <uho>	psst. --- übrigens steht im Header ANS Forth :-O das ist dann ja ein bisschen geflunkert :-)
[Mi Mär 19 2008] [21:02:41] <frunobulax>	.ABOUT <name> gibt die von :ABOUT eingefuegte Hilfe Texten aus. .HELP gibt die letzte Hilfe aus.
[Mi Mär 19 2008] [21:03:49] <frunobulax>	Es sagt auch: NEEDS -miscutil :-)
[Mi Mär 19 2008] [21:04:03] <uho>	Ja - schön so eine eingebaute Hilfe. Ich sage also .ABOUT <modul> und bekomme dann zu dem Modul den About-Text angezeigt.
[Mi Mär 19 2008] [21:04:33] <frunobulax>	Rightig!
[Mi Mär 19 2008] [21:05:04] <uho>	und NEEDS ist auch kein ANS :-;
[Mi Mär 19 2008] [21:05:10] <uho>	;-)
[Mi Mär 19 2008] [21:06:57] <frunobulax>	Vielleicht soll man erst mal den FFL includen :-)
[Mi Mär 19 2008] [21:08:26] <uho>	Nun gut, die Frage war ja nach dem Bit-Eratosthenes und so muss man es halt lesen und verstehen und dann in den Dialekt seiner Wahl umsetzen...
[Mi Mär 19 2008] [21:08:49] <uho>	Mit FFL kann man dann die Anpassung hinbekommen.
[Mi Mär 19 2008] [21:09:09] <MatthiasT>	ich denke, ich werde es erst mal ohne versuchen ;=)
[Mi Mär 19 2008] [21:09:32] <uho>	Sollte in diesem Beispiel ja auch nicht so schwer sein.
[Mi Mär 19 2008] [21:09:50] <uho>	Wie war das jetzt mit der portablen Carry-Behandlung?
[Mi Mär 19 2008] [21:09:53] <MatthiasT>	Das mit den Bitflags könnte (bei passender Implementierung) auch fürs Multitasking interessant werden
[Mi Mär 19 2008] [21:10:29] <MatthiasT>	Carry: da habe ich nur mal drüber nachgedacht, das Carry Flag des Prozessors in die Forth-VM abzubilden
[Mi Mär 19 2008] [21:10:55] <BerndPaysan>	Wenn der Prozessor das Flag nicht bei allen möglichen Befehlen "kaputtmacht", geht das sicher
[Mi Mär 19 2008] [21:11:33] <MatthiasT>	Man sollte aber davon ausgehen, das das geschieht.
[Mi Mär 19 2008] [21:12:12] <MatthiasT>	Das ist schon auf Assembler-Ebene aufregend genug, die ganzen Flags zum richtien Zeitpunkt auszuwerten..
[Mi Mär 19 2008] [21:12:52] <BerndPaysan>	Wenn man einen Forth-Prozessor hat, kann man das eigentlich ganz brauchbar definieren:
[Mi Mär 19 2008] [21:13:13] <BerndPaysan>	+ - +c -c und die Multiplikations/Divisions-Step-Befehle zerstören das Carry
[Mi Mär 19 2008] [21:13:15] <BerndPaysan>	Der Rest nicht.
[Mi Mär 19 2008] [21:14:24] <MatthiasT>	Naja: 8bit + 8bit ergibt 9bit, 8bit mal 8bit ergibt 16bit. Quasi 8 Carry bits zusätzlich.
[Mi Mär 19 2008] [21:15:17] <MatthiasT>	Interessanterweise scheint kaum eine "höhere" Sprache die bei allen Prozessoren vorhandenen Informationen dieser Art durchzureichen.
[Mi Mär 19 2008] [21:15:37] <BerndPaysan>	Das Carry ist dafür einfach zu fragil
[Mi Mär 19 2008] [21:15:51] <MatthiasT>	Da definiert mal lieber solche Konstrukte wie long long und bastelt am Compiler.
[Mi Mär 19 2008] [21:17:34] <MatthiasT>	Das low-level Carry ja. Aber die Idee dahinter eher nicht. Aber die Wortschöpfung "c+" gefällt mir
[Mi Mär 19 2008] [21:18:15] <BerndPaysan>	+c "add with carry"
[Mi Mär 19 2008] [21:18:37] <BerndPaysan>	Wenn ich mich richtig erinnere, habe ich das von Chuck Moore's Prozessoren abgekupfert.
[Mi Mär 19 2008] [21:19:43] <BerndPaysan>	Dann gibt's natürlich noch cIF und -cIF, die die nachfolgenden Befehle ausführen, wenn das Carry gesetzt (-c gelöscht) ist.
[Mi Mär 19 2008] [21:20:35] <MatthiasT>	c>flag und dann das normale if gefällt mir spontan besser (und flag>c für die Gegenrichtung)
[Mi Mär 19 2008] [21:22:44] <BerndPaysan>	Auf Machine-Forth-Ebene gibt's halt einen jump on carry, und cIF generiert den.
[Mi Mär 19 2008] [21:23:06] <BerndPaysan>	Das Carry in ein Flag konvertieren kommt nicht so oft vor, dass es sich lohnt, das als Befehl zu implementieren.
[Mi Mär 19 2008] [21:24:02] <MatthiasT>	ich wollte nur die Zahl der if-Varianten begrenzen
[Mi Mär 19 2008] [21:24:28] <MatthiasT>	Alles muss man ja nicht vom Prozessorniveau abkupfern
[Mi Mär 19 2008] [21:25:22] <MatthiasT>	Außerdem will ein Optimierer ja auch was zu tun bekommen ;=)
[Mi Mär 19 2008] [21:26:59] <BerndPaysan>	Das mit dem Optimierer ist ja die Idee bei C: (long long)a+b gibt halt die Summe und das Carry im höheren Byte
[Mi Mär 19 2008] [21:27:09] <BerndPaysan>	bzw. int natürlich ;-)
[Mi Mär 19 2008] [21:41:47] Join	kardinal has joined this channel (~kvirc@e180134241.adsl.alicedsl.de).
[Mi Mär 19 2008] [21:42:06] <frunobulax>	hoeheren int?
[Mi Mär 19 2008] [21:42:14] <uho>	Kardinal, hi
[Mi Mär 19 2008] [21:42:18] <kardinal>	hi
[Mi Mär 19 2008] [21:42:31] <MatthiasT>	664
[Mi Mär 19 2008] [21:42:34] <uho>	Was machst Du mit Forth?
[Mi Mär 19 2008] [21:43:34] <kardinal>	professionel nicht aber ab und zu programmiere ich FORTH als spass
[Mi Mär 19 2008] [21:43:55] <uho>	Auf was für einer Plattform?
[Mi Mär 19 2008] [21:44:57] <kardinal>	im 90-jahre auf TDS2020 und TDS9092, jetzt mit gforth un pforth unter Linux
[Mi Mär 19 2008] [21:46:52] <kardinal>	http://www.triangledigital.com/front.htm
[Mi Mär 19 2008] [21:47:16] <MatthiasT>	Konnte der direkt den Flash beschrieben oder war das eine größere Aktion?
[Mi Mär 19 2008] [21:48:19] <MatthiasT>	Lese grade http://triangledigital.com/downloadfiles/pdfs/tds2020f.pdf
[Mi Mär 19 2008] [21:49:56] <kardinal>	jetztz ist TDS* obsolete, damals gabe kein flash aber EPROM, dann auch flash
[Mi Mär 19 2008] [21:50:19] <uho>	Heute am Linux-PC, hast Du auch externe Peripherie, die anzusteuern ist?
[Mi Mär 19 2008] [21:52:48] <MatthiasT>	TDS2020 and TDS9092 production ends in September 2008, 57000 Stück verkauft.
[Mi Mär 19 2008] [21:53:01] <kardinal>	ja
[Mi Mär 19 2008] [21:53:25] <kardinal>	jch habe in 90-jahre mit TDS* gearbeitet
[Mi Mär 19 2008] [21:53:25] Quit	uho has left this server (Connection reset by peer).
[Mi Mär 19 2008] [21:54:32] Join	uho has joined this channel (~uho@87.122.87.255).
[Mi Mär 19 2008] [21:55:14] <MatthiasT>	Die Hardware klingt aber schon noch Zeitgemäß
[Mi Mär 19 2008] [21:56:29] <BerndPaysan>	Ich geh' jetzt, lass das Log aber noch etwas laufen
[Mi Mär 19 2008] [21:56:32] Away	You are now marked as being away.
[Mi Mär 19 2008] [21:57:12] <MatthiasT>	gut nächtle, wie meine schwäbischen Kollegen so schwätzen ;=)
[Mi Mär 19 2008] [22:05:09] <MatthiasT>	ich schätze dann mal das gleiche. Adele
[Mi Mär 19 2008] [22:05:14] Quit	MatthiasT has left this server (EOF From client).
[Mi Mär 19 2008] [22:08:42] <uho>	Irgendwie ist es schon wieder spät.
[Mi Mär 19 2008] [22:08:45] <uho>	Kardinal, nächste Wochen Mi, 20:00 Uhr?
[Mi Mär 19 2008] [22:08:48] <uho>	Ahh - ich kann da ja gar nicht, aber die anderen sind da.
[Mi Mär 19 2008] [22:09:03] <kardinal>	ok
[Mi Mär 19 2008] [22:09:33] <kardinal>	bis dann
[Mi Mär 19 2008] [22:09:36] <uho>	Ich bin erst am 2. April wieder dabei.
[Mi Mär 19 2008] [22:09:38] <uho>	bis dann.
[Mi Mär 19 2008] [22:10:11] Quit	kardinal has left this server ("KVIrc 3.2.4 Anomalies http://www.kvirc.net/").
[Mi Mär 19 2008] [22:10:46] <reinhold>	Tschüß. Schöne Feiertage
[Mi Mär 19 2008] [22:10:51] Quit	reinhold has left this server ("").
[Mi Mär 19 2008] [22:22:44] Part	uho has left this channel.
[Mi Mär 19 2008] [22:37:17] Quit	frunobulax has left this server (Connection reset by peer).