X25AM Programming Manual

PTP Applications
X25AM Programming Manual—527201-001
3-68
Text of TAL Example
END ! AWAITIO
END ! TERM^BUFFS = CALL^
ELSE IF TERM^BUFFS = WAIT^ FOR 4 THEN BEGIN ! WAIT FOR CALL FROM REMOTE
SUBDEVICE
CALL^SENT^FLAG := 0; ! THE CALL REQUEST WAS NOT SENT
CALL CONTROL (COMM^FILE,11); ! CALL CONTROL TO WAIT FOR A CALL FROM
! THE REMOTE SUBDEVICE, CHECK THE
! CONDITION CODE FOR ERRORS,
! CALL COMM^ERROR IF ONE OCCURED.
IF <> THEN BEGIN
CALL FILEINFO (COMM^FILE, ERROR);
CALL COMM^ERROR (ERROR);
END
ELSE BEGIN ! NO ERROR
CALL AWAITIO (COMM^FILE,,,,-1D); ! COMPLETE THE CONTROL WITH A CALL
TO
! AWAITIO, AGAIN CHECK FOR ERRORS.
IF <> THEN BEGIN
CALL FILEINFO (COMM^FILE, ERROR);
CALL COMM^ERROR (ERROR);
END
END ! AWAITIO
END ! TERM^BUFFS = WAIT^
ELSE BEGIN
TERM^BUFF ':=' "INVALID INPUT";
CALL WRITE (TERM^FILE, TERM^BUFF, 13);
IF <> THEN CALL DEBUG;
CALL AWAITIO (TERM^FILE,,,,-1D);
IF <> THEN CALL DEBUG;
CALL WRITE (TERM^FILE, TERM^BUFF, 0);
IF <> THEN CALL DEBUG;
CALL AWAITIO (TERM^FILE,,,,-1D);
IF <> THEN CALL DEBUG;
GOTO REPROMPT;
END;