palmos: an include which will contain the subset of the API the RTL needs

git-svn-id: trunk@37215 -

.gitattributes

@@ -10013,6 +10013,7 @@ rtl/palmos/m68k/crt0.o -text
 rtl/palmos/m68k/gdbstub.o -text
 rtl/palmos/m68k/libcrt.a -text
 rtl/palmos/m68k/prt0.as svneol=native#text/plain
+rtl/palmos/palmos.inc svneol=native#text/plain
 rtl/palmos/pilot.pp svneol=native#text/plain
 rtl/palmos/readme -text
 rtl/palmos/rtldefs.inc svneol=native#text/plain

rtl/palmos/palmos.inc

@@ -0,0 +1,68 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2017 by Free Pascal development team
+
+    PalmOS specific structures and definitions to be used by the RTL
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{$PACKRECORDS 2}
+type
+  MemPtr = Pointer;
+  MemHandle = Pointer;
+  Err = Word;
+  DmOpenRef = Pointer;
+
+type
+  SysAppInfoTag = record
+    cmd: Int16;            // command code for app
+    cmdPBP: MemPtr;        // cmd ParamBlock
+    launchFlags: UInt16;   // launch flags
+
+    taskID: UInt32;        // AMX task ID of task that app runs in
+    codeH: MemHandle;      // code MemHandle of the main code segment
+    dbP: DmOpenRef;        // Application database access MemPtr of App
+    stackP: ^UInt8;        // stack chunk for the App
+    globalsChunkP: ^UInt8; // globals chunk for the App
+
+    memOwnerID: UInt16;    // owner ID for Memory Manager chunks
+    dmAccessP: MemPtr;     // pointer to linked list of opened DB's
+    dmLastErr: Err;        // Last error from Data Manager
+    errExceptionP: MemPtr; // ErrTry,Catch exception list
+
+    // PalmOS v3.0 fields begin here
+    a5Ptr: ^UInt8;         // A5 MemPtr for this app
+    stackEndP: ^UInt8;     // stack chunk end for the App (last byte)
+    globalEndP: ^UInt8;    // global chunk end for the App (last byte)
+    rootP: ^SysAppInfoType;// Points to the SysAppInfoType first
+                           // allocated for this thread.
+    extraP: MemPtr;        // unused MemPtr for the App.
+  end;
+  SysAppInfoType = SysAppInfoTag;
+  SysAppInfoPtr = ^SysAppInfoType;
+
+
+const
+  sysAppLaunchCmdNormalLaunch = 0;
+
+const
+  sysTrapSysAppStartup = $A08F;
+  sysTrapSysAppExit = $A090;
+
+function SysAppStartup(var appInfoPP: SysAppInfoPtr; var prevGlobalsP, globalsPtrP: MemPtr): UInt16; syscall sysTrapSysAppStartup;
+function SysAppExit(appInfoP: SysAppInfoPtr; prevGlobalsP, globalsP: MemPtr): UInt16; syscall sysTrapSysAppExit;
+
+const
+  sysTrapSndPlaySystemSound = $A234;
+  sndError = 3;
+
+procedure SndPlaySystemSound(beepID: Word); syscall sysTrapSndPlaySystemSound;
+
+{$PACKRECORDS DEFAULT}