home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Shareware City / Developers / kvik / runtime libs / kvik_obj_header.h next >
Encoding:
C/C++ Source or Header  |  1994-12-02  |  951 b   |  48 lines  |  [TEXT/MPS ]
  1. /* Header for kvik output code, written by Asher Hoskins, 30/10/94 */
  2.  
  3. /*     required some minor modifications--kvikmath.h, kvik_obj_types.h
  4.  *    and kviksl.h need to be in the same folder as the compiled 
  5.  *    program in order to be accessed
  6.  */
  7.  
  8. #include <stdio.h>
  9. #include "kvikmath.h"    //changed
  10. #include "kvik_obj_types.h"
  11. #include "kviksl.h"        //changed
  12.  
  13. #define CONST0 (52767)
  14. #define CONST1 (1)
  15. #define CONST2 (OVERFLOW)
  16. #define CONST3 (6366)
  17. #define CONST4 (13863)
  18. #define CONST5 (625)
  19. #define CONST6 (14142)
  20. #define CONST7 (17320)
  21. #define CONST8 (6020)
  22. #define CONST9 (19999)
  23.  
  24. data_area_t *data = NULL;
  25.  
  26. void main(void)
  27. {
  28.     int r[10];        /* Registers */
  29.     int p[10];        /* Program pointers */
  30.     dp_t d[10];        /* Data pointers */
  31.     kviknum *store;
  32.     int gd, i;
  33.  
  34.     /* A little bit of initialisation... */
  35.     for (i=0; i<10; i++) {
  36.         r[i] = 0;
  37.         p[i] = -3;
  38.         d[i].start = NULL;
  39.     }
  40.  
  41.     gd = -1;
  42.     do {
  43.         switch(gd) {
  44.         case -1:            /* start */
  45.  
  46. /* User code follows: */
  47.  
  48.