r927 - cpu/x86/pc/olpc

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