Initial put
This commit is contained in:
Ben N
@@ -0,0 +1,6 @@
|
|||||||
|
copy *.c backup
|
||||||
|
copy *.h backup
|
||||||
|
copy *.asm backup
|
||||||
|
copy *.prj backup
|
||||||
|
copy *.dsk backup
|
||||||
|
copy _*.obj backup
|
||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
Binary file not shown.
+12
@@ -0,0 +1,12 @@
|
|||||||
|
//////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Graphics DEFINE file for .TED
|
||||||
|
// FGRAB-ed on Thu Aug 08 17:33:46 1991
|
||||||
|
//
|
||||||
|
//////////////////////////////////////
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// Thank you for using FGRAB!
|
||||||
|
//
|
||||||
@@ -0,0 +1,97 @@
|
|||||||
|
TED 5.0 Features
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
__ Handles all current tile types with ease of expansion for future sizes.
|
||||||
|
Current sizes are: 8x8,16x16,32x32. Only one tile size is permitted per
|
||||||
|
map set.
|
||||||
|
|
||||||
|
__ Handles any amount of tiles that will fit in EMS memory. If EMS is not
|
||||||
|
present, you can't use TED 5.0!
|
||||||
|
|
||||||
|
__ Handles masked and non-masked tiles.
|
||||||
|
|
||||||
|
__ Each map has 3 planes: background tiles, foreground tiles, and extra
|
||||||
|
info. The extra info plane will blit icons for values 0-63 (?), higher
|
||||||
|
values will be printed as hex. Planes will be selected upon project
|
||||||
|
creation.
|
||||||
|
|
||||||
|
__ Must have ability to turn on/off each individual plane so all planes
|
||||||
|
can be on or off at once.
|
||||||
|
|
||||||
|
__ Video modes supported will be CGA 320x200, EGA 320x200/640x480/800x600,
|
||||||
|
VGA 320x200 256-color.
|
||||||
|
|
||||||
|
__ Map Morph feature will allow user to select a block area and make snap-
|
||||||
|
shots of it, modify the area, make another snapshot, etc. until the
|
||||||
|
morph process is completed. Full editing capabilities will include:
|
||||||
|
DELETE FRAME, INSERT FRAME, MAKE SNAPSHOT.
|
||||||
|
|
||||||
|
__ TileInfo feature will allow user to edit tile attributes. Editing capa-
|
||||||
|
bilities will include: ADD, DELETE, CHANGE NAME.
|
||||||
|
|
||||||
|
__ TED editing feature will include:
|
||||||
|
|
||||||
|
__ Flood Fill
|
||||||
|
__ Block Fill
|
||||||
|
__ Copy Block (from tile maps as well) with SparseTile handling
|
||||||
|
__ Paste (with floating corners)
|
||||||
|
__ Draw
|
||||||
|
__ Line
|
||||||
|
|
||||||
|
__ Other features:
|
||||||
|
|
||||||
|
__ Info Bar (on/off)
|
||||||
|
__ Tile Search
|
||||||
|
__ Map Info
|
||||||
|
__ ScrollKeys (SHIFT for full screen moves)
|
||||||
|
__ Right-Button tile-pickup
|
||||||
|
__ Map Resizing (with Edge Selection)
|
||||||
|
__ X,Y coords in Hex & Dec
|
||||||
|
__ All numeric input will support HEX,DEC,BIN
|
||||||
|
|
||||||
|
__ Map files will be saved as either MAPTEMP.ext for the RLEW-only
|
||||||
|
(development) version, or GAMEMAPS.ext for the HUFF/RLEW version.
|
||||||
|
|
||||||
|
__ Dialogs will be implemented.
|
||||||
|
|
||||||
|
__ Project selection.
|
||||||
|
|
||||||
|
__ Map selection by name!
|
||||||
|
|
||||||
|
__ Create ApplePreferred or ILBM Map dumps
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Map Header Struct
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
size what description
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
unsigned HeaderSize size of the entire map header
|
||||||
|
unsigned MapType how many planes the map has. If there
|
||||||
|
are 3, you have back/foreground & info.
|
||||||
|
If there are 2, you have back & info, If
|
||||||
|
there is 1, you have background.
|
||||||
|
unsigned TileSize size of tiles map is made for
|
||||||
|
(1=8,2=16,3=32)
|
||||||
|
long TileInfoOff offset to TILEINFO data
|
||||||
|
long TileInfoMOff offset to MASKED TILEINFO data
|
||||||
|
unsigned RLEWtag RLEW tag byte
|
||||||
|
unsigned Dictionary offset to Huff dictionary. 0 if RLEW only.
|
||||||
|
unsigned DataOffsets offset to MapOffset list
|
||||||
|
...
|
||||||
|
long MapOffsets offsets to Maps in map file
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Map Structure
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
size what description
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
long Plane 0 offset to plane 0
|
||||||
|
long Plane 1 offset to plane 1 (0 if none)
|
||||||
|
long Plane 2 offset to plane 2 (0 if none)
|
||||||
|
char Name Map name (16 chars)
|
||||||
|
...
|
||||||
|
unsigned MapData all map data is in WORDs
|
||||||
@@ -0,0 +1,26 @@
|
|||||||
|
typedef struct
|
||||||
|
{
|
||||||
|
unsigned bit0,bit1; // 0-255 is a character, > is a pointer to a node
|
||||||
|
} huffnode;
|
||||||
|
|
||||||
|
extern long counts[256];
|
||||||
|
extern huffnode nodearray[256];
|
||||||
|
|
||||||
|
|
||||||
|
void CountBytes (unsigned char huge *start, long length);
|
||||||
|
void Huffmanize (void);
|
||||||
|
void OptimizeNodes (huffnode *table);
|
||||||
|
long HuffCompress (unsigned char huge *source, long length,
|
||||||
|
unsigned char huge *dest);
|
||||||
|
void HuffExpand (unsigned char huge *source, unsigned char huge *dest,
|
||||||
|
long length,huffnode *hufftable);
|
||||||
|
void RLEWExpand (unsigned huge *source, unsigned huge *dest,long length,
|
||||||
|
unsigned rlewtag);
|
||||||
|
long RLEWCompress (unsigned huge *source, long length, unsigned huge *dest,
|
||||||
|
unsigned rlewtag);
|
||||||
|
void RLEBExpand (unsigned char huge *source, unsigned char huge *dest,
|
||||||
|
long length, unsigned char rlebtag);
|
||||||
|
long RLEBCompress (unsigned char huge *source, long length,
|
||||||
|
unsigned char huge *dest, unsigned char rlebtag);
|
||||||
|
long CarmackCompress (unsigned far *source,long length,
|
||||||
|
unsigned far *dest);
|
||||||
@@ -0,0 +1,42 @@
|
|||||||
|
typedef enum {CGA,EGA1,EGA2,VGA,TEXT} video;
|
||||||
|
#define ESCOUT 0xdeaf
|
||||||
|
|
||||||
|
void Quit(char *string);
|
||||||
|
void WaitVBL(int times);
|
||||||
|
int input(char *string,int max);
|
||||||
|
void SetupKBD ();
|
||||||
|
void ShutdownKBD ();
|
||||||
|
void clearkeys (void);
|
||||||
|
int MouseInit(void);
|
||||||
|
void MouseHide(void);
|
||||||
|
void MouseShow(void);
|
||||||
|
int MouseButton(void);
|
||||||
|
void MouseCoords(int *x,int *y);
|
||||||
|
void printhex(unsigned value);
|
||||||
|
void printbin(unsigned value);
|
||||||
|
unsigned inputint(int numchars);
|
||||||
|
int input(char *string,int max);
|
||||||
|
void print (const char *str);
|
||||||
|
void fprint (const char huge *str);
|
||||||
|
void printhexb(unsigned char value);
|
||||||
|
void printint(unsigned value);
|
||||||
|
void bar (int xl, int yl, int xh, int yh, int ch);
|
||||||
|
int get(void);
|
||||||
|
void drawwindow (int xl, int yl, int xh, int yh);
|
||||||
|
void erasewindow (void);
|
||||||
|
void centerwindow (int width, int height);
|
||||||
|
void expwin (int width, int height);
|
||||||
|
void expwinh (int width, int height);
|
||||||
|
void expwinv (int width, int height);
|
||||||
|
void SaveFile(char *filename,char huge *buffer, long size,long offset);
|
||||||
|
unsigned long LoadFile(char *filename,char huge *buffer,long offset,long size);
|
||||||
|
void LoadIn(char *filename,void _seg **baseptr);
|
||||||
|
|
||||||
|
void MouseOrigin(int x,int y);
|
||||||
|
void MouseLimits(int xmin,int xmax,int ymin,int ymax);
|
||||||
|
|
||||||
|
extern int win_xl,win_yl,win_xh,win_yh,screencenterx,screencentery;
|
||||||
|
extern unsigned char keydown[256];
|
||||||
|
extern unsigned sx,sy,xormask,MouseStatus,leftedge;
|
||||||
|
|
||||||
|
long filelen(char *filename);
|
||||||
@@ -0,0 +1,259 @@
|
|||||||
|
;====================================================
|
||||||
|
;
|
||||||
|
; Library ASM code
|
||||||
|
;
|
||||||
|
;====================================================
|
||||||
|
IDEAL
|
||||||
|
P386N
|
||||||
|
MODEL medium,C
|
||||||
|
|
||||||
|
extrn xormask:WORD,yshift:WORD,CGAfont:WORD,VGAfont:WORD
|
||||||
|
|
||||||
|
DATASEG
|
||||||
|
|
||||||
|
SCindex = 3c4h
|
||||||
|
SCmapmask = 2
|
||||||
|
GCindex = 3CEh
|
||||||
|
GCreadmap = 4
|
||||||
|
GCmode = 5
|
||||||
|
|
||||||
|
a = 0
|
||||||
|
LABEL CGAlookup WORD
|
||||||
|
PUBLIC CGAlookup
|
||||||
|
REPT 100
|
||||||
|
dw a,a XOR 2000h
|
||||||
|
a = a+80
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
a = 0
|
||||||
|
LABEL EGA1lookup WORD
|
||||||
|
PUBLIC EGA1lookup
|
||||||
|
REPT 200
|
||||||
|
dw a
|
||||||
|
a = a+40
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
a = 0
|
||||||
|
LABEL EGA2lookup WORD
|
||||||
|
PUBLIC EGA2lookup
|
||||||
|
REPT 480
|
||||||
|
dw a
|
||||||
|
a = a+80
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
a = 0
|
||||||
|
LABEL VGAlookup WORD
|
||||||
|
PUBLIC VGAlookup
|
||||||
|
REPT 200
|
||||||
|
dw a
|
||||||
|
a = a+320
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
|
||||||
|
CODESEG
|
||||||
|
|
||||||
|
;====================================================
|
||||||
|
;
|
||||||
|
; Draw CGA chars
|
||||||
|
;
|
||||||
|
;====================================================
|
||||||
|
PROC CGAcharout
|
||||||
|
PUBLIC CGAcharout
|
||||||
|
ARG x:WORD,y:WORD,chr:BYTE
|
||||||
|
USES si,di,ds
|
||||||
|
mov bx,[y]
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
mov di,[CGAlookup+bx]
|
||||||
|
mov ax,[x]
|
||||||
|
shl ax,1
|
||||||
|
add di,ax
|
||||||
|
|
||||||
|
mov al,[chr]
|
||||||
|
xor ah,ah
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
mov si,ax
|
||||||
|
|
||||||
|
mov ax,0b800h
|
||||||
|
mov es,ax
|
||||||
|
mov ds,[CGAfont]
|
||||||
|
cld
|
||||||
|
cmp [ss:xormask],0
|
||||||
|
ja @@1
|
||||||
|
|
||||||
|
REPT 4
|
||||||
|
movsw
|
||||||
|
add di,2000h-2
|
||||||
|
movsw
|
||||||
|
sub di,2000h-78
|
||||||
|
ENDM
|
||||||
|
jmp @@exit
|
||||||
|
@@1:
|
||||||
|
REPT 4
|
||||||
|
lodsw
|
||||||
|
xor ax,0ffffh
|
||||||
|
stosw
|
||||||
|
add di,2000h-2
|
||||||
|
lodsw
|
||||||
|
xor ax,0ffffh
|
||||||
|
stosw
|
||||||
|
sub di,2000h-78
|
||||||
|
ENDM
|
||||||
|
@@exit:
|
||||||
|
ret
|
||||||
|
ENDP
|
||||||
|
|
||||||
|
;====================================================
|
||||||
|
;
|
||||||
|
; Draw EGA chars
|
||||||
|
;
|
||||||
|
;====================================================
|
||||||
|
PROC EGAcharout
|
||||||
|
PUBLIC EGAcharout
|
||||||
|
ARG x:WORD,y:WORD,chr:BYTE,video:WORD
|
||||||
|
USES si,di,ds,bp
|
||||||
|
|
||||||
|
mov dx,GCindex
|
||||||
|
mov ax,GCmode
|
||||||
|
out dx,ax
|
||||||
|
|
||||||
|
mov bx,[y]
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
add bx,[yshift]
|
||||||
|
shl bx,1
|
||||||
|
|
||||||
|
cmp [video],1
|
||||||
|
jne @@0
|
||||||
|
mov cx,39
|
||||||
|
mov di,[EGA1lookup+bx]
|
||||||
|
jmp @@1
|
||||||
|
@@0:
|
||||||
|
mov cx,79
|
||||||
|
mov di,[EGA2lookup+bx]
|
||||||
|
@@1:
|
||||||
|
add di,[x]
|
||||||
|
|
||||||
|
mov ax,0a000h
|
||||||
|
mov es,ax
|
||||||
|
mov ds,ax
|
||||||
|
|
||||||
|
mov si,0f000h
|
||||||
|
mov al,[chr]
|
||||||
|
xor ah,ah
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
add si,ax
|
||||||
|
|
||||||
|
cld
|
||||||
|
cmp [ss:xormask],0
|
||||||
|
ja @@2
|
||||||
|
|
||||||
|
mov dx,GCindex
|
||||||
|
mov ax,GCmode OR 100h
|
||||||
|
out dx,ax
|
||||||
|
mov dx,SCindex
|
||||||
|
mov ax,SCmapmask OR 0f00h
|
||||||
|
out dx,ax
|
||||||
|
|
||||||
|
REPT 8
|
||||||
|
movsb
|
||||||
|
add di,cx
|
||||||
|
ENDM
|
||||||
|
jmp @@exit
|
||||||
|
|
||||||
|
@@2:
|
||||||
|
ga = 100h
|
||||||
|
gb = 0
|
||||||
|
mov bp,si
|
||||||
|
mov bx,di
|
||||||
|
REPT 4
|
||||||
|
mov dx,SCindex
|
||||||
|
mov ax,SCmapmask OR ga
|
||||||
|
out dx,ax
|
||||||
|
mov dx,GCindex
|
||||||
|
mov ax,GCreadmap OR gb
|
||||||
|
out dx,ax
|
||||||
|
REPT 8
|
||||||
|
lodsb
|
||||||
|
xor al,0ffh
|
||||||
|
stosb
|
||||||
|
add di,cx
|
||||||
|
ENDM
|
||||||
|
mov di,bx
|
||||||
|
mov si,bp
|
||||||
|
ga = ga*2
|
||||||
|
gb = gb+100h
|
||||||
|
ENDM
|
||||||
|
@@exit:
|
||||||
|
mov dx,GCindex
|
||||||
|
mov ax,GCmode
|
||||||
|
out dx,ax
|
||||||
|
ret
|
||||||
|
ENDP
|
||||||
|
|
||||||
|
;====================================================
|
||||||
|
;
|
||||||
|
; Draw VGA chars
|
||||||
|
;
|
||||||
|
;====================================================
|
||||||
|
PROC VGAcharout
|
||||||
|
PUBLIC VGAcharout
|
||||||
|
ARG x:WORD,y:WORD,chr:BYTE
|
||||||
|
USES si,di,ds
|
||||||
|
|
||||||
|
mov bx,[y]
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
shl bx,1
|
||||||
|
add bx,[yshift]
|
||||||
|
shl bx,1
|
||||||
|
mov di,[VGAlookup+bx]
|
||||||
|
|
||||||
|
mov ax,[x]
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
shl ax,1
|
||||||
|
add di,ax
|
||||||
|
|
||||||
|
mov ah,[chr]
|
||||||
|
xor al,al
|
||||||
|
shr ax,1
|
||||||
|
shr ax,1 ;[chr]*64!
|
||||||
|
mov si,ax
|
||||||
|
|
||||||
|
mov ax,0a000h
|
||||||
|
mov es,ax
|
||||||
|
mov ds,[VGAfont]
|
||||||
|
|
||||||
|
cmp [ss:xormask],0
|
||||||
|
ja @@1
|
||||||
|
|
||||||
|
REPT 8
|
||||||
|
REPT 4
|
||||||
|
movsw
|
||||||
|
ENDM
|
||||||
|
add di,320-8
|
||||||
|
ENDM
|
||||||
|
jmp @@exit
|
||||||
|
@@1:
|
||||||
|
REPT 8
|
||||||
|
REPT 4
|
||||||
|
lodsw
|
||||||
|
xor ax,0ffffh
|
||||||
|
stosw
|
||||||
|
ENDM
|
||||||
|
add di,320-8
|
||||||
|
ENDM
|
||||||
|
@@exit:
|
||||||
|
ret
|
||||||
|
ENDP
|
||||||
|
|
||||||
|
END
|
||||||
@@ -0,0 +1,781 @@
|
|||||||
|
#include "ted5.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#define EMSINT 0x67
|
||||||
|
|
||||||
|
#define SPACEFREE 0x2000 // how much mem to leave alone in farheap
|
||||||
|
#define EXTRASTACKSIZE 0x2000
|
||||||
|
#define MAXBLOCKS 1000
|
||||||
|
#define LOCKBIT 0x8000 // if set in attributes, block cannot be moved
|
||||||
|
#define PURGEBITS 3 // 0-3 level, 0= unpurgable, 3= purge first
|
||||||
|
|
||||||
|
#define BASEATTRIBUTES 0 // unlocked, non purgable
|
||||||
|
|
||||||
|
unsigned totalmem; // total paragraphs available with 64k EMS
|
||||||
|
int EMSpresent,XMSpresent;
|
||||||
|
|
||||||
|
|
||||||
|
long TTLMainMem;
|
||||||
|
|
||||||
|
void far *farheap;
|
||||||
|
void *nearheap;
|
||||||
|
|
||||||
|
int numblocks;
|
||||||
|
struct {
|
||||||
|
unsigned start; // in paragraphs
|
||||||
|
unsigned length;
|
||||||
|
unsigned attributes;
|
||||||
|
memptr *useptr;
|
||||||
|
} blocks[MAXBLOCKS],tempblock;
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
//
|
||||||
|
// local prototypes
|
||||||
|
//
|
||||||
|
void CheckForEMS (void);
|
||||||
|
int FindBlock (memptr *ptr);
|
||||||
|
void RemoveBlock (int block);
|
||||||
|
void InsertBlock (int block);
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// public prototypes
|
||||||
|
//
|
||||||
|
|
||||||
|
void MMStartup (void);
|
||||||
|
void MMShutdown (void);
|
||||||
|
void MMMapEMS (void);
|
||||||
|
void MMGetPtr (memptr *baseptr,unsigned size);
|
||||||
|
void MMFreePtr (memptr *baseptr);
|
||||||
|
void MMSetPurge (memptr *baseptr, int purge);
|
||||||
|
void MMSortMem (void);
|
||||||
|
void MMBlockDump (void);
|
||||||
|
unsigned MMUnusedMemory (void);
|
||||||
|
unsigned MMTotalFree (void);
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// CheckForEMS
|
||||||
|
//
|
||||||
|
// Routine from p36 of Extending DOS
|
||||||
|
//
|
||||||
|
void CheckForEMS (void)
|
||||||
|
{
|
||||||
|
char emmname[9] = "EMMXXXX0";
|
||||||
|
|
||||||
|
asm mov dx,OFFSET emmname
|
||||||
|
asm mov ax,0x3d00
|
||||||
|
asm int 0x21 // try to open EMMXXXX0 device
|
||||||
|
asm jc error
|
||||||
|
|
||||||
|
asm mov bx,ax
|
||||||
|
asm mov ax,0x4400
|
||||||
|
|
||||||
|
asm int 0x21 // get device info
|
||||||
|
asm jc error
|
||||||
|
|
||||||
|
asm and dx,0x80
|
||||||
|
asm jz error
|
||||||
|
|
||||||
|
asm mov ax,0x4407
|
||||||
|
|
||||||
|
asm int 0x21 // get status
|
||||||
|
asm jc error
|
||||||
|
asm or al,al
|
||||||
|
asm jz error
|
||||||
|
|
||||||
|
asm mov ah,0x3e
|
||||||
|
asm int 0x21 // close handle
|
||||||
|
asm jc error
|
||||||
|
|
||||||
|
//
|
||||||
|
// EMS is good
|
||||||
|
//
|
||||||
|
|
||||||
|
|
||||||
|
return;
|
||||||
|
|
||||||
|
error:
|
||||||
|
//
|
||||||
|
// EMS is bad
|
||||||
|
//
|
||||||
|
EMSpresent = 0;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// FindBlock
|
||||||
|
//
|
||||||
|
int FindBlock (memptr *ptr)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
for (i=1;i<numblocks;i++)
|
||||||
|
if (blocks[i].useptr == ptr)
|
||||||
|
return i;
|
||||||
|
|
||||||
|
Quit ("Memory manager error: Block not found!");
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
//
|
||||||
|
// RemoveBlock
|
||||||
|
// 0 the pointer, close the block array down, and decrement numblocks
|
||||||
|
//
|
||||||
|
void RemoveBlock (int block)
|
||||||
|
{
|
||||||
|
void far *source, far *dest;
|
||||||
|
unsigned length;
|
||||||
|
|
||||||
|
*blocks[block].useptr = NULL;
|
||||||
|
if (block!=numblocks-1)
|
||||||
|
{
|
||||||
|
source = &blocks[block+1];
|
||||||
|
dest = &blocks[block];
|
||||||
|
length = (numblocks-1-block)*sizeof(blocks[0]);
|
||||||
|
movedata (FP_SEG(source),FP_OFF(source),FP_SEG(dest),FP_OFF(dest),length);
|
||||||
|
}
|
||||||
|
numblocks--;
|
||||||
|
}
|
||||||
|
|
||||||
|
//
|
||||||
|
// InsertBlock
|
||||||
|
// Inserts space in the block array AFTER parameter and increments numblocks
|
||||||
|
//
|
||||||
|
void InsertBlock (int block)
|
||||||
|
{
|
||||||
|
unsigned source,dest,length;
|
||||||
|
|
||||||
|
if (block!=numblocks-1)
|
||||||
|
{
|
||||||
|
source = ((unsigned)&blocks[numblocks])-2;
|
||||||
|
dest = ((unsigned)&blocks[numblocks+1])-2;
|
||||||
|
length = (numblocks-1-block)*sizeof(blocks[0])/2;
|
||||||
|
asm mov cx,length
|
||||||
|
asm mov si,source
|
||||||
|
asm mov di,dest
|
||||||
|
asm mov ax,ds
|
||||||
|
asm mov es,ax
|
||||||
|
asm std
|
||||||
|
asm rep movsw
|
||||||
|
asm cld
|
||||||
|
}
|
||||||
|
if (++numblocks>=MAXBLOCKS)
|
||||||
|
Quit ("Memory manager error: Too many blocks!");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// check numblocks<MAXBLOCKS
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
===================
|
||||||
|
=
|
||||||
|
= MMStartup
|
||||||
|
=
|
||||||
|
= Initializes the memory manager and returns the total
|
||||||
|
= allocatable free space.
|
||||||
|
=
|
||||||
|
= Grabs all space from turbo with farmalloc
|
||||||
|
=
|
||||||
|
===================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMStartup (void)
|
||||||
|
{
|
||||||
|
unsigned long length;
|
||||||
|
void far *start;
|
||||||
|
unsigned nearstart,farstart,EMSstart,seg,i;
|
||||||
|
unsigned nearlength,farlength,emslength,xmslength;
|
||||||
|
|
||||||
|
//
|
||||||
|
// get all available near conventional memory
|
||||||
|
//
|
||||||
|
length=coreleft();
|
||||||
|
start = (void far *)(nearheap = malloc(length-SPACEFREE));
|
||||||
|
|
||||||
|
//
|
||||||
|
// paragraph align it and figure size
|
||||||
|
//
|
||||||
|
length -= 16-(FP_OFF(start)&15);
|
||||||
|
length -= EXTRASTACKSIZE;
|
||||||
|
nearlength = length / 16; // now in paragraphs
|
||||||
|
nearstart = FP_SEG(start)+(FP_OFF(start)+15)/16;
|
||||||
|
|
||||||
|
//
|
||||||
|
// get all available far conventional memory
|
||||||
|
//
|
||||||
|
length=farcoreleft();
|
||||||
|
start = farheap = farmalloc(length);
|
||||||
|
|
||||||
|
//
|
||||||
|
// paragraph align it and figure size
|
||||||
|
//
|
||||||
|
if (FP_OFF(start))
|
||||||
|
{
|
||||||
|
length -= 16-FP_OFF(start);
|
||||||
|
start = (void far *)MK_FP(FP_SEG(start)+1,0);
|
||||||
|
}
|
||||||
|
farlength = length / 16; // now in paragraphs
|
||||||
|
farstart = FP_SEG(start);
|
||||||
|
|
||||||
|
totalmem = nearlength + farlength;
|
||||||
|
|
||||||
|
//
|
||||||
|
// detect EMS and allocate 64K at page frame
|
||||||
|
//
|
||||||
|
CheckForEMS();
|
||||||
|
if (EMSpresent)
|
||||||
|
{
|
||||||
|
EMSstart = 0xffff;
|
||||||
|
totalmem += 0x1000; // 64k of EMS
|
||||||
|
MMMapEMS(); // map in used pages
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
EMSstart = 0xffff;
|
||||||
|
}
|
||||||
|
|
||||||
|
//
|
||||||
|
// set up locked blocks
|
||||||
|
//
|
||||||
|
numblocks = 0;
|
||||||
|
|
||||||
|
blocks[numblocks].start = 0;
|
||||||
|
blocks[numblocks].length = nearstart;
|
||||||
|
blocks[numblocks].attributes = LOCKBIT;
|
||||||
|
|
||||||
|
numblocks++;
|
||||||
|
|
||||||
|
blocks[numblocks].start = nearstart+nearlength;
|
||||||
|
blocks[numblocks].length = farstart-(nearstart+nearlength);
|
||||||
|
blocks[numblocks].attributes = LOCKBIT;
|
||||||
|
|
||||||
|
numblocks++;
|
||||||
|
|
||||||
|
blocks[numblocks].start = farstart+farlength;
|
||||||
|
blocks[numblocks].length = EMSstart-(farstart+farlength);
|
||||||
|
blocks[numblocks].attributes = LOCKBIT;
|
||||||
|
|
||||||
|
numblocks++;
|
||||||
|
|
||||||
|
TTLMainMem=16L*MMTotalFree();
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
====================
|
||||||
|
=
|
||||||
|
= MMShutdown
|
||||||
|
=
|
||||||
|
= Frees all conventional, EMS, and XMS allocated
|
||||||
|
=
|
||||||
|
====================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMShutdown (void)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0 the pointers (if any)
|
||||||
|
//
|
||||||
|
for (i=0;i<numblocks-1;i++)
|
||||||
|
*blocks[i].useptr=NULL;
|
||||||
|
|
||||||
|
farfree (farheap);
|
||||||
|
free (nearheap);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
====================
|
||||||
|
=
|
||||||
|
= MMMapEMS
|
||||||
|
=
|
||||||
|
= Maps the 64k of EMS used by memory manager into the page frame
|
||||||
|
= for general use.
|
||||||
|
=
|
||||||
|
====================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMMapEMS (void)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
====================
|
||||||
|
=
|
||||||
|
= MMGetPtr
|
||||||
|
=
|
||||||
|
= Allocates an unlocked, unpurgable block
|
||||||
|
= Start looking at the top of memory
|
||||||
|
=
|
||||||
|
====================
|
||||||
|
*/
|
||||||
|
void MMAllocate(memptr *baseptr,long size)
|
||||||
|
{
|
||||||
|
MMGetPtr(baseptr,(unsigned)((size+15)/16));
|
||||||
|
TTLMainMem=16L*MMTotalFree();
|
||||||
|
}
|
||||||
|
|
||||||
|
void MMGetPtr (memptr *baseptr,unsigned size)
|
||||||
|
{
|
||||||
|
int i,j,k,try;
|
||||||
|
unsigned start,end;
|
||||||
|
|
||||||
|
//
|
||||||
|
// try a normal scan, then compress if not found
|
||||||
|
//
|
||||||
|
for (try=0;try<2;try++)
|
||||||
|
{
|
||||||
|
for (i=0;i<numblocks-1;i++)
|
||||||
|
{
|
||||||
|
if (blocks[i].attributes & PURGEBITS )
|
||||||
|
continue;
|
||||||
|
//
|
||||||
|
// blocks[i] cannot be written over, so try to allocate the
|
||||||
|
// new block right after it
|
||||||
|
//
|
||||||
|
start = blocks[i].start + blocks[i].length;
|
||||||
|
end = start + size;
|
||||||
|
j=i+1;
|
||||||
|
while (blocks[j].start < end)
|
||||||
|
{
|
||||||
|
if (!(blocks[j].attributes & PURGEBITS))
|
||||||
|
{
|
||||||
|
i = j-1;
|
||||||
|
goto lookmore; // a non purgable block is in the way
|
||||||
|
}
|
||||||
|
j++;
|
||||||
|
}
|
||||||
|
//
|
||||||
|
// purge the blocks in the way
|
||||||
|
//
|
||||||
|
for (k=i+1;k<j;j--)
|
||||||
|
RemoveBlock(k);
|
||||||
|
//
|
||||||
|
// allocate the new block
|
||||||
|
//
|
||||||
|
InsertBlock(i);
|
||||||
|
*(unsigned *)baseptr = start;
|
||||||
|
blocks[i+1].start = start;
|
||||||
|
blocks[i+1].length = size;
|
||||||
|
blocks[i+1].useptr = baseptr;
|
||||||
|
blocks[i+1].attributes = BASEATTRIBUTES;
|
||||||
|
return;
|
||||||
|
lookmore:;
|
||||||
|
}
|
||||||
|
//
|
||||||
|
// didn't find any space, so compress and try again
|
||||||
|
//
|
||||||
|
if (try==0)
|
||||||
|
MMSortMem();
|
||||||
|
}
|
||||||
|
|
||||||
|
//puts("");
|
||||||
|
//MMBlockDump(); // DEBUG
|
||||||
|
Quit ("Memory manager error: Out of memory!");
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
=====================
|
||||||
|
=
|
||||||
|
= MMFreePtr
|
||||||
|
=
|
||||||
|
= Frees up a block and NULL's the pointer
|
||||||
|
=
|
||||||
|
=====================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMFreePtr (memptr *baseptr)
|
||||||
|
{
|
||||||
|
RemoveBlock(FindBlock (baseptr));
|
||||||
|
TTLMainMem=16L*MMTotalFree();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
=====================
|
||||||
|
=
|
||||||
|
= MMSetPurge
|
||||||
|
=
|
||||||
|
= Sets the purge level for a block
|
||||||
|
=
|
||||||
|
=====================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMSetPurge (memptr *baseptr, int purge)
|
||||||
|
{
|
||||||
|
int block;
|
||||||
|
unsigned attr;
|
||||||
|
|
||||||
|
block = FindBlock (baseptr);
|
||||||
|
|
||||||
|
attr = blocks[block].attributes;
|
||||||
|
attr &= 0xffff - PURGEBITS;
|
||||||
|
attr |= purge; // set bits in attributes
|
||||||
|
blocks[block].attributes = attr;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
=============================================================================
|
||||||
|
|
||||||
|
MMSortMem
|
||||||
|
|
||||||
|
=============================================================================
|
||||||
|
*/
|
||||||
|
|
||||||
|
//
|
||||||
|
// MoveParas
|
||||||
|
//
|
||||||
|
void MoveParaBase (unsigned source, unsigned dest, unsigned words)
|
||||||
|
{
|
||||||
|
asm mov cx,words
|
||||||
|
asm xor si,si
|
||||||
|
asm xor di,di
|
||||||
|
asm mov ax,source
|
||||||
|
asm mov bx,dest
|
||||||
|
asm mov ds,source
|
||||||
|
asm mov es,dest
|
||||||
|
asm rep movsw
|
||||||
|
asm mov ax,ss
|
||||||
|
asm mov ds,ax
|
||||||
|
}
|
||||||
|
|
||||||
|
void MoveParaBaseUp (unsigned source, unsigned dest, unsigned words)
|
||||||
|
{
|
||||||
|
asm mov cx,words
|
||||||
|
asm mov si,cx
|
||||||
|
asm dec si
|
||||||
|
asm shl si,1
|
||||||
|
asm mov di,si
|
||||||
|
asm mov ax,source
|
||||||
|
asm mov bx,dest
|
||||||
|
asm mov ds,source
|
||||||
|
asm mov es,dest
|
||||||
|
asm rep movsw
|
||||||
|
asm mov ax,ss
|
||||||
|
asm mov ds,ax
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void MoveParas (unsigned source, unsigned dest, unsigned paragraphs)
|
||||||
|
{
|
||||||
|
if (source>dest)
|
||||||
|
{
|
||||||
|
asm cld
|
||||||
|
while (paragraphs>0xfff)
|
||||||
|
{
|
||||||
|
MoveParaBase (source,dest,0xfff*8);
|
||||||
|
source += 0xfff*8;
|
||||||
|
dest += 0xfff*8;
|
||||||
|
paragraphs -= 0xfff;
|
||||||
|
}
|
||||||
|
MoveParaBase (source,dest,paragraphs*8);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
asm std
|
||||||
|
source+=paragraphs;
|
||||||
|
dest+=paragraphs;
|
||||||
|
while (paragraphs>0xfff)
|
||||||
|
{
|
||||||
|
source-=0xfff;
|
||||||
|
dest-=0xfff;
|
||||||
|
MoveParaBaseUp (source,dest,0xfff*8);
|
||||||
|
paragraphs -= 0xfff;
|
||||||
|
}
|
||||||
|
source-=paragraphs;
|
||||||
|
dest-=paragraphs;
|
||||||
|
MoveParaBaseUp (source,dest,paragraphs*8);
|
||||||
|
asm cld
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
======================
|
||||||
|
=
|
||||||
|
= MMSortMem
|
||||||
|
=
|
||||||
|
= Sorts all non locked blocks so lower purge levels are lower in memory
|
||||||
|
= and all free space is at the top
|
||||||
|
=
|
||||||
|
======================
|
||||||
|
*/
|
||||||
|
|
||||||
|
int keyblock;
|
||||||
|
|
||||||
|
//
|
||||||
|
// PushUp
|
||||||
|
//
|
||||||
|
// Pushes the block (purgeable) as high in memory as possible
|
||||||
|
// must be BELOW keyblock
|
||||||
|
// If it can't fit above keyblock it will be freed
|
||||||
|
//
|
||||||
|
void PushUp (int move)
|
||||||
|
{
|
||||||
|
unsigned source,dest,size;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
size = blocks[move].length;
|
||||||
|
source = blocks[move].start;
|
||||||
|
|
||||||
|
for (i=numblocks-1;i>keyblock;i--)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// if the block can fit under this block, move it
|
||||||
|
//
|
||||||
|
dest = blocks[i].start - size;
|
||||||
|
if (blocks[i-1].start+blocks[i-1].length <= dest)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// make a copy of block 'move' under block 'i'
|
||||||
|
//
|
||||||
|
InsertBlock (i-1);
|
||||||
|
blocks[i] = blocks[move];
|
||||||
|
blocks[i].start = dest;
|
||||||
|
*(blocks[i].useptr) = (void _seg *)dest; // modify the pointer to the new spot
|
||||||
|
MoveParas (source,dest,size);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
//
|
||||||
|
// erase original position
|
||||||
|
//
|
||||||
|
RemoveBlock (move);
|
||||||
|
keyblock--; // because a block below it was removed
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// PushDown
|
||||||
|
//
|
||||||
|
// Push keyblock (unpurgable) as low in memory as possible
|
||||||
|
//
|
||||||
|
void PushDown (void)
|
||||||
|
{
|
||||||
|
unsigned source,dest,size,end,lowblock,checkblock,i;
|
||||||
|
|
||||||
|
size = blocks[keyblock].length;
|
||||||
|
source = blocks[keyblock].start;
|
||||||
|
|
||||||
|
//
|
||||||
|
// find the lowest space it can be moved into
|
||||||
|
//
|
||||||
|
for (lowblock = 0;lowblock<keyblock;lowblock++)
|
||||||
|
if (!(blocks[lowblock].attributes & PURGEBITS) ||
|
||||||
|
blocks[lowblock].attributes & LOCKBIT)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// found a locked or nonpurgable block below keyblock
|
||||||
|
//
|
||||||
|
// see if there is enough space to move block
|
||||||
|
//
|
||||||
|
dest = blocks[lowblock].start + blocks[lowblock].length;
|
||||||
|
end = dest+size;
|
||||||
|
|
||||||
|
//
|
||||||
|
// see if any of the blocks in the middle can be moved away
|
||||||
|
//
|
||||||
|
checkblock = lowblock+1;
|
||||||
|
while (checkblock < keyblock && blocks[checkblock].start<end)
|
||||||
|
{
|
||||||
|
if (!(blocks[checkblock].attributes & PURGEBITS) )
|
||||||
|
goto nofit; // can't fit between two locked blocks
|
||||||
|
//
|
||||||
|
// push the block up or remove it, in either case dropping
|
||||||
|
// keyblock and changing blocks[checkblock]
|
||||||
|
//
|
||||||
|
PushUp (checkblock);
|
||||||
|
}
|
||||||
|
//
|
||||||
|
// move it!
|
||||||
|
//
|
||||||
|
if (dest != source)
|
||||||
|
{
|
||||||
|
MoveParas (source,dest,size);
|
||||||
|
blocks[keyblock].start = dest;
|
||||||
|
*(blocks[keyblock].useptr) = (void _seg *)dest; // modify the pointer to the new spot
|
||||||
|
if (lowblock<keyblock-1)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// reorder the block records
|
||||||
|
//
|
||||||
|
tempblock = blocks[keyblock];
|
||||||
|
for (i=keyblock;i>lowblock+1;i--)
|
||||||
|
blocks[i]=blocks[i-1];
|
||||||
|
blocks[lowblock+1] = tempblock;
|
||||||
|
}
|
||||||
|
|
||||||
|
//MMBlockDump(); // DEBUG
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
|
||||||
|
nofit:; // keep looking...
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// MMSortMem
|
||||||
|
//
|
||||||
|
|
||||||
|
void MMSortMem (void)
|
||||||
|
{
|
||||||
|
unsigned i,source,dest;
|
||||||
|
|
||||||
|
keyblock = 0;
|
||||||
|
|
||||||
|
do
|
||||||
|
{
|
||||||
|
keyblock++;
|
||||||
|
|
||||||
|
//
|
||||||
|
// non-purgable, unlocked blocks will be pushed low in memory
|
||||||
|
//
|
||||||
|
if ( !(blocks[keyblock].attributes & PURGEBITS) &&
|
||||||
|
!(blocks[keyblock].attributes & LOCKBIT) )
|
||||||
|
PushDown ();
|
||||||
|
|
||||||
|
} while (keyblock<numblocks-1);
|
||||||
|
|
||||||
|
|
||||||
|
for (i=numblocks-2;i>0;i--)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// push all purgable blocks as high as possible
|
||||||
|
// Currently they are NOT moved around locked blocks!
|
||||||
|
//
|
||||||
|
if ( blocks[i].attributes & PURGEBITS )
|
||||||
|
{
|
||||||
|
source= blocks[i].start;
|
||||||
|
dest= blocks[i+1].start-blocks[i].length;
|
||||||
|
if (source!=dest)
|
||||||
|
{
|
||||||
|
MoveParas (source,dest,blocks[i].length);
|
||||||
|
blocks[i].start = dest;
|
||||||
|
*(blocks[i].useptr) = (void _seg *)dest; // modify the pointer to the new spot
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
PatchPointers(); // let the main program fix up any
|
||||||
|
// internal references
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
=======================
|
||||||
|
=
|
||||||
|
= MMBlockDump
|
||||||
|
=
|
||||||
|
= Dewbug tool
|
||||||
|
=
|
||||||
|
=======================
|
||||||
|
*/
|
||||||
|
|
||||||
|
void MMBlockDump (void)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
unsigned free;
|
||||||
|
|
||||||
|
fprintf (stdprn,"-------------\n");
|
||||||
|
for (i=0;i<numblocks;i++)
|
||||||
|
{
|
||||||
|
fprintf (stdprn,"Start:%4X\tLength:%4X\tAttr:%4X\tPtr:%p\n"
|
||||||
|
,blocks[i].start,blocks[i].length,blocks[i].attributes,blocks[i].useptr);
|
||||||
|
if (i<numblocks-1)
|
||||||
|
{
|
||||||
|
free = blocks[i+1].start - (blocks[i].start+blocks[i].length);
|
||||||
|
if (free)
|
||||||
|
fprintf (stdprn,"### Free:%X\n",free);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
puts("");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
/*
|
||||||
|
======================
|
||||||
|
=
|
||||||
|
= MMUnusedMemory
|
||||||
|
=
|
||||||
|
= Returns the total free space without purging
|
||||||
|
=
|
||||||
|
======================
|
||||||
|
*/
|
||||||
|
|
||||||
|
unsigned MMUnusedMemory (void)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
unsigned free;
|
||||||
|
|
||||||
|
free = 0;
|
||||||
|
|
||||||
|
for (i=0;i<numblocks;i++)
|
||||||
|
{
|
||||||
|
if (i<numblocks-1)
|
||||||
|
free += blocks[i+1].start - (blocks[i].start+blocks[i].length);
|
||||||
|
}
|
||||||
|
|
||||||
|
return free;
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
======================
|
||||||
|
=
|
||||||
|
= MMTotalFree
|
||||||
|
=
|
||||||
|
= Returns the total free space with purging
|
||||||
|
=
|
||||||
|
======================
|
||||||
|
*/
|
||||||
|
|
||||||
|
unsigned MMTotalFree (void)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
unsigned free;
|
||||||
|
|
||||||
|
free = 0;
|
||||||
|
|
||||||
|
for (i=0;i<numblocks;i++)
|
||||||
|
{
|
||||||
|
if (blocks[i].attributes & PURGEBITS)
|
||||||
|
free += blocks[i].length;
|
||||||
|
if (i<numblocks-1)
|
||||||
|
free += blocks[i+1].start - (blocks[i].start+blocks[i].length);
|
||||||
|
}
|
||||||
|
|
||||||
|
return free;
|
||||||
|
}
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
@@ -0,0 +1,28 @@
|
|||||||
|
|
||||||
|
typedef void _seg * memptr;
|
||||||
|
|
||||||
|
extern long TTLMainMem;
|
||||||
|
extern unsigned totalmem; // total paragraphs available with 64k EMS
|
||||||
|
extern int EMSpresent,XMSpresent;
|
||||||
|
|
||||||
|
|
||||||
|
//==========================================================================
|
||||||
|
|
||||||
|
//
|
||||||
|
// public prototypes
|
||||||
|
//
|
||||||
|
|
||||||
|
void MMStartup (void);
|
||||||
|
void MMShutdown (void);
|
||||||
|
void MMMapEMS (void);
|
||||||
|
void MMAllocate(memptr *baseptr,long size);
|
||||||
|
void MMGetPtr (memptr *baseptr,unsigned size);
|
||||||
|
void MMFreePtr (memptr *baseptr);
|
||||||
|
void MMSetPurge (memptr *baseptr, int purge);
|
||||||
|
void MMSortMem (void);
|
||||||
|
void MMBlockDump (void);
|
||||||
|
unsigned MMUnusedMemory (void);
|
||||||
|
unsigned MMTotalFree (void);
|
||||||
|
|
||||||
|
|
||||||
|
void PatchPointers (void); // must be present in the main program
|
||||||
BIN
Binary file not shown.
@@ -0,0 +1,78 @@
|
|||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Pull-Down menu interface .H file
|
||||||
|
//
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
typedef struct { char *item_name;
|
||||||
|
void (*routine)(void);
|
||||||
|
char shiftflag;
|
||||||
|
char hotkey;
|
||||||
|
} MenuDef;
|
||||||
|
|
||||||
|
typedef struct { int num_items;
|
||||||
|
MenuDef *menu_def;
|
||||||
|
char *menu_name;
|
||||||
|
} MBarDef;
|
||||||
|
|
||||||
|
typedef struct { int menux;
|
||||||
|
int menunamelen;
|
||||||
|
int menuwidth;
|
||||||
|
} MInfoType;
|
||||||
|
|
||||||
|
typedef struct { char *text;
|
||||||
|
int xoff,yoff,border;
|
||||||
|
} btype;
|
||||||
|
|
||||||
|
typedef struct { char *text;
|
||||||
|
int width,height,numbuttons;
|
||||||
|
btype *buttons;
|
||||||
|
void (*hook)(int x,int y);
|
||||||
|
} DialogDef;
|
||||||
|
|
||||||
|
typedef struct { int x,y,w,h;
|
||||||
|
void _seg *buffer;
|
||||||
|
} BackSaveStr;
|
||||||
|
|
||||||
|
#define SCindex 0x3C4
|
||||||
|
#define SCmapmask 2
|
||||||
|
#define GCindex 0x3CE
|
||||||
|
#define GCreadmap 4
|
||||||
|
#define GCmode 5
|
||||||
|
#define crtcaddr 0x3d4
|
||||||
|
|
||||||
|
#define NUMFLASHES 10
|
||||||
|
#define ALT 0x38
|
||||||
|
#define CTRL 0x1d
|
||||||
|
|
||||||
|
#define MAXFDNAMES 40
|
||||||
|
extern struct ffblk f; // more info from GetPath
|
||||||
|
|
||||||
|
|
||||||
|
void extern InitDesktop(MBarDef *menubar,int initmouse);
|
||||||
|
void extern DeskEventLoop(void (*UserRoutine)(void),void (*ConstantRoutine)(void));
|
||||||
|
void extern ClearScreen(void);
|
||||||
|
void extern RedrawDesktop(void);
|
||||||
|
void extern SaveBackground(int x,int y,int w,int h);
|
||||||
|
void extern RestoreBackground(void);
|
||||||
|
int extern DoDialog(DialogDef *TheDialog);
|
||||||
|
void extern ErrDialog(char *string,char *bstring);
|
||||||
|
void extern DrawBorder(int x,int y,int w,int h,int b);
|
||||||
|
int extern CheckButtons(DialogDef *TheDialog);
|
||||||
|
int extern CheckButtonsRet(DialogDef *TheDialog);
|
||||||
|
void extern DrawDialog(DialogDef *TheDialog,int saveback);
|
||||||
|
void extern GetButtonXY(DialogDef *TheDialog,int button,unsigned *x,unsigned *y);
|
||||||
|
void extern GetDialogXY(DialogDef *TheDialog,unsigned *x,unsigned *y);
|
||||||
|
int extern CheckList(int x,int y,int w,int h,void (*oncode)(),void (*offcode)(),int blink);
|
||||||
|
int extern Message(char *mstring);
|
||||||
|
|
||||||
|
//
|
||||||
|
// RETURNS 0=OK,-1=NO FILES MATCH FILTER,-2=CANCELED
|
||||||
|
//
|
||||||
|
extern char NameList[MAXFDNAMES][13];
|
||||||
|
int GetPath(char *string,char *filter,char *path);
|
||||||
|
int GetList(char *string,int numnames);
|
||||||
|
|
||||||
|
static void FDon(int x,int y,int w);
|
||||||
|
static void FDoff(int x,int y,int w);
|
||||||
|
static void CancelOn(int x,int y);
|
||||||
|
static void CancelOff(int x,int y);
|
||||||
+13
@@ -0,0 +1,13 @@
|
|||||||
|
Ted 5.0
|
||||||
|
=======
|
||||||
|
|
||||||
|
The Ted source code needs to be compiled with Borland C/C++ 3.1. It will
|
||||||
|
probably compile with 4.0 but there are a few OBJ's that are linked in and
|
||||||
|
not built (the vgapalette, the tedfont etc.).
|
||||||
|
|
||||||
|
This code was written by John Romero of Id Software Inc. A screen blanker
|
||||||
|
was added and a scrolling bug was fixed by Mark Dochtermann of Apogee
|
||||||
|
Software Ltd.
|
||||||
|
|
||||||
|
Do not contact Apogee or id regarding any questions on this software. It
|
||||||
|
is provided "AS IS" with no warranty.
|
||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
@@ -0,0 +1,356 @@
|
|||||||
|
#define IDSTRING "TED5v1.0"
|
||||||
|
#define TITLESTR "TED5 vD.IP"
|
||||||
|
#define IDSTSTR " "TITLESTR
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <process.h>
|
||||||
|
#include <io.h>
|
||||||
|
#include <dos.h>
|
||||||
|
#include <alloc.h>
|
||||||
|
#include <dir.h>
|
||||||
|
#include <mem.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <conio.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include "lib.h"
|
||||||
|
#include "memmgr.h"
|
||||||
|
#include "menu.h"
|
||||||
|
#include "jhuff.h"
|
||||||
|
#include "xms.h"
|
||||||
|
|
||||||
|
#define SGN(x) (x>0?1:x<0?-1:0)
|
||||||
|
#define OFF3(m,i) (*(long huge *)((char huge *)m+(i)*3)&0xffffff)
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// Defs for TED5
|
||||||
|
//
|
||||||
|
|
||||||
|
typedef enum {TILES,MASKED,ICONS} screentype;
|
||||||
|
typedef enum {DATA,CODE,FARDATA} segtype; // FOR MAKEOBJ ONLY
|
||||||
|
|
||||||
|
#define SCindex 0x3C4
|
||||||
|
#define SCmapmask 2
|
||||||
|
#define GCindex 0x3CE
|
||||||
|
#define GCreadmap 4
|
||||||
|
#define GCmode 5
|
||||||
|
#define crtcaddr 0x3d4
|
||||||
|
|
||||||
|
//
|
||||||
|
// STRUCTURE OF TED5 TEMPFILE WHILE LAUNCHING
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
video lastmode;
|
||||||
|
char ext[4];
|
||||||
|
} TempStruct;
|
||||||
|
|
||||||
|
//
|
||||||
|
// STRUCTURE OF THE "TEDINFO.EXT" FILE THAT TED5 CREATES
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
int level,lastvid,lastx,lasty,tsize;
|
||||||
|
int OldCgaXMS,OldEgaXMS,OldVgaXMS;
|
||||||
|
long OldCgaXMSsize,OldEgaXMSsize,OldVgaXMSsize;
|
||||||
|
int CgaXMSlook,EgaXMSlook,VgaXMSlook;
|
||||||
|
char permicon,pflags;
|
||||||
|
int oscrx,oscry;
|
||||||
|
char parmstring[64],launchname[14];
|
||||||
|
char BackgndColor;
|
||||||
|
char ImportPath[64];
|
||||||
|
} InfoStruct;
|
||||||
|
|
||||||
|
//
|
||||||
|
// STRUCTURE OF THE "GFXINFO?.EXT" FILE THAT IGRAB CREATES
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
int num8,num8m,num16,num16m,num32,num32m;
|
||||||
|
int off8,off8m,off16,off16m,off32,off32m;
|
||||||
|
int numpics,numpicm,numsprites;
|
||||||
|
int offpic,offpicm,offsprites;
|
||||||
|
int offpicstr,offpicmstr,offsprstr;
|
||||||
|
int numexterns,offexterns;
|
||||||
|
} GfxStruct;
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5 LOADS & SAVES THIS HEADER FOR INTERNAL MAPFILE USAGE
|
||||||
|
//
|
||||||
|
typedef struct { unsigned maptype; //bit 0=bkgnd/1=frgnd/2=info
|
||||||
|
unsigned tsize; //1=8/2=16/3=32
|
||||||
|
|
||||||
|
unsigned numtplanes,oldtilenum;
|
||||||
|
long tileinfooff[10];
|
||||||
|
unsigned tileinfolen[10];
|
||||||
|
char tnames[10][8];
|
||||||
|
|
||||||
|
unsigned numtmplanes,oldtilemnum;
|
||||||
|
long tileinfomoff[10];
|
||||||
|
unsigned tileinfomlen[10];
|
||||||
|
char tmnames[10][8];
|
||||||
|
|
||||||
|
unsigned RLEWtag;
|
||||||
|
long dataoffsets[100];
|
||||||
|
long datalengths[100];
|
||||||
|
|
||||||
|
int NumIconRows;
|
||||||
|
} MapFileHeaderStr;
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5 SAVES THIS MAPFILE HEADER FOR THE GAME
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
unsigned RLEWtag;
|
||||||
|
long dataoffsets[100];
|
||||||
|
|
||||||
|
} OutputHeadStr;
|
||||||
|
|
||||||
|
//
|
||||||
|
// EACH AND EVERY MAP HAS THIS HEADER (IF THE MAP EXISTS)
|
||||||
|
//
|
||||||
|
typedef struct { long mapbkgndpl;
|
||||||
|
long mapfrgndpl;
|
||||||
|
long mapinfopl;
|
||||||
|
unsigned mapbkgndlen;
|
||||||
|
unsigned mapfrgndlen;
|
||||||
|
unsigned mapinfolen;
|
||||||
|
unsigned width,height;
|
||||||
|
char name[16];
|
||||||
|
} MapHeaderStr;
|
||||||
|
|
||||||
|
//
|
||||||
|
// SPECIFY WHAT, WHEREFROM, AND HOW TO COPY A REGION
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
char PlanesCopied; // use BPLANE,FPLANE,IPLANE to mask
|
||||||
|
int MapOrTileSelect; // 0:map,1:tileselect
|
||||||
|
int x,y,w,h; // from map or tileselect
|
||||||
|
} CopyStr;
|
||||||
|
|
||||||
|
//
|
||||||
|
// UNDO REGION
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
int x,y,w,h;
|
||||||
|
} UndoStr;
|
||||||
|
|
||||||
|
//
|
||||||
|
// LAST-BUILT "VIEWMAP"
|
||||||
|
//
|
||||||
|
typedef struct {
|
||||||
|
unsigned step,built_flag,EGAseg,maxpack;
|
||||||
|
} VMapStr;
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// HEADER FOR APPLE-PREFERRED FILES
|
||||||
|
//
|
||||||
|
typedef struct { long length;
|
||||||
|
char Kind[5];
|
||||||
|
int MasterMode;
|
||||||
|
int PixelsPerLine;
|
||||||
|
int NumColorTables;
|
||||||
|
int ColorTable[16];
|
||||||
|
int NumScanLines;
|
||||||
|
} ApPrefStr;
|
||||||
|
|
||||||
|
#define CREATED 1
|
||||||
|
#define NOTCREATED 2
|
||||||
|
#define ANYLIST 3
|
||||||
|
|
||||||
|
#define BPLANE 1
|
||||||
|
#define FPLANE 2
|
||||||
|
#define IPLANE 4
|
||||||
|
|
||||||
|
#define O_FGNDBACK 4
|
||||||
|
#define ICONBACK 3
|
||||||
|
|
||||||
|
#define TINFOWIDTH 3
|
||||||
|
#define TINFOHEIGHT 7
|
||||||
|
#define TINFOHEIGHTEGA2 25
|
||||||
|
|
||||||
|
extern MBarDef TED5MenuBar[];
|
||||||
|
extern DialogDef DoCreated;
|
||||||
|
|
||||||
|
extern UndoStr UndoRegion;
|
||||||
|
extern CopyStr TileCopy;
|
||||||
|
extern MapFileHeaderStr _seg *MapFileHeader;
|
||||||
|
extern char _seg *Tinfo[10],_seg *TMinfo[10],_seg *GraphHeader;
|
||||||
|
extern long _seg *XMSlookup,_seg *CgaXMSlookup,_seg *EgaXMSlookup,_seg *VgaXMSlookup;
|
||||||
|
extern int _seg *MapBkgnd,_seg *MapFrgnd,_seg *MapInfoPl,
|
||||||
|
_seg *CutBkgnd,_seg *CutFrgnd,_seg *CutInfoPl;
|
||||||
|
extern MapHeaderStr MapHeader;
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
extern char far TOM; // JOKE SHIT!
|
||||||
|
#endif
|
||||||
|
|
||||||
|
extern TempStruct LaunchInfo;
|
||||||
|
extern InfoStruct _seg *TEDInfo;
|
||||||
|
extern GfxStruct _seg *GfxInfo;
|
||||||
|
extern video lastvideo,videomode;
|
||||||
|
extern screentype whichscreen;
|
||||||
|
extern VMapStr VMapData;
|
||||||
|
|
||||||
|
extern char launchname[64],ext[4],format[2],projname[64],mapname[64],planes,
|
||||||
|
infoname[64],mapheadname[64],tdata,MapNames[100][16],parmstring[64];
|
||||||
|
extern char SM_name[64],SM_loadname[64],BkgndColor;
|
||||||
|
|
||||||
|
extern unsigned temp,whichmap,numtplanes,tilenum,tilemnum,numtmplanes,left,
|
||||||
|
DirtyFlag,tilelen,tilemlen,whicht,whichtm,whichi,
|
||||||
|
tsize,infoy,infomaxw,mapwidth,mapheight,screenw,usingbat,
|
||||||
|
screenh,planeton,planemon,planeion,maxiconrows,lasticon,firsticon,
|
||||||
|
viewton,viewmon,viewion,XMSundoB,XMSundoF,XMSundoI,XMSmaps,
|
||||||
|
EgaXMS,CgaXMS,VgaXMS,xmshandle,GridMode,SnapMode,snapx,snapy,
|
||||||
|
snapxsize,snapysize,writeH,F3_flag,NoAbout;
|
||||||
|
extern int tilebase,tilembase,infobaron,xbase,ybase,scrnbot,scrnrgt,
|
||||||
|
FillMode,PasteMode,SelectMode,SelX1,SelY1,PasteOK,SelX2,SelY2,pixelx,pixely,
|
||||||
|
selectcols,px,py,lastmap,TIybase,TIymbase,TIxbase,TIxmbase,BfillMode,
|
||||||
|
Plotting,TsearchMode;
|
||||||
|
extern long CgaXMSsize,EgaXMSsize,VgaXMSsize;
|
||||||
|
|
||||||
|
extern void far *XMSdriver;
|
||||||
|
|
||||||
|
//
|
||||||
|
// FUNCTION PROTOTYPES
|
||||||
|
//
|
||||||
|
|
||||||
|
//
|
||||||
|
// LIB_A.ASM
|
||||||
|
//
|
||||||
|
extern void CGAcharout(int x,int y,char ch);
|
||||||
|
extern void EGAcharout(int x,int y,char ch,video vid);
|
||||||
|
extern void VGAcharout(int x,int y,char ch);
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5_A.ASM
|
||||||
|
//
|
||||||
|
extern unsigned EGA1lookup[200];
|
||||||
|
extern unsigned EGA2lookup[200];
|
||||||
|
extern void DrawTile(int x,int y,int tile);
|
||||||
|
extern void CopyCGA(int srcx,int srcy,int width,int height,int destx,int desty);
|
||||||
|
extern void CopyEGA(int srcx,int srcy,int width,int height,int destx,int desty);
|
||||||
|
extern void CopyVGA(int srcx,int srcy,int width,int height,int destx,int desty);
|
||||||
|
extern void Overlay(int tsize);
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5
|
||||||
|
//
|
||||||
|
void FindGraphFile(void);
|
||||||
|
void HandleEvent(void);
|
||||||
|
void Continuous(void);
|
||||||
|
void LoadInfoFile(void);
|
||||||
|
int LoadGraphStuff(int rtn,video newvid);
|
||||||
|
void LoadMapHeader(void);
|
||||||
|
void ParseCmdline(void);
|
||||||
|
void InitTed5(void);
|
||||||
|
void CallDesktop(void);
|
||||||
|
void SelectTiles(int screen);
|
||||||
|
void STnot(int x,int y);
|
||||||
|
void DrawProjBord(int x,int y);
|
||||||
|
void DrawInfoBar(void);
|
||||||
|
void PrintCoords(void);
|
||||||
|
void FigureScreenEdges(void);
|
||||||
|
void errsound(void);
|
||||||
|
void DrawMap(void);
|
||||||
|
void CheckSelectEdges(int x,int y,int i,int j);
|
||||||
|
int InputIconAmount(void);
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5-1
|
||||||
|
//
|
||||||
|
void Item_InputInfoplane(void);
|
||||||
|
void Item_SelectTile(void);
|
||||||
|
void Item_EditTinfoNames(void);
|
||||||
|
void Item_BlockFill(void);
|
||||||
|
void Item_TileSearch(void);
|
||||||
|
void Item_Launch(void);
|
||||||
|
void Item_Undo(void);
|
||||||
|
void Item_TINFOCopy(void);
|
||||||
|
|
||||||
|
void CreateMap(int exitok);
|
||||||
|
int SelectMap(int exitok,int createflg,char *title);
|
||||||
|
int PickMorePlanes(void);
|
||||||
|
void DoBlockFill(void);
|
||||||
|
void RemoveUndoBuffers(void);
|
||||||
|
void AllocateUndoBuffers(void);
|
||||||
|
void RestoreUndo(void);
|
||||||
|
void SaveUndo(int x,int y,int w,int h);
|
||||||
|
void CopyUndoRegion(void);
|
||||||
|
void SaveOutputHeader(void);
|
||||||
|
void SaveTEDInfo(void);
|
||||||
|
void BackupFile(char *filename);
|
||||||
|
|
||||||
|
void TInfoNon(int x,int y,int b);
|
||||||
|
void TInfoNoff(int x,int y,int b);
|
||||||
|
void TInfoMNon(int x,int y,int b);
|
||||||
|
void TInfoMNoff(int x,int y,int b);
|
||||||
|
void TIDoneOn(int x,int y);
|
||||||
|
void TIDoneOff(int x,int y);
|
||||||
|
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5-2
|
||||||
|
//
|
||||||
|
void Item_About(void);
|
||||||
|
void Item_ModeSwitch(void);
|
||||||
|
void Item_DeleteMap(void);
|
||||||
|
void Item_EditMap(void);
|
||||||
|
void Item_SaveMap(void);
|
||||||
|
void Item_CreateMap(void);
|
||||||
|
void Item_Quit(void);
|
||||||
|
void Item_MapStats(void);
|
||||||
|
void Item_ToggleInfo(void);
|
||||||
|
void Item_Amputate(void);
|
||||||
|
void Item_SwitchMap(void);
|
||||||
|
void Item_EditMapNames(void);
|
||||||
|
void Item_Copy(void);
|
||||||
|
void Item_Paste(void);
|
||||||
|
void Item_LastVideo(void);
|
||||||
|
void Item_FloodFill(void);
|
||||||
|
void Item_LastMap(void);
|
||||||
|
void Item_CountTiles(void);
|
||||||
|
int CheckForMapSave(void);
|
||||||
|
void DoFloodFill(int x,int y,int whichb);
|
||||||
|
|
||||||
|
void DrawTileSelect(int deltarows,int *numrows,int *numcols);
|
||||||
|
void DrawUnused(int deltarow);
|
||||||
|
void DrawCurrentTiles(void);
|
||||||
|
void ZeroModes(void);
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5-3
|
||||||
|
//
|
||||||
|
void Item_EditMapEdges(void);
|
||||||
|
void Item_PrintMem(void);
|
||||||
|
void Item_Huffman(void);
|
||||||
|
void CheckInfoValues(int i,int j,int tilei);
|
||||||
|
void PrintMem(int x,int y);
|
||||||
|
void EraseFloatPaste(void);
|
||||||
|
void DrawFloatPaste(void);
|
||||||
|
void CopyScreen(int srcx,int srcy,int width,int height,int destx,int desty);
|
||||||
|
void Item_LAUNCHname(void);
|
||||||
|
void Item_PARMstring(void);
|
||||||
|
void Item_ChangeIconRows(void);
|
||||||
|
void Item_ChangeLaunchIcon(void);
|
||||||
|
void Item_ChangeBkgndColor(void);
|
||||||
|
|
||||||
|
//
|
||||||
|
// TED5-4
|
||||||
|
//
|
||||||
|
void SignalSound(void);
|
||||||
|
void Item_GraphicDump(void);
|
||||||
|
void Item_EditTinfoValues(void);
|
||||||
|
void Item_ProjectReSelect(void);
|
||||||
|
void Item_AddDelTinfo(void);
|
||||||
|
void Item_GridMode(void);
|
||||||
|
void Item_SnapTog(void);
|
||||||
|
void Item_ViewMap(void);
|
||||||
|
void Item_ReviewMap(void);
|
||||||
|
void Item_ImportMaps(void);
|
||||||
|
void Item_VisitDOS(void);
|
||||||
|
void Item_POtog(void);
|
||||||
|
void Do_ViewMap(int how);
|
||||||
|
int MakeOBJ(char *filename,char *destfilename,char *public,segtype whichseg,char *farname);
|
||||||
|
void DrawTinfoScreen(int thescreen,int deltax,int deltay);
|
||||||
|
void EnterTinfoValue(int whichtinfo,int mx,int my,int H_or_V);
|
||||||
|
void UseTinfoValue(int whichtinfo,int mx,int my,int PickupOrDrop);
|
||||||
@@ -0,0 +1,37 @@
|
|||||||
|
|
||||||
|
Start Stop Length Name Class
|
||||||
|
|
||||||
|
00000H 03D85H 03D86H _TEXT CODE
|
||||||
|
03D86H 075F3H 0386EH TED5_TEXT CODE
|
||||||
|
075F4H 0AAB4H 034C1H TED5-1_TEXT CODE
|
||||||
|
0AAB5H 0DF0EH 0345AH TED5-2_TEXT CODE
|
||||||
|
0DF0FH 11A7EH 03B70H TED5-3_TEXT CODE
|
||||||
|
11A7FH 155C6H 03B48H TED5-4_TEXT CODE
|
||||||
|
155C8H 15F88H 009C1H TED5_A_TEXT CODE
|
||||||
|
15F89H 18B31H 02BA9H MENU_TEXT CODE
|
||||||
|
18B32H 1998FH 00E5EH LIB_TEXT CODE
|
||||||
|
19990H 1A2B3H 00924H MEMMGR_TEXT CODE
|
||||||
|
1A2B4H 1A55FH 002ACH XMS_TEXT CODE
|
||||||
|
1A560H 1B034H 00AD5H JHUFF_TEXT CODE
|
||||||
|
1B038H 1B3D8H 003A1H LIB_A_TEXT CODE
|
||||||
|
1B3E0H 1DB46H 02767H EMU_PROG CODE
|
||||||
|
1DB50H 1E117H 005C8H E87_PROG CODE
|
||||||
|
1E120H 1E120H 00000H _FARDATA FAR_DATA
|
||||||
|
1E120H 1F11FH 01000H TEDcharset FAR_DATA
|
||||||
|
1F120H 1F120H 00000H _FARBSS FAR_BSS
|
||||||
|
1F120H 1F120H 00000H _OVERLAY_ OVRINFO
|
||||||
|
1F120H 1F120H 00000H _1STUB_ STUBSEG
|
||||||
|
1F120H 25277H 06158H _DATA DATA
|
||||||
|
25278H 25279H 00002H _CVTSEG DATA
|
||||||
|
2527AH 2527AH 00000H _SCNSEG DATA
|
||||||
|
2527AH 2527AH 00000H _CONST CONST
|
||||||
|
2527AH 25291H 00018H _INIT_ INITDATA
|
||||||
|
25292H 25292H 00000H _INITEND_ INITDATA
|
||||||
|
25292H 25297H 00006H _EXIT_ EXITDATA
|
||||||
|
25298H 25298H 00000H _EXITEND_ EXITDATA
|
||||||
|
25298H 29B6BH 048D4H _BSS BSS
|
||||||
|
29B6CH 29B6CH 00000H _BSSEND BSSEND
|
||||||
|
29B70H 29BEFH 00080H _STACK STACK
|
||||||
|
|
||||||
|
Program entry point at 0000:0000
|
||||||
|
|
||||||
+1385
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
@@ -0,0 +1,200 @@
|
|||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// XMS routines - uses the MENU.C & LIB.C routines for output
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
#include "ted5.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
|
||||||
|
long TTLxms;
|
||||||
|
unsigned XMSavail;
|
||||||
|
void far *XMSdriver;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// CALL the XMSdriver with a function #
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
void CallXMS(char func)
|
||||||
|
{
|
||||||
|
asm mov ah,[func]
|
||||||
|
asm call [DWORD PTR XMSdriver]
|
||||||
|
}
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Initialize the XMS memory
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
void InitXMS(void)
|
||||||
|
{
|
||||||
|
//
|
||||||
|
// See if XMS driver is present...
|
||||||
|
//
|
||||||
|
asm mov ax,0x4300
|
||||||
|
asm int 0x2f
|
||||||
|
asm cmp al,0x80 // installed?
|
||||||
|
asm je Present
|
||||||
|
|
||||||
|
ErrDialog("You poor bastard! I refuse\n"
|
||||||
|
"to work without Extended\n"
|
||||||
|
"Memory! Goodbye!"," I Suck ");
|
||||||
|
Quit("No Extended Memory Driver found!");
|
||||||
|
|
||||||
|
//
|
||||||
|
// YES! We found an XMS driver! Now we
|
||||||
|
// need to get the XMS driver's entry address...
|
||||||
|
//
|
||||||
|
Present:
|
||||||
|
asm mov ax,0x4310
|
||||||
|
asm int 0x2f
|
||||||
|
asm mov WORD PTR XMSdriver,bx
|
||||||
|
asm mov WORD PTR XMSdriver+2,es
|
||||||
|
|
||||||
|
XMSTotalFree();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Report an XMS error, if any
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
void XMSerror(void)
|
||||||
|
{
|
||||||
|
if (_AX==0)
|
||||||
|
switch(_BL)
|
||||||
|
{
|
||||||
|
case 0x80: Quit("Function not implemented!");
|
||||||
|
case 0x81: Quit("VDISK device driver was detected!");
|
||||||
|
case 0x82: Quit("A20 error occurred!");
|
||||||
|
case 0x8e: Quit("General driver error!");
|
||||||
|
case 0x8f: Quit("Unrecoverable driver error!");
|
||||||
|
|
||||||
|
case 0x90: Quit("High memory area does not exist!");
|
||||||
|
case 0x91: Quit("High memory area already in use!");
|
||||||
|
case 0x92: Quit("DX is less than /HMAMIN= parameter!");
|
||||||
|
case 0x93: Quit("High memory area not allocated!");
|
||||||
|
case 0x94: Quit("A20 line still enabled!");
|
||||||
|
|
||||||
|
case 0xa0: Quit("Not enough Extended Memory available!");
|
||||||
|
case 0xa1: Quit("Extended memory handles exhausted!");
|
||||||
|
case 0xa2: Quit("Invalid handle!");
|
||||||
|
case 0xa3: Quit("Invalid source handle!");
|
||||||
|
case 0xa4: Quit("Invalid source offset!");
|
||||||
|
case 0xa5: Quit("Invalid destination handle!");
|
||||||
|
case 0xa6: Quit("Invalid destination offset!");
|
||||||
|
case 0xa7: Quit("Invalid length!");
|
||||||
|
case 0xa8: Quit("Invalid overlap in move request!");
|
||||||
|
case 0xa9: Quit("Parity error detected!");
|
||||||
|
case 0xaa: Quit("Block is not locked!");
|
||||||
|
case 0xab: Quit("Block is locked!");
|
||||||
|
case 0xac: Quit("Lock count overflowed!");
|
||||||
|
case 0xad: Quit("Lock failed!");
|
||||||
|
|
||||||
|
case 0xb0: Quit("Smaller UMB is available!");
|
||||||
|
case 0xb1: Quit("No UMBs are available!");
|
||||||
|
case 0xb2: Quit("Invalid UMB segment number!");
|
||||||
|
|
||||||
|
default: Quit("Unknown XMS Memory Error! I'm totally stumped!");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Allocate XMS memory
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
int XMSAllocate(long size)
|
||||||
|
{
|
||||||
|
#if 0
|
||||||
|
static int allocnum=0;
|
||||||
|
|
||||||
|
_MouseHide();
|
||||||
|
sx=0;
|
||||||
|
sy=1;
|
||||||
|
print("XMS allocation #");
|
||||||
|
printint(allocnum++);
|
||||||
|
print(":");
|
||||||
|
printint((1023L+size)/1024L);
|
||||||
|
print("K");
|
||||||
|
while(!keydown[0x1c]);
|
||||||
|
clearkeys();
|
||||||
|
_MouseShow();
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
_DX=(size+1023)/1024;
|
||||||
|
CallXMS(9);
|
||||||
|
XMSerror();
|
||||||
|
asm push dx
|
||||||
|
TTLxms=1024L*XMSTotalFree();
|
||||||
|
asm pop dx
|
||||||
|
return _DX;
|
||||||
|
}
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Free XMS memory
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
void XMSFreeMem(int handle)
|
||||||
|
{
|
||||||
|
_DX=handle;
|
||||||
|
CallXMS(10);
|
||||||
|
XMSerror();
|
||||||
|
TTLxms=1024L*XMSTotalFree();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Return XMS memory available
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
unsigned XMSTotalFree(void)
|
||||||
|
{
|
||||||
|
CallXMS(8);
|
||||||
|
XMSerror();
|
||||||
|
XMSavail=_DX;
|
||||||
|
return XMSavail;
|
||||||
|
}
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
//
|
||||||
|
// Move XMS memory
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
void XMSmove(int srchandle,long srcoff,int desthandle,long destoff,long size)
|
||||||
|
{
|
||||||
|
struct { long bsize;
|
||||||
|
int shandle;
|
||||||
|
long soff;
|
||||||
|
int dhandle;
|
||||||
|
long doff;
|
||||||
|
} XMSparms;
|
||||||
|
|
||||||
|
unsigned DSreg,SIreg;
|
||||||
|
|
||||||
|
XMSparms.bsize=size+(size&1);
|
||||||
|
XMSparms.shandle=srchandle;
|
||||||
|
XMSparms.dhandle=desthandle;
|
||||||
|
XMSparms.soff=srcoff;
|
||||||
|
XMSparms.doff=destoff;
|
||||||
|
|
||||||
|
DSreg=FP_SEG(&XMSparms);
|
||||||
|
SIreg=FP_OFF(&XMSparms);
|
||||||
|
|
||||||
|
asm push ds
|
||||||
|
asm push si
|
||||||
|
asm mov si,SIreg
|
||||||
|
asm mov ds,DSreg
|
||||||
|
|
||||||
|
CallXMS(11);
|
||||||
|
|
||||||
|
asm pop si
|
||||||
|
asm pop ds
|
||||||
|
|
||||||
|
XMSerror();
|
||||||
|
}
|
||||||
@@ -0,0 +1,8 @@
|
|||||||
|
void InitXMS(void);
|
||||||
|
int XMSAllocate(long size);
|
||||||
|
unsigned XMSTotalFree(void); // returns KB free
|
||||||
|
void XMSFreeMem(int handle);
|
||||||
|
void XMSmove(int srchandle,long srcoff,int desthandle,long destoff,long size);
|
||||||
|
|
||||||
|
extern unsigned XMSavail;
|
||||||
|
extern long TTLxms;
|
||||||
Binary file not shown.
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
Reference in New Issue
Block a user