Changeset 3042


Ignore:
Timestamp:
Jul 10, 2012, 4:56:53 AM (2 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.