830 lines
64 KiB
Plaintext
830 lines
64 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "31-Mar-2026 17:52:09" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;51)
|
||
"23-Mar-2026 00:34:12" "COMPILE-FILEd" in "FULL 23-Mar-2026 ..." dated "23-Mar-2026 00:48:39")
|
||
(FILECREATED "31-Mar-2026 17:52:08" {WMEDLEY}<sources>LLDISPLAY.;51 272169 :EDIT-BY rmk :CHANGES-TO (
|
||
FNS INITIALIZEDISPLAYSTREAMS) :PREVIOUS-DATE " 2-Sep-2025 22:54:03" {WMEDLEY}<sources>LLDISPLAY.;50)
|
||
(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
|
||
\DISPLAYDATA) (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") (FNS
|
||
\CreateCursorBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap))))) (
|
||
COMS (* ; "bitmap functions.") (FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY
|
||
BITMAPCREATE BITMAPBIT BITMAPEQUAL BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY
|
||
\INDICATESTRING \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH BITMAPHEIGHT
|
||
READBITMAP \INSUREBITSPERPIXEL MAXIMUMCOLOR OPPOSITECOLOR MAXIMUMSHADE OPPOSITESHADE \MEDW.BITBLT) (
|
||
FNS \READBINARYBITMAP \PRINTBINARYBITMAP) (FUNCTIONS FINISH-READING-BITMAP) (CONSTANTS (MINIMUMCOLOR 0
|
||
) (MINIMUMSHADE 0)) (P (MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))) (DECLARE%: DONTCOPY (EXPORT (
|
||
MACROS \INVALIDATEDISPLAYCACHE))) (OPTIMIZERS BITMAPBIT BITMAPP) (FNS BITMAPBIT.EXPANDER) (FNS
|
||
\BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP) (FNS (* ;;
|
||
"For SunLoadup") \BITBLT.BITMAP.SLOW) (FNS (* ;;
|
||
" punt case for C funcs.bitblt_bitmap,bitshade.bitmap") \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP) (
|
||
FNS (* ;; "from SUMEX-AIM") \SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY) (DECLARE%: DONTCOPY (CONSTANTS (
|
||
\DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) (
|
||
EXPORT (MACROS \DSPGETCHARWIDTH \DSPGETCHARIMAGEWIDTH \DSPGETCHAROFFSET \CONVERTOP \SFInvert
|
||
\SFReplicate \SETPBTFUNCTION \BITBLT1)) (GLOBALVARS \SYSBBTEXTURE \BBSCRATCHTEXTURE \SYSPILOTBBT
|
||
\PILOTBBTSCRATCHBM)) (VARS (\BBSCRATCHTEXTURE) (\PILOTBBTSCRATCHBM)) (DECLARE%: DONTEVAL@LOAD DOCOPY (
|
||
P (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)))) (* ;
|
||
"macro for this file so that BITBLT can be broken by users") (EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD
|
||
DOEVAL@COMPILE (P (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT))))))) (COMS (* ;
|
||
"display stream functions") (FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET) (FNS
|
||
DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion
|
||
\SFFixFont \SFFIXLINELENGTH \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD \SFFixY) (COMS (FNS
|
||
\SIMPLE.DSPCREATE \COMMON.DSPCREATE) (* ; "MOVD? so we don't trash a later redefinition") (P (MOVD? (
|
||
QUOTE \SIMPLE.DSPCREATE) (QUOTE DSPCREATE)))) (FNS \MEDW.XOFFSET \MEDW.YOFFSET) (FNS
|
||
\DSPCLIPPINGREGION.DISPLAY \DSPFONT.DISPLAY \DISPLAY.PILOTBITBLT \DSPLINEFEED.DISPLAY
|
||
\DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPXPOSITION.DISPLAY
|
||
\DSPYPOSITION.DISPLAY) (P (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (MOVD? (QUOTE NILL) (QUOTE
|
||
WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW))) (INITVARS (
|
||
PROMPTWINDOW T) (\WINDOWWORLD NIL) (\MAINSCREEN NIL))) (COMS (* ; "Stub for window package") (INITVARS
|
||
(\TOPWDS) (\SCREENBITMAPS)) (P (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))) (DECLARE%: DONTCOPY
|
||
EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. .WHILE.CURSOR.DOWN.) (ADDVARS (GLOBALVARS
|
||
\TOPWDS))))) (COMS (* ; "DisplayStream TTY functions") (FNS TTYDISPLAYSTREAM) (EXPORT (OPTIMIZERS
|
||
TTYDISPLAYSTREAM)) (FNS DSPSCROLL PAGEHEIGHT) (INITVARS (\CURRENTTTYDEVICE (QUOTE BCPLDISPLAY))) (FNS
|
||
\DSPRESET.DISPLAY) (COMS (INITVARS (*DRIBBLE-OUTPUT* NIL)) (FUNCTIONS \MAYBE-DRIBBLE-CHAR) (FNS
|
||
\DSPPRINTCHAR \DSPPRINTCR/LF)) (FNS \TTYBACKGROUND) (FNS DSPBACKUP) (INITVARS (\CARET.UP)) (DECLARE%:
|
||
DONTEVAL@LOAD DOCOPY (VARS (BELLCNT 2) (BELLRATE 60) (\DisplayStoppedForLogout) (TtyDisplayStream))) (
|
||
FNS COLORDISPLAYP) (FNS DISPLAYBEFOREEXIT DISPLAYAFTERENTRY) (EXPORT (GLOBALVARS BELLCNT BELLRATE
|
||
TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP) (MACROS \CHECKCARET))) (COMS (* ;
|
||
"transformation related functions.") (FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION
|
||
\DSPUNTRANSFORMY \DSPUNTRANSFORMX \OFFSETCLIPPINGREGION) (DECLARE%: DONTCOPY (EXPORT (MACROS
|
||
\DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM \OFFSETLEFT)))) (COMS (* ; "screen related functions") (
|
||
FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
|
||
UPDATESCREENDIMENSIONS)) (INITVARS (SCREENHEIGHT 808) (SCREENWIDTH 1024) (\OLDSCREENHEIGHT 808) (
|
||
\OLDSCREENWIDTH 1024) (\MaxScreenPage -1) (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)
|
||
) (ColorScreenBitMap NIL))) (GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap)
|
||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (CURSOR.INIT)))) (COMS (* ; "initialization") (INITVARS (
|
||
\DISPLAYINFOALIST)) (FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY
|
||
\MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO) (DECLARE%:
|
||
EVAL@COMPILE DONTCOPY (ADDVARS (DONTCOMPILEFNS \UPDATE.PBT.RASTERWIDTHS))) (EXPORT (MACROS
|
||
DISPLAYINITIALIZEDP DISPLAYSTARTEDP) (GLOBALVARS \DisplayStarted \DisplayStreamsInitialized
|
||
\DisplayInitialed WHOLEDISPLAY WHOLESCREEN SCREENWIDTH SCREENHEIGHT)) (ADDVARS (GLOBALVARS WHOLESCREEN
|
||
)) (FNS INITIALIZEDISPLAYSTREAMS) (DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\DisplayStarted NIL) (
|
||
\LastTTYLines 12)) (P (INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))) (PROP FILETYPE LLDISPLAY)
|
||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
|
||
(/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE ((BITMAP 0 POINTER) (
|
||
BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 (BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6)
|
||
)
|
||
(/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD
|
||
WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) (
|
||
PILOTBBT 2 (BITS . 15)) (PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15
|
||
)) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS . 15)) (PILOTBBT 9 (BITS
|
||
. 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 (
|
||
BITS . 15)) (PILOTBBT 14 (BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16))
|
||
(/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD
|
||
WORD FLAG XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 POINTER) (\DISPLAYDATA 2 POINTER) (
|
||
\DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) (
|
||
\DISPLAYDATA 12 POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18 POINTER)
|
||
(\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 24 POINTER) (\DISPLAYDATA 26
|
||
POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA
|
||
34 (BITS . 15)) (\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (BITS .
|
||
15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (\DISPLAYDATA 40 XPOINTER) (
|
||
\DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER) (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER)
|
||
(\DISPLAYDATA 50 POINTER) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56
|
||
POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62 POINTER) (\DISPLAYDATA
|
||
39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15)))
|
||
) (QUOTE 68))
|
||
\FBITMAPBIT :D8
|
||
(I 5 RASTERWIDTH I 4 HEIGHTMINUS1 I 3 OPERATION I 2 Y I 1 X I 0 BASE) 1 @ABCdg ð“¿j°dg ð’¿k‹g ð’l<02>lDE
|
||
(46 \FBITMAPBIT.UFN)
|
||
(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) ¢ @DBÙEÚAââââØÐ` AlåH É H l
|
||
IØÐÈ BKJÈ å\jð³#LµkJÈ _¿JCdjð²¿OKæ°D ²æj°äkð²*O` Alå¾] É M l
|
||
NØÐÈ å‹Clð’OƒOKäÍ ¿ (137 \GETBASEFIXP 95 \FZEROP 45 \GETBASEFIXP)
|
||
(130 ARRAYP 122 ARRAYP 111 NOTBITMASKARRAY 38 ARRAYP 30 ARRAYP 17 BITMASKARRAY)
|
||
()
|
||
\NEWPAGE.DISPLAY :D8
|
||
(I 0 STREAM) @ (5 DSPRESET)
|
||
NIL
|
||
()
|
||
INITBITMASKS :D8
|
||
(P 2 MASK P 1 I) ½ lg jd lg jd ljn€ IHó²9lg jd lg jd ljnð IHó²+h` IJ ¿` IJnÿÿæ ¿JâºIkÔY° ` IJ ¿` IJnÿÿæ ¿JââââºIkÔY°« (174 SETA 157 SETA 135 SETA 118 SETA 85 ARRAY 66 ARRAY 32 ARRAY 13 ARRAY)
|
||
(163 NOT4BITMASKARRAY 150 4BITMASKARRAY 124 NOTBITMASKARRAY 111 BITMASKARRAY 90 NOT4BITMASKARRAY 78 SMALLPOSP 71 4BITMASKARRAY 59 SMALLPOSP 37 NOTBITMASKARRAY 25 SMALLPOSP 18 BITMASKARRAY 6 SMALLPOSP)
|
||
()
|
||
optimize-\FBITMAPBIT :D8
|
||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Œ @¡
|
||
H¹HZ»J\½L^_¿N__¿O_¿o IKMOµ!g Oo OOo g ð²ÚO dg ð“¿j°Õdg ð“¿k°Ég ð“l°¾l°º (99 EVAL)
|
||
(128 READ 117 ERASE 105 INVERT 89 QUOTE 57 SELECTQ)
|
||
( 75 (NIL) 64 ((INVERT 0) (ERASE 1) (READ 2) 3) 44 (OPCODES MISC7 1))
|
||
(PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\FBITMAPBIT) (
|
||
GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||
(INITBITMASKS)
|
||
\CreateCursorBitMap :D8
|
||
NIL $ l dkÍ¿dlÍ¿dlÍ¿d` ¿dkÍ¿ NIL
|
||
(25 \EM.CURSORBITMAP)
|
||
()
|
||
(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 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS) œ D£jb¿E£jb
|
||
¿Gg ð²NCdà ²¿GCDEFGGG
|
||
g h H É. ɹGHDEFGGGlIð@@dà ²]¿A£jb¿B£jb¿@¹AºB»Fµ3@ Èb ¿Gµ@ Èb¿± É@ ÈBÙ½dMñ²ì¿M°è@ ÈAÙ¼dLñ²É¿L°Åg h É0 X¢± …A¦HÉ
|
||
b¿B§HÉ
|
||
b¿H ɹAH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Æ¿@ ¢± ¡h__¿W&²8W(´h@g h
|
||
W*ð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||
W, —O ¿IABCDEFGGGGGJK
|
||
O´‚±U ¿` OÍ ¿±AIABCDEFGGGGGJK
|
||
g h _@Cð’± ç@ ¢± ÝC ¢± Ì@dC
|
||
¢± Á¿h_ _ _"¿W&²8W(´h@g h
|
||
W*ð_"²` È _ ¿` jÍ ¿ ¿@g h _ ` ð³hO
|
||
W, —O ¿IABFG
|
||
_ jdFGg g
|
||
¿O"Ÿ ¿` O Í ¿O jdODEFGGGGG
|
||
@ ¿O É. É _$¿IABODEFGGGGGJKlO$h (875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP)
|
||
(890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE)
|
||
()
|
||
BLTSHADE :D8
|
||
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [ Adà ²¿@ABµjCµjDEFG
|
||
g h H É. ɹ@HBµjCµjDEFd¥H
|
||
GlI (82 DSPOPERATION 42 \GETSTREAM 30 \BLTSHADE.BITMAP)
|
||
(58 IMAGEOPS 51 STREAM 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) Ð
|
||
|
||
Ð D ÈX@ jÍ
|
||
@ HàààànÿÿåÍD É HFÚÐ\@ EÍGdg ð¢±H¿@kÏ
|
||
0¿@ G”EGÙ€ElåÍ¿@ jÍ¿G3 ¢± È` É ZGnÿÿåbjð¦Gnÿÿð™JGÍ ¿j± „JGãââââ^dáNààààdáäääÍ ¿JGãlå_dáOààààdáäääÍ¿JGââââlå_dáOààààdáäääÍ¿JGlå_dáOààààdáäääÍ¿@lÏÿ@G”FGÔ€Flå_ÏC¿OÐ_¿@ OÒÍ¿@ O±6@G bÈdlñ’¿l]kÙÏÿ@GšFGÔM
|
||
‚FMÜ]ÏC¿GÉ MÐ_¿@ OÒÍ¿@ O± äg ðšo @jÏ
|
||
0¿@ A ÈYàààànÿÿåÍ¿A É ICÚл@ BÍ¿ADð¦@kÏ
|
||
°|CFñžCFGØñ²k@kÏ
|
||
°iFCGØñ–@kÏ
|
||
°[CFð²EBñ²REB@ ÈØýñ²C@kÏ
|
||
¿KIGkÙÚ]лLMм@ jIààààÙ]nÿÿåÍ¿@ MnÿÿåÍ¿CFð¥@kÏ
|
||
¿@ KÒÍ¿@ KÓÍ¿@ LÒÍ¿@ LÓÍ @Gdg ð“¿k°g ð’lŒGg ð’l€jÏ
|
||
Q¿@Gg ðGg ðð‘j€kÏ
|
||
@@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")
|
||
\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)
|
||
()
|
||
BITMAPCOPY :D8
|
||
(P 0 NEWBITMAP I 0 BITMAP) 7 @ b jd@ @È@È Xjdhdg g j
|
||
H (51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
|
||
(44 REPLACE 39 INPUT 8 BITMAP)
|
||
()
|
||
BITMAPCREATE :D8
|
||
(P 0 RW I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH) j@ñ¥@nÿÿñ–@ ¿jAñ¥Anÿÿñ–A ¿B b@BÚlØââââXl dHÍ¿d@Í¿dAÍ¿dBÍ¿HAÚXdo ñ²¿@AÚBÚo
|
||
‰kØâhh ¹dI ¿ (118 \ALLOCBLOCK 107 ERROR 42 \INSUREBITSPERPIXEL 35 \ILLEGAL.ARG 18 \ILLEGAL.ARG)
|
||
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 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) é °
|
||
@à ¢±+@ ÈXjAñ’± A@ Èýñ¢± üjBñ’± õB@ È\ýñ¢± åHkð²[Cdjð² ¿@ É ABkLkÙ@ Èh8³ @ É ABlLkÙ@ Èh8@ É ABlLkÙ@ Èh8@ É @ ÈBÙkÙ@ ÈÚÐ^C² jCñ¯C@ È ñ–C ¿Hdkð²c¿AââââZNJÐÈ ]` Alå_¿_ É O l
|
||
OØÐÈ YCµ MIåjð² jjð<6A>NJÐMImÿæåÍ ¿°èNJÐMIäÍ ¿°Ýklð²mAlçYdââââZNJÐÈ ]d` Alå_¿_ É O l
|
||
OØÐÈ å[C² NJÐMKæCllAlåÙÚ
|
||
äÍ ¿KllAlåÙÚ
|
||
Hdlð²K¿AlçYdââââZAkåjð² NJÐÈ ]nÿ å»C›NJÐMKæCáäÍ ¿KãNJÐÈ ]lÿå»C²1NJÐMKæCäÍ ¿°$lð²!AlÚYdââââZNA
|
||
[C—NAC Ko H
|
||
0
|
||
@g h b É0 _AO
|
||
_BO
|
||
_O¢±þºd¢±þµ W ²-W"´ h@
|
||
W$ð_ ²` È _ ¿` jÍ ¿ ¿@` ð³h@
|
||
W& –@ ¿O ÉOOCû_¿O ž ¿` O Í O (730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
|
||
(736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
|
||
( 557 "unknown bits per pixel size.")
|
||
BITMAPEQUAL :D8
|
||
(P 3 BASE2 P 2 BASE1 P 1 I I 1 BM2 I 0 BM1) k @Ã ²\AÃ ²T@ÈAÈð´J@ÈAÈð´A@ÈAÈð´8@ÈAÈð´/@È@ÈÚkÙj@É AÉ IHó³JIÐÈ KIÐÈ ð¡hIkÔY°êi@A
|
||
(104 BIGBITMAPEQUAL)
|
||
(13 BITMAP 5 BITMAP)
|
||
()
|
||
BLTCHAR :D8
|
||
(I 1 DISPLAYSTREAM I 0 CHARCODE) 2 @d—¿j@ñ¡@…@ Adg h É0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
|
||
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
|
||
()
|
||
\BLTCHAR :D8
|
||
(P 0 A3161 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) ( Ag h b É. ÉZ @ABlH (11 \GETSTREAM)
|
||
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
|
||
()
|
||
\MEDW.BLTCHAR :D8
|
||
(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS) p@lÿå\¿BdÉ>@ãð¨@ã
|
||
¿BÉ—@A
|
||
BÉ [BÉ0LÐÈ ØYBÉñŸKBÉñ™l
|
||
A
|
||
°ÃBKBÉLÐÈ Ø ¿BɸKHØ»IHØYBÈ#Xñ‘H¹KBÈ"Xñ‘K€HºIJñ´‚± ŽBÉ*X È jð³}h]¾W²*W´ hA
|
||
Wð^²` È ½` jÍ ¿ ¿A` ð³hA
|
||
W –A ¿HJÍ¿HIJÙÍ¿HBÉLÐÈ JØKÙÍ¿Hjv¿N<C2BF> ¿` MÍ ih (250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY)
|
||
(256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT)
|
||
()
|
||
\CHANGECHARSET.DISPLAY :D8
|
||
(P 9 \INTERRUPTABLE P 7 BM P 6 CSINFO P 5 PBT I 1 CHARSET I 0 DISPLAYDATA)
|
||
@É*@É AH È
|
||
djð“¿nÿÿñ²NHd È
|
||
djð“¿nÿÿkØ¹É IàÐÉ µXH É H È
|
||
djð“¿nÿÿkØàH JKÐL ¿L°)HÉ AàÐÉ µ H É AàAH
|
||
JKÐL ¿L" @NÉ ¿@NÉ¿@NÉ0¿@A>¿NÉ_¿MOÈàààànÿÿåÍ¿@È'NÈ
|
||
ð—@È@NÈ ð©@N
|
||
¿°)OÉ OÈ@ÉBÚÐ_¿M OÒÍ¿M OÓÍh (221 \SFFixY 131 \CREATECHARSET 90 \BUILDSLUGCSINFO)
|
||
(258 PILOTBBT 246 PILOTBBT 120 FONTDESCRIPTOR 71 FONTDESCRIPTOR 63 FONTDESCRIPTOR 35 FONTDESCRIPTOR 15 FONTDESCRIPTOR)
|
||
()
|
||
\INDICATESTRINGA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H g d g i
|
||
¿Pc g l hhPc g Qão Qlÿå (69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
|
||
(53 %# 32 RADIX 16 PRXFLT 4 PRXFLT)
|
||
( 60 ",")
|
||
\INDICATESTRING :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _ @dlÿñ² ¿S!g ¿$lñœ@låb ¿g „o l @ñœ@l@äb ¿g „o @ (92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001)
|
||
(75 ^ 52 %# 16 SI::RESETUNWIND)
|
||
( 81 "" 58 "")
|
||
\SLOWBLTCHAR :D8
|
||
(P 19 CSINFO P 18 HEIGHTMOVED P 17 YPOS P 16 SOFTCURSORUP P 15 DISPINTERRUPT P 14 SOURCEBIT P 13 WIDTH P 12 DESTBIT P 11 PILOTBBT P 10 CURX P 9 RIGHT P 8 LEFT P 7 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 26 \SOFTCURSORP F 27 \SOFTCURSORUPP F 28 \CURSORDESTINATION F 29 \SCREENBITMAPS) Ø p@lÿåYAÉ0ZdÉ È Xdjð¢±<01>€JÉ _JÉIÐÈ Ø_JÉñ²l
|
||
A
|
||
¿JÉ _JÉIÐÈ Ø_¿JO ¿OJ ÉØ_¿JÈ"dOñ¢¿O_¿JÈ#OJ ÉØ»dKñ‘¿K_¿JÉ*_¿OOñ¢±OÈ jð’±O_¿OOÙ_¿JÉIÐÈ OØOÙ_ ¿JÉÈdkð³adlð²¿Oàà_¿Oàà_¿O àà_ °Ddlð² ¿Oààà_¿Oààà_¿O ààà_ °$lð²lOÚ_¿lOÚ_¿lO Ú_ „ ¿ W4²-W6´ hA
|
||
W8ð_ ²` È _ ¿` jÍ ¿ ¿A` ð³hA
|
||
W: –A ¿OOÍ¿OOÍ¿OO Í¿Ojv¿O Ÿ ¿` O Í ¿±50JÉ_"¿JÉIÐÈ _$¿JÉ @ã¾½NM È
|
||
djð“¿nÿÿñ²RMd È
|
||
djð“¿nÿÿkØ¼É LàÐÉ µ`M É M È
|
||
djð“¿nÿÿkØàM O(O*ÐO, ¿O,°-MÉ NàÐÉ µ#M É NàNM
|
||
O.O0ÐO2 ¿O2_&¿HdlZð²;¿AO"O$Ø
|
||
¿O&ÉjJÉIÐÈ AJÉ O&È
|
||
ÙkØO"O&È
|
||
O&È ØO$
|
||
°Hnð²8AO"O$Ù
|
||
¿O&ÉjJÉIÐÈ AJÉ O&È ÙJÉO&È
|
||
O&È ØO$
|
||
‰o h (724 ERROR 713 BKBITBLT 671 \DSPYPOSITION.DISPLAY 652 BKBITBLT 609 \DSPYPOSITION.DISPLAY 571 \CREATECHARSET 526 \BUILDSLUGCSINFO 402 \SOFTCURSORUPCURRENT 367 \TOTOPWDS 357 DSPDESTINATION 340 \SOFTCURSORDOWN 309 DSPDESTINATION 290 SHOULDNT 56 \DSPPRINTCR/LF)
|
||
(560 FONTDESCRIPTOR 507 FONTDESCRIPTOR 499 FONTDESCRIPTOR 471 FONTDESCRIPTOR 451 FONTDESCRIPTOR 408 \EM.DISPINTERRUPT 347 \TOPWDS 331 \EM.DISPINTERRUPT 321 \EM.DISPINTERRUPT 118 \DISPLAYDATA 87 \DISPLAYDATA)
|
||
( 719 "Not implemented to rotate by other than 0, 90 or 270")
|
||
TEXTUREP :D8
|
||
(I 0 OBJECT) @d3 ³Ã ´@ Èkð´@ NIL
|
||
(18 BITMAP 10 BITMAP)
|
||
()
|
||
INVERT.TEXTURE :D8
|
||
(I 1 SCRATCHBM I 0 TEXTURE) @d3 ˜nÿÿånÿÿæA
|
||
(19 INVERT.TEXTURE.BITMAP)
|
||
NIL
|
||
()
|
||
INVERT.TEXTURE.BITMAP :D8
|
||
(P 0 NEWBM I 1 SCRATCHBM I 0 BM) “ @ Èkð¦@ ¿Aà ²)A Èkð²@ ÈA Èñ–A ¿AŽl@ È
|
||
H É @ É H É @ ÈÐIdKð‘HJÈ nÿÿæÍ ¿JkкIkÐY°è (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)
|
||
()
|
||
BITMAPWIDTH :D8
|
||
(I 0 BITMAP) & @Ã “@È@Ã ›@g
|
||
@ (35 \ILLEGAL.ARG 28 GETWINDOWPROP)
|
||
(23 WIDTH 16 WINDOW 5 BITMAP)
|
||
()
|
||
BITMAPHEIGHT :D8
|
||
(I 0 BITMAP) + @Ã ˜@ È@Ã ›@g
|
||
@ (40 \ILLEGAL.ARG 33 GETWINDOWPROP)
|
||
(28 HEIGHT 21 WINDOW 12 BITMAP 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) @ @ g ðªo ¿@ @ @g
|
||
CJ dg ð§dg ð’¿k†¿@ ^HÚlØââââ½HIN \ É »Ijð’± ŠJ g ð²jIdjñ²tJ ¿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")
|
||
\INSUREBITSPERPIXEL :D8
|
||
(I 0 NBITS) # @d¡kdkð³üdlð³ödlð³ðdlð³ê (32 \ILLEGAL.ARG)
|
||
NIL
|
||
()
|
||
MAXIMUMCOLOR :D8
|
||
(L (0 BITSPERPIXEL)) k@çkÙ NIL
|
||
NIL
|
||
()
|
||
OPPOSITECOLOR :D8
|
||
(I 1 BITSPERPIXEL I 0 COLOR)
|
||
A @Ù (5 MAXIMUMCOLOR)
|
||
NIL
|
||
()
|
||
MAXIMUMSHADE :D8
|
||
(I 0 BITSPERPIXEL) @dkð“nÿÿ (13 MAXIMUMCOLOR)
|
||
NIL
|
||
()
|
||
OPPOSITESHADE :D8
|
||
(I 1 BITSPERPIXEL I 0 SHADE)
|
||
A @Ù (5 MAXIMUMSHADE)
|
||
NIL
|
||
()
|
||
\MEDW.BITBLT :D8
|
||
(P 9 A3164 P 8 A3163 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A3162 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
|
||
Cg h É0 H É2 ÉHºH É2@ABCDEFGGGGGABlJ±–CÃ ´‚± ¯C´‚± ¨@i
|
||
!@g h É0 AI ÉصABI ÉصBK É2 ÉJ_¿K É2I ÉNOCDEFGGGGGNI È"¼dLñ¡¿LOI È$½dMñ¡¿MlO± Þ@
|
||
hC
|
||
𢱠Â@i
|
||
!@g h É0 AI ÉصABI ÉصB@` ð³h@
|
||
W –@ ¿K É2 ÉL K É2I ÉNOCDEFGGGGGNI È"¼dLñ¡¿LOI È$½dMñ¡¿MlO‰o 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.")
|
||
\READBINARYBITMAP :D8
|
||
(P 3 BITMAP P 2 BPP P 1 BMH P 0 BMW I 0 STREAM) ` @g
|
||
b d á@ Ø@ á@ Ø@ á@ Ø#HIJ [@K É K ÈIÚlÚM É
|
||
É>¼MNjOlLK (41 BITMAPCREATE 10 GETSTREAM)
|
||
(80 FDEV 73 STREAM 57 BITMAP 49 BITMAP 5 INPUT)
|
||
()
|
||
\PRINTBINARYBITMAP :D8
|
||
(P 1 BMH P 0 STREAM I 1 STREAM I 0 BITMAP) Ag
|
||
q@Ã ‘@¦@ ¿H@ »ZKã
|
||
¿JKlÿå
|
||
¿H@ ¹\Iã
|
||
¿LIlÿå
|
||
¿H@ ¾]Nã
|
||
¿MNlÿå
|
||
¿H@ É @ ÈIÚlÚ
|
||
O É
|
||
É@_¿OOjOlO@ (112 \BOUT 101 \BOUT 92 BITSPERPIXEL 84 \BOUT 73 \BOUT 64 BITMAPHEIGHT 56 \BOUT 45 \BOUT 36 BITMAPWIDTH 28 \ILLEGAL.ARG 10 GETSTREAM)
|
||
(152 FDEV 145 STREAM 128 BITMAP 120 BITMAP 19 BITMAP 5 OUTPUT)
|
||
()
|
||
FINISH-READING-BITMAP :D8
|
||
(L (0 STREAM) F 29 *READ-SUPPRESS*) ( @ ñ Hd²µo H
|
||
¿°íYºI[¼K]µLk¾M_¿J3 šL3 –N3 ’O›o H
|
||
¿JNÖlØââââ!W:²,LO$ÖlÖj_¿_¿OOó¥O&°¶@ ¿OkÔ_¿°æJLN _& É _(¿@g
|
||
_"¿Lj_ ¿_ ¿O O ó²»O" ʇ_jð’± ¼Oµ‚± ©O$j_ ¿_¿OO ó¢±6O" l@ÕO" l@ÕO" l@ÕO" l@ÕjO*ó³-O*ló³&jO,ó³ O,ló³jO.ó³O.lóªjO0ó¥O0lóšo ¿O(jO*ààààO,äÇ¿O(kO.ààààO0äÇO(kÐ_(¿O kÔ_ ¿±ÿf ¢±ÿTO$j_¿_¿OOó¢± ‡O" l@ÕO" l@ÕO" l@ÕO" l@Õ jO2ó³-O2ló³&jO4ó³ O4ló³jO6ó³O6lóªjO8ó¥O8lóšo ¿O(jO2ààààO4äÇ¿O(kO6ààààO8äÇO(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."
|
||
72 "Bad bitmap dimension specification: ~S" 23 "BUG: FINISH-READING-BITMAP called with non-list on stream: ~S")
|
||
(RPAQQ MINIMUMCOLOR 0)
|
||
(RPAQQ MINIMUMSHADE 0)
|
||
(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
|
||
(MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
|
||
optimize-BITMAPBIT :D8
|
||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 BITMAPBIT.EXPANDER)
|
||
NIL
|
||
()
|
||
(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET
|
||
(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||
optimize-BITMAPP :D8
|
||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ o Hh NIL
|
||
NIL
|
||
( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X)))
|
||
(PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET (
|
||
QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||
BITMAPBIT.EXPANDER :D8
|
||
(P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) - @@@@ lð•@»o HIJKh (17 LENGTH)
|
||
NIL
|
||
( 32 (OPCODES MISC4 6))
|
||
\BITBLT.DISPLAY :D8
|
||
(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0 ðð @dà ²[¿A£jb¿B£jb¿AºB»Fµ3@ Èb ¿Gµ@ Èb¿± Í@ ÈBÙ½dMñ²ì¿M°è@ ÈAÙ¼dLñ²É¿L°Åg h É0 X¢± ‰@¹A¦HÉ
|
||
b¿B§HÉ
|
||
b¿H Éb ¿AH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Æ¿I ¢± ¡h__¿Wb²8Wd´h@g h
|
||
Wfð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||
W` —O ¿@ABCDEFGGGGGJK
|
||
O´‚±Ž ¿` OÍ ¿±z@ABCDEFGGGGGJK
|
||
g h _IdCð’± ³I¢±#Id ¢±¿C ¢± ïIdC
|
||
¢± ä¿I É É.C É É.𢱠¿h_ _ _"¿Wb²8Wd´hIg h
|
||
Wfð_"²` È _ ¿` jÍ ¿ ¿Ig h _ ` ð³hO
|
||
W` —O ¿@ABFG
|
||
_ jdFGg g
|
||
¿O"Ÿ ¿` O Í ¿O jdODEFGGGGG
|
||
I ¿I²hI
|
||
hO
|
||
ð¢±ó°)O É0_J É_L¿O` ð³hO
|
||
W` —O ¿DOJ ÉØb¿EOJ ÉØb
|
||
¿OJ È"_B¿OJ È$_F¿OJ È#_H¿OJ È%_D¿G²nOBGOJ ÉØ_(¿dO(ñ¢¿O(_B¿OFGOJ ÉØ_*¿dO*ñ¢¿O*_F¿OHO(GØ_$¿dO$ñ’¿O$_H¿ODO*GØ_&¿dO&ñ’¿O&_D¿OL È_N¿@È_PONð³2OPkð²@jON ON °ONkð¢±È@ON
|
||
b ¿DdOBñ¢¿OB_B¿EdOFñ¢¿OF_F¿F<C2BF>DFØdOHñ’¿OH_H¿GžEGØdODñ’¿OD_D¿DAÙ_>¿EBÙ_@¿JOBO>Ù_,¿dO,ñ¢¿O,djñ¡¿j_B¿KOFO@Ù_.¿dO.ñ¢¿O.djñ¡¿j_F¿@ÈOHO>Ù_0¿dO0ñ’¿O0JFØ_2¿dO2ñ’¿O2_H¿@ÈODO@Ù_4¿dO4ñ’¿O4KGØ_6¿dO6ñ’¿O6_D¿OHOBñ¢±ìODOFñ¢±ãG¦OJÉ b¿ON _R¿Gdg ð²~¿Gd²¿ONkð™G b<14>G£OR°JGd3 —ORåORæ°<à ² G` µld
|
||
|
||
°ONkð©GON
|
||
†G b¿ONdkð³)¿GON
|
||
°g ð²ONdkðœ¿G b¿ONkð³ONOBÚ_B¿ONOHÚ_H¿ONO>Ú_>¿h_8_:¿Wb².Wd´
|
||
hO
|
||
Wfð_:²` È _8¿` jÍ ¿ ¿O` ð³hO
|
||
W` —O ¿`/ODOFÙ_T¿OHOBÙ_V¿OL ÈODO@ØÙ_X¿OBO>Ø_Z¿@ ÈODÙ_\¿OB_^¿` OVÍ¿` OTÍ ¿Gg ð²"` @O^O\OLOZOXOVOTGG
|
||
° ` @O^O\OLOZOXOTGGG
|
||
O:Ÿ ¿` O8Í ¿°.O É. É _<¿@ABODEFGGGGGJKlO<h (1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
|
||
(1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
|
||
()
|
||
\BITBLT.BITMAP :D8
|
||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||
µ.Gdà ² ¿G` µld
|
||
|
||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||
° ` @O0O.CO,O*O&GGG
|
||
± ”k𢱠„G²Gg ð¬o G
|
||
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
||
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
||
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||
\BITBLT.MERGE :D8
|
||
(P 2 SCRATCH P 1 SCRATCHTOP P 0 SCRATCHLEFT I 10 TEXTURE I 9 OPERATION I 8 HEIGHT I 7 WIDTH I 6 DTY I 5 DLX I 4 DESTBITMAP I 3 STY I 2 SLX I 1 SOURCEBITMAP I 0 PILOTBBT) ª Gg ð²<ADð³7@ABCDEFGg g
|
||
@hddDEFGg g G
|
||
ElåFlåGHØGIØ
|
||
Z@ABCJHIGg g
|
||
@hddJHIGg g G
|
||
@JHIDEFGg G
|
||
h (166 \BITBLTSUB 144 \BITBLTSUB 117 \BITBLTSUB 91 \GETPILOTBBTSCRATCHBM 66 \BITBLTSUB 39 \BITBLTSUB)
|
||
(158 INPUT 136 ERASE 131 TEXTURE 111 REPLACE 106 INPUT 58 ERASE 53 TEXTURE 33 REPLACE 28 INPUT 6 REPLACE)
|
||
()
|
||
\BLTSHADE.DISPLAY :D8
|
||
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE) F 14 \SCREENBITMAPS F 15 \SOFTCURSORP F 16 \SOFTCURSORUPP F 17 \CURSORDESTINATION) W à
|
||
A É0]A` ð³hA
|
||
W –A ¿BM ÉØbCM ÉØbM È"¸M È$ºM È#»M È%¹G²`HGM ÉØ_¿dOñ¢¿O¸JGM ÉØ_¿dOñ¢¿OºKOGØ_¿dOñ’¿O»IOGØ_¿dOñ’¿O¹M É\d È^BdHñ¡¿H¸CdJñ¡¿JºD™BDØdKñ‘¿K»E™CEØdIñ‘¿I¹KHñ´IJñ¡h@ dg ð¨dg ð²¿@¤MÉ6°RNkð³G@Ni °;dg ð§dg ðš¿@N å°(dg ð“¿@° g ðœNkð¨@N
|
||
µ@ b Nkð³NHÚ¸NKÚ»@N
|
||
b ¿h__¿W ²-W ´ hA
|
||
W"ð_²` È _¿` jÍ ¿ ¿A` ð³hA
|
||
W –A ¿IJÙ_¿` KHÙÍ¿` OÍ ¿` hHhLHL ÈIÙOg FµMÉ @NM ÉÚM É
|
||
|
||
¿Ož ¿` OÍ i (585 \SOFTCURSORUPCURRENT 576 \BITBLTSUB 480 \TOTOPWDS 470 DSPDESTINATION 453 \SOFTCURSORDOWN 422 DSPDESTINATION 398 COLORTEXTUREFROMCOLOR# 376 \ILLEGAL.ARG 368 COLORNUMBERP 335 MAXIMUMSHADE 309 COLORNUMBERP 271 TYPENAME 37 \TOTOPWDS 27 DSPDESTINATION)
|
||
(591 \EM.DISPINTERRUPT 568 \DISPLAYDATA 559 \DISPLAYDATA 545 TEXTURE 534 BITMAP 523 \SYSPILOTBBT 513 PILOTBBT 508 \SYSPILOTBBT 497 PILOTBBT 492 \SYSPILOTBBT 460 \TOPWDS 444 \EM.DISPINTERRUPT 434 \EM.DISPINTERRUPT 355 LISTP 344 BITMAP 325 FIXP 317 SMALLP 285 NEW-ATOM 277 LITATOM 211 BITMAP 202 \DISPLAYDATA 138 \DISPLAYDATA 112 \DISPLAYDATA 95 \DISPLAYDATA 86 \DISPLAYDATA 77 \DISPLAYDATA 68 \DISPLAYDATA 57 \DISPLAYDATA 45 \DISPLAYDATA 17 \TOPWDS 8 STREAM)
|
||
()
|
||
\BLTSHADE.BITMAP :D8
|
||
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) ú jXdYA ÈZA È[A È\dkð‘h¼G²IHG½dMñ¡¿M¸IG¾dNñ¡¿N¹KGGØ_¿dOñ’¿O»JGGØ_¿dOñ’¿OºB£jb¿C£jb¿BdHñ¡¿H¸CdIñ¡¿I¹D™BDØdKñ‘¿K»E™CEØdJñ‘¿JºKHñ´JIñ¡h@ dg ð¨dg ð²{¿L²q@µ L ŽLi µ@ b Lµ‚± ù
|
||
JIÙ_¿` KHÙÍ¿` OÍ ¿` hHhAHA ÈJÙOg F@
|
||
i@µ¤j°¦dg ð¨dg ð²#¿L²@Li µ‡@L å±ÿ}@nÿÿå±ÿudg ð”¿@±ÿhg ð¢±ÿXL²7@ µ‚±ÿO@ µ‚±ÿ@@d3 šL å±ÿ/ ±ÿ @ µ‚±ÿ@d ¢±ÿ ¿@ ±ÿHÚ¸LKÚ»@L
|
||
b ¿±þù (498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
|
||
(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
|
||
()
|
||
\BITBLT.BITMAP.SLOW :D8
|
||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||
µ.Gdà ² ¿G` µld
|
||
|
||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||
° ` @O0O.CO,O*O&GGG
|
||
± ”k𢱠„G²Gg ð¬o G
|
||
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
||
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
||
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||
\PUNT.BLTSHADE.BITMAP :D8
|
||
(L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATIONBITMAP 0 TEXTURE) P 10 \INTERRUPTABLE) ú jXdYA ÈZA È[A È\dkð‘h¼G²IHG½dMñ¡¿M¸IG¾dNñ¡¿N¹KGGØ_¿dOñ’¿O»JGGØ_¿dOñ’¿OºB£jb¿C£jb¿BdHñ¡¿H¸CdIñ¡¿I¹D™BDØdKñ‘¿K»E™CEØdJñ‘¿JºKHñ´JIñ¡h@ dg ð¨dg ð²{¿L²q@µ L ŽLi µ@ b Lµ‚± ù
|
||
JIÙ_¿` KHÙÍ¿` OÍ ¿` hHhAHA ÈJÙOg F@
|
||
i@µ¤j°¦dg ð¨dg ð²#¿L²@Li µ‡@L å±ÿ}@nÿÿå±ÿudg ð”¿@±ÿhg ð¢±ÿXL²7@ µ‚±ÿO@ µ‚±ÿ@@d3 šL å±ÿ/ ±ÿ @ µ‚±ÿ@d ¢±ÿ ¿@ ±ÿHÚ¸LKÚ»@L
|
||
b ¿±þù (498 COLORTEXTUREFROMCOLOR# 481 TEXTUREOFCOLOR 470 COLORNUMBERP 457 TEXTUREP 447 TEXTUREP 437 MAXIMUMCOLOR 418 COLORNUMBERP 403 COLORNUMBERP 359 MAXIMUMCOLOR 350 COLORNUMBERP 313 \BITBLTSUB 229 \ILLEGAL.ARG 221 COLORNUMBERP 213 MAXIMUMCOLOR 183 TYPENAME)
|
||
(389 LISTP 377 BITMAP 335 FIXP 327 SMALLP 305 TEXTURE 294 BITMAP 283 \SYSPILOTBBT 273 PILOTBBT 268 \SYSPILOTBBT 257 PILOTBBT 252 \SYSPILOTBBT 197 NEW-ATOM 189 LITATOM 30 BITMAP 21 BITMAP 12 BITMAP)
|
||
()
|
||
\PUNT.BITBLT.BITMAP :D8
|
||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||
µ.Gdà ² ¿G` µld
|
||
|
||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||
° ` @O0O.CO,O*O&GGG
|
||
± ”k𢱠„G²Gg ð¬o G
|
||
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
||
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
||
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||
\SCALEDBITBLT.DISPLAY :D8
|
||
(P 1 REGION P 0 BITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) © G £kb ¿@ ² h@
|
||
¹F¦Ib ¿G³3Ib°)@Ã ² @²F¨@ b ¿G®@ b„ ¿E©hC
|
||
b
|
||
¿D©hC
|
||
b¿FG
|
||
X@ABH HG d hdCDEFG ÖGG ÖGGGG
|
||
(166 BKBITBLT 138 EXPANDBITMAP 129 BKBITBLT 119 BITMAPCREATE 108 DSPXPOSITION 96 DSPYPOSITION 86 SHOULDNT 78 BITMAPHEIGHT 66 BITMAPWIDTH 24 DSPCLIPPINGREGION 15 WINDOWP)
|
||
(53 BITMAP)
|
||
()
|
||
\BACKCOLOR.DISPLAY :D8
|
||
(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) ƒ @g h É0 Xd É6A²\Aà ² Ad² ÈkðŸA lñ¥HA6¿A3 ™HAnÿÿå6¿H É ÈYkð«HAI
|
||
6¿A ¿ (127 \ILLEGAL.ARG 117 COLORNUMBERP 66 BITMAPHEIGHT 14 \GETSTREAM)
|
||
(103 BITMAP 96 \DISPLAYDATA 55 BITMAP 44 BITMAP 33 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
|
||
()
|
||
(RPAQQ \BBSCRATCHTEXTURE NIL)
|
||
(RPAQQ \PILOTBBTSCRATCHBM NIL)
|
||
(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
|
||
DISPLAYSTREAMP :D8
|
||
(I 0 X F 0 \DISPLAYSTREAMTYPES) : @à ´2@ É. É P ³ @ É. É …dP ¤µùh´@ NIL
|
||
(39 IMAGEOPS 32 STREAM 20 IMAGEOPS 13 STREAM 5 STREAM)
|
||
()
|
||
DSPSOURCETYPE :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 SOURCETYPE) Ÿ Ag h É0 H É @²y@g ð³@dg ð¦l
|
||
¿H@ ¿H É*@H É JLdg ð“¿k°g ð’l‹Lg ð’l€jÏ
|
||
Q¿JKg ðLg ðð‘j€kÏ
|
||
@ (62 \LISPERROR 11 \GETSTREAM)
|
||
(145 ERASE 138 INVERT 121 INVERT 110 PAINT 99 ERASE 86 \DISPLAYDATA 77 \DISPLAYDATA 53 INVERT 43 INPUT 32 \DISPLAYDATA 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
|
||
()
|
||
DSPXOFFSET :D8
|
||
(P 0 A3178 I 1 DISPLAYSTREAM I 0 XOFFSET) ' Ag h b É. É\ @AlH (11 \GETSTREAM)
|
||
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
|
||
()
|
||
DSPYOFFSET :D8
|
||
(P 0 A3179 I 1 DISPLAYSTREAM I 0 YOFFSET) ' Ag h b É. É^ @AlH (11 \GETSTREAM)
|
||
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
|
||
()
|
||
DSPDESTINATION :D8
|
||
(P 4 CL::$$TYPE-VALUE P 3 CL::$$TYPE-VALUE P 2 CL::$$TYPE-VALUE P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION F 5 DisplayFDEV F 6 \4DISPLAYFDEV F 7 XDisplayFDEV F 8 \8DISPLAYFDEV F 9 \24DISPLAYFDEV) ý Ag h b É0 XdÉ@¢± ØA @Jà ²2@ Èdkð“¿U°,dlð“¿V°#dlð”¿W°lð’W<12> ‰Jà ´W
|
||
¿A @KÃ ²A@ Èdkð—¿` °:dlð—¿` °-dlð—¿` ° lð–` ° ŒKÃ ´` .¿H@¿@LÃ —HA
|
||
…LÃ (241 \SFFixDestination 200 SHOULDNT 105 SHOULDNT 14 \GETSTREAM)
|
||
(248 SCREEN 233 BITMAP 214 \XDISPLAYIMAGEOPS 207 SCREEN 193 \24DISPLAYIMAGEOPS 182 \8DISPLAYIMAGEOPS 169 \4DISPLAYIMAGEOPS 156 \DISPLAYIMAGEOPS 144 BITMAP 136 BITMAP 126 STREAM 112 SCREEN 64 BITMAP 56 BITMAP 46 STREAM 28 \DISPLAYDATA 21 STREAM 8 OUTPUT)
|
||
()
|
||
DSPTEXTURE :D8
|
||
(I 1 DISPLAYSTREAM I 0 TEXTURE) @A
|
||
(6 DSPBACKCOLOR)
|
||
NIL
|
||
()
|
||
\DISPLAYSTREAMINCRXPOSITION :D8
|
||
(I 1 DD I 0 N) A A É @ÔHI I NIL
|
||
(11 \DISPLAYDATA 5 \DISPLAYDATA)
|
||
()
|
||
\SFFixDestination :D8
|
||
(P 1 BM P 0 PBT I 1 DISPLAYSTREAM I 0 DISPLAYDATA) 9 @É*@ÉH IÈàààànÿÿåÍ@ @nÿÿ>¿@nÿÿÍ'A@
|
||
h (53 \SFFixFont 33 \SFFixClippingRegion)
|
||
(14 PILOTBBT)
|
||
()
|
||
\SFFixClippingRegion :D8
|
||
(P 1 BM P 0 CLIPREG I 0 DISPLAYDATA) • @É
|
||
@ÉB@HHØ@ ÉØIȺdJñ‘¿J»jKñ¡K€jÍ#@H@ ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ"@HHØ@ ÉØIȼdLñ‘¿L½jMñ¡M€jÍ%@H@ ÉØdjñ¡¿jdnÿÿñ“¿nÿÿÍ$h NIL
|
||
(124 \DISPLAYDATA 91 \DISPLAYDATA 54 \DISPLAYDATA 22 \DISPLAYDATA)
|
||
()
|
||
\SFFixFont :D8
|
||
(I 1 DISPLAYDATA I 0 DISPLAYSTREAM) 5 AÉ*AÉ AÉÈAJkðhðµ IÈ jðhðAnÿÿ>¿AnÿÿÍ'@ (50 \SFFIXLINELENGTH)
|
||
NIL
|
||
()
|
||
\SFFIXLINELENGTH :D8
|
||
(P 0 DD I 0 DISPLAYSTREAM) I @ É0!@HÉHÉÙHÉ ÈÛ¹kIñ¡I€kºnÿÿJñ‘J‚nÿÿÍg ´ @ h (69 \UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 61 BOUNDP)
|
||
(56 %%SYNONYM-STREAM-DEVICE 26 FONTDESCRIPTOR 5 STREAM)
|
||
()
|
||
\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 F 8 %%SYNONYM-STREAM-DEVICE F 9 %%ECHO-STREAM-DEVICE F 10 %%TWO-WAY-STREAM-DEVICE) f @ÈaWÉYOµI^É ²!NÉ @ð²NHÍ¿WÉZµWÉ\µO_°Í[ÉNð”KHÍ¿J°á]ÉNð”MHÍ¿L°Ø (38 CL:SYMBOL-VALUE 28 BOUNDP)
|
||
NIL
|
||
()
|
||
\SFFixY :D8
|
||
(P 4 BM P 3 CHARTOP P 2 TOP P 1 Y P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) È @É*@É@ ÉØ’
|
||
I@AÈ
|
||
]Í'¿MØ[@É\ É LÈL È@È%dKñ‘¿Kdjñ¡¿jZÙÚоH NÒÍ¿H NÓÍ ¿AÉ\É LÈ@KJÙdjñ¡¿jdnÿÿñ“¿nÿÿ_B¿OÚÐ_¿H OÒÍ¿H OÓÍ¿HJI@AÈ _Í@¿OÙ@È$_¿dOñ¢¿OÙdjñ¡¿jÍ h NIL
|
||
(152 PILOTBBT 140 PILOTBBT 88 PILOTBBT 77 PILOTBBT 49 BITMAP 38 BITMAP 11 \DISPLAYDATA)
|
||
()
|
||
\SIMPLE.DSPCREATE :D8
|
||
(I 0 DESTINATION) @µ
|
||
` b † ¿@ (22 \COMMON.DSPCREATE)
|
||
(15 BITMAP 7 ScreenBitMap)
|
||
()
|
||
\COMMON.DSPCREATE :D8
|
||
(P 2 DSTRM I 3 OLDDSP I 2 IMAGEOPS I 1 FDEV I 0 DESTINATION F 5 DisplayFDEV F 6 OLDSTREAM) à Cµ‚±ql djÏ0¿dg &¿` dj6¿dk.¿dk,¿` dkÏ
|
||
¿HdI*¿dj¿d` ¿o dnÿdhHdI
|
||
¿d` ¿dj¿dj¿dj¿dj ¿HdI0¿Bµ` HdI.¿AµUHdI
|
||
¿dkÏ 0¿dnÿÿÍ5¿` HdIÍ4¿dh2¿dg *¿dg $¿` HdIÍ¿dj¿dj¿dkÏ ¿dkÏ ¿djÍ¿dlÏ¿dh¿djÏ¿ HdÉ
|
||
Éhµg
|
||
¿Hdg
|
||
¿!` J
|
||
@J
|
||
` @ ȼ[Ló²3K°1 ¦C ¿V AµU
|
||
¿V Bµ` .¿C°©LJ
|
||
g J
|
||
g J
|
||
J (447 DSPOPERATION 436 DSPSOURCETYPE 425 DSPRIGHTMARGIN 384 \ILLEGAL.ARG 377 DISPLAYSTREAMP 350 DSPDESTINATION 343 DSPFONT 328 \SETACCESS 314 \EXTERNALFORMAT)
|
||
(441 REPLACE 430 INPUT 412 \DISPLAYIMAGEOPS 404 STREAM 391 STREAM 361 BITMAP 355 SCREENWIDTH 337 DEFAULTFONT 323 OUTPUT 309 :DEFAULT 300 FDEV 233 FILELINELENGTH 225 \STREAM.NOT.OPEN 216 \EOSERROR 195 \STREAM.DEFAULT.MAXBUFFERS 153 \DISPLAYIMAGEOPS 112 ScreenBitMap 78 SCREENWIDTH 50 |PILOTBBTTYPE#| 29 |\DISPLAYDATATYPE#| 21 \DSPPRINTCHAR)
|
||
( 86 -16383)
|
||
(MOVD? (QUOTE \SIMPLE.DSPCREATE) (QUOTE DSPCREATE))
|
||
\MEDW.XOFFSET :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) N Ad²Eg h É0 H É@² @d3²¿H@¿H ¿ (75 \ILLEGAL.ARG 68 \ILLEGAL.ARG 61 \SFFixClippingRegion 14 \GETSTREAM)
|
||
(35 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
|
||
()
|
||
\MEDW.YOFFSET :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) W Ad²Ng h É0 HÉ@²-@d3²!¿H@¿H ¿Hnÿÿ>¿HnÿÿÍ' ¿ (84 \ILLEGAL.ARG 77 \ILLEGAL.ARG 56 \SFFixClippingRegion 14 \GETSTREAM)
|
||
(26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
|
||
()
|
||
\DSPCLIPPINGREGION.DISPLAY :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 DISPLAYSTREAM) e @g h É0 HÉ
|
||
A²DAl
|
||
ŸA…d3•µùi<C3B9>¿h«Ao
|
||
¿HA
|
||
¿H ¿Hnÿÿ>¿HnÿÿÍ' (83 \SFFixClippingRegion 68 ERROR 40 EQLENGTH 11 \GETSTREAM)
|
||
(23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
|
||
( 63 " is not a REGION.")
|
||
\DSPFONT.DISPLAY :D8
|
||
(P 5 \INTERRUPTABLE P 2 DD P 1 OLDFONT P 0 XFONT I 1 FONT I 0 DISPLAYSTREAM) ò P@ É0Zd É YA¢± ÙAhdd@i
|
||
µ JÉ g iA
|
||
µ o XIð’± §JH ¿JjH È
|
||
Ù¿JjH È
|
||
djð“¿nÿÿñ²QHd È
|
||
djð“¿nÿÿkØ»É KàÐÉ µOH É H È
|
||
djð“¿nÿÿkØàH NOÐO ¿O° HÉ É µH É jH
|
||
\ ¿LÉ È ÍA¿@J
|
||
(238 \SFFixFont 219 \CREATECHARSET 180 \BUILDSLUGCSINFO 68 ERROR 56 FONTCOPY 37 FONTCREATE)
|
||
(210 FONTDESCRIPTOR 161 FONTDESCRIPTOR 153 FONTDESCRIPTOR 125 FONTDESCRIPTOR 105 FONTDESCRIPTOR 91 FONTDESCRIPTOR 47 NOERROR 17 \DISPLAYDATA 8 STREAM)
|
||
( 63 "FONT NOT FOUND OR ILLEGAL FONTCOPY PARAMETER")
|
||
\DISPLAY.PILOTBITBLT :D8
|
||
(I 1 N I 0 PILOTBBT) @Av NIL
|
||
NIL
|
||
()
|
||
\DSPLINEFEED.DISPLAY :D8
|
||
(P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) % @ É0 HÉA²Ad3–¿HA¿ ¿ (33 \ILLEGAL.ARG)
|
||
(5 STREAM)
|
||
()
|
||
\DSPLEFTMARGIN.DISPLAY :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 0 @ É0 HÉA² Ad3²¿HA¿@ ¿ (44 \ILLEGAL.ARG 37 \SFFIXLINELENGTH)
|
||
(5 STREAM)
|
||
()
|
||
\DSPOPERATION.DISPLAY :D8
|
||
(P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) ¯ @g h É0 !H É A¢± ˆAg ð³%Ag ð³ Ag ð³Adg ð¦l
|
||
¿HA ¿H É*H É ºYAdg ð“¿k°g ð’l‹Ag ð’l€jÏ
|
||
Q¿IJg ðAg ðð‘j€kÏ
|
||
@ (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)
|
||
()
|
||
\DSPRIGHTMARGIN.DISPLAY :D8
|
||
(P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 4 @ É0HÉYA²!Ad3²Iô³HA¿@ „ I (48 \ILLEGAL.ARG 41 \SFFIXLINELENGTH)
|
||
(5 STREAM)
|
||
()
|
||
\DSPXPOSITION.DISPLAY :D8
|
||
(P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) / @ É0 H É A²Ad3›¿HA ¿@jÍ¿ ¿ (43 \ILLEGAL.ARG)
|
||
(16 \DISPLAYDATA 5 STREAM)
|
||
()
|
||
\DSPYPOSITION.DISPLAY :D8
|
||
(P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 7 @ É0 HÉA²&Ad3²¿HA¿Hnÿÿ>¿HnÿÿÍ' ¿ (51 \ILLEGAL.ARG)
|
||
(5 STREAM)
|
||
()
|
||
(MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS))
|
||
(MOVD? (QUOTE NILL) (QUOTE WFROMDS))
|
||
(MOVD? (QUOTE NILL) (QUOTE WINDOWP))
|
||
(MOVD? (QUOTE NILL) (QUOTE INVERTW))
|
||
(RPAQ? PROMPTWINDOW T)
|
||
(RPAQ? \WINDOWWORLD NIL)
|
||
(RPAQ? \MAINSCREEN NIL)
|
||
(RPAQ? \TOPWDS)
|
||
(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@¢±
|
||
@g h b ³g –@ ¦@ ¿ @dTð’± …¿Tµ VTð²8@c °4` ð³ð` –h ¿Ti
|
||
JœJg U ¿°Ç@c¿WU@i
|
||
Z² Jg ` ¿Jg
|
||
µ c
|
||
ð“Uc¿@c W ²Cg @
|
||
¿@ É0[ È%K È$ÙK ɹjIñ¡I‚jIÙÛ (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)
|
||
()
|
||
optimize-TTYDISPLAYSTREAM :D8
|
||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @¥g g NIL
|
||
(14 IGNOREMACRO 8 \TERM.OFD)
|
||
()
|
||
(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) 6 Ag h É0 HÉ µg @œH@g ðhð ¿ (11 \GETSTREAM)
|
||
(45 OFF 36 OFF 23 \DISPLAYDATA 16 STREAM 5 OUTPUT)
|
||
()
|
||
PAGEHEIGHT :D8
|
||
(L (0 N) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P@3—@c ¿jc¿ NIL
|
||
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) - @g h b É0 @i
|
||
2hI
|
||
I
|
||
hI
|
||
I
|
||
HÉ
|
||
ZH É [d È\K È djð²%¿@HÉ
|
||
¿@JJØmÿØLÙkØ
|
||
°UdlZð²¿@JLØ
|
||
¿@J
|
||
°8nð²(@JJØmÿØLÙ
|
||
¿@JJØmÿØ
|
||
‰o ¿hdd@JJJJg g HÉ6
|
||
@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 80 FONTCREATE 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
|
||
(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
|
||
( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "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)) ? @!H¹Hºg g o g Io g g Jhh NIL
|
||
(49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND)
|
||
( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*))
|
||
(SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR))
|
||
(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 ` –@ ¿U²U œ@Wð—UA
|
||
¿Alÿñ² V É€ŸAV É€
|
||
µj‚VAÂlådjð²y¿Adl
|
||
ñ² @H ¿@ @ ÈkÔͱ¸l
|
||
ð«Adl
|
||
ð¦dl
|
||
ðŸ¿A@
|
||
¿@jͱ™jð²lA@
|
||
@
|
||
±„A@H ¿@ @ ÈkÔͱfdlð²h¿A ¹@I
|
||
HÉHÉ Ùñ²l
|
||
@
|
||
¿@I °@ @ ÈI ÔÍ¿kIJ
|
||
µ±@H ¿JkÔº°ædl𢱠é¿Adl
|
||
ð©dl
|
||
ð¤dl
|
||
ð<EFBFBD>@
|
||
¿@jͱ Ólð²!l$@H ¿@ @ ÈkÔͱ ¯Adlð²3¿` dlð©dlð¤dlð<>¿o ± …¿@ °vl ð²Ll @
|
||
Kààà\HÉ HÉÙL
|
||
Ù\H
|
||
HÉñ˜l
|
||
@
|
||
¿@ @ ÈLKÛÔÍ°'A@H ¿@ @ ÈkÔ͈lð¤ h (559 SHOULDNT 530 \BLTCHAR 498 \DSPPRINTCR/LF 485 \DISPLAYSTREAMINCRXPOSITION 477 IMOD 456 CHARWIDTH 441 FLASHWINDOW 436 WFROMDS 426 PLAYTUNE 365 \BLTCHAR 343 \DSPPRINTCR/LF 305 \BLTCHAR 291 NTHCHARCODE 276 NCHARS 254 NCHARS 246 \DSPPRINTCR/LF 228 \STRINGWIDTH.DISPLAY 220 \INDICATESTRING 182 \BLTCHAR 171 DSPBACKUP 165 CHARWIDTH 145 \DSPPRINTCR/LF 100 \BLTCHAR 70 GETHASH 40 \OUTCHAR 27 STREAMP 17 \CARET.DOWN)
|
||
(543 STREAM 537 STREAM 511 STREAM 505 STREAM 400 \MACHINETYPE 378 STREAM 372 STREAM 268 STREAM 262 STREAM 195 STREAM 189 STREAM 113 STREAM 107 STREAM 63 CHARTABLE 53 CHARTABLE 10 \CARET.UP)
|
||
( 421 ((880 . 2500)))
|
||
\DSPPRINTCR/LF :D8
|
||
(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 KEPTWIDTH P 12 HGHT P 11 DBITMAP P 10 BKGRND P 9 WDTH P 8 LFT P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DISPLAY-STREAM I 0 CHARCODE F 16 \SOFTCURSORP F 17 \SCREENBITMAPS F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \TERM.OFD) Ó AdW(𲿠¿` –A ¿A É0QH É¢±KH É È \jð’±5HÉ
|
||
@l
|
||
ð²AH É2[•AkK¿LdlZð•¿N° nðœNNØmÿ؉o A
|
||
¿H É LdlZð—¿jHÉÙ°nð“Hɉo Ø_¿H É ¢±¥LdlZð²,¿OH ÉØH È#H É È ÙÙZjñ°5nð²*H È"H É È ØOH ÉØÙZjñ„ ¢±=`
|
||
H È"_¿H É_¿H È$¹HÈ%IÙ_¿H È#OÙ_¿HÉ6_¿ W ²-W$´ hA
|
||
W&ð_ ²` È _ ¿` jÍ ¿ ¿A` ð³hA
|
||
W" –A ¿JOñ›hjdOOIO°eLlZð²3OOJØIOOIOJÙ_Og g
|
||
¿hjdOOOØ°,OOIOOJØIOJÙOg g
|
||
¿hjdOOIJOg g O
|
||
¿O Ÿ ¿` O Í ¿LlZð”OJÙƒOJØ_<0E>OA
|
||
±Y@l
|
||
ð² H É2[•AkK¿HÉA
|
||
¿HÉHÉØ»H É ¢± H È$YH É È ØKH ÉØÙZjñ¢± óP H È"_¿H É_¿HÈ%IÙ_¿H È#OÙ_¿HÉ6_¿ W ²-W$´ hA
|
||
W&ð_ ²` È _ ¿` jÍ ¿ ¿A` ð³hA
|
||
W" –A ¿JOñ<>hjdOOIOO°0OOIOOIJØOOJÙg g
|
||
¿hjdOOIOJg g O
|
||
¿O Ÿ ¿` O Í ¿KJØ[€KA
|
||
h (975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?)
|
||
(956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP)
|
||
( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270")
|
||
\TTYBACKGROUND :D8
|
||
(P 0 X F 1 \LINEBUF.OFD) D Q É` ð²/` ²` ` 𥠿` Šd jHµô (65 \BACKGROUND 39 WAIT.FOR.TTY)
|
||
(45 TTYBACKGROUNDFNS 32 \TTY.PROCESS 27 \RUNNING.PROCESS 20 \RUNNING.PROCESS 12 \KEYBOARD.STREAM 5 STREAM)
|
||
()
|
||
DSPBACKUP :D8
|
||
(P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) f A ³Ag
|
||
b ¢± Ag h b É0 q@H É \HÉÙ½dMñ‘¿M[H É YH ɘI È €jZKjñ´‚± Ä` –A ¿Jdjð²0¿LKÙA
|
||
¿hjdAH É HÉI È ÙKI È
|
||
°qlZð²0hjdAH É I ÈÙH H ÉjKÙÔ^¿N°5Jnð²GhjdAH É I È ÙH H ÉKÔ_¿OI È
|
||
Kg g
|
||
i@Mjñ²#Al
|
||
¿Al
|
||
¿Al
|
||
¾MkÙ]°ÝN (347 BOUT 338 BOUT 329 BOUT 310 BKBITBLT 291 FONTCREATE 259 FONTCREATE 206 FONTCREATE 179 FONTCREATE 169 FONTCREATE 147 DSPXPOSITION 130 \CARET.DOWN 41 \GETSTREAM 25 DISPLAYSTREAMP 18 GETSTREAM 5 DISPLAYSTREAMP)
|
||
(304 REPLACE 299 TEXTURE 274 \DISPLAYDATA 268 \DISPLAYDATA 251 \DISPLAYDATA 221 \DISPLAYDATA 215 \DISPLAYDATA 198 \DISPLAYDATA 158 \DISPLAYDATA 123 \CARET.UP 104 FONTDESCRIPTOR 95 \DISPLAYDATA 86 \DISPLAYDATA 65 \DISPLAYDATA 55 \DISPLAYDATA 48 STREAM 35 OUTPUT 13 OUTPUT)
|
||
()
|
||
(RPAQ? \CARET.UP)
|
||
(RPAQQ BELLCNT 2)
|
||
(RPAQQ BELLRATE 60)
|
||
(RPAQQ \DisplayStoppedForLogout NIL)
|
||
(RPAQQ TtyDisplayStream NIL)
|
||
COLORDISPLAYP :D8
|
||
(F 0 ColorScreenBitMap) Phðhð NIL
|
||
NIL
|
||
()
|
||
DISPLAYBEFOREEXIT :D8
|
||
(I 0 EXITFN F 0 \TERM.OFD) L ` ´E @dg ð–¿ dg ðœ¿P g ð‘h (73 SHOULDNT 58 CLRPROMPT 53 DSPRESET 37 SHOWDISPLAY 16 CHANGEBACKGROUNDBORDER 11 CURSOR)
|
||
(64 SYSOUT 44 MAKESYS 29 LOGOUT 22 \DisplayStoppedForLogout 4 \DisplayStarted)
|
||
()
|
||
DISPLAYAFTERENTRY :D8
|
||
(I 0 ENTRYFN F 0 \VideoColor) \ ` ` ` ². ¿P ¿` ¿` ¿h ¿g ´ (89 CARETRATE 84 CARETRATE 77 \DEFINEDP 59 CHANGEBACKGROUNDBORDER 47 CURSOR 35 VIDEOCOLOR 28 \STARTDISPLAY)
|
||
(72 CARETRATE 66 \DisplayStoppedForLogout 53 \DisplayStoppedForLogout 41 \DisplayStoppedForLogout 21 \DisplayStoppedForLogout 14 \EM.CURSORBITMAP 9 BITMAP 4 CursorBitMap)
|
||
()
|
||
(PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X))))
|
||
\DSPCLIPTRANSFORMX :D8
|
||
(P 0 TX I 1 DD I 0 X) * @A ÉØ A È"Hñhð´A È#Hñ´H NIL
|
||
(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
|
||
()
|
||
\DSPCLIPTRANSFORMY :D8
|
||
(P 0 TY I 1 DD I 0 Y) * @A ÉØ A È$Hñhð´A È%Hñ´H NIL
|
||
(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
|
||
()
|
||
\DSPTRANSFORMREGION :D8
|
||
(I 1 DS I 0 REGION) ' @A ÉØ@A ÉØ@@h NIL
|
||
(19 \DISPLAYDATA 7 \DISPLAYDATA)
|
||
()
|
||
\DSPUNTRANSFORMY :D8
|
||
(I 1 DD I 0 Y) @A ÉÙ NIL
|
||
(6 \DISPLAYDATA)
|
||
()
|
||
\DSPUNTRANSFORMX :D8
|
||
(I 1 DD I 0 X) @A ÉÙ NIL
|
||
(6 \DISPLAYDATA)
|
||
()
|
||
\OFFSETCLIPPINGREGION :D8
|
||
(P 0 CREG I 1 OLDREGION I 0 DD) ~ @ É
|
||
Aµ @ Éjð²?@ Éjð²3HH@ ÉØAH@ ÉØAHAHAH@ ÉØH@ ÉØHHh NIL
|
||
(106 \DISPLAYDATA 94 \DISPLAYDATA 62 \DISPLAYDATA 47 \DISPLAYDATA 31 \DISPLAYDATA 19 \DISPLAYDATA 5 \DISPLAYDATA)
|
||
()
|
||
UPDATESCREENDIMENSIONS :D8
|
||
NIL ` ` dlðªdlð¥dlð²¿n n( dl𲿠lð²}C }D (93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
|
||
(87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE)
|
||
()
|
||
\CreateScreenBitMap :D8
|
||
(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹ @lØââââHAÚlÿØãkÙY` ñ²I` kØKJó²vI ¿` à –` µ#l d` ¿dHÍ¿d@Í¿dAÍ¿dkÍ¿ ` ` @Í` HÍ` AÍ` ` KáÐid ¿KkÔ[±ÿt (175 \NEWPAGE)
|
||
(165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage)
|
||
()
|
||
(UPDATESCREENDIMENSIONS)
|
||
(RPAQ? SCREENHEIGHT 808)
|
||
(RPAQ? SCREENWIDTH 1024)
|
||
(RPAQ? \OLDSCREENHEIGHT 808)
|
||
(RPAQ? \OLDSCREENWIDTH 1024)
|
||
(RPAQ? \MaxScreenPage -1)
|
||
(RPAQ? ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT))
|
||
(RPAQ? ColorScreenBitMap NIL)
|
||
(CURSOR.INIT)
|
||
(RPAQ? \DISPLAYINFOALIST)
|
||
\CoerceToDisplayDevice :D8
|
||
(P 0 DEV I 0 NameOrDevice) * @µ` HÃ ‘HHid µ o (39 ERROR 27 \GETDEVICEFROMNAME)
|
||
(16 FDEV 7 LastCreatedDisplayDevice)
|
||
( 34 "No color drivers have been loaded")
|
||
\CREATEDISPLAYA0014 :D8
|
||
(L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @ NIL
|
||
NIL
|
||
()
|
||
\CREATEDISPLAYA0021 :D8
|
||
(L (2 FDEV 1 RECOG 0 NAME)) @ NIL
|
||
NIL
|
||
()
|
||
\CREATEDISPLAYA0023 :D8
|
||
(L (0 NAME)) @ NIL
|
||
NIL
|
||
()
|
||
\CREATEDISPLAY :D8
|
||
(P 0 FDEV I 0 DISPLAYNAME) a ` d@¿djÏ ¿djÏ ¿djÏ 0¿dg ¿dg ¿dg D¿dg ¿dg ^¿dg F¿dg ¿dg b¿dg `¿dg ¿dg ¿dg
|
||
¿dg ¿dg ¿dg ,¿dg .¿dg 0¿dg T¿dg >¿dg @¿g h¹dI¿d` h¿dg R¿dg P¿dg N¿dg H¿dg B¿dg <¿dg :¿dg *¿dg ¿dg ¿dg ¿dg ¿X@H
|
||
H (349 \DEFINEDEVICE)
|
||
(338 \GENERIC.RENAMEFILE 329 NILL 320 NILL 311 NILL 302 NILL 293 \GENERIC.READP 284 \ILLEGAL.DEVICEOP 275 NILL 266 \GENERIC.CHARSET 257 \ILLEGAL.DEVICEOP 248 \IS.NOT.RANDACCESSP 239 \IS.NOT.RANDACCESSP 230 *DEFAULT-EXTERNALFORMAT* 216 OFF 208 \NONPAGEDBOUTS 199 \ILLEGAL.DEVICEOP 190 \PAGEDBACKFILEPTR 181 \ILLEGAL.DEVICEOP 172 \DSPPRINTCHAR 163 \ILLEGAL.DEVICEOP 154 NILL 145 NILL 136 NILL 127 \CREATEDISPLAYA0023 118 \CREATEDISPLAYA0021 109 \ILLEGAL.DEVICEOP 100 NILL 91 \GENERATENOFILES 82 NILL 73 \ILLEGAL.DEVICEOP 64 \CREATEDISPLAYA0014 55 NILL 46 NILL 37 NILL 7 |FDEVTYPE#|)
|
||
()
|
||
DISPLAYSTREAMINIT :D8
|
||
(P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) « chS
|
||
!H È
|
||
Z` S
|
||
S ` @3µLdJÚ¹` IÙS
|
||
¿H È S
|
||
¿jS
|
||
¿jd` IhS
|
||
¿` S
|
||
¿JÚ` ñš` JÛlÙ€@ °<> (139 DSPRIGHTMARGIN 127 DSPCLIPPINGREGION 107 DSPXOFFSET 99 DSPYPOSITION 91 FONTCREATE 84 DSPYOFFSET 57 TERMINAL-OUTPUT 41 DSPDESTINATION 27 FONTCREATE 18 DSPFONT 9 DSPCREATE 4 \STARTDISPLAY)
|
||
(167 \LastTTYLines 155 SCREENHEIGHT 148 SCREENHEIGHT 133 SCREENWIDTH 115 SCREENWIDTH 76 SCREENHEIGHT 62 \LastTTYLines 52 \TopLevelTtyWindow 47 \DEFAULTTTYDISPLAYSTREAM 35 ScreenBitMap)
|
||
()
|
||
\STARTDISPLAY :D8
|
||
(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 \CURSORDESTINATION F 6 WINDOWBACKGROUNDSHADE F 7 \CURSORDESTWIDTH F 8 \CURSORDESTHEIGHT F 9 \CURSORDESTRASTERWIDTH) < ` ` ðœ` ` ð³AT²> ¸` ` ó«` ` ó–H ¿HŒdI µò` `
|
||
É ` È
|
||
¿i jd` ` h Sµ7` c
|
||
` c` c` ÈcH²LV ¿H °: ` ¿S ` ¿S ` ¿°¢dI µò` ` h (287 \OPENW1 231 REVERSE 224 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS)
|
||
(312 \OLDSCREENWIDTH 307 SCREENWIDTH 302 \OLDSCREENHEIGHT 297 SCREENHEIGHT 271 SCREENHEIGHT 266 SCREEN 257 SCREENWIDTH 252 SCREEN 243 ScreenBitMap 238 SCREEN 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH)
|
||
()
|
||
\MOVE.WINDOWS.ONTO.SCREEN :D8
|
||
(P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) Ú @Hµ+h´&`` ` ëZ` ` ë[@HµAhY ÉLLØmÿØ` óµLLØmÿØ` ó•Iµ¥i°¢HX°™Yd ð²\Ii
|
||
YJI É\]MØmÿØê LÙ¾jNñ¡N€jKLLØmÿØê LÙ_¿jOñ¢O€j ¿HX±ÿV (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)
|
||
()
|
||
\STOPDISPLAY :D8
|
||
(P 0 \INTERRUPTABLE) : ¿` É ` kØ
|
||
¿mÿ ¿h l: (55 PAGEHEIGHT 32 \UNLOCKPAGES 7 SHOWDISPLAY)
|
||
(47 \DisplayStarted 40 \MaxScreenPage 25 \MaxScreenPage 18 BITMAP 13 ScreenBitMap)
|
||
()
|
||
\DEFINEDISPLAYINFO :D8
|
||
(P 0 BUCKET I 0 DISPLAYINFO F 1 \DISPLAYINFOALIST) @QXd—dQ
|
||
¿@Qch (16 DREMOVE)
|
||
NIL
|
||
()
|
||
(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T))
|
||
(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
|
||
(ADDTOVAR GLOBALVARS WHOLESCREEN)
|
||
INITIALIZEDISPLAYSTREAMS :D8
|
||
NIL t o dnÿdh ` ld
|
||
g l
|
||
o jg
|
||
j
|
||
j`
|
||
g k` h
|
||
(108 FONTCLASS 89 \CREATECHARSET 73 MEDLEYFONT.READ.FONT 67 MAKEFONTSPEC 38 BITMAPCREATE)
|
||
(113 DEFAULTFONT 100 \GUARANTEEDDISPLAYFONT 94 DEFAULTFONT 84 \GUARANTEEDDISPLAYFONT 78 \GUARANTEEDDISPLAYFONT 61 DISPLAY 48 GACHA 43 \SYSBBTEXTURE 30 \SYSPILOTBBT 24 |PILOTBBTTYPE#| 19 WHOLEDISPLAY)
|
||
( 55 (MEDIUM REGULAR REGULAR) 4 -16383)
|
||
(RPAQQ \DisplayStarted NIL)
|
||
(RPAQQ \LastTTYLines 12)
|
||
(INITIALIZEDISPLAYSTREAMS)
|
||
(DISPLAYSTREAMINIT 1000)
|
||
(PUTPROPS LLDISPLAY FILETYPE :FAKE-COMPILE-FILE)
|
||
NIL
|