LSY TITLE 'DMSLSY (CMS) VM/370 - RELEASE 6' 00001000 SPACE 2 00002000 *. 00003000 * 00004000 * 00005000 * MODULE NAME: 00006000 * 00007000 * DMSLSY 00008000 * 00009000 * FUNCTION: 00010000 * 00011000 * TO GENERATE A UNIQUE CHARACTER STRING OF THE FORM 00012000 * Z000001 FOR PRIVATE CODE SYMBOLS. 00013000 * 00014000 * ATTRIBUTES: 00015000 * 00016000 * REENTRANT, NUCLEUS RESIDENT 00017000 * 00018000 * ENTRY POINTS: 00019000 * 00020000 * DMSLSY - FROM DMSLDR PRIVATE CODE ROUTINE, 00021000 * R1 IS SAVED 00022000 * 00023000 * ENTRY CONDITIONS: 00024000 * 00025000 * DMSLSY - R15 = ADDRESS OF DMSLSY 00026000 * R14 = RETURN ADDRESS 00027000 * 00028000 * EXIT CONDITIONS: 00029000 * 00030000 * NORMAL - RETURN ON R14 00031000 * ERROR - NONE 00032000 * 00033000 * EXTERNAL REFERENCES: 00034000 * 00035000 * NUCON 00036000 * 00037000 * TABLES/WORKAREAS: 00038000 * 00039000 * NONE 00040000 * 00041000 * CALLS TO OTHER ROUTINES: 00042000 * 00043000 * NONE 00044000 * 00045000 * REGISTER USAGE: 00046000 * 00047000 * R15 - BASE 00048000 * R14 - RETURN 00049000 * R1 - WORK 00050000 * 00051000 * OPERATION: 00052000 * 00053000 * KEEPS A BASE BINARY NUMBER WHICH IS INCREASED BY 00054000 * DECIMAL 10 ON EACH PASS. THE BINARY NUMBER IS 00055000 * CONVERTED TO DECIMAL, UNPACKED AND PLACED IN NUCON 00056000 * BEHIND THE CHARACTER 'Z' ON EACH PASS. RETURN IS VIA 00057000 * R14. 00058000 * 00059000 *. 00060000 EJECT 00061000 DMSLSY START 00062000 USING NUCON,R0 00063000 USING DMSLSY,R15 00064000 ST R1,GET1 00065000 L R1,JSYM 00066000 LA R1,10(,R1) 00067000 ST R1,JSYM 00068000 CVD R1,DSYM 00069000 UNPK NXTSYM+1(7),DSYM+4(4) 00070000 MVI NXTSYM+7,C' ' 00071000 L R1,GET1 00072000 BR R14 00073000 * 00074000 REGEQU 00075000 NUCON 00076000 END 00077000