18.08.2013 Views

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

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

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

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

CABSAD$, CRELAD$–Addressing Routines<br />

Error Return<br />

The error return is taken if an I/O status other than 0 or 5 is encountered. In that case,<br />

register A0 contains the status code, register A1 contains the error address on mass<br />

storage, A2 through A3 contain the Fieldata characters "INPUT ERROR", and A4 through<br />

A5 contain zero.<br />

Reinitializing CRELAD$<br />

If a program using CRELAD$ is checkpointed and restarted, CRELAD$ must be<br />

reinitialized. Use the following instruction in the restart contingency code when calling<br />

the relocatable version.<br />

SZ *CRELAD$-1<br />

When calling the common bank version, store zero into the first word of the 300-word<br />

buffer.<br />

SZ buffer-name<br />

The alternate relocatable calling sequence is<br />

L A0,(bdi,addr)<br />

LMJ X11,CRELAD$<br />

error return<br />

normal return<br />

The alternate common bank calling sequence is<br />

L A0,(bdi,addr)<br />

L,U A5,300-word-buffer-starting-address<br />

I$BJ X11,CB$CRELAD$<br />

error return<br />

normal return<br />

This entry and the previous example provide the same results. The only difference is<br />

that a bank descriptor index is specified in H1 of A0. This is necessary if the address in<br />

H2 of register A0 is in an unbased bank or a bank that overlaps the bank containing<br />

CRELAD$ (usually the control bank) and the address is in the overlap area. Otherwise,<br />

when CRELAD$ performs an ER BANK$ to determine the bank descriptor index for the<br />

address, it obtains the wrong BDI because the CRELAD$ bank descriptor register is then<br />

active.<br />

7833 1733–004 6–11

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!