mbc_digitalinput.m

simulink real-time workshop for dragon12 development board from

function [portstr, pinstr, pins] = mbc_digitalinput(port, pin, sampletime)

% Check the sample time:
if((sampletime < 0) & (sampletime ~= -1))
   fprintf ('Digital input: Inadmissible sample time !\n');
end


% Check port number
port_strings = {'PORTA', 'PORTB', 'PTH', 'PTJ', 'PTM', 'PTP', 'PTS', 'PTT'};
ddr_strings = {'DDRA', 'DDRB', 'DDRH', 'DDRJ', 'DDRM', 'DDRP', 'DDRS', 'DDRT'};
portstr = port_strings{port};
ddrstr = ddr_strings{port};
%disp([portstr, ' - ', ddrstr])

% determine chosen pins
pin = strrep(pin, '|', ' ');
pin = strrep(pin, ',', ' ');
pin = strrep(pin, ';', ' ');

% get pin numbers and number of pins
pins = str2num(pin);           % this is the parameter to be passed to the sfunction (numeric)
numPins = length(pins);

% Check if all pin number are available on the chosen port
valid_pin = { [0 1 2 3 4 5 6 7]; ...
		      [0 1 2 3 4 5 6 7]; ...
		      [0 1 2 3 4 5 6 7]; ...
		      [0 1 6 7]; ...
		      [0 1 2 3 4 5 6 7]; ...
		      [0 1 2 3 4 5 6 7]; ...
		      [0 1 2 3 4 5 6 7]; ...
		      [0 1 2 3 4 5 6 7] };

% Check the pin number and set pinstr (display)
if(any(setdiff(pins, valid_pin{port})))
	pinstr = '???';
	fprintf ('Digital input: Inadmissible pin number for %d.\n', min(setdiff(pins, valid_pin{port})));
else
	pinstr = [];
	for(i = 1:numPins)
		pinstr = [pinstr ',' num2str(pins(i))];
	end
	pinstr(1) = [];
end

% assemble mask
pinmask = 0;
for(i = 1:numPins)
	pinmask = pinmask + 2^pins(i);
end

% turn mask into string
pinmask = num2str(pinmask);

% Create resource keywords to be reserved in resource database
modelRTWFields = struct( 'portStr', portstr, 'ddrStr', ddrstr, 'pinMask', pinmask, 'pinStr', pinstr ); 

% Insert modelRTWFields in the I/O block S-Function containing the Tag 'MC9S12DriverDataBlock'
MC9S12DriverDataBlock = find_system(gcb, 'FollowLinks', 'on', 'LookUnderMasks', 'all', 'Tag', 'MC9S12target');
set_param(MC9S12DriverDataBlock{1}, 'RTWdata', modelRTWFields);


% adjust number of input ports...

% break link to library...
if(~strcmp(get_param(gcb,'LinkStatus'), 'none'))
	set_param(gcb,'LinkStatus', 'none')
end

% Get current number outputs
num_now = length (find_system (gcb, 'LookUnderMasks', 'on', 'BlockType', 'Outport'));
%disp(['num_now = ' num2str(num_now)]);
%disp(['numPins = ' num2str(numPins)]);
if numPins < num_now
    for k = numPins+1:num_now
        delete_line (gcb, ['Demux/', num2str(k)], ['Out' num2str(k), '/1'])
        delete_block ([gcb, '/Out', num2str(k)])
    end
    set_param ([gcb, '/Demux'], 'Outputs', num2str(numPins))
else
    set_param ([gcb, '/Demux'], 'Outputs', num2str(numPins))
    for i = num_now+1:numPins
        add_block ('built-in/Outport', [gcb, '/Out', num2str(i)])
        set_param ([gcb, '/Out', num2str(i)], 'Position', get_param ([gcb, '/Out', num2str(i-1)], 'Position') + [0 45 0 45])
        set_param ([gcb, '/Out', num2str(i)], 'FontSize', '12')
        add_line (gcb, ['Demux/', num2str(i)], ['Out', num2str(i), '/1'])
    end
end

% restore link to library...
set_param(gcb,'LinkStatus', 'restore')