Unit TRThunk

Renamed from Thunk.pas 6/20/1998 Paul Rice to avoid conflicts with others' work. This component can be freely used and distributed in commercial and private environments, provided this notice is not modified in any way. Feel free to contact us if you have any questions, comments or suggestions at TRSOFT@Menden.net Copyright © 1998 by TRSOFT All Rights Reserved. Thomas Radtke Software Entwicklung. http://www.abcnet.de/TRSOFT/ THIS SOFTWARE IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED.

Classes

Functions

ComNum - Like Delphi 1 MemW , but read only; (* Syntax Result := MemW ( $040, $060);
Mem -
MemW - Like Delphi 1 Mem , but read only; (* Syntax Result := Mem ( $040, $060);

QT_Thunk needs a stack frame.

Types

Constants

Variables


Functions


function ComNum: Byte;

Like Delphi 1 MemW , but read only; (* Syntax Result := MemW ( $040, $060);

function Mem(seg,off : Word):Byte;


function MemW(seg,off :Word):Word;

Like Delphi 1 Mem , but read only; (* Syntax Result := Mem ( $040, $060);

QT_Thunk needs a stack frame. } {$StackFrames On


Types


Constants


Variables