(FILECREATED " 3-Oct-86 13:38:19" ("compiled on " {ERIS}SOURCES>LLKEY.;86) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (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@ c```]jhi+`M``Mdllk\L`j[hiKI JhYJ&H @ (146Q \PUTSYSBUF 137Q \NCONC2 3 \PUTSYSBUF) (142Q \LONGSYSBUF 76Q \SYSBUFFER 50Q \SYSBUFFER 43Q \SYSBUFFER 34Q \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```*`-IH I IJkؾNMHNINkٹIjHhF$[`h$IK YH I KdHJkZL  Nk^iHkI (222Q SUBSTRING 202Q RPLCHARCODE 170Q RPLCHARCODE 151Q ALLOCSTRING 143Q NCHARS 135Q LENGTH 66Q \GETSYSBUF 46Q ALLOCSTRING 40Q NCHARS 5 \NSYSBUFCHARS) (124Q PROCESS 121Q \RUNNING.PROCESS 111Q PROCESS 31Q \RUNNING.PROCESS 23Q \TTY.PROCESS 20Q \RUNNING.PROCESS 14Q \RUNNING.PROCESS 2 \SAVEDSYSBUFFER) () \SYSBUFP D1 NIL 0``d```jhi` `$NIL (53Q PROCESS 50Q \RUNNING.PROCESS 43Q \RUNNING.PROCESS 26Q \SYSBUFFER 21Q \LONGSYSBUF 12Q \TTY.PROCESS 6 \RUNNING.PROCESS 2 \RUNNING.PROCESS) () \GETSYSBUF D1 NIL N```<`Hjhi+`H``HdllkYI`jNIL (107Q \SYSBUFFER 61Q \SYSBUFFER 54Q \SYSBUFFER 45Q \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```b`dl`>dl`3l.lhi`` `dHH`  gAgh(230Q MOUSECHORDWAIT 225Q MOUSECHORDWAIT 215Q KEYACTION 167Q \APPEND2 146Q \DoveMisc.ReadKeyboardType) (242Q AFTERDOMAKESYS 234Q AFTERDOSAVEVM 212Q \DEFAULTKEYACTION 174Q \DOVEKEYACTIONS 164Q \DOVEOSDKEYACTIONS 161Q \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)) 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(1453Q \ILLEGAL.ARG 1411Q \GETCHARCODE 1351Q \GETCHARCODE 522Q SHOULDNT) (1506Q NOLOCKSHIFT 1462Q LOCKSHIFT 1433Q CHARCODE 1374Q 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)) a`j"H@d [`jL'h@ @JJ@JhiIHIkԹKNNKNhiMLMkԽ(45Q \ILLEGAL.ARG 17Q L-CASE) (25Q \KEYNAMES 2 \KEYNAMES) () MODIFY.KEYACTIONS D1 (L (1 SaveCurrent? 0 KeyActions)) AA+@@d[K IhiHhZIH&J@dHH (71Q KEYACTION 21Q KEYACTION) (53Q \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$dg4dgdgTdgRdgNdg:dg8dg6dg2dg0dg.dg*dgdg l dj0dj@dgd`dg.dg,d`&dg"dg djd`djd`dhdldjRdhdg (417Q \SETACCESS 230Q \DEFINEDEVICE) (423Q \KEYBOARD.STREAM 414Q INPUT 356Q \STREAM.DEFAULT.MAXBUFFERS 342Q FILELINELENGTH 325Q \FILEOUTCHARFN 316Q \EOSERROR 307Q \NOIMAGEOPS 300Q \STREAM.NOT.OPEN 271Q \STREAM.NOT.OPEN 262Q \KEYBOARD.DEVICE 253Q {KEYBOARD} 225Q \KEYBOARD.DEVICE 217Q NILL 210Q NILL 201Q NILL 172Q \IS.NOT.RANDACCESSP 163Q \ILLEGAL.DEVICEOP 154Q \IS.NOT.RANDACCESSP 145Q \GENERIC.BINS 136Q \GENERIC.BOUTS 127Q \GENERIC.RENAMEFILE 120Q NILL 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) |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(1171Q INTERRUPTED 402Q \DOTRANSITIONS 340Q \DOTRANSITIONS 276Q \DOTRANSITIONS 232Q \DOTRANSITIONS 170Q \DOTRANSITIONS 124Q \DOTRANSITIONS 62Q \DOTRANSITIONS) (1162Q \KEYBUFFERING 1156Q \PENDINGINTERRUPT 1152Q \KEYBUFFERING 1146Q \PENDINGINTERRUPT 1131Q \INTERRUPTABLE 1125Q \KEYBUFFERING 1114Q \PENDINGINTERRUPT 1100Q \SHIFTSTATE 1066Q \SHIFTSTATE 1055Q \LASTKEYSTATE 1050Q \SHIFTSTATE 1035Q \SHIFTSTATE 1023Q \SHIFTSTATE 1012Q \LASTKEYSTATE 1005Q \SHIFTSTATE 772Q \SHIFTSTATE 761Q \SHIFTSTATE 750Q \LASTKEYSTATE 743Q \SHIFTSTATE 730Q \SHIFTSTATE 716Q \SHIFTSTATE 705Q \LASTKEYSTATE 700Q \SHIFTSTATE 662Q \LASTKEYSTATE 655Q \SHIFTSTATE 637Q \LASTKEYSTATE 633Q \SHIFTSTATE 621Q \SHIFTSTATE 610Q \SHIFTSTATE 577Q \LASTKEYSTATE 573Q \SHIFTSTATE 561Q \SHIFTSTATE 550Q \SHIFTSTATE 537Q \LASTKEYSTATE 533Q \SHIFTSTATE 521Q \SHIFTSTATE 511Q \SHIFTSTATE 500Q \LASTKEYSTATE 474Q \SHIFTSTATE 462Q \KEYBOARDEVENTQUEUE 450Q \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)) ph@dXd`hi@` @XHjd`jlHldAggg `l ` h(154Q \DoveDisplay.SetCursorShape 136Q BKBITBLT 62Q \CURSORBITSPERPIXEL) (151Q CursorBitMap 141Q \MACHINETYPE 132Q REPLACE 127Q INPUT 123Q INVERT 110Q BITMAP 101Q CursorBitMap 67Q CURSOR 55Q BITMAP 52Q \CURSORDESTINATION 35Q BITMAP 32Q \CURSORDESTINATION 25Q BITMAP 16Q CURSOR 12Q \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(255Q \DoveMisc.SetMousePosition) (305Q \EM.CURSORY 276Q \EM.CURSORX 270Q \EM.MOUSEY 261Q \EM.MOUSEX 236Q \IOPAGE 227Q \IOPAGE 220Q \IOPAGE 210Q \IOPAGE 176Q \IOPAGE 167Q \IOPAGE 155Q \MACHINETYPE 117Q \MACHINETYPE 105Q \CURSORHOTSPOTY 76Q \CURSORDESTHEIGHT 64Q \CURSORDESTHEIGHT 43Q \CURSORHOTSPOTX 34Q \CURSORDESTWIDTH 22Q \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) @`hi`@hi`@ `dl3`j)`j*n``j)`j*`nljd `j`j`j`jjg @@@@`Hn`Hn`Hn@h(175Q \DoveMisc.SetMousePosition 71Q \CURSORBITSPERPIXEL) (375Q \CURSORDESTINATION 361Q PILOTBBT 356Q \SOFTCURSORBBT6 343Q PILOTBBT 340Q \SOFTCURSORBBT5 325Q PILOTBBT 322Q \SOFTCURSORBBT1 312Q \CURSORDESTRASTERWIDTH 305Q BITMAP 300Q \CURSORDESTHEIGHT 273Q BITMAP 266Q \CURSORDESTWIDTH 261Q BITMAP 250Q BITMAP 242Q \CURSORDESTLINEBASE 236Q \CURSORDESTLINE 226Q \EM.CURSORY 217Q \EM.CURSORX 210Q \EM.MOUSEY 201Q \EM.MOUSEX 156Q \IOPAGE 147Q \IOPAGE 140Q \IOPAGE 130Q \IOPAGE 116Q \IOPAGE 107Q \IOPAGE 75Q \MACHINETYPE 64Q BITMAP 60Q \CURRENTCURSOR 45Q BITMAP 37Q BITMAP 32Q CURSOR 27Q \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(1027Q \SOFTCURSORUPCURRENT 1020Q \TEMPLOCKPAGES 221Q \TEMPLOCKPAGES 202Q \TEMPLOCKPAGES 160Q BITMAPCREATE 146Q BITMAPCREATE) (1024Q \SOFTCURSORP 1013Q \CURRENTCURSOR 1001Q PILOTBBT 776Q \SOFTCURSORBBT4 765Q PILOTBBT 762Q \SOFTCURSORBBT4 752Q BITMAP 740Q PILOTBBT 735Q \SOFTCURSORBBT3 724Q PILOTBBT 721Q \SOFTCURSORBBT3 711Q BITMAP 675Q PILOTBBT 672Q \SOFTCURSORBBT6 657Q PILOTBBT 654Q \SOFTCURSORBBT5 645Q PILOTBBT 642Q \SOFTCURSORBBT4 633Q PILOTBBT 630Q \SOFTCURSORBBT4 615Q PILOTBBT 612Q \SOFTCURSORBBT4 577Q PILOTBBT 574Q \SOFTCURSORBBT4 563Q PILOTBBT 560Q \SOFTCURSORBBT4 547Q PILOTBBT 544Q \SOFTCURSORBBT4 535Q PILOTBBT 532Q \SOFTCURSORBBT3 523Q PILOTBBT 520Q \SOFTCURSORBBT3 505Q PILOTBBT 502Q \SOFTCURSORBBT3 467Q PILOTBBT 464Q \SOFTCURSORBBT3 453Q PILOTBBT 450Q \SOFTCURSORBBT3 437Q PILOTBBT 434Q \SOFTCURSORBBT3 425Q PILOTBBT 422Q \SOFTCURSORBBT2 413Q PILOTBBT 410Q \SOFTCURSORBBT2 375Q PILOTBBT 372Q \SOFTCURSORBBT2 361Q PILOTBBT 356Q \SOFTCURSORBBT2 345Q PILOTBBT 342Q \SOFTCURSORBBT2 327Q PILOTBBT 324Q \SOFTCURSORBBT2 313Q PILOTBBT 310Q \SOFTCURSORBBT2 277Q PILOTBBT 274Q \SOFTCURSORBBT2 261Q PILOTBBT 256Q \SOFTCURSORBBT1 247Q BITMAP 241Q BITMAP 226Q BITMAP 211Q BITMAP 206Q \SOFTCURSORDOWNBM 172Q BITMAP 167Q \SOFTCURSORUPBM 163Q \SOFTCURSORDOWNBM 151Q \SOFTCURSORUPBM 137Q \SOFTCURSORHEIGHT 132Q \SOFTCURSORWIDTH 112Q BITMAP 107Q \SOFTCURSORUPBM 77Q BITMAP 74Q \SOFTCURSORUPBM 63Q BITMAP 60Q \SOFTCURSORUPBM 53Q BITMAP 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)) <`X`j`@hi`Ahi``Hh(61Q \SOFTCURSORUPCURRENT 55Q \SOFTCURSORDOWN) (65Q \EM.DISPINTERRUPT 51Q \SOFTCURSORUPP 35Q \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