$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>VMEM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 4 - O c t - 8 6 1 7 : 3 8 : 3
0000140 0 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > V M E
0000200 M . ; 1 3 006 001 1 7 6 5 4 \r
0000220 \r c h a n g e s t
0000240 o % : ( V A R S V M E M C
0000260 O M S ) \r \r p r e v
0000300 i o u s d a t e % : " 1 3 -
0000320 S e p - 8 6 1 7 : 4 0 : 4 8 "
0000340 { E R I S } < L I S P C O R E
0000360 > L I B R A R Y > V M E M . ; 1
0000400 2 ) \r \r \r ( * " \r C o p y r i
0000420 g h t ( c ) 1 9 8 2 , 1 9
0000440 8 4 , 1 9 8 5 , 1 9 8 6 b
0000460 y X e r o x C o r p o r a t
0000500 i o n . A l l r i g h t s
0000520 r e s e r v e d . \r " ) \r \r (
0000540 P R E T T Y C O M P R I N T V
0000560 M E M C O M S ) \r \r ( R P A Q Q
0000600 006 002 V M E M C O M S 006 001 ( (
0000620 F N S I N I T V M E M R E O
0000640 P E N V M F I L E V V A G 2 )
0000660 \r
0000700 ( I N I T V A R S ( V M E
0000720 M F I L E ) ) \r
0000740 ( F N S V G
0000760 E T B A S E 0 V P U T B A S E
0001000 0 V G E T B A S E P T R 0 V
0001020 P U T B A S E P T R 0 I N V A
0001040 L I D A D D R ) \r
0001060 ( C O M S
0001100 ( F N S P R I N T V M E N D
0001120 V M P R I N T ) \r
0001140
0001160 ( D E C L A R E % : D O N T C
0001200 O P Y ( C O N S T A N T S N
0001220 O P A G E ) ) ) \r
0001240 ( F N S O
0001260 P E N V M F I L E U N M A P V
0001300 M C L O S E V M E M F I L E
0001320 M A P V M P A G E V B I N 1
0001340 V B O U T 1 V B I N 2 V B O
0001360 U T 2 ) \r
0001400 ( F N S S E T V M
0001420 P T R V M P A G E P ) \r
0001440 ( D
0001460 E C L A R E % : E V A L @ C O
0001500 M P I L E D O N T C O P Y (
0001520 M A C R O S * V M A C R O S
0001540 ) \r
0001560 ( R E C O R
0001600 D S R E M O T E P O I N T E R
0001620 ) \r
0001640 D O N T E V
0001660 A L @ L O A D \r
0001700
0001720 ( P ( O R ( S E L E C T Q
0001740 ( A N D ( G E T D ' C O M P
0001760 I L E M O D E ) \r
0002000
*
0002040 ( C O M P I L E M O
0002060 D E ) ) \r
0002100
0002120 ( ( A L T
0002140 O D ) \r
0002160
0002200 T ) \r
0002220
*
0002260 N I L ) \r
0002300
0002320 ( F I L E S L
0002340 O A D ( L O A D C O M P ) \r
0002360
*
0002420 D C O D E F O R 1 0 )
0002440 ) ) ) \r
0002460 ( C O M S ( F N S
0002500 V T Y P E D P O I N T E R \ R
0002520 E M O T E P O I N T E R . D E F
0002540 P R I N T ) \r
0002560 ( I
0002600 N I T R E C O R D S R E M O T
0002620 E P O I N T E R ) \r
0002640
0002660 ( D E C L A R E % : D O N T
0002700 E V A L @ L O A D D O C O P Y
0002720 ( P ( D E F P R I N T ' R
0002740 E M O T E P O I N T E R ' \r
0002760
*
0003060 \ R E M O T E P O I N T E R . D
0003100 E F P R I N T ) ) ) ) \r
0003120 ( A D
0003140 D V A R S ( V M E M V A R S
0003160 ( P G E M P T Y ( F I X P A R
0003200 R A Y 2 5 6 ) ) \r
0003220
0003240 ( P G T A
0003260 B ( P O I N T E R A R R A Y
0003300 2 5 6 P G E M P T Y ) ) \r
0003320
0003340 (
0003360 R D S Y S I N I T T ) ) ) \r
0003400
0003420 ( G L O B A L V A R S P G T A
0003440 B P G E M P T Y V M E M F I
0003460 L E X V M E M F I L E F I R
0003500 S T P M T ) \r
0003520 ( C O M S ( F
0003540 N S P O I N T E R A R R A Y
0003560 W O R D A R R A Y F I X P A R
0003600 R A Y ) \r
0003620 ( P (
0003640 M A P C ' ( ( E L T F A S T
0003660 E L T F A S T E L T N F A S
0003700 T E L T W ) \r
0003720
0003740 ( S E T A F
0003760 A S T S E T A F A S T S E T A
0004000 N F A S T S E T A W ) \r
0004020
0004040 (
0004060 G E T H A S H I G E T H A S H
0004100 ) \r
0004120
0004140 ( P U T H A S H I P U
0004160 T H A S H ) ) ( F U N C T I O
0004200 N ( L A M B D A \r
0004220
*
0004300 ( X ) \r
0004320
*
0004420 ( M A P C ( C D R X ) \r
0004440
*
0004540 ( F U N C T I O N \r
0004560
*
0004660 ( L A M B D A (
0004700 Y ) \r
0004720
*
0005020 ( M O V D ? ( C A R X )
0005040 \r
0005060
*
0005160 Y ) ) ) ) ) ) ) )
0005200 ) ) ) \r ( D E F I N E Q \r \r ( 006
0005220 004 I N I T V M E M 006 001 \r ( L
0005240 A M B D A ( F I L E W R I T
0005260 E A B L E ) 006 006 006 001
0005300
0005320 006 006 (
0005340 * b v m % : " 1 3 - S e p -
0005360 8 6 1 7 : 4 0 " ) 006 001 \r
0005400 ( C O N D \r ( V
0005420 M E M F I L E ( 006 002 C L O S E
0005440 V M E M F I L E 006 001 ) ) ) \r
0005460 ( C O N D \r (
0005500 ( N L I S T P F I L E ) \r
0005520 ( S E T Q F I L E
0005540 ( 006 002 O P E N V M F I L E 006 001
0005560 ( O R F I L E ' L I S P .
0005600 S Y S O U T ) \r
0005620
0005640 W R I T E A B L E ) ) \r
0005660 ( S E T Q V M O U
0005700 T F I L E X ( A N D W R I T
0005720 E A B L E V M E M F I L E ) )
0005740 \r ( 006 002 f o r 006
0005760 001 X 006 002 i n 006 001 V M E M V
0006000 A R S 006 002 d o 006 001 ( O R (
0006020 B O U N D P ( C A R X ) ) \r
0006040
*
0006100 ( S E T ( C A R X ) \r
0006120
*
0006160 ( E V A L ( C A D
0006200 R X ) ) ) ) ) \r
0006220 ( 006 002 U N M A P V M 006 001 )
0006240
*
0006300 006 006 ( * R
0006320 e a d t h e p a g e m a p
0006340 p a g e s a n d r e c o r d
0006360 \r 006 001
0006400
*
0006460 006 006 t h e p a g e a d d r
0006500 e s s e s . ) 006 001 \r
0006520 ( V R E A D P A G E M A P )
0006540 ) \r ( T ( O P E
0006560 N R E M O T E V M E M F I L E
0006600 ( C A R F I L E ) ) ) ) ) ) \r
0006620 \r ( 006 004 R E O P E N V M F I L E
0006640 006 001 \r ( L A M B D A ( F I
0006660 L E W R I T E A B L E ) 006 006 006
0006700 001
0006720
0006740 006 006 ( * b v m % : "
0006760 1 3 - S e p - 8 6 1 7 : 4 0 "
0007000 ) 006 001 \r \r
0007020 006 006 ( * *
0007040 V M E M F I L E X s o o n t
0007060 o b e o b s o l e t e ) 006 001
0007100 \r \r ( S E T Q V M E M
0007120 F I L E ( S E T Q V M E M F
0007140 I L E X ( O P E N S T R E A M
0007160 F I L E ( C O N D \r
0007200
*
0007260 ( W R I T E A B L E ' B
0007300 O T H ) \r
0007320
*
0007360 ( T '
0007400 I N P U T ) ) \r
0007420
*
0007460 ' O L D 8 ) ) ) ) ) \r \r (
0007500 006 004 V V A G 2 006 001 \r ( L A M
0007520 B D A ( H I L O ) 006 006 006 001
0007540
*
0007600 006 006 ( *
0007620 l m m " 9 - M A R - 8 1 0
0007640 9 : 3 4 " ) 006 001 \r
0007660 \r 006 006
0007700 ( * D O E S N ' T B E L O N
0007720 G H E R E , B U T O N M
0007740 E M ! I N C L U D E D B E C
0007760 A U S E R E M O T E - P R I N
0010000 T C O D E C A L L S \r 006 001
0010020 006 006 V V A G 2
0010040 B U T D I D N ' T I M P O
0010060 R T M E M ) 006 001 \r \r (
0010100 ( L A M B D A ( X ) \r
0010120 ( 006 002 D E C L A R E 006 001
0010140 ( L O C A L V A R S . T ) )
0010160 \r ( C O N D \r
0010200 ( ( Z E R O P
0010220 X ) \r N I
0010240 L ) \r ( T
0010260 X ) ) ) \r ( I P L U S
0010300 ( L L S H H I 1 6 ) \r
0010320 L O ) ) ) )
0010340 \r ) \r \r ( R P A Q ? 006 002 V M E
0010360 M F I L E 006 001 ) \r ( D E F I N
0010400 E Q \r \r ( 006 004 V G E T B A S E 0
0010420 006 001 \r ( L A M B D A ( P T
0010440 R ) 006 006 006 001
0010460
*
0010520 006 006 ( * l m m " 2 0
0010540 - A U G - 8 1 1 6 : 4 3 " ) 006
0010560 001 \r ( C O N D \r
0010600 ( ( N L I S T P V M E M
0010620 F I L E ) \r ( 006
0010640 002 S E T V M P T R 006 001 P T R )
0010660 \r ( 006 002 V B I N
0010700 2 006 001 ) ) \r ( T
0010720 ( W O R D C O N T E N T S ( W
0010740 O R D O F F S E T ( V M A P P
0010760 A G E ( L R S H P T R 8 )
0011000 ) \r
0011020
0011040 ( L O G A N D P T R 2 5 5
0011060 ) ) ) ) ) ) ) \r \r ( 006 004 V P U T
0011100 B A S E 0 006 001 \r ( L A M B D
0011120 A ( P T R V A L U E ) 006 006 006
0011140 001
0011160
0011200 006 006 ( * l m
0011220 m " 2 0 - A U G - 8 1 1 6 :
0011240 4 3 " ) 006 001 \r ( C O N D
0011260 \r ( ( N L I S T P
0011300 V M E M F I L E ) \r
0011320 ( 006 002 S E T V M P T R 006 001
0011340 P T R ) \r ( 006
0011360 002 V B O U T 2 006 001 V A L U E )
0011400 ) \r ( T ( S E T
0011420 W O R D C O N T E N T S ( W O
0011440 R D O F F S E T ( V M A P P A
0011460 G E ( L R S H P T R 8 ) )
0011500 \r
0011520
0011540 ( L O G A N D P T R 2
0011560 5 5 ) ) \r
0011600 V A L U E ) \r
0011620 ( R E M O T E S E
0011640 T W O R D P T R V A L U E )
0011660 ) ) \r V A L U E ) ) \r \r
0011700 ( 006 004 V G E T B A S E P T R 0 006
0011720 001 \r ( L A M B D A ( P T R
0011740 ) 006 006 006 001
0011760
*
0012020 006 006 ( * l m m " 8 -
0012040 S E P - 8 1 2 3 : 1 2 " ) 006 001
0012060 \r ( A N D ( N O T (
0012100 Z E R O P ( S E T Q P T R
0012120 ( C O N D \r
0012140
0012160 ( ( N L I S T P
0012200 V M E M F I L E ) \r
0012220
0012240 ( 006
0012260 002 S E T V M P T R 006 001 P T R )
0012300 \r
0012320
0012340 ( 006 002 V B I N 1 006 001 ) \r
0012360
*
0012420 ( 006 002 V V A G 2 006 001 ( 006
0012440 002 V B I N 1 006 001 ) \r
0012460
*
0012520 ( 006 002 V B I N 2 006 001 ) )
0012540 ) \r
0012560
0012600 ( T ( 006 002 V V A G 2 006
0012620 001 ( L O G A N D 2 5 5 ( W
0012640 O R D C O N T E N T S ( S E T
0012660 Q P T R \r
0012700
*
0012760 ( W O
0013000 R D O F F S E T \r
0013020
*
0013120 ( V M A P P A G E ( L R S H
0013140 P T R 8 ) ) \r
0013160
*
0013260 ( L O G A N D 2 5 5 P T R
0013300 ) ) ) ) ) \r
0013320
*
0013360 ( W O R D C O N T E N T S
0013400 ( W O R D O F F S E T P T R
0013420 1 ) ) ) ) ) ) ) ) \r
0013440 P T R ) ) ) \r \r ( 006 004 V P
0013460 U T B A S E P T R 0 006 001 \r (
0013500 L A M B D A ( P T R V A L U
0013520 E ) 006 006 006 001
0013540
0013560 006 006
0013600 ( * l m m " 2 0 - A U G - 8
0013620 1 1 6 : 4 3 " ) 006 001 \r
0013640 ( C O N D \r ( ( N
0013660 L I S T P V M E M F I L E ) \r
0013700 ( 006 002 S E T V M
0013720 P T R 006 001 P T R ) \r
0013740 ( 006 002 V B O U T 2 006 001 (
0013760 V H I L O C V A L U E ) ) \r
0014000 ( 006 002 V B O U T 2
0014020 006 001 ( V L O L O C V A L U E
0014040 ) ) ) \r ( T ( P
0014060 R O G ( W O R D ) \r
0014100 ( S E T W
0014120 O R D C O N T E N T S ( S E T
0014140 Q W O R D ( W O R D O F F S
0014160 E T ( V M A P P A G E ( L R
0014200 S H P T R 8 ) ) \r
0014220
*
0014260 ( L
0014300 O G A N D P T R 2 5 5 ) ) )
0014320 \r
0014340 ( V H I L O C
0014360 V A L U E ) ) \r
0014400 ( S E T W O R D
0014420 C O N T E N T S ( W O R D O F
0014440 F S E T W O R D 1 ) \r
0014460
0014500 ( V L O L O C V A L U
0014520 E ) ) \r
0014540 ( R E M O T E S E T W O
0014560 R D P T R ( V H I L O C V
0014600 A L U E ) ) \r
0014620 ( R E M O T E S E
0014640 T W O R D ( A D D 1 P T R )
0014660 \r
0014700 ( V L O L O C
0014720 V A L U E ) ) \r
0014740 ( R E T U R N
0014760 V A L U E ) ) ) ) ) ) \r \r ( 006 004
0015000 I N V A L I D A D D R 006 001 \r
0015020 ( L A M B D A ( P T R ) 006 006 006
0015040 001
0015060
0015100 006
0015120 006 ( * b v m % : " 2 8 - J a
0015140 n - 8 5 1 2 : 1 3 " ) 006 001 \r
0015160 ( p r i n t o u t T "
0015200 I n v a l i d A d d r e s s :
0015220 " ) \r ( V P R I N T V
0015240 A P T R ) \r ( T E R P
0015260 R I T ) \r ( E R R O R
0015300 ! ) ) ) \r ) \r ( D E F I N E Q \r
0015320 \r ( 006 004 P R I N T V M 006 001 \r
0015340 ( L A M B D A N I L 006 006 006 001
0015360
*
0015420 006
0015440 006 ( * l m m " 4 - M A Y -
0015460 8 2 2 1 : 0 9 " ) 006 001 \r
0015500 ( P R O G ( ( L A S T S E G
0015520 N O P A G E ) \r
0015540 ( L A S T P A G E N O
0015560 P A G E ) \r
0015600 L A S T E F I R S T E ) \r
0015620 ( 006 002 f o r 006
0015640 001 S E G 006 002 f r o m 006 001 0
0015660 006 002 t o 006 001 2 5 5 006 002 b i
0015700 n d 006 001 P \r
0015720 006 002 d o 006 001 ( O R (
0015740 E Q ( S E T Q P ( F A S T
0015760 E L T P G T A B S E G ) ) \r
0016000
0016020 P G E M P T Y )
0016040 \r
0016060 ( 006 002 f o r 006 001 P A
0016100 G E 006 002 f r o m 006 001 0 006 002
0016120 t o 006 001 2 5 5 006 002 b i n d 006
0016140 001 E \r
0016160 006 002 d o 006
0016200 001 ( C O N D \r
0016220
0016240 ( ( N E Q ( S E T Q
0016260 E ( F A S T E L T N P P
0016300 A G E ) ) \r
0016320
0016340 0 ) \r
0016360
0016400 ( C O N D \r
0016420
*
0016460 ( ( N O T ( I E Q S E G
0016500 L A S T S E G ) ) \r
0016520
0016540 ( 006 002 E
0016560 N D V M P R I N T 006 001 ) \r
0016600
0016620 (
0016640 p r i n t o u t T T " s e
0016660 g m e n t " ( S E T Q L A
0016700 S T S E G S E G ) \r
0016720
*
0016760 T ) ) ) \r
0017000
0017020 ( C O N D \r
0017040
0017060 ( (
0017100 O R ( N O T ( I E Q ( S U
0017120 B 1 P A G E ) \r
0017140
*
0017200 L A S T P A G
0017220 E ) ) \r
0017240
0017260 ( N O T (
0017300 I E Q ( S U B 1 E ) \r
0017320
*
0017360 L A S
0017400 T E ) ) ) \r
0017420
0017440 ( 006 002 E N D V M
0017460 P R I N T 006 001 ) \r
0017500
0017520 ( p r i n
0017540 t o u t T P A G E ) \r
0017560
0017600 (
0017620 S E T Q F I R S T E E ) ) )
0017640 \r
0017660 (
0017700 S E T Q L A S T P A G E P A
0017720 G E ) \r
0017740
0017760 ( S E T Q L A S T E E )
0020000 ) ) ) ) ) \r
0020020 ( 006 002 E N D V M P R I N T 006 001 )
0020040 ) ) ) \r \r ( 006 004 E N D V M P R I
0020060 N T 006 001 \r ( L A M B D A N
0020100 I L 006 006 006 001
0020120
*
0020160 006 006 ( * l m m "
0020200 4 - M A Y - 8 2 2 1 : 4 7 "
0020220 ) 006 001 \r ( C O N D \r
0020240 ( ( N O T ( I E Q
0020260 L A S T P A G E N O P A G E )
0020300 ) \r ( C O N D \r
0020320 ( ( I E Q
0020340 F I R S T E L A S T E ) \r
0020360 ( p r i n
0020400 t o u t T 1 0 ( C O N D \r
0020420
0020440 ( (
0020460 I G E Q F I R S T E 3 2 7 6
0020500 8 ) \r
0020520
0020540 ( S E T Q F I R S T E (
0020560 L O G A N D F I R S T E 3 2
0020600 7 6 7 ) ) \r
0020620
0020640 ( S E T Q L A S T E
0020660 ( L O G A N D L A S T E 3
0020700 2 7 6 7 ) ) \r
0020720
0020740 " * " ) \r
0020760
0021000 ( T " " )
0021020 ) \r
0021040 F I R S T E T ) ) \r
0021060 ( T ( p
0021100 r i n t o u t T " - " L A
0021120 S T P A G E 1 0 ( C O N D \r
0021140
*
0021200 ( ( I
0021220 G E Q F I R S T E 3 2 7 6 8
0021240 ) \r
0021260
*
0021320 ( S E T Q F I R S T E ( L O
0021340 G A N D F I R S T E 3 2 7 6
0021360 7 ) ) \r
0021400
*
0021440 ( S E T Q L A S T E ( L
0021460 O G A N D L A S T E 3 2 7 6
0021500 7 ) ) \r
0021520
*
0021560 " * " ) \r
0021600
*
0021640 ( T " " ) ) \r
0021660
0021700 F I R S T E " - " L A S
0021720 T E T ) ) ) \r
0021740 ( S E T Q L A S T P A G E N
0021760 O P A G E ) ) ) ) ) \r ) \r ( D E
0022000 C L A R E % : D O N T C O P Y
0022020 \r ( D E C L A R E % : E V A
0022040 L @ C O M P I L E \r \r ( R P A
0022060 Q Q 006 002 N O P A G E 006 001 - 2
0022100 ) \r \r ( C O N S T A N T S N O
0022120 P A G E ) \r ) \r ) \r ( D E F I N
0022140 E Q \r \r ( 006 004 O P E N V M F I L
0022160 E 006 001 \r ( L A M B D A ( N
0022200 A M E W R I T E A B L E ) 006 006
0022220 006 001
0022240
0022260 006 006 ( * l m m " 1
0022300 9 - D E C - 8 1 0 0 : 2 1 " )
0022320 006 001 \r ( W H E N C L O S
0022340 E ( 006 002 R E O P E N V M F I L
0022360 E 006 001 N A M E W R I T E A B
0022400 L E ) \r '
0022420 C L O S E A L L \r
0022440 ' N O \r
0022460 ' A F T E R \r
0022500 ' C L O S E V M E M F
0022520 I L E \r '
0022540 S T A T U S \r
0022560 ( F U N C T I O N ( L A M
0022600 B D A ( F I L E ) \r
0022620
0022640 ( L I S T ' R E O P E N V
0022660 M F I L E F I L E ( O P E N
0022700 P F I L E ' B O T H ) ) ) )
0022720 ) ) ) \r \r ( 006 004 U N M A P V M 006
0022740 001 \r ( L A M B D A N I L 006
0022760 006 006 001
0023000
*
0023040 006 006 ( * l m m " 3 -
0023060 A U G - 8 0 2 2 : 1 2 " ) 006 001
0023100 \r ( 006 002 f o r 006 001 I
0023120 006 002 f r o m 006 001 0 006 002 t o 006
0023140 001 2 5 5 006 002 b i n d 006 001 P
0023160 006 002 d o 006 001 ( O R ( E Q
0023200 ( S E T Q P ( F A S T E L T
0023220 P G T A B I ) ) \r
0023240
*
0023300 P G E M P T Y ) \r
0023320
*
0023360 ( 006 002 f o r 006 001 J
0023400 006 002 f r o m 006 001 0 006 002 t o
0023420 006 001 2 5 5 006 002 d o 006 001 ( F
0023440 A S T S E T A N P J 0 ) )
0023460 ) ) ) ) \r \r ( 006 004 C L O S E V M
0023500 E M F I L E 006 001 \r ( L A M B
0023520 D A N I L 006 006 006 001
0023540
*
0023600 006 006 ( * b
0023620 v m % : " 1 3 - J u l - 8 4
0023640 1 7 : 2 2 " ) 006 001 \r ( C
0023660 O N D \r ( ( N L I
0023700 S T P V M E M F I L E ) \r
0023720 ( C L O S E F ? V
0023740 M E M F I L E ) ) \r
0023760 ( T ( C L O S E R E M O T E
0024000 V M E M F I L E ) ) ) \r
0024020 ( S E T Q V M E M F I L E ) )
0024040 ) \r \r ( 006 004 M A P V M P A G E 006
0024060 001 \r ( L A M B D A ( V P
0024100 P A G E ) 006 006 006 001
0024120
*
0024160 006 006 ( * l m m " 2 1 -
0024200 A U G - 8 1 2 2 : 3 8 " ) 006 001
0024220 \r \r
0024240 006 006 ( * A s s o c
0024260 i a t e v i r t u a l p a g
0024300 e V P w i t h p a g e P
0024320 A G E o f t h e v m e m
0024340 f i l e ) 006 001 \r \r ( P R
0024360 O G ( ( A ( L R S H V P
0024400 8 ) ) \r (
0024420 B ( L O G A N D V P 2 5 5
0024440 ) ) \r D )
0024460 \r ( C O N D
0024500 \r ( (
0024520 E Q ( S E T Q D ( F A S T
0024540 E L T P G T A B A ) ) \r
0024560
0024600 P G E M P T Y ) \r
0024620 ( F A S T S E T A
0024640 P G T A B A ( S E T Q D
0024660 ( 006 002 F I X P A R R A Y 006 001
0024700 2 5 6 ) ) ) ) ) \r
0024720 ( F A S T S E T A N D
0024740 B P A G E ) ) ) ) \r \r ( 006 004 V
0024760 B I N 1 006 001 \r ( L A M B D A
0025000 N I L 006 006 006 001
0025020
*
0025060 006 006 ( * b v m
0025100 % : " 1 3 - S e p - 8 6 1 7
0025120 : 3 8 " ) 006 001 \r ( \ B I
0025140 N V M E M F I L E ) ) ) \r \r (
0025160 006 004 V B O U T 1 006 001 \r ( L A
0025200 M B D A ( B Y T E ) 006 006 006 001
0025220
*
0025260 006 006 ( *
0025300 l m m " 1 6 - M A Y - 8 1
0025320 1 6 : 5 2 " ) 006 001 \r ( \
0025340 B O U T ( O R V M O U T F I
0025360 L E X ( E R R O R " C a n '
0025400 t w r i t e o n " V M E
0025420 M F I L E ) ) \r
0025440 B Y T E ) ) ) \r \r ( 006 004 V
0025460 B I N 2 006 001 \r ( L A M B D A
0025500 N I L \r ( I P L U S
0025520 ( L L S H ( 006 002 V B I N 1 006 001
0025540 ) \r
0025560 8 ) \r
0025600 ( 006 002 V B I N 1 006 001 ) ) ) ) \r
0025620 \r ( 006 004 V B O U T 2 006 001 \r (
0025640 L A M B D A ( V A L U E ) 006 006
0025660 006 001
0025700
0025720 006 006
0025740 ( * l m m " 1 9 - M A R - 8
0025760 1 1 2 : 2 4 " ) 006 001 \r
0026000 ( 006 002 V B O U T 1 006 001 ( L R S
0026020 H V A L U E 8 ) ) \r
0026040 ( 006 002 V B O U T 1 006 001 ( L O G
0026060 A N D V A L U E 2 5 5 ) ) \r
0026100 V A L U E ) ) \r ) \r ( D
0026120 E F I N E Q \r \r ( 006 004 S E T V M
0026140 P T R 006 001 \r ( L A M B D A
0026160 ( P T R ) 006 006 006 001
0026200
*
0026240 006 006 ( * l m m
0026260 " 4 - M A Y - 8 2 2 0 : 4 2
0026300 " ) 006 001 \r \r
0026320 006 006 ( * P
0026340 o s i t i o n s V M E M F I L
0026360 E t o s t a r t r e a d i
0026400 n g a t v i r t u a l a d
0026420 d r e s s P T R , a n d s
0026440 e t s \r 006 001
0026460 006 006 V M B Y T E S L E F T t
0026500 o t h e n u m b e r o f
0026520 b y t e s l e f t o n t h
0026540 e p a g e . ) 006 001 \r \r
0026560 ( P R O G ( ( A ( F A S T E
0026600 L T P G T A B ( V H I L O C
0026620 P T R ) ) ) \r
0026640 ( J ( L R S H ( V L O
0026660 L O C P T R ) \r
0026700 8 ) )
0026720 )
0026740
0026760 006 006 ( * T h e m
0027000 u l t i p l e F A S T E L T N
0027020 s a r e t o a v o i d \r
0027040 006 001
0027060
*
0027120 006
0027140 006 b o x i n g ) 006 001 \r
0027160 ( C O N D \r
0027200 ( ( I E Q P (
0027220 F A S T E L T N A J ) \r
0027240
0027260 0 ) \r
0027300 ( 006 002 I N V A L I D A D D
0027320 R 006 001 ( I P L U S P T R 0
0027340 ) ) ) ) \r (
0027360 S E T F I L E P T R V M E M F
0027400 I L E ( I P L U S ( L L S H
0027420 ( L O G A N D ( F A S T E L
0027440 T N A J ) \r
0027460
*
0027520 3 2 7 6 7
0027540 ) \r
0027560
0027600 9 )
0027620 \r
0027640
0027660 ( L L S H ( L O
0027700 G A N D ( V L O L O C P T R
0027720 ) \r
0027740
*
0030000 2 5 5 ) \r
0030020
*
0030060 1 ) ) ) ) ) ) \r \r (
0030100 006 004 V M P A G E P 006 001 \r ( L
0030120 A M B D A ( V P ) 006 006 006 001
0030140
*
0030200 006 006 (
0030220 * b v m % : " 1 0 - D e c -
0030240 8 4 1 2 : 4 6 " ) 006 001 \r
0030260 ( N O T ( I E Q P ( . L O
0030300 O K U P M A P . V P ) \r
0030320 0 ) ) )
0030340 ) \r ) \r ( D E C L A R E % : E
0030360 V A L @ C O M P I L E D O N T
0030400 C O P Y \r \r ( R P A Q Q 006 002
0030420 V M A C R O S 006 001 ( V P A G E
0030440 B A S E V A D D B A S E V H
0030460 I L O C V V A G 2 V G E T B
0030500 A S E B Y T E V L O L O C V
0030520 P A G E L O C V G E T B A S E
0030540 V P U T B A S E \r
0030560
0030600 V G E T B A S E P T R V P U
0030620 T B A S E P T R V B I N 1 V
0030640 B I N 2 . L O O K U P M A P .
0030660 ) ) \r ( D E C L A R E % : E V
0030700 A L @ C O M P I L E \r \r ( P U
0030720 T P R O P S V P A G E B A S E
0030740 M A C R O ( ( P T R ) \r
0030760
0031000 ( L O G A N D
0031020 P T R - 2 5 6 ) ) ) \r ( P U
0031040 T P R O P S V A D D B A S E
0031060 M A C R O ( ( P T R D ) \r
0031100
0031120 ( I P L U S
0031140 P T R D ) ) ) \r ( P U T P R O
0031160 P S V H I L O C M A C R O
0031200 ( ( P T R ) \r
0031220 (
0031240 L R S H ( O R P T R 0 ) \r
0031260
0031300 1 6
0031320 ) ) ) \r ( P U T P R O P S V V
0031340 A G 2 M A C R O ( ( H I L
0031360 O ) \r
0031400 ( I P L U S
0031420 ( L L S H H I 1 6 ) \r
0031440
0031460 L O ) )
0031500 ) \r ( P U T P R O P S V G E T
0031520 B A S E B Y T E M A C R O (
0031540 L A M B D A ( P T R N ) \r
0031560
*
0031620 ( * l m m " 9 - M A
0031640 R - 8 1 0 9 : 4 9 " ) \r
0031660
*
0031720 ( C O N D ( ( Z E R O P (
0031740 L O G A N D N 1 ) ) \r
0031760
*
0032020 ( L R S H ( V
0032040 G E T B A S E P T R ( L R S
0032060 H N 1 ) ) \r
0032100
*
0032140 8 ) ) \r
0032160
*
0032220 ( T ( L O G A N
0032240 D 2 5 5 ( V G E T B A S E
0032260 P T R ( L R S H N 1 ) ) )
0032300 ) ) ) ) \r ( P U T P R O P S V
0032320 L O L O C M A C R O ( ( P T
0032340 R ) \r
0032360 ( L O G A
0032400 N D ( O R P T R 0 ) \r
0032420
0032440 6 5 5
0032460 3 5 ) ) ) \r ( P U T P R O P S
0032500 V P A G E L O C M A C R O (
0032520 ( P T R ) \r
0032540
0032560 ( L R S H ( O R P T R 0 )
0032600 \r
0032620
0032640 8 ) ) ) \r ( P U T P R O P S
0032660 V G E T B A S E M A C R O (
0032700 ( P T R D ) \r
0032720
0032740 ( V G E T B A S E 0 ( V A
0032760 D D B A S E P T R D ) ) ) )
0033000 \r ( P U T P R O P S V P U T B
0033020 A S E M A C R O ( ( P T R
0033040 D V A L ) \r
0033060
0033100 ( V P U T B A S E 0 ( V A D
0033120 D B A S E P T R D ) \r
0033140
0033160 V A
0033200 L ) ) ) \r ( P U T P R O P S V
0033220 G E T B A S E P T R M A C R O
0033240 ( ( P T R D ) \r
0033260
0033300 ( V G E T B A S E
0033320 P T R 0 ( V A D D B A S E P
0033340 T R D ) ) ) ) \r ( P U T P R O
0033360 P S V P U T B A S E P T R M
0033400 A C R O ( ( P T R D V A L
0033420 U E ) \r
0033440
0033460 ( V P U T B A S E P T R 0 (
0033500 V A D D B A S E P T R D ) \r
0033520
*
0033560 V A L U E ) ) ) \r ( P U
0033600 T P R O P S V B I N 1 M A C
0033620 R O ( N I L ( \ B I N V M
0033640 E M F I L E ) ) ) \r ( P U T P R
0033660 O P S V B I N 2 M A C R O
0033700 ( N I L ( I P L U S ( L L S
0033720 H ( V B I N 1 ) \r
0033740
*
0034000 8 ) \r
0034020
0034040 ( V B I N 1 ) ) )
0034060 ) \r ( P U T P R O P S . L O O
0034100 K U P M A P . M A C R O ( (
0034120 V P ) \r
0034140
0034160 ( F A S T E L T N ( F A S T
0034200 E L T P G T A B ( L R S H
0034220 V P 8 ) ) \r
0034240
0034260 ( L O G A
0034300 N D V P 2 5 5 ) ) ) ) \r ) \r
0034320 \r ( D E C L A R E % : E V A L
0034340 @ C O M P I L E \r \r ( D A T A T
0034360 Y P E 006 002 R E M O T E P O I N
0034400 T E R 006 001 ( ( R P T Y P E P
0034420 O I N T E R ) \r
0034440
0034460 ( R P H I L O C W O R D ) \r
0034500
0034520 ( R P L O L O
0034540 C W O R D ) ) ) \r ) \r ( / D E
0034560 C L A R E D A T A T Y P E ' R
0034600 E M O T E P O I N T E R ' ( P
0034620 O I N T E R W O R D W O R D
0034640 ) ' ( ( R E M O T E P O I N T
0034660 E R 0 P O I N T E R ) \r
0034700
*
0034760 ( R E M O T E P O I
0035000 N T E R 2 ( B I T S . 1
0035020 5 ) ) \r
0035040
*
0035100 ( R E M
0035120 O T E P O I N T E R 3 ( B I
0035140 T S . 1 5 ) ) ) ' 4 ) \r D
0035160 O N T E V A L @ L O A D \r ( O
0035200 R ( S E L E C T Q ( A N D
0035220 ( G E T D ' C O M P I L E M O
0035240 D E ) \r
0035260 ( C O M P I L E M O
0035300 D E ) ) \r
0035320 ( ( A L T O D ) \r
0035340 T ) \r
0035360 N I L ) \r ( F I
0035400 L E S L O A D ( L O A D C O M
0035420 P ) \r D C
0035440 O D E F O R 1 0 ) ) \r ) \r ( D E
0035460 F I N E Q \r \r ( 006 004 V T Y P E D
0035500 P O I N T E R 006 001 \r ( L A M
0035520 B D A ( T Y P E P O I N T E
0035540 R ) 006 006 006 001
0035560
0035600 006 006 ( *
0035620 b v m % : " 1 5 - F e b - 8 5
0035640 1 8 : 0 6 " ) 006 001 \r
0035660 \r
0035700 006 006 ( * P r o d u c e s a
0035720 l o c a l o b j e c t t h a
0035740 t r e p r e s e n t s a r
0035760 e m o t e P O I N T E R w i
0036000 t h t y p e \r 006 001
0036020 006 006 i n f o r m a t i
0036040 o n . U s e d f o r v i s
0036060 u a l p r e s e n t a t i o n
0036100 t o t e l e r a i d u s e
0036120 r ) 006 001 \r \r ( 006 002 c r e
0036140 a t e 006 001 R E M O T E P O I N
0036160 T E R \r R
0036200 P T Y P E _ T Y P E \r
0036220 R P H I L O C
0036240 _ ( V H I L O C P O I N T E
0036260 R ) \r R P
0036300 L O L O C _ ( V L O L O C
0036320 P O I N T E R ) ) ) ) \r \r ( 006 004
0036340 \ R E M O T E P O I N T E R . D
0036360 E F P R I N T 006 001 \r ( L A M
0036400 B D A ( R P T R ) 006 006 006 001
0036420
*
0036460 006 006 ( *
0036500 b v m % : " 1 5 - F e b - 8 5
0036520 1 8 : 1 1 " ) 006 001 \r
0036540
*
0036620 006 006 ( * H o w
0036640 t o p r i n t a R E M O
0036660 T E P O I N T E R ) 006 001 \r
0036700 ( L I S T ( C O N C A T '
0036720 { ( O R ( 006 002 f f e t c h 006
0036740 001 R P T Y P E 006 002 o f 006 001
0036760 ( \ D T E S T R P T R ' R E
0037000 M O T E P O I N T E R ) ) \r
0037020
0037040 " " ) \r
0037060 " } # "
0037100 \r
0037120 ( O C T A L S T R I N G (
0037140 006 002 f f e t c h 006 001 R P H I L
0037160 O C 006 002 o f 006 001 R P T R ) )
0037200 \r
0037220 ' % , \r
0037240 ( O C T A L S T R
0037260 I N G ( 006 002 f f e t c h 006 001
0037300 R P L O L O C 006 002 o f 006 001 R
0037320 P T R ) ) ) ) ) ) \r ) \r ( / D E
0037340 C L A R E D A T A T Y P E ' R
0037360 E M O T E P O I N T E R ' ( P
0037400 O I N T E R W O R D W O R D
0037420 ) ' ( ( R E M O T E P O I N T
0037440 E R 0 P O I N T E R ) \r
0037460
*
0037540 ( R E M O T E P O I
0037560 N T E R 2 ( B I T S . 1
0037600 5 ) ) \r
0037620
*
0037660 ( R E M
0037700 O T E P O I N T E R 3 ( B I
0037720 T S . 1 5 ) ) ) ' 4 ) \r (
0037740 D E C L A R E % : D O N T E V
0037760 A L @ L O A D D O C O P Y \r
0040000 ( D E F P R I N T ' R E M O T
0040020 E P O I N T E R ' \ R E M O T
0040040 E P O I N T E R . D E F P R I N
0040060 T ) \r ) \r \r ( A D D T O V A R
0040100 006 002 V M E M V A R S 006 001 ( P G
0040120 E M P T Y ( F I X P A R R A Y
0040140 2 5 6 ) ) \r
0040160 ( P G T A B
0040200 ( P O I N T E R A R R A Y 2
0040220 5 6 P G E M P T Y ) ) \r
0040240
0040260 ( R D S Y S I N I T T ) ) \r (
0040300 D E C L A R E % : D O E V A L
0040320 @ C O M P I L E D O N T C O P
0040340 Y \r \r ( G L O B A L V A R S P
0040360 G T A B P G E M P T Y V M E
0040400 M F I L E X V M E M F I L E
0040420 F I R S T P M T ) \r ) \r ( D E F
0040440 I N E Q \r \r ( 006 004 P O I N T E R
0040460 A R R A Y 006 001 \r ( L A M B D
0040500 A ( N I N I T ) 006 006 006 001
0040520
*
0040560 006 006 ( * l m
0040600 m " 4 - D E C - 8 0 1 6 :
0040620 5 8 " ) 006 001 \r ( A R R A
0040640 Y N ' P O I N T E R I N I
0040660 T 0 ) ) ) \r \r ( 006 004 W O R D A
0040700 R R A Y 006 001 \r ( L A M B D A
0040720 ( N ) 006 006 006 001
0040740
*
0041000 006 006 ( * l m m
0041020 " 4 - D E C - 8 0 1 6 : 5
0041040 8 " ) 006 001 \r ( A R R A Y
0041060 N ' S M A L L P O S P 0
0041100 0 ) ) ) \r \r ( 006 004 F I X P A R R
0041120 A Y 006 001 \r ( L A M B D A (
0041140 N ) 006 006 006 001
0041160
*
0041220 006 006 ( * l m m "
0041240 4 - D E C - 8 0 1 6 : 5 8 "
0041260 ) 006 001 \r ( A R R A Y N
0041300 ' F I X P 0 0 ) ) ) \r ) \r
0041320 ( M A P C ' ( ( E L T F A S
0041340 T E L T F A S T E L T N F A
0041360 S T E L T W ) \r
0041400 ( S E T A F A S T S E T A F
0041420 A S T S E T A N F A S T S E T
0041440 A W ) \r ( G E T
0041460 H A S H I G E T H A S H ) \r
0041500 ( P U T H A S H
0041520 I P U T H A S H ) ) ( F U N C
0041540 T I O N ( L A M B D A ( X )
0041560 \r
0041600
0041620 ( M
0041640 A P C ( C D R X ) \r
0041660
*
0041720 (
0041740 F U N C T I O N ( L A M B D A
0041760 ( Y ) \r
0042000
*
0042060 ( M O V D ?
0042100 ( C A R X ) \r
0042120
*
0042220 Y ) ) ) ) ) ) ) \r ( P U T
0042240 P R O P S V M E M C O P Y R
0042260 I G H T ( " X e r o x C o r
0042300 p o r a t i o n " 1 9 8 2 1
0042320 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0042340 ( D E C L A R E % : D O N T C
0042360 O P Y \r ( F I L E M A P (
0042400 N I L ( 2 6 9 2 4 3 2 2 (
0042420 I N I T V M E M 2 7 0 2 .
0042440 3 4 7 1 ) ( R E O P E N V M F
0042460 I L E 3 4 7 3 . 3 9 0 1 )
0042500 ( V V A G 2 3 9 0 3 . 4
0042520 3 2 0 ) ) ( 4 3 4 6 \r 6 8 5
0042540 4 ( V G E T B A S E 0 4 3 5
0042560 6 . 4 6 6 3 ) ( V P U T B
0042600 A S E 0 4 6 6 5 . 5 0 5 4
0042620 ) ( V G E T B A S E P T R 0
0042640 5 0 5 6 . 5 9 2 9 ) ( V P
0042660 U T B A S E P T R 0 5 9 3 1
0042700 . \r 6 6 5 1 ) ( I N V A L I
0042720 D A D D R 6 6 5 3 . 6 8 5
0042740 2 ) ) ( 6 8 5 5 9 2 1 2 (
0042760 P R I N T V M 6 8 6 5 . 8
0043000 2 2 7 ) ( E N D V M P R I N T
0043020 8 2 2 9 . 9 2 1 0 ) ) (
0043040 9 3 0 6 \r 1 1 3 4 1 ( O P E
0043060 N V M F I L E 9 3 1 6 . 9
0043100 6 8 3 ) ( U N M A P V M 9 6
0043120 8 5 . 1 0 0 3 6 ) ( C L O
0043140 S E V M E M F I L E 1 0 0 3 8
0043160 . 1 0 2 7 3 ) ( M A P V M
0043200 P A G E 1 0 2 7 5 \r . 1 0
0043220 7 3 0 ) ( V B I N 1 1 0 7 3
0043240 2 . 1 0 8 6 1 ) ( V B O U
0043260 T 1 1 0 8 6 3 . 1 1 0 5 0
0043300 ) ( V B I N 2 1 1 0 5 2 .
0043320 1 1 1 5 1 ) ( V B O U T 2
0043340 1 1 1 5 3 . 1 1 3 3 9 ) )
0043360 ( \r 1 1 3 4 2 1 2 5 1 5 ( S
0043400 E T V M P T R 1 1 3 5 2 .
0043420 1 2 3 4 9 ) ( V M P A G E P
0043440 1 2 3 5 1 . 1 2 5 1 3 ) )
0043460 ( 1 5 1 4 9 1 6 0 9 1 ( V T
0043500 Y P E D P O I N T E R 1 5 1 5
0043520 9 . \r 1 5 5 7 9 ) ( \ R E
0043540 M O T E P O I N T E R . D E F P
0043560 R I N T 1 5 5 8 1 . 1 6 0
0043600 8 9 ) ) ( 1 6 6 6 8 1 7 1 0
0043620 3 ( P O I N T E R A R R A Y
0043640 1 6 6 7 8 . 1 6 8 2 2 ) (
0043660 W O R D A R R A Y \r 1 6 8 2 4
0043700 . 1 6 9 6 4 ) ( F I X P A
0043720 R R A Y 1 6 9 6 6 . 1 7 1
0043740 0 1 ) ) ) ) ) \r S T O P \r
0043755