Changeset 3360


Ignore:
Timestamp:
Oct 11, 2012, 6:03:46 AM (3 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.