Data Sheet

24
lo c a l ow = ow
-- Tim er mo d u l e
lo c a l tm r = tm r
-- Li m i te d to lo c a l en v iro n m e n t
se t fe nv (1 , M )
-- - - - - - - - - - - - - - - - - - -- - -- - -- - -- - -- - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - -- - -- - -
-- Im p l e m e n t a t io n
-- - - - - - - - - - - - - - - - - - -- - -- - -- - -- - -- - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - -- - -- - -
C = 0
F = 1
K = 2
fu n c t io n se t u p ( d q )
pi n = dq
if ( p i n == ni l ) th e n
pi n = de f a u lt P in
en d
ow. s e t u p( p i n )
en d
fu n c t io n ad d r s ( )
se t u p ( p i n)
tb l = {}
ow. re s e t _ s e a rc h( p i n )
re p e a t
ad d r = ow. s e a r c h ( p i n)
if ( a d d r ~= ni l ) th e n
ta b l e. i n s e r t ( t b l , ad d r )
en d
tm r.w d c l r ( )
un t il (a d d r == ni l )
ow. re s e t _ s e a rc h( p i n )
re t u r n tb l
en d
fu n c t io n re a d N u m b e r ( a d d r, un i t)
re s u l t = ni l
se t u p ( p i n)
fl a g = fa l s e
if ( a d d r == ni l ) th e n
ow. re s e t _ s e a rc h( p i n )
co u n t = 0
re p e a t
co u n t = co u n t + 1
ad d r = ow.s e a r c h (p i n )
tm r.w d c l r ( )