8 lines
4.3 KiB
Plaintext
8 lines
4.3 KiB
Plaintext
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))))) @ <01> 0 x <00> <01><01> @ <01> 0 x <00> <01><01> ( <01> 1 <01> <01> 1 <01> <01><01> ( <00> <00>8 ( <01> ( <00> <00>8 D <01> <01> 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 <06> ez<65> |