SPI Programming Manual (G06.24+, H06.03+, J06.03+)

SPI Programming Examples
SPI Programming Manual—427506-006
E-80
Example E-17: Declarations for TAL Requesters and
Servers
Example E-17. TAL File: SETRDECS Supporting Code
-- File name: SETRDECS
-- SPI EXAMPLE TAL Requester Declarations and variables.
--
STRUCT ci^startup^def (*);
BEGIN
INT msgcode;
STRUCT default;
BEGIN
INT volume [0:3],
subvol [0:3];
END; -- of STRUCT
STRUCT infile;
BEGIN
INT volume [0:3],
subvol [0:3],
dname [0:3];
END; -- of STRUCT
STRUCT outfile;
BEGIN
INT volume [0:3],
subvol [0:3],
dname [0:3];
END; -- of STRUCT
STRING param [0:255];
END; -- of STRUCT
STRUCT .start^buffer (ci^startup^def);
STRUCT .param^msg = start^buffer;
BEGIN
INT msg^code,
param^count;
STRING param [0:1023];
END;
STRUCT .startup^msg (ci^startup^def);
STRUCT string^template(*);
BEGIN
INT len;
STRING data [0:199];
END;
STRUCT context^template(*);
BEGIN
INT len;
INT command;
INT index; ! Current index into the string
STRUCT con^string (string^template); ! The converted string, so far
END;
STRUCT .in^string (string^template); ! Input string
STRUCT .the^context (context^template); ! continuation context
STRUCT .server^banner (zspi^ddl^char50^def);
STRUCT .my^ssid (zspi^ddL^ssid^def);
INT my^version := version;
DEFINE req^buffer = b1#; ! Request buffer (same as b1)