1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Bull Inc., 1987                *
 4    *                                                         *
 5    * Copyright, (C) Honeywell Information Systems Inc., 1986 *
 6    *                                                         *
 7    *********************************************************** */
 8 
 9 /* HISTORY COMMENTS:
10   1) change(86-06-06,Rohs), approve(87-07-13,MCR7580), audit(87-07-13,Leskiw),
11      install(87-08-07,MR12.1-1072):
12      Created.
13                                                    END HISTORY COMMENTS */
14 
15 /* : PROCEDURE FUNCTION (stayres)
16 
17 Load the calling application into resident memory.
18 */
19 
20 #include <dos.h>
21 #include <cat.h>
22 
23 #define FUNCTION_NUMBER   0x31
24 #define STAYRES_FUNCTION  33
25 
26 extern int _TSIZE;
27 
28 stayres(mcbptr)
29 
30 mcb *mcbptr;                           /* Caller's MCB */
31 {
32 struct SREGS segregs;
33 union  REGS  inreg;
34 
35 /* : Generate DOS interrupt 0x31 */
36 
37    segread(&segregs);
38    inreg.x.dx = _TSIZE;
39    inreg.h.ah = FUNCTION_NUMBER;
40    int86(STAYRES_FUNCTION,&inreg,0);
41 }
42 ^Z