.; CUR.COM, IND control file. .; Reports on your current default device. .; .; This file looks at the directory volume identification .; to determine where it is. .; The Volume ID format may either be the standard RT one, or .; it can be compatible with the DSKLIB disk catalog program, .; i.e., the 12-character Volume ID label is of the form .; NNNFFFFFFXXX, where NNN is a three-digit number .; used by DSKLIB for its cataloging purposes, .; FFFFFF is the volume name, and XXX is an extension. .; Examples are 001SYSTEMSYS, or 675FORTRADSK. .; .; This file is used by UP and HOME. Because there is no IND .; directive to relate LD's with files, we can't figure out which .; device the file is on when we come "up" from a deeper-nested .; subdevice. Therefore, no device is shown. .; .; You can also display CURDK.TMP dirctly to tell you where you are: .; When used in conjunction with UCL, you can type a KMON command .; CUR and your current default device will print on the terminal. .; The UCL+ entry is .; CUR == TYPE SY:CURDK.TMP .; .; Written by: .; R. W. Barnard .; Sandia National Laboratories, Division 7523 .; Albuquerque, NM 87185 .; .; Version 1.1; 3-May-85 .; .enable quiet .; .vol CURVOL DK .sets DLBNUM CURVOL[1:3] .;Separate off the number. .if DLBNUM gt "999" .goto 10 .;Not a DSKLIB-formatted volume. .sets VOLID CURVOL[4:9.] .;Get the name. .sets VOLEXT CURVOL[10.:12.] .;Get the extension. .sets CURFIL "'VOLID'.'VOLEXT'" .;DSKLIB volume ID. .goto 20 .10: .sets CURFIL CURVOL .;Non-DSKLIB volume ID. .; .20: .open SY:CURDK.TMP .data E DK is 'CURFIL' .close .; Message is printed in bold, and is positioned better on screen. TYPE SY:CURDK.TMP .exit