home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / code / c_interl.sit < prev    next >
Encoding:
Text File  |  1988-06-20  |  5.1 KB  |  175 lines
  1. 18-Jun-88 14:50:38-MDT,5322;000000000000
  2. Return-Path: <u-lchoqu%sunset@cs.utah.edu>
  3. Received: from cs.utah.edu by SIMTEL20.ARPA with TCP; Sat, 18 Jun 88 14:50:31 MDT
  4. Received: by cs.utah.edu (5.54/utah-2.0-cs)
  5.     id AA22749; Sat, 18 Jun 88 14:50:30 MDT
  6. Received: by sunset.utah.edu (5.54/utah-2.0-leaf)
  7.     id AA24874; Sat, 18 Jun 88 14:50:27 MDT
  8. Date: Sat, 18 Jun 88 14:50:27 MDT
  9. From: u-lchoqu%sunset@cs.utah.edu (Lee Choquette)
  10. Message-Id: <8806182050.AA24874@sunset.utah.edu>
  11. To: rthum@simtel20.arpa
  12. Subject: interlace.c.shar
  13.  
  14. #! /bin/sh
  15. #
  16. # This is a shell archive.  Save this into a file, edit it
  17. # and delete all lines above this comment.  Then give this
  18. # file to sh by executing the command "sh file".  The files
  19. # will be extracted into the current directory owned by
  20. # you with default permissions.
  21. #
  22. # The files contained herein are:
  23. #
  24. #    1 Makefile
  25. #    1 interlace.c
  26. #    3 interlace.r
  27. #
  28. echo 'Extracting Makefile'
  29. if test -f Makefile; then echo 'shar: will not overwrite Makefile'; else
  30. cat << '________This_Is_The_END________' > Makefile
  31. # Interlace
  32. # Sets the Mac II video card in NTSC interlace mode.
  33.  
  34. interlace            [dependency symbol] interlace.r interlace.code
  35.     Rez "{RIncludes}"Types.r interlace.r -t INIT -c mkb0 -o interlace
  36.  
  37. interlace.code    [dependency symbol] interlace.c.o
  38.     Link -rt INIT=0 [line continuation symbol]
  39.         interlace.c.o [line continuation symbol]
  40.         -o interlace.code
  41. ________This_Is_The_END________
  42. if test `wc -l < Makefile` -ne 10; then
  43.     echo 'shar: Makefile was damaged during transit'
  44.   echo '      (should have been 10 bytes)'
  45. fi
  46. fi        ; : end of overwriting check
  47. echo 'Extracting interlace.c'
  48. if test -f interlace.c; then echo 'shar: will not overwrite interlace.c'; else
  49. cat << '________This_Is_The_END________' > interlace.c
  50. /* Set interlace mode for slot 2 */
  51.  
  52. main()
  53. {
  54.     SetInterlace(2);
  55. }
  56.  
  57. /* Set to Interlace Video */
  58. SetInterlace(Slot)
  59. int Slot;
  60. {    
  61.     int Dummy;
  62.     long ll, *CardPtr;
  63.  
  64.     Slot += 8;
  65.     ll = (long)Slot;
  66.     CardPtr = (long *) ((ll << 20) + 0x80000L);
  67.     
  68.     CardPtr[0] = 0xff;
  69.     CardPtr[1] = 0x48;
  70.     CardPtr[2] = 0xff;
  71.     CardPtr[3] = 0xf7;
  72.     CardPtr[4] = 0x9f;
  73.     CardPtr[5] = 0x1a;
  74.     CardPtr[6] = 0xc4;
  75.     CardPtr[7] = 0xe6;
  76.     CardPtr[8] = 0xfa;
  77.     CardPtr[9] = 0xf7;
  78.     CardPtr[10] = 0xe5;
  79.     CardPtr[11] = 0xF1;
  80.     CardPtr[12] = 0x7b;
  81.     CardPtr[13] = 0xf1;
  82.     CardPtr[14] = 0xd1;
  83.     CardPtr[15] = 0x06;
  84.     
  85.     ll = (long) Slot;
  86.     CardPtr = (long *)((ll <<20) + 0xC0000) ;
  87.     Dummy = *CardPtr ;   /* Must be a Longint reference */
  88. }
  89. ________This_Is_The_END________
  90. if test `wc -l < interlace.c` -ne 39; then
  91.     echo 'shar: interlace.c was damaged during transit'
  92.   echo '      (should have been 39 bytes)'
  93. fi
  94. fi        ; : end of overwriting check
  95. echo 'Extracting interlace.r'
  96. if test -f interlace.r; then echo 'shar: will not overwrite interlace.r'; else
  97. cat << '________This_Is_The_END________' > interlace.r
  98. resource 'ICN#' (128, "INIT Icon") {
  99.     {
  100.         $"FFFF FFFF FFFF FFFF E000 0007 C000 0003"
  101.         $"EAAA AAAB C000 0003 C000 0003 EAAA AAAB"
  102.         $"C000 0003 C000 0003 EAAA AAAB C000 0003"
  103.         $"C000 0003 EAAA AAAB C000 0003 C000 0003"
  104.         $"EAAA AAAB C000 0003 C000 0003 EAAA AAAB"
  105.         $"C000 0003 C000 0003 EAAA AAAB C000 0003"
  106.         $"E000 0007 FFFF FFFF FFFF FFFF E000 0007"
  107.         $"E000 0187 E000 0007 FFFF FFFF FFFF FFFF",
  108.  
  109.         $"0000 0000 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  110.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  111.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  112.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  113.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  114.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  115.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
  116.         $"7FFF FFFE 7FFF FFFE 7FFF FFFE 0000 0000"
  117.     }
  118. };
  119.  
  120. resource 'BNDL' (128, purgeable) {
  121.     'mkb0', 0, {
  122.         'ICN#', {
  123.             0, 128
  124.         },
  125.         'FREF', {
  126.             0, 128
  127.         }
  128.     }
  129. };
  130.  
  131. resource 'FREF' (128) {
  132.     'INIT', 0, ""
  133. };
  134.  
  135. type 'mkb0' as 'STR ';
  136.  
  137. resource 'mkb0' (0) {
  138.     "Video Interlace Mode - slot 2"
  139. };
  140.  
  141. include "interlace.code";
  142.  
  143. data 'INIT' (128, "ShowINIT", purgeable) {
  144.     $"4E56 FEFA 2F08 A029 2F17 486E FFFA 486E"
  145.     $"FFFC 486E FEFA A9A8 3F2E FFFA 3F3C FFFF"
  146.     $"4EBA 000A 205F A02A 4E5E 4E75 4E56 0000"
  147.     $"2F0B 42A7 2F3C 4943 4E23 3F2E 000A A9A0"
  148.     $"201F 6720 2040 A029 2648 2F10 3F2E 0008"
  149.     $"4EBA 0014 204B A02A 2F08 A9A3 265F 4E5E"
  150.     $"2E9F 4E75 60F6 4E56 FEAC 48E7 3F1C 2F38"
  151.     $"0904 4BEE FFFC 21CD 0904 486E FFF8 A86E"
  152.     $"486E FEAC A86F 3038 092C E358 0A40 1021"
  153.     $"B078 092E 6718 0CB8 5061 756C 0A78 6708"
  154.     $"31FC 0008 092C 6006 31F8 0A7E 092C 41EE"
  155.     $"FEAC 3028 000C 0440 0028 4840 3038 092C"
  156.     $"2D40 FF26 2D40 FF2A 066E 0020 FF2C 066E"
  157.     $"0020 FF2A 266E 000A 6134 3038 092C 322E"
  158.     $"0008 6A04 323C 0028 D041 31C0 092C E358"
  159.     $"0A40 1021 31C0 092E 486E FEAC A87D 21DF"
  160.     $"0904 4CDF 38FC 4E5E 205F 5C8F 4ED0 49EE"
  161.     $"FF18 288B 0694 0000 0080 397C 0004 0004"
  162.     $"42AC 0006 297C 0020 0020 000A 2F0C 45EE"
  163.     $"FEAC 486A 0002 487A 002C 486E FF26 3F3C"
  164.     $"0003 42A7 A8EC 0494 0000 0080 2F0C 486A"
  165.     $"0002 487A 0010 486E FF26 3F3C 0001 42A7"
  166.     $"A8EC 4E75 0000 0000 0020 0020"
  167. };
  168. ________This_Is_The_END________
  169. if test `wc -l < interlace.r` -ne 70; then
  170.     echo 'shar: interlace.r was damaged during transit'
  171.   echo '      (should have been 70 bytes)'
  172. fi
  173. fi        ; : end of overwriting check
  174. exit 0
  175.