OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-6
i := i + 1;
buff[i] ':=' "-";
END;
if t = 0 then
t := 1;
for s := 1 to t DO
BEGIN
a := num[t-s];
buff[s + i] := dec[a];
END;
buff[s + i] := 0;
width := s + i;
return;
END;
?page
---------------------------------------------------------------------------
-- Function Name: print_hex --
-- --
-- Arguments: str hex input buffer pointer IN --
-- len number of bytes to print IN --
-- buff output buffer pointer IN/OUT --
-- --
-- Description: This procedure reads bytes from str and prints the --
-- hex characters for the byte in ASCII in the buffer --
-- output area. --
---------------------------------------------------------------------------
PROC print_hex (str,len,buff);
STRING
.EXT STR;
INT
LEN;
STRING
.EXT BUFF;
BEGIN
INT
b,
a := 0;
STRING
as = a[0],
.EXT x,
hex[0:15] := "0123456789abcdef";
@x := @buff;
while len > 0 do
BEGIN
as[1] ':=' str for 1 bytes;
@str := @str + 1D;
b := a >> 4;
x ':=' hex[b] for 1 bytes ->@x;
b := a LAND 15;
x ':=' hex[b] for 1 bytes ->@x;
x ':=' " "->@x;
len := len - 1;
END;
x ':=' " ";
return;
END;
?page
---------------------------------------------------------------------------
-- Function Name: print_info_buffer --
-- --
-- Arguments: buffer_in IN --
-- buffer_size OUT --