OSI/AS and OSI/TS Supplement (Includes RFC-1006 Support)

General OSI/AS and OSI/TS Manual Changes and Corrections
8–8 107751 Tandem Computers Incorporated
CALL DEBUG;
! Send the command to the distributor.
spi^err := send^spi^cmd;
RETURN spi^err;
END;
?PAGE
! ***********************************************************
! * displ^event *
! ***********************************************************
! This procedure displays, at your terminal, the event
! message just retrieved.
PROC displ^event(event^buf);
INT .EXT event^buf;
BEGIN
INT(32) etxt^stat;
INT i;
! Generate display text from the event message.
etxt^stat :=
EMSTEXT(event^buf,
EVT^TEXT^BUF,
evt^text^len, ! displayable line length
num^evt^lines, ! number of display lines
actual^len, ! line lengths stored here
, ! reserved
, ! indent default
1); ! console-compatible
! Check for EMSTEXT calling errors.
IF $HIGH (etxt^stat) = 0 and $INT (etxt^stat) <> 0
THEN CALL DEBUG;
! Display the text.
FOR i := 0 TO num^evt^lines-1 DO
BEGIN
IF (actual^len[i] <> -1) THEN
BEGIN
retry1:
CALL WRITE (term^file^num,
evt^text^buf[i*evt^text^len/2],
actual^len[i]);
IF <> THEN
BEGIN
IF FILEERROR(term^file^num) THEN
GOTO retry1;
CALL DEBUG;
END;
END;
END;
END;