(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

(FILECREATED "26-Oct-2021 10:52:24" ("compiled on " |{DSK}<home>larry>medley>sources>MAIKOBITBLT.;2|) 
"26-Oct-2021 09:31:17" |brecompiled| |changes:| \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR 
\\MAIKO.BITBLT.BITMAP \\MAIKO.BLTSHADE.BITMAP |in| "FULL 26-Oct-2021 ..." |dated| 
"26-Oct-2021 09:31:19")
(FILECREATED "26-Oct-2021 10:52:24" |{DSK}<home>larry>medley>sources>MAIKOBITBLT.;2| 9691 |changes| 
|to:| (FNS \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR \\MAIKO.BITBLT.BITMAP 
\\MAIKO.BLTSHADE.BITMAP) |previous| |date:| "24-Oct-2021 10:31:31" 
|{DSK}<home>larry>medley>sources>MAIKOBITBLT.;1|)
\\MAIKO.BITBLTSUB :D8
(I 12 |WindowYOffset| I 11 |WindowXOffset| I 10 |Texture| I 9 |Operation| I 8 |SourceType| I 7 HEIGHT I 6 DTY I 5 DLX I 4 |DestinationBitMap| I 3 STY I 2 SLX I 1 |SourceBitMap| I 0 PILOTBBT)     @ABCDEFGGGGGG}E NIL
NIL
()
\\MAIKO.BLTCHAR :D8
(I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE)     @AB}‡ NIL
NIL
()
\\MAIKO.PUNTBLTCHAR :D8
(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \\SOFTCURSORP F 8 \\SOFTCURSORUPP F 9 \\CURSORDESTINATION F 10 \\SCREENBITMAPS)  p@lÿå\¿BdÉ>@ãð¨@ã
    ¿BÉ²4AdÃ    ˜¿@A
    Ã    ž@A    É 
    o    A
    BÉ [BÉ0LÐÈ ØYBÉñŸKBÉñ™lA
    °˜BKBÉLÐÈ Ø ¿BÉ¸KHØ»IHØYBÈ#Xñ‘H¹KBÈ"Xñ‘K€HºIJñ´xBÉ*X    È	jð³hh]¾W²*W´hA
    Wð^²`    È ½`    jÍ ¿    ¿A`    ð³hA
    W–A	    ¿HBLKJI}F¿N    ¿`    MÍ ih (268 \\SOFTCURSORUPCURRENT 250 \\TOTOPWDS 240 DSPDESTINATION 223 \\SOFTCURSORDOWN 195 DSPDESTINATION 111 \\DSPPRINTCR/LF 78 ERROR 66 \\SLOWBLTCHAR 45 \\SLOWBLTCHAR 23 \\CHANGECHARSET.DISPLAY)
(274 \\EM.DISPINTERRUPT 230 \\TOPWDS 214 \\EM.DISPINTERRUPT 206 \\EM.DISPINTERRUPT 171 PILOTBBT 59 WINDOW 51 WINDOW 36 STREAM)
( 72 "Not Stream or Window")
\\MAIKO.BITBLT.BITMAP :D8
(I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTBITMAP I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP)     @ABCDEFGGGGGGG}H NIL
NIL
()
\\MAIKO.BLTSHADE.BITMAP :D8
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE))     @ABCDEFG}I NIL
NIL
()
(RPAQQ MAIKOBITBLTCOMS ((* |;;| 
"this file has some optimizations for BITBLT on MAIKO; while PILOTBITBLT opcode still works, these functions directly implement some higher level operations"
) (FNS \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR \\MAIKO.BITBLT.BITMAP 
\\MAIKO.BLTSHADE.BITMAP) (* |;;| 
"Save the old \\BITBLT.BITMAP, because it handles the OPERATION - MERGE  case, where the C code doesn't."
) (P (MOVD (QUOTE \\BITBLT.BITMAP) (QUOTE \\MAIKO.OLDBITBLT.BITMAP))) (ADDVARS (\\MAIKO.MOVDS (
\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) (\\MAIKO.BITBLTSUB \\BITBLTSUB) (\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP
) (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP)))))
(MOVD (QUOTE \\BITBLT.BITMAP) (QUOTE \\MAIKO.OLDBITBLT.BITMAP))
(ADDTOVAR \\MAIKO.MOVDS (\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) (\\MAIKO.BITBLTSUB \\BITBLTSUB) (
\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP) (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP))
(PUTPROPS MAIKOBITBLT COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1994))
NIL