$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>Stack.br 0000000 002 002 002 S \0 \0 \0 017 \0 \0 \0 257 \0 \0 \0 302 0000020 \0 \0 002 ; \0 \0 002 R \0 \0 \0 \0 \0 \0 \0 026 0000040 \0 @ \0 001 017 N X T U S E D S T K B 0000060 L O C K \0 @ \0 002 \r C O N T E X T 0000100 S W I T C H \0 @ \0 003 \r S t a c k 0000120 O v e r f l o w \0 @ \0 004 006 G e t 0000140 F X P \0 \0 A \0 005 006 S e t F X P \0 0000160 \0 P \0 006 006 B i C a l l \0 \0 @ \0 \a 0000200 \r G e t S t k B l k T y p e \0 A 0000220 \0 \b \r S e t S t k B l k T y p e 0000240 \0 \0 \0 \0 \b R A I D C o d e \0 \0 \0 0000260 \0 \0 \n S m a l l U n b o x \0 \0 020 0000300 \0 \0 \b S G e t B a s e \0 \0 \0 \0 \0 0000320 003 U s c \0 020 \0 \0 \b S P u t B a s 0000340 e \0 \0 \0 \0 \0 \n M k S m a l l P o 0000360 s \0 \0 \0 \0 \0 \b I G e t B a s e \0 0000400 \0 \0 \0 \0 \b I P u t B a s e \0 \0 020 0000420 \0 \0 \n A P u t B a s e 3 2 \0 \0 020 0000440 \0 \0 017 I n t e r r u p t E n a b 0000460 l e \0 020 \0 \0 004 l v K T \0 \0 a \0 \t 0000500 002 l p \0 \0 \0 \0 \0 \b C a l l S w a 0000520 t \0 \0 \0 \0 \0 006 C a l l F n \0 \0 \t 0000540 \0 001 \0 001 \0 002 \0 a \0 003 \0 213 \0 004 \0 237 0000560 \0 005 \0 250 \0 006 \0 261 \0 \a 001 ` \0 \b 001 j 0000600 \0 024 \0 344 001 x 001 x Z 001 \f 370 \0 \r \f 367 0000620 \t \r 027 C a l l t o N X T U S 0000640 E D S T K B L O C K 342 \0 i F \0 001 0000660 " 004 i D \0 001 B 005 375 \0 Z 006 " 005 9 C 0000700 346 \0 \f \0 \0 001 B 005 " 005 i b \0 001 9 a 0000720 345 \f 001 \a " 006 ) ^ i ^ \0 002 201 K 001 002 0000740 001 . " 005 203 \0 \f 022 \0 001 B \a " \a ) T 0000760 i R \0 002 201 K 001 030 9 P Z \b " 005 203 \0 0001000 * \b \f \0 \0 002 " 005 : \b 346 \0 B 005 " 005 0001020 ) X i X \0 002 " 005 203 \0 * \a : \b 355 \0 0001040 \f 017 \0 002 001 \f " 006 : \a 346 \0 B 006 " 005 0001060 : \a 346 \0 B 005 001 311 \0 \0 \0 \0 " 005 i K 0001100 \0 001 001 002 \0 004 \f 366 Z 001 \f 370 \0 \f \f 367 0001120 " 004 i 364 \0 001 B 005 " 005 i k \0 001 B 006 0001140 : 005 Z \b 205 \0 i e \0 001 212 \0 " \b i b 0001160 \0 002 205 \0 * 006 i ^ \0 002 " 005 9 \ 345 \f 0001200 001 005 \0 ( \0 \f \0 \0 002 " 004 001 \a \0 \0 0001220 240 \0 \0 310 \0 \0 001 \0 \0 376 \f 366 Z 001 \f 370 0001240 \0 \b \f 367 \t \n 020 S t a c k o v f 0001260 l w p u n t \0 342 \0 i 277 \0 001 \f 366 0001300 340 \0 \0 \0 Z 001 \f 370 \0 \a \f 367 205 \0 i 1 0001320 \0 001 \f 366 \0 \0 Z 001 \f 370 \0 \t \f 367 205 \0 0001340 * 004 i ( \0 002 \f 366 Z 001 \f 370 \0 020 \f 367 0001360 i a \0 \0 B 005 : 005 Z \a " 005 \f 213 \0 001 0001400 ) Z \f 340 212 \0 " \a \f t \0 002 " 005 9 233 0001420 346 \0 \f \v \0 001 B 006 " 006 203 \0 \f 005 \0 001 0001440 B \a " 006 i 265 \0 001 9 264 345 \r 001 021 001 004 0001460 \0 \0 \0 \0 \0 003 \t \t 017 N o C a l l 0001500 F n s p a c e 342 \0 i < \0 001 001 5 0001520 " 006 9 9 346 \0 ) 235 i 265 \0 002 " 006 9 3 0001540 346 \0 203 \0 * \a 9 / 355 \0 \f 1 \0 002 001 9 0001560 001 8 " 006 : \a 346 \0 B \b " \b i 211 \0 001 0001600 9 210 345 \r 001 \r \t \t 017 N o C a l l 0001620 F n s p a c e 342 \0 i 024 \0 001 : \a 0001640 Z \t " \b 203 \0 \f E \0 001 * \t 216 \0 J \a 0001660 i \r \0 \0 004 \0 001 025 " \a ) 005 i \b \0 002 0001700 001 \a \0 \0 \0 004 \f 355 \0 \f \0 \0 \0 207 \f 351 0001720 \0 003 \0 001 377 276 \0 \0 377 314 377 377 377 313 001 001 0001740 " 005 9 361 346 \0 * 006 9 356 356 \0 \f A \0 002 0001760 " 006 255 \0 \f 004 \0 002 " 006 203 \0 * 004 \f 005 0002000 \0 002 " 006 9 4 346 \0 ) 3 \f 006 \0 002 " 006 0002020 9 222 346 \0 255 \0 \f 006 \0 002 ! + 306 \0 B \b 0002040 " \b 375 P 347 \0 202 \r 001 004 " \b 203 \0 B \b 0002060 205 \0 : \b C \0 " 004 : \b C 001 205 \0 * \b 0002100 i 031 \0 002 \f 366 Z 001 \f 370 \0 \b \f 367 " 004 0002120 \f U \0 001 9 020 347 \0 \f 366 Z 001 \f 370 \0 \n 0002140 \f 367 " 004 * 005 \f ( \0 002 \f 366 \0 002 \0 016 0002160 \0 \r \0 \0 340 \0 \0 026 \0 \0 \0 \0 \0 \0 001 026 0002200 \0 \0 \0 \0 \0 204 \0 236 \0 Y \0 Z 201 e 001 # 0002220 201 p \0 247 \0 325 \0 326 200 200 200 ~ 200 177 001 " 0002240 001 036 001 v \0 \0 0002246