Changeset 3149
- Timestamp:
- Aug 10, 2012 7:20:13 AM (9 months ago)
- File:
-
- 1 edited
-
dev/libertas.fth (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
dev/libertas.fth
r3139 r3149 2195 2195 ; 2196 2196 2197 : .bpp-antenna ( antenna -- ) 2198 dup h# 30 = if ." 1" drop exit then 2199 dup h# 70 = if ." 2" drop exit then 2200 2 .r 2197 : .rx-antenna ( antenna -- ) 2198 6 rshift 2199 case 2200 b# 00 of ." 0" endof 2201 b# 01 of ." 1" endof 2202 b# 10 of ." d" endof 2203 endcase 2204 ; 2205 2206 : .tx-antenna ( antenna -- ) 2207 6 rshift 2208 case 2209 b# 00 of ." 0" endof 2210 b# 01 of ." 1" endof 2211 b# 10 of ." r" endof 2212 endcase 2201 2213 ; 2202 2214 … … 2210 2222 hex 2211 2223 ." ant" .antenna ( base ) 2212 ." rx " 2213 h# 3f bbp-reg@ .bpp-antenna 2214 ." tx " 2215 h# 40 bbp-reg@ .bpp-antenna 2224 ." rx " h# 3f bbp-reg@ .rx-antenna 2225 ." tx " h# 40 bbp-reg@ .tx-antenna 2216 2226 base ! 2217 2227 ;
Note: See TracChangeset
for help on using the changeset viewer.
