home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol133 / flptext.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  1.1 KB  |  41 lines
  1. function absol(u : newreal) : newreal; external;
  2.  
  3. function isequal(u, v : newreal) : boolean; external;
  4.  
  5. function isgreater(u, v : newreal) : boolean; external;
  6.  
  7. function islower(u, v : newreal) : boolean; external;
  8.  
  9. function iseqgreat(u, v : newreal) : boolean; external;
  10.  
  11. function iseqlower(u, v : newreal) : boolean; external;
  12.  
  13. function isinteger(u : newreal) : boolean; external;
  14.  
  15. function add(u, v : newreal) : newreal; external;
  16.  
  17. function sub(u, v : newreal) : newreal; external;
  18.  
  19. function multp(u, v : newreal) : newreal; external;
  20.  
  21. function divde(u, v : newreal) : newreal; external;
  22.  
  23. function modu(u, v : newreal) : newreal; external;
  24.  
  25. procedure do_read(var u : extdatum; var w : newreal); external;
  26.  
  27. procedure do_write(u : newreal); external;
  28.  
  29. function byteadd(var carry : carrytyp; a, b : byte) : byte; external;
  30.  
  31. function bytesub(var carry : carrytyp; a, b : byte) : byte; external;
  32.  
  33. function byt1mul(var carry : byte; mcand, mlier : byte) : byte; external;
  34.  
  35. procedure bytemul(var carry, pprod : byte; mcand, mlier : byte); external;
  36.  
  37. procedure byt1div(var newcarry, rem : byte; divs1, divs2, divd : byte);
  38. external;
  39.  
  40.  
  41.