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