X25AM Programming Manual

PTP Applications

X25AM Programming Manual—527201-001

3-62

Text of TAL Example

The remainder of this subsection contains the text of the example of an application

program written in TAL. To conform to standard TAL conventions, the main procedure

appears at the end of the program.

!-------------------------------------------------------------------------

! GLOBAL DECLARATIONS

!-------------------------------------------------------------------------

INT FLAGS, ! GENERAL PURPOSE FLAGS

FILE, ! FILE WAITED ON

COMM^FILE, ! LINE FILE NUMBER

TERM^FILE, ! TERMINAL FILE NUMBER

TERM^BUFF[0:39], ! TERMINAL I/O BUFFER

COMM^BUFFR[0:40], ! LINE I/O BUFFER FOR READS

COMM^BUFFW[0:40]; ! LINE I/O BUFFER FOR WRITES

INT(32) TAG, ! READ/WRITE COMPLETION TAG

READ^TAG := 55D, ! READ TAG VALUE

WRITE^TAG := 77D; ! WRITE TAG VALUE

LITERAL MAX^COMM^READ = 80, ! LARGEST COMM READ

MAX^TERM^READ = 78, ! LARGEST TERMINAL READ

END^OF^FILE = 1,

BREAK^ACCESS^ONLY = 110,

BREAK^HIT = 111,

MODEM^ERROR = 140;

STRING .SP, ! GENERAL PURPOSE STRING PTR

.COMM^BUFFRS := @COMM^BUFFR '<<' 1,

.COMM^BUFFWS := @COMM^BUFFW '<<' 1,

.TERM^BUFFS := @TERM^BUFF '<<' 1;

DEFINE CALL^SENT^FLAG = FLAGS.<0>#;

! 1: MADE CALL, 0: WAITED FOR CALL

END^PROGRAM^REQUEST = FLAGS.<1>#;

! 1: STOP PROGRAM, 0: CONTINUE