Routine: ZISETUP

Information

ZISETMSM ;IHS/MJ,ACC, SFISC/AC -- INITIALIZE DEVICE FILE FOR MSM-68 [ 05/02/89 4:42 PM ] ;4/9/92 14:17

Source file <ZISETUP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS ROUTINE TAKES INITIALIZES THE DEVICE FILE WITH CURRENT PORT NUMBERS",! Line Location: ZISETUP+3
Function Call: READ	Formatting: "OK? " Prompt: X Variable: !! G Timeout: X'?1"Y".E Line Location: ZISETUP+4
Function Call: READ	Variable: %ZISV1 Timeout: $S($D(DTIME):DTIME,1:300) Line Location: QUES+0
Function Call: WRITE	Prompt: !!,"ALL SETUP" Line Location: C+1
Function Call: WRITE	Prompt: !,"There must be a prefix for a new device" Line Location: HLP+1
Function Call: WRITE	Prompt: !,"becuase the Device Name and the $I cannot" Line Location: HLP+2
Function Call: WRITE	Prompt: !,"be the same." Line Location: HLP+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(	ZISETMSM+5, EXIT+1
^%ZIS("C"	C!*
^%ZIS(1 - [#3.5]	ZISETMSM+6, CHK, ADD, ADD1, ADD1+1, SETCNTR*, FLST, FLST+1
^%ZOSF("MGR"	ZISETMSM+7
^%ZOSF("VOL"	ZISETMSM+7
^SYS(	DDB
^SYS("CONFIG"	SYS

Name	Field # of Occurrence
%	PEND!
%F	PEND!
%GBN	PEND!
%GLB	PEND!
%MAX	PEND!
%OF	PEND!
%PC	ZISETMSM+2*, HFS+1, EXIT+1!
%UI	PEND!
%USZ	PEND!
%UT	PEND!
%X	PEND!
>> %ZISV	ZISETMSM+7*, QUES, CHK, ADD, SETCNTR
>> %ZISV1	QUES*, ADD
>> A	FLST, FLST+1, FLST+2
CC	PEND!
CONFIG	SYS*, DDB, EXIT+1!
DEF	DDB*, EXIT+1!
DTIME	QUES
GN	PEND!
I	DDB, HFS+1, CHK, ADD, ADD1, ADD1+1, SETCNTR, PEND!, FLST+1*
K	PEND!
KEY	PEND!
LST	ADD, ADD1, ADD1+1, SETCNTR, EXIT+1!, FLST+2*
M	ZISETMSM+7*, EXIT+1!
NAME	EXIT+1!
NM	CHK*, ADD, ADD1, ADD1+1, EXIT+1!
OF	PEND!
T	ZISETMSM+7, ADD, ADD1*, ADD1+1, SETCNTR, EXIT+1!
TFL	PEND!
TTY	SYS+1, DDB, EXIT+1!
TYP	PEND!
TYPE	SYS, HFS+1, ADD1+1, EXIT+1!
UC	PEND!
X	ZISETMSM+4, EXIT+1!, FLST, FLST+1