6100 MPS-B Programming Manual

6100 MPS-B PROGRAMMING EXAMPLE
IF status <> 0 THEN RETURN (status);
! define the slow poll list
slow^poll^list.STATION^index[0].slow^poll^entry ’:=’
[ 0, 0 ]; ! station 0 slow poll entry
slow^poll^list.STATION^index[0].poll^interval :=
slow^intervl; ! station 0 slow poll interval
slow^poll^list.STATION^index[1].slow^poll^entry ’:=’
[ 0, 1]; ! station 1 slow poll entry
slow^poll^list.STATION^index[0].poll^interval :=
slow^intervl; ! station 1 slow poll interval
slow^poll^list.STATION^index[1].slow^poll^entry ’:=’
[ 0, 2 ]; ! station 2 slow poll entry
slow^poll^list.STATION^index[0].poll^interval :=
slow^intervl; ! station 2 slow poll interval
@sp := @slow^poll^list ’<<’ 1;
req^buff.text ’:=’ sp FOR (num^stations * entry^size);
CALL request (poll, define^slow^list,
4 + (num^stations * entry^size) );
RETURN (status);
END; ! of define^poll^list.
B-13