Hello, several years ago I built a project in MS. VB. that allows a user to change the levels of 12 microphones by draging the mouse around the screen. the data was sent via the vb. command on comm. to the serial port of the pc. the data was recived by an m68hc11 mircotroller then sent out the SPI pins to two max 528 dac. then to three 4 ch vca's and summed to give a mono output. it worked well . Now the problem.. the m68hc11 is out of production and the photo type i have is N/G. so I got a aduc812 and want to use this ic in the project. the controller software was written by a frind of mine but I have lost contact with him so I don't know what the controller was doing to the recived data. I know it recived the serial data and then clocked it out to the two DAC but i don't know how to go about writing the 8052 code. i have spent several days studing the doc's and have a vage undrstand but am in need of help on the most basic's of programing. if any of you feel you can help, I like to use this thread to get that info. so with that in mind here are some questions.
First, will the aduc812 do what the m68hc11 was doing? I know thats a hard question as we don't really know what it was doing.
I know it as reciving the data in order of mic output writes and then addressing the max 528 dac in order as the output ch. followed the vb program.
this is the data i sent from the vb. pgm.
Private Sub MSComm1_OnComm()

DELAY = DATARATE * 100 '10000

MSComm1.Settings = "9600,m,8,1"
' m (mark) = 1 in 9 bit 68hc11
MSComm1.Output = CHR$(&HFF) '255)'beginning of block $ff
For I = 1 To DELAY
Next

MSComm1.Settings = "9600,s,8,1"
's (mark)= 0 in 9 bits68hc11
MSComm1.Output = CHR$(FADER1.Value)
txchksum = &HFF + FADER1.Value ' 1st byte added in
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER2.Value)
txchksum = txchksum + FADER2.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER3.Value)
txchksum = txchksum + FADER3.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER4.Value)
txchksum = txchksum + FADER4.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER5.Value)
txchksum = txchksum + FADER5.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER6.Value)
txchksum = txchksum + FADER6.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER7.Value)
txchksum = txchksum + FADER7.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER8.Value)
txchksum = txchksum + FADER8.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER9.Value)
txchksum = txchksum + FADER9.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER10.Value)
txchksum = txchksum + FADER10.Value
For I = 1 To DELAY
Next


MSComm1.Output = CHR$(FADER11.Value)
txchksum = txchksum + FADER11.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(FADER12.Value)
txchksum = txchksum + FADER12.Value
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(13)
txchksum = txchksum + 13
For I = 1 To DELAY
Next

MSComm1.Output = CHR$(14)
txchksum = txchksum + 14
For I = 1 To DELAY
Next

10 If txchksum < &H100 Then GoTo 20
txchksun = txchksum - &H100
GoTo 10

20 MSComm1.Output = CHR$(txchksum)
For I = 1 To (DELAY + 1000)
Next

End Sub

I am sorry about the long mesage but if I can get some responce to start a thread, well maybe I can do this.
thanks in advance for any help. Ron Buchwald.