(FILECREATED " 1-Mar-85 16:48:18" ("compiled on " {ERIS}LIBRARY>DANDELIONUFO.;7) "21-Feb-85 12:39:57" recompiled changes: \DANDELION\STARTCOLOR \RochesterWritePage \DANDELIONUFO.UPDATEDAEMON in "INTERLISP-D 21-Feb-85 ..." dated "21-Feb-85 12:54:37") (FILECREATED " 1-Mar-85 16:47:24" {ERIS}LIBRARY>DANDELIONUFO.;7 19391 changes to: (FNS \DANDELIONUFO.UPDATEDAEMON \RochesterWritePage \DANDELION\STARTCOLOR) (VARS \RochesterDisplayOffsetRegister) previous date: "21-Feb-85 16:25:40" {ERIS}LIBRARY>DANDELIONUFO.;6) \DANDELIONUFOINITCOLOR D1 NIL :ggdggggghhhjdnnhhNIL (67Q \DANDELIONUFOWSDATA 43Q \DANDELIONUFOWSOPS 25Q \DANDELIONROTATECOLORMAP 22Q \DANDELIONCOLORLEVEL 17Q \DANDELION\SETSCREENCOLORMAP 14Q \DANDELION\STOPCOLOR 11Q \DANDELION\STARTCOLOR 5 NILL 2 COLORBACKGROUND) () \DANDELIONUFO\EXTRACTCOLORINTENSITY D1 (L (0 COLORLEVEL)) @NIL NIL () \DANDELION\STARTCOLOR D1 (I 3 BITSPP I 2 PTRTOBITS I 1 COLORMAP I 0 DISPLAY) wCloC A @ `d` d```` `` ljl g @(i(153Q \INSTALL.PERIODIC.INTERRUPT 127Q \TEMPLOCKPAGES 113Q \BITMAPPAGES 47Q \BitmapWords 25Q \DANDELION\INITCOLORS 21Q SCREENCOLORMAP 14Q ERROR) (157Q FDEV 150Q \DANDELIONUFO.UPDATEDAEMON 145Q \PERIODIC.INTERRUPT.FREQUENCY 140Q \DDLCOLOR.LASTMOVEDPAGE 134Q \DDLCOLOR.MOVELIMIT 124Q ColorScreenBitMapPages 121Q ColorScreenBitMapBase 116Q ColorScreenBitMapPages 110Q ColorScreenBitMap 105Q ColorScreenBitMapBasePage 77Q ColorScreenBitMapBase 72Q ColorScreenBitMapBase 67Q ColorScreenBitMapEndPage 61Q ColorScreenBitMapEnd 53Q ColorScreenBitMapEnd 44Q ColorScreenBitMap 40Q ColorScreenBitMapBase 33Q BITMAP 30Q ColorScreenBitMap) ( 10Q "Color only comes in 4 bits per pixel on this machine.") \DANDELION\STOPCOLOR D1 (I 0 DISPLAY) !` `k g @(h(24Q \REMOVE.PERIODIC.INTERRUPT 15Q \UNLOCKPAGES 5 COLORMAPP) (31Q FDEV 21Q \DANDELIONUFO.UPDATEDAEMON 11Q \SystemColorMap 2 \SystemColorMap) () \DANDELION\SETSCREENCOLORMAP D1 (P 1 I I 1 COLORMAP I 0 DISPLAY) ljIHh@IA IkY(21Q \DANDELION\SENDCOLORMAPENTRY) NIL () \DANDELIONCOLORLEVEL D1 (P 0 RETVAL I 4 NEWLEVEL I 3 PRIMARYCOLOR I 2 COLOR# I 1 COLORMAP I 0 DISPLAY) B bABCD XD@BA H(30Q \DANDELION\SENDCOLORMAPENTRY 17Q \GENERICCOLORLEVEL 6 COLORNUMBERP) NIL () \DANDELION\CONVERTCOLORMAPENTRY D1 (I 2 COLORMAP I 1 COLOR# I 0 DISPLAY) :BAgh@  BAgh@  BAgh@  ll?(57Q \DANDELIONUFO\EXTRACTCOLORINTENSITY 54Q COLORLEVEL 37Q \DANDELIONUFO\EXTRACTCOLORINTENSITY 34Q COLORLEVEL 15Q \DANDELIONUFO\EXTRACTCOLORINTENSITY 12Q COLORLEVEL) (46Q RED 26Q GREEN 4 BLUE) () \DANDELION\WRITELUT D1 (I 2 D I 1 A I 0 DISPLAY) AoB (11Q BUS.WRITE) NIL ( 4 3400020Q) \DANDELION\SENDCOLORMAPENTRY D1 (I 2 COLORMAP I 1 COLOR# I 0 DISPLAY) @A@AB (12Q \DANDELION\WRITELUT 7 \DANDELION\CONVERTCOLORMAPENTRY) NIL () \DANDELIONROTATECOLORMAP D1 (P 1 COLOR# I 3 THRUCOLOR I 2 STARTCOLOR I 1 COLORMAP I 0 DISPLAY) IA bBj bCl bBCdBbbABC CBIHh@IA IkY(100Q \DANDELION\SENDCOLORMAPENTRY 57Q \GENERICROTATECOLORMAP 33Q COLORNUMBERP 21Q COLORNUMBERP 7 SCREENCOLORMAP 3 COLORMAPP) NIL () \DDLCOLOR.LOCKFNS D1 (F 0 \DDLCOLOR.LOCKEDFNS F 1 \DDLCOLOR.LOCKEDVARS) Pd Qd h(22Q \LOCKVAR 6 \LOCKFN) NIL () \DDLCOLOR.LOCKPAGES D1 (F 0 ColorScreenBitMapBase F 1 ColorScreenBitMapPages) PQ (4 \TEMPLOCKPAGES) NIL () \REMOVE.PERIODIC.INTERRUPT D1 (L (0 INTERRUPT)) `hNIL (6 \PERIODIC.INTERRUPT 2 \PERIODIC.INTERRUPT) () \INSTALL.PERIODIC.INTERRUPT D1 (L (0 INTERRUPT)) `@NIL (6 \PERIODIC.INTERRUPT 2 \PERIODIC.INTERRUPT) () PCCOLORSCROLL D1 (P 1 I I 0 N) )@l2bl'jIHh@ lIl IkY(40Q PCWRITECOLOR 26Q DISMISS) NIL () PCCOLORSCROLLH D1 (P 1 I I 0 N) 2jnHIh@ lIl'l lIl' ImԹ(50Q PCWRITECOLOR 35Q PCWRITECOLOR 20Q DISMISS) NIL () PCROTATELUT D1 (P 2 I P 0 TEMP) 3o XlkJdIlH hdo JkZ(52Q PCWRITELUT 47Q PCREAD 34Q PCWRITELUT 11Q BUS.READ) NIL ( 43Q 3400021Q 6 3400021Q) PCWRITELUT D1 (I 1 D I 0 A F 0 \PCColorMapBase) P@A (6 BUS.WRITE) NIL () PCWRITECOLOR D1 (I 1 D I 0 A) @oA (11Q BUS.WRITE) NIL ( 4 3400000Q) PCWRITEPIXEL D1 (P 0 ADDR I 2 VALUE I 1 Y I 0 X) (@AnoH HnoB B(44Q BUS.WRITE 26Q BUS.WRITE) NIL ( 37Q 2000000Q 15Q 3400301Q) PCREADPIXEL D1 (P 0 ADDR I 1 Y I 0 X) )@AnoH Hno l(43Q BUS.READ 26Q BUS.WRITE) NIL ( 37Q 2000000Q 15Q 3400301Q) PCSENDCOLORMAPENTRY D1 (I 1 COLORMAP I 0 COLOR#) @dA (10Q \DANDELION\WRITELUT 5 \DANDELION\CONVERTCOLORMAPENTRY) NIL () \RochesterWritePage D1 (I 1 CurrPageInBitMap I 0 AbsCurrPage) %oA @XHlljn0(15Q BUS.WRITE2) NIL ( 3 3400060Q) \BITMAPPAGES D1 (L (0 BITMAP)) @@lNIL (11Q BITMAP 3 BITMAP) () \BitmapWords D1 (L (0 BM)) @@NIL (11Q BITMAP 3 BITMAP) () \DIRTYPAGEP D1 (I 0 VPAGE) @qnjhNIL NIL () \MAKECLEANPAGE D1 (I 0 VPAGE) @dr@qosNIL NIL ( 10Q -10001Q) \MAKEDIRTYPAGE D1 (I 0 VPAGE) @dr@qnsNIL NIL () \DANDELIONUFO.UPDATEDAEMON D1 (P 5 AbsCurrPage P 4 LastMovedPage P 3 StoppingPage P 2 CurrPage P 1 PagesMoved P 0 \INTERRUPTABLE F 6 \INTERRUPTABLE) aV^g j`k``d`J]qnjMJ M IkعJ\JkZ`jI`JKLg (136Q \INSTALL.PERIODIC.INTERRUPT 65Q \MAKECLEANPAGE 60Q \RochesterWritePage 13Q \REMOVE.PERIODIC.INTERRUPT) (133Q \DANDELIONUFO.UPDATEDAEMON 127Q \DDLCOLOR.LASTMOVEDPAGE 114Q \DDLCOLOR.MOVELIMIT 104Q ColorScreenBitMapPages 37Q ColorScreenBitMapBasePage 30Q \DDLCOLOR.LASTMOVEDPAGE 24Q ColorScreenBitMapPages 17Q \DDLCOLOR.LASTMOVEDPAGE 10Q \DANDELIONUFO.UPDATEDAEMON) () \UFOCOLOR.EVENTFN D1 (P 1 PAGE I 1 EVENT I 0 DEVICE F 2 ColorScreenBitMapBasePage F 3 ColorScreenBitMapEndPage) @(AgAgAdg%h SRIdHhdR I IkYg%g SRIdHdR I IkYAdg`d&hdgAgAgg (237Q \INSTALL.PERIODIC.INTERRUPT 145Q \MAKEDIRTYPAGE 140Q \RochesterWritePage 117Q \REMOVE.PERIODIC.INTERRUPT 74Q \MAKEDIRTYPAGE 67Q \RochesterWritePage 45Q COLORDISPLAY) (234Q \DDLCOLOR.UPDATEDAEMON 226Q AFTERDOMAKESYS 220Q AFTERDOSAVEVM 212Q AFTERDOSYSOUT 206Q \COLORCURSORBM 202Q \SystemColorMap 176Q LastSystemColorMap 170Q \SystemColorMap 161Q AFTERSAVEVM 114Q \DDLCOLOR.UPDATEDAEMON 106Q BEFORESAVEVM 35Q BEFOREMAKESYS 26Q BEFORESYSOUT 20Q BEFORELOGOUT 3 FDEV) () \DANDELION\INITCOLORS D1 (I 0 DISPLAY) tkj kj kl jl jl jl jl+ jl jl' jd jd jd jd jd kl? lk lj l l l0j l1j (161Q PCWRITECOLOR 153Q PCWRITECOLOR 145Q PCWRITECOLOR 136Q PCWRITECOLOR 130Q PCWRITECOLOR 122Q PCWRITECOLOR 114Q PCWRITECOLOR 107Q PCWRITECOLOR 102Q PCWRITECOLOR 75Q PCWRITECOLOR 70Q PCWRITECOLOR 63Q PCWRITECOLOR 55Q PCWRITECOLOR 47Q PCWRITECOLOR 41Q PCWRITECOLOR 33Q PCWRITECOLOR 25Q PCWRITECOLOR 17Q PCWRITECOLOR 11Q PCWRITECOLOR 4 PCWRITECOLOR) NIL () (PRETTYCOMPRINT DANDELIONUFOCOMS) (RPAQQ DANDELIONUFOCOMS ((COMS (* driver for UFO systems Dandelion BusMaster color card with 6 bit colormap) (FNS \DANDELIONUFOINITCOLOR) (FNS \DANDELIONUFO\EXTRACTCOLORINTENSITY \DANDELION\STARTCOLOR \DANDELION\STOPCOLOR \DANDELION\SETSCREENCOLORMAP \DANDELIONCOLORLEVEL \DANDELION\CONVERTCOLORMAPENTRY \DANDELION\WRITELUT \DANDELION\SENDCOLORMAPENTRY \DANDELIONROTATECOLORMAP) (FNS \DDLCOLOR.LOCKFNS \DDLCOLOR.LOCKPAGES) (FNS \REMOVE.PERIODIC.INTERRUPT \INSTALL.PERIODIC.INTERRUPT) (FNS PCCOLORSCROLL PCCOLORSCROLLH PCROTATELUT PCWRITELUT PCWRITECOLOR PCWRITEPIXEL PCREADPIXEL PCSENDCOLORMAPENTRY \RochesterWritePage) (FNS \BITMAPPAGES \BitmapWords \DIRTYPAGEP \MAKECLEANPAGE \MAKEDIRTYPAGE \DANDELIONUFO.UPDATEDAEMON \UFOCOLOR.EVENTFN \DANDELION\INITCOLORS) (MACROS \DIRTYPAGEP) (CONSTANTS DDLPIXELSPERPAGE DDLPIXELSPERWORD \VMAP.NOTDIRTY \PCColorMapBase \RochesterDisplayBase \RochesterDisplayOffsetRegister \RochesterDisplayOffsetRegisterLo \RochesterBUSADDRHI \RochesterBUSADDRLO \RochesterPIXELSPERPAGE) (PROP ARGNAMES \BUSBLTOUTNYBBLES) (FILES BUSMASTER) (VARS \DDLCOLOR.LOCKEDFNS \DDLCOLOR.LOCKEDVARS) (P (\DDLCOLOR.LOCKFNS))) (DECLARE: DONTEVAL@COMPILE DOCOPY (P (\DANDELIONUFOINITCOLOR) (\CREATEDISPLAY (QUOTE DANDELIONUFODISPLAY) \DANDELIONUFOWSOPS \DANDELIONUFOWSDATA (FUNCTION \UFOCOLOR.EVENTFN)))))) (PUTPROPS \DIRTYPAGEP DMACRO ((VPAGE) (fetch (VMEMFLAGS DIRTY) of (\READFLAGS VPAGE)))) (RPAQQ DDLPIXELSPERPAGE 1024) (RPAQQ DDLPIXELSPERWORD 4) (RPAQQ \VMAP.NOTDIRTY -4097) (RPAQQ \PCColorMapBase 917520) (RPAQQ \RochesterDisplayBase 917504) (RPAQQ \RochesterDisplayOffsetRegister 917552) (RPAQQ \RochesterDisplayOffsetRegisterLo 917553) (RPAQQ \RochesterBUSADDRHI 8) (RPAQQ \RochesterBUSADDRLO 0) (RPAQQ \RochesterPIXELSPERPAGE 1024) (CONSTANTS DDLPIXELSPERPAGE DDLPIXELSPERWORD \VMAP.NOTDIRTY \PCColorMapBase \RochesterDisplayBase \RochesterDisplayOffsetRegister \RochesterDisplayOffsetRegisterLo \RochesterBUSADDRHI \RochesterBUSADDRLO \RochesterPIXELSPERPAGE) (PUTPROPS \BUSBLTOUTNYBBLES ARGNAMES (VMADDR BUSADDRHI BUSADDRLO NWORDS)) (FILESLOAD BUSMASTER) (RPAQQ \DDLCOLOR.LOCKEDFNS (\DDLCOLOR.UPDATEDAEMON \REMOVE.PERIODIC.INTERRUPT \RochesterWritePage \RochesterWritePage.4096 \MAKECLEANPAGE \INSTALL.PERIODIC.INTERRUPT BUS.WRITE2 BUS.WRITE BUS.WRITEHL)) (RPAQQ \DDLCOLOR.LOCKEDVARS (ColorScreenBitMapPages ColorScreenBitMapBasePage \DDLCOLOR.MOVELIMIT \DDLCOLOR.LASTMOVEDPAGE)) (\DDLCOLOR.LOCKFNS) (\DANDELIONUFOINITCOLOR) (\CREATEDISPLAY (QUOTE DANDELIONUFODISPLAY) \DANDELIONUFOWSOPS \DANDELIONUFOWSDATA (FUNCTION \UFOCOLOR.EVENTFN)) (PUTPROPS DANDELIONUFO COPYRIGHT ("Xerox Corporation" 1985)) NIL