|
|
@@ -0,0 +1,1053 @@
|
|
|
+TYPE
|
|
|
+
|
|
|
+ STRPTR = PChar;
|
|
|
+ ULONG = Longint;
|
|
|
+ LONG = longint;
|
|
|
+ APTR = Pointer;
|
|
|
+ BPTR = Longint;
|
|
|
+ BSTR = Longint;
|
|
|
+ pWord = ^Word;
|
|
|
+ pLongint = ^Longint;
|
|
|
+ pInteger = ^Integer;
|
|
|
+
|
|
|
+
|
|
|
+TYPE
|
|
|
+
|
|
|
+{ * List Node Structure. Each member in a list starts with a Node * }
|
|
|
+
|
|
|
+ pNode = ^tNode;
|
|
|
+ tNode = Packed Record
|
|
|
+ ln_Succ, { * Pointer to next (successor) * }
|
|
|
+ ln_Pred : pNode; { * Pointer to previous (predecessor) * }
|
|
|
+ ln_Type : Byte;
|
|
|
+ ln_Pri : Shortint; { * Priority, for sorting * }
|
|
|
+ ln_Name : STRPTR; { * ID string, null terminated * }
|
|
|
+ End; { * Note: Integer aligned * }
|
|
|
+
|
|
|
+
|
|
|
+{ * minimal node -- no type checking possible * }
|
|
|
+
|
|
|
+ pMinNode = ^tMinNode;
|
|
|
+ tMinNode = Packed Record
|
|
|
+ mln_Succ,
|
|
|
+ mln_Pred : pMinNode;
|
|
|
+ End;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{ *
|
|
|
+** Note: Newly initialized IORequests, and software interrupt structures
|
|
|
+** used with Cause(), should have type NT_UNKNOWN. The OS will assign a type
|
|
|
+** when they are first used.
|
|
|
+* }
|
|
|
+
|
|
|
+{ *----- Node Types for LN_TYPE -----* }
|
|
|
+
|
|
|
+Const
|
|
|
+
|
|
|
+ NT_UNKNOWN = 0;
|
|
|
+ NT_TASK = 1; { * Exec task * }
|
|
|
+ NT_INTERRUPT = 2;
|
|
|
+ NT_DEVICE = 3;
|
|
|
+ NT_MSGPORT = 4;
|
|
|
+ NT_MESSAGE = 5; { * Indicates message currently pending * }
|
|
|
+ NT_FREEMSG = 6;
|
|
|
+ NT_REPLYMSG = 7; { * Message has been replied * }
|
|
|
+ NT_RESOURCE = 8;
|
|
|
+ NT_LIBRARY = 9;
|
|
|
+ NT_MEMORY = 10;
|
|
|
+ NT_SOFTINT = 11; { * Internal flag used by SoftInits * }
|
|
|
+ NT_FONT = 12;
|
|
|
+ NT_PROCESS = 13; { * AmigaDOS Process * }
|
|
|
+ NT_SEMAPHORE = 14;
|
|
|
+ NT_SIGNALSEM = 15; { * signal semaphores * }
|
|
|
+ NT_BOOTNODE = 16;
|
|
|
+ NT_KICKMEM = 17;
|
|
|
+ NT_GRAPHICS = 18;
|
|
|
+ NT_DEATHMESSAGE = 19;
|
|
|
+
|
|
|
+ NT_USER = 254; { * User node types work down from here * }
|
|
|
+ NT_EXTENDED = 255;
|
|
|
+
|
|
|
+{
|
|
|
+ This file defines Exec system lists, which are used to link
|
|
|
+ various things. Exec provides several routines to handle list
|
|
|
+ processing (defined at the bottom of this file), so you can
|
|
|
+ use these routines to save yourself the trouble of writing a list
|
|
|
+ package.
|
|
|
+}
|
|
|
+
|
|
|
+
|
|
|
+Type
|
|
|
+
|
|
|
+{ normal, full featured list }
|
|
|
+
|
|
|
+ pList = ^tList;
|
|
|
+ tList = Packed record
|
|
|
+ lh_Head : pNode;
|
|
|
+ lh_Tail : pNode;
|
|
|
+ lh_TailPred : pNode;
|
|
|
+ lh_Type : Byte;
|
|
|
+ l_pad : Byte;
|
|
|
+ end;
|
|
|
+
|
|
|
+{ minimum list -- no type checking possible }
|
|
|
+
|
|
|
+ pMinList = ^tMinList;
|
|
|
+ tMinList = Packed record
|
|
|
+ mlh_Head : pMinNode;
|
|
|
+ mlh_Tail : pMinNode;
|
|
|
+ mlh_TailPred : pMinNode;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{ ********************************************************************
|
|
|
+*
|
|
|
+* Format of the alert error number:
|
|
|
+*
|
|
|
+* +-+-------------+----------------+--------------------------------+
|
|
|
+* |D| SubSysId | General Error | SubSystem Specific Error |
|
|
|
+* +-+-------------+----------------+--------------------------------+
|
|
|
+* 1 7 bits 8 bits 16 bits
|
|
|
+*
|
|
|
+* D: DeadEnd alert
|
|
|
+* SubSysId: indicates ROM subsystem number.
|
|
|
+* General Error: roughly indicates what the error was
|
|
|
+* Specific Error: indicates more detail
|
|
|
+*********************************************************************}
|
|
|
+
|
|
|
+const
|
|
|
+{*********************************************************************
|
|
|
+*
|
|
|
+* Hardware/CPU specific alerts: They may show without the 8 at the
|
|
|
+* front of the number. These are CPU/68000 specific. See 68$0
|
|
|
+* programmer's manuals for more details.
|
|
|
+*
|
|
|
+*********************************************************************}
|
|
|
+ ACPU_BusErr = $80000002; { Hardware bus fault/access error }
|
|
|
+ ACPU_AddressErr = $80000003; { Illegal address access (ie: odd) }
|
|
|
+ ACPU_InstErr = $80000004; { Illegal instruction }
|
|
|
+ ACPU_DivZero = $80000005; { Divide by zero }
|
|
|
+ ACPU_CHK = $80000006; { Check instruction error }
|
|
|
+ ACPU_TRAPV = $80000007; { TrapV instruction error }
|
|
|
+ ACPU_PrivErr = $80000008; { Privilege violation error }
|
|
|
+ ACPU_Trace = $80000009; { Trace error }
|
|
|
+ ACPU_LineA = $8000000A; { Line 1010 Emulator error }
|
|
|
+ ACPU_LineF = $8000000B; { Line 1111 Emulator error }
|
|
|
+ ACPU_Format = $8000000E; { Stack frame format error }
|
|
|
+ ACPU_Spurious = $80000018; { Spurious interrupt error }
|
|
|
+ ACPU_AutoVec1 = $80000019; { AutoVector Level 1 interrupt error }
|
|
|
+ ACPU_AutoVec2 = $8000001A; { AutoVector Level 2 interrupt error }
|
|
|
+ ACPU_AutoVec3 = $8000001B; { AutoVector Level 3 interrupt error }
|
|
|
+ ACPU_AutoVec4 = $8000001C; { AutoVector Level 4 interrupt error }
|
|
|
+ ACPU_AutoVec5 = $8000001D; { AutoVector Level 5 interrupt error }
|
|
|
+ ACPU_AutoVec6 = $8000001E; { AutoVector Level 6 interrupt error }
|
|
|
+ ACPU_AutoVec7 = $8000001F; { AutoVector Level 7 interrupt error }
|
|
|
+
|
|
|
+
|
|
|
+{ ********************************************************************
|
|
|
+*
|
|
|
+* General Alerts
|
|
|
+*
|
|
|
+* For example: timer.device cannot open math.library would be $05038015
|
|
|
+*
|
|
|
+* Alert(AN_TimerDev|AG_OpenLib|AO_MathLib);
|
|
|
+*
|
|
|
+********************************************************************}
|
|
|
+
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+{ ------ alert types }
|
|
|
+ AT_DeadEnd = $80000000;
|
|
|
+ AT_Recovery = $00000000;
|
|
|
+
|
|
|
+
|
|
|
+{ ------ general purpose alert codes }
|
|
|
+ AG_NoMemory = $00010000;
|
|
|
+ AG_MakeLib = $00020000;
|
|
|
+ AG_OpenLib = $00030000;
|
|
|
+ AG_OpenDev = $00040000;
|
|
|
+ AG_OpenRes = $00050000;
|
|
|
+ AG_IOError = $00060000;
|
|
|
+ AG_NoSignal = $00070000;
|
|
|
+ AG_BadParm = $00080000;
|
|
|
+ AG_CloseLib = $00090000; { usually too many closes }
|
|
|
+ AG_CloseDev = $000A0000; { or a mismatched close }
|
|
|
+ AG_ProcCreate = $000B0000; { Process creation failed }
|
|
|
+
|
|
|
+
|
|
|
+{ ------ alert objects: }
|
|
|
+ AO_ExecLib = $00008001;
|
|
|
+ AO_GraphicsLib = $00008002;
|
|
|
+ AO_LayersLib = $00008003;
|
|
|
+ AO_Intuition = $00008004;
|
|
|
+ AO_MathLib = $00008005;
|
|
|
+ AO_DOSLib = $00008007;
|
|
|
+ AO_RAMLib = $00008008;
|
|
|
+ AO_IconLib = $00008009;
|
|
|
+ AO_ExpansionLib = $0000800A;
|
|
|
+ AO_DiskfontLib = $0000800B;
|
|
|
+ AO_UtilityLib = $0000800C;
|
|
|
+ AO_KeyMapLib = $0000800D;
|
|
|
+
|
|
|
+ AO_AudioDev = $00008010;
|
|
|
+ AO_ConsoleDev = $00008011;
|
|
|
+ AO_GamePortDev = $00008012;
|
|
|
+ AO_KeyboardDev = $00008013;
|
|
|
+ AO_TrackDiskDev = $00008014;
|
|
|
+ AO_TimerDev = $00008015;
|
|
|
+
|
|
|
+ AO_CIARsrc = $00008020;
|
|
|
+ AO_DiskRsrc = $00008021;
|
|
|
+ AO_MiscRsrc = $00008022;
|
|
|
+
|
|
|
+ AO_BootStrap = $00008030;
|
|
|
+ AO_Workbench = $00008031;
|
|
|
+ AO_DiskCopy = $00008032;
|
|
|
+ AO_GadTools = $00008033;
|
|
|
+ AO_Unknown = $00008035;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{ ********************************************************************
|
|
|
+*
|
|
|
+* Specific Alerts:
|
|
|
+*
|
|
|
+********************************************************************}
|
|
|
+
|
|
|
+{ ------ exec.library }
|
|
|
+
|
|
|
+ AN_ExecLib = $01000000;
|
|
|
+ AN_ExcptVect = $01000001; { 68000 exception vector checksum (obs.) }
|
|
|
+ AN_BaseChkSum = $01000002; { Execbase checksum (obs.) }
|
|
|
+ AN_LibChkSum = $01000003; { Library checksum failure }
|
|
|
+
|
|
|
+ AN_MemCorrupt = $81000005; { Corrupt memory list detected in FreeMem }
|
|
|
+ AN_IntrMem = $81000006; { No memory for interrupt servers }
|
|
|
+ AN_InitAPtr = $01000007; { InitStruct() of an APTR source (obs.) }
|
|
|
+ AN_SemCorrupt = $01000008; { A semaphore is in an illegal state
|
|
|
+ at ReleaseSempahore() }
|
|
|
+ AN_FreeTwice = $01000009; { Freeing memory already freed }
|
|
|
+ AN_BogusExcpt = $8100000A; { illegal 68k exception taken (obs.) }
|
|
|
+ AN_IOUsedTwice = $0100000B; { Attempt to reuse active IORequest }
|
|
|
+ AN_MemoryInsane = $0100000C; { Sanity check on memory list failed
|
|
|
+ during AvailMem(MEMF_LARGEST) }
|
|
|
+ AN_IOAfterClose = $0100000D; { IO attempted on closed IORequest }
|
|
|
+ AN_StackProbe = $0100000E; { Stack appears to extend out of range }
|
|
|
+ AN_BadFreeAddr = $0100000F; { Memory header not located. [ Usually an
|
|
|
+ invalid address passed to FreeMem() ] }
|
|
|
+ AN_BadSemaphore = $01000010; { An attempt was made to use the old
|
|
|
+ message semaphores. }
|
|
|
+
|
|
|
+{ ------ graphics.library }
|
|
|
+
|
|
|
+ AN_GraphicsLib = $02000000;
|
|
|
+ AN_GfxNoMem = $82010000; { graphics out of memory }
|
|
|
+ AN_GfxNoMemMspc = $82010001; { MonitorSpec alloc, no memory }
|
|
|
+ AN_LongFrame = $82010006; { long frame, no memory }
|
|
|
+ AN_ShortFrame = $82010007; { short frame, no memory }
|
|
|
+ AN_TextTmpRas = $02010009; { text, no memory for TmpRas }
|
|
|
+ AN_BltBitMap = $8201000A; { BltBitMap, no memory }
|
|
|
+ AN_RegionMemory = $8201000B; { regions, memory not available }
|
|
|
+ AN_MakeVPort = $82010030; { MakeVPort, no memory }
|
|
|
+ AN_GfxNewError = $0200000C;
|
|
|
+ AN_GfxFreeError = $0200000D;
|
|
|
+
|
|
|
+ AN_GfxNoLCM = $82011234; { emergency memory not available }
|
|
|
+
|
|
|
+ AN_ObsoleteFont = $02000401; { unsupported font description used }
|
|
|
+
|
|
|
+{ ------ layers.library }
|
|
|
+
|
|
|
+ AN_LayersLib = $03000000;
|
|
|
+ AN_LayersNoMem = $83010000; { layers out of memory }
|
|
|
+
|
|
|
+{ ------ intuition.library }
|
|
|
+ AN_Intuition = $04000000;
|
|
|
+ AN_GadgetType = $84000001; { unknown gadget type }
|
|
|
+ AN_BadGadget = $04000001; { Recovery form of AN_GadgetType }
|
|
|
+ AN_CreatePort = $84010002; { create port, no memory }
|
|
|
+ AN_ItemAlloc = $04010003; { item plane alloc, no memory }
|
|
|
+ AN_SubAlloc = $04010004; { sub alloc, no memory }
|
|
|
+ AN_PlaneAlloc = $84010005; { plane alloc, no memory }
|
|
|
+ AN_ItemBoxTop = $84000006; { item box top < RelZero }
|
|
|
+ AN_OpenScreen = $84010007; { open screen, no memory }
|
|
|
+ AN_OpenScrnRast = $84010008; { open screen, raster alloc, no memory }
|
|
|
+ AN_SysScrnType = $84000009; { open sys screen, unknown type }
|
|
|
+ AN_AddSWGadget = $8401000A; { add SW gadgets, no memory }
|
|
|
+ AN_OpenWindow = $8401000B; { open window, no memory }
|
|
|
+ AN_BadState = $8400000C; { Bad State Return entering Intuition }
|
|
|
+ AN_BadMessage = $8400000D; { Bad Message received by IDCMP }
|
|
|
+ AN_WeirdEcho = $8400000E; { Weird echo causing incomprehension }
|
|
|
+ AN_NoConsole = $8400000F; { couldn't open the Console Device }
|
|
|
+ AN_NoISem = $04000010; { Intuition skipped obtaining a sem }
|
|
|
+ AN_ISemOrder = $04000011; { Intuition obtained a sem in bad order }
|
|
|
+
|
|
|
+{ ------ math.library }
|
|
|
+
|
|
|
+ AN_MathLib = $05000000;
|
|
|
+
|
|
|
+{ ------ dos.library }
|
|
|
+
|
|
|
+ AN_DOSLib = $07000000;
|
|
|
+ AN_StartMem = $07010001; { no memory at startup }
|
|
|
+ AN_EndTask = $07000002; { EndTask didn't }
|
|
|
+ AN_QPktFail = $07000003; { Qpkt failure }
|
|
|
+ AN_AsyncPkt = $07000004; { Unexpected packet received }
|
|
|
+ AN_FreeVec = $07000005; { Freevec failed }
|
|
|
+ AN_DiskBlkSeq = $07000006; { Disk block sequence error }
|
|
|
+ AN_BitMap = $07000007; { Bitmap corrupt }
|
|
|
+ AN_KeyFree = $07000008; { Key already free }
|
|
|
+ AN_BadChkSum = $07000009; { Invalid checksum }
|
|
|
+ AN_DiskError = $0700000A; { Disk Error }
|
|
|
+ AN_KeyRange = $0700000B; { Key out of range }
|
|
|
+ AN_BadOverlay = $0700000C; { Bad overlay }
|
|
|
+ AN_BadInitFunc = $0700000D; { Invalid init packet for cli/shell }
|
|
|
+ AN_FileReclosed = $0700000E; { A filehandle was closed more than once }
|
|
|
+
|
|
|
+{ ------ ramlib.library }
|
|
|
+
|
|
|
+ AN_RAMLib = $08000000;
|
|
|
+ AN_BadSegList = $08000001; { no overlays in library seglists }
|
|
|
+
|
|
|
+{ ------ icon.library }
|
|
|
+
|
|
|
+ AN_IconLib = $09000000;
|
|
|
+
|
|
|
+{ ------ expansion.library }
|
|
|
+
|
|
|
+ AN_ExpansionLib = $0A000000;
|
|
|
+ AN_BadExpansionFree = $0A000001; { freeed free region }
|
|
|
+
|
|
|
+{ ------ diskfont.library }
|
|
|
+
|
|
|
+ AN_DiskfontLib = $0B000000;
|
|
|
+
|
|
|
+{ ------ audio.device }
|
|
|
+
|
|
|
+ AN_AudioDev = $10000000;
|
|
|
+
|
|
|
+{ ------ console.device }
|
|
|
+
|
|
|
+ AN_ConsoleDev = $11000000;
|
|
|
+ AN_NoWindow = $11000001; { Console can't open initial window }
|
|
|
+
|
|
|
+{ ------ gameport.device }
|
|
|
+
|
|
|
+ AN_GamePortDev = $12000000;
|
|
|
+
|
|
|
+{ ------ keyboard.device }
|
|
|
+
|
|
|
+ AN_KeyboardDev = $13000000;
|
|
|
+
|
|
|
+{ ------ trackdisk.device }
|
|
|
+
|
|
|
+ AN_TrackDiskDev = $14000000;
|
|
|
+ AN_TDCalibSeek = $14000001; { calibrate: seek error }
|
|
|
+ AN_TDDelay = $14000002; { delay: error on timer wait }
|
|
|
+
|
|
|
+{ ------ timer.device }
|
|
|
+
|
|
|
+ AN_TimerDev = $15000000;
|
|
|
+ AN_TMBadReq = $15000001; { bad request }
|
|
|
+ AN_TMBadSupply = $15000002; { power supply -- no 50/60Hz ticks }
|
|
|
+
|
|
|
+{ ------ cia.resource }
|
|
|
+
|
|
|
+ AN_CIARsrc = $20000000;
|
|
|
+
|
|
|
+{ ------ disk.resource }
|
|
|
+
|
|
|
+ AN_DiskRsrc = $21000000;
|
|
|
+ AN_DRHasDisk = $21000001; { get unit: already has disk }
|
|
|
+ AN_DRIntNoAct = $21000002; { interrupt: no active unit }
|
|
|
+
|
|
|
+{ ------ misc.resource }
|
|
|
+
|
|
|
+ AN_MiscRsrc = $22000000;
|
|
|
+
|
|
|
+{ ------ bootstrap }
|
|
|
+
|
|
|
+ AN_BootStrap = $30000000;
|
|
|
+ AN_BootError = $30000001; { boot code returned an error }
|
|
|
+
|
|
|
+{ ------ Workbench }
|
|
|
+
|
|
|
+ AN_Workbench = $31000000;
|
|
|
+ AN_NoFonts = $B1000001;
|
|
|
+ AN_WBBadStartupMsg1 = $31000001;
|
|
|
+ AN_WBBadStartupMsg2 = $31000002;
|
|
|
+ AN_WBBadIOMsg = $31000003;
|
|
|
+
|
|
|
+ AN_WBReLayoutToolMenu = $B1010009;
|
|
|
+
|
|
|
+{ ------ DiskCopy }
|
|
|
+
|
|
|
+ AN_DiskCopy = $32000000;
|
|
|
+
|
|
|
+{ ------ toolkit for Intuition }
|
|
|
+
|
|
|
+ AN_GadTools = $33000000;
|
|
|
+
|
|
|
+{ ------ System utility library }
|
|
|
+
|
|
|
+ AN_UtilityLib = $34000000;
|
|
|
+
|
|
|
+{ ------ For use by any application that needs it }
|
|
|
+
|
|
|
+ AN_Unknown = $35000000;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+ IOERR_OPENFAIL = -1; { device/unit failed to open }
|
|
|
+ IOERR_ABORTED = -2; { request terminated early [after AbortIO()] }
|
|
|
+ IOERR_NOCMD = -3; { command not supported by device }
|
|
|
+ IOERR_BADLENGTH = -4; { not a valid length (usually IO_LENGTH) }
|
|
|
+ IOERR_BADADDRESS = -5; { invalid address (misaligned or bad range) }
|
|
|
+ IOERR_UNITBUSY = -6; { device opens ok, but requested unit is busy }
|
|
|
+ IOERR_SELFTEST = -7; { hardware failed self-test }
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+type
|
|
|
+ pResident = ^tResident;
|
|
|
+ tResident = packed record
|
|
|
+ rt_MatchWord : Word; { Integer to match on (ILLEGAL) }
|
|
|
+ rt_MatchTag : pResident; { pointer to the above }
|
|
|
+ rt_EndSkip : Pointer; { address to continue scan }
|
|
|
+ rt_Flags : Byte; { various tag flags }
|
|
|
+ rt_Version : Byte; { release version number }
|
|
|
+ rt_Type : Byte; { type of module (NT_mumble) }
|
|
|
+ rt_Pri : Shortint; { initialization priority }
|
|
|
+ rt_Name : STRPTR; { pointer to node name }
|
|
|
+ rt_IdString : STRPTR; { pointer to ident string }
|
|
|
+ rt_Init : Pointer; { pointer to init code }
|
|
|
+ end;
|
|
|
+
|
|
|
+const
|
|
|
+
|
|
|
+
|
|
|
+ RTC_MATCHWORD = $4AFC;
|
|
|
+
|
|
|
+ RTF_AUTOINIT = $80;
|
|
|
+ RTF_AFTERDOS = $04;
|
|
|
+ RTF_SINGLETASK = $02;
|
|
|
+ RTF_COLDSTART = $01;
|
|
|
+
|
|
|
+
|
|
|
+{ Compatibility: }
|
|
|
+
|
|
|
+ RTM_WHEN = $03;
|
|
|
+ RTW_COLDSTART = $01;
|
|
|
+ RTW_NEVER = $00;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+TYPE
|
|
|
+
|
|
|
+{ ****** MemChunk **************************************************** }
|
|
|
+
|
|
|
+ pMemChunk = ^tMemChunk;
|
|
|
+ tMemChunk = Packed Record
|
|
|
+ mc_Next : pMemChunk; { * pointer to next chunk * }
|
|
|
+ mc_Bytes : ULONG; { * chunk byte size * }
|
|
|
+ End;
|
|
|
+
|
|
|
+
|
|
|
+{ ****** MemHeader *************************************************** }
|
|
|
+
|
|
|
+ pMemHeader = ^tMemHeader;
|
|
|
+ tMemHeader = Packed Record
|
|
|
+ mh_Node : tNode;
|
|
|
+ mh_Attributes : Word; { * characteristics of this region * }
|
|
|
+ mh_First : pMemChunk; { * first free region * }
|
|
|
+ mh_Lower, { * lower memory bound * }
|
|
|
+ mh_Upper : Pointer; { * upper memory bound+1 * }
|
|
|
+ mh_Free : Ulong; { * total number of free bytes * }
|
|
|
+ End;
|
|
|
+
|
|
|
+
|
|
|
+{ ****** MemEntry **************************************************** }
|
|
|
+
|
|
|
+ pMemUnit = ^tMemUnit;
|
|
|
+ tMemUnit = Packed Record
|
|
|
+ meu_Reqs : ULONG; { * the AllocMem requirements * }
|
|
|
+ meu_Addr : Pointer; { * the address of this memory region * }
|
|
|
+ End;
|
|
|
+
|
|
|
+ pMemEntry = ^tMemEntry;
|
|
|
+ tMemEntry = Packed Record
|
|
|
+ me_Un : tMemUnit;
|
|
|
+ me_Length : ULONG; { * the length of this memory region * }
|
|
|
+ End;
|
|
|
+
|
|
|
+
|
|
|
+{ ****** MemList ***************************************************** }
|
|
|
+
|
|
|
+{ * Note: sizeof(struct MemList) includes the size of the first MemEntry! * }
|
|
|
+
|
|
|
+ pMemList = ^tMemList;
|
|
|
+ tMemList = Packed Record
|
|
|
+ ml_Node : tNode;
|
|
|
+ ml_NumEntries : Word; { * number of entries in this struct * }
|
|
|
+ ml_ME : Array [0..0] of tMemEntry; { * the first entry * }
|
|
|
+ End;
|
|
|
+
|
|
|
+{ *----- Memory Requirement Types ---------------------------* }
|
|
|
+{ *----- See the AllocMem() documentation for details--------* }
|
|
|
+
|
|
|
+Const
|
|
|
+
|
|
|
+ MEMF_ANY = %000000000000000000000000; { * Any type of memory will do * }
|
|
|
+ MEMF_PUBLIC = %000000000000000000000001;
|
|
|
+ MEMF_CHIP = %000000000000000000000010;
|
|
|
+ MEMF_FAST = %000000000000000000000100;
|
|
|
+ MEMF_LOCAL = %000000000000000100000000;
|
|
|
+ MEMF_24BITDMA = %000000000000001000000000; { * DMAable memory within 24 bits of address * }
|
|
|
+ MEMF_KICK = %000000000000010000000000; { Memory that can be used for KickTags }
|
|
|
+
|
|
|
+ MEMF_CLEAR = %000000010000000000000000;
|
|
|
+ MEMF_LARGEST = %000000100000000000000000;
|
|
|
+ MEMF_REVERSE = %000001000000000000000000;
|
|
|
+ MEMF_TOTAL = %000010000000000000000000; { * AvailMem: return total size of memory * }
|
|
|
+ MEMF_NO_EXPUNGE = $80000000; {AllocMem: Do not cause expunge on failure }
|
|
|
+
|
|
|
+ MEM_BLOCKSIZE = 8;
|
|
|
+ MEM_BLOCKMASK = MEM_BLOCKSIZE-1;
|
|
|
+
|
|
|
+Type
|
|
|
+{***** MemHandlerData *********************************************}
|
|
|
+{ Note: This structure is *READ ONLY* and only EXEC can create it!}
|
|
|
+
|
|
|
+ pMemHandlerData = ^tMemHandlerData;
|
|
|
+ tMemHandlerData = Packed Record
|
|
|
+ memh_RequestSize, { Requested allocation size }
|
|
|
+ memh_RequestFlags, { Requested allocation flags }
|
|
|
+ memh_Flags : ULONG; { Flags (see below) }
|
|
|
+ end;
|
|
|
+
|
|
|
+const
|
|
|
+ MEMHF_RECYCLE = 1; { 0==First time, 1==recycle }
|
|
|
+
|
|
|
+{***** Low Memory handler return values **************************}
|
|
|
+ MEM_DID_NOTHING = 0; { Nothing we could do... }
|
|
|
+ MEM_ALL_DONE = -1; { We did all we could do }
|
|
|
+ MEM_TRY_AGAIN = 1; { We did some, try the allocation again }
|
|
|
+
|
|
|
+
|
|
|
+type
|
|
|
+ pInterrupt = ^tInterrupt;
|
|
|
+ tInterrupt = Packed record
|
|
|
+ is_Node : tNode;
|
|
|
+ is_Data : Pointer; { Server data segment }
|
|
|
+ is_Code : Pointer; { Server code entry }
|
|
|
+ end;
|
|
|
+
|
|
|
+ pIntVector = ^tIntVector;
|
|
|
+ tIntVector = Packed record { For EXEC use ONLY! }
|
|
|
+ iv_Data : Pointer;
|
|
|
+ iv_Code : Pointer;
|
|
|
+ iv_Node : pNode;
|
|
|
+ end;
|
|
|
+
|
|
|
+ pSoftIntList = ^tSoftIntList;
|
|
|
+ tSoftIntList = Packed record { For EXEC use ONLY! }
|
|
|
+ sh_List : tList;
|
|
|
+ sh_Pad : Word;
|
|
|
+ end;
|
|
|
+
|
|
|
+const
|
|
|
+ SIH_PRIMASK = $F0;
|
|
|
+
|
|
|
+{ this is a fake INT definition, used only for AddIntServer and the like }
|
|
|
+
|
|
|
+ INTB_NMI = 15;
|
|
|
+ INTF_NMI = $0080;
|
|
|
+
|
|
|
+{
|
|
|
+ Every Amiga Task has one of these Task structures associated with it.
|
|
|
+ To find yours, use FindTask(Nil). AmigaDOS processes tack a few more
|
|
|
+ values on to the end of this structure, which is the difference between
|
|
|
+ Tasks and Processes.
|
|
|
+}
|
|
|
+
|
|
|
+type
|
|
|
+
|
|
|
+ pTask = ^tTask;
|
|
|
+ tTask = Packed record
|
|
|
+ tc_Node : tNode;
|
|
|
+ tc_Flags : Byte;
|
|
|
+ tc_State : Byte;
|
|
|
+ tc_IDNestCnt : Shortint; { intr disabled nesting }
|
|
|
+ tc_TDNestCnt : Shortint; { task disabled nesting }
|
|
|
+ tc_SigAlloc : ULONG; { sigs allocated }
|
|
|
+ tc_SigWait : ULONG; { sigs we are waiting for }
|
|
|
+ tc_SigRecvd : ULONG; { sigs we have received }
|
|
|
+ tc_SigExcept : ULONG; { sigs we will take excepts for }
|
|
|
+ tc_TrapAlloc : Word; { traps allocated }
|
|
|
+ tc_TrapAble : Word; { traps enabled }
|
|
|
+ tc_ExceptData : Pointer; { points to except data }
|
|
|
+ tc_ExceptCode : Pointer; { points to except code }
|
|
|
+ tc_TrapData : Pointer; { points to trap data }
|
|
|
+ tc_TrapCode : Pointer; { points to trap code }
|
|
|
+ tc_SPReg : Pointer; { stack pointer }
|
|
|
+ tc_SPLower : Pointer; { stack lower bound }
|
|
|
+ tc_SPUpper : Pointer; { stack upper bound + 2 }
|
|
|
+ tc_Switch : Pointer; { task losing CPU }
|
|
|
+ tc_Launch : Pointer; { task getting CPU }
|
|
|
+ tc_MemEntry : tList; { allocated memory }
|
|
|
+ tc_UserData : Pointer; { per task data }
|
|
|
+ end;
|
|
|
+
|
|
|
+{
|
|
|
+ * Stack swap structure as passed to StackSwap()
|
|
|
+ }
|
|
|
+ pStackSwapStruct = ^tStackSwapStruct;
|
|
|
+ tStackSwapStruct = Packed Record
|
|
|
+ stk_Lower : Pointer; { Lowest byte of stack }
|
|
|
+ stk_Upper : ULONG; { Upper end of stack (size + Lowest) }
|
|
|
+ stk_Pointer : Pointer; { Stack pointer at switch point }
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{----- Flag Bits ------------------------------------------}
|
|
|
+
|
|
|
+const
|
|
|
+
|
|
|
+ TB_PROCTIME = 0;
|
|
|
+ TB_ETASK = 3;
|
|
|
+ TB_STACKCHK = 4;
|
|
|
+ TB_EXCEPT = 5;
|
|
|
+ TB_SWITCH = 6;
|
|
|
+ TB_LAUNCH = 7;
|
|
|
+
|
|
|
+ TF_PROCTIME = 1;
|
|
|
+ TF_ETASK = 8;
|
|
|
+ TF_STACKCHK = 16;
|
|
|
+ TF_EXCEPT = 32;
|
|
|
+ TF_SWITCH = 64;
|
|
|
+ TF_LAUNCH = 128;
|
|
|
+
|
|
|
+{----- Task States ----------------------------------------}
|
|
|
+
|
|
|
+ TS_INVALID = 0;
|
|
|
+ TS_ADDED = 1;
|
|
|
+ TS_RUN = 2;
|
|
|
+ TS_READY = 3;
|
|
|
+ TS_WAIT = 4;
|
|
|
+ TS_EXCEPT = 5;
|
|
|
+ TS_REMOVED = 6;
|
|
|
+
|
|
|
+{----- Predefined Signals -------------------------------------}
|
|
|
+
|
|
|
+ SIGB_ABORT = 0;
|
|
|
+ SIGB_CHILD = 1;
|
|
|
+ SIGB_BLIT = 4;
|
|
|
+ SIGB_SINGLE = 4;
|
|
|
+ SIGB_INTUITION = 5;
|
|
|
+ SIGB_DOS = 8;
|
|
|
+
|
|
|
+ SIGF_ABORT = 1;
|
|
|
+ SIGF_CHILD = 2;
|
|
|
+ SIGF_BLIT = 16;
|
|
|
+ SIGF_SINGLE = 16;
|
|
|
+ SIGF_INTUITION = 32;
|
|
|
+ SIGF_DOS = 256;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{
|
|
|
+ This file defines ports and messages, which are used for inter-
|
|
|
+ task communications using the routines defined toward the
|
|
|
+ bottom of this file.
|
|
|
+}
|
|
|
+
|
|
|
+type
|
|
|
+
|
|
|
+{****** MsgPort *****************************************************}
|
|
|
+
|
|
|
+ pMsgPort = ^tMsgPort;
|
|
|
+ tMsgPort = Packed record
|
|
|
+ mp_Node : tNode;
|
|
|
+ mp_Flags : Byte;
|
|
|
+ mp_SigBit : Byte; { signal bit number }
|
|
|
+ mp_SigTask : Pointer; { task to be signalled (TaskPtr) }
|
|
|
+ mp_MsgList : tList; { message linked list }
|
|
|
+ end;
|
|
|
+
|
|
|
+{****** Message *****************************************************}
|
|
|
+
|
|
|
+ pMessage = ^tMessage;
|
|
|
+ tMessage = Packed record
|
|
|
+ mn_Node : tNode;
|
|
|
+ mn_ReplyPort : pMsgPort; { message reply port }
|
|
|
+ mn_Length : Word; { message len in bytes }
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{ mp_Flags: Port arrival actions (PutMsg) }
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+ PF_ACTION = 3; { * Mask * }
|
|
|
+ PA_SIGNAL = 0; { * Signal task in mp_SigTask * }
|
|
|
+ PA_SOFTINT = 1; { * Signal SoftInt in mp_SoftInt/mp_SigTask * }
|
|
|
+ PA_IGNORE = 2; { * Ignore arrival * }
|
|
|
+
|
|
|
+
|
|
|
+ { Semaphore }
|
|
|
+type
|
|
|
+ pSemaphore = ^tSemaphore;
|
|
|
+ tSemaphore = Packed record
|
|
|
+ sm_MsgPort : tMsgPort;
|
|
|
+ sm_Bids : Integer;
|
|
|
+ end;
|
|
|
+
|
|
|
+{ This is the structure used to request a signal semaphore }
|
|
|
+
|
|
|
+ pSemaphoreRequest = ^tSemaphoreRequest;
|
|
|
+ tSemaphoreRequest = Packed record
|
|
|
+ sr_Link : tMinNode;
|
|
|
+ sr_Waiter : pTask;
|
|
|
+ end;
|
|
|
+
|
|
|
+{ The actual semaphore itself }
|
|
|
+
|
|
|
+ pSignalSemaphore = ^tSignalSemaphore;
|
|
|
+ tSignalSemaphore = Packed record
|
|
|
+ ss_Link : tNode;
|
|
|
+ ss_NestCount : Integer;
|
|
|
+ ss_WaitQueue : tMinList;
|
|
|
+ ss_MultipleLink : tSemaphoreRequest;
|
|
|
+ ss_Owner : pTask;
|
|
|
+ ss_QueueCount : Integer;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+{ ***** Semaphore procure message (for use in V39 Procure/Vacate *** }
|
|
|
+
|
|
|
+
|
|
|
+ pSemaphoreMessage = ^tSemaphoreMessage;
|
|
|
+ tSemaphoreMessage = Packed Record
|
|
|
+ ssm_Message : tMessage;
|
|
|
+ ssm_Semaphore : pSignalSemaphore;
|
|
|
+ end;
|
|
|
+
|
|
|
+const
|
|
|
+ SM_SHARED = 1;
|
|
|
+ SM_EXCLUSIVE = 0;
|
|
|
+
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+{ ------ Special Constants --------------------------------------- }
|
|
|
+ LIB_VECTSIZE = 6; { Each library entry takes 6 bytes }
|
|
|
+ LIB_RESERVED = 4; { Exec reserves the first 4 vectors }
|
|
|
+ LIB_BASE = (-LIB_VECTSIZE);
|
|
|
+ LIB_USERDEF = (LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE));
|
|
|
+ LIB_NONSTD = (LIB_USERDEF);
|
|
|
+
|
|
|
+{ ------ Standard Functions -------------------------------------- }
|
|
|
+ LIB_OPEN = -6;
|
|
|
+ LIB_CLOSE = -12;
|
|
|
+ LIB_EXPUNGE = -18;
|
|
|
+ LIB_EXTFUNC = -24; { for future expansion }
|
|
|
+
|
|
|
+TYPE
|
|
|
+
|
|
|
+{ ------ Library Base Structure ---------------------------------- }
|
|
|
+{ Also used for Devices and some Resources }
|
|
|
+
|
|
|
+ pLibrary = ^tLibrary;
|
|
|
+ tLibrary = packed record
|
|
|
+ lib_Node : tNode;
|
|
|
+ lib_Flags,
|
|
|
+ lib_pad : Byte;
|
|
|
+ lib_NegSize, { number of bytes before library }
|
|
|
+ lib_PosSize, { number of bytes after library }
|
|
|
+ lib_Version, { major }
|
|
|
+ lib_Revision : Word; { minor }
|
|
|
+ lib_IdString : STRPTR; { ASCII identification }
|
|
|
+ lib_Sum : ULONG; { the checksum itself }
|
|
|
+ lib_OpenCnt : Word; { number of current opens }
|
|
|
+ end; { * Warning: size is not a longword multiple ! * }
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+{ lib_Flags bit definitions (all others are system reserved) }
|
|
|
+
|
|
|
+ LIBF_SUMMING = %00000001; { we are currently checksumming }
|
|
|
+ LIBF_CHANGED = %00000010; { we have just changed the lib }
|
|
|
+ LIBF_SUMUSED = %00000100; { set if we should bother to sum }
|
|
|
+ LIBF_DELEXP = %00001000; { delayed expunge }
|
|
|
+
|
|
|
+{
|
|
|
+ This file defines the constants and types required to use
|
|
|
+ Amiga device IO routines, which are also defined here.
|
|
|
+}
|
|
|
+
|
|
|
+
|
|
|
+TYPE
|
|
|
+
|
|
|
+{***** Device *****************************************************}
|
|
|
+ pDevice = ^tDevice;
|
|
|
+ tDevice = packed record
|
|
|
+ dd_Library : tLibrary;
|
|
|
+ end;
|
|
|
+
|
|
|
+{***** Unit *******************************************************}
|
|
|
+ pUnit = ^tUnit;
|
|
|
+ tUnit = record
|
|
|
+ unit_MsgPort : tMsgPort; { queue for unprocessed messages }
|
|
|
+ { instance of msgport is recommended }
|
|
|
+ unit_flags,
|
|
|
+ unit_pad : Byte;
|
|
|
+ unit_OpenCnt : Word; { number of active opens }
|
|
|
+ end;
|
|
|
+
|
|
|
+Const
|
|
|
+ UNITF_ACTIVE = %00000001;
|
|
|
+ UNITF_INTASK = %00000010;
|
|
|
+
|
|
|
+type
|
|
|
+
|
|
|
+ pIORequest = ^tIORequest;
|
|
|
+ tIORequest = packed record
|
|
|
+ io_Message : tMessage;
|
|
|
+ io_Device : pDevice; { device node pointer }
|
|
|
+ io_Unit : pUnit; { unit (driver private)}
|
|
|
+ io_Command : Word; { device command }
|
|
|
+ io_Flags : Byte;
|
|
|
+ io_Error : Shortint; { error or warning num }
|
|
|
+ end;
|
|
|
+
|
|
|
+ pIOStdReq = ^tIOStdReq;
|
|
|
+ tIOStdReq = packed record
|
|
|
+ io_Message : tMessage;
|
|
|
+ io_Device : pDevice; { device node pointer }
|
|
|
+ io_Unit : pUnit; { unit (driver private)}
|
|
|
+ io_Command : Word; { device command }
|
|
|
+ io_Flags : Byte;
|
|
|
+ io_Error : Shortint; { error or warning num }
|
|
|
+ io_Actual : ULONG; { actual number of bytes transferred }
|
|
|
+ io_Length : ULONG; { requested number bytes transferred}
|
|
|
+ io_Data : Pointer; { points to data area }
|
|
|
+ io_Offset : ULONG; { offset for block structured devices }
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+{ library vector offsets for device reserved vectors }
|
|
|
+
|
|
|
+const
|
|
|
+ DEV_BEGINIO = -30;
|
|
|
+ DEV_ABORTIO = -36;
|
|
|
+
|
|
|
+{ io_Flags defined bits }
|
|
|
+
|
|
|
+ IOB_QUICK = 0;
|
|
|
+ IOF_QUICK = 1;
|
|
|
+
|
|
|
+ CMD_INVALID = 0;
|
|
|
+ CMD_RESET = 1;
|
|
|
+ CMD_READ = 2;
|
|
|
+ CMD_WRITE = 3;
|
|
|
+ CMD_UPDATE = 4;
|
|
|
+ CMD_CLEAR = 5;
|
|
|
+ CMD_STOP = 6;
|
|
|
+ CMD_START = 7;
|
|
|
+ CMD_FLUSH = 8;
|
|
|
+
|
|
|
+ CMD_NONSTD = 9;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{ Definition of the Exec library base structure (pointed to by location 4).
|
|
|
+** Most fields are not to be viewed or modified by user programs. Use
|
|
|
+** extreme caution.
|
|
|
+ }
|
|
|
+
|
|
|
+type
|
|
|
+
|
|
|
+pExecBase = ^tExecBase;
|
|
|
+tExecBase = packed Record
|
|
|
+ LibNode : tLibrary; { Standard library node }
|
|
|
+
|
|
|
+{ ******* Static System Variables ******* }
|
|
|
+
|
|
|
+ SoftVer : Word; { kickstart release number (obs.) }
|
|
|
+ LowMemChkSum : Integer; { checksum of 68000 trap vectors }
|
|
|
+ ChkBase : ULONG; { system base pointer complement }
|
|
|
+ ColdCapture, { coldstart soft capture vector }
|
|
|
+ CoolCapture, { coolstart soft capture vector }
|
|
|
+ WarmCapture, { warmstart soft capture vector }
|
|
|
+ SysStkUpper, { system stack base (upper bound) }
|
|
|
+ SysStkLower : Pointer; { top of system stack (lower bound) }
|
|
|
+ MaxLocMem : ULONG; { top of chip memory }
|
|
|
+ DebugEntry, { global debugger entry point }
|
|
|
+ DebugData, { global debugger data segment }
|
|
|
+ AlertData, { alert data segment }
|
|
|
+ MaxExtMem : Pointer; { top of extended mem, or null if none }
|
|
|
+
|
|
|
+ ChkSum : Word; { for all of the above (minus 2) }
|
|
|
+
|
|
|
+{ ***** Interrupt Related ************************************** }
|
|
|
+
|
|
|
+ IntVects : Array[0..15] of tIntVector;
|
|
|
+
|
|
|
+{ ***** Dynamic System Variables ************************************ }
|
|
|
+
|
|
|
+ ThisTask : pTask; { pointer to current task (readable) }
|
|
|
+
|
|
|
+ IdleCount, { idle counter }
|
|
|
+ DispCount : ULONG; { dispatch counter }
|
|
|
+ Quantum, { time slice quantum }
|
|
|
+ Elapsed, { current quantum ticks }
|
|
|
+ SysFlags : Word; { misc internal system flags }
|
|
|
+ IDNestCnt, { interrupt disable nesting count }
|
|
|
+ TDNestCnt : Shortint; { task disable nesting count }
|
|
|
+
|
|
|
+ AttnFlags, { special attention flags (readable) }
|
|
|
+ AttnResched : Word; { rescheduling attention }
|
|
|
+ ResModules, { resident module array pointer }
|
|
|
+ TaskTrapCode,
|
|
|
+ TaskExceptCode,
|
|
|
+ TaskExitCode : Pointer;
|
|
|
+ TaskSigAlloc : ULONG;
|
|
|
+ TaskTrapAlloc: Word;
|
|
|
+
|
|
|
+
|
|
|
+{ ***** System Lists (private!) ******************************* }
|
|
|
+
|
|
|
+ MemList,
|
|
|
+ ResourceList,
|
|
|
+ DeviceList,
|
|
|
+ IntrList,
|
|
|
+ LibList,
|
|
|
+ PortList,
|
|
|
+ TaskReady,
|
|
|
+ TaskWait : tList;
|
|
|
+
|
|
|
+ SoftInts : Array[0..4] of tSoftIntList;
|
|
|
+
|
|
|
+{ ***** Other Globals ****************************************** }
|
|
|
+
|
|
|
+ LastAlert : Array[0..3] of LONG;
|
|
|
+
|
|
|
+ { these next two variables are provided to allow
|
|
|
+ ** system developers to have a rough idea of the
|
|
|
+ ** period of two externally controlled signals --
|
|
|
+ ** the time between vertical blank interrupts and the
|
|
|
+ ** external line rate (which is counted by CIA A's
|
|
|
+ ** "time of day" clock). In general these values
|
|
|
+ ** will be 50 or 60, and may or may not track each
|
|
|
+ ** other. These values replace the obsolete AFB_PAL
|
|
|
+ ** and AFB_50HZ flags.
|
|
|
+ }
|
|
|
+
|
|
|
+ VBlankFrequency, { (readable) }
|
|
|
+ PowerSupplyFrequency : Byte; { (readable) }
|
|
|
+
|
|
|
+ SemaphoreList : tList;
|
|
|
+
|
|
|
+ { these next two are to be able to kickstart into user ram.
|
|
|
+ ** KickMemPtr holds a singly linked list of MemLists which
|
|
|
+ ** will be removed from the memory list via AllocAbs. If
|
|
|
+ ** all the AllocAbs's succeeded, then the KickTagPtr will
|
|
|
+ ** be added to the rom tag list.
|
|
|
+ }
|
|
|
+
|
|
|
+ KickMemPtr, { ptr to queue of mem lists }
|
|
|
+ KickTagPtr, { ptr to rom tag queue }
|
|
|
+ KickCheckSum : Pointer; { checksum for mem and tags }
|
|
|
+
|
|
|
+{ ***** V36 Exec additions start here ************************************* }
|
|
|
+
|
|
|
+ ex_Pad0 : Word;
|
|
|
+ ex_Reserved0 : ULONG;
|
|
|
+ ex_RamLibPrivate : Pointer;
|
|
|
+
|
|
|
+ { The next ULONG contains the system "E" clock frequency,
|
|
|
+ ** expressed in Hertz. The E clock is used as a timebase for
|
|
|
+ ** the Amiga's 8520 I/O chips. (E is connected to "02").
|
|
|
+ ** Typical values are 715909 for NTSC, or 709379 for PAL.
|
|
|
+ }
|
|
|
+
|
|
|
+ ex_EClockFrequency, { (readable) }
|
|
|
+ ex_CacheControl, { Private to CacheControl calls }
|
|
|
+ ex_TaskID : ULONG; { Next available task ID }
|
|
|
+
|
|
|
+ ex_Reserved1 : Array[0..4] of ULONG;
|
|
|
+
|
|
|
+ ex_MMULock : Pointer; { private }
|
|
|
+
|
|
|
+ ex_Reserved2 : Array[0..2] of ULONG;
|
|
|
+{***** V39 Exec additions start here *************************************}
|
|
|
+
|
|
|
+ { The following list and data element are used
|
|
|
+ * for V39 exec's low memory handler...
|
|
|
+ }
|
|
|
+ ex_MemHandlers : tMinList; { The handler list }
|
|
|
+ ex_MemHandler : Pointer; { Private! handler pointer }
|
|
|
+ ex_Reserved : Array[0..1] of Shortint;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+{ ***** Bit defines for AttnFlags (see above) ***************************** }
|
|
|
+
|
|
|
+{ Processors and Co-processors: }
|
|
|
+
|
|
|
+CONST
|
|
|
+
|
|
|
+ AFB_68010 = 0; { also set for 68020 }
|
|
|
+ AFB_68020 = 1; { also set for 68030 }
|
|
|
+ AFB_68030 = 2; { also set for 68040 }
|
|
|
+ AFB_68040 = 3;
|
|
|
+ AFB_68881 = 4; { also set for 68882 }
|
|
|
+ AFB_68882 = 5;
|
|
|
+ AFB_FPU40 = 6; { Set if 68040 FPU }
|
|
|
+
|
|
|
+ AFF_68010 = %00000001;
|
|
|
+ AFF_68020 = %00000010;
|
|
|
+ AFF_68030 = %00000100;
|
|
|
+ AFF_68040 = %00001000;
|
|
|
+ AFF_68881 = %00010000;
|
|
|
+ AFF_68882 = %00100000;
|
|
|
+ AFF_FPU40 = %01000000;
|
|
|
+
|
|
|
+{ AFB_RESERVED8 = %000100000000; }
|
|
|
+{ AFB_RESERVED9 = %001000000000; }
|
|
|
+
|
|
|
+
|
|
|
+{ ***** Selected flag definitions for Cache manipulation calls ********* }
|
|
|
+
|
|
|
+ CACRF_EnableI = %0000000000000001; { Enable instruction cache }
|
|
|
+ CACRF_FreezeI = %0000000000000010; { Freeze instruction cache }
|
|
|
+ CACRF_ClearI = %0000000000001000; { Clear instruction cache }
|
|
|
+ CACRF_IBE = %0000000000010000; { Instruction burst enable }
|
|
|
+ CACRF_EnableD = %0000000100000000; { 68030 Enable data cache }
|
|
|
+ CACRF_FreezeD = %0000001000000000; { 68030 Freeze data cache }
|
|
|
+ CACRF_ClearD = %0000100000000000; { 68030 Clear data cache }
|
|
|
+ CACRF_DBE = %0001000000000000; { 68030 Data burst enable }
|
|
|
+ CACRF_WriteAllocate = %0010000000000000; { 68030 Write-Allocate mode
|
|
|
+ (must always be set!) }
|
|
|
+ CACRF_EnableE = 1073741824; { Master enable for external caches }
|
|
|
+ { External caches should track the }
|
|
|
+ { state of the internal caches }
|
|
|
+ { such that they do not cache anything }
|
|
|
+ { that the internal cache turned off }
|
|
|
+ { for. }
|
|
|
+
|
|
|
+ CACRF_CopyBack = $80000000; { Master enable for copyback caches }
|
|
|
+
|
|
|
+ DMA_Continue = 2; { Continuation flag for CachePreDMA }
|
|
|
+ DMA_NoModify = 4; { Set if DMA does not update memory }
|
|
|
+ DMA_ReadFromRAM = 8; { Set if DMA goes *FROM* RAM to device }
|
|
|
+
|
|
|
+
|
carl