ZISETDTM.m

ZISETDTM ;HGL::B-FmSys.Rsave;10:46 AM  21 Mar 1990;INITIALIZE DEVICE FILE FOR DATATREE ;4/9/92  14:17

 ;;7.1;KERNEL;;Jun 08, 1993

 ; ** For DataTree **

 W !,"THIS ROUTINE INITIALIZES THE DEVICE FILE WITH CURRENT PORT NUMBERS"

 W !,"OR UPDATES THE DEVICE FILE IF NEW HARDWARE HAS BEEN ADDED TO THE SYSTEM",!

 R "OK? ",X:$S($D(DTIME):DTIME,1:9999),!! I X'?1"Y".E G EXIT

 L +^%ZIS:2 W:'$T !,"FILE IS IN USE.  TRY AGAIN LATER!!!",*7 Q:'$T

 I '$D(^%ZIS(1,0)) S ^%ZIS(1,0)="DEVICE^3.5"

 I $D(^%ZIS(2,0))[0 S ^%ZIS(2,0)="TERMINAL TYPE^3.2I^2^2" D TT

 S %ZISV=$S($D(^%ZOSF("VOL")):^("VOL"),1:"")

 D FLST

QUES W !,"Please Enter a Prefix for New Devices: " W:%ZISV]"" %ZISV_"// "

 R %ZISV1:300 Q:%ZISV1="^"!'$T  S:%ZISV1="" %ZISV1=%ZISV

 I %ZISV1?1"?"."?"!(%ZISV1="") D HLP G QUES

 ;

 S TYPE="TRM",DEV=1,ZISADD=0 D CHK,ADD:ZISADD

 S TYPE="HFS" F DEV=10:1:17 S ZISADD=0 D CHK,ADD:ZISADD

 S TYPE="SPL",DEV=18,ZISADD=0 D CHK,ADD:ZISADD

 S TYPE="SDP",DEV=19,ZISADD=0 D CHK,ADD:ZISADD

 S TYPE="TRM" F DEV=30:1:200 D CHKDEV I '$D(ERR) S ZISADD=0 D CHK,ADD:ZISADD

 D C,SETCNTR

 W !!,"Device File setup completed"

EXIT ;

 L -^%ZIS K %ZISV,%ZISV1,A,I,T,X,DEV,ERR,LST,NM,TYPE,ZISADD

 Q

 ;

CHKDEV K ERR ZETRAP NODEV O DEV::0 C DEV Q

NODEV S ERR="NO SUCH DEVICE" Q

 ;

C ; Close Logic

 K ^%ZIS("C") S ^%ZIS("C")="G ^%ZISC"

 Q

SETCNTR S $P(^%ZIS(1,0),"^",3)=+LST,$P(^(0),"^",4)=T

 Q

 ;

CHK I $O(^%ZIS(1,"G","SYS."_%ZISV_"."_DEV,0))>0 Q

 I $O(^%ZIS(1,"CPU",%ZISV_"."_DEV,0))>0 Q

 I $O(^%ZIS(1,"C",DEV,0))>0 Q

 S NM=%ZISV1_DEV,ZISADD=1

 Q

ADD S LST=LST+1 G:$D(^%ZIS(1,+LST,0))#2 ADD S T=T+1

 S ^%ZIS(1,+LST,0)=NM_"^"_DEV_"^^^^^^^"_%ZISV_"^^1"

 I TYPE="TRM" S ^%ZIS(1,+LST,0)=$P(^%ZIS(1,+LST,0),"^",1,2)_"^1^1^"_$P(^(0),"^",5,99)

 I TYPE="SDP" S $P(^%ZIS(1,+LST,0),"^",4)=1

 S ^%ZIS(1,+LST,"TYPE")=TYPE

 S ^%ZIS(1,"B",NM,+LST)="",^%ZIS(1,"C",DEV,+LST)=""

 S ^%ZIS(1,"CPU",%ZISV_"."_DEV,+LST)="",^%ZIS(1,"G","SYS."_%ZISV_"."_DEV,+LST)=""

 W !,"Device ",NM," added.  TYPE=",^%ZIS(1,+LST,"TYPE")

 Q

FLST S (A,T)=0

 F I=0:0 S I=+$O(^%ZIS(1,I)) Q:I'>0  S A=I,T=T+1

 S LST=A

 Q

TT ; Define general terminal types

 S ^%ZIS(2,1,0)="C-OTHER",^(1)="80^#^24^$C(8)",^(9)="general 'dumb' video terminal"

 S ^%ZIS(2,2,0)="P-OTHER",^(1)="132^#^64^$C(8)",^(9)="General printer (132)"

 S ^%ZIS(2,"B","C-OTHER",1)="",^%ZIS(2,"B","P-OTHER",2)=""

 Q

HLP ;HELP FOR PREFIX QUESTION

 W !,"There must be a prefix for a new devices"

 W !,"because the Device Name and the $I cannot"

 W !,"be the same."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZISETDTM   2516     printed  Apr 09, 2024@21:08:01                                                                                                                                                                                                    Page 2

ZISETDTM  ;HGL::B-FmSys.Rsave;10:46 AM  21 Mar 1990;INITIALIZE DEVICE FILE FOR DATATREE ;4/9/92  14:17

 +1       ;;7.1;KERNEL;;Jun 08, 1993

 +2       ; ** For DataTree **

 +3        WRITE !,"THIS ROUTINE INITIALIZES THE DEVICE FILE WITH CURRENT PORT NUMBERS"

 +4        WRITE !,"OR UPDATES THE DEVICE FILE IF NEW HARDWARE HAS BEEN ADDED TO THE SYSTEM",!

 +5        READ "OK? ",X:$SELECT($DATA(DTIME):DTIME,1:9999),!!

           IF X'?1"Y".E

               GOTO EXIT

 +6        LOCK +^%ZIS:2

           if '$TEST

               WRITE !,"FILE IS IN USE.  TRY AGAIN LATER!!!",*7

           if '$TEST

               QUIT 

 +7        IF '$DATA(^%ZIS(1,0))

               SET ^%ZIS(1,0)="DEVICE^3.5"

 +8        IF $DATA(^%ZIS(2,0))[0

               SET ^%ZIS(2,0)="TERMINAL TYPE^3.2I^2^2"

               DO TT

 +9        SET %ZISV=$SELECT($DATA(^%ZOSF("VOL")):^("VOL"),1:"")

 +10       DO FLST

QUES       WRITE !,"Please Enter a Prefix for New Devices: "

           if %ZISV]""

               WRITE %ZISV_"// "

 +1        READ %ZISV1:300

           if %ZISV1="^"!'$TEST

               QUIT 

           if %ZISV1=""

               SET %ZISV1=%ZISV

 +2        IF %ZISV1?1"?"."?"!(%ZISV1="")

               DO HLP

               GOTO QUES

 +3       ;

 +4        SET TYPE="TRM"

           SET DEV=1

           SET ZISADD=0

           DO CHK

           if ZISADD

               DO ADD

 +5        SET TYPE="HFS"

           FOR DEV=10:1:17

               SET ZISADD=0

               DO CHK

               if ZISADD

                   DO ADD

 +6        SET TYPE="SPL"

           SET DEV=18

           SET ZISADD=0

           DO CHK

           if ZISADD

               DO ADD

 +7        SET TYPE="SDP"

           SET DEV=19

           SET ZISADD=0

           DO CHK

           if ZISADD

               DO ADD

 +8        SET TYPE="TRM"

           FOR DEV=30:1:200

               DO CHKDEV

               IF '$DATA(ERR)

                   SET ZISADD=0

                   DO CHK

                   if ZISADD

                       DO ADD

 +9        DO C

           DO SETCNTR

 +10       WRITE !!,"Device File setup completed"

EXIT      ;

 +1        LOCK -^%ZIS

           KILL %ZISV,%ZISV1,A,I,T,X,DEV,ERR,LST,NM,TYPE,ZISADD

 +2        QUIT 

 +3       ;

CHKDEV     KILL ERR