6100 MPS-B Programming Manual

6100 MPS-B PROGRAMMING EXAMPLE
?PAGE "PROCEDURE: CONFIGURE^LINE"
INT PROC configure^line;
BEGIN
LITERAL config^len = 26;
STRUCT .config^block;
BEGIN
INT connect^timeout,
response^timeout,
poll^interval,
retries,
pace;
FILLER 2;
INT baud^rate;
STRING sync,
char^size,
parity,
mode,
line^type,
controlcf,
autodisable,
nonstop;
FILLER 4;
END;
! Specify the desired configuration parameter values.
config^block.connect^timeout := 500; ! 5 seconds
config^block.response^timeout := 250; ! 2.5 seconds
config^block.poll^interval := 50; ! .5 seconds
config^block.retries := 3; !
config^block.pace := 5; !
config^block.baud^rate := 19200; ! 19.2 KBS
config^block.sync := 4; ! 4 SYNs
config^block.char^size := 0; ! default = 7 bits
config^block.parity := 1; ! EVEN parity
config^block.mode := 0; ! HALF duplex
config^block.line^type := 255; ! SWITCHED connection
config^block.controlcf := 255; ! ON
config^block.autodisable := 0; ! OFF
config^block.nonstop := 255; ! ON
! send the configuration parameters to MPS-B.
@sp := @config^block ’<<’ 1;
req^buff.text ’:=’ sp FOR config^len;
CALL request (config,,config^len);
RETURN (status);
END; ! of configure^line.
B-11