$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>PMAP.DCOM!2
0000000 ( F I L E C R E A T E D " 3 0
0000020 - S e p - 8 4 1 5 : 4 8 : 5 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 > P M A P . ;
0000120 7 ) \r " 2 4 - S e p - 8 4 0
0000140 9 : 2 8 : 4 2 " r e c o m p i
0000160 l e d e x p r s : \ P A G E
0000200 D . G E T N E X T B U F F E R
0000220 \ S E T E O F i n " I N T E
0000240 R L I S P - D 2 4 - S e p - 8
0000260 4 . . . " \r d a t e d " 2
0000300 4 - S e p - 8 4 0 9 : 4 9 : 0
0000320 1 " ) \r ( F I L E C R E A T E D
0000340 " 3 0 - S e p - 8 4 1 5 : 4
0000360 8 : 1 0 " { E R I S } < L I S
0000400 P C O R E > S O U R C E S > P M
0000420 A P . ; 7 4 4 5 2 9 c h a n
0000440 g e s t o : ( F N S \r \ P
0000460 A G E D . G E T N E X T B U F F
0000500 E R \ S E T E O F ) p r e v
0000520 i o u s d a t e : " 2 2 - A
0000540 u g - 8 4 1 2 : 4 5 : 2 9 "
0000560 { E R I S } < L I S P C O R E >
0000600 S O U R C E S > P M A P . ; 6 )
0000620 \r A D D M A P B U F F E R D 1
0000640 \r ( L ( 1 E R R O R F L G
0000660 0 T E M P ) ) \0 003 \0 \0 \0 002 h
0000700 020 \0 N I L \r N I L \r ( ) \r \ A L
0000720 L O C M A P B U F F E R D 1 \r
0000740 N I L \0 , 002 \0 \0 \0 ` \0 \0 037 l \n
0000760 037 021 002 001 H d d 310 002 n 377 \0 345 I 322 344
0001000 315 002 277 H I 323 315 003 277 022 d ` \0 \0 024 006
0001020 277 027 \0 \0 020 \0 N I L \r ( 5 1 Q S
0001040 Y S T E M B U F F E R L I S T
0001060 4 3 Q S Y S T E M B U F F E R
0001100 L I S T 2 004 003 B U F F E R T
0001120 Y P E # ) \r ( ) \r C H E C K B U
0001140 F F E R R E F V A L D 1 \r ( L
0001160 ( 0 B U F F ) ) \0 $ \0 \0 \0
0001200 001 @ d 006 \0 \0 312 006 \0 j 360 263 023 277 @ 006
0001220 \0 \0 311 002 025 001 277 @ j 317 006 \0 277 @ 006 \0
0001240 \0 311 002 020 \0 N I L \r ( 3 7 Q B U
0001260 F F E R 2 0 Q B U F F E R
0001300 4 B U F F E R ) \r ( ) \r C L E
0001320 A R M A P D 1 \r ( L ( 2 R
0001340 E L E A S E 1 P A G E S 0
0001360 F I L E ) ) \0 ( \0 \0 \0 003 @ d
0001400 i 360 264 025 277 ` \0 \0 210 d 001 A i \v \0 \0
0001420 277 002 003 265 366 h 020 i \v \0 \0 d 262 372 A i
0001440 \v \0 \0 h 020 \0 ( 4 4 Q \ C L E A
0001460 R M A P 3 4 Q \ G E T S T R
0001500 E A M 2 1 Q \ C L E A R M A
0001520 P ) \r ( 1 1 Q \ O P E N F I L
0001540 E S ) \r ( ) \r \ W R I T E O U T
0001560 B U F F E R S D 1 \r ( L ( 1
0001600 S T R E A M 0 B U F F E R
0001620 ) ) \0 x 003 \0 \0 002 @ 003 262 J A @ 001
0001640 311 \0 021 0 002 @ 260 024 d 001 \t \0 \0 270 I 265
0001660 \a H h 032 Z 201 H & 271 002 003 265 355 J 022 \v
0001700 \0 \0 @ 260 035 d 001 021 001 \0 H j 317 006 277
0001720 A 311 002 H 311 002 360 225 A j 317 030 277 023 002
0001740 003 265 344 h 020 A @ 311 \0 @ \t \0 \0 \v \0 \0
0001760 @ j 317 006 277 j d 360 h 360 A 311 002 @ 311
0002000 002 360 264 \r A j 317 030 277 j d 360 h 360 020
0002020 \0 ( 1 2 6 Q \ W R I T E P A G
0002040 E S 1 2 3 Q C H E C K B U F
0002060 F E R R E F V A L 5 0 Q \ W
0002100 R I T E P A G E S 2 3 Q C H
0002120 E C K B U F F E R R E F V A L )
0002140 \r N I L \r ( ) \r \ C L E A R M A
0002160 P D 1 \r ( L ( 2 U S E R F
0002200 L G 1 P A G E S 0 S T R
0002220 E A M ) ) \0 206 002 \0 \0 003 @ d 006 \0
0002240 \0 312 004 R l 006 345 j 360 263 027 277 @ 006 \0 \0
0002260 311 006 006 \0 \0 311 * 021 001 \0 @ k H 016 023 @
0002300 006 \0 \0 311 030 021 021 001 H 241 h 020 A 265 024 B
0002320 234 H 006 \0 \0 312 006 020 j 360 h 360 260 030 i 260
0002340 025 003 250 A H 006 \0 \0 311 \0 360 207 H 006 \0 \0
0002360 311 \0 A 034 262 # H I 265 024 @ H 006 \0 \0 311
0002400 004 X 024 030 277 @ \n \0 \0 277 260 276 H 006 \0 \0
0002420 311 004 X 024 004 260 357 H Y 006 \0 \0 311 004 X 260
0002440 252 \0 ( 1 5 4 Q \ R E L E A S E
0002460 B U F F E R ) \r ( 1 7 7 Q B U
0002500 F F E R 1 6 3 Q B U F F E R
0002520 1 4 2 Q B U F F E R 1 2 3
0002540 Q B U F F E R 1 1 3 Q B U
0002560 F F E R 7 0 Q B U F F E R
0002600 4 6 Q S T R E A M 3 0 Q F
0002620 D E V 2 3 Q S T R E A M 4
0002640 S T R E A M ) \r ( ) \r D O P M
0002660 A P D 1 \r ( L ( 2 V M E M
0002700 P A G E 1 S T R E A M 0
0002720 P A G E # ) ) \0 \t \0 \0 \0 003 A @
0002740 B \v \0 \0 B 020 \0 ( 5 \ R E A D P
0002760 A G E S ) \r N I L \r ( ) \r F I N
0003000 D P T R S B U F F E R D 1 \r (
0003020 L ( 1 N O E R R O R F L G
0003040 0 P T R ) ) \0 - 001 \0 \0 002 ` \0
0003060 \0 021 001 \0 H 264 \f @ H 006 \0 \0 311 002 360 227
0003100 H 022 265 005 A 232 h 020 H 006 \0 \0 311 006 X 260
0003120 346 @ o \0 \0 \0 \n \0 \0 020 \0 ( 5 2 Q
0003140 E R R O R ) \r ( 3 5 Q B U F F
0003160 E R 1 5 Q B U F F E R 2
0003200 S Y S T E M B U F F E R L I S T
0003220 ) \r ( 4 7 Q " n o t a M
0003240 A P P A G E p o i n t e r " )
0003260 \r F O R G E T P A G E S D 1 \r
0003300 ( L ( 2 T O P A G E 1 F
0003320 R O M P A G E 0 S T R E A M
0003340 ) ) \0 v 003 \0 \0 003 B 226 A 224 A B 361
0003360 263 l @ 311 030 021 ! 002 H 241 I 020 A 231 H d
0003400 311 \0 A 375 361 263 Q 277 B 230 H d 311 \0 B 361
0003420 263 F 277 H 312 006 \0 j 360 262 031 H d 312 006 020
0003440 j 360 231 277 @ 311 002 H 311 002 360 225 H 311 \0 I
0003460 032 271 J 265 034 @ H 311 004 024 030 277 H @ \n \0
0003500 \0 277 J 265 \b @ 311 030 X 260 260 311 004 260 373 H
0003520 311 004 024 004 260 347 Z 311 004 X 260 237 h 020 \0 (
0003540 1 2 7 Q \ R E L E A S E B U F
0003560 F E R ) \r N I L \r ( ) \r \ G E T
0003600 M A P B U F F E R D 1 \r N I L
0003620 \0 206 002 \0 \0 \0 ` \0 \0 262 { ` \0 \0 006
0003640 \0 \0 312 006 020 j 360 254 ` \0 \0 006 \0 \0 312 006
0003660 \0 j 360 263 ! ` \0 \0 j 317 006 277 ` \0 \0
0003700 j 317 006 020 277 ` \0 \0 d 006 \0 \0 311 004 027 \0
0003720 \0 277 260 A ` \0 \0 d 021 002 001 I 006 \0 \0 311
0003740 004 Y d 262 / 006 \0 \0 312 006 020 j 360 254 I d
0003760 006 \0 \0 312 006 \0 j 360 263 ! 277 H I 006 \0 \0
0004000 311 004 024 004 277 I j 317 006 277 I j 317 006 020
0004020 277 I 022 265 005 \b \0 \0 020 270 260 301 \0 ( 2 0
0004040 0 Q \ A L L O C M A P B U F F
0004060 E R ) \r ( 1 5 0 Q B U F F E R
0004100 1 3 3 Q B U F F E R 1 2 0
0004120 Q B U F F E R 1 0 7 Q B U
0004140 F F E R 7 7 Q M A P E M P T
0004160 Y B U F F E R L I S T 7 1 Q
0004200 M A P E M P T Y B U F F E R L I
0004220 S T 6 4 Q B U F F E R 6 0
0004240 Q M A P E M P T Y B U F F E R
0004260 L I S T 5 0 Q M A P E M P T
0004300 Y B U F F E R L I S T 4 0 Q
0004320 M A P E M P T Y B U F F E R L I
0004340 S T 2 6 Q B U F F E R 2 3
0004360 Q M A P E M P T Y B U F F E R
0004400 L I S T 1 2 Q B U F F E R
0004420 7 M A P E M P T Y B U F F E R
0004440 L I S T 2 M A P E M P T Y B
0004460 U F F E R L I S T ) \r ( ) \r L O
0004500 C K M A P D 1 \r ( L ( 0 P
0004520 T R ) ) \0 003 \0 \0 \0 001 @ 020 \0 N I
0004540 L \r N I L \r ( ) \r M A P A F T E
0004560 R C L O S E D 1 \r ( L ( 0
0004600 S T R E A M ) ) \0 031 \0 \0 \0 001 @
0004620 \t \0 \0 ` \0 \0 264 020 @ ` \0 \0 \t \0 \0 360
0004640 264 006 h 027 \0 \0 020 \0 ( 1 7 Q \ G E
0004660 T S T R E A M 3 \ C L E A R
0004700 M A P ) \r ( 2 6 Q D E F A U L
0004720 T M A P F I L E 1 4 Q D E F
0004740 A U L T M A P F I L E 6 D E
0004760 F A U L T M A P F I L E ) \r ( )
0005000 \r M A P B U F F E R C O U N T
0005020 D 1 \r ( L ( 0 A V A I L F L
0005040 G ) ) \0 ; 002 \0 \0 001 ` \0 \0 j 021 002
0005060 001 H 262 0 @ h 360 265 034 H 006 \0 \0 312 006 \0
0005100 j 360 h 360 265 017 H 006 \0 \0 312 006 020 j 360 h
0005120 360 h 360 H 006 \0 \0 311 006 270 262 327 I k 330 271
0005140 260 321 I 020 \0 N I L \r ( 5 4 Q B U
0005160 F F E R 3 7 Q B U F F E R
0005200 2 2 Q B U F F E R 2 S Y S
0005220 T E M B U F F E R L I S T ) \r (
0005240 ) \r M A P P A G E D 1 \r ( L
0005260 ( 2 R E A D O N L Y 1 F I
0005300 L E 0 P A G E # ) ) \0 _ 001
0005320 \0 \0 003 A \t \0 \0 021 001 \0 H d 006 \0 \0 311
0005340 006 006 \0 \0 312 \0 0 j 360 232 277 H o \0 \0 \0
0005360 \n \0 \0 277 H \t \0 \0 d g \0 \0 360 227 277 @
0005400 H i \v \0 \0 020 g \0 \0 360 262 036 @ H i \v
0005420 \0 \0 B 263 024 H 006 \0 \0 310 \n @ 361 250 H @
0005440 k 330 j \v \0 \0 277 020 H o \0 \0 \0 \n \0 \0
0005460 020 \0 ( 1 3 4 Q E R R O R 1 2
0005500 2 Q \ S E T E O F 7 6 Q \
0005520 M A P P A G E 6 1 Q \ M A P
0005540 P A G E 4 4 Q \ G E T A C C
0005560 E S S 3 7 Q E R R O R 3
0005600 \ G E T S T R E A M ) \r ( 1 0 5
0005620 Q S T R E A M 6 5 Q B O T
0005640 H 5 0 Q I N P U T 2 0 Q
0005660 F D E V 1 3 Q S T R E A M )
0005700 \r ( 1 3 1 Q " m u s t b e
0005720 o p e n f o r i n p u t
0005740 t o m a p . " 3 4 Q " n o
0005760 t p a g e - m a p p a b l e "
0006000 ) \r M A P W O R D D 1 \r ( L
0006020 ( 1 F I L E 0 F I L E A D
0006040 R ) ) \0 016 \0 \0 \0 002 @ 343 A \n \0 \0
0006060 @ n 001 377 345 320 020 \0 ( 5 M A P P A
0006100 G E ) \r N I L \r ( ) \r \ R E L E
0006120 A S E B U F F E R D 1 \r ( L
0006140 ( 1 S T R E A M 0 B U F F
0006160 E R ) ) \0 \f \0 \0 \0 002 @ ` \0 \0 024
0006200 004 @ 027 \0 \0 020 \0 N I L \r ( 1 1 Q
0006220 M A P E M P T Y B U F F E R L I
0006240 S T 3 M A P E M P T Y B U F
0006260 F E R L I S T ) \r ( ) \r R E L E
0006300 A S I N G V M E M P A G E D 1
0006320 \r ( L ( 0 P T R ) ) \0 024 \0
0006340 \0 \0 001 @ i \n \0 \0 d 232 k 317 006 \0 277 k
0006360 j 360 h 360 i 020 \0 ( 4 F I N D P T
0006400 R S B U F F E R ) \r N I L \r ( )
0006420 \r R E S T O R E M A P D 1 \r (
0006440 L ( 1 P A G E S 0 S T R
0006460 E A M ) ) \0 201 006 \0 \0 002 @ \t \0 \0
0006500 @ 311 030 021 B 005 I 241 K 020 A 231 A h 275 274
0006520 L d 263 6 262 - I d 312 006 \0 j 360 262 E d
0006540 312 006 020 j 360 232 277 H 311 002 I 311 002 360 262 3
0006560 I 311 \0 H I 311 002 \v \0 \0 277 I 311 \0 K 032
0006600 273 I Z 311 004 Y 260 301 003 243 L 275 h 204 L 001
0006620 275 L 002 274 M I 311 \0 360 262 267 M 263 272 i 260
0006640 265 I J 265 021 H I 311 004 Y 024 030 277 H \n \0
0006660 \0 277 260 224 I 311 004 Y 024 004 260 362 \0 ( 1 6
0006700 4 Q \ R E L E A S E B U F F E
0006720 R 7 5 Q D O P M A P 3 \
0006740 G E T S T R E A M ) \r N I L \r (
0006760 ) \r U N L O C K M A P D 1 \r (
0007000 L ( 0 P T R ) ) \0 003 \0 \0 \0
0007020 001 @ 020 \0 N I L \r N I L \r ( ) \r \
0007040 M A P P A G E D 1 \r ( L ( 2
0007060 U S E R F L G 1 S T R E A
0007100 M 0 F I L E P A G E # ) )
0007120 001 035 005 \0 \0 003 A 311 030 021 A 004 H 265 \t \b
0007140 \0 \0 X 261 \0 234 311 \0 @ 360 262 " B 225 H k
0007160 317 006 020 277 H d 312 006 \0 j 360 222 261 \0 322 311
0007200 002 025 001 277 H j 317 006 \0 261 \0 303 H 312 006 020
0007220 j 360 241 j 200 k 271 H 272 H 311 004 X 265 003 202
0007240 261 \0 201 K 225 I A 310 034 361 245 \b \0 \0 X 260
0007260 P K 311 004 270 A 312 004 R l 006 345 j 360 263 ;
0007300 H 312 006 020 j 360 262 031 H 312 006 j 360 237 A
0007320 311 002 H 311 002 360 262 # A 310 036 j 360 262 034 A
0007340 312 004 j 360 254 H 311 \0 A \n \0 \0 \ 223 H
0007360 L 032 200 H A \n \0 \0 277 K H 311 004 024 004 277
0007400 @ A H \t \0 \0 \v \0 \0 H @ 024 \0 277 H A
0007420 311 030 024 004 277 A H 024 030 277 H B 262 P k 260
0007440 N 311 \0 @ 360 262 , H 312 006 \0 j 360 253 H 311
0007460 002 025 001 277 H j 317 006 \0 277 J H 311 004 024 004
0007500 277 H A 311 030 024 004 277 A H 024 030 277 H 311 002
0007520 020 H 312 006 020 j 360 253 H d 312 006 \0 j 360 222
0007540 261 377 8 277 J 273 I k 330 261 377 - j 317 006 020
0007560 277 020 \0 ( 2 6 2 Q D O P M A P
0007600 2 5 7 Q C H E C K B U F F E R
0007620 R E F V A L 2 4 1 Q \ W R I
0007640 T E O U T B U F F E R S 2 2 6
0007660 Q \ C O L L E C T D I R T Y B
0007700 U F S 1 2 7 Q \ G E T M A P
0007720 B U F F E R 1 3 Q \ G E T M
0007740 A P B U F F E R ) \r N I L \r ( )
0007760 \r \ C O L L E C T D I R T Y B U
0010000 F S D 1 \r ( L ( 1 S T R E
0010020 A M 0 F I R S T P A G E ) )
0010040 \0 ^ 006 \0 \0 002 @ k 330 021 Q 005 A 311 030
0010060 ] d 263 025 \ 262 M H k 330 270 L 273 J 265 ?
0010100 K h 032 Z 271 260 350 311 \0 H 360 262 027 M d 312
0010120 006 020 j 360 262 $ d 312 006 j 360 262 034 277 A
0010140 265 \a M 311 004 260 313 311 002 M 311 002 360 262 365 A
0010160 312 030 j 360 263 355 M 265 274 i 260 271 K & 272
0010200 260 255 I 020 \0 N I L \r N I L \r ( ) \r
0010220 \ S E T I O D I R T Y D 1 \r (
0010240 L ( 1 P A G E N U M B E R
0010260 0 S T R E A M ) ) \0 ) 001 \0 \0
0010300 002 021 020 \0 @ 006 \0 \0 311 030 X 265 \a \b \0 \0
0010320 h 020 006 \0 \0 311 \0 A 360 226 H k 317 006 H
0010340 020 H 006 \0 \0 311 004 260 343 \0 ( 1 6 Q S
0010360 H O U L D N T ) \r ( 4 3 Q B U
0010400 F F E R 2 3 Q B U F F E R
0010420 6 S T R E A M ) \r ( ) \r W O R
0010440 D C O N T E N T S D 1 \r ( L
0010460 ( 0 P T R ) ) \0 005 \0 \0 \0 001 @
0010500 310 \0 020 \0 N I L \r N I L \r ( ) \r S
0010520 E T W O R D C O N T E N T S D
0010540 1 \r ( L ( 1 N 0 P T R )
0010560 ) \0 030 \0 \0 \0 002 @ d i \n \0 \0 252 277
0010600 @ o \0 \0 \0 \n \0 \0 277 @ A 315 \0 A 020 \0
0010620 ( 1 7 Q E R R O R 5 F I N
0010640 D P T R S B U F F E R ) \r N I L
0010660 \r ( 1 4 Q " n o t a P M
0010700 A P b u f f e r . " ) \r / S E
0010720 T W O R D C O N T E N T S D 1
0010740 \r ( L ( 1 N 0 P T R )
0010760 F 0 L I S P X H I S T ) \0
0011000 030 \0 001 \0 002 P 236 g \0 \0 @ d 310 \0 h 032
0011020 032 032 \t \0 \0 277 @ A 315 \0 A 020 \0 ( 1 7
0011040 Q U N D O S A V E ) \r ( 4 /
0011060 S E T W O R D C O N T E N T S )
0011100 \r ( ) \r W O R D O F F S E T D
0011120 1 \r ( L ( 1 N 0 P T R )
0011140 ) \0 005 \0 \0 \0 002 @ A 320 020 \0 N I L
0011160 \r N I L \r ( ) \r \ M A K E . P M
0011200 A P . D E V I C E D 1 \r ( L
0011220 ( 0 D E V I C E ) ) \0 232 \0 \0
0011240 \0 001 @ k 317 \0 @ 277 @ k 317 \0 P 277 @ k
0011260 317 \0 ` 277 @ k 317 \0 \0 277 @ k 317 \0 020 277
0011300 @ k 317 \0 0 277 @ k 317 \0 p 277 @ g \0 \0
0011320 024 036 277 @ g \0 \0 024 277 @ g \0 \0 024 "
0011340 277 @ g \0 \0 024 $ 277 @ g \0 \0 024 & 277 @
0011360 g \0 \0 024 . 277 @ g \0 \0 024 0 277 @ g \0
0011400 \0 024 2 277 @ g \0 \0 024 @ 277 @ g \0 \0 024
0011420 4 277 @ g \0 \0 024 6 277 @ g \0 \0 024 8 277
0011440 @ g \0 \0 024 > 277 @ d 311 * 227 d 311 * g
0011460 \0 \0 360 225 g \0 \0 024 * @ 020 \0 N I L \r
0011500 ( 2 2 4 Q \ P A G E D . F O R
0011520 C E O U T P U T 2 1 7 Q N I
0011540 L L 2 0 1 Q \ P A G E D . G
0011560 E T N E X T B U F F E R 1 7 2
0011600 Q \ B U F F E R E D . B O U T
0011620 S 1 6 3 Q \ B U F F E R E D
0011640 . B I N S 1 5 4 Q \ P A G E
0011660 D E O F P 1 4 5 Q \ P A G E
0011700 D . S E T E O F P T R 1 3 6 Q
0011720 \ P A G E D G E T E O F P T R
0011740 1 2 7 Q \ P A G E D G E T F
0011760 I L E P T R 1 2 0 Q \ P A G
0012000 E D S E T F I L E P T R 1 1 1
0012020 Q \ P A G E D B A C K F I L E
0012040 P T R 1 0 2 Q \ P A G E D R
0012060 E A D P 7 3 Q \ B U F F E R
0012100 E D . P E E K B I N 6 4 Q \
0012120 B U F F E R E D . B O U T 5 5
0012140 Q \ B U F F E R E D . B I N )
0012160 \r ( ) \r \ P A G E D B A C K F I
0012200 L E P T R D 1 \r ( L ( 0 S
0012220 T R E A M ) P 0 \ I N T E
0012240 R R U P T A B L E ) \0 | 003 \0 \0
0012260 001 @ d 312 004 R l 002 360 233 311 004 265 003 @ l
0012300 033 \n \0 \0 277 @ \t \0 \0 @ 310 \0 j 360 226 @
0012320 310 032 j 360 263 V 021 0 002 @ d d 310 \0 j 360
0012340 262 1 277 d d 312 030 j 360 257 277 d d 310 032
0012360 \n \0 \0 277 @ j 317 030 277 @ j 315 001 277 @
0012400 h 024 002 277 @ d 310 032 k 331 315 032 277 n 001 377
0012420 203 310 \0 k 331 315 \0 @ d 310 035 k 331 271 j I
0012440 361 241 I 200 j Z 315 035 J 020 h 020 \0 ( 1 0
0012460 1 Q \ S E T I O D I R T Y 2
0012500 7 Q \ U P D A T E O F 2 2 Q
0012520 \ L I S P E R R O R ) \r N I L
0012540 \r ( ) \r \ P A G E D S E T F I L
0012560 E P T R D 1 \r ( L ( 1 I N
0012600 D X 0 S T R E A M ) P 2
0012620 \ I N T E R R U P T A B L E )
0012640 \0 T 003 \0 \0 002 @ \t \0 \0 A 343 342 A n
0012660 001 377 345 021 022 002 H @ 310 032 360 262 025 @ d 312
0012700 004 R l 002 360 262 0 277 I @ 310 \0 375 361 262 &
0012720 @ d 312 030 j 360 255 d 310 032 \n \0 \0 277 @
0012740 j 317 030 277 @ j 315 001 277 @ h 024 002 277 @
0012760 H 315 032 277 @ I 315 \0 h 020 \0 ( 6 6 Q
0013000 \ S E T I O D I R T Y 3 \ U
0013020 P D A T E O F ) \r N I L \r ( ) \r
0013040 \ P A G E D . I N C F I L E P T
0013060 R D 1 \r ( L ( 1 A M O U N
0013100 T 0 S T R E A M ) P 0
0013120 \ I N T E R R U P T A B L E )
0013140 \0 200 003 \0 \0 002 021 0 002 @ 310 \0 A 330 271 n
0013160 002 \0 I 361 256 @ 310 032 I 343 342 330 272 I n 001
0013200 377 345 260 ' j I 361 262 O @ 310 032 n 002 \0 I
0013220 331 k 331 Y 343 342 331 272 j J 361 221 j 272 n 002
0013240 \0 I n 001 377 345 331 k 331 271 @ \t \0 \0 @ d
0013260 312 030 j 360 255 d 310 032 \n \0 \0 277 @ j 317
0013300 030 277 @ j 315 001 277 @ h 024 002 @ J 315 032
0013320 @ I 315 \0 h 020 j A 361 224 @ \t \0 \0 277 @
0013340 I 315 \0 h 020 \0 ( 1 6 7 Q \ U P D
0013360 A T E O F 1 2 5 Q \ S E T I
0013400 O D I R T Y 1 0 7 Q \ U P D
0013420 A T E O F ) \r N I L \r ( ) \r \ P
0013440 A G E D G E T F I L E P T R D
0013460 1 \r ( L ( 0 S T R E A M ) )
0013500 \0 021 \0 \0 \0 001 @ 006 \0 \0 310 032 341 340 @
0013520 006 \0 \0 310 \0 330 020 \0 N I L \r ( 1 3 Q
0013540 S T R E A M 3 S T R E A M
0013560 ) \r ( ) \r \ P A G E D G E T E O
0013600 F P T R D 1 \r ( L ( 0 S T
0013620 R E A M ) ) \0 025 \0 \0 \0 001 @ \t \0
0013640 \0 @ 006 \0 \0 310 \n 341 340 @ 006 \0 \0 310 \v 330
0013660 020 \0 ( 3 \ U P D A T E O F ) \r
0013700 ( 1 7 Q S T R E A M 7 S T
0013720 R E A M ) \r ( ) \r \ P A G E D R
0013740 E A D P D 1 \r ( L ( 1 F L
0013760 G 0 S T R E A M ) F 0
0014000 \ P R I M T E R M S A ) \0 1 \0
0014020 001 \0 002 @ \t \0 \0 h 360 264 ) A h 360 h 360
0014040 265 " P @ \t \0 \0 302 k 360 h 360 265 026 @ 310
0014060 032 @ 310 \n 375 361 265 \f @ 310 \0 k 330 @ 310 001
0014100 375 361 020 \0 ( 2 3 Q \ B U F F E R
0014120 E D . P E E K B I N 3 \ P A
0014140 G E D E O F P ) \r N I L \r ( ) \r
0014160 \ P A G E D E O F P D 1 \r ( L
0014200 ( 0 S T R E A M ) ) \0 P \0
0014220 \0 \0 001 @ d 006 \0 \0 312 004 R k 360 246 277 @
0014240 \t \0 \0 277 @ 006 \0 \0 310 032 @ 006 \0 \0 310 \0
0014260 343 342 330 @ 006 \0 \0 310 \n 375 361 221 h 020 @ 006
0014300 \0 \0 310 032 @ 006 \0 \0 310 \n 361 265 026 @ 006 \0
0014320 \0 310 \0 n 001 377 345 @ 006 \0 \0 310 \v 375 361 h
0014340 360 020 \0 ( 1 7 Q \ U P D A T E O
0014360 F ) \r ( 1 0 7 Q S T R E A M
0014400 7 5 Q S T R E A M 6 4 Q S
0014420 T R E A M 5 6 Q S T R E A M
0014440 4 3 Q S T R E A M 3 2 Q
0014460 S T R E A M 2 4 Q S T R E A
0014500 M 4 S T R E A M ) \r ( ) \r \
0014520 P A G E D . G E T N E X T B U F
0014540 F E R D 1 \r ( L ( 2 N O E
0014560 R R O R F L G 1 W H A T F O
0014600 R 0 S T R E A M ) P 4
0014620 \ I N T E R R U P T A B L E )
0014640 \0 316 005 \0 \0 003 @ 310 032 @ 310 \0 021 " 003 @
0014660 312 004 R j 360 233 @ 311 004 265 003 @ l \r \n \0
0014700 \0 277 I A g \0 \0 360 223 @ 310 001 202 n 002 \0
0014720 375 361 225 @ 311 002 221 i 020 021 020 004 @ d 312 030
0014740 j 360 255 d 310 032 \n \0 \0 277 @ j 317 030
0014760 277 @ j 315 001 277 @ h 024 002 277 I n 002 \0 360
0015000 235 @ j Y 315 \0 277 @ H k 330 X 315 032 277 023
0015020 H @ 310 \n Z 375 361 263 4 H J 360 227 I @ 310
0015040 \v 375 361 263 ( A d g \0 \0 360 232 277 B h 360
0015060 264 006 @ \t \0 \0 020 g \0 \0 360 232 @ H Z 315
0015100 \n 277 @ I 315 \v 202 \b \0 \0 277 H @ \n \0 \0
0015120 [ @ J H 361 223 n 002 \0 210 H J 360 223 @ 310
0015140 \v 200 j 315 001 277 @ n 002 \0 315 0 277 @ K 024
0015160 002 i 020 \0 ( 2 5 1 Q \ M A P P A
0015200 G E 2 4 3 Q S H O U L D N T
0015220 2 1 7 Q \ E O F . A C T I O
0015240 N 1 0 3 Q \ S E T I O D I R
0015260 T Y 3 2 Q \ L I S P E R R O
0015300 R ) \r ( 2 2 3 Q W R I T E 2
0015320 0 3 Q R E A D 4 0 Q R E A
0015340 D ) \r ( ) \r \ P A G E D . F O R
0015360 C E O U T P U T A 0 0 0 3 D 1
0015400 \r ( L ( 1 Y 0 X ) ) \0
0015420 \t \0 \0 \0 002 A 311 \0 @ 311 \0 361 020 \0 N I
0015440 L \r N I L \r ( ) \r \ P A G E D .
0015460 F O R C E O U T P U T D 1 \r (
0015500 L ( 0 S T R E A M ) P 0
0015520 \ I N T E R R U P T A B L E )
0015540 \0 251 005 \0 \0 001 @ g \0 \0 \n \0 \0 b \0
0015560 d d 312 004 R l 006 345 j 360 263 G 277 d \t \0
0015600 \0 277 021 020 \0 @ d 312 030 j 360 255 d 310 032
0015620 \n \0 \0 277 @ j 317 030 277 @ j 315 001 277 @
0015640 h 024 002 023 021 @ 004 @ 311 030 \ 265 027 I 022 g
0015660 \0 \0 \n \0 \0 021 ! 003 I 265 , 023 @ \t \0 \0
0015700 @ 020 312 006 020 j 360 230 L d 312 006 j 360 221
0015720 212 L 273 J 265 \f K h 032 Z 271 L 311 004 260 314
0015740 K & 272 260 370 d d 001 311 \0 273 272 J d 002 231
0015760 d 002 001 311 \0 K k 330 360 254 002 271 J h 031 277
0016000 @ \n \0 \0 277 260 263 002 272 K k 330 273 260 337 \0
0016020 ( 2 3 4 Q \ W R I T E O U T B
0016040 U F F E R S 1 3 0 Q \ T R U
0016060 N C A T E F I L E 1 1 5 Q S
0016100 O R T 5 3 Q \ S E T I O D I
0016120 R T Y 3 1 Q \ U P D A T E O
0016140 F 6 \ G E T S T R E A M ) \r
0016160 ( 1 1 2 Q \ P A G E D . F O R
0016200 C E O U T P U T A 0 0 0 3 3
0016220 O U T P U T ) \r ( ) \r \ U P D A
0016240 T E O F D 1 \r ( L ( 0 S T
0016260 R E A M ) ) \0 ) \0 \0 \0 001 @ 006 \0
0016300 \0 311 002 264 ! @ 006 \0 \0 310 \0 @ 006 \0 \0 310
0016320 001 361 264 022 @ d 006 \0 \0 310 032 @ 006 \0 \0 310
0016340 \0 \v \0 \0 020 \0 ( 4 6 Q \ S E T E
0016360 O F ) \r ( 4 1 Q S T R E A M
0016400 3 3 Q S T R E A M 2 1 Q S
0016420 T R E A M 1 3 Q S T R E A M
0016440 3 S T R E A M ) \r ( ) \r \ R
0016460 E A D P A G E S D 1 \r ( L (
0016500 2 B U F F E R L I S T 1 F
0016520 I R S T P A G E 0 S T R E A
0016540 M ) ) \0 027 001 \0 \0 003 @ 006 \0 \0 311 006
0016560 006 \0 \0 311 024 021 001 \0 @ A B l 003 H 016 020
0016600 \0 N I L \r ( 1 0 Q F D E V 3
0016620 S T R E A M ) \r ( ) \r \ W R I
0016640 T E P A G E S D 1 \r ( L ( 2
0016660 B U F F E R L I S T 1 F I
0016700 R S T P A G E 0 S T R E A M
0016720 ) ) \0 033 001 \0 \0 003 @ \t \0 \0 @ 006 \0
0016740 \0 311 006 006 \0 \0 311 034 021 001 \0 @ A B l 003
0016760 H 016 020 \0 ( 3 \ U P D A T E O F
0017000 ) \r ( 1 4 Q F D E V 7 S T
0017020 R E A M ) \r ( ) \r \ S E T E O F
0017040 D 1 \r ( L ( 2 E O 1 E
0017060 P 0 S T R E A M ) P 0
0017100 \ I N T E R R U P T A B L E )
0017120 \0 b 001 \0 \0 003 n 002 \0 B 361 257 A B 343 342
0017140 330 b 002 277 B n 001 377 345 b 004 277 021 020 \0 @
0017160 A 315 \n @ B 315 \v @ 311 002 264 < A @ 310 032
0017200 360 226 @ B 315 001 277 260 . @ d 310 032 A 361 262
0017220 ! d 312 030 j 360 255 d 310 032 \n \0 \0 277 @
0017240 j 317 030 277 @ j 315 001 277 @ h 024 002 277 204
0017260 n 002 \0 315 001 h 020 \0 ( 1 0 7 Q \ S
0017300 E T I O D I R T Y ) \r N I L \r (
0017320 ) \r \ P A G E D . S E T E O F P
0017340 T R D 1 \r ( L ( 1 N B Y T
0017360 E S 0 S T R E A M ) ) \0 ~
0017400 002 \0 \0 002 A 343 342 A n 001 377 345 021 002 001 @
0017420 H I \v \0 \0 d g \0 \0 360 262 @ 277 @ 006 \0
0017440 \0 312 004 R l 004 345 j 360 263 / @ H k 330 @
0017460 006 \0 \0 310 \n @ H I \v \0 \0 277 \v \0 \0 H
0017500 @ \n \0 \0 I n 001 377 \v \0 \0 @ H \n \0 \0
0017520 @ H I \v \0 \0 i 020 h 020 d g \0 \0 360 263
0017540 367 g \0 \0 360 262 030 @ 006 \0 \0 312 004 R l 002
0017560 345 j 360 263 345 @ H I \v \0 \0 i 020 \b \0 \0
0017600 020 \0 ( 1 7 3 Q S H O U L D N T
0017620 1 6 6 Q \ S E T E O F 1 2
0017640 1 Q \ T R U N C A T E F I L E
0017660 1 1 3 Q \ S E T I O D I R T
0017700 Y 1 0 6 Q \ Z E R O B Y T E
0017720 S 7 7 Q \ M A P P A G E 7
0017740 2 Q F O R G E T P A G E S 6
0017760 6 Q \ S E T E O F 2 0 Q \
0020000 N E W L E N G T H I S ) \r ( 1 4
0020020 6 Q S T R E A M 1 3 7 Q L
0020040 O N G E R 1 3 1 Q S A M E
0020060 5 6 Q S T R E A M 3 4 Q S
0020100 T R E A M 2 4 Q S H O R T E
0020120 R ) \r ( ) \r \ N E W L E N G T H
0020140 I S D 1 \r ( L ( 2 O F F
0020160 1 P G E 0 S T R E A M ) )
0020200 \0 7 001 \0 \0 003 @ \t \0 \0 @ 006 \0 \0 310
0020220 \n A 331 021 001 \0 j H 361 223 g \0 \0 020 H j
0020240 360 262 030 @ 006 \0 \0 310 \v B 331 X j H 361 263
0020260 353 d j 360 223 g \0 \0 020 g \0 \0 020 \0 ( 3
0020300 \ U P D A T E O F ) \r ( 6 4 Q
0020320 S H O R T E R 6 0 Q S A M
0020340 E 3 7 Q S T R E A M 2 5 Q
0020360 L O N G E R 7 S T R E A M
0020400 ) \r ( ) \r P P B U F S D 1 \r (
0020420 L ( 0 B U F 0 ) ) \0 A 001 \0
0020440 \0 001 021 020 \0 @ X 245 i \t \0 \0 h 020 o \0
0020460 \0 \0 i \n \0 \0 277 H 006 \0 \0 311 \0 i \n \0
0020500 \0 277 o \0 \0 \0 i \n \0 \0 277 H i \n \0 \0
0020520 277 o \0 \0 \0 i \n \0 \0 277 H 006 \0 \0 311 004
0020540 260 306 \0 ( 6 6 Q P R I N 1 5 5
0020560 Q P R I N 1 4 7 Q P R I N
0020600 1 3 6 Q P R I N 1 2 3 Q
0020620 P R I N 1 1 1 Q T E R P R I
0020640 ) \r ( 7 3 Q B U F F E R 3 0
0020660 Q B U F F E R ) \r ( 6 2 Q
0020700 " ] " 4 3 Q " : " 1 7
0020720 Q " [ " ) \r ( P R E T T Y C O
0020740 M P R I N T P M A P C O M S )
0020760 \r ( R P A Q Q P M A P C O M S
0021000 ( ( * P a g e m a p p i n
0021020 g p r i m i t i v e s . T h
0021040 i s f i l e i s s h a r e
0021060 d w i t h V A X . ) ( F N
0021100 S A D D M A P B U F F E R \r
0021120 \ A L L O C M A P B U F F E R
0021140 C H E C K B U F F E R R E F V A
0021160 L C L E A R M A P \ W R I T
0021200 E O U T B U F F E R S \ C L E
0021220 A R M A P D O P M A P F I N
0021240 D P T R S B U F F E R \r F O R
0021260 G E T P A G E S \ G E T M A P
0021300 B U F F E R L O C K M A P M
0021320 A P A F T E R C L O S E M A P
0021340 B U F F E R C O U N T M A P P
0021360 A G E M A P W O R D \ R E L
0021400 E A S E B U F F E R \r R E L E
0021420 A S I N G V M E M P A G E R E
0021440 S T O R E M A P U N L O C K M
0021460 A P \ M A P P A G E \ C O L
0021500 L E C T D I R T Y B U F S \ S
0021520 E T I O D I R T Y ) ( F N S
0021540 W O R D C O N T E N T S \r S E
0021560 T W O R D C O N T E N T S / S
0021600 E T W O R D C O N T E N T S W
0021620 O R D O F F S E T ) ( E X P O
0021640 R T ( P R O P B Y T E M A C
0021660 R O W O R D C O N T E N T S
0021700 S E T W O R D C O N T E N T S
0021720 \r W O R D O F F S E T ) ) ( C
0021740 O M S ( A D D V A R S ( D E
0021760 F A U L T M A P F I L E ) ( S
0022000 Y S T E M B U F F E R L I S T )
0022020 ( M A P E M P T Y B U F F E R
0022040 L I S T ) ) ( G L O B A L V A
0022060 R S \r S Y S T E M B U F F E R
0022100 L I S T M A P E M P T Y B U F
0022120 F E R L I S T D E F A U L T M
0022140 A P F I L E ) ) ( C O M S (
0022160 * F u n c t i o n s f o r
0022200 p a g e - m a p p e d d e v i
0022220 c e s ) ( \r D E C L A R E :
0022240 D O N T C O P Y ( E X P O R T
0022260 ( M A C R O S \ R E L E A S
0022300 E C P A G E ) ) ) ( F N S \
0022320 M A K E . P M A P . D E V I C E
0022340 \ P A G E D B A C K F I L E P
0022360 T R \r \ P A G E D S E T F I L
0022400 E P T R \ P A G E D . I N C F
0022420 I L E P T R \ P A G E D G E T
0022440 F I L E P T R \ P A G E D G E
0022460 T E O F P T R \ P A G E D R E
0022500 A D P \ P A G E D E O F P \r
0022520 \ P A G E D . G E T N E X T B U
0022540 F F E R \ P A G E D . F O R C
0022560 E O U T P U T \ U P D A T E O
0022600 F \ R E A D P A G E S \ W R
0022620 I T E P A G E S ) ( F N S \
0022640 S E T E O F \r \ P A G E D . S
0022660 E T E O F P T R \ N E W L E N
0022700 G T H I S ) ( D E C L A R E :
0022720 D O N T E V A L @ L O A D D
0022740 O C O P Y ( * F o r T E X
0022760 T O F D ) ( P ( P U T D (
0023000 Q U O T E \r \ P A G E D B I N
0023020 ) ( G E T D ( Q U O T E \
0023040 B U F F E R E D . B I N ) ) T
0023060 ) ( P U T D ( Q U O T E \
0023100 P A G E D P E E K B I N ) ( G
0023120 E T D ( Q U O T E \ B U F F
0023140 E R E D . P E E K B I N ) \r )
0023160 T ) ) ) ) ( F N S P P B U F
0023200 S ) ( D E C L A R E : D O N
0023220 T C O P Y ( R E C O R D S B
0023240 U F F E R ) E V A L @ C O M P
0023260 I L E ( M A C R O S G E T B
0023300 U F F E R P T R \r C H E C K B
0023320 U F F E R R E F C P B U F F E
0023340 R P B U F F E R I N U S E P
0023360 U N D I R T Y D I R T Y P )
0023400 ( I . S . O P R S I N B U F S
0023420 ) ) ( I N I T R E C O R D S
0023440 B U F F E R ) ( \r L O C A L V
0023460 A R S . T ) ) ) \r ( P U T P
0023500 R O P S W O R D C O N T E N T
0023520 S B Y T E M A C R O ( ( P T
0023540 R ) ( \ G E T B A S E P T R
0023560 0 ) ) ) \r ( P U T P R O P S
0023600 S E T W O R D C O N T E N T S
0023620 B Y T E M A C R O ( ( P T R
0023640 N ) ( \ P U T B A S E P T R
0023660 0 N ) ) ) \r ( P U T P R O P
0023700 S W O R D O F F S E T B Y T
0023720 E M A C R O ( ( P T R N )
0023740 ( \ A D D B A S E P T R N )
0023760 ) ) \r ( A D D T O V A R D E F
0024000 A U L T M A P F I L E ) \r ( A D
0024020 D T O V A R S Y S T E M B U F
0024040 F E R L I S T ) \r ( A D D T O V
0024060 A R M A P E M P T Y B U F F E
0024100 R L I S T ) \r ( P U T D ( Q U
0024120 O T E \ P A G E D B I N ) (
0024140 G E T D ( Q U O T E \ B U F
0024160 F E R E D . B I N ) ) T ) \r (
0024200 P U T D ( Q U O T E \ P A G
0024220 E D P E E K B I N ) ( G E T D
0024240 ( Q U O T E \ B U F F E R E
0024260 D . P E E K B I N ) ) T ) \r (
0024300 / D E C L A R E D A T A T Y P E
0024320 ( Q U O T E B U F F E R )
0024340 ( Q U O T E ( P O I N T E R
0024360 X P O I N T E R P O I N T E R
0024400 P O I N T E R F L A G F L
0024420 A G F L A G ) ) ) \r ( P U T P
0024440 R O P S P M A P C O P Y R I
0024460 G H T ( " X e r o x C o r p
0024500 o r a t i o n " 1 9 8 2 1 9
0024520 8 3 1 9 8 4 ) ) \r N I L \r
0024536