home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / BEISPIEL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-09  |  890 b   |  47 lines
  1. unit Beispiel ;
  2. { Beispiel-Unit, in der einige PASCAL-Prozeduren definiert werden,
  3.   die von Assembler aus aufgerufen werden können. }
  4.  
  5. interface
  6.  
  7. procedure TestBeispiel ;
  8.  
  9. procedure PublicProc ;
  10. { Muß den Datentyp FAR haben, da sie von außen aufgerufen werden muß.}
  11.  
  12. implementation
  13.  
  14. var
  15.   A : WORD ;
  16.  
  17. procedure AsmProc ; external ;
  18. {$L ASMPROC.OBJ}
  19.  
  20. procedure PublicProc ;
  21.   begin
  22.     WriteLn ( 'In PublicProc' ) ;
  23.   end ;
  24.  
  25. {$F-}
  26. procedure NearProc ; { Ist NEAR deklariert, da innerhalb Implementation }
  27.   begin
  28.     WriteLn ( 'In NearProc' ) ;
  29.   end ;
  30.  
  31. {$F+}
  32. procedure FarProc ;
  33.   begin
  34.     WriteLn ( 'In FarProc' ) ;
  35.   end ;
  36. {$F-}
  37.  
  38. procedure TestBeispiel ;
  39.   begin
  40.     WriteLn ( 'In TestBeispiel' ) ;
  41.     A := 10 ;
  42.     WriteLn ( 'Wert von A vor AsmProc = ', A ) ;
  43.     AsmProc ;
  44.     WriteLn ( 'Wert von A nach AsmProc = ', A ) ;
  45.   end ;
  46. end.
  47.