Changeset 3475


Ignore:
Timestamp:
Dec 6, 2012, 9:15:34 PM (3 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.