$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>KbdIoSubrs.br
0000000 002 002 006 300 \0 \0 \0 017 \0 \0 001 315 \0 \0 001 360
0000020 \0 \0 006 p \0 \0 006 261 \0 \0 \0 \0 \0 \0 \0 @
0000040 \0 1 \0 \0 006 K B D F l g \0 \0 1 \0 \0
0000060 005 N e w U S \0 1 \0 \0 005 O l d U S
0000100 \0 \0 \0 004 k e y s \0 \0 0 \0 \0 \a L
0000120 i s p K b d \0 ! \0 \0 \t L o c k S
0000140 h i f t \0 1 \0 \0 \v D o w n S t r
0000160 o k e s \0 1 \0 \0 \t U p S t r o k
0000200 e s \0 ! \0 \0 \b A S C I I m a p \0
0000220 \0 1 \0 \0 005 M E Q L o \0 1 \0 \0 005 M
0000240 E Q H i \0 1 \0 \0 016 m o u s e E v
0000260 e n t C o d e \0 \0 1 \0 \0 \f m o u
0000300 s e E n a b l e d \0 \0 0 \0 \0 017 I
0000320 n t e r r u p t E n a b l e \0 0
0000340 \0 \0 \r I n t e r r u p t C h a r
0000360 \0 003 350 \v S c r e e n W i d t h
0000400 \0 @ \0 001 \a K B D i n i t \0 A \0 002
0000420 \n K B D H a n d l e r \0 \0 A \0 003
0000440 \t K e y A c t i o n \0 A \0 004 \a k
0000460 b d G e t s \0 A \0 005 \b k b d R e
0000500 s e t \0 \0 A \0 006 \b k b d E m p t
0000520 y \0 \0 A \0 \a \a k b d P u t s \0 @
0000540 \0 \b \n B K S Y S C H A R 0 \0 \0 @
0000560 \0 \t \a G E T K E Y S \0 @ \0 \n \b P
0000600 E E K K E Y S \0 \0 @ \0 \v \f N W W
0000620 I n t e r r u p t \0 \0 A \0 \f \f D
0000640 o M o u s e E v e n t \0 \0 A \0 \r
0000660 \t B l a n k K e y s \0 @ \0 016 020 C
0000700 R E A T E M O U S E E V E N T \0
0000720 \0 @ \0 017 \v E N A B L E M O U S E
0000740 \0 @ \0 020 \f S e t C u r s o r P o
0000760 s \0 \0 A \0 021 005 B o u n d \0 \0 \0 \0
0001000 \b A l l o c V e c \0 \0 \0 \0 \0 \t M
0001020 o v e B l o c k \0 \0 \0 \0 \b S e t
0001040 B l o c k \0 \0 \0 \0 \0 \b C a l l S
0001060 w a t \0 \0 \0 \0 \0 \b O s B u f f e
0001100 r \0 \0 \0 \0 \0 006 R e s e t s \0 \0 \0
0001120 \0 \0 021 F i n d I n t e r r u p t
0001140 M a s k \0 \0 \0 \0 023 I n i t i a l
0001160 i z e I n t e r r u p t \0 \0 \0 \0
0001200 003 M a x \0 \0 \0 \0 003 M i n \0 020 \0 \0
0001220 004 R M S K \0 \0 \0 \0 \0 004 P u t s \0
0001240 \0 \0 \0 \0 \v F l a s h S c r e e n
0001260 \0 \0 \0 \0 \n S m a l l U n b o x \0
0001300 \0 020 \0 \0 005 l v N I L \0 \0 \0 \0 006 E
0001320 n d o f s \0 \0 \0 \0 \0 \n M k S m a
0001340 l l P o s \0 \0 \0 \0 \0 004 G e t s \0
0001360 \0 020 \0 \0 \b B G e t B a s e \0 \0 020
0001400 \0 \0 \n A P u t B a s e 3 2 \0 \0 020
0001420 \0 \0 \n A t o m N o t N I L \0 \0 \0
0001440 \0 \0 \b I G e t B a s e \0 \0 \0 \0 \0
0001460 \b I P u t B a s e \0 \0 \0 \0 \0 005 B
0001500 l o c k \0 020 \0 \0 \b B P u t B a s
0001520 e \0 \0 \0 \0 \0 005 T i m e r \0 020 \0 \0
0001540 006 X S e t B R \0 \0 020 \0 \0 006 R W r
0001560 i t e \0 \0 \0 \0 \0 005 E q N I L \0 \0
0001600 \0 \0 \b R A I D C o d e \0 \0 \0 \0 \0
0001620 \t L o c k P a g e s \0 021 \0 021 \0 001
0001640 \0 022 \0 327 \0 023 001 r \0 024 001 335 \0 025 002 005
0001660 \0 026 002 031 \0 027 002 * \0 030 002 M \0 031 002 c
0001700 \0 032 002 x \0 033 002 214 \0 034 002 374 \0 035 003 205
0001720 \0 036 003 254 \0 037 003 346 \0 004 , \0 ! 004 B
0001740 004 177 004 177 Z 001 \f 370 \0 \f \f 367 \t 006 377 377
0001760 377 377 367 276 377 t \0 377 X \0 \t 006 \0 \0 \0 \0
0002000 \0 \0 \0 \0 \0 377 X \0 \t 006 027 P = 340 027 200
0002020 373 \0 \0 \0 ] g \t I 001 \n \ / p - k 0
0002040 v u d 7 e 6 4 5 301 302 ] ' , l o x
0002060 i 9 a s q w 2 3 \0 177 _ \r ; . \0 z
0002100 b j c \0 f \t 033 1 \0 \0 303 \0 = [ \0
0002120 m n 8 h y g t r 201 200 202 203 204 205 206 207
0002140 001 \n | ? P - K ) V U D & E ~ $ %
0002160 301 302 } " < L O X I ( A S Q W @ #
0002200 \0 177 ^ \r : > \0 Z B J C \0 F \t 033 !
0002220 \0 \0 303 \0 + { \0 M N * H Y G T R
0002240 201 200 202 203 204 205 206 207 ] Z ! Z i Z \0 001
0002260 @ \0 9 X Z 003 003 ) V i V \0 003 % U
0002300 8 005 C 004 ! M i M \0 001 @ \0 ! O i I
0002320 \0 001 E M 9 K Z 003 % J - J i J \0 003
0002340 001 002 \0 \0 % G = C C \0 % E = @ C 003
0002360 % M = = C 004 % K = : C \b % I = 7
0002400 C 005 ! 4 i . \0 001 @ \0 9 0 Z 003 003
0002420 - . i * \0 003 ! & i $ \0 001 B 004 ! a
0002440 i \0 001 : 004 C \0 : 004 # \0 9 Z 346 \0
0002460 375 P 345 \0 : 004 C 001 " 004 8 026 C \0 002
0002500 i Q \0 001 ! P i P \0 001 B 005 ! N i \t
0002520 \0 001 : 005 Z \t = J Z \n 001 016 \0 \0 \0 005
0002540 \0 \0 \0 004 376 034 \0 \0 376 030 \0 \f \0 \0 \0 \0
0002560 \0 \0 \0 \0 \0 \0 9 c Z 003 ) 7 i a \0 004
0002600 % ` * 005 \f 340 E ] \f 366 \0 \0 \0 \0 \0 \0
0002620 Z 001 \f 370 \0 \r \f 367 9 345 Z 003 i ) 343
0002640 i 343 \0 003 % 342 8 005 C 004 375 \0 Z 005 % J
0002660 - J i J \0 002 212 \0 " 005 i g \0 002 E B
0002700 % A E d 375 \0 Z 005 % b ) b i = \0 002
0002720 212 \0 " 005 i Z \0 002 E Z % Y E Z 001 \a
0002740 \0 200 \0 \0 020 \0 \0 \0 001 \0 \0 \0 375 \0 Z 004
0002760 001 ! " 004 8 232 236 \0 # \0 B 005 " 004 8 ,
0003000 236 \0 # \0 B 006 " 006 200 \0 * 004 8 \0 276 \0
0003020 + \0 247 \0 * 005 217 \0 J \a " \a 202 \r 001 \a
0003040 375 \0 Z 003 " \a * 004 i N \0 003 " 004 203 \0
0003060 B 004 " 004 9 V 344 J 001 335 001 \a \0 006 \0 \0
0003100 001 021 001 024 \0 \0 \0 \0 8 \0 372 \r 001 5 9 212
0003120 Z 004 " 004 8 0 236 \0 # \0 B 005 " 004 8 0
0003140 236 \0 # \0 B 006 " 006 200 \0 * 004 8 0 276 \0
0003160 + \0 247 \0 * 005 217 \0 J \a : \a 372 \r 001 \n
0003200 " \a i E \0 001 001 006 \0 \0 001 026 001 025 003 030
0003220 001 027 : 005 372 \f 001 020 : 006 372 \r 001 \r " 004
0003240 8 \0 236 \0 # \0 202 \r 001 \a " 006 200 \0 8 \0
0003260 347 \0 i - \0 001 8 1 X \0 8 . X 003 8 003
0003300 X 003 \f 366 \0 \0 Z 001 \f 370 \0 017 \f 367 8 \a
0003320 # 002 9 a 347 004 205 P 202 \f 001 004 204 \0 001 034
0003340 \0 003 8 \n # 003 9 X 347 004 205 P 202 \f 001 003
0003360 204 \0 001 021 8 \t # 003 9 P 347 004 205 P 202 \f
0003400 001 \a " 005 = K 236 \0 # \0 001 004 \0 \0 205 \0
0003420 001 001 001 001 001 001 B \a 375 P Z \b " 005 ) G
0003440 \f 346 B \t " 004 : \b 347 \0 202 \r 001 * " \a
0003460 : \b 347 \0 = X Z \n 202 \f 001 003 " \t 001 005
0003500 " \t 9 R 346 \0 001 001 * \n \f 363 : 006 356 \0
0003520 J \n 8 / # 002 9 I 347 004 205 P 202 \f 001 \t
0003540 " \n 9 031 345 J 001 005 " \n 9 R 347 \0 B \n
0003560 % P * \n i O \0 002 202 \f 001 003 i [ \0 \0
0003600 " \b 202 P B \b " \t 203 \0 B \t " \b 202 \f
0003620 001 312 \f 366 \0 @ \0 \b \0 200 \0 200 Z 001 \f 370
0003640 \0 \n \f 367 : 004 ; \0 Z 005 001 003 \0 004 001 001
0003660 : 005 # 003 : 005 ; 002 345 \r 001 372 : 005 ? 003
0003700 Z 006 : 005 # 003 203 \0 B \a " \a : 005 ; 001
0003720 345 \f 001 004 : 005 ; \0 Z \a " \a : 005 C 003
0003740 " 006 001 004 \0 275 \0 H \b \0 \f 366 Z 001 \f 370
0003760 \0 \t \f 367 : 004 ; \0 Z 005 : 005 ; \0 Z 006
0004000 " 006 : 005 C 002 " 006 : 005 C 003 \f 366 \0 237
0004020 \0 305 \0 \0 Z 001 \f 370 \0 \b \f 367 : 004 ; \0
0004040 Z 005 : 005 # 003 : 005 ; 002 345 \r 204 001 205 \0
0004060 001 002 \0 \0 \f 366 Z 001 \f 370 \0 \n \f 367 : 004
0004100 ; \0 Z 006 : 006 # 002 203 \0 B \a " \a : 006
0004120 ; 001 345 \f 001 004 : 006 ; \0 Z \a " \a : 006
0004140 ; 003 345 \f 001 003 205 \0 001 \t " 005 : 006 G 002
0004160 " \a : 006 C 002 204 \0 001 001 \f 366 Z 001 \f 370
0004200 \0 \n \f 367 = 306 Z 006 " 004 i b \0 001 8 360
0004220 347 \0 212 \0 " 006 i 276 \0 002 202 \r 001 003 " 004
0004240 001 003 \0 001 001 \f 366 Z 001 \f 370 \0 \b \f 367
0004260 i P \0 \0 \0 i N \0 001 202 \r 001 003 016
0004300 001 \a \a i H \0 001 i G \0 001 001 001 001 001
0004320 \f 366 Z 001 \f 370 \0 \a \f 367 \f i ; \0 001
0004340 202 \r 001 003 023 001 \t 8 \a ; \0 # 003 B 005
0004360 & 005 i 2 \0 001 001 001 \f 366 Z 001 \f 370 \0 \v
0004400 \f 367 % 207 i ' \0 001 202 \f 001 4 % 202 i #
0004420 \0 001 B 004 " 004 ) \ \f 347 9 [ 346 \0 212 \0
0004440 ! Y \f \0 \0 002 * 004 9 V 357 \0 B 005 205 P
0004460 \f 346 * 005 217 \0 252 \f 001 005 " 004 9 M 345 \f
0004500 001 021 8 \0 Z 006 " 004 i \a \0 001 001 006 \0 \0
0004520 \0 \0 \0 \0 \0 \0 \0 \0 212 \0 " 006 \f \0 \0 002
0004540 001 \t = * 004 i j \0 002 202 \f 001 003 i g
0004560 \0 \0 030 \f \0 \0 001 B 004 : 004 372 \r 001 037
0004600 \0 \f \a \0 001 202 \f 001 005 " 004 9 % 345 \f
0004620 001 026 \t ( X \f 035 \0 002 ! 036 i Q \0 001
0004640 B 005 9 032 Z \a 205 \0 i K \0 001 212 \0 " \a
0004660 i I \0 002 205 \0 * 005 i E \0 002 8 \0 372 \r
0004700 001 005 375 \0 X 004 i D \0 \0 033 001 006 \0 004
0004720 222 200 \0 026 \0 017 \0 003 \f 366 Z 001 \f 370 \0 021
0004740 \f 367 \0 ( \0 \f b \0 002 B 005 004 203 \0
0004760 212 \0 \b \f \a \0 002 B 006 " 005 9 i 346 \0
0005000 B \a ! 351 306 \0 B \b : \a Z \t 020 9 344
0005020 346 \0 212 \0 021 \f 021 \0 002 * \t 215 J 001 \t
0005040 \n 9 W 346 \0 212 \0 \n \f \n \0 002 B \a
0005060 " \a : 006 345 \f 001 \b 001 004 002 030 002 ( \0 \0
0005100 001 S \0 \0 001 \f \0 200 \f 001 003 001 \b \0 \0
0005120 % J ( 006 i 363 \0 002 202 \r 001 F " 005 8 037
0005140 346 \0 B 005 = ` Z 003 * 005 \f \0 \0 003
0005160 " 005 203 \0 ) Y = Y 355 \0 J 003 212 \0 \v
0005200 \f \n \0 003 " 005 9 % 346 \0 : 004 Z 003 212 \0
0005220 \t \f \t \0 003 " 005 9 237 346 \0 8 006 Z \n
0005240 B \v " \b i C \0 001 B 003 " \n * \v \f 016
0005260 \0 003 " 005 9 215 346 \0 8 016 Z \n B \v i e
0005300 \0 \0 B 003 " \n * \v \f \r \0 003 001 005 \0 005
0005320 \0 002 \f 355 \0 \t : \a Z 003 021 ( ? \f \v
0005340 \0 003 001 004 002 027 i 253 \0 \0 \f 366 Z 001 \f 370
0005360 \0 \b \f 367 % K 200 \0 B 004 % I 200 \0 9 H
0005400 347 \0 * 004 9 P 357 \0 246 \0 - N 250 \0 9 M
0005420 357 \0 246 \0 * 004 9 J 357 \0 B 005 252 \f 001 \a
0005440 205 \0 001 \a 001 024 003 030 001 025 \0 \0 ! M 001 001
0005460 * 005 216 \0 242 \0 001 001 \f 366 Z 001 \f 370 \0 \r
0005500 \f 367 ! h 306 \0 B 005 " 004 \f \0 \0 001 205 \0
0005520 - 352 \f \0 \0 002 ! 350 = 350 345 \0 212 \0 205 P
0005540 \f \a \0 002 % X 200 \0 8 \0 347 \0 212 \0 ! 261
0005560 \f \b \0 002 9 \r Z \a " 005 i 330 \0 001 212 \0
0005600 " \a \f \t \0 002 001 005 \0 \0 376 036 376 035 \0 003
0005620 9 J Z \a i 372 \0 \0 212 \0 " \a \f \r \0 002
0005640 " 004 001 005 \0 @ 376 037 \0 214 \b \0 \f 366 Z 001
0005660 \f 370 \0 \v \f 367 " 004 i U \0 001 202 \r 001 005
0005700 375 \0 X \0 001 8 \0 : 004 ; \0 X y : 004
0005720 ; 001 X { 001 9 334 346 \0 212 \0 \b \f 332
0005740 \0 002 9 G 345 K 001 017 \t \n 021 M o u s e
0005760 q t o o s m a l l 342 \0 * 004
0006000 i D \0 002 375 P Z 003 026 ( 033 i B \0 003
0006020 001 003 \0 \v 376 030 " 005 i % \0 001 202 \r 001 004
0006040 204 \0 001 006 \0 004 " 005 i F \0 001 001 001 @ 356
0006060 374 \0 X 8 " 004 001 001 \f 366 Z 001 \f 370 \0 \v
0006100 \f 367 " 004 - = i = \0 002 E < 9 < Z 006
0006120 " 005 ) 9 i 6 \0 002 * 006 215 \0 M 5 \0
0006140 001 002 \0 \0 \f 366 Z 001 \f 370 \0 \n \f 367 001 %
0006160 \0 006 205 \0 001 5 : 004 ; 001 Z 006 " 006 : 005
0006200 344 J 001 004 " 005 001 004 \0 \0 " 006 001 001 001 002
0006220 \0 \0 001 & \t \v 022 I n v a l i d c
0006240 u r s o r p o s \0 342 \0 * 004 i 355
0006260 \0 002 001 026 002 266 001 024 : 004 # \0 001 \n 001 1
0006300 \0 \0 001 024 003 030 001 025 \f 355 \0 \n \f 355 \0 \b
0006320 \f 351 \0 002 \0 017 377 316 \0 016 377 316 001 334 \f 366
0006340 \0 @ 202 361 201 270 201 m 003 201 202 300 001 334 201 E
0006360 201 _ 002 001 204 024 204 023 204 & 204 ( 202 330 202 310
0006400 004 n \0 \0 001 004 001 q \0 311 \0 326 \0 325 \0 324
0006420 \0 \0 \0 \0 \0 \0 002 267 001 225 003 323 \0 \0 \0 \0
0006440 \0 \0 004 o \0 277 \0 302 \0 307 \0 306 \0 310 001 \0
0006460 001 002 001 . 001 S 001 2 203 303 003 , 003 - 004 i
0006500 204 > 002 270 002 272 002 271 203 376 202 332 202 320 003 .
0006520 003 0 003 6 203 ~ 003 244 203 264 203 335 004 @ 004 S
0006540 004 W \0 \a \0 0 202 364 \0 \r 201 3 \0 , 202 V
0006560 \0 001 201 n \0 005 200 256 \0 \b 200 022 \0 \a 200 \v
0006600