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