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