Changeset 3188


Ignore:
Timestamp:
Aug 17, 2012, 5:53:07 AM (20 months ago)
Author:
quozl
Message:

OLPC - libertas antenna test, comply with new firmware specification that requires ordering of antenna selection commands. Now works on XO-4 A2.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/libertas.fth

    r3149 r3188  
    16931693; 
    16941694 
     1695\ When changing from antenna diversity to single antenna, 
     1696\ issue ACT_SET_TX before ACT_SET_RX. 
    16951697: set-antenna  ( antenna -- ) 
    1696    1 ( ACT_SET_RX ) rf-antenna  ( ) 
    1697 ; 
    1698  
     1698   dup 2 ( ACT_SET_TX ) rf-antenna      ( antenna ) 
     1699   1 ( ACT_SET_RX ) rf-antenna          ( ) 
     1700; 
     1701 
     1702\ When changing from single antenna to antenna diversity, 
     1703\ issue ACT_SET_RX before ACT_SET_TX. 
    16991704: set-antenna-diversity  ( -- ) 
    17001705   h# ffff 1 ( ACT_SET_RX ) rf-antenna 
     1706   h# ffff 2 ( ACT_SET_TX ) rf-antenna 
    17011707; 
    17021708 
     
    21982204   6 rshift 
    21992205   case 
    2200       b# 00  of  ."  0"  endof 
    2201       b# 01  of  ."  1"  endof 
    2202       b# 10  of  ."  d"  endof 
     2206      b# 00  of  ." 0"  endof 
     2207      b# 01  of  ." 1"  endof 
     2208      b# 10  of  ." d"  endof  \ diversity 
     2209      b# 11  of  ." ?"  endof 
    22032210   endcase 
    22042211; 
     
    22072214   6 rshift 
    22082215   case 
    2209       b# 00  of  ."  0"  endof 
    2210       b# 01  of  ."  1"  endof 
    2211       b# 10  of  ."  r"  endof 
     2216      b# 00  of  ." 0"  endof 
     2217      b# 01  of  ." 1"  endof 
     2218      b# 10  of  ." r"  endof  \ same antenna as receive antenna 
     2219      b# 11  of  ." ?"  endof 
    22122220   endcase 
    22132221; 
     
    22222230   hex 
    22232231   ."  ant" .antenna                    ( base ) 
    2224    ."  rx "  h# 3f bbp-reg@ .rx-antenna 
    2225    ."  tx "  h# 40 bbp-reg@ .tx-antenna 
     2232   ."  rx "  h# 3f bbp-reg@ .rx-antenna ( base ) 
     2233   ."  tx "  h# 40 bbp-reg@ .tx-antenna ( base ) 
    22262234   base ! 
    22272235; 
     
    22372245   begin 
    22382246      d# 100 ms  show-antenna  key?  if 
    2239          cr  show-antenna  key 
     2247         cr  key 
    22402248         case 
    2241             h# 71 ( q ) of  cr exit  endof 
    2242             h# 1b       of  cr exit  endof 
    2243             h# 30 ( 0 ) of  ." antenna to 0"  0  set-antenna             endof 
    2244             h# 31 ( 1 ) of  ." antenna to 1"  1  set-antenna             endof 
    2245             h# 32 ( 2 ) of  ." antenna to 2"  2  set-antenna             endof 
    2246             h# 33 ( 3 ) of  ." antenna to 3"  3  set-antenna             endof 
    2247             h# 64 ( d ) of  ." diversity"     cr  set-antenna-diversity  endof 
    2248             h# 61 ( a ) of  ." associate"     cr  close  open drop       endof 
     2249            h# 71 ( q ) of  ." quit" exit  endof 
     2250            h# 1b       of exit  endof 
     2251            h# 30 ( 0 ) of  ." antenna to 0 "  0  set-antenna  cr  endof 
     2252            h# 31 ( 1 ) of  ." antenna to 1 "  1  set-antenna  cr  endof 
     2253            h# 32 ( 2 ) of  ." antenna to 2 "  2  set-antenna  cr  endof 
     2254            h# 33 ( 3 ) of  ." antenna to 3 "  3  set-antenna  cr  endof 
     2255            h# 64 ( d ) of  ." diversity "  set-antenna-diversity  cr  endof 
     2256            h# 61 ( a ) of  ." associate "  close  open drop  endof 
    22492257            h# 73 ( s ) of  ta-scan  endof 
    22502258         endcase 
Note: See TracChangeset for help on using the changeset viewer.