$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>MEM.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - S E P - 8 3 1 2 : 5 1 : 1 0
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > M E M .
0000120 ; 7 ) \r " 2 - S E P - 8 3
0000140 2 0 : 3 1 : 4 3 " r e c o m p
0000160 i l e d e x p r s : M K I .
0000200 N E W P A G E P R I N T P A G
0000220 E M A P D O C O N S T A N T
0000240 C O N S T A N T P i n W O R
0000260 K d a t e d \r " 2 - S E P
0000300 - 8 3 2 0 : 5 0 : 4 8 " ) \r (
0000320 F I L E C R E A T E D " 7 -
0000340 S E P - 8 3 1 2 : 5 0 : 4 5 "
0000360 { P H Y L U M } < L I S P C O
0000400 R E > S O U R C E S > M E M . ;
0000420 7 2 5 3 7 2 Q c h a n g e s
0000440 t o : ( F N S M K I . N E
0000460 W P A G E \r P R I N T P A G E
0000500 M A P ) ( V A R S M E M C O
0000520 M S ) p r e v i o u s d a t
0000540 e : " 2 9 - M A R - 8 3 1 6
0000560 : 4 0 : 4 9 " { P H Y L U M }
0000600 < L I S P C O R E > S O U R C E
0000620 S > M E M . ; 6 ) \r M K I . N E
0000640 X T P A G E D 1 \r ( P 1 I
0000660 P 0 A I 0 V P ) \0
0000700 O 002 \0 \0 001 021 001 @ n 377 377 361 221 h 020
0000720 ` \0 \0 @ 343 \n \0 \0 X ` \0 \0 360 231 @ l
0000740 377 344 k 330 b \0 260 343 @ l 377 345 Y n 001 \0
0000760 360 231 @ l 377 344 k 330 b \0 260 317 H I \n \0
0001000 \0 ` \0 \0 360 247 @ n 377 \0 345 I 330 020 I k
0001020 330 260 333 \0 ( 7 3 Q F A S T E L T
0001040 2 2 Q F A S T E L T ) \r ( 7
0001060 6 Q N O N P A G E 2 6 Q N
0001100 O N P A G E 2 1 5 Q M E M A
0001120 R R A Y ) \r N I L \r W r i t e o
0001140 u t P a g e D 1 \r ( P 0 A
0001160 I 1 V P I 0 F X )
0001200 \0 " 001 \0 \0 002 ` \0 \0 A 343 \n \0 \0 A l
0001220 377 345 \n \0 \0 021 001 \0 H j n 001 \0 @ g \0
0001240 \0 \r 005 \0 \0 h 020 \0 ( 3 6 Q A O U
0001260 T 1 6 Q F A S T E L T 7
0001300 F A S T E L T ) \r ( 3 2 Q S M
0001320 A L L P O S P 2 M E M A R R
0001340 A Y ) \r N I L \r M K I . N E W P
0001360 A G E D 1 \r ( P 2 P A G E
0001400 P 1 L O 1 P 0 A I
0001420 3 B L A N K F L G I 2
0001440 L O C K ? I 1 N O E R R O
0001460 R I 0 P T R ) \0 265 003 \0 \0
0001500 004 021 0 002 ` \0 \0 @ 343 343 \n \0 \0 X d `
0001520 \0 \0 360 262 030 277 ` \0 \0 @ 343 343 n 001 \0 `
0001540 \0 \0 \n \0 \0 X \v \0 \0 277 H @ n 377 377 345
0001560 343 Y \n \0 \0 ` \0 \0 360 250 @ o \0 \0 \0 \n
0001600 \0 \0 277 ` \0 \0 262 J o \0 \0 \0 ` \0 \0 \n
0001620 \0 \0 277 o \0 \0 \0 @ 265 005 ` \0 \0 343 343 `
0001640 \0 \0 \v \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0
0001660 277 o \0 \0 \0 @ 265 005 ` \0 \0 n 377 377 345 343
0001700 ` \0 \0 \v \0 \0 277 l 003 ` \0 \0 \n \0 \0 277
0001720 H I C 246 n 001 \0 \t \0 \0 215 ` \0 \0 265 \v
0001740 n 001 \0 \t \0 \0 027 \0 \0 \v \0 \0 B 224 @ k
0001760 \n \0 \0 @ 020 \0 ( 2 6 1 Q M K I .
0002000 L O C K P A G E S 2 5 2 Q F
0002020 A S T S E T A 2 4 4 Q W O R
0002040 D A R R A Y 2 3 0 Q W O R D
0002060 A R R A Y 2 1 5 Q S P A C E
0002100 S 2 0 4 Q P R I N T N U M
0002120 1 5 6 Q P R I N 1 1 4 3 Q
0002140 P R I N T N U M 1 2 0 Q P R
0002160 I N 1 1 0 0 Q H E L P 6 3
0002200 Q F A S T E L T 4 7 Q F A
0002220 S T S E T A 4 3 Q P O I N T
0002240 E R A R R A Y 1 3 Q F A S T
0002260 E L T ) \r ( 2 4 7 Q B L A N K
0002300 P A G E 2 3 4 Q B L A N K P
0002320 A G E 2 1 2 Q N E W P A G E
0002340 T R A C E 2 0 1 Q N E W P A
0002360 G E T R A C E 1 7 1 Q P T R
0002400 N I L 1 5 3 Q N E W P A G E
0002420 T R A C E 1 4 0 Q N E W P A
0002440 G E T R A C E 1 3 3 Q P T R
0002460 N I L 1 1 5 Q N E W P A G E
0002500 T R A C E 1 0 4 Q N E W P A
0002520 G E T R A C E 6 6 Q N O N P
0002540 A G E 4 0 Q N O N P A G E
0002560 2 7 Q M E M A R R A Y 2 0 Q
0002600 N O N P A G E 2 5 M E M A
0002620 R R A Y ) \r ( 1 6 3 Q ( F I X
0002640 3 1 0 Q ) 1 5 0 Q " , "
0002660 1 2 5 Q ( F I X 3 1 0 Q
0002700 ) 1 1 2 Q " p a g e " 7
0002720 5 Q " a l r e a d y a l l o
0002740 c a t e d " ) \r M K I . L O C K
0002760 P A G E S D 1 \r ( L ( 1 N
0003000 P A G E S 0 P T R ) F 0
0003020 L O C K E D P A G E S ) \0 017
0003040 \0 001 \0 002 @ 265 005 ` \0 \0 343 A 032 P 032 c
0003060 \0 020 \0 N I L \r ( 5 P T R N I L
0003100 ) \r N I L \r M K I . L O C K E D
0003120 P A G E P D 1 \r ( L ( 0 V
0003140 P ) F 2 L O C K E D P A G
0003160 E S ) \0 # 002 001 \0 001 R 021 021 001 H 003
0003200 265 004 h 020 001 271 @ I 001 375 361 252 @ I 001 I
0003220 002 330 375 361 221 i 020 H 002 X 260 345 \0 N I L
0003240 \r N I L \r N I L \r R E S E T M E
0003260 M O R Y D 1 \r ( P 1 I F
0003300 2 L O C K E D P A G E S )
0003320 \0 H 002 001 \0 \0 h c 004 ` \0 \0 263 $ n 001
0003340 \0 \t \0 \0 027 \0 \0 n 001 \0 ` \0 \0 \n \0 \0
0003360 027 \0 \0 n 001 \0 ` \0 \0 \n \0 \0 027 \0 \0 020
0003400 l 377 j 021 002 001 I H 361 221 h 020 ` \0 \0 I
0003420 ` \0 \0 \v \0 \0 277 I k 330 Y 260 354 \0 ( 7
0003440 7 Q F A S T S E T A 4 5 Q
0003460 P O I N T E R A R R A Y 3 1 Q
0003500 P O I N T E R A R R A Y 1 5
0003520 Q W O R D A R R A Y ) \r ( 7 4
0003540 Q N O N P A G E 2 7 0 Q M
0003560 E M A R R A Y 5 0 Q M E M A
0003600 R R A Y 4 2 Q N O N P A G E
0003620 2 3 4 Q N O N P A G E 2 2
0003640 6 Q N O N P A G E 2 0 Q N
0003660 O N P A G E 5 M E M A R R A
0003700 Y ) \r N I L \r P R I N T M E M O
0003720 R Y A 0 0 2 5 D 1 \r ( N A M E
0003740 E R R O R S E T L ( 2 E
0003760 R R O R S E T . W 1 E R R O
0004000 R S E T . V 0 E R R O R S E
0004020 T . U ) P 4 J P 2 A
0004040 P 1 S E G F 5 M A C
0004060 R O Y ) \0 ~ 005 001 \0 003 l 377 j 021 022
0004100 002 I H 361 225 023 h c \n i 020 ` \0 \0 I \n
0004120 \0 \0 Z ` \0 \0 360 263 [ o \0 \0 \0 i \n \0
0004140 \0 277 o \0 \0 \0 I i \v \0 \0 277 l 004 h i
0004160 \v \0 \0 277 l 377 j 021 002 004 L K 361 263 / J
0004200 L \n \0 \0 ` \0 \0 360 263 036 L i \n \0 \0 277
0004220 I 341 L 344 \t \0 \0 224 o \0 \0 \0 203 o \0 \0
0004240 \0 i \n \0 \0 277 L k 330 \ 260 321 023 i \t \0
0004260 \0 277 I k 330 Y 260 214 \0 ( 1 6 5 Q T
0004300 E R P R I 1 5 1 Q P R I N 1
0004320 1 3 3 Q M K I . L O C K E D
0004340 P A G E P 1 2 3 Q P R I N 1
0004360 1 1 0 Q F A S T E L T 6 7
0004400 Q T A B 5 7 Q P R I N T N
0004420 U M 4 5 Q P R I N 1 2 6 Q
0004440 F A S T E L T ) \r ( 1 1 3 Q
0004460 N O N P A G E 3 2 Q N O N P
0004500 A G E 2 2 2 Q M E M A R R A
0004520 Y ) \r ( 1 4 5 Q " , " 1 4
0004540 0 Q " * , " 5 2 Q ( F I
0004560 X 3 1 0 Q ) 4 1 Q " s e
0004600 g m e n t " ) \r P R I N T M E
0004620 M O R Y D 1 \r ( P 3 R E S
0004640 E T S T A T E P 2 M A C R
0004660 O Y P 0 O L D V A L U E
0004700 F 4 R E S E T V A R S L S T
0004720 ) \0 < 004 001 \0 \0 l \b \t \0 \0 021 1 003
0004740 g \0 \0 H h 032 032 h 032 T 032 c \b Y o \0
0004760 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I 002 c
0005000 \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b \0 \0
0005020 020 J 020 \0 ( 6 7 Q E R R O R !
0005040 6 2 Q A P P L Y 3 7 Q P R
0005060 I N T M E M O R Y A 0 0 2 5 4
0005100 R A D I X ) \r ( 5 3 Q R A D
0005120 I X 4 3 Q E R R O R 3 4 Q
0005140 I N T E R N A L 1 2 Q R A
0005160 D I X ) \r ( 3 1 Q ( D U M M Y
0005200 . F O R . E R R O R S E T ) ) \r
0005220 P R I N T P A G E M A P D 1 \r
0005240 ( P 6 V P P 5 V P L
0005260 P 3 P M P P 2 L A S T
0005300 S E G P 1 V P H I 0
0005320 T O F I L E ) \0 223 \a \0 \0 001 n 001
0005340 377 j 021 " 003 I H 361 221 h 020 o \0 \0 \0 I
0005360 \n \0 \0 [ n 377 377 360 263 q l 037 j 021 022 006
0005400 M L 361 263 e o \0 \0 \0 K M 330 \n \0 \0 j
0005420 360 263 Q M I 340 340 340 340 340 344 276 J N 343 Z
0005440 360 263 037 @ \t \0 \0 277 o \0 \0 \0 @ \n \0 \0
0005460 277 o \0 \0 \0 J @ \v \0 \0 277 @ \t \0 \0 277
0005500 N l 377 345 @ \n \0 \0 277 N \t \0 \0 224 o \0
0005520 \0 \0 203 o \0 \0 \0 @ \n \0 \0 277 k @ \n \0
0005540 \0 277 M k 330 ] 260 233 023 I k 330 Y 261 377 y
0005560 \0 ( 2 0 2 Q S P A C E S 1 7
0005600 4 Q P R I N 1 1 5 6 Q M K
0005620 I . L O C K E D P A G E P 1 5
0005640 1 Q P R I N 1 1 4 0 Q T E
0005660 R P R I 1 3 3 Q P R I N T N
0005700 U M 1 2 1 Q P R I N 1 1 1
0005720 0 Q T E R P R I 6 0 Q I .
0005740 G E T B A S E 2 4 Q I . G E
0005760 T B A S E ) \r N I L \r ( 1 7 0 Q
0006000 " , " 1 6 3 Q " * , " 1
0006020 2 6 Q ( F I X 3 1 0 Q )
0006040 1 1 5 Q " s e g m e n t "
0006060 5 2 Q 5 2 0 0 0 0 0 Q 2 0 Q
0006100 5 4 0 0 0 0 0 Q ) \r D O C O N
0006120 S T A N T D 1 \r ( I 1 F O
0006140 R M I 0 F O R M A L S F
0006160 1 A R G S ) \0 ' 001 001 001 002 @
0006200 Q A \v \0 \0 b 002 Q 214 d 021 001 \0 H 001 H
0006220 \n \0 \0 022 225 002 003 265 362 i 201 277 h 224 A \t
0006240 \0 \0 020 A 020 \0 ( 4 2 Q E V A L
0006260 2 3 Q C O N S T A N T P 5
0006300 S U B P A I R ) \r N I L \r N I L
0006320 \r C O N S T A N T P D 1 \r ( I
0006340 0 X F 1 C O N S T A N
0006360 T F N S F 2 S I M P L E F
0006400 N S ) \0 > 001 002 \0 001 @ h 360 265 9 @
0006420 i 360 265 4 @ d d 005 001 245 d 005 002 241 005 003
0006440 263 & 005 \a 265 " @ 001 Q 034 265 034 @ 001 R 034
0006460 264 026 @ 214 d 021 001 \0 H 001 H \n \0 \0 022 264
0006500 \a 002 003 265 361 i 020 \0 ( 6 3 Q C O N
0006520 S T A N T P ) \r N I L \r N I L \r
0006540 I . P U T B A S E D 1 \r ( I
0006560 2 V I 1 D I 0 P T
0006600 R ) \0 4 003 \0 \0 003 021 0 002 @ A 330 Z
0006620 343 343 270 J 343 l 377 345 271 J l 377 345 Z ` \0
0006640 \0 H \n \0 \0 I \n \0 \0 X d ` \0 \0 360 225
0006660 277 \b \0 \0 277 H J B \v \0 \0 020 \0 ( 6 1
0006700 Q F A S T S E T A W 5 2 Q
0006720 I N V A L I D A D D R 3 7 Q
0006740 F A S T E L T 3 3 Q F A S T
0006760 E L T ) \r ( 4 4 Q N O N P A G
0007000 E 2 7 Q M E M A R R A Y ) \r
0007020 N I L \r I . G E T B A S E D 1
0007040 \r ( I 1 D I 0 P T R )
0007060 \0 3 003 \0 \0 002 021 0 002 @ A 330 Z 343 343
0007100 270 J 343 l 377 345 271 J l 377 345 Z ` \0 \0 H
0007120 \n \0 \0 I \n \0 \0 X d ` \0 \0 360 225 277 \b
0007140 \0 \0 277 H J \n \0 \0 020 \0 ( 6 0 Q F
0007160 A S T E L T W 5 2 Q I N V A
0007200 L I D A D D R 3 7 Q F A S T
0007220 E L T 3 3 Q F A S T E L T )
0007240 \r ( 4 4 Q N O N P A G E 2 7
0007260 Q M E M A R R A Y ) \r N I L \r
0007300 I . P U T B A S E P T R D 1 \r
0007320 ( I 2 V I 1 D I 0
0007340 P T R ) \0 I 004 \0 \0 003 B 265 005 `
0007360 \0 \0 021 1 003 @ A 330 [ 343 343 271 K 343 l 377
0007400 345 272 K l 377 345 [ ` \0 \0 I \n \0 \0 J \n
0007420 \0 \0 Y d ` \0 \0 360 225 277 \b \0 \0 277 I K
0007440 H 343 343 \v \0 \0 I K k 330 H n 377 377 345 \v
0007460 \0 \0 H 020 \0 ( 1 0 5 Q F A S T S
0007500 E T A W 7 1 Q F A S T S E T
0007520 A W 6 0 Q I N V A L I D A D
0007540 D R 4 5 Q F A S T E L T 4
0007560 1 Q F A S T E L T ) \r ( 5 2 Q
0007600 N O N P A G E 3 5 Q M E M
0007620 A R R A Y 5 P T R N I L ) \r
0007640 N I L \r I . G E T B A S E P T R
0007660 D 1 \r ( I 1 D I 0 P
0007700 T R ) \0 E 003 \0 \0 002 021 0 002 @ A 330
0007720 Z 343 343 270 J 343 l 377 345 271 J l 377 345 Z `
0007740 \0 \0 H \n \0 \0 I \n \0 \0 X d ` \0 \0 360
0007760 225 277 \b \0 \0 277 H J \n \0 \0 l 377 345 341 341
0010000 H J k 330 \n \0 \0 330 d j 360 220 h 020 \0 (
0010020 7 4 Q F A S T E L T W 6 0 Q
0010040 F A S T E L T W 5 2 Q I N
0010060 V A L I D A D D R 3 7 Q F A
0010100 S T E L T 3 3 Q F A S T E L
0010120 T ) \r ( 4 4 Q N O N P A G E
0010140 2 7 Q M E M A R R A Y ) \r N I
0010160 L \r I . A D D B A S E D 1 \r (
0010200 L ( 1 D 0 P T R ) ) \0
0010220 \n \0 \0 \0 002 @ 265 005 ` \0 \0 A 330 020 \0 N
0010240 I L \r ( 5 P T R N I L ) \r N I
0010260 L \r I . V A G 2 D 1 \r ( L (
0010300 1 L O 0 H I ) ) \0 \f \0 \0
0010320 \0 002 @ 341 341 A 330 d j 360 220 h 020 \0 N I
0010340 L \r N I L \r N I L \r ( P R E T T
0010360 Y C O M P R I N T M E M C O M
0010400 S ) \r ( R P A Q Q M E M C O M
0010420 S ( ( F N S M K I . N E X T
0010440 P A G E W r i t e o u t P a g
0010460 e M K I . N E W P A G E M K
0010500 I . L O C K P A G E S M K I .
0010520 L O C K E D P A G E P R E S E
0010540 T M E M O R Y \r P R I N T M E
0010560 M O R Y P R I N T P A G E M A
0010600 P ) ( D E C L A R E : E V A
0010620 L @ C O M P I L E ( V A R S
0010640 ( P T R N I L 0 ) ( P T R N
0010660 O B I N D 1 ) ) D O N T C O
0010700 P Y ( A D D V A R S ( \r S I
0010720 M P L E F N S I . H I L O C
0010740 I . L O L O C I . V A G 2 I
0010760 . A D D B A S E P R O G N P
0011000 R O G 1 ) ( C O N S T A N T F
0011020 N S Q U O T E C O N S T A N
0011040 T ) ) ( R E C O R D S \r A L
0011060 T O P O I N T E R ) ( F N S
0011100 D O C O N S T A N T C O N S T
0011120 A N T P ) ) ( V A R S ( N E
0011140 W P A G E T R A C E ) ( B L A
0011160 N K P A G E ) ) ( F N S I .
0011200 P U T B A S E I . G E T B A S
0011220 E \r I . P U T B A S E P T R
0011240 I . G E T B A S E P T R I . A
0011260 D D B A S E I . V A G 2 ) (
0011300 D E C L A R E : E V A L @ C O
0011320 M P I L E D O N T C O P Y (
0011340 I F P R O P ( M A C R O A L
0011360 T O M A C R O \r D M A C R O )
0011400 . D O A D D B A S E . I . H
0011420 I L O C I . L O L O C I . G
0011440 E T B A S E P T R I . A D D B
0011460 A S E I . P U T B A S E I .
0011500 G E T B A S E I . P U T B A S
0011520 E P T R I . P A G E L O C \r
0011540 I . V A G 2 ) ) ( D E C L A R
0011560 E : D O N T E V A L @ L O A D
0011600 D O N T C O P Y E V A L @ C
0011620 O M P I L E W H E N ( S E L E
0011640 C T Q ( C O M P I L E M O D E
0011660 ) ( ( A L T O D ) N I L )
0011700 T ) ( \r F I L E S ( L O A
0011720 D C O M P ) D C O D E F O R 1
0011740 0 ) ) ( V A R S ( M E M A R
0011760 R A Y ) ) ( G L O B A L V A R
0012000 S M E M A R R A Y N O N P A
0012020 G E N O N P A G E 2 P T R N
0012040 I L B L A N K P A G E \r N E
0012060 W P A G E T R A C E ) ( D E C
0012100 L A R E : D O N T E V A L @ L
0012120 O A D D O E V A L @ C O M P I
0012140 L E D O N T C O P Y C O M P
0012160 I L E R V A R S ( A D D V A R
0012200 S ( N L A M A ) ( N L A M L
0012220 \r D O C O N S T A N T ) ( L
0012240 A M A ) ) ) ) ) \r ( R P A Q Q
0012260 P T R N I L 0 ) \r ( R P A Q Q
0012300 P T R N O B I N D 1 ) \r ( R
0012320 P A Q Q N E W P A G E T R A C
0012340 E N I L ) \r ( R P A Q Q B L
0012360 A N K P A G E N I L ) \r ( R P
0012400 A Q Q M E M A R R A Y N I L
0012420 ) \r ( P U T P R O P S M E M
0012440 C O P Y R I G H T ( " X e r o
0012460 x C o r p o r a t i o n " 3
0012500 6 7 6 Q 3 6 7 7 Q ) ) \r N I L
0012520 \r
0012521