(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "16-Oct-86 16:56:54" ("compiled on " {eris}sources>llkey.\;88) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "16-Oct-86 16:53:34" {eris}sources>llkey.\;88 168401 |changes| |to:| (vars llkeycoms) |previous| |date:| "14-Oct-86 14:42:41" {eris}sources>llkey.\;87) (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) (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 transitionshiftcode transitioncode transitionflags) (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)) (vars \\origkeyactions \\dlionkeyactions \\dlionosdkeyactions \\doradokeyactions \\dovekeyactions \\doveosdkeyactions) ( initvars (\\keyboard.meta 256) (\\modified.keyactions)) (globalvars \\sysbuffer \\longsysbuf \\interruptstate \\modified.keyactions \\rclksecond \\lastuseraction \\mousechordticks \\lastkeystate \\keyboardeventqueue \\keybuffering \\currentkeyaction \\defaultkeyaction \\timer.interrupt.pending \\origkeyactions \\keyboard.meta \\mousechordmilliseconds \\doradokeyactions \\dlionkeyactions \\dlionosdkeyactions \\dovekeyactions \\doveosdkeyactions)) (coms (* \; "Key interpretation") (fns keyaction keyactiontable \\keyaction1 keydownp \\keynametonumber modify.keyactions metashift shiftdownp) (* \; "To support office style 1108 & 1186 keyboards") (fns setup.office.keyboard) ( optimizers \\keynametonumber) (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 \\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 \\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))))) bksyscharcode d1 (l (0 char)) i@ c```]jhi+`M``Mdllk\L`j[hiKI JhYJ&H @ (102 \\putsysbuf 95 \\nconc2 3 \\putsysbuf) (98 \\longsysbuf 62 \\sysbuffer 40 \\sysbuffer 35 \\sysbuffer 28 \\sysbuffer 14 \\sysbuffer 8 \\longsysbuf) () \\clearsysbuf d1 (l (0 allflg)) <@`d`h`j@`dh$h`dh$hnil (53 process 48 \\running.process 35 process 29 \\processes 19 \\sysbuffer 15 \\longsysbuf 9 \\tty.process 4 \\running.process) () \\getkey d1 nil h`<R`(lH hY;`lH IHh$`H$YHI$(100 \\wait.for.tty 96 \\ttybackground 46 clockdifference 33 \\getsysbuf 27 \\clock0 10 \\getsysbuf 7 wait.for.tty) (87 process 79 process 72 \\running.process 65 process 59 \\\\keyboardwaitbox.globalresource 53 \\\\keyboardwaitbox.globalresource 39 \\miscstats 15 \\\\keyboardwaitbox.globalresource 2 \\running.process) () \\nsysbufchars d1 nil )` ``HjjIdHHHl(5 length) (13 \\sysbuffer 8 \\sysbuffer 2 \\longsysbuf) () \\savesysbuf d1 nil `jC```*`-IH I IJkؾNMHNINkٹIjHhF$[`h$IK YH I KdHJkZL  Nk^iHkI (146 substring 130 rplcharcode 120 rplcharcode 105 allocstring 99 nchars 93 length 54 \\getsysbuf 38 allocstring 32 nchars 5 \\nsysbufchars) (84 process 81 \\running.process 73 process 25 \\running.process 19 \\tty.process 16 \\running.process 12 \\running.process 2 \\savedsysbuffer) () \\sysbufp d1 nil 0``d```jhi` `$nil (43 process 40 \\running.process 35 \\running.process 22 \\sysbuffer 17 \\longsysbuf 10 \\tty.process 6 \\running.process 2 \\running.process) () \\getsysbuf d1 nil N```<`Hjhi+`H``HdllkYI`jnil (71 \\sysbuffer 49 \\sysbuffer 44 \\sysbuffer 37 \\sysbuffer 20 \\sysbuffer 14 \\longsysbuf 10 \\longsysbuf 6 \\longsysbuf 2 \\longsysbuf) () \\putsysbuf d1 (l (0 char)) :``HIh`I@Hj`I`Idllkinil (40 \\sysbuffer 33 \\sysbuffer 21 \\sysbuffer 7 \\sysbuffer 2 \\sysbuffer) () \\peeksysbuf d1 (l (0 stream)) E``d```Xj`H`$(66 shouldnt 9 block 5 \\sysbufp) (59 process 56 \\running.process 45 \\sysbuffer 35 \\sysbuffer 30 \\longsysbuf 23 \\tty.process 19 \\running.process 15 \\running.process) () (rpaq? \\longsysbuf) (rpaq? \\\\keyboardwaitbox.globalresource) (movd? (quote nill) (quote caret)) \\keyboardinit d1 nil  lk Hl8 Hlp Hlp Hl H`dHH l lf j`llhdi `l8n  j`ll HnHnHnHnHnHnHnHlj Hj H`ljkj PHk lwj` (263 \\keyboardon 260 mousechordwait 239 \\allocblock 204 \\putbasefixp 145 \\allocblock 126 \\alloclocked 108 allocstring 86 \\allocblock 78 \\alloclocked 68 keyaction 41 \\allocblock 32 \\allocblock 23 \\allocblock 14 \\allocblock 5 \\allocblock) (257 \\mousechordmilliseconds 254 \\mousetimertemp 248 fixp 242 \\shiftstate 235 \\lastkeystate 215 \\em.kbdad3 136 \\keyboardeventqueue 129 \\keyboardeventqueue 120 \\lastuseraction 114 \\miscstats 111 \\savedsysbuffer 96 \\sysbuffer 89 \\sysbuffer 81 \\interruptstate 55 \\origkeyactions 52 \\currentkeyaction 49 \\defaultkeyaction) () \\keyboardeventfn d1 (l (2 extra 1 event 0 fdev)) AgAgAgAdg`gAgAgAdg```b`dl`>dl`3l.lhi`` `dHH`  gAgh(152 mousechordwait 149 mousechordwait 141 keyaction 119 \\append2 102 |\\DoveMisc.ReadKeyboardType|) (162 afterdomakesys 156 afterdosavevm 138 \\defaultkeyaction 124 \\dovekeyactions 116 \\doveosdkeyactions 113 \\dovekeyactions 92 \\dlionkeyactions 81 \\doradokeyactions 72 \\machinetype 66 \\keyboard.beforetype 63 \\machinetype 56 aftersavevm 49 aftersysout 43 aftermakesys 36 afterlogout 32 \\keyboard.beforetype 29 \\machinetype 23 beforesavevm 16 beforesysout 10 beforemakesys 3 beforelogout) () \\alloclocked d1 (l (0 ncells)) $@h@dll Hdl@l H(32 \\lockcell 13 \\allocblock) nil () \\setiopointers d1 nil Xg` dldlƿgo go go go go go go go go g`lB `ng`lC `ngo go go g` qdlg`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 g gn lgHk gHl gHl gHl gHl gHl g g g g`l g`l g`l gH g g`l< (597 settopval 584 raid 579 settopval 576 |\\DoveDisplay.ScreenWidth| 569 settopval 561 settopval 548 settopval 535 settopval 522 settopval 519 |\\DoveDisplay.GetCursorBitmapBase| 512 settopval 509 |\\DoveMisc.GetMouseYBase| 502 settopval 499 |\\DoveMisc.GetMouseXBase| 492 settopval 481 settopval 470 settopval 459 settopval 448 settopval 437 settopval 425 |\\DoveMisc.GetKBDBase| 412 settopval 402 settopval 395 settopval 382 settopval 369 settopval 356 settopval 343 settopval 330 settopval 317 settopval 304 settopval 291 settopval 278 settopval 265 settopval 252 settopval 239 settopval 215 settopval 199 settopval 188 settopval 177 settopval 157 settopval 135 settopval 122 settopval 111 settopval 100 settopval 89 settopval 78 settopval 67 settopval 56 settopval 45 settopval 34 settopval 10 settopval) (591 |\\InterfacePage| 588 \\em.utilin 573 screenwidth 565 \\em.realutilin 555 \\iopage 552 \\em.cursory 542 \\iopage 539 \\em.cursorx 529 \\iopage 526 \\em.dispinterrupt 516 \\em.cursorbitmap 506 \\em.mousey 496 \\em.mousex 485 \\em.kbdad5 474 \\em.kbdad4 463 \\em.kbdad3 452 \\em.kbdad2 441 \\em.kbdad1 431 \\em.kbdad0 406 screenwidth 399 \\em.displayhead 389 \\iopage 386 \\em.cursorbitmap 376 \\iopage 373 \\em.dispinterrupt 363 \\iopage 360 \\em.kbdad5 350 \\iopage 347 \\em.kbdad4 337 \\iopage 334 \\em.kbdad3 324 \\iopage 321 \\em.kbdad2 311 \\iopage 308 \\em.kbdad1 298 \\iopage 295 \\em.kbdad0 285 \\iopage 282 \\em.realutilin 272 \\iopage 269 \\em.cursory 259 \\iopage 256 \\em.cursorx 246 \\iopage 243 \\em.mousey 233 \\iopage 230 \\em.mousex 206 |\\InterfacePage| 203 screenwidth 192 \\em.displayhead 181 \\em.cursorbitmap 170 \\em.dispinterrupt 161 \\em.kbdad5 151 |\\InterfacePage| 148 \\em.kbdad5 139 \\em.kbdad4 129 |\\InterfacePage| 126 \\em.kbdad4 115 \\em.kbdad3 104 \\em.kbdad2 93 \\em.kbdad1 82 \\em.kbdad0 71 \\em.realutilin 60 \\em.cursory 49 \\em.cursorx 38 \\em.mousey 27 \\em.mousex 5 |\\InterfacePage| 2 \\machinetype) () \\keyboardoff d1 nil `dnHIInil (2 \\em.dispinterrupt) () \\keyboardon d1 (l (0 nocheck)) `dn HII(2 \\setiopointers) (5 \\em.dispinterrupt) () \\keyhandler d1 nil (2 \\keyhandler1) nil () \\keyhandler1 d1 nil ;ndddddddl l) (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) (util1) (util2 super/sub) (util3 case) (util4 strikeout) (util5 keypad2) (util6 keypad3 pgdn) (util7) (pad1 leftkey capslock keypad+) (pad2 leftmiddlekey numlock keypad-) (pad3 middlekey scrolllock keypad*) (pad4 rightmiddlekey break keypad/) (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) (k47 keypad6) (k48) (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\,) (k5b) (k5c) (defaults) (k5e) (k5f))) (rpaqq \\origkeyactions ((0 (53 % nolockshift)) (1 (52 $ nolockshift)) (2 (54 ~ nolockshift)) (3 (\e e lockshift)) (4 (55 & nolockshift)) (5 (\d d lockshift)) (6 (\u u lockshift)) (7 (\v v lockshift)) (8 (48 \) nolockshift)) (9 (\k k lockshift)) (10 (- - nolockshift)) (11 (\p p lockshift)) (12 (/ ? nolockshift)) (13 (\\ \| nolockshift)) (14 (10 96 nolockshift)) (15 (8 8 nolockshift)) (16 (51 \# nolockshift)) (17 (50 @ nolockshift)) (18 (\w w lockshift)) (19 (\q q lockshift)) (20 (\s s lockshift) ) (21 (\a a lockshift)) (22 (57 \( nolockshift)) (23 (\i i lockshift)) (24 (\x x lockshift)) (25 (\o o lockshift)) (26 (\l l lockshift)) (27 (\, < nolockshift)) (28 (\' \" nolockshift)) (29 (] } nolockshift)) (30 (194 194 nolockshift)) (31 (193 193 nolockshift)) (32 (49 ! nolockshift)) (33 (27 27 nolockshift)) (34 (9 9 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 (13 13 nolockshift)) (45 (_ ^ nolockshift)) (46 (127 535 nolockshift)) (47 (\( [ nolockshift)) (48 (\r r lockshift)) (49 (\t t lockshift)) (50 (\g g lockshift)) (51 (\y y lockshift)) (52 (\h h lockshift)) (53 (56 * nolockshift)) (54 (\n n lockshift)) (55 (\m m lockshift)) (56 lockdown . lockup) (57 (32 32 nolockshift)) (58 ([ { nolockshift)) (59 (= + nolockshift)) (60 2shiftdown . 2shiftup) (61 (195 195 nolockshift)) (63 (\) ] nolockshift)) (77 event . event) (78 event . event) (79 event . event) (102 lockdown) (103 lockup))) (rpaqq \\dlionkeyactions ((2 (54 ^ nolockshift)) (10 (- _ nolockshift)) (33 (\\ \| nolockshift)) (45 ( 96 ~ nolockshift)) (open metadown . metaup) (prop\'s ctrldown . ctrlup) (same metadown . metaup) (find (2\,3 2\,43 nolockshift)) (undo (2\,4 2\,44 nolockshift)) (stop (5 7 nolockshift)) (move) (copy) ( again (2\,10 2\,50 nolockshift)) (center (2\,101 2\,141 nolockshift)) (bold (2\,102 2\,142 nolockshift )) (italics (2\,103 2\,143 nolockshift)) (underline (2\,106 2\,146 nolockshift)) (superscript (2\,113 2\,153 nolockshift)) (subscript (2\,114 2\,154 nolockshift)) (larger (2\,110 2\,150 nolockshift)) ( defaults (2\,115 2\,155 nolockshift)) (93 (27 2\,64 nolockshift)) (47 (2\,22 2\,62 nolockshift)) (31 ( 2\,5 2\,45 nolockshift)) (92 (2\,1 2\,41 nolockshift)) (80 (2\,13 2\,53 nolockshift)) (font (2\,112 2\,152 nolockshift)))) (rpaqq \\dlionosdkeyactions ((56 locktoggle))) (rpaqq \\doradokeyactions ((2 (54 ~ nolockshift)) (10 (- - nolockshift)) (13 (\\ \| nolockshift)) (14 (10 96 nolockshift)) (33 (27 27 nolockshift)) (45 (_ ^ nolockshift)))) (rpaqq \\dovekeyactions ((2 (54 ^ nolockshift)) (10 (- _ nolockshift)) (33 (27 27 nolockshift)) (56 ctrldown . ctrlup) (65 (27 27 nolockshift)) (71 (39 34 nolockshift)) (93 (2\,24 2\,64 nolockshift)) ( 108 (96 126 nolockshift)) (dbk-meta metadown . metaup) (dbk-help (2\,1 2\,41 nolockshift)) (same metadown . metaup) (find (2\,3 2\,43 nolockshift)) (undo (2\,4 2\,44 nolockshift)) (stop (5 7 nolockshift)) (edit (2\,5 2\,45 nolockshift)) (move) (copy) (again (2\,10 2\,50 nolockshift)) (center (2\,101 2\,141 nolockshift)) (bold (2\,102 2\,142 nolockshift)) (italics (2\,103 2\,143 nolockshift)) (case (2\,104 2\,144 nolockshift)) (strikeout (2\,105 2\,145 nolockshift)) (underline (2\,106 2\,146 nolockshift)) (super/sub (2\,107 2\,147 nolockshift)) (larger (2\,110 2\,150 nolockshift)) (margins ( 2\,111 2\,151 nolockshift)) (looks (2\,112 2\,152 nolockshift)) (capslock locktoggle) (numlock (2\,11 - nolockshift)) (scrolllock (2\,12 180 nolockshift)) (break (2 184 nolockshift)) (doit (2\,13 2\,53 nolockshift)) (keypad7 (2\,14 55 nolockshift)) (keypad8 (173 56 nolockshift)) (keypad9 (2\,15 57 nolockshift)) (keypad4 (172 52 nolockshift)) (keypad5 (2\,16 53 nolockshift)) (keypad6 (174 54 nolockshift)) (keypad1 (2\,17 49 nolockshift)) (keypad2 (175 50 nolockshift)) (keypad3 (2\,20 51 nolockshift)) (keypad0 (2\,21 48 nolockshift)) (keypad\| (\| 46 nolockshift)) (keypad\\ (\\ 44 nolockshift)) (47 (2\,22 2\,62 nolockshift)))) (rpaqq \\doveosdkeyactions ((56 lockdown . lockup) (36 ctrldown . ctrlup) (capslock (2\,5 2\,45 nolockshift)))) (rpaq? \\keyboard.meta 256) (rpaq? \\modified.keyactions) keyaction d1 (l (2 table 1 actions 0 keyname)) 3@d B`HlpAdgI HAdgI (47 \\keyaction1 33 \\keyaction1 7 \\keynametonumber) (43 ignore 29 ignore 13 \\defaultkeyaction) () keyactiontable d1 (l (0 old)) @:lk H@ H@ H@ H@ H@ Hlk Hl8 Hlp Hlp Hl Hb`dHH@ (124 keyaction 100 \\allocblock 91 \\allocblock 82 \\allocblock 73 \\allocblock 64 \\allocblock 54 copyall 45 copyall 36 copyall 27 copyall 18 copyall 8 \\allocblock) (110 \\origkeyactions) () \\keyaction1 d1 (l (2 table 1 action 0 ti)) lB@djgFdldl(B@B@B@lgghdkg dlgdlgdlgdl gdl gdl gdlgdlgdlgdl gdl gdlgzdlgodlgddlgYdlgNdlgCdlg8dlg-dlg"dlgdlglgAAdggB@jǿAdgB@kǿgB@lǿAdgB@lǿgB@l ǿAdgB@lǿgB@l ǿAdgB@l ǿgB@lǿAdgB@lǿgB@lǿAdgB@l ǿgB@l ǿAdgB@lǿgB@lǿAdgB@lǿgB@lǿAdgB@lǿgB@lǿAdgB@lǿgB@lǿAdgB@lǿgB@lǿAdgB@lǿgB@lǿ0A XjHhiAkgX(AZ YjIhiJkgYJZdA dgdiB@lǰdgdB@lǁhB@HB@I(811 \\illegal.arg 777 \\getcharcode 745 \\getcharcode 338 shouldnt) (838 nolockshift 818 lockshift 795 charcode 764 charcode 725 usermode3toggle 710 usermode3down 694 usermode3up 679 usermode2toggle 663 usermode2down 648 usermode2up 632 usermode1toggle 617 usermode1down 601 usermode1up 586 fonttoggle 570 fontdown 555 fontup 539 metadown 524 metaup 508 locktoggle 493 lockdown 477 lockup 462 2shiftdown 446 2shiftup 431 1shiftdown 415 1shiftup 400 ctrldown 384 ctrlup 370 event 355 ignore 348 nochange 334 usermode3toggle 326 usermode3down 315 usermode3up 304 usermode2toggle 293 usermode2down 282 usermode2up 271 usermode1toggle 260 usermode1down 249 usermode1up 238 fonttoggle 227 fontdown 216 fontup 204 metaup 192 metadown 180 locktoggle 168 lockup 156 lockdown 144 2shiftup 132 2shiftdown 120 1shiftup 108 1shiftdown 96 ctrlup 84 ctrldown 72 event 57 nolockshift 53 lockshift 12 ignore) () keydownp d1 (l (0 keyname)) +`@ 2IlIlٺkJ缻LHKjjkj(6 \\keynametonumber) (2 \\lastkeystate) () \\keynametonumber d1 (l (0 keyname)) a`j"H@d [`jL'h@ @JJ@JhiIHIkԹKNNKNhiMLMkԽ(37 \\illegal.arg 15 l-case) (21 \\keynames 2 \\keynames) () modify.keyactions d1 (l (1 |SaveCurrent?| 0 |KeyActions|)) AA+@@d[K IhiHhZIH&J@dHH (57 keyaction 17 keyaction) (43 \\modified.keyactions) () metashift d1 (l (0 flg)) 1eogHjkaiIka g` ddIi(40 keyaction) (35 \\origkeyactions 32 blank-bottom 13 blank-bottom) ( 7 (metadown . metaup)) shiftdownp d1 (l (0 shift)) @dg` Pjhg` pjh@dg` 0jhX` @jhg` 0jh@dg` @jhg%` 0jh` @jh ` Pjh@dg` `jhg` jh@dg` jhg` jh@dg` jh (234 \\illegal.arg) (223 \\lastkeystate 217 usermode3 204 \\lastkeystate 199 usermode2 188 \\lastkeystate 182 usermode1 169 \\lastkeystate 164 font 153 \\lastkeystate 147 ctrl 134 \\lastkeystate 122 \\lastkeystate 110 \\lastkeystate 104 shiftorlock 93 \\lastkeystate 87 2shift 74 \\lastkeystate 69 1shift 58 \\lastkeystate 46 \\lastkeystate 39 shift 26 \\lastkeystate 21 meta 10 \\lastkeystate 4 lock) () setup.office.keyboard d1 nil dg` g` (28 modify.keyactions 15 modify.keyactions 2 machinetype) (25 \\doveosdkeyactions 19 dove 12 \\dlionosdkeyactions 6 dandelion) () |optimize-\\KEYNAMETONUMBER| d1 (l (2 $$ctx 1 $$env 0 $$whole)) @ g (15 \\keynametonumber 5 constantexpressionp) (10 ignoremacro) () (putprop (quote \\keynametonumber) (quote compiler:optimizer-list) (union (getprop (quote \\keynametonumber) (quote compiler:optimizer-list)) (list (quote |optimize-\\KEYNAMETONUMBER|)))) (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.streama0008 d1 (l (1 mode 0 x)) Ag`nil (9 \\keyboard.stream 3 input) () \\init.keyboard.stream d1 nil g`dgdgdgdgdg"dg$dg4dgdgTdgRdgNdg:dg8dg6dg2dg0dg.dg*dgdg l dj0dj@dgd`dg.dg,d`&dg"dg djd`djd`dhdldjRdhdg (271 \\setaccess 152 \\definedevice) (275 \\keyboard.stream 268 input 238 \\stream.default.maxbuffers 226 filelinelength 213 \\fileoutcharfn 206 \\eoserror 199 \\noimageops 192 \\stream.not.open 185 \\stream.not.open 178 \\keyboard.device 171 {keyboard} 149 \\keyboard.device 143 nill 136 nill 129 nill 122 \\is.not.randaccessp 115 \\illegal.deviceop 108 \\is.not.randaccessp 101 \\generic.bins 94 \\generic.bouts 87 \\generic.renamefile 80 nill 73 nill 66 nill 59 \\init.keyboard.streama0008 52 nill 45 \\sysbufp 38 \\peeksysbuf 31 \\getkey 24 \\keyboardeventfn 17 nill 10 keyboard 5 |FDEVTYPE#| 2 keyboard) () (\\init.keyboard.stream) \\dobufferedtransitions d1 (p 4 \\interruptable p 0 pendinginterrupt i 0 \\interruptable) |g@`Zj(`J[d`j`K `KK`l`K `KKd`l `K `KK`l0`K `KKd`lP`K `KK`l``K `KK`l@`K `K`nJhilJl YI``j`j` 0j`jk`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`llH`hihg/hi ihdi(633 interrupted 258 \\dotransitions 224 \\dotransitions 190 \\dotransitions 154 \\dotransitions 120 \\dotransitions 84 \\dotransitions 50 \\dotransitions) (626 \\keybuffering 622 \\pendinginterrupt 618 \\keybuffering 614 \\pendinginterrupt 601 \\interruptable 597 \\keybuffering 588 \\pendinginterrupt 576 \\shiftstate 566 \\shiftstate 557 \\lastkeystate 552 \\shiftstate 541 \\shiftstate 531 \\shiftstate 522 \\lastkeystate 517 \\shiftstate 506 \\shiftstate 497 \\shiftstate 488 \\lastkeystate 483 \\shiftstate 472 \\shiftstate 462 \\shiftstate 453 \\lastkeystate 448 \\shiftstate 434 \\lastkeystate 429 \\shiftstate 415 \\lastkeystate 411 \\shiftstate 401 \\shiftstate 392 \\shiftstate 383 \\lastkeystate 379 \\shiftstate 369 \\shiftstate 360 \\shiftstate 351 \\lastkeystate 347 \\shiftstate 337 \\shiftstate 329 \\shiftstate 320 \\lastkeystate 316 \\shiftstate 306 \\keyboardeventqueue 296 \\keyboardeventqueue 271 \\keyboardeventqueue 262 \\lastkeystate 250 \\lastkeystate 240 \\lastkeystate 228 \\lastkeystate 216 \\lastkeystate 206 \\lastkeystate 194 \\lastkeystate 182 \\lastkeystate 171 \\lastkeystate 158 \\lastkeystate 146 \\lastkeystate 136 \\lastkeystate 124 \\lastkeystate 112 \\lastkeystate 101 \\lastkeystate 88 \\lastkeystate 76 \\lastkeystate 66 \\lastkeystate 54 \\lastkeystate 42 \\lastkeystate 32 \\lastkeystate 23 \\keyboardeventqueue 11 \\keyboardeventqueue 5 \\keybuffering 2 inprogress) () \\timer.interruptframe d1 nil hnil nil () \\periodic.interruptframe d1 nil `HjHnil (2 \\periodic.interrupt) () (rpaq? \\keybuffering) (rpaq? \\periodic.interrupt) (rpaq? \\timer.interrupt.pending) (rpaq? \\periodic.interrupt.frequency 77) \\hardcursorup d1 (l (1 invertflg 0 newcursor)) ph@dXd`hi@` @XHjd`jlHldAggg `l ` h(108 |\\DoveDisplay.SetCursorShape| 94 bkbitblt 50 \\cursorbitsperpixel) (105 |CursorBitMap| 97 \\machinetype 90 replace 87 input 83 invert 72 bitmap 65 |CursorBitMap| 55 cursor 45 bitmap 42 \\cursordestination 29 bitmap 26 \\cursordestination 21 bitmap 14 cursor 10 \\currentcursor 6 \\softcursorp) () \\hardcursorposition d1 (l (1 ypos 0 xpos)) `kAbj@j`@hi`kـ@`nbjAj`Ahi`kـA`nb`dldnjb@njb`dl3`@)`A*n``@)`A*`nl@A `@`A`@`Ah(173 |\\DoveMisc.SetMousePosition|) (197 \\em.cursory 190 \\em.cursorx 184 \\em.mousey 177 \\em.mousex 158 \\iopage 151 \\iopage 144 \\iopage 136 \\iopage 126 \\iopage 119 \\iopage 109 \\machinetype 79 \\machinetype 69 \\cursorhotspoty 62 \\cursordestheight 52 \\cursordestheight 35 \\cursorhotspotx 28 \\cursordestwidth 18 \\cursordestwidth 2 \\cursordestheight) () \\hardcursordown d1 nil ` (5 \\clearbm) (2 |CursorBitMap|) () cursor.init d1 nil 8p`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(308 \\lockcell 269 \\lockcell 230 \\lockcell 189 \\lockcell 149 \\lockcell 109 \\lockcell) (304 \\softcursorbbt6 272 |PILOTBBTTYPE#| 265 \\softcursorbbt5 233 |PILOTBBTTYPE#| 226 \\softcursorbbt4 192 |PILOTBBTTYPE#| 185 \\softcursorbbt3 152 |PILOTBBTTYPE#| 145 \\softcursorbbt2 112 |PILOTBBTTYPE#| 105 \\softcursorbbt1 73 |PILOTBBTTYPE#| 64 \\cursordestrasterwidth 59 bitmap 56 |ScreenBitMap| 53 \\cursordestheight 48 bitmap 45 |ScreenBitMap| 42 \\cursordestwidth 37 bitmap 34 |ScreenBitMap| 31 \\cursordestlinebase 26 bitmap 23 |ScreenBitMap| 20 \\cursordestline 16 \\softcursordownbm 12 \\softcursorupbm 8 \\cursordestination 5 |ScreenBitMap|) () \\cursordestination d1 (l (0 destination) p 1 \\interruptable) @`hi`@hi`@ `dl3`j)`j*n``j)`j*`nljd `j`j`j`jjg @@@@`Hn`Hn`Hn@h(125 |\\DoveMisc.SetMousePosition| 57 \\cursorbitsperpixel) (253 \\cursordestination 241 pilotbbt 238 \\softcursorbbt6 227 pilotbbt 224 \\softcursorbbt5 213 pilotbbt 210 \\softcursorbbt1 202 \\cursordestrasterwidth 197 bitmap 192 \\cursordestheight 187 bitmap 182 \\cursordestwidth 177 bitmap 168 bitmap 162 \\cursordestlinebase 158 \\cursordestline 150 \\em.cursory 143 \\em.cursorx 136 \\em.mousey 129 \\em.mousex 110 \\iopage 103 \\iopage 96 \\iopage 88 \\iopage 78 \\iopage 71 \\iopage 61 \\machinetype 52 bitmap 48 \\currentcursor 37 bitmap 31 bitmap 26 cursor 23 \\currentcursor 6 \\cursordestination) () \\softcursorup d1 (l (0 newcursor))   @X@YHZH\H]`&`J`L`MhirJLJLM 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(535 \\softcursorupcurrent 528 \\templockpages 145 \\templockpages 130 \\templockpages 112 bitmapcreate 102 bitmapcreate) (532 \\softcursorp 523 \\currentcursor 513 pilotbbt 510 \\softcursorbbt4 501 pilotbbt 498 \\softcursorbbt4 490 bitmap 480 pilotbbt 477 \\softcursorbbt3 468 pilotbbt 465 \\softcursorbbt3 457 bitmap 445 pilotbbt 442 \\softcursorbbt6 431 pilotbbt 428 \\softcursorbbt5 421 pilotbbt 418 \\softcursorbbt4 411 pilotbbt 408 \\softcursorbbt4 397 pilotbbt 394 \\softcursorbbt4 383 pilotbbt 380 \\softcursorbbt4 371 pilotbbt 368 \\softcursorbbt4 359 pilotbbt 356 \\softcursorbbt4 349 pilotbbt 346 \\softcursorbbt3 339 pilotbbt 336 \\softcursorbbt3 325 pilotbbt 322 \\softcursorbbt3 311 pilotbbt 308 \\softcursorbbt3 299 pilotbbt 296 \\softcursorbbt3 287 pilotbbt 284 \\softcursorbbt3 277 pilotbbt 274 \\softcursorbbt2 267 pilotbbt 264 \\softcursorbbt2 253 pilotbbt 250 \\softcursorbbt2 241 pilotbbt 238 \\softcursorbbt2 229 pilotbbt 226 \\softcursorbbt2 215 pilotbbt 212 \\softcursorbbt2 203 pilotbbt 200 \\softcursorbbt2 191 pilotbbt 188 \\softcursorbbt2 177 pilotbbt 174 \\softcursorbbt1 167 bitmap 161 bitmap 150 bitmap 137 bitmap 134 \\softcursordownbm 122 bitmap 119 \\softcursorupbm 115 \\softcursordownbm 105 \\softcursorupbm 95 \\softcursorheight 90 \\softcursorwidth 74 bitmap 71 \\softcursorupbm 63 bitmap 60 \\softcursorupbm 51 bitmap 48 \\softcursorupbm 43 bitmap 40 \\softcursorupbm 34 bitmap 27 bitmap 20 bitmap 13 cursor 6 cursor) () \\softcursorupcurrent d1 nil r``ji`dnnkٹ`dnnkٺj[``jIjIٻMKٽjIM``IٽjMjJjJټNLپjJN``JپjN`Jj`_`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 `OXJ`[`dJPkg ``(551 \\softcursorpilotbitblt) (618 \\cursordestrasterwidth 615 \\cursordestlinebase 610 \\cursordestlinebase 606 \\cursordestline 594 \\cursordestline 586 \\cursordestline 574 \\cursordestlinebase 569 \\cursordestlinebase 565 \\cursordestline 555 \\em.dispinterrupt 547 \\softcursorbbt5 541 \\softcursorbbt4 535 \\softcursorbbt3 529 \\softcursorbbt2 523 \\softcursorbbt1 516 pilotbbt 513 \\softcursorbbt6 506 pilotbbt 503 \\softcursorbbt6 495 pilotbbt 492 \\softcursorbbt6 483 pilotbbt 480 \\softcursorbbt6 471 pilotbbt 468 \\softcursorbbt6 460 pilotbbt 457 \\softcursorbbt6 448 pilotbbt 445 \\softcursorbbt6 436 pilotbbt 433 \\softcursorbbt6 426 pilotbbt 423 \\softcursorbbt5 416 pilotbbt 413 \\softcursorbbt5 405 pilotbbt 402 \\softcursorbbt5 393 pilotbbt 390 \\softcursorbbt5 381 pilotbbt 378 \\softcursorbbt5 370 pilotbbt 367 \\softcursorbbt5 358 pilotbbt 355 \\softcursorbbt5 346 pilotbbt 343 \\softcursorbbt5 336 pilotbbt 333 \\softcursorbbt1 326 pilotbbt 323 \\softcursorbbt1 315 pilotbbt 312 \\softcursorbbt1 303 pilotbbt 300 \\softcursorbbt1 291 pilotbbt 288 \\softcursorbbt1 280 pilotbbt 277 \\softcursorbbt1 268 pilotbbt 265 \\softcursorbbt1 256 pilotbbt 253 \\softcursorbbt1 238 bitmap 235 \\softcursordownbm 224 bitmap 221 \\softcursorupbm 212 bitmap 209 \\softcursorupbm 198 \\cursordestlinebase 178 bitmap 173 cursor 170 \\currentcursor 159 \\cursordestline 152 \\cursordestrasterwidth 142 \\cursordestline 129 \\cursordestheight 124 \\cursordestheight 93 \\cursordestwidth 88 \\cursordestwidth 66 \\softcursorheight 62 \\softcursorwidth 41 \\em.mousey 23 \\em.mousex 19 \\softcursorupp 11 \\em.dispinterrupt 5 \\em.dispinterrupt) () \\softcursorposition d1 (l (1 y 0 x)) <`X`j`@hi`Ahi``Hh(49 \\softcursorupcurrent 45 \\softcursordown) (53 \\em.dispinterrupt 41 \\softcursorupp 29 \\em.cursory 17 \\em.cursorx 11 \\em.dispinterrupt 5 \\em.dispinterrupt) () \\softcursordown d1 nil #`X`jh`j `Hh(25 \\softcursorpilotbitblt) (28 \\em.dispinterrupt 21 \\softcursorbbt6 18 \\softcursorupp 11 \\em.dispinterrupt 5 \\em.dispinterrupt) () cursorprop d1 (l (0 x)) *eHdlkalala l kala  (39 \\illegal.arg 35 getcursorprop 21 putcursorprop) nil () getcursorprop d1 (l (1 prop 0 cursor)) @A'nil (3 cursor) () putcursorprop d1 (l (2 value 1 prop 0 cursor) p 1 oldvalue) Z0@Xd?dA'BHAB >I