$regfile      = "m644def.DAT"
$crystal      = 16000000
$baud         = 19200
$hwstack      = 128
$swstack      = 128
$framesize    = 60

Declare Sub 8416_AFD_Rd()
Declare Sub 8416_Rd(ByVal 8416_ADR As Byte, ByVal 8416_MAP As Byte, 8416_DATA As Byte)

Const 8416_W                          = &H20                                    ' CS8416 Adresse write
Const 8416_R                          = &H21                                    ' CS8416 Adresse read

Const 8416_AFD                        = &H0B

Dim   8416_AUDIO_FORMAT_DETECT        As Byte                                   ' &H0B R
      8416_96KHZ                      Alias 8416_AUDIO_FORMAT_DETECT.0
      8416_DGTL_SIL                   Alias 8416_AUDIO_FORMAT_DETECT.1
      8416_DTS_CD                     Alias 8416_AUDIO_FORMAT_DETECT.3
      8416_DTS_LD                     Alias 8416_AUDIO_FORMAT_DETECT.4
      8416_IEC61937                   Alias 8416_AUDIO_FORMAT_DETECT.5
      8416_PCM                        Alias 8416_AUDIO_FORMAT_DETECT.6

do

loop

Sub 8416_AFD_Rd()
    Call 8416_Rd(8416_W, 8416_AFD, 8416_AUDIO_FORMAT_DETECT)
End Sub

Sub 8416_Rd(ByVal 8416_ADR As Byte, ByVal 8416_MAP As Byte, 8416_DATA As Byte)

    I2cstart
    I2cwbyte 8416_ADR
    I2cwbyte 8416_MAP
    I2cstop
    I2cstart
    I2cwbyte 8416_R
    I2crbyte 8416_DATA, NACK
    I2cstop

End Sub