Envoy Application Programming Manual
Table Of Contents
- What’s New in This Manual
- About This Manual
- 1 Application Programming With Envoy
- 7 ADM-2 Multipoint Supervisor Protocol
- 8 TINET Multipoint Supervisor Protocol
- 9 Burroughs Point-To-Point Protocol
- 10 Asynchronous Line Supervisor Protocol
- A ASCII Character Set
- B ASCII to EBCDIC Code Conversion
- C File-System Procedures
- D Statistics Messages
- E S-Series Changes to Envoy
- NonStop™ Himalaya S-Series Server Architecture
- G-Series Migration Considerations
- CBSENSEON and CFSENSEON Modifiers
- LEOTRESYN and NOLEOTRESYN Modifiers
- Treatment of Characters After the Termination Character
- Number of SYN Characters
- DTR Drop
- Reporting of Parity Error
- Half-Duplex Support for Asynchronous Lines
- Controller Replacement
- SYSGEN and COUP
- Unit Numbers
- FDX Line Changes
- No Support for Auto-Call Unit
- Glossary
- Index
TINET Multipoint Supervisor Protocol
Envoy Application Programming Manual—427159-001
8-45
Steps of Example Program
Example 8-15. Program Code for TINET Multipoint Supervisor (Page 13 of 13)
! define the line.
CALL DEFINELIST (linefnum,addr^list,addr^size,
num^entries, poll^count,poll^type);
IF < THEN CALL ABEND;
! start the line tasks.
start := 1;
base := @s;
CALL save^return (@ret);
i := -1;
WHILE ( i := i + 1 ) < poll^count DO
BEGIN
! set stack base for task "i".
STACK (base + i * task^space); CODE (SETS);
! start a task.
CALL task ( i );
ret: END;
start := 0;
! poll the network.
CALL poll^line ( -1 );
END; ! start^up.