source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSGR.m@ 1489

Last change on this file since 1489 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 834 bytes
Line 
1ZVEMSGR ;DJB,VSHL**VShell Global - ZOSF Nodes ; 12/15/00 11:49pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4ZOSF ;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
13SYS ;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 ;;***
Note: See TracBrowser for help on using the repository browser.