(********************************************************************************

Name         : AMIGABase.DEF
Version      : 1.0
Purpose      : Interface to AMIGABase
Authors      : cn/jr/ms/red
Modified     : 12.3.86  20:27  cn
State        : should be ok
Requirements : 

********************************************************************************)

DEFINITION MODULE AMIGABase;

FROM SYSTEM IMPORT ADDRESS;

TYPE Regs = RECORD
             d: ARRAY[0..7] OF LONGINT;
             a: ARRAY[0..7] OF LONGINT;
           END;

PROCEDURE LibCall(libBase: ADDRESS; offset: LONGINT; VAR r:Regs);

PROCEDURE ExecBase(): ADDRESS;

PROCEDURE ExecOpenLib(): LONGINT;

END AMIGABase.