$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>PupSubrs.br
0000000 002 002 003 t \0 \0 \0 017 \0 \0 001 035 \0 \0 001 2
0000020 \0 \0 003 K \0 \0 003 s \0 \0 \0 \0 \0 \0 \0 '
0000040 \0 ! \0 \0 \a P u p Z o n e \0 ! \0 \0
0000060 005 X t r a Q \0 ! \0 \0 005 X U s e s
0000100 \0 @ \0 001 \n O P E N S O C K E T \0
0000120 \0 @ \0 002 \a O p e n S o c \0 @ \0 003
0000140 \a R E A D P U P \0 @ \0 004 \b W R I
0000160 T E P U P \0 \0 @ \0 005 \v C L O S E
0000200 S O C K E T \0 @ \0 006 \b C l o s e
0000220 S o c \0 \0 @ \0 \a \b S t a r t P u
0000240 p \0 \0 A \0 \b 006 S o c k e t \0 \0 A
0000260 \0 \t \n S o c H e a d C h k \0 \0 A
0000300 \0 \n \v G e t E x t r a P B I \0 \0
0000320 \0 \0 \n M k S m a l l P o s \0 \0 \0
0000340 \0 \0 \n S m a l l U n b o x \0 \0 \0
0000360 \0 \0 \b A l l o c a t e \0 \0 \0 \0 \0
0000400 004 Z e r o \0 \0 \0 \0 \0 020 O p e n L
0000420 e v e l 1 S o c k e t \0 \0 020 \0 \0
0000440 005 l v N I L \0 \0 \0 \0 \a D e q u e
0000460 u e \0 \0 \0 \0 005 E q N I L \0 \0 \0 \0
0000500 \t M o v e W o r d s \0 \0 \0 \0 006 E
0000520 m A d d r \0 \0 \0 \0 \0 003 M i n \0 \0
0000540 \0 \0 \n R e l e a s e P B I \0 \0 020
0000560 \0 \0 \b X G e t B a s e \0 \0 \0 \0 \0
0000600 017 m a x P u p D a t a B y t e s
0000620 \0 \0 \0 \0 \b R A I D C o d e \0 \0 \0
0000640 \0 \0 006 G e t P B I \0 \0 \0 \0 \0 005 B
0000660 l o c k \0 \0 \0 \0 \v C o m p l e t
0000700 e P u p \0 020 \0 \0 004 l v K T \0 \0 \0
0000720 \0 \0 021 C l o s e L e v e l 1 S o
0000740 c k e t \0 \0 \0 \0 004 F r e e \0 \0 \0
0000760 \0 \0 016 I n i t i a l i z e Z o n
0001000 e \0 \0 \0 \0 \0 \r I n i t P u p L e
0001020 v e l 1 \0 020 \0 \0 \b C o n t e x t
0001040 Q \0 \0 \0 \0 \0 \a E n q u e u e \0 \0
0001060 \0 \0 \a s o c k e t Q \0 \n \0 004 \0 001
0001100 \0 005 \0 023 \0 006 \0 0 \0 \a \0 232 \0 \b 001 *
0001120 \0 \t 001 6 \0 \n 001 B \0 \v 001 { \0 \f 001 256
0001140 \0 \r 001 366 002 030 002 030 Z 001 \f 370 \0 \f \f 367
0001160 " 004 i C \0 001 B \b " 005 i ? \0 001 212 \0
0001200 " \b i W \0 002 i V \0 001 \f 366 Z 001 \f 370
0001220 \0 020 \f 367 % P ) P i P \0 002 B 006 ! N
0001240 306 \0 B \a " \a ) K i K \0 002 " 004 : \a
0001260 C 001 " 005 : \a C 002 " 006 * \a i B \0 002
0001300 " 006 001 001 \f 366 Z 001 \f 370 \0 022 \f 367 B \b
0001320 " 004 i ] \0 001 B \t : \t 372 \f 001 003 \0
0001340 001 \ " \t 9 W 346 \0 i V \0 001 B \n : \n
0001360 372 \f 001 004 \v 001 Q \0 \0 " \n 9 M 346 \0
0001400 B \v : \v # \0 203 \0 202 220 B \f " \b 9 027
0001420 345 J 001 006 " 006 i P \0 001 202 \r 001 023 " \v
0001440 i L \0 001 : \f Z 003 * 005 i H \0 003 001 (
0001460 \0 \0 \0 \0 \0 \0 \0 \r \0 \0 \0 \f \0 003 \0 \0
0001500 \0 \0 " \v i : \0 001 9 T Z 003 * 005 i 6
0001520 \0 003 " \f 9 037 345 \0 B 016 " \a i 316 \0 001
0001540 212 \0 " 016 i G \0 002 B \f " \v 9 B 346 \0
0001560 i $ \0 001 : \f Z 003 * 006 i \0 003 " \n
0001600 i D \0 001 " \f i 326 \0 001 001 \a \0 \0 \f 355
0001620 \0 004 \0 \v \0 \0 \0 \t \f 366 Z 001 \f 370 \0 021
0001640 \f 367 B \a " 004 i 363 \0 001 B \b : \b 372 \f
0001660 001 006 _ 001 P \0 \0 \0 \0 \0 \0 " 005 \f \0
0001700 \0 001 203 \0 202 220 B \t % H 202 220 9 343 346 \0
0001720 * \t 214 J 001 020 \t \b \f P u p t o o
0001740 l o n g \0 342 \0 * 005 i ] \0 002 001 e
0001760 \0 \n \0 \0 " \b 254 \0 i W \0 002 B \n : \n
0002000 372 \r 001 004 001 017 001 \r \0 \0 " \b i N \0 001
0002020 B \n : \n 372 \r 001 003 001 005 001 003 i H \0 \0
0002040 001 352 " \n 9 271 346 \0 B \v " \a 9 210 345 J
0002060 001 006 " 006 i 301 \0 001 202 \r 001 020 : 005 Z \r
0002100 " \v i 273 \0 001 : \t Z 003 212 \0 " \r i 266
0002120 \0 003 001 036 \f 355 \0 1 \0 \0 : 005 Z \r " \v
0002140 i 254 \0 001 9 306 Z 003 212 \0 " \r i 247 \0 003
0002160 : 006 Z \r " \v 9 275 346 \0 i 237 \0 001 * \t
0002200 9 270 355 \0 J 003 212 \0 " \r i 230 \0 003 " \b
0002220 * \n i O \0 002 202 \r 001 \v " \n i K \0 001
0002240 \0 001 \v \0 \0 \0 \0 \0 \0 001 \a \0 \0 " \n
0002260 i 254 \0 001 201 001 001 \f 366 Z 001 \f 370 \0 \t
0002300 \f 367 " 004 i J \0 001 i I \0 001 \f 001 001
0002320 \f 366 Z 001 \f 370 \0 \t \f 367 " 004 i S \0 001
0002340 % R * 004 i Q \0 002 \f 366 Z 001 \f 370 \0 016
0002360 \f 367 " 004 * 005 i I \0 002 E E 9 G Z 003
0002400 % B ( \0 i D \0 003 % > ) B i V \0 002
0002420 E U % T ) = i S \0 002 % 237 9 7 346 \0
0002440 ) 7 \f 344 9 M 356 \0 J 006 375 P Z \a 001 020
0002460 \0 \0 \0 \0 = C Z \t % & * 006 i > \0 002
0002500 212 \0 " \t i N \0 002 " \a 203 \0 B \a " \a
0002520 9 I 344 J 001 360 \f 366 \0 223 \0 \0 Z 001 \f 370
0002540 \0 \v \f 367 " 004 i h \0 001 B 005 = f Z 006
0002560 : 006 ; \0 Z 006 " 006 : 005 345 \f 001 \n " 005
0002600 001 \0 \0 \0 g \0 \0 \0 \0 \0 026 \0 \0 \0 002
0002620 : 006 372 \f 001 356 \t \v 022 N o t a n
0002640 o p e n s o c k e t \0 342 \0 * 004
0002660 i F \0 002 205 \0 001 005 \0 i \0 \0 \0 l \0 \t
0002700 \f 366 Z 001 \f 370 \0 016 \f 367 " 004 9 ] 346 \0
0002720 B 006 " 005 9 Z 346 \0 B \a 375 P Z \b 001 3
0002740 \0 \0 \0 003 " \b : 006 236 \0 # \0 * \b : \a
0002760 276 \0 + \0 245 \r 001 $ " 005 i H \0 001 \t 022
0003000 ! S o c k e t / h e a d e r m
0003020 i s m a t c h f o r s o c k
0003040 e t 342 \0 B \n " 004 i 3 \0 001 212 \0 " \n
0003060 i 006 \0 002 001 003 \0 I \0 \0 001 \v 001 037 " \b
0003100 203 \0 B \b " \b 9 244 344 J 001 315 204 \0 001 001
0003120 \f 366 Z 001 \f 370 \0 \n \f 367 % 260 i 032 \0 001
0003140 B 005 : 005 372 \r 001 016 " 005 ) 024 i 250 \0 002
0003160 " 004 : 005 C 002 % 242 : 005 C 001 % \f 203 \0
0003200 E \n " 005 001 004 \0 005 \0 020 \0 321 \f 366 \0 f
0003220 \0 227 \0 024 \0 \0 \0 ' 001 217 001 252 002 027 \0 \0
0003240 \0 e \0 \0 \0 \0 \0 \0 001 z \0 \0 001 y 001 e
0003260 001 ! 002 024 001 350 001 251 001 253 \0 m 201 3 002 025
0003300 \0 250 \0 252 \0 251 \0 306 002 022 200 254 \0 371 001 353
0003320 001 001 # 001 f 201 035 001 216 001 220 001 221 001 223
0003340 201 N 001 275 001 351 \0 \0
0003350