(FILECREATED "20-Sep-84 11:55:13" ("compiled on " {ERIS}SOURCES>LLDISPLAY.;16) "18-Sep-84 17:10:47" recompiled changes: DSPCREATE INITIALIZEDISPLAYSTREAMS in "INTERLISP-D 18-Sep-84 ..." dated "18-Sep-84 17:35:43") (FILECREATED "20-Sep-84 11:46:18" {ERIS}SOURCES>LLDISPLAY.;16 118268 changes to: (FNS DSPCREATE INITIALIZEDISPLAYSTREAMS) previous date: "20-Sep-84 11:06:39" {ERIS}SOURCES>LLDISPLAY.;14) \FBITMAPBIT D1 (L (5 RASTERWIDTH 4 HEIGHTMINUS1 3 OPERATION 2 Y 1 X 0 BASE)) r @DBEAHHCdgI`AlZJK7gI`Al\LMI`Al_^NO_ONIL (125Q BITMASKARRAY 76Q NOTBITMASKARRAY 67Q ERASE 41Q BITMASKARRAY 31Q INVERT) () INITBITMASKS D1 NIL lgjd lgjd ljnIH`IJ*`IJn*JIkYlgjd lgjd ljnIH `IJ*`IJn*JIkYh(132Q ARRAY 115Q ARRAY 26Q ARRAY 11Q ARRAY) (165Q NOT4BITMASKARRAY 156Q 4BITMASKARRAY 135Q NOT4BITMASKARRAY 125Q SMALLPOSP 120Q 4BITMASKARRAY 110Q SMALLPOSP 61Q NOTBITMASKARRAY 52Q BITMASKARRAY 31Q NOTBITMASKARRAY 21Q SMALLPOSP 14Q BITMASKARRAY 4 SMALLPOSP) () \CreateCursorBitMap D1 NIL #`dkdldld`dkNIL (30Q \EM.CURSORBITMAP 2 BITMAPTYPE#) () BITBLT D1 (L (13Q CLIPPINGREGION 12Q TEXTURE 11Q OPERATION 10Q SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATIONBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 43Q \INTERRUPTABLE) . G@"Cd`C_dkh_kNOlNNj[CGQKG_dOOMG_ dO O NGG_"dO"O"LGG_$dO$O$DjbEjb g _(_DjObEjOb O"O$O#O%GXKGO_*dO*O*MGO_,dO,O,NO*G_&dO&O&LO,G_(dO(O(Ob_kh_DdKKEdMMFDFdNNGEGdLLGgjY@d` _@_dkh_kOOlOO_Ajb_Bjb_FOb G@bDAٹEBٺOKI_:dO:O:djjOMJ_dO>O>OF_@dO@O@@LJ_BdOBOBOG_DdODODNK LMhdk߿@B_0dO0VO0POA_.dO.3O.-g (_-AjObO"_2dO2O2_BjObO$_4dO4O4_FMO#Ob G*O%ObHO6Ob_kh_O%O_8dO8ѿO8O#O_6dO6񲮿O6lOOO6Gdg¿H dgJO7HO+hO Oi t`O GOb`]HWOjS6Odgdg&OHOi 4HOlll%HndgHgOH H OOGgUOKڻONھzgHndHnnOH H gH` ld  OdOqOlKNIKNIGgHO #OO`````O `LMNKCLJKIGgh@LK7-OHOLOHOJ GgOH@OTORCOPONOJGGH Gg9@C4OH@OTORCOPONOJgg OHhddCOPONOJggH gOLOPl_XOJONl_Z _VOH@OTOROVOXOZOJgg OHhddOVOXOZOJggH OHOVOXOZCOPONOJgG `OGGgoG LMNKMJKI'GGdg?@KMCONOLOJOHOO` `OO` `O gGdggo i(3224Q ERROR 3212Q SHOULDNT 3162Q \BWTOCOLORBLT 3150Q COLORNUMBERP 3124Q COLORNUMBERP 3033Q ERROR 2770Q \PUTUPCOLORCURSOR 2760Q \BITBLTSUB 2727Q \BITBLTSUB 2676Q \BITBLTSUB 2642Q \GETPILOTBBTSCRATCHBM 2611Q \BITBLTSUB 2561Q \BITBLTSUB 2511Q \BITBLTSUB 2351Q \TOTOPWDS 2316Q \TAKEDOWNCOLORCURSOR 2274Q COLORTEXTUREFROMCOLOR# 2203Q INVERT.TEXTURE.BITMAP 2175Q BITMAPCREATE 2153Q TYPENAME 2145Q COLORNUMBERP 2040Q \ILLEGAL.ARG 2032Q COLORNUMBERP 1754Q COLORNUMBERP 1662Q \TOTOPWDS 1646Q COLORNUMBERP 1635Q DSPBACKCOLOR 1604Q TYPENAME 1265Q \GETSTREAM 254Q \GETSTREAM) (3205Q ERASE 3200Q INVERT 3167Q PAINT 3154Q BLACKCOLOR 3145Q BLACKCOLOR 3130Q WHITECOLOR 3121Q WHITECOLOR 3064Q REPLACE 3020Q INPUT 2764Q \COLORCURSORDOWN 2752Q INPUT 2722Q ERASE 2717Q TEXTURE 2672Q REPLACE 2667Q INPUT 2604Q ERASE 2601Q TEXTURE 2555Q REPLACE 2552Q INPUT 2521Q REPLACE 2457Q MERGE 2445Q PILOTBBT 2433Q PILOTBBT 2410Q TEXTURE 2363Q \SYSPILOTBBT 2357Q PILOTBBTTYPE# 2341Q \TOPWDS 2334Q \SYSPILOTBBT 2326Q PILOTBBTTYPE# 2322Q \SYSPILOTBBT 2312Q \COLORCURSORBM 2264Q MERGE 2200Q \BBSCRATCHTEXTURE 2165Q \BBSCRATCHTEXTURE 2156Q BITMAP 2101Q MERGE 2057Q TEXTURE 2021Q LISTP 2010Q BITMAP 1735Q FIXP 1727Q SMALLP 1703Q BLACKCOLOR 1653Q \TOPWDS 1610Q LITATOM 1572Q TEXTURE 1272Q \DISPLAYDATA 1262Q OUTPUT 615Q BITMAPTYPE# 577Q TEXTURE 263Q \DISPLAYDATA 251Q OUTPUT 20Q BITMAPTYPE#) ( 3221Q "not implemented to blt between bitmaps of different pixel size." 3026Q "SourceType not implemented from B&W to color bitmaps.") \BITBLTSUB D1 (P 5 X P 4 DESTADDR P 3 SOURCEADDR P 2 GRAY P 1 SBMR P 0 DBMR I 12Q Texture I 11Q Operation I 10Q 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 @j @HnDHF\@EGdg@k 0@El@jGd`ZGnbjGnJGj{JG^dNdJGl_dOdJGl_dOdJGl_dOd@lÿ@Fl_CO_@O@O@Gbdll]kÿ@FM]CGM_@O@Ogo @j 0@AYnAICл@BAD@k rCFCFGa@k _FCG@k QCFEBIEB@?@k KIGk]лLMм@jI]n@MnCF@k @K@K@L@L@GdgkglGglj Q@GgGgjk @@jv(526Q RAID) (1117Q ERASE 1111Q INVERT 1071Q INVERT 1057Q PAINT 1046Q ERASE 1033Q PILOTBBT 1022Q PILOTBBT 1011Q PILOTBBT 1000Q PILOTBBT 752Q PILOTBBT 727Q PILOTBBT 574Q PILOTBBT 541Q PILOTBBT 515Q MERGE 505Q PILOTBBT 473Q PILOTBBT 422Q BITMAP 407Q PILOTBBT 375Q PILOTBBT 136Q \SYSBBTEXTURE 113Q PILOTBBT 100Q PILOTBBT 60Q TEXTURE 47Q PILOTBBT 20Q PILOTBBT 11Q PILOTBBT) ( 523Q "Hard bitblt case") \GETPILOTBBTSCRATCHBM D1 (I 1 HEIGHT I 0 WIDTH) *``@d`A``@A (44Q BITMAPCREATE) (47Q \PILOTBBTSCRATCHBM 36Q \PILOTBBTSCRATCHBM 27Q \PILOTBBTSCRATCHBM 16Q \PILOTBBTSCRATCHBM 6 BITMAPTYPE# 2 \PILOTBBTSCRATCHBM) () BITMAPCOPY D1 (P 0 NEWBITMAP I 0 BITMAP) +@bjd@ @@ Xjdhdggj H(47Q BKBITBLT 27Q BITMAPCREATE 16Q BITMAPWIDTH) (42Q REPLACE 37Q INPUT 6 BITMAP) () BITMAPCREATE D1 (P 2 BITWIDTH P 1 RW P 0 BPP I 2 BITSPERPIXEL I 1 HEIGHT I 0 WIDTH) j@@n@ jAAnA Bddldldk Bk1@HZdlY`dIdJdAdHIAYdo@Ao khh dK(176Q \ALLOCBLOCK 165Q ERROR 62Q \ILLEGAL.ARG 34Q \ILLEGAL.ARG 15Q \ILLEGAL.ARG) (112Q BITMAPTYPE#) ( 162Q "bits in BITMAP -- too big" 150Q 377772Q) BITMAPBIT D1 (P 14Q TY P 13Q TX P 12Q DD P 11Q \INTERRUPTABLE P 4 bitmapbase P 3 oldword P 2 OLDVALUE P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP)  @d`bXjAWAHY@LjBGB@?@@Bk@I\HdkDd[`Al]MNYjCjjLKICkjLKIlqC\ `L[`Al__OOCLKJClAll `JlAll llCC Hl`C. `Akj/L[nCLKJCJZ'lnCC L[lCLKJC`JoH g b(! AO _BO _Od@`@  `@ @`@ OOOC _`O(717Q \PUTUPCOLORCURSOR 705Q BITMAPBIT 670Q \TOTOPWDS 655Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 641Q \TOTOPWDS 612Q \DSPCLIPTRANSFORMY 602Q \DSPCLIPTRANSFORMX 562Q \GETSTREAM 553Q ERROR 541Q \PUTUPCOLORCURSOR 504Q \ILLEGAL.ARG 422Q \TAKEDOWNCOLORCURSOR 374Q \ILLEGAL.ARG 354Q LRSH 334Q \PUTUPCOLORCURSOR 321Q LLSH 235Q \TAKEDOWNCOLORCURSOR) (713Q \COLORCURSORDOWN 662Q \TOPWDS 650Q \COLORCURSORBM 633Q \TOPWDS 571Q \DISPLAYDATA 557Q OUTPUT 535Q \COLORCURSORDOWN 416Q \COLORCURSORBM 330Q \COLORCURSORDOWN 245Q 4BITMASKARRAY 231Q \COLORCURSORBM 121Q BITMASKARRAY 10Q BITMAPTYPE#) ( 547Q "unknown bits per pixel size.") BLTCHAR D1 (I 1 DISPLAYSTREAM I 0 CHARCODE) @Adg ( (20Q \BLTCHAR 10Q \GETSTREAM) (15Q \DISPLAYDATA 5 OUTPUT) () \BLTCHAR D1 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) P 4 \INTERRUPTABLE) @Bd@A B[B@YBKBl A BIKBXػIHYB#XHKB"XKHIJLB*X jA`A A`A HJHIJHB@JKHjv`ih(236Q \PUTUPCOLORCURSOR 167Q \TOTOPWDS 154Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 54Q \DSPPRINTCR/LF 15Q \SLOWBLTCHAR) (232Q \COLORCURSORDOWN 161Q \TOPWDS 147Q \COLORCURSORBM) () \SLOWBLTCHAR D1 (P 14Q FONT P 13Q HEIGHTMOVED P 12Q YPOS P 11Q \INTERRUPTABLE P 10Q \INTERRUPTABLE P 7 \INTERRUPTABLE P 6 RIGHT P 5 LEFT P 4 NEWX P 3 CURX P 1 ROTATION P 0 DD I 1 DISPLAYSTREAM I 0 CHARCODE)  A(!H YdjoH1KH@\Hl A H[H@ؼHLKH[H"dKK]H#LHغdJJ^dMH*\ j HdkE`A A`A LMLNMLH@MKLjv`dlVHA `A A`A LM]LNMLH@MKLjv``lXHA  `A A`A LM]LNMLH@MKLjv`ihHH@H  IdlZ6AOO OjH@AHOkOOO n4AOO OjH@AHOAOO o (1010Q ERROR 1000Q BKBITBLT 730Q \DSPYPOSITION.DISPLAY 710Q BKBITBLT 637Q \DSPYPOSITION.DISPLAY 572Q SHOULDNT 564Q \PUTUPCOLORCURSOR 500Q \TOTOPWDS 465Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 451Q \DDSETCOLORFONT 430Q \PUTUPCOLORCURSOR 350Q \TOTOPWDS 335Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 321Q \DDSETCOLORFONT 275Q \PUTUPCOLORCURSOR 226Q \TOTOPWDS 213Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 56Q \DSPPRINTCR/LF) (770Q FONTDESCRIPTOR 755Q FONTDESCRIPTOR 700Q FONTDESCRIPTOR 664Q FONTDESCRIPTOR 560Q \COLORCURSORDOWN 472Q \TOPWDS 460Q \COLORCURSORBM 424Q \COLORCURSORDOWN 342Q \TOPWDS 330Q \COLORCURSORBM 271Q \COLORCURSORDOWN 220Q \TOPWDS 206Q \COLORCURSORBM) ( 1005Q "Not implemented to rotate by other than 0, 90 or 270") TEXTUREP D1 (L (0 OBJECT)) @dd` @k@NIL (14Q BITMAPTYPE#) () INVERT.TEXTURE D1 (I 1 SCRATCHBM I 0 TEXTURE) @ddnnA (25Q INVERT.TEXTURE.BITMAP) NIL () INVERT.TEXTURE.BITMAP D1 (I 1 SCRATCHBM I 0 BM) _@k@ A`Ak@AA Al@ H@H@IdKHJnJkкIkY(57Q BITMAPCREATE 44Q \ILLEGAL.ARG 11Q \ILLEGAL.ARG) (17Q BITMAPTYPE#) () BITMAPWIDTH D1 (I 0 BM) G@d`(dk@dl@l@ h@ @ (104Q \ILLEGAL.ARG 74Q DSPCLIPPINGREGION 67Q \INSUREWINDOW 61Q WINDOWP 55Q SHOULDNT) (5 BITMAPTYPE#) () READBITMAP D1 (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 gk@ ^HlHIN \HjmIjhJ gPIdjWJ J l"=Mdj0KjJ l@J l@ǿKkJ l@J l@ǿKkлkٰϿJ l"o hkٰJ J l)L(276Q SKIPSEPRS 263Q ERROR 150Q SKIPSEPRS 130Q SKIPSEPRS 106Q BITMAPCREATE 65Q RATOM 52Q SKIPSEPRS 43Q GETSTREAM 34Q RATOM 30Q RATOM 23Q ERROR 7 READC 3 SKIPSEPRS) (133Q %" 55Q %" 40Q INPUT 12Q %() ( 260Q "BAD FORMAT OF BITMAP IN FILE" 20Q "BAD FORMAT OF BITMAP IN FILE") DISPLAYSTREAMP D1 (L (0 X)) )@`!@&HgH gHi@NIL (35Q DISPLAY 23Q DISPLAY 4 STREAMTYPE#) () DSPSOURCETYPE D1 (P 0 DD I 1 DISPLAYSTREAM I 0 SOURCETYPE) oAg (H @Z@g@dgl H@ H*@HIKdgkglKglj QIJgKgjk @(46Q \LISPERROR 6 \GETSTREAM) (142Q ERASE 135Q INVERT 116Q INVERT 105Q PAINT 74Q ERASE 37Q INVERT 30Q INPUT 13Q \DISPLAYDATA 3 OUTPUT) () DSPXOFFSET D1 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 XOFFSET) >Ad7g (H@"@dddH@H   (73Q \ILLEGAL.ARG 66Q \ILLEGAL.ARG 61Q \SFFixClippingRegion 11Q \GETSTREAM) (16Q \DISPLAYDATA 6 OUTPUT) () DSPYOFFSET D1 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 YOFFSET) DAd=g (H@(@dddH@H H   (101Q \ILLEGAL.ARG 74Q \ILLEGAL.ARG 67Q \SFFixY 62Q \SFFixClippingRegion 11Q \GETSTREAM) (16Q \DISPLAYDATA 6 OUTPUT) () DSPCLIPPINGREGION D1 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 REGION) UAdNg (H @9@l @ddih@o H@ H H  (122Q \ILLEGAL.ARG 115Q \SFFixY 110Q \SFFixClippingRegion 73Q ERROR 35Q EQLENGTH 11Q \GETSTREAM) (16Q \DISPLAYDATA 6 OUTPUT) ( 70Q " is not a REGION.") DSPCREATE D1 (P 2 DSTRM I 0 DESTINATION) @@`@ `d`dj0dg d`&`dj6dk.dk,`dk HdI*djd`odndhHdI d`djdjdjdjHdI(dg.dg,dg"djd`djd`dhdldjRdk@dhdg Jg gJ gJ @`J J(424Q DSPDESTINATION 412Q DSPOPERATION 403Q DSPSOURCETYPE 374Q \DSPFONT.DISPLAY 371Q DEFAULTFONT 356Q \SETACCESS 14Q \ILLEGAL.ARG) (420Q ScreenBitMap 406Q REPLACE 377Q INPUT 366Q DISPLAY 353Q OUTPUT 307Q \STREAM.DEFAULT.MAXBUFFERS 273Q FILELINELENGTH 256Q \EOSERROR 247Q \STREAM.NOT.OPEN 240Q \STREAM.NOT.OPEN 173Q ScreenBitMap 134Q SCREENWIDTH 102Q PILOTBBTTYPE# 57Q \DISPLAYDATATYPE# 51Q \DISPLAYIMAGEOPS 42Q \DSPPRINTCHAR 25Q DisplayFDEV 20Q STREAMTYPE# 6 BITMAPTYPE#) ( 143Q -37777Q) DSPDESTINATION D1 (P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION) +Ag b(H@@bH@HA (47Q \SFFixDestination 6 \GETSTREAM) (32Q BITMAP 15Q \DISPLAYDATA 3 OUTPUT) () DSPTEXTURE D1 (P 0 DD I 1 DISPLAYSTREAM I 0 TEXTURE) JAg (H6@5@d`k@ lH@6@dH@n6@ (106Q \ILLEGAL.ARG 46Q BITMAPHEIGHT 6 \GETSTREAM) (32Q BITMAPTYPE# 13Q \DISPLAYDATA 3 OUTPUT) () \DISPLAYSTREAMINCRXPOSITION D1 (L (1 DD 0 N)) AA@HIINIL (3 \DISPLAYDATA) () \SFFixDestination D1 (P 1 BM P 0 PBT I 1 DISPLAYSTREAM I 0 DISPLAYDATA) *@*@HIn@ @ A@ h(46Q \SFFixFont 41Q \SFFixY 35Q \SFFixClippingRegion) (14Q PILOTBBT) () \SFFixClippingRegion D1 (L (0 DISPLAYDATA)) @ @B@HH@IIۺdJJjKKj#@H@djjdnn"@HH@IdLLjMMj%@H@djjdnn$hNIL NIL () \SFFixFont D1 (I 1 DISPLAYDATA I 0 DISPLAYSTREAM) eA*A AIAI JkAhAI HKnAJkh IjhA @ (142Q \SFFIXLINELENGTH 136Q \SFFixY) (111Q \DISPLAYDATA 67Q PILOTBBT 53Q \DISPLAYDATA 25Q \DISPLAYDATA) () \SFFIXLINELENGTH D1 (P 1 LLEN P 0 DD I 0 DISPLAYSTREAM) %@(@HHlA@ YkIl h(26Q CHARWIDTH) (11Q STREAM) () \SFFixY D1 (L (0 DISPLAYDATA)) @*@ @@cJI\@]MM@%dLLdjj[оHNHNI]MLKdjjdnn_HOHOHKJI@$_dOOdjj hNIL (166Q PILOTBBT 154Q PILOTBBT 102Q PILOTBBT 71Q PILOTBBT) () \DSPFONT.DISPLAY D1 (P 4 \INTERRUPTABLE P 3 NBITS P 2 OLDFONT P 1 XFONT P 0 DD I 1 FONT I 0 DISPLAYSTREAM) _@(1H ZALAgi JA H[kIh@ h@ K YIJHI HjI@H (133Q \SFFixFont 73Q \GETCOLORFONT 67Q DSPBACKCOLOR 62Q DSPCOLOR 41Q FONTCOPY 32Q \COERCEFONTDESC) (120Q FONTDESCRIPTOR 26Q DISPLAY 14Q \DISPLAYDATA 3 STREAM) () \DSPLINEFEED.DISPLAY D1 (P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) &@(HAAdddHA (42Q \ILLEGAL.ARG) NIL () \DSPLEFTMARGIN.DISPLAY D1 (P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) ,@(HA AddmHA@  (50Q \ILLEGAL.ARG 43Q \SFFIXLINELENGTH) NIL () \DSPOPERATION.DISPLAY D1 (P 0 DD I 1 OPERATION I 0 DISPLAYSTREAM) @g (!HAkAgAgAgAdgl HAH*H YAdgkglAglj QIJgAgjk @(72Q \LISPERROR 6 \GETSTREAM) (171Q ERASE 164Q INVERT 145Q INVERT 134Q PAINT 123Q ERASE 112Q \DISPLAYDATA 104Q \DISPLAYDATA 63Q ERASE 54Q INVERT 45Q REPLACE 36Q PAINT 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \DSPRIGHTMARGIN.DISPLAY D1 (P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) 1@(HYA#AddmIHA@  I(55Q \ILLEGAL.ARG 50Q \SFFIXLINELENGTH) NIL () \DSPXPOSITION.DISPLAY D1 (P 0 DD I 1 XPOSITION I 0 DISPLAYSTREAM) +@(HAAdddHA@j (47Q \ILLEGAL.ARG) NIL () \DSPYPOSITION.DISPLAY D1 (P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) .@(HA"AdddHAH  (52Q \ILLEGAL.ARG 45Q \SFFixY) NIL () TTYDISPLAYSTREAM D1 (P 3 DD P 2 WIN P 0 \INTERRUPTABLE I 0 DISPLAYSTREAM F 4 TtyDisplayStream F 5 \TERM.OFD F 6 \LINEBUF.OFD F 7 \PRIMOUT.OFD F 10Q \PRIMIN.OFD F 11Q \DRIBBLE.OFD) @Tg @ bT @TT @i@`W@ WU:@c6``h UhU Ti JJgV @c WV@i JJg` Jg c Vc@cg@ @(K%K$KjIIjI (320Q PAGEHEIGHT 261Q DSPSCROLL 235Q \CREATELINEBUFFER 230Q GETWINDOWUSERPROP 220Q PUTWINDOWPROP 200Q WFROMDS 160Q PUTWINDOWPROP 143Q WFROMDS 135Q \REMOVEDRIBBLECHECK 123Q \CLEAROFD 117Q \CARET.DOWN 65Q \ADDDRIBBLECHECK 23Q \ILLEGAL.ARG 15Q DISPLAYSTREAMP 12Q \GETSTREAM) (255Q ON 225Q \LINEBUF.OFD 215Q \RUNNING.PROCESS 212Q PROCESS 154Q \LINEBUF.OFD 112Q \CARET.UP 104Q \DEFAULTTTYDISPLAYSTREAM 54Q \DEFAULTTTYDISPLAYSTREAM 7 OUTPUT) () \REMOVEDRIBBLECHECK D1 (P 0 OC I 0 DISPLAYSTREAM) )@$g H@H @@$g $h(43Q LISTPUT 10Q LISTGET) (40Q \OUTCHAR 32Q STREAM 22Q STREAM 5 \OUTCHAR) () \ADDDRIBBLECHECK D1 (L (0 DISPLAYSTREAM)) @g@ @$$@g gNIL (34Q \TTYOUTCHARFN 27Q \TTYOUTCHARFN 24Q STREAM 6 \OUTCHAR 3 STREAM) () DSPRESET D1 (P 4 X P 3 FONTASCENT P 2 FONT P 1 CREG P 0 DD I 0 DISPLAYSTREAM) @g b(1H YH Zd[Jdj @H @IIkKk HdlZ@IK @I /n"@IIkK @IIk o hdd@IIIIggH6 @ Ld .\h @Lo (327Q PROCESS.EVAL 313Q PROCESS.TTY 301Q \INSUREWINDOW 270Q WFROMDS 264Q BKBITBLT 224Q ERROR 214Q \DSPYPOSITION.DISPLAY 174Q \DSPXPOSITION.DISPLAY 145Q \DSPYPOSITION.DISPLAY 135Q \DSPXPOSITION.DISPLAY 114Q \DSPYPOSITION.DISPLAY 70Q \DSPXPOSITION.DISPLAY 6 \GETSTREAM) (255Q REPLACE 252Q TEXTURE 51Q FONTDESCRIPTOR 42Q FONTDESCRIPTOR 33Q \DISPLAYDATA 20Q \DISPLAYDATA 13Q STREAM 3 OUTPUT) ( 324Q (SETQ \CURRENTDISPLAYLINE 0) 221Q "only supported rotations are 0, 90 and 270") DSPSCROLL D1 (I 1 DISPLAYSTREAM I 0 SWITCHSETTING) &Ag (Hg@H@gh(6 \GETSTREAM) (35Q OFF 26Q OFF 13Q \DISPLAYDATA 3 OUTPUT) () CHANGETTYDEVICE D1 (P 0 \INTERRUPTABLE I 0 NEWTTYDEVICE F 1 \TERM.OFD F 2 TtyDisplayStream F 3 \PRIMOUT.OFD) @gigb@dg\`gPQR`gQhQg SQ`cRhc`cg ohgR`b@ *`ggoh@ g@ (265Q \ILLEGAL.ARG 253Q TTYDISPLAYSTREAM 207Q DISPLAYSTREAMP 56Q HELP 22Q \CLEAROFD) (260Q BCPLDISPLAY 247Q TtyDisplayStream.SAVE 242Q \STOPSCROLLMESSAGE 232Q \CURRENTTTYDEVICE 227Q LISPDISPLAY 222Q LISPDISPLAY 217Q \CURRENTTTYDEVICE 177Q TtyDisplayStream.SAVE 167Q LISPDISPLAY 160Q \STOPSCROLLMESSAGE 146Q \TTYOUTCHARFN 143Q STREAM 136Q \TERM.OFD.SAV 126Q TtyDisplayStream.SAVE 117Q \TERM.OFD.SAV 105Q \DSPPRINTCHAR 102Q STREAM 72Q STREAM 65Q \CURRENTTTYDEVICE 62Q BCPLDISPLAY 51Q \DEFAULTTTYDISPLAYSTREAM 41Q BCPLDISPLAY 36Q \CURRENTTTYDEVICE 27Q BCPLDISPLAY 14Q LISPDISPLAY 5 BCPLDISPLAY) ( 237Q "" 155Q "------TYPE ANY CHARACTER TO CONTINUE------") OUTPUTDSP D1 (I 0 FILE) @g (11Q DISPLAYSTREAMP 6 \GETSTREAM) (3 OUTPUT) () PAGEHEIGHT D1 (L (0 N) F 0 \#DISPLAYLINES) P@dd@cjNIL (24Q \CURRENTDISPLAYLINE) () \DSPPRINTCHAR D1 (P 3 TABWIDTH P 2 SPACEWIDTH P 1 CC P 0 DD I 1 CHARCODE I 0 STREAM F 4 \PRIMTERMSA) m`@ @(TAldlIA@@Ill#@H Ilkjl Il^@H Il@kjI@H k dlAdl dl dl @ @jll$@H @@kAdlgo @ l =l @ J[HHK [H Hl @ @@KJcA@H @@kOdjCAdl dl dl @ @j+jlA@ @ A@H @@klh(551Q SHOULDNT 525Q \BLTCHAR 515Q DSPBACKUP 511Q CHARWIDTH 466Q \DSPPRINTCR/LF 416Q \BLTCHAR 367Q \DSPPRINTCR/LF 354Q \DISPLAYSTREAMINCRXPOSITION 346Q IMOD 323Q CHARWIDTH 305Q FLASHWINDOW 302Q WFROMDS 273Q PLAYTUNE 257Q MACHINETYPE 225Q \BLTCHAR 176Q \DSPPRINTCR/LF 126Q \BLTCHAR 107Q \BLTCHAR 62Q \BLTCHAR 7 \CARET.DOWN) (532Q STREAM 473Q STREAM 423Q STREAM 374Q STREAM 262Q DANDELION 232Q STREAM 203Q STREAM 43Q STREAM 2 \CARET.UP) ( 270Q ((1560Q . 4704Q))) \DSPPRINTCR/LF D1 (P 23Q BKGRND P 22Q WDTH P 21Q HGHT P 20Q DBITMAP P 17Q LFT P 16Q \INTERRUPTABLE P 15Q KEPTWIDTH P 14Q HGHT P 13Q BKGRND P 12Q WDTH P 11Q DBITMAP P 10Q 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 DS I 0 CHARCODE F 24Q TtyDisplayStream) AdW(`A A(QHH \jH @l 9H2[AkKLdlZNnNNk؆o A HLdlZjHُnHo _HBLdlZ$OHH#H Zj+n"H"H OHZjH"HB H$H%I_H#O_OkhA H6_`A A`A JOhjdOOIOYLlZ-OOJIOOIOJ_Ogg hjdOOOذ&OOIOOJIOJOgg hjdOOIJOggO `LlZOJكOJ_OA @l H2[AkKHA HHػHH$YH KHZjH"HH%I#H#O_$O khA H6_&`A A`A JO"hjdO OIO$O"*O OIO OIJO$O"Jgg hjdO OIO$JggO& `KJ[KA h(1357Q DSPYPOSITION 1342Q \PUTUPCOLORCURSOR 1332Q BKBITBLT 1302Q BKBITBLT 1222Q \TOTOPWDS 1207Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1165Q DSPBACKCOLOR 1020Q DSPXPOSITION 761Q DSPXPOSITION 727Q \PUTUPCOLORCURSOR 717Q BKBITBLT 667Q BKBITBLT 616Q BKBITBLT 530Q \TOTOPWDS 515Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 473Q DSPBACKCOLOR 376Q SHOULDNT 236Q ERROR 172Q DSPYPOSITION 166Q ERROR 22Q \CARET.DOWN 11Q \STOPSCROLL?) (1336Q \COLORCURSORDOWN 1324Q REPLACE 1321Q TEXTURE 1276Q REPLACE 1273Q INPUT 1214Q \TOPWDS 1202Q \COLORCURSORBM 1153Q BITMAP 1136Q \DISPLAYDATA 1120Q \DISPLAYDATA 1112Q \DISPLAYDATA 1073Q \DISPLAYDATA 1063Q FONTDESCRIPTOR 1056Q \DISPLAYDATA 1047Q \DISPLAYDATA 1035Q \DISPLAYDATA 777Q \DISPLAYDATA 723Q \COLORCURSORDOWN 711Q REPLACE 706Q TEXTURE 663Q REPLACE 660Q INPUT 612Q REPLACE 607Q INPUT 522Q \TOPWDS 510Q \COLORCURSORBM 461Q BITMAP 444Q \DISPLAYDATA 425Q \DISPLAYDATA 414Q \DISPLAYDATA 406Q \DISPLAYDATA 363Q \DISPLAYDATA 352Q FONTDESCRIPTOR 345Q \DISPLAYDATA 337Q \DISPLAYDATA 314Q FONTDESCRIPTOR 307Q \DISPLAYDATA 301Q \DISPLAYDATA 272Q \DISPLAYDATA 246Q \DISPLAYDATA 177Q \DISPLAYDATA 110Q \DISPLAYDATA 57Q FONTDESCRIPTOR 52Q \DISPLAYDATA 40Q \DISPLAYDATA 27Q STREAM 15Q \CARET.UP) ( 233Q "Only rotations supported are 0, 90 and 270" 163Q "Only rotations supported are 0, 90 and 270") \TTYBACKGROUND D1 NIL '````djH(44Q \BACKGROUND 16Q PROCESS.PREPARE.FOR.INPUT) (22Q TTYBACKGROUNDFNS 11Q \TTY.PROCESS 6 \RUNNING.PROCESS 2 \RUNNING.PROCESS) () DSPBACKUP D1 (P 4 XPOS P 3 BLTWIDTH P 2 ROTATION P 1 FONT P 0 DD I 1 DISPLAYSTREAM I 0 WIDTH) Ag b(q@H\HٽdMM[H YHIjZKj`A Jdj(LKA hjdAHHIKI_lZ(hjdAHIHHjK^N-Jn7hjdAHIHHK_OIKgg i(343Q BKBITBLT 136Q DSPXPOSITION 117Q \CARET.DOWN 6 \GETSTREAM) (337Q REPLACE 334Q TEXTURE 326Q FONTDESCRIPTOR 307Q \DISPLAYDATA 303Q \DISPLAYDATA 274Q FONTDESCRIPTOR 266Q \DISPLAYDATA 232Q \DISPLAYDATA 226Q \DISPLAYDATA 217Q FONTDESCRIPTOR 211Q \DISPLAYDATA 170Q FONTDESCRIPTOR 160Q FONTDESCRIPTOR 147Q \DISPLAYDATA 112Q \CARET.UP 71Q FONTDESCRIPTOR 62Q \DISPLAYDATA 53Q \DISPLAYDATA 30Q \DISPLAYDATA 20Q \DISPLAYDATA 13Q STREAM 3 OUTPUT) () COLORDISPLAYP D1 NIL `NIL (2 \SystemColorMap) () DISPLAYBEFOREEXIT D1 (I 0 EXITFN F 0 TtyDisplayStream) Fh `,@dggP ` @gh(103Q SHOULDNT 67Q DSPRESET 57Q WINDOWWORLDP 54Q DSPRESET 42Q SHOWDISPLAY 23Q CHANGEBACKGROUNDBORDER 20Q CURSOR 7 COLORDISPLAY 2 COLORDISPLAYP) (74Q SYSOUT 64Q PROMPTWINDOW 46Q MAKESYS 34Q LOGOUT 27Q \DisplayStoppedForLogout 13Q \DisplayStarted) () DISPLAYAFTERENTRY D1 (I 0 ENTRYFN F 0 LastSystemColorMap) c```` ` hg  @g@g`g ch(123Q \SETMACHINEDEPENDENTCOLORFNS 116Q \DEFINEDP 65Q CARETRATE 62Q CARETRATE 56Q \DEFINEDP 42Q CHANGEBACKGROUNDBORDER 32Q CURSOR 22Q \STARTDISPLAY) (136Q \COLORCURSORBM 133Q \SystemColorMap 113Q \SETMACHINEDEPENDENTCOLORFNS 106Q \SystemColorMap 100Q SYSOUT 72Q LOGOUT 53Q CARETRATE 47Q \DisplayStoppedForLogout 36Q \DisplayStoppedForLogout 26Q \DisplayStoppedForLogout 15Q \DisplayStoppedForLogout 10Q \EM.CURSORBITMAP 5 BITMAP 2 CursorBitMap) () \DSPCLIPTRANSFORMX D1 (L (1 DD 0 X)) @AA"Hh A#HHNIL NIL () \DSPCLIPTRANSFORMY D1 (L (1 DD 0 Y)) @AA$Hh A%HHNIL NIL () \DSPTRANSFORMREGION D1 (L (1 DS 0 REGION)) @A@A@@hNIL NIL () \DSPUNTRANSFORMY D1 (L (1 DD 0 Y)) @ANIL NIL () \DSPUNTRANSFORMX D1 (L (1 DD 0 X)) @ANIL NIL () \OFFSETCLIPPINGREGION D1 (L (1 OLDREGION 0 DD)) [@ A@j0@j)HH@AH@AHAHAH@H@HHhNIL NIL () UPDATESCREENWIDTH D1 NIL l(2 SCREENRASTERWIDTH) (10Q SCREENWIDTH) () SCREENRASTERWIDTH D1 NIL `NIL (2 \InterfacePage) () \CreateScreenBitMap D1 (P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) @lmlHAlkY`(I`kKJ`Kid Kk[I``,```@`H`A``d`dHd@dAdk(71Q \NEWPAGE) (202Q \DISPLAYREGION 175Q BITMAPTYPE# 171Q ScreenBitMap 163Q BITMAP 160Q ScreenBitMap 152Q BITMAP 147Q ScreenBitMap 141Q BITMAP 136Q ScreenBitMap 131Q \DISPLAYREGION 126Q BITMAP 123Q ScreenBitMap 115Q BITMAPTYPE# 111Q ScreenBitMap 105Q \MaxScreenPage 61Q \DISPLAYREGION 44Q \MaxScreenPage 35Q \MaxScreenPage) () DISPLAYSTREAMINIT D1 (P 2 TTYFONTHEIGHT P 1 TTYHEIGHT P 0 TTYFONT I 0 N F 3 TtyDisplayStream) hS !HZ`S S`@dd:dJڹn(IS HS jS jd`IhS `S dJn(n(Jl(145Q DSPRIGHTMARGIN 135Q DSPCLIPPINGREGION 115Q DSPXOFFSET 107Q DSPYPOSITION 74Q DSPYOFFSET 30Q DSPDESTINATION 7 DSPFONT 2 \STARTDISPLAY) (173Q \LastTTYLines 141Q SCREENWIDTH 123Q SCREENWIDTH 101Q FONTDESCRIPTOR 42Q \LastTTYLines 37Q \TopLevelTtyWindow 34Q \DEFAULTTTYDISPLAYSTREAM 24Q ScreenBitMap 16Q FONTDESCRIPTOR) () \STARTDISPLAY D1 (P 0 \INTERRUPTABLE) Z`n( `` g ``k `` ijd`n(h(76Q ENABLEMOUSE 62Q \LOCKPAGES 45Q CHANGETTYDEVICE 36Q SHOWDISPLAY 13Q \CreateScreenBitMap 2 UPDATESCREENWIDTH) (127Q WHOLESCREEN 124Q WHOLEDISPLAY 111Q SCREENWIDTH 103Q \DisplayStarted 72Q \MouseEnabled 66Q \MouseEnabled 56Q \MouseEventQueue 51Q \MouseEnabled 42Q LISPDISPLAY 31Q ScreenBitMap 24Q ScreenBitMap 16Q ScreenBitMap 5 SCREENWIDTH) () \STOPDISPLAY D1 (P 0 \INTERRUPTABLE) .g ``k mhl: (53Q PAGEHEIGHT 32Q \UNLOCKPAGES 14Q CHANGETTYDEVICE 5 SHOWDISPLAY) (45Q \DisplayStarted 40Q \MaxScreenPage 25Q \MaxScreenPage 20Q ScreenBitMap 11Q BCPLDISPLAY) () INITIALIZEDISPLAYSTREAMS D1 (F 0 \GUARANTEEDDISPLAYFONT) Godndh`ld gl hdg cgkPh (101Q DSPCREATE 73Q FONTCLASS 56Q FONTCREATE 35Q BITMAPCREATE) (104Q TtyDisplayStream.SAVE 76Q DEFAULTFONT 63Q DEFAULTFONT 52Q DISPLAY 43Q GACHA 40Q \SYSBBTEXTURE 27Q \SYSPILOTBBT 23Q PILOTBBTTYPE# 20Q WHOLEDISPLAY) ( 3 -37777Q) (PRETTYCOMPRINT LLDISPLAYCOMS) (RPAQQ LLDISPLAYCOMS ((DECLARE: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA) (MACROS \GETDISPLAYDATA))) (* User-visible records are on ADISPLAY - must be init'ed here) (INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA) (COMS (* BITMASKS) (FNS \FBITMAPBIT INITBITMASKS) (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 \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT BLTCHAR \BLTCHAR \SLOWBLTCHAR TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP) (DECLARE: DONTCOPY (CONSTANTS ( \DisplayWordAlign 16) (\MaxBitMapWidth 65535) (\MaxBitMapHeight 65535) (\MaxBitMapWords 131066)) ( EXPORT (MACROS \DSPGETCHARWIDTH \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 DSPCLIPPINGREGION DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination \SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH \SFFixY) (FNS \DSPFONT.DISPLAY \DSPLINEFEED.DISPLAY \DSPLEFTMARGIN.DISPLAY \DSPOPERATION.DISPLAY \DSPRIGHTMARGIN.DISPLAY \DSPXPOSITION.DISPLAY \DSPYPOSITION.DISPLAY) (EXPORT (MACROS \DDMARKUNFONTED \DDHASFONT)) (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))) (COMS (* Stub for window package) (DECLARE: DOCOPY (DECLARE: EVAL@LOADWHEN (EQ (SYSTEMTYPE) (QUOTE D)) (INITVARS (\TOPWDS)) (P (MOVD? (QUOTE NILL ) (QUOTE \TOTOPWDS))))) (DECLARE: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS. .WHILE.TOP.IF.DS. \PIXELOFBITADDRESS) (ADDVARS (GLOBALVARS \TOPWDS))))) (COMS (* DisplayStream TTY functions) (FNS TTYDISPLAYSTREAM \REMOVEDRIBBLECHECK \ADDDRIBBLECHECK) (EXPORT (MACROS TTYDISPLAYSTREAM)) (FNS DSPRESET DSPSCROLL CHANGETTYDEVICE OUTPUTDSP PAGEHEIGHT) (INITVARS ( \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY)) (\SystemColorMap)) (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 \SystemColorMap \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 UPDATESCREENWIDTH SCREENRASTERWIDTH \CreateScreenBitMap) (DECLARE: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENWIDTH)) (VARS ( SCREENHEIGHT 808) (\MaxScreenPage -1) (ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT))))) (COMS (* initialization) (FNS DISPLAYSTREAMINIT \STARTDISPLAY \STOPDISPLAY) (EXPORT (GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN)) (ADDVARS ( GLOBALVARS WHOLESCREEN)) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (\DisplayStarted NIL) (\LastTTYLines 12) )) (EXPORT (MACROS DISPLAYINITIALIZEDP DISPLAYSTARTEDP)) (FNS INITIALIZEDISPLAYSTREAMS) (DECLARE: DOCOPY DONTEVAL@LOAD (P (INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000)))))) (/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD))) (/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD WORD WORD WORD WORD WORD WORD WORD))) (/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))) (INITBITMASKS) (RPAQ CursorBitMap (\CreateCursorBitMap)) (RPAQQ \BBSCRATCHTEXTURE NIL) (RPAQQ \PILOTBBTSCRATCHBM NIL) (MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT)) (PUTPROPS \DDMARKUNFONTED MACRO ((DD) (freplace (\DISPLAYDATA DDOFFSETSCACHE) of DD with NIL))) (PUTPROPS \DDHASFONT MACRO ((DD) (ffetch (\DISPLAYDATA DDOFFSETSCACHE) of DD))) (MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS)) (MOVD? (QUOTE NILL) (QUOTE WFROMDS)) (MOVD? (QUOTE NILL) (QUOTE WINDOWP)) (MOVD? (QUOTE NILL) (QUOTE INVERTW)) (RPAQ? PROMPTWINDOW T) (DECLARE: EVAL@LOADWHEN (EQ (SYSTEMTYPE) (QUOTE D)) (RPAQ? \TOPWDS) (MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))) (PUTPROPS TTYDISPLAYSTREAM MACRO (X (COND ((NULL (CAR X)) (QUOTE TtyDisplayStream)) (T (QUOTE IGNOREMACRO))))) (RPAQ? \CURRENTTTYDEVICE (QUOTE BCPLDISPLAY)) (RPAQ? \SystemColorMap) (RPAQ? \CARET.UP) (RPAQQ BELLCNT 2) (RPAQQ BELLRATE 60) (RPAQQ \DisplayStoppedForLogout NIL) (RPAQQ TtyDisplayStream NIL) (PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X)))) (UPDATESCREENWIDTH) (RPAQQ SCREENHEIGHT 808) (RPAQQ \MaxScreenPage -1) (RPAQ ScreenBitMap (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT)) (ADDTOVAR GLOBALVARS WHOLESCREEN) (RPAQQ \DisplayStarted NIL) (RPAQQ \LastTTYLines 12) (PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T)) (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted)) (INITIALIZEDISPLAYSTREAMS) (DISPLAYSTREAMINIT 1000) (PUTPROPS LLDISPLAY COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984)) NIL