summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/MEM/MEM.C
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/MEM/MEM.C')
-rw-r--r--v4.0/src/CMD/MEM/MEM.C1674
1 files changed, 1674 insertions, 0 deletions
diff --git a/v4.0/src/CMD/MEM/MEM.C b/v4.0/src/CMD/MEM/MEM.C
new file mode 100644
index 0000000..624681e
--- /dev/null
+++ b/v4.0/src/CMD/MEM/MEM.C
@@ -0,0 +1,1674 @@
1
2/*----------------------------------------------------------------------+
3| |
4| |
5| Title: MEM |
6| |
7| Syntax: |
8| |
9| From the DOS command line: |
10| |
11| MEM |
12| - Used to display DOS memory map summary. |
13| |
14| MEM /PROGRAM |
15| - Used to display DOS memory map. |
16| |
17| MEM /DEBUG |
18| - Used to display a detailed DOS memory map. |
19| |
20| AN001 - PTM P2914 -> This PTM relates to MEM's ability to report|
21| the accurate total byte count for EM |
22| memory. |
23| |
24| AN002 - PTM P3477 -> MEM was displaying erroneous base memory |
25| information for "Total" and "Available" |
26| memory. This was due to incorrect logic |
27| for RAM carving. |
28| |
29| AN003 - PTM P3912 -> MEM messages do not conform to spec. |
30| PTM P3989 |
31| |
32| Date: 1/28/88 |
33| |
34| AN004 - PTM P4510 -> MEM does not give correct DOS size. |
35| |
36| Date: 4/27/88 |
37| |
38| AN005 - PTM P4957 -> MEM does not give correct DOS size for |
39| programs loaded into high memory. |
40| |
41| Date: 6/07/88 |
42| |
43+----------------------------------------------------------------------*/
44
45/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/
46
47#include "ctype.h" /* ;an000; */
48#include "conio.h" /* need for kbhit prototype */ /* ;an000; */
49#include "stdio.h" /* ;an000; */
50#include "dos.h" /* ;an000; */
51#include "string.h" /* ;an000; */
52#include "stdlib.h" /* ;an000; */
53#include "msgdef.h" /* ;an000; */
54#include "parse.h" /* ;an000; */
55
56/* #include "copyrigh.h" */ /* Only need one copyright statement an004 */
57 /* It is included by the message ret an004 */
58
59/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/
60
61 char *SingleDrive = "%c:" ; /* ;an000; */
62 char *MultipleDrives = "%c: - %c:" ; /* ;an000; */
63 char *UnOwned = "----------" ; /* ;an000; */
64 char *Ibmbio = "IO " ; /* ;an000; */
65 char *Ibmdos = "MSDOS " ;
66 /* ;an000; */
67 struct sublistx /* ;an000; */
68 { /* ;an000; */
69 unsigned char size; /* sublist size */ /* ;an000; */
70 unsigned char reserved; /* reserved for future growth */ /* ;an000; */
71 unsigned far *value; /* pointer to replaceable parm */ /* ;an000; */
72 unsigned char id; /* type of replaceable parm */ /* ;an000; */
73 unsigned char flags; /* how parm is to be displayed */ /* ;an000; */
74 unsigned char max_width; /* max width of replaceable field */ /* ;an000; */
75 unsigned char min_width; /* min width of replaceable field */ /* ;an000; */
76 unsigned char pad_char; /* pad character for replaceable field */ /* ;an000; */
77 } sublist[4]; /* ;an000; */
78 /* ;an000; */
79/*----------------------------------------------------------------------+
80| define structure used by parser |
81+----------------------------------------------------------------------*/
82
83struct p_parms p_p; /* ;an000; */
84 /* ;an000; */
85struct p_parmsx p_px; /* ;an000; */
86 /* ;an000; */
87struct p_control_blk p_con1; /* ;an000; */
88struct p_control_blk p_con2; /* ;an000; */
89 /* ;an000; */
90struct p_result_blk p_result1; /* ;an000; */
91struct p_result_blk p_result2; /* ;an000; */
92 /* ;an000; */
93struct p_value_blk p_noval; /* ;an000; */
94 /* ;an000; */
95 /* ;an000; */
96 struct DEVICEHEADER { /* ;an000; */
97 struct DEVICEHEADER far *NextDeviceHeader; /* ;an000; */
98 unsigned Attributes; /* ;an000; */
99 unsigned Strategy; /* ;an000; */
100 unsigned Interrupt; /* ;an000; */
101 char Name[8]; /* ;an000; */
102 }; /* ;an000; */
103 /* ;an000; */
104#define DA_TYPE 0x8000; /* ;an000; */
105#define DA_IOCTL 0x4000; /* ;an000; */
106 /* ;an000; */
107#define a(fp) ((char) fp) /* ;an000; */
108 /* ;an000; */
109/* defines used in EMS support */ /* ;an000; */
110 /* ;an000; */
111#define GET_VECT 0x35 /* EMS interrupt */ /* ;an000; */
112#define EMS 0x67 /* ;an000; */
113 /* ;an000; */
114#define CASSETTE 0x15 /* interrupt to get extended memory */ /* ;an000; */
115 /* ;an000; */
116#define DOSEMSVER 0x40 /* EMS version */ /* ;an000; */
117 /* ;an000; */
118#define EMSGetStat 0x4000 /* get stat */ /* ;an000; */
119#define EMSGetVer 0x4600 /* get version */ /* ;an000; */
120#define EMSGetFreePgs 0x4200 /* get free pages */ /* ;an000; */
121 /* ;an000; */
122#define GetExtended 0x8800 /* get extended memory size */ /* ;an000; */
123 /* ;an000; */
124 /* ;an000; */
125 /* ;an000; */
126/* defines used by total memory determination */ /* ;an000; */
127#define GET_PSP (unsigned char ) 0x62 /* get PSP function call */ /* ;an000; */
128
129#define MEMORY_DET 0x12 /* BIOS interrupt used to get total memory size */ /* ;an000; */
130 /* ;an000; */
131 struct SYSIVAR { /* ;an000; */
132 char far *DpbChain; /* ;an000; */
133 char far *SftChain; /* ;an000; */
134 char far *Clock; /* ;an000; */
135 char far *Con; /* ;an000; */
136 unsigned MaxSectorSize; /* ;an000; */
137 char far *BufferChain; /* ;an000; */
138 char far *CdsList; /* ;an000; */
139 char far *FcbChain; /* ;an000; */
140 unsigned FcbKeepCount; /* ;an000; */
141 unsigned char BlockDeviceCount; /* ;an000; */
142 char CdsCount; /* ;an000; */
143 struct DEVICEHEADER far *DeviceDriverChain; /* ;an000; */
144 unsigned NullDeviceAttributes; /* ;an000; */
145 unsigned NullDeviceStrategyEntryPoint; /* ;an000; */
146 unsigned NullDeviceInterruptEntryPoint; /* ;an000; */
147 char NullDeviceName[8]; /* ;an000; */
148 char SpliceIndicator; /* ;an000; */
149 unsigned DosParagraphs; /* ;an000; */
150 char far *DosServiceRntryPoint; /* ;an000; */
151 char far *IfsChain; /* ;an000; */
152 unsigned BufferValues; /* ;an000; */
153 unsigned LastDriveValue; /* ;an000; */
154 char BootDrive; /* ;an000; */
155 char MoveType;
156 unsigned ExtendedMemory;
157 }; /* ;an000; */
158 /* ;an000; */
159/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
160 /* ;an000; */
161 struct ARENA { /* ;an000; */
162 char Signature; /* ;an000; */
163 unsigned Owner; /* ;an000; */
164 unsigned Paragraphs; /* ;an000; */
165 char Dummy[3]; /* ;an000; */
166 char OwnerName[8]; /* ;an000; */
167 }; /* ;an000; */
168 /* ;an000; */
169/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
170 /* ;an000; */
171#define FALSE (char)(1==0) /* ;an000; */
172#define TRUE !(FALSE) /* ;an000; */
173#define CR '\x0d' /* ;an000; */
174#define LF '\x0a' /* ;an000; */
175#define NUL (char) '\0' /* ;an000; */
176#define TAB '\x09' /* ;an000; */
177#define BLANK ' ' /* ;an000; */
178 /* ;an000; */
179extern unsigned DOS_TopOfMemory; /* PSP Top of memory from 'C' init code */ /* ;an005; */
180
181/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
182 /* ;an000; */
183 unsigned far *ArenaHeadPtr; /* ;an000; */
184 struct SYSIVAR far *SysVarsPtr; /* ;an000; */
185 /* ;an000; */
186 char OwnerName[128]; /* ;an000; */
187 char TypeText[128]; /* ;an000; */
188 char cmd_line[128]; /* ;an000; */
189 char far *cmdline; /* ;an000; */
190 /* ;an000; */
191 char UseArgvZero = TRUE; /* ;an000; */
192 char EMSInstalledFlag = (char) 2; /* ;an000; */
193 /* ;an000; */
194 union REGS InRegs; /* ;an000; */
195 union REGS OutRegs; /* ;an000; */
196 struct SREGS SegRegs; /* ;an000; */
197 /* ;an000; */
198 int DataLevel; /* ;an000; */
199 int i; /* ;an000; */
200 /* ;an000; */
201 int BlockDeviceNumber; /* ;an000; */
202 unsigned Parse_Ptr; /* ;an003; dms; pointer to command */
203 /* ;an000; */
204/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
205 /* ;an000; */
206void main(int, char *[]); /* ;an000; */
207 /* ;an000; */
208int printf();
209int sprintf();
210int strcmp(const char *, const char *);
211int sscanf(); /* ;an000; */
212void exit(int); /* ;an000; */
213int kbhit(); /* ;an000; */
214char *OwnerOf(struct ARENA far *); /* ;an000; */
215char *TypeOf(struct ARENA far *); /* ;an000; */
216unsigned long AddressOf(char far *); /* ;an000; */
217 /* ;an000; */
218char EMSInstalled(void); /* ;an000; */
219void DisplayEMSSummary(void); /* ;an000; */
220void DisplayEMSDetail(void); /* ;an000; */
221 /* ;an000; */
222void DisplayBaseSummary(void); /* ;an000; */
223void DisplayExtendedSummary(void); /* ;an000; */
224void DisplayExpandedSummary(void); /* ;an000; */
225 /* ;an000; */
226void DisplayBaseDetail(void); /* ;an000; */
227 /* ;an000; */
228void GetFromArgvZero(unsigned,unsigned far *); /* ;an000; */
229 /* ;an000; */
230void DisplayDeviceDriver(struct DEVICEHEADER far *,int); /* ;an000; */
231 /* ;an000; */
232void parse_init(void); /* ;an000; */
233 /* ;an000; */
234void Parse_Message(int,int,unsigned char); /* ;an000; */
235void Sub0_Message(int,int,unsigned char); /* ;an000; */
236void Sub1_Message(int,int,unsigned char,unsigned long int *); /* ;an000; */
237void Sub2_Message(int,int,unsigned char,char *,int); /* ;an000; */
238void Sub3_Message(int,int,unsigned char, /* ;an000; */
239 char *, /* ;an000; */
240 unsigned long int *, /* ;an000; */
241 int); /* ;an000; */
242 /* ;an000; */
243void Sub4_Message(int,int,unsigned char, /* ;an000; */
244 unsigned long int *, /* ;an000; */
245 int, /* ;an000; */
246 unsigned long int *, /* ;an000; */
247 int); /* ;an000; */
248 /* ;an000; */
249void Sub4a_Message(int,int,unsigned char, /* ;an000; */
250 unsigned long int *, /* ;an000; */
251 char *, /* ;an000; */
252 unsigned long int *, /* ;an000; */
253 char *); /* ;an000; */
254 /* ;an000; */
255void EMSPrint(int,int,unsigned char, /* ;an000; */
256 int *, /* ;an000; */
257 char *, /* ;an000; */
258 unsigned long int *); /* ;an000; */
259 /* ;an000; */
260extern void sysloadmsg(union REGS *, union REGS *); /* ;an000; */
261extern void sysdispmsg(union REGS *, union REGS *); /* ;an000; */
262extern void sysgetmsg(union REGS *, struct SREGS *, union REGS *); /* ;an000; */
263extern void parse(union REGS *, union REGS *); /* ;an000; */
264 /* ;an000; */
265 /* ;an000; */
266/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
267 /* ;an000; */
268void main(argc,argv) /* ;an000; */
269int argc; /* ;an000; */
270char *argv[]; /* ;an000; */
271{ /* ;an000; */
272 /* ;an000; */
273 /* ;an000; */
274 /* ;an000; */
275 sysloadmsg(&InRegs,&OutRegs); /* ;an000; */
276 if ((OutRegs.x.cflag & CarryFlag) == CarryFlag) /* ;an000; */
277 { /* ;an000; */
278 sysdispmsg(&OutRegs,&OutRegs); /* ;an000; */
279 exit(1); /* ;an000; */
280 } /* ;an000; */
281 /* ;an000; */
282 /* ;an000; */
283 InRegs.h.ah = (unsigned char) 0x62; /* an000; dms; get the PSP */ /* ;an000; */
284 intdosx(&InRegs, &InRegs, &SegRegs); /* an000; dms; invoke the INT 21 */ /* ;an000; */
285 /* ;an000; */
286 FP_OFF(cmdline) = 0x81; /* an000; dms; offset of command line */ /* ;an000; */
287 FP_SEG(cmdline) = InRegs.x.bx; /* an000; dms; segment of command line */ /* ;an000; */
288 /* ;an000; */
289 i = 0; /* an000; dms; init index */ /* ;an000; */
290 while ( *cmdline != (char) '\x0d' ) cmd_line[i++] = *cmdline++; /* an000; dms; while no CR */ /* ;an000; */
291 cmd_line[i++] = (char) '\x0d'; /* an000; dms; CR terminate string */ /* ;an000; */
292 cmd_line[i++] = (char) '\0'; /* an000; dms; null terminate string */ /* ;an000; */
293 /* ;an000; */
294 DataLevel = 0; /* ;an000; */
295 /* ;an000; */
296 parse_init(); /* an000; dms; init for parser */ /* ;an000; */
297 InRegs.x.si = (unsigned)cmd_line; /* an000; dms; initialize to command ln.*/ /* ;an000; */
298 InRegs.x.cx = (unsigned)0; /* an000; dms; ordinal of 0 */ /* ;an000; */
299 InRegs.x.dx = (unsigned)0; /* an000; dms; init pointer */ /* ;an000; */
300 InRegs.x.di = (unsigned)&p_p; /* an000; dms; point to ctrl blocks */ /* ;an000; */
301 Parse_Ptr = (unsigned)cmd_line; /*;an003; dms; point to command */
302 /* ;an000; */
303 parse(&InRegs,&OutRegs); /* an000; dms; parse command line */ /* ;an000; */
304 while (OutRegs.x.ax == p_no_error) /* an000; dms; good parse loop */ /* ;an000; */
305 { /* ;an000; */
306 if (p_result1.P_SYNONYM_Ptr == (unsigned int)p_con1.p_keyorsw) /* an000; dms; DEBUG switch */ /* ;an000; */
307 DataLevel = 2; /* an000; dms; flag DEBUG switch */ /* ;an000; */
308 if (p_result2.P_SYNONYM_Ptr == (unsigned int)p_con2.p_keyorsw) /* an000; dms; PROGRAM switch */ /* ;an000; */
309 DataLevel = 1; /* an000; dms; flag PROGRAM switch */ /* ;an000; */
310 Parse_Ptr = OutRegs.x.si; /* an003; dms; point to next parm */
311 parse(&OutRegs,&OutRegs); /* an000; dms; parse the line */ /* ;an000; */
312 if (OutRegs.x.ax == p_no_error) /* an000; dms; check for > 1 switch */ /* ;an000; */
313 OutRegs.x.ax = p_too_many; /* an000; dms; flag too many */ /* ;an000; */
314 } /* ;an000; */
315 /* ;an000; */
316 if (OutRegs.x.ax != p_rc_eol) /* an000; dms; parse error? */ /* ;an000; */
317 { /* ;an000; */
318 Parse_Message(OutRegs.x.ax,STDERR,Parse_Err_Class); /* an000; dms; display parse error */ /* ;an000; */
319 exit(1); /* an000; dms; exit the program */ /* ;an000; */
320 } /* ;an000; */
321 /* ;an000; */
322 /* ;an000; */
323 if (DataLevel > 0) /* ;an000; */
324 { /* ;an000; */
325 DisplayBaseDetail(); /* ;an000; */
326 } /* ;an000; */
327 /* ;an000; */
328 /* ;an000; */
329 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
330 DisplayBaseSummary(); /* display low memory totals */ /* ;an000; */
331 /* ;an000; */
332 if (EMSInstalled() && (DataLevel > 1)) /* ;an000; */
333 DisplayEMSDetail(); /* display EMS memory totals */ /* ;an000; */
334 /* ;an000; */
335 /* ;an000; */
336 if (EMSInstalled()) /* ;an000; */
337 DisplayEMSSummary(); /* display EMS memory totals */ /* ;an000; */
338 /* ;an000; */
339 DisplayExtendedSummary(); /* display extended memory summary */ /* ;an000; */
340 /* ;an000; */
341 return; /* end of MEM main routine */ /* ;an000; */
342 /* ;an000; */
343 } /* ;an000; */
344 /* ;an000; */
345/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
346 /* ;an000; */
347void DisplayBaseDetail() /* ;an000; */
348{ /* ;an000; */
349 /* ;an000; */
350 struct ARENA far *ThisArenaPtr; /* ;an000; */
351 struct ARENA far *NextArenaPtr; /* ;an000; */
352 struct ARENA far *ThisConfigArenaPtr; /* ;an000; */
353 struct ARENA far *NextConfigArenaPtr; /* ;an000; */
354 /* ;an000; */
355 struct DEVICEHEADER far *ThisDeviceDriver; /* ;an000; */
356 /* ;an000; */
357 int SystemDataType; /* ;an000; */
358 char SystemDataOwner[64]; /* ;an000; */
359 /* ;an000; */
360 int i; /* ;an000; */
361 unsigned int long Out_Var1; /* ;an000; */
362 unsigned int long Out_Var2; /* ;an000; */
363 char Out_Str1[64]; /* ;an000; */
364 char Out_Str2[64]; /* ;an000; */
365 /* ;an000; */
366 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
367 if (DataLevel > 0) /* ;an000; */
368 { /* ;an000; */
369 Sub0_Message(Title1Msg,STDOUT,Utility_Msg_Class); /* ;an000; */
370 Sub0_Message(Title2Msg,STDOUT,Utility_Msg_Class); /* ;an000; */
371 } /* ;an000; */
372 /* ;an000; */
373 InRegs.h.ah = (unsigned char) 0x30; /* ;an000; */
374 intdos(&InRegs, &OutRegs); /* ;an000; */
375 /* ;an000; */
376 if ( (OutRegs.h.al != (unsigned char) 3) || (OutRegs.h.ah < (unsigned char) 40) ) /* ;an000; */
377 UseArgvZero = TRUE; /* ;an000; */
378 else UseArgvZero = FALSE; /* ;an000; */
379 /* ;an000; */
380 /* Display stuff below DOS */ /* ;an000; */
381 /* ;an000; */
382 Out_Var1 = 0l; /* ;an000; */
383 Out_Var2 = 0x400l; /* ;an000; */
384 Sub4_Message(MainLineMsg, /* ;an000; */
385 STDOUT, /* ;an000; */
386 Utility_Msg_Class, /* ;an000; */
387 &Out_Var1, /* ;an000; */
388 BlankMsg, /* ;an000; */
389 &Out_Var2, /* ;an000; */
390 InterruptVectorMsg); /* ;an000; */
391 /* ;an000; */
392 Out_Var1 = 0x400l; /* ;an000; */
393 Out_Var2 = 0x100l; /* ;an000; */
394 Sub4_Message(MainLineMsg, /* ;an000; */
395 STDOUT, /* ;an000; */
396 Utility_Msg_Class, /* ;an000; */
397 &Out_Var1, /* ;an000; */
398 BlankMsg, /* ;an000; */
399 &Out_Var2, /* ;an000; */
400 ROMCommunicationAreaMsg); /* ;an000; */
401 /* ;an000; */
402 Out_Var1 = 0x500l; /* ;an000; */
403 Out_Var2 = 0x200l; /* ;an000; */
404 Sub4_Message(MainLineMsg, /* ;an000; */
405 STDOUT, /* ;an000; */
406 Utility_Msg_Class, /* ;an000; */
407 &Out_Var1, /* ;an000; */
408 BlankMsg, /* ;an000; */
409 &Out_Var2, /* ;an000; */
410 DOSCommunicationAreaMsg); /* ;an000; */
411 /* ;an000; */
412 /* Display the DOS data */ /* ;an000; */
413 /* ;an000; */
414 InRegs.h.ah = (unsigned char) 0x52; /* ;an000; */
415 intdosx(&InRegs,&OutRegs,&SegRegs); /* ;an000; */
416 /* ;an000; */
417 FP_SEG(SysVarsPtr) = SegRegs.es; /* ;an000; */
418 FP_OFF(SysVarsPtr) = OutRegs.x.bx; /* ;an000; */
419 /* ;an000; */
420 /* Display the BIO location and size */ /* ;an000; */
421 /* ;an000; */
422 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
423 /* ;an000; */
424 /* ;an000; */
425 Out_Var1 = 0x700l; /* ;an000; */
426 Out_Var2 = (long) (FP_SEG(SysVarsPtr) - 0x70)*16l; /* ;an000; */
427 Sub4_Message(MainLineMsg, /* ;an000; */
428 STDOUT, /* ;an000; */
429 Utility_Msg_Class, /* ;an000; */
430 &Out_Var1, /* ;an000; */
431 IbmbioMsg, /* ;an000; */
432 &Out_Var2, /* ;an000; */
433 SystemProgramMsg); /* ;an000; */
434 /* ;an000; */
435 /* Display the Base Device Driver Locations and Sizes */ /* ;an000; */
436 /* ;an000; */
437 BlockDeviceNumber = 0; /* ;an000; */
438 /* ;an000; */
439 for (ThisDeviceDriver = SysVarsPtr -> DeviceDriverChain; /* ;an000; */
440 (FP_OFF(ThisDeviceDriver) != 0xFFFF); /* ;an000; */
441 ThisDeviceDriver = ThisDeviceDriver -> NextDeviceHeader) /* ;an000; */
442 { if ( FP_SEG(ThisDeviceDriver) < FP_SEG(SysVarsPtr) ) /* ;an000; */
443 DisplayDeviceDriver(ThisDeviceDriver,SystemDeviceDriverMsg); /* ;an000; */
444 kbhit(); /* ;an000; */
445 } /* ;an000; */
446 /* ;an000; */
447 /* Display the DOS location and size */ /* ;an000; */
448
449 FP_SEG(ArenaHeadPtr) = FP_SEG(SysVarsPtr); /* ;an004; */
450 FP_OFF(ArenaHeadPtr) = FP_OFF(SysVarsPtr) - 2; /* ;an004; */
451 /* ;an004; */
452 FP_SEG(ThisArenaPtr) = *ArenaHeadPtr; /* ;an004; */
453 FP_OFF(ThisArenaPtr) = 0; /* ;an004; */
454 /* ;an000; */
455 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
456 /* ;an000; */
457 Out_Var1 = (long) FP_SEG(SysVarsPtr) * 16l; /* ;an000; */
458 Out_Var2 = (long) ((AddressOf((char far *)ThisArenaPtr)) - Out_Var1); /* ;ac004; */
459 Sub4_Message(MainLineMsg, /* ;an000; */
460 STDOUT, /* ;an000; */
461 Utility_Msg_Class, /* ;an000; */
462 &Out_Var1, /* ;an000; */
463 IbmdosMsg, /* ;an000; */
464 &Out_Var2, /* ;an000; */
465 SystemProgramMsg); /* ;an000; */
466 /* ;an000; */
467 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
468 /* ;an000; */
469 /* Display the memory data */ /* ;an000; */
470 /* ;an000; */
471 while (ThisArenaPtr -> Signature != (char) 'Z') /* ;an000; */
472 { /* ;an000; */
473 /* ;an000; */
474 if (ThisArenaPtr -> Owner == 8) /* ;an000; */
475 { /* ;an000; */
476 /* ;an000; */
477 /* ;an000; */
478 Out_Var1 = AddressOf((char far *)ThisArenaPtr); /* ;an000; */
479 Out_Var2 = (long) (ThisArenaPtr -> Paragraphs) * 16l; /* ;an000; */
480 Sub4_Message(MainLineMsg, /* ;an000; */
481 STDOUT, /* ;an000; */
482 Utility_Msg_Class, /* ;an000; */
483 &Out_Var1, /* ;an000; */
484 IbmbioMsg, /* ;an000; */
485 &Out_Var2, /* ;an000; */
486 SystemDataMsg); /* ;an000; */
487 /* ;an000; */
488 FP_SEG(NextArenaPtr) = FP_SEG(ThisArenaPtr) + ThisArenaPtr -> Paragraphs + 1; /* ;an000; */
489 FP_OFF(NextArenaPtr) = 0; /* ;an000; */
490 /* ;an000; */
491 FP_SEG(ThisConfigArenaPtr) = FP_SEG(ThisArenaPtr) + 1; /* ;an000; */
492 FP_OFF(ThisConfigArenaPtr) = 0; /* ;an000; */
493 /* ;an000; */
494 /* ;an000; */
495 while ( (FP_SEG(ThisConfigArenaPtr) > FP_SEG(ThisArenaPtr)) && /* ;an000; */
496 (FP_SEG(ThisConfigArenaPtr) < FP_SEG(NextArenaPtr)) ) /* ;an000; */
497 { /* ;an000; */
498 strcpy(SystemDataOwner," "); /* ;an000; */
499 switch(ThisConfigArenaPtr -> Signature) /* ;an000; */
500 { /* ;an000; */
501 case 'B': /* ;an000; */
502 SystemDataType = ConfigBuffersMsg; /* ;an000; */
503 break; /* ;an000; */
504 case 'D': /* ;an000; */
505 SystemDataType = ConfigDeviceMsg; /* ;an000; */
506 strcpy(SystemDataOwner,OwnerOf(ThisConfigArenaPtr)); /* ;an000; */
507 break; /* ;an000; */
508 case 'F': /* ;an000; */
509 SystemDataType = ConfigFilesMsg; /* ;an000; */
510 break; /* ;an000; */
511 case 'I': /* ;an000; */
512 SystemDataType = ConfigIFSMsg; /* ;an000; */
513 strcpy(SystemDataOwner,OwnerOf(ThisConfigArenaPtr)); /* ;an000; */
514 break; /* ;an000; */
515 case 'L': /* ;an000; */
516 SystemDataType = ConfigLastDriveMsg; /* ;an000; */
517 break; /* ;an000; */
518 case 'S': /* ;an000; */
519 SystemDataType = ConfigStacksMsg; /* ;an000; */
520 break; /* ;an000; */
521 case 'T': /* gga */ /* ;an000; */
522 SystemDataType = ConfigInstallMsg; /* gga */ /* ;an000; */
523 break; /* gga */ /* ;an000; */
524 case 'X': /* ;an000; */
525 SystemDataType = ConfigFcbsMsg; /* ;an000; */
526 break; /* ;an000; */
527 default: /* ;an000; */
528 SystemDataType = BlankMsg; /* ;an000; */
529 break; /* ;an000; */
530 } /* ;an000; */
531 Out_Var1 = ((long) ThisConfigArenaPtr -> Paragraphs) * 16l; /* ;an000; */
532 Sub3_Message(DriverLineMsg, /* ;an000; */
533 STDOUT, /* ;an000; */
534 Utility_Msg_Class, /* ;an000; */
535 SystemDataOwner, /* ;an000; */
536 &Out_Var1, /* ;an000; */
537 SystemDataType ); /* ;an000; */
538 /* ;an000; */
539 NextConfigArenaPtr = ThisConfigArenaPtr; /* ;an000; */
540 FP_SEG(NextConfigArenaPtr) += NextConfigArenaPtr -> Paragraphs + 1; /* ;an000; */
541 if (ThisConfigArenaPtr -> Signature == (char) 'D') /* ;an000; */
542 { /* ;an000; */
543 /* ;an000; */
544 FP_SEG(ThisDeviceDriver) = FP_SEG(ThisConfigArenaPtr) + 1; /* ;an000; */
545 FP_OFF(ThisDeviceDriver) = 0; /* ;an000; */
546 while ( (a(ThisDeviceDriver) > a(ThisConfigArenaPtr)) && /* ;an000; */
547 (a(ThisDeviceDriver) < a(NextConfigArenaPtr)) ) /* ;an000; */
548 DisplayDeviceDriver(ThisDeviceDriver,InstalledDeviceDriverMsg); /* ;an000; */
549 } /* ;an000; */
550 /* ;an000; */
551 FP_SEG(ThisConfigArenaPtr) += ThisConfigArenaPtr -> Paragraphs + 1; /* ;an000; */
552 /* ;an000; */
553 } /* ;an000; */
554 /* ;an000; */
555 } /* ;an000; */
556 else { /* ;an000; */
557 /* ;an000; */
558 Out_Var1 = AddressOf((char far *)ThisArenaPtr); /* ;an000; */
559 Out_Var2 = ((long) (ThisArenaPtr -> Paragraphs)) * 16l; /* ;an000; */
560 strcpy(Out_Str1,OwnerOf(ThisArenaPtr)); /* ;an000; */
561 strcpy(Out_Str2,TypeOf(ThisArenaPtr)); /* ;an000; */
562 Sub4a_Message(MainLineMsg, /* ;an000; */
563 STDOUT, /* ;an000; */
564 Utility_Msg_Class, /* ;an000; */
565 &Out_Var1, /* ;an000; */
566 Out_Str1, /* ;an000; */
567 &Out_Var2, /* ;an000; */
568 Out_Str2); /* ;an000; */
569 } /* ;an000; */
570 /* ;an000; */
571 FP_SEG(ThisArenaPtr) += ThisArenaPtr -> Paragraphs + 1; /* ;an000; */
572 /* ;an000; */
573 } /* ;an000; */
574 Out_Var1 = AddressOf((char far *)ThisArenaPtr); /* ;an000; */
575 Out_Var2 = ((long) (ThisArenaPtr -> Paragraphs)) * 16l; /* ;an000; */
576 strcpy(Out_Str1,OwnerOf(ThisArenaPtr)); /* ;an000; */
577 strcpy(Out_Str2,TypeOf(ThisArenaPtr)); /* ;an000; */
578 Sub4a_Message(MainLineMsg, /* ;an000; */
579 STDOUT, /* ;an000; */
580 Utility_Msg_Class, /* ;an000; */
581 &Out_Var1, /* ;an000; */
582 Out_Str1, /* ;an000; */
583 &Out_Var2, /* ;an000; */
584 Out_Str2); /* ;an000; */
585 /* ;an000; */
586 /* ;an000; */
587 return; /* end of MEM main routine */ /* ;an000; */
588 /* ;an000; */
589 } /* ;an000; */
590 /* ;an000; */
591 /* ;an000; */
592 /* ;an000; */
593/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
594 /* ;an000; */
595void DisplayDeviceDriver(ThisDeviceDriver,DeviceDriverType) /* ;an000; */
596struct DEVICEHEADER far *ThisDeviceDriver; /* ;an000; */
597int DeviceDriverType; /* ;an000; */
598{ /* ;an000; */
599 char LocalDeviceName[16]; /* ;an000; */
600 int i; /* ;an000; */
601 /* ;an000; */
602 if (DataLevel < 2) return; /* ;an000; */
603 /* ;an000; */
604 if ( ((ThisDeviceDriver -> Attributes) & 0x8000 ) != 0 ) /* ;an000; */
605 { for (i = 0; i < 8; i++) LocalDeviceName[i] = ThisDeviceDriver -> Name[i]; /* ;an000; */
606 LocalDeviceName[8] = NUL; /* ;an000; */
607 /* ;an000; */
608 Sub2_Message(DeviceLineMsg, /* ;an000; */
609 STDOUT, /* ;an000; */
610 Utility_Msg_Class, /* ;an000; */
611 LocalDeviceName, /* ;an000; */
612 DeviceDriverType); /* ;an000; */
613 /* ;an000; */
614 } /* ;an000; */
615 /* ;an000; */
616 else { /* ;an000; */
617 if ((int) ThisDeviceDriver -> Name[0] == 1) /* ;an000; */
618 sprintf(&LocalDeviceName[0],SingleDrive,'A'+BlockDeviceNumber); /* ;an000; */
619 else sprintf(&LocalDeviceName[0],MultipleDrives, /* ;an000; */
620 'A'+BlockDeviceNumber, /* ;an000; */
621 'A'+BlockDeviceNumber + ((int) ThisDeviceDriver -> Name[0]) - 1); /* ;an000; */
622 /* ;an000; */
623 Sub2_Message(DeviceLineMsg, /* ;an000; */
624 STDOUT, /* ;an000; */
625 Utility_Msg_Class, /* ;an000; */
626 LocalDeviceName, /* ;an000; */
627 DeviceDriverType); /* ;an000; */
628 /* ;an000; */
629 BlockDeviceNumber += (int) (ThisDeviceDriver -> Name[0]); /* ;an000; */
630 /* ;an000; */
631 } /* ;an000; */
632 /* ;an000; */
633 return; /* ;an000; */
634 /* ;an000; */
635 } /* ;an000; */
636 /* ;an000; */
637 /* ;an000; */
638/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
639 /* ;an000; */
640void DisplayBaseSummary() /* ;an000; */
641 { /* ;an000; */
642 /* ;an000; */
643 struct PSP_STRUC /* ;an000; */
644 { /* ;an000; */
645 unsigned int int_20; /* ;an000; */
646 unsigned int top_of_memory; /* ;an000; */
647 }; /* ;an000; */
648 /* ;an000; */
649 char far *CarvedPtr; /* ;an000; */
650 /* ;an000; */
651 unsigned long int total_mem; /* total memory in system */ /* ;an000; */
652 unsigned long int avail_mem; /* avail memory in system */ /* ;an000; */
653 unsigned long int free_mem; /* free memory */ /* ;an000; */
654 struct PSP_STRUC far *PSPptr; /* ;an000; */
655 /* ;an000; */
656/* skip a line */ /* ;an000; */
657 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
658 /* ;an000; */
659/* get PSP info */ /* ;an000; */
660 InRegs.h.ah = GET_PSP; /* get PSP function call */ /* ;an000; */
661 intdos(&InRegs,&OutRegs); /* ;an000; */
662 /* ;an000; */
663 FP_SEG(PSPptr) = OutRegs.x.bx; /* PSP segment */ /* ;an000; */
664 FP_OFF(PSPptr) = 0; /* offset 0 */ /* ;an000; */
665
666/* Get total memory in system */ /* ;an000; */
667 int86(MEMORY_DET,&InRegs,&OutRegs); /* ;an000; */
668 /* ;an000; */
669/* Convert to bytes */ /* ;an000; */
670 total_mem = (unsigned long int) OutRegs.x.ax * 1024l; /* ;an000; */
671 avail_mem = total_mem;
672 InRegs.x.bx = 0; /* ;an000; */
673 InRegs.x.ax = 0xc100; /* ;an000; */
674 int86x(0x15, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
675 if (OutRegs.x.cflag == 0) /* ;an000; */
676 { /* ;an000; */
677 FP_SEG(CarvedPtr) = SegRegs.es; /* ;an000; */
678 FP_OFF(CarvedPtr) = 0; /* ;an000; */
679 total_mem = total_mem + ( (unsigned long int) (*CarvedPtr) * 1024l) ; /* ;an002; dms;adjust total for */
680 } /* RAM carve value */
681 /* ;an000; */
682 Sub1_Message(TotalMemoryMsg,STDOUT,Utility_Msg_Class,&total_mem); /* ;an000; */
683 /* ;an000; */
684 Sub1_Message(AvailableMemoryMsg,STDOUT,Utility_Msg_Class,&avail_mem); /* ;an000; */
685 /* ;an000; */
686/* Calculate the total memory used. PSP segment * 16. Subtract from total to get free_mem */ /* ;an000; */
687 free_mem = (DOS_TopOfMemory * 16l) - (FP_SEG(PSPptr)*16l); /* ;an000;ac005; */
688 /* ;an000; */
689 Sub1_Message(FreeMemoryMsg,STDOUT,Utility_Msg_Class,&free_mem); /* ;an000; */
690 /* ;an000; */
691 /* ;an000; */
692 /* ;an000; */
693 return; /* ;an000; */
694 /* ;an000; */
695 } /* end of display_low_total */ /* ;an000; */
696 /* ;an000; */
697 /* ;an000; */
698/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
699 /* ;an000; */
700void DisplayEMSDetail() /* ;an000; */
701 { /* ;an000; */
702 /* ;an000; */
703#define EMSGetHandleName 0x5300 /* get handle name function */ /* ;an000; */
704#define EMSGetHandlePages 0x4c00 /* get handle name function */ /* ;an000; */
705#define EMSCODE_83 0x83 /* handle not found error */ /* ;an000; */
706#define EMSMaxHandles 256 /* max number handles */ /* ;an000; */
707 /* ;an000; */
708 int HandleIndex; /* used to step through handles */ /* ;an000; */
709 char HandleName[9]; /* save area for handle name */ /* ;an000; */
710 unsigned long int HandleMem; /* memory associated w/handle */ /* ;an000; */
711 char TitlesPrinted = FALSE; /* flag for printing titles */ /* ;an000; */
712 /* ;an000; */
713 HandleName[0] = NUL; /* initialize the array */ /* ;an000; */
714 /* ;an000; */
715 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
716 /* ;an000; */
717 segread(&SegRegs); /* ;an000; */
718 /* ;an000; */
719 SegRegs.es = SegRegs.ds; /* ;an000; */
720 /* ;an000; */
721 for (HandleIndex = 0; HandleIndex < EMSMaxHandles; HandleIndex++) /* ;an000; */
722 { /* ;an000; */
723 /* ;an000; */
724 InRegs.x.ax = EMSGetHandleName; /* get handle name */ /* ;an000; */
725 InRegs.x.dx = HandleIndex; /* handle in question */ /* ;an000; */
726 InRegs.x.di = (unsigned int) HandleName; /* point to handle name */ /* ;an000; */
727 int86x(EMS, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
728 /* ;an000; */
729 HandleName[8] = NUL; /* make sure terminated w/nul */ /* ;an000; */
730 /* ;an000; */
731 if (OutRegs.h.ah != EMSCODE_83) /* ;an000; */
732 { /* ;an000; */
733 InRegs.x.ax = EMSGetHandlePages; /* get pages assoc w/this handle */ /* ;an000; */
734 InRegs.x.dx = HandleIndex; /* ;an000; */
735 int86x(EMS, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
736 HandleMem = OutRegs.x.bx; /* ;an000; */
737 HandleMem *= (long) (16l*1024l); /* ;an000; */
738 /* ;an000; */
739 if (!TitlesPrinted) /* ;an000; */
740 { /* ;an000; */
741 Sub0_Message(Title3Msg,STDOUT,Utility_Msg_Class); /* ;an000; */
742 Sub0_Message(Title4Msg,STDOUT,Utility_Msg_Class); /* ;an000; */
743 TitlesPrinted = TRUE; /* ;an000; */
744 } /* ;an000; */
745 /* ;an000; */
746 if (HandleName[0] == NUL) strcpy(HandleName," "); /* ;an000; */
747 EMSPrint(HandleMsg, /* ;an000; */
748 STDOUT, /* ;an000; */
749 Utility_Msg_Class, /* ;an000; */
750 &HandleIndex, /* ;an000; */
751 HandleName, /* ;an000; */
752 &HandleMem); /* ;an000; */
753 } /* ;an000; */
754 /* ;an000; */
755 } /* end for (HandleIndex = 0; HandleIndex < EMSMaxHandles;HandleIndex++) */ /* ;an000; */
756 /* ;an000; */
757 return; /* ;an000; */
758 /* ;an000; */
759 } /* end of DisplayEMSDetail */ /* ;an000; */
760 /* ;an000; */
761 /* ;an000; */
762 /* ;an000; */
763/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
764 /* ;an000; */
765void DisplayExtendedSummary() /* ;an000; */
766 { /* ;an000; */
767 /* ;an000; */
768 unsigned long int EXTMemoryTot; /* ;an000; */
769 /* ;an000; */
770 InRegs.h.ah = (unsigned char) 0x52; /* Get SysVar Pointer ;an001; dms;*/
771 intdosx(&InRegs,&OutRegs,&SegRegs); /* Invoke interrupt ;an001; dms;*/
772 /* ;an000; */
773 FP_SEG(SysVarsPtr) = SegRegs.es; /* put pointer in var ;an001; dms;*/
774 FP_OFF(SysVarsPtr) = OutRegs.x.bx; /* ;an001; dms;*/
775 if ((SysVarsPtr) -> ExtendedMemory != 0) /* extended memory? ;an001; dms;*/
776 { /* yes ;an001; dms;*/
777 EXTMemoryTot = (long) (SysVarsPtr) -> ExtendedMemory; /* get total EM size ;an001; dms;*/
778 EXTMemoryTot *= (long) 1024l; /* at boot time ;an001; dms;*/
779 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* print blank line ;an001; dms;*/
780 Sub1_Message(EXTMemoryMsg,STDOUT,Utility_Msg_Class,&EXTMemoryTot); /* print total EM mem ;an001; dms;*/
781 /* ;an000; */
782 OutRegs.x.cflag = 0; /* clear carry flag ;an001; dms;*/
783 InRegs.x.ax = GetExtended; /* get extended mem ;an001; dms;*/
784 /* available */
785 int86(CASSETTE, &InRegs, &OutRegs); /* INT 15h call ;an001; dms;*/
786
787 EXTMemoryTot = (long) OutRegs.x.ax; /* returns 1K mem blocks;an001; dms;*/
788 EXTMemoryTot *= (long) 1024l; /* convert to bytes ;an001; dms;*/
789
790 Sub1_Message(EXTMemAvlMsg,STDOUT,Utility_Msg_Class,&EXTMemoryTot); /* display available ;an001; dms;*/
791 }
792
793 /* ;an000; */
794 return; /* ;an000; */
795 /* ;an000; */
796 } /* end of DisplayExtendedSummary */ /* ;an000; */
797 /* ;an000; */
798 /* ;an000; */
799 /* ;an000; */
800 /* ;an000; */
801 /* ;an000; */
802/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
803 /* ;an000; */
804void DisplayEMSSummary() /* ;an000; */
805 { /* ;an000; */
806 /* ;an000; */
807 unsigned long int EMSFreeMemoryTot; /* ;an000; */
808 unsigned long int EMSAvailMemoryTot; /* ;an000; */
809 /* ;an000; */
810 Sub0_Message(NewLineMsg,STDOUT,Utility_Msg_Class); /* ;an000; */
811 /* ;an000; */
812 InRegs.x.ax = EMSGetFreePgs; /* get total number unallocated pages */ /* ;an000; */
813 int86x(EMS, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
814 /* ;an000; */
815 EMSFreeMemoryTot = OutRegs.x.bx; /* total unallocated pages in BX */ /* ;an000; */
816 EMSFreeMemoryTot *= (long) (16l*1024l); /* ;an000; */
817 /* ;an000; */
818 EMSAvailMemoryTot = OutRegs.x.dx; /* total pages */ /* ;an000; */
819 EMSAvailMemoryTot *= (long) (16l*1024l); /* ;an000; */
820 /* ;an000; */
821 Sub1_Message(EMSTotalMemoryMsg,STDOUT,Utility_Msg_Class,&EMSAvailMemoryTot); /* ;an000; */
822 Sub1_Message(EMSFreeMemoryMsg,STDOUT,Utility_Msg_Class,&EMSFreeMemoryTot); /* ;an000; */
823 /* ;an000; */
824 return; /* ;an000; */
825 /* ;an000; */
826 } /* end of DisplayEMSSummary */ /* ;an000; */
827 /* ;an000; */
828 /* ;an000; */
829/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
830 /* ;an000; */
831 /* ;an000; */
832char EMSInstalled() /* ;an000; */
833 { /* ;an000; */
834 /* ;an000; */
835 unsigned int EMSStatus; /* ;an000; */
836 unsigned int EMSVersion; /* ;an000; */
837 char ReturnFlag; /* ;an000; */
838 /* ;an000; */
839 if (EMSInstalledFlag == 2) /* ;an000; */
840 { /* ;an000; */
841 EMSInstalledFlag = FALSE; /* ;an000; */
842 InRegs.h.ah = GET_VECT; /* get int 67 vector */ /* ;an000; */
843 InRegs.h.al = EMS; /* ;an000; */
844 intdosx(&InRegs,&OutRegs,&SegRegs); /* ;an000; */
845 /* ;an000; */
846 /* only want to try this if vector is non-zero */ /* ;an000; */
847 /* ;an000; */
848 /* ;an000; */
849 if ((SegRegs.es != 0) && (OutRegs.x.bx != 0)) /* ;an000; */
850 { /* ;an000; */
851 InRegs.x.ax = EMSGetStat; /* get EMS status */ /* ;an000; */
852 int86x(EMS, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
853 EMSStatus = OutRegs.h.ah; /* EMS status returned in AH */ /* ;an000; */
854 /* ;an000; */
855 InRegs.x.ax = EMSGetVer; /* get EMS version */ /* ;an000; */
856 int86x(EMS, &InRegs, &OutRegs, &SegRegs); /* ;an000; */
857 EMSVersion = OutRegs.h.al; /* EMS version returned in AL */ /* ;an000; */
858 /* ;an000; */
859 if ((EMSStatus == 0) && (EMSVersion >= DOSEMSVER)) /* ;an000; */
860 EMSInstalledFlag = TRUE; /* ;an000; */
861 else /* ;an000; */
862 EMSInstalledFlag = FALSE; /* ;an000; */
863 /* ;an000; */
864 } /* end ((SegRegs.es != 0) && (OutRegs.x.bx != 0)) */ /* ;an000; */
865 /* ;an000; */
866 } /* end if (EMSInstalledFlag == 2) */ /* ;an000; */
867 /* ;an000; */
868 /* ;an000; */
869 return(EMSInstalledFlag); /* ;an000; */
870 /* ;an000; */
871 /* ;an000; */
872 } /* ;an000; */
873 /* ;an000; */
874 /* ;an000; */
875/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
876 /* ;an000; */
877 /* ;an000; */
878char *OwnerOf(ArenaPtr) /* ;an000; */
879struct ARENA far *ArenaPtr; /* ;an000; */
880{ /* ;an000; */
881 /* ;an000; */
882 char far *StringPtr; /* ;an000; */
883 unsigned far *WordPtr; /* ;an000; */
884 char *o; /* ;an000; */
885 unsigned far *EnvironmentSegmentPtr; /* ;an000; */
886 unsigned PspSegment; /* ;an000; */
887 int i; /* ;an000; */
888 /* ;an000; */
889 o = &OwnerName[0]; /* ;an000; */
890 *o = NUL; /* ;an000; */
891 sprintf(o,UnOwned); /* ;an000; */
892 /* ;an000; */
893 PspSegment = ArenaPtr -> Owner; /* ;an000; */
894 /* ;an000; */
895 /* ;an000; */
896 if (PspSegment == 0) sprintf(o,Ibmdos); /* ;an000; */
897 else if (PspSegment == 8) sprintf(o,Ibmbio); /* ;an000; */
898 else { /* ;an000; */
899 FP_SEG(ArenaPtr) = PspSegment-1; /* -1 'cause Arena is 16 bytes before PSP */ /* ;an000; */
900 StringPtr = (char far *) &(ArenaPtr -> OwnerName[0]); /* ;an000; */
901 for (i = 0; i < 8; i++) *o++ = *StringPtr++; /* ;an000; */
902 *o = (char) '\0'; /* ;an000; */
903 } /* ;an000; */
904 /* ;an000; */
905 if (UseArgvZero) GetFromArgvZero(PspSegment,EnvironmentSegmentPtr); /* ;an000; */
906 /* ;an000; */
907 return(&OwnerName[0]); /* ;an000; */
908 /* ;an000; */
909 } /* ;an000; */
910 /* ;an000; */
911 /* ;an000; */
912/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
913 /* ;an000; */
914void GetFromArgvZero(PspSegment,EnvironmentSegmentPtr) /* ;an000; */
915unsigned PspSegment; /* ;an000; */
916unsigned far *EnvironmentSegmentPtr; /* ;an000; */
917{ /* ;an000; */
918 /* ;an000; */
919 char far *StringPtr; /* ;an000; */
920 char *OutputPtr; /* ;an000; */
921 unsigned far *WordPtr; /* ;an000; */
922 /* ;an000; */
923 OutputPtr = &OwnerName[0]; /* ;an000; */
924 /* ;an000; */
925 if (UseArgvZero) /* ;an000; */
926 { /* ;an000; */
927 if (PspSegment < FP_SEG(ArenaHeadPtr)) /* ;an000; */
928 { /* ;an000; */
929 if (*OutputPtr == NUL) sprintf(OutputPtr,Ibmdos); /* ;an000; */
930 } /* ;an000; */
931 else { /* ;an000; */
932 FP_SEG(EnvironmentSegmentPtr) = PspSegment; /* ;an000; */
933 FP_OFF(EnvironmentSegmentPtr) = 44; /* ;an000; */
934 /* ;an000; */
935/* FP_SEG(StringPtr) = *EnvironmentSegmentPtr; */ /* ;an000; */
936 FP_SEG(StringPtr) = FP_SEG(EnvironmentSegmentPtr); /* ;an000; */
937 FP_OFF(StringPtr) = 0; /* ;an000; */
938 /* ;an000; */
939 while ( (*StringPtr != NUL) || (*(StringPtr+1) != NUL) ) StringPtr++; /* ;an000; */
940 /* ;an000; */
941 StringPtr += 2; /* ;an000; */
942 WordPtr = (unsigned far *) StringPtr; /* ;an000; */
943 /* ;an000; */
944 if (*WordPtr == 1) /* ;an000; */
945 { /* ;an000; */
946 StringPtr += 2; /* ;an000; */
947 while (*StringPtr != NUL) /* ;an000; */
948 *OutputPtr++ = *StringPtr++; /* ;an000; */
949 *OutputPtr++ = NUL; /* ;an000; */
950 /* ;an000; */
951 while ( OutputPtr > &OwnerName[0] ) /* ;an000; */
952 { if (*OutputPtr == (char) '.') *OutputPtr = NUL; /* ;an000; */
953 if ( (*OutputPtr == (char) '\\') || (*OutputPtr == (char) ':') ) /* ;an000; */
954 { OutputPtr++; /* ;an000; */
955 break; /* ;an000; */
956 } /* ;an000; */
957 OutputPtr--; /* ;an000; */
958 } /* ;an000; */
959 /* ;an000; */
960 } /* ;an000; */
961 /* ;an000; */
962 } /* ;an000; */
963 } /* ;an000; */
964 /* ;an000; */
965 strcpy(&OwnerName[0],OutputPtr); /* ;an000; */
966 /* ;an000; */
967 return; /* ;an000; */
968 /* ;an000; */
969 } /* ;an000; */
970 /* ;an000; */
971 /* ;an000; */
972/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
973 /* ;an000; */
974
975char *TypeOf(Header) /* ;an000; */
976struct ARENA far *Header; /* ;an000; */
977{ /* ;an000; */
978 /* ;an000; */
979 char *t; /* ;an000; */
980 unsigned PspSegment; /* ;an000; */
981 unsigned far *EnvironmentSegmentPtr; /* ;an000; */
982 unsigned int Message_Number;
983 char far *Message_Buf;
984 unsigned int i;
985 /* ;an000; */
986 t = &TypeText[0]; /* ;an000; */
987 *t = NUL; /* ;an000; */
988 /* ;an000; */
989 Message_Number = 0xff; /* ;an000; initialize number value */
990 if (Header -> Owner == 8) Message_Number = StackMsg; /* ;an000; */
991 if (Header -> Owner == 0) Message_Number = FreeMsg; /* ;an000; */
992 /* ;an000; */
993 PspSegment = Header -> Owner; /* ;an000; */
994 if (PspSegment < FP_SEG(ArenaHeadPtr)) /* ;an000; */
995 { /* ;an000; */
996 if (Message_Number == 0xff) Message_Number = BlankMsg;
997 } /* ;an000; */
998 else { /* ;an000; */
999 FP_SEG(EnvironmentSegmentPtr) = PspSegment; /* ;an000; */
1000 FP_OFF(EnvironmentSegmentPtr) = 44; /* ;an000; */
1001 /* ;an000; */
1002 /* ;an000; */
1003 if (PspSegment == FP_SEG(Header)+1)
1004 Message_Number = ProgramMsg;
1005 else if ( *EnvironmentSegmentPtr == FP_SEG(Header)+1 )
1006 Message_Number = EnvironMsg;
1007 else
1008 Message_Number = DataMsg;
1009
1010 }
1011
1012 InRegs.x.ax = Message_Number; /* ;an000; */
1013 InRegs.h.dh = Utility_Msg_Class; /* ;an000; */
1014 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1015
1016 FP_OFF(Message_Buf) = OutRegs.x.si; /* ;an000; */
1017 FP_SEG(Message_Buf) = SegRegs.ds; /* ;an000; */
1018
1019 i = 0;
1020 while ( *Message_Buf != (char) '\x0' )
1021 TypeText[i++] = *Message_Buf++;
1022 TypeText[i++] = '\x0';
1023
1024 /* ;an000; */
1025 return(t); /* ;an000; */
1026 /* ;an000; */
1027 } /* ;an000; */
1028 /* ;an000; */
1029 /* ;an000; */
1030/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
1031 /* ;an000; */
1032unsigned long AddressOf(Pointer) /* ;an000; */
1033char far *Pointer; /* ;an000; */
1034{ /* ;an000; */
1035 /* ;an000; */
1036 unsigned long SegmentAddress,OffsetAddress; /* ;an000; */
1037 /* ;an000; */
1038 SegmentAddress = (unsigned long) (FP_SEG(Pointer)) * 16l; /* ;an000; */
1039 OffsetAddress = (unsigned long) (FP_OFF(Pointer)); /* ;an000; */
1040 /* ;an000; */
1041 return( SegmentAddress + OffsetAddress); /* ;an000; */
1042 /* ;an000; */
1043 } /* ;an000; */
1044 /* ;an000; */
1045/*컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�*/ /* ;an000; */
1046 /* ;an000; */
1047 /* ;an000; */
1048/************************************************************************/ /* ;an000; */
1049/* SUB0_MESSAGE - This routine will print only those */ /* ;an000; */
1050/* messages that do not require a */ /* ;an000; */
1051/* a sublist. */ /* ;an000; */
1052/* */ /* ;an000; */
1053/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1054/* Handle - display type */ /* ;an000; */
1055/* Message_Type - type of message to display */ /* ;an000; */
1056/* */ /* ;an000; */
1057/* Outputs : message */ /* ;an000; */
1058/* */ /* ;an000; */
1059/************************************************************************/ /* ;an000; */
1060 /* ;an000; */
1061void Sub0_Message(Msg_Num,Handle,Message_Type) /* print messages with no subs */ /* ;an000; */
1062 /* ;an000; */
1063int Msg_Num; /* ;an000; */
1064int Handle; /* ;an000; */
1065unsigned char Message_Type; /* ;an000; */
1066 /* extended, parse, or utility */ /* ;an000; */
1067 { /* ;an000; */
1068 InRegs.x.ax = Msg_Num; /* put message number in AX */ /* ;an000; */
1069 InRegs.x.bx = Handle; /* put handle in BX */ /* ;an000; */
1070 InRegs.x.cx = No_Replace; /* no replaceable subparms */ /* ;an000; */
1071 InRegs.h.dl = No_Input; /* no keyboard input */ /* ;an000; */
1072 InRegs.h.dh = Message_Type; /* type of message to display */ /* ;an000; */
1073 sysdispmsg(&InRegs,&OutRegs); /* display the message */ /* ;an000; */
1074 /* ;an000; */
1075 return; /* ;an000; */
1076 } /* ;an000; */
1077 /* ;an000; */
1078 /* ;an000; */
1079/************************************************************************/ /* ;an000; */
1080/* SUB1_MESSAGE - This routine will print only those */ /* ;an000; */
1081/* messages that require 1 replaceable */ /* ;an000; */
1082/* parm. */ /* ;an000; */
1083/* */ /* ;an000; */
1084/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1085/* Handle - display type */ /* ;an000; */
1086/* Message_Type - type of message to display */ /* ;an000; */
1087/* Replace_Parm - pointer to parm to replace */ /* ;an000; */
1088/* */ /* ;an000; */
1089/* Outputs : message */ /* ;an000; */
1090/* */ /* ;an000; */
1091/************************************************************************/ /* ;an000; */
1092 /* ;an000; */
1093void Sub1_Message(Msg_Num,Handle,Message_Type,Replace_Parm) /* ;an000; */
1094 /* ;an000; */
1095int Msg_Num; /* ;an000; */
1096int Handle; /* ;an000; */
1097unsigned char Message_Type; /* ;an000; */
1098 /* extended, parse, or utility */ /* ;an000; */
1099unsigned long int *Replace_Parm; /* pointer to message to print */ /* ;an000; */
1100 /* ;an000; */
1101{ /* ;an000; */
1102 /* ;an000; */
1103 /* ;an000; */
1104 { /* ;an000; */
1105 /* ;an000; */
1106 sublist[1].value = (unsigned far *)Replace_Parm; /* ;an000; */
1107 sublist[1].size = Sublist_Length; /* ;an000; */
1108 sublist[1].reserved = Reserved; /* ;an000; */
1109 sublist[1].id = 1; /* ;an000; */
1110 sublist[1].flags = Unsgn_Bin_DWord+Right_Align; /* ;an000; */
1111 sublist[1].max_width = 10; /* ;an000; */
1112 sublist[1].min_width = 10; /* ;an000; */
1113 sublist[1].pad_char = Blank; /* ;an000; */
1114 /* ;an000; */
1115 InRegs.x.ax = Msg_Num; /* ;an000; */
1116 InRegs.x.bx = Handle; /* ;an000; */
1117 InRegs.x.cx = SubCnt1; /* ;an000; */
1118 InRegs.h.dl = No_Input; /* ;an000; */
1119 InRegs.h.dh = Message_Type; /* ;an000; */
1120 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1121 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1122 } /* ;an000; */
1123 return; /* ;an000; */
1124} /* ;an000; */
1125 /* ;an000; */
1126 /* ;an000; */
1127/************************************************************************/ /* ;an000; */
1128/* SUB2_MESSAGE - This routine will print only those */ /* ;an000; */
1129/* messages that require 2 replaceable */ /* ;an000; */
1130/* parms. */ /* ;an000; */
1131/* */ /* ;an000; */
1132/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1133/* Handle - display type */ /* ;an000; */
1134/* Message_Type - type of message to display */ /* ;an000; */
1135/* Replace_Parm1 - pointer to parm to replace */ /* ;an000; */
1136/* Replace_Parm2 - pointer to parm to replace */ /* ;an000; */
1137/* Replace_Parm3 - pointer to parm to replace */ /* ;an000; */
1138/* */ /* ;an000; */
1139/* Outputs : message */ /* ;an000; */
1140/* */ /* ;an000; */
1141/************************************************************************/ /* ;an000; */
1142 /* ;an000; */
1143void Sub2_Message(Msg_Num,Handle,Message_Type, /* ;an000; */
1144 Replace_Parm1, /* ;an000; */
1145 Replace_Message1) /* ;an000; */
1146 /* ;an000; */
1147int Msg_Num; /* ;an000; */
1148int Handle; /* ;an000; */
1149unsigned char Message_Type; /* ;an000; */
1150int Replace_Message1; /* ;an000; */
1151 /* extended, parse, or utility */ /* ;an000; */
1152char *Replace_Parm1; /* pointer to message to print */ /* ;an000; */
1153{ /* ;an000; */
1154 /* ;an000; */
1155 /* ;an000; */
1156 { /* ;an000; */
1157 switch(Msg_Num) /* ;an000; */
1158 { /* ;an000; */
1159 case DeviceLineMsg: /* ;an000; */
1160 /* ;an000; */
1161 sublist[1].value = (unsigned far *)Replace_Parm1; /* ;an000; */
1162 sublist[1].size = Sublist_Length; /* ;an000; */
1163 sublist[1].reserved = Reserved; /* ;an000; */
1164 sublist[1].id = 1; /* ;an000; */
1165 sublist[1].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1166 sublist[1].max_width = 0x0008; /* ;an000; */
1167 sublist[1].min_width = 0x0008; /* ;an000; */
1168 sublist[1].pad_char = Blank; /* ;an000; */
1169 /* ;an000; */
1170 InRegs.x.ax = Replace_Message1; /* ;an000; */
1171 InRegs.h.dh = Message_Type; /* ;an000; */
1172 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1173 /* ;an000; */
1174 FP_OFF(sublist[2].value) = OutRegs.x.si; /* ;an000; */
1175 FP_SEG(sublist[2].value) = SegRegs.ds; /* ;an000; */
1176 sublist[2].size = Sublist_Length; /* ;an000; */
1177 sublist[2].reserved = Reserved; /* ;an000; */
1178 sublist[2].id = 2; /* ;an000; */
1179 sublist[2].flags = Char_Field_ASCIIZ+Right_Align; /* ;an000; */
1180 sublist[2].max_width = 00; /* ;an000; */
1181 sublist[2].min_width = 10; /* ;an000; */
1182 sublist[2].pad_char = Blank; /* ;an000; */
1183 break; /* ;an000; */
1184 } /* ;an000; */
1185 /* ;an000; */
1186 InRegs.x.ax = Msg_Num; /* ;an000; */
1187 InRegs.x.bx = Handle; /* ;an000; */
1188 InRegs.x.cx = SubCnt2; /* ;an000; */
1189 InRegs.h.dl = No_Input; /* ;an000; */
1190 InRegs.h.dh = Message_Type; /* ;an000; */
1191 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1192 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1193 } /* ;an000; */
1194 return; /* ;an000; */
1195} /* ;an000; */
1196 /* ;an000; */
1197/************************************************************************/ /* ;an000; */
1198/* SUB3_MESSAGE - This routine will print only those */ /* ;an000; */
1199/* messages that require 3 replaceable */ /* ;an000; */
1200/* parms. */ /* ;an000; */
1201/* */ /* ;an000; */
1202/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1203/* Handle - display type */ /* ;an000; */
1204/* Message_Type - type of message to display */ /* ;an000; */
1205/* Replace_Parm1 - pointer to parm to replace */ /* ;an000; */
1206/* Replace_Parm2 - pointer to parm to replace */ /* ;an000; */
1207/* Replace_Parm3 - pointer to parm to replace */ /* ;an000; */
1208/* */ /* ;an000; */
1209/* Outputs : message */ /* ;an000; */
1210/* */ /* ;an000; */
1211/************************************************************************/ /* ;an000; */
1212 /* ;an000; */
1213void Sub3_Message(Msg_Num,Handle,Message_Type, /* ;an000; */
1214 Replace_Parm1, /* ;an000; */
1215 Replace_Parm2, /* ;an000; */
1216 Replace_Message1) /* ;an000; */
1217 /* ;an000; */
1218int Msg_Num; /* ;an000; */
1219int Handle; /* ;an000; */
1220unsigned char Message_Type; /* ;an000; */
1221char *Replace_Parm1; /* ;an000; */
1222unsigned long int *Replace_Parm2; /* ;an000; */
1223int Replace_Message1; /* ;an000; */
1224 /* extended, parse, or utility */ /* ;an000; */
1225{ /* ;an000; */
1226 /* ;an000; */
1227 /* ;an000; */
1228 { /* ;an000; */
1229 switch(Msg_Num) /* ;an000; */
1230 { /* ;an000; */
1231 case DriverLineMsg: /* ;an000; */
1232 /* ;an000; */
1233 sublist[1].value = (unsigned far *)Replace_Parm1; /* ;an000; */
1234 sublist[1].size = Sublist_Length; /* ;an000; */
1235 sublist[1].reserved = Reserved; /* ;an000; */
1236 sublist[1].id = 1; /* ;an000; */
1237 sublist[1].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1238 sublist[1].max_width = 0x0008; /* ;an000; */
1239 sublist[1].min_width = 0x0008; /* ;an000; */
1240 sublist[1].pad_char = Blank; /* ;an000; */
1241 /* ;an000; */
1242 sublist[2].value = (unsigned far *)Replace_Parm2; /* ;an000; */
1243 sublist[2].size = Sublist_Length; /* ;an000; */
1244 sublist[2].reserved = Reserved; /* ;an000; */
1245 sublist[2].id = 2; /* ;an000; */
1246 sublist[2].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1247 sublist[2].max_width = 0x0006; /* ;an000; */
1248 sublist[2].min_width = 0x0006; /* ;an000; */
1249 sublist[2].pad_char = 0x0030; /* ;an000; */
1250 /* ;an000; */
1251 InRegs.x.ax = Replace_Message1; /* ;an000; */
1252 InRegs.h.dh = Message_Type; /* ;an000; */
1253 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1254 /* ;an000; */
1255 FP_OFF(sublist[3].value) = OutRegs.x.si; /* ;an000; */
1256 FP_SEG(sublist[3].value) = SegRegs.ds; /* ;an000; */
1257 sublist[3].size = Sublist_Length; /* ;an000; */
1258 sublist[3].reserved = Reserved; /* ;an000; */
1259 sublist[3].id = 3; /* ;an000; */
1260 sublist[3].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1261 sublist[3].max_width = 00; /* ;an000; */
1262 sublist[3].min_width = 10; /* ;an000; */
1263 sublist[3].pad_char = Blank; /* ;an000; */
1264 break; /* ;an000; */
1265 /* ;an000; */
1266 case HandleMsg: /* ;an000; */
1267 sublist[1].value = (unsigned far *)Replace_Parm1; /* ;an000; */
1268 sublist[1].size = Sublist_Length; /* ;an000; */
1269 sublist[1].reserved = Reserved; /* ;an000; */
1270 sublist[1].id = 1; /* ;an000; */
1271 sublist[1].flags = Unsgn_Bin_Byte+Right_Align; /* ;an000; */
1272 sublist[1].max_width = 0x0009; /* ;an000; */
1273 sublist[1].min_width = 0x0009; /* ;an000; */
1274 sublist[1].pad_char = Blank; /* ;an000; */
1275 /* ;an000; */
1276 sublist[2].value = (unsigned far *)Replace_Parm2; /* ;an000; */
1277 sublist[2].size = Sublist_Length; /* ;an000; */
1278 sublist[2].reserved = Reserved; /* ;an000; */
1279 sublist[2].id = 2; /* ;an000; */
1280 sublist[2].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1281 sublist[2].max_width = 0x0008; /* ;an000; */
1282 sublist[2].min_width = 0x0008; /* ;an000; */
1283 sublist[2].pad_char = Blank; /* ;an000; */
1284 /* ;an000; */
1285 InRegs.x.ax = Replace_Message1; /* ;an000; */
1286 InRegs.h.dh = Message_Type; /* ;an000; */
1287 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1288 /* ;an000; */
1289 FP_OFF(sublist[3].value) = OutRegs.x.si; /* ;an000; */
1290 FP_SEG(sublist[3].value) = SegRegs.ds; /* ;an000; */
1291 sublist[3].size = Sublist_Length; /* ;an000; */
1292 sublist[3].reserved = Reserved; /* ;an000; */
1293 sublist[3].id = 3; /* ;an000; */
1294 sublist[3].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1295 sublist[3].max_width = 00; /* ;an000; */
1296 sublist[3].min_width = 10; /* ;an000; */
1297 sublist[3].pad_char = Blank; /* ;an000; */
1298 break; /* ;an000; */
1299 /* ;an000; */
1300 } /* ;an000; */
1301 /* ;an000; */
1302 InRegs.x.ax = Msg_Num; /* ;an000; */
1303 InRegs.x.bx = Handle; /* ;an000; */
1304 InRegs.x.cx = SubCnt3; /* ;an000; */
1305 InRegs.h.dl = No_Input; /* ;an000; */
1306 InRegs.h.dh = Message_Type; /* ;an000; */
1307 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1308 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1309 } /* ;an000; */
1310 return; /* ;an000; */
1311} /* ;an000; */
1312 /* ;an000; */
1313 /* ;an000; */
1314/************************************************************************/ /* ;an000; */
1315/* SUB4_MESSAGE - This routine will print only those */ /* ;an000; */
1316/* messages that require 4 replaceable */ /* ;an000; */
1317/* parms. */ /* ;an000; */
1318/* */ /* ;an000; */
1319/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1320/* Handle - display type */ /* ;an000; */
1321/* Message_Type - type of message to display */ /* ;an000; */
1322/* Replace_Parm1 - pointer to parm to replace */ /* ;an000; */
1323/* Replace_Parm2 - pointer to parm to replace */ /* ;an000; */
1324/* Replace_Parm3 - pointer to parm to replace */ /* ;an000; */
1325/* Dynamic_Parm - parm number to use as replaceable */ /* ;an000; */
1326/* */ /* ;an000; */
1327/* Outputs : message */ /* ;an000; */
1328/* */ /* ;an000; */
1329/************************************************************************/ /* ;an000; */
1330 /* ;an000; */
1331void Sub4_Message(Msg_Num,Handle,Message_Type, /* ;an000; */
1332 Replace_Value1, /* ;an000; */
1333 Replace_Message1, /* ;an000; */
1334 Replace_Value2, /* ;an000; */
1335 Replace_Message2) /* ;an000; */
1336 /* ;an000; */
1337int Msg_Num; /* ;an000; */
1338int Handle; /* ;an000; */
1339unsigned char Message_Type; /* ;an000; */
1340unsigned long int *Replace_Value1; /* ;an000; */
1341int Replace_Message1; /* ;an000; */
1342unsigned long int *Replace_Value2; /* ;an000; */
1343int Replace_Message2; /* ;an000; */
1344 /* extended, parse, or utility */ /* ;an000; */
1345{ /* ;an000; */
1346 /* ;an000; */
1347 /* ;an000; */
1348 { /* ;an000; */
1349 switch(Msg_Num) /* ;an000; */
1350 { /* ;an000; */
1351 case MainLineMsg: /* ;an000; */
1352 /* ;an000; */
1353 sublist[1].value = (unsigned far *)Replace_Value1; /* ;an000; */
1354 sublist[1].size = Sublist_Length; /* ;an000; */
1355 sublist[1].reserved = Reserved; /* ;an000; */
1356 sublist[1].id = 1; /* ;an000; */
1357 sublist[1].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1358 sublist[1].max_width = 06; /* ;an000; */
1359 sublist[1].min_width = 06; /* ;an000; */
1360 sublist[1].pad_char = 0x0030; /* ;an000; */
1361 /* ;an000; */
1362 InRegs.x.ax = Replace_Message1; /* ;an000; */
1363 InRegs.h.dh = Message_Type; /* ;an000; */
1364 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1365 /* ;an000; */
1366 FP_OFF(sublist[2].value) = OutRegs.x.si; /* ;an000; */
1367 FP_SEG(sublist[2].value) = SegRegs.ds; /* ;an000; */
1368 sublist[2].size = Sublist_Length; /* ;an000; */
1369 sublist[2].reserved = Reserved; /* ;an000; */
1370 sublist[2].id = 2; /* ;an000; */
1371 sublist[2].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1372 sublist[2].max_width = 0x0008; /* ;an000; */
1373 sublist[2].min_width = 0x0008; /* ;an000; */
1374 sublist[2].pad_char = Blank; /* ;an000; */
1375 /* ;an000; */
1376 sublist[3].value = (unsigned far *)Replace_Value2; /* ;an000; */
1377 sublist[3].size = Sublist_Length; /* ;an000; */
1378 sublist[3].reserved = Reserved; /* ;an000; */
1379 sublist[3].id = 3; /* ;an000; */
1380 sublist[3].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1381 sublist[3].max_width = 06; /* ;an000; */
1382 sublist[3].min_width = 06; /* ;an000; */
1383 sublist[3].pad_char = 0x0030; /* ;an000; */
1384 /* ;an000; */
1385 InRegs.x.ax = Replace_Message2; /* ;an000; */
1386 InRegs.h.dh = Message_Type; /* ;an000; */
1387 sysgetmsg(&InRegs,&SegRegs,&OutRegs); /* ;an000; */
1388 /* ;an000; */
1389 FP_OFF(sublist[4].value) = OutRegs.x.si; /* ;an000; */
1390 FP_SEG(sublist[4].value) = SegRegs.ds; /* ;an000; */
1391 sublist[4].size = Sublist_Length; /* ;an000; */
1392 sublist[4].reserved = Reserved; /* ;an000; */
1393 sublist[4].id = 4; /* ;an000; */
1394 sublist[4].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1395 sublist[4].max_width = 0; /* ;an000; */
1396 sublist[4].min_width = 10; /* ;an000; */
1397 sublist[4].pad_char = Blank; /* ;an000; */
1398 break; /* ;an000; */
1399 } /* ;an000; */
1400 /* ;an000; */
1401 InRegs.x.ax = Msg_Num; /* ;an000; */
1402 InRegs.x.bx = Handle; /* ;an000; */
1403 InRegs.x.cx = SubCnt4; /* ;an000; */
1404 InRegs.h.dl = No_Input; /* ;an000; */
1405 InRegs.h.dh = Message_Type; /* ;an000; */
1406 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1407 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1408 } /* ;an000; */
1409 return; /* ;an000; */
1410} /* ;an000; */
1411 /* ;an000; */
1412 /* ;an000; */
1413 /* ;an000; */
1414/************************************************************************/ /* ;an000; */
1415/* SUB4a_MESSAGE - This routine will print only those */ /* ;an000; */
1416/* messages that require 4 replaceable */ /* ;an000; */
1417/* parms. */ /* ;an000; */
1418/* */ /* ;an000; */
1419/* Inputs : Msg_Num - number of applicable message */ /* ;an000; */
1420/* Handle - display type */ /* ;an000; */
1421/* Message_Type - type of message to display */ /* ;an000; */
1422/* Replace_Parm1 - pointer to parm to replace */ /* ;an000; */
1423/* Replace_Parm2 - pointer to parm to replace */ /* ;an000; */
1424/* Replace_Parm3 - pointer to parm to replace */ /* ;an000; */
1425/* Dynamic_Parm - parm number to use as replaceable */ /* ;an000; */
1426/* */ /* ;an000; */
1427/* Outputs : message */ /* ;an000; */
1428/* */ /* ;an000; */
1429/************************************************************************/ /* ;an000; */
1430 /* ;an000; */
1431void Sub4a_Message(Msg_Num,Handle,Message_Type, /* ;an000; */
1432 Replace_Value1, /* ;an000; */
1433 Replace_Message1, /* ;an000; */
1434 Replace_Value2, /* ;an000; */
1435 Replace_Message2) /* ;an000; */
1436 /* ;an000; */
1437int Msg_Num; /* ;an000; */
1438int Handle; /* ;an000; */
1439unsigned char Message_Type; /* ;an000; */
1440unsigned long int *Replace_Value1; /* ;an000; */
1441char *Replace_Message1; /* ;an000; */
1442unsigned long int *Replace_Value2; /* ;an000; */
1443char *Replace_Message2; /* ;an000; */
1444 /* ;an000; */
1445{ /* ;an000; */
1446 /* ;an000; */
1447 /* ;an000; */
1448 { /* ;an000; */
1449 switch(Msg_Num) /* ;an000; */
1450 { /* ;an000; */
1451 case MainLineMsg: /* ;an000; */
1452 /* ;an000; */
1453 sublist[1].value = (unsigned far *)Replace_Value1; /* ;an000; */
1454 sublist[1].size = Sublist_Length; /* ;an000; */
1455 sublist[1].reserved = Reserved; /* ;an000; */
1456 sublist[1].id = 1; /* ;an000; */
1457 sublist[1].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1458 sublist[1].max_width = 06; /* ;an000; */
1459 sublist[1].min_width = 06; /* ;an000; */
1460 sublist[1].pad_char = 0x0030; /* ;an000; */
1461 /* ;an000; */
1462 sublist[2].value = (unsigned far *)Replace_Message1; /* ;an000; */
1463 sublist[2].size = Sublist_Length; /* ;an000; */
1464 sublist[2].reserved = Reserved; /* ;an000; */
1465 sublist[2].id = 2; /* ;an000; */
1466 sublist[2].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1467 sublist[2].max_width = 0x0008; /* ;an000; */
1468 sublist[2].min_width = 0x0008; /* ;an000; */
1469 sublist[2].pad_char = Blank; /* ;an000; */
1470 /* ;an000; */
1471 sublist[3].value = (unsigned far *)Replace_Value2; /* ;an000; */
1472 sublist[3].size = Sublist_Length; /* ;an000; */
1473 sublist[3].reserved = Reserved; /* ;an000; */
1474 sublist[3].id = 3; /* ;an000; */
1475 sublist[3].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1476 sublist[3].max_width = 06; /* ;an000; */
1477 sublist[3].min_width = 06; /* ;an000; */
1478 sublist[3].pad_char = 0x0030; /* ;an000; */
1479 /* ;an000; */
1480 sublist[4].value = (unsigned far *)Replace_Message2; /* ;an000; */
1481 sublist[4].size = Sublist_Length; /* ;an000; */
1482 sublist[4].reserved = Reserved; /* ;an000; */
1483 sublist[4].id = 4; /* ;an000; */
1484 sublist[4].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1485 sublist[4].max_width = 0; /* ;an000; */
1486 sublist[4].min_width = 10; /* ;an000; */
1487 sublist[4].pad_char = Blank; /* ;an000; */
1488 break; /* ;an000; */
1489 } /* ;an000; */
1490 /* ;an000; */
1491 InRegs.x.ax = Msg_Num; /* ;an000; */
1492 InRegs.x.bx = Handle; /* ;an000; */
1493 InRegs.x.cx = SubCnt4; /* ;an000; */
1494 InRegs.h.dl = No_Input; /* ;an000; */
1495 InRegs.h.dh = Message_Type; /* ;an000; */
1496 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1497 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1498 } /* ;an000; */
1499 return; /* ;an000; */
1500} /* ;an000; */
1501 /* ;an000; */
1502 /* ;an000; */
1503/************************************************************************/ /* ;an000; */
1504/* EMSPrint - This routine will print the message */ /* ;an000; */
1505/* necessary for EMS reporting. */ /* ;an000; */
1506/* */ /* ;an000; */
1507/* Outputs : message */ /* ;an000; */
1508/* */ /* ;an000; */
1509/************************************************************************/ /* ;an000; */
1510 /* ;an000; */
1511void EMSPrint(Msg_Num,Handle,Message_Type, /* ;an000; */
1512 Replace_Value1, /* ;an000; */
1513 Replace_Message1, /* ;an000; */
1514 Replace_Value2) /* ;an000; */
1515 /* ;an000; */
1516int Msg_Num; /* ;an000; */
1517int Handle; /* ;an000; */
1518unsigned char Message_Type; /* ;an000; */
1519int *Replace_Value1; /* ;an000; */
1520char *Replace_Message1; /* ;an000; */
1521unsigned long int *Replace_Value2; /* ;an000; */
1522 /* extended, parse, or utility */ /* ;an000; */
1523{ /* ;an000; */
1524 /* ;an000; */
1525 { /* ;an000; */
1526 sublist[1].value = (unsigned far *)Replace_Value1; /* ;an000; */
1527 sublist[1].size = Sublist_Length; /* ;an000; */
1528 sublist[1].reserved = Reserved; /* ;an000; */
1529 sublist[1].id = 1; /* ;an000; */
1530 sublist[1].flags = Unsgn_Bin_Word+Right_Align; /* ;an000; */
1531 sublist[1].max_width = 03; /* ;an000; */
1532 sublist[1].min_width = 03; /* ;an000; */
1533 sublist[1].pad_char = Blank; /* ;an000; */
1534 /* ;an000; */
1535 sublist[2].value = (unsigned far *)Replace_Message1; /* ;an000; */
1536 sublist[2].size = Sublist_Length; /* ;an000; */
1537 sublist[2].reserved = Reserved; /* ;an000; */
1538 sublist[2].id = 2; /* ;an000; */
1539 sublist[2].flags = Char_Field_ASCIIZ+Left_Align; /* ;an000; */
1540 sublist[2].max_width = 0x0008; /* ;an000; */
1541 sublist[2].min_width = 0x0008; /* ;an000; */
1542 sublist[2].pad_char = Blank; /* ;an000; */
1543 /* ;an000; */
1544 sublist[3].value = (unsigned far *)Replace_Value2; /* ;an000; */
1545 sublist[3].size = Sublist_Length; /* ;an000; */
1546 sublist[3].reserved = Reserved; /* ;an000; */
1547 sublist[3].id = 3; /* ;an000; */
1548 sublist[3].flags = Bin_Hex_DWord+Right_Align; /* ;an000; */
1549 sublist[3].max_width = 06; /* ;an000; */
1550 sublist[3].min_width = 06; /* ;an000; */
1551 sublist[3].pad_char = 0x0030; /* ;an000; */
1552 /* ;an000; */
1553 InRegs.x.ax = Msg_Num; /* ;an000; */
1554 InRegs.x.bx = Handle; /* ;an000; */
1555 InRegs.x.cx = SubCnt3; /* ;an000; */
1556 InRegs.h.dl = No_Input; /* ;an000; */
1557 InRegs.h.dh = Message_Type; /* ;an000; */
1558 InRegs.x.si = (unsigned int)&sublist[1]; /* ;an000; */
1559 sysdispmsg(&InRegs,&OutRegs); /* ;an000; */
1560 } /* ;an000; */
1561 return; /* ;an000; */
1562} /* ;an000; */
1563 /* ;an000; */
1564/*----------------------------------------------------------------------+
1565| |
1566| SUBROUTINE NAME: PARSE_INIT |
1567| |
1568| SUBROUTINE FUNCTION: |
1569| |
1570| This routine is called by the FILESYS MAIN routine to initialize|
1571| the parser data structures. |
1572| |
1573| INPUT: |
1574| none |
1575| |
1576| OUTPUT: |
1577| properly initialized parser control blocks |
1578| |
1579+----------------------------------------------------------------------*/
1580void parse_init() /* ;an000; */
1581 { /* ;an000; */
1582 p_p.p_parmsx_address = &p_px; /* address of extended parm list */ /* ;an000; */
1583 p_p.p_num_extra = 0; /* ;an000; */
1584 /* ;an000; */
1585 p_px.p_minp = 0; /* ;an000; */
1586 p_px.p_maxp = 0; /* ;an000; */
1587 p_px.p_maxswitch = 2; /* ;an000; */
1588 p_px.p_control[0] = &p_con1; /* ;an000; */
1589 p_px.p_control[1] = &p_con2; /* ;an000; */
1590 p_px.p_keyword = 0; /* ;an000; */
1591 /* ;an000; */
1592 p_con1.p_match_flag = p_none; /* ;an000; */
1593 p_con1.p_function_flag = p_cap_file; /* ;an000; */
1594 p_con1.p_result_buf = (unsigned int)&p_result1; /* ;an000; */
1595 p_con1.p_value_list = (unsigned int)&p_noval; /* ;an000; */
1596 p_con1.p_nid = 1; /* ;an000; */
1597 strcpy(p_con1.p_keyorsw,"/DEBUG"+NUL); /* ;an000; */
1598 /* ;an000; */
1599 p_con2.p_match_flag = p_none; /* ;an000; */
1600 p_con2.p_function_flag = p_cap_file; /* ;an000; */
1601 p_con2.p_result_buf = (unsigned int)&p_result2; /* ;an000; */
1602 p_con2.p_value_list = (unsigned int)&p_noval; /* ;an000; */
1603 p_con2.p_nid = 1; /* ;an000; */
1604 strcpy(p_con2.p_keyorsw,"/PROGRAM"+NUL); /* ;an000; */
1605 /* ;an000; */
1606 p_noval.p_val_num = 0; /* ;an000; */
1607 /* ;an000; */
1608 p_result1.P_Type = 0; /* ;an000; */
1609 p_result1.P_Item_Tag = 0; /* ;an000; */
1610 p_result1.P_SYNONYM_Ptr = 0; /* ;an000; */
1611 p_result1.p_result_buff = 0; /* ;an000; */
1612 /* ;an000; */
1613 p_result2.P_Type = 0; /* ;an000; */
1614 p_result2.P_Item_Tag = 0; /* ;an000; */
1615 p_result2.P_SYNONYM_Ptr = 0; /* ;an000; */
1616 p_result2.p_result_buff = 0; /* ;an000; */
1617 /* ;an000; */
1618 return; /* ;an000; */
1619 /* ;an000; */
1620 } /* end parse_init */ /* ;an000; */
1621
1622
1623/************************************************************************/ /* ;an000; */
1624/* Parse_Message - This routine will print only those */
1625/* messages that require 1 replaceable */
1626/* parm. */
1627/* */
1628/* Inputs : Msg_Num - number of applicable message */
1629/* Handle - display type */
1630/* Message_Type - type of message to display */
1631/* Replace_Parm - pointer to parm to replace */
1632/* */
1633/* Outputs : message */
1634/* */
1635/************************************************************************/
1636
1637void Parse_Message(Msg_Num,Handle,Message_Type) /*;an003; dms; */
1638 /*;an003; dms; */
1639int Msg_Num; /*;an003; dms; */
1640int Handle; /*;an003; dms; */
1641unsigned char Message_Type; /*;an003; dms; */
1642 /*;an003; dms; */
1643{ /*;an003; dms; */
1644char far *Cmd_Ptr; /*;an003; dms; */
1645 /*;an003; dms; */
1646 /*;an003; dms; */
1647 { /*;an003; dms; */
1648 segread(&SegRegs); /*;an003; dms; */
1649 FP_SEG(Cmd_Ptr) = SegRegs.ds; /*;an003; dms; */
1650 FP_OFF(Cmd_Ptr) = OutRegs.x.si; /*;an003; dms; */
1651 *Cmd_Ptr = '\0'; /*;an003; dms; */
1652 /*;an003; dms; */
1653 FP_SEG(sublist[1].value) = SegRegs.ds; /*;an003; dms; */
1654 FP_OFF(sublist[1].value) = Parse_Ptr; /*;an003; dms; */
1655 sublist[1].size = Sublist_Length; /*;an003; dms; */
1656 sublist[1].reserved = Reserved; /*;an003; dms; */
1657 sublist[1].id = 0; /*;an003; dms; */
1658 sublist[1].flags = Char_Field_ASCIIZ+Left_Align; /*;an003; dms; */
1659 sublist[1].max_width = 40; /*;an003; dms; */
1660 sublist[1].min_width = 01; /*;an003; dms; */
1661 sublist[1].pad_char = Blank; /*;an003; dms; */
1662 /*;an003; dms; */
1663 InRegs.x.ax = Msg_Num; /*;an003; dms; */
1664 InRegs.x.bx = Handle; /*;an003; dms; */
1665 InRegs.x.cx = SubCnt1; /*;an003; dms; */
1666 InRegs.h.dl = No_Input; /*;an003; dms; */
1667 InRegs.h.dh = Message_Type; /*;an003; dms; */
1668 InRegs.x.si = (unsigned int)&sublist[1]; /*;an003; dms; */
1669 sysdispmsg(&InRegs,&OutRegs); /*;an003; dms; */
1670 } /*;an003; dms; */
1671 return; /*;an003; dms; */
1672} /*;an003; dms; */
1673
1674
HIC SVNT DRACONES