home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / flicker.arc / INIT_SYS.C < prev    next >
C/C++ Source or Header  |  1989-12-22  |  3KB  |  149 lines
  1.  
  2.  
  3. #include <osbind.h>
  4. #include "flicker.h"
  5.  
  6. extern char *ainit();
  7. extern WORD sys_cmap[];
  8.  
  9. WORD contrl[12], intin[128], ptsin[128], intout[128], ptsout[128];
  10. char *aline;
  11. static WORD color_env[16];
  12.  
  13. WORD *bscreen, *pscreen, *cscreen;  /* buffer, physical, and drawing screens */
  14. WORD gl_apid = -1;
  15. WORD handle;
  16. WORD gem_mrez;    /* gem in medium rez? */
  17.  
  18. static WORD mouse_bx, mouse_by, gem_hicolor;
  19. static WORD initted_color;
  20. static WORD irez;
  21.  
  22. /* set_for_gem and set_for_jim - functions that let me run at low rez
  23.    while doing file requestor and file io at whatever rez GEM thinks
  24.    it is - necessary for file requestor to appear ok, and for system
  25.    io error dialogs to be centered etc.
  26.    Thanks to Dave Staugas (of Neochrome) for the necessary magic aline
  27.    peuks d s pokes! */
  28. set_for_gem()
  29. {
  30. unzoom();        /* don't make GEM deal with zoom */
  31. Setpallete(color_env);    /* restore start-up colors */
  32. hide_mouse();    /* go reset mouse and */
  33. gem_rez();        /* screen rez */
  34. gshow_mouse();    /* to what GEM wants */
  35. }
  36.  
  37. set_for_jim()
  38. {
  39. Setpallete(sys_cmap);    /* d s now set flicker colors */
  40. ghide_mouse();
  41. jim_rez();
  42. show_mouse();
  43. rezoom();
  44. }
  45.  
  46. jim_rez()
  47. {
  48. Setscreen( -1L, -1L, 0);
  49. *((WORD *)(aline-692)) = 319;
  50. *((WORD *)(aline-690)) = 199;
  51. *((WORD *)(aline-666)) = 16;
  52. }
  53.  
  54. gem_rez()
  55. {
  56. if (gem_mrez)
  57.     {
  58.     Setscreen( -1L, -1L, 1);
  59.     *((WORD *)(aline-692)) = 639;
  60.     *((WORD *)(aline-690)) = 199;
  61.     *((WORD *)(aline-666)) = 4;
  62.     }
  63. }
  64.  
  65.  
  66. init_sys()
  67. {
  68. WORD work_in[11];
  69. WORD work_out[57];
  70.  
  71.  
  72. if ( (gl_apid = appl_init()) == -1)
  73.     {
  74.     exit(-1);
  75.     }
  76. aline = ainit();
  77.  
  78. get_cmap(color_env);
  79. put_cmap(sys_cmap);
  80.  
  81. initted_color = 1;
  82.  
  83. if (!init_mem())
  84.     exit(-2);
  85.  
  86. /* save initial rez ... we'll see if GEM agrees with this later */
  87. if ( (irez = Getrez()) != 0)
  88.     {
  89.     if (irez != 1)
  90.         {
  91.         puts("PULL can't run on black and white systems, sorry");
  92.         return(-3);
  93.         }
  94.     }
  95. /* save mouse wrap-around */
  96. mouse_bx = *((WORD *)(aline-692));
  97. mouse_by = *((WORD *)(aline-690));
  98. /* d s save GEM's ideas of # of colors */
  99. gem_hicolor = *((WORD *)(aline-666));
  100.  
  101. v_opnvwk(work_in, &handle, work_out);
  102. if (handle < 0)
  103.     return(-4);
  104.  
  105. if (work_out[0] == 639)
  106.     {
  107.     gem_mrez = 1;    /* see what GEM thinks rez is in so file-requestor can 
  108.                         work */
  109.     /* poke in initial mouse location (in case off-screen for lo-rez */
  110.     *((WORD *)(aline-602)) = 160;
  111.     *((WORD *)(aline-600)) = 100;
  112.     }
  113. jim_rez();
  114. pscreen = cscreen = (WORD *)Physbase();
  115.  
  116. if ((screens[0] = alloc(32000)) == NULL)
  117.     return(-5);
  118. copy_screen(cscreen, screens[0]);
  119.  
  120. if ((bscreen = alloc(32000)) == NULL)
  121.     return(-6);
  122.  
  123. if (!init_input())
  124.     return(-7);
  125.  
  126. init_fname();
  127. init_menu_colors();
  128.  
  129. cel_mem_alloc = mem_free;    /* "user" memory starts here */
  130.  
  131. return(1);
  132. }
  133.  
  134. uninit_sys()
  135. {
  136. /* restore pokes for GEM to get back to medium rez maybe... */
  137. *((WORD *)(aline-692)) = mouse_bx;
  138. *((WORD *)(aline-690)) = mouse_by;
  139. *((WORD *)(aline-666)) = gem_hicolor;
  140. Setscreen( -1L, -1L, irez);
  141.  
  142. /*restore palette...*/
  143. if (initted_color)
  144.     Setpallete(color_env);
  145. if (gl_apid != -1)
  146.     appl_exit();
  147. }
  148.  
  149.