home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / FORTH / BEETLE / BEETLE.ZIP / Beetle / run.c < prev    next >
C/C++ Source or Header  |  1997-04-22  |  804b  |  34 lines
  1. /* RUN.C
  2.  
  3.     Vrsn  Date   Comment
  4.     ----|-------|---------------------------------------------------------------
  5.     0.00 09nov94
  6.     0.01 10nov94 Now use opcodes.h.
  7.     0.02 25nov94 Changed return type of run to long.
  8.     0.03 01dec94 Changed return type of run to CELL.
  9.     0.04 24mar95 Added inclusion of code to make run functional (first working
  10.                  version). lib.c now #included by execute.c.
  11.     0.05 25mar95 Removed unnecessary reference to bintern.h.
  12.     0.06 30mar97 Added inclusion of lib.h.
  13.  
  14.     Reuben Thomas
  15.  
  16.  
  17.     The interface call run() : integer.
  18.  
  19. */
  20.  
  21.  
  22. #include <stdio.h>
  23. #include "beetle.h"     /* main header */
  24. #include "opcodes.h"    /* opcode enumeration */
  25. #include "lib.h"        /* lib function */
  26.  
  27.  
  28. CELL run(void)
  29. {
  30.     while (1)
  31. #include "execute.c"
  32. #include "excepts.c"
  33. }
  34.