Envoy Application Programming Manual

TINET Multipoint Supervisor Protocol
Envoy Application Programming Manual—427159-001
8-43
Steps of Example Program
Example 8-15. Program Code for TINET Multipoint Supervisor (Page 11 of 13)
send^full^mask := 1;
END; ! display credit check result.
! send partial tutorial mask or result of credit
! check.
sp := ETX; @sp := @sp[1];
CALL write^line (id, out^buffer, @sp ’-’
@sout^buffer);
END; ! while 1 loop.
END; ! task.
! This procedure is called during task startup to save the
! return address to the start^up procedure.
PROC save^return (ret^addr);
INT ret^addr;
BEGIN
INT l = ’L’, id;
id := -1; ! task id for start^up
! procedure.
return^p := ret^addr; ! return p register setting.
return^e := l[stack^e]; ! return e register setting.
return^l := l[stack^l]; ! return l register setting.
END; ! save^return;