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