home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / tt / tt2sthi / tt2sthi.c < prev    next >
C/C++ Source or Header  |  1991-04-08  |  2KB  |  86 lines
  1. #include<stdlib.h>
  2. #include<stdio.h>
  3. #include<tos.h>
  4. #include<string.h>
  5.  
  6. typedef enum {FALSE, TRUE} boolean;
  7.  
  8. #define ST_LORES 0
  9. #define ST_HIRES 2
  10.  
  11. boolean set_st_hires(void);
  12. boolean get_cookie(char *cookie, long *value);
  13.  
  14. main()
  15. { 
  16.   if (set_st_hires())
  17.       puts("Resolution changed to ST-high.");
  18.   else
  19.       puts("Resolution not changed.");
  20.     return 0;
  21. }
  22.  
  23. boolean set_st_hires(void)
  24. { long _VDO;
  25.    
  26.   /* Change resolution to ST_HIRES */
  27.   /* First check whether we started from ST_LORES */
  28.   /* We may already be in a higer resolution */
  29.  
  30.    
  31.   if (Getrez() > ST_LORES)
  32.       return FALSE;
  33.  
  34.     /* Get the _VDO (video) cookie, if it doesn't exist we have */
  35.     /* some old TOS version, no resolution change */
  36.     
  37.     if (!get_cookie("_VDO", &_VDO) || _VDO < 0x200)
  38.         return FALSE;
  39.         
  40.     /* values for _VDO are: */
  41.     /* 0x000 for normal ST, 0x100 for STe and 0x200 for TT */
  42.     /* return if we do not have TT video hardware */    
  43.        
  44.   /* change the resolution to ST_HIRES */    
  45.     Setscreen((long *) -1,(long *) -1, 2);
  46.     
  47.   /* Set colors to normal monochrome*/
  48.     EsetColor(254, 0);
  49.     EsetColor(255, 4095);
  50.  
  51.     return TRUE;
  52. }
  53.  
  54. /* function get_cookie*/
  55. /* return true if cookie found, cookie value in value */
  56. /* adapted from Rolf Kotzian, St Computer januar 91 */
  57.  
  58. boolean get_cookie(char *cookie, long *value)
  59. {    long old_stack;
  60.     long *cookiejar;
  61.     
  62.     /* get pointer to cookiejar*/
  63.     if ((int) Super((long *) 1L)== -1)         /*already in supervisor mode*/
  64.         cookiejar=*((long **) 0x5a0L);
  65.     else
  66.     {    old_stack=Super(0L);
  67.         cookiejar=*((long **) 0x5a0L);
  68.       Super((void *) old_stack);
  69.     }
  70.         
  71.     if (!cookiejar)          /*No cookie jar*/
  72.         return FALSE;
  73.     
  74.     do
  75.     {    if (!strncmp((char *)cookiejar, cookie, 4))
  76.         {    if (value)
  77.             { *value=cookiejar[1];
  78.                 return TRUE;
  79.             }    
  80.         }
  81.         else
  82.         cookiejar=&cookiejar[2];
  83.     } while (cookiejar[0]);  /*NULL-cookie?*/
  84.     return FALSE;
  85. }     
  86.