+ PilotMain implemented

rtl/palmos/syspalm.pp

@@ -28,8 +28,14 @@ Unit SysPalm;
        Byte     = 0..255;
        Word     = 0..65535;
 
+       { !!!!
        DWord    = Cardinal;
        LongWord = Cardinal;
+       }
+
+       { The Cardinal data type isn't currently implemented for the m68k }
+       DWord    = LongInt;
+       LongWord = LongInt;
 
        { Zero - terminated strings }
        PChar    = ^Char;
@@ -47,15 +53,42 @@ Unit SysPalm;
        Test68000 : byte = 0;
        Test68881 : byte = 0;
 
+    { Palm specific data types }
+    type
+       Ptr    = ^Char;
+
+    var
+       ExitCode : DWord;
+       { this variables are passed to PilotMain }
+       cmd : Word;
+       cmdPBP : Ptr;
+       launchFlags : Word;
+
   implementation
 
+    { mimic the C start code }
+    function _PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;export;
+
+      begin
+         cmd:=_cmd;
+         cmdPBP:=_cmdPBP;
+         launchFlags:=_launchFlags;
+         asm
+            bsr PASCALMAIN
+         end;
+         _PilotMain:=ExitCode;
+      end;
+
 begin
-   // here should be some startup code inserted
+   ExitCode:=0;
 end.
 
 {
   $Log$
-  Revision 1.1  1998-08-05 17:19:07  florian
+  Revision 1.2  1998-08-22 10:23:59  florian
+    + PilotMain implemented
+
+  Revision 1.1  1998/08/05 17:19:07  florian
     + first few things for PalmOS support
 
 }