6100 ADCCP Programming Manual

ADCCP Programming Example Using Transaction Application Language (TAL)
B–6 069225 Tandem Computers Incorporated
Here, the default parameters defined as literals near the beginning of the listing are
grouped in an array.
STRING set^conf^array = 'p' := [!l^max^frame^size, ! %001,%000,
!l^mode^support, ! 1,
!l^address^size ! 1,
!l^extended^control, ! 0,
!l^station^count ! 1,
!l^translate^on, ! 0,
!l^rnr^timer ! 0,
!l^translate^offset, ! 0,0,
!l^translate^length, ! 0,0,
!l^poll, ! 255,
!l^srejok, ! 0,
!l^rejok, ! 255,
!l^reservd ! 255,
!l^tws, ! 0,
!l^l2^window, ! 7,
!l^switched, ! 0,
!l^half^duplex, ! 0,
!l^modem^loss^fatal, ! 0,
!l^switched^input^carrier, ! 0,
!l^switched^output^carrier,! 0,
!l^flag^fill^idle, ! 0,
!l^l2^retries, ! 3,
!l^l1^retries, ! 3,
!l^line^quality, --- 500 ! %001,%364,
!l^transfer^timer, ! 0,050,
!l^t1^timer, --- 500 ! %001,%364,
!l^idle^line^timer, ! 0,100,
!l^dsr^timer, --- 300 ! %012,%360,
!l^address^value, ! %301,0,0,0,0,
!l^abm^support^off ! 0,
!l^abm^ip^off ! 0,
!l^test^frames^echo........! 255
!l^option_two_off ! 0,
1l^option^b ! 0];
int(32) time^out, !awaitio timeout value
current^time, !Current time in seconds relative
!from midnight
save^time, !A save area for current^time
timeout^retry, !timeout * retry^count
tag,
RTAG; !TAG FOR READ FRAMES
int itag = tag;
string
outbufs = outbuf,
ptr,
to^msg[0:to^msg^lnth],
suppress^buf[0:79] := ["Junk"],
sbuf := @outbuf '<<' 1,
rbufs := @rbuf '<<' 1;
struct .mesg;
begin
int type[0:1], !"CMD " or "RSP "
length, !words (includes itself)
data;
end;
struct .seed^msg (mesg);
define writeread^cnt = seed^msg.length '<<' 1 # ;