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