home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
TPMUL221.ZIP
/
MULAWARE.INT
< prev
next >
Wrap
Text File
|
1992-03-02
|
2KB
|
63 lines
UNIT MulAware;
{
Multitasking Routines for TP 6.0
Copyright (c) 1991,1992 A.B.S. - ALL RIGHTS RESERVED
2.00 First Distributed Release
2.10 Fixed Windows Checking
2.11 Took out VMiX Code
2.20 Fixed DDOS Code - Locking up Novell
2.21 Fixed Code - Tried to be too smart for my own good
}
{B-,D-,F+,I-,O-,R-,S-,V-}
INTERFACE
CONST
MultiTasker : Boolean = True;
DV_Loaded : Boolean = False; {DESQview 2.26+}
TV_Loaded : Boolean = False; {DV 2.00-2.25, TaskView, TopView, OmniView,
& clones}
DDOS_Loaded : Boolean = False; {DoubleDOS}
WIN386_Loaded : Boolean = False; {Windows in 386enh mode}
PROCEDURE TimeSlice;
{Gives up one Time Slice, call while polling the keyboard for input,
has no effect if a multitasker is not present}
PROCEDURE PreventSwitching;
{Prevents Task Switching until ResumeSwitching is called, used for
critical code, don't leave on for too long!, has no effect if a
multitasker is not present}
PROCEDURE ResumeSwitching;
{Resumes Task Switching, has no effect if a multitasker is not present}
FUNCTION MulVersion : Word;
{Returns the Version Number for TopView, DESQview 2.26+, and Win386, 0 for all
others or none, OmniView - who knows}
FUNCTION VirtualBuffer : Word;
{Returns the Virtual Buffer for Direct Screen Writes
Should only be called once for DESQview & TV, should be called
EVERY write for DDOS, returns 0 if no multitasker is present}
PROCEDURE TV_UpdateBuffer(Num : Word; Buffer, CharOffset : Word);
{Updates the screen from the virtual buffer. Num is the number of
sequential characters that have been modified. Buffer is the VirtualBuffer.
CharOffset is the offset of the first character modified. Do NOT call with
Num = 0! Only needed for TV, DESQview will discontinue the automatic screen
updating if this is called!, might crash if TV/DV is not present!}
FUNCTION DDOS_Visible : Boolean;
{Returns True if the current task is the visible task, might crash if
DDOS_Loaded is False!}
IMPLEMENTATION
END.