(FILECREATED " 9-Apr-85 18:12:51" ("compiled on " {ERIS}LIBRARY>DANDELIONUFO.;13) " 5-Apr-85 11:48:02" recompiled changes: PCWRITEPIXEL \UFOCOLOR.EVENTFN in "INTERLISP-D 5-Apr-85 ..." dated " 5-Apr-85 12:04:42") (FILECREATED " 9-Apr-85 18:12:12" {ERIS}LIBRARY>DANDELIONUFO.;13 19778 changes to: (FNS \UFOCOLOR.EVENTFN PCWRITEPIXEL) (VARS \RochesterDisplayOffsetRegister \RochesterBUSADDRHI \RochesterBUSADDRLO) previous date: "27-Mar-85 16:30:55" {ERIS}LIBRARY>DANDELIONUFO.;11) \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) `lo CloC A @ `d` d```` `` ljl g @(i(175Q \INSTALL.PERIODIC.INTERRUPT 151Q \TEMPLOCKPAGES 135Q \BITMAPPAGES 71Q \BitmapWords 47Q \DANDELION\INITCOLORS 43Q SCREENCOLORMAP 36Q ERROR 20Q ERROR 15Q MACHINETYPE) (201Q FDEV 172Q \DANDELIONUFO.UPDATEDAEMON 167Q \PERIODIC.INTERRUPT.FREQUENCY 162Q \DDLCOLOR.LASTMOVEDPAGE 156Q \DDLCOLOR.MOVELIMIT 146Q ColorScreenBitMapPages 143Q ColorScreenBitMapBase 140Q ColorScreenBitMapPages 132Q ColorScreenBitMap 127Q ColorScreenBitMapBasePage 121Q ColorScreenBitMapBase 114Q ColorScreenBitMapBase 111Q ColorScreenBitMapEndPage 103Q ColorScreenBitMapEnd 75Q ColorScreenBitMapEnd 66Q ColorScreenBitMap 62Q ColorScreenBitMapBase 55Q BITMAP 52Q ColorScreenBitMap 2 \MACHINETYPE) ( 32Q "Color only comes in 4 bits per pixel on this machine." 12Q "Can't run Dandelion color on a") \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 3400061Q) 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 F 4 LastSystemColorMap F 5 \DDLCOLOR.LASTMOVEDPAGE F 6 ColorScreenBitMapBase F 7 ColorScreenBitMapPages) @(AgAgAdg%h SRIdHhdR I IkYg%g SRIdHdR I IkYAdg`d.chdgAgAgVW jc g (247Q \INSTALL.PERIODIC.INTERRUPT 236Q \TEMPLOCKPAGES 145Q \MAKEDIRTYPAGE 140Q \RochesterWritePage 117Q \REMOVE.PERIODIC.INTERRUPT 74Q \MAKEDIRTYPAGE 67Q \RochesterWritePage 45Q COLORDISPLAY) (244Q \DANDELIONUFO.UPDATEDAEMON 225Q AFTERDOMAKESYS 217Q AFTERDOSAVEVM 211Q AFTERDOSYSOUT 205Q \COLORCURSORBM 201Q \SystemColorMap 170Q \SystemColorMap 161Q AFTERSAVEVM 114Q \DANDELIONUFO.UPDATEDAEMON 106Q BEFORESAVEVM 35Q BEFOREMAKESYS 26Q BEFORESYSOUT 20Q BEFORELOGOUT 3 FDEV) () \DANDELION\INITCOLORS D1 (I 1 TYPEOFMONITOR I 0 DISPLAY) kj kj kl jl jAAdgl gl oA jl jl+ jl jl' jd jd jd jd jd kl? lk lj l l l0j l1j (214Q PCWRITECOLOR 206Q PCWRITECOLOR 200Q PCWRITECOLOR 171Q PCWRITECOLOR 163Q PCWRITECOLOR 155Q PCWRITECOLOR 147Q PCWRITECOLOR 142Q PCWRITECOLOR 135Q PCWRITECOLOR 130Q PCWRITECOLOR 123Q PCWRITECOLOR 116Q PCWRITECOLOR 110Q PCWRITECOLOR 102Q PCWRITECOLOR 74Q PCWRITECOLOR 66Q PCWRITECOLOR 63Q LISPERROR 25Q PCWRITECOLOR 17Q PCWRITECOLOR 11Q PCWRITECOLOR 4 PCWRITECOLOR) (46Q HITACHI 35Q CONRAC) ( 57Q "ILLEGAL ARG") (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