Changeset 3139

Timestamp:

Aug 9, 2012 2:54:24 AM (10 months ago)

Author:

quozl

Message:

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

File:

• dev/libertas.fth (modified) (2 diffs)

dev/libertas.fth

@@ -2195 +2195 @@
 ;
 
+: .bpp-antenna  ( antenna -- )
+   dup h# 30 =  if ."  1" drop exit  then
+   dup h# 70 =  if ."  2" drop exit  then
+   2 .r
+;
+
 : show-antenna  ( -- )
    base @                               ( base )
@@ -2204 +2210 @@
    hex
    ."  ant" .antenna                    ( base )
-   ."  "
+   ."  rx "
+   h# 3f bbp-reg@ .bpp-antenna
+   ."  tx "
+   h# 40 bbp-reg@ .bpp-antenna
    base !
 ;