$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>LLSTK.DCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - F e b - 8 5 1 6 : 4 5 : 0 8
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 S T K . ; 3 )
0000120 " 1 - F e b - 8 5 2 0 : 1
0000140 8 : 5 3 " \r t c o m p l ' d
0000160 i n " I N T E R L I S P - D
0000200 1 - F e b - 8 5 . . . " d
0000220 a t e d " 1 - F e b - 8 5
0000240 2 0 : 2 9 : 5 4 " ) \r ( F I L E
0000260 C R E A T E D " 5 - F e b -
0000300 8 5 1 6 : 4 4 : 0 9 " { E R
0000320 I S } < L I S P C O R E > 3 2 M
0000340 B > L L S T K . ; 3 5 6 9 4 8
0000360 c h a n g e s t o : ( R E
0000400 C O R D S F X P V A R S L O
0000420 T \r S T K T E M P S L O T )
0000440 ( F N S \ M O V E F R A M E
0000460 \ S M A S H L I N K \ M O V E
0000500 B L O C K R E L S T K P \ S
0000520 E T A R G 0 \ M A K E S T A C
0000540 K P C L E A R S T K ) ( V A
0000560 R S \r L L S T K C O M S ) p
0000600 r e v i o u s d a t e : "
0000620 4 - J a n - 8 5 1 7 : 1 7 : 3
0000640 7 " { E R I S } < L I S P C O
0000660 R E > 3 2 M B > L L S T K . ; 2
0000700 ) \r \ M Y A R G C O U N T D 1
0000720 \r N I L \0 , 001 \0 \0 \0 f 021 001 \0 k
0000740 H 321 312 001 360 j 360 224 H l 002 331 204 k H 321
0000760 310 \b 022 021 001 \0 H k H 321 310 001 331 342 k H
0001000 321 312 \0 p 331 020 \0 N I L \r N I L \r (
0001020 ) \r \ A R G 0 D 1 \r ( L ( 0
0001040 N ) ) \0 L 001 \0 \0 001 f 021 001 \0 k
0001060 H 321 312 001 360 j 360 224 H l 002 331 204 k H 321
0001100 310 \b 022 021 001 \0 @ d j 361 262 & H k H 321
0001120 310 001 331 342 k H 321 312 \0 p 331 361 263 023 ` \0
0001140 \0 k H 321 310 001 @ k 331 340 330 320 311 \0 020 @
0001160 l 033 \n \0 \0 020 \0 ( 1 1 1 Q \ L I
0001200 S P E R R O R ) \r ( 6 5 Q \ S
0001220 T A C K S P A C E ) \r ( ) \r \ S
0001240 E T A R G 0 D 1 \r ( L ( 1
0001260 V A L 0 N ) ) \0 L 001 \0 \0 002
0001300 f 021 001 \0 k H 321 312 001 360 j 360 224 H l 002
0001320 331 204 k H 321 310 \b 022 021 001 \0 @ d j 361 262
0001340 & H k H 321 310 001 331 342 k H 321 312 \0 p 331
0001360 361 263 023 k d H 321 310 001 @ k 331 340 330 321 A
0001400 316 \0 A 020 @ l 033 \n \0 \0 020 \0 ( 1 1 1
0001420 Q \ L I S P E R R O R ) \r N I
0001440 L \r ( ) \r \ H A R D R E T U R N
0001460 D 1 \r ( L ( 0 V A L ) )
0001500 \0 006 \0 \0 \0 001 l 004 ~ @ 020 \0 N I L \r
0001520 N I L \r ( ) \r \ D O H A R D R E
0001540 T U R N D 1 \r N I L \0 020 \0 \0
0001560 \0 \0 ` \0 \0 310 004 \t \0 \0 277 l 004 ~ 277 260
0001600 363 \0 ( 7 \ D O H A R D R E T U
0001620 R N 1 ) \r ( 2 \ I n t e r f a
0001640 c e P a g e ) \r ( ) \r \ D O G C
0001660 1 D 1 \r N I L \0 016 \0 \0 \0 \0 \b
0001700 \0 \0 \b \0 \0 \b \0 \0 g \0 \0 020 \0 ( 1 0
0001720 Q \ G C M A P U N S C A N 5
0001740 \ G C M A P S C A N 2 \ G
0001760 C S C A N S T A C K ) \r ( 1 3 Q
0002000 m a p ) \r ( ) \r \ D O G C D
0002020 1 \r N I L \0 \v \0 \0 \0 \0 \b \0 \0 277
0002040 l 005 ~ 277 260 370 \0 ( 2 \ D O G C 1
0002060 ) \r N I L \r ( ) \r \ D O H A R D
0002100 R E T U R N 1 D 1 \r ( L ( 0
0002120 H R F R A M E ) ) 002 301 006 \0 \0
0002140 001 k @ 321 312 003 207 k @ 321 310 002 321 311 004 g
0002160 \0 \0 360 262 034 k @ 321 312 001 360 j 360 225 k @
0002200 321 310 001 204 k @ 321 310 \t l \n 331 b \0 277 k
0002220 @ 321 312 001 360 j 360 225 k @ 321 310 001 204 k @
0002240 321 310 \t l \n 331 021 Q 005 k H 321 312 001 360 j
0002260 360 225 k H 321 310 001 204 k H 321 310 \t l \n 331
0002300 Y d k H 321 310 001 m 376 345 l \n 331 Z 360 263
0002320 = k H 321 312 001 360 j 360 262 $ k H 321 H l
0002340 002 331 315 \b 277 k H 321 k H 321 310 001 315 \t 277
0002360 k H 321 k H 321 310 001 k 330 315 001 277 k H 321
0002400 I l \v 330 315 001 277 J \t \0 \0 277 k I 321 312
0002420 \0 207 j 360 262 g k d I 321 310 004 Z 321 312 \0
0002440 002 l 005 360 262 1 k J k J 321 310 001 330 [ 321
0002460 312 \0 002 l 005 360 262 023 k J 321 d 310 001 k K
0002500 321 310 001 324 315 001 277 260 337 k J 321 310 001 l
0002520 361 h 360 260 ) J k d H 321 312 001 360 j 360 224
0002540 H l 002 331 204 k H 321 310 \b Z 321 310 001 360 232
0002560 k J 321 312 \0 207 j 360 h 360 200 i 242 261 001 234
0002600 ` \0 \0 d 310 005 n 377 377 346 315 005 277 k I 321
0002620 310 004 I 331 l 002 330 \ H \n \0 \0 273 k K 321
0002640 k I l 002 331 321 L 304 277 k K 321 k 317 \0 `
0002660 277 K l 002 324 273 k K 321 K L 330 l 002 331 315
0002700 004 277 k K 321 312 001 360 j 360 262 $ k K 321 K
0002720 l 002 331 315 \b 277 k K 321 k K 321 310 001 315 \t
0002740 277 k K 321 k K 321 310 001 k 330 315 001 277 k K
0002760 321 k I 321 312 001 360 j 360 224 I l 002 331 204 k
0003000 I 321 310 \b ] 315 \b 277 k K 321 j 317 \0 207 277
0003020 k K 321 312 \0 ` j 360 263 030 k K 321 312 \a 207
0003040 k 360 234 k K 321 d 310 006 K I 331 324 315 006 277
0003060 k M 321 d 312 \0 207 k 324 317 \0 207 277 k I 321
0003100 312 001 360 j 360 262 $ k I 321 I l 002 331 315 \b
0003120 277 k I 321 k I 321 310 001 315 \t 277 k I 321 k
0003140 I 321 310 001 k 330 315 001 277 k I 321 312 001 360 j
0003160 360 225 k I 321 310 001 204 k I 321 310 \t l \n 331
0003200 Z \t \0 \0 277 J k I 321 310 001 m 376 345 l \n
0003220 331 Z 360 244 J \t \0 \0 277 I \t \0 \0 277 k H
0003240 321 312 001 360 j 360 262 $ k H 321 H l 002 331 315
0003260 \b 277 k H 321 k H 321 310 001 315 \t 277 k H 321
0003300 k H 321 310 001 k 330 315 001 277 k H 321 K l \v
0003320 330 315 001 277 k H 321 312 001 360 j 360 262 $ k H
0003340 321 H l 002 331 315 \b 277 k H 321 k H 321 310 001
0003360 315 \t 277 k H 321 k H 321 310 001 k 330 315 001 277
0003400 k H 321 K l \n 330 315 \t 277 K 271 ` \0 \0 d
0003420 310 005 n 377 377 346 315 005 277 @ I d \v \0 \0 h
0003440 020 \0 ( 1 2 7 5 Q \ S M A S H L
0003460 I N K 1 0 7 3 Q \ D E C U S
0003500 E C O U N T 1 0 6 6 Q \ I N
0003520 C U S E C O U N T 1 0 4 2 Q
0003540 \ I N C U S E C O U N T 4 7 2
0003560 Q \ F R E E S T A C K B L O C
0003600 K 2 5 1 Q \ D E C U S E C O
0003620 U N T ) \r ( 1 2 5 5 Q \ E M .
0003640 C U R S O R B I T M A P 4 4 1
0003660 Q \ E M . C U R S O R B I T M
0003700 A P 2 0 Q \ C O N T E X T S
0003720 W I T C H ) \r ( ) \r \ D O S T A
0003740 C K O V E R F L O W D 1 \r N I
0003760 L \0 023 \0 \0 \0 \0 ` \0 \0 d 310 002 \t \0
0004000 \0 315 002 277 l 002 ~ 277 260 360 \0 ( 1 0 Q
0004020 \ M O V E F R A M E ) \r ( 2 \
0004040 I n t e r f a c e P a g e ) \r (
0004060 ) \r \ M O V E F R A M E D 1 \r
0004100 ( L ( 0 O L D F R A M E ) )
0004120 001 027 003 \0 \0 001 ` \0 \0 d 310 \n n 377 377
0004140 346 315 \n k @ 321 310 004 @ 331 l 002 330 k @ 321
0004160 310 004 021 022 002 k I 321 312 \0 002 l 005 360 262 6
0004200 k I k I 321 310 001 330 Z 321 312 \0 002 l 005 360
0004220 262 023 k I 321 d 310 001 k J 321 310 001 324 315 001
0004240 277 260 337 J ` \0 \0 310 \a 360 230 \b \0 \0 224 @
0004260 Z 261 \0 255 H @ \n \0 \0 272 k J 321 k @ l
0004300 002 331 321 H 304 277 k J 321 k 317 \0 ` 277 J l
0004320 002 324 272 k J 321 J H 330 l 002 331 315 004 277 k
0004340 J 321 312 001 360 j 360 262 $ k J 321 J l 002 331
0004360 315 \b 277 k J 321 k J 321 310 001 315 \t 277 k J
0004400 321 k J 321 310 001 k 330 315 001 277 k J 321 k @
0004420 321 312 001 360 j 360 224 @ l 002 331 204 k @ 321 310
0004440 \b 315 \b 277 k J 321 312 \0 ` j 360 263 030 k J
0004460 321 312 \a 207 k 360 234 k J 321 d 310 006 J @ 331
0004500 324 315 006 277 k @ l 002 331 321 312 \0 ` j 360 245
0004520 @ l 002 331 H 204 @ H l 002 331 \n \0 \0 277 `
0004540 \0 \0 d 310 \n n 377 377 346 315 \n J 020 \0 ( 4
0004560 0 6 Q \ M A K E F R E E B L O
0004600 C K 1 4 1 Q \ F R E E S T A
0004620 C K B L O C K 1 2 6 Q \ E X
0004640 T E N D S T A C K ) \r ( 4 1 2 Q
0004660 \ E M . C U R S O R B I T M A
0004700 P 1 1 7 Q \ I n t e r f a c
0004720 e P a g e 2 \ E M . C U R S
0004740 O R B I T M A P ) \r ( ) \r \ I N
0004760 C U S E C O U N T D 1 \r ( L
0005000 ( 0 F R A M E ) ) \0 222 002 \0 \0
0005020 001 @ d j 360 222 261 \0 213 277 k @ 321 d 312 \0
0005040 207 k 324 021 002 001 H I 317 \0 207 277 I 022 l 310
0005060 361 232 l 030 o \0 \0 \0 @ \v \0 \0 277 k @ 321
0005100 310 004 021 001 \0 k H 321 312 \0 002 d j 360 262 023
0005120 277 k H l 002 324 X 321 312 \0 002 l 004 360 262 363
0005140 204 l 004 360 262 < k H l 002 324 X 321 312 \0 002
0005160 l 006 360 262 - k H 321 312 001 360 j 360 262 # k
0005200 H 321 H l 002 331 315 \b 277 k H 321 k H 321 310
0005220 001 315 \t 277 k H 321 k H 321 310 001 k 330 315 001
0005240 @ 020 \0 ( 5 2 Q \ M P . E R R O
0005260 R ) \r N I L \r ( 4 6 Q " S t
0005300 a c k f r a m e u s e c o
0005320 u n t m a x i m u m e x c e
0005340 e d e d " ) \r \ D E C U S E C O
0005360 U N T D 1 \r ( L ( 0 F R A
0005400 M E ) ) \0 267 004 \0 \0 001 021 @ 003 @ j
0005420 360 221 h 020 k @ 321 312 \0 207 j 360 256 k @ 321
0005440 d 312 \0 207 m 377 324 317 \0 207 @ 020 k @ 321 310
0005460 001 m 376 345 l \n 331 270 k @ 321 312 001 360 j 360
0005500 224 @ l 002 331 204 k @ 321 310 \b 271 k @ 321 312
0005520 001 360 j 360 225 k @ 321 310 001 204 k @ 321 310 \t
0005540 l \n 331 273 k @ 321 310 004 @ 331 272 k @ l 002
0005560 331 321 312 \0 ` j 360 250 @ l 002 331 J l 002 330
0005600 201 @ J \n \0 \0 277 k I 321 312 \0 207 j 360 262
0005620 025 k I 321 310 001 I k I 321 310 001 331 l 002 330
0005640 \n \0 \0 214 k I 321 d 312 \0 207 m 377 324 317 \0
0005660 207 277 H K 360 244 H \t \0 \0 277 K b \0 261 377
0005700 Q \0 ( 2 5 6 Q \ D E C U S E C
0005720 O U N T 2 2 7 Q \ M A K E F
0005740 R E E B L O C K 1 7 2 Q \ M
0005760 A K E F R E E B L O C K ) \r N I
0006000 L \r ( ) \r \ M A K E S T A C K P
0006020 D 1 \r ( L ( 1 F X 0 E
0006040 D ) P 0 \ I N T E R R U P
0006060 T A B L E ) \0 3 002 \0 \0 002 021 001
0006100 A j 360 244 A \t \0 \0 277 @ 005 \b 265 021 l \b
0006120 037 b \0 k 315 \0 277 @ A 315 001 @ 020 310 001 Y
0006140 j 360 244 I \t \0 \0 277 @ A 315 001 277 260 356 \0
0006160 ( 5 1 Q \ D E C U S E C O U N
0006200 T 1 2 Q \ I N C U S E C O U
0006220 N T ) \r N I L \r ( ) \r \ S M A S
0006240 H L I N K D 1 \r ( L ( 2 C
0006260 L I N K 1 A L I N K 0 C
0006300 A L L E R ) P 0 \ I N T E
0006320 R R U P T A B L E ) 001 : 004 \0 \0
0006340 003 @ 243 f b \0 277 021 020 \0 k @ 321 310 001 m
0006360 376 345 l \n 331 k @ 321 312 001 360 j 360 225 k @
0006400 321 310 001 204 k @ 321 310 \t l \n 331 021 022 003 A
0006420 265 003 202 261 \0 204 B 262 H A 243 B I 360 244 B
0006440 \t \0 \0 277 k @ 321 312 001 360 j 360 262 $ k @
0006460 321 @ l 002 331 315 \b 277 k @ 321 k @ 321 310 001
0006500 315 \t 277 k @ 321 k @ 321 310 001 k 330 315 001 277
0006520 k @ 321 B l \n 330 315 \t 277 J \t \0 \0 277 I
0006540 J 360 246 A 227 I \t \0 \0 277 A 265 005 I b 002
0006560 B 265 005 J b 004 360 242 261 \0 240 k B 321 312 \0
0006600 207 j 360 242 261 \0 224 k @ 321 312 001 360 j 360 262
0006620 L @ l 002 331 260 K B 265 003 J 360 244 A \t \0
0006640 \0 277 k @ 321 312 001 360 j 360 262 $ k @ 321 @
0006660 l 002 331 315 \b 277 k @ 321 k @ 321 310 001 315 \t
0006700 277 k @ 321 k @ 321 310 001 k 330 315 001 277 k @
0006720 321 A l \v 330 315 001 277 261 377 > k @ 321 310 \b
0006740 [ @ l 002 331 360 262 2 k K 321 310 001 k B 321
0006760 310 004 360 262 % k K 321 312 \0 207 j 360 262 033 k
0007000 B 321 312 \0 p j 360 237 k B 321 312 \0 P j 360
0007020 226 k @ 321 j 317 001 360 @ 020 \0 ( 2 7 7 Q
0007040 \ I N C U S E C O U N T 2 0
0007060 7 Q \ D E C U S E C O U N T
0007100 1 7 4 Q \ D E C U S E C O U N
0007120 T 1 0 1 Q \ I N C U S E C O
0007140 U N T ) \r N I L \r ( ) \r \ F R E
0007160 E S T A C K B L O C K D 1 \r (
0007200 L ( 1 S T A R T 0 N ) )
0007220 \0 311 005 \0 \0 002 @ n 003 330 ` \0 \0 310
0007240 \a 021 2 004 A 265 \a ` \0 \0 310 036 274 k L 321
0007260 312 \0 002 d l 005 360 263 H d l \a 360 232 277 I
0007300 L 361 263 > A 262 + 260 340 l 006 360 234 k L 321
0007320 310 004 \ 260 031 L l 002 324 274 k L 321 312 \0 002
0007340 l 004 360 262 362 L l 002 324 \ 277 L A 360 262 277
0007360 \b \0 \0 Y 263 260 l 023 o \0 \0 \0 \n \0 \0 277
0007400 L 272 k L 321 310 001 273 J K 330 274 k L 321 312
0007420 \0 002 d l 005 360 222 277 i 206 l \a 360 234 I L
0007440 361 230 K k L 321 310 001 324 260 336 H K 361 263 *
0007460 J l 003 345 j 360 222 l 201 l " 270 J H 330
0007500 @ \n \0 \0 274 J H \n \0 \0 277 L @ 330 K H
0007520 331 @ 331 \n \0 \0 L 020 J K \n \0 \0 260 215 \0
0007540 ( 3 0 5 Q \ M A K E F R E E B
0007560 L O C K 2 7 6 Q \ M A K E F
0007600 R E E B L O C K 2 6 2 Q \ M
0007620 A K E F R E E B L O C K 2 5 4
0007640 Q \ S E T U P G U A R D B L O
0007660 C K 1 4 7 Q \ M P . E R R O
0007700 R 1 3 3 Q \ E X T E N D S T
0007720 A C K ) \r ( 2 2 Q \ I n t e r
0007740 f a c e P a g e 7 \ I n t e
0007760 r f a c e P a g e ) \r ( 1 4 4
0010000 Q " S t a c k F u l l - -
0010020 T y p e L U t o s e e
0010040 s t a c k ; ^ D t o f l u
0010060 s h t o t o p " ) \r \ E X T
0010100 E N D S T A C K D 1 \r N I L
0010120 \0 ^ 002 \0 \0 \0 ` \0 \0 310 \a 021 021 001 n 377
0010140 376 H 361 264 O H n 360 \0 361 262 026 ` \0 \0 257
0010160 ` \0 \0 k 317 \0 P 277 i 027 \0 \0 027 \0 \0 277
0010200 k H l 002 330 Y 321 i \n \0 \0 247 k I 321 k
0010220 \n \0 \0 277 I l 376 \n \0 \0 H n 001 \0 330 Y
0010240 l 002 \n \0 \0 ` \0 \0 I 315 \a H l 002 \n \0
0010260 \0 I 020 \0 ( 1 3 2 Q \ M A K E F
0010300 R E E B L O C K 1 1 6 Q \ S
0010320 E T U P G U A R D B L O C K 1
0010340 0 3 Q \ M A K E F R E E B L O
0010360 C K 7 4 Q \ D O L O C K P A
0010400 G E S 6 4 Q \ D O N E W P A
0010420 G E ) \r ( 1 2 1 Q \ I n t e r
0010440 f a c e P a g e 5 0 Q \ S T
0010460 A C K O V E R F L O W 4 5 Q
0010500 \ P E N D I N G I N T E R R U P
0010520 T 3 4 Q \ I N T E R R U P T
0010540 S T A T E 3 0 Q \ S T A C K
0010560 O V E R F L O W 2 \ I n t e
0010600 r f a c e P a g e ) \r ( ) \r \ S
0010620 L O W R E T U R N D 1 \r N I L
0010640 \0 1 002 \0 \0 \0 f 021 021 001 k H 321 312 001
0010660 360 j 360 264 # k H 321 H l 002 331 315 \b k H
0010700 321 k H 321 310 001 315 \t k H 321 k H 321 310 001
0010720 k 330 Y 315 001 I 020 \0 N I L \r N I L \r
0010740 ( ) \r \ C O P Y . N . U F N D
0010760 1 \r ( L ( 0 A L P H A ) )
0011000 \0 027 \0 \0 \0 001 ` \0 \0 k f 321 310 004 @ l
0011020 002 330 331 320 d 310 \0 375 310 001 321 020 \0 N I L
0011040 \r ( 2 \ S T A C K S P A C E )
0011060 \r ( ) \r \ S T O R E . N . U F N
0011100 D 1 \r ( L ( 1 A L P H A
0011120 0 V A L ) ) \0 024 \0 \0 \0 002 ` \0
0011140 \0 k f 321 310 004 A l 002 330 331 320 @ 316 \0 @
0011160 020 \0 N I L \r ( 2 \ S T A C K S
0011200 P A C E ) \r ( ) \r \ G C S C A N
0011220 S T A C K D 1 \r N I L 001 e 006
0011240 \0 \0 \0 ` \0 \0 310 036 ` \0 \0 310 \a 021 B 005
0011260 k H 321 312 \0 002 d l 006 360 242 261 \0 375 277 h
0011300 \ 275 k H 321 312 003 207 k H 321 310 002 321 025 002
0011320 277 k H l \n 330 321 272 k H 321 312 003 207 k H
0011340 321 310 002 321 312 \a \a d j 361 262 030 J d 312 \0
0011360 \a j 360 225 311 \0 025 002 277 J l 002 320 272 k 331
0011400 260 347 277 k H 321 310 004 [ 275 k H 321 312 \0 `
0011420 j 360 263 T k H 321 312 \a 207 k 360 262 & k H
0011440 321 312 \a 207 k H 321 310 006 321 311 004 025 002 277 k
0011460 H 321 310 006 [ k K 321 310 006 340 l \b 330 330 \
0011500 260 % k H 321 312 \0 ` j 360 253 k H 321 312 \a
0011520 207 k H 321 310 006 212 k H 321 312 003 207 k H 321
0011540 310 002 321 025 002 277 H k H 321 312 003 207 k H 321
0011560 310 002 321 310 002 d n 177 377 361 225 n 377 377 331 k
0011600 331 k 330 340 340 l 016 330 330 270 k H 321 272 K H
0011620 361 262 032 J 312 \0 \a j 360 225 J 311 \0 025 002 277
0011640 H l 002 324 270 J l 002 320 260 344 L 265 005 261 377
0011660 002 270 M 273 h 274 260 324 d l \a 360 262 024 277 H
0011700 d I 360 221 h 020 k H 321 310 001 324 270 261 376 343
0011720 l 005 360 232 H k H 321 310 001 324 270 261 376 324 k
0011740 H 321 272 k H 321 312 \0 002 l 004 360 263 023 J 311
0011760 \0 025 002 277 H l 002 324 270 J l 002 320 260 345 H
0012000 l 002 324 270 261 376 254 \0 N I L \r ( 7 \
0012020 I n t e r f a c e P a g e 2
0012040 \ I n t e r f a c e P a g e ) \r
0012060 ( ) \r C L E A R S T K A 0 0 0 1
0012100 D 1 \r ( L ( 0 P A G E )
0012120 F 2 L S T F 3 F L G )
0012140 \0 G 002 002 \0 001 j 021 020 \0 @ X 343 H l
0012160 377 345 341 321 022 021 002 001 I 310 \0 k 360 262 035 I
0012200 310 001 j 360 263 026 S 265 003 217 g \0 \0 360 224 I
0012220 j 315 001 204 I R 032 c 004 277 H l 002 330 X n
0012240 002 \0 360 246 I l 002 320 Y 260 320 h 020 \0 N I
0012260 L \r ( 4 5 Q * * C L E A R * *
0012300 ) \r ( ) \r C L E A R S T K D 1
0012320 \r ( P 0 L S T I 0 F L
0012340 G ) \0 016 001 \0 \0 001 021 020 \0 l \b g \0
0012360 \0 \n \0 \0 H 020 \0 ( 1 2 Q \ M A P
0012400 M D S ) \r ( 7 C L E A R S T K
0012420 A 0 0 0 1 ) \r ( ) \r H A R D R E
0012440 S E T D 1 \r N I L \0 004 \0 \0 \0
0012460 \0 k ~ 020 \0 N I L \r N I L \r ( ) \r
0012500 R E L S T K D 1 \r ( L ( 0
0012520 P O S ) P 1 \ I N T E R R
0012540 U P T A B L E ) \0 036 002 \0 \0 001 @
0012560 d 005 \b 262 030 310 001 021 001 \0 H j 360 253 021 020
0012600 001 H \t \0 \0 277 @ j 315 001 @ 020 \0 ( 2 5
0012620 Q \ D E C U S E C O U N T ) \r
0012640 N I L \r ( ) \r R E L S T K P D
0012660 1 \r ( L ( 0 X ) ) \0 \f \0 \0
0012700 \0 001 @ 005 \b 264 \a @ 310 001 j 360 020 \0 N I
0012720 L \r N I L \r ( ) \r \ S E T U P S
0012740 T A C K 1 D 1 \r ( L ( 1 0 Q
0012760 I N I T F L G 7 A R G S
0013000 6 D E F P T R 5 P C 4
0013020 N A R G S 3 S T K E N D 2
0013040 C L I N K 1 A L I N K 0
0013060 S T K P ) ) 001 1 003 \0 \0 \t G 020
0013100 257 C @ 331 F 310 \0 l 004 330 361 264 003 202 261 001
0013120 037 @ 021 ! 002 D d j 361 262 034 ` \0 \0 H 320
0013140 G 016 001 316 \0 277 G 016 002 b 016 277 H l 002 324
0013160 270 k 331 260 343 H l 003 345 j 360 257 ` \0 \0 H
0013200 320 h 316 \0 277 H l 002 324 270 i 200 h k H 321
0013220 n 200 \0 315 \0 277 227 k H 321 k 317 \0 p 277 k
0013240 H 321 @ 315 001 H l 002 330 b \0 k @ 321 l 006
0013260 317 \0 002 k @ 321 k 317 \0 p 277 k j 360 h 360
0013300 k @ 321 j 317 \0 P 277 j d 360 h 360 k @ 321
0013320 j 317 \0 0 277 j d 360 h 360 k @ 321 j 317 \0
0013340 ` 277 j d 360 h 360 k @ 321 j 317 \0 207 k @
0013360 321 H 315 \b k @ 321 A l \v 330 315 001 k @ 321
0013400 B l \n 330 315 \t F 322 271 k @ 321 I 317 003 \a
0013420 277 k @ 321 I 317 003 207 277 k @ 321 F 323 315 002
0013440 k @ 321 E 315 005 @ l \n 330 X G 020 263 . F
0013460 310 002 d n 177 377 361 225 n 377 377 331 k 331 k 330
0013500 340 Z j 361 262 027 ` \0 \0 H 320 n 377 377 315 \0
0013520 277 H l 002 324 270 J k 331 260 350 k @ 321 H l
0013540 004 324 X 315 004 H C H 331 \n \0 \0 @ 020 \0 (
0013560 4 5 5 Q \ M A K E F R E E B L
0013600 O C K ) \r ( 4 1 2 Q \ S T A C
0013620 K S P A C E 1 0 0 Q \ S T A
0013640 C K S P A C E 3 7 Q \ S T A
0013660 C K S P A C E ) \r ( ) \r \ M A K
0013700 E F R A M E D 1 \r ( L ( 5
0013720 A R G S 4 C L I N K 3 A
0013740 L I N K 2 E N D 1 S T
0013760 0 F N ) ) \0 E 002 \0 \0 006 ` \0 \0
0014000 @ 323 021 002 001 H I 320 I 320 022 311 \0 021 001 \0
0014020 A C D B j H 310 001 d n 177 377 361 225 n 377
0014040 377 331 k 331 361 221 j 216 H 310 001 d n 177 377 361
0014060 225 n 377 377 331 k 331 H 310 003 H E \r \b \0 \0
0014100 020 \0 ( 1 0 2 Q \ S E T U P S T
0014120 A C K 1 ) \r ( 2 \ D E F S P A
0014140 C E ) \r ( ) \r \ R E S E T S T A
0014160 C K D 1 \r N I L \0 \n \0 \0 \0 \0
0014200 \b \0 \0 277 k ~ 277 260 371 \0 ( 2 \ R E
0014220 S E T S T A C K 0 ) \r N I L \r (
0014240 ) \r \ R E S E T S T A C K 0 D
0014260 1 \r N I L 001 020 003 \0 \0 \0 n 003 \0 021
0014300 ! 002 ` \0 \0 g \0 \0 H d n 003 \0 330 X j
0014320 d \r 005 \0 \0 315 006 ` \0 \0 g \0 \0 H d n
0014340 003 \0 330 X j d \r 005 \0 \0 315 004 ` \0 \0 `
0014360 \0 \0 g \0 \0 323 Y 320 I 320 312 \0 \0 j 360 243
0014400 g \0 \0 202 g \0 \0 H d n 003 \0 330 X j d
0014420 \r 005 \0 \0 315 030 ` \0 \0 ` \0 \0 g \0 \0 323
0014440 Z 320 J 320 312 \0 \0 j 360 243 g \0 \0 202 g \0
0014460 \0 H 027 \0 \0 d n 003 \0 330 X j d \r 005 \0
0014500 \0 315 003 ` \0 \0 g \0 \0 H d n 003 \0 330 X
0014520 j d \r 005 \0 \0 315 005 ` \0 \0 g \0 \0 H d
0014540 n 003 \0 330 X j d \r 005 \0 \0 315 002 ` \0 \0
0014560 g \0 \0 H 027 \0 \0 d n 003 \0 330 X j d \r
0014600 005 \0 \0 315 016 ` \0 \0 H 315 036 ` \0 \0 g \0
0014620 \0 H ` \0 \0 310 \a X d n $ \0 361 262 036 277
0014640 k n $ \0 321 H 343 l $ 331 k 330 \n \0 \0 277
0014660 ` \0 \0 n # 376 X 315 \a 277 H j d \r 005 \0
0014700 \0 315 001 H l 002 \n \0 \0 h 020 \0 ( 4 1 4
0014720 Q \ S E T U P G U A R D B L O
0014740 C K 4 0 4 Q \ M A K E F R A
0014760 M E 3 6 2 Q \ U N L O C K P
0015000 A G E S 3 0 6 Q \ M A K E F
0015020 R A M E 2 5 6 Q \ M A K E F
0015040 R A M E 2 3 1 Q \ M A K E F
0015060 R A M E 2 0 4 Q \ M A K E F
0015100 R A M E 1 2 7 Q \ M A K E F
0015120 R A M E 5 5 Q \ M A K E F R
0015140 A M E 3 0 Q \ M A K E F R A
0015160 M E ) \r ( 3 6 6 Q \ I n t e r
0015200 f a c e P a g e 3 3 0 Q \ I
0015220 n t e r f a c e P a g e 3 2 4
0015240 Q \ C O D E F O R T F R A M E
0015260 3 2 1 Q \ I n t e r f a c e
0015300 P a g e 3 1 3 Q \ I n t e r
0015320 f a c e P a g e 2 7 2 Q \ M
0015340 I S C S T A C K B A S E 2 6 6
0015360 Q \ D O M I S C A P P L Y 2
0015400 6 3 Q \ I n t e r f a c e P a
0015420 g e 2 4 1 Q \ D O S T A C K
0015440 O V E R F L O W 2 3 6 Q \ I
0015460 n t e r f a c e P a g e 2 1 4
0015500 Q \ D O G C 2 1 1 Q \ I n
0015520 t e r f a c e P a g e 1 7 0 Q
0015540 \ K B D S T A C K B A S E 1
0015560 6 4 Q \ D U M M Y K E Y H A N
0015600 D L E R 1 6 0 Q \ K E Y H A
0015620 N D L E R 1 4 2 Q \ K E Y H
0015640 A N D L E R 1 3 7 Q \ D E F
0015660 S P A C E 1 3 4 Q \ I n t e
0015700 r f a c e P a g e 1 1 2 Q \
0015720 D U M M Y T E L E R A I D 1 0
0015740 6 Q \ D O T E L E R A I D 7
0015760 0 Q \ D O T E L E R A I D 6
0016000 5 Q \ D E F S P A C E 6 2 Q
0016020 \ I n t e r f a c e P a g e
0016040 4 0 Q \ D O H A R D R E T U R
0016060 N 3 5 Q \ I n t e r f a c e
0016100 P a g e 1 3 Q \ F A U L T H
0016120 A N D L E R 1 0 Q \ I n t e
0016140 r f a c e P a g e ) \r ( ) \r \ S
0016160 E T U P G U A R D B L O C K D
0016200 1 \r ( L ( 1 L E N 0 S T
0016220 K P ) ) \0 021 \0 \0 \0 002 k @ 321 n 340
0016240 \0 315 \0 k @ 321 A 315 001 @ 020 \0 N I L \r
0016260 N I L \r ( ) \r \ M A K E F R E E
0016300 B L O C K D 1 \r ( L ( 1 S
0016320 I Z E 0 S T K ) ) \0 023 \0 \0
0016340 \0 002 k @ 321 A 315 001 k @ 321 n 240 \0 315 \0
0016360 n 240 \0 020 \0 N I L \r N I L \r ( ) \r
0016400 \ R E P E A T E D L Y E V A L Q
0016420 T D 1 \r ( P 0 \ I N T E R
0016440 R U P T A B L E ) \0 017 001 \0 \0 \0
0016460 i 021 001 \0 \b \0 \0 277 \b \0 \0 277 260 370 \0 (
0016500 1 2 Q E V A L Q T 6 \ R E
0016520 S E T S Y S T E M S T A T E ) \r
0016540 N I L \r ( ) \r \ D U M M Y K E Y
0016560 H A N D L E R D 1 \r N I L \0
0016600 022 \0 \0 \0 \0 l 003 g \0 \0 l 003 \v \0 \0 277
0016620 l 003 ~ 277 260 361 \0 ( 1 1 Q \ C O N
0016640 T E X T A P P L Y ) \r ( 4 \ C
0016660 A U S E I N T E R R U P T ) \r (
0016700 ) \r \ D U M M Y T E L E R A I D
0016720 D 1 \r N I L \0 \a \0 \0 \0 \0 l 030
0016740 ~ 277 260 374 \0 N I L \r N I L \r ( ) \r
0016760 \ C A U S E I N T E R R U P T
0017000 D 1 \r ( L ( 1 F N 0 C N
0017020 T X T ) ) \0 = 002 \0 \0 002 ` \0 \0 @
0017040 320 310 \0 021 021 001 H ` \0 \0 310 036 375 361 221 h
0017060 020 k H 321 310 004 Y A 265 005 g \0 \0 I d k
0017100 I 321 310 001 330 H d \r 005 \0 \0 X 264 \v ` \0
0017120 \0 @ 320 H 315 \0 i 020 \0 ( 5 6 Q \ M
0017140 A K E F R A M E ) \r ( 6 4 Q \
0017160 I n t e r f a c e P a g e 4 0
0017200 Q \ I N T E R R U P T F R A M
0017220 E 1 5 Q \ I n t e r f a c e
0017240 P a g e 2 \ I n t e r f a c
0017260 e P a g e ) \r ( ) \r \ C O N T E
0017300 X T A P P L Y D 1 \r ( L ( 2
0017320 A R G 1 F N 0 C N T X
0017340 T ) ) \0 033 001 \0 \0 003 f 021 001 \0 h `
0017360 \0 \0 @ 320 310 \0 \n \0 \0 B k A 016 h H \n
0017400 \0 \0 277 020 \0 ( 2 7 Q \ S M A S H
0017420 L I N K 1 6 Q \ S M A S H L
0017440 I N K ) \r ( 7 \ I n t e r f a
0017460 c e P a g e ) \r ( ) \r \ I N T E
0017500 R R U P T F R A M E D 1 \r N I
0017520 L \0 005 \0 \0 002 \0 \b \0 \0 020 \0 ( 2
0017540 \ I N T E R R U P T E D ) \r N I
0017560 L \r ( ) \r \ I N T E R R U P T E
0017600 D D 1 \r ( F 0 \ I N T E R
0017620 R U P T A B L E ) \0 017 \0 001 \0 \0
0017640 P 223 \b \0 \0 020 i 027 \0 \0 g \0 \0 020 \0 (
0017660 4 I N T E R R U P T E D ) \r (
0017700 1 4 Q W r o n g , 1 1 Q \
0017720 P E N D I N G I N T E R R U P T
0017740 ) \r ( ) \r \ C O D E F O R T F R
0017760 A M E D 1 \r ( N A M E T )
0020000 \0 020 \0 \0 \0 \0 g \0 \0 \t \0 \0 \b \0 \0 \b
0020020 \0 \0 277 260 374 \0 ( 1 3 Q \ R E P E
0020040 A T E D L Y E V A L Q T 1 0 Q
0020060 I N I T I A L E V A L Q T 5
0020100 C L E A R S T K ) \r ( 2 * *
0020120 C L E A R * * ) \r ( ) \r \ D O M
0020140 I S C A P P L Y D 1 \r N I L
0020160 \0 005 \0 \0 \0 \0 \b \0 \0 020 \0 ( 2 \ D
0020200 O M I S C A P P L Y 1 ) \r N I L
0020220 \r ( ) \r \ D O M I S C A P P L Y
0020240 1 D 1 \r N I L \0 " 001 \0 \0 \0 `
0020260 \0 \0 d 311 0 021 001 \0 ` \0 \0 311 2 ` \0 \0
0020300 311 4 l 002 H 016 022 316 6 277 l 016 ~ 277 260 341
0020320 \0 N I L \r ( 2 0 Q \ I n t e r
0020340 f a c e P a g e 1 3 Q \ I n
0020360 t e r f a c e P a g e 2 \ I
0020400 n t e r f a c e P a g e ) \r ( )
0020420 \r ( P R E T T Y C O M P R I N T
0020440 L L S T K C O M S ) \r ( R P A
0020460 Q Q L L S T K C O M S ( ( D
0020500 E C L A R E : D O N T C O P Y
0020520 ( E X P O R T ( R E C O R D
0020540 S B F F X F S B S T K )
0020560 ( C O N S T A N T S \ # A L
0020600 I N K . O F F S E T ) ( \r G L
0020620 O B A L V A R S \ P E N D I N
0020640 G I N T E R R U P T \ K B D S
0020660 T A C K B A S E \ M I S C S T
0020700 A C K B A S E \ S T A C K O V
0020720 E R F L O W ) ( M A C R O S
0020740 \ M Y A L I N K \r A D D S T A
0020760 C K B A S E S T A C K A D D B
0021000 A S E S T A C K G E T B A S E
0021020 S T A C K G E T B A S E P T R
0021040 S T A C K P U T B A S E S T
0021060 A C K P U T B A S E P T R \ M
0021100 I S C A P P L Y * ) ( \r R E C
0021120 O R D S S T A C K P ) ( C O
0021140 N S T A N T S * S T A C K T
0021160 Y P E S ) ( C O N S T A N T S
0021200 \ S t a c k A r e a S i z e
0021220 ( \ I n i t S t a c k S i z e
0021240 ( I T I M E S \r \ S t a c k A
0021260 r e a S i z e 1 2 ) ) ) ( C
0021300 O N S T A N T S \ M A X S A F
0021320 E U S E C O U N T ) ( R E C O
0021340 R D S N A M E T A B L E S L O
0021360 T F V A R S L O T P V A R S
0021400 L O T S T K T E M P S L O T \r
0021420 ) ( C O N S T A N T S \ N T
0021440 . I V A R \ N T . P V A R \
0021460 N T . F V A R ) ) ( R E C O R
0021500 D S S T A C K C E L L ) ) (
0021520 * F O R L A M B D A * F U
0021540 N C T I O N S ) ( F N S \r \
0021560 M Y A R G C O U N T \ A R G 0
0021600 \ S E T A R G 0 ) ( F N S
0021620 \ H A R D R E T U R N \ D O H
0021640 A R D R E T U R N \ D O G C 1
0021660 \ D O G C \ D O H A R D R E
0021700 T U R N 1 \r \ D O S T A C K O
0021720 V E R F L O W \ M O V E F R A
0021740 M E \ I N C U S E C O U N T
0021760 \ D E C U S E C O U N T \ M A
0022000 K E S T A C K P \ S M A S H L
0022020 I N K \ F R E E S T A C K B L
0022040 O C K \r \ E X T E N D S T A C
0022060 K \ S L O W R E T U R N \ C
0022100 O P Y . N . U F N \ S T O R E
0022120 . N . U F N ) ( F N S \ G C
0022140 S C A N S T A C K ) ( F N S
0022160 C L E A R S T K H A R D R E S
0022200 E T R E L S T K \r R E L S T
0022220 K P ) ( F N S S E T U P S T
0022240 A C K \ S E T U P S T A C K 1
0022260 \ M A K E F R A M E \ R E S
0022300 E T S T A C K \ R E S E T S T
0022320 A C K 0 \ S E T U P G U A R D
0022340 B L O C K \r \ M A K E F R E E
0022360 B L O C K \ R E P E A T E D L
0022400 Y E V A L Q T \ D U M M Y K E
0022420 Y H A N D L E R \ D U M M Y T
0022440 E L E R A I D \ C A U S E I N
0022460 T E R R U P T \ C O N T E X T
0022500 A P P L Y \r \ I N T E R R U P
0022520 T F R A M E \ I N T E R R U P
0022540 T E D \ C O D E F O R T F R A
0022560 M E \ D O M I S C A P P L Y
0022600 \ D O M I S C A P P L Y 1 ) (
0022620 I N I T V A R S ( S T A C K T
0022640 E S T I N G T ) ( \r \ P E N
0022660 D I N G I N T E R R U P T ) (
0022700 \ S T A C K O V E R F L O W ) )
0022720 ( A D D V A R S ( R E S E T
0022740 F O R M S ( S E T Q \ S T A
0022760 C K O V E R F L O W ) ) ) ( D
0023000 E C L A R E : D O N T C O P Y
0023020 ( \r A D D V A R S ( I N E W
0023040 C O M S ( F N S S E T U P S
0023060 T A C K \ S E T U P S T A C K
0023100 1 \ S E T U P G U A R D B L O
0023120 C K \ M A K E F R E E B L O C
0023140 K ) ( A L L O C A L ( A D D
0023160 V A R S ( \r L O C K E D F N S
0023200 \ R E S E T S T A C K 0 \ M
0023220 A K E F R A M E \ S E T U P S
0023240 T A C K 1 \ M A K E F R E E B
0023260 L O C K \ F A U L T H A N D L
0023300 E R \ K E Y H A N D L E R \r
0023320 \ D U M M Y K E Y H A N D L E R
0023340 \ D O T E L E R A I D \ D U
0023360 M M Y T E L E R A I D \ D O H
0023400 A R D R E T U R N \ D O G C
0023420 \ C A U S E I N T E R R U P T
0023440 \ I N T E R R U P T F R A M E
0023460 \r \ C O D E F O R T F R A M E
0023500 \ D O S T A C K O V E R F L O W
0023520 \ U N L O C K P A G E S \ D
0023540 O M I S C A P P L Y ) ( L O C
0023560 K E D V A R S \ I n t e r f a
0023600 c e P a g e \ D E F S P A C E
0023620 \r \ S T A C K S P A C E \ K
0023640 B D S T A C K B A S E \ M I S
0023660 C S T A C K B A S E ) ) ) ) (
0023700 E X P A N D M A C R O F N S A
0023720 D D S T A C K B A S E S T A C
0023740 K A D D B A S E ) ) E V A L @
0023760 C O M P I L E \r ( A D D V A R
0024000 S ( D O N T C O M P I L E F N
0024020 S S E T U P S T A C K ) ) )
0024040 ( L O C A L V A R S . T )
0024060 ( D E C L A R E : D O N T E V
0024100 A L @ L O A D D O E V A L @ C
0024120 O M P I L E D O N T C O P Y \r
0024140 C O M P I L E R V A R S ( A
0024160 D D V A R S ( N L A M A ) (
0024200 N L A M L ) ( L A M A \ I N
0024220 T E R R U P T F R A M E ) ) ) )
0024240 ) \r ( R P A Q ? S T A C K T E
0024260 S T I N G T ) \r ( R P A Q ?
0024300 \ P E N D I N G I N T E R R U P
0024320 T ) \r ( R P A Q ? \ S T A C K
0024340 O V E R F L O W ) \r ( A D D T O
0024360 V A R R E S E T F O R M S (
0024400 S E T Q \ S T A C K O V E R F
0024420 L O W ) ) \r ( P U T P R O P S
0024440 L L S T K C O P Y R I G H T
0024460 ( " X e r o x C o r p o r a t
0024500 i o n " 1 9 8 2 1 9 8 3 1
0024520 9 8 4 1 9 8 5 ) ) \r N I L \r
0024537