(SYSLIB) Programming Reference Manual - Public Support Login ...

SIR$–Symbolic Input/Output Routine
23.2.4. GETSR$–Get Symbolic Image in Fieldata
GETSR$ obtains a symbolic input image in Fieldata and returns it to the calling program.
If symbolic output is specified, SIR$ writes the image to the output file or element.
Calling Sequence
L A0,(buffer-length,buffer-addr)
LMJ X11,GETSR$
error return
end-of-file return
normal return
where:
buffer-length
The length in words of the buffer into which the symbolic input image is read.
buffer-addr
The address of the buffer into which the symbolic input image is read.
Returns
The GETSR$ entry point is called to obtain the next input image from the source input or
the runstream and to pass the image to the calling program in Fieldata. Input images in
ASCII and ASCII-like CCSs are translated to Fieldata and passed to the calling program.
Input images in Fieldata are passed without change to the calling program. Input images
in the 22 "other" CCSs are not passed to the calling program, but instead result in an
error return.
If the buffer is longer than the Fieldata image, the buffer is filled with Fieldata spaces to
the end. If the buffer is shorter that the image, only buffer-length words are returned;
the remainder of the image is lost. SIR$ reads images up to 63 words and can be
configured to read images up to 2,047 words.
If symbolic output is specified, SIR$ writes the image. Note that even though the image
is passed to the calling program in Fieldata, this does not affect the CCS of the image
when it is written to the source output. As previously described, the P and Q options
determine the CCS of the output image. For example, an ASCII-like ISO_8859_5
(decimal CCS 39) image is translated to Fieldata when passed to the calling program, but
the image would still be written to the source output as an ISO_8859_5 image if the Q
option or both the P and the Q options are specified.
If SIR$ takes an error return, the information returned is the same as described for
GETAS$ in 23.2.3.
SIR$ takes the end-of-file return when there are no more symbolic images to read in
either the source input or the runstream.
The following information is returned to the calling program in registers A0 through A5
when the normal return is taken:
23–16 7833 1733–004