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