DRL PRGDES (octal 65) - pass program descriptor.

Usage:

drl    prgdes
ascii  1,ssname
zero   L(buf),0

Where:

ssname: is the name of the subsystem. The descriptor of the subsystem will be passed to the calling program.
buf: is a buffer in the caller, in which the program descriptor will be placed. Currently the buffer size is nine words and the space may be reserved by using the macro equivalence ".LPRGD".

Description:

DRL PRGDES copies the program descriptor of a subsystem into "buf". If the specified subsystem does not exist, the buffer will be set to zeroes. Control always returns to the word following the calling sequence.

If the first primitive of the specified subsystem is a CALLP, the ASCII name of the called subsystem will be returned in the A-register. In all other cases, the A-register will be set to zero.