(FILECREATED " 9-Apr-85 18:14:00" ("compiled on " {ERIS}NEWDISPLAY>COLORCURSOR.;2) " 5-Apr-85 11:48:02" recompiled changes: PCCURSOR.INIT \PCCURSORUP \PCCURSORDOWN \PCCURSORFLASH \MYSHOWCURSOR BUSBLTOUTNYBBLES in "INTERLISP-D 5-Apr-85 ..." dated " 5-Apr-85 12:04:42") (FILECREATED " 9-Apr-85 18:13:39" {ERIS}NEWDISPLAY>COLORCURSOR.;2 5831 changes to: (VARS COLORCURSORCOMS) (FNS \UFO.SHOWCOLORCURSOR \UFOCOLORCURSOR.INIT PCCURSOR.INIT \PCCURSORUP \PCCURSORDOWN \PCCURSORFLASH \MYSHOWCURSOR BUSBLTOUTNYBBLES) (RECORDS XCURSOR) (MACROS .HiPCAddrFromXY .LoPCAddrFromXY) previous date: " 1-Feb-85 18:26:01" {ERIS}NEWDISPLAY>COLORCURSOR.;1) PCCURSOR.INIT D1 (P 2 IMAGE P 1 MASK P 0 CURSOR F 3 \PCCURSOR) H0Xdjll Yd Z`dJ¿dI¿H=d=¿<¿¿H=d=¿<¿¿ch(25Q COPYALL 20Q COLORIZEBITMAP 5 CURSOR) (31Q XCURSORTYPE#) () \PCCURSORUP D1 (P 1 HOTY P 0 HOTX I 1 Y I 0 X F 2 \PCCURSOR F 3 \PCCURSORAPPEARANCE F 4 \PCLASTMOUSEX F 5 \PCLASTMOUSEY F 6 \PCCURSORSAVEDBM) | @cAc TRÉÙXURÉÙYHIVjdldgg VjdSjdldgg RÉjdSjdldgg RÉjdSjdldgg SHI h(170Q \MYSHOWCURSOR 162Q BKBITBLT 132Q BKBITBLT 102Q BKBITBLT 57Q BKBITBLT 35Q COLORSCREENBITMAP) (156Q PAINT 153Q INPUT 136Q XCURSOR 126Q ERASE 123Q INPUT 106Q XCURSOR 76Q REPLACE 73Q INPUT 53Q REPLACE 50Q INPUT 26Q XCURSOR 15Q XCURSOR) () \PCCURSORDOWN D1 (P 1 HOTY P 0 HOTX F 2 \PCCURSOR F 3 \PCLASTMOUSEX F 4 \PCLASTMOUSEY F 5 \PCCURSORSAVEDBM)  SRÉÙXTRÉÙYUHI h(32Q \MYSHOWCURSOR) (20Q XCURSOR 7 XCURSOR) () \PCCURSORFLASH D1 (I 1 Y I 0 X F 0 \PCLASTMOUSEX F 1 \PCLASTMOUSEY) P@ð“QAð¨@A h(17Q \PCCURSORUP 12Q \PCCURSORDOWN) NIL () \MYSHOWCURSOR D1 (P 5 CurrY P 4 AddrHi P 3 AddrLo P 2 BMY P 0 BMBASE I 2 Y I 1 X I 0 BM) r@ÉQljº¹JIó‘hBJؽnMÙlÚAâââââââlØØâââââ¼nMÙlÚlåàààààààAnØØnÿå»oL ¿HlJÙààÐlKjØl ¿JkÔZ° (151Q BUSBLTOUTNYBBLES 126Q BUS.WRITE) (3 BITMAP) ( 122Q 3400061Q) BUSBLTOUTNYBBLES D1 (I 3 NWORDS I 2 BUSADDRLO I 1 BUSADDRHI I 0 VMADDR) @ABC0NIL NIL () (PRETTYCOMPRINT COLORCURSORCOMS) (RPAQQ COLORCURSORCOMS ((INITVARS (\PCCURSOR NIL) (\PCCURSORSAVEDBM (BITMAPCREATE 16 16 4)) ( \PCCURSORAPPEARANCE (BITMAPCREATE 16 16 4)) (\PCLASTMOUSEX 0) (\PCLASTMOUSEY 0)) (RECORDS XCURSOR) ( MACROS .HiPCAddrFromXY .LoPCAddrFromXY) (FNS PCCURSOR.INIT \PCCURSORUP \PCCURSORDOWN \PCCURSORFLASH \MYSHOWCURSOR) (FNS BUSBLTOUTNYBBLES) (P (PCCURSOR.INIT)))) (RPAQ? \PCCURSOR NIL) (RPAQ? \PCCURSORSAVEDBM (BITMAPCREATE 16 16 4)) (RPAQ? \PCCURSORAPPEARANCE (BITMAPCREATE 16 16 4)) (RPAQ? \PCLASTMOUSEX 0) (RPAQ? \PCLASTMOUSEY 0) (DATATYPE XCURSOR (IMAGE MASK HOTSPOTX HOTSPOTY USERDATA)) (/DECLAREDATATYPE (QUOTE XCURSOR) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((XCURSOR 0 POINTER) (XCURSOR 2 POINTER) (XCURSOR 4 POINTER) (XCURSOR 6 POINTER) (XCURSOR 8 POINTER))) (QUOTE 10) ) (PUTPROPS .HiPCAddrFromXY MACRO ((X Y) (* Ought to be (IQUOTIENT (IPLUS (ITIMES 640 Y) X) 4096) *) (* Right now (IQUOTIENT (IPLUS (ITIMES 640 (IDIFFERENCE 397 Y)) X 256) 4096) which needs to be fixed. *) (LRSH (IPLUS (ITIMES (IDIFFERENCE 397 Y) 5) (LRSH X 7) 2) 5))) (PUTPROPS .LoPCAddrFromXY MACRO ((X Y) (LOGAND (IPLUS (LLSH (LOGAND (ITIMES (IDIFFERENCE 397 Y) 5) 31) 7) X 256) 4095))) (PCCURSOR.INIT) (PUTPROPS COLORCURSOR COPYRIGHT ("Xerox Corporation" 1985)) NIL