From f233d518f6a5d02f438ff96022250b67f6a10771 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sun, 24 Oct 2021 11:37:03 -0700 Subject: [PATCH 1/2] Change numeric OPCODES SUBRCALL NN to use the LLSUBRS name --- sources/LLPACKAGE | 78 ++++++++++++++++++++++++++------------- sources/LLPACKAGE.LCOM | Bin 67497 -> 67279 bytes sources/MAIKOBITBLT | 50 +++++++++++++------------ sources/MAIKOBITBLT.LCOM | Bin 2987 -> 2962 bytes 4 files changed, 78 insertions(+), 50 deletions(-) diff --git a/sources/LLPACKAGE b/sources/LLPACKAGE index 2cdd41607..0f37b9154 100644 --- a/sources/LLPACKAGE +++ b/sources/LLPACKAGE @@ -1,13 +1,14 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") -(IL:FILECREATED "22-Sep-92 11:47:31" "{Pele:mv:envos}Sources>LLPACKAGE.;25" 82127 +(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10) - IL:|changes| IL:|to:| (IL:FUNCTIONS IL:ADD-SYMBOL) +(IL:FILECREATED "24-Oct-2021 10:20:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;4| 82444 - IL:|previous| IL:|date:| "20-May-91 13:07:32" "{Pele:mv:envos}Sources>LLPACKAGE.;24" + IL:|changes| IL:|to:| (IL:FUNCTIONS IL:FIND-EXTERNAL-SYMBOL IL:FIND-SYMBOL*) + + IL:|previous| IL:|date:| "22-Sep-92 11:47:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;1| ) -; Copyright (c) 1986, 1987, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1986-1987, 1990-1992 by Venue & Xerox Corporation. (IL:PRETTYCOMPRINT IL:LLPACKAGECOMS) @@ -524,9 +525,7 @@ PACKAGE))) (IL:DEFINEQ -(xcl:defpackage -(il:nlambda il:args (il:* il:\; "Edited 2-Dec-87 10:39 by raf") (il:setq il:args (xcl:remove-comments il:args)) (let ((package (find-package (car il:args)))) (cond ((packagep package) (il:* il:\; "If one already exists, test compatability of package definitions") (il:|for| il:option il:|in| (cdr il:args) il:|do| (let* ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:internal-symbols :external-symbols) nil) (:external-only (if (not (%package-external-only package)) (il:error "Package NOT :external-only as asserted by defpackage: " package))) (:prefix-name (setf (%package-namesymbol package) (make-symbol (car values)))) (:use (use-package values package)) (:nicknames (il:enter-new-nicknames package values)) (:export (export (il:for il:symbol il:in values il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import values package)) ((:shadow :shadowing-import) (let ((il:symbols-to-shadow (il:mapconc values (il:function (il:lambda (symbol) (cond ((not (il:memb symbol (%package-shadowing-symbols package))) (list symbol)))))))) (il:selectq il:key (:shadow (shadow il:symbols-to-shadow package)) (:shadowing-import (shadowing-import il:symbols-to-shadow package)) nil))) (il:error "Bad keyword for defpackage " il:key))))) (t (il:* il:\; "Otherwise, make a new package to spec") (let ((il:post-make-forms nil)) (il:setq package (il:apply (quote make-package) (cons (car il:args) (il:|for| il:option il:|in| (cdr il:args) il:|join| (let ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:use :nicknames) (list il:key (il:|if| (car values) il:|then| values il:|else| (il:* il:\; "Handles case where NIL is being used to explicitly say the package's :USE list is empty, since the default is to use LISP.") nil))) ((:prefix-name :internal-symbols :external-symbols :external-only) (list il:key (car values))) ((:shadow :export :import :shadowing-import) (il:setq il:post-make-forms (cons (cons il:key values) il:post-make-forms)) nil) (il:error "Bad keyword for defpackage " il:key))))))) (il:mapc il:post-make-forms (il:function (il:lambda (il:form) (il:selectq (car il:form) (:shadow (shadow (cdr il:form) package)) (:export (export (il:for il:symbol il:in (cdr il:form) il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import (cdr il:form) package)) (:shadowing-import (shadowing-import (cdr il:form) package)) (il:shouldnt "Bogus form on post-make-forms")))))))) (package-name package))) -) +(xcl:defpackage (il:nlambda il:args (il:* il:\; "Edited 2-Dec-87 10:39 by raf") (il:setq il:args (xcl:remove-comments il:args)) (let ((package (find-package (car il:args)))) (cond ((packagep package) (il:* il:\; "If one already exists, test compatability of package definitions") (il:|for| il:option il:|in| (cdr il:args) il:|do| (let* ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:internal-symbols :external-symbols) nil) (:external-only (if (not (%package-external-only package)) (il:error "Package NOT :external-only as asserted by defpackage: " package))) (:prefix-name (setf (%package-namesymbol package) (make-symbol (car values)))) (:use (use-package values package)) (:nicknames (il:enter-new-nicknames package values)) (:export (export (il:for il:symbol il:in values il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import values package)) ((:shadow :shadowing-import) (let ((il:symbols-to-shadow (il:mapconc values (il:function (il:lambda (symbol) (cond ((not (il:memb symbol (%package-shadowing-symbols package))) (list symbol)))))))) (il:selectq il:key (:shadow (shadow il:symbols-to-shadow package)) (:shadowing-import (shadowing-import il:symbols-to-shadow package)) nil))) (il:error "Bad keyword for defpackage " il:key))))) (t (il:* il:\; "Otherwise, make a new package to spec") (let ((il:post-make-forms nil)) (il:setq package (il:apply (quote make-package) (cons (car il:args) (il:|for| il:option il:|in| (cdr il:args) il:|join| (let ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:use :nicknames) (list il:key (il:|if| (car values) il:|then| values il:|else| (il:* il:\; "Handles case where NIL is being used to explicitly say the package's :USE list is empty, since the default is to use LISP.") nil))) ((:prefix-name :internal-symbols :external-symbols :external-only) (list il:key (car values))) ((:shadow :export :import :shadowing-import) (il:setq il:post-make-forms (cons (cons il:key values) il:post-make-forms)) nil) (il:error "Bad keyword for defpackage " il:key))))))) (il:mapc il:post-make-forms (il:function (il:lambda (il:form) (il:selectq (car il:form) (:shadow (shadow (cdr il:form) package)) (:export (export (il:for il:symbol il:in (cdr il:form) il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import (cdr il:form) package)) (:shadowing-import (shadowing-import (cdr il:form) package)) (il:shouldnt "Bogus form on post-make-forms")))))))) (package-name package))) ) ) @@ -1033,7 +1032,7 @@ (VALUES SYMBOL NIL))))) (DEFUN IL:FIND-SYMBOL* (IL:BASE IL:OFFSET IL:LENGTH IL:FATP PACKAGE) - "Check internal and external symbols, then scan down the list of hashtables for inherited symbols. When an inherited symbol is found pull that table to the beginning of the list." + (IL:* IL:\; "Check internal and external symbols, then scan down the list of hashtables for inherited symbols. When an inherited symbol is found pull that table to the beginning of the list.") (IL:* IL:|;;| "Find a symbol in the package given, if it eexists.") @@ -1042,10 +1041,11 @@ (IL:RESULT (IL:\\CREATECELL IL:\\FIXP)) IL:SYM IL:WHERE (IL:DONE)) (UNLESS (%PACKAGE-EXTERNAL-ONLY PACKAGE) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (%PACKAGE-INTERNAL-SYMBOLS PACKAGE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( + %PACKAGE-INTERNAL-SYMBOLS + PACKAGE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (IL:SETQ IL:WHERE :INTERNAL) @@ -1061,10 +1061,11 @@ (IL:SETQ IL:WHERE :INTERNAL) (IL:SETQ IL:DONE T))))) (UNLESS IL:DONE - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (%PACKAGE-EXTERNAL-SYMBOLS PACKAGE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( + %PACKAGE-EXTERNAL-SYMBOLS + PACKAGE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (IL:SETQ IL:WHERE :EXTERNAL) @@ -1087,10 +1088,10 @@ (CDR IL:TABLE))) ((OR IL:DONE (NULL IL:TABLE)) (VALUES NIL NIL)) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (CAR IL:TABLE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE + IL:OFFSET IL:LENGTH IL:FATP + (CAR IL:TABLE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (UNLESS (EQ IL:PREV IL:HEAD) @@ -1518,11 +1519,11 @@ (IL:EHASH (IL:ENTRY-HASH IL:LENGTH IL:HASH)) (IL:RESULT (IL:\\CREATECELL IL:\\FIXP)) IL:SYM) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP ( + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( %PACKAGE-EXTERNAL-SYMBOLS - PACKAGE) - IL:RESULT)) + PACKAGE) + IL:RESULT)) (VALUES IL:SYM (NOT (IL:IEQP IL:RESULT -1)))) (IL:WITH-SYMBOL (IL:FOUND SYMBOL (%PACKAGE-EXTERNAL-SYMBOLS PACKAGE) IL:BASE IL:OFFSET IL:LENGTH IL:FATP IL:HASH IL:EHASH NIL @@ -1563,5 +1564,30 @@ ) (IL:PUTPROPS IL:LLPACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1992)) (IL:DECLARE\: IL:DONTCOPY - (IL:FILEMAP (NIL (25052 28345 (XCL:DEFPACKAGE 25065 . 28343))))) + (IL:FILEMAP (NIL (9779 10219 (IL:\\UPCASEBASE 9779 . 10219)) (10221 11342 (IL:APROPOS-SEARCH 10221 . +11342)) (12882 12964 (PACKAGE-NAME 12882 . 12964)) (12966 13058 (PACKAGE-NICKNAMES 12966 . 13058)) ( +13060 13168 (PACKAGE-SHADOWING-SYMBOLS 13060 . 13168)) (13170 13260 (PACKAGE-USE-LIST 13170 . 13260)) +(13262 13360 (PACKAGE-USED-BY-LIST 13262 . 13360)) (13362 14517 (IL:MAKE-PACKAGE-HASHTABLE 13362 . +14517)) (14519 14681 (PRINT-PACKAGE 14519 . 14681)) (14683 15074 (PRINT-PACKAGE-HASHTABLE 14683 . +15074)) (16142 16923 (MAKE-SYMBOL 16142 . 16923)) (18034 18444 (IL:\\PKG-FIND-FREE-PACKAGE-INDEX 18034 + . 18444)) (18501 18647 (IL:SETF-SYMBOL-PACKAGE 18501 . 18647)) (18649 18741 (SYMBOL-PACKAGE 18649 . +18741)) (21512 21684 (IL:INTERNAL-SYMBOL-COUNT 21512 . 21684)) (21686 21804 (IL:EXTERNAL-SYMBOL-COUNT +21686 . 21804)) (21806 22962 (IL:ENTER-NEW-NICKNAMES 21806 . 22962)) (22964 23390 ( +IL:MAKE-PRIME-HASHTABLE-SIZE 22964 . 23390)) (23392 25061 (MAKE-PACKAGE 23392 . 25061)) (25062 28355 ( +XCL:DEFPACKAGE 25075 . 28353)) (28404 28626 (FIND-PACKAGE 28404 . 28626)) (28628 31966 (USE-PACKAGE +28628 . 31966)) (31968 32448 (IN-PACKAGE 31968 . 32448)) (32450 32724 (XCL:PKG-GOTO 32450 . 32724)) ( +32726 33826 (RENAME-PACKAGE 32726 . 33826)) (33828 35279 (XCL:DELETE-PACKAGE 33828 . 35279)) (35281 +38227 (EXPORT 35281 . 38227)) (38229 39472 (UNEXPORT 38229 . 39472)) (39474 41118 (IMPORT 39474 . +41118)) (41120 42398 (SHADOWING-IMPORT 41120 . 42398)) (42400 43454 (SHADOW 42400 . 43454)) (43456 +44111 (UNUSE-PACKAGE 43456 . 44111)) (44175 44481 (LIST-ALL-PACKAGES 44175 . 44481)) (44538 48313 ( +IL:ADD-SYMBOL 44538 . 48313)) (52637 53940 (IL:INTERN* 52637 . 53940)) (53942 59790 (IL:FIND-SYMBOL* +53942 . 59790)) (59792 61243 (INTERN 59792 . 61243)) (61245 61823 (FIND-SYMBOL 61245 . 61823)) (61881 +62781 (IL:NUKE-SYMBOL 61881 . 62781)) (62783 64903 (UNINTERN 62783 . 64903)) (64905 66048 ( +IL:MOBY-UNINTERN 64905 . 66048)) (66107 66179 (IL:\\INDEXATOMPNAME 66107 . 66179)) (66291 66438 ( +IL:MAKE-DO-SYMBOLS-VARS 66291 . 66438)) (66440 67895 (IL:MAKE-DO-SYMBOLS-CODE 66440 . 67895)) (75495 +76020 (FIND-ALL-SYMBOLS 75495 . 76020)) (76022 76301 (IL:BRIEFLY-DESCRIBE-SYMBOL 76022 . 76301)) ( +76303 77817 (APROPOS 76303 . 77817)) (77819 79476 (APROPOS-LIST 77819 . 79476)) (79580 81153 ( +IL:FIND-EXTERNAL-SYMBOL 79580 . 81153)) (81155 81675 (IL:FIND-EXACT-SYMBOL 81155 . 81675)) (81677 +81757 (IL:PACKAGE-NAME-AS-SYMBOL 81677 . 81757)) (81759 81908 (IL:\\FIND.PACKAGE.INTERNAL 81759 . +81908))))) IL:STOP diff --git a/sources/LLPACKAGE.LCOM b/sources/LLPACKAGE.LCOM index e475b75f1bb61d3266bbc413abb8f47ef193e3de..0bea51e26e89f30d0230c6957502f2ea9e46618c 100644 GIT binary patch delta 6295 zcmbUlc~Db#dczUmaY#4<0irKKAy@-RAVC760RjY)5RyD=)0D*vMM4qnVf8-r3K}i>u6LR-+lWCp|r#|J>|a>2B_48TrJo8jW79)vL4R zY4Qpu#*mjq_6X z3is;vu2nt#+!GnD_ZseScPn!=tXi$l%GPK8@7AdM`GeYRhRRBm4pDxK1Pmfq4D2%AH>H-1vM z7#fDpS3?^Rsz;)sA*>3q%@^X~WY}!PZibO=+0{ho44;V@gx3q0fuH;YaS#$gCYvHi z?7;{!NHT2^9}IVIx2v;RSzB9da2A#t><**RYU^k9MROTgF3N_#PTPp&&dBu$KaNaB zxO0gdWTH&OZb!uh`Y2Hs42xnAekuCgOLZkmiP+W>DKx|d!nLR+FW^aN4H2G zoz7TIW=4@l1O}VE!dBr>I*bN;VJUy+Ym&iW9|>o`Py)IA+k{?!2DNl0lAq5cHX_VU zq7+g}r^6dba}gU&qHp2&JR*;P9BC9hBTc|J`=tv6jOT`QgTFt+DqyROg>ID;-jtEx z^D@eoLonZk*mN0Y?fIN`@2zsO&ZTZnrGao?@PVOnJ5 z^<1B+;syN-WwG5jMmZZAvnHt>mP#h54IWp^8@*4L4)YYDerUfTg)AS{#d%hylnD@h zJN15^h|)r*m^J28E-W*FnNxsNmO13lgL5bp5@jvI)yft>MhCl;32;+s!WRYUOAxx! z<6$s853vTV7$P%l^e%(gj&qR0v_&SPP~p4HDn3{l@VX`huBf;Y@KS7%g+jGFI)GKN z*bUUN(5j4p7u1Cj*yRkxZJQyJm&_IMm48HJYha$;BG zqM0nl;+W+NjLBMLT*$>^;6|W;rRdJQlWB~YOB2U9wZa?jJCuykTMZUIf}HI106t3p zjhgTAV;WLKci94K^J1}ak+E~UVgEUSRSu&PXR~um94ls~Gyx8z$MV_4$rXo9P1T^q z;^8SGrl#1h#TauG@Qqe@xA%uf5(21!a3pb2Qwo^{;Q*G@WKjP%_IU+9Ro-8Tac(aSH}_gl3`N3V&FIP3*pCHy@XNd zRK6^tJ~@_9Fn^wgvd|Y1p5|QJ?;c!YUwSL=iYqT+B>x@~(9}q6JRcxp zS#!^m)p;XeF|2S!^-pJY!)j|&a=6imbzNqEbdw0Dx#jXrszX#R5~3T_*D!%U`)eT z+l=K1KQX2t3@Xk-NKLG!I0>=U#ngm8F($ytVw!c|7gH0eE1|x>wS=~TOC@TAl2U^6 z%i>^3sqX~)N~tZKGNr zX=PZJ$YDiD-(M*sdr9KI%V_S4%4xKfl@r%7iyXF<$00_PC(3C*`L?_eAz5!XbJN*O z{Pg`zb2?&|%vyw^^68LkA?H+ES{O#B)oRpfWYRH<-b+5idLLrtR_q;Ibxdd}o=2?> zf<%5Qv+7J%ZtYshy4aqTE806-ImeSei7gie(3y@`hQoea5KWPbl`|2|#}C(SK25!L z5xx^bePtBBUtUQD@@!(nE>LnTq{R9vT>w70uI)adydv(0m5jV zZzmAdb>Q>Ebs3>}(9BGf;gfK-j*>sDo>m-MU|Z{H3E5shoi~uyzH{~S@Kr(sZAwJa z(a?n0aD$27Hj>|os-=nO*oaW=qWmVVEiRWo7Vk3xK{Ny{c>)I+J6FXo ztGEI2=Cp8*B^fDAREf?es@02+Nydgm3><1QqiNc?*aV^>skw@`vobgyb~Xk0dfCg( z22_@X%3|PFa~V%#cH;>=t?oH&k)7n zwY+F@-kBaWp$BkLT5gNyT|s9ZdXO|;e=twP&;XgJjBoGTgr4e$%0p1;i;v&J`oZ?B z$^l!R5>Brtvu$})4kW5-19hmC8*Gt`$vU;9>l-4-?psf!jayKHU{lzBTgkq+tt=QdHeZf?@YFm@x2=t&wq#lN2B7l?(OiRZl{ zfu1M(k$UvWUXEJ|>o>~~+q2mb?{zcYa_*22{nSGgqofEcCLQcS#Uy*;OEB9HoY$ifX(9 zDyIa$NbN0nPPL4KQ(<6Q@ z2V?579f+pjHy@>5v}NQUqO7C7c>a)Y zr#O2k4(7jwH+oOmTOoodejed!WVBmn^Sa%Ceq2D6s)lvz#o#|!GF~f72dP#z4%)dJ zI9KD||35tI=pc~2kH5WW8ch~n?4-bXZXLcXh-MVoSrY~o{uWYmUQay|gY0zBnj;ju zo+COD-%2Lz3w+Wa*^9<2velEssGuS*9S*(A7b$g@K=|joBq`>oCWahst-{rOf-ujb zqd*S(=6KEcG22d1b#6M5K?O9$A-L=tJ;4=`;k`$(&RJdNgiaK5l1fN*a(z7SUQ0zm zjdGGC B)^ST97v-m^5XxSo0z9q{zW$2f7;3$k&mJgMgvleovuKg^kxeW$oWuL!t6 zCcSmxWAb6Y_eWV#g*W7mv7cl*&sP^2DwrFewF^jOrdmD8!joS_<4Hq9`CM`I({4bC zdGZS?fh%7e;fy@+B}ICN*+tk4u*je*8DGf*dBhtU`7uB6)JjD-RuSQ9oSF*-ahZ6nx6^hHHD>(>dR|#KmbuiVt zFlcr7BU{nzZfWmyH>b&2jh2 zd~oep5H?A*Dn~c46}K9X=ew5$l>J)Gz&iqg3O4_cgv@l><3C`J94Pk_Y=8%DV(F#% zq>bPGJ^OE(gD?U=-F_QAH-PD4)>zhE^Ly;?VU%N^Ji zAixVGoH{8T_$WY7JD&Dr$?dm;2O0x8f$IVVcBD&>7{AG<-1R$PAXO+J=UF6@fd-+V fYE0U|s8Aps7!eBa9zi(X-S}5cK>|Y{=jZm*frqfVkXSJmyxO59}8Rv5I^IwCgeZ5DApo2NHw5TU}V z)7o{FM68fWY8@^~NimU@XjCN{Ws#WViQC-|_ICF;JBZsw#DoQ+p$(Nb!^5Q=-JUgN z2;^m}J3RevcaNv6r(IFj)9vYPcdvCS3Z!Ko_rThAr>D$lwCvg!l_nd?2QgBK$+1>a zq9SssMxoG1mB4n_;nYngXGf27kjRu0?La5q7ZenT2@33R^gBC-hS+Fp~N z59*)`knP6gd2o6*8RPS>WWWBPT7q9S^R!w&Oj(O+iD_1FYvSaKaPm=-R)fw*uUsEuftlCOCa8%A{vAis2L^!uyXhGU+an22LkLiy4+stjGY$`i45Y zj)2=5D(nqbousb3R##yMuhDUN+7zQd$P0jce|9p!I0b~5j?NQ?p|$j@>_Yf^=GBxi zbP3hwNCR)5$Vr30+MEUSbWTLz#r3I+0%g#})1stsug8EYG9vCf=+!_L6 zZ>tMH=@^jIl#8i%V?@a9$Tc!>{9yhPuf~1HMO2@gz`K^wp~3+w=Ie3(QR7GhOBT!=KE^3WmG(pG5_ zgeDT6y(q={Iwi$=_1;87U=qWKlt9_Zgmg?+4_9|&?a{2i_sfduFJwvd5xE3z#^v>~ z{u_(eNf3=VHcv%-_%I~+m}DnG237|CvBvVL%zdIwko+KhyM<OeAZ)Hr< zY;S(dM7mFv8h{jYZ=@R^CVNxb&n))dcqde%0A_LbMk49}B-*TwxI1X(%jv=L1ovk3 zwpyCV&NFEZI*C6?_{zgn&no&|2q^QHk`qEqgo--LvS1{%o%7v(kNH?ItX#=p!3pK zbU46IRi&{Dd>&kok6kmnO35oCq61YKaN1o}%Hv^ANvOuoFj%bscv62MO{W5klT&8IUvp- zjW}LHO)7vALnduBrO)D5Qk%|RPZ@J6-DA?tX4NW{T*kX%he1rk%@|T7FEi)CsneVr z&+@q&&;z)im|K{1?{I{jjEK$de&QgW{^3MnB(M#LwQP)080iA1&3W4C!<`7NuC^06b=mPL8u&{)<|WFmwr9}T2Jj(A8tNE+sDJrjmbVs$ zmuO)2K*qMZQc#h=ClC z#}|{l;(S6wVh6owFLvN3_A!7?Yo^9uz?1yZ3ykS(6wFv0v#5Lun4TzgKbY zx$yt2`?pCzy0pTmf!EQ%;ljPrD~$lcOAlQ_!lUa3!(ioBQpez2+A>%Lk0#d@(sP5Q z@VK~$YT>bR{oDi=-f1g?^VPW?)qQz=y4Ph`*w@yh@aPSt@oaD8?V0byht7U`?okUzG9ueV`91W#xLtW}5OGDsTN_QaeJkReyl z@%1Tm`}U219J2$56RP>s9a(UCYlkhx=U;gDnZcm&M;k(6u&Lx~+BcTM{dV{LOa!E; zOj=AWdy**GgS;MCEQ?`vOD%O)yIX#X-^C54J!e^NrDMsck5 z9nYlQqu5iojFu;{wi<0^T_e1ONdg$aBX2Ue=oivZ=iHajZ%@AzoHo`2SVo=$ z)c{{VfPsGRK>73w8X3b8svau>=o(Y{b4Nsvj^Vt$GFFtxzvxYUTHtl&Y4JXjBKF^7J}e!QELVoe_Xze3dZ@2{es%U>JvzI%T2 zn!opc^O}Gb9)n)Qt@`yWCIRXcJ1F)O^8&B%@4fygx;J71dlR%H6uE5zO?z&_%D=(# z<>;LvKAMUXYnIeG}p72;gy`{NmW zunj&UEhPP2P8adCJ6xp0{aqLSCGb(HpSV|%E{CV9-_h3N^pI8VwZN#$xwacV4iO)5 z0ck{HAf0(dx;+&@GXN5M2YPydtD~RrtVq9`m(k|z>~^_uNdQ59p#@^}4eyw#MB?Th zzQQE3c}2>AfeIg+WY9e zS$Jv@O+SXMLUT+mz}T1@U_%dJz->N8u|X({`Q%u597hBnrZS*<<#-|1>I}X40!Vt> zf|=3zyDiWih*}ZQ{4^&pitEXA7-rn>TFk{~X_ABQp`8vpKfzzaE9>=#LB^GPg# zO(!q#Q)U0J1m4N^-Ba@EDi}Y7?B6}Lar#l#CGU$q=RW;BWDb}7`$d>QwzDe%zH%0L za%axw;iG^40bW+IeW^$uyu6x0KjIrKLduo-=P;RBw}p^NwegjE{z(QK^Jqikdkr^g_!{UnP#5`r5(#|M_D!(k zlTt3?>x@X4EHY^czcX=*?mW*AKb1m>B|0o*7_6-`H*1@8}k9Mq;K5 z=)Z17{c1%Bvz)mPxT%BpXDCYEcenilsson>mnw>MAIKOBITBLT.;1| 8778 - |changes| |to:| (VARS MAIKOBITBLTCOMS) +(FILECREATED "24-Oct-2021 10:31:31" |{DSK}larry>medley>sources>MAIKOBITBLT.;2| 8685 - |previous| |date:| "14-Jun-90 16:57:27" |{DSK}export>lispcore>sources>MAIKOBITBLT.;1|) + |previous| |date:| "25-Feb-94 16:50:33" |{DSK}larry>medley>sources>MAIKOBITBLT.;1|) -; Copyright (c) 1988, 1989, 1990, 1994 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1988-1990, 1994 by Venue & Xerox Corporation. (PRETTYCOMPRINT MAIKOBITBLTCOMS) -(RPAQQ MAIKOBITBLTCOMS ( - (* |;;| "this file has some optimizations for BITBLT on MAIKO; while PILOTBITBLT opcode still works, these functions directly implement some higher level operations") +(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.") + (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 '\\BITBLT.BITMAP '\\MAIKO.OLDBITBLT.BITMAP)) - (ADDVARS (\\MAIKO.MOVDS (\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) - (\\MAIKO.BITBLTSUB \\BITBLTSUB) - (\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP) - (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP))))) + (P (MOVD '\\BITBLT.BITMAP '\\MAIKO.OLDBITBLT.BITMAP)) + (ADDVARS (\\MAIKO.MOVDS (\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) + (\\MAIKO.BITBLTSUB \\BITBLTSUB) + (\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP) + (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP))))) @@ -34,7 +34,7 @@ (\\MAIKO.BITBLTSUB (LAMBDA (PILOTBBT |SourceBitMap| SLX STY |DestinationBitMap| DLX DTY HEIGHT |SourceType| - |Operation| |Texture| |WindowXOffset| |WindowYOffset|) + |Operation| |Texture| |WindowXOffset| |WindowYOffset|) (* \; "Edited 29-Jun-88 16:24 by ") (* |;;| "replaces \\BITBLTSUB on Maiko") @@ -49,7 +49,9 @@ CHARCODE DISPLAYSTREAM DISPLAYDATA))) (\\MAIKO.PUNTBLTCHAR - (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; "Edited 29-Jun-88 16:04 by ") + (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; + "Edited 24-Oct-2021 10:31 by larry") + (* \; "Edited 29-Jun-88 16:04 by ") (* |;;| "puts a character on a display stream. This function will be called when \\maiko.bltchar failed. Punt from subr call") @@ -107,14 +109,14 @@ DISPLAYDATA) )) 0))) - (.WHILE.TOP.DS. DISPLAYSTREAM ((OPCODES SUBRCALL 70 6) - LOCAL1 DISPLAYDATA CHAR8CODE CURX LEFT RIGHT)) + (.WHILE.TOP.DS. DISPLAYSTREAM (SUBRCALL BLTCHAR LOCAL1 DISPLAYDATA CHAR8CODE + CURX LEFT RIGHT)) T)))))) (\\MAIKO.BITBLT.BITMAP (LAMBDA (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM DESTBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT - CLIPPEDSOURCEBOTTOM) (* \; "Edited 14-Jun-90 16:47 by TS") + CLIPPEDSOURCEBOTTOM) (* \; "Edited 14-Jun-90 16:47 by TS") (* |;;| "SUN version of \\BITBLT.BITMAP. For all but the MERGE case, use C code. For the MERGE case, use the old code.") @@ -132,7 +134,7 @@ (\\MAIKO.BLTSHADE.BITMAP (LAMBDA (TEXTURE DESTINATIONBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT OPERATION - CLIPPINGREGION) (* \; "Edited 14-Jun-90 16:49 by TS") + CLIPPINGREGION) (* \; "Edited 14-Jun-90 16:49 by TS") (DECLARE (LOCALVARS . T)) (* |;;| "C function, bitshade_bitmap , has PUNT case \\PUNT.BLTSHADE.BITMAP(Takeshi)") @@ -156,7 +158,7 @@ (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP)) (PUTPROPS MAIKOBITBLT COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1994)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (1600 8233 (\\MAIKO.BITBLTSUB 1610 . 2130) (\\MAIKO.BLTCHAR 2132 . 2272) ( -\\MAIKO.PUNTBLTCHAR 2274 . 6375) (\\MAIKO.BITBLT.BITMAP 6377 . 7729) (\\MAIKO.BLTSHADE.BITMAP 7731 . -8231))))) + (FILEMAP (NIL (1339 8140 (\\MAIKO.BITBLTSUB 1349 . 1865) (\\MAIKO.BLTCHAR 1867 . 2007) ( +\\MAIKO.PUNTBLTCHAR 2009 . 6282) (\\MAIKO.BITBLT.BITMAP 6284 . 7636) (\\MAIKO.BLTSHADE.BITMAP 7638 . +8138))))) STOP diff --git a/sources/MAIKOBITBLT.LCOM b/sources/MAIKOBITBLT.LCOM index 33f1096636b358d30cd8b7a34c35b088ddce679e..e8c2e2fc5a3c0aeab2c23d8f83aa2f27ace71575 100644 GIT binary patch delta 556 zcmZ22K1qCnV?7s_hMT94t8c7ml30?OQUfv{Ny^B`%Fxux&|FEAfcNSl{v*{t3KnJ- zrV2F$MX6<(`K84`>%r~-x?0J|RM#yvN!QXu!O+ag6c~cW_<~ChTX-4PXmZ8GfP+vE z5{AK{P6}2o7F?5`F#cxbn*4w%k&$b&6Z0GmB=CAlbta z3{uIV2qc*}Gl66dXFQPH$K^PgmrIp}OH)AuC@ntOo?C=PQ&W>`av`TZP<|;_6eHIp QZjj~>?jTk!KTjVn0K1%^vj6}9 delta 532 zcmZ9I&2Q5%6u_0S(JqrupbdeBo-Cm?heS=&kko^qbS+Z4cB_&w3A9UStr9Ius-)#Z z81WAvKIQ`);K+#!g1?0;S3u&(4I$wG5`)XL{oe1{Kfj~3H)~JbHmY6q`rR$R>xSJ9 z;D)L8qEv0!pj*Uf5#7L0!=vnQ8YgrNSqd1~{Z6p`;8GG7(@~bwXHQlSnoI$Njk-FB za=z&cOAyciUdr?uXi@&cL=T8`$Vplul?N-kxQIL2b|V z13<^vt=&PO0GsCYcAU*iuoMw!DbkyZNz_5VNK8w(U_gJqe)=FzCl0+k&GMOZYz}92 zrl9@(U-xUjWrAyMARQa=uhMr3@y`p9gx>c~yj&2=rzKMox%JA6^FzNIhS!D7(D!yi z_|K5Pt6%|ssJs%fs0K%sGyG#!7Kbm@_#{%GHU!?6ukh!~=S1?g?DB8R7Z%F`mjt`9 ha%xdg6jU;z{z$$d;@j#f{~=!%yUi7U3GH}&^b@|5nfU+! From 5624ba990ef62fbcff9098bd6f411ea115a3e73f Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 25 Oct 2021 19:56:11 -0700 Subject: [PATCH 2/2] Additional OPCODES SUBRCALL in LLDISPLAY --- sources/LLDISPLAY | 357 +++++++++------------------- sources/LLDISPLAY.LCOM | 520 ++++++++++++++++++++--------------------- 2 files changed, 373 insertions(+), 504 deletions(-) diff --git a/sources/LLDISPLAY b/sources/LLDISPLAY index 7e2d3b8c5..9f8c2bcde 100644 --- a/sources/LLDISPLAY +++ b/sources/LLDISPLAY @@ -1,11 +1,10 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 8-Aug-2021 00:19:22"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7 268927 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (FNS READBITMAP) +(FILECREATED "25-Oct-2021 17:22:22" {DSK}larry>medley>sources>LLDISPLAY.;2 258794 - previous date%: " 1-Aug-2021 23:41:37" -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6) + changes to%: (FNS \BITBLTSUB \BLTCHAR) + + previous date%: " 8-Aug-2021 00:19:22" {DSK}larry>medley>sources>LLDISPLAY.;1) (* ; " @@ -17,20 +16,20 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (RPAQQ LLDISPLAYCOMS [(DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE DISPLAYINFO) (MACROS \GETDISPLAYDATA))) - (* ; - "User-visible records are on ADISPLAY --- must be init'ed here") + (* ; + "User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA) - [COMS (* ; "BITMASKS") + [COMS (* ; "BITMASKS") (FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS) (OPTIMIZERS \FBITMAPBIT) [EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK \NOT4BITMASK) (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY) (CONSTANTS (WORDMASK 65535] (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS] - [COMS (* ; "init cursor") + [COMS (* ; "init cursor") (FNS \CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap] - [COMS (* ; "bitmap functions.") + [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 @@ -45,15 +44,15 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (FNS BITMAPBIT.EXPANDER) (FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP) (FNS - (* ;; "For SunLoadup") + (* ;; "For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS - (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap") + (* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (FNS - (* ;; "from SUMEX-AIM") + (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS (\DisplayWordAlign 16) @@ -66,11 +65,11 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) [DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? 'BITBLT 'BKBITBLT] - (* ; - "macro for this file so that BITBLT can be broken by users") + (* ; + "macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (P (PUTPROP 'BITBLT 'MACRO '(= . BKBITBLT] - (COMS (* ; "display stream functions") + (COMS (* ; "display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH @@ -86,14 +85,14 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (INITVARS (PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) - [COMS (* ; "Stub for window package") + [COMS (* ; "Stub for window package") (INITVARS (\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? 'NILL '\TOTOPWDS)) (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. .WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS \TOPWDS] - (COMS (* ; "DisplayStream TTY functions") + (COMS (* ; "DisplayStream TTY functions") (FNS TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) @@ -114,13 +113,13 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP) (MACROS \CHECKCARET))) - [COMS (* ; - "transformation related functions.") + [COMS (* ; + "transformation related functions.") (FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY \DSPUNTRANSFORMX \OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM \OFFSETLEFT] - [COMS (* ; "screen related functions") + [COMS (* ; "screen related functions") (FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS)) (INITVARS (SCREENHEIGHT 808) @@ -132,7 +131,7 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (ColorScreenBitMap NIL))) (GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (CURSOR.INIT] - [COMS (* ; "initialization") + [COMS (* ; "initialization") (INITVARS (\DISPLAYINFOALIST)) (FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY \MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO @@ -712,134 +711,13 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (\BITBLTSUB [LAMBDA (PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType Operation - Texture WindowXOffset WindowYOffset) (* rrb "13-Feb-86 14:42") - - (* ;; "rrb 13-Feb-86 Added WindowYOffset and WindowXOffset so that textures could be aligned to the window rather than the underlying Screen bitmap. I only changed the calls in \BLTSHADE.1BITDISPLAY and \BLTSHADE.COLORDISPLAY") - - (PROG (DBMR SBMR GRAY SOURCEADDR DESTADDR X) - (SETQ DBMR (fetch (BITMAP BITMAPRASTERWIDTH) of DestinationBitMap)) - (replace (PILOTBBT PBTFLAGS) of PILOTBBT with 0) - (replace (PILOTBBT PBTDESTBPL) of PILOTBBT with (UNFOLD DBMR BITSPERWORD)) - (SETQ DESTADDR (\ADDBASE (fetch (BITMAP BITMAPBASE) of DestinationBitMap) - (ITIMES DBMR DTY))) (* ; - "Combine Destination base and top Y into a single Destination word offset") - (replace (PILOTBBT PBTDESTBIT) of PILOTBBT with DLX) - (SELECTQ SourceType - (TEXTURE (replace (PILOTBBT PBTUSEGRAY) of PILOTBBT with T) - (replace (PILOTBBT PBTSOURCEBIT) of PILOTBBT - with (MOD (COND - (WindowXOffset (IDIFFERENCE DLX WindowXOffset)) - (T DLX)) - BITSPERWORD)) - - (* ;; "Source is offset in a gray block where we want to start. Microcode finds the start of the gray block by subtracting PBTGRAYOFFSET from it") - - (replace (PILOTBBT PBTSOURCEBPL) of PILOTBBT with 0) - (* ; "Zero out this word first") - [COND - [(FIXP Texture) - (SETQ GRAY (fetch (BITMAP BITMAPBASE) of \SYSBBTEXTURE)) - (replace (PILOTBBT PBTSOURCE) of PILOTBBT - with (\ADDBASE GRAY - (COND - ((OR (EQ (SETQ Texture (LOGAND Texture WORDMASK)) - 0) - (EQ Texture BLACKSHADE)) - (* ; - "special cases of solid texture occur often") - (\PUTBASE GRAY 0 Texture) - (* ; - "PBTGRAYHEIGHTLESSONE and PBTGRAYOFFSET are both 0 in this case") - 0) - (T (\PUTBASE GRAY 0 (\SFReplicate (LRSH Texture 12)) - ) - [\PUTBASE GRAY 1 (\SFReplicate - (LOGAND 15 (LRSH Texture 8] - [\PUTBASE GRAY 2 (\SFReplicate - (LOGAND 15 (LRSH Texture 4] - (\PUTBASE GRAY 3 (\SFReplicate (LOGAND 15 Texture - ))) - (replace (PILOTBBT PBTGRAYHEIGHTLESSONE) - of PILOTBBT with 3) - (replace (PILOTBBT PBTGRAYOFFSET) - of PILOTBBT - with (MOD (COND - (WindowYOffset (PLUS DTY - WindowYOffset - )) - (T DTY)) - 4] - (T (* ; - "A bitmap that is 16 bits wide. BITBLT verified this back in interruptable section") - [replace (PILOTBBT PBTGRAYHEIGHTLESSONE) of PILOTBBT - with (SUB1 (SETQ X (IMIN [ffetch (BITMAP BITMAPHEIGHT) - of (SETQ Texture - (\DTEST Texture 'BITMAP] - 16] - [replace (PILOTBBT PBTGRAYOFFSET) of PILOTBBT - with (SETQ X (COND - (WindowYOffset (MOD (PLUS DTY WindowYOffset) - X)) - (T (IREMAINDER DTY X] - (replace (PILOTBBT PBTSOURCE) of PILOTBBT - with (\ADDBASE (ffetch (BITMAP BITMAPBASE) of Texture) - X]) - (MERGE (RETURN (RAID "Hard bitblt case"))) - (PROGN (* ; "INPUT or INVERT") - (replace (PILOTBBT PBTUSEGRAY) of PILOTBBT with NIL) - (replace (PILOTBBT PBTSOURCEBPL) of PILOTBBT - with (UNFOLD (SETQ SBMR (fetch (BITMAP BITMAPRASTERWIDTH) - of SourceBitMap)) - BITSPERWORD)) - (SETQ SOURCEADDR (\ADDBASE (fetch (BITMAP BITMAPBASE) of SourceBitMap) - (ITIMES SBMR STY))) - (* ; - "Combine Source base and top Y into a single Source word offset") - (replace (PILOTBBT PBTSOURCEBIT) of PILOTBBT with SLX) - [COND - ((NOT (EQ SourceBitMap DestinationBitMap)) - (* ; - "Assume distinct bitmaps do not overlap, i.e. that we do not have sub-bitmaps") - (replace (PILOTBBT PBTDISJOINT) of PILOTBBT with T)) - [(IGREATERP STY DTY) (* ; - "Source > Dest means we can go top to bottom always") - (COND - ((IGREATERP STY (IPLUS DTY HEIGHT)) - (* ; - "Dest ends before source starts, so is completely disjoint") - (replace (PILOTBBT PBTDISJOINT) of PILOTBBT with T)) - (T (* ; - "Not disjoint, but the items are disjoint") - (replace (PILOTBBT PBTDISJOINTITEMS) of PILOTBBT with - T] - ((IGREATERP DTY (IPLUS STY HEIGHT)) (* ; - "Source ends before dest starts, so is completely disjoint") - (replace (PILOTBBT PBTDISJOINT) of PILOTBBT with T)) - ([OR (NOT (EQ STY DTY)) - (AND (ILESSP SLX DLX) - (ILESSP DLX (IPLUS SLX (fetch (PILOTBBT PBTWIDTH) of - PILOTBBT - ] - - (* ;; "Not disjoint, with source above dest (bottom to top) or source and dest the same line with source to left of dest (right to left)") - - (replace (PILOTBBT PBTBACKWARD) of PILOTBBT with T) - (* ; - "What's more, the source and dest addresses are to be of the LAST item, and bpl is negative") - (* ; - "note SBMR = DBMR if we have gotten this far") - [SETQ SOURCEADDR (\ADDBASE SOURCEADDR (SETQ X (ITIMES SBMR (SUB1 HEIGHT] - (SETQ DESTADDR (\ADDBASE DESTADDR X)) - [replace (PILOTBBT PBTSOURCEBPL) of PILOTBBT - with (SETQ X (IMINUS (UNFOLD SBMR BITSPERWORD] - (replace (PILOTBBT PBTDESTBPL) of PILOTBBT with X) - (COND - ((NOT (EQ STY DTY)) (* ; "At least the items are disjoint") - (replace (PILOTBBT PBTDISJOINTITEMS) of PILOTBBT with T] - (replace (PILOTBBT PBTSOURCE) of PILOTBBT with SOURCEADDR))) - (replace (PILOTBBT PBTDEST) of PILOTBBT with DESTADDR) - (\SETPBTFUNCTION PILOTBBT SourceType Operation) - (RETURN (\PILOTBITBLT PILOTBBT 0]) + Texture WindowXOffset WindowYOffset) (* ; "Edited 29-Jun-88 16:24 by ") + + (* ;; "replaces \BITBLTSUB on Maiko") + + ((OPCODES SUBRCALL 69 13) + PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType Operation Texture + WindowXOffset WindowYOffset]) (\GETPILOTBBTSCRATCHBM [LAMBDA (WIDTH HEIGHT) @@ -1033,14 +911,9 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (\GETDISPLAYDATA DISPLAYSTREAM]) (\BLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; "Edited 25-Feb-94 16:44 by sybalsky") - - (* ;; "puts a character on a display stream. Much of the information needed by the BitBlt microcode is prestored by the routines that change it. This is kept in the BitBltTable.") - - (* ;; "knows about the representation of a DisplayStream.") - - (IMAGEOP 'IMBLTCHAR (SETQ DISPLAYSTREAM (\OUTSTREAMARG DISPLAYSTREAM)) - CHARCODE DISPLAYSTREAM DISPLAYDATA]) + [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) + ((OPCODES SUBRCALL 135 3) + CHARCODE DISPLAYSTREAM DISPLAYDATA]) (\MEDW.BLTCHAR [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* kbr%: "25-Feb-86 22:25") @@ -1482,14 +1355,14 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (CL:DEFUN FINISH-READING-BITMAP (STREAM) -(* ;;; "The syntax for bitmaps is") +(* ;;; "The syntax for bitmaps is") - (* ;; "#*(width height [bits-per-pixel])XXXXXX...") + (* ;; "#*(width height [bits-per-pixel])XXXXXX...") -(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits. There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows. Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's. Also, the character after the last X must not be of type OTHER.") +(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits. There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows. Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's. Also, the character after the last X must not be of type OTHER.") -(* ;;; -"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.") +(* ;;; +"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.") (LET ((DIMENSIONS (READ STREAM))) @@ -1499,12 +1372,12 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (DESTRUCTURING-BIND (WIDTH HEIGHT &OPTIONAL (BITS-PER-PIXEL 1) &REST EXTRAS) - DIMENSIONS (* ; "Parsing the dimensions.") - (IF (OR (NOT (FIXP WIDTH)) + DIMENSIONS (* ; "Parsing the dimensions.") + (if (OR (NOT (FIXP WIDTH)) (NOT (FIXP HEIGHT)) (NOT (FIXP BITS-PER-PIXEL)) (NOT (NULL EXTRAS))) - THEN (CL:ERROR "Bad bitmap dimension specification: ~S" DIMENSIONS)) + then (CL:ERROR "Bad bitmap dimension specification: ~S" DIMENSIONS)) (LET ((BITMAP NIL) (BASE NIL) @@ -1514,11 +1387,11 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. THEN (CL:DOTIMES (I (CL:* HEIGHT QUAD-CHARS-PER-ROW 4)) (CL:READ-CHAR STREAM)) ELSE (SETQ BITMAP (BITMAPCREATE WIDTH HEIGHT BITS-PER-PIXEL)) - (SETQ BASE (FETCH BITMAPBASE OF BITMAP)) + (SETQ BASE (fetch BITMAPBASE of BITMAP)) (LET [(STREAM (\GETSTREAM STREAM 'INPUT] (CL:DOTIMES (ROW HEIGHT) - [IF (ZEROP (FETCH (STREAM CHARSET) OF STREAM)) - THEN (* ; "Do it the quicker way") + [IF (ZEROP (fetch (STREAM CHARSET) of STREAM)) + THEN (* ; "Do it the quicker way") (CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW) (LET [(NIB00 (- (\BIN STREAM) (CHARCODE @))) @@ -1528,11 +1401,11 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (CHARCODE @))) (NIB11 (- (\BIN STREAM) (CHARCODE @] - (IF (OR (NOT (<= 0 NIB00 15)) + (if (OR (NOT (<= 0 NIB00 15)) (NOT (<= 0 NIB01 15)) (NOT (<= 0 NIB10 15)) (NOT (<= 0 NIB11 15))) - THEN (CL:ERROR + then (CL:ERROR "Illegal character in bitmap contents specification." )) (\PUTBASEBYTE BASE 0 (LOGOR (LLSH NIB00 4) @@ -1540,7 +1413,7 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (\PUTBASEBYTE BASE 1 (LOGOR (LLSH NIB10 4) NIB11))) (SETQ BASE (\ADDBASE BASE 1))) - ELSE (* ; "Somewhat slower...") + ELSE (* ; "Somewhat slower...") (CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW) (LET [(NIB00 (- (READCCODE STREAM) (CHARCODE @))) @@ -1550,11 +1423,11 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (CHARCODE @))) (NIB11 (- (READCCODE STREAM) (CHARCODE @] - (IF (OR (NOT (<= 0 NIB00 15)) + (if (OR (NOT (<= 0 NIB00 15)) (NOT (<= 0 NIB01 15)) (NOT (<= 0 NIB10 15)) (NOT (<= 0 NIB11 15))) - THEN (CL:ERROR + then (CL:ERROR "Illegal character in bitmap contents specification." )) (\PUTBASEBYTE BASE 0 (LOGOR (LLSH NIB00 4) @@ -1580,8 +1453,8 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA) - (* This marks the character-printing caches of the displaystream as invalid. - Needed when the font or Y position changes) + (* This marks the character-printing caches of the displaystream as invalid. + Needed when the font or Y position changes) (freplace (\DISPLAYDATA DDCHARSET) of DISPLAYDATA @@ -2775,8 +2648,8 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. of DD) CHARCODE))) -(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14") - (* Only for alto bitblt !!) +(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14") + (* Only for alto bitblt !!) (SELECTQ OP (replace 0 of NIL with NIL) (PAINT 1) @@ -2786,10 +2659,10 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (PUTPROPS \SFInvert MACRO ((BitMap y) - (* corrects for the fact that alto bitmaps are stored with 0,0 as upper left - while lisp bitmaps have 0,0 as lower left. - The correction is actually off by one (greater) because a majority of the - places that it is called actually need one more than corrected Y value.) + (* corrects for the fact that alto bitmaps are stored with 0,0 as upper left + while lisp bitmaps have 0,0 as lower left. + The correction is actually off by one (greater) because a majority of the + places that it is called actually need one more than corrected Y value.) (IDIFFERENCE (fetch (BITMAP BITMAPHEIGHT) of BitMap) y))) @@ -3357,16 +3230,16 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. ((FMEMB (DSPDESTINATION NIL DS) \SCREENBITMAPS) (\TOTOPWDS DS]) - (PUTPROPS \INSURETOPWDS MACRO ((DS) (* For non-window implementations) + (PUTPROPS \INSURETOPWDS MACRO ((DS) (* For non-window implementations) (PROGN)))] (PUTPROPS .WHILE.TOP.DS. MACRO [(FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) - (* FIRST should be a displaystream and a variable. - This macro may also take a soft cursor down, similar to the way - .WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the - soft cursor's destination. *) + (* FIRST should be a displaystream and a variable. + This macro may also take a soft cursor down, similar to the way + .WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the + soft cursor's destination. *) [COND (\SOFTCURSORP (SETQ SOFTCURSORUP @@ -3389,11 +3262,11 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (PUTPROPS .WHILE.CURSOR.DOWN. MACRO [(FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) - (* This macro should wrap around any code that draws or bitblts directly from - or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box - during GETREGION. The purpose of this macro is that a soft - (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST - are done. *) + (* This macro should wrap around any code that draws or bitblts directly from + or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box + during GETREGION. The purpose of this macro is that a soft + (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST + are done. *) [COND (\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP @@ -3601,9 +3474,9 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (DEFMACRO \MAYBE-DRIBBLE-CHAR (DISPLAY-STREAM CHARCODE) "if we are dribbling, then dribble this character" - (* ;; "*DRIBBLE-OUTPUT* is a per-process special.") + (* ;; "*DRIBBLE-OUTPUT* is a per-process special.") - (* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!") + (* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!") `(AND *DRIBBLE-OUTPUT* (STREAMP *DRIBBLE-OUTPUT*) (EQ ,DISPLAY-STREAM (TTYDISPLAYSTREAM)) @@ -4129,20 +4002,20 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. (DECLARE%: DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into - the destination coordinate.) +(PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into + the destination coordinate.) (IPLUS X (fetch (\DISPLAYDATA DDXOFFSET) of DD)))) -(PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into - the destination coordinate.) +(PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into + the destination coordinate.) (IPLUS Y (fetch (\DISPLAYDATA DDYOFFSET) of DD)))) -(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate - address of the origin.) +(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate + address of the origin.) (fetch (\DISPLAYDATA DDYOFFSET) of X))) -(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display - data destination coordinates.) +(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display + data destination coordinates.) (fetch (\DISPLAYDATA DDXOFFSET) of DD))) ) @@ -4476,7 +4349,7 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation. ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) +(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T)) (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted)) @@ -4528,42 +4401,42 @@ 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 (20544 23212 (\FBITMAPBIT 20554 . 21014) (\FBITMAPBIT.UFN 21016 . 22035) ( -\NEWPAGE.DISPLAY 22037 . 22172) (INITBITMASKS 22174 . 23210)) (25257 25766 (\CreateCursorBitMap 25267 - . 25764)) (25883 84971 (BITBLT 25893 . 36283) (BLTSHADE 36285 . 37063) (\BITBLTSUB 37065 . 47200) ( -\GETPILOTBBTSCRATCHBM 47202 . 47817) (BITMAPCOPY 47819 . 48395) (BITMAPCREATE 48397 . 49957) ( -BITMAPBIT 49959 . 58346) (BLTCHAR 58348 . 58964) (\BLTCHAR 58966 . 59468) (\MEDW.BLTCHAR 59470 . 64348 -) (\CHANGECHARSET.DISPLAY 64350 . 67308) (\INDICATESTRING 67310 . 68506) (\SLOWBLTCHAR 68508 . 75604) -(TEXTUREP 75606 . 75876) (INVERT.TEXTURE 75878 . 76152) (INVERT.TEXTURE.BITMAP 76154 . 77689) ( -BITMAPWIDTH 77691 . 78063) (READBITMAP 78065 . 80575) (\INSUREBITSPERPIXEL 80577 . 80872) ( -MAXIMUMCOLOR 80874 . 81015) (OPPOSITECOLOR 81017 . 81196) (MAXIMUMSHADE 81198 . 81409) (OPPOSITESHADE -81411 . 81590) (\MEDW.BITBLT 81592 . 84969)) (84973 90288 (FINISH-READING-BITMAP 84973 . 90288)) ( -91551 92032 (BITMAPBIT.EXPANDER 91561 . 92030)) (92033 140567 (\BITBLT.DISPLAY 92043 . 115282) ( -\BITBLT.BITMAP 115284 . 124383) (\BITBLT.MERGE 124385 . 126638) (\BLTSHADE.DISPLAY 126640 . 133740) ( -\BLTSHADE.BITMAP 133742 . 140565)) (140568 149888 (\BITBLT.BITMAP.SLOW 140578 . 149886)) (149889 -166270 (\PUNT.BLTSHADE.BITMAP 149899 . 156995) (\PUNT.BITBLT.BITMAP 156997 . 166268)) (166271 169711 ( -\SCALEDBITBLT.DISPLAY 166281 . 167914) (\BACKCOLOR.DISPLAY 167916 . 169709)) (174029 176302 ( -DISPLAYSTREAMP 174039 . 174647) (DSPSOURCETYPE 174649 . 175658) (DSPXOFFSET 175660 . 175979) ( -DSPYOFFSET 175981 . 176300)) (176303 192604 (DSPCREATE 176313 . 178417) (DSPDESTINATION 178419 . -181522) (DSPTEXTURE 181524 . 181686) (\DISPLAYSTREAMINCRXPOSITION 181688 . 181975) (\SFFixDestination -181977 . 183155) (\SFFixClippingRegion 183157 . 185329) (\SFFixFont 185331 . 186381) (\SFFIXLINELENGTH - 186383 . 187879) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187881 . 189694) (\SFFixY 189696 . 192602)) - (192605 194799 (\MEDW.XOFFSET 192615 . 193756) (\MEDW.YOFFSET 193758 . 194797)) (194800 202726 ( -\DSPCLIPPINGREGION.DISPLAY 194810 . 195556) (\DSPFONT.DISPLAY 195558 . 197928) (\DISPLAY.PILOTBITBLT -197930 . 198079) (\DSPLINEFEED.DISPLAY 198081 . 198652) (\DSPLEFTMARGIN.DISPLAY 198654 . 199385) ( -\DSPOPERATION.DISPLAY 199387 . 200411) (\DSPRIGHTMARGIN.DISPLAY 200413 . 201258) ( -\DSPXPOSITION.DISPLAY 201260 . 202117) (\DSPYPOSITION.DISPLAY 202119 . 202724)) (207496 212532 ( -TTYDISPLAYSTREAM 207506 . 212530)) (212851 213881 (DSPSCROLL 212861 . 213561) (PAGEHEIGHT 213563 . -213879)) (213926 216948 (\DSPRESET.DISPLAY 213936 . 216946)) (217508 238146 (\DSPPRINTCHAR 217518 . -225356) (\DSPPRINTCR/LF 225358 . 238144)) (238147 238739 (\TTYBACKGROUND 238157 . 238737)) (238740 -242027 (DSPBACKUP 238750 . 242025)) (242211 242467 (COLORDISPLAYP 242221 . 242465)) (242468 244539 ( -DISPLAYBEFOREEXIT 242478 . 243304) (DISPLAYAFTERENTRY 243306 . 244537)) (244919 249451 ( -\DSPCLIPTRANSFORMX 244929 . 245518) (\DSPCLIPTRANSFORMY 245520 . 246245) (\DSPTRANSFORMREGION 246247 - . 246779) (\DSPUNTRANSFORMY 246781 . 247041) (\DSPUNTRANSFORMX 247043 . 247303) ( -\OFFSETCLIPPINGREGION 247305 . 249449)) (250757 253344 (UPDATESCREENDIMENSIONS 250767 . 251396) ( -\CreateScreenBitMap 251398 . 253342)) (253903 267062 (\CoerceToDisplayDevice 253913 . 254326) ( -\CREATEDISPLAY 254328 . 256168) (DISPLAYSTREAMINIT 256170 . 259314) (\STARTDISPLAY 259316 . 262227) ( -\MOVE.WINDOWS.ONTO.SCREEN 262229 . 264421) (\UPDATE.PBT.RASTERWIDTHS 264423 . 266205) (\STOPDISPLAY -266207 . 266699) (\DEFINEDISPLAYINFO 266701 . 267060)) (267670 268431 (INITIALIZEDISPLAYSTREAMS 267680 - . 268429))))) + (FILEMAP (NIL (20494 23162 (\FBITMAPBIT 20504 . 20964) (\FBITMAPBIT.UFN 20966 . 21985) ( +\NEWPAGE.DISPLAY 21987 . 22122) (INITBITMASKS 22124 . 23160)) (25207 25716 (\CreateCursorBitMap 25217 + . 25714)) (25833 74838 (BITBLT 25843 . 36233) (BLTSHADE 36235 . 37013) (\BITBLTSUB 37015 . 37437) ( +\GETPILOTBBTSCRATCHBM 37439 . 38054) (BITMAPCOPY 38056 . 38632) (BITMAPCREATE 38634 . 40194) ( +BITMAPBIT 40196 . 48583) (BLTCHAR 48585 . 49201) (\BLTCHAR 49203 . 49335) (\MEDW.BLTCHAR 49337 . 54215 +) (\CHANGECHARSET.DISPLAY 54217 . 57175) (\INDICATESTRING 57177 . 58373) (\SLOWBLTCHAR 58375 . 65471) +(TEXTUREP 65473 . 65743) (INVERT.TEXTURE 65745 . 66019) (INVERT.TEXTURE.BITMAP 66021 . 67556) ( +BITMAPWIDTH 67558 . 67930) (READBITMAP 67932 . 70442) (\INSUREBITSPERPIXEL 70444 . 70739) ( +MAXIMUMCOLOR 70741 . 70882) (OPPOSITECOLOR 70884 . 71063) (MAXIMUMSHADE 71065 . 71276) (OPPOSITESHADE +71278 . 71457) (\MEDW.BITBLT 71459 . 74836)) (74840 80155 (FINISH-READING-BITMAP 74840 . 80155)) ( +81418 81899 (BITMAPBIT.EXPANDER 81428 . 81897)) (81900 130434 (\BITBLT.DISPLAY 81910 . 105149) ( +\BITBLT.BITMAP 105151 . 114250) (\BITBLT.MERGE 114252 . 116505) (\BLTSHADE.DISPLAY 116507 . 123607) ( +\BLTSHADE.BITMAP 123609 . 130432)) (130435 139755 (\BITBLT.BITMAP.SLOW 130445 . 139753)) (139756 +156137 (\PUNT.BLTSHADE.BITMAP 139766 . 146862) (\PUNT.BITBLT.BITMAP 146864 . 156135)) (156138 159578 ( +\SCALEDBITBLT.DISPLAY 156148 . 157781) (\BACKCOLOR.DISPLAY 157783 . 159576)) (163896 166169 ( +DISPLAYSTREAMP 163906 . 164514) (DSPSOURCETYPE 164516 . 165525) (DSPXOFFSET 165527 . 165846) ( +DSPYOFFSET 165848 . 166167)) (166170 182471 (DSPCREATE 166180 . 168284) (DSPDESTINATION 168286 . +171389) (DSPTEXTURE 171391 . 171553) (\DISPLAYSTREAMINCRXPOSITION 171555 . 171842) (\SFFixDestination +171844 . 173022) (\SFFixClippingRegion 173024 . 175196) (\SFFixFont 175198 . 176248) (\SFFIXLINELENGTH + 176250 . 177746) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 177748 . 179561) (\SFFixY 179563 . 182469)) + (182472 184666 (\MEDW.XOFFSET 182482 . 183623) (\MEDW.YOFFSET 183625 . 184664)) (184667 192593 ( +\DSPCLIPPINGREGION.DISPLAY 184677 . 185423) (\DSPFONT.DISPLAY 185425 . 187795) (\DISPLAY.PILOTBITBLT +187797 . 187946) (\DSPLINEFEED.DISPLAY 187948 . 188519) (\DSPLEFTMARGIN.DISPLAY 188521 . 189252) ( +\DSPOPERATION.DISPLAY 189254 . 190278) (\DSPRIGHTMARGIN.DISPLAY 190280 . 191125) ( +\DSPXPOSITION.DISPLAY 191127 . 191984) (\DSPYPOSITION.DISPLAY 191986 . 192591)) (197363 202399 ( +TTYDISPLAYSTREAM 197373 . 202397)) (202718 203748 (DSPSCROLL 202728 . 203428) (PAGEHEIGHT 203430 . +203746)) (203793 206815 (\DSPRESET.DISPLAY 203803 . 206813)) (207375 228013 (\DSPPRINTCHAR 207385 . +215223) (\DSPPRINTCR/LF 215225 . 228011)) (228014 228606 (\TTYBACKGROUND 228024 . 228604)) (228607 +231894 (DSPBACKUP 228617 . 231892)) (232078 232334 (COLORDISPLAYP 232088 . 232332)) (232335 234406 ( +DISPLAYBEFOREEXIT 232345 . 233171) (DISPLAYAFTERENTRY 233173 . 234404)) (234786 239318 ( +\DSPCLIPTRANSFORMX 234796 . 235385) (\DSPCLIPTRANSFORMY 235387 . 236112) (\DSPTRANSFORMREGION 236114 + . 236646) (\DSPUNTRANSFORMY 236648 . 236908) (\DSPUNTRANSFORMX 236910 . 237170) ( +\OFFSETCLIPPINGREGION 237172 . 239316)) (240624 243211 (UPDATESCREENDIMENSIONS 240634 . 241263) ( +\CreateScreenBitMap 241265 . 243209)) (243770 256929 (\CoerceToDisplayDevice 243780 . 244193) ( +\CREATEDISPLAY 244195 . 246035) (DISPLAYSTREAMINIT 246037 . 249181) (\STARTDISPLAY 249183 . 252094) ( +\MOVE.WINDOWS.ONTO.SCREEN 252096 . 254288) (\UPDATE.PBT.RASTERWIDTHS 254290 . 256072) (\STOPDISPLAY +256074 . 256566) (\DEFINEDISPLAYINFO 256568 . 256927)) (257537 258298 (INITIALIZEDISPLAYSTREAMS 257547 + . 258296))))) STOP diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM index e2aa806d4..4101ee9ae 100644 --- a/sources/LLDISPLAY.LCOM +++ b/sources/LLDISPLAY.LCOM @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Sep-2021 16:23:29" ("compiled on " -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;10) " 6-Sep-2021 15:59:15" -"COMPILE-FILEd" in "FULL 6-Sep-2021 ..." dated " 6-Sep-2021 15:59:21") -(FILECREATED " 8-Aug-2021 00:19:22" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7 - 268927 changes to%: (FNS READBITMAP) previous date%: " 1-Aug-2021 23:41:37" -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6) + +(FILECREATED "25-Oct-2021 17:22:22" ("compiled on " {DSK}larry>medley>sources>LLDISPLAY.;2) +"23-Oct-2021 14:55:09" "COMPILE-FILEd" in "FULL 22-Oct-2021 ..." dated "22-Oct-2021 22:15:17") +(FILECREATED "25-Oct-2021 17:22:22" {DSK}larry>medley>sources>LLDISPLAY.;2 258794 changes to%: ( +FNS \BITBLTSUB \BLTCHAR) previous date%: " 8-Aug-2021 00:19:22" +{DSK}larry>medley>sources>LLDISPLAY.;1) (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 @@ -93,10 +93,10 @@ POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 PO (31 READ 21 ERASE 9 INVERT) () \FBITMAPBIT.UFN :D8 -(P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) @DBEA`AlHHl -IBKJ\j#LkJ_JCdjOKD jk*O`Al]Ml -NClOOK(137 \GETBASEFIXP 95 \FZEROP 45 \GETBASEFIXP) -(130 ARRAYP 122 ARRAYP 111 NOTBITMASKARRAY 38 ARRAYP 30 ARRAYP 17 BITMASKARRAY) +(P 3 BITMASK P 2 WORDBASE I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) @DBEA`AlHHl +IBKJ\j#LkJ_JCdjOK: jk O`Al]Ml +NClOOK(117 \GETBASEFIXP 85 \FZEROP 35 \GETBASEFIXP) +(101 NOTBITMASKARRAY 17 BITMASKARRAY) () \NEWPAGE.DISPLAY :D8 (I 0 STREAM) @ (5 DSPRESET) @@ -120,43 +120,32 @@ 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 \SCREENBITMAPS)  DjbEjb -GgNCdGCDEFGGG gh H.GHDEFGGGlI@@d]AjbBjb@ABF3@b G@b@BٽdMM@AټdLɿLgh 0XAH +(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 \SCREENBITMAPS) R DjbEjb +GgDCdGCDEFGGG gh H.GHDEFGGGlI@@dIAjbBjb@ABF$@b G @b@BٽdMM@AټdLؿLgh 0XaAH bBH -bHAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdϿ@ h__`>`h@gh +bHAHbH"dNNBHbH$_dOOF?H#Jb G H%KbGH6bFj Gj*hH%K_dOۿOH#J_dO񲼿OCdϿ@ h__`>`h@gh `_`_`j@gh _`hO -W&O IABCDEFGGGGGJK O^`OJIABCDEFGGGGGJK gh _@C@ C @dC +W&O IABCDEFGGGGGJK OT`O@IABCDEFGGGGGJK gh _@C@ C @dC ʿh__ _"`>`h@gh `_"`_ `j@gh _`hO W&O IABFG _jdFGgg -O"`O OjdODEFGGGGG @ O._$IABODEFGGGGGJKlO$h(893 TOTOPW 886 BKBITBLT 850 \SOFTCURSORUPCURRENT 841 BKBITBLT 818 BITMAPCREATE 806 \TOTOPWDS 795 DSPDESTINATION 777 \GETSTREAM 764 \SOFTCURSORDOWN 730 DSPDESTINATION 725 \GETSTREAM 685 WOVERLAPP 673 WINDOWP 663 WINDOWP 648 \GETSTREAM 636 \BITBLT.BITMAP 597 \SOFTCURSORUPCURRENT 584 \BITBLT.BITMAP 558 \TOTOPWDS 547 DSPDESTINATION 529 \GETSTREAM 516 \SOFTCURSORDOWN 482 DSPDESTINATION 477 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) -(908 IMAGEOPS 901 STREAM 856 \EM.DISPINTERRUPT 835 REPLACE 830 INPUT 784 \TOPWDS 771 OUTPUT 755 \EM.DISPINTERRUPT 745 \EM.DISPINTERRUPT 735 \CURSORDESTINATION 719 OUTPUT 710 \SOFTCURSORUPP 703 \SOFTCURSORP 642 OUTPUT 603 \EM.DISPINTERRUPT 536 \TOPWDS 523 OUTPUT 507 \EM.DISPINTERRUPT 497 \EM.DISPINTERRUPT 487 \CURSORDESTINATION 471 OUTPUT 462 \SOFTCURSORUPP 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(811 TOTOPW 804 BKBITBLT 768 \SOFTCURSORUPCURRENT 759 BKBITBLT 736 BITMAPCREATE 724 \TOTOPWDS 713 DSPDESTINATION 695 \GETSTREAM 682 \SOFTCURSORDOWN 648 DSPDESTINATION 643 \GETSTREAM 603 WOVERLAPP 591 WINDOWP 581 WINDOWP 566 \GETSTREAM 554 \BITBLT.BITMAP 515 \SOFTCURSORUPCURRENT 502 \BITBLT.BITMAP 476 \TOTOPWDS 465 DSPDESTINATION 447 \GETSTREAM 434 \SOFTCURSORDOWN 400 DSPDESTINATION 395 \GETSTREAM 358 WINDOWP 184 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) +(774 \EM.DISPINTERRUPT 753 REPLACE 748 INPUT 702 \TOPWDS 689 OUTPUT 673 \EM.DISPINTERRUPT 663 \EM.DISPINTERRUPT 653 \CURSORDESTINATION 637 OUTPUT 628 \SOFTCURSORUPP 621 \SOFTCURSORP 560 OUTPUT 521 \EM.DISPINTERRUPT 454 \TOPWDS 441 OUTPUT 425 \EM.DISPINTERRUPT 415 \EM.DISPINTERRUPT 405 \CURSORDESTINATION 389 OUTPUT 380 \SOFTCURSORUPP 373 \SOFTCURSORP 347 BITMAP 191 \DISPLAYDATA 178 OUTPUT 100 BITMAP 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@ABjCjDEFG gh H.@HBjCjDEFdH -GlI(82 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP) -(58 IMAGEOPS 51 STREAM 36 OUTPUT 6 BITMAP) +(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) QAd@ABjCjDEFG gh H.@HBjCjDEFdH +GlI(72 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP) +(36 OUTPUT 6 BITMAP) () \BITBLTSUB :D8 -(P 5 X P 4 DESTADDR P 3 SOURCEADDR P 2 GRAY P 1 SBMR P 0 DBMR 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)   DX@j -@HnDHF\@EGdgH@k -0@GEGـEl@jG3 `ZGnbjGnJGjJG^dNdJGl_dOdJGl_dOdJGl_dOd@lÿ@GFGԀFl_CO_@O@O6@Gbdll]kÿ@GFGM -FM]CGM_@O@Ogo @j -0@AYnAICл@BAD@k -|CFCFGk@k -iFCG@k -[CFEBREB@C@k -KIGk]лLMм@jI]n@MnCF@k - @K@K@L@L@GdgkglGglj -Q@GgGgjk -@@jv(414 RAID 356 IMOD) -(705 ERASE 697 INVERT 679 INVERT 667 PAINT 656 ERASE 643 PILOTBBT 632 PILOTBBT 621 PILOTBBT 610 PILOTBBT 586 PILOTBBT 565 PILOTBBT 532 PILOTBBT 466 PILOTBBT 453 BITMAP 433 BITMAP 427 PILOTBBT 402 MERGE 392 PILOTBBT 380 PILOTBBT 323 BITMAP 310 PILOTBBT 298 PILOTBBT 128 BITMAP 123 \SYSBBTEXTURE 106 PILOTBBT 85 PILOTBBT 67 TEXTURE 56 PILOTBBT 43 BITMAP 26 PILOTBBT 17 PILOTBBT 8 BITMAP) -( 409 "Hard bitblt case") +(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)  @ABCDEFGGGGGG}E NIL +NIL +() \GETPILOTBBTSCRATCHBM :D8 -(I 1 HEIGHT I 0 WIDTH) ?`'@`A``@A -(55 BITMAPCREATE) -(60 \PILOTBBTSCRATCHBM 47 \PILOTBBTSCRATCHBM 38 BITMAP 33 \PILOTBBTSCRATCHBM 22 BITMAP 17 \PILOTBBTSCRATCHBM 9 BITMAP 4 \PILOTBBTSCRATCHBM) +(I 1 HEIGHT I 0 WIDTH) 7`@d`A``@A +(47 BITMAPCREATE) +(52 \PILOTBBTSCRATCHBM 39 \PILOTBBTSCRATCHBM 30 \PILOTBBTSCRATCHBM 18 \PILOTBBTSCRATCHBM 9 BITMAP 4 \PILOTBBTSCRATCHBM) () BITMAPCOPY :D8 (P 0 NEWBITMAP I 0 BITMAP) 7@bjd@ @@ Xjdhdggj H(51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH) @@ -168,42 +157,42 @@ 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 \SCREENBITMAPS)  -@+@XjA A@jBB@\Hk[Cdj@ABkLk@h8@ABlLk@h8@ABlLk@h8@@Bk@^CjCC@ C HdkcAZNJ]`Al__Ol -OYC MIj jjNJMImNJMIklmAlYdZNJ]d`Al__Ol +(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 \SCREENBITMAPS)  +@@XjAA@jBB@\Hk=Cdj@ABkLk@h8@ABlLk@h8@ABlLk@h8@@Bk@^CjCC@ C HdkYAZNJ]`Al__Ol +OYC MIj jjNJMImNJMIklcAlYdZNJ]d`Al__Ol O[CNJMKCllAl KllAl HdlKAlYdZAkjNJ]nCNJMKCKNJ]lC1NJMKC$l!AlYdZNA [CNAC KoH -0 @gh b0_AO +0 @gh b0_AO _BO -_Od `3`h@ +_Od `3`h@ `_`_`j@`h@ -W @ OOOC_O`OO(739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 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) -(745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 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) -( 557 "unknown bits per pixel size.") +W @ OOOC_O`OO(644 \SOFTCURSORUPCURRENT 621 \TOTOPWDS 611 DSPDESTINATION 594 \SOFTCURSORDOWN 560 DSPDESTINATION 523 \DSPCLIPTRANSFORMY 513 \DSPCLIPTRANSFORMX 494 \GETSTREAM 478 ERROR 465 \PUTBASE24 454 \GETBASE24 350 LRSH 330 LLSH 297 \GETBASEFIXP 200 \GETBASEFIXP 155 \ILLEGAL.ARG 147 MAXIMUMCOLOR) +(650 \EM.DISPINTERRUPT 601 \TOPWDS 585 \EM.DISPINTERRUPT 575 \EM.DISPINTERRUPT 565 \CURSORDESTINATION 551 \SOFTCURSORUPP 544 \SOFTCURSORP 503 \DISPLAYDATA 488 OUTPUT 277 4BITMASKARRAY 180 BITMASKARRAY 8 BITMAP) +( 472 "unknown bits per pixel size.") BLTCHAR :D8 -(I 1 DISPLAYSTREAM I 0 CHARCODE) 2@dj@@@ Adgh 0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG) -(42 \DISPLAYDATA 35 STREAM 24 OUTPUT) +(I 1 DISPLAYSTREAM I 0 CHARCODE) -@dj@@@ Adgh 0 (42 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG) +(37 \DISPLAYDATA 24 OUTPUT) () \BLTCHAR :D8 -(P 0 A0241 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh b.Z@ABlH(11 \GETSTREAM) -(25 IMAGEOPS 18 STREAM 5 OUTPUT) +(I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) @AB}NIL +NIL () \MEDW.BLTCHAR :D8 -(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SCREENBITMAPS) p@l\Bd>@@ +(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SCREENBITMAPS) p@l\Bd>@@ B@A B[B0LYBKBl A -BKBLBKHػIHYB#XHKB"XKHIJB*X jh]`0`hA +BKBLBKHػIHYB#XHKB"XKHlJB*X jh]`0`hA `^``jA`hA -WA HJHIJHBLJKHjvN`Mih(261 \SOFTCURSORUPCURRENT 222 \TOTOPWDS 212 DSPDESTINATION 195 \SOFTCURSORDOWN 164 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) -(267 \EM.DISPINTERRUPT 202 \TOPWDS 186 \EM.DISPINTERRUPT 178 \EM.DISPINTERRUPT 169 \CURSORDESTINATION 155 \SOFTCURSORUPP 148 \SOFTCURSORP 132 PILOTBBT) +WA HJHIJHBLJKHjvN`Mih(257 \SOFTCURSORUPCURRENT 218 \TOTOPWDS 208 DSPDESTINATION 191 \SOFTCURSORDOWN 160 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) +(263 \EM.DISPINTERRUPT 198 \TOPWDS 182 \EM.DISPINTERRUPT 174 \EM.DISPINTERRUPT 165 \CURSORDESTINATION 151 \SOFTCURSORUPP 144 \SOFTCURSORP) () \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@I0@A>IHJn@'I +(P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) @*@ A A@ h "@I@I@I0@A>IHJn@'I @@I @I -#JJ@BлHKHKh(98 \SFFixY 24 \CREATECHARSET) -(130 PILOTBBT 119 PILOTBBT) +JJ@BлHKHKh(98 \SFFixY 24 \CREATECHARSET) +NIL () \INDICATESTRINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) Hgd gi @@ -215,8 +204,8 @@ 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 \SCREENBITMAPS) T@@lYA0Zd Xdj J_JI\Jl A -J_JIؼJLOJ_J"dOOJ#LJػdKKJ*_NMO j +(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 \SCREENBITMAPS) K@@lYA0Zd Xdj~ J_JI\Jl A +J_JIؼJLOJ_J"dOOJ#LJػdKKJ*_lMO j M_NM_JIMO_JdkadlO_O_O_DdlO_O_O_$llO_lO_lO_ `3`hA `_`_`jA`hA W"A OOOOOOOjvO`O0J_JI_J @ @J h _ HdlZ;AOO @@ -224,12 +213,13 @@ M_ kOO O O Hn8AOO O jJIAJO JO -O O o h(592 ERROR 581 BKBITBLT 539 \DSPYPOSITION.DISPLAY 520 BKBITBLT 477 \DSPYPOSITION.DISPLAY 455 \CREATECHARSET 396 \SOFTCURSORUPCURRENT 361 \TOTOPWDS 351 DSPDESTINATION 334 \SOFTCURSORDOWN 300 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF) -(402 \EM.DISPINTERRUPT 341 \TOPWDS 325 \EM.DISPINTERRUPT 315 \EM.DISPINTERRUPT 305 \CURSORDESTINATION 291 \SOFTCURSORUPP 284 \SOFTCURSORP 111 \DISPLAYDATA 83 \DISPLAYDATA) -( 587 "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 291 DSPDESTINATION 266 SHOULDNT 55 \DSPPRINTCR/LF) +(393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 296 \CURSORDESTINATION 282 \SOFTCURSORUPP 275 \SOFTCURSORP) +( 578 "Not implemented to rotate by other than 0, 90 or 270") TEXTUREP :D8 -(I 0 OBJECT) @d3 @k@NIL -(18 BITMAP 10 BITMAP) +(I 0 OBJECT) @d3 +@k@NIL +(9 BITMAP) () INVERT.TEXTURE :D8 (I 1 SCRATCHBM I 0 TEXTURE) @d3 nnA @@ -237,9 +227,9 @@ INVERT.TEXTURE :D8 NIL () INVERT.TEXTURE.BITMAP :D8 -(P 0 NEWBM I 1 SCRATCHBM I 0 BM) @k@ A)Ak@AA Al@ -H@H@IdKHJnJkкIkY(79 BITMAPCREATE 61 \ILLEGAL.ARG 16 \ILLEGAL.ARG) -(112 BITMAP 104 BITMAP 96 BITMAP 88 BITMAP 72 BITMAP 51 BITMAP 43 BITMAP 31 BITMAP 23 BITMAP 5 BITMAP) +(I 1 SCRATCHBM I 0 BM) e@k@ AAk@AA Al@ +H@H@IdKHJnJkкIkY(53 BITMAPCREATE 40 \ILLEGAL.ARG 11 \ILLEGAL.ARG) +(18 BITMAP) () BITMAPWIDTH :D8 (I 0 BITMAP) &@@@@g @@ -247,10 +237,10 @@ BITMAPWIDTH :D8 (23 WIDTH 16 WINDOW 5 BITMAP) () READBITMAP :D8 -(P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) @ @ go @ @ @g -CJ dgdgk@ ^HlHIN \IjJ gjIdjtJ J l"QMdj@KjJ l@J l@ǿKkJ l@J l@ǿKkлkٰJ l"o hkٰJ J l)L(270 \INCCODE 263 SKIPSEPRS 250 ERROR 235 \INCCODE 214 \INCCODE 201 \INCCODE 187 \INCCODE 174 \INCCODE 155 \INCCODE 148 SKIPSEPRS 128 SKIPSEPRS 106 BITMAPCREATE 87 RATOM 61 SKIPSEPRS 52 GETSTREAM 41 RATOM 35 RATOM 28 ERROR 11 READC 5 SKIPSEPRS) -(133 %" 112 BITMAP 75 %) 67 %" 47 INPUT 16 %() -( 245 "BAD FORMAT OF BITMAP IN FILE" 23 "BAD FORMAT OF BITMAP IN FILE") +(P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) @ @ go @ @ @g +CJ dgdgk@ ^HlHIN \IjJ gjIdjtJ J l"QMdj@KjJ l@J l@ǿKkJ l@J l@ǿKkлkٰJ l"o hkٰJ J l)L(265 \INCCODE 258 SKIPSEPRS 245 ERROR 230 \INCCODE 209 \INCCODE 196 \INCCODE 182 \INCCODE 169 \INCCODE 150 \INCCODE 143 SKIPSEPRS 123 SKIPSEPRS 106 BITMAPCREATE 87 RATOM 61 SKIPSEPRS 52 GETSTREAM 41 RATOM 35 RATOM 28 ERROR 11 READC 5 SKIPSEPRS) +(128 %" 75 %) 67 %" 47 INPUT 16 %() +( 240 "BAD FORMAT OF BITMAP IN FILE" 23 "BAD FORMAT OF BITMAP IN FILE") \INSUREBITSPERPIXEL :D8 (I 0 NBITS) #@dkdkdldldl (32 \ILLEGAL.ARG) NIL @@ -274,23 +264,23 @@ OPPOSITESHADE :D8 NIL () \MEDW.BITBLT :D8 -(P 9 A0244 P 8 A0243 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0242 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 0H2HH2@ABCDEFGGGGGABlJCC@i -!@gh 0AIصABIصBK2J_K2INOCDEFGGGGGNI"dLLOI$dMMlO@ +(P 9 A3211 P 8 A3210 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A3209 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 @F@CCi +Cgh 0H2HH2@ABCDEFGGGGGABlJ4C}Cz@i +!@gh 0AIصABIصBK2J_K2INOCDEFGGGGGNI"dLLOI$dMMlO@ hC -@i -!@gh 0AIصABIصB@`h@ -W@ K2L K2INOCDEFGGGGGNI"dLLOI$dMMlOo i(524 SHOULDNT 418 \TOTOPWDS 408 DSPDESTINATION 345 \GETSTREAM 330 WFROMDS 318 DSPDESTINATION 311 DSPDESTINATION 162 \GETSTREAM 147 WFROMDS 55 \GETSTREAM 43 WFROMDS 24 SHOULDNT 13 IMAGESTREAMP 5 IMAGESTREAMP) -(494 \DISPLAYDATA 477 \DISPLAYDATA 451 \DISPLAYDATA 443 WINDOW 432 SCREEN 425 WINDOW 398 \TOPWDS 383 \DISPLAYDATA 367 \DISPLAYDATA 357 \DISPLAYDATA 350 STREAM 339 OUTPUT 284 \DISPLAYDATA 267 \DISPLAYDATA 241 \DISPLAYDATA 233 WINDOW 222 SCREEN 215 WINDOW 200 \DISPLAYDATA 184 \DISPLAYDATA 174 \DISPLAYDATA 167 STREAM 156 OUTPUT 127 BITMAP 92 WINDOW 83 SCREEN 76 WINDOW 67 \DISPLAYDATA 60 STREAM 49 OUTPUT 31 BITMAP) -( 519 "Invalid argument to \XW.BIBLT" 19 "Neither SOURCE nor DESTINATION is an imagestream.") +@i +!@gh 0AIصABIصB@`h@ +W@ K2L K2INOCDEFGGGGGNI"dLLOI$dMMlOo i(406 SHOULDNT 330 \TOTOPWDS 320 DSPDESTINATION 272 \GETSTREAM 257 WFROMDS 245 DSPDESTINATION 238 DSPDESTINATION 134 \GETSTREAM 119 WFROMDS 55 \GETSTREAM 43 WFROMDS 24 SHOULDNT 13 IMAGESTREAMP 5 IMAGESTREAMP) +(310 \TOPWDS 279 \DISPLAYDATA 266 OUTPUT 141 \DISPLAYDATA 128 OUTPUT 107 BITMAP 62 \DISPLAYDATA 49 OUTPUT 31 BITMAP) +( 401 "Invalid argument to \XW.BIBLT" 19 "Neither SOURCE nor DESTINATION is an imagestream.") FINISH-READING-BITMAP :D8 -(L (0 STREAM) F 29 *READ-SUPPRESS*) (@  HdoH +(L (0 STREAM) F 29 *READ-SUPPRESS*) @  HdoH YI[K]LkM_J3 L3 N3 OoH -JNl!W:,LO$lj__OOO&@ Ok_JLN _&_(@g -_"Lj_ _OO O"_jOO$j__OO6O" l@O" l@O" l@O" l@jO*-O*l&jO, O,ljO.O.ljO0O0lo O(jO*O,ǿO(kO.O0O(k_(Ok_f TO$j__OOO" l@O" l@O" l@O" l@jO2-O2l&jO4 O4ljO6O6ljO8O8lo O(jO2O4ǿO(kO6O8O(k_(Ok_vO k_ (494 CL:ERROR 386 \FZEROP 335 CL:ERROR 270 READCCODE 260 READCCODE 250 READCCODE 240 READCCODE 169 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ) -(194 STREAM 164 INPUT 153 BITMAP) -( 489 "Illegal character in bitmap contents specification." 330 "Illegal character in bitmap contents specification." +JNl!W:,LO$lj__OOO&@ Ok_JLN _&_(@g +_"Lj_ _OO O"_jOO$j__OO6O" l@O" l@O" l@O" l@jO*-O*l&jO, O,ljO.O.ljO0O0lo O(jO*O,ǿO(kO.O0O(k_(Ok_f TO$j__OOO" l@O" l@O" l@O" l@jO2-O2l&jO4 O4ljO6O6ljO8O8lo O(jO2O4ǿO(kO6O8O(k_(Ok_vO k_ (484 CL:ERROR 376 \FZEROP 325 CL:ERROR 260 READCCODE 250 READCCODE 240 READCCODE 230 READCCODE 164 \GETSTREAM 146 BITMAPCREATE 128 CL:READ-CHAR 78 CL:ERROR 29 ASSERT-FAIL 5 READ) +(159 INPUT) +( 479 "Illegal character in bitmap contents specification." 320 "Illegal character in bitmap contents specification." 72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S") (RPAQQ MINIMUMCOLOR 0) (RPAQQ MINIMUMSHADE 0) @@ -313,38 +303,38 @@ 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) 0 @d[AjbBjbABF3@b G@b@BٽdMM@AټdLɿLgh 0X@AH +(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) 0 @dGAjbBjbABF$@b G @b@BٽdMM@AټdLؿLgh 0Xe@AH bBH -bHbAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdϿI h__`>`h@gh +bHbAHbH"dNNBHbH$_dOOF?H#Jb G H%KbGH6bFj Gj*hH%K_dOۿOH#J_dO񲼿OCdϿI h__`>`h@gh `_`_`j@gh _`hO -W`O @ABCDEFGGGGGJK O`O@ABCDEFGGGGGJK gh _IdC" I,Id  C IdC -I .C .h__ _"`>`hIgh +W`O @ABCDEFGGGGGJK OA`O-@ABCDEFGGGGGJK gh _IdC I"Id C IdC +I .C .h__ _"`>`hIgh `_"`_ `jIgh _`hO W`O @ABFG _jdFGgg O"`O OjdODEFGGGGG I IhI hO -)O0_J_LO`hO -W`O DOJbEOJb -OJ"_BOJ$_FOJ#_HOJ%_DGnOBGOJ_(dO(O(_BOFGOJ_*dO*O*_FOHO(G_$dO$O$_HODO*G_&dO&O&_DOL_N@_PON2OPk@jON ON ONk@ON -bDdOBOB_BEdOFOF_FFDFdOHOH_HGEGdODOD_DDA_>EB_@JOBO>_,dO,O,djj_BKOFO@_.dO.O.djj_F@OHO>_0dO0O0JF_2dO2O2_H@ODO@_4dO4O4KG_6dO6O6_DOHOBODOFGOJbON _RGdg~GdONkG bGORJGd3 OROR<G`ld +)O0_J_LO`hO +W`O DOJbEOJb +OJ"_BOJ$_FOJ#_HOJ%_DGdOBGOJ_(dO(O(_BOFGOJ_*dO*O*_FOHO(G_$dO$O$_HODO*G_&dO&O&_DOL_N@_PON2OPk@jON ON ONk@ON +bDdOBOB_BEdOFOF_FFDFdOHOH_HGEGdODOD_DDA_>EB_@JOBO>_,dO,O,djj_BKOFO@_.dO.O.djj_F@OHO>_0dO0O0JF_2dO2O2_H@ODO@_4dO4O4KG_6dO6O6_DOHOBODOFGOJbON _RGdg~GdONkG bGORJGd3 OROR<G`ld  ONkGON G bONdk)GON gONdkG bONkONOB_BONOH_HONO>_>h_8_:`4`hO `_:`_8`jO`hO -W`O `/ODOF_TOHOB_VOLODO@_XOBO>_Z@OD_\OB_^`OV`OT Gg"`@O^O\OLOZOXOVOTGG `@O^O\OLOZOXOTGGG O:`O8.O._<@ABODEFGGGGGJKlO<h(1877 \SOFTCURSORUPCURRENT 1868 \BITBLTSUB 1836 \BITBLT.MERGE 1701 \TOTOPWDS 1690 DSPDESTINATION 1671 \SOFTCURSORDOWN 1637 DSPDESTINATION 1576 INSURE.B&W.TEXTURE 1552 COLORTEXTUREFROMCOLOR# 1532 \ILLEGAL.ARG 1524 COLORNUMBERP 1508 INVERT.TEXTURE.BITMAP 1498 BITMAPCREATE 1450 INSURE.B&W.TEXTURE 1416 MAXIMUMSHADE 1183 UNCOLORIZEBITMAP 1178 COLORMAP 1160 COLORIZEBITMAP 1153 MAXIMUMCOLOR 927 \TOTOPWDS 916 DSPDESTINATION 869 DSPDESTINATION 861 DSPDESTINATION 850 TOTOPW 843 BKBITBLT 807 \SOFTCURSORUPCURRENT 798 BKBITBLT 775 BITMAPCREATE 763 \TOTOPWDS 752 DSPDESTINATION 734 \GETSTREAM 721 \SOFTCURSORDOWN 687 DSPDESTINATION 682 \GETSTREAM 633 \INSUREWINDOW 618 \INSUREWINDOW 607 WOVERLAPP 595 WINDOWP 584 WFROMDS 570 WINDOWP 555 \GETSTREAM 543 \BITBLT.BITMAP 504 \SOFTCURSORUPCURRENT 491 \BITBLT.BITMAP 465 \TOTOPWDS 454 DSPDESTINATION 436 \GETSTREAM 423 \SOFTCURSORDOWN 389 DSPDESTINATION 384 \GETSTREAM 347 WINDOWP 117 \GETSTREAM) -(1905 IMAGEOPS 1898 STREAM 1883 \EM.DISPINTERRUPT 1843 \SYSPILOTBBT 1811 \SYSPILOTBBT 1803 MERGE 1791 PILOTBBT 1786 \SYSPILOTBBT 1776 PILOTBBT 1771 \SYSPILOTBBT 1753 BITMAP 1728 BITMAP 1679 \TOPWDS 1662 \EM.DISPINTERRUPT 1652 \EM.DISPINTERRUPT 1642 \CURSORDESTINATION 1627 \SOFTCURSORUPP 1620 \SOFTCURSORP 1559 TEXTURE 1503 \BBSCRATCHTEXTURE 1488 \BBSCRATCHTEXTURE 1479 BITMAP 1427 MERGE 1123 BITMAP 1050 \DISPLAYDATA 1020 \DISPLAYDATA 999 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 950 \DISPLAYDATA 936 \DISPLAYDATA 905 \TOPWDS 893 \DISPLAYDATA 884 STREAM 813 \EM.DISPINTERRUPT 792 REPLACE 787 INPUT 741 \TOPWDS 728 OUTPUT 712 \EM.DISPINTERRUPT 702 \EM.DISPINTERRUPT 692 \CURSORDESTINATION 676 OUTPUT 667 \SOFTCURSORUPP 660 \SOFTCURSORP 640 STREAM 625 STREAM 549 OUTPUT 510 \EM.DISPINTERRUPT 443 \TOPWDS 430 OUTPUT 414 \EM.DISPINTERRUPT 404 \EM.DISPINTERRUPT 394 \CURSORDESTINATION 378 OUTPUT 369 \SOFTCURSORUPP 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) +W`O `/ODOF_TOHOB_VOLODO@_XOBO>_Z@OD_\OB_^`OV`OT Gg"`@O^O\OLOZOXOVOTGG `@O^O\OLOZOXOTGGG O:`O8$O._<@ABODEFGGGGGJKlO<h(1720 \SOFTCURSORUPCURRENT 1711 \BITBLTSUB 1679 \BITBLT.MERGE 1564 \TOTOPWDS 1553 DSPDESTINATION 1534 \SOFTCURSORDOWN 1500 DSPDESTINATION 1439 INSURE.B&W.TEXTURE 1415 COLORTEXTUREFROMCOLOR# 1395 \ILLEGAL.ARG 1387 COLORNUMBERP 1371 INVERT.TEXTURE.BITMAP 1361 BITMAPCREATE 1313 INSURE.B&W.TEXTURE 1279 MAXIMUMSHADE 1046 UNCOLORIZEBITMAP 1041 COLORMAP 1023 COLORIZEBITMAP 1016 MAXIMUMCOLOR 835 \TOTOPWDS 824 DSPDESTINATION 787 DSPDESTINATION 779 DSPDESTINATION 768 TOTOPW 761 BKBITBLT 725 \SOFTCURSORUPCURRENT 716 BKBITBLT 693 BITMAPCREATE 681 \TOTOPWDS 670 DSPDESTINATION 652 \GETSTREAM 639 \SOFTCURSORDOWN 605 DSPDESTINATION 600 \GETSTREAM 556 \INSUREWINDOW 546 \INSUREWINDOW 535 WOVERLAPP 523 WINDOWP 512 WFROMDS 498 WINDOWP 483 \GETSTREAM 471 \BITBLT.BITMAP 432 \SOFTCURSORUPCURRENT 419 \BITBLT.BITMAP 393 \TOTOPWDS 382 DSPDESTINATION 364 \GETSTREAM 351 \SOFTCURSORDOWN 317 DSPDESTINATION 312 \GETSTREAM 275 WINDOWP 97 \GETSTREAM) +(1726 \EM.DISPINTERRUPT 1686 \SYSPILOTBBT 1654 \SYSPILOTBBT 1646 MERGE 1634 \SYSPILOTBBT 1624 \SYSPILOTBBT 1542 \TOPWDS 1525 \EM.DISPINTERRUPT 1515 \EM.DISPINTERRUPT 1505 \CURSORDESTINATION 1490 \SOFTCURSORUPP 1483 \SOFTCURSORP 1422 TEXTURE 1366 \BBSCRATCHTEXTURE 1351 \BBSCRATCHTEXTURE 1342 BITMAP 1290 MERGE 813 \TOPWDS 731 \EM.DISPINTERRUPT 710 REPLACE 705 INPUT 659 \TOPWDS 646 OUTPUT 630 \EM.DISPINTERRUPT 620 \EM.DISPINTERRUPT 610 \CURSORDESTINATION 594 OUTPUT 585 \SOFTCURSORUPP 578 \SOFTCURSORP 477 OUTPUT 438 \EM.DISPINTERRUPT 371 \TOPWDS 358 OUTPUT 342 \EM.DISPINTERRUPT 332 \EM.DISPINTERRUPT 322 \CURSORDESTINATION 306 OUTPUT 297 \SOFTCURSORUPP 290 \SOFTCURSORP 264 BITMAP 104 \DISPLAYDATA 91 OUTPUT 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^@_CZGQMG_dOONG_dOOJGG_dOOKGG_dOODdMMEdNNFDFdJJGEGdKKDAXEBYGdjjMH_dOOGdjjNI_dOO@JH_dOOGF_dOO@KI_ dO O GG_"dO"O"[JMdNhGgWGnK3 Gnn@n'A@ -h(53 \SFFixFont 33 \SFFixClippingRegion) -(14 PILOTBBT) +(P 1 BM P 0 PBT I 1 DISPLAYSTREAM I 0 DISPLAYDATA) 4@*@HIn@ @n>@n'A@ +h(48 \SFFixFont 28 \SFFixClippingRegion) +NIL () \SFFixClippingRegion :D8 -(P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) @ -@B@HH@IdJJjKKj#@H@djjdnn"@HH@IdLLjMMj%@H@djjdnn$hNIL -(124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA) +(P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) @ +@B@HH@IdJJjKKj#@H@djjdnn"@HH@IdLLjMMj%@H@djjdnn$hNIL +NIL () \SFFixFont :D8 (I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5A*A AAJkh I jhAn>An'@ (50 \SFFIXLINELENGTH) NIL () \SFFIXLINELENGTH :D8 -(P 0 DD I 0 DISPLAYSTREAM) I@0!@HHH ۹kIIknJJng @ h(69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP) -(56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM) +(P 0 DD I 0 DISPLAYSTREAM) ?@0!@HHH ۹kIIknJJng @ h(59 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 51 BOUNDP) +(46 %%SYNONYM-STREAM-DEVICE) () \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD :D8 (P 7 SI::%%$$MAP-FIRST-SUBLIST P 6 X P 1 SI::%%$$MAP-FIRST-LIST P 0 NEWLENGTH I 0 DISPLAYSTREAM) o@a`YOI^ 'N @NH`Z`\O_[NKHJ]NMHL(41 CL:SYMBOL-VALUE 31 BOUNDP) (65 %%TWO-WAY-STREAM-DEVICE 55 %%ECHO-STREAM-DEVICE 10 %%SYNONYM-STREAM-DEVICE) () \SFFixY :D8 -(P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) @*@@ +(P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) @*@@ I@A -]'M[@\LL@%dKKdjjZоHNHNA\L@KJdjjdnn_BO_HOHOHJI@A _@O@$_dOOdjj hNIL -(152 PILOTBBT 140 PILOTBBT 88 PILOTBBT 77 PILOTBBT 49 BITMAP 38 BITMAP 11 \DISPLAYDATA) +]'M[@\LL@%dKKdjjZоHNHNA\L@KJdjjdnn_BO_HOHOHJI@A _@O@$_dOOdjj hNIL +NIL () \MEDW.XOFFSET :D8 -(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) NAdEgh 0H@@d3H@H   (75 \ILLEGAL.ARG 68 \ILLEGAL.ARG 61 \SFFixClippingRegion 14 \GETSTREAM) -(35 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT) +(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) DAd;gh 0H@@d3H@H   (65 \ILLEGAL.ARG 58 \ILLEGAL.ARG 51 \SFFixClippingRegion 14 \GETSTREAM) +(21 \DISPLAYDATA 8 OUTPUT) () \MEDW.YOFFSET :D8 -(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) WAdNgh 0H@-@d3!H@H Hn>Hn'  (84 \ILLEGAL.ARG 77 \ILLEGAL.ARG 56 \SFFixClippingRegion 14 \GETSTREAM) -(26 \DISPLAYDATA 19 STREAM 8 OUTPUT) +(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) RAdIgh 0H@-@d3!H@H Hn>Hn'  (79 \ILLEGAL.ARG 72 \ILLEGAL.ARG 51 \SFFixClippingRegion 14 \GETSTREAM) +(21 \DISPLAYDATA 8 OUTPUT) () \DSPCLIPPINGREGION.DISPLAY :D8 -(P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) e@gh 0H +(P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) `@gh 0H ADAl Ad3ihAo HA -H Hn>Hn'(83 \SFFixClippingRegion 68 ERROR 40 EQLENGTH 11 \GETSTREAM) -(23 \DISPLAYDATA 16 STREAM 5 OUTPUT) -( 63 " is not a REGION.") +H Hn>Hn'(78 \SFFixClippingRegion 63 ERROR 35 EQLENGTH 11 \GETSTREAM) +(18 \DISPLAYDATA 5 OUTPUT) +( 58 " is not a REGION.") \DSPFONT.DISPLAY :D8 -(P 3 \INTERRUPTABLE P 2 DD P 1 OLDFONT P 0 XFONT I 1 FONT I 0 DISPLAYSTREAM) {0@0Zd YAcA@i J giA - o XI7JH JjH +(P 3 \INTERRUPTABLE P 2 DD P 1 OLDFONT P 0 XFONT I 1 FONT I 0 DISPLAYSTREAM) l0@0Zd YA^A@i J giA + o XI2JH JjH JH jHh A@J -(119 \SFFixFont 105 \CREATECHARSET 62 ERROR 50 FONTCOPY 31 \COERCEFONTDESC) -(83 FONTDESCRIPTOR 41 NOERROR 17 \DISPLAYDATA 8 STREAM) -( 57 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER") +(104 \SFFixFont 90 \CREATECHARSET 52 ERROR 40 FONTCOPY 21 \COERCEFONTDESC) +(31 NOERROR) +( 47 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER") \DISPLAY.PILOTBITBLT :D8 (I 1 N I 0 PILOTBBT) @AvNIL NIL () \DSPLINEFEED.DISPLAY :D8 -(P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) %@0HAAd3HA (33 \ILLEGAL.ARG) -(5 STREAM) +(P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) @0HAAd3HA (28 \ILLEGAL.ARG) +NIL () \DSPLEFTMARGIN.DISPLAY :D8 -(P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 0@0HAAd3HA@  (44 \ILLEGAL.ARG 37 \SFFIXLINELENGTH) -(5 STREAM) +(P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) +@0HAAd3HA@  (39 \ILLEGAL.ARG 32 \SFFIXLINELENGTH) +NIL () \DSPOPERATION.DISPLAY :D8 -(P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) @gh 0!HAAg%AgAgAdgl -HAH*H YAdgkglAglj +(P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) @gh 0!HA}Ag%AgAgAdgl +HAH*H YAdgkglAglj QIJgAgjk -@(82 \LISPERROR 11 \GETSTREAM) -(162 ERASE 155 INVERT 138 INVERT 127 PAINT 116 ERASE 105 \DISPLAYDATA 97 \DISPLAYDATA 73 ERASE 63 INVERT 54 REPLACE 45 PAINT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) +@(70 \LISPERROR 11 \GETSTREAM) +(140 ERASE 133 INVERT 116 INVERT 105 PAINT 94 ERASE 61 ERASE 51 INVERT 42 REPLACE 33 PAINT 18 \DISPLAYDATA 5 OUTPUT) () \DSPRIGHTMARGIN.DISPLAY :D8 -(P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4@0HYA!Ad3IHA@  I(48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH) -(5 STREAM) +(P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /@0HYA!Ad3IHA@  I(43 \ILLEGAL.ARG 36 \SFFIXLINELENGTH) +NIL () \DSPXPOSITION.DISPLAY :D8 -(P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) /@0HAAd3HA@j (43 \ILLEGAL.ARG) -(16 \DISPLAYDATA 5 STREAM) +(P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) %@0HAAd3HA@j (33 \ILLEGAL.ARG) +NIL () \DSPYPOSITION.DISPLAY :D8 -(P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7@0HA&Ad3HAHn>Hn' (51 \ILLEGAL.ARG) -(5 STREAM) +(P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 2@0HA&Ad3HAHn>Hn' (46 \ILLEGAL.ARG) +NIL () (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (MOVD? (QUOTE NILL) (QUOTE WFROMDS)) @@ -553,14 +544,13 @@ Q (RPAQ? \SCREENBITMAPS) (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS)) TTYDISPLAYSTREAM :D8 -(P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 \DISPLAYSTREAMTYPES F 9 TtyDisplayStream) T@ -@gh b g @ @  @dTT VT8@c 4``h Ti +(P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 \TERM.OFD F 5 \LINEBUF.OFD F 6 *STANDARD-OUTPUT* F 7 *STANDARD-INPUT* F 8 \DISPLAYSTREAMTYPES F 9 TtyDisplayStream) T@@gh b g @ @  @dTT VT8@c 4``h Ti JJgU @cWU@i Z Jg` Jg c -Uc@c WCg@ -@0[%K$KjIIjI (266 PAGEHEIGHT 213 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM) -(248 \DISPLAYDATA 239 \DISPLAYDATA 231 \DISPLAYDATA 223 STREAM 207 ON 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT) +Uc@c W/g@ +@0[%K$KjIIjI (246 PAGEHEIGHT 213 DSPSCROLL 197 IMAGESTREAMTYPE 180 \CREATELINEBUFFER 173 GETWINDOWUSERPROP 161 PUTWINDOWPROP 142 WFROMDS 121 PUTWINDOWPROP 104 WFROMDS 96 \CARET.DOWN 50 \ILLEGAL.ARG 43 TEXTSTREAMP 36 \DEFINEDP 24 DISPLAYSTREAMP 17 \GETSTREAM) +(207 ON 168 \LINEBUF.OFD 156 \RUNNING.PROCESS 151 PROCESS 115 \LINEBUF.OFD 89 \CARET.UP 81 \DEFAULTTTYDISPLAYSTREAM 31 TEXTSTREAMP 11 OUTPUT) () optimize-TTYDISPLAYSTREAM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggNIL @@ -569,8 +559,8 @@ optimize-TTYDISPLAYSTREAM :D8 (PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST)))) DSPSCROLL :D8 -(I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 6Agh 0Hg@H@gh(11 \GETSTREAM) -(45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT) +(I 1 DISPLAYSTREAM I 0 SWITCHSETTING) 1Agh 0Hg@H@gh(11 \GETSTREAM) +(40 OFF 31 OFF 18 \DISPLAYDATA 5 OUTPUT) () PAGEHEIGHT :D8 (L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P@3@cjcNIL @@ -578,13 +568,13 @@ NIL () (RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY)) \DSPRESET.DISPLAY :D8 -(P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) -@gh b0@i +(P 5 X P 4 FONTASCENT P 3 FONT P 2 CREG P 1 WINDOW P 0 DD I 0 DISPLAYSTREAM) @gh b0@i 2hI I hI I H -ZH [d\K dj%@H +ZH [d\K dj%@H @JJmLk UdlZ@JL @J @@ -592,9 +582,9 @@ ZH @JJm o hdd@JJJJggH6 @i Md" .]d @Mo -h(297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM) -(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT) -( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270") +h(282 PROCESS.EVAL 267 PROCESS.TTY 256 \INSUREWINDOW 244 WFROMDS 237 BKBITBLT 199 ERROR 188 \DSPYPOSITION.DISPLAY 169 \DSPXPOSITION.DISPLAY 143 \DSPYPOSITION.DISPLAY 133 \DSPXPOSITION.DISPLAY 114 \DSPYPOSITION.DISPLAY 91 \DSPXPOSITION.DISPLAY 56 WYOFFSET 50 WYOFFSET 43 WXOFFSET 37 WXOFFSET 27 WFROMDS 11 \GETSTREAM) +(228 REPLACE 223 TEXTURE 70 FONTDESCRIPTOR 20 \DISPLAYDATA 5 OUTPUT) +( 277 (SETQ \CURRENTDISPLAYLINE 0) 194 "only supported rotations are 0, 90 and 270") (RPAQ? *DRIBBLE-OUTPUT* NIL) expand-\MAYBE-DRIBBLE-CHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ?@!HHggogIoggJhhNIL @@ -604,55 +594,55 @@ expand-\MAYBE-DRIBBLE-CHAR :D8 (SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) "if we are dribbling, then dribble this character") \DSPPRINTCHAR :D8 -(P 4 TABWIDTH P 3 SPACEWIDTH P 2 I P 1 STR P 0 DD I 1 CHARCODE I 0 STREAM F 5 *DRIBBLE-OUTPUT* F 6 \PRIMTERMSA F 7 \TERM.OFD) 3@0`@ UU @WUA -AlVɀAVɀ -jVAldjyAdl @H @@kl Adl dl +(P 4 TABWIDTH P 3 SPACEWIDTH P 2 I P 1 STR P 0 DD I 1 CHARCODE I 0 STREAM F 5 *DRIBBLE-OUTPUT* F 6 \PRIMTERMSA F 7 \TERM.OFD) @0`@ UU @WUA +AlVɀAVɀ +jVAldjeAdl @H @dkl Adl dl A@ -@jjlA@ +@jejlA@ @ -A@H @@kfdlhA @I -HHl @ -@I @@I kIJ -@H JkԺdlAdl dl dl +PA@H @dkH -@l AH2[AkKLdlZNnNNm؉o A -HLdlZjHٰnHo _HLdlZ,OHH#H  Zj5n*H"H  OHZjF` H"_H_H$H%I_H#O_H6_ `3`hA +(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 \SCREENBITMAPS F 17 \TERM.OFD) YAdW"`A A0QHH \jH +@l dg@ghdId`hdgRdgPdgNdgHdgBdgdg@ghdIdgRdgPdgNdgHdgBdg ````H HdI `` -` -ijd``hSC````HLU H :`S`S`dI ``h(299 \OPENW1 243 REVERSE 236 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) -(324 \OLDSCREENWIDTH 319 SCREENWIDTH 314 \OLDSCREENHEIGHT 309 SCREENHEIGHT 283 SCREENHEIGHT 278 SCREEN 269 SCREENWIDTH 264 SCREEN 255 ScreenBitMap 250 SCREEN 227 \CURSORDESTRASTERWIDTH 220 BITMAP 215 ScreenBitMap 210 \CURSORDESTHEIGHT 205 SCREENHEIGHT 200 \CURSORDESTWIDTH 195 SCREENWIDTH 190 \CURSORDESTINATION 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) +(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD) .````AT> ````H HdI `` +` +ijd``hSB````HA` H +`S`S`dI ``h(273 \OPENW1 232 REVERSE 225 CHANGEBACKGROUND 132 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) +(298 \OLDSCREENWIDTH 293 SCREENWIDTH 288 \OLDSCREENHEIGHT 283 SCREENHEIGHT 257 SCREENHEIGHT 248 SCREENWIDTH 239 ScreenBitMap 220 WINDOWBACKGROUNDSHADE 212 \CURSORDESTRASTERWIDTH 205 ScreenBitMap 200 \CURSORDESTHEIGHT 195 SCREENHEIGHT 190 \CURSORDESTWIDTH 185 SCREENWIDTH 180 \CURSORDESTINATION 175 ScreenBitMap 167 WHOLESCREEN 162 WHOLEDISPLAY 152 SCREENHEIGHT 147 SCREENWIDTH 139 \DisplayStarted 125 ScreenBitMap 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``[@HAhYLLm`LLm`IiHXYd \Ii -YJI\]Mm LپjNNjKLLm L_jOOj HXV(209 MOVEW 186 FIXR 154 FIXR 127 MAINWINDOW 117 MAINWINDOW) -(135 WINDOW 95 SCREENHEIGHT 75 SCREENWIDTH 55 WINDOW 36 \OLDSCREENHEIGHT 31 SCREENHEIGHT 24 \OLDSCREENWIDTH 19 SCREENWIDTH) +(P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) @H+h&```Z``[@H