[openfirmware] r927 - cpu/x86/pc/olpc
svn at openfirmware.info
svn at openfirmware.info
Tue Sep 9 04:22:38 CEST 2008
Author: wmb
Date: 2008-09-09 04:22:38 +0200 (Tue, 09 Sep 2008)
New Revision: 927
Modified:
cpu/x86/pc/olpc/mfgdata.fth
Log:
OLPC - formatting tweaks to 2-column mfg data display
Modified: cpu/x86/pc/olpc/mfgdata.fth
===================================================================
--- cpu/x86/pc/olpc/mfgdata.fth 2008-09-09 01:55:47 UTC (rev 926)
+++ cpu/x86/pc/olpc/mfgdata.fth 2008-09-09 02:22:38 UTC (rev 927)
@@ -77,27 +77,31 @@
: $tag-printable? ( adr len -- flag )
?-null \ Ignore trailing null
- bounds ?do i c@ printable? 0= if false unloop exit then loop
+ bounds ?do i c@ bl h# 7f within 0= if false unloop exit then loop
true
;
: wrapped-cdump ( adr len -- )
lmargin @ >r rmargin @ >r tabstops @ >r
- 4 lmargin ! d# 78 rmargin ! 3 tabstops !
+ 4 lmargin ! d# 71 rmargin ! 3 tabstops !
+ dup >r
+ blue-letters
bounds ?do
3 .tab i c@ <# u# u# u#> type
loop
+ black-letters
+ r> d# 10 > if cr then
r> tabstops ! r> rmargin ! r> lmargin !
;
: .mfg-data ( -- )
- 0 lmargin ! d# 78 rmargin ! d# 44 tabstops !
+ 0 lmargin ! d# 78 rmargin ! d# 42 tabstops !
??cr
mfg-data-top ( adr )
begin another-tag? while ( adr' data$ tname-adr )
over 4 + .tab
2 type 2 spaces ( adr' data$ )
- 2dup $tag-printable? if ?-null type else wrapped-cdump cr then
+ 2dup $tag-printable? if ?-null type else wrapped-cdump then
exit? if drop exit then
repeat
drop
More information about the openfirmware
mailing list