*A-TV-CURRENT-SHEET*LISP-INTERNALS *A-TV-SCREEN-BUFFER-ADDRESS*LISP-INTERNALS  *A-TV-SCREEN-BUFFER-END-ADDRESS*LISP-INTERNALS  *A-TV-SCREEN-LOCATIONS-PER-LINE*LISP-INTERNALS *A-TV-SCREEN-BUFFER-BIT-OFFSET*LISP-INTERNALS *A-TV-SCREEN-WIDTH*LISP-INTERNALS *A-TV-SCREEN-BUFFER-PIXEL-MROT*LISP-INTERNALS *A-FONT-POINTER*LISP-INTERNALS *A-FONT-ORIGIN*LISP-INTERNALS *A-FONT-RASTER-WIDTH*LISP-INTERNALS *A-FONT-RASTER-HEIGHT*LISP-INTERNALS *A-FONT-RASTER-SHIFT*LISP-INTERNALS *A-FONT-ROWS-PER-WORD*LISP-INTERNALS *A-FONT-WORDS-PER-CHAR*LISP-INTERNALS VALIDATE-SHEET-CACHELISP-INTERNALS VALIDATE-SHEET-CACHELISP-INTERNALSjD  SELECT-SHEETLISP-INTERNALS  SELECT-SHEETLISP-INTERNALS MVBIND-4LISP-INTERNALS  DECODE-ARRAYARRAY  %SYMBOL-VALUESYMBOL A@B(@B@C`@G@d@%@ %"@`@@a@$@c@"@e@@g@ D *SCREEN-ADDRESS*LISP-INTERNALS VALIDATE-FONT-CACHELISP-INTERNALS VALIDATE-FONT-CACHELISP-INTERNALSjD DPB-ALU-DISPATCH-TABLELISP-INTERNALS DPB-ALU-DISPATCH-TABLELISP-INTERNALS    7#"  """ "`"@"@"$ `"$    """ "$ ?#$ DPB-UNBOXED-WITH-ALUFLISP-INTERNALS DPB-UNBOXED-WITH-ALUFLISP-INTERNALS DPB-ALU-DISPATCH-TABLELISP-INTERNALS4(@ E (@P "$F DRAW-BIT-PATTERNSLISP-INTERNALS DRAW-BIT-PATTERNSLISP-INTERNALS DPB-UNBOXED-WITH-ALUFLISP-INTERNALS '`Bq!BDpDB@0CBPC /l@ `Bp!Bp `@AT@,BDT@ XjD DRAW-ROW-CROSSING-WORD-BOUNDARYLISP-INTERNALS DRAW-ROW-CROSSING-WORD-BOUNDARYLISP-INTERNALS DRAW-BIT-PATTERNSLISP-INTERNALS DRAW-BIT-PATTERNSLISP-INTERNALS @@@),x@ ,"x$A&@(@,@"@ @* B0&}$@`@"@`@ @+ F DRAW-CHAR-NO-CHECKLISP-INTERNALS DRAW-CHAR-NO-CHECKLISP-INTERNALS   DRAW-BIT-PATTERNSLISP-INTERNALS`6@`4@`2@ 0@j.@p["0@A  @AjDB@@DB0@A@A L*`@AT.@`0@0I22x$A4@&@ @0@. @, B0Y66x T(4x D 0x@A DRAW-CHAR-IN-TWO-WORDSLISP-INTERNALS DRAW-CHAR-IN-TWO-WORDSLISP-INTERNALS   DRAW-ROW-CROSSING-WORD-BOUNDARYLISP-INTERNALS`6@`4@`2@ 0@j.@p["0@A  @AjDB@@DB0@A@A L*`@AT.@`0@0I22x.A @$@4@&@, B0Y66x T(4x D 0x@A DRAW-CHAR-CLIPPINGLISP-INTERNALS DRAW-CHAR-CLIPPINGLISP-INTERNALS5 4),- 53 DRAW-BIT-PATTERNSLISP-INTERNALS( DRAW-ROW-CROSSING-WORD-BOUNDARYLISP-INTERNALS# LDBLISP-INTERNALS" LDBLISP-INTERNALS6B@BB@0CBPC 7 @j:@j8@@&:xh:p@A @A&$@>&@$>@Pz>8x(@@A @Ay>>x"A8B( A"@2@:@>@8 @$ @&@-B@B><@j6@p<p@AA@Apsb0@A &@A*@@AA@A@.@A3@A@0@A3@A A`@"@2@"@n @4 B A"@2@:@>@8 @$ @&@,B C`@#@b@9@q<@ D"<@`:@@l$0@A@AjD`8@@d>0@A@A =`@ATD@.B@0CBPC a@ !`@AT@,@5 B6T@ !X ,<<@ $  @0i::x0a88x &>@"<@ BITBLT-DECODE-ARRAYLISP-INTERNALS BITBLT-DECODE-ARRAYLISP-INTERNALS&e;_;Y;S;M;G;897969594939291909/9.9-9,9+9*9)9(9'9&9%9$C#9"H!9 N9T9Z9`9: ERRORLISP-INTERNALS MVBIND-2LISP-INTERNALS  DIVIDE-FIXNUMNEW-MATH MVBIND-5LISP-INTERNALS DECODE-2D-ARRAYARRAYfj6@j4@j2@j0@j.@j,@j*@j(@ A$@# B3 C`@1@b@/@d@5@f@7@2A6 B$ C`@#@0/@ |B@ C@@A@A9@A `@A 9@A Z@A 9@A T@A 9@A N@A 9@A H@A 9@A C@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A 9@A A@B ,0&@`@(@a@,@c@4@e@"@g@$@i@&D(@ O`*@P) _`,@;@A (@w'O`*@P) _`,@ `"@;@A (@V'O`*@P) _`,@b `"@;@A (@5'O`*@P) _`,@C `"@;@A (@'O`*@P) _`,@d'`"@;@A (@s'O`*@P) _`,@ `"@;@A 9Not a bit array !COMPUTE-WIDTH-OF-COLUMN-TO-BITBLTLISP-INTERNALS !COMPUTE-WIDTH-OF-COLUMN-TO-BITBLTLISP-INTERNALS$  MIN-2LISP-INTERNALS MIN-2LISP-INTERNALS MIN-2LISP-INTERNALS MIN-2LISP-INTERNALS%j0@j.@j,@j*@j(@ `0@ `.@&@@A@A @A@1@ @@@/@@B($ B G`Bp!'B,p ?`Bp!'B*p`@,@a@*@c@(D0A0y09.x@B($ B@D(Dx0EDx aBp!'B,p@<(Dx0EDx aBp!'B*p@A BITBLT-LEFT-TO-RIGHTLISP-INTERNALS BITBLT-LEFT-TO-RIGHTLISP-INTERNALS( %  BITBLT-COLUMNLISP-INTERNALS  MVBIND-3LISP-INTERNALS !COMPUTE-WIDTH-OF-COLUMN-TO-BITBLTLISP-INTERNALS)`c@@ `0@A@AjD@<60@A @A`.@0A.@"@h@@yBdyC`@?@b@=@>`g@<`i@bbCA0CBPC G`D@ )@bbC@0CBPC ?`D@ '@$@:@,@* @h` @f`@2@4@ B Ddc1@ `g@<`i@bbCA0CBPC G`D@ )@bbC@0CBPC ?`D@ '@$@:@,@* @h` @f`@2@4@ B@Ddc1x@@s@aCb@@AT@@`B@s'C@w@*AvPBB@` aCP@@^@B@` aCb@@A@UDx '&@,A.@0 B, C`@=@b@;@d@9@f@/@h@1@<@s@:@{@8@y@`B@s'oC@u@$Av@@t@@&@,@PaCb@@AT @x@ @*@0@@@`aCb@@AT B$Ax B`@'@b@-@d@7@f@5@h@+@B@` aCP@j@_@6@w@4@u@PsB `"@"A&@,@aCb@@AT@z@ @( @/ B#C`@3@b@'@d@-@f@)@h@/@2@}@|@@@A@A A"@$@&@,@v@ @t@ @(@.@@@`aCb@@AT@*@aCb@@AT@z@@PaCb@@ATB@@`aC`@ D A"@$@&@,@v@ @t@ @(@.@@@`aCb@@AT@*@aCb@@AT@z@@PaCb@@ATB@@`aC`@ D~S is not an array ~S is not an array