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