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