home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0406.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-31  |  454 b   |  19 lines
  1. /* C module that will place a call to a Procedure defined in */
  2. /* the Turbo Pascal program that links in this module.       */
  3.  
  4. #include "savesidi.h"   /* include macros to save si and di  */
  5.  
  6. extern void PasProc (void);
  7. /* External Pascal procedure that is called by this C module */
  8.  
  9. void StartUpC (void)
  10. {
  11.   register int counter;
  12.   for (counter = 1; counter <= 15; counter++ ) {
  13.     save_sidi;
  14.     PasProc();
  15.     rest_sidi;
  16.   }
  17. }
  18.  
  19.