(FILECREATED "24-Sep-86 11:00:32" ("compiled on " {ERIS}SOURCES>LLKEY.;86) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "23-Sep-86 19:12:49" {ERIS}SOURCES>LLKEY.;86 142769 changes to: (VARS LLKEYCOMS ) previous date: "27-Aug-86 14:00:13" {ERIS}SOURCES>LLKEY.;85) (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) (EXPORT (OPTIMIZERS KEYDOWNP) (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`P`\j-`L``Ldllk[K`jH @ I JhYJ&(114Q \PUTSYSBUF 105Q \NCONC2 3 \PUTSYSBUF) (110Q \LONGSYSBUF 72Q \SYSBUFFER 44Q \SYSBUFFER 37Q \SYSBUFFER 30Q \SYSBUFFER 16Q \SYSBUFFER 10Q \LONGSYSBUF) () \CLEARSYSBUF D1 (L (0 ALLFLG)) <@`d`h`j@`dh$h`dh$hNIL (65Q PROCESS 60Q \RUNNING.PROCESS 43Q PROCESS 35Q \PROCESSES 23Q \SYSBUFFER 17Q \LONGSYSBUF 11Q \TTY.PROCESS 4 \RUNNING.PROCESS) () \GETKEY D1 NIL h`<R`(lH hY;`lH IHh$`H$YHI$(144Q \WAIT.FOR.TTY 140Q \TTYBACKGROUND 56Q CLOCKDIFFERENCE 41Q \GETSYSBUF 33Q \CLOCK0 12Q \GETSYSBUF 7 WAIT.FOR.TTY) (127Q PROCESS 117Q PROCESS 110Q \RUNNING.PROCESS 101Q PROCESS 73Q \\KEYBOARDWAITBOX.GLOBALRESOURCE 65Q \\KEYBOARDWAITBOX.GLOBALRESOURCE 47Q \MISCSTATS 17Q \\KEYBOARDWAITBOX.GLOBALRESOURCE 2 \RUNNING.PROCESS) () \NSYSBUFCHARS D1 NIL )` ``HjjIdHHHl(5 LENGTH) (15Q \SYSBUFFER 10Q \SYSBUFFER 2 \LONGSYSBUF) () \SAVESYSBUF D1 NIL `jC```*`3IH I IJkؾNMHNONkٹIjhHkI $[`h$IK YH I KdHJkZL  Nk^(210Q RPLCHARCODE 176Q RPLCHARCODE 157Q ALLOCSTRING 151Q NCHARS 143Q LENGTH 113Q SUBSTRING 66Q \GETSYSBUF 46Q ALLOCSTRING 40Q NCHARS 5 \NSYSBUFCHARS) (132Q PROCESS 127Q \RUNNING.PROCESS 117Q PROCESS 31Q \RUNNING.PROCESS 23Q \TTY.PROCESS 20Q \RUNNING.PROCESS 14Q \RUNNING.PROCESS 2 \SAVEDSYSBUFFER) () \SYSBUFP D1 NIL .``d```jh` `$NIL (51Q PROCESS 46Q \RUNNING.PROCESS 41Q \RUNNING.PROCESS 26Q \SYSBUFFER 21Q \LONGSYSBUF 12Q \TTY.PROCESS 6 \RUNNING.PROCESS 2 \RUNNING.PROCESS) () \GETSYSBUF D1 NIL L```:`Hjh+`H``HdllkYI`jNIL (105Q \SYSBUFFER 57Q \SYSBUFFER 52Q \SYSBUFFER 43Q \SYSBUFFER 24Q \SYSBUFFER 16Q \LONGSYSBUF 12Q \LONGSYSBUF 6 \LONGSYSBUF 2 \LONGSYSBUF) () \PUTSYSBUF D1 (L (0 CHAR)) :``HIh`I@Hj`I`IdllkiNIL (50Q \SYSBUFFER 41Q \SYSBUFFER 25Q \SYSBUFFER 7 \SYSBUFFER 2 \SYSBUFFER) () \PEEKSYSBUF D1 (L (0 STREAM)) E``d```Xj`H`$(102Q SHOULDNT 11Q BLOCK 5 \SYSBUFP) (73Q PROCESS 70Q \RUNNING.PROCESS 55Q \SYSBUFFER 43Q \SYSBUFFER 36Q \LONGSYSBUF 27Q \TTY.PROCESS 23Q \RUNNING.PROCESS 17Q \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` (407Q \KEYBOARDON 404Q MOUSECHORDWAIT 357Q \ALLOCBLOCK 314Q \PUTBASEFIXP 221Q \ALLOCBLOCK 176Q \ALLOCLOCKED 154Q ALLOCSTRING 126Q \ALLOCBLOCK 116Q \ALLOCLOCKED 104Q KEYACTION 51Q \ALLOCBLOCK 40Q \ALLOCBLOCK 27Q \ALLOCBLOCK 16Q \ALLOCBLOCK 5 \ALLOCBLOCK) (401Q \MOUSECHORDMILLISECONDS 376Q \MOUSETIMERTEMP 370Q FIXP 362Q \SHIFTSTATE 353Q \LASTKEYSTATE 327Q \EM.KBDAD3 210Q \KEYBOARDEVENTQUEUE 201Q \KEYBOARDEVENTQUEUE 170Q \LASTUSERACTION 162Q \MISCSTATS 157Q \SAVEDSYSBUFFER 140Q \SYSBUFFER 131Q \SYSBUFFER 121Q \INTERRUPTSTATE 67Q \ORIGKEYACTIONS 64Q \CURRENTKEYACTION 61Q \DEFAULTKEYACTION) () \KEYBOARDEVENTFN D1 (L (2 EXTRA 1 EVENT 0 FDEV)) AgAgAgAdg`gAgAgAdg\``^`dl`:dl`/l*l`` `dHH`  gAgh(224Q MOUSECHORDWAIT 221Q MOUSECHORDWAIT 211Q KEYACTION 163Q \APPEND2 146Q \DoveMisc.ReadKeyboardType) (236Q AFTERDOMAKESYS 230Q AFTERDOSAVEVM 206Q \DEFAULTKEYACTION 170Q \DOVEKEYACTIONS 160Q \DOVEOSDKEYACTIONS 155Q \DOVEKEYACTIONS 134Q \DLIONKEYACTIONS 121Q \DORADOKEYACTIONS 110Q \MACHINETYPE 102Q \KEYBOARD.BEFORETYPE 77Q \MACHINETYPE 70Q AFTERSAVEVM 61Q AFTERSYSOUT 53Q AFTERMAKESYS 44Q AFTERLOGOUT 40Q \KEYBOARD.BEFORETYPE 35Q \MACHINETYPE 27Q BEFORESAVEVM 20Q BEFORESYSOUT 12Q BEFOREMAKESYS 3 BEFORELOGOUT) () \ALLOCLOCKED D1 (L (0 NCELLS)) $@h@dll Hdl@l H(40Q \LOCKCELL 15Q \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< (1125Q SETTOPVAL 1110Q RAID 1103Q SETTOPVAL 1100Q \DoveDisplay.ScreenWidth 1071Q SETTOPVAL 1061Q SETTOPVAL 1044Q SETTOPVAL 1027Q SETTOPVAL 1012Q SETTOPVAL 1007Q \DoveDisplay.GetCursorBitmapBase 1000Q SETTOPVAL 775Q \DoveMisc.GetMouseYBase 766Q SETTOPVAL 763Q \DoveMisc.GetMouseXBase 754Q SETTOPVAL 741Q SETTOPVAL 726Q SETTOPVAL 713Q SETTOPVAL 700Q SETTOPVAL 665Q SETTOPVAL 651Q \DoveMisc.GetKBDBase 634Q SETTOPVAL 622Q SETTOPVAL 613Q SETTOPVAL 576Q SETTOPVAL 561Q SETTOPVAL 544Q SETTOPVAL 527Q SETTOPVAL 512Q SETTOPVAL 475Q SETTOPVAL 460Q SETTOPVAL 443Q SETTOPVAL 426Q SETTOPVAL 411Q SETTOPVAL 374Q SETTOPVAL 357Q SETTOPVAL 327Q SETTOPVAL 307Q SETTOPVAL 274Q SETTOPVAL 261Q SETTOPVAL 235Q SETTOPVAL 207Q SETTOPVAL 172Q SETTOPVAL 157Q SETTOPVAL 144Q SETTOPVAL 131Q SETTOPVAL 116Q SETTOPVAL 103Q SETTOPVAL 70Q SETTOPVAL 55Q SETTOPVAL 42Q SETTOPVAL 12Q SETTOPVAL) (1117Q \InterfacePage 1114Q \EM.UTILIN 1075Q SCREENWIDTH 1065Q \EM.REALUTILIN 1053Q \IOPAGE 1050Q \EM.CURSORY 1036Q \IOPAGE 1033Q \EM.CURSORX 1021Q \IOPAGE 1016Q \EM.DISPINTERRUPT 1004Q \EM.CURSORBITMAP 772Q \EM.MOUSEY 760Q \EM.MOUSEX 745Q \EM.KBDAD5 732Q \EM.KBDAD4 717Q \EM.KBDAD3 704Q \EM.KBDAD2 671Q \EM.KBDAD1 657Q \EM.KBDAD0 626Q SCREENWIDTH 617Q \EM.DISPLAYHEAD 605Q \IOPAGE 602Q \EM.CURSORBITMAP 570Q \IOPAGE 565Q \EM.DISPINTERRUPT 553Q \IOPAGE 550Q \EM.KBDAD5 536Q \IOPAGE 533Q \EM.KBDAD4 521Q \IOPAGE 516Q \EM.KBDAD3 504Q \IOPAGE 501Q \EM.KBDAD2 467Q \IOPAGE 464Q \EM.KBDAD1 452Q \IOPAGE 447Q \EM.KBDAD0 435Q \IOPAGE 432Q \EM.REALUTILIN 420Q \IOPAGE 415Q \EM.CURSORY 403Q \IOPAGE 400Q \EM.CURSORX 366Q \IOPAGE 363Q \EM.MOUSEY 351Q \IOPAGE 346Q \EM.MOUSEX 316Q \InterfacePage 313Q SCREENWIDTH 300Q \EM.DISPLAYHEAD 265Q \EM.CURSORBITMAP 252Q \EM.DISPINTERRUPT 241Q \EM.KBDAD5 227Q \InterfacePage 224Q \EM.KBDAD5 213Q \EM.KBDAD4 201Q \InterfacePage 176Q \EM.KBDAD4 163Q \EM.KBDAD3 150Q \EM.KBDAD2 135Q \EM.KBDAD1 122Q \EM.KBDAD0 107Q \EM.REALUTILIN 74Q \EM.CURSORY 61Q \EM.CURSORX 46Q \EM.MOUSEY 33Q \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 (57Q \KEYACTION1 41Q \KEYACTION1 7 \KEYNAMETONUMBER) (53Q IGNORE 35Q IGNORE 15Q \DEFAULTKEYACTION) () KEYACTIONTABLE D1 (L (0 OLD)) @:lk H@ H@ H@ H@ H@ Hlk Hl8 Hlp Hlp Hl Hb`dHH@ (174Q KEYACTION 144Q \ALLOCBLOCK 133Q \ALLOCBLOCK 122Q \ALLOCBLOCK 111Q \ALLOCBLOCK 100Q \ALLOCBLOCK 66Q COPYALL 55Q COPYALL 44Q COPYALL 33Q COPYALL 22Q COPYALL 10Q \ALLOCBLOCK) (156Q \ORIGKEYACTIONS) () \KEYACTION1 D1 (L (2 TABLE 1 ACTION 0 TI)) dB@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 XjHAkgX$AZ YjIJkgYJZdA dgdiB@lǰdgdB@lǁhB@HB@I(1443Q \ILLEGAL.ARG 1405Q \GETCHARCODE 1351Q \GETCHARCODE 522Q SHOULDNT) (1476Q NOLOCKSHIFT 1452Q LOCKSHIFT 1423Q CHARCODE 1370Q CHARCODE 1325Q USERMODE3TOGGLE 1306Q USERMODE3DOWN 1266Q USERMODE3UP 1247Q USERMODE2TOGGLE 1227Q USERMODE2DOWN 1210Q USERMODE2UP 1170Q USERMODE1TOGGLE 1151Q USERMODE1DOWN 1131Q USERMODE1UP 1112Q FONTTOGGLE 1072Q FONTDOWN 1053Q FONTUP 1033Q METADOWN 1014Q METAUP 774Q LOCKTOGGLE 755Q LOCKDOWN 735Q LOCKUP 716Q 2SHIFTDOWN 676Q 2SHIFTUP 657Q 1SHIFTDOWN 637Q 1SHIFTUP 620Q CTRLDOWN 600Q CTRLUP 562Q EVENT 543Q IGNORE 534Q NOCHANGE 516Q USERMODE3TOGGLE 506Q USERMODE3DOWN 473Q USERMODE3UP 460Q USERMODE2TOGGLE 445Q USERMODE2DOWN 432Q USERMODE2UP 417Q USERMODE1TOGGLE 404Q USERMODE1DOWN 371Q USERMODE1UP 356Q FONTTOGGLE 343Q FONTDOWN 330Q FONTUP 314Q METAUP 300Q METADOWN 264Q LOCKTOGGLE 250Q LOCKUP 234Q LOCKDOWN 220Q 2SHIFTUP 204Q 2SHIFTDOWN 170Q 1SHIFTUP 154Q 1SHIFTDOWN 140Q CTRLUP 124Q CTRLDOWN 110Q EVENT 71Q NOLOCKSHIFT 65Q LOCKSHIFT 14Q IGNORE) () KEYDOWNP D1 (L (0 KEYNAME)) +`@ 2IlIlٺkJ缻LHKjjkj(6 \KEYNAMETONUMBER) (2 \LASTKEYSTATE) () \KEYNAMETONUMBER D1 (L (0 KEYNAME)) Y`j"H@d [`jL#h@ @JJ@JIHIkԹKNNKNMLMkԽ(45Q \ILLEGAL.ARG 17Q L-CASE) (25Q \KEYNAMES 2 \KEYNAMES) () MODIFY.KEYACTIONS D1 (L (1 SaveCurrent? 0 KeyActions)) =A'@@d[K IHhZH&J@dHH (65Q KEYACTION 21Q KEYACTION) (47Q \MODIFIED.KEYACTIONS) () METASHIFT D1 (L (0 FLG)) 1eogHjkaiIka g` ddIi(50Q KEYACTION) (43Q \ORIGKEYACTIONS 40Q BLANK-BOTTOM 15Q 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 (352Q \ILLEGAL.ARG) (337Q \LASTKEYSTATE 331Q USERMODE3 314Q \LASTKEYSTATE 307Q USERMODE2 274Q \LASTKEYSTATE 266Q USERMODE1 251Q \LASTKEYSTATE 244Q FONT 231Q \LASTKEYSTATE 223Q CTRL 206Q \LASTKEYSTATE 172Q \LASTKEYSTATE 156Q \LASTKEYSTATE 150Q SHIFTORLOCK 135Q \LASTKEYSTATE 127Q 2SHIFT 112Q \LASTKEYSTATE 105Q 1SHIFT 72Q \LASTKEYSTATE 56Q \LASTKEYSTATE 47Q SHIFT 32Q \LASTKEYSTATE 25Q META 12Q \LASTKEYSTATE 4 LOCK) () SETUP.OFFICE.KEYBOARD D1 NIL dg` g` (34Q MODIFY.KEYACTIONS 17Q MODIFY.KEYACTIONS 2 MACHINETYPE) (31Q \DOVEOSDKEYACTIONS 23Q DOVE 14Q \DLIONOSDKEYACTIONS 6 DANDELION) () optimize-\KEYNAMETONUMBER D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ g (17Q \KEYNAMETONUMBER 5 CONSTANTEXPRESSIONP) (12Q 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))) optimize-KEYDOWNP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhhNIL (13Q \KEYNAMETONUMBER 10Q \NEWKEYDOWNP) () (PUTPROP (QUOTE KEYDOWNP) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE KEYDOWNP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-KEYDOWNP)))) (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 (11Q \KEYBOARD.STREAM 3 INPUT) () \INIT.KEYBOARD.STREAM D1 NIL g`dgdgdgdgdg"dg$dg4dgdgRdgNdg:dg8dg6dg2dg0dg.dg*dgdg l dj0dj@dgd`dg.dg,d`&dg"dg djd`djd`dhdldjRdhdg (410Q \SETACCESS 221Q \DEFINEDEVICE) (414Q \KEYBOARD.STREAM 405Q INPUT 347Q \STREAM.DEFAULT.MAXBUFFERS 333Q FILELINELENGTH 316Q \FILEOUTCHARFN 307Q \EOSERROR 300Q \NOIMAGEOPS 271Q \STREAM.NOT.OPEN 262Q \STREAM.NOT.OPEN 253Q \KEYBOARD.DEVICE 244Q {KEYBOARD} 216Q \KEYBOARD.DEVICE 210Q NILL 201Q NILL 172Q NILL 163Q \IS.NOT.RANDACCESSP 154Q \ILLEGAL.DEVICEOP 145Q \IS.NOT.RANDACCESSP 136Q \GENERIC.BINS 127Q \GENERIC.BOUTS 120Q \GENERIC.RENAMEFILE 111Q NILL 102Q NILL 73Q \INIT.KEYBOARD.STREAMA0008 64Q NILL 55Q \SYSBUFP 46Q \PEEKSYSBUF 37Q \GETKEY 30Q \KEYBOARDEVENTFN 21Q NILL 12Q KEYBOARD 5 FDEVTYPE# 2 KEYBOARD) () (\INIT.KEYBOARD.STREAM) \DOBUFFEREDTRANSITIONS D1 (P 4 \INTERRUPTABLE P 0 PENDINGINTERRUPT I 0 \INTERRUPTABLE) pg@`Zj$`J[d`j`K `KK`l`K `KKd`l `K `KK`l0`K `KKd`lP`K `KK`l``K `KK`l@`K `K`nJlJl 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`hg/ihhdi(1155Q INTERRUPTED 402Q \DOTRANSITIONS 340Q \DOTRANSITIONS 276Q \DOTRANSITIONS 232Q \DOTRANSITIONS 170Q \DOTRANSITIONS 124Q \DOTRANSITIONS 62Q \DOTRANSITIONS) (1146Q \KEYBUFFERING 1142Q \PENDINGINTERRUPT 1135Q \KEYBUFFERING 1131Q \PENDINGINTERRUPT 1121Q \INTERRUPTABLE 1115Q \KEYBUFFERING 1110Q \PENDINGINTERRUPT 1074Q \SHIFTSTATE 1062Q \SHIFTSTATE 1051Q \LASTKEYSTATE 1044Q \SHIFTSTATE 1031Q \SHIFTSTATE 1017Q \SHIFTSTATE 1006Q \LASTKEYSTATE 1001Q \SHIFTSTATE 766Q \SHIFTSTATE 755Q \SHIFTSTATE 744Q \LASTKEYSTATE 737Q \SHIFTSTATE 724Q \SHIFTSTATE 712Q \SHIFTSTATE 701Q \LASTKEYSTATE 674Q \SHIFTSTATE 656Q \LASTKEYSTATE 651Q \SHIFTSTATE 633Q \LASTKEYSTATE 627Q \SHIFTSTATE 615Q \SHIFTSTATE 604Q \SHIFTSTATE 573Q \LASTKEYSTATE 567Q \SHIFTSTATE 555Q \SHIFTSTATE 544Q \SHIFTSTATE 533Q \LASTKEYSTATE 527Q \SHIFTSTATE 515Q \SHIFTSTATE 505Q \SHIFTSTATE 474Q \LASTKEYSTATE 470Q \SHIFTSTATE 456Q \KEYBOARDEVENTQUEUE 444Q \KEYBOARDEVENTQUEUE 417Q \KEYBOARDEVENTQUEUE 406Q \LASTKEYSTATE 372Q \LASTKEYSTATE 360Q \LASTKEYSTATE 344Q \LASTKEYSTATE 330Q \LASTKEYSTATE 316Q \LASTKEYSTATE 302Q \LASTKEYSTATE 266Q \LASTKEYSTATE 253Q \LASTKEYSTATE 236Q \LASTKEYSTATE 222Q \LASTKEYSTATE 210Q \LASTKEYSTATE 174Q \LASTKEYSTATE 160Q \LASTKEYSTATE 145Q \LASTKEYSTATE 130Q \LASTKEYSTATE 114Q \LASTKEYSTATE 102Q \LASTKEYSTATE 66Q \LASTKEYSTATE 52Q \LASTKEYSTATE 40Q \LASTKEYSTATE 27Q \KEYBOARDEVENTQUEUE 13Q \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)) lh@dXd`@` @XHjd`jlHldAggg `l ` h(150Q \DoveDisplay.SetCursorShape 132Q BKBITBLT 56Q \CURSORBITSPERPIXEL) (145Q CursorBitMap 135Q \MACHINETYPE 126Q REPLACE 123Q INPUT 117Q INVERT 104Q BITMAP 75Q CursorBitMap 63Q CURSOR 51Q BITMAP 46Q \CURSORDESTINATION 35Q BITMAP 32Q \CURSORDESTINATION 25Q BITMAP 16Q CURSOR 12Q \CURRENTCURSOR 6 \SOFTCURSORP) () \HARDCURSORPOSITION D1 (L (1 YPOS 0 XPOS)) `kAbj@j`@`kـ@`nbjAj`A`kـA`nb`dldnjb@njb`dl3`@)`A*n``@)`A*`nl@A `@`A`@`Ah(243Q \DoveMisc.SetMousePosition) (273Q \EM.CURSORY 264Q \EM.CURSORX 256Q \EM.MOUSEY 247Q \EM.MOUSEX 224Q \IOPAGE 215Q \IOPAGE 206Q \IOPAGE 176Q \IOPAGE 164Q \IOPAGE 155Q \IOPAGE 143Q \MACHINETYPE 105Q \MACHINETYPE 73Q \CURSORHOTSPOTY 64Q \CURSORDESTHEIGHT 56Q \CURSORDESTHEIGHT 36Q \CURSORHOTSPOTX 27Q \CURSORDESTWIDTH 21Q \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(464Q \LOCKCELL 415Q \LOCKCELL 346Q \LOCKCELL 275Q \LOCKCELL 225Q \LOCKCELL 155Q \LOCKCELL) (460Q \SOFTCURSORBBT6 420Q PILOTBBTTYPE# 411Q \SOFTCURSORBBT5 351Q PILOTBBTTYPE# 342Q \SOFTCURSORBBT4 300Q PILOTBBTTYPE# 271Q \SOFTCURSORBBT3 230Q PILOTBBTTYPE# 221Q \SOFTCURSORBBT2 160Q PILOTBBTTYPE# 151Q \SOFTCURSORBBT1 111Q PILOTBBTTYPE# 100Q \CURSORDESTRASTERWIDTH 73Q BITMAP 70Q ScreenBitMap 65Q \CURSORDESTHEIGHT 60Q BITMAP 55Q ScreenBitMap 52Q \CURSORDESTWIDTH 45Q BITMAP 42Q ScreenBitMap 37Q \CURSORDESTLINEBASE 32Q BITMAP 27Q ScreenBitMap 24Q \CURSORDESTLINE 20Q \SOFTCURSORDOWNBM 14Q \SOFTCURSORUPBM 10Q \CURSORDESTINATION 5 ScreenBitMap) () \CURSORDESTINATION D1 (L (0 DESTINATION) P 1 \INTERRUPTABLE) @``@`@ `dl3`j)`j*n``j)`j*`nljd `j`j`j`jjg @@@@`Hn`Hn`Hn@h(163Q \DoveMisc.SetMousePosition 57Q \CURSORBITSPERPIXEL) (363Q \CURSORDESTINATION 347Q PILOTBBT 344Q \SOFTCURSORBBT6 331Q PILOTBBT 326Q \SOFTCURSORBBT5 313Q PILOTBBT 310Q \SOFTCURSORBBT1 300Q \CURSORDESTRASTERWIDTH 273Q BITMAP 266Q \CURSORDESTHEIGHT 261Q BITMAP 254Q \CURSORDESTWIDTH 247Q BITMAP 236Q BITMAP 230Q \CURSORDESTLINEBASE 224Q \CURSORDESTLINE 214Q \EM.CURSORY 205Q \EM.CURSORX 176Q \EM.MOUSEY 167Q \EM.MOUSEX 144Q \IOPAGE 135Q \IOPAGE 126Q \IOPAGE 116Q \IOPAGE 104Q \IOPAGE 75Q \IOPAGE 63Q \MACHINETYPE 52Q BITMAP 46Q \CURRENTCURSOR 37Q BITMAP 31Q BITMAP 24Q CURSOR 21Q \CURRENTCURSOR 6 \CURSORDESTINATION) () \SOFTCURSORUP D1 (L (0 NEWCURSOR))   @X@YHZH\H]`l '`J`L`MrJLJLM 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(1024Q \SOFTCURSORUPCURRENT 1015Q \TEMPLOCKPAGES 216Q \TEMPLOCKPAGES 177Q \TEMPLOCKPAGES 155Q BITMAPCREATE 143Q BITMAPCREATE) (1021Q \SOFTCURSORP 1010Q \CURRENTCURSOR 776Q PILOTBBT 773Q \SOFTCURSORBBT4 762Q PILOTBBT 757Q \SOFTCURSORBBT4 747Q BITMAP 735Q PILOTBBT 732Q \SOFTCURSORBBT3 721Q PILOTBBT 716Q \SOFTCURSORBBT3 706Q BITMAP 672Q PILOTBBT 667Q \SOFTCURSORBBT6 654Q PILOTBBT 651Q \SOFTCURSORBBT5 642Q PILOTBBT 637Q \SOFTCURSORBBT4 630Q PILOTBBT 625Q \SOFTCURSORBBT4 612Q PILOTBBT 607Q \SOFTCURSORBBT4 574Q PILOTBBT 571Q \SOFTCURSORBBT4 560Q PILOTBBT 555Q \SOFTCURSORBBT4 544Q PILOTBBT 541Q \SOFTCURSORBBT4 532Q PILOTBBT 527Q \SOFTCURSORBBT3 520Q PILOTBBT 515Q \SOFTCURSORBBT3 502Q PILOTBBT 477Q \SOFTCURSORBBT3 464Q PILOTBBT 461Q \SOFTCURSORBBT3 450Q PILOTBBT 445Q \SOFTCURSORBBT3 434Q PILOTBBT 431Q \SOFTCURSORBBT3 422Q PILOTBBT 417Q \SOFTCURSORBBT2 410Q PILOTBBT 405Q \SOFTCURSORBBT2 372Q PILOTBBT 367Q \SOFTCURSORBBT2 356Q PILOTBBT 353Q \SOFTCURSORBBT2 342Q PILOTBBT 337Q \SOFTCURSORBBT2 324Q PILOTBBT 321Q \SOFTCURSORBBT2 310Q PILOTBBT 305Q \SOFTCURSORBBT2 274Q PILOTBBT 271Q \SOFTCURSORBBT2 256Q PILOTBBT 253Q \SOFTCURSORBBT1 244Q BITMAP 236Q BITMAP 223Q BITMAP 206Q BITMAP 203Q \SOFTCURSORDOWNBM 167Q BITMAP 164Q \SOFTCURSORUPBM 160Q \SOFTCURSORDOWNBM 146Q \SOFTCURSORUPBM 134Q \SOFTCURSORHEIGHT 127Q \SOFTCURSORWIDTH 113Q BITMAP 110Q \SOFTCURSORUPBM 100Q BITMAP 75Q \SOFTCURSORUPBM 64Q BITMAP 61Q \SOFTCURSORUPBM 50Q \SOFTCURSORUPBM 42Q BITMAP 33Q BITMAP 24Q BITMAP 15Q 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 ``(1047Q \SOFTCURSORPILOTBITBLT) (1152Q \CURSORDESTRASTERWIDTH 1147Q \CURSORDESTLINEBASE 1142Q \CURSORDESTLINEBASE 1136Q \CURSORDESTLINE 1122Q \CURSORDESTLINE 1112Q \CURSORDESTLINE 1076Q \CURSORDESTLINEBASE 1071Q \CURSORDESTLINEBASE 1065Q \CURSORDESTLINE 1053Q \EM.DISPINTERRUPT 1043Q \SOFTCURSORBBT5 1035Q \SOFTCURSORBBT4 1027Q \SOFTCURSORBBT3 1021Q \SOFTCURSORBBT2 1013Q \SOFTCURSORBBT1 1004Q PILOTBBT 1001Q \SOFTCURSORBBT6 772Q PILOTBBT 767Q \SOFTCURSORBBT6 757Q PILOTBBT 754Q \SOFTCURSORBBT6 743Q PILOTBBT 740Q \SOFTCURSORBBT6 727Q PILOTBBT 724Q \SOFTCURSORBBT6 714Q PILOTBBT 711Q \SOFTCURSORBBT6 700Q PILOTBBT 675Q \SOFTCURSORBBT6 664Q PILOTBBT 661Q \SOFTCURSORBBT6 652Q PILOTBBT 647Q \SOFTCURSORBBT5 640Q PILOTBBT 635Q \SOFTCURSORBBT5 625Q PILOTBBT 622Q \SOFTCURSORBBT5 611Q PILOTBBT 606Q \SOFTCURSORBBT5 575Q PILOTBBT 572Q \SOFTCURSORBBT5 562Q PILOTBBT 557Q \SOFTCURSORBBT5 546Q PILOTBBT 543Q \SOFTCURSORBBT5 532Q PILOTBBT 527Q \SOFTCURSORBBT5 520Q PILOTBBT 515Q \SOFTCURSORBBT1 506Q PILOTBBT 503Q \SOFTCURSORBBT1 473Q PILOTBBT 470Q \SOFTCURSORBBT1 457Q PILOTBBT 454Q \SOFTCURSORBBT1 443Q PILOTBBT 440Q \SOFTCURSORBBT1 430Q PILOTBBT 425Q \SOFTCURSORBBT1 414Q PILOTBBT 411Q \SOFTCURSORBBT1 400Q PILOTBBT 375Q \SOFTCURSORBBT1 356Q BITMAP 353Q \SOFTCURSORDOWNBM 340Q BITMAP 335Q \SOFTCURSORUPBM 324Q BITMAP 321Q \SOFTCURSORUPBM 306Q \CURSORDESTLINEBASE 262Q BITMAP 255Q CURSOR 252Q \CURRENTCURSOR 237Q \CURSORDESTLINE 230Q \CURSORDESTRASTERWIDTH 216Q \CURSORDESTLINE 201Q \CURSORDESTHEIGHT 174Q \CURSORDESTHEIGHT 135Q \CURSORDESTWIDTH 130Q \CURSORDESTWIDTH 102Q \SOFTCURSORHEIGHT 76Q \SOFTCURSORWIDTH 51Q \EM.MOUSEY 27Q \EM.MOUSEX 23Q \SOFTCURSORUPP 13Q \EM.DISPINTERRUPT 5 \EM.DISPINTERRUPT) () \SOFTCURSORPOSITION D1 (L (1 Y 0 X)) 4`X`j`@`A``Hh(51Q \SOFTCURSORUPCURRENT 45Q \SOFTCURSORDOWN) (55Q \EM.DISPINTERRUPT 41Q \SOFTCURSORUPP 31Q \EM.CURSORY 21Q \EM.CURSORX 13Q \EM.DISPINTERRUPT 5 \EM.DISPINTERRUPT) () \SOFTCURSORDOWN D1 NIL #`X`jh`j `Hh(31Q \SOFTCURSORPILOTBITBLT) (34Q \EM.DISPINTERRUPT 25Q \SOFTCURSORBBT6 22Q \SOFTCURSORUPP 13Q \EM.DISPINTERRUPT 5 \EM.DISPINTERRUPT) () CURSORPROP D1 (L (0 X)) *eHdlkalala l kala  (47Q \ILLEGAL.ARG 43Q GETCURSORPROP 25Q 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