Envoy Application Programming Manual

TINET Multipoint Supervisor Protocol
Envoy Application Programming Manual—427159-001
8-33
Steps of Example Program
The coding of the example program for a TINET multipoint supervisor is shown in
Example 8-15:
.
Example 8-15. Program Code for TINET Multipoint Supervisor (Page 1 of 13)
! address list.
LITERAL
nul = 0, ! ASCII NULL character.
stx = 2, ! ASCII STX character.
etx = 3, ! ASCII ETX character.
eot = 4, ! ASCII EOT character.
enq = 5, ! ASCII ENQ character.
can = %30, ! ASCII CAN character.
sf = %37, ! ASCII US character.
addr^size = 2, ! address size in words.
num^entries = 8, ! number of address-list
! entries.
poll^count = 4, ! number of poll-list entries.
poll^type = 0, ! continuous.
no^poll = %200, ! set "inactive" state.
line^readcount = 40; ! line read count.
STRING
.saddr^list[ 0 : addr^size * num^entries * 2 - 1] :=
! address list.
[ eot, eot, %040, enq, ! terminal 1 poll.
eot, eot, %041, enq, ! terminal 2 poll.
eot, eot, %042, enq, ! terminal 3 poll.
eot, eot, %043, enq, ! terminal 4 poll.
eot, %060, nul, nul, ! terminal 1 select.
eot, %061, nul, nul, ! terminal 2 select.
eot, %062, nul, nul, ! terminal 3 select.
eot, %064, nul, nul ] ; ! terminal 4 select.
! line control.
INT .addr^list := @saddr^list ’>>’ 1, ! redefine as INT
! array.
linefnum, ! line file number.
line^cntread, ! line count of data read.
lerror, ! line error.
.linebuf[ 0 : line^readcount / 2 ]; ! line i/o buffer.
STRING .slinebuf := @linebuf ’<<’ 1;