Type ASSEMBLE
Source Lines : 77
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]

Module

       DMSLSY

Function

       TO GENERATE  A UNIQUE  CHARACTER STRING  OF THE  FORM
       Z000001 FOR PRIVATE CODE SYMBOLS.

Attributes

       REENTRANT, NUCLEUS RESIDENT

Operation

       KEEPS  A BASE  BINARY NUMBER  WHICH  IS INCREASED  BY
       DECIMAL  10  ON  EACH PASS.   THE  BINARY  NUMBER  IS
       CONVERTED TO DECIMAL, UNPACKED AND PLACED IN NUCON
       BEHIND THE CHARACTER 'Z' ON EACH PASS.  RETURN IS VIA
       R14.

Calls to Other Routines

     NONE