Forth-eV Wiki - vd-archiv:listings

4d2006-01 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:19:12+00:00

4d2006-01 Listings xchar \ xchar reference implementation: UTF-8 (and ISO-LATIN-1) \ environmental dependency: characters are stored as bytes \ environmental dependency: lower case words accepted base @ hex 80 Value maxascii : xc-size ( xc -- n ) dup maxascii u< IF drop 1 EXIT THEN \ special case ASCII $800 2 >r BEGIN 2dup u>= WHILE 5 lshift r> 1+ >r dup 0= UNTIL THEN 2drop r> ; : xc@+ ( xcaddr -- xcaddr' u ) count dup maxascii u< IF EXIT THEN \ spe…

4d2006-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:20:43+00:00

4d2006-02 Listings Hexadoku-Rätsel-Vorgaben erzeugen \ HEXADOKU.FTH by Fred Behringer HEX \ In Turbo-Forth und ZF vorhanden, jedoch nicht ANS \ ------------------------------------------------- : ON ( ad -- ) -1 SWAP ! ; : OFF ( ad -- ) 0 SWAP ! ; \ Matrixaufbau \ ------------ \ Alle Bearbeitungen (Zeilen-/Spalten-Vertauschung etc) nur fuer MATRIX. \ Bei VORGABE wird zunaechst MATRIX nach V-MATRIX kopiert und die Vorgabewerte \ werden in MATRIX gesammelt. \ XCH-M tauscht MATRIX und …

4d2006-03 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:24:04+00:00

4d2006-03 Listings SMBus Basiscode \ 2006-07-31 SMBus.fs --- SMBus Basiscode \ i2c Bus am R8C \ P1.0 -- SCL \ P1.1 -- SDA \ Konstanten 0 Constant PinSCL 1 Constant PinSDA port1 Constant PortI2C $E3 Constant PddrI2C \ SDA,SCL Pins auf 0 oder 1 setzen : sda0 PinSDA PortI2C bclr ; : sda1 PinSDA PortI2C bset ; : scl0 PinSCL PortI2C bclr ; : scl1 PinSCL PortI2C bset ; \ 1 SCL Zyklus sind im Programm 4 ticks : tick 1 us ; : 2tick tick tick ; \ sende 1 Bit : bit>i2c ( bit -- ) IF …

4d2006-04 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:27:28+00:00

4d2006-04 Listings Adventures [Adventures in Forth Teil 2] - Viele kleine Dateien, bitte selbst entpacken. Gedankenlesen \ Gedankenlesen \ Prinzip: \ Die Zahlen 9, 18, 27, 36, 45, 54, 63, 72, 81 \ bekommen das gleiche Symbol zugeordnet. \ Alle übrigen erhalten ein Symbol random zugeordnet, \ es muss nur druckbar sein. Decimal \ include random.fs ( gforth-0.6.2 Verzeichnis; Mac OSX Version) Variable seed $10450405 Constant generator : rnd ( -- n ) seed @ generator um* drop 1+…

4d2007-01 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:16:48+00:00

4d2007-01 Listings adv3 [adv3] - Viele kleine Dateien, bitte selbst entpacken. adv4 [adv4] - Viele kleine Dateien, bitte selbst entpacken. lcd.fs \ ***** lcd look-up table for AVR Butterfly ***** create sgmt \ segment lookup table 0A51 , 2A80 , 0000 , 0A00 , 0A51 , 0000 , 5559 , 0118 , 1e11 , 1b11 , 0b50 , 1b41 , 1f41 , 0111 , 1f51 , 1b51 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0f51 , 3991 , 1441 , 3191 , 1e41 , 0e41 , 1d41 , 0f50 , 2080 , 1510 , 8648 , 1440 , 0578 , 8570 , …

4d2008-01 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T16:45:18+00:00

4d2008-01 Listings 1-wire.fs \ 1-wire interface [IFUNDEF] set-baud include serial.fs [THEN] 0 Value 1-wire-fd also dos : set-tty ( fd -- ) filehandle @ >r t_old r@ tcgetattr drop t_old t_buf sizeof termios move $805 t_buf termios c_iflag ! $000 t_buf termios c_oflag ! $8BD t_buf termios c_cflag ! 0 t_buf termios c_lflag ! 0 t_buf termios c_cc VMIN + c! 3 t_buf termios c_cc VTIME + c! $D dup t_buf termios c_ispeed ! t_buf termios c_ospeed ! t_bu…

4d2008-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T19:07:17+00:00

4d2008-02 Listings Berichtgenerator.zip [Berichtgenerator] - Berichte generieren mit Hilfe von Gforth — ein Kinderspiel; 3 Listings: in.fs m.dep bio.txt GTK-Listings.zip [GTK-Listings] - Widgets zum Anfassen - GUI-Skripting mit Forth und GTK+; Listing 1+2. Quellcode_Bibliothek.zip

4d2008-03 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T19:22:22+00:00

4d2008-03 Listings example.2.4th GTK+ mit Forth (1) - GTK Stock Viewer, Listing 1: GtkComboBoxText/example.2.4th. \ GtkComboBoxText/example.2.4th needs GtkToplevel needs GtkTable needs GtkLabel Array needs GtkAlignment Array needs GtkComboBoxText needs GtkImageFromStock needs GtkButton needs GSList \ ------------------------------------------------------------------------------ \ csp4th : GtkComboBox Example 2 MM-080311 \ -------------…

4d2008-04 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T19:43:47+00:00

4d2008-04 Listings Fefes Codier Wettstreit Text der in der Aufgabe ausgewertet werden soll. Quellen: [1] Fefes Aufruf \url{http://blog.fefe.de/?ts=b7c295e7 [2] Fefe's call in english \url{http://ptrace.fefe.de/wp/README.txt Faust Habe nun, ach! Philosophie, Juristerei und Medizin, Und leider auch Theologie Durchaus studiert, mit heißem Bemühn. Da steh ich nun, ich armer Tor! Und bin so klug als wie zuvor; Heiße Magister, heiße Doktor gar Und ziehe sc…

4d2011-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T14:30:22+00:00

4d2011-02 Listings Top–One–Partitur Die Bilder zum Beitrag von Hannes Teich im Original - klicken um zu vergrößern. [Notenblatt] [Partitur] Anzeigen von Strukturen [Listings aus dem Artikel "Anzeigen von Strukturen"] gepackt. Und entpackt: DUMPPEH.4TH \ ============= \ DUMPPEH.4TH \ Das Programm \ ============= DECIMAL \ Die hier definierten Worte werden vorwiegend sofort ausgefuehrt. warning off \ nicht für Bigforth marker dumpmarker \ Wegen den Redefinitionen, a…

4d2011-03 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T15:36:03+00:00

4d2011-03 Listings Wave Engine (1) Zum Beitrag von Hannes Teich. Hörprobe und Partitur [Top One Hörprobe] Partitur und Notenblatt [Partitur] [Notenblatt] Zeitentabelle [Zeitentabelle]

4d2012-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T15:08:36+00:00

4d2012-02 Listings Wave Engine (3)

Kalenderroutinen

Anonymous (anonymous@undisclosed.example.com) — 2017-05-21T13:07:09+00:00

Kalenderroutinen Forth Source Code zum Beitrag: „Geburtstagsfragen (2)“ aus dem Forth Magazin Vierte Dimension. \ ------------------------------------------------------------------------ \ K a l e n d e r - R o u t i n e n (Gforth 0.7.0) 30jul12 17:30 -jgt \ ------------------------------------------------------------------------ cr cr ." Berechnung der Differenz zweier Kalenderdaten oder" cr ." eines zweiten Kalenderdatums aus der Differenz. Die" cr ." Differenz kann auc…

4d2013-01 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T15:24:23+00:00

4d2013-01 Listings Wave Engine (5) freqtab.fs \ -------1---------2---------3---------4---------5-----| cr cr ." Last edit: 22feb2013 22:40" cr \ ###################################################### \ Aus Tonnummer (1...478, entspr. ,,C ... c""") Frequenz \ und Phasenschritt berechnen. Die Schrittwerte werden \ in Tabellen geladen und dort vom Generator ausgelesen. \ ###################################################### \ \ Ausgehend vom "Kammerton" a' mit 440 Hz ergeben sich \…

4d2013-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T14:19:47+00:00

4d2013-02 Listings Wave Engine (6) - Dateien zum Beitrag von Hannes Teich.

4d2013-03 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T14:06:56+00:00

4d2013-03 Listings Wave Engine (7) - Dateien zum Beitrag von Hannes Teich.

4d2013-04 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T14:08:29+00:00

4d2013-04 Listings Wave Engine (8) - Dateien zum Beitrag von Hannes Teich.

4d2014-01 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T04:48:21+00:00

4d2014-01 Listings gforth plotter - Der Plotter ist ein Nexus-7 Android-Tablet von Google/Asus. Die Verbindung vom gforth auf dem Laptop dorthin übernimmt eine Datei. (Fortsetzungs-Beitrag, siehe auch 4d2014-02)

4d2014-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-23T15:14:50+00:00

4d2014-02 Listings gforth plotter Teil 1 [Teil 1 aus 4d2014-01] - gforth-grafik1-fs, plotter.fs, xplot.bas Der Plotter ist ein Nexus-7 Android-Tablet von Google/Asus. Die Verbindung vom gforth auf dem Laptop dorthin übernimmt eine Datei. gforth plotter Teil 2 \ Grafik für Gforth, von Hannes Teich; Teil 2 \ (Teil 1 in 4d2014-01) \ Diese 10 Kommandos sind schon beschrieben worden: : _begin ( -- ) ... ; : _color { r g b a -- } ... ; : _clear ( -- ) ... ; : _line { x1 y1 x2 y2 -…

4d2015-02 Listings

Anonymous (anonymous@undisclosed.example.com) — 2017-05-22T13:41:52+00:00

4d2015-02 Listings Wave Engine (9) [waver3-04] - Quellcode zum Beitrag Wave Engine (9), Autor: H. Teich.