$ od -c -N 50000 [Indigo]<Dragon>Modula>Modula2Fig4.sil!1 0000000 9 l 377 377 001 J 001 x 001 _ 001 200 \0 \0 003 Q 0000020 R X 377 377 001 R 001 X 001 _ 001 _ \0 \0 002 R 0000040 X \0 377 377 001 N 001 F 001 ] 001 N \0 \0 003 S 0000060 R I 377 377 001 N 001 8 001 \ 001 ? \0 \0 003 L 0000100 R I 377 377 001 P 001 $ 001 ` 001 + \0 \0 002 W 0000120 B \0 377 377 001 P 001 030 001 ] 001 037 \0 \0 002 R 0000140 B \0 377 377 \0 330 002 X 001 : 002 a \0 \0 025 F 0000160 i g u r e 4 . I t e m M 0000200 o d e s 377 377 001 374 001 236 002 4 001 246 \0 \0 0000220 \v c o n d l o a d e d 377 377 001 316 0000240 001 234 001 360 001 245 \0 \0 \b i n c - r e 0000260 g \0 377 377 001 364 001 264 001 371 001 265 016 \0 377 377 0000300 001 370 001 224 001 371 001 264 016 \0 377 377 001 364 001 224 0000320 001 370 001 225 016 \0 377 377 002 002 \0 304 002 ! \0 313 0000340 \0 \0 006 l o a d e d \0 377 377 001 370 \0 364 0000360 001 375 \0 365 016 \0 377 377 001 374 \0 224 001 375 \0 364 0000400 016 \0 377 377 001 370 \0 224 001 374 \0 225 016 \0 377 377 0000420 001 320 \0 342 001 360 \0 353 \0 \0 \b i n r - 0000440 r e g \0 377 377 001 316 \0 274 001 365 \0 303 \0 \0 0000460 \b o n s t a c k \0 377 377 001 304 001 264 0000500 001 311 001 265 016 \0 377 377 001 310 001 224 001 311 001 264 0000520 016 \0 377 377 001 304 001 224 001 310 001 225 016 \0 377 377 0000540 001 310 001 T 001 311 001 220 016 \0 377 377 001 h \0 336 0000560 001 251 \0 347 \0 \0 \r d L = 0 , r e g 0000600 v a r 377 377 001 h 001 036 001 201 001 & \0 \0 0000620 006 d L > 1 \0 377 377 001 h 001 > 001 273 0000640 001 G \0 \0 017 d L = 0 / 1 , m e m 0000660 v a r 377 377 \0 324 001 200 001 ' 001 213 \0 \0 0000700 020 m [ r [ L + r e g ] + r [ S ] 0000720 ] \0 377 377 \0 324 001 ` 001 027 001 k \0 \0 016 m 0000740 [ r [ S - 1 ] + r [ S ] ] \0 377 377 0000760 \0 324 001 @ 001 " 001 K \0 \0 017 m [ r [ L 0001000 + r e g ] + o f f ] 377 377 \0 324 001 0001020 001 \t 001 + \0 \0 \v m [ r [ S ] + o f 0001040 f ] 377 377 \0 324 \0 300 \0 344 \0 313 \0 \0 004 r 0001060 [ S ] \0 377 377 \0 326 001 \0 001 003 001 \t \0 \0 0001100 \t O p e r a t i o n 377 377 \0 324 \0 240 0001120 001 3 \0 251 \0 \0 024 J u m p L i n k 0001140 s , R e l a t i o n \0 377 377 001 304 0001160 \0 264 001 310 \0 265 016 \0 377 377 \0 304 \0 t \0 305 0001200 002 4 016 \0 377 377 \0 | \0 t \0 } 002 4 016 \0 0001220 377 377 \0 , \0 t \0 - 002 4 016 \0 377 377 \0 , 0001240 002 4 001 300 002 5 016 \0 377 377 \0 , 002 4 001 d 0001260 002 5 016 \0 377 377 001 d 002 024 001 300 002 025 016 \0 0001300 377 377 001 d 002 4 001 301 002 5 016 \0 377 377 001 p 0001320 002 001 205 002 ' \0 \0 004 P r o c \0 377 377 0001340 001 r 002 \0 001 203 002 \b \0 \0 003 T y p 377 377 0001360 001 r 001 340 001 240 001 347 \0 \0 \b C o d e P 0001400 r o c \0 377 377 001 r 001 300 001 201 001 307 \0 \0 0001420 003 V a r 377 377 001 r 001 240 001 215 001 247 \0 \0 0001440 005 C o n s t 377 377 \0 B 002 \0 ^ 002 ( 0001460 \0 \0 005 t y p M d 377 377 \0 B 002 \0 \0 e 0001500 002 \b \0 \0 006 p r o c M d \0 377 377 \0 B 0001520 001 340 \0 a 001 347 \0 \0 005 c o d M d 377 377 0001540 \0 B 001 300 \0 ^ 001 307 \0 \0 005 v a r M d 0001560 377 377 \0 B 001 240 \0 a 001 247 \0 \0 005 c o n 0001600 M d 377 377 \0 . 002 024 001 g 002 025 016 \0 377 377 0001620 \0 . 001 364 001 302 001 365 016 \0 377 377 \0 . 001 324 0001640 001 302 001 325 016 \0 377 377 \0 . 001 264 001 302 001 265 0001660 016 \0 377 377 \0 . 001 224 001 302 001 225 016 \0 377 377 0001700 \0 B \0 376 \0 a 001 \a \0 \0 005 o p n M d 0001720 377 377 001 304 \0 364 001 311 \0 365 016 \0 377 377 \0 , 0001740 \0 362 001 300 \0 363 016 \0 377 377 \0 200 \0 250 \0 263 0001760 \0 260 \0 \0 \n F j m p , T j m p \0 0002000 377 377 \0 210 \0 236 \0 252 \0 247 \0 \0 \b o p t 0002020 , r e g \0 377 377 \0 222 \0 226 \0 234 \0 236 0002040 \0 \0 003 r e l 377 377 \0 212 001 006 \0 270 001 016 0002060 \0 \0 \n o p t 2 , r e g 2 \0 377 377 0002100 \0 216 \0 374 \0 261 001 003 \0 \0 \b o p t , 0002120 r e g \0 377 377 \0 230 \0 364 \0 247 \0 372 \0 \0 0002140 003 o p r 377 377 \0 214 \0 340 \0 257 \0 347 \0 \0 0002160 \b o p t , r e g \0 377 377 \0 @ \0 340 0002200 \0 ] \0 350 \0 \0 005 r e g M d 377 377 \0 @ 0002220 \0 240 \0 _ \0 250 \0 \0 005 j m p M d 377 377 0002240 001 320 001 l 002 033 001 s \0 \0 017 b a s e / 0002260 i n x l o a d e d 377 377 001 320 001 0 0002300 002 001 001 7 \0 \0 \n a d r l o a d e 0002320 d \0 377 377 001 d \0 t 001 e 002 4 016 \0 377 377 0002340 001 300 \0 t 001 301 002 4 016 \0 377 377 \0 , 001 T 0002360 001 300 001 U 016 \0 377 377 001 300 002 4 001 301 002 5 0002400 016 \0 377 377 \0 , 001 224 001 300 001 225 016 \0 377 377 0002420 \0 , 001 t 001 300 001 u 016 \0 377 377 \0 , 001 4 0002440 001 300 001 5 016 \0 377 377 \0 < \0 200 \0 U \0 207 0002460 \0 \0 004 M o d e \0 377 377 \0 210 \0 200 \0 264 0002500 \0 207 \0 \0 \n A t t r i b u t e s \0 0002520 377 377 \0 320 \0 200 \0 345 \0 207 \0 \0 004 D a t 0002540 a \0 377 377 \0 , \0 264 001 300 \0 265 016 \0 377 377 0002560 \0 , \0 324 001 300 \0 325 016 \0 377 377 \0 , \0 224 0002600 001 300 \0 226 016 \0 377 377 \0 , \0 t 001 d \0 u 0002620 016 \0 377 377 001 d \0 t 001 300 \0 u 016 \0 377 377 0002640 \0 , \0 364 001 300 \0 365 016 \0 377 377 \0 , 001 024 0002660 001 300 001 025 016 \0 377 377 \0 @ 001 200 \0 ^ 001 207 0002700 \0 \0 006 l i n x M d \0 377 377 \0 230 001 200 0002720 \0 247 001 206 \0 \0 003 r e g 377 377 \0 @ 001 ` 0002740 \0 a 001 g \0 \0 006 s i n x M d \0 377 377 0002760 \0 @ 001 @ \0 ` 001 G \0 \0 006 l a d r M 0003000 d \0 377 377 \0 220 001 @ \0 260 001 H \0 \0 \b r 0003020 e g , o f f \0 377 377 \0 224 001 \0 240 0003040 001 ' \0 \0 003 o f f 377 377 \0 @ 001 \0 b 0003060 001 ' \0 \0 006 s a d r M d \0 377 377 \0 @ 0003100 \0 300 \0 [ \0 307 \0 \0 005 s t k M d 377 377 0003120 \0 , 001 222 001 300 001 223 016 \0 377 377 \0 , 001 R 0003140 001 300 001 S 016 \0 377 377 \0 , \0 322 001 300 \0 323 0003160 016 \0 377 377 001 304 001 T 001 310 001 U 016 \0 377 377 0003200 001 304 001 220 001 311 001 221 016 \0 377 377 001 304 001 024 0003220 001 310 001 025 016 \0 377 377 001 310 001 024 001 311 001 P 0003240 016 \0 377 377 001 304 001 P 001 311 001 Q 016 \0 377 377 0003260 001 304 \0 324 001 304 \0 325 016 \0 377 377 001 304 \0 324 0003300 001 310 \0 325 016 \0 377 377 001 310 \0 324 001 311 \0 364 0003320 016 \0 377 377 001 310 \0 264 001 311 \0 320 016 \0 377 377 0003340 001 304 \0 320 001 311 \0 321 016 \0 377 377 001 p \0 200 0003360 001 260 \0 207 \0 \0 021 i n i t i a l s 0003400 t a t e f o r 377 377 \0 324 001 240 001 016 0003420 001 251 \0 \0 \f s y m b o l t a b l 0003440 e \0 377 377 \0 324 001 300 001 016 001 311 \0 \0 \f s 0003460 y m b o l t a b l e \0 377 377 \0 324 0003500 001 340 001 016 001 351 \0 \0 \f s y m b o l 0003520 t a b l e \0 377 377 \0 324 002 \0 001 016 002 \t 0003540 \0 \0 \f s y m b o l t a b l e \0 0003560 377 377 \0 324 002 001 016 002 ) \0 \0 \f s y m 0003600 b o l t a b l e \0 377 377 \0 324 \0 340 0003620 \0 374 \0 353 \0 \0 \b r [ L + r e g ] \0 0003640 377 377 \0 , 001 224 \0 | 001 364 037 \0 377 377 \0 , 0003660 001 324 \0 | 002 4 037 \0 377 377 \0 , \0 224 \0 | 0003700 001 224 037 \0 0003704