Changeset 2679


Ignore:
Timestamp:
Nov 10, 2011, 4:32:25 AM (4 years ago)
Author:
quozl
Message:

OLPC - show RTC in banner, cache banner internal storage result, show value of RTC in test. #11424

Files:
5 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/banner.fth

    r2603 r2679  
    2828   ?spaces  cpu-model type  ." , "   .memory
    2929   ." , S/N "  " SN" find-tag  if  type  else  ." Unknown"  then  cr
    30    ?spaces  .rom  ."    " .ec  cr
     30   ?spaces  .rom  ."    " .ec  ."    " .clock
    3131;
    3232' (xbanner-basics) to banner-basics
  • cpu/x86/pc/olpc/fw.bth

    r2666 r2679  
    301301true value user-mode?
    302302
     303: .clock  ( -- )
     304   time&date .date space .time  ."  UTC" cr
     305;
    303306fload ${BP}/cpu/x86/pc/olpc/banner.fth
    304307
     
    453456   ntp-timestamp  abort" Can't contact NTP server"
    454457   ntp>time&date
    455 ;
    456 : .clock  ( -- )
    457    time&date .date space .time  ."  UTC" cr
    458458;
    459459: ntp-set-clock  ( -- )
  • cpu/x86/pc/olpc/via/banner.fth

    r2026 r2679  
    6666
    6767: .storage  ( -- )
    68    get-internal-disk-info        ( )
     68   internal-disk-present? 0=  if ( )
     69      get-internal-disk-info     ( )
     70   then
    6971   internal-disk-present?  if    ( )
    7072      internal-disk-size         ( d.size )
     
    121123   ." , " .storage
    122124   ." , S/N "  " SN" find-tag  if  type  else  ." Unknown"  then  cr
    123    ?spaces  .rom  ."    " .ec  cr
     125   ?spaces  .rom  ."    " .ec  ."    " .clock
    124126   check-internal-partitions
    125127;
  • cpu/x86/pc/olpc/via/fw.bth

    r2666 r2679  
    312312true value user-mode?
    313313
     314: .clock  ( -- )
     315   time&date .date space .time  ."  UTC" cr
     316;
    314317fload ${BP}/cpu/x86/pc/olpc/via/banner.fth
    315318
     
    525528   ntp-timestamp  abort" Can't contact NTP server"
    526529   ntp>time&date
    527 ;
    528 : .clock  ( -- )
    529    time&date .date space .time  ."  UTC" cr
    530530;
    531531: ntp-set-clock  ( -- )
  • dev/ds1385r.fth

    r2448 r2679  
    158158   check-battery  \ Don't display the message here because "open" will do it
    159159   check-tick or
     160   get-time .date space .time cr
     161   get-time 2nip 2nip nip
     162   d# 2011 < dup  if  ." Date in RTC is too early" cr  then
    160163   close
    161164;
Note: See TracChangeset for help on using the changeset viewer.