home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / signals / ts / iodll.def next >
Encoding:
Modula Definition  |  1993-01-19  |  1.2 KB  |  49 lines
  1. (*# call( near_call => off,
  2.          seg_name => BODIO_IOPL,
  3.          iopl => on) *)
  4. (*# data( near_ptr => off) *)
  5. (*%F _fdata *)
  6. (*# data( seg_name => null) *)
  7. (*%E *)
  8. (*# check( stack => off,
  9.            index => off,
  10.            range => off,
  11.            overflow => off,
  12.            nil_ptr => off) *)
  13. (*# module( implementation => off, init_code => off) *)
  14.  
  15. (* # project( "#pragma link( iodll.dll)") leider Fehler in TS-Environment !!! *)
  16. (*                                       --> direkt im Project-File angeben ! *)
  17.  
  18. DEFINITION MODULE IODLL;
  19.  
  20.  
  21. TYPE
  22.   A1  = ARRAY [0..0] OF SHORTCARD;
  23.  
  24. (*# save,
  25.     call( reg_param => (dx,ax),
  26.           reg_saved => (dx,ax,bx,cx,si,di,es,ds,st1,st2),
  27.           inline => on)
  28. *)
  29. INLINE PROCEDURE Out( p : CARDINAL; v : SHORTCARD) = A1( 0EEH);
  30.  
  31. (*# call( reg_param => (dx),
  32.           reg_saved => (dx,bx,cx,si,di,es,ds,st1,st2)) *)
  33. INLINE PROCEDURE In( p : CARDINAL) : SHORTCARD = A1( 0ECH);
  34.  
  35.  
  36.  
  37. (*# save,
  38.     call( near_call => off,
  39.           reg_param => (),
  40.           reg_saved => (di,si,ds,es,st1,st2))
  41. *)
  42. PROCEDURE Input( p : CARDINAL) : SHORTCARD;
  43.  
  44. PROCEDURE Output( p : CARDINAL; v : SHORTCARD);
  45. (*# restore*)
  46.  
  47.  
  48. END IODLL.
  49.