$ od -c -N 50000 [Indigo]<Loops>RELEASE>1-MAY-84>BLOCKLOOKUP.DCOM!1
0000000 ( F I L E C R E A T E D " 1 8
0000020 - O C T - 8 3 1 7 : 5 2 : 5 0
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > B L O C K L O
0000120 O K U P . ; 3 ) \r " 1 2 - O C
0000140 T - 8 3 1 3 : 5 2 : 2 8 " r
0000160 e c o m p i l e d e x p r s :
0000200 \ A d d B l o c k E n t r y
0000220 \ B l o c k F r o m L i s t \
0000240 B l o c k F u l l \ C l e a r
0000260 B l o c k \r \ D e l e t e N t
0000300 h E n t r y \ F i n d E n t r
0000320 y I n d e x \ F r e e E n t r
0000340 y I n d e x \ G e t N t h E n
0000360 t r y \ G r o w B l o c k \
0000400 L i s t F r o m B l o c k \ M
0000420 a k e B l o c k \r \ N e x t B
0000440 l o c k S i z e \ P r i n t B
0000460 l o c k \ P u t N t h E n t r
0000500 y i n W O R K d a t e d
0000520 " 1 2 - O C T - 8 3 1 9 : 5 2
0000540 : 2 1 " ) \r ( F I L E C R E A T
0000560 E D " 1 8 - O C T - 8 3 1 7
0000600 : 5 2 : 3 3 " { I N D I G O }
0000620 < L O O P S > S O U R C E S > B
0000640 L O C K L O O K U P . ; 3 7 8
0000660 9 1 c h a n g e s t o : (
0000700 F N S \r \ A d d B l o c k E n
0000720 t r y \ F r e e E n t r y I n
0000740 d e x \ M a k e B l o c k )
0000760 p r e v i o u s d a t e : "
0001000 2 5 - M A Y - 8 3 1 7 : 1 8 :
0001020 2 4 " \r { I V Y } < B O B R O
0001040 W > L I S P > B L O C K L O O K
0001060 U P . ; 4 ) \r \ A d d B l o c k
0001100 E n t r y D 1 \r ( I 2 f r
0001120 e e I n d e x I 1 E N T R
0001140 Y I 0 B L O C K ) \0 1 \0
0001160 \0 \0 003 B 246 @ \t \0 \0 b 004 277 @ 265 \b \b
0001200 \0 \0 b \0 215 B \n \0 \0 227 @ B \n \0 \0 b
0001220 \0 200 @ B l 002 330 320 h 316 \0 @ B 320 A 024
0001240 \0 @ 020 \0 ( 3 3 Q \ G r o w B l
0001260 o c k 2 5 Q \ B l o c k F u
0001300 l l 1 6 Q \ M a k e B l o c
0001320 k 5 \ F r e e E n t r y I n
0001340 d e x ) \r N I L \r N I L \r \ B l
0001360 o c k F r o m L i s t D 1 \r (
0001400 P 0 i t e m I 2 b l o
0001420 c k I 1 e x t r a c t F n
0001440 I 0 l s t ) \0 / 001 \0 \0 003
0001460 B 265 017 @ \t \0 \0 \t \0 \0 b 004 277 @ 260 033
0001500 \t \0 \0 260 371 d 001 021 001 \0 B A 225 H k A
0001520 017 016 200 H \n \0 \0 023 002 003 265 353 B 020 \0 (
0001540 4 6 Q \ A d d B l o c k E n t
0001560 r y 2 2 Q \ C l e a r B l o
0001600 c k 1 1 Q \ M a k e B l o c
0001620 k 6 L E N G T H ) \r N I L \r
0001640 N I L \r \ B l o c k F u l l D
0001660 1 \r ( I 1 f r e e I n d e x
0001700 I 0 B L O C K ) \0 025 \0 \0
0001720 \0 002 A 246 @ \t \0 \0 b 002 277 @ A l 002 330
0001740 320 311 \0 i 360 020 \0 ( 5 \ F r e e E
0001760 n t r y I n d e x ) \r N I L \r N
0002000 I L \r \ C l e a r B l o c k D
0002020 1 \r ( L ( 0 b l o c k ) )
0002040 \0 032 001 \0 \0 001 j 021 001 \0 @ d H 320 311 \0
0002060 240 020 H 320 h 024 \0 277 H l 002 330 270 260 355 \0
0002100 N I L \r N I L \r N I L \r \ D e l
0002120 e t e N t h E n t r y D 1 \r (
0002140 I 1 N I 0 B L O C K )
0002160 \0 " 001 \0 \0 002 @ \t \0 \0 l 002 331 021 001
0002200 \0 A H 360 252 @ A 320 @ H 320 311 \0 024 \0 277
0002220 @ H 320 h 024 \0 @ 020 \0 ( 3 \ F r e
0002240 e E n t r y I n d e x ) \r N I L
0002260 \r N I L \r \ F i n d E n t r y I
0002300 n d e x D 1 \r ( L ( 1 B L
0002320 O C K 0 K E Y ) ) \0 036 002 \0
0002340 \0 002 A 264 024 j 021 021 001 A H 320 311 \0 Y 241
0002360 h 020 @ I 360 221 H 020 H l 002 330 270 260 354 \0
0002400 N I L \r N I L \r N I L \r \ F r e
0002420 e E n t r y I n d e x D 1 \r (
0002440 L ( 0 b l o c k ) ) \0 031 001
0002460 \0 \0 001 @ 262 025 j 021 001 \0 @ H 320 311 \0 241
0002500 H 020 H l 002 330 270 260 363 j 020 \0 N I L \r
0002520 N I L \r N I L \r \ G e t N t h E
0002540 n t r y D 1 \r ( L ( 1 W O
0002560 R D N U M B E R 0 B L O C K
0002600 ) ) \0 \a \0 \0 \0 002 @ A 320 311 \0 020 \0
0002620 N I L \r N I L \r N I L \r \ G r o
0002640 w B l o c k D 1 \r ( I 1 f
0002660 r e e I n d e x I 0 B L O
0002700 C K F 3 \ B l o c k I n c
0002720 r e m e n t ) \0 / 003 001 \0 002 A 265
0002740 \b @ \t \0 \0 b 002 S 330 \t \0 \0 021 ! 002 A
0002760 j 272 271 J I 361 263 024 H J 320 @ J 320 311 \0
0003000 024 \0 277 J l 002 330 Z 260 354 H 020 \0 ( 1 5
0003020 Q \ M a k e B l o c k 6 \
0003040 F r e e E n t r y I n d e x ) \r
0003060 N I L \r N I L \r \ L i s t F r o
0003100 m B l o c k D 1 \r ( I 1 f
0003120 r e e I n d e x I 0 b l o
0003140 c k ) \0 8 005 \0 \0 002 A 246 @ \t \0 \0
0003160 b 002 277 @ d 237 003 265 017 A l 002 331 j 021 2
0003200 004 I H 361 221 J 020 @ I 320 311 \0 274 K 265 016
0003220 L h 032 [ 272 I l 002 330 Y 260 350 L & 273 260
0003240 366 \0 ( 5 \ F r e e E n t r y I
0003260 n d e x ) \r N I L \r N I L \r \ M
0003300 a k e B l o c k D 1 \r ( P 1
0003320 B L O C K P 0 s i z e
0003340 I 0 n u m P o i n t e r s )
0003360 \0 035 002 \0 \0 001 @ \t \0 \0 021 021 001 H i
0003400 \n \0 \0 Y d h 316 \0 I H k 331 340 320 i 316
0003420 \0 I 020 \0 ( 1 3 Q \ A L L O C B
0003440 L O C K 3 \ N e x t B l o c
0003460 k S i z e ) \r N I L \r N I L \r \
0003500 N e x t B l o c k S i z e D 1
0003520 \r ( L ( 0 l e n g t h ) F
0003540 0 \ I n i t B l o c k S i z
0003560 e F 1 \ B l o c k I n c r
0003600 e m e n t ) \0 025 \0 002 \0 001 @ 224 P
0003620 d @ 361 221 P 020 Q @ P 331 Q 333 k 330 332 330
0003640 020 \0 N I L \r N I L \r N I L \r \ P
0003660 r i n t B l o c k D 1 \r ( P
0003700 1 I I 1 f r e e I n d e
0003720 x I 0 B L O C K ) \0 1 002
0003740 \0 \0 002 A 265 \b @ \t \0 \0 b 002 l 002 331 j
0003760 021 002 001 I d H 361 221 h 020 \t \0 \0 277 k \t
0004000 \0 \0 277 @ I 320 311 \0 \t \0 \0 277 I l 002 330
0004020 Y 260 343 \0 ( 4 7 Q P R I N T 3
0004040 6 Q S P A C E S 3 1 Q P R
0004060 I N 1 6 \ F r e e E n t r y
0004100 I n d e x ) \r N I L \r N I L \r \
0004120 P u t N t h E n t r y D 1 \r (
0004140 L ( 2 V A L 1 N T H W O
0004160 R D 0 B L O C K ) ) \0 \t \0
0004200 \0 \0 003 @ A 320 B 024 \0 B 020 \0 N I L \r
0004220 N I L \r N I L \r ( P R E T T Y C
0004240 O M P R I N T B L O C K L O O
0004260 K U P C O M S ) \r ( R P A Q Q
0004300 B L O C K L O O K U P C O M S
0004320 ( ( V A R S \ B l o c k I n c
0004340 r e m e n t \ I n i t B l o c
0004360 k S i z e ) ( M A C R O S \
0004400 G e t N t h E n t r y \ P u t
0004420 N t h E n t r y \r \ W o r d F
0004440 r o m P t r I n d e x ) ( F N
0004460 S \ A d d B l o c k E n t r y
0004500 \ B l o c k F r o m L i s t
0004520 \ B l o c k F u l l \ C l e a
0004540 r B l o c k \ D e l e t e N t
0004560 h E n t r y \r \ F i n d E n t
0004600 r y I n d e x \ F r e e E n t
0004620 r y I n d e x \ G e t N t h E
0004640 n t r y \ G r o w B l o c k
0004660 \ L i s t F r o m B l o c k \
0004700 M a k e B l o c k \ N e x t B
0004720 l o c k S i z e \r \ P r i n t
0004740 B l o c k \ P u t N t h E n t
0004760 r y ) ) ) \r ( R P A Q Q \ B l
0005000 o c k I n c r e m e n t 8 ) \r
0005020 ( R P A Q Q \ I n i t B l o c
0005040 k S i z e 8 ) \r ( P U T P R O
0005060 P S \ G e t N t h E n t r y
0005100 M A C R O ( ( B L O C K W O
0005120 R D N U M B E R ) ( * W O R
0005140 D N U M B E R i s u s e d
0005160 f o r p o s i t i o n r a t
0005200 h e r t h a n t h e \r e n
0005220 t r y n u m b e r ) ( \ G E
0005240 T B A S E P T R B L O C K W
0005260 O R D N U M B E R ) ) ) \r ( P U
0005300 T P R O P S \ P u t N t h E n
0005320 t r y M A C R O ( ( B L O C
0005340 K N T H W O R D V A L ) (
0005360 * S t o r e V A L i n p
0005400 o s i t i o n N T H W O R D )
0005420 ( \ R P L P T R B L O C K
0005440 \r N T H W O R D V A L ) ) ) \r
0005460 ( P U T P R O P S \ W o r d F
0005500 r o m P t r I n d e x M A C R
0005520 O ( ( p t r I n d e x ) ( L
0005540 L S H p t r I n d e x 1 ) )
0005560 ) \r ( P U T P R O P S B L O C
0005600 K L O O K U P C O P Y R I G H
0005620 T ( " X e r o x C o r p o r
0005640 a t i o n " 1 9 8 3 ) ) \r N I
0005660 L \r
0005662