home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / ModulaLib.def < prev    next >
Text File  |  1996-10-20  |  1KB  |  51 lines
  1. DEFINITION MODULE ModulaLib;
  2.  
  3. (* (C) Copyright 1993 Marcel Timmermans. All rights reserved. *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7. VAR 
  8.     wbStarted   : BOOLEAN;
  9.     thisTask    : ADDRESS;
  10.     kickVersion : INTEGER;
  11.     returnVal   : LONGINT;
  12.  
  13. (* Needed for cli-startup *)
  14.     dosCmdBuf: ADDRESS;
  15.     dosCmdLen: LONGINT;
  16.  
  17. (* workbench startup message *)
  18.     wbenchMsg : ADDRESS;
  19.  
  20. (* needed for exception handling *)
  21.    ExceptNr:LONGINT;
  22.    ExceptStck:ADDRESS;
  23.    saveA7,saveA5:ADDRESS;
  24.  
  25.  
  26. (******* Privit procedures; DO NOT USE *********)
  27. PROCEDURE easystartup;
  28. PROCEDURE StackChk(space{0}:LONGINT);
  29. PROCEDURE LoadA4;
  30. PROCEDURE Mulu32(x{0},y{1}:LONGINT):LONGINT;
  31. PROCEDURE Muls32(x{0},y{1}:LONGINT):LONGINT;
  32. PROCEDURE Divu32(x{0},y{1}:LONGINT):LONGINT;
  33. PROCEDURE Divs32(x{0},y{1}:LONGINT):LONGINT;
  34. PROCEDURE New(VAR adr:ADDRESS;size:LONGINT);
  35. PROCEDURE Dispose(VAR adr: ADDRESS);
  36. PROCEDURE SFix(x{0}:REAL):LONGINT; 
  37. PROCEDURE StoredA4; 
  38.  
  39.  
  40. (* Runtime support procedures *)
  41. PROCEDURE Assert(cc: BOOLEAN; Msg:ADDRESS);
  42. PROCEDURE TerminateRequester(Msg:ADDRESS);
  43. PROCEDURE Terminate;
  44. PROCEDURE TermOpenLib(Msg{9}:ADDRESS);
  45. PROCEDURE BreakPoint(data : ADDRESS);
  46. PROCEDURE Exit(returnCode{0}:LONGINT);
  47. PROCEDURE Halt;
  48. PROCEDURE Raise(i{0}:LONGINT);
  49.  
  50.  
  51. END ModulaLib.