$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>Pup1Init.br 0000000 002 002 003 177 \0 \0 \0 017 \0 \0 001 a \0 \0 001 f 0000020 \0 \0 003 M \0 \0 003 ~ \0 \0 \0 \0 \0 \0 \0 0 0000040 \0 ! \0 \0 \v l i s t e n e r C t x 0000060 \0 @ \0 001 \r I n i t P u p L e v e 0000100 l 1 \0 @ \0 002 020 D e s t r o y P u 0000120 p L e v e l 1 \0 \0 \0 \0 \0 \v D e f 0000140 a u l t A r g s \0 \0 \0 \0 \a p u p 0000160 Z o n e \0 \0 \0 \0 \a p u p C t x Q 0000200 \0 \0 \0 \0 017 m a x P u p D a t a B 0000220 y t e s \0 \0 \0 \0 006 l e n P u p \0 0000240 \0 \0 \0 \0 006 l e n P B I \0 \0 \0 \0 \0 0000260 \b A l l o c a t e \0 \0 \0 \0 \0 004 Z 0000300 e r o \0 \0 \0 \0 \0 005 p b i I Q \0 \0 0000320 \0 \0 005 p b i T Q \0 \0 \0 \0 \a s o c 0000340 k e t Q \0 \0 \0 \0 \b p b i F r e e 0000360 Q \0 \0 \0 \0 \0 004 n d b Q \0 \0 \0 \0 \0 0000400 \t g a t e w a y I Q \0 \0 \0 \0 \a E 0000420 n q u e u e \0 \0 \0 \0 \r I n i t A 0000440 l t o E t h e r \0 \0 \0 \0 \a n u m 0000460 N e t s \0 \0 \0 \0 006 S y s E r r \0 0000500 \0 \0 \0 \0 005 d P S I B \0 \0 \0 \0 003 M 0000520 a x \0 \0 \0 \0 \a H L o o k u p \0 \0 0000540 \0 \0 \a H I n s e r t \0 \0 \0 \0 \a H 0000560 D e l e t e \0 \0 \0 \0 \n H E n u m 0000600 e r a t e \0 \0 \0 \0 \0 005 C a l l 0 0000620 \0 \0 \0 \0 005 C a l l 1 \0 \0 \0 \0 005 C 0000640 a l l 2 \0 \0 \0 \0 005 C a l l 3 \0 \0 0000660 \0 \0 005 p u p R T \0 \0 \0 \0 \b R T L 0000700 o o k u p \0 \0 \0 \0 \0 \v R T E n u 0000720 m e r a t e \0 \0 \0 \0 \b R T I n s 0000740 e r t \0 \0 \0 \0 \0 \b R T D e l e t 0000760 e \0 \0 \0 \0 \0 \t L o c a t e N e t 0001000 \0 \0 \0 \0 \f p u p L e v e l 1 C t 0001020 x \0 \0 \0 \0 \0 021 I n i t i a l i z 0001040 e C o n t e x t \0 \0 \0 \0 \t P u p 0001060 L e v e l 1 \0 \0 \0 \0 017 G a t e w 0001100 a y L i s t e n e r \0 \0 \0 \0 022 g 0001120 a t e w a y L i s t e n e r S o 0001140 c \0 \0 \0 \0 \0 020 O p e n L e v e l 0001160 1 S o c k e t \0 \0 \0 \0 \0 \r I n i 0001200 t F o r w a r d e r \0 \0 \0 \0 \a U 0001220 n q u e u e \0 \0 \0 \0 004 F r e e \0 0001240 \0 \0 \0 \0 021 C l o s e L e v e l 1 0001260 S o c k e t \0 \0 \0 \0 \a D e q u e 0001300 u e \0 002 \0 002 \0 001 \0 003 001 f 001 346 001 346 0001320 Z 001 \f 370 \0 025 \f 367 B \t ! = 306 \0 9 < 0001340 Z \r 9 9 Z 016 9 9 Z 003 ) U i U \0 004 0001360 : 004 ] S : 005 ] R : \a ] Q " \a 9 P 0001400 346 \0 ) O \f 344 M N % M 9 % 346 \0 E K 0001420 " 004 ) # i I \0 002 B \n " \n ) 036 i E 0001440 \0 002 : \n ] C " \n 9 < 346 \0 E a " \n 0001460 9 ` 346 \0 E _ " \n 9 ^ 346 \0 E ] " \n 0001500 9 \ 346 \0 E [ = X ] Z 375 P Z \v : 006 0001520 Z \f 001 021 \0 \t 002 024 \0 \n = N Z 016 " 004 0001540 - " i " \0 002 212 \0 " 016 i J \0 002 " \v 0001560 203 \0 B \v " \v : \f 344 J 001 360 375 \0 Z 003 0001600 " 004 * 005 i j \0 003 375 \0 ] h = 7 ; \0 0001620 Z \v 001 023 377 375 \0 \0 \0 \0 \0 \0 \0 \0 \0 026 0001640 \0 002 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 % W 203 \0 0001660 E U : \v ; \0 Z \v " \v 202 \f 001 370 % N 0001700 202 \f 001 005 205 \0 ) K i K \0 002 " 004 ) 021 0001720 i 353 \0 002 E b " 006 = A 345 \0 ) 342 i ^ 0001740 \0 002 B \f " \f - Y \f 360 \0 377 001 \n \0 \0 0001760 \0 004 \0 \0 \0 006 \0 \0 \0 \b \0 \0 \0 \0 \0 \0 0002000 " \f - K 202 300 \f 360 377 \0 " \f 375 P 345 \0 0002020 - D 253 \0 202 300 \f 360 377 \0 " \f 375 P 345 \0 0002040 - < 253 \0 \f 360 \0 377 " \f 375 P 345 \0 - 5 0002060 9 270 356 \0 202 300 \f 360 377 \0 " \f 375 P 345 \0 0002100 - , 9 257 356 \0 \f 360 \0 377 % ' 9 ` 346 \0 0002120 255 220 \f 361 200 \0 001 005 \0 \0 \0 \0 \b 256 \0 \0 0002140 = W ] W = W ] W = W ] W = W ] W 0002160 " \b = 364 346 \0 B \b " \b ) R \f 343 9 Q 0002200 356 \0 J \r " 004 * \r i 217 \0 002 E K % J 0002220 * \r i 213 \0 002 001 003 \0 \0 \0 \0 % d = B 0002240 C \0 % b = ? C 003 % ` = < C 001 % ^ 0002260 = 9 C 002 375 \0 Z 016 " \b 375 P 345 \0 B 017 0002300 001 027 % 0 9 . 346 \0 * 016 B 020 ! ) \f 343 0002320 " 020 246 \0 B 020 204 \0 : 020 C 001 % # 9 0002340 346 \0 * 020 i 215 \0 002 " 016 203 \0 B 016 " 016 0002360 : 017 344 J 001 347 205 \0 i O \0 001 = N ; \0 0002400 Z 016 % 020 255 \0 i \a \0 002 001 \r \0 003 \0 \0 0002420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 005 0002440 \0 \n \0 \0 * 016 232 \0 K 002 " 004 ) L i L 0002460 \0 002 = K Z 003 ) G i I \0 003 E H " 005 0002500 - F i F \0 002 " 004 ) D i > \0 002 = K 0002520 Z 003 ) ? i ; \0 003 E G " 005 - E i 8 0002540 \0 002 001 005 \0 \0 \0 \0 \0 \0 \0 \0 " 004 ) L 0002560 i + \0 002 E J \t 004 \0 \0 \0 \0 \0 002 342 \0 0002600 B 016 : 016 Z 003 % A * 016 i N \0 003 " 006 0002620 i L \0 001 \f 366 \0 \0 \0 226 Z 001 \f 370 \0 \t 0002640 \f 367 % R - 024 i Q \0 002 % P - 020 i O 0002660 \0 002 % J - 031 i I \0 002 % H - 025 i G 0002700 \0 002 001 \f \0 257 \0 l \0 \0 \0 \0 \0 \0 \0 230 0002720 \0 240 = \ # \0 i [ \0 001 = X # \0 202 \f 0002740 001 371 001 \v \0 \0 \0 \0 = 330 ; 001 # \r B 004 0002760 = 324 # 001 016 004 \0 001 = 320 # \0 202 \f 001 365 0003000 375 \0 ] 313 001 \f \0 \r \0 \0 = Z 005 % @ 0003020 i @ \0 001 212 \0 " 005 i 032 \0 002 = 9 # \0 0003040 202 \f 001 364 001 \f \0 \0 \0 \0 = 020 Z 005 % 2 0003060 i 0 \0 001 212 \0 " 005 i \n \0 002 = + # \0 0003100 202 \f 001 364 001 016 \0 f \0 \0 \0 e \0 \0 = 376 0003120 Z 005 % ! i 036 \0 001 212 \0 " 005 i 370 \0 002 0003140 = 032 # \0 202 \f 001 364 % 361 - 022 i 360 \0 002 0003160 % 355 - 022 i 354 \0 002 % 351 - 017 i 350 \0 002 0003200 % 345 - 303 i 344 \0 002 \f 366 \0 222 \0 \0 \0 n 0003220 \0 \0 \0 220 \0 224 \0 345 001 * \0 0 001 214 \0 \0 0003240 \0 \0 \0 d 001 276 001 274 \0 g \0 j \0 k 001 | 0003260 \0 m 001 340 001 342 001 336 001 343 001 e \0 227 001 200 0003300 \0 305 \0 306 \0 310 001 344 \0 346 001 ! 001 # 001 % 0003320 001 ' 001 001 " 001 $ 001 & 001 345 001 K 001 L 0003340 001 M 001 N 001 d 001 177 001 ~ 001 } 001 213 001 235 0003360 001 254 001 255 001 275 001 277 001 337 001 341 \0 \0 0003376