| [613] | 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 | ;;***
|
|---|
