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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
/* SCCS Id: @(#)ovlinit.c 3.4 1994/03/20 */
/* Copyright (c) NetHack PC Development Team 1995 */
/* NetHack may be freely redistributed. See license for details. */
#include "hack.h"
#include <dos.h>
#include <stdio.h>
#ifdef _MSC_VER
#define RESERVED_PARAGRAPHS 5120 /* leave 80K for malloc and inits */
/* subject to change before release */
/*
* memavail() Returns the amount of RAM available (in paragraphs which are 16
* bytes) - the amount to be reserved for heap allocations.
*
*/
unsigned memavail(minovl)
unsigned minovl; /* minimum size of overlay heap */
{
unsigned available;
unsigned farparaavail;
unsigned tmp;
/*
* _dos_allocmem will return the maximum block size available.
* It uses DOS (int 21h) service 0x48.
*/
_dos_allocmem(0xFFFF, &farparaavail);
available = farparaavail - RESERVED_PARAGRAPHS;
tmp = RESERVED_PARAGRAPHS + minovl;
if (farparaavail < tmp) {
panic("Not enough free RAM to begin a game of NetHack (%ld bytes)",
(long)((long)tmp * 16L));
}
return available;
}
#endif /*_MSC_VER*/
#ifdef __BORLANDC__
#define RSRVD_MALLOC 65 * 1024L /* malloc() calls use about 65K */
#define RSRVD_CRTL 50 * 1024L /* C runtime library uses 50K */
#define RSRVD_TOTAL 115 * 1024L /* reserved for use in malloc() */
/* as well as by C runtime library */
/* routines which allocate memory */
/* after this routine runs. */
#define MIN_OVRBUF 30 * 1024L /* Overlay buffer gets minimum of */
#define MAX_OVRBUF 200 * 1024L /* 30K and maximum of 200K. */
#define RESIZE_OVL
#ifdef RESIZE_OVL
extern unsigned _ovrbuffer = 0; /* Use default size initially */
unsigned appFail = 0; /* Fail flag if not enough RAM */
unsigned memAlloc = 0;
unsigned long ProgramSize;
unsigned long runAlloc;
unsigned far *mem_top;
unsigned total;
signed long tmpbuffer;
int emsstatus;
int xmsstatus;
void NDECL(_resizeOvrBuffer);
void _resizeOvrBuffer()
{
mem_top = (unsigned far *) MK_FP( _psp, 0x02 );
total = *mem_top - _psp;
ProgramSize = * (unsigned far *) MK_FP( _psp - 1, 0x03 );
tmpbuffer = total - ProgramSize - RSRVD_TOTAL / 16;
memAlloc = min (MAX_OVRBUF / 16, tmpbuffer);
if (tmpbuffer >= MIN_OVRBUF / 16)
_ovrbuffer = memAlloc;
else {
_ovrbuffer = 1;
appFail = 1;
};
/*
* Remember, when inside this code, nothing has been setup on
* the system, so do NOT call any RTL functions for I/O or
* anything else that might rely on a startup function. This
* includes accessing any global objects as their constructors
* have not been called yet.
*/
}
#pragma startup _resizeOvrBuffer 0 /* Put function in table */
void
startup ()
{
if (appFail) {
printf ("NetHack fits in memory, but it cannot allocate memory");
printf (" for the overlay buffer\nand the runtime functions. ");
printf ("Please free up just %ld more bytes.",
(long)(MIN_OVRBUF - tmpbuffer * 16L));
exit (-1);
} else {
/* Now try to use expanded memory for the overlay manager */
/* If that doesn't work, we revert to extended memory */
emsstatus = _OvrInitEms (0, 0, 0);
#ifdef RECOGNIZE_XMS
xmsstatus = (emsstatus) ? _OvrInitExt (0, 0) : -1;
#endif
}
}
void
show_borlandc_stats(win)
winid win;
{
char buf[BUFSZ];
putstr(win, 0, "");
putstr(win, 0, "");
putstr(win, 0, "Memory usage stats"); putstr(win, 0, "");
putstr(win, 0, "");
Sprintf (buf, "Overlay buffer memory allocation: %ld bytes.",
memAlloc * 16L); putstr(win, 0, buf);
Sprintf (buf, "_ovrbuffer = %u.", _ovrbuffer); putstr(win, 0, buf);
Sprintf (buf, "Startup memory usage: 0x%X", ProgramSize);
putstr(win, 0, buf);
runAlloc = * (unsigned far *) MK_FP( _psp - 1, 0x03);
Sprintf (buf, "Current memory usage: 0x%X", runAlloc);
putstr(win, 0, buf);
if (emsstatus) Sprintf (buf, "EMS search failed (%d).", emsstatus);
else Sprintf (buf, "EMS search successful.");
putstr(win, 0, buf);
#ifdef RECOGNIZE_XMS
if (xmsstatus) Sprintf (buf, "XMS search failed (%d).", xmsstatus);
else Sprintf (buf, "XMS search successful.");
putstr(win, 0, buf);
#endif
}
#endif /* #ifdef RESIZE_OVL */
#endif /* #ifdef __BORLANDC__ */
/*ovlinit.c*/
|
