home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / m2posx14 / src / pout.dpp < prev    next >
Encoding:
Modula Definition  |  1994-03-19  |  1.1 KB  |  31 lines
  1. DEFINITION MODULE pOUT;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. (****************************************************************************)
  13. (* 21-Mär-94, Holger Kleinschmidt                                           *)
  14. (****************************************************************************)
  15.  
  16. FROM PORTAB IMPORT
  17. (* TYPE *) ANYLONG, SIGNEDLONG, UNSIGNEDLONG;
  18.  
  19. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  20.  
  21. PROCEDURE PutInt (int : SIGNEDLONG; width : CARDINAL);
  22. PROCEDURE PutCard (card : UNSIGNEDLONG; width : CARDINAL);
  23. PROCEDURE PutHex (val : ANYLONG; width : CARDINAL);
  24.  
  25. PROCEDURE PutReal (real : REAL; width : CARDINAL);
  26. PROCEDURE PutRealHex (real : REAL; width : CARDINAL);
  27. PROCEDURE PutLReal (real : LONGREAL; width : CARDINAL);
  28. PROCEDURE PutLRealHex (real : LONGREAL; width : CARDINAL);
  29.  
  30. END pOUT.
  31.