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

SIR$–Symbolic Input/Output Routine
If the buffer is longer than the image, the buffer is filled to the end. If the image is
Fieldata, the buffer is filled with Fieldata spaces, octal 05. If the image is ASCII or
ASCII-like, the buffer is filled with ASCII spaces, octal 040. If the image is in an "other"
CCS, the buffer is filled with binary zero characters, octal 0. If the buffer is shorter than
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 without translation, 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.
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.
When SIR$ takes a normal return, information is returned to the calling program in
registers A0 through A5. If the passed image is Fieldata, the return information is as
described in 23.2.4 for GETSR$. If the passed image is not Fieldata (ASCII, ASCII-like,
or “other”), the return information is as described in 23.2.3 for GETAS$.
23.2.6. CLOSR$–Close SIR$ Input and Output
CLOSR$ closes the symbolic input file. If there is symbolic output, CLOSR$ closes the
symbolic output file.
CLOSR$ provides termination for the first and all subsequent passes. SIR$ closes the
SDFI routine. If symbolic output was specified, SIR$ closes the SDFO routine. If the call
to SIR$ is a first pass and the symbolic output is an element, an entry is made in the
symbolic output program file through the Program File Package Insert routine (ER PFI$).
Calling Sequence
LMJ X11,CLOSR$
error return
normal return
Error Return
SIR$ takes the error return when SDFO is unable to close the symbolic output. Two
other error returns are possible when source output is to be written to a program file
element. SIR$ takes the error return when the text length is over 262,143 sectors or
when ER PFI$ returns an error to SIR$.
In the case of an SDFO error, register A5 contains the I/O error status code. In the two
other cases, A5 is zero. In the case of the text length over 262,143 sectors, register A2
contains the sector count, which is always at least octal 01000000. In the case of an
ER PFI$ error, register A2 contains the PFI$ error status code, which is always less than
octal 0100. (See the ER Programming Reference Manual.)
7833 1733–004 23–19