Changeset 3360


Ignore:
Timestamp:
Oct 11, 2012, 8:03:46 AM (2 years ago)
Author:
quozl
Message:

OLPC WLAN driver - extend antenna testing to 8787

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/libertas.fth

    r3337 r3360  
    652652   dup h#   8 and  if  ."  EEPROM does not exit;"  then 
    653653   dup h#  30 and  case 
    654                       h# 00  of  ."  TX antanna 0;"  endof 
     654                      h# 00  of  ."  TX antenna 0;"  endof 
    655655                      h# 10  of  ."  TX antenna 1;"  endof 
    656656                      ( default )  ."  TX diversity; " 
     
    793793; 
    794794 
     7950 [if] 
     796: reg-access!  ( n reg cmd -- ) 
     797   8 swap prepare-cmd 
     798   ACTION_SET +xw 
     799   ( n reg ) +xw 
     800   ( n ) +xl 
     801   outbuf-wait drop 
     802; 
     803[then] 
     804 
    795805: bbp-reg@  ( reg -- n ) 
    796806   1a ( CMD_BBP_REG_ACCESS ) reg-access@  h# ff and 
     
    802812   19 ( CMD_MAC_REG_ACCESS ) reg-access@ 
    803813; 
     8140 [if] 
     815: bbp-reg!  ( n reg -- ) 
     816   1a ( CMD_BBP_REG_ACCESS ) reg-access! 
     817; 
     818: rf-reg!  ( n reg -- ) 
     819   1b ( CMD_RF_REG_ACCESS ) reg-access! 
     820; 
     821: mac-reg!  ( n reg -- ) 
     822   19 ( CMD_MAC_REG_ACCESS ) reg-access! 
     823; 
     824[then] 
     825 
    804826: eeprom-l@  ( idx -- n ) 
    805827   a 59 ( CMD_EEPROM_ACCESS ) prepare-cmd 
     
    23152337; 
    23162338 
     2339: show-rssi  ( -- ) 
     2340   get-rssi                             ( base avg_nf avg_snr nf snr ) 
     2341   ." now" .rssi                        ( base avg_nf avg_snr ) 
     2342   ."  avg" .rssi                       ( base ) 
     2343; 
     2344 
    23172345: .antenna  ( antenna -- ) 
    23182346   dup h# ffff =  if  ."  d" drop exit  then    \ diversity (default) 
    23192347   dup h#  100 =  if  ."  ?" drop exit  then    \ occurs after 0/0 
    23202348   2 .r 
     2349; 
     2350 
     2351: show-antenna 
     2352   get-antenna  ."  ant" .antenna 
    23212353; 
    23222354 
     
    23412373; 
    23422374 
    2343 : show-antenna  ( -- ) 
    2344    base @                               ( base ) 
    2345    get-rssi                             ( base avg_nf avg_snr nf snr ) 
    2346    decimal 
    2347    ." now" .rssi                        ( base avg_nf avg_snr ) 
    2348    ."  avg" .rssi                       ( base ) 
    2349    get-antenna                          ( base antenna ) 
    2350    hex 
    2351    ."  ant" .antenna                    ( base ) 
    2352    ."  rx "  h# 3f bbp-reg@ .rx-antenna ( base ) 
    2353    ."  tx "  h# 40 bbp-reg@ .tx-antenna ( base ) 
    2354    base ! 
     2375: show-antenna-bbp  ( -- ) 
     2376   ."  rx "  h# 3f bbp-reg@ .rx-antenna 
     2377   ."  tx "  h# 40 bbp-reg@ .tx-antenna 
     2378; 
     2379 
     23800 value #antennae 
     2381: ta-init  ( -- ) 
     2382   get-hw-spec  0=  if  d# 16 + le-w@  to #antennae  then 
     2383   #antennae 
     2384   case 
     2385      d# 1  of  ." keys: (a,s,q)"  endof 
     2386      d# 2  of  ." keys: (0,1,2,3,d,a,s,q)"  endof 
     2387   endcase 
     2388   cr 
     2389; 
     2390 
     2391: ta-show  ( -- ) 
     2392   base @                       ( base ) 
     2393   decimal                      ( base ) 
     2394   show-rssi                    ( base ) 
     2395   #antennae d# 1 <> if         ( base ) 
     2396      hex                       ( base ) 
     2397      show-antenna              ( base ) 
     2398      show-antenna-bbp          ( base ) 
     2399   then                         ( base ) 
     2400   base !                       ( ) 
    23552401; 
    23562402 
     
    23612407; 
    23622408 
     2409: ta-n  ( n -- ) 
     2410   #antennae d# 2 =  if 
     2411      ." antenna to" dup . 
     2412      set-antenna cr 
     2413   else 
     2414      drop 
     2415   then 
     2416; 
     2417 
     2418: ta-d 
     2419   #antennae d# 2 = if 
     2420      ." diversity "  set-antenna-diversity  cr 
     2421   then 
     2422; 
     2423 
     2424: ta-a  ." associate "  close  open drop  ; 
     2425 
    23632426: test-antenna  ( -- ) 
    2364    ." keys: (0,1,2,3,d,a,s,q)" cr 
     2427   ta-init 
    23652428   begin 
    2366       d# 100 ms  show-antenna  key?  if 
     2429      d# 100 ms  ta-show  key?  if 
    23672430         cr  key 
    23682431         case 
    23692432            h# 71 ( q ) of  ." quit"  exit  endof 
    2370             h# 1b       of  exit  endof 
    2371             h# 30 ( 0 ) of  ." antenna to 0 "  0  set-antenna  cr  endof 
    2372             h# 31 ( 1 ) of  ." antenna to 1 "  1  set-antenna  cr  endof 
    2373             h# 32 ( 2 ) of  ." antenna to 2 "  2  set-antenna  cr  endof 
    2374             h# 33 ( 3 ) of  ." antenna to 3 "  3  set-antenna  cr  endof 
    2375             h# 64 ( d ) of  ." diversity "  set-antenna-diversity  cr  endof 
    2376             h# 61 ( a ) of  ." associate "  close  open drop  endof 
     2433            h# 1b       of  exit     endof 
     2434            h# 30 ( 0 ) of  0 ta-n   endof 
     2435            h# 31 ( 1 ) of  1 ta-n   endof 
     2436            h# 32 ( 2 ) of  2 ta-n   endof 
     2437            h# 33 ( 3 ) of  3 ta-n   endof 
     2438            h# 64 ( d ) of  ta-d     endof 
     2439            h# 61 ( a ) of  ta-a     endof 
    23772440            h# 73 ( s ) of  ta-scan  endof 
    23782441         endcase 
Note: See TracChangeset for help on using the changeset viewer.