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