home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / DebugLib.def < prev    next >
Text File  |  1996-09-18  |  1KB  |  43 lines
  1. (* debug.lib for Cyclone
  2.    16-Sep-96/Stefan Tiemann
  3.  
  4.    NEVER use any of these functions for release versions, they
  5.    are inefficient, hardware banging and for debuging *only*
  6.  
  7.    further information can be found in:
  8.    - autodocs: debug_lib.doc
  9.    - more docs: Babel/The Guru Book
  10.    - exec private functions: Ruprecht/Kommentiertes ROM-Listing
  11. *)
  12.  
  13. DEFINITION MODULE DebugLib;
  14.  
  15. IMPORT R:Reg;
  16. FROM SYSTEM IMPORT ADDRESS;
  17.  
  18.  
  19. TYPE
  20.    StrPtr= POINTER TO ARRAY [0..MAX(INTEGER)] OF CHAR;
  21.  
  22.  
  23. PROCEDURE KPutChar(char{R.D0}: LONGCARD);
  24.  
  25. PROCEDURE KPutStr(s: StrPtr);
  26.  
  27. PROCEDURE KPrintF(str{R.A0}: StrPtr; values{R.A1}: ADDRESS);
  28.  
  29. PROCEDURE KMayGetChar(): LONGINT;
  30.  
  31. PROCEDURE KGetChar(): LONGINT;
  32.  
  33. (* Only for complete interface. Use UtilityL.Stricmp or String.Compare if possible *)
  34. PROCEDURE KCmpStr(s1{R.A0}, s2{R.A1}: StrPtr): LONGINT;
  35.  
  36. (* No backspace handling. *)
  37. PROCEDURE KGetNum(): LONGINT;
  38.  
  39. (* From "Guru Book" p. 193, set speed of internal serial *)
  40. PROCEDURE SetSerial(Baud: LONGCARD);
  41.  
  42. END DebugLib.
  43.