#include "dsk5510_dual3006cfg.h"
#include "dsk5510.h"
#include "swi_process.h"
#include "dsplib.h"
#include "rtdx.h"                         // Include file for rtdx functionality

extern RTDX_input_channel ichan;          //ichan has been declared in main.c
extern RTDX_output_channel ochan;         //ochan has been declared in main.c

int recvd;
int sentNew = 0 ;

// all data processing should be done in SWI_ProcessBuffer

void SWI_ProcessBuffer()
{
	static unsigned int mbox_value = 0;
	short *psrc, *pdest;

	mbox_value |= SWI_getmbox();

	// buffers are only processed when both transmit and receive are ready
	if((mbox_value & DMA_RECEIVE_DONE) && (mbox_value & DMA_TRANSMIT_DONE)) {
 		mbox_value = 0;

		// get buffer pointers
		psrc = receive_buffer[receive_buffer_to_process_index];
		pdest = transmit_buffer[transmit_buffer_to_fill_index];
		
		if (!RTDX_channelBusy(&ichan)) {     // read only when not busy
	    		RTDX_readNB(&ichan, &recvd, sizeof(recvd));
	    		sentNew = 1;
		}
		
		if (sentNew == 1) {  // echo back when data has been received
			RTDX_write(&ochan, &recvd, sizeof(recvd));
			sentNew = 0;
		}
		
		
		receive_buffer_processed = 1; // flag receive buffer as processed
		transmit_buffer_filled = 1; // flag output buffer as full
	}
}

1   % rtdx_sliders - initializes RTDX port and sets up three sliders
2
3   h = actxserver('RTDX');
4
5   % open a blank figure for the slider 
6   Fig = figure(1); 
7   % open sliders 
8   % first slider 
9   sld1 = uicontrol(Fig,'units','normal','pos',[.2,.7,.5,.05],... 
10       'style','slider','value',4,'max',254,'min',0,'callback','rtdx_wrt_sliders'); 
11
12   % second slider 
13   sld2 = uicontrol(Fig,'units','normal','pos',[.2,.5,.5,.05],... 
14       'style','slider','value',4,'max',254,'min',0,'callback','rtdx_wrt_sliders'); 
15
16   % third slider 
17   sld3 = uicontrol(Fig,'units','normal','pos',[.2,.3,.5,.05],... 
18       'style','slider','value',4,'max',254,'min',0,'callback','rtdx_wrt_sliders');                

1   % rtdx_wrt_sliders : writes values of sliders out to rtdx
2   
3   % open rtdx port for data transfer
4   status = invoke(h,'Open','ichan','W');
5   
6   % send value from sld1
7   v1 = round(get(sld1,'value')); 
8   status = invoke(h,'Write',int16(v1));
9   
10   % send value from sld2
11   v2 = round(get(sld2,'value')); 
12   status = invoke(h,'Write',int16(v2));
13   
14   % send value from sld3
15   v3 = round(get(sld3,'value')); 
16   status = invoke(h,'Write',int16(v3));
17
18   % send reset pulse
19   status = invoke(h,'Write',int16(2989));
20
21   % close rtdx port
22   status = invoke(h,'Close');

%GUI.m
%****Sample GUI, Text and a Button***

%open a blank figure
Fig = figure(1);
set(Fig,'Name','Test GUI');

%Space to enter text
ed2 = uicontrol(Fig,'backgroundcolor','white','units','Normalized','pos',[.1,.6,.4,.05],...
                'string','Default Text','style','edit');

%Button
but1 = uicontrol(Fig,'foregroundcolor','blue','units','Normalized','pos',[.1,.4,.5,.1],...
                'string','Press Me!','style','pushbutton','callback','SampleGUI');
            

%SampleGUI.m

%Get Text
testText = get(ed2,'string')