Changeset 2679


Ignore:
Timestamp:
Nov 10, 2011, 5:32:25 AM (3 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.