[OpenBIOS] r580 - cpu/x86/pc/olpc/sdtools
svn at openbios.org
svn at openbios.org
Tue Aug 28 01:07:38 CEST 2007
Author: wmb
Date: 2007-08-28 01:07:37 +0200 (Tue, 28 Aug 2007)
New Revision: 580
Modified:
cpu/x86/pc/olpc/sdtools/dumpgamma.fth
cpu/x86/pc/olpc/sdtools/maketar
cpu/x86/pc/olpc/sdtools/sd.fth
Log:
Cleaned up the initialization of base addresses.
Modified: cpu/x86/pc/olpc/sdtools/dumpgamma.fth
===================================================================
--- cpu/x86/pc/olpc/sdtools/dumpgamma.fth 2007-08-27 22:44:27 UTC (rev 579)
+++ cpu/x86/pc/olpc/sdtools/dumpgamma.fth 2007-08-27 23:07:37 UTC (rev 580)
@@ -5,7 +5,7 @@
\needs mmap fload ioports.fth
hex
-fe00.8000 4000 mmap constant vp-base
+-1 value vp-base
: vp@ ( reg -- l ) vp-base + l@ ;
: vp! ( l reg -- ) vp-base + l! ;
@@ -24,20 +24,16 @@
h# 8 +loop
;
-fe00.4000 4000 mmap constant dc-base
+-1 value dc-base
: dc@ ( reg -- l ) dc-base + l@ ;
: dc! ( l reg -- ) dc-base + l! ;
-fe00.0000 4000 mmap constant gp-base
+-1 value gp-base
: gp@ ( reg -- l ) gp-base + l@ ;
: gp! ( l reg -- ) gp-base + l! ;
-
-
-
-
\ LICENSE_BEGIN
\ Copyright (c) 2006 FirmWorks
\
Modified: cpu/x86/pc/olpc/sdtools/maketar
===================================================================
--- cpu/x86/pc/olpc/sdtools/maketar 2007-08-27 22:44:27 UTC (rev 579)
+++ cpu/x86/pc/olpc/sdtools/maketar 2007-08-27 23:07:37 UTC (rev 580)
@@ -4,8 +4,10 @@
cp ../../../../../cpu/x86/build/builder.dic sdkit
cp ../../../../../cpu/x86/ioports.fth sdkit
cp ../../../../../cpu/x86/pc/olpc/mfgdata.fth sdkit
+cp ../../../../../forth/lib/wrtime.fth sdkit
cp ../../../../../dev/olpc/dcon/dconsmb.fth sdkit
cp ../../../../../dev/olpc/kb3700/ecio.fth sdkit
cp sd sd.fth ecdump.fth dumpgamma.fth sdkit
+chmod 755 sdkit/sd
tar cfz sdkit.tgz sdkit
# rm sdkit/*
Modified: cpu/x86/pc/olpc/sdtools/sd.fth
===================================================================
--- cpu/x86/pc/olpc/sdtools/sd.fth 2007-08-27 22:44:27 UTC (rev 579)
+++ cpu/x86/pc/olpc/sdtools/sd.fth 2007-08-27 23:07:37 UTC (rev 580)
@@ -21,30 +21,24 @@
usage
hex
-fe01.0000 4000 mmap constant sd
+0 value sd-base
-: sdl@ ( offset -- l ) sd + l@ ;
-: sdw@ ( offset -- w ) sd + w@ ;
-: sdb@ ( offset -- b ) sd + c@ ;
+: sdl@ ( offset -- l ) sd-base + l@ ;
+: sdw@ ( offset -- w ) sd-base + w@ ;
+: sdb@ ( offset -- b ) sd-base + c@ ;
-: sdl! ( l offset -- ) sd + l! ;
-: sdw! ( w offset -- ) sd + w! ;
-: sdb! ( b offset -- ) sd + c! ;
+: sdl! ( l offset -- ) sd-base + l! ;
+: sdw! ( w offset -- ) sd-base + w! ;
+: sdb! ( b offset -- ) sd-base + c! ;
: r ( offset -- ) sdl@ u. ;
: w ( l offset -- ) sdl! ;
-1 value flash-base
-fff0.0000 10.0000 mmap to flash-base
\needs cdump : cdump ( adr len -- ) bounds ?do i c@ .x loop ;
\needs .mfg-data fload mfgdata.fth
-: 1ms ( -- )
- h# 10 msr@ drop d# 500,000 + ( limit )
- begin dup h# 10 msr@ drop - 0< until
- drop
-;
-: ms ( #ms -- ) 0 ?do 1ms loop ;
+\needs ms fload wrtime.fth
\needs dcon@ fload dconsmb.fth
@@ -68,6 +62,15 @@
\needs ec@ fload ecio.fth
\needs ec-range fload ecdump.fth
+: map-io ( -- )
+ h# fe01.0000 h# 4000 mmap to sd-base
+ h# fff0.0000 h# 10.0000 mmap to flash-base
+ h# fe00.8000 h# 4000 mmap to vp-base
+ h# fe00.4000 h# 4000 mmap to dc-base
+ h# fe00.0000 h# 4000 mmap to gp-base
+;
+map-io
+
\ LICENSE_BEGIN
\ Copyright (c) 2006 FirmWorks
\
More information about the OpenBIOS
mailing list