🚀 go-pugleaf

[Interlace INIT]

Interlace is an INIT which sets interlace mode on a Mac II video card at
system startup. Useful if you have a normal RGB color monitor sitting
around, and you'd like to look at pretty color pictures...  This is the
MPW source code.

		Mike Blackwell		mkb@rover.ri.cmu.edu
		The Robotics Institute
		Carnegie-Mellon University
		Pittsburgh, PA, 15213

[Moderator's Note: The binary has been posted to comp.binaries.mac]

---
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	interlace.c
#	interlace.r
# This archive created: Mon Mar 28 08:01:45 1988
export PATH; PATH=/bin:$PATH
if test -f 'interlace.c'
then
	echo shar: will not over-write existing file "'interlace.c'"
else
cat << \SHAR_EOF > 'interlace.c'
/* Set interlace mode for slot 2 */

main()
{
	SetInterlace(2);
}

/* Set to Interlace Video */
SetInterlace(Slot)
int Slot;
{	
    int Dummy;
    long ll, *CardPtr;

	Slot += 8;
    ll = (long)Slot;
    CardPtr = (long *) ((ll << 20) + 0x80000L);
    
    CardPtr[0] = 0xff;
    CardPtr[1] = 0x48;
    CardPtr[2] = 0xff;
    CardPtr[3] = 0xf7;
    CardPtr[4] = 0x9f;
    CardPtr[5] = 0x1a;
    CardPtr[6] = 0xc4;
    CardPtr[7] = 0xe6;
    CardPtr[8] = 0xfa;
    CardPtr[9] = 0xf7;
    CardPtr[10] = 0xe5;
    CardPtr[11] = 0xF1;
    CardPtr[12] = 0x7b;
    CardPtr[13] = 0xf1;
    CardPtr[14] = 0xd1;
    CardPtr[15] = 0x06;
    
    ll = (long) Slot;
    CardPtr = (long *)((ll <<20) + 0xC0000) ;
    Dummy = *CardPtr ;   /* Must be a Longint reference */
}
SHAR_EOF
fi # end of overwriting check
if test -f 'interlace.r'
then
	echo shar: will not over-write existing file "'interlace.r'"
else
cat << \SHAR_EOF > 'interlace.r'
resource 'ICN#' (128, "INIT Icon") {
	{
		$"FFFF FFFF FFFF FFFF E000 0007 C000 0003"
		$"EAAA AAAB C000 0003 C000 0003 EAAA AAAB"
		$"C000 0003 C000 0003 EAAA AAAB C000 0003"
		$"C000 0003 EAAA AAAB C000 0003 C000 0003"
		$"EAAA AAAB C000 0003 C000 0003 EAAA AAAB"
		$"C000 0003 C000 0003 EAAA AAAB C000 0003"
		$"E000 0007 FFFF FFFF FFFF FFFF E000 0007"
		$"E000 0187 E000 0007 FFFF FFFF FFFF FFFF",

		$"0000 0000 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 7FFF FFFE"
		$"7FFF FFFE 7FFF FFFE 7FFF FFFE 0000 0000"
	}
};

resource 'BNDL' (128, purgeable) {
	'mkb0', 0, {
		'ICN#', {
			0, 128
		},
		'FREF', {
			0, 128
		}
	}
};

resource 'FREF' (128) {
	'INIT', 0, ""
};

type 'mkb0' as 'STR ';

resource 'mkb0' (0) {
	"Video Interlace Mode - slot 2"
};

include "interlace.code";

data 'INIT' (128, "ShowINIT", purgeable) {
	$"4E56 FEFA 2F08 A029 2F17 486E FFFA 486E"
	$"FFFC 486E FEFA A9A8 3F2E FFFA 3F3C FFFF"
	$"4EBA 000A 205F A02A 4E5E 4E75 4E56 0000"
	$"2F0B 42A7 2F3C 4943 4E23 3F2E 000A A9A0"
	$"201F 6720 2040 A029 2648 2F10 3F2E 0008"
	$"4EBA 0014 204B A02A 2F08 A9A3 265F 4E5E"
	$"2E9F 4E75 60F6 4E56 FEAC 48E7 3F1C 2F38"
	$"0904 4BEE FFFC 21CD 0904 486E FFF8 A86E"
	$"486E FEAC A86F 3038 092C E358 0A40 1021"
	$"B078 092E 6718 0CB8 5061 756C 0A78 6708"
	$"31FC 0008 092C 6006 31F8 0A7E 092C 41EE"
	$"FEAC 3028 000C 0440 0028 4840 3038 092C"
	$"2D40 FF26 2D40 FF2A 066E 0020 FF2C 066E"
	$"0020 FF2A 266E 000A 6134 3038 092C 322E"
	$"0008 6A04 323C 0028 D041 31C0 092C E358"
	$"0A40 1021 31C0 092E 486E FEAC A87D 21DF"
	$"0904 4CDF 38FC 4E5E 205F 5C8F 4ED0 49EE"
	$"FF18 288B 0694 0000 0080 397C 0004 0004"
	$"42AC 0006 297C 0020 0020 000A 2F0C 45EE"
	$"FEAC 486A 0002 487A 002C 486E FF26 3F3C"
	$"0003 42A7 A8EC 0494 0000 0080 2F0C 486A"
	$"0002 487A 0010 486E FF26 3F3C 0001 42A7"
	$"A8EC 4E75 0000 0000 0020 0020"
};
SHAR_EOF
fi # end of overwriting check
#	End of shell archive
exit 0
---