Scanlab RTC 4 - Programming Examples

RTC
®
4 PC Interface Board
Rev. 1.3 e
5 Advanced Programming
46
innovators for industry
Programming Examples
The following programming examples are written in
PASCAL.
(1) Confirm a signal:
set_start_list(1);
...
set_io_cond_list(0, 0, 1); // set bit #0 of the 16-bit digital output port
list_jump_cond(0, 1, get_input_pointer); // loop until the signal is confirmed
// (i.e. bit #0 of the digital input turns HIGH)
clear_io_cond_list(0, 0, 1); // clear bit #0 of the 16-bit output
list_jump_cond(1, 0, get_input_pointer); // loop until the signal is confirmed
...
set_end_of_list;
execute_list(1);
(2) If the lower four bits of the digital input have the
value (
0110 ), set bit #1 of the 16-bit digital
output, otherwise clear it:
set_start_list(2);
...
list_jump_cond($0006, $0009, get_input_pointer + 3);
// skip the next two commands if the state
// of the 16-bit input is (xxxx xxxx xxxx 0110)
clear_io_cond_list(0, 0, 2); // clear bit #1 of the 16-bit output and ..
set_list_jump(get_input_pointer + 2); // .. skip the next command
set_io_cond_list(0, 0, 2); // set bit #1 of the 16-bit output
... // (continue)
set_end_of_list;
execute_list(2);
...
bit1 := (get_io_status AND $0002) // returns the current state of bit #1
(3) Choose between 15 small subroutines:
...
for i := 1 to 15 do
list_call_cond(i, 15-i, i*100); // call subroutine at address i*100
// if [bit #3...bit #0] (binary) = i
...