$ od -c -N 50000 [eris]<LispCore>SOURCES>LLTIMER.DCOM!6
0000000 ( F I L E C R E A T E D " 2 2
0000020 - A p r - 8 6 1 0 : 5 8 : 4 5
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 T I M E
0000120 R . ; 6 ) \r " 1 8 - A p r - 8
0000140 6 1 8 : 0 8 : 4 1 " b c o m
0000160 p l ' d i n " X e r o x L
0000200 i s p 2 1 - A p r - 8 6 . .
0000220 . " d a t e d " 2 1 - A p r
0000240 - 8 6 1 1 : 5 8 : 0 7 " ) \r (
0000260 F I L E C R E A T E D " 2 7 -
0000300 J u l - 8 5 2 1 : 1 6 : 3 7 "
0000320 { E R I S } < L I S P C O R E
0000340 > S O U R C E S > L L T I M E R
0000360 . ; 6 2 5 5 4 8 c h a n g e
0000400 s t o : ( V A R S \r L L T
0000420 I M E R C O M S ) p r e v i o
0000440 u s d a t e : " 2 5 - J u l
0000460 - 8 5 1 2 : 5 7 : 4 0 " { E
0000500 R I S } < L I S P C O R E > S O
0000520 U R C E S > L L T I M E R . ; 3
0000540 ) \r \ C L O C K 0 D 1 \r ( P
0000560 1 E X C E S S P 0 \ I N
0000600 T E R R U P T A B L E I 0
0000620 B O X ) \0 A 002 \0 \0 001 @ 006 \0 \0 b
0000640 \0 021 020 \0 l 002 @ \n \0 \0 ` \0 \0 l * 320
0000660 021 001 001 I ` \0 \0 361 243 j I 361 235 @ n 003
0000700 350 366 277 I ` \0 \0 367 277 260 352 @ I d n 377
0000720 377 361 241 310 001 ` \0 \0 333 366 020 \0 ( 1 6 Q
0000740 \ G E T I N T E R N A L C L O
0000760 C K ) \r ( 7 4 Q \ R C L K M I
0001000 L L I S E C O N D 5 3 Q \ R
0001020 C L K S E C O N D 3 3 Q \ R
0001040 C L K S E C O N D 2 1 Q \ M
0001060 I S C S T A T S 3 F I X P )
0001100 \r ( ) \r \ D A Y T I M E 0 D 1
0001120 \r ( P 0 \ I N T E R R U P T
0001140 A B L E I 0 B O X ) \0 \r
0001160 001 \0 \0 001 021 020 \0 j @ 006 \0 \0 \n \0 \0 020
0001200 \0 ( 1 2 Q \ G E T I N T E R N
0001220 A L C L O C K ) \r ( 7 F I X P
0001240 ) \r ( ) \r \ G E T I N T E R N A
0001260 L C L O C K D 1 \r ( I 1 B
0001300 O X I 0 C L O C K O F F S
0001320 E T ) \0 , \0 \0 \0 002 ` \0 \0 l $ 320
0001340 ` \0 \0 l 034 320 l 006 304 A ` \0 \0 l $ 320
0001360 @ 320 l 002 304 ` \0 \0 l * 320 w ` \0 \0 l
0001400 ( 320 367 A 020 \0 N I L \r ( 4 4 Q \
0001420 M I S C S T A T S 3 5 Q \ M
0001440 I S C S T A T S 2 2 Q \ M I
0001460 S C S T A T S 1 0 Q \ M I S
0001500 C S T A T S 2 \ M I S C S T
0001520 A T S ) \r ( ) \r \ S E T D A Y T
0001540 I M E 0 D 1 \r ( P 0 \ I N
0001560 T E R R U P T A B L E I 0
0001600 B O X ) \0 244 002 \0 \0 001 @ 006 \0 \0 b
0001620 \0 021 001 ` \0 \0 l ( 320 w 277 ` \0 \0 l
0001640 $ 320 @ l 002 304 277 @ 310 001 n 003 350 332 271 `
0001660 \0 \0 I n 377 377 345 315 ' 277 ` \0 \0 I 343 343
0001700 @ 310 \0 n 003 350 332 n 377 377 345 320 323 315 & 277
0001720 ` \0 \0 l 034 320 ` \0 \0 l $ 320 l 006 304 277
0001740 ` \0 \0 l 006 360 262 C n 200 \0 ` \0 \0 310 025
0001760 361 262 367 ` \0 \0 @ 310 001 315 & 277 ` \0 \0 @
0002000 310 \0 315 ' 277 ` \0 \0 n 200 001 315 025 277 ` \0
0002020 \0 j 315 7 277 n 200 \0 ` \0 \0 310 025 361 262 367
0002040 ` \0 \0 310 7 j 360 263 371 \b \0 \0 @ 020 \0 (
0002060 2 4 0 Q \ P R O C E S S . R E
0002100 S E T . T I M E R S ) \r ( 2 2 7
0002120 Q \ I O P A G E 2 1 7 Q \
0002140 I O P A G E 2 0 5 Q \ I O P
0002160 A G E 1 7 4 Q \ I O P A G E
0002200 1 6 3 Q \ I O P A G E 1 5
0002220 2 Q \ I O P A G E 1 4 2 Q
0002240 \ I O P A G E 1 2 7 Q \ M A
0002260 C H I N E T Y P E 1 1 5 Q \
0002300 M I S C S T A T S 1 0 7 Q \
0002320 M I S C S T A T S 6 1 Q \ M
0002340 I S C S T A T S 4 6 Q \ M I
0002360 S C S T A T S 2 3 Q \ M I S
0002400 C S T A T S 1 3 Q \ M I S C
0002420 S T A T S 3 F I X P ) \r ( )
0002440 \r C L O C K D I F F E R E N C E
0002460 D 1 \r ( P 0 \ I N T E R R
0002500 U P T A B L E I 0 O L D C
0002520 L O C K ) \0 022 001 \0 \0 001 021 020 \0 `
0002540 \0 \0 l , 320 \t \0 \0 @ 367 j 330 020 \0 ( 1
0002560 3 Q \ C L O C K 0 ) \r ( 5 \
0002600 M I S C S T A T S ) \r ( ) \r \ S
0002620 E C O N D S C L O C K G R E A T
0002640 E R P D 1 \r ( P 0 \ I N T
0002660 E R R U P T A B L E I 1 S
0002700 E C O N D S I 0 O L D C L
0002720 O C K ) \0 036 001 \0 \0 002 021 020 \0 ` \0
0002740 \0 l , 320 ` \0 \0 l 034 320 l 002 304 ` \0 \0
0002760 l , 320 @ 367 A 361 020 \0 N I L \r ( 2 4
0003000 Q \ M I S C S T A T S 1 3 Q
0003020 \ M I S C S T A T S 5 \ M
0003040 I S C S T A T S ) \r ( ) \r \ C L
0003060 O C K G R E A T E R P D 1 \r (
0003100 P 0 \ I N T E R R U P T A B
0003120 L E I 1 M S E C S I 0
0003140 O L D C L O C K ) \0 022 001 \0 \0
0003160 002 021 020 \0 ` \0 \0 l , 320 \t \0 \0 @ 367 A
0003200 361 020 \0 ( 1 3 Q \ C L O C K 0 )
0003220 \r ( 5 \ M I S C S T A T S ) \r
0003240 ( ) \r \ R C L O C K 0 D 1 \r (
0003260 I 0 B O X ) \0 \a \0 \0 \0 001 @
0003300 006 \0 \0 w 020 \0 N I L \r ( 3 F I X
0003320 P ) \r ( ) \r C L O C K 0 D 1 \r
0003340 ( P 0 \ I N T E R R U P T A
0003360 B L E I 0 B O X ) \0 ( 001
0003400 \0 \0 001 @ 004 l 002 360 224 @ \t \0 \0 020 l \f
0003420 o \0 \0 \0 @ \v \0 \0 021 020 \0 @ ` \0 \0 l
0003440 , 320 \t \0 \0 l 002 304 @ 020 \0 ( 4 1 Q
0003460 \ C L O C K 0 2 4 Q \ M P .
0003500 E R R O R 1 1 Q \ C L O C K
0003520 0 ) \r ( 3 3 Q \ M I S C S T A
0003540 T S ) \r ( 2 0 Q " C a l l
0003560 t o C L O C K 0 w i t h a
0003600 r g n o t a n u m b e r
0003620 b o x . ^ N t o c o n t
0003640 i n u e . " ) \r C L O C K D 1
0003660 \r ( I 1 B O X I 0 N )
0003700 \0 _ \0 \0 \0 002 @ 265 003 j d j 360 236 A
0003720 004 l 002 360 221 A 202 l 002 037 \t \0 \0 020 d k
0003740 360 225 ` \0 \0 313 \0 020 d l 002 360 262 * A 004
0003760 l 002 360 221 A 202 l 002 037 \t \0 \0 ` \0 \0 l
0004000 004 320 367 ` \0 \0 l 016 320 367 ` \0 \0 367 ` \0
0004020 \0 l 020 320 367 020 l 003 360 225 ` \0 \0 313 020 020
0004040 @ \t \0 \0 020 \0 ( 1 3 4 Q \ I L L
0004060 E G A L . A R G 6 4 Q \ C L
0004100 O C K 0 2 5 Q \ C L O C K 0
0004120 ) \r ( 1 2 5 Q \ M I S C S T A
0004140 T S 1 1 1 Q \ M I S C S T A
0004160 T S 1 0 5 Q \ M I S C S T A
0004200 T S 7 6 Q \ M I S C S T A T
0004220 S 6 7 Q \ M I S C S T A T S
0004240 3 5 Q \ M I S C S T A T S )
0004260 \r ( ) \r D A Y T I M E D 1 \r N
0004300 I L \0 \r \0 \0 \0 \0 l 002 037 \t \0 \0 o
0004320 \0 \0 \0 346 020 \0 ( 5 \ D A Y T I M
0004340 E 0 ) \r N I L \r ( 1 1 Q - 2
0004360 0 0 0 0 0 0 0 0 0 0 Q ) \r A L T
0004400 O . T O . L I S P . D A T E D
0004420 1 \r ( L ( 0 D A T E ) ) \0
0004440 \b \0 \0 \0 001 @ o \0 \0 \0 346 020 \0 N I L
0004460 \r N I L \r ( 4 - 2 0 0 0 0 0
0004500 0 0 0 0 0 Q ) \r L I S P . T O .
0004520 A L T O . D A T E D 1 \r ( L
0004540 ( 0 D A T E ) ) \0 \b \0 \0 \0 001
0004560 @ o \0 \0 \0 346 020 \0 N I L \r N I L \r
0004600 ( 4 - 2 0 0 0 0 0 0 0 0 0 0
0004620 Q ) \r \ S E T U P T I M E R m a
0004640 c r o f n D 1 \r ( P 5 F O
0004660 R M P 4 C L O C K F N N A
0004700 M E P 3 I n t e r v a l U
0004720 n i t s P 2 T i m e r U n
0004740 i t s P 1 T I M E R F O R
0004760 M P 0 I N T E R V A L F O
0005000 R M I 1 N O E R R O R C H
0005020 K S I 0 X ) 001 7 006 \0 \0 002
0005040 @ 001 @ 002 001 @ 002 002 001 \t \0 \0 @ 002 002 002
0005060 001 \t \0 \0 021 024 004 J 221 K 243 g \0 \0 020 J
0005100 001 d g \0 \0 360 263 027 d g \0 \0 360 256 d g
0005120 \0 \0 360 250 265 006 g \0 \0 202 \t \0 \0 Z K d
0005140 001 243 277 d 260 037 001 d g \0 \0 360 263 027 d g
0005160 \0 \0 360 256 d g \0 \0 360 250 265 006 g \0 \0 202
0005200 \t \0 \0 [ J d g \0 \0 360 262 ) 277 d d g
0005220 \0 \0 360 231 277 g \0 \0 H o \0 \0 \0 214 g \0
0005240 \0 360 232 g \0 \0 H o \0 \0 \0 032 032 270 g \0
0005260 \0 260 ] g \0 \0 360 262 ( K d g \0 \0 360 231
0005300 277 g \0 \0 H o \0 \0 \0 214 g \0 \0 360 232 g
0005320 \0 \0 H o \0 \0 \0 032 032 270 g \0 \0 260 1 J
0005340 g \0 \0 360 262 ' K d g \0 \0 360 231 277 g \0
0005360 \0 H o \0 \0 \0 214 g \0 \0 360 232 g \0 \0 H
0005400 o \0 \0 \0 032 032 270 g \0 \0 202 \b \0 \0 \ A
0005420 263 8 I \t \0 \0 225 o \0 \0 \0 260 , o \0 \0
0005440 \0 021 001 005 I 003 251 I g \0 \0 M \v \0 \0 260
0005460 027 g \0 \0 o \0 \0 \0 o \0 \0 \0 M h 032 032
0005500 032 032 I h 032 032 022 271 g \0 \0 L I h 032 032
0005520 H h 032 032 032 020 \0 ( 4 1 6 Q S U B
0005540 S T 3 6 5 Q C O N S T A N T
0005560 E X P R E S S I O N P 3 5 5 Q
0005600 S H O U L D N T 1 4 2 Q \
0005620 C a n o n i c a l i z e T i m e
0005640 r U n i t s 7 4 Q \ C a n o
0005660 n i c a l i z e T i m e r U n i
0005700 t s 2 3 Q C O N S T A N T E
0005720 X P R E S S I O N P 1 3 Q C
0005740 O N S T A N T E X P R E S S I O
0005760 N P ) \r ( 4 5 2 Q \ T I M E R
0006000 . P L U S 4 2 3 Q L A M B D
0006020 A 4 1 2 Q T i m e r ? 3 5
0006040 1 Q \ T I M E R . I N . S E C
0006060 O N D S 3 3 6 Q I Q U O T I
0006100 E N T 3 3 1 Q T I C K S 3
0006120 2 0 Q I Q U O T I E N T 3 1
0006140 2 Q M I L L I S E C O N D S
0006160 3 0 2 Q S E C O N D S 2 7 4
0006200 Q \ T I M E R . I N . M I L L
0006220 I S E C O N D S 2 6 1 Q I T
0006240 I M E S 2 5 4 Q S E C O N D
0006260 S 2 4 3 Q I Q U O T I E N T
0006300 2 3 5 Q T I C K S 2 2 5 Q
0006320 M I L L I S E C O N D S 2 2
0006340 0 Q \ T I M E R . I N . T I C
0006360 K S 2 0 5 Q I T I M E S 2
0006400 0 0 Q S E C O N D S 1 6 7 Q
0006420 I T I M E S 1 6 1 Q M I L
0006440 L I S E C O N D S 1 5 0 Q T
0006460 I C K S 1 3 6 Q M I L L I S
0006500 E C O N D S 1 2 7 Q S E C O
0006520 N D S 1 2 1 Q M I L L I S E
0006540 C O N D S 1 1 2 Q T I C K S
0006560 7 0 Q M I L L I S E C O N D
0006600 S 6 1 Q S E C O N D S 5 3
0006620 Q M I L L I S E C O N D S 4
0006640 4 Q T I C K S 3 5 Q I G N
0006660 O R E M A C R O ) \r ( 4 3 3 Q
0006700 ( D E C L A R E ( L O C A L
0006720 V A R S T i m e r ? ) ) 4 2
0006740 7 Q ( T i m e r ? ) 4 0 0 Q
0006760 ( C O N D ( ( \ T I M E R .
0007000 T I M E R P T i m e r ? ) T
0007020 i m e r ? ) ( T ( \ T I M E
0007040 R . M A K E T I M E R ) ) ) \r
0007060 3 7 2 Q ( \ T I M E R . M A K
0007100 E T I M E R ) 3 4 3 Q ( \ R
0007120 C L K S E C O N D ) 3 2 5 Q
0007140 ( 1 7 5 0 Q ) 2 6 6 Q ( 1 7
0007160 5 0 Q ) 2 5 0 Q ( \ R C L K
0007200 M I L L I S E C O N D ) 2 1 2
0007220 Q ( \ R C L K S E C O N D ) \r
0007240 1 7 4 Q ( \ R C L K M I L L
0007260 I S E C O N D ) ) \r \ C a n o n
0007300 i c a l i z e T i m e r U n i t
0007320 s D 1 \r ( P 1 C O N V E R
0007340 T E D P P 0 Y I 0 X
0007360 ) \0 ? 002 \0 \0 001 @ 021 021 001 H d g \0
0007400 \0 360 223 g \0 \0 020 234 H g \0 \0 360 246 H d
0007420 g \0 \0 360 223 g \0 \0 020 g \0 \0 360 223 g \0
0007440 \0 020 I 251 H \t \0 \0 X i 271 277 260 320 g \0
0007460 \0 @ \n \0 \0 020 \0 ( 7 4 Q E R R O
0007500 R 5 7 Q U - C A S E ) \r ( 7
0007520 0 Q I n v a l i d % a r g %
0007540 f o r % t i m e r % u n i
0007560 t s 5 0 Q S E C O N D S 4
0007600 3 Q S E C O N D S 3 7 Q M
0007620 I L L I S E C O N D S 3 2 Q
0007640 M S 2 3 Q M I L L I S E C O
0007660 N D S 1 5 Q T I C K S 1 0
0007700 Q T I C K S ) \r ( ) \r S E T U
0007720 P T I M E R D 1 \r ( I 3 i
0007740 n t e r v a l U n i t s I 2
0007760 t i m e r U n i t s I 1
0010000 O l d T i m e r ? I 0 I N
0010020 T E R V A L ) \0 326 \0 \0 \0 004 @ j
0010040 330 b \0 A 004 l 002 360 245 l 002 037 b 002 277 B
0010060 d g \0 \0 360 263 027 d g \0 \0 360 256 d g \0
0010100 \0 360 250 265 006 g \0 \0 202 \t \0 \0 b 004 C 265
0010120 005 d 260 ! g \0 \0 360 256 C d g \0 \0 360 263
0010140 024 d g \0 \0 360 222 277 C 210 243 g \0 \0 203 C
0010160 \t \0 \0 b 006 B d g \0 \0 360 262 $ 277 d d
0010200 g \0 \0 360 224 277 ` \0 \0 207 g \0 \0 360 227 `
0010220 \0 \0 @ 332 b \0 277 A 006 \0 \0 w @ 366 020 g
0010240 \0 \0 360 262 $ C d g \0 \0 360 226 277 @ ` \0
0010260 \0 333 211 g \0 \0 360 227 @ n 003 350 332 b \0 277
0010300 A \t \0 \0 @ 366 020 B g \0 \0 360 262 # C d
0010320 g \0 \0 360 225 277 @ n 003 350 210 g \0 \0 360 227
0010340 @ ` \0 \0 333 b \0 277 A \t \0 \0 @ 366 020 \b
0010360 \0 \0 020 \0 ( 3 2 3 Q S H O U L D
0010400 N T 3 1 5 Q \ D A Y T I M E
0010420 0 2 4 5 Q \ C L O C K 0 1
0010440 2 4 Q \ C a n o n i c a l i z
0010460 e T i m e r U n i t s 5 5 Q
0010500 \ C a n o n i c a l i z e T i m
0010520 e r U n i t s ) \r ( 3 0 5 Q \
0010540 R C L K S E C O N D 2 7 7 Q
0010560 T I C K S 2 6 4 Q M I L L I
0010600 S E C O N D S 2 5 4 Q S E C
0010620 O N D S 2 2 7 Q S E C O N D
0010640 S 2 2 2 Q \ R C L K M I L L
0010660 I S E C O N D 2 1 3 Q T I C
0010700 K S 2 0 3 Q M I L L I S E C
0010720 O N D S 1 7 4 Q F I X P 1
0010740 6 3 Q \ R C L K S E C O N D
0010760 1 5 6 Q S E C O N D S 1 5 2
0011000 Q \ R C L K M I L L I S E C O
0011020 N D 1 4 4 Q M I L L I S E C
0011040 O N D S 1 3 3 Q T I C K S
0011060 1 1 7 Q M I L L I S E C O N D
0011100 S 1 0 6 Q S E C O N D S 7
0011120 7 Q M I L L I S E C O N D S
0011140 7 0 Q T I C K S 5 1 Q M I
0011160 L L I S E C O N D S 4 2 Q S
0011200 E C O N D S 3 4 Q M I L L I
0011220 S E C O N D S 2 5 Q T I C K
0011240 S ) \r ( ) \r S E T U P T I M E R
0011260 . D A T E D 1 \r ( I 1 O l
0011300 d T i m e r ? I 0 D T S )
0011320 \0 031 \0 \0 \0 002 A 004 l 002 360 221 A 202 l
0011340 002 037 \t \0 \0 @ \t \0 \0 \b \0 \0 331 366 020 \0
0011360 ( 2 4 Q I D A T E 2 1 Q I
0011400 D A T E 1 5 Q \ D A Y T I M
0011420 E 0 ) \r N I L \r ( ) \r T I M E R
0011440 E X P I R E D ? D 1 \r ( P 0
0011460 \ I N T E R R U P T A B L E
0011500 I 1 C l o c k V a l u e . o
0011520 r . t i m e r U n i t s I 0
0011540 T I M E R ) \0 222 001 \0 \0 002 @ 004
0011560 l 002 360 246 @ l 033 \n \0 \0 020 A d 004 l 002
0011600 360 262 027 277 021 020 \0 j ` \0 \0 A 314 \0 277 `
0011620 \0 \0 @ 367 361 h 360 020 g \0 \0 360 256 A d g
0011640 \0 \0 360 263 024 d g \0 \0 360 222 277 A 210 243 g
0011660 \0 \0 203 A \t \0 \0 d g \0 \0 360 262 024 277 021
0011700 020 \0 j ` \0 \0 006 \0 \0 w @ 367 361 h 360 020
0011720 d g \0 \0 360 262 023 277 021 020 \0 j ` \0 \0 \t
0011740 \0 \0 @ 367 361 h 360 020 g \0 \0 360 264 022 021 020
0011760 \0 j ` \0 \0 \t \0 \0 @ 367 361 022 h 360 020 \0
0012000 ( 2 1 1 Q \ D A Y T I M E 0
0012020 1 6 3 Q \ C L O C K 0 1 1 0
0012040 Q \ C a n o n i c a l i z e T
0012060 i m e r U n i t s 1 3 Q \ L
0012100 I S P E R R O R ) \r ( 2 0 6 Q
0012120 \ T I M E R E X P I R E D . B O
0012140 X 1 7 4 Q S E C O N D S 1
0012160 6 0 Q \ T I M E R E X P I R E
0012200 D . B O X 1 4 5 Q M I L L I
0012220 S E C O N D S 1 3 2 Q F I X
0012240 P 1 2 7 Q \ T I M E R E X P
0012260 I R E D . B O X 1 1 4 Q T I
0012300 C K S 1 0 3 Q M I L L I S E
0012320 C O N D S 7 2 Q S E C O N D
0012340 S 6 3 Q M I L L I S E C O N
0012360 D S 5 4 Q T I C K S 4 3 Q
0012400 \ T I M E R E X P I R E D . B
0012420 O X 3 4 Q \ T I M E R E X P
0012440 I R E D . B O X ) \r ( ) \r T I M
0012460 E . U N T I L D 1 \r ( I 1
0012500 U N I T S I 0 T I M E R )
0012520 \0 ^ \0 \0 \0 002 @ 004 l 002 360 246 @ l 033
0012540 \n \0 \0 020 A d g \0 \0 360 263 027 d g \0 \0
0012560 360 256 d g \0 \0 360 250 265 006 g \0 \0 202 \t \0
0012600 \0 d g \0 \0 360 232 277 @ ` \0 \0 006 \0 \0 w
0012620 331 020 d g \0 \0 360 231 277 @ ` \0 \0 \t \0 \0
0012640 331 020 g \0 \0 360 230 @ ` \0 \0 \t \0 \0 331 020
0012660 \b \0 \0 020 \0 ( 1 3 3 Q S H O U L
0012700 D N T 1 2 6 Q \ D A Y T I M
0012720 E 0 1 1 0 Q \ C L O C K 0
0012740 5 1 Q \ C a n o n i c a l i z
0012760 e T i m e r U n i t s 1 3 Q
0013000 \ L I S P E R R O R ) \r ( 1 2 3
0013020 Q \ T I M E R E X P I R E D .
0013040 B O X 1 1 5 Q S E C O N D S
0013060 1 0 5 Q \ T I M E R E X P I
0013100 R E D . B O X 7 6 Q M I L L
0013120 I S E C O N D S 6 7 Q F I X
0013140 P 6 4 Q \ T I M E R E X P I
0013160 R E D . B O X 5 5 Q T I C K
0013200 S 4 5 Q M I L L I S E C O N
0013220 D S 3 6 Q S E C O N D S 3
0013240 0 Q M I L L I S E C O N D S
0013260 2 1 Q T I C K S ) \r ( ) \r ( P
0013300 R E T T Y C O M P R I N T L L
0013320 T I M E R C O M S ) \r ( R P A Q
0013340 Q L L T I M E R C O M S ( (
0013360 C O M S ( * L o w e s t l
0013400 e v e l C l o c k s t u f f
0013420 ) ( F N S \ C L O C K 0 \
0013440 D A Y T I M E 0 \ G E T I N T
0013460 E R N A L C L O C K \r \ S E T
0013500 D A Y T I M E 0 C L O C K D I
0013520 F F E R E N C E \ S E C O N D
0013540 S C L O C K G R E A T E R P \
0013560 C L O C K G R E A T E R P \ R
0013600 C L O C K 0 ) ( F N S C L O
0013620 C K 0 ) ( M A C R O S \r \ R
0013640 C L O C K 0 ) ( I N I T V A R
0013660 S ( \ R C L K M I L L I S E C
0013700 O N D 1 6 8 0 ) ) ( G L O B
0013720 A L V A R S \ R C L K S E C O
0013740 N D \ R C L K M I L L I S E C
0013760 O N D ) ( D E C L A R E : \r
0014000 D O N T C O P Y ( E X P O R T
0014020 ( M A C R O S \ U P D A T E
0014040 T I M E R S ) ( * " L o c a
0014060 t i o n s i n a l t o e m
0014100 u l a t o r " ) ( C O N S T A
0014120 N T S ( \ R T C S E C O N D S
0014140 3 7 8 ) \r ( \ R T C M I L L
0014160 I S E C O N D S 3 8 0 ) ( \
0014200 R T C B A S E 3 8 2 ) ( \ O
0014220 F F S E T . S E C O N D S 0 )
0014240 ( \ O F F S E T . M I L L I S
0014260 E C O N D S 2 ) ( \ O F F S
0014300 E T . B A S E 4 ) ( \r \ A L
0014320 T O . R C L K S E C O N D 1 6
0014340 8 0 0 0 0 ) ( \ A L T O . R C
0014360 L K M I L L I S E C O N D 1 6
0014400 8 0 ) ( \ D L I O N . R C L K
0014420 M I L L I S E C O N D 3 5 )
0014440 ( \ D L I O N . R C L K S E C O
0014460 N D \r 3 4 7 4 6 ) ( \ D O V
0014500 E . R C L K M I L L I S E C O N
0014520 D 6 3 ) ( \ D O V E . R C L
0014540 K S E C O N D 6 2 5 0 0 ) ) )
0014560 ( * L o c k e d s t u f f
0014600 . H a v e t o l o c k a
0014620 n y t h i n g \r u s e d b y
0014640 p a g e f a u l t c o d e ,
0014660 i n c l u d i n g t h e u
0014700 f n s t h a t t h e y u s
0014720 e u n t i l a l l m i c r
0014740 o c o d e s h a v e t h e m
0014760 ) ( A D D V A R S ( \r I N E
0015000 W C O M S ( A L L O C A L (
0015020 A D D V A R S ( L O C K E D F
0015040 N S \ C L O C K 0 \ G E T I
0015060 N T E R N A L C L O C K \ B O
0015100 X I D I F F E R E N C E \ B O
0015120 X I P L U S \ B L T \r \ S L
0015140 O W I Q U O T I E N T ) ( L O
0015160 C K E D V A R S \ R C L K S E
0015200 C O N D \ R C L K M I L L I S
0015220 E C O N D \ M I S C S T A T S
0015240 ) ) ) ) ) ) ) ( C O M S ( *
0015260 b a s i c d a t e a n d
0015300 \r t i m e ) ( F N S C L O C
0015320 K D A Y T I M E A L T O . T
0015340 O . L I S P . D A T E L I S P
0015360 . T O . A L T O . D A T E ) (
0015400 D E C L A R E : E V A L @ C O
0015420 M P I L E D O N T C O P Y (
0015440 E X P O R T \r ( P R O P M A
0015460 C R O A L T O . T O . L I S P
0015500 . D A T E L I S P . T O . A L
0015520 T O . D A T E ) ) ) ) ( C O M
0015540 S ( * D U R A T I O N a n
0015560 d T I M E R t h i n g s )
0015600 ( D E C L A R E : \r E V A L @
0015620 C O M P I L E D O N T C O P Y
0015640 ( M A C R O S T I M E R . M
0015660 A K E S A F E T I M E R T I M
0015700 E R . T I M E R E X P I R E D ?
0015720 E X P A N D . S E T U P T I M
0015740 E R ) ( * F o l l o w i n g
0015760 \r m a c r o n e e d n ' t
0016000 b e i n s t a l l e d s i n
0016020 c e t h e f u n c t i o n
0016040 c a l l i s f a i r l y s
0016060 l o w a n y w a y ) ( M A C
0016100 R O S S E T U P T I M E R . D
0016120 A T E ) ( \r F N S \ S E T U
0016140 P T I M E R m a c r o f n ) ) )
0016160 ( C O M S ( * m a c r o s
0016200 f o r d e a l i n g w i t
0016220 h t i m e r s ) ( M A C R O
0016240 S S E T U P T I M E R ) ( M
0016260 A C R O S \r \ T I M E R . T I
0016300 M E R P \ T I M E R . M A K E
0016320 T I M E R \ T I M E R . P L U
0016340 S \ T I M E R . D I F F E R E
0016360 N C E \ T I M E R . I N . S E
0016400 C O N D S \ T I M E R . I N .
0016420 M I L L I S E C O N D S \r \ T
0016440 I M E R . I N . T I C K S ) (
0016460 F N S \ S E T U P T I M E R m
0016500 a c r o f n \ C a n o n i c a
0016520 l i z e T i m e r U n i t s )
0016540 ( F N S S E T U P T I M E R
0016560 S E T U P T I M E R . D A T E
0016600 \r T I M E R E X P I R E D ? T
0016620 I M E . U N T I L ) ( V A R S
0016640 ( \ T I M E R E X P I R E D .
0016660 B O X ( S E T U P T I M E R
0016700 0 ) ) ) ( G L O B A L V A R S
0016720 \ T I M E R E X P I R E D . B
0016740 O X \r \ R C L K M I L L I S E
0016760 C O N D \ R C L K S E C O N D
0017000 ) ) ) ) \r ( P U T P R O P S \
0017020 R C L O C K 0 D M A C R O (
0017040 ( B O X ) ( \ R C L K ( \ D
0017060 T E S T B O X ( Q U O T E
0017100 F I X P ) ) ) ) ) \r ( R P A Q ?
0017120 \ R C L K M I L L I S E C O N
0017140 D 1 6 8 0 ) \r ( P U T P R O P
0017160 S S E T U P T I M E R M A C
0017200 R O ( X ( \ S E T U P T I M
0017220 E R m a c r o f n X ) ) ) \r (
0017240 P R O G N ( P U T P R O P S
0017260 \ T I M E R . T I M E R P M A
0017300 C R O ( ( X ) ( F I X P X
0017320 ) ) ) ( P U T P R O P S \ T
0017340 I M E R . T I M E R P D M A C
0017360 R O ( ( X ) ( T Y P E N A M
0017400 E P X \r ( Q U O T E F I X
0017420 P ) ) ) ) ) \r ( P U T P R O P S
0017440 \ T I M E R . M A K E T I M E
0017460 R D M A C R O ( N I L ( N
0017500 C R E A T E ( Q U O T E F I
0017520 X P ) ) ) ) \r ( P U T P R O P S
0017540 \ T I M E R . P L U S D M A
0017560 C R O ( ( O L D T I M E R I
0017600 N T E R V A L ) ( \ B O X I P
0017620 L U S O L D T I M E R I N T
0017640 E R V A L ) ) ) \r ( P U T P R O
0017660 P S \ T I M E R . D I F F E R
0017700 E N C E D M A C R O ( ( T I
0017720 M E R 2 T I M E R 1 ) ( I D
0017740 I F F E R E N C E T I M E R 2
0017760 T I M E R 1 ) ) ) \r ( P U T P
0020000 R O P S \ T I M E R . I N . S
0020020 E C O N D S D M A C R O ( (
0020040 O L D T I M E R ) ( \ D A Y T
0020060 I M E 0 O L D T I M E R ) ) )
0020100 \r ( P U T P R O P S \ T I M E
0020120 R . I N . M I L L I S E C O N D
0020140 S D M A C R O ( ( O L D T I
0020160 M E R ) ( \ C L O C K 0 O L
0020200 D T I M E R ) ) ) \r ( P U T P R
0020220 O P S \ T I M E R . I N . T I
0020240 C K S D M A C R O ( ( O L D
0020260 T I M E R ) ( \ R C L O C K 0
0020300 O L D T I M E R ) ) ) \r ( R P
0020320 A Q \ T I M E R E X P I R E D
0020340 . B O X ( S E T U P T I M E R
0020360 0 ) ) \r ( P U T P R O P S L
0020400 L T I M E R C O P Y R I G H T
0020420 ( " X e r o x C o r p o r a
0020440 t i o n " 1 9 8 5 ) ) \r N I L
0020460 \r
0020461