(FILECREATED "16-Feb-86 00:11:38" ("compiled on " {ERIS}LIBRARY>BUSCOLOR.;7) "15-Feb-86 15:50:45" recompiled changes: \BUSCOLOR.UPDATEDAEMON in "Xerox Lisp 15-Feb-86 ..." dated "15-Feb-86 16:03:52") (FILECREATED "16-Feb-86 00:11:13" {ERIS}LIBRARY>BUSCOLOR.;7 13251 changes to: (FNS \BUSCOLOR.UPDATEDAEMON) (VARS \BUSCOLOR.LOCKEDFNS BUSCOLORCOMS) previous date: "10-Feb-86 12:31:55" {ERIS}LIBRARY>BUSCOLOR.;4) \BUSCOLOR.INIT D1 (F 0 \BUSCOLOR.LOCKEDFNS F 1 \BUSCOLOR.LOCKEDVARS) P†d ¿µøQ†d ¿µøh(22Q \LOCKVAR 6 \LOCKFN) NIL () \BUSCOLOR.STARTCOLOR D1 (P 4 PAGE P 1 WSOPS P 0 DISPLAYSTATE I 0 FDEV) Ò0gð´‚±¹@É(¸@ÉF¹Hg¿IºjJ¿Ig ¿Ig ¿`É¿gÁ`` ÐÎ¿`Òá`ÓãØ¿`Òá`ÓãØ¿` ¿`` ¿ld¿j¿l ¿``LdKóžg ¿Hgh ¿LkÔ\°å(311Q \BUSCOLOR.MAKEDIRTYPAGE 276Q \INSTALL.PERIODIC.INTERRUPT 227Q \LOCKPAGES 212Q \BUSCOLOR.BITMAPPAGES 142Q \BUSCOLOR.BITMAPWORDS 107Q MOVD 70Q MOVD 5 MACHINETYPE) (303Q ON 273Q \BUSCOLOR.UPDATEDAEMON 257Q ColorScreenBitMapBasePage 254Q ColorScreenBitMapEndPage 250Q \PERIODIC.INTERRUPT.FREQUENCY 242Q \BUSCOLOR.LASTMOVEDPAGE 235Q \BUSCOLOR.MOVELIMIT 224Q ColorScreenBitMapPages 221Q ColorScreenBitMapBase 215Q ColorScreenBitMapPages 207Q ColorScreenBitMap 203Q ColorScreenBitMapBasePage 175Q ColorScreenBitMapBase 170Q ColorScreenBitMapBase 164Q ColorScreenBitMapEndPage 156Q ColorScreenBitMapEnd 151Q ColorScreenBitMapEnd 137Q ColorScreenBitMap 134Q ColorScreenBitMapBase 127Q ColorScreenBitMapEnd 123Q ColorScreenBitMapBase 116Q BITMAP 113Q ColorScreenBitMap 104Q \SOFTCURSORPILOTBITBLT 65Q \BUSCOLOR.SENDPAGE 41Q STARTCOLOR 32Q FDEV 23Q FDEV 10Q DANDELION) () \BUSCOLOR.STOPCOLOR D1 (P 2 PAGE P 0 DISPLAYSTATE I 0 FDEV) @@É(Xdgg ``JdIó²`` Hgh ¿JkÔZ°â(67Q \BUSCOLOR.MAKEDIRTYPAGE 55Q \UNLOCKPAGES 24Q \REMOVE.PERIODIC.INTERRUPT) (61Q OFF 52Q ColorScreenBitMapPages 47Q ColorScreenBitMapBase 32Q ColorScreenBitMapBasePage 27Q ColorScreenBitMapEndPage 21Q \BUSCOLOR.UPDATEDAEMON 15Q STOPCOLOR 6 FDEV) () \REMOVE.PERIODIC.INTERRUPT D1 (L (0 INTERRUPT)) `h¿NIL (6 \PERIODIC.INTERRUPT 2 \PERIODIC.INTERRUPT) () \INSTALL.PERIODIC.INTERRUPT D1 (L (0 INTERRUPT)) `@¿NIL (6 \PERIODIC.INTERRUPT 2 \PERIODIC.INTERRUPT) () \BUSCOLOR.BITMAPPAGES D1 (L (0 BITMAP)) @È@ÈÚlÿØãNIL (11Q BITMAP 3 BITMAP) () \BUSCOLOR.BITMAPWORDS D1 (L (0 BM)) @È@ÈÚNIL (11Q BITMAP 3 BITMAP) () \BUSCOLOR.DIRTYPAGEP D1 (I 0 VPAGE) @qnåjðhðNIL NIL () \BUSCOLOR.MAKECLEANPAGE D1 (I 0 VPAGE) @dr@qoåsNIL NIL ( 10Q -10001Q) \BUSCOLOR.MAKEDIRTYPAGE D1 (I 0 VPAGE) @dr@qnäsNIL NIL () \BUSCOLOR.UPDATEDAEMON D1 (P 4 ABSCURRPAGE P 3 CURRPAGE P 2 PAGESMOVED P 0 \INTERRUPTABLE F 5 \INTERRUPTABLE) \U´Y g 0`»jºKkØ[`ð³/`KØ\qnåjð³éLYãIlÿåáÑK ¿L ¿JkØZ`ð²Ì‚mÿ»Kg (131Q \INSTALL.PERIODIC.INTERRUPT 77Q \BUSCOLOR.MAKECLEANPAGE 72Q \BUSCOLOR.SENDPAGE 13Q \REMOVE.PERIODIC.INTERRUPT) (126Q \BUSCOLOR.UPDATEDAEMON 122Q \BUSCOLOR.LASTMOVEDPAGE 107Q \BUSCOLOR.MOVELIMIT 41Q ColorScreenBitMapBasePage 33Q ColorScreenBitMapPages 21Q \BUSCOLOR.LASTMOVEDPAGE 10Q \BUSCOLOR.UPDATEDAEMON) () \BUSCOLOR.EVENTFN D1 (P 1 PAGE I 1 EVENT I 0 DEVICE) ›@É(gð´‚±AgðAgð§Adgð—¿g gð²"g ``IdHó‘h ¿IkÔY°òAgð³ïAgð³èAdgð³àgð¦Agð´ ``IdHó—g ¿IkÔY°ì(222Q \BUSCOLOR.MAKEDIRTYPAGE 216Q \INSTALL.PERIODIC.INTERRUPT 171Q SCREENCOLORMAP 166Q SCREENCOLORMAP 112Q \BUSCOLOR.MAKEDIRTYPAGE 67Q \REMOVE.PERIODIC.INTERRUPT 52Q COLORDISPLAY) (213Q \BUSCOLOR.UPDATEDAEMON 177Q ColorScreenBitMapBasePage 174Q ColorScreenBitMapEndPage 160Q AFTERDOSAVEVM 152Q AFTERSAVEVM 144Q AFTERMAKESYS 134Q AFTERSYSOUT 125Q AFTERLOGOUT 75Q ColorScreenBitMapBasePage 72Q ColorScreenBitMapEndPage 64Q \BUSCOLOR.UPDATEDAEMON 56Q BEFORESAVEVM 47Q OFF 41Q BEFOREMAKESYS 32Q BEFORESYSOUT 24Q BEFORELOGOUT 11Q ON 3 FDEV) () (PRETTYCOMPRINT BUSCOLORCOMS) (RPAQQ BUSCOLORCOMS ((* BUSCOLOR -- Update daemon for the BUSMASTER color cards -- By Kelly Roach and Herb Jellinek. *) (FNS \BUSCOLOR.INIT) (FNS \BUSCOLOR.STARTCOLOR \BUSCOLOR.STOPCOLOR) (FNS \REMOVE.PERIODIC.INTERRUPT \INSTALL.PERIODIC.INTERRUPT) (P (MOVD? (FUNCTION NILL) (FUNCTION \BUSCOLOR.SENDPAGE))) (FNS \BUSCOLOR.BITMAPPAGES \BUSCOLOR.BITMAPWORDS \BUSCOLOR.DIRTYPAGEP \BUSCOLOR.MAKECLEANPAGE \BUSCOLOR.MAKEDIRTYPAGE \BUSCOLOR.UPDATEDAEMON \BUSCOLOR.EVENTFN) (MACROS \BUSCOLOR.DIRTYPAGEP) (CONSTANTS \VMAP.NOTDIRTY) (PROP ARGNAMES \BUSBLTOUTBYTES) (FILES BUSMASTER COLOR) (DECLARE: DOEVAL@LOAD DONTEVAL@COMPILE DONTCOPY (FILES (LOADFROM) LLFAULT BUSMASTER)) (VARS \BUSCOLOR.LOCKEDFNS \BUSCOLOR.LOCKEDVARS) (DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P ( \BUSCOLOR.INIT))))) (MOVD? (FUNCTION NILL) (FUNCTION \BUSCOLOR.SENDPAGE)) (PUTPROPS \BUSCOLOR.DIRTYPAGEP DMACRO ((VPAGE) (fetch (VMEMFLAGS DIRTY) of (\READFLAGS VPAGE)))) (RPAQQ \VMAP.NOTDIRTY -4097) (CONSTANTS \VMAP.NOTDIRTY) (PUTPROPS \BUSBLTOUTBYTES ARGNAMES (VMADDR BUSADDRHI BUSADDRLO NWORDS)) (FILESLOAD BUSMASTER COLOR) (RPAQQ \BUSCOLOR.LOCKEDFNS (\BUSCOLOR.UPDATEDAEMON \REMOVE.PERIODIC.INTERRUPT \BUSCOLOR.SENDPAGE \BUSCOLOR.MAKECLEANPAGE \INSTALL.PERIODIC.INTERRUPT PCBUS.WRITE PCBUS.WRITEHL)) (RPAQQ \BUSCOLOR.LOCKEDVARS (ColorScreenBitMapPages ColorScreenBitMapBasePage \BUSCOLOR.MOVELIMIT \BUSCOLOR.LASTMOVEDPAGE)) (\BUSCOLOR.INIT) (PUTPROPS BUSCOLOR COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL