Changeset 3475


Ignore:
Timestamp:
Dec 6, 2012, 10:15:34 PM (2 years ago)
Author:
wmb
Message:

EDID decoder - (a) Fixed crash due to typo of " for ." (b) Fixed spurious + in audio decoding.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/edid.fth

    r3467 r3475  
    142142\ Audio sample rates 
    143143: .cea-freqs  ( n -- ) 
    144    peel-bit  if   ." 32"  then  ?.+ 
    145    peel-bit  if   ." 44"  then  ?.+ 
    146    peel-bit  if   ." 48"  then  ?.+ 
    147    peel-bit  if   ." 88"  then  ?.+ 
    148    peel-bit  if   ." 96"  then  ?.+ 
    149    peel-bit  if  ." 176"  then  ?.+ 
    150    peel-bit  if  ." 192"  then  drop 
    151    ." kHz" 
     144   peel-bit  if   ." 32"  ?.+  then 
     145   peel-bit  if   ." 44"  ?.+  then 
     146   peel-bit  if   ." 48"  ?.+  then 
     147   peel-bit  if   ." 88"  ?.+  then 
     148   peel-bit  if   ." 96"  ?.+  then 
     149   peel-bit  if  ." 176"  ?.+  then 
     150   peel-bit  if  ." 192"       then 
     151   ." kHz"  drop 
    152152; 
    153153\ Audio sample widths 
    154154: .cea-bits  ( n -- ) 
    155    peel-bit  if  ." 16"  then  ?.+ 
    156    peel-bit  if  ." 20"  then  ?.+ 
    157    peel-bit  if  ." 24"  then  drop 
    158    ." bits" 
     155   peel-bit  if  ." 16"  ?.+  then 
     156   peel-bit  if  ." 20"  ?.+  then 
     157   peel-bit  if  ." 24"       then 
     158   ." bits"  drop 
    159159; 
    160160 
     
    285285: .cea-speaker  ( offset size -- ) 
    286286   drop cea@ 
    287    peel-bit  if  " Front_L+R "         then  \ Stereo 
    288    peel-bit  if  " LFE "               then  \ Subwoofer   makes 2.1 
    289    peel-bit  if  " Front_Center "      then  \ Center fill makes 3.1 
    290    peel-bit  if  " Rear_L+R "          then  \ Ambience    makes 5.1 
    291    peel-bit  if  " Rear_Center "       then  \ 7.1 ... 
    292    peel-bit  if  " Front_Center_L+R "  then  \ How many speakers do they want to sell you? 
    293    peel-bit  if  " Rear_Center_L+R "   then  \ How can you live without twelve speakers? 
     287   peel-bit  if  ." Front_L+R "         then  \ Stereo 
     288   peel-bit  if  ." LFE "               then  \ Subwoofer   makes 2.1 
     289   peel-bit  if  ." Front_Center "      then  \ Center fill makes 3.1 
     290   peel-bit  if  ." Rear_L+R "          then  \ Ambience    makes 5.1 
     291   peel-bit  if  ." Rear_Center "       then  \ 7.1 ... 
     292   peel-bit  if  ." Front_Center_L+R "  then  \ How many speakers do they want to sell you? 
     293   peel-bit  if  ." Rear_Center_L+R "   then  \ How can you live without twelve speakers? 
    294294   drop 
    295295; 
Note: See TracChangeset for help on using the changeset viewer.