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))))) @È0xÀ¼È@È 0xÀ¼È(È1È È1È ¼È(ŠŠ8(È (ŠŠ8DÈÈ PAGEHEADING RUNNINGHEAD HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN 4+ *  60t  978+6@<:?7'{y×ezº