Changeset 3042


Ignore:
Timestamp:
Jul 10, 2012, 4:56:53 AM (3 years ago)
Author:
quozl
Message:

OLPC - libertas antenna test, remove transmit antenna selection, #11976

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/libertas.fth

    r3018 r3042  
    16861686
    16871687: rf-antenna  ( antenna action -- )
    1688    swap >r >r
     1688   swap >r >r                                           ( r: antenna action )
    16891689   4 h# 20 ( CMD_802_11_RF_ANTENNA ) prepare-cmd
    1690    r> +xw
    1691    r> +xw
     1690   r> +xw                                               ( r: antenna )
     1691   r> +xw                                               ( )
    16921692   outbuf-wait  drop
    16931693;
    16941694
    1695 : set-antenna  ( rx tx -- )
    1696    2 ( ACT_SET_TX ) rf-antenna  ( rx )
     1695: set-antenna  ( antenna -- )
    16971696   1 ( ACT_SET_RX ) rf-antenna  ( )
    16981697;
    16991698
    17001699: set-antenna-diversity  ( -- )
    1701    h# ffff 2 ( ACT_SET_TX ) rf-antenna
    17021700   h# ffff 1 ( ACT_SET_RX ) rf-antenna
    17031701;
    17041702
    1705 : get-antenna  ( -- rx tx )
    1706    h# 0 4 ( ACT_GET_RX ) rf-antenna  respbuf >fw-data 2+ le-w@  ( rx )
    1707    h# 0 8 ( ACT_GET_TX ) rf-antenna  respbuf >fw-data 2+ le-w@  ( rx tx )
     1703: get-antenna  ( -- antenna )
     1704   h# 0 4 ( ACT_GET_RX ) rf-antenna  respbuf >fw-data 2+ le-w@  ( antenna )
    17081705;
    17091706
     
    22042201   ." now" .rssi                        ( base avg_nf avg_snr )
    22052202   ."  avg" .rssi                       ( base )
    2206    get-antenna swap                     ( base tx rx )
     2203   get-antenna                          ( base antenna )
    22072204   hex
    2208    ."  rx" .antenna  ."  tx" .antenna   ( base )
     2205   ."  ant" .antenna                    ( base )
    22092206   ."  "
    22102207   base !
     
    22182215
    22192216: test-antenna  ( -- )
    2220    ." keys: (0,1,2,l,r,d,a,s,q)" cr
     2217   ." keys: (0,1,2,3,d,a,s,q)" cr
    22212218   begin
    22222219      d# 100 ms  show-antenna  key?  if
     
    22242221         case
    22252222            h# 71 ( q ) of  cr exit  endof
    2226             h# 1b       of  cr exit  endof
    2227             h# 30 ( 0 ) of  ." rx/tx to 0/0"  0 0 set-antenna            endof
    2228             h# 31 ( 1 ) of  ." rx/tx to 1/1"  1 1 set-antenna            endof
    2229             h# 32 ( 2 ) of  ." rx/tx to 2/2"  2 2 set-antenna            endof
    2230             h# 6c ( l ) of  ." rx/tx to 1/2"  1 2 set-antenna            endof
    2231             h# 72 ( r ) of  ." rx/tx to 2/1"  2 1 set-antenna            endof
     2223            h# 1b       of  cr exit  endof
     2224            h# 30 ( 0 ) of  ." antenna to 0"  0  set-antenna             endof
     2225            h# 31 ( 1 ) of  ." antenna to 1"  1  set-antenna             endof
     2226            h# 32 ( 2 ) of  ." antenna to 2"  2  set-antenna             endof
     2227            h# 33 ( 3 ) of  ." antenna to 3"  3  set-antenna             endof
    22322228            h# 64 ( d ) of  ." diversity"     cr  set-antenna-diversity  endof
    22332229            h# 61 ( a ) of  ." associate"     cr  close  open drop       endof
Note: See TracChangeset for help on using the changeset viewer.