|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 15 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
532 bytes
|
| Line | |
|---|
| 1 | XBKSET ; IHS/ADC/GTH - SET MINIMUM KERNEL VARIABLES ; [ 10/29/2002 7:42 AM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine is for programmers in direct mode only. It
|
|---|
| 5 | ; should not be called within a routine.
|
|---|
| 6 | ;
|
|---|
| 7 | START ;
|
|---|
| 8 | D ^XBKVAR
|
|---|
| 9 | KERNEL ;
|
|---|
| 10 | KILL ^XUTL("XQ",$J),^UTILITY($J)
|
|---|
| 11 | S %ZIS="L",IOP="HOME"
|
|---|
| 12 | D ^%ZIS
|
|---|
| 13 | Q:POP
|
|---|
| 14 | D SAVE^XUS1 ; IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 15 | ; F X="DUZ","DUZ(0)","DUZ(2)","IO","IOBS","IOF","ION","IOM","IOS","IOSL","IOST","IOST(0)","IOXY" I $D(@X) S ^XUTL("XQ",$J,X)=@X ; IHS/SET/GTH XB*3*9 10/29/2002
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
