.; UP.COM, IND control file. .; Moves up one logical device and reassigns default device. .; .; When used in conjunction with UCL, you can type a KMON command .; UP and move up one level. .; The UCL+ entry is .; UP == R IND\SY:UP .; .; Written by: .; R. W. Barnard .; Sandia National Laboratories, Division 7523 .; Albuquerque, NM 87185 .; .; Version 1.2; 2-May-85 .; .enable quiet .disable lowercase .testdevice DK .parse "," DEVNAM SIZE A1 A2 A3 LOAD ONL MOU NAT .sets CURLD "LD6" .;See if we are down two levels. .if DEVNAM eq CURLD .goto up1 .sets CURLD "LD7" .;No - just go back to SY: DEASS DK .goto 10 .up1: ASS LD7 DK .10: DISMOUNT 'CURLD' .; Show where we are. @SY:CUR .exit