$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>PupAlEthInit.br 0000000 002 002 002 335 \0 \0 \0 017 \0 \0 001 006 \0 \0 001 \v 0000020 \0 \0 002 275 \0 \0 002 334 \0 \0 \0 \0 \0 \0 \0 036 0000040 \0 377 377 \r s a v e d E t h e r U 0000060 F P \0 \0 \0 016 l e n E t h e r P 0000100 a c k e t \0 \0 \0 \0 \r e t h e r 0000120 M c L o a d e d \0 @ \0 001 \r I n i 0000140 t A l t o E t h e r \0 @ \0 002 020 D 0000160 e s t r o y A l t o E t h e r \0 0000200 \0 \0 \0 \0 \a S t a r t I O \0 \0 \0 \0 0000220 006 S y s E r r \0 \0 \0 \0 \0 \b A l l 0000240 o c a t e \0 \0 \0 \0 \0 004 Z e r o \0 0000260 \0 \0 \0 \0 023 E n c a p s u l a t e 0000300 E t h e r P u p \0 \0 \0 \0 017 S e n 0000320 d E t h e r P a c k e t \0 \0 \0 \0 0000340 016 S e n d E t h e r S t a t s \0 0000360 \0 \0 \0 \0 016 E t h e r P u p F i l 0000400 t e r \0 \0 \0 \0 \0 005 p b i I Q \0 \0 0000420 \0 \0 \a E n q u e u e \0 \0 \0 \0 004 n 0000440 d b Q \0 \0 \0 \0 \0 006 l e n P u p \0 0000460 \0 \0 \0 \0 \t M o v e B l o c k \0 \0 0000500 \0 \0 \v e t h e r P r o l o g \0 \0 0000520 \0 \0 021 F i n d I n t e r r u p t 0000540 M a s k \0 \0 \0 \0 023 I n i t i a l 0000560 i z e I n t e r r u p t \0 \0 \0 \0 0000600 021 I n i t i a l i z e C o n t e 0000620 x t \0 \0 \0 \0 \t F e e d E t h e r 0000640 \0 \0 \0 \0 020 l v U s e r F i n i s 0000660 h P r o c \0 \0 \0 \0 \0 \v E t h e r 0000700 F i n i s h \0 \0 \0 \0 020 D e s t r 0000720 o y I n t e r r u p t \0 \0 \0 \0 \0 0000740 \b p b i F r e e Q \0 \0 \0 \0 \0 \a D 0000760 e q u e u e \0 \0 \0 \0 \a U n q u e 0001000 u e \0 \0 \0 \0 004 F r e e \0 \0 002 \0 004 0001020 \0 001 \0 005 001 N 001 261 001 261 Z 001 \f 370 \0 023 0001040 \f 367 " 006 202 \r 001 025 " 006 = & 347 \0 202 \f 0001060 001 002 \f 366 \t 003 b \f 003 001 342 \0 B \a 016 \a 0001100 \0 \0 9 033 347 300 \b 304 9 031 345 \r 001 002 \f 366 0001120 001 021 9 025 Z \a 375 \0 Z \b 001 037 9 023 Z \a 0001140 9 022 Z \b 001 032 9 020 Z \a 9 017 Z \b 001 025 0001160 001 024 " 006 001 \v \0 \0 360 \0 \0 003 001 200 \f 355 0001200 \0 \f 001 230 \0 002 001 242 \0 004 \f 350 \0 002 \0 003 0001220 377 353 377 345 377 337 001 001 205 \0 : \a C \0 205 \0 0001240 : \a C 001 ! 353 * \b \f 346 i S \0 001 9 R 0001260 347 \0 B \t : \a # \0 202 \f 001 002 \f 366 " \t 0001300 9 I 345 \f 001 005 " \v ) F i F \0 002 " \t 0001320 202 \f 001 005 " \v ) A i ? \0 002 " \t : \a 0001340 C \b " 004 ) _ i _ \0 002 B \n " \n ) Z 0001360 i [ \0 002 " \t : \n C 002 % W : \n C \n 0001400 % U : \n C \v % S : \n C \f % Q : \n 0001420 C \r " \n 9 263 346 \0 ) L \f 361 377 \0 % J 0001440 : \n C \b % H : \n C \t " \n 9 d 346 \0 0001460 * \n 9 b 356 \0 i a \0 002 % ` * \n i ] 0001500 \0 002 " \n 9 \ 346 \0 B \v 375 \0 Z \f 001 020 0001520 \0 \0 \0 377 \b 266 \0 \0 \b 270 " \a : \f 346 \0 0001540 * \f : \v 276 \0 C \0 " \f 203 \0 B \f " \f 0001560 9 G 344 J 001 363 205 P * \b \f 346 : \n C 035 0001600 ! 202 * \b \f 346 : \n C 036 ! M * \b \f 346 0001620 : \n C 037 205 P : \n C - 205 P : \n C . 0001640 001 \v \0 222 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0001660 001 \0 \0 \0 \0 \0 " 004 : \n C ] " 005 : \n 0001700 C ^ % ` 9 ` 346 \0 E _ " \n 9 ^ 346 \0 0001720 9 023 Z 003 - [ i [ \0 003 " \n : \n C % 0001740 205 P i V \0 001 : \n C , : \n # , : \n 0001760 G 025 001 \a \0 005 \0 \a \0 \0 \0 \0 \0 024 \0 \b 0002000 " \n 9 G 346 \0 : \n ; , Z 017 * \n 9 O 0002020 356 \0 J 020 9 M Z 003 ) L i L \0 004 375 \0 0002040 Z \f 001 005 \0 003 " \f 203 \0 B \f 205 P * \f 0002060 \f 346 : \n ; , 347 \0 202 \r 001 366 ! ^ : \f 0002100 236 \0 # \0 : \n C ' " \n 9 037 346 \0 ) U 0002120 : \f 276 \0 C \0 " 004 ) Q i 245 \0 002 = O 0002140 Z 020 375 P Z 021 9 L Z 003 ) H i J \0 004 0002160 B \r " \n : \r C 003 " 005 * \r i 276 \0 002 0002200 001 \t \0 \0 \0 002 \0 \0 \0 \0 \0 \0 \0 \0 \0 0002220 \0 ` " \r : \n C _ % b 200 \f 001 \a = ` 0002240 ; \0 ] ] % ^ = \ C \0 \f 366 \0 # \0 \f 0002260 \0 2 \0 \0 Z 001 \f 370 \0 \n \f 367 205 \0 : 004 0002300 G 025 : 004 # 037 i N \0 001 : 004 # , i K 0002320 \0 001 : 004 # 021 202 \r 001 006 % F : 004 + 021 0002340 i 214 \0 002 : 004 # 022 202 \r 001 006 % = : 004 0002360 + 022 i 203 \0 002 001 021 001 A \0 ( \0 \0 \0 \r 0002400 \0 \0 = 2 Z 006 " 004 9 3 346 \0 i 2 \0 001 0002420 212 \0 " 006 i / \0 002 : 004 # * 202 \f 001 362 0002440 : 004 # ^ : 004 + _ i & \0 002 : 004 # ] 0002460 : 004 + _ i ! \0 002 % * 004 i 034 \0 002 0002500 : 004 # ] * 004 i 030 \0 002 = \n # \0 = \t 0002520 345 \f 001 \r % 004 = 004 C \0 001 \a \0 \0 \0 \0 0002540 \0 \0 \0 234 \0 \0 \0 \0 374 \0 ] 371 \f 366 \0 * 0002560 \0 \0 \0 360 \0 \0 \0 \0 \0 361 \0 036 001 242 001 7 0002600 \0 / \0 \0 \0 313 001 245 \0 237 \0 306 \0 307 \0 310 0002620 \0 311 \0 312 \0 315 \0 316 001 255 001 260 001 5 001 : 0002640 001 9 001 ; 001 M 001 t 001 r 001 243 001 244 001 246 0002660 001 247 001 254 001 256 001 257 \0 \0 0002672