1 | ZVEMSGR ;DJB,VSHL**VShell Global - ZOSF Nodes ; 12/15/00 11:49pm
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | ZOSF ;Load system specific code into ZOSF nodes
|
---|
5 | NEW I,ND,TXT,VEND
|
---|
6 | KILL ^%ZVEMS("ZOSF")
|
---|
7 | S ^%ZVEMS("ZOSF")="System specific code"
|
---|
8 | F I=1:1 S TXT=$T(SYS+I) Q:$P(TXT,";",3)="***" D ;
|
---|
9 | . S ND=$P(TXT,";",3)
|
---|
10 | . S VEND=$P(TXT,";",4)
|
---|
11 | . S ^%ZVEMS("ZOSF",VEND,ND)=$P(TXT,";",5,999) ;Vendor specific code
|
---|
12 | Q
|
---|
13 | SYS ;System specific code
|
---|
14 | ;;EON;8;U $I:(:::::1)
|
---|
15 | ;;EOFF;8;U $I:(::::1)
|
---|
16 | ;;TRMON;8;U $I:(::::::::$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))
|
---|
17 | ;;TRMOFF;8;U $I:(::::::::$C(13,27))
|
---|
18 | ;;TRMRD;8;S Y=$ZB
|
---|
19 | ;;EON;18;U $I:("":"-S")
|
---|
20 | ;;EOFF;18;U $I:("":"+S")
|
---|
21 | ;;TRMON;18;U $I:("":"+I+T")
|
---|
22 | ;;TRMOFF;18;U $I:("":"-I-T":$C(13,27))
|
---|
23 | ;;TRMRD;18;S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)
|
---|
24 | ;;***
|
---|