XEROX	XORCURSORPATCH
2

4

1

XORcursorPatch
1

4

By:  Christopher Lane (Lane@sumex-aim.stanford.edu)

This document last edited on July 22, 1987
INTRODUCTION
This module allows the 1186/Daybreak (only) users to twiddle the hardware bits so that they can have an inverting cursor (white on black and black on white instead of black on everything) and provides a patch to keep the system from undoing the effect when calling VIDEOCOLOR to reset the screen. 
USE
(DOVE.XOR.CURSOR  FLG)	[Function]
The argument FLG, if T, will switch to the inverting cursor mode.  If FLG is NIL it will switch back to normal mode.  If FLG is a number between 0 and 15 then it is used as the 'mix-in rule' and has an effect according to the table below. 
Mix-in rules
				Cursor
		Screen	Source	Mode

	0	All Black	None		This  table is relative to the normal
	1	Normal	Normal	Paint	mode of the display (1), normal
	2	Normal	Inverted	Paint	screen, normal cursor in paint
	3	Normal	None	mode.	The inverted display,
	4	Inverted	Normal	Erase	(VIDEOCOLOR T), would be 13,
	5	All Black	Inverted	Paint	inverted screen and inverted	cursor
	6	Inverted	Normal	Invert	in paint mode.  There is probably
	7	Normal	Inverted	Erase	a more precise or logical way to
	8	Inverted	Inverted	Erase	notate these modes, but this should
	9	Normal	Normal	Invert	give you a rough idea ofwhat's
	10	All White	Inverted	Paint	available
	11	Normal	Normal	Erase
	12	Inverted	None
	13	Inverted	Inverted	Paint
	14	Inverted	Normal	Paint
	15	All White	None
Note
The function is set up such that when trying different modes, you must do a (DOVE.XOR.CURSOR) (no argument) between calls.
No warranty expressed or implied, but we have been using it locally without problem (at least as far as I know).  Enjoy.

�����(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))������	�@����
���������
�0��x��À�
�
¼

È
�������������������������@����
È�����������0��x��À�
�
¼

È
�������������������������(����
�����������������������������1����
��������

È
�������������������������1����
������
¼

È
�������������������������(�Š�Š
8�����������������������������(����
È�����������������������������(�Š�Š
8������������������������������D����
��������

È
�������PAGEHEADING�RUNNINGHEAD����������������������	HELVETICA�
����������MODERN�
���������MODERN�
����������MODERN����������MODERN�����������MODERN�
������
���LOGO���������������	����������
�����������������	����
�HRULE.GETFN
��MODERN�
�����������
��������������
�HRULE.GETFN
��MODERN�
�����������
��������������
�HRULE.GETFN
��MODERN�
�����������
���������������������������
�HRULE.GETFN
��MODERN�����������
��������������
�HRULE.GETFN
��MODERN�����������
�������������4�������������
�������������+��������������������
������������
*��������������������
���������������������������
�������
����
����������������
��������������6��������������0��������������t��������������������
���������������������������������������
����������
���9����������
���7����������
���8����������
���+����������
���6����������
���@����������
���<����������
���:����������
���?����������
���7����������
���'����������
�������������
�������������
�������������
�������������
�����������������������
�������������{�������������y�������������
������������×�ezº