21 lines
328 B
Text
21 lines
328 B
Text
program memoryLayout;
|
|
|
|
type
|
|
T_RS232 = (
|
|
carrier_detect,
|
|
received_data,
|
|
transmitted_data,
|
|
data_terminal_ready,
|
|
signal_ground,
|
|
data_set_ready,
|
|
request_to_send,
|
|
clear_to_send,
|
|
ring_indicator
|
|
);
|
|
|
|
var
|
|
Signal: bitpacked array[T_RS232] of boolean;
|
|
|
|
begin
|
|
Signal[signal_ground] := true;
|
|
end.
|