X25AM Programming Manual

PTP Applications
X25AM Programming Manual—527201-001
3-66
Text of TAL Example
! AND WRITE THE CONTENTS OF THE TERMINAL
! BUFFER TO THE TERMINAL. TERM^WRITE
! NEEDS THE BUFFER AND THE COUNT PASSED
! TO IT AS PARAMETERS.
END; !COMM^COMPLETE
!-------------------------------------------------------------------------
! TERMINAL COMPLETION PROCEDURE
!-------------------------------------------------------------------------
PROC TERM^COMPLETE (TERM^READ^COUNT); ! THIS PROC HANDLES TERMINAL READ
COMPLETIONS.
INT TERM^READ^COUNT;
BEGIN
INT ERROR, COUNT;
STRING .SP;
COUNT := TERM^READ^COUNT; ! TRANSFER THE CONTENTS OF THE TERMINAL
COMM^BUFFWS ':=' TERM^BUFFS FOR COUNT; ! BUFFER INTO THE COMM WRITE
BUFFER.
CALL WRITE^COMM (COUNT); ! CALL THE WRITE^COMM PROC PASSING
! THE WRITE COUNT.
END; !PROC TERM^COMPLETE
!-------------------------------------------------------------------------
! WRITE TO THE COMMUNICATIONS SUBDEVICE PROCEDURE
!-------------------------------------------------------------------------
PROC WRITE^COMM (COUNT); ! THIS PROC WRITES THE CONTENTS OF THE COMM WRITE
! BUFFER TO THE X25AM SUBDEVICE. THE PROC IS CALLED
! DURING THE TERMINAL COMPLETION PROCEDURE.
INT COUNT;
BEGIN
INT ERROR;
CALL WRITE (COMM^FILE, COMM^BUFFW, COUNT, , WRITE^TAG);
! PERFORM THE WRITE TO THE X25AM SUBDEVICE,
! USE THE WRITE TAG SO THAT WHEN THE
! AWAITIO IS DONE BY THE MAIN PRODEDURE
! IT CAN TELL WHAT OPERATION JUST COMPLETED.
! USE THE COMM WRITE BUFFER!!
IF <> THEN BEGIN ! CHECK FOR AN ERROR ON THE WRITE AND
CALL FILEINFO (COMM^FILE, ERROR);! CALL COMM^ERROR IF ONE OCCURS.