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-39
Steps of Example Program
Example 8-15. Program Code for TINET Multipoint Supervisor (Page 7 of 13)
! This procedure is used to select and write to a terminal.
PROC write^line (id, buffer, write^count);
INT id, .buffer, write^count;
BEGIN
! set system call stack base.
STACK (system^call^base); CODE (SETS);
! set entry number into message control word.
linebuf := id;
! move data into line buffer.
linebuf[1] ’:=’ buffer FOR (write^count + 1) / 2;
! put terminal address into message.
slinebuf[term^addr] := saddr^list [ id * addr^size * 2
+ 2];
! write the message.
CALL WRITE (linefnum, linebuf, write^count + 2);
IF <> THEN
BEGIN
! log error on operator console.
! set terminal inoperative.
saddr^list[ id * addr^size * 2 ] := eot + no^poll;
END;
END; ! write^line.