Changeset 3139


Ignore:
Timestamp:
Aug 9, 2012, 2:54:24 AM (21 months ago)
Author:
quozl
Message:

OLPC XO-1.5 XO-1.75 - libertas, add baseband register fetch to show currently used antenna

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/libertas.fth

    r3042 r3139  
    21952195; 
    21962196 
     2197: .bpp-antenna  ( antenna -- ) 
     2198   dup h# 30 =  if ."  1" drop exit  then 
     2199   dup h# 70 =  if ."  2" drop exit  then 
     2200   2 .r 
     2201; 
     2202 
    21972203: show-antenna  ( -- ) 
    21982204   base @                               ( base ) 
     
    22042210   hex 
    22052211   ."  ant" .antenna                    ( base ) 
    2206    ."  " 
     2212   ."  rx " 
     2213   h# 3f bbp-reg@ .bpp-antenna 
     2214   ."  tx " 
     2215   h# 40 bbp-reg@ .bpp-antenna 
    22072216   base ! 
    22082217; 
Note: See TracChangeset for help on using the changeset viewer.