Denon Blu Ray3800BBDCI

a_riot42 wrote: »

That looks fine. Don't forget you have to send it a status request command which is button 307 I believe in Tony's module.
Paul

DATA_EVENT[dvDenon3800]
{
    ONLINE:
    {
	SEND_COMMAND DATA.DEVICE,'SET BAUD 9600,E,8,1 485 Disable'
	SEND_COMMAND DATA.DEVICE,'HSOFF'
	SEND_COMMAND DATA.DEVICE,'XOFF'
	stDenonBlu.PowerOnDelay=150
	ON[stDenonBlu.CTS]
	[dvDenon3800,255]=stDenonBlu.Power
    }
    STRING:
    {
	STACK_VAR CHAR sMyBuf[50]
	WHILE(FIND_STRING(stDenonBlu.RxBuf,"$03",1)) // while there's an end of message byte in the buffer
	{
	    sMyBuf = REMOVE_STRING(stDenonBlu.RxBuf,"$03",1) // pull out the message
	    REMOVE_STRING(stDenonBlu.RxBuf,LEFT_STRING(stDenonBlu.RxBuf,2),1) // get rid of the checksum
	    IF(LEFT_STRING(sMyBuf,1)="$02") // is this the beginning of a return message
	    {
		GET_BUFFER_CHAR(sMyBuf) // remove the $02
		IF(FIND_STRING(sMyBuf,'DVD-',1)) // is this a power on message?
		{
		    // power msg parse
		    STACK_VAR INTEGER nMyStart
		    stDenonBlu.Power=1 // update variable
		    stDenonBlu.StatusCode=0
		    fnDenon3800Update()
		    nMyStart = FIND_STRING(sMyBuf,'DVD-',1) // find the start of the device name
		    stDenonBlu.Name = REMOVE_STRING(sMyBuf,'BD',nMyStart) // pull out the device name
		    WAIT stDenonBlu.PowerOnDelay 'Power On Wait' // unit takes 15 secs after power on to respond to cmds
		    {
			ON[stDenonBlu.CTS]
***This turns on status transfers ---> fnDenon3800CmdSend(nDenon3800_StatusSend) // set to auto transfer mode
		    }
		}
		ELSE // normal message
		{
		    fnDenon3800MsgParse(sMyBuf)
		    ON[stDenonBlu.CTS]
		}
	    }
	    ELSE
	    {
		// not the beginning
		ON[stDenonBlu.CTS]
		SEND_STRING 0, '!Denon3800 Rx Buffer error: Cant find the start of a new message!'
	    }
	}
    }
}