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

SIR$–Symbolic Input/Output Routine
Control Records to Pass
On entry, bits 4 through 35 of A4 specify which SDF control records SIR$ should not
pass to the calling program. If bit n is set, then the control record type 0103-n is not
passed to the calling program. The control record is still written to the source output by
SIR$.
Example
If A4 equals 013 on a call to INISR$, bits 32, 34, and 35 are set, or bits 040, 042, and 043
in octal. This initializes SIR$ so that control record types 0103-040 = 043, 0103-042
= 041, and 0103-043 = 040 are not passed to the calling program.
Source Output Control
If bit 0 of A4 is set, SIR$ checks for the following conditions:
• The output is to a scratch file and not to a source output element (PARTBL+16=0).
• The input is not from tape.
• There are no changes to the symbolic input.
If these conditions exist, SIR$ does not write to the processor's scratch file on the first
pass. On subsequent passes, SIR$ rereads the input element. If these conditions are
met, SIR$ performs approximately 75-percent fewer I/Os on the first pass than if SIR$
were called with OPNSR$.
Example
@MASM,S non-tape-si-element,ro-element
@EOF
In this example, SIR$ does not send unused output to the processor scratch file when
the Assembler sets register A4 to negative and calls INISR$ instead of OPNSR$.
Return CCS Identifier
Fieldata, ASCII, and ASCII-like symbolic images can be passed to the calling program in
Fieldata by using the GETSR$ entry point, in ASCII by using the GETAS$ entry point, or
without translation by using the GETNM$ entry point.
If bit 1 of A4 is set, SIR$ stores the CCS identifier in S6 of A0 for all images passed to
the calling program in ASCII (GETAS$ and GETNM$ entry points). This initialization
option allows the caller to identify the actual CCS associated with each image passed in
ASCII, which may be necessary for proper processing of images in different ASCII-like
CCSs.
If bit 1 of A4 is clear or if the OPNSR$ initialization entry point is called, SIR$ stores 01 in
S6 of A0 for all images passed to the calling program in ASCII (GETAS$ and GETNM$
entry points) and 00 in S6 of A0 for all images passed to the calling program in Fieldata
(GETSR$ and GETNM$ entry points).
23–12 7833 1733–004