(FILECREATED "28-Jul-86 13:16:43" ("compiled on " {DSK}PCEKEYBOARD.;4) "12-Nov-85 14:59:23" recompiled changes: \PCE.ADD.KEYACTIONS \PCE.CREATE.KEYACTIONTABLE \PCE.GETKEYS \PCE.KEYBOARDINIT in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED "28-Jul-86 13:16:19" {DSK}PCEKEYBOARD.;4 24545 changes to: (FNS \PCE.KEYBOARDINIT \PCE.ADD.KEYACTIONS \PCE.CREATE.KEYACTIONTABLE \PCE.GETKEYS) (VARS PCEKEYBOARDCOMS \PCE.KEY.TO.SCAN.LIST) previous date: "15-Jul-86 09:18:45" {DSK}PCEKEYBOARD.;2) (NLSETQ (\PCE.TERMINATE)) PCE.ADD.KBD.SCANCODES D1 (I 0 LST) 3@@1HI lnػJ KhZHXK&(20Q \PCE.KEYBOARD.BUFFER.PUSH) NIL () PCE.ADD.KBD.STRING D1 (I 0 X) @ (6 \PCE.KEYBOARD.BUFFER.PUSH 3 CHCON) NIL () PCE.KBD.PROC D1 NIL ` `(5 PROCESSP) (12Q \PCE.KEYBOARD.PROCESS 2 \PCE.KEYBOARD.PROCESS) () \PCE.ADD.KEYACTIONS D1 (P 3 SCANUP P 2 SCANDOWN P 1 X I 1 KEYACTIONLIST I 0 KEYACTIONTABLE) 6A1HhYIdnZlػJdhKdh@ HX(56Q KEYACTION) NIL () \PCE.CREATE.KEYACTIONTABLEA0001 D1 (NAME ERRORSET F 0 K) P` i(6 \PCE.ADD.KEYACTIONS) (3 PCE.KEYACTION.LIST) () \PCE.CREATE.KEYACTIONTABLE D1 (P 0 K) H` o o H(33Q \PCE.SYSTEM.ERROR 23Q \PCE.CREATE.KEYACTIONTABLEA0001 14Q \PCE.ADD.KEYACTIONS 2 KEYACTIONTABLE) (11Q \PCE.KEY.TO.SCAN.LIST) ( 30Q "Bad value for PCE.KEYACTION.LIST" 20Q (\PCE.CREATE.KEYACTIONTABLEA0001)) \PCE.ENQUEUESCANCODE D1 (P 0 PTR I 0 BYTE) l` l?HjHkXH` `l H@`H ` j(` ` k` j` l? ` 9h(37Q BLOCK) (144Q \PCE.KEYBOARD.FCBPTR 131Q \PCE.KEYBOARD.FCBPTR 117Q \PCE.KEYBOARD.FCBPTR 104Q \PCE.KEYBOARD.FCBPTR 76Q \PCE.KEYBOARD.FCBPTR 65Q \PCE.KEYBOARD.FCBPTR 56Q \PCE.KEYBOARD.FCBPTR 45Q \PCE.KEYBOARD.FCBPTR 27Q \PCE.KEYBOARD.FCBPTR 2 \PCE.KEYBOARD.FCBPTR) () \PCE.FILL.ARRAY D1 (P 3 KEYRANGE P 2 I) ljIH`Ij*IkYl9kJI!``J)J*``J)Jl*JkZo1dKKJI``J)lakJn*JkZ`lk*hNIL (175Q \PCE.SCAN.CODE.ARRAY 140Q \PCE.KEY.STRING 135Q \PCE.SCAN.CODE.ARRAY 63Q \PCE.SHIFT.KEY.STRING 60Q \PCE.SCAN.CODE.ARRAY 50Q \PCE.KEY.STRING 45Q \PCE.SCAN.CODE.ARRAY 14Q \PCE.SCAN.CODE.ARRAY) ( 106Q ((20Q 31Q) (36Q 46Q) (54Q 62Q))) \PCE.GETKEYS D1 (P 3 CODE P 2 KBD.REPEAT.TIMER P 1 CH.IS.KEYBOARD.SCANCODE P 0 CH F 4 \LASTKEYSTATE) <0`{```` `clXnnhI` ` HnnrHlX IHdl*~l@Tljfjd`hYInHljd`3[`3RJl `A :H l `'`kjcTk 0[ll@TljjkjFTj 0>Hdl6lTljjkj&Tk @llTljjkjTj @jHo Hdl:`g ]l`g JHdlE`g 4l`g !HdlF`gl`g 6`Hl(KjYKd OKnjl Kdljl* Kl Kll Kdljl Knjl (1065Q \PCE.ENQUEUESCANCODE 1047Q \PCE.ENQUEUESCANCODE 1030Q \PCE.ENQUEUESCANCODE 1015Q \PCE.ENQUEUESCANCODE 1005Q \PCE.ENQUEUESCANCODE 766Q \PCE.ENQUEUESCANCODE 747Q \FZEROP 713Q \PCE.SHOW.LOCKS 704Q \PCE.NEWLOCKSTATE 643Q \PCE.NEWLOCKSTATE 620Q \PCE.NEWLOCKSTATE 572Q \PCE.NEWLOCKSTATE 547Q \PCE.NEWLOCKSTATE 523Q MEMB 341Q BLOCK 326Q \CLOCK0 317Q \PCE.ENQUEUESCANCODE 307Q TIMEREXPIRED? 274Q \CLOCK0 150Q \PCE.ENQUEUESCANCODE 76Q BLOCK 70Q BLOCK 53Q \GETKEY 46Q \SYSBUFP 35Q AWAIT.EVENT 5 BLOCK) (722Q \PCE.SCAN.CODE.ARRAY 707Q \PCE.SCROLLLOCK 701Q UP 676Q \PCE.SCROLLLOCK 666Q DOWN 663Q \PCE.SCROLLLOCK 646Q \PCE.NUMLOCK 640Q UP 635Q \PCE.NUMLOCK 623Q \PCE.NUMLOCK 615Q DOWN 612Q \PCE.NUMLOCK 575Q \PCE.CAPSLOCK 567Q UP 564Q \PCE.CAPSLOCK 552Q \PCE.CAPSLOCK 544Q DOWN 541Q \PCE.CAPSLOCK 331Q \PCE.KEYBOARD.WAIT2 277Q \PCE.KEYBOARD.WAIT 255Q \PCE.KEYBOARD.WAIT2 244Q \PCE.KEYBOARD.WAIT 214Q \PCE.KEYBOARD.BUFFER 210Q \PCE.KEYBOARD.BUFFER 113Q \PCE.KEYBOARD.FCBPTR 105Q \PCE.KEYBOARD.FCBPTR 41Q \PCE.KEYBOARD.BUFFER 32Q \PCE.KEYBOARD.EVENT 25Q \TTY.PROCESS 22Q \RUNNING.PROCESS 16Q \RUNNING.PROCESS 11Q \PCE.KEYBOARD.BUFFER) ( 520Q (72Q 272Q 105Q 305Q 106Q 306Q)) \PCE.KEYBOARD.BUFFER.PUSH D1 (I 0 LST) ,@(``@@@ ``` (51Q NOTIFY.EVENT 26Q LAST) (46Q \PCE.KEYBOARD.EVENT 40Q EVENTTYPE# 34Q \PCE.KEYBOARD.EVENT 31Q \PCE.KEYBOARD.BUFFER.ENDPTR 21Q \PCE.KEYBOARD.BUFFER 12Q \PCE.KEYBOARD.BUFFER.ENDPTR 6 \PCE.KEYBOARD.BUFFER) () \PCE.KEYBOARD.CONFIGURE D1 (I 0 CONFIG) @g' @g' (25Q MKATOM 12Q MKATOM 2 \PCE.KEYBOARD.TERMINATE) (30Q \PCE.KEYBOARD.WAIT2 21Q KEYBOARDWAIT2 15Q \PCE.KEYBOARD.WAIT 6 KEYBOARDWAIT) () \PCE.KEYBOARD.TERMINATE D1 NIL ` ` h(15Q DEL.PROCESS 5 PROCESSP) (22Q \PCE.KEYBOARD.PROCESS 12Q \PCE.KEYBOARD.PROCESS 2 \PCE.KEYBOARD.PROCESS) () \PCE.KEYBOARD.TTYENTRYFN D1 (I 0 PROC) ``` (17Q NOTIFY.EVENT) (14Q \PCE.KEYBOARD.EVENT 6 EVENTTYPE# 2 \PCE.KEYBOARD.EVENT) () \PCE.KEYBOARDINIT D1 NIL Ng hdghgggggggggggh (113Q \PCE.WINDOW.ATTACH.PROCESS 105Q ADD.PROCESS 63Q \PCE.CREATE.KEYACTIONTABLE 26Q \PCE.WINDOW.DETACH.PROCESS 23Q \PCE.RESET.LOCKSTATE 5 CREATE.EVENT) (110Q \PCE.KEYBOARD.PROCESS 77Q \PCE.KEYBOARDINIT 74Q RESTARTFORM 71Q HARDRESET 66Q RESTARTABLE 60Q KEYACTION 55Q \PCE.KEYBOARD.TTYENTRYFN 52Q TTYENTRYFN 47Q DELETE 44Q AFTEREXIT 41Q PCE-KEYBOARD 36Q NAME 31Q \PCE.GETKEYS 20Q \PCE.KEYBOARD.BUFFER.ENDPTR 14Q \PCE.KEYBOARD.BUFFER 10Q \PCE.KEYBOARD.EVENT 2 PCE-KEYBOARD-EVENT) () \PCE.NEWLOCKSTATE D1 (L (1 UP/DOWN 0 OLDSTATE)) KAg$@dggg@dggg@dgdggdgggNIL (110Q LOCKOFF.KEYUP 104Q LOCKOFF.KEYDOWN 76Q LOCKON.KEYUP 71Q LOCKON.KEYUP 64Q LOCKON.KEYDOWN 55Q LOCKOFF.KEYUP 47Q LOCKOFF.KEYDOWN 41Q LOCKOFF.KEYDOWN 34Q LOCKON.KEYUP 24Q LOCKON.KEYDOWN 20Q LOCKON.KEYDOWN 13Q LOCKOFF.KEYUP 3 DOWN) () \PCE.RESET.LOCKSTATE D1 NIL gdd(20Q \PCE.SHOW.LOCKS) (15Q \PCE.SCROLLLOCK 11Q \PCE.NUMLOCK 5 \PCE.CAPSLOCK 2 LOCKOFF.KEYUP) () \PCE.SHOW.LOCKS D1 (P 2 SCROLLLOCK P 1 NUMLOCK P 0 CAPSLOCK) E`g `g`g `g`g `g` HIJl`hNIL (77Q PCE.SHOW.LOCKS.FN 65Q PCE.SHOW.LOCKS.FN 56Q LOCKON.KEYUP 53Q \PCE.SCROLLLOCK 45Q LOCKON.KEYDOWN 42Q \PCE.SCROLLLOCK 36Q LOCKON.KEYUP 33Q \PCE.NUMLOCK 25Q LOCKON.KEYDOWN 22Q \PCE.NUMLOCK 16Q LOCKON.KEYUP 13Q \PCE.CAPSLOCK 5 LOCKON.KEYDOWN 2 \PCE.CAPSLOCK) () (PRETTYCOMPRINT PCEKEYBOARDCOMS) (RPAQQ PCEKEYBOARDCOMS ((DECLARE: FIRST (P (* turn off PCE processes if already loaded and running) ( NLSETQ (\PCE.TERMINATE)))) (DECLARE: DONTCOPY (P (LOADFNS NIL (QUOTE LLKEY) NIL (QUOTE (KEYBOARDEVENT) )))) (COMS (* user functions and variables) (FNS PCE.ADD.KBD.SCANCODES PCE.ADD.KBD.STRING PCE.KBD.PROC ) (INITVARS (PCE.SHOW.LOCKS.FN) (PCE.KEYACTION.LIST)) (GLOBALVARS PCE.SHOW.LOCKS.FN PCE.KEYACTION.LIST )) (FNS \PCE.ADD.KEYACTIONS \PCE.CREATE.KEYACTIONTABLE \PCE.ENQUEUESCANCODE \PCE.FILL.ARRAY \PCE.GETKEYS \PCE.KEYBOARD.BUFFER.PUSH \PCE.KEYBOARD.CONFIGURE \PCE.KEYBOARD.TERMINATE \PCE.KEYBOARD.TTYENTRYFN \PCE.KEYBOARDINIT \PCE.NEWLOCKSTATE \PCE.RESET.LOCKSTATE \PCE.SHOW.LOCKS) ( VARS \PCE.CAPSLOCK \PCE.KEY.STRING \PCE.KEY.TO.SCAN.LIST \PCE.KEYBOARD.STATE \PCE.NUMLOCK \PCE.SCAN.CODE.ARRAY \PCE.SCROLLLOCK \PCE.SHIFT.KEY.STRING) (INITVARS (\PCE.KEYBOARD.BUFFER) ( \PCE.KEYBOARD.BUFFER.ENDPTR) (\PCE.KEYBOARD.EVENT) (\PCE.KEYBOARD.PROCESS) (\PCE.KEYBOARD.WAIT 500) ( \PCE.KEYBOARD.WAIT2 100)) (GLOBALVARS \PCE.CAPSLOCK \PCE.KEY.STRING \PCE.KEY.TO.SCAN.LIST \PCE.KEYBOARD.BUFFER \PCE.KEYBOARD.BUFFER.ENDPTR \PCE.KEYBOARD.EVENT \PCE.KEYBOARD.PROCESS \PCE.KEYBOARD.STATE \PCE.KEYBOARD.WAIT \PCE.KEYBOARD.WAIT2 \PCE.NUMLOCK \PCE.SCAN.CODE.ARRAY \PCE.SCROLLLOCK \PCE.SHIFT.KEY.STRING))) (RPAQ? PCE.SHOW.LOCKS.FN) (RPAQ? PCE.KEYACTION.LIST) (RPAQQ \PCE.CAPSLOCK LOCKOFF.KEYUP) (RPAQQ \PCE.KEY.STRING "vanMelle18 Sepshih.pa3 Oct shih.pa3 Oct shih.pa2") (RPAQQ \PCE.KEY.TO.SCAN.LIST ((65 . 1) (ONE . 2) (TWO . 3) (THREE . 4) (FOUR . 5) (FIVE . 6) (SIX . 7) (SEVEN . 8) (EIGHT . 9) (NINE . 10) (ZERO . 11) (- . 12) (= . 13) (BS . 14) (TAB . 15) (q . 16) (w . 17) (e . 18) (r . 19) (t . 20) (y . 21) (u . 22) (i . 23) (o . 24) (p . 25) (%[ . 26) (%] . 27) (CR . 28) (PROP'S . 29) (a . 30) (s . 31) (d . 32) (f . 33) (g . 34) (h . 35) (j . 36) (k . 37) (l . 38) (; . 39) (71 . 40) (108 . 41) (LSHIFT . 42) (KEYPAD, . 43) (z . 44) (x . 45) (c . 46) (v . 47) (b . 48) (n . 49) (m . 50) (, . 51) (%. . 52) (/ . 53) (RSHIFT . 54) (PRTSC . 55) (KEYBOARD . 56) (SPACE . 57) (KEYPAD+ . 58) (CENTER . 59) (BOLD . 60) (ITALICS . 61) (CASE . 62) (STRIKEOUT . 63) (UNDERLINE . 64) (SUPER/SUB . 65) (LARGER . 66) (MARGINS . 67) (FONT . 68) (KEYPAD- . 69) (KEYPAD* . 70) (KEYPAD7 . 71) (KEYPAD8 . 72) (KEYPAD9 . 73) (EXPAND . 74) (KEYPAD4 . 75) (KEYPAD5 . 76) (KEYPAD6 . 77) (NEXT . 78) (KEYPAD1 . 79) (KEYPAD2 . 80) (KEYPAD3 . 81) (KEYPAD0 . 82) (DEL . 83) (KEYPAD. . 83))) (RPAQQ \PCE.KEYBOARD.STATE 0) (RPAQQ \PCE.NUMLOCK LOCKOFF.KEYUP) (RPAQ \PCE.SCAN.CODE.ARRAY (READARRAY 128 (QUOTE SMALLPOSP) 0)) (0 286 304 302 288 274 289 290 291 279 292 293 294 306 305 280 281 272 275 287 276 278 303 273 301 277 300 1 0 0 0 306 185 130 168 132 133 134 136 40 138 139 137 141 51 12 52 53 11 2 3 4 5 6 7 8 9 10 167 39 179 13 180 181 131 158 176 174 160 146 161 162 163 151 164 165 166 178 177 152 153 144 147 159 148 150 175 145 173 149 172 26 43 27 135 140 0 30 48 46 32 18 33 34 35 23 36 37 38 50 49 24 25 16 19 31 20 22 47 17 45 21 44 154 171 155 169 0 NIL) (RPAQQ \PCE.SCROLLLOCK LOCKOFF.KEYUP) (RPAQQ \PCE.SHIFT.KEY.STRING " !@#$%%^&*()_+ QWERTYUIOP{} ASDFGHJKL:%"~ |ZXCVBNM<>? ") (RPAQ? \PCE.KEYBOARD.BUFFER) (RPAQ? \PCE.KEYBOARD.BUFFER.ENDPTR) (RPAQ? \PCE.KEYBOARD.EVENT) (RPAQ? \PCE.KEYBOARD.PROCESS) (RPAQ? \PCE.KEYBOARD.WAIT 500) (RPAQ? \PCE.KEYBOARD.WAIT2 100) (PUTPROPS PCEKEYBOARD COPYRIGHT ("Xerox Corporation" 1986)) NIL