02.07.2013 Views

Type III C lass A Program

Type III C lass A Program

Type III C lass A Program

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.

Linkage Notes:<br />

SVC X·CA·<br />

pc AL4(*+4)<br />

a. Commands that are not resident in the CMS nucleus may<br />

also be called by the CMS SVC. but they are loaded at<br />

hexadecimal location 12000. This is also the default load<br />

point for user programs. Therefore, a higher load point<br />

must be specified when the user's program is loaded. A<br />

complete list of disk resident commands may be obtained with<br />

a LISTF * MODULE SY" which also gi ves a rough idea of the<br />

command size, expressed in SOO-byte records.<br />

b. A few CMS routines may be executed only by branching.<br />

The addresses of these programs are listed in a nucleus<br />

module under the entry point SYSREF. SYSREF is resolved as<br />

an EXTRN in any user program. The displacement from SYSREF<br />

to the desired address is obtained with the CMSYSRFF macro<br />

instruction, which generates a series of EQU statements.<br />

The name of each nucleus routine, with a D prefixed to it,<br />

is equated to its displacement from SYSREF in the address<br />

list. The following example shows how to get to the SCAN<br />

routine in the nucleus,.<br />

USERJOB CSECT<br />

EXTRN SYSREF<br />

L<br />

L<br />

BALR<br />

LTR<br />

BNZ<br />

CMSYSREF<br />

3!,=A(SYSREF)<br />

15.DSCAN(3)<br />

14,15<br />

15,15<br />

ERR $<br />

In the expansion of CMSYSREF, DSCAN is equated to the<br />

displacement of the SCAN address in the SYSREF list. The<br />

address is loaded into register 15 for the BALR. SCAN is a<br />

routine to break up terminal line images in core into a<br />

standard CMS parameter list. For further information on<br />

SCAN" see the CMS <strong>Program</strong> Logic Manual.<br />

Assembler Language <strong>Program</strong>ming 215

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

Saved successfully!

Ooh no, something went wrong!