Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- vd-archiv:listings:4d2008-04-listings [2017-05-21 21:38] – angelegt mka
+++ vd-archiv:listings:4d2008-04-listings [2017-05-21 21:43] (aktuell) – [advf5] mka
@@ Zeile 109: / Zeile 109: @@
 ===== advf5 =====
-advf5.zip
+{{:vd-archiv:listings:advf5.zip|advf5 }} - Adventures in Forth 5 - Alle Listings des Artikels ( flags.fs i2c_lmXX.fs ic2.fs sensor.fs filter_mean.fs )\\
-Adventures in Forth 5 - Alle Listings des Artikels ( flags.fs i2c_lmXX.fs ic2.fs sensor.fs filter_mean.fs )
+Viele Dateien, bitte selber auspacken.
+===== dumper.fs =====
+Dump - Kleine Helfer fürs amforth.
+<file>
+hex
+( item -- )
+: .item     4 u.r space ;  \ asm ok
+( addr -- )
+: i?     i@ .item ;
+: e?     e@ .item ;
+: ?       @ .item ;
+( addr n -- addr+n )
+: .icells   0 do  dup i?    1+ loop ; \ flash
+: .ecells   0 do  dup e? cell+ loop ; \ eeprom
+: .rcells   0 do  dup  ? cell+ loop ; \ ram
+( addr -- )
+: .addr     cr .item space ;
+( addr1 len1 -- addr2 len2 )
+: trim     swap fff8 and swap 7 or ;
+( addr len -- ) \ numbers are in hex.
+: idump   trim 0 ?do   dup .addr   8 .icells   8 +loop ;
+: edump   trim 0 ?do   dup .addr   8 .ecells  10 +loop ;
+:  dump   trim 0 ?do   dup .addr   8 . cells  10 +loop ;
+\ tested ok on amforth-2.9 06.10.2008 mk
+\ type a character
+: .ascii ( c -- )  7F and dup 20 < if drop 2E then emit ; \ ignore bit8
+\ type content of cell and its ascii values.
+: .aa  ( adr -- )  dup ff00 and ff / .ascii  00ff and .ascii  space ;
+\ inspect an address
+( adr -- )
+: i??     i@ dup .item .aa ;
+: e??     e@ dup .item .aa ;
+:  ??      @ dup .item .aa ;
+\ tested ok on amforth-2.9 08.10.2008 mk
+\ ca. 222 cells of flash
+\ finis
+</file>
+===== euler9-turbozf.fs =====
+Euler 9 uho (VD-Heft 3/2008) 2008-08-24, Turbo-Forth-Adaption: beh 2008-10-10.
 <file>
@@ Zeile 182: / Zeile 237: @@
 \ die DO-Grenzen.) Wie weit kann man mit meiner
 \ Turbo-Forth-Programm-Version (in 16-Bit-Breite) gehen?
-</file>
-===== dumper.fs =====
-Dump - Kleine Helfer fürs amforth.
-<file>
-hex
-( item -- )
-: .item     4 u.r space ;  \ asm ok
-( addr -- )
-: i?     i@ .item ;
-: e?     e@ .item ;
-: ?       @ .item ;
-( addr n -- addr+n )
-: .icells   0 do  dup i?    1+ loop ; \ flash
-: .ecells   0 do  dup e? cell+ loop ; \ eeprom
-: .rcells   0 do  dup  ? cell+ loop ; \ ram
-( addr -- )
-: .addr     cr .item space ;
-( addr1 len1 -- addr2 len2 )
-: trim     swap fff8 and swap 7 or ;
-( addr len -- ) \ numbers are in hex.
-: idump   trim 0 ?do   dup .addr   8 .icells   8 +loop ;
-: edump   trim 0 ?do   dup .addr   8 .ecells  10 +loop ;
-:  dump   trim 0 ?do   dup .addr   8 . cells  10 +loop ;
-\ tested ok on amforth-2.9 06.10.2008 mk
-\ type a character
-: .ascii ( c -- )  7F and dup 20 < if drop 2E then emit ; \ ignore bit8
-\ type content of cell and its ascii values.
-: .aa  ( adr -- )  dup ff00 and ff / .ascii  00ff and .ascii  space ;
-\ inspect an address
-( adr -- )
-: i??     i@ dup .item .aa ;
-: e??     e@ dup .item .aa ;
-:  ??      @ dup .item .aa ;
-\ tested ok on amforth-2.9 08.10.2008 mk
-\ ca. 222 cells of flash
-\ finis
-</file>
-===== euler9-turbozf.fs =====
-Euler 9 uho (VD-Heft 3/2008) 2008-08-24, Turbo-Forth-Adaption: beh 2008-10-10.
-<file>
 </file>