$ od -c -N 50000 [eris]<Lisp>Harmony>BCPL>BCPLENV.DM!1>MiscSubrs.br 0000000 002 002 001 223 \0 \0 \0 017 \0 \0 \0 311 \0 \0 \0 344 0000020 \0 \0 001 x \0 \0 001 222 \0 \0 \0 \0 \0 \0 \0 031 0000040 \0 @ \0 001 016 B A C K G R O U N D S 0000060 U B R \0 \0 @ \0 002 006 C L O C K 0 \0 0000100 \0 @ \0 003 \b D A Y T I M E 0 \0 \0 @ 0000120 \0 004 \v S E T D A Y T I M E 0 \0 @ 0000140 \0 005 \b N O O P S U B R \0 \0 @ \0 006 0000160 \t U s e r N a m e 0 \0 @ \0 \a \f S 0000200 E R I A L N U M B E R \0 \0 A \0 \b 0000220 \r U n i m p l e m e n t e d \0 @ 0000240 \0 \t \t X t r a S u b r 0 \0 @ \0 \n 0000260 \t X t r a S u b r 1 \0 @ \0 \v \t X 0000300 t r a S u b r 2 \0 @ \0 \f \t X t r 0000320 a S u b r 3 \0 @ \0 \r \t X t r a S 0000340 u b r 4 \0 020 \0 \0 005 l v N I L \0 \0 0000360 \0 \0 005 T i m e r \0 020 \0 \0 006 l v V 0000400 P t r \0 \0 020 \0 \0 \n X P u t B a s 0000420 e 3 2 \0 \0 \0 \0 \0 \f R e a d C a l 0000440 e n d a r \0 \0 020 \0 \0 \n X G e t B 0000460 a s e 3 2 \0 \0 \0 \0 \0 \v S e t C a 0000500 l e n d a r \0 \0 \0 \0 \b C a l l S 0000520 w a t \0 \0 \0 \0 \0 \v U p d a t e C 0000540 h a i n \0 \0 \0 \0 \a F l u s h V M 0000560 \0 \0 \0 \0 016 W R I T E D I R T Y P 0000600 A G E \0 \0 \0 \0 \0 \t N P A G E S B 0000620 I T \0 \r \0 001 \0 001 \0 002 \0 \a \0 003 \0 025 0000640 \0 004 \0 % \0 005 \0 2 \0 006 \0 8 \0 \a \0 ? 0000660 \0 \b \0 F \0 \t \0 [ \0 \n \0 b \0 \v \0 j 0000700 \0 \f \0 { \0 \r \0 204 \0 223 \0 223 Z 001 \f 370 0000720 \0 006 \f 367 \0 \f 366 Z 001 \f 370 \0 \t \f 367 0000740 \0 i N \0 001 " 004 ( 004 \f \0 \0 002 " 004 0000760 001 001 \f 366 Z 001 \f 370 \0 \n \f 367 : 004 Z 006 0001000 \f i M \0 001 212 \0 " 006 \f 020 \0 002 " 004 0001020 001 001 \f 366 Z 001 \f 370 \0 \b \f 367 " 004 \f \0 0001040 \0 001 021 i H \0 001 " 004 001 001 \f 366 Z 001 0001060 \f 370 \0 006 \f 367 1 \f 366 Z 001 \f 370 \0 006 0001100 \f 367 i P \0 \0 \f 366 Z 001 \f 370 \0 006 \f 367 0001120 i I \0 \0 \f 366 Z 001 \f 370 \0 \a \f 367 \t \f 0001140 025 S u b r n o t i m p l e m 0001160 e n t e d ! 342 \0 i 6 \0 001 \f 366 \0 \0 0001200 Z 001 \f 370 \0 006 \f 367 i / \0 \0 \f 366 Z 001 0001220 \f 370 \0 006 \f 367 i ) \0 \0 \f 366 \0 \0 Z 001 0001240 \f 370 \0 \t \f 367 B 005 " 005 375 P 345 K 001 004 0001260 = 001 006 \0 \0 " 004 i 031 \0 001 001 001 \f 366 0001300 Z 001 \f 370 \0 \n \f 367 " 004 * 005 i 020 \0 002 0001320 \f 366 Z 001 \f 370 \0 \b \f 367 " 004 i \t \0 001 0001340 \f 366 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0001360 \0 031 \0 \0 \0 \0 \0 \0 \0 220 \0 \0 \0 \0 \0 \0 0001400 \0 214 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 200 s \0 Z 0001420 200 , 200 \0 i 200 * \0 u \0 215 \0 216 \0 217 0001440 \0 221 \0 222 \0 \0 0001446