Index: cA323.mac.rou
===================================================================
diff -u -r734 -r4146
--- cA323.mac.rou	(.../cA323.mac.rou)	(revision 734)
+++ cA323.mac.rou	(.../cA323.mac.rou)	(revision 4146)
@@ -39,11 +39,11 @@
 1 D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 S UCI2=$ZU(5) D UCI("MGR")
 11 K A S CFG=$$CONFIG^cQ9,(I3,ZDEV)="",XP=704 D MASTER^cQ5
 12 S (I3,ZDEV)=$$IO^cQ5 I 'I3 D ^cQ3 S (I3,ZDEV)=$$IO^cQ5
- F  S I3=$O(^|"MGR",boot|SYS(CFG,"DDB",I3)) Q:I3=""  D
+ ;F  S I3=$O(^|"MGR",boot|SYS(CFG,"DDB",I3)) Q:I3=""  D
  . I '$D(^cLOG(boot,"DEV",I3)) S ^cLOG(boot,"DEV",I3)="RW\BR\\\\\ \0",^cLOG(boot,"BELL",I3)="*0"
- F  S I3=$O(^|"MGR",boot|QSYS(CFG,"DDB",I3)) Q:I3=""  D
+ ;F  S I3=$O(^|"MGR",boot|QSYS(CFG,"DDB",I3)) Q:I3=""  D
  . I '$D(^cLOG(boot,"DEV",I3)) S ^cLOG(boot,"DEV",I3)="RW\BR\\\\\ \0",^cLOG(boot,"BELL",I3)="*0"
- F  S I3=$O(^cLOG(boot,"DEV",I3)) Q:I3=""  I '$D(^|"MGR",boot|SYS(CFG,"DDB",I3)),'$D(^|"MGR",boot|QSYS(CFG,"DDB",I3)),'$L($ZDEV(+I3)) K ^cLOG(boot,"DEV",I3)
+ ;F  S I3=$O(^cLOG(boot,"DEV",I3)) Q:I3=""  I '$D(^|"MGR",boot|SYS(CFG,"DDB",I3)),'$D(^|"MGR",boot|QSYS(CFG,"DDB",I3)),'$L($ZDEV(+I3)) K ^cLOG(boot,"DEV",I3)
 13 K L S A=0 D S2,S3
 14 L  S R="A\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T7"_QT)),U,2)_"\5\\""-.""[K!(K?1.4N)!(K?1.4N1""-"")\\\1"
 15 D R0 G YZ:K="-",5:K="." I K="" K A,L S A=$S(K="":VV-1,1:0),XP=704 D S3 G 14
@@ -77,7 +77,7 @@
 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
  ;
 SC1 W !?2,$P($T(@("T8"_QT)),U,2) I A=1,$I=1,$P(L(1),D)="OC" W $P($T(@("T8"_QT)),U,3)
-SC1A I $ZV["UNIX",A'=$I,'$D(^|"MGR",boot|SYS(CFG,"DDB",A)) W !?2,$P($T(@("T8"_QT)),U,4) S SW=1
+SC1A ;I $ZV["UNIX",A'=$I,'$D(^cA323",boot|SYS(CFG,"DDB",A)) W !?2,$P($T(@("T8"_QT)),U,4) S SW=1
 SC1Z Q
  ;
 S1 S FP=XP W @F,$J(A,4) S FP=FP+7,S=$P(L(A),D) S:'$L(S) S=" V"
@@ -100,13 +100,13 @@
  ;
 S3 S Z1=$O(^cLOG(boot,"DEV",A)),XS=0
 S3A F  S A=$O(^cLOG(boot,"DEV",A)) Q:A=""  S K=^(A) D  Q:XP\100>17!XS
- . I A<50,A>54,'$D(^|"MGR",boot|SYS(CFG,"DDB",A))&'$D(^|"MGR",boot|QSYS(CFG,"DDB",A)) Q
+ . ;I A<50,A>54,'$D(^|"MGR",boot|SYS(CFG,"DDB",A))&'$D(^|"MGR",boot|QSYS(CFG,"DDB",A)) Q
  . I XP\100+$P(K,D,9)>18 S XS=1,A=$O(^cLOG(boot,"DEV",A),-1) Q
  . S L(A)=K,A(A)=XP D S1
 S3B S Z2=A F XP=XP:100:1800 S FP=XP W @F,$J("",4) S FP=FP+7 W @F,$J("",26) S FP=FP+29 W @F,$J("",3) S FP=FP+6 W @F,$J("",26) S FP=FP+29 W @F,$J("",3)
 S3C S VV=A?1.4N I VV D
- . S VV=$O(^|"MGR",boot|SYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
- . I 'VV S VV=$O(^|"MGR",boot|QSYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
+ . ;S VV=$O(^|"MGR",boot|SYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
+ . ;I 'VV S VV=$O(^|"MGR",boot|QSYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
 S3Z S XP=704 Q
  ;
 S5 S S4=$P(R,D,2)+1,S0=0,SA=$P(R,D,3),S3=$P(R,D,1),FP=S4 W @F,@F1