(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Jul-2022 14:08:36" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>LLKEY.;2) " 2-Jul-2022 11:43:22" brecompiled explicitly%: \INIT.KEYBOARD.STREAM in "FULL 2-Jul-2022 ..." dated " 2-Jul-2022 11:43:27") (FILECREATED "27-Aug-2021 16:18:18" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9 199890 previous date%: "24-Aug-2021 16:54:52" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7) FLIPCURSORBAR :D8 (L (0 N)) T`L`@`@n`dll `d`}@h(43 \DoveDisplay.SetCursorShape) (74 CURSOR 69 \CURRENTCURSOR 62 CURSOR 54 \CURRENTCURSOR 33 \MACHINETYPE 18 \EM.CURSORBITMAP 11 \EM.CURSORBITMAP 4 \SOFTCURSORP) () \KEYHANDLER :D8 NIL (4 \KEYHANDLER1) NIL () \KEYHANDLER1 :D8 (P 19 EXCESS P 18 WPTR P 17 R P 16 W P 15 YHOT P 14 CURSORY P 13 CURSORX P 12 MOUSETEMP P 11 MOUSETIMER P 10 MOUSESTATE P 9 PERIODCNT P 8 LOOPCNT P 7 OLDFAKEU P 6 OLDU P 5 OLD5 P 4 OLD4 P 3 OLD3 P 2 OLD2 P 1 OLD1 P 0 OLD0) ndddddddl l`@)`A*n``@)`A*`n`@`A`@A `l@A `@`AA(359 \DoveDisplay.SetCursorPosition 342 \SOFTCURSORPOSITION 231 \DoveMisc.SetMousePosition) (373 \EM.CURSORY 365 \EM.CURSORX 348 \MACHINETYPE 334 \SOFTCURSORUPP 325 \EM.MOUSEY 316 \EM.MOUSEX 305 \IOPAGE 296 \IOPAGE 287 \IOPAGE 277 \IOPAGE 265 \IOPAGE 256 \IOPAGE 218 \MACHINETYPE 208 \MACHINETYPE 197 \CURSORHOTSPOTY 192 \CURSORDESTHEIGHT 181 \CURSORHOTSPOTY 168 \MACHINETYPE 159 \MACHINETYPE 150 \CURSORHOTSPOTY 125 \CURSORHOTSPOTY 120 \CURSORDESTHEIGHT 105 \CURSORDESTHEIGHT 91 \CURSORHOTSPOTX 86 \CURSORDESTWIDTH 72 \CURSORHOTSPOTX 60 \MACHINETYPE 51 \CURSORHOTSPOTX 26 \CURSORHOTSPOTX 21 \CURSORDESTWIDTH 9 \MISCSTATS 4 \LASTUSERACTION) () \PERIODIC.INTERRUPTFRAME :D8 NIL `HjHNIL (4 \PERIODIC.INTERRUPT) () \TIMER.INTERRUPTFRAME :D8 NIL hNIL NIL () \DOBUFFEREDTRANSITIONS :D8 (P 4 \INTERRUPTABLE P 0 PENDINGINTERRUPT I 0 \INTERRUPTABLE) _g@`Zj"`j` 0jp`jkn`J[d` j`K `KK`l`K `KKd`!l `K `KK`l0`K `KKd`!lP`K `KK`l``K `KK`l@`K `K`nJllJYI``jv`jlǿ`j` @j`jl`jlǿ`j` Pj`jl`jlǿ`k` `jdjǿ`l` pjkjǿ`l` j`ll`llǿ`l` j`lk`llǿ`l` j`ll`llǿ`l` j`ll`llǿ`l` j`ll`llǿ`l` j`ll `llH`hg/ihhdi(860 INTERRUPTED 350 \DOTRANSITIONS 308 \DOTRANSITIONS 266 \DOTRANSITIONS 222 \DOTRANSITIONS 180 \DOTRANSITIONS 136 \DOTRANSITIONS 94 \DOTRANSITIONS) (851 \KEYBUFFERING 845 \PENDINGINTERRUPT 838 \KEYBUFFERING 832 \PENDINGINTERRUPT 822 \INTERRUPTABLE 816 \KEYBUFFERING 809 \PENDINGINTERRUPT 795 \SHIFTSTATE 783 \SHIFTSTATE 772 \LASTKEYSTATE 765 \SHIFTSTATE 752 \SHIFTSTATE 740 \SHIFTSTATE 729 \LASTKEYSTATE 722 \SHIFTSTATE 709 \SHIFTSTATE 697 \SHIFTSTATE 686 \LASTKEYSTATE 679 \SHIFTSTATE 666 \SHIFTSTATE 654 \SHIFTSTATE 643 \LASTKEYSTATE 636 \SHIFTSTATE 623 \SHIFTSTATE 612 \SHIFTSTATE 601 \LASTKEYSTATE 594 \SHIFTSTATE 581 \SHIFTSTATE 569 \SHIFTSTATE 558 \LASTKEYSTATE 551 \SHIFTSTATE 535 \LASTKEYSTATE 528 \SHIFTSTATE 512 \LASTKEYSTATE 506 \SHIFTSTATE 494 \SHIFTSTATE 483 \SHIFTSTATE 472 \LASTKEYSTATE 466 \SHIFTSTATE 454 \SHIFTSTATE 443 \SHIFTSTATE 432 \LASTKEYSTATE 426 \SHIFTSTATE 414 \SHIFTSTATE 402 \KEYBOARDEVENTQUEUE 390 \KEYBOARDEVENTQUEUE 367 \KEYBOARDEVENTQUEUE 356 \LASTKEYSTATE 340 \LASTKEYSTATE 328 \LASTKEYSTATE 314 \LASTKEYSTATE 298 \LASTKEYSTATE 286 \LASTKEYSTATE 272 \LASTKEYSTATE 256 \LASTKEYSTATE 243 \LASTKEYSTATE 228 \LASTKEYSTATE 212 \LASTKEYSTATE 200 \LASTKEYSTATE 186 \LASTKEYSTATE 170 \LASTKEYSTATE 157 \LASTKEYSTATE 142 \LASTKEYSTATE 126 \LASTKEYSTATE 114 \LASTKEYSTATE 100 \LASTKEYSTATE 84 \LASTKEYSTATE 72 \LASTKEYSTATE 61 \KEYBOARDEVENTQUEUE 49 \SHIFTSTATE 35 \LASTKEYSTATE 29 \SHIFTSTATE 17 \KEYBOARDEVENTQUEUE 9 \KEYBUFFERING 4 INPROGRESS) () \DOTRANSITIONS :D8 (P 2 BITMASK P 1 I I 2 NEW I 1 OLD I 0 KEYBASE) 1ljnIHiJdABjI@BJj JIkY(37 \DECODETRANSITION) NIL () \DECODETRANSITION :D8 (P 3 SHIFTED P 2 ASCIICODE P 1 KEYSTATE P 0 TI I 1 DOWNFLG I 0 KEYNUMBER F 4 PENDINGINTERRUPT) ```l$lAlp@؀@`"`Hdjodl!I 0jI @jI Pjti[pdlI 0jI @jWi[Sdk&dl Ij 0hdlIk 0hdl Ij @hdl Ik @hdlIj PhdlIk PhdlId PjkdlIj `hdlIk `hdl Ij phdl Ik phdlIj hdlIk hdlId jkdlIj hdlIk hdlId jkdlIj hdlIk hdlId jkdlIj hdlIk hlId jkK``HZI `jI pjI jJJlK``HI `jJlI pjI j`JJ`ZJ`ic`kp`JJ h(604 \PUTSYSBUF 447 SHOULDNT) (594 \INTERRUPTSTATE 584 \INTERRUPTSTATE 570 \CURRENTKEYACTION 561 \KEYBOARD.META 552 \KEYBOARD.META 513 \COMMANDKEYACTION 505 \COMMANDKEYACTION 463 \CURRENTKEYACTION 455 \CURRENTKEYACTION 36 \CURRENTKEYACTION 28 \LASTKEYSTATE 9 \MISCSTATS 4 \LASTUSERACTION) () \EVENTKEYS :D8 NIL l`ljjkjljl@`ljjkjl@jl`ljjkjl jl`ljjkjljk`ljjkjljl`ljjkjljl`ljjkjkjNIL (149 \LASTKEYSTATE 125 \LASTKEYSTATE 101 \LASTKEYSTATE 78 \LASTKEYSTATE 54 \LASTKEYSTATE 30 \LASTKEYSTATE 6 \LASTKEYSTATE) () \HARDCURSORUP :D8 (L (1 INVERTFLG 0 NEWCURSOR)) h@dXd`@` @XHjd`jlHldAggg `dl` l@@}@h(143 \DoveDisplay.SetCursorShape 122 BKBITBLT 64 \CURSORBITSPERPIXEL) (165 CURSOR 157 CURSOR 138 CursorBitMap 127 \MACHINETYPE 116 REPLACE 111 INPUT 105 INVERT 92 BITMAP 83 CursorBitMap 71 CURSOR 57 BITMAP 52 \CURSORDESTINATION 41 BITMAP 36 \CURSORDESTINATION 29 BITMAP 20 CURSOR 14 \CURRENTCURSOR 8 \SOFTCURSORP) () \DOMOUSECHORDING :D8 (P 0 LRSTATE I 1 STATE I 0 REALUTILIN) `@llXjjbAjAdk9@lbHl@nblbaAk\`l:w`kbFl'@lnbHdllb(l#lbAdl@ll@lnb`@ANIL (164 \EM.UTILIN 83 \MOUSECHORDTICKS 74 \MISCSTATS 7 \MOUSECHORDTICKS) () \KEYBOARDOFF :D8 NIL `dn`lh}RNIL (18 \MACHINETYPE 4 \EM.DISPINTERRUPT) () \HARDCURSORPOSITION :D8 (L (1 YPOS 0 XPOS)) `kAbj@j`@`kـ@`nbjAj`A`kـA`nb`dldnjb@njb`dl@A Odl@A}ABl>`@)`A*n``@)`A*`n`@`A`@`Ah(132 \DoveMisc.SetMousePosition) (243 \EM.CURSORY 234 \EM.CURSORX 226 \EM.MOUSEY 217 \EM.MOUSEX 206 \IOPAGE 197 \IOPAGE 188 \IOPAGE 178 \IOPAGE 166 \IOPAGE 157 \IOPAGE 119 \MACHINETYPE 87 \MACHINETYPE 75 \CURSORHOTSPOTY 66 \CURSORDESTHEIGHT 58 \CURSORDESTHEIGHT 39 \CURSORHOTSPOTX 30 \CURSORDESTWIDTH 22 \CURSORDESTWIDTH 4 \CURSORDESTHEIGHT) () \HARDCURSORDOWN :D8 NIL ` (9 \CLEARBM) (4 CursorBitMap) () \SOFTCURSORUP :D8 (L (0 NEWCURSOR))   @X@YHZH\H]`4`J$`L`MJLJLM JLM `_k `_k HHHڻ`Nn`O`O`Nn`O`O`Nn`K`L `O`O`Nn`Nn`K`L `O`O`Nn`Nn`K`L `Nn`NnI_`O`OH_`O`O@dk ih(708 \SOFTCURSORUPCURRENT 697 \TEMPLOCKPAGES 192 \TEMPLOCKPAGES 171 \TEMPLOCKPAGES 145 BITMAPCREATE 131 BITMAPCREATE) (703 \SOFTCURSORP 690 \CURRENTCURSOR 678 PILOTBBT 673 \SOFTCURSORBBT4 662 PILOTBBT 657 \SOFTCURSORBBT4 647 BITMAP 635 PILOTBBT 630 \SOFTCURSORBBT3 619 PILOTBBT 614 \SOFTCURSORBBT3 604 BITMAP 590 PILOTBBT 585 \SOFTCURSORBBT6 572 PILOTBBT 567 \SOFTCURSORBBT5 558 PILOTBBT 553 \SOFTCURSORBBT4 544 PILOTBBT 539 \SOFTCURSORBBT4 526 PILOTBBT 521 \SOFTCURSORBBT4 508 PILOTBBT 503 \SOFTCURSORBBT4 492 PILOTBBT 487 \SOFTCURSORBBT4 476 PILOTBBT 471 \SOFTCURSORBBT4 462 PILOTBBT 457 \SOFTCURSORBBT3 448 PILOTBBT 443 \SOFTCURSORBBT3 430 PILOTBBT 425 \SOFTCURSORBBT3 412 PILOTBBT 407 \SOFTCURSORBBT3 396 PILOTBBT 391 \SOFTCURSORBBT3 380 PILOTBBT 375 \SOFTCURSORBBT3 366 PILOTBBT 361 \SOFTCURSORBBT2 352 PILOTBBT 347 \SOFTCURSORBBT2 334 PILOTBBT 329 \SOFTCURSORBBT2 318 PILOTBBT 313 \SOFTCURSORBBT2 302 PILOTBBT 297 \SOFTCURSORBBT2 284 PILOTBBT 279 \SOFTCURSORBBT2 268 PILOTBBT 263 \SOFTCURSORBBT2 252 PILOTBBT 247 \SOFTCURSORBBT2 234 PILOTBBT 229 \SOFTCURSORBBT1 220 BITMAP 212 BITMAP 199 BITMAP 182 BITMAP 177 \SOFTCURSORDOWNBM 161 BITMAP 156 \SOFTCURSORUPBM 150 \SOFTCURSORDOWNBM 136 \SOFTCURSORUPBM 122 \SOFTCURSORHEIGHT 115 \SOFTCURSORWIDTH 101 BITMAP 96 \SOFTCURSORUPBM 85 BITMAP 80 \SOFTCURSORUPBM 69 BITMAP 64 \SOFTCURSORUPBM 57 BITMAP 52 \SOFTCURSORUPBM 44 BITMAP 35 BITMAP 26 BITMAP 17 CURSOR 8 CURSOR) () \SOFTCURSORUPCURRENT :D8 NIL $``ji`dnnkٹ`dnnkٺj[``jIjIٻMKٽjIM``IٽjMOjJjJټNLپjJN``JپjN&`JAj`_`dJ`_IڹOKڻOMڽ`_I_L`_`O_`O_K_`O`O`O`O`O`O`M`N `O`O`O`O`O`O`M`N `O`O`O`O`O`O`M`N `jv`jv`jv`jv`j `Hhkg `OJ``dJkg ``(709 \SOFTCURSORPILOTBITBLT) (796 \CURSORDESTRASTERWIDTH 791 \CURSORDESTLINEBASE 784 \CURSORDESTLINEBASE 778 \CURSORDESTLINE 764 \CURSORDESTLINE 754 \CURSORDESTLINE 740 \CURSORDESTLINEBASE 733 \CURSORDESTLINEBASE 727 \CURSORDESTLINE 715 \EM.DISPINTERRUPT 703 \SOFTCURSORBBT5 695 \SOFTCURSORBBT4 687 \SOFTCURSORBBT3 679 \SOFTCURSORBBT2 671 \SOFTCURSORBBT1 662 PILOTBBT 657 \SOFTCURSORBBT6 648 PILOTBBT 643 \SOFTCURSORBBT6 633 PILOTBBT 628 \SOFTCURSORBBT6 617 PILOTBBT 612 \SOFTCURSORBBT6 601 PILOTBBT 596 \SOFTCURSORBBT6 586 PILOTBBT 581 \SOFTCURSORBBT6 570 PILOTBBT 565 \SOFTCURSORBBT6 554 PILOTBBT 549 \SOFTCURSORBBT6 540 PILOTBBT 535 \SOFTCURSORBBT5 526 PILOTBBT 521 \SOFTCURSORBBT5 511 PILOTBBT 506 \SOFTCURSORBBT5 495 PILOTBBT 490 \SOFTCURSORBBT5 479 PILOTBBT 474 \SOFTCURSORBBT5 464 PILOTBBT 459 \SOFTCURSORBBT5 448 PILOTBBT 443 \SOFTCURSORBBT5 432 PILOTBBT 427 \SOFTCURSORBBT5 418 PILOTBBT 413 \SOFTCURSORBBT1 404 PILOTBBT 399 \SOFTCURSORBBT1 389 PILOTBBT 384 \SOFTCURSORBBT1 373 PILOTBBT 368 \SOFTCURSORBBT1 357 PILOTBBT 352 \SOFTCURSORBBT1 342 PILOTBBT 337 \SOFTCURSORBBT1 326 PILOTBBT 321 \SOFTCURSORBBT1 310 PILOTBBT 305 \SOFTCURSORBBT1 288 BITMAP 283 \SOFTCURSORDOWNBM 270 BITMAP 265 \SOFTCURSORUPBM 254 BITMAP 249 \SOFTCURSORUPBM 236 \CURSORDESTLINEBASE 214 BITMAP 207 CURSOR 202 \CURRENTCURSOR 189 \CURSORDESTLINE 180 \CURSORDESTRASTERWIDTH 168 \CURSORDESTLINE 153 \CURSORDESTHEIGHT 146 \CURSORDESTHEIGHT 112 \CURSORDESTWIDTH 105 \CURSORDESTWIDTH 80 \SOFTCURSORHEIGHT 74 \SOFTCURSORWIDTH 51 \EM.MOUSEY 31 \EM.MOUSEX 25 \SOFTCURSORUPP 15 \EM.DISPINTERRUPT 7 \EM.DISPINTERRUPT) () \SOFTCURSORPOSITION :D8 (L (1 Y 0 X)) E`X`j`@`A``Hh(56 \SOFTCURSORUPCURRENT 50 \SOFTCURSORDOWN) (62 \EM.DISPINTERRUPT 44 \SOFTCURSORUPP 33 \EM.CURSORY 23 \EM.CURSORX 15 \EM.DISPINTERRUPT 7 \EM.DISPINTERRUPT) () \SOFTCURSORDOWN :D8 NIL /`X`jh`j `Hh(35 \SOFTCURSORPILOTBITBLT) (40 \EM.DISPINTERRUPT 29 \SOFTCURSORBBT6 24 \SOFTCURSORUPP 15 \EM.DISPINTERRUPT 7 \EM.DISPINTERRUPT) () BKSYSCHARCODE :D8 (L (0 CHAR)) s@ [`P`\j5`L``Ldllk[K`jH @ I JhYJ&(96 \PUTSYSBUF 85 \NCONC2 5 \PUTSYSBUF) (90 \LONGSYSBUF 72 \SYSBUFFER 48 \SYSBUFFER 41 \SYSBUFFER 32 \SYSBUFFER 20 \SYSBUFFER 12 \LONGSYSBUF) () \CLEARSYSBUF :D8 (L (0 ALLFLG)) L@`d`h`j@`dh&h`dh&hNIL (69 PROCESS 62 \RUNNING.PROCESS 47 PROCESS 39 \PROCESSES 27 \SYSBUFFER 21 \LONGSYSBUF 13 \TTY.PROCESS 6 \RUNNING.PROCESS) () \GETKEY :D8 NIL `Nh`2lH hYK`lH IHh&`H&YHI&(132 \WAIT.FOR.TTY 126 \TTYBACKGROUND 62 CLOCKDIFFERENCE 45 \GETSYSBUF 37 \CLOCK0 16 \GETSYSBUF 11 WAIT.FOR.TTY) (115 PROCESS 105 PROCESS 96 \RUNNING.PROCESS 87 PROCESS 79 \\KEYBOARDWAITBOX.GLOBALRESOURCE 71 \\KEYBOARDWAITBOX.GLOBALRESOURCE 53 \MISCSTATS 23 \\KEYBOARDWAITBOX.GLOBALRESOURCE 4 \RUNNING.PROCESS) () \NSYSBUFCHARS :D8 NIL 1` ``HjjIdHHHl(9 LENGTH) (21 \SYSBUFFER 14 \SYSBUFFER 4 \LONGSYSBUF) () \SAVESYSBUF :D8 NIL `jC```z`IH PI G&[`h&IK YH I KdHJkZL IJkؾNMHNNkٹIjh HkI  Nk^(174 RPLCHARCODE 168 SUBSTRING 145 \GETSYSBUF 123 RPLCHARCODE 106 ALLOCSTRING 98 NCHARS 90 LENGTH 56 ALLOCSTRING 47 NCHARS 9 \NSYSBUFCHARS) (79 PROCESS 74 \RUNNING.PROCESS 64 PROCESS 38 \RUNNING.PROCESS 30 \TTY.PROCESS 25 \RUNNING.PROCESS 18 \RUNNING.PROCESS 4 \SAVEDSYSBUFFER) () \SYSBUFP :D8 NIL >``d``"`jh``&NIL (57 PROCESS 52 \RUNNING.PROCESS 45 \RUNNING.PROCESS 32 \SYSBUFFER 25 \LONGSYSBUF 16 \TTY.PROCESS 10 \RUNNING.PROCESS 4 \RUNNING.PROCESS) () \GETSYSBUF :D8 NIL _```D`Hjh3`H``HdllkYI`jNIL (88 \SYSBUFFER 64 \SYSBUFFER 57 \SYSBUFFER 48 \SYSBUFFER 31 \SYSBUFFER 23 \LONGSYSBUF 17 \LONGSYSBUF 11 \LONGSYSBUF 4 \LONGSYSBUF) () \PUTSYSBUF :D8 (L (0 CHAR)) D``HIh`I@Hj`I`IdllkiNIL (50 \SYSBUFFER 41 \SYSBUFFER 27 \SYSBUFFER 11 \SYSBUFFER 4 \SYSBUFFER) () \PEEKSYSBUF :D8 (L (0 STREAM)) \6``d`*``Xj`H`&(89 SHOULDNT 66 BLOCK 7 \SYSBUFP) (80 PROCESS 75 \RUNNING.PROCESS 54 \SYSBUFFER 42 \SYSBUFFER 35 \LONGSYSBUF 26 \TTY.PROCESS 20 \RUNNING.PROCESS 14 \RUNNING.PROCESS) () \KEYBOARDINIT :D8 NIL  l lkk j`llhdi `l8nlk j`llk HnHnHnHnHnHnHnHlj Hj H`ljkj PHj пHld lwj` (285 \KEYBOARDON 280 MOUSECHORDWAIT 249 \ALLOCBLOCK 197 \PUTBASEFIXP 136 \ALLOCBLOCK 108 \ALLOCLOCKED 76 ALLOCSTRING 48 \ALLOCBLOCK 31 \ALLOCLOCKED 19 KEYACTIONTABLE 4 KEYACTIONTABLE) (275 \MOUSECHORDMILLISECONDS 270 \MOUSETIMERTEMP 262 FIXP 254 \SHIFTSTATE 238 \LASTKEYSTATE 210 \EM.KBDAD3 122 \KEYBOARDEVENTQUEUE 113 \KEYBOARDEVENTQUEUE 94 \LASTUSERACTION 86 \MISCSTATS 81 \SAVEDSYSBUFFER 62 \SYSBUFFER 53 \SYSBUFFER 36 \INTERRUPTSTATE 24 \COMMANDKEYACTION 14 \CURRENTKEYACTION 9 \DEFAULTKEYACTION) () \KEYBOARDEVENTFN :D8 (L (2 EXTRA 1 EVENT 0 FDEV) F 1 \MAIKO.XBEFORE?) AgAgAgAdg<``!lgo ocg AgAgAg``%Qgo og2&dHH` HH` ۰:` &dHH` HH`  gV``!lE` &dHH` HH`  h(404 MOUSECHORDWAIT 399 MOUSECHORDWAIT 389 KEYACTION 374 KEYACTION 353 \APPEND2 348 \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 312 MACHINETYPE 306 MOUSECHORDWAIT 301 MOUSECHORDWAIT 291 KEYACTION 276 KEYACTION 255 \APPEND2 250 \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 233 KEYACTION 218 KEYACTION 197 \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 184 MACHINETYPE 168 UNIX-GETPARM 150 MACHINETYPE 84 UNIX-GETPARM 66 MACHINETYPE) (384 \DEFAULTKEYACTION 369 \COMMANDKEYACTION 343 \ORIGKEYACTIONS 330 \InterfacePage 325 \MAIKO.BEFOREKEYTYPE 317 MAIKO 286 \DEFAULTKEYACTION 271 \COMMANDKEYACTION 245 \ORIGKEYACTIONS 228 \DEFAULTKEYACTION 213 \COMMANDKEYACTION 189 MAIKO 155 MAIKO 141 \KEYBOARD.BEFORETYPE 136 \MACHINETYPE 124 AFTERSAVEVM 116 AFTERSYSOUT 107 AFTERMAKESYS 98 AFTERLOGOUT 71 MAIKO 61 \MAIKO.BEFOREKEYTYPE 51 \InterfacePage 46 \KEYBOARD.BEFORETYPE 41 \MACHINETYPE 32 BEFORESAVEVM 23 BEFORESYSOUT 14 BEFOREMAKESYS 5 BEFORELOGOUT) ( 173 "X" 163 "DISPLAY" 89 "X" 79 "DISPLAY") \ALLOCLOCKED :D8 (L (0 NCELLS)) (@h@dll Hdl@l H(36 \LOCKCELL 15 \ALLOCBLOCK) NIL () \SETIOPOINTERS :D8 NIL ig` dldlgo go go go go go go go go g`lB `ng`lC `ngo go go g` $dldl$g`l; g`l< g`l g`l g`l= g`l> g`l? g`l@ g`lA g`lB g`lC g`l g`l gh g`l}Cn lgHk gHl gHl gHl gHl gHl g g g g`l g`l g`l gH g g`l< (870 SETTOPVAL 851 RAID 844 SETTOPVAL 839 \DoveDisplay.ScreenWidth 828 SETTOPVAL 816 SETTOPVAL 797 SETTOPVAL 778 SETTOPVAL 759 SETTOPVAL 754 \DoveDisplay.GetCursorBitmapBase 743 SETTOPVAL 738 \DoveMisc.GetMouseYBase 727 SETTOPVAL 722 \DoveMisc.GetMouseXBase 711 SETTOPVAL 696 SETTOPVAL 681 SETTOPVAL 666 SETTOPVAL 651 SETTOPVAL 636 SETTOPVAL 620 \DoveMisc.GetKBDBase 605 SETTOPVAL 578 SETTOPVAL 566 SETTOPVAL 547 SETTOPVAL 528 SETTOPVAL 509 SETTOPVAL 490 SETTOPVAL 471 SETTOPVAL 452 SETTOPVAL 433 SETTOPVAL 414 SETTOPVAL 395 SETTOPVAL 376 SETTOPVAL 357 SETTOPVAL 338 SETTOPVAL 303 SETTOPVAL 281 SETTOPVAL 265 SETTOPVAL 249 SETTOPVAL 222 SETTOPVAL 192 SETTOPVAL 173 SETTOPVAL 157 SETTOPVAL 141 SETTOPVAL 125 SETTOPVAL 109 SETTOPVAL 93 SETTOPVAL 77 SETTOPVAL 61 SETTOPVAL 45 SETTOPVAL 16 SETTOPVAL) (862 \InterfacePage 857 \EM.UTILIN 834 SCREENWIDTH 822 \EM.REALUTILIN 808 \IOPAGE 803 \EM.CURSORY 789 \IOPAGE 784 \EM.CURSORX 770 \IOPAGE 765 \EM.DISPINTERRUPT 749 \EM.CURSORBITMAP 733 \EM.MOUSEY 717 \EM.MOUSEX 702 \EM.KBDAD5 687 \EM.KBDAD4 672 \EM.KBDAD3 657 \EM.KBDAD2 642 \EM.KBDAD1 628 \EM.KBDAD0 589 \MACHINETYPE 584 SCREENWIDTH 572 \EM.DISPLAYHEAD 558 \IOPAGE 553 \EM.CURSORBITMAP 539 \IOPAGE 534 \EM.DISPINTERRUPT 520 \IOPAGE 515 \EM.KBDAD5 501 \IOPAGE 496 \EM.KBDAD4 482 \IOPAGE 477 \EM.KBDAD3 463 \IOPAGE 458 \EM.KBDAD2 444 \IOPAGE 439 \EM.KBDAD1 425 \IOPAGE 420 \EM.KBDAD0 406 \IOPAGE 401 \EM.REALUTILIN 387 \IOPAGE 382 \EM.CURSORY 368 \IOPAGE 363 \EM.CURSORX 349 \IOPAGE 344 \EM.MOUSEY 330 \IOPAGE 325 \EM.MOUSEX 292 \InterfacePage 287 SCREENWIDTH 271 \EM.DISPLAYHEAD 255 \EM.CURSORBITMAP 239 \EM.DISPINTERRUPT 228 \EM.KBDAD5 214 \InterfacePage 209 \EM.KBDAD5 198 \EM.KBDAD4 184 \InterfacePage 179 \EM.KBDAD4 163 \EM.KBDAD3 147 \EM.KBDAD2 131 \EM.KBDAD1 115 \EM.KBDAD0 99 \EM.REALUTILIN 83 \EM.CURSORY 67 \EM.CURSORX 51 \EM.MOUSEY 35 \EM.MOUSEX 9 \InterfacePage 4 \MACHINETYPE) () \KEYBOARDON :D8 (L (0 NOCHECK)) #`dn `li}R(4 \SETIOPOINTERS) (23 \MACHINETYPE 9 \EM.DISPINTERRUPT) () \RESETKEYBOARD :D8 NIL Bh`l`l`l`n````````````````ljkjHI PI`j 0`j @`j ``j p`j `j `j `j `j h`j`jh` (319 \KEYBOARDON 314 \DAYTIME0 4 \SETIOPOINTERS) (309 \LASTUSERACTION 304 \LONGSYSBUF 295 \SYSBUFFER 287 \KEYBOARDEVENTQUEUE 282 \TIMER.INTERRUPT.PENDING 272 \LASTKEYSTATE 262 \LASTKEYSTATE 252 \LASTKEYSTATE 242 \LASTKEYSTATE 232 \LASTKEYSTATE 222 \LASTKEYSTATE 212 \LASTKEYSTATE 202 \LASTKEYSTATE 192 \LASTKEYSTATE 164 \EM.KBDAD3 159 \LASTKEYSTATE 149 \EM.REALUTILIN 144 \LASTKEYSTATE 134 \EM.KBDAD5 129 \LASTKEYSTATE 119 \EM.KBDAD4 114 \LASTKEYSTATE 104 \EM.KBDAD3 99 \LASTKEYSTATE 89 \EM.KBDAD2 84 \LASTKEYSTATE 74 \EM.KBDAD1 69 \LASTKEYSTATE 59 \EM.KBDAD0 54 \LASTKEYSTATE 43 \EM.UTILIN 34 \MACHINETYPE 25 \MACHINETYPE 15 \MACHINETYPE 10 \KEYBUFFERING) () MOUSECHORDWAIT :D8 (L (0 MSECS)) Ce``Hj.ka$kal2`nIInNIL (63 \MOUSECHORDTICKS 42 \RCLKMILLISECOND 37 \MOUSECHORDMILLISECONDS 15 \MOUSECHORDMILLISECONDS 8 \MOUSECHORDTICKS) () KEYACTION :D8 (L (2 TABLE 1 ACTIONS 0 KEYNAME)) @ @ B`Id 7lI *Idd Id I I lpHAdgI HAdgI (131 \KEYACTION1 113 \KEYACTION1 91 \ILLEGAL.ARG 84 \BLOCKDATAP 74 \BLOCKDATAP 63 \BLOCKDATAP 42 \#BLOCKDATACELLS 31 \BLOCKDATAP 13 \KEYNAMETONUMBER 5 KEYNUMBERP) (125 IGNORE 107 IGNORE 21 \CURRENTKEYACTION) () KEYACTIONTABLE :D8 (L (0 OLD) F 1 KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS) S@lk Hlpdl Hlpdk Hlpdk Hlkl Hlpdk  Hlpdlplpi  Hb` Q d 9l@ ,@dd"d @d @ @ lk H@ H@ H@ H@ H@ H@  H@  HdHH@ (331 KEYACTION 312 COPYALL 301 COPYALL 290 COPYALL 279 COPYALL 268 COPYALL 257 COPYALL 246 COPYALL 234 \ALLOCBLOCK 225 \ILLEGAL.ARG 218 \BLOCKDATAP 208 \BLOCKDATAP 196 \BLOCKDATAP 174 \#BLOCKDATACELLS 163 \BLOCKDATAP 154 \APPEND2 149 \APPEND2 143 \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 138 COPY 121 \ALLOCBLOCK 101 \ALLOCBLOCK 85 \ALLOCBLOCK 64 \ALLOCBLOCK 48 \ALLOCBLOCK 32 \ALLOCBLOCK 14 \ALLOCBLOCK) (133 \ORIGKEYACTIONS) () KEYBOARDTYPE :D8 NIL ~HdgRo o No 8oo "ggHdggH(89 STREQUAL 84 UNIX-GETPARM 67 MKATOM 62 U-CASE 57 UNIX-GETENV 43 SASSOC 33 L-CASE 28 UNIX-GETENV 4 MACHINETYPE) (119 DOVE 112 DANDELION 102 DORADO 96 FULL-IBMPC 14 MAIKO) ( 79 "ARCH" 74 "dos" 52 "LDEKBDTYPE" 38 (("type3" SUN3) ("type4" SUN4) ("type5" SUN5)) 23 "LDEKBDTYPE") RESETKEYACTION :D8 (L (2 RESETINTERRUPTS 1 FROM 0 TABLE)) @d 9l@ ,@dd"d @d @ @ A `b 3lA (AdA A A @ @A@ @A@ @A@ B@A@ Ŀ@A @(219 COPY 207 \#BLOCKDATACELLS 188 \#BLOCKDATACELLS 172 \#BLOCKDATACELLS 156 \#BLOCKDATACELLS 141 \ILLEGAL.ARG 134 \BLOCKDATAP 125 \BLOCKDATAP 115 \BLOCKDATAP 94 \#BLOCKDATACELLS 84 \BLOCKDATAP 68 \ILLEGAL.ARG 61 \BLOCKDATAP 51 \BLOCKDATAP 39 \BLOCKDATAP 17 \#BLOCKDATACELLS 6 \BLOCKDATAP) (77 \DEFAULTKEYACTION) () \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS :D8 (F 1 \MAIKOKEYACTIONS F 2 \MAIKOKEYACTIONST4 F 3 \MAIKO-JLE-KEYACTIONS F 4 \TOSHIBA-KEYACTIONS) mo oo`!ljQH `!lkRH `!llS`!llRT Q(104 \APPEND2 66 \APPEND2 45 \APPEND2 9 UNIX-GETPARM) (88 \InterfacePage 72 \InterfacePage 51 \InterfacePage 30 \InterfacePage) ( 22 ((56 LOCKTOGGLE . IGNORE) (72 LOCKDOWN . LOCKUP)) 14 "X" 4 "DISPLAY") \KEYACTION1 :D8 (L (2 TABLE 1 ACTION 0 TI)) B@djgdldlnB@dnjgB @hB@dnjgB @lplphB @B@lgghdkgdlgdlgsdl%gB @B @lplphJdlg
dg*dg dgdgdgdg dg l dj0dj dgd` dn5`HdI4dh2d`.dg*dg&dg$`HdIdjdjdk djdldhdjHd hg Hdg (417 \SETACCESS 403 \EXTERNALFORMAT 227 \DEFINEDEVICE) (423 \KEYBOARD.STREAM 412 INPUT 398 :DEFAULT 389 FDEV 328 FILELINELENGTH 320 \STREAM.NOT.OPEN 311 \STREAM.NOT.OPEN 302 \EOSERROR 293 \NOIMAGEOPS 272 \STREAM.DEFAULT.MAXBUFFERS 257 \KEYBOARD.DEVICE 248 {KEYBOARD} 222 \KEYBOARD.DEVICE 214 NILL 205 NILL 196 \GENERIC.RENAMEFILE 187 NILL 178 NILL 169 NILL 160 NILL 151 \GENERIC.BINS 142 \GENERIC.BOUTS 133 NILL 124 \GENERIC.CHARSET 115 \ILLEGAL.DEVICEOP 106 \IS.NOT.RANDACCESSP 97 \IS.NOT.RANDACCESSP 88 *DEFAULT-EXTERNALFORMAT* 79 \INIT.KEYBOARD.STREAMA0008 70 NILL 61 \SYSBUFP 52 \PEEKSYSBUF 43 \GETKEY 34 \KEYBOARDEVENTFN 25 NILL 16 KEYBOARD 9 |FDEVTYPE#| 4 KEYBOARD) () CURSOR.INIT :D8 NIL ~p`hdj````dX`dHnYdk Ij @Ij Qd `djdjZdk Jj @Jj Qd `djdj[dk Kk @Kk Qd `djdj\dk Lj @Ll Qd `dHn]dk Mj @Mj Qd `dHn^dk Nj @Nj Qd h(378 \LOCKCELL 333 \LOCKCELL 288 \LOCKCELL 241 \LOCKCELL 195 \LOCKCELL 149 \LOCKCELL) (372 \SOFTCURSORBBT6 338 |PILOTBBTTYPE#| 327 \SOFTCURSORBBT5 293 |PILOTBBTTYPE#| 282 \SOFTCURSORBBT4 246 |PILOTBBTTYPE#| 235 \SOFTCURSORBBT3 200 |PILOTBBTTYPE#| 189 \SOFTCURSORBBT2 154 |PILOTBBTTYPE#| 143 \SOFTCURSORBBT1 109 |PILOTBBTTYPE#| 98 \CURSORDESTRASTERWIDTH 91 BITMAP 86 ScreenBitMap 81 \CURSORDESTHEIGHT 74 BITMAP 69 ScreenBitMap 64 \CURSORDESTWIDTH 57 BITMAP 52 ScreenBitMap 47 \CURSORDESTLINEBASE 40 BITMAP 35 ScreenBitMap 30 \CURSORDESTLINE 24 \SOFTCURSORDOWNBM 18 \SOFTCURSORUPBM 12 \CURSORDESTINATION 7 ScreenBitMap) () \CURSORDESTINATION :D8 (L (0 DESTINATION) P 1 \INTERRUPTABLE) N@`@`@`@ `dljd Odljd}ABl>`j)`j*n``j)`j*`n`j`j`j`jjg @@@@`Hn`Hn`Hn@h(83 \DoveMisc.SetMousePosition 64 \CURSORBITSPERPIXEL) (330 \CURSORDESTINATION 316 PILOTBBT 311 \SOFTCURSORBBT6 298 PILOTBBT 293 \SOFTCURSORBBT5 280 PILOTBBT 275 \SOFTCURSORBBT1 265 \CURSORDESTRASTERWIDTH 258 BITMAP 251 \CURSORDESTHEIGHT 244 BITMAP 237 \CURSORDESTWIDTH 230 BITMAP 219 BITMAP 211 \CURSORDESTLINEBASE 205 \CURSORDESTLINE 195 \EM.CURSORY 186 \EM.CURSORX 177 \EM.MOUSEY 168 \EM.MOUSEX 157 \IOPAGE 148 \IOPAGE 139 \IOPAGE 129 \IOPAGE 117 \IOPAGE 108 \IOPAGE 70 \MACHINETYPE 57 BITMAP 51 \CURRENTCURSOR 41 BITMAP 33 BITMAP 26 CURSOR 21 \CURRENTCURSOR 8 \CURSORDESTINATION) () CURSORPROP :D8 (L (0 X)) 0eHdlkalala l kala  (45 \ILLEGAL.ARG 39 GETCURSORPROP 23 PUTCURSORPROP) NIL () GETCURSORPROP :D8 (L (1 PROP 0 CURSOR)) @A'NIL (5 CURSOR) () PUTCURSORPROP :D8 (L (2 VALUE 1 PROP 0 CURSOR) P 1 OLDVALUE) d0@XdEdA'BHAB DIBHdA%@@%AJdJZB@ABhI(28 LISTPUT) (89 CURSOR 53 CURSOR 47 CURSOR 8 CURSOR) () \CURSORBITSPERPIXEL :D8 (L (1 NEWBITSPERPIXEL 0 CURSOR)) p@XdA@Y@Z@H I @H J @A ]@A 1kAkٻj@g LKA @g LKA @M@Nh(144 COLORIZEBITMAP 136 CURSORPROP 124 COLORIZEBITMAP 116 CURSORPROP 95 CURSORPROP 90 \CURSORMASKPROPNAME 81 CURSORPROP 76 \CURSORIMAGEPROPNAME 69 CURSORPROP 63 \CURSORMASKPROPNAME 56 CURSORPROP 50 \CURSORIMAGEPROPNAME) (160 CURSOR 151 CURSOR 131 MASK1 111 IMAGE1 40 CURSOR 31 CURSOR 15 BITMAP 8 CURSOR) () \CURSORIMAGEPROPNAME :D8 (L (0 BITSPERPIXEL)) '@dkgdlglg(36 SHOULDNT) (30 IMAGE8 20 IMAGE4 9 IMAGE1) () \CURSORMASKPROPNAME :D8 (L (0 BITSPERPIXEL)) '@dkgdlglg(36 SHOULDNT) (30 MASK8 20 MASK4 9 MASK1) () CURSORCREATE :D8 (L (4 DATA 3 HOTSPOTY 2 HOTSPOTX 1 MASK 0 IMAGE)) A3 A BbAbhb@d l)@ l@A lA lA B BbBb`d@A@HdI@ kB3 jHdIIjHHjHdI@ kC3 @ kHdIIjHHjHdIdD(186 BITMAPHEIGHT 173 BITMAPHEIGHT 127 BITMAPWIDTH 85 POSITIONP 78 \ILLEGAL.ARG 68 BITMAPHEIGHT 58 BITMAPWIDTH 41 BITMAPHEIGHT 29 BITMAPWIDTH 9 POSITIONP) (101 |CURSORTYPE#|) () CURSOR :D8 (L (1 INVERTFLG 0 NEWCURSOR)) m`X@di`b` ?@A @@k@@H (104 \ILLEGAL.ARG 46 \CURSORUP 38 \CURSORDOWN 31 \CURSOR-VALID-P) (92 \CURSORHOTSPOTY 84 CURSOR 74 BITMAP 67 CURSOR 60 \CURSORHOTSPOTX 53 CURSOR 26 \SOFTCURSORP 19 DEFAULTCURSOR 7 \CURRENTCURSOR) () \CURSOR-VALID-P :D8 (L (1 SOFT? 0 CURSOR)) [@ SAi@@@H lh'H lhjIhlI jJhlJ(57 BITMAPHEIGHT 44 BITMAPWIDTH 5 CURSORP) (33 CURSOR 25 CURSOR 17 CURSOR) () \CURSORUP :D8 (L (1 INVERTFLG 0 NEWCURSOR) P 0 \INTERRUPTABLE) @` @@B@dl.@dl``@A @ `@@k@` (161 ADJUSTCURSORPOSITION 109 \SOFTCURSORUP 102 \HARDCURSORUP 20 \CURSORBITSPERPIXEL) (155 \CURSORHOTSPOTY 147 CURSOR 137 BITMAP 130 CURSOR 121 CURSOR 115 \CURSORHOTSPOTX 93 ScreenBitMap 88 \CURSORDESTINATION 75 BITMAP 68 CURSOR 53 BITMAP 46 CURSOR 34 CURSOR 26 CURSOR 13 BITMAP 8 \CURSORDESTINATION) () \CURSORPOSITION :D8 (L (1 YPOS 0 XPOS))  `kAb`@`kـ@`nb`A`kـA`nb`dldnjb@njb`dl@A Odl@A}ABl>`@)`A*n``@)`A*`n`@`A`@A `@`A`l @A h(264 \DoveDisplay.SetCursorPosition 228 \SOFTCURSORPOSITION 118 \DoveMisc.SetMousePosition) (252 \MACHINETYPE 243 \EM.CURSORY 234 \EM.CURSORX 220 \SOFTCURSORP 212 \EM.MOUSEY 203 \EM.MOUSEX 192 \IOPAGE 183 \IOPAGE 174 \IOPAGE 164 \IOPAGE 152 \IOPAGE 143 \IOPAGE 105 \MACHINETYPE 73 \MACHINETYPE 61 \CURSORHOTSPOTY 52 \CURSORDESTHEIGHT 44 \CURSORDESTHEIGHT 32 \CURSORHOTSPOTX 23 \CURSORDESTWIDTH 15 \CURSORDESTWIDTH 4 \CURSORDESTHEIGHT) () \CURSORDOWN :D8 (P 0 \INTERRUPTABLE) `(19 \HARDCURSORDOWN 13 \SOFTCURSORDOWN) (7 \SOFTCURSORP) () ADJUSTCURSORPOSITION :D8 (L (1 DELTAY 0 DELTAX)) @d I@``dnnk@`k``dnnk j``dnnkAj`k``dnnk (151 \CURSORPOSITION 78 \CURSORPOSITION 6 POSITIONP) (129 \EM.CURSORY 124 \CURSORHOTSPOTY 117 \CURSORDESTHEIGHT 92 \EM.CURSORX 87 \CURSORHOTSPOTX 56 \EM.CURSORY 51 \CURSORHOTSPOTY 44 \CURSORDESTHEIGHT 21 \EM.CURSORX 16 \CURSORHOTSPOTX) () CURSORPOSITION :D8 (L (2 OLDPOSITION 1 DISPLAYSTREAM 0 NEWPOSITION)) Agh 0XBB3 Bd3hdb``dnnkH B`k``dnnkH @d*d3$d3H@H 8-@d$@dd3d3@@ @@ B(221 \ILLEGAL.ARG 212 CURSORSCREEN 165 \CURSORPOSITION 121 \DSPUNTRANSFORMY 80 \DSPUNTRANSFORMX 14 \GETSTREAM) (178 SCREEN 157 \DISPLAYDATA 146 \DISPLAYDATA 99 \EM.CURSORY 94 \CURSORHOTSPOTY 87 \CURSORDESTHEIGHT 59 \EM.CURSORX 54 \CURSORHOTSPOTX 26 \DISPLAYDATA 19 STREAM 8 OUTPUT) () CURSORSCREEN :D8 (L (2 YCOORD 1 XCOORD 0 SCREEN) F 1 \CURSORSCREEN) :AjbBjb@X@cH ` AB h(54 \CURSORPOSITION 47 \CURSORUP 37 \CURSORDESTINATION 28 \CURSORDOWN) (42 \CURRENTCURSOR 20 SCREEN) () CURSOREXIT :D8 (F 6 \MAINSCREEN F 7 \COLORSCREEN) b``X`Y`ZHVWV[IdjdlٍHk%kJKkHk]KLM h(94 CURSORSCREEN) (80 SCREEN 69 SCREEN 53 SCREEN 41 SCREEN 19 LASTMOUSEY 13 LASTMOUSEX 7 LASTSCREEN) () FLIPCURSOR :D8 NIL c`X`ldjHdnHkиkٰ`dl%l!`d`}@h(58 \DoveDisplay.SetCursorShape) (90 CURSOR 85 \CURRENTCURSOR 78 CURSOR 70 \CURRENTCURSOR 47 \MACHINETYPE 14 \EM.CURSORBITMAP 7 \SOFTCURSORP) () LASTMOUSEX :D8 (L (0 DS)) $`@gh 0 (33 \DSPUNTRANSFORMX 16 \GETSTREAM) (28 \DISPLAYDATA 21 STREAM 10 OUTPUT 4 LASTMOUSEX) () LASTMOUSEY :D8 (L (0 DS)) $`@gh 0 (33 \DSPUNTRANSFORMY 16 \GETSTREAM) (28 \DISPLAYDATA 21 STREAM 10 OUTPUT 4 LASTMOUSEY) () CREATEPOSITION :D8 (L (1 YCOORD 0 XCOORD)) @jAjNIL NIL () POSITIONP :D8 (L (0 X)) @@3 @3@NIL NIL () CURSORHOTSPOT :D8 (L (0 NEWPOSITION)) $``@ @@(16 POSITIONP) (32 \CURSORHOTSPOTY 24 \CURSORHOTSPOTX 9 \CURSORHOTSPOTY 4 \CURSORHOTSPOTX) () GETMOUSESTATE :D8 (F 0 \CURSORSCREEN) i``dnnk`k``dnnk`llPh(90 \EVENTKEYS) (101 LASTSCREEN 95 LASTKEYBOARD 85 LASTMOUSEBUTTONS 72 \LASTKEYSTATE 67 LASTMOUSEY 46 \EM.CURSORY 41 \CURSORHOTSPOTY 34 \CURSORDESTHEIGHT 29 LASTMOUSEX 9 \EM.CURSORX 4 \CURSORHOTSPOTX) () MACHINETYPE :D8 NIL 4` dlgdlgdlglgNIL (49 MAIKO 38 DOVE 27 DANDELION 16 DORADO 4 \InterfacePage) () SETMAINTPANEL :D8 (L (0 N)) 3`dl`@@dl@xl @9NIL (46 SMALLP 32 SMALLP 15 \IOPAGE 4 \MACHINETYPE) () BEEPON :D8 (L (0 FREQ)) ]`dl:n`%`o@dll+`n dl@ li@}Ph(78 \DoveMisc.BeepOn 64 BLOCK) (52 \IOPAGE 29 \IOPAGE 19 \IOPAGE 4 \MACHINETYPE) ( 34 1843200) BEEPOFF :D8 NIL D`dl"n``ndllhd}Ph(53 \DoveMisc.BeepOff 40 BLOCK) (28 \IOPAGE 19 \IOPAGE 4 \MACHINETYPE) () WITHOUT-INTERRUPTS :D8 (L (0 FORM)) @ XH(19 \KEYBOARDON 13 DISPLAYDOWN 7 \KEYBOARDOFF) NIL () (PRETTYCOMPRINT LLKEYCOMS) (RPAQQ LLKEYCOMS ((COMS (* ; "Access to keyboard") (FNS BKSYSCHARCODE \CLEARSYSBUF \GETKEY \NSYSBUFCHARS \SAVESYSBUF \SYSBUFP \GETSYSBUF \PUTSYSBUF \PEEKSYSBUF) (INITVARS (\LONGSYSBUF)) ( INITVARS (\\KEYBOARDWAITBOX.GLOBALRESOURCE)) (DECLARE%: DONTCOPY (RESOURCES \KEYBOARDWAITBOX)) ( DECLARE%: DONTCOPY (CONSTANTS (\SYSBUFSIZE 200)) (MACROS \GETREALSYSBUF))) (DECLARE%: DOCOPY DONTEVAL@LOAD (COMS (* ; "Here because it must be done in init before PROC loaded") (P (MOVD? (QUOTE NILL) (QUOTE CARET))))) (COMS (* ; "Key handler") (FNS \KEYBOARDINIT \KEYBOARDEVENTFN \ALLOCLOCKED \SETIOPOINTERS \KEYBOARDOFF \KEYBOARDON \KEYHANDLER \KEYHANDLER1 \RESETKEYBOARD \DOMOUSECHORDING \DOTRANSITIONS \DECODETRANSITION MOUSECHORDWAIT \TRACKCURSOR) (CONSTANTS (\SUN.TYPE3KEYBOARD 0) ( \SUN.TYPE4KEYBOARD 1) (\SUN.JLEKEYBOARD 2) (\TOSHIBA.JIS 7)) (INITVARS (\MOUSECHORDTICKS) ( \MOUSECHORDMILLISECONDS 50)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\KEYBOARDINIT))) (DECLARE%: DONTCOPY (MACROS .NOTELASTUSERACTION) (CONSTANTS ALLUP \CTRLMASK \METABIT) (CONSTANTS * DLMOUSEBITS) (CONSTANTS * DLMOUSESTATES) (CONSTANTS * TRANSITIONFLAGS) (MACROS \TRANSINDEX ARMEDCODE TRANSITIONALTGRCODE TRANSITIONSHIFTCODE TRANSITIONCODE TRANSITIONFLAGS TRANSITIONDEADLIST CHECKFORDEADKEY) (EXPORT ( RECORDS KEYACTION) (CONSTANTS \NKEYS)) (RECORDS RING) (COMS (* ; "can get rid of shiftstate after clients have been fixed") (RECORDS SHIFTSTATE) (GLOBALVARS \SHIFTSTATE \MOUSETIMERTEMP)) (CONSTANTS NRINGINDEXWORDS) (CONSTANTS (\SYSBUFFER.FIRST (UNFOLD NRINGINDEXWORDS BYTESPERWORD)) (\SYSBUFFER.LAST (IPLUS \SYSBUFFER.FIRST (SUB1 \SYSBUFSIZE))))) ( DECLARE%: EVAL@COMPILE (VARS \KEYNAMES)) (* ;; "\maikokeyactions does not contain keyactions of the form %"2,50%" because it breaks the loadup process on the sun." ) (VARS \ORIGKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DORADOKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS \MAIKOKEYACTIONS \MAIKOKEYACTIONST4 \MAIKO-JLE-KEYACTIONS \TOSHIBA-KEYACTIONS) ( VARS (KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS NIL)) (INITVARS (\KEYBOARD.META 256) ( \MODIFIED.KEYACTIONS)) (DECLARE%: EVAL@COMPILE (ADDVARS (GLOBALVARS \RCLKSECOND \LASTUSERACTION \LASTKEYSTATE))) (GLOBALVARS \SYSBUFFER \LONGSYSBUF \INTERRUPTSTATE \MODIFIED.KEYACTIONS \MOUSECHORDTICKS \KEYBOARDEVENTQUEUE \KEYBUFFERING \CURRENTKEYACTION \COMMANDKEYACTION \DEFAULTKEYACTION \TIMER.INTERRUPT.PENDING \ORIGKEYACTIONS \KEYBOARD.META \MOUSECHORDMILLISECONDS \DORADOKEYACTIONS \DLIONKEYACTIONS \DLIONOSDKEYACTIONS \DOVEKEYACTIONS \DOVEOSDKEYACTIONS)) (COMS (* ; "Key interpretation") (FNS KEYACTION KEYACTIONTABLE KEYBOARDTYPE RESETKEYACTION \KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS \KEYACTION1 KEYDOWNP KEYNUMBERP \KEYNAMETONUMBER \KEYNUMBERTONAME MODIFY.KEYACTIONS METASHIFT SHIFTDOWNP) (* ; "To support office style 1108 & 1186 keyboards") (FNS SETUP.OFFICE.KEYBOARD) (OPTIMIZERS) (MACROS \TEMPCOPYTIMER) (* ; "Don't copy this optimizer since it expands out to \getbasebit, but do exportit." ) (DECLARE%: DONTCOPY (EXPORT (OPTIMIZERS KEYDOWNP))) (EXPORT (MACROS XKEYDOWNP KEYDOWNP1 \NEWKEYDOWNP ))) (COMS (* ; "A raw keyboard device/stream") (FNS \INIT.KEYBOARD.STREAM) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INIT.KEYBOARD.STREAM))) (EXPORT (GLOBALVARS \KEYBOARD.DEVICE \KEYBOARD.STREAM))) (COMS (* ; "Hook for a periodic interrupt") (FNS \DOBUFFEREDTRANSITIONS \TIMER.INTERRUPTFRAME \PERIODIC.INTERRUPTFRAME) (INITVARS (\KEYBUFFERING) (\PERIODIC.INTERRUPT) (\TIMER.INTERRUPT.PENDING) ( \PERIODIC.INTERRUPT.FREQUENCY 77))) (LOCALVARS . T) (COMS (* ; "cursor and mouse related functions.") (FNS \HARDCURSORUP \HARDCURSORPOSITION \HARDCURSORDOWN) (FNS CURSOR.INIT \CURSORDESTINATION \SOFTCURSORUP \SOFTCURSORUPCURRENT \SOFTCURSORPOSITION \SOFTCURSORDOWN CURSORPROP GETCURSORPROP PUTCURSORPROP \CURSORBITSPERPIXEL \CURSORIMAGEPROPNAME \CURSORMASKPROPNAME) (FNS CURSORCREATE CURSOR \CURSOR-VALID-P \CURSORUP \CURSORPOSITION \CURSORDOWN ADJUSTCURSORPOSITION CURSORPOSITION CURSORSCREEN CURSOREXIT FLIPCURSOR FLIPCURSORBAR LASTMOUSEX LASTMOUSEY CREATEPOSITION POSITIONP CURSORHOTSPOT) ( PROPS (CURSORPROP ARGNAMES)) (INITVARS (\CURSORHOTSPOTX 0) (\CURSORHOTSPOTY 0) (\CURRENTCURSOR NIL) ( \SOFTCURSORWIDTH NIL) (\SOFTCURSORHEIGHT NIL) (\SOFTCURSORP NIL) (\SOFTCURSORUPP NIL) (\SOFTCURSORUPBM NIL) (\SOFTCURSORDOWNBM NIL) (\SOFTCURSORBBT1 NIL) (\SOFTCURSORBBT2 NIL) (\SOFTCURSORBBT3 NIL) ( \SOFTCURSORBBT4 NIL) (\SOFTCURSORBBT5 NIL) (\SOFTCURSORBBT6 NIL) (\CURSORSCREEN NIL) ( \CURSORDESTINATION NIL) (\CURSORDESTHEIGHT 808) (\CURSORDESTWIDTH 1024) (\CURSORDESTRASTERWIDTH 64) ( \CURSORDESTLINE 0) (\CURSORDESTLINEBASE NIL)) (GLOBALVARS \CURSORHOTSPOTX \CURSORHOTSPOTY \CURRENTCURSOR \SOFTCURSORWIDTH \SOFTCURSORHEIGHT \SOFTCURSORP \SOFTCURSORUPP \SOFTCURSORUPBM \SOFTCURSORDOWNBM \SOFTCURSORBBT1 \SOFTCURSORBBT2 \SOFTCURSORBBT3 \SOFTCURSORBBT4 \SOFTCURSORBBT5 \SOFTCURSORBBT6 \CURSORDESTINATION \CURSORDESTHEIGHT \CURSORDESTWIDTH \CURSORDESTRASTERWIDTH \CURSORDESTLINE \CURSORDESTLINEBASE) (FNS GETMOUSESTATE \EVENTKEYS) (EXPORT (CONSTANTS ( HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16)) (DECLARE%: EVAL@COMPILE (ADDVARS (GLOBALVARS LASTMOUSEX LASTMOUSEY LASTSCREEN LASTMOUSEBUTTONS LASTMOUSETIME LASTKEYBOARD)))) (DECLARE%: DONTCOPY (EXPORT ( MACROS \SETMOUSEXY)) (MACROS \XMOUSECOORD \YMOUSECOORD)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD ( QUOTE CURSOR) (QUOTE SETCURSOR)) (MOVD (QUOTE \CURSORPOSITION) (QUOTE \SETCURSORPOSITION))) (VARS ( \SFPosition (CREATEPOSITION))))) (COMS (DECLARE%: DONTCOPY (RECORDS KEYBOARDEVENT) (CONSTANTS ( \KEYBOARDEVENT.FIRST NRINGINDEXWORDS) \KEYBOARDEVENT.SIZE (\KEYBOARDEVENT.LAST (PLUS \KEYBOARDEVENT.FIRST (TIMES \KEYBOARDEVENT.SIZE 383)))))) (COMS (FNS MACHINETYPE SETMAINTPANEL) (* ; "DLion beeper") (FNS BEEPON BEEPOFF)) (EXPORT (GLOBALVARS \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \EM.DISPINTERRUPT \EM.DISPLAYHEAD \EM.CURSORBITMAP \MACHINETYPE \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION \PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY)) (FNS WITHOUT-INTERRUPTS) (COMS (* ; "Compile locked fns together for locality") (BLOCKS (NIL FLIPCURSORBAR \KEYHANDLER \KEYHANDLER1 \TRACKCURSOR \PERIODIC.INTERRUPTFRAME \TIMER.INTERRUPTFRAME \DOBUFFEREDTRANSITIONS \DOTRANSITIONS \DECODETRANSITION \EVENTKEYS \HARDCURSORUP \DOMOUSECHORDING \KEYBOARDOFF \HARDCURSORPOSITION \HARDCURSORDOWN \SOFTCURSORUP \SOFTCURSORUPCURRENT \SOFTCURSORPOSITION \SOFTCURSORDOWN))) (DECLARE%: DONTCOPY (ADDVARS (INEWCOMS (ALLOCAL (ADDVARS ( LOCKEDFNS FLIPCURSORBAR \SETIOPOINTERS \KEYHANDLER \KEYHANDLER1 \CONTEXTAPPLY \LOCKPAGES \DECODETRANSITION \SMASHLINK \INCUSECOUNT LLSH \MAKEFREEBLOCK \DECUSECOUNT \MAKENUMBER \ADDBASE \PERIODIC.INTERRUPTFRAME \DOBUFFEREDTRANSITIONS \TIMER.INTERRUPTFRAME \CAUSEINTERRUPT \DOMOUSECHORDING \KEYBOARDOFF \TRACKCURSOR \HARDCURSORUP \HARDCURSORPOSITION \HARDCURSORDOWN \SOFTCURSORUP \SOFTCURSORUPCURRENT \SOFTCURSORPOSITION \SOFTCURSORDOWN \SOFTCURSORPILOTBITBLT) (LOCKEDVARS \InterfacePage \CURSORHOTSPOTX \CURSORHOTSPOTY \CURRENTCURSOR \SOFTCURSORWIDTH \SOFTCURSORHEIGHT \SOFTCURSORP \SOFTCURSORUPP \SOFTCURSORUPBM \SOFTCURSORDOWNBM \SOFTCURSORBBT1 \SOFTCURSORBBT2 \SOFTCURSORBBT3 \SOFTCURSORBBT4 \SOFTCURSORBBT5 \SOFTCURSORBBT6 \CURSORDESTINATION \CURSORDESTHEIGHT \CURSORDESTWIDTH \CURSORDESTRASTERWIDTH \CURSORDESTLINE \CURSORDESTLINEBASE \PENDINGINTERRUPT \PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY \LASTUSERACTION \MOUSECHORDTICKS \KEYBOARDEVENTQUEUE \KEYBUFFERING SCREENWIDTH SCREENHEIGHT \TIMER.INTERRUPT.PENDING \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.DISPINTERRUPT \EM.CURSORBITMAP \EM.KBDAD4 \EM.KBDAD5 \MISCSTATS \RCLKSECOND)))) (RDCOMS (FNS \SETIOPOINTERS)))) ( PROP FILETYPE LLKEY) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML WITHOUT-INTERRUPTS) (LAMA CURSORPROP METASHIFT MOUSECHORDWAIT))))) (RPAQ? \LONGSYSBUF) (RPAQ? \\KEYBOARDWAITBOX.GLOBALRESOURCE) (MOVD? (QUOTE NILL) (QUOTE CARET)) (RPAQQ \SUN.TYPE3KEYBOARD 0) (RPAQQ \SUN.TYPE4KEYBOARD 1) (RPAQQ \SUN.JLEKEYBOARD 2) (RPAQQ \TOSHIBA.JIS 7) (CONSTANTS (\SUN.TYPE3KEYBOARD 0) (\SUN.TYPE4KEYBOARD 1) (\SUN.JLEKEYBOARD 2) (\TOSHIBA.JIS 7)) (RPAQ? \MOUSECHORDTICKS) (RPAQ? \MOUSECHORDMILLISECONDS 50) (\KEYBOARDINIT) (RPAQQ \KEYNAMES ((5 %% FIVE) (4 $ FOUR) (6 ~ SIX) (e E) (7 & SEVEN) (d D) (u U) (v V) (0 %) ZERO) (k K) (- %) (p P) (/ ?) (\ %| FONT LOOKS) (LF SAME) (BS <-) (3 %# THREE) (2 @ TWO) (w W) (q Q) (s S) (a A) (9 %( NINE) (i I) (x X) (o O) (l L) (%, <) (%' %") (%] }) (BLANK-MIDDLE OPEN DBK-HELP) (BLANK-TOP KEYBOARD DBK-META) (1 ! ONE) (ESC ESCAPE ->) (TAB =>) (f F) (CTRL PROP'S EDIT) (c C) (j J) (b B) (z Z) (LSHIFT) (%. >) (; %:) (CR <-%|) (_ ^) (DEL DELETE) (SKIP NEXT) (r R) (t T) (g G) (y Y) (h H) (8 * EIGHT) (n N) (m M) (LOCK) (SPACE) (%[ {) (= +) (RSHIFT) (BLANK-BOTTOM STOP) (MOVE) (UNDO) (UTIL0 SUN-KEYPAD=) (UTIL1 SUN-KEYPAD/) (UTIL2 SUPER/SUB) (UTIL3 CASE) (UTIL4 STRIKEOUT) (UTIL5 KEYPAD2) ( UTIL6 KEYPAD3 PGDN) (UTIL7 SUN-LF) (PAD1 LEFTKEY CAPSLOCK KEYPAD+) (PAD2 LEFTMIDDLEKEY NUMLOCK KEYPAD- ) (PAD3 MIDDLEKEY SCROLLLOCK KEYPAD*) (PAD4 RIGHTMIDDLEKEY BREAK KEYPAD/ SUN-PAUSE) (PAD5 RIGHTKEY DOIT PRTSC) (LEFT RED MOUSERED) (RIGHT BLUE MOUSEBLUE) (MIDDLE YELLOW MOUSEYELLOW) (MARGINS) (K41 KEYPAD7 HOME) (K42 KEYPAD8) (K43 KEYPAD9 PGUP) (K44 KEYPAD4) (K45 KEYPAD5) (K46 SUN-LEFT-SPACE) (K47 KEYPAD6) (K48 RIGHT-COMMAND SUN-RIGHT-SPACE) (COPY) (FIND) (AGAIN) (HELP) (DEF'N EXPAND) (K4E KEYPAD1 END) (ALWAYS-ON-1) (ALWAYS-ON-2) (CENTER) (K52 KEYPAD0 INS) (BOLD) (ITALICS) (UNDERLINE) (SUPERSCRIPT) (SUBSCRIPT) (LARGER SMALLER) (K59 KEYPAD%| KEYPAD.) (K5A KEYPAD\ KEYPAD, SUN-F10) (K5B SUN-F11) (K5C SUN-F12) (DEFAULTS SUN-PROP) (K5E SUN-PRTSC) (K5F SUN-OPEN))) (RPAQQ \ORIGKEYACTIONS ((0 ("5" "%%" NOLOCKSHIFT)) (1 ("4" "$" NOLOCKSHIFT)) (2 ("6" "~" NOLOCKSHIFT)) (3 ("e" "E" LOCKSHIFT)) (4 ("7" "&" NOLOCKSHIFT)) (5 ("d" "D" LOCKSHIFT)) (6 ("u" "U" LOCKSHIFT)) (7 ("v" "V" LOCKSHIFT)) (8 ("0" ")" NOLOCKSHIFT)) (9 ("k" "K" LOCKSHIFT)) (10 ("-" "-" NOLOCKSHIFT)) (11 ("p" "P" LOCKSHIFT)) (12 ("/" "?" NOLOCKSHIFT)) (13 ("\" "|" NOLOCKSHIFT)) (14 ("LF" "`" NOLOCKSHIFT)) (15 ("Bs" "Bs" NOLOCKSHIFT)) (16 ("3" "#" NOLOCKSHIFT)) (17 ("2" "@" NOLOCKSHIFT)) (18 ("w" "W" LOCKSHIFT)) (19 ("q" "Q" LOCKSHIFT)) (20 ("s" "S" LOCKSHIFT)) (21 ("a" "A" LOCKSHIFT)) (22 ("9" "(" NOLOCKSHIFT)) (23 ("i" "I" LOCKSHIFT)) (24 ("x" "X" LOCKSHIFT)) (25 ("o" "O" LOCKSHIFT)) (26 ("l" "L" LOCKSHIFT)) (27 ("," "<" NOLOCKSHIFT)) (28 ("'" "%"" NOLOCKSHIFT)) (29 ("]" "}" NOLOCKSHIFT)) (30 ( "#B" "#B" NOLOCKSHIFT)) (31 ("#A" "#A" NOLOCKSHIFT)) (32 ("1" "!" NOLOCKSHIFT)) (33 ("Esc" "Esc" NOLOCKSHIFT)) (34 ("Tab" "Tab" NOLOCKSHIFT)) (35 ("f" "F" LOCKSHIFT)) (36 CTRLDOWN . CTRLUP) (37 ("c" "C" LOCKSHIFT)) (38 ("j" "J" LOCKSHIFT)) (39 ("b" "B" LOCKSHIFT)) (40 ("z" "Z" LOCKSHIFT)) (41 1SHIFTDOWN . 1SHIFTUP) (42 ("." ">" NOLOCKSHIFT)) (43 (";" ":" NOLOCKSHIFT)) (44 ("CR" "CR" NOLOCKSHIFT)) (45 ("_" "^" NOLOCKSHIFT)) (46 ("Del" "Function,^W" NOLOCKSHIFT)) (47 ("(" "[" NOLOCKSHIFT)) (48 ("r" "R" LOCKSHIFT)) (49 ("t" "T" LOCKSHIFT)) (50 ("g" "G" LOCKSHIFT)) (51 ("y" "Y" LOCKSHIFT)) (52 ("h" "H" LOCKSHIFT)) (53 ("8" "*" NOLOCKSHIFT)) (54 ("n" "N" LOCKSHIFT)) (55 ("m" "M" LOCKSHIFT)) (56 LOCKDOWN . LOCKUP) (57 ("Sp" "Sp" NOLOCKSHIFT)) (58 ("[" "{" NOLOCKSHIFT)) (59 ("=" "+" NOLOCKSHIFT)) (60 2SHIFTDOWN . 2SHIFTUP) (61 ("#C" "#C" NOLOCKSHIFT)) (63 (")" "]" NOLOCKSHIFT)) ( 77 EVENT . EVENT) (78 EVENT . EVENT) (79 EVENT . EVENT) (102 LOCKDOWN) (103 LOCKUP))) (RPAQQ \DLIONKEYACTIONS ((2 ("6" "^" NOLOCKSHIFT)) (10 ("-" "_" NOLOCKSHIFT)) (33 ("\" "|" NOLOCKSHIFT )) (45 ("`" "~" NOLOCKSHIFT)) (OPEN METADOWN . METAUP) (PROP'S CTRLDOWN . CTRLUP) (SAME METADOWN . METAUP) (FIND ("Function,^C" "Function,#" NOLOCKSHIFT)) (UNDO ("Function,^D" "Function,$" NOLOCKSHIFT) ) (STOP ("^E" "Bell" NOLOCKSHIFT)) (MOVE) (COPY) (AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT)) ( CENTER ("Function,A" "Function,a" NOLOCKSHIFT)) (BOLD ("Function,B" "Function,b" NOLOCKSHIFT)) ( ITALICS ("Function,C" "Function,c" NOLOCKSHIFT)) (UNDERLINE ("Function,F" "Function,f" NOLOCKSHIFT)) ( SUPERSCRIPT ("Function,K" "Function,k" NOLOCKSHIFT)) (SUBSCRIPT ("Function,L" "Function,l" NOLOCKSHIFT )) (LARGER ("Function,H" "Function,h" NOLOCKSHIFT)) (DEFAULTS ("Function,M" "Function,m" NOLOCKSHIFT)) (93 ("Esc" "Function,64" NOLOCKSHIFT)) (47 ("Function,^R" "Function,62" NOLOCKSHIFT)) (31 ( "Function,^E" "Function,%%" NOLOCKSHIFT)) (92 ("Function,^A" "Function,!" NOLOCKSHIFT)) (80 ( "Function,^K" "Function,+" NOLOCKSHIFT)) (FONT ("Function,J" "Function,j" NOLOCKSHIFT)))) (RPAQQ \DLIONOSDKEYACTIONS ((56 LOCKTOGGLE))) (RPAQQ \DORADOKEYACTIONS ((2 ("6" "~" NOLOCKSHIFT)) (10 ("-" "-" NOLOCKSHIFT)) (13 ("\" "|" NOLOCKSHIFT)) (14 ("LF" "`" NOLOCKSHIFT)) (33 ("Esc" "Esc" NOLOCKSHIFT)) (45 ("_" "^" NOLOCKSHIFT)))) (RPAQQ \DOVEKEYACTIONS ((2 ("6" "^" NOLOCKSHIFT)) (10 ("-" "_" NOLOCKSHIFT)) (33 ("Esc" "Esc" NOLOCKSHIFT)) (56 CTRLDOWN . CTRLUP) (65 ("Esc" "Esc" NOLOCKSHIFT)) (71 ("'" "%"" NOLOCKSHIFT)) (93 ( "Function,^T" "Function,64" NOLOCKSHIFT)) (108 ("`" "~" NOLOCKSHIFT)) (DBK-META METADOWN . METAUP) ( DBK-HELP ("Function,^A" "Function,!" NOLOCKSHIFT)) (SAME METADOWN . METAUP) (FIND ("Function,^C" "Function,#" NOLOCKSHIFT)) (UNDO ("Function,^D" "Function,$" NOLOCKSHIFT)) (STOP ("^E" "Bell" NOLOCKSHIFT)) (EDIT ("Function,^E" "Function,%%" NOLOCKSHIFT)) (MOVE) (COPY) (AGAIN ("Function,Bs" "Function,(" NOLOCKSHIFT)) (CENTER ("Function,A" "Function,a" NOLOCKSHIFT)) (BOLD ("Function,B" "Function,b" NOLOCKSHIFT)) (ITALICS ("Function,C" "Function,c" NOLOCKSHIFT)) (CASE ("Function,D" "Function,d" NOLOCKSHIFT)) (STRIKEOUT ("Function,E" "Function,e" NOLOCKSHIFT)) (UNDERLINE ( "Function,F" "Function,f" NOLOCKSHIFT)) (SUPER/SUB ("Function,G" "Function,g" NOLOCKSHIFT)) (LARGER ( "Function,H" "Function,h" NOLOCKSHIFT)) (MARGINS ("Function,I" "Function,i" NOLOCKSHIFT)) (LOOKS ( "Function,J" "Function,j" NOLOCKSHIFT)) (CAPSLOCK LOCKTOGGLE) (NUMLOCK ("Function,Tab" "-" NOLOCKSHIFT )) (SCROLLLOCK ("Function,LF" "#4" NOLOCKSHIFT)) (BREAK ("^B" "#8" NOLOCKSHIFT)) (DOIT ("Function,^K" "Function,+" NOLOCKSHIFT)) (KEYPAD7 ("Function,FF" "7" NOLOCKSHIFT)) (KEYPAD8 ("#-" "8" NOLOCKSHIFT)) (KEYPAD9 ("Function,CR" "9" NOLOCKSHIFT)) (KEYPAD4 ("#," "4" NOLOCKSHIFT)) (KEYPAD5 ("Function,^N" "5" NOLOCKSHIFT)) (KEYPAD6 ("#." "6" NOLOCKSHIFT)) (KEYPAD1 ("Function,^O" "1" NOLOCKSHIFT)) (KEYPAD2 ( "#/" "2" NOLOCKSHIFT)) (KEYPAD3 ("Function,^P" "3" NOLOCKSHIFT)) (KEYPAD0 ("Function,^Q" "0" NOLOCKSHIFT)) (KEYPAD%| ("|" "." NOLOCKSHIFT)) (KEYPAD\ ("\" "," NOLOCKSHIFT)) (47 ("Function,^R" "Function,62" NOLOCKSHIFT)))) (RPAQQ \DOVEOSDKEYACTIONS ((56 LOCKDOWN . LOCKUP) (36 CTRLDOWN . CTRLUP) (CAPSLOCK ("Function,^E" "Function,%%" NOLOCKSHIFT)))) (RPAQQ \MAIKOKEYACTIONS ((61 ("^E" "Bell" NOLOCKSHIFT)) (91 ("Function,Bs" "Function,(" NOLOCKSHIFT)) (92 ("Function,^A" "Function,!" NOLOCKSHIFT)) (30 ("Function,^A" "Function,!" NOLOCKSHIFT)) (63 ( "Function,^D" "Function,$" NOLOCKSHIFT)) (93 ("Function,^T" "Function,64" NOLOCKSHIFT)) (62) (111 ( "Meta,I" "Meta,Bell" NOLOCKSHIFT)) (89) (90 ("Function,^C" "Function,#" NOLOCKSHIFT)) (73 ( "Function,Tab" "Function,Tab" NOLOCKSHIFT)) (74 ("Function,LF" "Function,LF" NOLOCKSHIFT)) (75 ("^B" "^B" NOLOCKSHIFT)) (81 ("Function,FF" "7" NOLOCKSHIFT)) (82 ("#-" "8" NOLOCKSHIFT)) (83 ("Function,CR" "9" NOLOCKSHIFT)) (84 ("#," "4" NOLOCKSHIFT)) (85 ("Function,^N" "5" NOLOCKSHIFT)) (87 ("#." "6" NOLOCKSHIFT)) (94 ("Function,^O" "1" NOLOCKSHIFT)) (69 ("#/" "2" NOLOCKSHIFT)) (70 ("Function,^P" "3" NOLOCKSHIFT)) (98 ("Function,^Q" "0" NOLOCKSHIFT)) (76 ("Function,^K" "Function,+" NOLOCKSHIFT)) (72 LOCKTOGGLE) (97 ("Function,A" "Function,a" NOLOCKSHIFT)) (99 ("Function,B" "Function,b" NOLOCKSHIFT)) (100 ("Function,C" "Function,c" NOLOCKSHIFT)) (67 ("Function,D" "Function,d" NOLOCKSHIFT)) (68 ( "Function,E" "Function,e" NOLOCKSHIFT)) (101 ("Function,F" "Function,f" NOLOCKSHIFT)) (66 ( "Function,G" "Function,g" NOLOCKSHIFT)) (104 ("Function,H" "Function,h" NOLOCKSHIFT)) (80 ( "Function,I" "Function,i" NOLOCKSHIFT)) (13 ("^W" "^U" NOLOCKSHIFT)) (33 ("Esc" "Esc" NOLOCKSHIFT)) ( 65 ("Esc" "Esc" NOLOCKSHIFT)) (2 ("6" "^" NOLOCKSHIFT)) (10 ("-" "_" NOLOCKSHIFT)) (36 CTRLDOWN . CTRLUP) (56 LOCKTOGGLE . IGNORE) (45 ("`" "~" NOLOCKSHIFT)) (31 METADOWN . METAUP) (14 METADOWN . METAUP) (71 ("LF" "LF" NOLOCKSHIFT)) (47 ("Function,^R" "Function,62" NOLOCKSHIFT)) (105 ("\" "|" NOLOCKSHIFT)))) (RPAQQ \MAIKOKEYACTIONST4 ((61 ("^E" "Bell" NOLOCKSHIFT)) (91 ("Function,Bs" "Function,(" NOLOCKSHIFT) ) (92 ("Function,^A" "Function,!" NOLOCKSHIFT)) (30 ("Function,^A" "Function,!" NOLOCKSHIFT)) (109 ( "Function,^U" "Function,65" NOLOCKSHIFT)) (63 ("Function,^D" "Function,$" NOLOCKSHIFT)) (14 METADOWN . METAUP) (93 ("Function,^T" "Function,64" NOLOCKSHIFT)) (62) (111 ("Meta,o" "Meta,O" NOLOCKSHIFT)) ( 89) (90 ("Function,^C" "Function,#" NOLOCKSHIFT)) (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT)) (74 ("Function,LF" "Function,LF" NOLOCKSHIFT)) (75 ("^B" "^B" NOLOCKSHIFT)) (81 ("Function,FF" "7" NOLOCKSHIFT)) (82 ("#-" "8" NOLOCKSHIFT)) (83 ("Function,CR" "9" NOLOCKSHIFT)) (84 ("#," "4" NOLOCKSHIFT)) (85 ("Function,^N" "5" NOLOCKSHIFT)) (87 ("#." "6" NOLOCKSHIFT)) (94 ("Function,^O" "1" NOLOCKSHIFT)) (69 ("#/" "2" NOLOCKSHIFT)) (70 ("Function,^P" "3" NOLOCKSHIFT)) (98 ("Function,^Q" "0" NOLOCKSHIFT)) (76 ("Function,^K" "Function,^K" NOLOCKSHIFT)) (110 ("Function,+" "Function,+" NOLOCKSHIFT)) (72 LOCKTOGGLE) (97 ("Function,A" "Function,a" NOLOCKSHIFT)) (99 ("Function,B" "Function,b" NOLOCKSHIFT)) (100 ("Function,C" "Function,c" NOLOCKSHIFT)) (67 ("Function,D" "Function,d" NOLOCKSHIFT)) (68 ("Function,E" "Function,e" NOLOCKSHIFT)) (101 ("Function,F" "Function,f" NOLOCKSHIFT)) (66 ("Function,G" "Function,g" NOLOCKSHIFT)) (104 ("Function,H" "Function,h" NOLOCKSHIFT)) (80 ("Function,I" "Function,i" NOLOCKSHIFT)) (106 ("Function,K" "Function,k" NOLOCKSHIFT)) (107 ("Function,L" "Function,l" NOLOCKSHIFT)) (108 ("Function,M" "Function,m" NOLOCKSHIFT)) (13 ("^W" "^U" NOLOCKSHIFT)) (33 ("Esc" "Esc" NOLOCKSHIFT)) (64 IGNORE . IGNORE) (65 ("Esc" "Esc" NOLOCKSHIFT)) (95 IGNORE . IGNORE) (96 IGNORE . IGNORE) (102 IGNORE . IGNORE) (2 ("6" "^" NOLOCKSHIFT)) (10 ("-" "_" NOLOCKSHIFT)) (36 CTRLDOWN . CTRLUP) (56 LOCKTOGGLE . IGNORE) (45 ("`" "~" NOLOCKSHIFT)) (31 METADOWN . METAUP) (71 ("LF" "LF" NOLOCKSHIFT)) (47 ("Function,^R" "Function,62" NOLOCKSHIFT)) (86 IGNORE . IGNORE) (88 IGNORE . IGNORE) (105 ("\" "|" NOLOCKSHIFT)))) (RPAQQ \MAIKO-JLE-KEYACTIONS ((2 ("6" "&" NOLOCKSHIFT)) (4 ("7" "'" NOLOCKSHIFT)) (8 ("0" "0" NOLOCKSHIFT)) (10 ("\" "_" NOLOCKSHIFT)) (13 ("^W" "^U" NOLOCKSHIFT)) (14 METADOWN . METAUP) (15 ("Bs" "Bs" NOLOCKSHIFT)) (17 ("2" "%"" NOLOCKSHIFT)) (22 ("9" ")" NOLOCKSHIFT)) (28 (":" "*" NOLOCKSHIFT)) (29 ("[" "{" NOLOCKSHIFT)) (30 ("]" "}" NOLOCKSHIFT)) (31 METADOWN . METAUP) (33 ("Esc" "Esc" NOLOCKSHIFT)) (36 CTRLDOWN . CTRLUP) (43 (";" "+" NOLOCKSHIFT)) (45 ("^" "~" NOLOCKSHIFT)) (47 ( "Function,^R" "Function,62" NOLOCKSHIFT)) (53 ("8" "(" NOLOCKSHIFT)) (56 LOCKTOGGLE . IGNORE) (58 ("@" "`" NOLOCKSHIFT)) (59 ("-" "=" NOLOCKSHIFT)) (61 ("^E" "Bell" NOLOCKSHIFT)) (62) (63 ("Function,^D" "Function,$" NOLOCKSHIFT)) (64 ("Function,FF" "7" NOLOCKSHIFT)) (65 ("Esc" "Esc" NOLOCKSHIFT)) (66 ( "Function,G" "Function,g" NOLOCKSHIFT)) (67 ("Function,D" "Function,d" NOLOCKSHIFT)) (69 ( "Function,^K" "Function,+" NOLOCKSHIFT)) (70 ("Function,^P" "3" NOLOCKSHIFT)) (71 ("LF" "LF" NOLOCKSHIFT)) (72 ("Function,#~" "Function,#~" NOLOCKSHIFT)) (73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT)) (74 ("Function,LF" "Function,LF" NOLOCKSHIFT)) (75 ("^B" "^B" NOLOCKSHIFT)) (80 ( "Function,I" "Function,i" NOLOCKSHIFT)) (81 ("Function,FF" "7" NOLOCKSHIFT)) (82 ("#-" "8" NOLOCKSHIFT )) (83 ("Function,CR" "9" NOLOCKSHIFT)) (84 ("#," "4" NOLOCKSHIFT)) (85 ("Function,^N" "5" NOLOCKSHIFT )) (86 ("Function,#}" "Function,#}" NOLOCKSHIFT)) (87 ("#." "6" NOLOCKSHIFT)) (88 ("3,^B" "3,^C" NOLOCKSHIFT)) (90 ("Function,^C" "Function,#" NOLOCKSHIFT)) (91 ("Function,Bs" "Function,(" NOLOCKSHIFT)) (92 ("Function,^A" "Function,!" NOLOCKSHIFT)) (93 ("Function,^T" "Function,64" NOLOCKSHIFT)) (96 IGNORE . IGNORE) (98 ("Function,^Q" "0" NOLOCKSHIFT)) (99 ("Function,B" "Function,b" NOLOCKSHIFT)) (101 ("Function,F" "Function,f" NOLOCKSHIFT)) (102 IGNORE . IGNORE) (103 ( "Function,#Del" "3,Null" NOLOCKSHIFT)) (104 ("Function,H" "Function,h" NOLOCKSHIFT)) (105 ("\" "|" NOLOCKSHIFT)) (106 ("Function,K" "Function,k" NOLOCKSHIFT)) (107 ("Function,L" "Function,l" NOLOCKSHIFT)) (108 ("Function,M" "Function,m" NOLOCKSHIFT)) (109 ("3,^A" "3,^A" NOLOCKSHIFT)) (110 ( "Function,+" "Function,+" NOLOCKSHIFT)) (111 ("Meta,o" "Meta,O" NOLOCKSHIFT)))) (RPAQQ \TOSHIBA-KEYACTIONS ((2 ("6" "&" NOLOCKSHIFT)) (4 ("7" "'" NOLOCKSHIFT)) (17 ("2" "%"" NOLOCKSHIFT)) (53 ("8" "(" NOLOCKSHIFT)) (22 ("9" ")" NOLOCKSHIFT)) (8 ("0" "0" NOLOCKSHIFT)) (10 ("-" "=" NOLOCKSHIFT)) (59 ("^" "~" NOLOCKSHIFT)) (45 ("\" "|" NOLOCKSHIFT)) (58 ("@" "`" NOLOCKSHIFT)) ( 29 ("[" "{" NOLOCKSHIFT)) (105 ("]" "}" NOLOCKSHIFT)) (43 (";" "+" NOLOCKSHIFT)) (28 (":" "*" NOLOCKSHIFT)) (15 ("^W" "_" NOLOCKSHIFT)) (13 ("Bs" "Bs" NOLOCKSHIFT)) (86 METADOWN . METAUP) (73 ( "Function,^R" "Function,62" NOLOCKSHIFT)) (88 ("Function,^T" "Function,64" NOLOCKSHIFT)) (98 IGNORE . IGNORE) (75 ("Function,Tab" "Function,Tab" NOLOCKSHIFT)) (110 ("Function,LF" "Function,LF" NOLOCKSHIFT )) (74 ("^B" "^B" NOLOCKSHIFT)) (64 ("Function,FF" "7" NOLOCKSHIFT)) (65 ("#-" "8" NOLOCKSHIFT)) (95 ( "Function,CR" "9" NOLOCKSHIFT)) (81 ("#," "4" NOLOCKSHIFT)) (82 ("Function,^N" "5" NOLOCKSHIFT)) (83 ( "#." "6" NOLOCKSHIFT)) (84 ("Function,^O" "1" NOLOCKSHIFT)) (85 ("#/" "2" NOLOCKSHIFT)) (87 ( "Function,^P" "3" NOLOCKSHIFT)) (94 ("Function,^Q" "0" NOLOCKSHIFT)) (69 ("Function,^K" "Function,+" NOLOCKSHIFT)) (70 LOCKTOGGLE))) (RPAQQ KEYBOARD.APPLICATION-SPECIFIC-KEYACTIONS NIL) (RPAQ? \KEYBOARD.META 256) (RPAQ? \MODIFIED.KEYACTIONS) (ADDTOVAR GLOBALVARS \RCLKSECOND \LASTUSERACTION \LASTKEYSTATE) (PUTPROPS \TEMPCOPYTIMER MACRO ((X) (PROGN (\BLT \MOUSETIMERTEMP (LOCF X) WORDSPERCELL) \MOUSETIMERTEMP))) (PUTPROPS XKEYDOWNP MACRO ((KEYNAME) (KEYDOWNP1 (\KEYNAMETONUMBER KEYNAME)))) (PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) (DECLARE (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5)) (PROG NIL (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1 15) (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - GETD cause IMOD and BITSPERWORD not exported to user) ( LOGAND KEYNUMBER 15))) (\GETBASE (SELECTQ (PROGN (* (FOLDLO KEYNUMBER BITSPERWORD) GETD follows since FOLDLO and BITSPERWORD not exported to user) (LRSH KEYNUMBER 4)) (0 \EM.KBDAD0) (1 \EM.KBDAD1) (2 \EM.KBDAD2) (3 \EM.KBDAD3) (4 \EM.UTILIN) (5 (OR \EM.KBDAD4 (RETURN))) (6 (OR \EM.KBDAD5 (RETURN))) ( RETURN)) 0))))))) (PUTPROPS \NEWKEYDOWNP MACRO ((KEYNUMBER) (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER)))) (\INIT.KEYBOARD.STREAM) (RPAQ? \KEYBUFFERING) (RPAQ? \PERIODIC.INTERRUPT) (RPAQ? \TIMER.INTERRUPT.PENDING) (RPAQ? \PERIODIC.INTERRUPT.FREQUENCY 77) (PUTPROPS CURSORPROP ARGNAMES (NIL (CURSOR PROP {NEWVALUE}) . U)) (RPAQ? \CURSORHOTSPOTX 0) (RPAQ? \CURSORHOTSPOTY 0) (RPAQ? \CURRENTCURSOR NIL) (RPAQ? \SOFTCURSORWIDTH NIL) (RPAQ? \SOFTCURSORHEIGHT NIL) (RPAQ? \SOFTCURSORP NIL) (RPAQ? \SOFTCURSORUPP NIL) (RPAQ? \SOFTCURSORUPBM NIL) (RPAQ? \SOFTCURSORDOWNBM NIL) (RPAQ? \SOFTCURSORBBT1 NIL) (RPAQ? \SOFTCURSORBBT2 NIL) (RPAQ? \SOFTCURSORBBT3 NIL) (RPAQ? \SOFTCURSORBBT4 NIL) (RPAQ? \SOFTCURSORBBT5 NIL) (RPAQ? \SOFTCURSORBBT6 NIL) (RPAQ? \CURSORSCREEN NIL) (RPAQ? \CURSORDESTINATION NIL) (RPAQ? \CURSORDESTHEIGHT 808) (RPAQ? \CURSORDESTWIDTH 1024) (RPAQ? \CURSORDESTRASTERWIDTH 64) (RPAQ? \CURSORDESTLINE 0) (RPAQ? \CURSORDESTLINEBASE NIL) (RPAQQ HARDCURSORHEIGHT 16) (RPAQQ HARDCURSORWIDTH 16) (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16)) (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTSCREEN LASTMOUSEBUTTONS LASTMOUSETIME LASTKEYBOARD) (MOVD (QUOTE CURSOR) (QUOTE SETCURSOR)) (MOVD (QUOTE \CURSORPOSITION) (QUOTE \SETCURSORPOSITION)) (RPAQ \SFPosition (CREATEPOSITION)) (PUTPROPS LLKEY FILETYPE :BCOMPL) (PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1992 1999 1920 2000 2018 2021)) NIL