source:
WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZISX.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 379 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | ZISX ;SF/GFT,AC - PROGRAM THAT XECUTES NODES IN ^%ZIS GLOBAL. ;1/3/90 15:08 ; |
2 | ;;8.0;KERNEL;;Jul 10, 1995 | |
3 | X3 X ^%ZIS(2,+IOST(0),3) Q | |
4 | X31 ;X ^%ZIS(2,+IOST(0),3.1) Q ;Old code | |
5 | X10 X ^%ZIS(2,IO("S"),10) Q | |
6 | X11 X ^%ZIS(2,+IO("S"),11) K IO("S") Q | |
7 | XPCX X ^%ZIS(1,+IOS,"PCX") Q | |
8 | XPOX(X) ;Execute pre-open execute code. | |
9 | X ^%ZIS(1,+X,"POX") Q | |
10 | %Y X %Y Q | |
11 | XS X %ZIS("S") Q | |
12 | XW X %ZIS("W") Q |
Note:
See TracBrowser
for help on using the repository browser.