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

SIR$–Symbolic Input/Output Routine
Returns
A call to GETAS$ obtains the next symbolic image from the source input. The image is
returned in the calling program buffer. The images are always returned in the ASCII
character set. If the image was read in Fieldata, it is translated to ASCII before it is
returned to the calling program.
If the buffer is longer than the image read, the buffer is blank-filled to the end. If the
buffer is shorter than the image read, only the part of the image that will fit in the buffer
is returned; the rest of the image is lost. SIR$ reads up to a 63-word image and can be
configured to read up to 2047 word images.
If symbolic output is specified, SIR$ writes the image. Note that even though the image
is passed to the calling program in ASCII, 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, a Fieldata image is translated to
ASCII_ISO when passed to the calling program, but the image would still be written to
the source output in Fieldata if the P option or both the P and the Q options are
specified.
If SIR$ takes an error return because of an unrecoverable I/O error, A5 contains the I/O
error status code. If SIR$ takes an error return because of a line-change statement error,
partial line-change statement error, partial line-change editing statement error, source
input image CCS error, or source output image CCS error, A5 is zero and A0 contains a
print control word for a message describing the error. The calling program can do an
ER PRINT$ to print the Fieldata error message.
SIR$ takes the end-of-file return when there are no more symbolic input images to read.
The following information is returned to the calling program in registers A0 through A5
when the normal return is taken:
A0
A1
(S6)
If SIR$ was initialized with OPNSR$ or if SIR$ was initialized with INISR$ and A4
bits 1 and 2 were both clear, the ASCII_ISO CCS identifier 01 is returned. If
SIR$ was initialized with INISR$ and either A4 bit 1 or 2 was set, the CCS
identifier of the image is returned. For a Fieldata image translated to ASCII, the
ASCII_ISO CCS identifier 01 is returned.
The SDF image control word for the record read. If bit 0 (leftmost bit) of register
A1 = 1, the record returned to the caller is a control record, and registers A2 through
A5 are undefined.
23–14 7833 1733–004