From 4977d671bc6917832851ea7e6e7026265995abf3 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 31 Jul 2023 13:48:16 -0700
Subject: [PATCH 1/2] EQUALALL tests equivalence of bitmaps and big bitmaps

---
 library/BIGBITMAPS      |  52 ++++++++-----
 library/BIGBITMAPS.LCOM | Bin 21511 -> 21468 bytes
 sources/HPRINT          |  54 +++++++-------
 sources/HPRINT.LCOM     | Bin 25562 -> 25641 bytes
 sources/LLDISPLAY       | 116 +++++++++++++++++------------
 sources/LLDISPLAY.LCOM  | 157 ++++++++++++++++++++--------------------
 6 files changed, 209 insertions(+), 170 deletions(-)

diff --git a/library/BIGBITMAPS b/library/BIGBITMAPS
index d8638ffe3..a94840329 100644
--- a/library/BIGBITMAPS
+++ b/library/BIGBITMAPS
@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED " 9-Jul-2022 09:41:26" 
-|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>BIGBITMAPS.;12|
 108851 
+
(FILECREATED "31-Jul-2023 13:39:50" |{WMEDLEY}<library>BIGBITMAPS.;13|
 109376 
+
+      :EDIT-BY |rmk|
 
       :CHANGES-TO (VARS BIGBITMAPSCOMS)
-                  (FNS \\GENERIC.DSPCREATE.DESTINATION.BITMAP?.BIGBM \\GENERIC.DSPCREATE.BIGBM 
-                       \\DSPCREATE.BIGBM)
-                  (MACROS |\\SFInvert|)
+                  (FNS BIGBITMAPEQUAL)
 
-      :PREVIOUS-DATE "26-Oct-2021 14:51:38" 
-|{DSK}<users>kaplan>local>medley3.5>working-medley>library>BIGBITMAPS.;6|)
+      :PREVIOUS-DATE " 9-Jul-2022 09:41:26" |{WMEDLEY}<library>BIGBITMAPS.;12|)
 
 
 ; Copyright (c) 1991, 1993-1994 by Venue.
@@ -24,8 +22,8 @@
                (MACROS |GetNewFragment|)
                (MACROS |\\SFInvert|))
         (INITRECORDS BIGBM)
-        (FNS BIGBITMAPP BITBLT.BIGBM BITMAPCREATE.BIGBM BITMAPCREATE BITMAPCOPY BLTSHADE.BIGBM BITBLT
-             \\ORG.BITBLT \\BLTSHADE.DISPLAY \\RESHOWBORDER1)
+        (FNS BIGBITMAPP BITBLT.BIGBM BITMAPCREATE.BIGBM BITMAPCREATE BITMAPCOPY BIGBITMAPEQUAL 
+             BLTSHADE.BIGBM BITBLT \\ORG.BITBLT \\BLTSHADE.DISPLAY \\RESHOWBORDER1)
         (FNS \\DRAWCIRCLE.BIGBM \\FILLCIRCLE.BIGBM \\DRAWELLIPSE.BIGBM \\DRAWCURVE.BIGBM 
              \\DRAWLINE.BIGBM.DASH \\DRAWLINE.BIGBM.NODASH)
         (FNS \\GENERIC.DSPCREATE.DESTINATION.BITMAP?.BIGBM)
@@ -353,6 +351,20 @@
                  0 0 NIL NIL 'INPUT 'REPLACE 0)
           (RETURN NEWBITMAP))))
 
+(BIGBITMAPEQUAL

+  (LAMBDA (BM1 BM2)
                                         (* \; "Edited 31-Jul-2023 13:08 by rmk")

+
+    (* |;;| "Fields may not be SMALLP")

+
+    (AND (|type?|
 BIGBM |of|
 BM1)
+         (|type?|
 BIGBM |of|
 BM2)
+         (IEQP (|ffetch|
 (BIGBM BIGBMWIDTH) |of|
 BM1)
+               (|ffetch|
 (BIGBM BIGBMWIDTH) |of|
 BM2))
+         (IEQP (|ffetch|
 (BIGBM BIGBMHEIGHT) |of|
 BM1)
+               (|ffetch|
 (BIGBM BIGBMHEIGHT) |of|
 BM2))
+         (|for|
 B1 |in|
 (|ffetch|
 (BIGBM BIGBMLIST) |of|
 BM1) |as|
 B2
+            |in|
 (|ffetch|
 (BIGBM BIGBMLIST) |of|
 BM2) |always|
 (EQUALBITMAPP B1 B2)))))
+
 (BLTSHADE.BIGBM

   (LAMBDA (TEXTURE DESTINATION DESTLEFT DESTBOTTOM WIDTH HEIGHT OPERATION CLIPPINGREGION)

                                                           (* \; "Edited 17-Oct-89 19:01 by takeshi")

@@ -1699,15 +1711,15 @@
 )
 (PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (3546 48244 (BIGBITMAPP 3556 . 3702) (BITBLT.BIGBM 3704 . 14527) (BITMAPCREATE.BIGBM 
-14529 . 15871) (BITMAPCREATE 15873 . 17475) (BITMAPCOPY 17477 . 18012) (BLTSHADE.BIGBM 18014 . 21150) 
-(BITBLT 21152 . 22800) (\\ORG.BITBLT 22802 . 34371) (\\BLTSHADE.DISPLAY 34373 . 43611) (
-\\RESHOWBORDER1 43613 . 48242)) (48245 71523 (\\DRAWCIRCLE.BIGBM 48255 . 51618) (\\FILLCIRCLE.BIGBM 
-51620 . 55666) (\\DRAWELLIPSE.BIGBM 55668 . 60188) (\\DRAWCURVE.BIGBM 60190 . 64040) (
-\\DRAWLINE.BIGBM.DASH 64042 . 68401) (\\DRAWLINE.BIGBM.NODASH 68403 . 71521)) (71524 71893 (
-\\GENERIC.DSPCREATE.DESTINATION.BITMAP?.BIGBM 71534 . 71891)) (72025 85168 (DSPDESTINATION 72035 . 
-75933) (|\\SFFixY| 75935 . 81657) (|\\SFFixDestination| 81659 . 82842) (|\\SFFixClippingRegion| 82844
- . 85166)) (85169 93255 (\\SW2BM 85179 . 90203) (BITMAPHEIGHT 90205 . 90703) (BITMAPWIDTH 90705 . 
-91197) (|\\SFFixFont| 91199 . 92171) (BITSPERPIXEL 92173 . 93253)) (93256 108609 (COLORIZEBITMAP 93266
- . 96076) (\\BWTOCOLORBLT 96078 . 102671) (UNCOLORIZEBITMAP 102673 . 108607)))))
+  (FILEMAP (NIL (3364 48769 (BIGBITMAPP 3374 . 3520) (BITBLT.BIGBM 3522 . 14345) (BITMAPCREATE.BIGBM 
+14347 . 15689) (BITMAPCREATE 15691 . 17293) (BITMAPCOPY 17295 . 17830) (BIGBITMAPEQUAL 17832 . 18537) 
+(BLTSHADE.BIGBM 18539 . 21675) (BITBLT 21677 . 23325) (\\ORG.BITBLT 23327 . 34896) (\\BLTSHADE.DISPLAY
+ 34898 . 44136) (\\RESHOWBORDER1 44138 . 48767)) (48770 72048 (\\DRAWCIRCLE.BIGBM 48780 . 52143) (
+\\FILLCIRCLE.BIGBM 52145 . 56191) (\\DRAWELLIPSE.BIGBM 56193 . 60713) (\\DRAWCURVE.BIGBM 60715 . 64565
+) (\\DRAWLINE.BIGBM.DASH 64567 . 68926) (\\DRAWLINE.BIGBM.NODASH 68928 . 72046)) (72049 72418 (
+\\GENERIC.DSPCREATE.DESTINATION.BITMAP?.BIGBM 72059 . 72416)) (72550 85693 (DSPDESTINATION 72560 . 
+76458) (|\\SFFixY| 76460 . 82182) (|\\SFFixDestination| 82184 . 83367) (|\\SFFixClippingRegion| 83369
+ . 85691)) (85694 93780 (\\SW2BM 85704 . 90728) (BITMAPHEIGHT 90730 . 91228) (BITMAPWIDTH 91230 . 
+91722) (|\\SFFixFont| 91724 . 92696) (BITSPERPIXEL 92698 . 93778)) (93781 109134 (COLORIZEBITMAP 93791
+ . 96601) (\\BWTOCOLORBLT 96603 . 103196) (UNCOLORIZEBITMAP 103198 . 109132)))))
 STOP
diff --git a/library/BIGBITMAPS.LCOM b/library/BIGBITMAPS.LCOM
index a6454f3840ead9b654d27af69a6ff4dd576adf7e..4783daae8491a4015d13810a57f266b8a6abcb42 100644
GIT binary patch
delta 744
zcmZuuOKTHR7@e7fLa(S1l^_Uy9V*Nqlg=Ya)3Iu1GLvR%Ci6;C3f;6OU~2jxDkx3~
z3gTA1e?V8d6w-o^rMQ@%Ah@u&aH;+Ry~$WeA$M~=F87@8oO7SOrN6zQpL=~p5|;0G
z1zD68kQ7x}P;(*+9D8eLYq!&Fw_s-*SO_1j*rri6SN9gXosHgl@8NabTGFk$t+_$w
zs-%QGAXX8_wC2@pPR&Y$yU}YOsf7@>AMEz-sv*SuJ`pgzhE|2JvmF9kZd9u<u9L}R
zh(v4sUb_`eUQu9q#Fee8S@KP-ZW_Q&&NMN@=CKeUi3`en9#qq?>Vm!sVQ=dWS*w;R
zT5ZV;gt`M<Q}cuW?uY41jves8m1|>{qeMKYu5UIirx6GSG4{eae>u+rn&@N9hCKMr
zOi%ZZ>W$k`jRN9aP(YW#1sQY+ERaCAWr89>i3iF{QWR7COp&vn(_$2g5v4`c*UjJi
zY%yZAh#8J)ElL)n<QX<$B@Pl#>5rAfL9&ygKP}%xL;CC6Lds%3RG9bg4k<2QfRT&%
zzg<$dM2rxFHsoR){5UaHI(f`8{#l#Fe=eNEmmK#jT3a)GZKc%kn`S0v;wMg)M))r+
z;A>tE)65l`$EVym#FI1X6X88qe7Ts$U)+o2<)JI!)1E}8qBn<UgP9a?w$n6j0OvKF
Xx(Nus@&x=in8CliG>ryRKF$0C&EC)_

delta 669
zcmbV}J#W)c6o%!6s%9vNN=0JmsTb_QCU)XBbt?<Uc3OiIU;D;JAPdP&tP<6ADklY1
z7$LDRfspP`V1S9G5)wj8{0*2GnNUX-u1Tw8U}8HuAMbh2dB445UcP7E_zz%HymOq1
zN=;Fqwy8B_P1)dp=lY|=qhXc~V3Y#~Z28o}cb{#C<Fpv-2gy;E<hncRCz*bj4zl#5
zE~)yHQE@QL_r+;OC*PUtGM#PC7ASR1ZD^`o3GNl?#f}on{-Y${PsdtG0P*Cuy5N+<
zyacWtx-QI1NRm`d50Xhbp!NCEx%vhtuzcHbZ8NZqo^6p&%nkW}=vQumTx&K}88ma(
z=<e89?0LXPMu35BIXf+<*D(+_y$%+DZ+GzpJ6S`^&#Q(GuyJf*G$oP#rf6%&Far-m
z8OONo<d4&0QVO7<z>XX*#G*y1fm7B+uRp1bkwLDWrq!D>BaY{d$o^pj%sG(__ll%A
z(Pzxk*81rgv$**7!)23v>2k|)+;V$(*RX8Kaxij@`@oX3F1kkf1LK|<29Z7Gr}@Zh
z&=YS`n=X;7zDiyN4;O^<7X+xru;c}*laENG(GMh(&z?el2dgCYmxzE@m*@w)$O7IE
WJ$fnC!)xTLzd~N)E2lsGU(6q%e$BA}

diff --git a/sources/HPRINT b/sources/HPRINT
index 80eef5900..a2a834743 100644
--- a/sources/HPRINT
+++ b/sources/HPRINT
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 3-Aug-2022 21:31:57" {DSK}<home>larry>medley>sources>HPRINT.;3
 58021  
+
(FILECREATED "31-Jul-2023 13:33:10" {WMEDLEY}<sources>HPRINT.;5
 57926  
 
-      :CHANGES-TO (VARS HPRINTCOMS)
-                  (FNS HPRINT)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "17-Oct-2021 13:54:11" {DSK}<home>larry>medley>sources>HPRINT.;1)
+      :CHANGES-TO (FNS EQUALALL)
+
+      :PREVIOUS-DATE " 3-Aug-2022 21:31:57" {WMEDLEY}<sources>HPRINT.;2)
 
 
 (* ; "
@@ -901,8 +902,8 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation
 (DEFINEQ
 
 (EQUALALL

-  [LAMBDA (X Y)                                              (* ; 
-
                                                           "Edited 26-Apr-2021 14:34 by rmk:")

+  [LAMBDA (X Y)
                                              (* ; "Edited 31-Jul-2023 13:31 by rmk")


+                                                            (* ; "Edited 26-Apr-2021 14:34 by rmk:")

     (OR (EQ X Y)
         (PROG ((TY (TYPENAME Y))
                TEM)
@@ -925,7 +926,7 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation
                                                    (ARRAYSIZE Y))
                                             (for
 I from
 (ARRAYORIG X) as
 J to
 TEM
                                                always
 (EQUALALL
 (ELT X I)
-                                                                 (ELT Y I])
+                                                             (ELT Y I])
                                ((ONED-ARRAY TWOD-ARRAY GENERAL-ARRAY) 
                                                              (* ; "RMK:  Added CL arrays")

                                     [AND (EQUAL (CL:ARRAY-DIMENSIONS X)
@@ -939,14 +940,12 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation
                                                   (EQP (CL:FILL-POINTER X)
                                                        (CL:FILL-POINTER Y)))
                                              (NOT (CL:ARRAY-HAS-FILL-POINTER-P Y)))
-                                         (FOR
 I FROM
 0 TO
 (SUB1 (CL:ARRAY-TOTAL-SIZE
-                                                                             X))
+                                         (FOR
 I FROM
 0 TO
 (SUB1 (CL:ARRAY-TOTAL-SIZE X))
                                             ALWAYS
 (EQUALALL
 (XCL:ROW-MAJOR-AREF X I)
-                                                              (XCL:ROW-MAJOR-AREF Y I])
+                                                          (XCL:ROW-MAJOR-AREF Y I])
                                (HARRAYP (EQUALHASH
 X Y))
-                               (READTABLEP (for
 I from
 0 to
 127
-                                              always
 (EQUALALL
 (GETSYNTAX I X)
-                                                                (GETSYNTAX I Y))))
+                               (READTABLEP (for
 I from
 0 to
 127 always
 (EQUALALL
 (GETSYNTAX I X)
+                                                                              (GETSYNTAX I Y))))
                                (TERMTABLEP [AND (EQ (GETCONTROL X)
                                                     (GETCONTROL Y))
                                                 (EQ (GETRAISE X)
@@ -965,18 +964,19 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation
                                                                                     Y]
                                                 (for
 I from
 0 to
 31
                                                    always
 (EQ (ECHOCONTROL I NIL X)
-                                                                  (ECHOCONTROL I NIL Y)))
+                                                              (ECHOCONTROL I NIL Y)))
                                                 (EVERY ORIGDELETECONTROL
                                                        (FUNCTION (LAMBDA (Z)
                                                                    (EQUAL (DELETECONTROL (CAR Z)
                                                                                  NIL X)
                                                                           (DELETECONTROL (CAR Z)
                                                                                  NIL Y])
+                               ((BITMAP BIGBM) 
+                                    (BITMAPEQUAL X Y))
                                (OR (EQP X Y)
                                    (AND (SETQ TY (GETDESCRIPTORS TY))
-                                        (for
 FIELD in
 TY always
 (EQUALALL

-                                                                             (FETCHFIELD FIELD X)
-                                                                             (FETCHFIELD FIELD Y])
+                                        (for
 FIELD in
 TY always
 (EQUALALL
 (FETCHFIELD FIELD X)
+                                                                       (FETCHFIELD FIELD Y])
 
 (EQUALHASH

   [LAMBDA (AR1 AR2)
@@ -1118,14 +1118,14 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation
 (PUTPROPS HPRINT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 
 1993 1994 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3694 6232 (MAKEHVPRETTYCOMS 3704 . 4991) (READVARS 4993 . 5559) (HPRINT0 5561 . 6230)) 
-(6234 6567 (READVARS-FROM-STRINGS 6234 . 6567)) (6569 6956 (READVARS-FROM-STREAM 6569 . 6956)) (6957 
-8885 (READVAR-FROM-STRING 6967 . 7373) (READVARS-FROM-STRING 7375 . 7611) (HPRINT-TO-STRING 7613 . 
-7819) (HPRINT-TO-STRINGS 7821 . 8883)) (9696 38289 (HPRINT 9706 . 11697) (HPRINT1 11699 . 23201) (
-HPRINTEND 23203 . 24239) (RPTPRINT 24241 . 24479) (RPTEND 24481 . 24640) (RPTPUT 24642 . 25140) (
-HPRINTSP 25142 . 25206) (HPERR 25208 . 25305) (HVFWDCDREAD 25307 . 25686) (HVBAKREAD 25688 . 33733) (
-HVREADCHECKGETFN 33735 . 35134) (HVREADEND 35136 . 35488) (HVRPTREAD 35490 . 36016) (HVFWDREAD 36018
- . 36872) (HREAD 36874 . 37196) (HPINITRDTBL 37198 . 38032) (HVREADERR 38034 . 38147) (HPRINSP 38149
- . 38287)) (38290 47172 (COPYALL 38300 . 42203) (\COPYDATATYPE 42205 . 42894) (HCOPYALL 42896 . 43206)
- (HCOPYALL1 43208 . 47170)) (47173 54520 (EQUALALL 47183 . 52841) (EQUALHASH 52843 . 54518)))))
+  (FILEMAP (NIL (3652 6190 (MAKEHVPRETTYCOMS 3662 . 4949) (READVARS 4951 . 5517) (HPRINT0 5519 . 6188)) 
+(6192 6525 (READVARS-FROM-STRINGS 6192 . 6525)) (6527 6914 (READVARS-FROM-STREAM 6527 . 6914)) (6915 
+8843 (READVAR-FROM-STRING 6925 . 7331) (READVARS-FROM-STRING 7333 . 7569) (HPRINT-TO-STRING 7571 . 
+7777) (HPRINT-TO-STRINGS 7779 . 8841)) (9654 38247 (HPRINT 9664 . 11655) (HPRINT1 11657 . 23159) (
+HPRINTEND 23161 . 24197) (RPTPRINT 24199 . 24437) (RPTEND 24439 . 24598) (RPTPUT 24600 . 25098) (
+HPRINTSP 25100 . 25164) (HPERR 25166 . 25263) (HVFWDCDREAD 25265 . 25644) (HVBAKREAD 25646 . 33691) (
+HVREADCHECKGETFN 33693 . 35092) (HVREADEND 35094 . 35446) (HVRPTREAD 35448 . 35974) (HVFWDREAD 35976
+ . 36830) (HREAD 36832 . 37154) (HPINITRDTBL 37156 . 37990) (HVREADERR 37992 . 38105) (HPRINSP 38107
+ . 38245)) (38248 47130 (COPYALL 38258 . 42161) (\COPYDATATYPE 42163 . 42852) (HCOPYALL 42854 . 43164)
+ (HCOPYALL1 43166 . 47128)) (47131 54425 (EQUALALL 47141 . 52746) (EQUALHASH 52748 . 54423)))))
 STOP
diff --git a/sources/HPRINT.LCOM b/sources/HPRINT.LCOM
index 24b13d5b5167bf2247582f62be30aaa63ec097e0..56f075ffa4caa773c24b42aa893ca904f31f5f25 100644
GIT binary patch
delta 2681
zcmaJ@Ux-vy7~fep!$mZ;Z7DbVy8dCd-1VMw|4${}ow>6!GBbC)bNA1PikrJxHtUM3
z6)ZMB^biq|+{hk!5-NPNCZVSUA&Pntf{Y3ZsrMx4DX`x;_ukpD#DU>_-*>+A{r{bF
zfBHIe`J2qUGfj<+?LXTZ<0{vPX*o^HF;$_ga%^ew)Jv^}d0IM23a!jky+Xxno_ltA
z>Fnua3(I>;^`Kk}$Dc7qX;9JB9wSyxH*z|=@a5KauY7!bT%q~7Gcb8CeOnnF%ofWP
zFCTbr=oO%J&&ci*2^p5dP0D$NayT~8q|-+iU#48X<klv=##rc6wpeS>pm$)(t+<uS
zDCO#bH(mCp8e;{xM4H-|d-k}f1t-pO8p|2h{c`7>A2aW)U&FZ?op|_A^woyPB|S3C
zqv4I?g6@<y-s}g#BW3ePauu8ZY<@z}oo!pn84x;7zb03Ca)>0oZA-TE{LpTpU_=)l
zc~h<<!!@yX7Kg73vsT0(yD8W8TYa&1j%;nMTRTb*eDUZ&bZf_W=6tki=k|e1pZ2{K
znLEb}^Td4X&h7Wt_2GAAq~+ZH;HV%M|Gx2dOFeP>(&CLbq(CZMtF{JzK78fd=+&JU
zGgmtscU|xAZ{6v9pS_%En~X|zF9?X~x<f%d^lAmrnxy4u2u`P>7v@XFvR4ti%%Mpy
zEO?E4P_Bo5(7?nw4heM*(l)74ck`YQTdQJ=OAQ98sU{k2FoxDWsheFDZV4aKW25fn
zg)PpyyDTQdiE>zV>)2C`bdNi$q!pWnOKx_(aKomGpNGug?d~aURTT(IQsIoFJV>hn
z9~?fq41<?~SMfqG@7Kb>uMlI%`@bT?={aJES|`RBQuXqswvVw!@fk`CHsz3M52so^
z=Tt80(rDH~cb1syXsdgwt=+X}vAbBV_o%|AXkqlq?hS3ElE&qrUyuiGx#5w6j&(OM
zDA*8DRs90?j8$unF8!v3a5O8as>8H&q#RX}BK?qT$L@)&ZR@?Pt(iTWHn)>z*lIc)
z77~+jg=mXqCP7NZkZG0NMu{v~748^WC~h*4R@a<`E*C3aZ8B^_mzjh)iqE0ViMH7t
zYSV#BHwfHjJ@D&fT4;%68|8x@*mN?@7&rn%Ch845#TlD`j8_Q@WH@N_fjSwco$j_n
zaGKaA0~kzv8z`zc%gI1NQlX}%LWC~^2%9j*tgc3a3>@o1LU(wq>j&jY((Qzkq3fm*
zV}O&+Q{d=KC4VZcPlcqbu}4N4#v~DH-F!89e~6|+0YHx10y>Ev6icQ{Xuw#K3Ac5E
zeNpi?aZ4917q3P=42YXf>WQPfy*ub{5(C$}P32weauq#~trAPXkLOTVNx;m_hn~Qi
zoUhawV?!*p$+{!v7}0xscw2++IUwI=l-@KPjT0g?dfJ@?fr$dopd!o57)SJ?&`h=L
zltTM!z5oxTxKp~c8Uvji(~^jfv4ts+U~1!9ac~zP>}u#vpgLruu+qAP0^)@&BytP#
zbC}~48O&8xTooqnB!AiqiWPr`Odui|V$#vVc%Df&Oe&UV>!j-zAmO_qNX@23*hXU~
z!EhC}HAkft(vWA|<f@ww{04fLTye6O(j;+!JysI^jb#jVJLI2S$iFyu+C8(hI5D@p
zKnz#n|Ai>ZN*_>5(GWBH4I`?uk>^k#Wo3tgt6pcIUKbR`Nf9-Odov0VN07=&R!~Sr
zS=kOsHJs>UW)3h_Q=?zmQ?8?NY=sKh@T9C16f#W{L`eZ?#Q7$^AcO=KH55XDJ+yfc
z9~R^IJ8EY?zcsRXl=|i#?CZ<y8`$(@zkF?@s^1(Dy{k9HcgbMZp+kkR&^R@BY(eBZ
z+WFl7Zf%A~=coV3?1^5Oxt3XqcFh(u*=TY0ucu4L#T)+TC&_wopF1c74<+l>-%9d1
zpPm2ghiJLE<M8HM|B)-d^kr=zJ^dI$PHOLCjW4OYSW6Xn>V3M!1uAYN3paXPNNKC{
ad-LF$Axk$PoSdkl9af5g&fdcxuKgFY&Zlbt

delta 2612
zcma)8O>7ip81A<GgpH|!{76B49ZKvHTj%@ce}&4hJKJ5|-C1U)zoD3>Z9r2j;U|GK
zxK}S4bz->a#l!=i2pf$z5)Nu&V&Vy-#)F9`6C~(?qtExv>~t_5=%Mreeed7%zTdYu
zzAOCvZQ+C2Go+2Xm(PrIm2={(tg*6TDKw@mub(^r=Gy8Ct-nnQZB)b8uN^(Rer|Pg
zZRx^=tCQzeSJqaqPF`HUd|`R@;$*!OG}_U`D_V()O5P<i%gipT#)mf#bo26wi3x>P
zmM$T{|JmD0sW?_^G`&jTxsg|W)Mzu$$IgokyQ^|W<x1UcPkG^Z<kQ%U8-!F$a<BNU
zuta0Ec1Ve!MCDH4%{2V!aJ-5fNMY8vzkErwiV@SwhF)e&q2lA_P++|;3hzHL#8f*z
zy8BdoefU{P-`mUMA9ihz?+?Ey_}<8qcL#?UQ{#VjelEX>!SjOd-QU$HfZ*_OMSio>
zyY~+=7XP)Y)YJF8By6;JdGEXOdv9-Be0#6%yCXas@s^Rh^84F}FTOqXz}k*ys7BnO
zQ!RHcsyEu`Q&6I<AMf89e>OT%Sd4!hJv4ahZ2WL^eD|KWb`0Q8{=3~;EB>;0^UrwU
z@b$t^y$6Ty3=YngdtZ&+D0I1rUV1@5OlLX;oycofL93FM6N5fF4%NJ<Qm-|<CbXKZ
z)07ugy|5BAI*|{Am}crE%sEJdQP^=So)GJsV$G5k0vK+j7F{sR&Q3DcH{lK!F=WKB
z<5l2`+h(S<5;8i`h+1w3I!n!T<|e5nt`U;+EDGluHT?=?%<A?}F()%+c4o>fD;c#A
zF&JXVxswc{RK2Dbc@@7M1%4BH)cs!(*K<dh=rwvI&!beYQt$c#L}Dsh47Sgq(i~^;
z&2y@0iN1vM?Z}<OIm6EBbo&vVX69JOb}~x`9wmUyZms|aCH3=jfEz3Vw-I{e0J%(o
zfq_C~*Yc~-v7B2~#_u=8QF+>3+p_zkWt);rCd)RvS}sMKJ;JFhr?VVQI^$$n{UNbX
zpv)^mM=hQvnJ}`zx*OKXf>#lak%=a!gK4Jjx|~eFU2A&nsi+Q`5#~vrGXZzsIvZ}&
zKu9+T-1$!6cgWNMjby{df=4D2N<$?JB$mlQ<FQvs#RgW#YetY70Q_X9ONOT9)R<DJ
z$-pkAu?;j;oaJPoA*oPzj8v#2dznBq-yz-RnMJxGob+rpbi+z){h%>Lx(==@N|Cwi
zTCz5rG^f8nnq`nb9d)K7(##|x1EprdtX@stBS<rX0Tw!e1$3G{BW|bD1q%*mNhMw4
zx<d#cTh28{KrSAYP81N=^nN4`bn_a#glS@2%|OlVum#Lhr?{?UuQXgW8r8(Uxs}Mn
z(xJ&p&MB6#@00<)1V~4Vue{8=9D{KUH->IfcICjE5W#fDoq{)v6nF*`*<ZLr`l8eD
zrX`dE_}ji%9&&KC^hq;WcPtv0d!KHWPW@Ht+PD#rb1QOBpf_Zrt<trH?&0~Zrg97N
zYh(iZ6aZIMv4tjXCV$2YYE6HZOzcBC!lVPhWSU9Gi&<;TVTc&VKKO0~Qq?Gofa+^g
z9nx$AzBR+34bo6#5~1Z*0zU+b=|v}jlrD*3)e|EDZX$D>nAovFuEuY$gU3*=vN5Uv
z7}W&z4k$4iil``Qb4iF0QrQ?26jD<*4uMj+9)HcuA;&S|2keMzI~FvNLKb?dY*ZEO
zA_GxZNEaSA=J69oNZ?RIRf=#2z!aJwrAW5jTjakVd;#yPMW?D!H9Wtxyn15k;%bQo
zPH!&^6pnA%`NH7raD39AA2xwYXWnf#OT~7h+55)-ep_KA{%Gcp!oK**?CrvAY|qsS
zPsQE2zn?zt7R5XK<-@vsisx2t-HSh+A8j3J51zjH>%f?W!SYT{yG^*m)n?`&S_=)#
dy}K5gj&aRDyB1~}w@B}~g@vKsdyAiJ`xhY`o_+uT

diff --git a/sources/LLDISPLAY b/sources/LLDISPLAY
index dc0b0564b..78a6b6634 100644
--- a/sources/LLDISPLAY
+++ b/sources/LLDISPLAY
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Jul-2022 12:08:02" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLDISPLAY.;16
 269372 
+
(FILECREATED "31-Jul-2023 13:34:19" {WMEDLEY}<sources>LLDISPLAY.;17
 270805 
 
-      :CHANGES-TO (FNS \COMMON.DSPCREATE)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE " 8-Jul-2022 23:44:51" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLDISPLAY.;13)
+      :CHANGES-TO (VARS LLDISPLAYCOMS)
+                  (FNS BITMAPEQUAL)
+
+      :PREVIOUS-DATE " 9-Jul-2022 12:08:02" {WMEDLEY}<sources>LLDISPLAY.;16)
 
 
 (* ; "
@@ -33,8 +34,8 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
               (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap]
         [COMS                                                (* ; "bitmap functions.")

               (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT
-                   BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING \SLOWBLTCHAR
-                   TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP 
+                   BITMAPEQUAL BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING
+                   \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP
                    \INSUREBITSPERPIXEL MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE 
                    \MEDW.BITBLT)
               (FUNCTIONS FINISH-READING-BITMAP)
@@ -1022,6 +1023,29 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
 
                                                  "anything outside the clipping region returns 0.")

                                             0])
 
+(BITMAPEQUAL

+  [LAMBDA (BM1 BM2)
                                          (* ; "Edited 31-Jul-2023 13:31 by rmk")

+
+    (* ;; "T if BM1 and BM2 are both bitmaps of the same shape and contents.  The numeric fields are all SMALLP's")

+
+    (if
 (AND (type?
 BITMAP BM1)
+             (type?
 BITMAP BM2))
+        then
 (CL:WHEN (AND (EQ (ffetch
 (BITMAP BITMAPWIDTH) of
 BM1)
+                               (ffetch
 (BITMAP BITMAPWIDTH) of
 BM2))
+                           (EQ (ffetch
 (BITMAP BITMAPHEIGHT) of
 BM1)
+                               (ffetch
 (BITMAP BITMAPHEIGHT) of
 BM2))
+                           (EQ (ffetch
 (BITMAP BITMAPRASTERWIDTH) of
 BM1)
+                               (ffetch
 (BITMAP BITMAPRASTERWIDTH) of
 BM2))
+                           (EQ (ffetch
 (BITMAP BITMAPBITSPERPIXEL) of
 BM1)
+                               (ffetch
 (BITMAP BITMAPBITSPERPIXEL) of
 BM2)))
+                 (for
 I (BASE1 _ (ffetch
 (BITMAP BITMAPBASE) of
 BM1))
+                      (BASE2 _ (ffetch
 (BITMAP BITMAPBASE) of
 BM2)) from
 1
+                    to
 (ITIMES (ffetch
 (BITMAP BITMAPRASTERWIDTH) of
 BM1)
+                              (ffetch
 (BITMAP BITMAPHEIGHT) of
 BM1))
+                    always
 (EQ (\GETBASE BASE1 I)
+                               (\GETBASE BASE2 I))))
+      else
 (BIGBITMAPEQUAL BM1 BM2])
+
 (BLTCHAR

   [LAMBDA (CHARCODE DISPLAYSTREAM)
                       (* rmk%: " 4-Apr-85 11:45")

                                                              (* ; "user entry --- seldom used")

@@ -4556,43 +4580,43 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
 1989 1990 1993 1994 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (20598 23266 (\FBITMAPBIT 20608 . 21068) (\FBITMAPBIT.UFN 21070 . 22089) (
-\NEWPAGE.DISPLAY 22091 . 22226) (INITBITMASKS 22228 . 23264)) (25191 25700 (\CreateCursorBitMap 25201
- . 25698)) (25817 84905 (BITBLT 25827 . 36217) (BLTSHADE 36219 . 36997) (\BITBLTSUB 36999 . 47134) (
-\GETPILOTBBTSCRATCHBM 47136 . 47751) (BITMAPCOPY 47753 . 48329) (BITMAPCREATE 48331 . 49891) (
-BITMAPBIT 49893 . 58280) (BLTCHAR 58282 . 58898) (\BLTCHAR 58900 . 59402) (\MEDW.BLTCHAR 59404 . 64282
-) (\CHANGECHARSET.DISPLAY 64284 . 67242) (\INDICATESTRING 67244 . 68440) (\SLOWBLTCHAR 68442 . 75538) 
-(TEXTUREP 75540 . 75810) (INVERT.TEXTURE 75812 . 76086) (INVERT.TEXTURE.BITMAP 76088 . 77623) (
-BITMAPWIDTH 77625 . 77997) (READBITMAP 77999 . 80509) (\INSUREBITSPERPIXEL 80511 . 80806) (
-MAXIMUMCOLOR 80808 . 80949) (OPPOSITECOLOR 80951 . 81130) (MAXIMUMSHADE 81132 . 81343) (OPPOSITESHADE 
-81345 . 81524) (\MEDW.BITBLT 81526 . 84903)) (84907 90093 (FINISH-READING-BITMAP 84907 . 90093)) (
-91215 91696 (BITMAPBIT.EXPANDER 91225 . 91694)) (91697 140231 (\BITBLT.DISPLAY 91707 . 114946) (
-\BITBLT.BITMAP 114948 . 124047) (\BITBLT.MERGE 124049 . 126302) (\BLTSHADE.DISPLAY 126304 . 133404) (
-\BLTSHADE.BITMAP 133406 . 140229)) (140232 149552 (\BITBLT.BITMAP.SLOW 140242 . 149550)) (149553 
-165934 (\PUNT.BLTSHADE.BITMAP 149563 . 156659) (\PUNT.BITBLT.BITMAP 156661 . 165932)) (165935 169375 (
-\SCALEDBITBLT.DISPLAY 165945 . 167578) (\BACKCOLOR.DISPLAY 167580 . 169373)) (173230 175503 (
-DISPLAYSTREAMP 173240 . 173848) (DSPSOURCETYPE 173850 . 174859) (DSPXOFFSET 174861 . 175180) (
-DSPYOFFSET 175182 . 175501)) (175504 189699 (DSPDESTINATION 175514 . 178617) (DSPTEXTURE 178619 . 
-178781) (\DISPLAYSTREAMINCRXPOSITION 178783 . 179070) (\SFFixDestination 179072 . 180250) (
-\SFFixClippingRegion 180252 . 182424) (\SFFixFont 182426 . 183476) (\SFFIXLINELENGTH 183478 . 184974) 
-(\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 184976 . 186789) (\SFFixY 186791 . 189697)) (189700 193547 (
-\SIMPLE.DSPCREATE 189710 . 190260) (\COMMON.DSPCREATE 190262 . 193545)) (193648 195842 (\MEDW.XOFFSET 
-193658 . 194799) (\MEDW.YOFFSET 194801 . 195840)) (195843 203769 (\DSPCLIPPINGREGION.DISPLAY 195853 . 
-196599) (\DSPFONT.DISPLAY 196601 . 198971) (\DISPLAY.PILOTBITBLT 198973 . 199122) (
-\DSPLINEFEED.DISPLAY 199124 . 199695) (\DSPLEFTMARGIN.DISPLAY 199697 . 200428) (\DSPOPERATION.DISPLAY 
-200430 . 201454) (\DSPRIGHTMARGIN.DISPLAY 201456 . 202301) (\DSPXPOSITION.DISPLAY 202303 . 203160) (
-\DSPYPOSITION.DISPLAY 203162 . 203767)) (207957 212993 (TTYDISPLAYSTREAM 207967 . 212991)) (213296 
-214326 (DSPSCROLL 213306 . 214006) (PAGEHEIGHT 214008 . 214324)) (214371 217393 (\DSPRESET.DISPLAY 
-214381 . 217391)) (217429 217952 (\MAYBE-DRIBBLE-CHAR 217429 . 217952)) (217953 238591 (\DSPPRINTCHAR 
-217963 . 225801) (\DSPPRINTCR/LF 225803 . 238589)) (238592 239184 (\TTYBACKGROUND 238602 . 239182)) (
-239185 242472 (DSPBACKUP 239195 . 242470)) (242656 242912 (COLORDISPLAYP 242666 . 242910)) (242913 
-244984 (DISPLAYBEFOREEXIT 242923 . 243749) (DISPLAYAFTERENTRY 243751 . 244982)) (245356 249888 (
-\DSPCLIPTRANSFORMX 245366 . 245955) (\DSPCLIPTRANSFORMY 245957 . 246682) (\DSPTRANSFORMREGION 246684
- . 247216) (\DSPUNTRANSFORMY 247218 . 247478) (\DSPUNTRANSFORMX 247480 . 247740) (
-\OFFSETCLIPPINGREGION 247742 . 249886)) (251202 253789 (UPDATESCREENDIMENSIONS 251212 . 251841) (
-\CreateScreenBitMap 251843 . 253787)) (254348 267507 (\CoerceToDisplayDevice 254358 . 254771) (
-\CREATEDISPLAY 254773 . 256613) (DISPLAYSTREAMINIT 256615 . 259759) (\STARTDISPLAY 259761 . 262672) (
-\MOVE.WINDOWS.ONTO.SCREEN 262674 . 264866) (\UPDATE.PBT.RASTERWIDTHS 264868 . 266650) (\STOPDISPLAY 
-266652 . 267144) (\DEFINEDISPLAYINFO 267146 . 267505)) (268115 268876 (INITIALIZEDISPLAYSTREAMS 268125
- . 268874)))))
+  (FILEMAP (NIL (20580 23248 (\FBITMAPBIT 20590 . 21050) (\FBITMAPBIT.UFN 21052 . 22071) (
+\NEWPAGE.DISPLAY 22073 . 22208) (INITBITMASKS 22210 . 23246)) (25173 25682 (\CreateCursorBitMap 25183
+ . 25680)) (25799 86338 (BITBLT 25809 . 36199) (BLTSHADE 36201 . 36979) (\BITBLTSUB 36981 . 47116) (
+\GETPILOTBBTSCRATCHBM 47118 . 47733) (BITMAPCOPY 47735 . 48311) (BITMAPCREATE 48313 . 49873) (
+BITMAPBIT 49875 . 58262) (BITMAPEQUAL 58264 . 59713) (BLTCHAR 59715 . 60331) (\BLTCHAR 60333 . 60835) 
+(\MEDW.BLTCHAR 60837 . 65715) (\CHANGECHARSET.DISPLAY 65717 . 68675) (\INDICATESTRING 68677 . 69873) (
+\SLOWBLTCHAR 69875 . 76971) (TEXTUREP 76973 . 77243) (INVERT.TEXTURE 77245 . 77519) (
+INVERT.TEXTURE.BITMAP 77521 . 79056) (BITMAPWIDTH 79058 . 79430) (READBITMAP 79432 . 81942) (
+\INSUREBITSPERPIXEL 81944 . 82239) (MAXIMUMCOLOR 82241 . 82382) (OPPOSITECOLOR 82384 . 82563) (
+MAXIMUMSHADE 82565 . 82776) (OPPOSITESHADE 82778 . 82957) (\MEDW.BITBLT 82959 . 86336)) (86340 91526 (
+FINISH-READING-BITMAP 86340 . 91526)) (92648 93129 (BITMAPBIT.EXPANDER 92658 . 93127)) (93130 141664 (
+\BITBLT.DISPLAY 93140 . 116379) (\BITBLT.BITMAP 116381 . 125480) (\BITBLT.MERGE 125482 . 127735) (
+\BLTSHADE.DISPLAY 127737 . 134837) (\BLTSHADE.BITMAP 134839 . 141662)) (141665 150985 (
+\BITBLT.BITMAP.SLOW 141675 . 150983)) (150986 167367 (\PUNT.BLTSHADE.BITMAP 150996 . 158092) (
+\PUNT.BITBLT.BITMAP 158094 . 167365)) (167368 170808 (\SCALEDBITBLT.DISPLAY 167378 . 169011) (
+\BACKCOLOR.DISPLAY 169013 . 170806)) (174663 176936 (DISPLAYSTREAMP 174673 . 175281) (DSPSOURCETYPE 
+175283 . 176292) (DSPXOFFSET 176294 . 176613) (DSPYOFFSET 176615 . 176934)) (176937 191132 (
+DSPDESTINATION 176947 . 180050) (DSPTEXTURE 180052 . 180214) (\DISPLAYSTREAMINCRXPOSITION 180216 . 
+180503) (\SFFixDestination 180505 . 181683) (\SFFixClippingRegion 181685 . 183857) (\SFFixFont 183859
+ . 184909) (\SFFIXLINELENGTH 184911 . 186407) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 186409 . 188222
+) (\SFFixY 188224 . 191130)) (191133 194980 (\SIMPLE.DSPCREATE 191143 . 191693) (\COMMON.DSPCREATE 
+191695 . 194978)) (195081 197275 (\MEDW.XOFFSET 195091 . 196232) (\MEDW.YOFFSET 196234 . 197273)) (
+197276 205202 (\DSPCLIPPINGREGION.DISPLAY 197286 . 198032) (\DSPFONT.DISPLAY 198034 . 200404) (
+\DISPLAY.PILOTBITBLT 200406 . 200555) (\DSPLINEFEED.DISPLAY 200557 . 201128) (\DSPLEFTMARGIN.DISPLAY 
+201130 . 201861) (\DSPOPERATION.DISPLAY 201863 . 202887) (\DSPRIGHTMARGIN.DISPLAY 202889 . 203734) (
+\DSPXPOSITION.DISPLAY 203736 . 204593) (\DSPYPOSITION.DISPLAY 204595 . 205200)) (209390 214426 (
+TTYDISPLAYSTREAM 209400 . 214424)) (214729 215759 (DSPSCROLL 214739 . 215439) (PAGEHEIGHT 215441 . 
+215757)) (215804 218826 (\DSPRESET.DISPLAY 215814 . 218824)) (218862 219385 (\MAYBE-DRIBBLE-CHAR 
+218862 . 219385)) (219386 240024 (\DSPPRINTCHAR 219396 . 227234) (\DSPPRINTCR/LF 227236 . 240022)) (
+240025 240617 (\TTYBACKGROUND 240035 . 240615)) (240618 243905 (DSPBACKUP 240628 . 243903)) (244089 
+244345 (COLORDISPLAYP 244099 . 244343)) (244346 246417 (DISPLAYBEFOREEXIT 244356 . 245182) (
+DISPLAYAFTERENTRY 245184 . 246415)) (246789 251321 (\DSPCLIPTRANSFORMX 246799 . 247388) (
+\DSPCLIPTRANSFORMY 247390 . 248115) (\DSPTRANSFORMREGION 248117 . 248649) (\DSPUNTRANSFORMY 248651 . 
+248911) (\DSPUNTRANSFORMX 248913 . 249173) (\OFFSETCLIPPINGREGION 249175 . 251319)) (252635 255222 (
+UPDATESCREENDIMENSIONS 252645 . 253274) (\CreateScreenBitMap 253276 . 255220)) (255781 268940 (
+\CoerceToDisplayDevice 255791 . 256204) (\CREATEDISPLAY 256206 . 258046) (DISPLAYSTREAMINIT 258048 . 
+261192) (\STARTDISPLAY 261194 . 264105) (\MOVE.WINDOWS.ONTO.SCREEN 264107 . 266299) (
+\UPDATE.PBT.RASTERWIDTHS 266301 . 268083) (\STOPDISPLAY 268085 . 268577) (\DEFINEDISPLAYINFO 268579 . 
+268938)) (269548 270309 (INITIALIZEDISPLAYSTREAMS 269558 . 270307)))))
 STOP
diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM
index 9659fefcd..3c2553bf9 100644
--- a/sources/LLDISPLAY.LCOM
+++ b/sources/LLDISPLAY.LCOM
@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Jul-2022 12:08:03" ("compiled on " 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLDISPLAY.;16) " 8-Jul-2022 23:54:51" 
-"COMPILE-FILEd" in "FULL  8-Jul-2022 ..." dated " 8-Jul-2022 23:54:57")
-(FILECREATED " 9-Jul-2022 12:08:02" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLDISPLAY.;16 269372 :CHANGES-TO (FNS 
-\COMMON.DSPCREATE) :PREVIOUS-DATE " 8-Jul-2022 23:44:51" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLDISPLAY.;13)
+(FILECREATED "31-Jul-2023 13:34:19" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;17) 
+"30-Jul-2023 17:45:41" "COMPILE-FILEd" in "FULL 30-Jul-2023 ..." dated "30-Jul-2023 17:45:48")
+(FILECREATED "31-Jul-2023 13:34:19" {WMEDLEY}<sources>LLDISPLAY.;17 270805 :EDIT-BY rmk :CHANGES-TO (
+VARS LLDISPLAYCOMS) (FNS BITMAPEQUAL) :PREVIOUS-DATE " 9-Jul-2022 12:08:02" 
+{WMEDLEY}<sources>LLDISPLAY.;16)
 (RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE 
 DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; 
 "User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION 
@@ -16,12 +14,12 @@ OPTIMIZERS \FBITMAPBIT) (EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \
 WORDMASK 65535)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS)))) (COMS (* ; "init cursor") (FNS
  \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) (
 COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY 
-BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING 
-\SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP \INSUREBITSPERPIXEL 
-MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS FINISH-READING-BITMAP) 
-(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) (
-DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS 
-BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY 
+BITMAPCREATE BITMAPBIT BITMAPEQUAL BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY 
+\INDICATESTRING \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP 
+\INSUREBITSPERPIXEL MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (FUNCTIONS 
+FINISH-READING-BITMAP) (CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE
+ \BITMAPBIT))) (DECLARE%: DONTCOPY (EXPORT (MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT 
+BITMAPP) (FNS BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY 
 \BLTSHADE.BITMAP) (FNS (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;; 
 " punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (
 FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS (
@@ -123,18 +121,18 @@ NIL $ldk
 ()
 (RPAQ CursorBitMap (\CreateCursorBitMap))
 BITBLT :D8
-(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORUPP F 20 \CURSORDESTINATION F 21 \SCREENBITMAPS) �D�jb�E�jb
+(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS) �D�jb�E�jb
 �Gg�NCd���GCDEFGGG
gh
H�.��GHDEFGGGlI�@@d��]�A�jb�B�jb�@�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���A�H�
 
b�B�H�
-
b�H��AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ɿ@	���h__�`�8W&�h@gh
-W(�_�`�_�`j���@gh_`�hO
-W*�O	�IABCDEFGGGGGJK
O���
X�`O���
DIABCDEFGGGGGJK
gh_@C��@	���C	���@dC
-��Ŀh__ _"�`�8W&�h@gh
-W(�_"�`�_ �`j���@gh_`�hO
-W*�O	�IABFG
+
b�H��AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ƿ@	���h__�W&�8W(�h@gh
+W*�_�`�_�`j���@gh_`�hO
+W,�O	�IABCDEFGGGGGJK
O���
U�`O���
AIABCDEFGGGGGJK
gh_@C��@	���C	���@dC
+����h__ _"�W&�8W(�h@gh
+W*�_"�`�_ �`j���@gh_`�hO
+W,�O	�IABFG
 _jdFGgg
-�O"��`O ��OjdODEFGGGGG
@	�O�.�_$�IABODEFGGGGGJKlO$h(881 TOTOPW 874 BKBITBLT 838 \SOFTCURSORUPCURRENT 829 BKBITBLT 806 BITMAPCREATE 794 \TOTOPWDS 783 DSPDESTINATION 765 \GETSTREAM 752 \SOFTCURSORDOWN 721 DSPDESTINATION 716 \GETSTREAM 679 WOVERLAPP 667 WINDOWP 657 WINDOWP 642 \GETSTREAM 630 \BITBLT.BITMAP 591 \SOFTCURSORUPCURRENT 578 \BITBLT.BITMAP 552 \TOTOPWDS 541 DSPDESTINATION 523 \GETSTREAM 510 \SOFTCURSORDOWN 479 DSPDESTINATION 474 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP)
-(896 IMAGEOPS 889 STREAM 844 \EM.DISPINTERRUPT 823 REPLACE 818 INPUT 772 \TOPWDS 759 OUTPUT 743 \EM.DISPINTERRUPT 733 \EM.DISPINTERRUPT 710 OUTPUT 697 \SOFTCURSORP 636 OUTPUT 597 \EM.DISPINTERRUPT 530 \TOPWDS 517 OUTPUT 501 \EM.DISPINTERRUPT 491 \EM.DISPINTERRUPT 468 OUTPUT 455 \SOFTCURSORP 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE)
+�O"��`O ��OjdODEFGGGGG
@	�O�.�_$�IABODEFGGGGGJKlO$h(875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP)
+(890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE)
 ()
 BLTSHADE :D8
 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Ad���@AB�jC�jDEFG
gh
H�.��@HB�jC�jDEFd�H
@@ -171,7 +169,7 @@ BITMAPCREATE :D8
 NIL
 ( 102 "bits in BITMAP -- too big" 88 131066)
 BITMAPBIT :D8
-(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION F 18 \SCREENBITMAPS) ��
+(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) ��
 @���+@�XjA�
A@����jB��B@�\���Hk�[Cdj��@�ABkLk�@�h8
�@�ABlLk�@�h8
@�ABlLk�@�h8
@�@�B�k�@���^C�jC�C@�	�C	�Hdk�c�A����ZNJ��]`Al�_�_�Ol
 O���YC�MI�j� jj�NJ�MIm�������NJ�MI�����kl�mAl�Yd����ZNJ��]d`Al�_�_�Ol
 O����[C�NJ�MK�CllAl���
@@ -180,27 +178,32 @@ BITMAPBIT :D8
 [C�NACKoH
 0
@ghb�0_AO
 _BO
-_O����d���� `�-W �h@
-W"�_�`�_�`j���@`�h@
-W$�@	�O�OOC�_�O��`O�O(733 \SOFTCURSORUPCURRENT 705 \TOTOPWDS 695 DSPDESTINATION 678 \SOFTCURSORDOWN 647 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
-(739 \EM.DISPINTERRUPT 713 \DISPLAYDATA 685 \TOPWDS 669 \EM.DISPINTERRUPT 659 \EM.DISPINTERRUPT 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
+_O����d���� W �-W"�h@
+W$�_�`�_�`j���@`�h@
+W&�@	�O�OOC�_�O��`O�O(730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
+(736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
 ( 557 "unknown bits per pixel size.")
+BITMAPEQUAL :D8
+(P 3 BASE2 P 2 BASE1 P 1 I I 1 BM2 I 0 BM1) i@��ZA��R@�A��H@�A��?@�A��6@�A��-@�@��k@�A�IH�JI��KI���hIk�Y��i@A
+(102 BIGBITMAPEQUAL)
+(13 BITMAP 5 BITMAP)
+()
 BLTCHAR :D8
 (I 1 DISPLAYSTREAM I 0 CHARCODE) 2@d
��j@�@�@	Adgh�0(47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
 (42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
 ()
 \BLTCHAR :D8
-(P 0 A0448 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
+(P 0 A0245 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 \MEDW.BLTCHAR :D8
-(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORUPP F 8 \CURSORDESTINATION F 9 \SCREENBITMAPS) 
p@l��\�Bd�>@��@�
+(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS) 
	p@l��\�Bd�>@��@�
 �B��@A
 B�[B�0L���YB��KB��l
A
-��BKB�L����B��KHػIH�YB�#X�H�KB�"X�K�H�IJ����B�*X�	j��h]�`�*W�hA
-W�^�`��`j���A`�hA
-W�A	�HJ��HIJ���HB�L��J�K���Hjv�N��`M�ih(255 \SOFTCURSORUPCURRENT 216 \TOTOPWDS 206 DSPDESTINATION 189 \SOFTCURSORDOWN 161 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY)
-(261 \EM.DISPINTERRUPT 196 \TOPWDS 180 \EM.DISPINTERRUPT 172 \EM.DISPINTERRUPT 148 \SOFTCURSORP 132 PILOTBBT)
+��BKB�L����B��KHػIH�YB�#X�H�KB�"X�K�H�IJ����B�*X�	j�}h]�W�*W�hA
+W�^�`��`j���A`�hA
+W�A	�HJ��HIJ���HB�L��J�K���Hjv�N��`M�ih(250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY)
+(256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT)
 ()
 \CHANGECHARSET.DISPLAY :D8
 (P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) �@�*@��A����A@�h"@I��@I��@I�0�@A>�I��HJ�����n�����@�'I�
@@ -218,17 +221,17 @@ BLTCHAR :D8
 (75 ^ 52 %# 16 SI::RESETUNWIND)
 ( 81 "" 58 "")
 \SLOWBLTCHAR :D8
-(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) N@@l��YA�0Zd��Xdj�
��J�_J�I���\J��l
A
-�J�_J�I��ؼJL�OJ��_�J�"dO�O�J�#LJ�ػdK�K�J�*_�NM�
O�	j�
M_�NM�_�J�I��M�O�_�J��dk�adl��O��_�O��_�O��_�Ddl��O���_�O���_�O���_�$l�lO�_�lO�_�lO�_�� 
`�-W"�hA
-W$�_�`�_�`j���A`�hA
-W&�A	�OO��OO��OO��Ojv�O��`O����0J�_�J�I��_�J��@�����
@�J�h_ �HdlZ�;�AOO�
+(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) K@@l��YA�0Zd��Xdj�
~�J�_J�I���\J��l
A
+�J�_J�I��ؼJL�OJ��_�J�"dO�O�J�#LJ�ػdK�K�J�*_�NM�
O�	j�

M_�NM�_�J�I��M�O�_�J��dk�adl��O��_�O��_�O��_�Ddl��O���_�O���_�O���_�$l�lO�_�lO�_�lO�_�� 
W"�-W$�hA
+W&�_�`�_�`j���A`�hA
+W(�A	�OO��OO��OO��Ojv�O��`O����0J�_�J�I��_�J��@�����
@�J�h_ �HdlZ�;�AOO�
 �O �jJ�I��AJ�O �
 �k�OO �
 O ��O
�Hn
�8AOO�
 �O �jJ�I��AJ�O ��J�O �
-O ��O
�o	h(586 ERROR 575 BKBITBLT 533 \DSPYPOSITION.DISPLAY 514 BKBITBLT 471 \DSPYPOSITION.DISPLAY 449 \CREATECHARSET 390 \SOFTCURSORUPCURRENT 355 \TOTOPWDS 345 DSPDESTINATION 328 \SOFTCURSORDOWN 297 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF)
-(396 \EM.DISPINTERRUPT 335 \TOPWDS 319 \EM.DISPINTERRUPT 309 \EM.DISPINTERRUPT 284 \SOFTCURSORP 111 \DISPLAYDATA 83 \DISPLAYDATA)
-( 581 "Not implemented to rotate by other than 0, 90 or 270")
+O ��O
�o	h(583 ERROR 572 BKBITBLT 530 \DSPYPOSITION.DISPLAY 511 BKBITBLT 468 \DSPYPOSITION.DISPLAY 446 \CREATECHARSET 387 \SOFTCURSORUPCURRENT 352 \TOTOPWDS 342 DSPDESTINATION 325 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF)
+(393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 111 \DISPLAYDATA 83 \DISPLAYDATA)
+( 578 "Not implemented to rotate by other than 0, 90 or 270")
 TEXTUREP :D8
 (I 0 OBJECT) 
@d3 ���@�k�@NIL
 (18 BITMAP 10 BITMAP)
@@ -276,7 +279,7 @@ OPPOSITESHADE :D8
 NIL
 ()
 \MEDW.BITBLT :D8
-(P 9 A0451 P 8 A0450 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0449 P 1 DD P 0 DSTWIN 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
+(P 9 A0248 P 8 A0247 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0246 P 1 DD P 0 DSTWIN 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
 
@	�C	�o	�@��Z@�WCi
 Cgh�0H�2�H�H�2@ABCDEFGGGGGABlJ�
�C�����C����@i
 !@gh�0

AI�صA
BI�صBK�2�J_�K�2I�NOCDEFGGGGGNI�"�dL�LOI�$�dM�MlO��@
@@ -315,28 +318,28 @@ BITMAPBIT.EXPANDER :D8
 NIL
 ( 32 (OPCODES MISC4 6))
 \BITBLT.DISPLAY :D8
-(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORUPP F 50 \CURSORDESTINATION) �0��@d��[�A�jb�B�jb�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���@�A�H�
+(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0��@d��[�A�jb�B�jb�A�B�F�3@�b�G�@�b���@�BٽdM��M��@�AټdL�ɿL��gh�0X���@�A�H�
 
b�B�H�
-
b�H�b�AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ɿI	���h__�`�8Wb�h@gh
-Wd�_�`�_�`j���@gh_`�hO
-W`�O	�@ABCDEFGGGGGJK
O�����`O����@ABCDEFGGGGGJK
gh_IdC�
	�I��
&Id	��
�C	���IdC
-���I	��.C	��.��h__ _"�`�8Wb�hIgh
-Wd�_"�`�_ �`j���Igh_`�hO
+
b�H�b�AH��bH�"�dN�N�BH��bH�$_�dO�O�F�NH�#J�b�G�%H�%K�b�G�H�6b�Fj�	Gj�4hH�%K�_�dO�ֿO��H�#J�_�dO񲭿O��Cd���ƿI	���h__�Wb�8Wd�h@gh
+Wf�_�`�_�`j���@gh_`�hO
+W`�O	�@ABCDEFGGGGGJK
O�����`O���z@ABCDEFGGGGGJK
gh_IdC�
	�I��
#Id	��
�C	���IdC
+���I	��.C	��.��h__ _"�Wb�8Wd�hIgh
+Wf�_"�`�_ �`j���Igh_`�hO
 W`�O	�@ABFG
 _jdFGgg
 �O"��`O ��OjdODEFGGGGG
I	�I�hI
 hO
-���)O�0_J�_L�O`�hO
+���)O�0_J�_L�O`�hO
 W`�O	�DOJ��b�EOJ��b
-�OJ�"_B�OJ�$_F�OJ�#_H�OJ�%_D�G�nOBG
OJ��_(�dO(�O(_B�OFG
OJ��_*�dO*�O*_F�OHO(G
�_$�dO$�O$_H�ODO*G
�_&�dO&�O&_D�OL�_N�@�_PON�2OPk�@jON	ON�ONk��@ON	
-b�DdOB�OB_B�EdOF�OF_F�F�DF�dOH�OH_H�G�EG�dOD�OD_D�DA�_>�EB�_@�JOBO>�_,�dO,�O,dj�j_B�KOFO@�_.�dO.�O.dj�j_F�@�OHO>�_0�dO0�O0JF�_2�dO2�O2_H�@�ODO@�_4�dO4�O4KG�_6�dO6�O6_D�OHOB�
�ODOF�
�G�OJ�b�ON	_R�Gdg�~�Gd��ONk�G	b�G�OR�JGd3 �OR�OR�<��G`�ld
+�OJ�"_B�OJ�$_F�OJ�#_H�OJ�%_D�G�nOBG
OJ��_(�dO(�O(_B�OFG
OJ��_*�dO*�O*_F�OHO(G
�_$�dO$�O$_H�ODO*G
�_&�dO&�O&_D�OL�_N�@�_PON�2OPk�@jON	ON�ONk��@ON	
+b�DdOB�OB_B�EdOF�OF_F�F�DF�dOH�OH_H�G�EG�dOD�OD_D�DA�_>�EB�_@�JOBO>�_,�dO,�O,dj�j_B�KOFO@�_.�dO.�O.dj�j_F�@�OHO>�_0�dO0�O0JF�_2�dO2�O2_H�@�ODO@�_4�dO4�O4KG�_6�dO6�O6_D�OHOB�
�ODOF�
�G�OJ�b�ON	_R�Gdg�~�Gd��ONk�G	b�G�OR�JGd3 �OR�OR�<��G`�ld
 
 �ONk�GON
 �G	b�ONdk�)�GON
-�g�ONdk�G	b�ONk�ONOB�_B�ONOH�_H�ONO>�_>�h_8_:�`�.Wb�
hO
-Wd�_:�`�_8�`j���O`�hO
-W`�O	�`/ODOF�_T�OHOB�_V�OL�ODO@��_X�OBO>�_Z�@�OD�_\�OB_^�`OV��`OT�	�Gg�"`@O^O\OLOZOXOVOTGG
� `@O^O\OLOZOXOTGGG
O:��`O8���.O�.�_<�@ABODEFGGGGGJKlO<h(1859 \SOFTCURSORUPCURRENT 1850 \BITBLTSUB 1818 \BITBLT.MERGE 1683 \TOTOPWDS 1672 DSPDESTINATION 1653 \SOFTCURSORDOWN 1622 DSPDESTINATION 1564 INSURE.B&W.TEXTURE 1540 COLORTEXTUREFROMCOLOR# 1520 \ILLEGAL.ARG 1512 COLORNUMBERP 1496 INVERT.TEXTURE.BITMAP 1486 BITMAPCREATE 1438 INSURE.B&W.TEXTURE 1404 MAXIMUMSHADE 1171 UNCOLORIZEBITMAP 1166 COLORMAP 1148 COLORIZEBITMAP 1141 MAXIMUMCOLOR 915 \TOTOPWDS 904 DSPDESTINATION 857 DSPDESTINATION 849 DSPDESTINATION 838 TOTOPW 831 BKBITBLT 795 \SOFTCURSORUPCURRENT 786 BKBITBLT 763 BITMAPCREATE 751 \TOTOPWDS 740 DSPDESTINATION 722 \GETSTREAM 709 \SOFTCURSORDOWN 678 DSPDESTINATION 673 \GETSTREAM 627 \INSUREWINDOW 612 \INSUREWINDOW 601 WOVERLAPP 589 WINDOWP 578 WFROMDS 564 WINDOWP 549 \GETSTREAM 537 \BITBLT.BITMAP 498 \SOFTCURSORUPCURRENT 485 \BITBLT.BITMAP 459 \TOTOPWDS 448 DSPDESTINATION 430 \GETSTREAM 417 \SOFTCURSORDOWN 386 DSPDESTINATION 381 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
-(1887 IMAGEOPS 1880 STREAM 1865 \EM.DISPINTERRUPT 1825 \SYSPILOTBBT 1793 \SYSPILOTBBT 1785 MERGE 1773 PILOTBBT 1768 \SYSPILOTBBT 1758 PILOTBBT 1753 \SYSPILOTBBT 1735 BITMAP 1710 BITMAP 1661 \TOPWDS 1644 \EM.DISPINTERRUPT 1634 \EM.DISPINTERRUPT 1608 \SOFTCURSORP 1547 TEXTURE 1491 \BBSCRATCHTEXTURE 1476 \BBSCRATCHTEXTURE 1467 BITMAP 1415 MERGE 1111 BITMAP 1038 \DISPLAYDATA 1008 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 951 \DISPLAYDATA 938 \DISPLAYDATA 924 \DISPLAYDATA 893 \TOPWDS 881 \DISPLAYDATA 872 STREAM 801 \EM.DISPINTERRUPT 780 REPLACE 775 INPUT 729 \TOPWDS 716 OUTPUT 700 \EM.DISPINTERRUPT 690 \EM.DISPINTERRUPT 667 OUTPUT 654 \SOFTCURSORP 634 STREAM 619 STREAM 543 OUTPUT 504 \EM.DISPINTERRUPT 437 \TOPWDS 424 OUTPUT 408 \EM.DISPINTERRUPT 398 \EM.DISPINTERRUPT 375 OUTPUT 362 \SOFTCURSORP 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
+�g�ONdk�G	b�ONk�ONOB�_B�ONOH�_H�ONO>�_>�h_8_:�Wb�.Wd�
hO
+Wf�_:�`�_8�`j���O`�hO
+W`�O	�`/ODOF�_T�OHOB�_V�OL�ODO@��_X�OBO>�_Z�@�OD�_\�OB_^�`OV��`OT�	�Gg�"`@O^O\OLOZOXOVOTGG
� `@O^O\OLOZOXOTGGG
O:��`O8���.O�.�_<�@ABODEFGGGGGJKlO<h(1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
+(1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
 ()
 \BITBLT.BITMAP :D8
 (L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) �0C�[C�\j]d^@�_C�ZG�QMG
_�dO�O�NG
_�dO�O�JG
G
�_�dO�O�KG
G
�_�dO�O�DdM�M�EdN�N�F�DF�dJ�J�G�EG�dK�K�DA�XEB�YGdj�jMH�_�dO�O�Gdj�jNI�_�dO�O�@�JH�_�dO�OGF�_�dO�O�@�KI�_ �dO �O GG�_"�dO"�O"[JM�dN�hGg�WG�n���K3 �Gn���n���<Lk�GL
@@ -356,13 +359,13 @@ NIL
 (158 INPUT 136 ERASE 131 TEXTURE 111 REPLACE 106 INPUT 58 ERASE 53 TEXTURE 33 REPLACE 28 INPUT 6 REPLACE)
 ()
 \BLTSHADE.DISPLAY :D8
-(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE) F 14 \SCREENBITMAPS F 15 \SOFTCURSORUPP F 16 \CURSORDESTINATION) Z�
A�0]A`�hA
+(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE) F 14 \SCREENBITMAPS F 15 \SOFTCURSORP F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION) W�
A�0]A`�hA
 W�A	�BM��bCM��bM�"�M�$�M�#�M�%�G�`HG
M��_�dO�O�JG
M��_�dO�O�KOG
�_�dO�O�IOG
�_�dO�O�M�\d�^BdH�H�CdJ�J�D�BD�dK�K�E�CE�dI�I�KH�IJ�h@	dg�dg��@�M�6�RNk�G@Ni�;dg�dg�@N	�(dg�@�g�Nk�@N
 �@	bNk�NHڸNKڻ@N
-b�h__�`�-W�hA
-W �_�`�_�`j���A`�hA
-W�A	�IJ�_�`KH���`O�	�`hHhLHL�I�OgF�M�@NM��M�

�O��`O�i(588 \SOFTCURSORUPCURRENT 579 \BITBLTSUB 483 \TOTOPWDS 473 DSPDESTINATION 456 \SOFTCURSORDOWN 425 DSPDESTINATION 398 COLORTEXTUREFROMCOLOR# 376 \ILLEGAL.ARG 368 COLORNUMBERP 335 MAXIMUMSHADE 309 COLORNUMBERP 271 TYPENAME 37 \TOTOPWDS 27 DSPDESTINATION)
-(594 \EM.DISPINTERRUPT 571 \DISPLAYDATA 562 \DISPLAYDATA 548 TEXTURE 537 BITMAP 526 \SYSPILOTBBT 516 PILOTBBT 511 \SYSPILOTBBT 500 PILOTBBT 495 \SYSPILOTBBT 463 \TOPWDS 447 \EM.DISPINTERRUPT 437 \EM.DISPINTERRUPT 412 \SOFTCURSORP 355 LISTP 344 BITMAP 325 FIXP 317 SMALLP 285 NEW-ATOM 277 LITATOM 211 BITMAP 202 \DISPLAYDATA 138 \DISPLAYDATA 112 \DISPLAYDATA 95 \DISPLAYDATA 86 \DISPLAYDATA 77 \DISPLAYDATA 68 \DISPLAYDATA 57 \DISPLAYDATA 45 \DISPLAYDATA 17 \TOPWDS 8 STREAM)
+b�h__�W�-W �hA
+W"�_�`�_�`j���A`�hA
+W�A	�IJ�_�`KH���`O�	�`hHhLHL�I�OgF�M�@NM��M�

�O��`O�i(585 \SOFTCURSORUPCURRENT 576 \BITBLTSUB 480 \TOTOPWDS 470 DSPDESTINATION 453 \SOFTCURSORDOWN 422 DSPDESTINATION 398 COLORTEXTUREFROMCOLOR# 376 \ILLEGAL.ARG 368 COLORNUMBERP 335 MAXIMUMSHADE 309 COLORNUMBERP 271 TYPENAME 37 \TOTOPWDS 27 DSPDESTINATION)
+(591 \EM.DISPINTERRUPT 568 \DISPLAYDATA 559 \DISPLAYDATA 545 TEXTURE 534 BITMAP 523 \SYSPILOTBBT 513 PILOTBBT 508 \SYSPILOTBBT 497 PILOTBBT 492 \SYSPILOTBBT 460 \TOPWDS 444 \EM.DISPINTERRUPT 434 \EM.DISPINTERRUPT 355 LISTP 344 BITMAP 325 FIXP 317 SMALLP 285 NEW-ATOM 277 LITATOM 211 BITMAP 202 \DISPLAYDATA 138 \DISPLAYDATA 112 \DISPLAYDATA 95 \DISPLAYDATA 86 \DISPLAYDATA 77 \DISPLAYDATA 68 \DISPLAYDATA 57 \DISPLAYDATA 45 \DISPLAYDATA 17 \TOPWDS 8 STREAM)
 ()
 \BLTSHADE.BITMAP :D8
 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) 
��	jXdYA�ZA�[A�\dk�h�G�IHG
�dM�M�IG
�dN�N�KG
G
�_�dO�O�JG
G
�_�dO�O�B�jb�C�jb�BdH�H�CdI�I�D�BD�dK�K�E�CE�dJ�J�KH�JI�h@	dg�dg�{�L�q@�	L	�Li�@	bL����
@@ -423,11 +426,11 @@ Q
 (145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
 ()
 DSPXOFFSET :D8
-(P 0 A0463 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
+(P 0 A0260 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 DSPYOFFSET :D8
-(P 0 A0464 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
+(P 0 A0261 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 DSPDESTINATION :D8
@@ -581,8 +584,8 @@ DSPSCROLL :D8
 (45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
 ()
 PAGEHEIGHT :D8
-(L (0 N) F 0 \#DISPLAYLINES) 

P@3�@c�j�NIL
-(14 \CURRENTDISPLAYLINE)
+(L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) 
P@3�@c�jc�NIL
+NIL
 ()
 (RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))
 \DSPRESET.DISPLAY :D8
@@ -631,20 +634,20 @@ expand-\MAYBE-DRIBBLE-CHAR :D8
 (543 STREAM 537 STREAM 511 STREAM 505 STREAM 400 \MACHINETYPE 378 STREAM 372 STREAM 268 STREAM 262 STREAM 195 STREAM 189 STREAM 113 STREAM 107 STREAM 63 CHARTABLE 53 CHARTABLE 10 \CARET.UP)
 ( 421 ((880 . 2500)))
 \DSPPRINTCR/LF :D8
-(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION F 18 \SCREENBITMAPS F 19 \TERM.OFD) �AdW&���`�A	�A�0QH���NH��\j�8H�
+(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SCREENBITMAPS F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \TERM.OFD) �AdW(���`�A	�A�0QH���KH��\j�5H�
 @l
�AH�2[�AkK�LdlZ�N
�n
�N
N
�m�؉o	A
-�H�LdlZ�jH�ٰn
�H��o	�_�H���
�LdlZ�,�OH��H�#H��	��Zj�5n
�*H�"H��	�OH���Zj���
@`
H�"_�H�_�H�$�H�%I�_�H�#O�_�H�6_� `�-W �hA
-W"�_�`�_�`j���A`�hA
-W$�A	�JO�hjdOOIO�eLlZ�3OOJ�IOOIOJ�_Ogg
+�H�LdlZ�jH�ٰn
�H��o	�_�H���
�LdlZ�,�OH��H�#H��	��Zj�5n
�*H�"H��	�OH���Zj���
=`
H�"_�H�_�H�$�H�%I�_�H�#O�_�H�6_� W �-W$�hA
+W&�_�`�_�`j���A`�hA
+W"�A	�JO�hjdOOIO�eLlZ�3OOJ�IOOIOJ�_Ogg
 �hjdOOOذ,OOIOOJ�IOJ�Ogg
 �hjdOOIJOggO
�O��`O��LlZ�OJكOJ�_�OA
-�
\@l
�H�2[�AkK�H�A
-�H�H�ػH���
!H�$YH��	�KH���Zj��PH�"_�H�_�H�%I�_�H�#O�_�H�6_� `�-W �hA
-W"�_�`�_�`j���A`�hA
-W$�A	�JO�hjdOOIOO�0OOIOOIJ�OOJ�gg
+�
Y@l
�H�2[�AkK�H�A
+�H�H�ػH���
H�$YH��	�KH���Zj��PH�"_�H�_�H�%I�_�H�#O�_�H�6_� W �-W$�hA
+W&�_�`�_�`j���A`�hA
+W"�A	�JO�hjdOOIOO�0OOIOOIJ�OOJ�gg
 �hjdOOIOJggO
�O��`O��KJ�[�KA
-h(981 DSPYPOSITION 956 \SOFTCURSORUPCURRENT 947 BKBITBLT 917 BKBITBLT 863 \TOTOPWDS 853 DSPDESTINATION 836 \SOFTCURSORDOWN 805 DSPDESTINATION 667 DSPXPOSITION 632 DSPXPOSITION 594 \SOFTCURSORUPCURRENT 585 BKBITBLT 555 BKBITBLT 508 BKBITBLT 448 \TOTOPWDS 438 DSPDESTINATION 421 \SOFTCURSORDOWN 390 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?)
-(962 \EM.DISPINTERRUPT 939 REPLACE 934 TEXTURE 911 REPLACE 906 INPUT 843 \TOPWDS 827 \EM.DISPINTERRUPT 817 \EM.DISPINTERRUPT 792 \SOFTCURSORP 770 \DISPLAYDATA 751 \DISPLAYDATA 740 \DISPLAYDATA 720 \DISPLAYDATA 710 FONTDESCRIPTOR 703 \DISPLAYDATA 694 \DISPLAYDATA 682 \DISPLAYDATA 648 \DISPLAYDATA 600 \EM.DISPINTERRUPT 577 REPLACE 572 TEXTURE 549 REPLACE 544 INPUT 502 REPLACE 497 INPUT 428 \TOPWDS 412 \EM.DISPINTERRUPT 402 \EM.DISPINTERRUPT 377 \SOFTCURSORP 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP)
+h(975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?)
+(956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP)
 ( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270")
 \TTYBACKGROUND :D8
 (P 0 X F 1 \LINEBUF.OFD) D

Q�`�/`�``��`�d

jH��(65 \BACKGROUND 39 WAIT.FOR.TTY)
@@ -758,11 +761,11 @@ Z`S
 (167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 91 FONTDESCRIPTOR 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap 27 FONTDESCRIPTOR)
 ()
 \STARTDISPLAY :D8
-(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 \CURSORDESTRASTERWIDTH F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT) 
@``�``�AT�>	�``�``�H	�H�d


I	��``
+(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 WINDOWBACKGROUNDSHADE F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT F 9 \CURSORDESTRASTERWIDTH) 
<``�``�AT�>	�``�``�H	�H�d


I	��``
 �`�
-�ijd``hS�;`c
-`c`c`�cH�P`	�H	�:`�S`�S`���d


I	��``h(291 \OPENW1 235 REVERSE 228 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS)
-(316 \OLDSCREENWIDTH 311 SCREENWIDTH 306 \OLDSCREENHEIGHT 301 SCREENHEIGHT 275 SCREENHEIGHT 270 SCREEN 261 SCREENWIDTH 256 SCREEN 247 ScreenBitMap 242 SCREEN 223 WINDOWBACKGROUNDSHADE 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH)
+�ijd``hS�7`c
+`c`c`�cH�LV	�H	�:`�S`�S`���d


I	��``h(287 \OPENW1 231 REVERSE 224 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS)
+(312 \OLDSCREENWIDTH 307 SCREENWIDTH 302 \OLDSCREENHEIGHT 297 SCREENHEIGHT 271 SCREENHEIGHT 266 SCREEN 257 SCREENWIDTH 252 SCREEN 243 ScreenBitMap 238 SCREEN 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH)
 ()
 \MOVE.WINDOWS.ONTO.SCREEN :D8
 (P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) �
@
H�+h�&```�Z``�[@
H�Ah
Y�
L
L
�m��`�L
L
�m��`��I��i��HX��
Yd	�\Ii

From 33a4f773b0f6d5f5c6097d4e195f8d73895aeb9b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 31 Jul 2023 15:08:14 -0700
Subject: [PATCH 2/2] Oops, off by one

---
 sources/LLDISPLAY      | 99 ++++++++++++++++++++----------------------
 sources/LLDISPLAY.LCOM | 23 +++++-----
 2 files changed, 56 insertions(+), 66 deletions(-)

diff --git a/sources/LLDISPLAY b/sources/LLDISPLAY
index 78a6b6634..634f7a058 100644
--- a/sources/LLDISPLAY
+++ b/sources/LLDISPLAY
@@ -1,19 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Jul-2023 13:34:19" {WMEDLEY}<sources>LLDISPLAY.;17
 270805 
+
(FILECREATED "31-Jul-2023 14:50:58" {WMEDLEY}<sources>LLDISPLAY.;19
 270570 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS LLDISPLAYCOMS)
-                  (FNS BITMAPEQUAL)
+      :CHANGES-TO (FNS BITMAPEQUAL)
 
-      :PREVIOUS-DATE " 9-Jul-2022 12:08:02" {WMEDLEY}<sources>LLDISPLAY.;16)
+      :PREVIOUS-DATE "31-Jul-2023 14:45:32" {WMEDLEY}<sources>LLDISPLAY.;18)
 
 
-(* ; "
-Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT LLDISPLAYCOMS)
 
 (RPAQQ LLDISPLAYCOMS

@@ -1024,7 +1019,7 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
                                             0])
 
 (BITMAPEQUAL

-  [LAMBDA (BM1 BM2)
                                          (* ; "Edited 31-Jul-2023 13:31 by rmk")

+  [LAMBDA (BM1 BM2)
                                          (* ; "Edited 31-Jul-2023 14:50 by rmk")

 
     (* ;; "T if BM1 and BM2 are both bitmaps of the same shape and contents.  The numeric fields are all SMALLP's")

 
@@ -1039,9 +1034,9 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
                            (EQ (ffetch
 (BITMAP BITMAPBITSPERPIXEL) of
 BM1)
                                (ffetch
 (BITMAP BITMAPBITSPERPIXEL) of
 BM2)))
                  (for
 I (BASE1 _ (ffetch
 (BITMAP BITMAPBASE) of
 BM1))
-                      (BASE2 _ (ffetch
 (BITMAP BITMAPBASE) of
 BM2)) from
 1
-                    to
 (ITIMES (ffetch
 (BITMAP BITMAPRASTERWIDTH) of
 BM1)
-                              (ffetch
 (BITMAP BITMAPHEIGHT) of
 BM1))
+                      (BASE2 _ (ffetch
 (BITMAP BITMAPBASE) of
 BM2)) from
 0
+                    to
 (SUB1 (ITIMES (ffetch
 (BITMAP BITMAPRASTERWIDTH) of
 BM1)
+                                    (ffetch
 (BITMAP BITMAPHEIGHT) of
 BM1)))
                     always
 (EQ (\GETBASE BASE1 I)
                                (\GETBASE BASE2 I))))
       else
 (BIGBITMAPEQUAL BM1 BM2])
@@ -4577,46 +4572,44 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
 
 (ADDTOVAR LAMA
 )
 )
-(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
-1989 1990 1993 1994 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (20580 23248 (\FBITMAPBIT 20590 . 21050) (\FBITMAPBIT.UFN 21052 . 22071) (
-\NEWPAGE.DISPLAY 22073 . 22208) (INITBITMASKS 22210 . 23246)) (25173 25682 (\CreateCursorBitMap 25183
- . 25680)) (25799 86338 (BITBLT 25809 . 36199) (BLTSHADE 36201 . 36979) (\BITBLTSUB 36981 . 47116) (
-\GETPILOTBBTSCRATCHBM 47118 . 47733) (BITMAPCOPY 47735 . 48311) (BITMAPCREATE 48313 . 49873) (
-BITMAPBIT 49875 . 58262) (BITMAPEQUAL 58264 . 59713) (BLTCHAR 59715 . 60331) (\BLTCHAR 60333 . 60835) 
-(\MEDW.BLTCHAR 60837 . 65715) (\CHANGECHARSET.DISPLAY 65717 . 68675) (\INDICATESTRING 68677 . 69873) (
-\SLOWBLTCHAR 69875 . 76971) (TEXTUREP 76973 . 77243) (INVERT.TEXTURE 77245 . 77519) (
-INVERT.TEXTURE.BITMAP 77521 . 79056) (BITMAPWIDTH 79058 . 79430) (READBITMAP 79432 . 81942) (
-\INSUREBITSPERPIXEL 81944 . 82239) (MAXIMUMCOLOR 82241 . 82382) (OPPOSITECOLOR 82384 . 82563) (
-MAXIMUMSHADE 82565 . 82776) (OPPOSITESHADE 82778 . 82957) (\MEDW.BITBLT 82959 . 86336)) (86340 91526 (
-FINISH-READING-BITMAP 86340 . 91526)) (92648 93129 (BITMAPBIT.EXPANDER 92658 . 93127)) (93130 141664 (
-\BITBLT.DISPLAY 93140 . 116379) (\BITBLT.BITMAP 116381 . 125480) (\BITBLT.MERGE 125482 . 127735) (
-\BLTSHADE.DISPLAY 127737 . 134837) (\BLTSHADE.BITMAP 134839 . 141662)) (141665 150985 (
-\BITBLT.BITMAP.SLOW 141675 . 150983)) (150986 167367 (\PUNT.BLTSHADE.BITMAP 150996 . 158092) (
-\PUNT.BITBLT.BITMAP 158094 . 167365)) (167368 170808 (\SCALEDBITBLT.DISPLAY 167378 . 169011) (
-\BACKCOLOR.DISPLAY 169013 . 170806)) (174663 176936 (DISPLAYSTREAMP 174673 . 175281) (DSPSOURCETYPE 
-175283 . 176292) (DSPXOFFSET 176294 . 176613) (DSPYOFFSET 176615 . 176934)) (176937 191132 (
-DSPDESTINATION 176947 . 180050) (DSPTEXTURE 180052 . 180214) (\DISPLAYSTREAMINCRXPOSITION 180216 . 
-180503) (\SFFixDestination 180505 . 181683) (\SFFixClippingRegion 181685 . 183857) (\SFFixFont 183859
- . 184909) (\SFFIXLINELENGTH 184911 . 186407) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 186409 . 188222
-) (\SFFixY 188224 . 191130)) (191133 194980 (\SIMPLE.DSPCREATE 191143 . 191693) (\COMMON.DSPCREATE 
-191695 . 194978)) (195081 197275 (\MEDW.XOFFSET 195091 . 196232) (\MEDW.YOFFSET 196234 . 197273)) (
-197276 205202 (\DSPCLIPPINGREGION.DISPLAY 197286 . 198032) (\DSPFONT.DISPLAY 198034 . 200404) (
-\DISPLAY.PILOTBITBLT 200406 . 200555) (\DSPLINEFEED.DISPLAY 200557 . 201128) (\DSPLEFTMARGIN.DISPLAY 
-201130 . 201861) (\DSPOPERATION.DISPLAY 201863 . 202887) (\DSPRIGHTMARGIN.DISPLAY 202889 . 203734) (
-\DSPXPOSITION.DISPLAY 203736 . 204593) (\DSPYPOSITION.DISPLAY 204595 . 205200)) (209390 214426 (
-TTYDISPLAYSTREAM 209400 . 214424)) (214729 215759 (DSPSCROLL 214739 . 215439) (PAGEHEIGHT 215441 . 
-215757)) (215804 218826 (\DSPRESET.DISPLAY 215814 . 218824)) (218862 219385 (\MAYBE-DRIBBLE-CHAR 
-218862 . 219385)) (219386 240024 (\DSPPRINTCHAR 219396 . 227234) (\DSPPRINTCR/LF 227236 . 240022)) (
-240025 240617 (\TTYBACKGROUND 240035 . 240615)) (240618 243905 (DSPBACKUP 240628 . 243903)) (244089 
-244345 (COLORDISPLAYP 244099 . 244343)) (244346 246417 (DISPLAYBEFOREEXIT 244356 . 245182) (
-DISPLAYAFTERENTRY 245184 . 246415)) (246789 251321 (\DSPCLIPTRANSFORMX 246799 . 247388) (
-\DSPCLIPTRANSFORMY 247390 . 248115) (\DSPTRANSFORMREGION 248117 . 248649) (\DSPUNTRANSFORMY 248651 . 
-248911) (\DSPUNTRANSFORMX 248913 . 249173) (\OFFSETCLIPPINGREGION 249175 . 251319)) (252635 255222 (
-UPDATESCREENDIMENSIONS 252645 . 253274) (\CreateScreenBitMap 253276 . 255220)) (255781 268940 (
-\CoerceToDisplayDevice 255791 . 256204) (\CREATEDISPLAY 256206 . 258046) (DISPLAYSTREAMINIT 258048 . 
-261192) (\STARTDISPLAY 261194 . 264105) (\MOVE.WINDOWS.ONTO.SCREEN 264107 . 266299) (
-\UPDATE.PBT.RASTERWIDTHS 266301 . 268083) (\STOPDISPLAY 268085 . 268577) (\DEFINEDISPLAYINFO 268579 . 
-268938)) (269548 270309 (INITIALIZEDISPLAYSTREAMS 269558 . 270307)))))
+  (FILEMAP (NIL (20459 23127 (\FBITMAPBIT 20469 . 20929) (\FBITMAPBIT.UFN 20931 . 21950) (
+\NEWPAGE.DISPLAY 21952 . 22087) (INITBITMASKS 22089 . 23125)) (25052 25561 (\CreateCursorBitMap 25062
+ . 25559)) (25678 86230 (BITBLT 25688 . 36078) (BLTSHADE 36080 . 36858) (\BITBLTSUB 36860 . 46995) (
+\GETPILOTBBTSCRATCHBM 46997 . 47612) (BITMAPCOPY 47614 . 48190) (BITMAPCREATE 48192 . 49752) (
+BITMAPBIT 49754 . 58141) (BITMAPEQUAL 58143 . 59605) (BLTCHAR 59607 . 60223) (\BLTCHAR 60225 . 60727) 
+(\MEDW.BLTCHAR 60729 . 65607) (\CHANGECHARSET.DISPLAY 65609 . 68567) (\INDICATESTRING 68569 . 69765) (
+\SLOWBLTCHAR 69767 . 76863) (TEXTUREP 76865 . 77135) (INVERT.TEXTURE 77137 . 77411) (
+INVERT.TEXTURE.BITMAP 77413 . 78948) (BITMAPWIDTH 78950 . 79322) (READBITMAP 79324 . 81834) (
+\INSUREBITSPERPIXEL 81836 . 82131) (MAXIMUMCOLOR 82133 . 82274) (OPPOSITECOLOR 82276 . 82455) (
+MAXIMUMSHADE 82457 . 82668) (OPPOSITESHADE 82670 . 82849) (\MEDW.BITBLT 82851 . 86228)) (86232 91418 (
+FINISH-READING-BITMAP 86232 . 91418)) (92540 93021 (BITMAPBIT.EXPANDER 92550 . 93019)) (93022 141556 (
+\BITBLT.DISPLAY 93032 . 116271) (\BITBLT.BITMAP 116273 . 125372) (\BITBLT.MERGE 125374 . 127627) (
+\BLTSHADE.DISPLAY 127629 . 134729) (\BLTSHADE.BITMAP 134731 . 141554)) (141557 150877 (
+\BITBLT.BITMAP.SLOW 141567 . 150875)) (150878 167259 (\PUNT.BLTSHADE.BITMAP 150888 . 157984) (
+\PUNT.BITBLT.BITMAP 157986 . 167257)) (167260 170700 (\SCALEDBITBLT.DISPLAY 167270 . 168903) (
+\BACKCOLOR.DISPLAY 168905 . 170698)) (174555 176828 (DISPLAYSTREAMP 174565 . 175173) (DSPSOURCETYPE 
+175175 . 176184) (DSPXOFFSET 176186 . 176505) (DSPYOFFSET 176507 . 176826)) (176829 191024 (
+DSPDESTINATION 176839 . 179942) (DSPTEXTURE 179944 . 180106) (\DISPLAYSTREAMINCRXPOSITION 180108 . 
+180395) (\SFFixDestination 180397 . 181575) (\SFFixClippingRegion 181577 . 183749) (\SFFixFont 183751
+ . 184801) (\SFFIXLINELENGTH 184803 . 186299) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 186301 . 188114
+) (\SFFixY 188116 . 191022)) (191025 194872 (\SIMPLE.DSPCREATE 191035 . 191585) (\COMMON.DSPCREATE 
+191587 . 194870)) (194973 197167 (\MEDW.XOFFSET 194983 . 196124) (\MEDW.YOFFSET 196126 . 197165)) (
+197168 205094 (\DSPCLIPPINGREGION.DISPLAY 197178 . 197924) (\DSPFONT.DISPLAY 197926 . 200296) (
+\DISPLAY.PILOTBITBLT 200298 . 200447) (\DSPLINEFEED.DISPLAY 200449 . 201020) (\DSPLEFTMARGIN.DISPLAY 
+201022 . 201753) (\DSPOPERATION.DISPLAY 201755 . 202779) (\DSPRIGHTMARGIN.DISPLAY 202781 . 203626) (
+\DSPXPOSITION.DISPLAY 203628 . 204485) (\DSPYPOSITION.DISPLAY 204487 . 205092)) (209282 214318 (
+TTYDISPLAYSTREAM 209292 . 214316)) (214621 215651 (DSPSCROLL 214631 . 215331) (PAGEHEIGHT 215333 . 
+215649)) (215696 218718 (\DSPRESET.DISPLAY 215706 . 218716)) (218754 219277 (\MAYBE-DRIBBLE-CHAR 
+218754 . 219277)) (219278 239916 (\DSPPRINTCHAR 219288 . 227126) (\DSPPRINTCR/LF 227128 . 239914)) (
+239917 240509 (\TTYBACKGROUND 239927 . 240507)) (240510 243797 (DSPBACKUP 240520 . 243795)) (243981 
+244237 (COLORDISPLAYP 243991 . 244235)) (244238 246309 (DISPLAYBEFOREEXIT 244248 . 245074) (
+DISPLAYAFTERENTRY 245076 . 246307)) (246681 251213 (\DSPCLIPTRANSFORMX 246691 . 247280) (
+\DSPCLIPTRANSFORMY 247282 . 248007) (\DSPTRANSFORMREGION 248009 . 248541) (\DSPUNTRANSFORMY 248543 . 
+248803) (\DSPUNTRANSFORMX 248805 . 249065) (\OFFSETCLIPPINGREGION 249067 . 251211)) (252527 255114 (
+UPDATESCREENDIMENSIONS 252537 . 253166) (\CreateScreenBitMap 253168 . 255112)) (255673 268832 (
+\CoerceToDisplayDevice 255683 . 256096) (\CREATEDISPLAY 256098 . 257938) (DISPLAYSTREAMINIT 257940 . 
+261084) (\STARTDISPLAY 261086 . 263997) (\MOVE.WINDOWS.ONTO.SCREEN 263999 . 266191) (
+\UPDATE.PBT.RASTERWIDTHS 266193 . 267975) (\STOPDISPLAY 267977 . 268469) (\DEFINEDISPLAYINFO 268471 . 
+268830)) (269440 270201 (INITIALIZEDISPLAYSTREAMS 269450 . 270199)))))
 STOP
diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM
index 3c2553bf9..7aba939d9 100644
--- a/sources/LLDISPLAY.LCOM
+++ b/sources/LLDISPLAY.LCOM
@@ -1,10 +1,9 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "31-Jul-2023 13:34:19" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;17) 
-"30-Jul-2023 17:45:41" "COMPILE-FILEd" in "FULL 30-Jul-2023 ..." dated "30-Jul-2023 17:45:48")
-(FILECREATED "31-Jul-2023 13:34:19" {WMEDLEY}<sources>LLDISPLAY.;17 270805 :EDIT-BY rmk :CHANGES-TO (
-VARS LLDISPLAYCOMS) (FNS BITMAPEQUAL) :PREVIOUS-DATE " 9-Jul-2022 12:08:02" 
-{WMEDLEY}<sources>LLDISPLAY.;16)
+(FILECREATED "31-Jul-2023 14:50:58" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;19) 
+"31-Jul-2023 14:48:17" "COMPILE-FILEd" in "FULL 31-Jul-2023 ..." dated "31-Jul-2023 14:48:24")
+(FILECREATED "31-Jul-2023 14:50:58" {WMEDLEY}<sources>LLDISPLAY.;19 270570 :EDIT-BY rmk :CHANGES-TO (
+FNS BITMAPEQUAL) :PREVIOUS-DATE "31-Jul-2023 14:45:32" {WMEDLEY}<sources>LLDISPLAY.;18)
 (RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE 
 DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ; 
 "User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION 
@@ -184,8 +183,8 @@ BITMAPBIT :D8
 (736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
 ( 557 "unknown bits per pixel size.")
 BITMAPEQUAL :D8
-(P 3 BASE2 P 2 BASE1 P 1 I I 1 BM2 I 0 BM1) i@��ZA��R@�A��H@�A��?@�A��6@�A��-@�@��k@�A�IH�JI��KI���hIk�Y��i@A
-(102 BIGBITMAPEQUAL)
+(P 3 BASE2 P 2 BASE1 P 1 I I 1 BM2 I 0 BM1) k@��\A��T@�A��J@�A��A@�A��8@�A��/@�@��k�j@�A�IH�JI��KI���hIk�Y��i@A
+(104 BIGBITMAPEQUAL)
 (13 BITMAP 5 BITMAP)
 ()
 BLTCHAR :D8
@@ -193,7 +192,7 @@ BLTCHAR :D8
 (42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
 ()
 \BLTCHAR :D8
-(P 0 A0245 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
+(P 0 A0229 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (
Aghb�.�Z
@ABlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 \MEDW.BLTCHAR :D8
@@ -279,7 +278,7 @@ OPPOSITESHADE :D8
 NIL
 ()
 \MEDW.BITBLT :D8
-(P 9 A0248 P 8 A0247 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0246 P 1 DD P 0 DSTWIN 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
+(P 9 A0232 P 8 A0231 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0230 P 1 DD P 0 DSTWIN 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS) 
 
@	�C	�o	�@��Z@�WCi
 Cgh�0H�2�H�H�2@ABCDEFGGGGGABlJ�
�C�����C����@i
 !@gh�0

AI�صA
BI�صBK�2�J_�K�2I�NOCDEFGGGGGNI�"�dL�LOI�$�dM�MlO��@
@@ -426,11 +425,11 @@ Q
 (145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
 ()
 DSPXOFFSET :D8
-(P 0 A0260 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
+(P 0 A0244 I 1 DISPLAYSTREAM I 0 XOFFSET) '
Aghb�.�\
@AlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 DSPYOFFSET :D8
-(P 0 A0261 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
+(P 0 A0245 I 1 DISPLAYSTREAM I 0 YOFFSET) '
Aghb�.�^
@AlH(11 \GETSTREAM)
 (25 IMAGEOPS 18 STREAM 5 OUTPUT)
 ()
 DSPDESTINATION :D8
@@ -797,6 +796,4 @@ hdg
cgkPh
 (INITIALIZEDISPLAYSTREAMS)
 (DISPLAYSTREAMINIT 1000)
 (PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE)
-(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 
-1989 1990 1993 1994 2021))
 NIL