2014-06-23 20:35:43 +02:00
|
|
|
|
<EFBFBD><EFBFBD>{ {
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
% A u t o r : I n g o K r i p a h l e & J <00> r g D e c k e r t %
|
|
|
|
|
|
% C o p y r i g h t ( c ) 2 0 1 0 I n g o K r i p a h l e , 2 0 1 4 J <00> r g D e c k e r t %
|
|
|
|
|
|
% S e e e n d o f f i l e f o r t e r m s o f u s e . %
|
|
|
|
|
|
% D i e N u t z u n g s b e d i n g u n g e n b e f i n d e n s i c h a m E n d e d e r D a t e i %
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
|
|
|
|
|
|
I n f o r m a t i o n e n : h i v e - p r o j e c t . d e
|
|
|
|
|
|
K o n t a k t : d r o h n e 2 3 5 @ g o o g l e m a i l . c o m , j o e r g d @ b i t q u e l l . d e
|
|
|
|
|
|
S y s t e m : T r i O S
|
|
|
|
|
|
N a m e : A d m i n i s t r a - F l a s h
|
|
|
|
|
|
C h i p : A d m i n i s t r a
|
|
|
|
|
|
T y p : F l a s h
|
|
|
|
|
|
V e r s i o n : 0 0
|
|
|
|
|
|
S u b v e r s i o n : 0 2
|
|
|
|
|
|
|
|
|
|
|
|
F u n k t i o n : D i e s e r C o d e w i r d v o n A d m i n i s t r a n a c h e i n e m R e s e t a u s d e m E E P r o m i n d e n h R A M k o p i e r t
|
|
|
|
|
|
u n d g e s t a r t e t . I m G e g e n s a t z z u B e l l a t r i x u n d R e g n a t i x , d i e e i n e n L o a d e r a u s d e m E E P r o m
|
|
|
|
|
|
l a d e n u n d e n t s p r e c h e n d e S y s t e m d a t e i e n v o m S D - C a r d l a u f w e r k b o o t e n , a l s o i m
|
|
|
|
|
|
w e s e n t l i c h e n v o r d e m B o o t v o r g a n g k e i n e w e i t e r F u n k t i o n a l i t <00> t a l s d i e L a d e p r o z e d u r
|
|
|
|
|
|
b e s i t z e n , m u <00> d a s E E P r o m - B i o s v o n A d m i n i s t r a m i n d e s t e n s d i e F u n k t i o n a l i t <00> t d e s
|
|
|
|
|
|
S D - C a r d l a u f w e r k e s z u r V e r f <00> g u n g s t e l l e n k <00> n n e n . E s e r s c h e i n t d e s h a l b s i n n v o l l , d i e s e s
|
|
|
|
|
|
B I O S g l e i c h m i t e i n e m a u s g e w o g e n e n F u n k t i o n s u m f a n g a u s z u s t a t t e n , w e l c h e r a l l e F u n k t i o n e n
|
|
|
|
|
|
f <00> r d a s S y s t e m b i e t e t . D u r c h e i n e B o o t o p t i o n k a n n d i e s e s B I O S a b e r z u r L a u f z e i t
|
|
|
|
|
|
a u s g e t a u s c h t w e r d e n , u m d a s F u n k t i o n s s e t u p a n k o n k r e t e A n f o r d e r u n g e n a n z u p a s s e n .
|
|
|
|
|
|
|
|
|
|
|
|
C h i p - M a n a g m e n t - F u n k t i o n e n
|
|
|
|
|
|
- B o o t f u n k t i o n f <00> r A d m i n i s t r a
|
|
|
|
|
|
- A b f r a g e u n d V e r w a l t u n g d e s a k t i v e n S o u n d s y s t e m s
|
|
|
|
|
|
- A b f r a g e V e r s i o n u n d S p e z i f i k a t i o n
|
|
|
|
|
|
|
|
|
|
|
|
S D - F u n k t i o n e n :
|
|
|
|
|
|
- F A T 3 2 o d e r F A T 1 6
|
|
|
|
|
|
- P a r t i t i o n e n b i s 1 T B u n d D a t e i e n b i s 2 G B
|
|
|
|
|
|
- V e r z e i c h n i s s e
|
|
|
|
|
|
- V e r w a l t u n g a l l e r D a t e i a t t r i b u t e
|
|
|
|
|
|
- D I R - M a r k e r S y s t e m
|
|
|
|
|
|
- V e r w a l t u n g e i n e s S y s t e m o r d n e r s
|
|
|
|
|
|
- A c h t u n g : K e i n e V e r w a l t u n g v o n m e h r e r e n g e <00> f f n e t e n D a t e i e n !
|
|
|
|
|
|
|
|
|
|
|
|
H S S - F u n k t i o n e n :
|
|
|
|
|
|
- 4 - K a n a l T r a c k e r E n g i n e
|
|
|
|
|
|
- 2 - K a n a l S o u n d F X S y n t h e s i z e r
|
|
|
|
|
|
- 1 - K a n a l 1 B i t A D P C M S a m p l e E n g i n e
|
|
|
|
|
|
- P u f f e r f <00> r H S S - D a t e i ; M o d u l b e n <00> t i g t w <00> h r e n d d e r W i e d e r g a b e a l s o k e i n e n
|
|
|
|
|
|
e x k l u s i v e n S D - L a u f w e r k s z u g r i f f
|
|
|
|
|
|
|
|
|
|
|
|
W A V - F u n k t i o n e n :
|
|
|
|
|
|
- W i e d e r g a b e v o n W A V - D a t e i e n b i s 2 2 0 5 0 H z d i r e k t v o n S D - C a r d
|
|
|
|
|
|
- A c h t u n g : D e r W A V - P l a y e r b e l e g t e x c l u s i v d a s S D C a r d - L a u f w e r k - S D - F u n k t i o n e n
|
|
|
|
|
|
w <00> h r e n d e s d e s A b s p i e l v o r g a n g s f <00> h r e n z u e i n e m u n d e f i n i e r t e n V e r h a l t e n v o n
|
|
|
|
|
|
A d m i n i s t r a !
|
|
|
|
|
|
|
|
|
|
|
|
S I D C o g - F u n k t i o n e n :
|
|
|
|
|
|
|
|
|
|
|
|
R T C - F u n k t i o n e n :
|
|
|
|
|
|
- D a t u m , U h r z e i t a u s l e s e n
|
|
|
|
|
|
- D a t u m , U h r z e i t s c h r e i b e n
|
|
|
|
|
|
- N V R A M a u s l e s e n
|
|
|
|
|
|
- N V R A M s c h r e i b e n
|
|
|
|
|
|
- W a r t e f u n k t i o n e n
|
|
|
|
|
|
|
|
|
|
|
|
L A N - F u n k t i o n e n :
|
|
|
|
|
|
- E t h e r n e t - P o r t m i t D a t e n a u s N V R A M o d e r S D - D a r d i n i t i a l i s i e r e n
|
|
|
|
|
|
- e i n - u n d a u s g e h e n d e V e r b i n d u n g e n <00> f f n e n
|
|
|
|
|
|
- D a t e n <00> b e r t r a g e n
|
|
|
|
|
|
|
|
|
|
|
|
K o m p o n e n t e n : H S S 1 . 2 A n d r e w A r s e n a u l t L i z e n z u n k l a r
|
|
|
|
|
|
S I D C o g V e r . 0 8 0 J o h a n n e s A h l e b r a n d M I T L i z e n z
|
|
|
|
|
|
D A C E n g i n e 0 1 / 1 1 / 2 0 1 0 K w a b e n a W . A g y e m a n M I T L i z e n z
|
|
|
|
|
|
F A T E n g i n e 0 1 / 1 8 / 2 0 0 9 K w a b e n a W . A g y e m a n M I T L i z e n z
|
|
|
|
|
|
R T C E n g i n e 1 1 / 2 2 / 2 0 0 9 K w a b e n a W . A g y e m a n M I T L i z e n z
|
|
|
|
|
|
P r o p T C P 1 2 / 0 8 / 2 0 0 9 H a r r i s o n P h a m L i z e n z u n k l a r
|
|
|
|
|
|
|
|
|
|
|
|
C O G ' s : M A N A G M E N T 1 C O G
|
|
|
|
|
|
F A T / R T C 1 C O G
|
|
|
|
|
|
H S S 2 C O G ' s
|
|
|
|
|
|
W A V 2 C O G
|
|
|
|
|
|
S I D C o g ' s 2 C O G ' s
|
|
|
|
|
|
D M P / T r a c k e r 1 C O G ( d y n a m i s c h )
|
|
|
|
|
|
N E T 2 C O G
|
|
|
|
|
|
D C F r e c e i v e r 1 C O G
|
|
|
|
|
|
|
|
|
|
|
|
D e f i n e s : _ _ A D M _ F A T e n a b l e F A T e n g i n e ( s d c a r d h a n d l i n g )
|
|
|
|
|
|
_ _ A D M _ F A T _ E X T e n a b l e F A T e x t e n s i o n f o r P L E X U S
|
|
|
|
|
|
_ _ A D M _ H S S e n a b l e H S S s y n t h e s i z e r
|
|
|
|
|
|
_ _ A D M _ H S S _ P L A Y e n a b l e H S S p l a y e r ( o n l y w i t h _ _ A D M _ H S S )
|
|
|
|
|
|
_ _ A D M _ W A V e n a b l e W A V p l a y e r
|
|
|
|
|
|
_ _ A D M _ S I D e n a b l e S I D p l a y e r
|
|
|
|
|
|
_ _ A D M _ L A N e n a b l e L A N f u n c t i o n s
|
|
|
|
|
|
_ _ A D M _ R T C e n a b l e R T C f u n c t i o n s ( F A T e n g i n e i n h e r i t s i t a l s o )
|
|
|
|
|
|
_ _ A D M _ P L X e n a b l e p l e x b u s
|
|
|
|
|
|
_ _ A D M _ D C F e n a b l e D C F 7 7 r e c e i v e r
|
|
|
|
|
|
_ _ A D M _ B L T e n a b l e B l u e t o o t h
|
|
|
|
|
|
_ _ A D M _ C O M e n a b l e s e r i a l p o r t
|
|
|
|
|
|
_ _ A D M _ A Y S e n a b l e A Y S p l a y e r
|
|
|
|
|
|
|
|
|
|
|
|
L o g b u c h :
|
|
|
|
|
|
|
|
|
|
|
|
1 4 - 1 1 - 2 0 0 8 - d r 2 3 5 - e r s t e v e r s i o n e r s t e l l t
|
|
|
|
|
|
1 3 - 0 3 - 2 0 0 9 - d r 2 3 5 - s d _ e o f e i n g e f <00> g t
|
|
|
|
|
|
2 5 - 0 1 - 2 0 0 9 - d r 2 3 5 - k o m f o r t a b l e r e s i n t e r f a c e f <00> r h s s - p l a y e r e i n g e f <00> g t
|
|
|
|
|
|
1 9 - 0 3 - 2 0 0 9 - d r 2 3 5 - s e e k , f t i m e , f a t t r i b u n d f s i z e e i n g e f <00> g t
|
|
|
|
|
|
2 2 - 0 8 - 2 0 0 9 - d r 2 3 5 - g e t c o g s e i n g e f <00> g t
|
|
|
|
|
|
0 9 - 0 1 - 2 0 1 0 - d r 2 3 5 - f e h l e r i n s f x _ f i r e k o r r i g i e r t
|
|
|
|
|
|
1 0 - 0 1 - 2 0 1 0 - d r 2 3 5 - f e h l e r i n s d w _ s t o p - h s s w u r d e n i c h t w i e d e r g e s t a r t e t
|
|
|
|
|
|
1 5 - 0 3 - 2 0 1 0 - d r 2 3 5 - s t a r t t r i o s
|
|
|
|
|
|
2 1 - 0 3 - 2 0 1 0 - d r 2 3 5 - s c r e e n i n t e r f a c e e n t f e r n t
|
|
|
|
|
|
2 4 - 0 3 - 2 0 1 0 - d r 2 3 5 - s t a r t e i n b i n d u n g f a t e n g i n e
|
|
|
|
|
|
- p e r f l a s h c l i l a u f e n s c h o n d i e e r s t e n k o m m a n d o s
|
|
|
|
|
|
2 5 - 0 3 - 2 0 1 0 - d r 2 3 5 - u m s t e l l u n g f a t e n g i n e a u f f e h l e r n u m m e r n
|
|
|
|
|
|
2 7 - 0 3 - 2 0 1 0 - d r 2 3 5 - i c h h a b g e b u r t s t a g : )
|
|
|
|
|
|
- t e s t m o u n t o k ( f a t 1 6 + 3 2 , d i v . s d - c a r d s , f e h l e r m e l d u n g e n )
|
|
|
|
|
|
- s d _ v o l n a m e e i n g e f <00> g t + t e s t
|
|
|
|
|
|
- s d _ c h e c k m o u n t e d / s d _ c h e c k u s e d / s d _ c h e c k f r e e e i n g e f <00> g t + t e s t
|
|
|
|
|
|
- s d _ c h e c k o p e n e i n g e f <00> g t ( t e s t s p <00> t e r )
|
|
|
|
|
|
2 8 - 0 3 - 2 0 1 0 - d r 2 3 5 - f e h l e r i n d e r a n b i n d u n g s d _ o p e n - - > o p e n F i l e : d e r m o d u s
|
|
|
|
|
|
w u r d e a l s 0 - t e r m - s t r i n g <00> b e r g e b e n ! <00> n d e r u n g i n e i n e n n o r m a l e n
|
|
|
|
|
|
1 - z e i c h e n - p a r a m e t e r
|
|
|
|
|
|
0 2 - 0 4 - 2 0 1 0 - d r 2 3 5 - s d _ p u t b l k / s d _ g e t b l k e i n g e f <00> g t u n d g e t e s t e t
|
|
|
|
|
|
0 3 - 0 4 - 2 0 1 0 - d r 2 3 5 - s d _ o p e n d i t , s d _ n e x t f i l e , s d _ f a t t r i b u m g e a r b e i t e t u n d g e t e s t e t
|
|
|
|
|
|
0 4 - 0 4 - 2 0 1 0 - d r 2 3 5 - s d _ n e w d i r , s d _ d e l , s d _ r e n a m e e i n g e f <00> g t u n d g e t e s t e t
|
|
|
|
|
|
- t e s t s d _ s e e k o k
|
|
|
|
|
|
- s d _ c h a t t r i b , s d _ c h d i r e i n g e f <00> g t u n d g e t e s t e t
|
|
|
|
|
|
- m g r _ g e t v e r , m g r _ g e t s p e c , m g r _ g e t c o g s e i n g e f <00> g t + g e t e s t e t
|
|
|
|
|
|
- m g r _ a l o a d e i n g e f <00> g t u n d g e t e s t e t
|
|
|
|
|
|
- a d m i n i s t r a h a t j e t z t e i n e n b o o t l o a d e r ! : )
|
|
|
|
|
|
0 8 - 0 4 - 2 0 1 0 - d r 2 3 5 - e r s t e r t e s t d i r - m a r k e r - s y s t e m
|
|
|
|
|
|
1 2 - 0 4 - 2 0 1 0 - d r 2 3 5 - n e u e s s o u n d s y s t e m f <00> r w a v e i n g e b u n d e n
|
|
|
|
|
|
1 6 - 0 4 - 2 0 1 0 - d r 2 3 5 - k o m p l e x f e h l e r i m w a v - s y s t e m a u f g e l <00> s t
|
|
|
|
|
|
2 1 - 0 4 - 2 0 1 0 - d r 2 3 5 - p a u s e n - m o d u s p o s i t i o n s a b f r a g e i m w a v - p l a y e r e i n g e f <00> g t & g e t e s t e t
|
|
|
|
|
|
2 9 - 0 4 - 2 0 1 0 - d r 2 3 5 - w a v - p l a y e r : v e r w e n d u n g d e r d a t e i g r <00> <00> e s t a t t d e m h e a d e r w e r t , d a e i n i g e
|
|
|
|
|
|
p r o g r a m m e d e f i n i t i v d e n h e a d e r w e r t f a l s c h s e t z e n !
|
|
|
|
|
|
0 9 - 0 6 - 2 0 1 0 - d r 0 8 5 - f r i d a h a t d e n f e h l e r g e f u n d e n , w e l c h e r e i n e k o r r e k t e f u n k t i o n d e r f a t e n g i n e
|
|
|
|
|
|
n a c h e i n e m b o o t v o r g a n g v o n a d m i n i s t r a v e r h i n d e r t e : )
|
|
|
|
|
|
1 3 - 0 6 - 2 0 1 0 - d r 2 3 5 - f e h l e r i n s d _ v o l n a m e k o r r i g i e r t
|
|
|
|
|
|
- f r e e / u s e d a u f f a s t u m g e s t e l l t
|
|
|
|
|
|
1 8 - 0 6 - 2 0 1 0 - d r 0 8 5 - f e h l e r b e i d e r b u s i n i t i a l i s i e r u n g : b e i m s y s t e m s t a r t w u r d e e i n k u r z e r i m p u l s
|
|
|
|
|
|
a u f d e r h s - l e i t u n g e r z e u g t , w o d u r c h e i n b u s z y k l u s v e r l o r e n g i n g ( s y m p t o m :
|
|
|
|
|
|
f l a s h t e m a n a d m i n , s o l i e f d a s s y s t e m e r s t n a c h e i n e m r e s e t a n )
|
|
|
|
|
|
- f a t e n g i n e : e n d g <00> l t i g e b e s e i t i g u n g d e r f e h e r h a f t e n v o l n a m e - a b f r a g e
|
|
|
|
|
|
2 7 - 0 6 - 2 0 1 0 - d r 0 8 5 - a u t o m o u n t n a c h b o o t
|
|
|
|
|
|
1 9 - 0 7 - 2 0 1 0 - d r 2 3 5 - b o o t e n e i n e s a l t e r n a t i v e n a d m i n i s t r a - c o d e s : b e f i n d e t s i c h a u f d e r k a r t e
|
|
|
|
|
|
i n d e r r o o t e i n e d a t e i " a d m . s y s " , s o w i r d d i e s e d a t e i a u t o m a t i s c h i n
|
|
|
|
|
|
a d m i n i s t r a g e l a d e n
|
|
|
|
|
|
1 8 - 0 9 - 2 0 1 0 - d r 2 3 5 - f u n k t i o n z u r a b f r a g e v o n e o f e i n g e f <00> g t
|
|
|
|
|
|
2 9 - 1 0 - 2 0 1 0 - d r 2 3 5 - g r u n d l e g e n d e r o u t i n e n f <00> r d e n p l e x b u s e i n g e f <00> g t
|
|
|
|
|
|
0 3 - 1 2 - 2 0 1 0 - s t e p h a - R T C D a t u m s - u n d Z e i t F u n k t i o n e n
|
|
|
|
|
|
0 4 - 1 2 - 2 0 1 0 - s t e p h a - N V R A M F u n k t i o n e n
|
|
|
|
|
|
1 7 - 0 4 - 2 0 1 3 - d r 2 3 5 - k o n s t a n t e n f <00> r a d m i n i s t r a - f u n k t i o n e n k o m p l e t t a u s g e l a g e r t
|
|
|
|
|
|
2 2 - 1 2 - 2 0 1 3 - j o e r g d - L A N F u n k t i o n e n
|
|
|
|
|
|
1 7 - 1 2 - 2 0 1 4 - j o e r g d - v e r s c h i e d e n e A d m i n i s t r a - C o d e - V e r s i o n e n v e r e i n h e i t l i c h t
|
|
|
|
|
|
|
|
|
|
|
|
K o m m a n d o l i s t e :
|
|
|
|
|
|
|
|
|
|
|
|
N o t i z e n :
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
C O N
|
|
|
|
|
|
|
|
|
|
|
|
' ' d e f a u l t d e f i n e s ( p l e a s e a n a b l e t o c o m p i l e f r o m G U I )
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ F A T
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ H S S
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ W A V
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ R T C
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ C O M
|
|
|
|
|
|
|
|
|
|
|
|
' ' o t h e r d e f i n e s
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ L A N
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ S I D
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ A Y S
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ P L X
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ D C F
|
|
|
|
|
|
' # d e f i n e _ _ A D M _ B L T
|
|
|
|
|
|
|
|
|
|
|
|
_ C L K M O D E = X T A L 1 + P L L 1 6 X
|
|
|
|
|
|
_ X I N F R E Q = 5 _ 0 0 0 _ 0 0 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
' + - - - - - - - - - -
|
|
|
|
|
|
' | + - - - - - - - s y s t e m
|
|
|
|
|
|
' | | + - - - - v e r s i o n ( <00> n d e r u n g e n )
|
|
|
|
|
|
' | | | + - s u b v e r s i o n ( h i n z u f <00> g u n g e n )
|
|
|
|
|
|
C H I P _ V E R = $ 0 0 _ 0 1 _ 0 1 _ 0 2
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
C H I P _ S P E C _ F A T = g c # A _ F A T
|
|
|
|
|
|
C H I P _ S P E C _ L D R = g c # A _ L D R
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ F A T = 0
|
|
|
|
|
|
C H I P _ S P E C _ L D R = 0
|
|
|
|
|
|
# u n d e f _ _ A D M _ W A V
|
|
|
|
|
|
# u n d e f _ _ A D M _ S I D
|
|
|
|
|
|
# u n d e f _ _ A D M _ A Y S
|
|
|
|
|
|
# i f n d e f _ _ A D M R T C
|
|
|
|
|
|
# u n d e f _ _ A D M _ L A N
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
C H I P _ S P E C _ H S S = g c # A _ H S S
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ H S S = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
C H I P _ S P E C _ W A V = g c # A _ W A V
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ W A V = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ S I D
|
|
|
|
|
|
C H I P _ S P E C _ S I D = g c # A _ S I D
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ S I D = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
C H I P _ S P E C _ L A N = g c # A _ L A N
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ L A N = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
C H I P _ S P E C _ R T C = g c # A _ R T C
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ R T C = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ P L X
|
|
|
|
|
|
C H I P _ S P E C _ P L X = g c # A _ P L X
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ P L X = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ C O M
|
|
|
|
|
|
C H I P _ S P E C _ C O M = g c # A _ C O M
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ C O M = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ A Y S
|
|
|
|
|
|
C H I P _ S P E C _ A Y S = g c # A _ A Y S
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ A Y S = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
C H I P _ S P E C _ D C F = g c # A _ D C F
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ D C F = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ B L T
|
|
|
|
|
|
C H I P _ S P E C _ B L T = g c # A _ B L T
|
|
|
|
|
|
# e l s e
|
|
|
|
|
|
C H I P _ S P E C _ B L T = 0
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
C H I P _ S P E C = C H I P _ S P E C _ F A T | C H I P _ S P E C _ L D R | C H I P _ S P E C _ H S S | C H I P _ S P E C _ W A V | C H I P _ S P E C _ S I D | C H I P _ S P E C _ L A N | C H I P _ S P E C _ R T C | C H I P _ S P E C _ P L X | C H I P _ S P E C _ C O M | C H I P _ S P E C _ A Y S | C H I P _ S P E C _ D C F | C H I P _ S P E C _ B L T
|
|
|
|
|
|
'
|
|
|
|
|
|
' h b e a t - - - - - - - - +
|
|
|
|
|
|
' c l k - - - - - - - + |
|
|
|
|
|
|
' / w r - - - - - - + | |
|
|
|
|
|
|
' / h s - - - - - + | | | + - - - - - - - - - - - - - - - - - - - - - - - - - / c s
|
|
|
|
|
|
' | | | | | + - - - - - - - - - - - - - - - - - - - - - - - - a d m - p 2 2 ( i n t 2 - p o r t 1 / 2 )
|
|
|
|
|
|
' | | | | | | + - - - - - - - - - - - - - - - - - - - - - - - a d m - p 2 1 ( i n t 1 - p o r t 3 )
|
|
|
|
|
|
' | | | | | | | + - - - - - - - - - - - - - - - - - - - - - - a d m - p 2 0 ( s c l )
|
|
|
|
|
|
' | | | | | | | | + - - - - - - - - - - - - - - - - - - - - - a d m - p 1 9 ( s d a )
|
|
|
|
|
|
' | | | | | | | | | + - - - - - - + d 0 . . d 7
|
|
|
|
|
|
' | | | | | | | | | | |
|
|
|
|
|
|
D B _ I N = % 0 0 0 0 1 0 0 1 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 ' d i r a - w e r t f <00> r d a t e n b u s e i n g a b e
|
|
|
|
|
|
D B _ O U T = % 0 0 0 0 1 0 0 1 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 1 1 1 1 1 1 1 1 ' d i r a - w e r t f <00> r d a t e n b u s a u s g a b e
|
|
|
|
|
|
|
|
|
|
|
|
M 1 = % 0 0 0 0 0 0 1 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 ' b u s c l k = 1 ? & / p r o p 1 = 0 ?
|
|
|
|
|
|
M 2 = % 0 0 0 0 0 0 1 0 _ 1 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 ' m a s k e : b u s c l k & / c s ( / p r o p 1 )
|
|
|
|
|
|
|
|
|
|
|
|
M 3 = % 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 ' b u s c l k = 0 ?
|
|
|
|
|
|
M 4 = % 0 0 0 0 0 0 1 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 ' m a s k e : b u s c l k
|
|
|
|
|
|
|
|
|
|
|
|
L E D _ O P E N = g c # H B E A T ' l e d - p i n f <00> r a n z e i g e " d a t e i o p e r a t i o n "
|
|
|
|
|
|
S D _ B A S E = g c # A _ S D D 0 ' b a s p i n c a r d r e a d e r
|
|
|
|
|
|
C N T _ H B E A T = 5 _ 0 0 0 _ 0 0 0 0 ' b l i n k g e s c h w . f r o n t - l e d
|
|
|
|
|
|
|
|
|
|
|
|
M P L E N = 1 2 0 0 0 ' h s s m u s i c b u f f e r
|
|
|
|
|
|
|
|
|
|
|
|
' s i d c o g
|
|
|
|
|
|
p l a y R a t e = 5 0 ' H z
|
|
|
|
|
|
d e t u n e = 1 . 0 0 6
|
|
|
|
|
|
|
|
|
|
|
|
' N e t z w e r k - P u f f e r g r <00> <00> e n ( m <00> s s e n V i e l f a c h e s v o n 2 s e i n ! )
|
|
|
|
|
|
r x l e n = 2 0 4 8 ' [ r x l e n * s o c k # s N u m S o c k e t s ] m u s t b e 4 0 9 6 o r m o r e ( t o u s e b u f f e r f o r s d c o p y ) !
|
|
|
|
|
|
t x l e n = 1 2 8
|
|
|
|
|
|
|
|
|
|
|
|
' i n d e x f <00> r d m a r k e r
|
|
|
|
|
|
# 0 , R M A R K E R ' r o o t
|
|
|
|
|
|
S M A R K E R ' s y s t e m
|
|
|
|
|
|
U M A R K E R ' p r o g r a m m v e r z e i c h n i s
|
|
|
|
|
|
A M A R K E R
|
|
|
|
|
|
B M A R K E R
|
|
|
|
|
|
C M A R K E R
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' S i g n a l d e f i n i t i o n e n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
|
|
|
|
|
|
' s i g n a l d e f i n i t i o n e n a d m i n i s t r a ( t o d o : n a c h g l o b - c o n . s p i n a u s l a g e r n ! ! ! )
|
|
|
|
|
|
|
|
|
|
|
|
# 1 4 , A _ N E T C S , A _ N E T S C K , A _ N E T S I , A _ N E T S O ' P i n s z u m E N C 2 8 J 6 0
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' N V R A M K o n s t a n t e n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
|
|
|
|
|
|
' t o d o : n a c h g l o b - c o n . s p i n a u s l a g e r n ! ! !
|
|
|
|
|
|
|
|
|
|
|
|
# 4 , N V R A M _ I P A D D R
|
|
|
|
|
|
# 8 , N V R A M _ I P M A S K
|
|
|
|
|
|
# 1 2 , N V R A M _ I P G W
|
|
|
|
|
|
# 1 6 , N V R A M _ I P D N S
|
|
|
|
|
|
# 2 0 , N V R A M _ I P B O O T
|
|
|
|
|
|
# 2 4 , N V R A M _ H I V E ' 4 B y t e s
|
|
|
|
|
|
|
|
|
|
|
|
O B J
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
s d f a t : " a d m - f a t " ' f a t e n g i n e
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
h s s : " a d m - h s s " ' h y d r a - s o u n d - s y s t e m
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
w a v : " a d m - w a v " ' s d - w a v e
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ S I D
|
|
|
|
|
|
s i d 1 : " a d m - s i d " ' S I D C o g
|
|
|
|
|
|
s i d 2 : " a d m - s i d " ' S I D C o g
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ A Y S
|
|
|
|
|
|
a y : " a d m - a y " ' A Y c o g - A Y - 3 - 8 9 1 X / Y M 2 1 4 9 e m u l a t o r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
r t c : " a d m - r t c " ' R T C - E n g i n e
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ C O M
|
|
|
|
|
|
c o m : " a d m - c o m " ' s e r i e l l e s c h n i t t s t e l l e
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
s o c k : " a d m - s o c k e t " ' L A N
|
|
|
|
|
|
n u m : " g l o b - n u m b e r s " ' N u m b e r E n g i n e
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ P L X
|
|
|
|
|
|
p l x : " a d m - p l x " ' P l e x B u x
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
d c f : " a d m - d c f " ' D C F - 7 7
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
g c : " g l o b - c o n " ' g l o b a l e k o n s t a n t e n
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
b y t e t b u f [ 2 0 ] ' s t r i n g p u f f e r
|
|
|
|
|
|
b y t e t b u f 2 [ 2 0 ]
|
|
|
|
|
|
b y t e f l _ s y s s n d ' 1 = s y s t e m t <00> n e a n
|
|
|
|
|
|
b y t e s t _ s o u n d ' 0 = a u s , 1 = h s s , 2 = w a v
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
b y t e d c f o n ' D C F - B e t r i e b s m e r k e r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
b y t e b u f m a i n [ r x l e n * s o c k # s N u m S o c k e t s ] ' B u f f e r f o r e v e r y t h i n g ( [ r x l e n * s o c k # s N u m S o c k e t s ] m u s t b e 4 0 9 6 o r m o r e ! )
|
|
|
|
|
|
# e l s e i f d e f _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
b y t e b u f m a i n [ 4 0 9 6 ] ' B u f f e r f o r e v e r y t h i n g ( S D c o p y . . . )
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - A D M I N I S T R A
|
|
|
|
|
|
|
|
|
|
|
|
P U B m a i n | c m d , e r r ' c h i p : k o m m a n d o i n t e r p r e t e r
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : k o m m a n d o i n t e r p r e t e r
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
i n i t _ c h i p ' b u s / v g a / k e y b o a r d / m a u s i n i t i a l i s i e r e n
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
i f d c f o n
|
|
|
|
|
|
i f d c f . G e t I n S y n c = = 1
|
|
|
|
|
|
i f d c f . G e t B i t N u m b e r = = 5 9 ' Z e i t t e l e g r a m m g <00> l t i g ? , d a n n R T C s y n c h r o n i s i e r e n ( j e d e s g <00> l t i g e T e l e g r a m m )
|
|
|
|
|
|
d c f _ u p d a t e R T C
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ D C F
|
|
|
|
|
|
c m d : = b u s _ g e t c h a r ' k o m m a n d o c o d e e m p f a n g e n
|
|
|
|
|
|
e r r : = 0
|
|
|
|
|
|
c a s e c m d
|
|
|
|
|
|
0 : ! o u t a [ L E D _ O P E N ] ' l e d b l i n k e n
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S D - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
g c # a _ s d M o u n t : s d _ m o u n t ( " M " ) ' s d - c a r d m o u n t e n '
|
|
|
|
|
|
g c # a _ s d O p e n D i r : s d _ o p e n d i r ' d i r e k t o r y <00> f f n e n
|
|
|
|
|
|
g c # a _ s d N e x t F i l e : s d _ n e x t f i l e ' v e r z e i c h n i s e i n t r a g l e s e n
|
|
|
|
|
|
g c # a _ s d O p e n : s d _ o p e n ' d a t e i <00> f f n e n
|
|
|
|
|
|
g c # a _ s d C l o s e : s d _ c l o s e ' d a t e i s c h l i e <00> e n
|
|
|
|
|
|
g c # a _ s d G e t C : s d _ g e t c ' z e i c h e n l e s e n
|
|
|
|
|
|
g c # a _ s d P u t C : s d _ p u t c ' z e i c h e n s c h r e i b e n
|
|
|
|
|
|
g c # a _ s d G e t B l k : s d _ g e t b l k ' b l o c k l e s e n
|
|
|
|
|
|
g c # a _ s d P u t B l k : s d _ p u t b l k ' b l o c k s c h r e i b e n
|
|
|
|
|
|
g c # a _ s d S e e k : s d _ s e e k ' z e i g e r i n d a t e i p o s i t i o n i e r e n
|
|
|
|
|
|
g c # a _ s d F A t t r i b : s d _ f a t t r i b ' d a t e i a t t r i b u t e <00> b e r g e b e n
|
|
|
|
|
|
g c # a _ s d V o l n a m e : s d _ v o l n a m e ' v o l u m e l a b e l a b f r a g e n
|
|
|
|
|
|
g c # a _ s d C h e c k M o u n t e d : s d _ c h e c k m o u n t e d ' t e s t o b v o l u m e g e m o u n t e d i s t
|
|
|
|
|
|
g c # a _ s d C h e c k O p e n : s d _ c h e c k o p e n ' t e s t o b e i n e d a t e i g e <00> f f n e t i s t
|
|
|
|
|
|
g c # a _ s d C h e c k U s e d : s d _ c h e c k u s e d ' t e s t w i e v i e l e s e k t o r e n b e n u t z t s i n d
|
|
|
|
|
|
g c # a _ s d C h e c k F r e e : s d _ c h e c k f r e e ' t e s t w i e v i e l e s e k t o r e n f r e i s i n d
|
|
|
|
|
|
g c # a _ s d N e w F i l e : s d _ n e w f i l e ' n e u e d a t e i e r z e u g e n
|
|
|
|
|
|
g c # a _ s d N e w D i r : s d _ n e w d i r ' n e u e s v e r z e i c h n i s w i r d e r z e u g t
|
|
|
|
|
|
g c # a _ s d D e l : s d _ d e l ' v e r z e i c h n i s o d e r d a t e i l <00> s c h e n
|
|
|
|
|
|
g c # a _ s d R e n a m e : s d _ r e n a m e ' v e r z e i c h n i s o d e r d a t e i u m b e n e n n e n
|
|
|
|
|
|
g c # a _ s d C h A t t r i b : s d _ c h a t t r i b ' a t t r i b u t e <00> n d e r n
|
|
|
|
|
|
g c # a _ s d C h D i r : s d _ c h d i r ' v e r z e i c h n i s w e c h s e l n
|
|
|
|
|
|
g c # a _ s d F o r m a t : s d _ f o r m a t ' m e d i u m f o r m a t i e r e n
|
|
|
|
|
|
g c # a _ s d U n m o u n t : s d _ u n m o u n t ' m e d i u m a b m e l d e n
|
|
|
|
|
|
g c # a _ s d D m A c t : s d _ d m a c t ' d i r - m a r k e r a k t i v i e r e n
|
|
|
|
|
|
g c # a _ s d D m S e t : s d _ d m s e t ' d i r - m a r k e r s e t z e n
|
|
|
|
|
|
g c # a _ s d D m G e t : s d _ d m g e t ' d i r - m a r k e r s t a t u s a b f r a g e n
|
|
|
|
|
|
g c # a _ s d D m C l r : s d _ d m c l r ' d i r - m a r k e r l <00> s c h e n
|
|
|
|
|
|
g c # a _ s d D m P u t : s d _ d m p u t ' d i r - m a r k e r s t a t u s s e t z e n
|
|
|
|
|
|
g c # a _ s d E O F : s d _ e o f ' e o f a b f r a g e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
g c # a _ s d P o s : s d _ p o s ' Z e i g e r i n D a t e i a b f r a g e n
|
|
|
|
|
|
g c # a _ s d C o p y : s d _ c o p y ' D a t e i k o p i e r e n
|
|
|
|
|
|
g c # a _ s d D i r S i z e : s d _ d i r s i z e ' D a t e i g r <00> s s e - > i s t q u a t s c h
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - B l u e t o o t h - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ B L T
|
|
|
|
|
|
g c # a _ b l _ C o m m a n d _ O n : b l t _ s e t C o m m a n d M o d e
|
|
|
|
|
|
g c # a _ b l _ C o m m a n d _ O f f : b l t _ s e t N o r m a l M o d e
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ B L T
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C O M - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ C O M
|
|
|
|
|
|
g c # a _ c o m I n i t : c o m _ i n i t
|
|
|
|
|
|
g c # a _ c o m T x : c o m _ t x
|
|
|
|
|
|
g c # a _ c o m R x : c o m _ r x
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ C O M
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - R T C - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
g c # a _ r t c T e s t : r t c _ t e s t ' T e s t i f R T C C h i p i s a v a i l a b l e
|
|
|
|
|
|
g c # a _ r t c G e t S e c o n d s : r t c _ g e t S e c o n d s ' R e t u r n s t h e c u r r e n t s e c o n d ( 0 - 5 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t M i n u t e s : r t c _ g e t M i n u t e s ' R e t u r n s t h e c u r r e n t m i n u t e ( 0 - 5 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t H o u r s : r t c _ g e t H o u r s ' R e t u r n s t h e c u r r e n t h o u r ( 0 - 2 3 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t D a y : r t c _ g e t D a y ' R e t u r n s t h e c u r r e n t d a y ( 1 - 7 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t D a t e : r t c _ g e t D a t e ' R e t u r n s t h e c u r r e n t d a t e ( 1 - 3 1 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t M o n t h : r t c _ g e t M o n t h ' R e t u r n s t h e c u r r e n t m o n t h ( 1 - 1 2 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c G e t Y e a r : r t c _ g e t Y e a r ' R e t u r n s t h e c u r r e n t y e a r ( 2 0 0 0 - 2 0 9 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
g c # a _ r t c S e t S e c o n d s : r t c _ s e t S e c o n d s ' S e t s t h e c u r r e n t r e a l t i m e c l o c k s e c o n d s . S e c o n d s - N u m b e r t o s e t t h e s e c o n d s t o b e t w e e n 0 - 5 9 .
|
|
|
|
|
|
g c # a _ r t c S e t M i n u t e s : r t c _ s e t M i n u t e s ' S e t s t h e c u r r e n t r e a l t i m e c l o c k m i n u t e s . M i n u t e s - N u m b e r t o s e t t h e m i n u t e s t o b e t w e e n 0 - 5 9 .
|
|
|
|
|
|
g c # a _ r t c S e t H o u r s : r t c _ s e t H o u r s ' S e t s t h e c u r r e n t r e a l t i m e c l o c k h o u r s . H o u r s - N u m b e r t o s e t t h e h o u r s t o b e t w e e n 0 - 2 3 .
|
|
|
|
|
|
g c # a _ r t c S e t D a y : r t c _ s e t D a y ' S e t s t h e c u r r e n t r e a l t i m e c l o c k d a y . D a y - N u m b e r t o s e t t h e d a y t o b e t w e e n 1 - 7 .
|
|
|
|
|
|
g c # a _ r t c S e t D a t e : r t c _ s e t D a t e ' S e t s t h e c u r r e n t r e a l t i m e c l o c k d a t e . D a t e - N u m b e r t o s e t t h e d a t e t o b e t w e e n 1 - 3 1 .
|
|
|
|
|
|
g c # a _ r t c S e t M o n t h : r t c _ s e t M o n t h ' S e t s t h e c u r r e n t r e a l t i m e c l o c k m o n t h . M o n t h - N u m b e r t o s e t t h e m o n t h t o b e t w e e n 1 - 1 2 .
|
|
|
|
|
|
g c # a _ r t c S e t Y e a r : r t c _ s e t Y e a r ' S e t s t h e c u r r e n t r e a l t i m e c l o c k y e a r . Y e a r - N u m b e r t o s e t t h e y e a r t o b e t w e e n 2 0 0 0 - 2 0 9 9 .
|
|
|
|
|
|
g c # a _ r t c S e t N V S R A M : r t c _ s e t N V S R A M ' S e t s t h e N V S R A M t o t h e s e l e c t e d v a l u e ( 0 - 2 5 5 ) a t t h e i n d e x ( 0 - 5 5 ) .
|
|
|
|
|
|
g c # a _ r t c G e t N V S R A M : r t c _ g e t N V S R A M ' G e t s t h e s e l e c t e d N V S R A M v a l u e a t t h e i n d e x ( 0 - 5 5 ) .
|
|
|
|
|
|
g c # a _ r t c P a u s e F o r S e c : r t c _ p a u s e F o r S e c o n d s ' P a u s e s e x e c u t i o n f o r a n u m b e r o f s e c o n d s . R e t u r n s a p u e s d o r a n d o m v a l u e d e r i v e d f r o m t h e c u r r e n t c l o c k f r e q u e n c y a n d t h e t i m e w h e n c a l l e d . N u m b e r - N u m b e r o f s e c o n d s t o p a u s e f o r b e t w e e n 0 a n d 2 , 1 4 7 , 4 8 3 , 6 4 7 .
|
|
|
|
|
|
g c # a _ r t c P a u s e F o r M S e c : r t c _ p a u s e F o r M i l l i s e c o n d s ' P a u s e s e x e c u t i o n f o r a n u m b e r o f m i l l i s e c o n d s . R e t u r n s a p u e s d o r a n d o m v a l u e d e r i v e d f r o m t h e c u r r e n t c l o c k f r e q u e n c y a n d t h e t i m e w h e n c a l l e d . N u m b e r - N u m b e r o f m i l l i s e c o n d s t o p a u s e f o r b e t w e e n 0 a n d 2 , 1 4 7 , 4 8 3 , 6 4 7 .
|
|
|
|
|
|
g c # a _ r t c G e t T i m e : r t c _ g e t T i m e ' R e t u r n s t h e c u r r e n t h o u r , m i n u t e a n d s e c o n d f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - D C F 7 7 - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
g c # a _ D C F _ I n S y n c : d c f _ g e t I n S y n c ' S y n c - S t a t u s s e n d e n
|
|
|
|
|
|
g c # a _ D C F _ U p d a t e _ C l o c k : d c f _ u p d a t e R T C ' R T C S y n c h r o n i s i e r e n
|
|
|
|
|
|
g c # a _ D C F _ G e t B i t E r r o r : d c f _ g e t B i t E r r o r
|
|
|
|
|
|
g c # a _ D C F _ G e t D a t a c o u n t : d c f _ g e t D a t a C o u n t
|
|
|
|
|
|
g c # a _ D C F _ G e t B i t N u m b e r : d c f _ g e t B i t N u m b e r
|
|
|
|
|
|
g c # a _ D C F _ G e t B i t L e v e l : d c f _ g e t B i t L e v e l
|
|
|
|
|
|
g c # a _ D C F _ G e t T i m e Z o n e : d c f _ g e t T i m e Z o n e
|
|
|
|
|
|
g c # a _ D C F _ G e t A c t i v e S e t : d c f _ g e t A c t i v e S e t
|
|
|
|
|
|
g c # a _ D C F _ s t a r t : d c f _ s t a r t ' D C F - E m p f a n g s t a r t e n
|
|
|
|
|
|
g c # a _ D C F _ s t o p : d c f _ s t o p ' D C F - E m p f a n g s t o p p e n
|
|
|
|
|
|
g c # a _ D C F _ d c f o n : d c f _ s t a t e ' S t a t u s d e s D C F - E m p f <00> n g e r s
|
|
|
|
|
|
g c # a _ D C F _ G e t S e c o n d s : d c f _ g e t S e c o n d s
|
|
|
|
|
|
g c # a _ D C F _ G e t M i n u t e s : d c f _ g e t M i n u t e s
|
|
|
|
|
|
g c # a _ D C F _ G e t H o u r s : d c f _ g e t H o u r s
|
|
|
|
|
|
g c # a _ D C F _ G e t W e e k D a y : d c f _ g e t W e e k D a y
|
|
|
|
|
|
g c # a _ D C F _ G e t D a y : d c f _ g e t D a y
|
|
|
|
|
|
g c # a _ D C F _ G e t M o n t h : d c f _ g e t M o n t h
|
|
|
|
|
|
g c # a _ D C F _ G e t Y e a r : d c f _ g e t Y e a r
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ D C F
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - L A N - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
g c # a _ l a n S t a r t : l a n _ s t a r t ' S t a r t N e t w o r k
|
|
|
|
|
|
g c # a _ l a n S t o p : l a n _ s t o p ' S t o p N e t w o r k
|
|
|
|
|
|
g c # a _ l a n C o n n e c t : l a n _ c o n n e c t ' a u s g e h e n d e T C P - V e r b i n d u n g <00> f f n e n
|
|
|
|
|
|
g c # a _ l a n L i s t e n : l a n _ l i s t e n ' a u f e i n g e h e n d e T C P - V e r b i n d u n g l a u s c h e n
|
|
|
|
|
|
g c # a _ l a n W a i t C o n n T i m e o u t : l a n _ w a i t c o n n t i m e o u t ' b e s t i m m t e Z e i t a u f V e r b i n d u n g w a r t e n
|
|
|
|
|
|
g c # a _ l a n C l o s e : l a n _ c l o s e ' T C P - V e r b i n d u n g s c h l i e <00> e n
|
|
|
|
|
|
g c # a _ l a n R X T i m e : l a n _ r x t i m e ' b e s t i m m t e Z e i t w a r t e n a u f B y t e a u s E m p f a n g s p u f f e r
|
|
|
|
|
|
g c # a _ l a n R X D a t a : l a n _ r x d a t a ' D a t e n a u s E m p f a n g s p u f f e r l e s e n
|
|
|
|
|
|
g c # a _ l a n T X D a t a : l a n _ t x d a t a ' D a t e n s e n d e n
|
|
|
|
|
|
g c # a _ l a n R X B y t e : l a n _ r x b y t e ' w e n n v o r h a n d e n , B y t e a u s E m p f a n g s p u f f e r l e s e n
|
|
|
|
|
|
g c # a _ l a n I s C o n n e c t e d : l a n _ i s c o n n e c t e d ' T R U E , w e n n S o c k e t v e r b u n d e n , s o n s t F A L S E
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ L A N
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C H I P - M A N A G M E N T
|
|
|
|
|
|
g c # a _ m g r S e t S o u n d : m g r _ s e t s o u n d ' s o u n d s u b s y s t e m e v e r w a l t e n
|
|
|
|
|
|
g c # a _ m g r G e t S p e c : m g r _ g e t s p e c ' s p e z i f i k a t i o n a b f r a g e n
|
|
|
|
|
|
g c # a _ m g r S e t S y s S o u n d : m g r _ s e t s y s s o u n d ' s y s t e m s o u n d e i n / a u s s c h a l t e n
|
|
|
|
|
|
g c # a _ m g r G e t S o u n d S y s : m g r _ g e t s o u n d s y s ' a b f r a g e w e l c h e s s o u n d s y s t e m a k t i v i s t
|
|
|
|
|
|
g c # a _ m g r A L o a d : m g r _ a l o a d ' n e u e n c o d e b o o t e n
|
|
|
|
|
|
g c # a _ m g r G e t C o g s : m g r _ g e t c o g s ' f r e i e c o g s a b f r a g e n
|
|
|
|
|
|
g c # a _ m g r G e t V e r : m g r _ g e t v e r ' c o d e v e r s i o n a b f r a g e n
|
|
|
|
|
|
g c # a _ m g r R e b o o t : r e b o o t ' n e u s t a r t e n
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - H S S - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
g c # a _ h s s L o a d : h s s _ l o a d ' h s s - d a t e i i n p u f f e r l a d e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
g c # a _ h s s P l a y : h s s . h m u s _ l o a d ( @ b g m u s i c ) ' p l a y
|
|
|
|
|
|
h s s . h m u s _ p l a y
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
g c # a _ h s s S t o p : h s s . h m u s _ s t o p ' s t o p
|
|
|
|
|
|
g c # a _ h s s P a u s e : h s s . h m u s _ p a u s e ' p a u s e
|
|
|
|
|
|
g c # a _ h s s P e e k : h s s _ p e e k ' r e g i s t e r l e s e n
|
|
|
|
|
|
g c # a _ h s s I n t R e g : h s s _ i n t r e g ' i n t e r f a c e r e g i s t e r a u s l e s e n
|
|
|
|
|
|
g c # a _ h s s V o l : h s s _ v o l ' l a u t s t <00> r k e s e t z e n
|
|
|
|
|
|
g c # a _ s f x F i r e : s f x _ f i r e ' s f x a b s p i e l e n
|
|
|
|
|
|
g c # a _ s f x S e t S l o t : s f x _ s e t s l o t ' s f x - s l o t s e t z e n
|
|
|
|
|
|
g c # a _ s f x K e y O f f : s f x _ k e y o f f
|
|
|
|
|
|
g c # a _ s f x S t o p : s f x _ s t o p
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - P L X - F u n k t i o n e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ P L X
|
|
|
|
|
|
g c # a _ p l x R u n : p l x . r u n ' p l x - b u s f r e i g e b e n
|
|
|
|
|
|
g c # a _ p l x H a l t : p l x . h a l t ' p l x - b u s a n f o r d e r n
|
|
|
|
|
|
g c # a _ p l x I n : p l x _ i n ' p o r t e i n l e s e n
|
|
|
|
|
|
g c # a _ p l x O u t : p l x _ o u t ' p o r t a u s g e b e n
|
|
|
|
|
|
g c # a _ p l x C h : p l x _ c h ' a d - w a n d l e r a u s l e s e n
|
|
|
|
|
|
g c # a _ p l x G e t R e g : p l x _ g e t R e g ' p o l l e r - r e g i s t e r l e s e n
|
|
|
|
|
|
g c # a _ p l x S e t R e g : p l x _ s e t R e g ' p o l l e r - r e g i s t e r s e t z e n
|
|
|
|
|
|
g c # a _ p l x S t a r t : p l x . s t a r t ' i 2 c - d i a l o g s t a r t e n
|
|
|
|
|
|
g c # a _ p l x S t o p : p l x . s t o p ' i 2 c - d i a l o g b e e n d e n
|
|
|
|
|
|
g c # a _ p l x W r i t e : p l x _ w r i t e ' i 2 c b y t e s e n d e n
|
|
|
|
|
|
g c # a _ p l x R e a d : p l x _ r e a d ' i 2 c b y t e e m p f a n g e n
|
|
|
|
|
|
g c # a _ p l x P i n g : p l x _ p i n g ' a b f r a g e o b d e v i c e v o r h a n d e n i s t
|
|
|
|
|
|
g c # a _ p l x S e t A d r : p l x _ s e t A d d r ' a d r e s s e n a d d a / p o r t s f <00> r p o l l e r s e t z e n
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - G A M E D E V I C E S
|
|
|
|
|
|
g c # a _ J o y : p l x _ g e t _ j o y ' J o y s t i c k a b f r a g e n ( 1 x 8 b i t P o r t )
|
|
|
|
|
|
g c # a _ P a d d l e : p l x _ g e t _ p a d d l e ' P a d d l e a b f r a g e n ( 1 x 8 b i t P o r t 1 x A n a l o g )
|
|
|
|
|
|
g c # a _ P a d : p l x _ g e t _ p a d ' P a d a b f r a g e n ( 1 x 8 b i t P o r t 2 x A n a l o g )
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - V e n a t r i x - P l e x u s
|
|
|
|
|
|
g c # a _ V e x P u t : p l x _ p u t _ v e x ' R e g i s t e r i m V e n a t r i x - P l e x u s s c h r e i b e n
|
|
|
|
|
|
g c # a _ V e x G e t : p l x _ g e t _ v e x ' R e g i s t e r i m V e n a t r i x - P l e x u s l e s e n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ P L X
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - W A V - F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
g c # a _ s d w S t a r t : s d w _ s t a r t ' s p i e l t w a v - d a t e i d i r e k t v o n s d - c a r d a b
|
|
|
|
|
|
g c # a _ s d w S t o p : s d w _ s t o p ' s t o p t w a v - c o g
|
|
|
|
|
|
g c # a _ s d w S t a t u s : s d w _ s t a t u s ' f r a g t s t a t u s d e s p l a y e r s a b
|
|
|
|
|
|
g c # a _ s d w L e f t V o l : s d w _ l e f t v o l ' l a u t s t <00> r k e l i n k s
|
|
|
|
|
|
g c # a _ s d w R i g h t V o l : s d w _ r i g h t v o l ' l a u t s t <00> r k e r e c h t s
|
|
|
|
|
|
g c # a _ s d w P a u s e : s d w _ p a u s e ' p l a y e r p a u s e / w e i t e r - m o d u s
|
|
|
|
|
|
g c # a _ s d w P o s i t i o n : s d w _ p o s i t i o n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ W A V
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S I D C o g : D M P - P l a y e r - F u n k t i o n e n ( S I D C o g 2 )
|
|
|
|
|
|
# i f d e f _ _ A D M _ S I D
|
|
|
|
|
|
g c # a _ s _ m d m p p l a y : s i d _ m d m p p l a y ' d m p - f i l e m o n o a u f s i d 2 a b s p i e l e n
|
|
|
|
|
|
g c # a _ s _ s d m p p l a y : s i d _ s d m p p l a y ' d m p - f i l e s t e r e o a u f b e i d e n s i d s a b s p i e l e n
|
|
|
|
|
|
g c # a _ s _ d m p s t o p : s i d _ d m p s t o p ' d m p - p l a y e r b e e n d e n
|
|
|
|
|
|
g c # a _ s _ d m p p a u s e : s i d _ d m p p a u s e ' d m p - p l a y e r p a u s e n m o d u s
|
|
|
|
|
|
g c # a _ s _ d m p s t a t u s : s i d _ d m p s t a t u s ' d m p - p l a y e r s t a t u s a b f r a g e
|
|
|
|
|
|
g c # a _ s _ d m p p o s : s i d _ d m p p o s ' p l a y e r - p o s i t i o n i m d u m p f i l e
|
|
|
|
|
|
g c # a _ s _ m u t e : s i d _ m u t e ' a l l e r e g i s t e r l <00> s c h e n
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S I D C o g 1 - F u n k t i o n e n
|
|
|
|
|
|
g c # a _ s 1 _ s e t R e g i s t e r : s i d 1 . s e t R e g i s t e r ( b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ u p d a t e R e g i s t e r s : s i d 1 . u p d a t e R e g i s t e r s ( s u b _ g e t d a t ( 2 5 , @ s 1 b u f f e r ) )
|
|
|
|
|
|
g c # a _ s 1 _ s e t V o l u m e : s i d 1 . s e t V o l u m e ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ p l a y : s i d 1 . p l a y ( b u s _ g e t c h a r , s u b _ g e t l o n g , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ n o t e O n : s i d 1 . n o t e O n ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 1 _ n o t e O f f : s i d 1 . n o t e O f f ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ s e t F r e q : s i d 1 . s e t F r e q ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 1 _ s e t W a v e f o r m : s i d 1 . s e t W a v e f o r m ( b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ s e t P W M : s i d 1 . s e t P W M ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 1 _ s e t A D S R : s i d 1 . s e t A D S R ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ s e t R e s o n a n c e : s i d 1 . s e t R e s o n a n c e ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ s e t C u t o f f : s i d 1 . s e t C u t o f f ( s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 1 _ s e t F i l t e r M a s k : s i d 1 . s e t F i l t e r M a s k ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ s e t F i l t e r T y p e : s i d 1 . s e t F i l t e r T y p e ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ e n a b l e R i n g m o d : s i d 1 . e n a b l e R i n g m o d ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 1 _ e n a b l e S y n c h r o n i z a t i o n : s i d 1 . e n a b l e S y n c h r o n i z a t i o n ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S I D C o g 2 - F u n k t i o n e n
|
|
|
|
|
|
g c # a _ s 2 _ s e t R e g i s t e r : s i d 2 . s e t R e g i s t e r ( b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ u p d a t e R e g i s t e r s : s i d 2 . u p d a t e R e g i s t e r s ( s u b _ g e t d a t ( 2 5 , @ s 1 b u f f e r ) )
|
|
|
|
|
|
g c # a _ s 2 _ s e t V o l u m e : s i d 2 . s e t V o l u m e ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ p l a y : s i d 2 . p l a y ( b u s _ g e t c h a r , s u b _ g e t l o n g , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ n o t e O n : s i d 2 . n o t e O n ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 2 _ n o t e O f f : s i d 2 . n o t e O f f ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ s e t F r e q : s i d 2 . s e t F r e q ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 2 _ s e t W a v e f o r m : s i d 2 . s e t W a v e f o r m ( b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ s e t P W M : s i d 2 . s e t P W M ( b u s _ g e t c h a r , s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 2 _ s e t A D S R : s i d 2 . s e t A D S R ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ s e t R e s o n a n c e : s i d 2 . s e t R e s o n a n c e ( b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ s e t C u t o f f : s i d 2 . s e t C u t o f f ( s u b _ g e t l o n g )
|
|
|
|
|
|
g c # a _ s 2 _ s e t F i l t e r M a s k : s i d 2 . s e t F i l t e r M a s k ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ s e t F i l t e r T y p e : s i d 2 . s e t F i l t e r T y p e ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ e n a b l e R i n g m o d : s i d 2 . e n a b l e R i n g m o d ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
g c # a _ s 2 _ e n a b l e S y n c h r o n i z a t i o n : s i d 2 . e n a b l e S y n c h r o n i z a t i o n ( b u s _ g e t c h a r , b u s _ g e t c h a r , b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S I D Z u s a t z f u n k t i o n e n
|
|
|
|
|
|
g c # a _ s 2 _ r e s e t R e g i s t e r s : s i d 2 . r e s e t R e g i s t e r s
|
|
|
|
|
|
g c # a _ s 1 _ r e s e t R e g i s t e r s : s i d 1 . r e s e t R e g i s t e r s
|
|
|
|
|
|
g c # a _ s _ b e e p : s i d _ b e e p
|
|
|
|
|
|
g c # a _ s _ d m p r e g : s i d _ d m p r e g ' s o u n d i n f o r m a t i o n e n s e n d e n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ S I D
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - A Y - S O U N D F U N K T I O N E N
|
|
|
|
|
|
# i f d e f _ _ A D M _ A Y S
|
|
|
|
|
|
g c # a _ a y S t a r t : a y _ s t a r t
|
|
|
|
|
|
g c # a _ a y S t o p : a y _ s t o p
|
|
|
|
|
|
g c # a _ a y U p d a t e R e g i s t e r s : a y _ u p d a t e R e g i s t e r s
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ A Y S
|
|
|
|
|
|
|
|
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - D E B U G - F U N K T I O N E N
|
|
|
|
|
|
2 5 5 : m g r _ d e b u g ' d e b u g f u n k t i o n
|
|
|
|
|
|
|
|
|
|
|
|
P R I i n i t _ c h i p | e r r , i , j ' c h i p : i n i t i a l i s i e r u n g d e s a d m i n i s t r a - c h i p s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : - i n i t i a l i s i e r u n g d e s b u s i n t e r f a c e
|
|
|
|
|
|
' ' - g r u n d z u s t a n d d e f i n i e r e n ( h s s a k t i v , s y s t e m k l <00> n g e a n )
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
' b u s i n t e r f a c e i n i t i a l i s i e r e n
|
|
|
|
|
|
o u t a [ g c # b u s _ h s ] : = 1 ' h a n d s h a k e i n a k t i v , f r i d a
|
|
|
|
|
|
d i r a : = d b _ i n ' d a t e n b u s a u f e i n g a b e s c h a l t e n , f r i d a
|
|
|
|
|
|
|
|
|
|
|
|
' g r u n d z u s t a n d h e r s t e l l e n ( h s s a k t i v + s y s t e m k l <00> n g e a n )
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
' h s s s t a r t e n
|
|
|
|
|
|
h s s . s t a r t ' s o u n d s y s t e m s t a r t e n
|
|
|
|
|
|
s t _ s o u n d : = 1 ' h s s a k t i v i e r t
|
|
|
|
|
|
f l _ s y s s n d : = 1 ' s y s t e m s o u n d a n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
' s d - c a r d s t a r t e n
|
|
|
|
|
|
c l r _ d m a r k e r ' d i r - m a r k e r l <00> s c h e n
|
|
|
|
|
|
s d f a t . F A T E n g i n e
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
w a i t c n t ( c n t + c l k f r e q )
|
|
|
|
|
|
u n t i l s d _ m o u n t ( " B " ) = = 0
|
|
|
|
|
|
' e r r : = s d _ m o u n t ( " B " )
|
|
|
|
|
|
' s i g l o w ( e r r )
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
' w a v s t a r t e n
|
|
|
|
|
|
l e f t V o l u m e : = 1 0 0
|
|
|
|
|
|
r i g h t V o l u m e : = 1 0 0
|
|
|
|
|
|
P l a y C o g ~
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ W A V
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ S I D
|
|
|
|
|
|
' S I D s o u n d s y s t e m i n i t i a l i s i e r e n
|
|
|
|
|
|
s i d r e g 1 : = s i d 1 . s t a r t ( g c # A _ S O U N D L , 0 ) ' e r s t e s i d c o g s t a r t e n , a d r e s s e d e r r e g i s t e r s p e i c h e r n
|
|
|
|
|
|
w a i t c n t ( c n t + ( c l k f r e q > > 8 ) ) '
|
|
|
|
|
|
s i d r e g 2 : = s i d 2 . s t a r t ( g c # A _ S O U N D R , 0 ) ' z w e i t e s i d c o g s t a r t e n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ S I D
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
' R T C i n i t i a l i s i e r e n
|
|
|
|
|
|
r t c . s e t S Q W O U T F r e q u e n c y ( 3 ) ' R T C U h r e n q u a r z t F r e q u e n z w <00> h l e n
|
|
|
|
|
|
r t c . s e t S Q W O U T S t a t e ( 0 ) ' R T Z <00> h l e r e i n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
' a d m - c o d e b o o t e n ?
|
|
|
|
|
|
i f n o t \ s d f a t . o p e n F i l e ( s t r i n g ( " a d m . s y s " ) , " R " ) ' t e s t o b a d m . s y s v o r h a n d e n i s t
|
|
|
|
|
|
\ s d f a t . b o o t P a r t i t i o n ( s t r i n g ( " a d m . s y s " ) , " . " ) ' n e u e n c o d e b o o t e n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ C O M
|
|
|
|
|
|
' s e r i e l l e s c h n i t t s t e l l e s t a r t e n
|
|
|
|
|
|
c o m _ b a u d : = 9 6 0 0
|
|
|
|
|
|
c o m . s t a r t ( g c # S E R _ R X , g c # S E R _ T X , 0 , c o m _ b a u d ) ' s t a r t t h e d e f a u l t s e r i a l i n t e r f a c e
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ C O M
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ P L X
|
|
|
|
|
|
' p l x - b u s i n i t i a l i s i e r e n
|
|
|
|
|
|
p l x . i n i t ' d e f a u l t w e r t e s e t z e n , p o l l e r - c o g s t a r t e n
|
|
|
|
|
|
p l x . r u n ' p l e x b u s f r e i g e b e n ( p o l l e r l <00> u f t )
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ P L X
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
' L A N
|
|
|
|
|
|
l a n _ s t a r t e d : = f a l s e ' L A N n o c h n i c h t g e s t a r t e t
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ L A N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
' D C F - 7 7
|
|
|
|
|
|
d c f o n : = 0
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ D C F
|
|
|
|
|
|
|
|
|
|
|
|
P R I b u s _ p u t c h a r ( z e i c h e n ) ' c h i p : e i n b y t e <00> b e r b u s a u s g e b e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : s e n d e r o u t i n e f <00> r e i n b y t e z u r e g n a t i x <00> b e r d e n s y s t e m b u s
|
|
|
|
|
|
' ' e i n g a b e : b y t e z e i c h e n
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
w a i t p e q ( M 1 , M 2 , 0 ) ' b u s c l k = 1 ? & / p r o p 1 = 0 ?
|
|
|
|
|
|
d i r a : = d b _ o u t ' d a t e n b u s a u f a u s g a b e s t e l l e n
|
|
|
|
|
|
o u t a [ 7 . . 0 ] : = z e i c h e n ' d a t e n a u s g e b e n
|
|
|
|
|
|
o u t a [ g c # b u s _ h s ] : = 0 ' d a t e n g <00> l t i g
|
|
|
|
|
|
w a i t p e q ( M 3 , M 4 , 0 ) ' b u s c l k = 0 ?
|
|
|
|
|
|
o u t a [ g c # b u s _ h s ] : = 1 ' d a t e n u n g <00> l t i g
|
|
|
|
|
|
d i r a : = d b _ i n ' b u s f r e i g e b e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I b u s _ g e t c h a r : z e i c h e n ' c h i p : e i n b y t e <00> b e r b u s e m p f a n g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : e m f a n g s r o u t i n e f <00> r e i n b y t e v o n r e g n a t i x <00> b e r d e n s y s t e m b u s
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : b y t e z e i c h e n
|
|
|
|
|
|
|
|
|
|
|
|
w a i t p e q ( M 1 , M 2 , 0 ) ' b u s c l k = 1 ? & / p r o p 1 = 0 ?
|
|
|
|
|
|
z e i c h e n : = i n a [ 7 . . 0 ] ' d a t e n e i n l e s e n
|
|
|
|
|
|
o u t a [ g c # b u s _ h s ] : = 0 ' d a t e n q u i t t i e r e n
|
|
|
|
|
|
o u t a [ g c # b u s _ h s ] : = 1
|
|
|
|
|
|
w a i t p e q ( M 3 , M 4 , 0 ) ' b u s c l k = 0 ?
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i g h i g h ( e r r ) ' c h i p : s c h n e l l e r h b e a t | f e h l e r s o u n d
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : s c h n e l l e r h b e a t | f e h l e r s o u n d
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
i f f l _ s y s s n d = = 1
|
|
|
|
|
|
i f e r r = = 0
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 3 ) ' H e a r t b e a t H i g h
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 7 ) ' E r r o r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i g l o w ( e r r ) ' c h i p : l a n g s a m e r h b e a t | f e h l e r s o u n d
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : l a n g s a m e r h b e a t | f e h l e r s o u n d
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
i f f l _ s y s s n d = = 1
|
|
|
|
|
|
i f e r r = = 0
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 4 ) ' H e a r t b e a t H i g h
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 7 ) ' E r r o r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
P R I c l r _ d m a r k e r | i ' c h i p : d m a r k e r - t a b e l l e l <00> s c h e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c h i p
|
|
|
|
|
|
' ' f u n k t i o n : d m a r k e r - t a b e l l e l <00> s c h e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t 6 ' a l l e d i r - m a r k e r l <00> s c h e n
|
|
|
|
|
|
d m a r k e r [ i + + ] : = T R U E
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S U B P R O T O K O L L - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ g e t s t r | i , l e n ' s u b : s t r i n g e i n l e s e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n s t r i n g v o n r e g n a t i x z u e m p f a n g e n u n d i m
|
|
|
|
|
|
' ' : t e x t p u f f e r ( t b u f ) z u s p e i c h e r n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ g e t . l e n ] [ g e t . b y t e ( 1 ) ] . . [ g e t . b y t e ( l e n ) ]
|
|
|
|
|
|
' ' : l e n - l <00> n g e d e s d a t e i n a m e n s
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 1 9 ' p u f f e r l <00> s c h e n u n d k o p i e r e n
|
|
|
|
|
|
t b u f 2 [ i ] : = t b u f [ i ]
|
|
|
|
|
|
t b u f [ i ] : = 0
|
|
|
|
|
|
l e n : = b u s _ g e t c h a r ' l <00> n g e n b y t e n a m e e m p f a n g e n
|
|
|
|
|
|
r e p e a t i f r o m 0 t o l e n - 1 ' d a t e i n a m e e i n l e s e n
|
|
|
|
|
|
t b u f [ i ] : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
P U B s u b _ g e t d a t ( l e n , d a t a d r 1 ) : d a t a d r 2 | i ' s u b : d a t e n e i n l e s e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e b e s t i m m t e a n z a h l b y t e s z u e m p f a n g e n
|
|
|
|
|
|
' ' e i n g a b e : l e n - a n z a h l d e r b y t e s
|
|
|
|
|
|
' ' : d a t a d r 1 - a d r e s s e d e s d a t e n s p e i c h e r s
|
|
|
|
|
|
' ' a u s g a b e : d a t a d r 2 - a d r e s s e d e s d a t e n s p e i c h e r s
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ g e t . b y t e ( 1 ) ] . . [ g e t . b y t e ( l e n ) ]
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t i f r o m 0 t o l e n - 1 ' d a t e i n a m e e i n l e s e n
|
|
|
|
|
|
t b u f [ d a t a d r 1 + i ] : = b u s _ g e t c h a r
|
|
|
|
|
|
d a t a d r 2 : = d a t a d r 1
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ p u t s t r ( s t r p t r ) | l e n , i ' s u b : s t r i n g s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n s t r i n g a n r e g n a t i x z u s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : s t r p t r - z e i g e r a u f e i n e n s t r i n g ( 0 - t e r m )
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ p u t . l e n ] [ p u t . b y t e ( 1 ) ] . . [ p u t . b y t e ( l e n ) ]
|
|
|
|
|
|
' ' : l e n - l <00> n g e d e s d a t e i n a m e n s
|
|
|
|
|
|
|
|
|
|
|
|
l e n : = s t r s i z e ( s t r p t r )
|
|
|
|
|
|
b u s _ p u t c h a r ( l e n )
|
|
|
|
|
|
r e p e a t i f r o m 0 t o l e n - 1 ' s t r i n g <00> b e r t r a g e n
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ s t r p t r ] [ i ] )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ p u t w o r d ( w e r t ) ' s u b : l o n g s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n 1 6 b i t - w e r t a n r e g n a t i x z u s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : 1 6 b i t w e r t d e r g e s e n d e t w e r d e n s o l l
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ p u t . b y t e 1 ] [ p u t . b y t e 2 ]
|
|
|
|
|
|
' ' : [ h s b ] [ l s b ]
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t > > 8 )
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ g e t w o r d : w e r t ' s u b : l o n g e m p f a n g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n 1 6 b i t - w e r t v o n r e g n a t i x z u e m p f a n g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : 1 6 b i t - w e r t d e r e m p f a n g e n w u r d e
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ g e t . b y t e 1 ] [ g e t . b y t e 2 ]
|
|
|
|
|
|
' ' : [ h s b ] [ l s b ]
|
|
|
|
|
|
|
|
|
|
|
|
w e r t : = w e r t + b u s _ g e t c h a r < < 8
|
|
|
|
|
|
w e r t : = w e r t + b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ p u t l o n g ( w e r t ) ' s u b : l o n g s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n l o n g - w e r t a n r e g n a t i x z u s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : 3 2 b i t w e r t d e r g e s e n d e t w e r d e n s o l l
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ p u t . b y t e 1 ] [ p u t . b y t e 2 ] [ p u t . b y t e 3 ] [ p u t . b y t e 4 ]
|
|
|
|
|
|
' ' : [ h s b ] [ ] [ ] [ l s b ]
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t > > 2 4 ) ' 3 2 b i t w e r t s e n d e n h s b / l s b
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t > > 1 6 )
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t > > 8 )
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s u b _ g e t l o n g : w e r t ' s u b : l o n g e m p f a n g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s u b
|
|
|
|
|
|
' ' f u n k t i o n : s u b p r o t o k o l l u m e i n e n l o n g - w e r t v o n r e g n a t i x z u e m p f a n g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : 3 2 b i t - w e r t d e r e m p f a n g e n w u r d e
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ g e t . b y t e 1 ] [ g e t . b y t e 2 ] [ g e t . b y t e 3 ] [ g e t . b y t e 4 ]
|
|
|
|
|
|
' ' : [ h s b ] [ ] [ ] [ l s b ]
|
|
|
|
|
|
|
|
|
|
|
|
w e r t : = b u s _ g e t c h a r < < 2 4 ' 3 2 b i t e m p f a n g e n h s b / l s b
|
|
|
|
|
|
w e r t : = w e r t + b u s _ g e t c h a r < < 1 6
|
|
|
|
|
|
w e r t : = w e r t + b u s _ g e t c h a r < < 8
|
|
|
|
|
|
w e r t : = w e r t + b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C H I P - M A N A G M E N T - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ s e t s o u n d | s n d s t a t ' c m g r : s o u n d s u b s y s t e m e v e r w a l t e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : s o u n d s u b s y s t e m e a n - b z w . a b s c h a l t e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 0 ] [ g e t . f u n k t i o n ] [ p u t . s n d s t a t ]
|
|
|
|
|
|
' ' : f u n k t i o n - 0 : h s s - e n g i n e a b s c h a l t e n
|
|
|
|
|
|
' ' : 1 : h s s - e n g i n e a n s c h a l t e n
|
|
|
|
|
|
' ' : 2 : d a c - e n g i n e a b s c h a l t e n
|
|
|
|
|
|
' ' : 3 : d a c - e n g i n e a n s c h a l t e n
|
|
|
|
|
|
' ' : s n d s t a t - s t a t u s / c o g n r s t a r t v o r g a n g
|
|
|
|
|
|
|
|
|
|
|
|
s n d s t a t : = 0
|
|
|
|
|
|
c a s e b u s _ g e t c h a r
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
0 : i f s t _ s o u n d = = 1
|
|
|
|
|
|
h s s . h m u s _ s t o p
|
|
|
|
|
|
h s s . s f x _ s t o p ( 0 )
|
|
|
|
|
|
h s s . s f x _ s t o p ( 1 )
|
|
|
|
|
|
h s s . s t o p
|
|
|
|
|
|
s t _ s o u n d : = 0
|
|
|
|
|
|
|
|
|
|
|
|
1 : i f s t _ s o u n d = = 0
|
|
|
|
|
|
s n d s t a t : = h s s . s t a r t
|
|
|
|
|
|
s t _ s o u n d : = 1
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
2 : i f s t _ s o u n d = = 2
|
|
|
|
|
|
c o g s t o p ( D A C C o g )
|
|
|
|
|
|
s t _ s o u n d : = 0
|
|
|
|
|
|
|
|
|
|
|
|
3 : i f s t _ s o u n d = = 0
|
|
|
|
|
|
s n d s t a t : = D A C C o g : = w a v . D A C E n g i n e ( 0 )
|
|
|
|
|
|
s t _ s o u n d : = 2
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
9 9 :
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( s n d s t a t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ s e t s y s s o u n d ' c m g r : s y s t e m s o u n d e i n / a u s s c h a l t e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : s y s t e m k l <00> n g e s t e u e r n
|
|
|
|
|
|
' ' e i n g a b e :
|
|
|
|
|
|
' ' a u s g a b e :
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 4 ] [ g e t . f l _ s y s s n d ]
|
|
|
|
|
|
' ' : f l _ s y s s n d - f l a g z u r s t e u e r u n g d e r s y s t e m s o u n d s
|
|
|
|
|
|
' ' : 0 - s y s t e m t <00> n e a u s
|
|
|
|
|
|
' ' : 1 - s y s t e m t <00> n e a n
|
|
|
|
|
|
|
|
|
|
|
|
f l _ s y s s n d : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ g e t s o u n d s y s ' c m g r : a b f r a g e w e l c h e s s o u n d s y s t e m a k t i v i s t
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : a b f r a g e w e l c h e s s o u n d s y s t e m a k t i v i s t
|
|
|
|
|
|
' ' e i n g a b e :
|
|
|
|
|
|
' ' a u s g a b e :
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 5 ] [ p u t . s t _ s o u n d ]
|
|
|
|
|
|
' ' : s t _ s o u n d - s t a t u s d e s s o u n d s y s t e m s
|
|
|
|
|
|
' ' : 0 - s o u n d a u s
|
|
|
|
|
|
' ' : 1 - h s s
|
|
|
|
|
|
' ' : 2 - w a v
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( s t _ s o u n d )
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ a l o a d | e r r ' c m g r : n e u e n a d m i n i s t r a - c o d e b o o t e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : a d m i n i s t r a m i t n e u e m c o d e b o o t e n
|
|
|
|
|
|
' ' e i n g a b e :
|
|
|
|
|
|
' ' a u s g a b e :
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 6 ] [ s u b _ g e t s t r . f n ]
|
|
|
|
|
|
' ' : f n - d a t e i n a m e d e s n e u e n a d m i n i s t r a - c o d e s
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . b o o t P a r t i t i o n ( @ t b u f , " . " )
|
|
|
|
|
|
s i g h i g h ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ g e t c o g s : c o g s | i , c , c o g [ 8 ] ' c m g r : a b f r a g e n w i e v i e l e c o g s i n b e n u t z u n g s i n d
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : a b f r a g e w i e v i e l e c o g s i n b e n u t z u n g s i n d
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : c o g s - a n z a h l d e r c o g s
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 7 ] [ p u t . c o g s ]
|
|
|
|
|
|
' ' : c o g s - a n z a h l d e r b e l e g t e n c o g s
|
|
|
|
|
|
|
|
|
|
|
|
c o g s : = i : = 0
|
|
|
|
|
|
r e p e a t ' l o a d s a s m a n y c o g s a s p o s s i b l e a n d s t o r e s t h e i r c o g n u m b e r s
|
|
|
|
|
|
c : = c o g [ i ] : = c o g n e w ( @ e n t r y , 0 )
|
|
|
|
|
|
i f c = > 0
|
|
|
|
|
|
i + +
|
|
|
|
|
|
w h i l e c = > 0
|
|
|
|
|
|
c o g s : = i
|
|
|
|
|
|
r e p e a t ' u n l o a d s t h e c o g s a n d u p d a t e s t h e s t r i n g
|
|
|
|
|
|
i - -
|
|
|
|
|
|
i f i = > 0
|
|
|
|
|
|
c o g s t o p ( c o g [ i ] )
|
|
|
|
|
|
w h i l e i = > 0
|
|
|
|
|
|
b u s _ p u t c h a r ( c o g s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ g e t v e r ' c m g r : a b f r a g e d e r v e r s i o n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : a b f r a g e d e r v e r s i o n u n d s p e z i f i k a t i o n d e s c h i p s
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : c o g s - a n z a h l d e r c o g s
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 8 ] [ s u b _ p u t l o n g . v e r ]
|
|
|
|
|
|
' ' : v e r - v e r s i o n
|
|
|
|
|
|
' ' + - - - - - - - - - -
|
|
|
|
|
|
' ' | + - - - - - - - s y s t e m
|
|
|
|
|
|
' ' | | + - - - - v e r s i o n ( <00> n d e r u n g e n )
|
|
|
|
|
|
' ' | | | + - s u b v e r s i o n ( h i n z u f <00> g u n g e n )
|
|
|
|
|
|
' ' v e r s i o n : $ 0 0 _ 0 0 _ 0 0 _ 0 0
|
|
|
|
|
|
' '
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( C H I P _ V E R )
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ g e t s p e c ' c m g r : a b f r a g e d e r s p e z i f i k a t i o n d e s c h i p s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c m g r
|
|
|
|
|
|
' ' f u n k t i o n : a b f r a g e d e r v e r s i o n u n d s p e z i f i k a t i o n d e s c h i p s
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : c o g s - a n z a h l d e r c o g s
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 8 9 ] [ s u b _ p u t l o n g . s p e c ]
|
|
|
|
|
|
' ' : s p e c - s p e z i f i k a t i o n
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' + - - - - - - - - - - c o m
|
|
|
|
|
|
' ' | + - - - - - - - - i 2 c
|
|
|
|
|
|
' ' | | + - - - - - - - r t c
|
|
|
|
|
|
' ' | | | + - - - - - - l a n
|
|
|
|
|
|
' ' | | | | + - - - - - s i d
|
|
|
|
|
|
' ' | | | | | + - - - - w a v
|
|
|
|
|
|
' ' | | | | | | + - - - h s s
|
|
|
|
|
|
' ' | | | | | | | + - - b o o t f <00> h i g
|
|
|
|
|
|
' ' | | | | | | | | + - d a t e i s y s t e m
|
|
|
|
|
|
' ' s p e z i f i k a t i o n : % 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 0 0 0 0 0 0 0 _ 0 1 0 0 1 1 1 1
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( C H I P _ S P E C )
|
|
|
|
|
|
|
|
|
|
|
|
P R I m g r _ d e b u g ' c m g r : d e b u g
|
|
|
|
|
|
' a d r e s s e d e r e r s t e n v a r i a b l e s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
s u b _ p u t l o n g ( @ d m a r k e r ) ' a d r e s s e e r s t e v a r i a b l e a l s m a r k e r
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S D - L A U F W E R K S - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
l o n g d m a r k e r [ 6 ] ' s p e i c h e r f <00> r d i r - m a r k e r
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
P R I s d _ d i r s i z e ' A n z a h l E i n t r <00> g e i m a k t u e l l e n V e r z e i c h n i s
|
|
|
|
|
|
' s u b _ p u t l o n g ( \ s d f a t . l i s t S i z e )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ p o s
|
|
|
|
|
|
s u b _ p u t l o n g ( s d f a t . g e t C h a r a c t e r P o s i t i o n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c o p y | l a e n g e , m , n , c p m , p s m
|
|
|
|
|
|
c p m : = s u b _ g e t l o n g ' v e r z e i c h n i s m a r k e r l e s e n ( q u e l l e )
|
|
|
|
|
|
p s m : = s u b _ g e t l o n g ' v e r z e i c h n i s m a r k e r l e s e n ( z i e l )
|
|
|
|
|
|
s u b _ g e t s t r ' d a t e i n a m e l e s e n @ t b u f f
|
|
|
|
|
|
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] ~ ~ ' L E D a n
|
|
|
|
|
|
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( c p m ) ' Q u e l l v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
|
|
|
|
|
|
\ s d f a t . o p e n F i l e ( @ t b u f , " R " ) ' Q u e l l d a t e i <00> f f n e n
|
|
|
|
|
|
l a e n g e : = \ s d f a t . l i s t S i z e ' D a t e i g r <00> <00> e e m p f a n g e n
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e ' D a t e i s c h l i e <00> e n
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
m : = 0
|
|
|
|
|
|
n : = 0
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
' * * * * * * * * * * * * * * * * * * * * Q u e l l d a t e i l e s e n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( c p m ) ' Q u e l l v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
\ s d f a t . o p e n F i l e ( @ t b u f , " R " ) ' Q u e l l d a t e i <00> f f n e n
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( m ) ' P o s i t i o n i n n e r h a l b d e r D a t e i s e t z e n
|
|
|
|
|
|
i f l a e n g e > 4 0 9 5 ' 4 k B D a t e n l e s e n
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( @ b u f m a i n , 4 0 9 6 )
|
|
|
|
|
|
m : = \ s d f a t . g e t C h a r a c t e r P o s i t i o n - 1 ' P o s i t i o n i n n e r h a l b d e r D a t e i m e r k e n
|
|
|
|
|
|
e l s e ' R e s t l e s e n
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( @ b u f m a i n , l a e n g e )
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e ' D a t e i s c h l i e <00> e n
|
|
|
|
|
|
' * * * * * * * * * * * * * * * * * * * * Z i e l d a t e i s c h r e i b e n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( p s m ) ' Z i e l v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
\ s d f a t . o p e n F i l e ( @ t b u f , " W " ) ' Z i e l d a t e i z u m s c h r e i b e n <00> f f n e n
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( m ) ' P o s i t i o n i n n e r h a l b d e r D a t e i s e t z e n
|
|
|
|
|
|
i f l a e n g e > 4 0 9 5 ' 4 k B D a t e n s c h r e i b e n
|
|
|
|
|
|
\ s d f a t . w r i t e D a t a ( @ b u f m a i n , 4 0 9 6 )
|
|
|
|
|
|
n : = \ s d f a t . g e t C h a r a c t e r P o s i t i o n ' P o s i t i o n m e r k e n
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
\ s d f a t . w r i t e D a t a ( @ b u f m a i n , l a e n g e ) ' R e s t s c h r e i b e n
|
|
|
|
|
|
q u i t ' A u s s t i e g
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e ' D a t e i s c h l i e <00> e n
|
|
|
|
|
|
' * * * * * * * * * * * * * * * * * * * * T e s t a u f A b b r u c h * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
|
|
i f b u s _ g e t c h a r = = 1 ' A b b r u c h
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e ' D a t e i s c h l i e <00> e n
|
|
|
|
|
|
s u b _ p u t l o n g ( n ) ' P o s i t i o n s w e r t s e n d e n
|
|
|
|
|
|
r e t u r n ' A u s s t i e g
|
|
|
|
|
|
s u b _ p u t l o n g ( n ) ' K o p i e r f o r t s c h r i t t z u R e g n a t i x s e n d e n
|
|
|
|
|
|
l a e n g e - = 4 0 9 5 ' 4 k B v o n l a e n g e a b z i e h e n
|
|
|
|
|
|
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e ' D a t e i s c h l i e <00> e n
|
|
|
|
|
|
s u b _ p u t l o n g ( - 1 ) ' A k t i o n b e e n d e t s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] ~ ' L E D a u s
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T _ E X T
|
|
|
|
|
|
P R I s d _ m o u n t ( m o d e ) | e r r ' s d c a r d : s d - c a r d m o u n t e n f r i d a
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n g e l e g t e s v o l u m e m o u n t e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 1 ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t s d f a t . c h e c k P a r t i t i o n M o u n t e d ' f r i d a
|
|
|
|
|
|
e r r : = \ s d f a t . m o u n t P a r t i t i o n ( 0 , 0 ) ' k a r t e m o u n t e n
|
|
|
|
|
|
s i g l o w ( e r r )
|
|
|
|
|
|
' b u s _ p u t c h a r ( e r r ) ' f e h l e r s t a t u s s e n d e n
|
|
|
|
|
|
i f m o d e = = " M " ' f r i d a
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' f e h l e r s t a t u s s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t e r r
|
|
|
|
|
|
d m a r k e r [ R M A R K E R ] : = s d f a t . g e t D i r C l u s t e r ' r o o t - m a r k e r s e t z e n
|
|
|
|
|
|
|
|
|
|
|
|
e r r : = \ s d f a t . c h a n g e D i r e c t o r y ( s t r i n g ( " s y s t e m " ) )
|
|
|
|
|
|
i f n o t e r r
|
|
|
|
|
|
d m a r k e r [ S M A R K E R ] : = s d f a t . g e t D i r C l u s t e r ' s y s t e m - m a r k e r s e t z e n
|
|
|
|
|
|
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( d m a r k e r [ R M A R K E R ] ) ' r o o t - m a r k e r w i e d e r a k t i v i e r e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 8 ) ' o n - s o u n d
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
e l s e ' f r i d a
|
|
|
|
|
|
b u s _ p u t c h a r ( 0 ) ' f r i d a
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ o p e n d i r | e r r ' s d c a r d : v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 2 ]
|
|
|
|
|
|
|
|
|
|
|
|
e r r : = \ s d f a t . l i s t R e s e t
|
|
|
|
|
|
s i g l o w ( e r r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ n e x t f i l e | s t r p t ' s d c a r d : n <00> c h s t e n e i n t r a g a u s v e r z e i c h n i s h o l e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : n <00> c h s t e n e i n t r a g a u s v e r z e i c h n i s h o l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 3 ] [ p u t . s t a t u s = 0 ]
|
|
|
|
|
|
' ' : [ 0 0 3 ] [ p u t . s t a t u s = 1 ] [ s u b _ p u t s t r . f n ]
|
|
|
|
|
|
' ' : s t a t u s - 1 = g <00> l t i g e r e i n t r a g
|
|
|
|
|
|
' ' : 0 = e s f o l g t k e i n e i n t r a g m e h r
|
|
|
|
|
|
' ' : f n - v e r z e i c h n i s e i n t r a g s t r i n g
|
|
|
|
|
|
|
|
|
|
|
|
s t r p t : = \ s d f a t . l i s t N a m e ' n <00> c h s t e n e i n t r a g h o l e n
|
|
|
|
|
|
i f s t r p t ' s t a t u s s e n d e n
|
|
|
|
|
|
b u s _ p u t c h a r ( 1 ) ' k e i n e i n t r a g m e h r
|
|
|
|
|
|
s u b _ p u t s t r ( s t r p t )
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
b u s _ p u t c h a r ( 0 ) ' g <00> l t i g e r e i n t r a g f o l g t
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ o p e n | e r r , m o d u s ' s d c a r d : d a t e i <00> f f n e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n e b e s t e h e n d e d a t e i <00> f f n e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 4 ] [ g e t . m o d u s ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : m o d u s - " A " A p p e n d , " W " W r i t e , " R " R e a d
|
|
|
|
|
|
' ' : f n - n a m e d e r d a t e i
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
|
|
|
|
|
|
m o d u s : = b u s _ g e t c h a r ' m o d u s e m p f a n g e n
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . o p e n F i l e ( @ t b u f , m o d u s )
|
|
|
|
|
|
s i g h i g h ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] : = 1
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c l o s e | e r r ' s d c a r d : d a t e i s c h l i e <00> e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : d i e a k t u e l l g e <00> f f n e t e d a t e i s c h l i e <00> e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 5 ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
|
|
|
|
|
|
e r r : = \ s d f a t . c l o s e F i l e
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] : = 0
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ g e t c | n ' s d c a r d : z e i c h e n a u s d a t e i l e s e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : z e i c h e n a u s d a t e i l e s e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 6 ] [ p u t . c h a r ]
|
|
|
|
|
|
' ' : c h a r - g e l e s e n e s z e i c h e n
|
|
|
|
|
|
|
|
|
|
|
|
n : = \ s d f a t . r e a d C h a r a c t e r
|
|
|
|
|
|
b u s _ p u t c h a r ( n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ p u t c ' s d c a r d : z e i c h e n i n d a t e i s c h r e i b e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : z e i c h e n i n d a t e i s c h r e i b e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 7 ] [ g e t . c h a r ]
|
|
|
|
|
|
' ' : c h a r - z u s c h r e i b e n d e s z e i c h e n
|
|
|
|
|
|
|
|
|
|
|
|
\ s d f a t . w r i t e C h a r a c t e r ( b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ e o f ' s d c a r d : e o f a b f r a g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e o f a b f r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 3 0 ] [ p u t . e o f ]
|
|
|
|
|
|
' ' : e o f - e o f - f l a g
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( s d f a t . g e t E O F )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ g e t b l k ' s d c a r d : b l o c k a u s d a t e i l e s e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : b l o c k a u s d a t e i l e s e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 8 ] [ s u b _ g e t l o n g . c o u n t ] [ p u t . c h a r ( 1 ) ] . . [ p u t . c h a r ( c o u n t ) ]
|
|
|
|
|
|
' ' : c o u n t - a n z a h l d e r z u l e s e n d e n z e i c h e n
|
|
|
|
|
|
' ' : c h a r - g e l e s e n e s z e i c h e n
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t s u b _ g e t l o n g
|
|
|
|
|
|
b u s _ p u t c h a r ( \ s d f a t . r e a d C h a r a c t e r )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ p u t b l k ' s d c a r d : b l o c k i n d a t e i s c h r e i b e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : b l o c k i n d a t e i s c h r e i b e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 0 9 ] [ s u b _ g e t l o n g . c o u n t ] [ p u t . c h a r ( 1 ) ] . . [ p u t . c h a r ( c o u n t ) ]
|
|
|
|
|
|
' ' : c o u n t - a n z a h l d e r z u s c h r e i b e n d e n z e i c h e n
|
|
|
|
|
|
' ' : c h a r - z u s c h r e i b e n d e z e i c h e n
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t s u b _ g e t l o n g
|
|
|
|
|
|
\ s d f a t . w r i t e C h a r a c t e r ( b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ s e e k | w e r t ' s d c a r d : z e i g e r i n d a t e i p o s i t i o n i e r e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : z e i g e r i n d a t e i p o s i t i o n i e r e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 0 ] [ s u b _ g e t l o n g . p o s ]
|
|
|
|
|
|
' ' : p o s - n e u e z e i c h e n p o s i t i o n i n d e r d a t e i
|
|
|
|
|
|
|
|
|
|
|
|
w e r t : = s u b _ g e t l o n g
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( w e r t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ f a t t r i b | a n r , w e r t ' s d c a r d : d a t e i a t t r i b u t e <00> b e r g e b e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : d a t e i a t t r i b u t e a b f r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 1 ] [ g e t . a n r ] [ s u b _ p u t l o n g . w e r t ]
|
|
|
|
|
|
' ' : a n r - 0 = D a t e i g r <00> <00> e
|
|
|
|
|
|
' ' : 1 = E r s t e l l u n g s d a t u m - T a g
|
|
|
|
|
|
' ' : 2 = E r s t e l l u n g s d a t u m - M o n a t
|
|
|
|
|
|
' ' : 3 = E r s t e l l u n g s d a t u m - J a h r
|
|
|
|
|
|
' ' : 4 = E r s t e l l u n g s d a t u m - S e k u n d e n
|
|
|
|
|
|
' ' : 5 = E r s t e l l u n g s d a t u m - M i n u t e n
|
|
|
|
|
|
' ' : 6 = E r s t e l l u n g s d a t u m - S t u n d e n
|
|
|
|
|
|
' ' : 7 = Z u g r i f f s d a t u m - T a g
|
|
|
|
|
|
' ' : 8 = Z u g r i f f s d a t u m - M o n a t
|
|
|
|
|
|
' ' : 9 = Z u g r i f f s d a t u m - J a h r
|
|
|
|
|
|
' ' : 1 0 = <00> n d e r u n g s d a t u m - T a g
|
|
|
|
|
|
' ' : 1 1 = <00> n d e r u n g s d a t u m - M o n a t
|
|
|
|
|
|
' ' : 1 2 = <00> n d e r u n g s d a t u m - J a h r
|
|
|
|
|
|
' ' : 1 3 = <00> n d e r u n g s d a t u m - S e k u n d e n
|
|
|
|
|
|
' ' : 1 4 = <00> n d e r u n g s d a t u m - M i n u t e n
|
|
|
|
|
|
' ' : 1 5 = <00> n d e r u n g s d a t u m - S t u n d e n
|
|
|
|
|
|
' ' : 1 6 = R e a d - O n l y - B i t
|
|
|
|
|
|
' ' : 1 7 = H i d d e n - B i t
|
|
|
|
|
|
' ' : 1 8 = S y s t e m - B i t
|
|
|
|
|
|
' ' : 1 9 = D i r e k t o r y
|
|
|
|
|
|
' ' : 2 0 = A r c h i v - B i t
|
|
|
|
|
|
' ' : w e r t - w e r t d e s a b g e f r a g t e n a t t r i b u t e s
|
|
|
|
|
|
|
|
|
|
|
|
a n r : = b u s _ g e t c h a r
|
|
|
|
|
|
c a s e a n r
|
|
|
|
|
|
0 : w e r t : = \ s d f a t . l i s t S i z e
|
|
|
|
|
|
1 : w e r t : = \ s d f a t . l i s t C r e a t i o n D a y
|
|
|
|
|
|
2 : w e r t : = \ s d f a t . l i s t C r e a t i o n M o n t h
|
|
|
|
|
|
3 : w e r t : = \ s d f a t . l i s t C r e a t i o n Y e a r
|
|
|
|
|
|
4 : w e r t : = \ s d f a t . l i s t C r e a t i o n S e c o n d s
|
|
|
|
|
|
5 : w e r t : = \ s d f a t . l i s t C r e a t i o n M i n u t e s
|
|
|
|
|
|
6 : w e r t : = \ s d f a t . l i s t C r e a t i o n H o u r s
|
|
|
|
|
|
7 : w e r t : = \ s d f a t . l i s t A c c e s s D a y
|
|
|
|
|
|
8 : w e r t : = \ s d f a t . l i s t A c c e s s M o n t h
|
|
|
|
|
|
9 : w e r t : = \ s d f a t . l i s t A c c e s s Y e a r
|
|
|
|
|
|
1 0 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n D a y
|
|
|
|
|
|
1 1 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n M o n t h
|
|
|
|
|
|
1 2 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n Y e a r
|
|
|
|
|
|
1 3 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n S e c o n d s
|
|
|
|
|
|
1 4 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n M i n u t e s
|
|
|
|
|
|
1 5 : w e r t : = \ s d f a t . l i s t M o d i f i c a t i o n H o u r s
|
|
|
|
|
|
1 6 : w e r t : = \ s d f a t . l i s t I s R e a d O n l y
|
|
|
|
|
|
1 7 : w e r t : = \ s d f a t . l i s t I s H i d d e n
|
|
|
|
|
|
1 8 : w e r t : = \ s d f a t . l i s t I s S y s t e m
|
|
|
|
|
|
1 9 : w e r t : = \ s d f a t . l i s t I s D i r e c t o r y
|
|
|
|
|
|
2 0 : w e r t : = \ s d f a t . l i s t I s A r c h i v e
|
|
|
|
|
|
s u b _ p u t l o n g ( w e r t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ v o l n a m e ' s d c a r d : v o l u m e n l a b e l a b f r a g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : n a m e d e s v o l u m e s <00> b e r r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 2 ] [ s u b _ p u t s t r . v o l n a m e ]
|
|
|
|
|
|
' ' : v o l n a m e - n a m e d e s v o l u m e s
|
|
|
|
|
|
' ' : l e n - l <00> n g e d e s f o l g e n d e n s t r i n g s
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t s t r ( \ s d f a t . l i s t V o l u m e L a b e l ) ' l a b e l h o l e n u n d s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h e c k m o u n t e d ' s d c a r d : t e s t o b v o l u m e g e m o u n t e d i s t
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : t e s t o b v o l u m e g e m o u n t e d i s t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 3 ] [ p u t . f l a g ]
|
|
|
|
|
|
' ' : f l a g - 0 = u n m o u n t e d , 1 m o u n t e d
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( \ s d f a t . c h e c k P a r t i t i o n M o u n t e d )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h e c k o p e n ' s d c a r d : t e s t o b e i n e d a t e i g e <00> f f n e t i s t
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : t e s t o b e i n e d a t e i g e <00> f f n e t i s t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 4 ] [ p u t . f l a g ]
|
|
|
|
|
|
' ' : f l a g - 0 = n o t o p e n , 1 o p e n
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( \ s d f a t . c h e c k F i l e O p e n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h e c k u s e d ' s d c a r d : a n z a h l d e r b e n u t z t e n s e k t o r e n s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : a n z a h l d e r b e n u t z t e n s e k t o r e n s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 5 ] [ s u b _ p u t l o n g . u s e d ]
|
|
|
|
|
|
' ' : u s e d - a n z a h l d e r b e n u t z t e n s e k t o r e n
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( \ s d f a t . c h e c k U s e d S e c t o r C o u n t ( " F " ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h e c k f r e e ' s d c a r d : a n z a h l d e r f r e i e n s e k t o r e n s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : a n z a h l d e r f r e i e n s e k t o r e n s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 6 ] [ s u b _ p u t l o n g . f r e e ]
|
|
|
|
|
|
' ' : f r e e - a n z a h l d e r f r e i e n s e k t o r e n
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( \ s d f a t . c h e c k F r e e S e c t o r C o u n t ( " F " ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ n e w f i l e | e r r ' s d c a r d : e i n e n e u e d a t e i e r z e u g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n e n e u e d a t e i e r z e u g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 7 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - n a m e d e r d a t e i
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . n e w F i l e ( @ t b u f )
|
|
|
|
|
|
s i g h i g h ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ n e w d i r | e r r ' s d c a r d : e i n n e u e s v e r z e i c h n i s e r z e u g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n n e u e s v e r z e i c h n i s e r z e u g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 8 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - n a m e d e s v e r z e i c h n i s s e s
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . n e w D i r e c t o r y ( @ t b u f )
|
|
|
|
|
|
s i g h i g h ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d e l | e r r ' s d c a r d : e i n e d a t e i o d e r e i n v e r z e i c h n i s l <00> s c h e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n e d a t e i o d e r e i n v e r z e i c h n i s l <00> s c h e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 1 9 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - n a m e d e s v e r z e i c h n i s s e s o d e r d e r d a t e i
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . d e l e t e E n t r y ( @ t b u f )
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ r e n a m e | e r r ' s d c a r d : d a t e i o d e r v e r z e i c h n i s u m b e n e n n e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : d a t e i o d e r v e r z e i c h n i s u m b e n e n n e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 0 ] [ s u b _ g e t s t r . f n 1 ] [ s u b _ g e t s t r . f n 2 ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n 1 - a l t e r n a m e
|
|
|
|
|
|
' ' : f n 2 - n e u e r n a m e
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r ' f n 1
|
|
|
|
|
|
s u b _ g e t s t r ' f n 2
|
|
|
|
|
|
e r r : = \ s d f a t . r e n a m e E n t r y ( @ t b u f 2 , @ t b u f )
|
|
|
|
|
|
s i g h i g h ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h a t t r i b | e r r ' s d c a r d : a t t r i b u t e <00> n d e r n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : a t t r i b u t e e i n e r d a t e i o d e r e i n e s v e r z e i c h n i s s e s <00> n d e r n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 1 ] [ s u b _ g e t s t r . f n ] [ s u b _ g e t s t r . a t t r i b ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - d a t e i n a m e
|
|
|
|
|
|
' ' : a t t r i b - s t r i n g m i t a t t r i b u t e n
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . c h a n g e A t t r i b u t e s ( @ t b u f 2 , @ t b u f )
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ c h d i r | e r r ' s d c a r d : v e r z e i c h n i s w e c h s e l n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : v e r z e i c h n i s w e c h s e l n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 2 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - n a m e d e s v e r z e i c h n i s s e s
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . c h a n g e D i r e c t o r y ( @ t b u f )
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ f o r m a t | e r r ' s d c a r d : m e d i u m f o r m a t i e r e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : m e d i u m f o r m a t i e r e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 3 ] [ s u b _ g e t s t r . v l a b e l ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : v l a b e l - v o l u m e l a b e l
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . f o r m a t P a r t i t i o n ( 0 , @ t b u f , 0 )
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ u n m o u n t | e r r ' s d c a r d : m e d i u m a b m e l d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : m e d i u m a b m e l d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 4 ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
|
|
|
|
|
|
e r r : = \ s d f a t . u n m o u n t P a r t i t i o n
|
|
|
|
|
|
s i g l o w ( e r r ) ' f e h l e r a n z e i g e
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
i f n o t e r r
|
|
|
|
|
|
c l r _ d m a r k e r
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
h s s . s f x _ p l a y ( 1 , @ S o u n d F X 9 ) ' o f f - s o u n d
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d m a c t | m a r k e r n r ' s d c a r d : e i n e n d i r - m a r k e r a k t i v i e r e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n a u s g e w <00> h l t e r d i r - m a r k e r w i r d a k t i v i e r t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 5 ] [ g e t . d m a r k e r ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : d m a r k e r - d i r - m a r k e r
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
m a r k e r n r : = b u s _ g e t c h a r
|
|
|
|
|
|
i f n o t d m a r k e r [ m a r k e r n r ] = = T R U E
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( d m a r k e r [ m a r k e r n r ] )
|
|
|
|
|
|
b u s _ p u t c h a r ( s d f a t # e r r _ n o E r r o r )
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
b u s _ p u t c h a r ( s d f a t # e r r _ n o E r r o r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d m s e t | m a r k e r n r ' s d c a r d : e i n e n d i r - m a r k e r s e t z e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n a u s g e w <00> h l t e r d i r - m a r k e r m i t d e m a k t u e l l e n v e r z e i c h n i s s e t z e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 6 ] [ g e t . d m a r k e r ]
|
|
|
|
|
|
' ' : d m a r k e r - d i r - m a r k e r
|
|
|
|
|
|
|
|
|
|
|
|
m a r k e r n r : = b u s _ g e t c h a r
|
|
|
|
|
|
d m a r k e r [ m a r k e r n r ] : = s d f a t . g e t D i r C l u s t e r
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d m g e t | m a r k e r n r ' s d c a r d : e i n e n d i r - m a r k e r a b f r a g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : d e n s t a t u s e i n e s a u s g e w <00> h l t e r d i r - m a r k e r a b f r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 7 ] [ g e t . d m a r k e r ] [ s u b _ p u t l o n g . d m s t a t u s ]
|
|
|
|
|
|
' ' : d m a r k e r - d i r - m a r k e r
|
|
|
|
|
|
' ' : d m s t a t u s - s t a t u s d e s m a r k e r s
|
|
|
|
|
|
|
|
|
|
|
|
m a r k e r n r : = b u s _ g e t c h a r
|
|
|
|
|
|
s u b _ p u t l o n g ( d m a r k e r [ m a r k e r n r ] )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d m p u t | m a r k e r n r ' s d c a r d : e i n e n d i r - m a r k e r <00> b e r t r a g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : d e n s t a t u s e i n e s a u s g e w <00> h l t e r d i r - m a r k e r <00> b e r t r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 9 ] [ g e t . d m a r k e r ] [ s u b _ g e t l o n g . d m s t a t u s ]
|
|
|
|
|
|
' ' : d m a r k e r - d i r - m a r k e r
|
|
|
|
|
|
' ' : d m s t a t u s - s t a t u s d e s m a r k e r s
|
|
|
|
|
|
|
|
|
|
|
|
m a r k e r n r : = b u s _ g e t c h a r
|
|
|
|
|
|
d m a r k e r [ m a r k e r n r ] : = s u b _ g e t l o n g
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d _ d m c l r | m a r k e r n r ' s d c a r d : e i n e n d i r - m a r k e r l <00> s c h e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d c a r d
|
|
|
|
|
|
' ' f u n k t i o n : e i n a u s g e w <00> h l t e r d i r - m a r k e r l <00> s c h e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 2 8 ] [ g e t . d m a r k e r ]
|
|
|
|
|
|
' ' : d m a r k e r - d i r - m a r k e r
|
|
|
|
|
|
|
|
|
|
|
|
m a r k e r n r : = b u s _ g e t c h a r
|
|
|
|
|
|
d m a r k e r [ m a r k e r n r ] : = T R U E
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f S D C A R D F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C O M - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ C O M
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
l o n g c o m _ b a u d
|
|
|
|
|
|
|
|
|
|
|
|
P R I c o m _ i n i t ' c o m : s e r i e l l e s c h n i t t s t e l l e i n i t i a l i s i e r e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c o m
|
|
|
|
|
|
' ' f u n k t i o n : s e r i e l l e s c h n i t t s t e l l e i n i t i a l i s i e r e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 3 1 ] [ s u b _ g e t l o n g . b a u d r a t e ]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
c o m _ b a u d : = s u b _ g e t l o n g
|
|
|
|
|
|
c o m . s t a r t ( g c # S E R _ R X , g c # S E R _ T X , 0 , c o m _ b a u d ) ' s t a r t t h e d e f a u l t s e r i a l i n t e r f a c e
|
|
|
|
|
|
|
|
|
|
|
|
P R I c o m _ t x ' c o m : z e i c h e n s e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c o m
|
|
|
|
|
|
' ' f u n k t i o n : z e i c h e n s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 3 2 ] [ g e t . c h a r ]
|
|
|
|
|
|
|
|
|
|
|
|
c o m . t x ( b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I c o m _ r x ' c o m : z e i c h e n e m p f a n g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : c o m
|
|
|
|
|
|
' ' f u n k t i o n : z e i c h e n e m p f a n g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 3 3 ] [ p u t . c h a r ]
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( c o m . r x )
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f C O M F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ C O M
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - B l u e t o o t h F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ B L T
|
|
|
|
|
|
|
|
|
|
|
|
P R I b l t _ s e t C o m m a n d M o d e
|
|
|
|
|
|
d i r a [ g c # A _ B l u e t o o t h _ L i n e ] : = 1
|
|
|
|
|
|
o u t a [ g c # A _ B l u e t o o t h _ L i n e ] : = 1
|
|
|
|
|
|
|
|
|
|
|
|
P R I b l t _ s e t N o r m a l M o d e
|
|
|
|
|
|
o u t a [ g c # A _ B l u e t o o t h _ L i n e ] : = 0
|
|
|
|
|
|
d i r a [ g c # A _ B l u e t o o t h _ L i n e ] : = 0
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f B l u e t o o t h F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ B L T
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - H S S - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
b y t e b g m u s i c [ M P L E N ] ' h s s - p u f f e r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
b y t e s f x d a t [ 1 6 * 3 2 ] ' s f x - s l o t p u f f e r
|
|
|
|
|
|
|
|
|
|
|
|
P R I s f x _ f i r e | s l o t , c h a n , s l o t a d r ' s f x : e f f e k t i m p u f f e r a b s p i e l e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s f x
|
|
|
|
|
|
' ' f u n k t i o n : e f f e k t a u s e i n e m e f f e k t p u f f e r a b s p i e l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 7 ] [ g e t . s l o t ] [ g e t . c h a n ]
|
|
|
|
|
|
' ' : s l o t - $ 0 0 . . $ 0 f n u m m e r d e r f r e i e n e f f e k t p u f f e r
|
|
|
|
|
|
' ' : s l o t - $ f 0 . . f f v o r d e f i n i e r t e e f f e k t s l o t s
|
|
|
|
|
|
' ' : c h a n - 0 / 1 s t e r e o k a n a l a u f d e m d e r e f f e k t a b g e s p i e l t w e r d e n s o l l
|
|
|
|
|
|
' ' v o r d e f i n i e r t e e f f e k t e : & f 0 - w a r n t o n
|
|
|
|
|
|
' ' : $ f 1 - s i g n a l t o n
|
|
|
|
|
|
' ' : $ f 2 - h e r z s c h l a g s c h n e l l
|
|
|
|
|
|
' ' : $ f 3 - h e r z s c h l a g l a n g s a m
|
|
|
|
|
|
' ' : $ f 4 - t e l e f o n
|
|
|
|
|
|
' ' : $ f 5 - p h a s e r : )
|
|
|
|
|
|
' ' : $ f 6 - p l i n g
|
|
|
|
|
|
' ' : $ f 7 - o n
|
|
|
|
|
|
' ' : $ f 8 - o f f
|
|
|
|
|
|
|
|
|
|
|
|
s l o t : = b u s _ g e t c h a r
|
|
|
|
|
|
c h a n : = b u s _ g e t c h a r ' c h a n n e l n u m m e r l e s e n
|
|
|
|
|
|
c a s e s l o t
|
|
|
|
|
|
$ f 0 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 1 ) ' w a r n t o n
|
|
|
|
|
|
$ f 1 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 2 ) ' s i g n a l t o n
|
|
|
|
|
|
$ f 2 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 3 ) ' h e r z s c h l a g s c h n e l l
|
|
|
|
|
|
$ f 3 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 4 ) ' h e r z s c h l a g s c h n e l l
|
|
|
|
|
|
$ f 4 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 5 ) ' t e l e f o n
|
|
|
|
|
|
$ f 5 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 6 ) ' p h a s e
|
|
|
|
|
|
$ f 6 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 7 ) ' p l i n g
|
|
|
|
|
|
$ f 7 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 8 ) ' o n
|
|
|
|
|
|
$ f 8 : h s s . s f x _ p l a y ( 1 , @ S o u n d F X 9 ) ' o f f
|
|
|
|
|
|
o t h e r :
|
|
|
|
|
|
i f s l o t < $ f 0
|
|
|
|
|
|
s l o t a d r : = @ s f x d a t + ( s l o t * 3 2 ) ' s l o t n u m m e r l e s e n u n d a d r e s s e b e r e c h n e n
|
|
|
|
|
|
h s s . s f x _ p l a y ( c h a n , s l o t a d r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s f x _ s e t s l o t | s l o t a d r , i ' s f x : d a t e n i n s f x - s l o t p u f f e r s c h r e i b e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s f x
|
|
|
|
|
|
' ' f u n k t i o n : d i e d a t e n f <00> r e i n s f x - s l o t w e r d e n w e r d e n v o n r e g n a t i x g e s e t z t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 8 ] [ g e t . s l o t ] [ 3 2 : g e t . d a t e n ]
|
|
|
|
|
|
' ' : s l o t - $ 0 0 . . $ 0 f n u m m e r d e r f r e i e n e f f e k t p u f f e r
|
|
|
|
|
|
' ' : d a t e n - 3 2 b y t e e f f e k t d a t e n
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' s t r u k t u r d e r e f f e k t d a t e n :
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' [ w a v ] [ l e n ] [ f r e q ] [ v o l ] g r u n d s c h w i n g u n g
|
|
|
|
|
|
' ' [ l f o ] [ l f w ] [ f m a ] [ a m a ] m o d u l a t i o n
|
|
|
|
|
|
' ' [ a t t ] [ d e c ] [ s u s ] [ r e l ] h <00> l l k u r v e
|
|
|
|
|
|
' ' [ s e q ] ( o p t i o n a l )
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' [ w a v ] w e l l e n f o r m
|
|
|
|
|
|
' ' 0 s i n u s ( 0 . . 5 0 0 h z )
|
|
|
|
|
|
' ' 1 s c h n e l l e r s i n u s ( 0 . . 1 k h z )
|
|
|
|
|
|
' ' 2 d r e i e c k ( 0 . . 5 0 0 h z )
|
|
|
|
|
|
' ' 3 r e c h t e c k ( 0 . . 1 k h z )
|
|
|
|
|
|
' ' 4 s c h n e l l e s r e c h t e c k ( 0 . . 4 k h z )
|
|
|
|
|
|
' ' 5 i m p u l s e ( 0 . . 1 , 3 3 3 h z )
|
|
|
|
|
|
' ' 6 r a u s c h e n
|
|
|
|
|
|
' ' [ l e n ] t o n l <00> n g e $ 0 . . $ f e , $ f f e n d l o s
|
|
|
|
|
|
' ' [ f r e q ] f r e q u e n z $ 0 0 . . $ f f
|
|
|
|
|
|
' ' [ v o l ] l a u t s t <00> r k e $ 0 0 . . $ 0 f
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' [ l f o ] l o w f r e q u e n c y o s c i l l a t o r $ f f . . $ 0 1
|
|
|
|
|
|
' ' [ l f w ] l o w f r e q u e n c y w a v e f o r m
|
|
|
|
|
|
' ' $ 0 0 s i n u s ( 0 . . 8 h z )
|
|
|
|
|
|
' ' $ 0 1 f a s t s i n e ( 0 . . 1 6 h z )
|
|
|
|
|
|
' ' $ 0 2 r a m p u p ( 0 . . 8 h z )
|
|
|
|
|
|
' ' $ 0 3 r a m p d o w n ( 0 . . 8 h z )
|
|
|
|
|
|
' ' $ 0 4 s q u a r e ( 0 . . 3 2 h z )
|
|
|
|
|
|
' ' $ 0 5 r a n d o m
|
|
|
|
|
|
' ' $ f f s e q u e n c e r d a t a ( e s f o l g t e i n e s e q u e n z f o l g e [ s e q ] )
|
|
|
|
|
|
' ' [ f m a ] f r e q u e n c y m o d u l a t i o n a m o u n t
|
|
|
|
|
|
' ' $ 0 0 n o m o d u l a t i o n
|
|
|
|
|
|
' ' $ 0 1 . . $ f f
|
|
|
|
|
|
' ' [ a m a ] a m p l i t u d e m o d u l a t i o n a m o u n t
|
|
|
|
|
|
' ' $ 0 0 n o m o d u l a t i o n
|
|
|
|
|
|
' ' $ 0 1 . . $ f f
|
|
|
|
|
|
' ' [ a t t ] a t t a c k $ 0 0 . . $ f f
|
|
|
|
|
|
' ' [ d e c ] d e c a y $ 0 0 . . $ f f
|
|
|
|
|
|
' ' [ s u s ] s u s t a i n $ 0 0 . . $ f f
|
|
|
|
|
|
' ' [ r e l ] r e l e a s e $ 0 0 . . $ f f
|
|
|
|
|
|
|
|
|
|
|
|
s l o t a d r : = @ s f x d a t + ( b u s _ g e t c h a r * 3 2 ) ' s l o t n u m m e r l e s e n u n d a d r e s s e b e r e c h n e n
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 3 1
|
|
|
|
|
|
b y t e [ s l o t a d r + i ] : = b u s _ g e t c h a r ' s f x - d a t e n e i n l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s f x _ k e y o f f | c h a n ' s f x : r e l e a s e - p h a s e e i n l e i t e n u m d e n e f f e k t z u b e e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s f x
|
|
|
|
|
|
' ' f u n k t i o n : f <00> r d e n a k t u e l l a b g e s p i e l t e n e f f e k t w i r d d i e r e l e a s e - p h a s e d e r
|
|
|
|
|
|
' ' : a d s r - h <00> l l k u r v e e i n g e l e i t e t , u m i h n z u b e e n d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 9 ] [ g e t . c h a n ]
|
|
|
|
|
|
' ' : c h a n - 0 / 1 s t e r e o k a n a l a u f d e m d e r e f f e k t a b g e s p i e l t w e r d e n s o l l
|
|
|
|
|
|
|
|
|
|
|
|
c h a n : = b u s _ g e t c h a r ' c h a n n e l n u m m e r l e s e n
|
|
|
|
|
|
h s s . s f x _ k e y o f f ( c h a n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s f x _ s t o p | c h a n ' s f x : e f f e k t s o f o r t b e e n d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s f x
|
|
|
|
|
|
' ' f u n k t i o n : d e r a k t u e l l a b g e s p i e l t e e f f e k t w i r d s o f o r t b e e n d e t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 1 0 ] [ g e t . c h a n ]
|
|
|
|
|
|
' ' : c h a n - 0 / 1 s t e r e o k a n a l a u f d e m d e r e f f e k t a b g e s p i e l t w e r d e n s o l l
|
|
|
|
|
|
|
|
|
|
|
|
c h a n : = b u s _ g e t c h a r ' c h a n n e l n u m m e r l e s e n
|
|
|
|
|
|
h s s . s f x _ s t o p ( c h a n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I h s s _ v o l ' h s s : v o l u m e 0 . . 1 5 e i n s t e l l e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : h s s
|
|
|
|
|
|
' ' f u n k t i o n : l a u t s t <00> r k e d e s h s s - p l a y e r s w i r d e i n g e s t e l l t
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 6 ] [ g e t . v o l ]
|
|
|
|
|
|
' ' : v o l - 0 . . 1 5 g e s a m t l a u t s t <00> r k e d e s h s s - p l a y e r s
|
|
|
|
|
|
h s s . h m u s _ v o l ( b u s _ g e t c h a r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I h s s _ i n t r e g | r e g n r , w e r t ' h s s : a u s l e s e n d e r p l a y e r - r e g i s t e r
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : h s s
|
|
|
|
|
|
' ' f u n k t i o n : a b f r a g e e i n e s h s s - p l a y e r r e g i s t e r s ( 1 6 b i t ) d u r c h r e g n a t i x
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 5 ] [ g e t . r e g n r ] [ p u t . r e g h w t ] [ p u t . r e g n w t ]
|
|
|
|
|
|
' ' : r e g n r - 0 . . 2 4 ( 5 x 5 r e g i s t e r )
|
|
|
|
|
|
' ' : r e g h w t - h <00> h e r w e r t i g e r t e i l d e s 1 6 b i t - r e g i s t e r w e r t e s
|
|
|
|
|
|
' ' : r e g n w t - n i e d e r w e r t i g e r t e i l d e s 1 6 b i t - r e g i s t e r w e r t e s
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' 0 i E n d F l a g i R o w F l a g i E n g i n e C i B e a t C i R e p e a t g l o b a l e P l a y e r w e r t e
|
|
|
|
|
|
' ' 5 i N o t e i O k t a v e i V o l u m e i E f f e k t i I n s t r u m e n t S o u n d k a n a l 1
|
|
|
|
|
|
' ' 1 0 i N o t e i O k t a v e i V o l u m e i E f f e k t i I n s t r u m e n t S o u n d k a n a l 2
|
|
|
|
|
|
' ' 1 5 i N o t e i O k t a v e i V o l u m e i E f f e k t i I n s t r u m e n t S o u n d k a n a l 3
|
|
|
|
|
|
' ' 2 0 i N o t e i O k t a v e i V o l u m e i E f f e k t i I n s t r u m e n t S o u n d k a n a l 4
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' i E n d F l a g R e p e a t o d e r E n d e w u r d e e r r e i c h t
|
|
|
|
|
|
' ' i R o w F l a g T r a c k e r z e i l e ( R o w ) i s t f e r t i g
|
|
|
|
|
|
' ' i E n g i n e C P a t t e r n z <00> h l e r
|
|
|
|
|
|
' ' i B e a t C B e a t z <00> h l e r ( A n z a h l d e r R o w s )
|
|
|
|
|
|
' ' i R e p e a t Z <00> h l e r f <00> r L o o p s
|
|
|
|
|
|
|
|
|
|
|
|
r e g n r : = b u s _ g e t c h a r ' r e g i s t e r n u m m e r e i n l e s e n
|
|
|
|
|
|
w e r t : = h s s . i n t r e a d ( r e g n r )
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t > > 8 ) ' 1 6 - b i t - w e r t s e n d e n h s b / l s b
|
|
|
|
|
|
b u s _ p u t c h a r ( w e r t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I h s s _ p e e k ' h s s : z u g r i f f a u f a l l e i n t e r n e n p l a y e r r e g i s t e r
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : h s s
|
|
|
|
|
|
' ' f u n k t i o n : z u g r i f f a u f d i e i n t e r n e n p l a y e r r e g i s t e r ; l e i d e r s i n d d i e r e g i s t e r
|
|
|
|
|
|
' ' : n i c h t d o k u m e n t i e r t ; 4 8 l o n g - r e g i s t e r
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 4 ] [ g e t . r e g n r ] [ s u b _ p u t l o n g . r e g w e r t ]
|
|
|
|
|
|
' ' : r e g n r - r e g i s t e r n u m m e r
|
|
|
|
|
|
' ' : r e g w e r t - l o n g
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( h s s . p e e k ( b u s _ g e t c h a r ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I h s s _ l o a d | e r r ' h s s : m u s i k d a t e i i n p u f f e r l a d e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : h s s
|
|
|
|
|
|
' ' f u n k t i o n : h s s - d a t e i w i r d i n d e n m o d u l p u f f e r g e l a d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 0 0 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r ]
|
|
|
|
|
|
' ' : f n - d a t e i n a m e
|
|
|
|
|
|
' ' : e r r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r ' d a t e i n a m e n e i n l e s e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
e r r : = \ s d f a t . o p e n F i l e ( @ t b u f , " r " ) ' d a t e i <00> f f n e n
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
i f e r r = = 0
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] : = 1
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( @ b g m u s i c , M P L E N ) ' d a t e i l a d e n
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S _ P L A Y
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e
|
|
|
|
|
|
o u t a [ L E D _ O P E N ] : = 0
|
|
|
|
|
|
# e l s e ' n o _ _ A D M _ F A T
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r )
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f H S S F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - W A V - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ W A V
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
b y t e f l _ s d w a v
|
|
|
|
|
|
|
|
|
|
|
|
l o n g l e f t V o l u m e
|
|
|
|
|
|
l o n g r i g h t V o l u m e
|
|
|
|
|
|
l o n g D A C C o g ' c o g - n u m m e r d a s d a - w a n d l e r s
|
|
|
|
|
|
l o n g P l a y C o g ' c o g - n u m m e r d e s p l a y e r s
|
|
|
|
|
|
l o n g P l a y S t a c k [ 5 0 ] ' s t a c k f <00> r p l a y e r
|
|
|
|
|
|
b y t e r u n P l a y e r F l a g ' f l a g u m p l a y e r z u s t e u e r n : 0 : s t o p , 1 : r u n , 2 : p a u s e
|
|
|
|
|
|
l o n g w a v L e n ' l <00> n g e d e r a b g e s p i e l t e n w a v / 5 1 2
|
|
|
|
|
|
l o n g w a v P o i n t e r ' a k t u e l l e p o s i t i o n d e s p l a y e r s / 5 1 2
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ s t a r t | e r r ' s d w : s t a r t e t e x t r a c o g m i t s d w a v - e n g i n e
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : w a v - d a t e i v o n s d - c a r d a b s p i e l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 0 ] [ s u b . g e t s t r ] [ p u t . e r r ]
|
|
|
|
|
|
' ' : e r r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r ' d a t e i n a m e n e m p f a n g e n
|
|
|
|
|
|
e r r : = \ s d f a t . o p e n F i l e ( @ t b u f , " r " ) ' d a t e i <00> f f n e n
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
i f e r r = = 0 ' p l a y e r s t a r t e n
|
|
|
|
|
|
r u n P l a y e r F l a g : = 0
|
|
|
|
|
|
P l a y C o g : = c o g n e w ( s d w _ p l a y e r , @ P l a y S t a c k ) ' p l a y e r - c o g s t a r t e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ s t o p ' s d w : s t o p t c o g m i t s d w a v - e n g i n e
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : w a v - p l a y e r s i g n a l z u m s t o p p e n s e n d e n
|
|
|
|
|
|
' ' : w a r t e t b i s p l a y e r e n d e t u n d q u i t i e r t e r s t d a n n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 1 ] [ p u t . e r r ]
|
|
|
|
|
|
' ' : e r r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
r u n P l a y e r F l a g : = 1
|
|
|
|
|
|
r e p e a t u n t i l f l _ s d w a v = = 0
|
|
|
|
|
|
b u s _ p u t c h a r ( 0 )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ s t a t u s ' s d w : s e n d e t s t a t u s d e s w a v - p l a y e r s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : s t a t u s d e s w a v - p l a y e r s a b f r a g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 2 ] [ p u t . s t a t u s ]
|
|
|
|
|
|
' ' : s t a t u s - s t a t u s d e s w a v - p l a y e r s
|
|
|
|
|
|
' ' : 0 : w a v f e r t i g ( p l a y e r b e e n d e t )
|
|
|
|
|
|
' ' : 1 : w a v w i r d a b g e s p i e l t
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( f l _ s d w a v )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ p l a y e r ' s d w : p l a y e r - c o g
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : p l a y e r - c o g
|
|
|
|
|
|
' ' : - d i e s e r o u t i n e w i r d i n e i n e r e x t r a - c o g g e s t a r t e t
|
|
|
|
|
|
' ' : - b e s c h i c k t d i e D A C E n g i n e m i t d e n s o u n d d a t e n a u s d e r
|
|
|
|
|
|
' ' : g e <00> f f n e t e n d a t e i
|
|
|
|
|
|
' ' :
|
|
|
|
|
|
' ' e i n g a b e : g e <00> f f n e t e w a v - d a t e i
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' A C H T U N G : w <00> h r e n d d e r p l a y e r a k t i v i s t ( f l _ s d w a v = = 1 ) i s t d i e s d - c a r d
|
|
|
|
|
|
' ' : e x c l u s i v b e l e g t ! j e d e d a t e i o p e r a t i o n f <00> h r t z u m c r a s h v o n
|
|
|
|
|
|
' ' : a d m i n i s t r a !
|
|
|
|
|
|
|
|
|
|
|
|
d i r a [ L E D _ O P E N ] : = 1
|
|
|
|
|
|
f l _ s d w a v : = 1 ' f l a g s e t z e n d a s p l a y e r a k t i v i s t
|
|
|
|
|
|
' h e a d e r d a t e n e i n l e s e n
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( 2 2 )
|
|
|
|
|
|
w a v . c h a n g e N u m b e r O f C h a n n e l s ( r e s u l t : = ( s d f a t . r e a d C h a r a c t e r | ( s d f a t . r e a d C h a r a c t e r < < 8 ) ) )
|
|
|
|
|
|
w a v . c h a n g e S a m p l e R a t e ( s d f a t . r e a d C h a r a c t e r | ( s d f a t . r e a d C h a r a c t e r < < 8 ) | ( s d f a t . r e a d C h a r a c t e r < < 1 6 ) | ( s d f a t . r e a d C h a r a c t e r < < 2 4 ) )
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( 3 4 )
|
|
|
|
|
|
w a v . c h a n g e B i t s P e r S a m p l e ( r e s u l t : = ( s d f a t . r e a d C h a r a c t e r | ( s d f a t . r e a d C h a r a c t e r < < 8 ) ) )
|
|
|
|
|
|
w a v . c h a n g e S a m p l e S i g n ( r e s u l t = = 1 6 )
|
|
|
|
|
|
w a v . c h a n g e L e f t C h a n n e l V o l u m e ( l e f t V o l u m e )
|
|
|
|
|
|
w a v . c h a n g e R i g h t C h a n n e l V o l u m e ( r i g h t V o l u m e )
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( 4 0 )
|
|
|
|
|
|
w a v L e n : = ( \ s d f a t . l i s t S i z e - 4 4 ) / 5 1 2 ' a b f r a g e d e r d a t e i g r <00> <00> e , i s t r o b u s t e r a l s d e r d a t e i h e a d e r , d a e i n i g e
|
|
|
|
|
|
' d e n h e a d e r n i c h t r i c h t i g s e t z e n !
|
|
|
|
|
|
w a v P o i n t e r : = 0
|
|
|
|
|
|
w a v . s t a r t P l a y e r
|
|
|
|
|
|
' w a v a b s p i e l e n
|
|
|
|
|
|
r e p e a t ( w a v L e n )
|
|
|
|
|
|
! o u t a [ L E D _ O P E N ]
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( r e s u l t : = w a v . t r a n s f e r D a t a , 5 1 2 )
|
|
|
|
|
|
w a v P o i n t e r + +
|
|
|
|
|
|
c a s e r u n P l a y e r F l a g
|
|
|
|
|
|
1 : q u i t ' p l a y e r s t o p p e n
|
|
|
|
|
|
2 : w a v . c h a n g e L e f t C h a n n e l V o l u m e ( 0 ) ' p l a y e r p a u s e
|
|
|
|
|
|
w a v . c h a n g e R i g h t C h a n n e l V o l u m e ( 0 )
|
|
|
|
|
|
r e p e a t w h i l e r u n P l a y e r F l a g = = 2
|
|
|
|
|
|
w a v . c h a n g e L e f t C h a n n e l V o l u m e ( l e f t V o l u m e )
|
|
|
|
|
|
w a v . c h a n g e R i g h t C h a n n e l V o l u m e ( r i g h t V o l u m e )
|
|
|
|
|
|
|
|
|
|
|
|
' i f r u n P l a y e r F l a g ' s i g n a l p l a y e r s t o p p e n ?
|
|
|
|
|
|
' q u i t
|
|
|
|
|
|
|
|
|
|
|
|
' p l a y e r b e e d n e n
|
|
|
|
|
|
w a v . s t o p P l a y e r ' d a c e n g i n e s i g n a l s t o p s e n d e n
|
|
|
|
|
|
w a v . c l e a r D a t a
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e
|
|
|
|
|
|
f l _ s d w a v : = 0 ' f l a g s e t z e n p l a y e r i n a k t i v
|
|
|
|
|
|
d i r a [ L E D _ O P E N ] : = 0
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ l e f t v o l ' s d w : l a u t s t <00> r k e l i n k s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : l a u t s t <00> r k e l i n k s e i n s t e l l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 3 ] [ g e t . v o l ]
|
|
|
|
|
|
' ' : v o l - l a u t s t <00> r k e 0 . . 1 0 0
|
|
|
|
|
|
|
|
|
|
|
|
l e f t V o l u m e : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ r i g h t v o l ' s d w : l a u t s t <00> r k e r e c h t s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : l a u t s t <00> r k e r e c h t s e i n s t e l l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 4 ] [ g e t . v o l ]
|
|
|
|
|
|
' ' : v o l - l a u t s t <00> r k e 0 . . 1 0 0
|
|
|
|
|
|
|
|
|
|
|
|
r i g h t V o l u m e : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ p a u s e ' s d w : v e r s e t z t p l a y e r i n p a u s e - m o d u s
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : w a v - p l a y e r s i g n a l z u m f <00> r p a u s e / w e i t e r
|
|
|
|
|
|
' ' :
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 5 ] [ p u t . e r r ]
|
|
|
|
|
|
' ' : e r r - f e h l e r n u m m e r e n t s p r . l i s t e
|
|
|
|
|
|
|
|
|
|
|
|
c a s e r u n P l a y e r F l a g
|
|
|
|
|
|
0 : r u n P l a y e r F l a g : = 2
|
|
|
|
|
|
2 : r u n P l a y e r F l a g : = 0
|
|
|
|
|
|
b u s _ p u t c h a r ( 0 )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s d w _ p o s i t i o n ' s d w : p o s i t i o n d e s p l a y e r s a b f r a g e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s d w
|
|
|
|
|
|
' ' f u n k t i o n : p o s i t i o n d e s p l a y e r s a b f r a g e n
|
|
|
|
|
|
' ' :
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 6 ] [ s u b _ p u t l o n g . p o i n t e r ] [ s u b _ p u t l o n g . l e n ]
|
|
|
|
|
|
' ' : p o i n t e r - p o s i t i o n d e s p l a y e r s i m w a v / 5 1 2
|
|
|
|
|
|
' ' : l e n - l <00> n g e d e r w a v / 5 1 2
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( w a v P o i n t e r )
|
|
|
|
|
|
s u b _ p u t l o n g ( w a v L e n )
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f W A V F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ W A V
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - S I D C o g : D M P - P l a y e r - F u n k t i o n e n ( S I D C o g 2 )
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ S I D
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' d u m m y r o u t i n e f <00> r g e t c o g s
|
|
|
|
|
|
|
|
|
|
|
|
n o t e T a b l e w o r d 1 6 3 5 0 , 1 7 3 2 0 , 1 8 3 5 0 , 1 9 4 5 0 , 2 0 6 0 0 , 2 1 8 3 0 , 2 3 1 2 0 , 2 4 5 0 0 , 2 5 9 6 0 , 2 7 5 0 0 , 2 9 1 4 0 , 3 0 8 7 0
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
l o n g s i d r e g 1 ' a d r e s s e r e g i s t e r d e r s i d c o g 1
|
|
|
|
|
|
l o n g s i d r e g 2 ' a d r e s s e r e g i s t e r d e r s i d c o g 2
|
|
|
|
|
|
l o n g d m p c o g ' i d d e r d m p - p l a y e r - c o g
|
|
|
|
|
|
l o n g d m p s t a c k [ 5 0 ] ' s t a c k f <00> r d m p c o g
|
|
|
|
|
|
b y t e s i d b u f f e r [ 2 5 ] ' p u f f e r f <00> r d m p c o g
|
|
|
|
|
|
b y t e d m p s t a t u s ' 0 = i n a k t i v ; 1 = p l a y ; 2 = p a u s e
|
|
|
|
|
|
l o n g d m p p o s ' p o s i t i o n d e s p l a y e r s i m d u m p
|
|
|
|
|
|
l o n g d m p l e n ' l <00> n g e d e s d m p - f i l e s ( a n z a h l r e g s i t e r s <00> t z e )
|
|
|
|
|
|
b y t e d m p p a u s e ' p a u s e f l a g
|
|
|
|
|
|
b y t e s 1 b u f f e r [ 2 5 ] ' r e g i s t e r p u f f e r s i d 1
|
|
|
|
|
|
b y t e s 2 b u f f e r [ 2 5 ] ' r e g i s t e r p u f f e r s i d 2
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ m d m p p l a y | e r r ' s i d : d m p - d a t e i m o n o a u f s i d 2 a b s p i e l e n
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : s i d
|
|
|
|
|
|
' ' f u n k t i o n : d m p - d a t e i m o n o a u f s i d 2 a b s p i e l e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 1 5 7 ] [ s u b _ g e t s t r . f n ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : f n - n a m e d e r d m p - d a t e i
|
|
|
|
|
|
' ' : e r r o r - f e h l e r n u m m e r e n t s p r . l i s t
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . o p e n F i l e ( @ t b u f , " r " )
|
|
|
|
|
|
i f e r r = = 0
|
|
|
|
|
|
d m p p a u s e : = 0
|
|
|
|
|
|
d m p c o g : = c o g n e w ( s i d _ d m p m c o g , @ d m p s t a c k ) + 1 ' p l a y e r - c o g s t a r t e n
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ s d m p p l a y | e r r ' s i d : d m p - d a t e i s t e r e o a u f b e i d e n s i d ' s a b s p i e l e n
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ g e t s t r
|
|
|
|
|
|
e r r : = \ s d f a t . o p e n F i l e ( @ t b u f , " r " )
|
|
|
|
|
|
i f e r r = = 0
|
|
|
|
|
|
d m p p a u s e : = 0
|
|
|
|
|
|
d m p c o g : = c o g n e w ( s i d _ d m p s c o g , @ d m p s t a c k ) + 1 ' p l a y e r - c o g s t a r t e n
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r ) ' e r g e b n i s d e r o p e r a t i o n s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p s t o p ' s i d : d m p - p l a y e r s t o p p e n
|
|
|
|
|
|
i f d m p c o g
|
|
|
|
|
|
c o g s t o p ( d m p c o g - 1 )
|
|
|
|
|
|
d m p s t a t u s : = 0
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p p a u s e | i ' s i d : d m p - p l a y e r p a u s e
|
|
|
|
|
|
c a s e d m p p a u s e
|
|
|
|
|
|
0 : d m p p a u s e : = 1
|
|
|
|
|
|
r e p e a t u n t i l d m p s t a t u s = = 2
|
|
|
|
|
|
s i d 1 . s e t V o l u m e ( 0 )
|
|
|
|
|
|
s i d 2 . s e t V o l u m e ( 0 )
|
|
|
|
|
|
1 : d m p p a u s e : = 0
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p s t a t u s ' s i d : s t a t u s d e s d m p - p l a y e r s a b f r a g e n
|
|
|
|
|
|
b u s _ p u t c h a r ( d m p s t a t u s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p p o s ' s i d : p o s i t i o n / l <00> n g e d e s d m p - p l a y e r s a b f r a g e n
|
|
|
|
|
|
s u b _ p u t l o n g ( d m p p o s )
|
|
|
|
|
|
s u b _ p u t l o n g ( d m p l e n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ m u t e | s i d n r , i ' s i d : r u h e !
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 2 5
|
|
|
|
|
|
s i d b u f f e r [ i ] : = 0
|
|
|
|
|
|
s i d n r : = b u s _ g e t c h a r
|
|
|
|
|
|
c a s e s i d n r
|
|
|
|
|
|
1 : s i d 1 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r )
|
|
|
|
|
|
2 : s i d 2 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r )
|
|
|
|
|
|
3 : s i d 1 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r )
|
|
|
|
|
|
s i d 2 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p m c o g | i ' s i d : d m p c o g - m o n o , s i d 2
|
|
|
|
|
|
|
|
|
|
|
|
d m p s t a t u s : = 1 ' p l a y e r l <00> u f t
|
|
|
|
|
|
d m p l e n : = \ s d f a t . l i s t S i z e / 2 5
|
|
|
|
|
|
d m p p o s : = 0
|
|
|
|
|
|
r e p e a t d m p l e n
|
|
|
|
|
|
w a i t c n t ( c n t + ( c l k f r e q / p l a y R a t e ) ) ' w a r t e n a u f d e n c 6 4 - v b l : )
|
|
|
|
|
|
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( @ s i d b u f f e r , 2 5 ) ' 2 5 b y t e i n d e n p u f f e r e i n l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
' r e p e a t i f r o m 0 t o 2 4 ' d a b l o c k t r a n s f e r n i c h t s i c h e r f u n k t i o n i e r t
|
|
|
|
|
|
' s i d b u f f e r [ i ] : = s d f a t . r e a d C h a r a c t e r ' f <00> l l e n w i r d e n p u f f e r " m a n u e l l "
|
|
|
|
|
|
|
|
|
|
|
|
s i d 2 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r ) ' p u f f e r i n d i e s i d - r e g i s t e r s c h r e i b e n
|
|
|
|
|
|
d m p p o s + +
|
|
|
|
|
|
i f d m p p a u s e = = 1
|
|
|
|
|
|
d m p s t a t u s : = 2
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
d m p s t a t u s : = 1
|
|
|
|
|
|
r e p e a t w h i l e d m p p a u s e = = 1 ' w a r t e n s o l a n g e p a u s e
|
|
|
|
|
|
d m p s t a t u s : = 0 ' p l a y e r b e e n d e t
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ d m p s c o g | i ' s i d : d m p c o g - m o n o , s i d 2
|
|
|
|
|
|
|
|
|
|
|
|
d m p s t a t u s : = 1 ' p l a y e r l <00> u f t
|
|
|
|
|
|
d m p l e n : = \ s d f a t . l i s t S i z e / 2 5
|
|
|
|
|
|
d m p p o s : = 0
|
|
|
|
|
|
r e p e a t d m p l e n
|
|
|
|
|
|
w a i t c n t ( c n t + ( c l k f r e q / p l a y R a t e ) ) ' w a r t e n a u f d e n c 6 4 - v b l : )
|
|
|
|
|
|
|
|
|
|
|
|
\ s d f a t . r e a d D a t a ( @ s i d b u f f e r , 2 5 ) ' 2 5 b y t e i n d e n p u f f e r e i n l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
' r e p e a t i f r o m 0 t o 2 4 ' d a b l o c k t r a n s f e r n i c h t s i c h e r f u n k t i o n i e r t
|
|
|
|
|
|
' s i d b u f f e r [ i ] : = s d f a t . r e a d C h a r a c t e r ' f <00> l l e n w i r d e n p u f f e r " m a n u e l l "
|
|
|
|
|
|
|
|
|
|
|
|
s i d 1 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r ) ' p u f f e r i n d i e s i d - r e g i s t e r s c h r e i b e n
|
|
|
|
|
|
s i d 2 . u p d a t e R e g i s t e r s ( @ s i d b u f f e r ) ' p u f f e r i n d i e s i d - r e g i s t e r s c h r e i b e n
|
|
|
|
|
|
' e i n e s i d c o g e t w a s v e r s t i m m e n
|
|
|
|
|
|
w o r d [ s i d r e g 2 + 0 ] : = ( w o r d [ s i d r e g 2 + 0 ] < < 1 6 ) / t r u n c ( 6 5 5 3 6 . 0 / d e t u n e )
|
|
|
|
|
|
w o r d [ s i d r e g 2 + 8 ] : = ( w o r d [ s i d r e g 2 + 8 ] < < 1 6 ) / t r u n c ( 6 5 5 3 6 . 0 / d e t u n e )
|
|
|
|
|
|
w o r d [ s i d r e g 2 + 1 6 ] : = ( w o r d [ s i d r e g 2 + 1 6 ] < < 1 6 ) / t r u n c ( 6 5 5 3 6 . 0 / d e t u n e )
|
|
|
|
|
|
d m p p o s : = d m p p o s + 1
|
|
|
|
|
|
i f d m p p a u s e = = 1
|
|
|
|
|
|
d m p s t a t u s : = 2
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
d m p s t a t u s : = 1
|
|
|
|
|
|
r e p e a t w h i l e d m p p a u s e = = 1 ' w a r t e n s o l a n g e p a u s e
|
|
|
|
|
|
d m p s t a t u s : = 0 ' p l a y e r b e e n d e t
|
|
|
|
|
|
P R I s i d _ d m p r e g ' s i d : d m p r e g i s t e r s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 1 ] ) ' k a n a l 1
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 0 ] )
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 8 ] ) ' k a n a l 2
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 7 ] )
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 1 5 ] ) ' k a n a l 3
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 1 4 ] )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( b y t e [ @ s i d b u f f e r + 2 4 ] ) ' v o l u m e
|
|
|
|
|
|
|
|
|
|
|
|
P R I s i d _ b e e p | n
|
|
|
|
|
|
s i d 1 . s e t V o l u m e ( $ 0 F )
|
|
|
|
|
|
s i d 2 . s e t V o l u m e ( $ 0 F )
|
|
|
|
|
|
n : = b u s _ g e t c h a r
|
|
|
|
|
|
i f n = = 0 ' n o r m a l e r b e e p
|
|
|
|
|
|
s i d 1 . p l a y ( 0 , 7 5 0 0 , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
s i d 2 . p l a y ( 0 , 7 5 0 0 , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
w a i t c n t ( c n t + 1 0 _ 0 0 0 _ 0 0 0 )
|
|
|
|
|
|
s i d 1 . n o t e O f f ( 0 )
|
|
|
|
|
|
s i d 2 . n o t e O f f ( 0 )
|
|
|
|
|
|
s i d 1 . p l a y ( 0 , 1 1 5 0 0 , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
s i d 2 . p l a y ( 0 , 1 1 5 0 0 , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
w a i t c n t ( c n t + 1 0 _ 0 0 0 _ 0 0 0 )
|
|
|
|
|
|
s i d 1 . n o t e O f f ( 0 )
|
|
|
|
|
|
s i d 2 . n o t e O f f ( 0 )
|
|
|
|
|
|
e l s e ' b e e p m i t b e s t i m m t e r t o n h o e h e
|
|
|
|
|
|
s i d 1 . p l a y ( 0 , n o t e 2 f r e q ( n ) , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
s i d 2 . p l a y ( 0 , n o t e 2 f r e q ( n ) , 1 6 , 0 , 0 , 1 5 , 5 )
|
|
|
|
|
|
w a i t c n t ( c n t + 1 _ 0 0 0 _ 0 0 0 )
|
|
|
|
|
|
s i d 1 . n o t e O f f ( 0 )
|
|
|
|
|
|
s i d 2 . n o t e O f f ( 0 )
|
|
|
|
|
|
|
|
|
|
|
|
P R I n o t e 2 f r e q ( n o t e ) | o c t a v e
|
|
|
|
|
|
o c t a v e : = n o t e / 1 2
|
|
|
|
|
|
n o t e - = o c t a v e * 1 2
|
|
|
|
|
|
r e t u r n ( n o t e T a b l e [ n o t e ] > > ( 8 - o c t a v e ) )
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f S I D F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ S I D
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - A Y S - P l a y e r - F u n k t i o n e n
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ A Y S
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
b y t e A Y r e g s [ 1 6 ] ' A Y - R e g i s t e r
|
|
|
|
|
|
|
|
|
|
|
|
P U B a y _ s t a r t
|
|
|
|
|
|
a y . s t a r t ( g c # A _ S O U N D R , g c # A _ S O U N D L , @ A Y r e g s ) ' a u d i o R , a u d i o L , @ A Y r e g s
|
|
|
|
|
|
|
|
|
|
|
|
P U B a y _ s t o p
|
|
|
|
|
|
a y . s t o p
|
|
|
|
|
|
|
|
|
|
|
|
P U B a y _ u p d a t e R e g i s t e r s | i
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 1 3
|
|
|
|
|
|
A Y r e g s [ i ] : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t A Y r e g s [ 1 3 ] = = 2 5 5
|
|
|
|
|
|
A Y r e g s [ 1 3 ] : = A Y r e g s [ 1 3 ] & 1 5
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f A Y S F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ A Y S
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - R T C - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t S e c o n d s ' r t c : R e t u r n s t h e c u r r e n t s e c o n d ( 0 - 5 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 1 ] [ s u b _ p u t l o n g . s e c o n d s ]
|
|
|
|
|
|
' ' : s e c o n d s - c u r r e n t s e c o n d ( 0 - 5 9 )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t S e c o n d s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t M i n u t e s ' r t c : R e t u r n s t h e c u r r e n t m i n u t e ( 0 - 5 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 2 ] [ s u b _ p u t l o n g . m i n u t e s ]
|
|
|
|
|
|
' ' : m i n u t e s - c u r r e n t m i n u t e ( 0 - 5 9 )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t M i n u t e s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t H o u r s ' r t c : R e t u r n s t h e c u r r e n t h o u r ( 0 - 2 3 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 3 ] [ s u b _ p u t l o n g . h o u r s ]
|
|
|
|
|
|
' ' : h o u r s - c u r r e n t h o u r ( 0 - 2 3 )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t H o u r s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t D a y ' r t c : R e t u r n s t h e c u r r e n t d a y o f t h e w e e k ( 1 - 7 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 4 ] [ s u b _ p u t l o n g . d a y ]
|
|
|
|
|
|
' ' : d a y - c u r r e n t d a y ( 1 - 7 ) o f t h e w e e k
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t D a y )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t D a t e ' r t c : R e t u r n s t h e c u r r e n t d a t e ( 1 - 3 1 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 5 ] [ s u b _ p u t l o n g . d a t e ]
|
|
|
|
|
|
' ' : d a t e - c u r r e n t d a t e ( 1 - 3 1 ) o f t h e m o n t h
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t D a t e )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t M o n t h ' r t c : R e t u r n s t h e c u r r e n t m o n t h ( 1 - 1 2 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 6 ] [ s u b _ p u t l o n g . m o n t h ]
|
|
|
|
|
|
' ' : m o n t h - c u r r e n t m o n t h ( 1 - 1 2 )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t M o n t h )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t Y e a r ' r t c : R e t u r n s t h e c u r r e n t y e a r ( 2 0 0 0 - 2 0 9 9 ) f r o m t h e r e a l t i m e c l o c k .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 7 ] [ s u b _ p u t l o n g . y e a r ]
|
|
|
|
|
|
' ' : y e a r - c u r r e n t y e a r ( 2 0 0 0 - 2 0 9 9 )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t Y e a r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t S e c o n d s : s e c o n d s ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k s e c o n d s .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 8 ] [ s u b _ g e t l o n g . s e c o n d s ]
|
|
|
|
|
|
' ' : s e c o n d s - N u m b e r t o s e t t h e s e c o n d s t o b e t w e e n 0 - 5 9 .
|
|
|
|
|
|
r t c . s e t S e c o n d s ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t M i n u t e s : m i n u t e s ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k m i n u t e s .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 4 9 ] [ s u b _ g e t l o n g . m i n u t e s ]
|
|
|
|
|
|
' ' : m i n u t e s - N u m b e r t o s e t t h e m i n u t e s t o b e t w e e n 0 - 5 9 .
|
|
|
|
|
|
r t c . s e t M i n u t e s ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t H o u r s ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k h o u r s .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 0 ] [ s u b _ g e t l o n g . h o u r s ]
|
|
|
|
|
|
' ' : h o u r s - N u m b e r t o s e t t h e h o u r s t o b e t w e e n 0 - 2 3 . 5 1 :
|
|
|
|
|
|
r t c . s e t H o u r s ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t D a y ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k d a y .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 1 ] [ s u b _ g e t l o n g . d a y ]
|
|
|
|
|
|
' ' : d a y - N u m b e r t o s e t t h e d a y t o b e t w e e n 1 - 7 .
|
|
|
|
|
|
r t c . s e t D a y ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t D a t e ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k d a t e .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 2 ] [ s u b _ g e t l o n g . d a t e ]
|
|
|
|
|
|
' ' : d a t e - N u m b e r t o s e t t h e d a t e t o b e t w e e n 1 - 3 1 .
|
|
|
|
|
|
r t c . s e t D a t e ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t M o n t h ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k m o n t h .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 3 ] [ s u b _ g e t l o n g . m o n t h ]
|
|
|
|
|
|
' ' : m o n t h - N u m b e r t o s e t t h e m o n t h t o b e t w e e n 1 - 1 2 .
|
|
|
|
|
|
r t c . s e t M o n t h ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t Y e a r ' r t c : S e t s t h e c u r r e n t r e a l t i m e c l o c k y e a r .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 4 ] [ s u b _ g e t l o n g . y e a r ]
|
|
|
|
|
|
' ' : y e a r - N u m b e r t o s e t t h e y e a r t o b e t w e e n 2 0 0 0 - 2 0 9 9 .
|
|
|
|
|
|
r t c . s e t Y e a r ( s u b _ g e t l o n g )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ s e t N V S R A M | i n d e x , v a l u e ' r t c : S e t s t h e N V S R A M t o t h e s e l e c t e d v a l u e ( 0 - 2 5 5 ) a t t h e i n d e x ( 0 - 5 5 ) .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 5 ] [ s u b _ g e t l o n g . i n d e x ] [ s u b _ g e t l o n g . v a l u e ]
|
|
|
|
|
|
' ' : i n d e x - T h e l o c a t i o n i n N V R A M t o s e t ( 0 - 5 5 ) . %
|
|
|
|
|
|
' ' : v a l u e - T h e v a l u e ( 0 - 2 5 5 ) t o c h a n g e t h e l o c a t i o n t o . %
|
|
|
|
|
|
i n d e x : = s u b _ g e t l o n g
|
|
|
|
|
|
v a l u e : = s u b _ g e t l o n g
|
|
|
|
|
|
r t c . s e t N V S R A M ( i n d e x , v a l u e )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t N V S R A M ' r t c : G e t s t h e s e l e c t e d N V S R A M v a l u e a t t h e i n d e x ( 0 - 5 5 ) .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 6 ] [ s u b _ g e t l o n g . i n d e x ] [ s u b _ g e t l o n g . v a l u e ]
|
|
|
|
|
|
' ' : i n d e x - T h e l o c a t i o n i n N V R A M t o g e t ( 0 - 5 5 ) . %
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t N V S R A M ( s u b _ g e t l o n g ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ p a u s e F o r S e c o n d s ' r t c : P a u s e s e x e c u t i o n f o r a n u m b e r o f s e c o n d s .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 7 ] [ s u b _ g e t l o n g . n u m b e r ] [ s u b _ p u t l o n g . n u m b e r ]
|
|
|
|
|
|
' ' : N u m b e r - N u m b e r o f s e c o n d s t o p a u s e f o r b e t w e e n 0 a n d 2 , 1 4 7 , 4 8 3 , 6 4 7 .
|
|
|
|
|
|
' ' : R e t u r n s a p u e s d o r a n d o m v a l u e d e r i v e d f r o m t h e c u r r e n t c l o c k f r e q u e n c y a n d t h e t i m e w h e n c a l l e d .
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . p a u s e F o r S e c o n d s ( s u b _ g e t l o n g ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ p a u s e F o r M i l l i s e c o n d s ' r t c : P a u s e s e x e c u t i o n f o r a n u m b e r o f m i l l i s e c o n d s .
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 8 ] [ s u b _ g e t l o n g . n u m b e r ] [ s u b _ p u t l o n g . n u m b e r ]
|
|
|
|
|
|
' ' : N u m b e r - N u m b e r o f m i l l i s e c o n d s t o p a u s e f o r b e t w e e n 0 a n d 2 , 1 4 7 , 4 8 3 , 6 4 7 .
|
|
|
|
|
|
' ' : R e t u r n s a p u e s d o r a n d o m v a l u e d e r i v e d f r o m t h e c u r r e n t c l o c k f r e q u e n c y a n d t h e t i m e w h e n c a l l e d .
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . p a u s e F o r M i l l i s e c o n d s ( s u b _ g e t l o n g ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p r o b e R T C | h i v e i d
|
|
|
|
|
|
|
|
|
|
|
|
h i v e i d : = r t c . g e t N V S R A M ( N V R A M _ H I V E ) ' r e a d f i r s t b y t e o f h i v e i d
|
|
|
|
|
|
|
|
|
|
|
|
r t c . s e t N V S R A M ( N V R A M _ H I V E , h i v e i d ^ $ F ) ' w r i t e b a c k t o N V R A M w i t h f l i p p e d a l l b i t s
|
|
|
|
|
|
i f r t c . g e t N V S R A M ( N V R A M _ H I V E ) = = h i v e i d ^ $ F ' f l i p p e d b i t s a r e s t o r e d ?
|
|
|
|
|
|
r t c . s e t N V S R A M ( N V R A M _ H I V E , h i v e i d ) ' r e s t o r e f i r s t b y t e o f h i v e i d
|
|
|
|
|
|
r e t u r n ( T R U E ) ' R T C f o u n d
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
r t c . s e t N V S R A M ( N V R A M _ H I V E , h i v e i d ) ' s t i l l r e s t o r e f i r s t b y t e o f h i v e i d
|
|
|
|
|
|
r e t u r n ( F A L S E ) ' n o R T C f o u n d
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ t e s t ' r t c : T e s t i f R T C C h i p i s a v a i l a b l e
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : r t c
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 5 9 ] [ p u t . a v a l i a b l e ]
|
|
|
|
|
|
' ' : R e t u r n s T R U E i f R T C i s a v a i l a b l e , o t h e r w i s e F A L S E
|
|
|
|
|
|
b u s _ p u t c h a r ( p r o b e R T C )
|
|
|
|
|
|
|
|
|
|
|
|
P R I r t c _ g e t T i m e
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t H o u r s )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t M i n u t e s )
|
|
|
|
|
|
s u b _ p u t l o n g ( r t c . g e t S e c o n d s )
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f R T C F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - D C F 7 7 - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ D C F
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t I n S y n c ' d c f : S y n c - S t a t u s s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t I n S y n c )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ u p d a t e R T C ' d c f : R T C S y n c h r o n i s i e r e n
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
r t c . s e t H o u r s ( d c f . G e t H o u r s )
|
|
|
|
|
|
r t c . s e t M i n u t e s ( d c f . G e t M i n u t e s )
|
|
|
|
|
|
r t c . s e t S e c o n d s ( d c f . G e t S e c o n d s )
|
|
|
|
|
|
r t c . s e t Y e a r ( d c f . G e t Y e a r )
|
|
|
|
|
|
r t c . s e t M o n t h ( d c f . G e t M o n t h )
|
|
|
|
|
|
r t c . s e t D a t e ( d c f . G e t D a y )
|
|
|
|
|
|
r t c . s e t D a y ( d c f . G e t W e e k D a y )
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t B i t E r r o r
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t B i t E r r o r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t D a t a C o u n t
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t D a t a c o u n t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t B i t N u m b e r
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t B i t N u m b e r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t B i t L e v e l
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t B i t L e v e l )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t T i m e Z o n e
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t T i m e Z o n e )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t A c t i v e S e t
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t A c t i v e S e t )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ s t a r t ' d c f : D C F - E m p f a n g s t a r t e n
|
|
|
|
|
|
|
|
|
|
|
|
d c f . s t a r t
|
|
|
|
|
|
d c f o n : = 1
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ s t o p ' d c f : D C F - E m p f a n g s t o p p e n
|
|
|
|
|
|
|
|
|
|
|
|
d c f . s t o p
|
|
|
|
|
|
d c f o n : = 0
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ s t a t e ' d c f : S t a t u s d e s D C F - E m p f <00> n g e r s
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f o n )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t S e c o n d s
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t S e c o n d s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t M i n u t e s
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t M i n u t e s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t H o u r s
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t H o u r s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t W e e k D a y
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t W e e k D a y )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t D a y
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t D a y )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t M o n t h
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( d c f . G e t M o n t h )
|
|
|
|
|
|
|
|
|
|
|
|
P R I d c f _ g e t Y e a r
|
|
|
|
|
|
|
|
|
|
|
|
s u b _ p u t w o r d ( d c f . G e t Y e a r )
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f D C F 7 7 F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ D C F
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - P L X - F u n k t i o n e n
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ P L X
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ i n | a d d r ' p o r t e i n l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . i n ( a d d r ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ o u t | a d d r , d a t a ' p o r t a u s g e b e n
|
|
|
|
|
|
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r
|
|
|
|
|
|
d a t a : = b u s _ g e t c h a r
|
|
|
|
|
|
p l x . o u t ( a d d r , d a t a )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ c h | a d d r , c h a n ' a d - w a n d l e r a u s l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r
|
|
|
|
|
|
c h a n : = b u s _ g e t c h a r
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . a d _ c h ( a d d r , c h a n ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ g e t R e g | r e g ' p o l l e r - r e g i s t e r l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
r e g : = b u s _ g e t c h a r
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . g e t r e g ( r e g ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ s e t R e g | r e g , d a t a ' p o l l e r - r e g i s t e r s e t z e n
|
|
|
|
|
|
|
|
|
|
|
|
r e g : = b u s _ g e t c h a r
|
|
|
|
|
|
d a t a : = b u s _ g e t c h a r
|
|
|
|
|
|
p l x . s e t r e g ( r e g , d a t a )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ w r i t e | d a t a , a c k ' i 2 c b y t e s e n d e n
|
|
|
|
|
|
|
|
|
|
|
|
d a t a : = b u s _ g e t c h a r
|
|
|
|
|
|
a c k : = p l x . w r i t e ( d a t a )
|
|
|
|
|
|
b u s _ p u t c h a r ( a c k )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ r e a d | a c k , d a t a ' i 2 c b y t e e m p f a n g e n
|
|
|
|
|
|
|
|
|
|
|
|
a c k : = b u s _ g e t c h a r ' a c k - b i t
|
|
|
|
|
|
d a t a : = p l x . r e a d ( a c k )
|
|
|
|
|
|
b u s _ p u t c h a r ( d a t a )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ p i n g | a d d r ' a b f r a g e o b d e v i c e v o r h a n d e n i s t
|
|
|
|
|
|
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . p i n g ( a d d r ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ s e t A d d r | a d d a , p o r t s ' a d r e s s e n a d d a / p o r t s f <00> r p o l l e r s e t z e n
|
|
|
|
|
|
|
|
|
|
|
|
a d d a : = b u s _ g e t c h a r ' a d d r e s s a d d a
|
|
|
|
|
|
p o r t s : = b u s _ g e t c h a r ' a d d r e s s p o r t s
|
|
|
|
|
|
p l x . s e t a d r ( a d d a , p o r t s )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ g e t _ j o y ' J o y s t i c k a b f r a g e n ( 1 x 8 b i t P o r t )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( ! p l x . g e t r e g ( p l x # R _ I N P 0 ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ g e t _ p a d d l e ' P a d d l e a b f r a g e n ( 1 x 8 b i t P o r t 1 x A n a l o g )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( ! p l x . g e t r e g ( p l x # R _ I N P 0 ) )
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . g e t r e g ( p l x # R _ P A D 0 ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ g e t _ p a d ' P a d a b f r a g e n ( 1 x 8 b i t P o r t 2 x A n a l o g )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( ! p l x . g e t r e g ( p l x # R _ I N P 0 ) )
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . g e t r e g ( p l x # R _ P A D 0 ) )
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . g e t r e g ( p l x # R _ P A D 1 ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ p u t _ v e x | d a t a , r e g , a d d r ' R e g i s t e r i m V e n a t r i x - P l e x u s s c h r e i b e n
|
|
|
|
|
|
|
|
|
|
|
|
d a t a : = b u s _ g e t c h a r ' d a t u m e m p f a n g e n
|
|
|
|
|
|
r e g : = b u s _ g e t c h a r ' r e g i s t e r n u m m e r e m p f a n g e n
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r ' d e v i c e - a d r e s s e a m p f a n g e n
|
|
|
|
|
|
p l x . v e x p u t ( d a t a , r e g , a d d r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I p l x _ g e t _ v e x | r e g , a d d r ' R e g i s t e r i m V e n a t r i x - P l e x u s l e s e n
|
|
|
|
|
|
|
|
|
|
|
|
r e g : = b u s _ g e t c h a r ' r e g i s t e r n u m m e r e m p f a n g e n
|
|
|
|
|
|
a d d r : = b u s _ g e t c h a r ' d e v i c e - a d r e s s e e m p f a n g e n
|
|
|
|
|
|
b u s _ p u t c h a r ( p l x . v e x g e t ( r e g , a d d r ) )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f D C F 7 7 F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ P L X
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - L A N - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
# i f d e f _ _ A D M _ L A N
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
b y t e l a n _ s t a r t e d ' L A N g e s t a r t e t ?
|
|
|
|
|
|
l o n g s o c k h a n d l e [ s o c k # s N u m S o c k e t s ] ' H a n d l e f <00> r m i t s o c k . c o n n e c t / s o c k . l i s t e n e r s t e l l t e n S o c k e t
|
|
|
|
|
|
b y t e b u f i d x [ s o c k # s N u m S o c k e t s ] ' z u m H a n d l e - I n d e x g e h <00> r e n d e r P u f f e r - a b s c h n i t t
|
|
|
|
|
|
' ( z u m S o c k e t m i t d e m H a n d l e 2 g e h <00> r t d e r P u f f e r a b s c h n i t t a u s b u f i d x [ 2 ] )
|
|
|
|
|
|
b y t e b u f t x [ t x l e n * s o c k # s N u m S o c k e t s ] ' L A N S e n d e p u f f e r
|
|
|
|
|
|
|
|
|
|
|
|
D A T
|
|
|
|
|
|
|
|
|
|
|
|
s t r N V R A M F i l e b y t e " n v r a m . s a v " , 0 ' c o n t a i n s t h e 5 6 b y t e s o f N V R A M , i f R T C i s n o t a v a i l a b l e
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ s t a r t | h i v e i d , h i v e s t r , s t r p o s , m a c p o s , i , a
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : N e t z w e r k s t a r t e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 1 ]
|
|
|
|
|
|
|
|
|
|
|
|
i f ( n o t l a n _ s t a r t e d )
|
|
|
|
|
|
|
|
|
|
|
|
' P u f f e r i n d e x z u r <00> c k s e t z e n
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t s o c k # s N u m S o c k e t s
|
|
|
|
|
|
b u f i d x [ i + + ] : = $ F F ' 0 x F F : n i c h t z u g e w i e s e n
|
|
|
|
|
|
|
|
|
|
|
|
' I P - P a r a m e t e r s e t z e n
|
|
|
|
|
|
# i f d e f _ _ A D M _ R T C
|
|
|
|
|
|
i f p r o b e R T C
|
|
|
|
|
|
r e p e a t a f r o m 0 t o 1 5
|
|
|
|
|
|
i p _ a d d r [ a ] : = r t c . g e t N V S R A M ( N V R A M _ I P A D D R + a ) ' f i l l a d d r e s s e s
|
|
|
|
|
|
h i v e i d : = r t c . g e t N V S R A M ( N V R A M _ H I V E )
|
|
|
|
|
|
h i v e i d + = r t c . g e t N V S R A M ( N V R A M _ H I V E + 1 ) < < 8
|
|
|
|
|
|
h i v e i d + = r t c . g e t N V S R A M ( N V R A M _ H I V E + 2 ) < < 1 6
|
|
|
|
|
|
h i v e i d + = r t c . g e t N V S R A M ( N V R A M _ H I V E + 3 ) < < 2 4
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
# i f d e f _ _ A D M _ F A T
|
|
|
|
|
|
# i f n d e f _ _ A D M _ R T C
|
|
|
|
|
|
i f T R U E
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ R T C
|
|
|
|
|
|
d m a r k e r [ U M A R K E R ] : = s d f a t . g e t D i r C l u s t e r ' u - m a r k e r s e t z e n
|
|
|
|
|
|
i f n o t d m a r k e r [ S M A R K E R ] = = T R U E ' s - m a r k e r a k t i v i e r e n
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( d m a r k e r [ S M A R K E R ] )
|
|
|
|
|
|
i f n o t \ s d f a t . o p e n F i l e ( @ s t r N V R A M F i l e , " R " )
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( N V R A M _ I P A D D R )
|
|
|
|
|
|
r e p e a t a f r o m 0 t o 1 5
|
|
|
|
|
|
i p _ a d d r [ a ] : = \ s d f a t . r e a d C h a r a c t e r ' f i l l a d d r e s s e s
|
|
|
|
|
|
\ s d f a t . s e t C h a r a c t e r P o s i t i o n ( N V R A M _ H I V E )
|
|
|
|
|
|
h i v e i d : = \ s d f a t . r e a d C h a r a c t e r
|
|
|
|
|
|
h i v e i d + = \ s d f a t . r e a d C h a r a c t e r < < 8
|
|
|
|
|
|
h i v e i d + = \ s d f a t . r e a d C h a r a c t e r < < 1 6
|
|
|
|
|
|
h i v e i d + = \ s d f a t . r e a d C h a r a c t e r < < 2 4
|
|
|
|
|
|
\ s d f a t . c l o s e F i l e
|
|
|
|
|
|
i f n o t d m a r k e r [ U M A R K E R ] = = T R U E ' U - m a r k e r a k t i v i e r e n
|
|
|
|
|
|
s d f a t . s e t D i r C l u s t e r ( d m a r k e r [ U M A R K E R ] )
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ F A T
|
|
|
|
|
|
|
|
|
|
|
|
h i v e s t r : = n u m . T o S t r ( h i v e i d , n u m # D E C )
|
|
|
|
|
|
s t r p o s : = s t r s i z e ( h i v e s t r )
|
|
|
|
|
|
m a c p o s : = 5
|
|
|
|
|
|
r e p e a t w h i l e ( s t r p o s A N D m a c p o s )
|
|
|
|
|
|
s t r p o s - -
|
|
|
|
|
|
i f ( s t r p o s )
|
|
|
|
|
|
s t r p o s - -
|
|
|
|
|
|
m a c _ a d d r [ m a c p o s ] : = n u m . F r o m S t r ( h i v e s t r + s t r p o s , n u m # H E X )
|
|
|
|
|
|
b y t e [ h i v e s t r + s t r p o s ] : = 0
|
|
|
|
|
|
m a c p o s - -
|
|
|
|
|
|
|
|
|
|
|
|
s o c k . s t a r t ( A _ N E T C S , A _ N E T S C K , A _ N E T S I , A _ N E T S O , - 1 , @ m a c _ a d d r , @ i p _ a d d r )
|
|
|
|
|
|
l a n _ s t a r t e d : = t r u e
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ s t o p
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : N e t z w e r k a n h a l t e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 2 ]
|
|
|
|
|
|
|
|
|
|
|
|
i f l a n _ s t a r t e d
|
|
|
|
|
|
s o c k . s t o p
|
|
|
|
|
|
l a n _ s t a r t e d : = f a l s e
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ c o n n e c t | i p a d d r , r e m o t e p o r t , h a n d l e , h a n d l e i d x , i
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : a u s g e h e n d e T C P - V e r b i n d u n g <00> f f n e n ( m i t S e r v e r v e r b i n d e n )
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 3 ] [ s u b _ g e t l o n g . i p a d d r ] [ s u b _ g e t w o r d . r e m o t e p o r t ] [ p u t . h a n d l e i d x ]
|
|
|
|
|
|
' ' : i p a d d r - i p v 4 a d d r e s s p a c k e d i n t o a l o n g ( i e : 1 . 2 . 3 . 4 = > $ 0 1 _ 0 2 _ 0 3 _ 0 4 )
|
|
|
|
|
|
' ' : r e m o t e p o r t - p o r t n u m b e r t o c o n n e c t t o
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g ( i n d e x d e s k o m p l e t t e n h a n d l e )
|
|
|
|
|
|
|
|
|
|
|
|
i p a d d r : = s u b _ g e t l o n g
|
|
|
|
|
|
r e m o t e p o r t : = s u b _ g e t w o r d
|
|
|
|
|
|
|
|
|
|
|
|
' f r e i e n P u f f e r a b s c h n i t t s u c h e n
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t s o c k # s N u m S o c k e t s
|
|
|
|
|
|
i f b u f i d x [ i ] = = $ F F ' 0 x F F : n i c h t z u g e w i e s e n
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
i + +
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t ( h a n d l e : = s o c k . c o n n e c t ( i p a d d r , r e m o t e p o r t , @ b u f m a i n [ i * r x l e n ] , r x l e n , @ b u f t x [ i * t x l e n ] , t x l e n ) ) = = - 1 0 2
|
|
|
|
|
|
s o c k . r e s e t B u f f e r s ( h a n d l e )
|
|
|
|
|
|
h a n d l e i d x : = h a n d l e . b y t e [ 0 ] ' e x t r a c t t h e h a n d l e i n d e x f r o m t h e l o w e r 8 b i t s
|
|
|
|
|
|
s o c k h a n d l e [ h a n d l e i d x ] : = h a n d l e ' k o m p l e t t e s h a n d l e z u h a n d l e i n d e x s p e i c h e r n
|
|
|
|
|
|
b u f i d x [ i ] : = h a n d l e i d x
|
|
|
|
|
|
b u s _ p u t c h a r ( h a n d l e i d x ) ' h a n d l e i d x s e n d e n
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
b u s _ p u t c h a r ( $ F F )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ l i s t e n | p o r t , h a n d l e , h a n d l e i d x , i
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : P o r t f <00> r e i n g e h e n d e T C P - V e r b i n d u n g <00> f f n e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 4 ] [ s u b _ g e t w o r d . p o r t ] [ p u t . h a n d l e i d x ]
|
|
|
|
|
|
' ' : p o r t - z u <00> f f n e n d e P o r t n u m m e r
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g ( i n d e x d e s k o m p l e t t e n h a n d l e )
|
|
|
|
|
|
|
|
|
|
|
|
p o r t : = s u b _ g e t w o r d
|
|
|
|
|
|
|
|
|
|
|
|
' f r e i e n P u f f e r a b s c h n i t t s u c h e n
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t s o c k # s N u m S o c k e t s
|
|
|
|
|
|
i f b u f i d x [ i ] = = $ F F ' 0 x F F : n i c h t z u g e w i e s e n
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
i + +
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t ( h a n d l e : = s o c k . l i s t e n ( p o r t , @ b u f m a i n [ i * r x l e n ] , r x l e n , @ b u f t x [ i * t x l e n ] , t x l e n ) ) = = - 1 0 2
|
|
|
|
|
|
h a n d l e i d x : = h a n d l e . b y t e [ 0 ] ' e x t r a c t t h e h a n d l e i n d e x f r o m t h e l o w e r 8 b i t s
|
|
|
|
|
|
s o c k h a n d l e [ h a n d l e i d x ] : = h a n d l e ' k o m p l e t t e s h a n d l e z u h a n d l e i n d e x s p e i c h e r n
|
|
|
|
|
|
b u f i d x [ i ] : = h a n d l e i d x
|
|
|
|
|
|
b u s _ p u t c h a r ( h a n d l e i d x ) ' h a n d l e i d x s e n d e n
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
b u s _ p u t c h a r ( $ F F )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ w a i t c o n n t i m e o u t | h a n d l e i d x , t i m e o u t , t , c o n n e c t e d
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : b e s t i m m t e Z e i t a u f V e r b i n d u n g w a r t e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 5 ] [ g e t . h a n d l e i d x ] [ s u b _ g e t w o r d . t i m e o u t ] [ p u t . c o n n e c t e d ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r z u t e s t e n d e n V e r b i n d u n g
|
|
|
|
|
|
' ' : t i m e o u t - T i m e o u t i n M i l l i s e k u n d e n
|
|
|
|
|
|
' ' : c o n n e c t e d - T r u e , i f c o n n e c t e d
|
|
|
|
|
|
|
|
|
|
|
|
h a n d l e i d x : = b u s _ g e t c h a r
|
|
|
|
|
|
t i m e o u t : = s u b _ g e t w o r d
|
|
|
|
|
|
|
|
|
|
|
|
t : = c n t
|
|
|
|
|
|
r e p e a t u n t i l ( c o n n e c t e d : = s o c k . i s C o n n e c t e d ( s o c k h a n d l e [ h a n d l e i d x ] ) ) o r ( ( ( c n t - t ) / ( c l k f r e q / 1 0 0 0 ) ) > t i m e o u t )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( c o n n e c t e d )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ c l o s e | h a n d l e i d x , i
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : T C P - V e r b i n d u n g ( e i n - o d e r a u s g e h e n d ) s c h l i e <00> e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 6 ] [ g e t . h a n d l e i d x ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r z u s c h l i e <00> e n d e n V e r b i n d u n g
|
|
|
|
|
|
|
|
|
|
|
|
h a n d l e i d x : = b u s _ g e t c h a r
|
|
|
|
|
|
|
|
|
|
|
|
s o c k . c l o s e ( s o c k h a n d l e [ h a n d l e i d x ] )
|
|
|
|
|
|
|
|
|
|
|
|
' r e s e r v i e r t e n P u f f e r a b s c h n i t t f r e i g e b e n
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t s o c k # s N u m S o c k e t s
|
|
|
|
|
|
i f b u f i d x [ i + + ] = = h a n d l e i d x ' 0 x F F : n i c h t z u g e w i e s e n
|
|
|
|
|
|
b u f i d x [ i + + ] : = $ F F
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ r x t i m e | h a n d l e i d x , t i m e o u t , t , r x b y t e
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : a n g e g e b e n e Z e i t a u f A S C I I - Z e i c h e n w a r t e n
|
|
|
|
|
|
' ' : n i c h t v e r w e n d e n , w e n n a n d e r e s a l s A S C I I ( 0 - 1 2 7 ) e m p f a n g e n w i r d
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 7 ] [ g e t . h a n d l e i d x ] [ s u b _ g e t w o r d . t i m e o u t ] [ p u t . r x b y t e ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g
|
|
|
|
|
|
' ' : t i m e o u t - T i m e o u t i n M i l l i s e k u n d e n
|
|
|
|
|
|
' ' : r x b y t e - e m p f a n g e n e s Z e i c h e n ( 0 - 1 2 7 ) o d e r
|
|
|
|
|
|
' ' : s o c k # R E T B U F F E R E M P T Y ( - 1 ) w e n n T i m e o u t o d e r k e i n e V e r b i n d u n g m e h r
|
|
|
|
|
|
|
|
|
|
|
|
h a n d l e i d x : = b u s _ g e t c h a r
|
|
|
|
|
|
t i m e o u t : = s u b _ g e t w o r d
|
|
|
|
|
|
|
|
|
|
|
|
t : = c n t
|
|
|
|
|
|
r e p e a t u n t i l ( r x b y t e : = s o c k . r e a d B y t e N o n B l o c k i n g ( s o c k h a n d l e [ h a n d l e i d x ] ) ) = > 0 o r ( n o t s o c k . i s C o n n e c t e d ( s o c k h a n d l e [ h a n d l e i d x ] ) ) o r ( c n t - t ) / ( c l k f r e q / 1 0 0 0 ) > t i m e o u t
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( r x b y t e )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ r x d a t a | h a n d l e i d x , l e n , r x b y t e , e r r o r
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : b e i b e s t e h e n d e r V e r b i n d u n g d i e a n g e g e b e n e D a t e n m e n g e e m p f a n g e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 8 ] [ g e t . h a n d l e i d x ] [ s u b _ g e t l o n g . l e n ] [ p u t . b y t e 1 ] [ p u t . b y t e < l e n > ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g
|
|
|
|
|
|
' ' : l e n - A n z a h l z u e m p f a n g e n d e r B y t e s
|
|
|
|
|
|
' ' : e r r o r - u n g l e i c h N u l l b e i F e h l e r
|
|
|
|
|
|
|
|
|
|
|
|
e r r o r : = F A L S E
|
|
|
|
|
|
h a n d l e i d x : = b u s _ g e t c h a r
|
|
|
|
|
|
l e n : = s u b _ g e t l o n g
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t l e n
|
|
|
|
|
|
i f n o t e r r o r
|
|
|
|
|
|
r e p e a t w h i l e ( r x b y t e : = s o c k . r e a d B y t e N o n B l o c k i n g ( s o c k h a n d l e [ h a n d l e i d x ] ) ) < 0
|
|
|
|
|
|
i f n o t s o c k . i s C o n n e c t e d ( s o c k h a n d l e [ h a n d l e i d x ] )
|
|
|
|
|
|
e r r o r : = s o c k # E R R S O C K E T C L O S E D
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
b u s _ p u t c h a r ( r x b y t e )
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r o r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ t x d a t a | h a n d l e i d x , l e n , t x b y t e , e r r o r
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : b e i b e s t e h e n d e r V e r b i n d u n g d i e a n g e g e b e n e D a t e n m e n g e s e n d e n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 7 9 ] [ g e t . h a n d l e i d x ] [ s u b _ g e t l o n g . l e n ] [ g e t . b y t e 1 ] [ g e t . b y t e < l e n > ] [ p u t . e r r o r ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g
|
|
|
|
|
|
' ' : l e n - A n z a h l z u s e n d e n d e r B y t e s
|
|
|
|
|
|
' ' : e r r o r - u n g l e i c h N u l l b e i F e h l e r
|
|
|
|
|
|
|
|
|
|
|
|
e r r o r : = F A L S E
|
|
|
|
|
|
h a n d l e i d x : = b u s _ g e t c h a r
|
|
|
|
|
|
l e n : = s u b _ g e t l o n g
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t l e n
|
|
|
|
|
|
t x b y t e : = b u s _ g e t c h a r
|
|
|
|
|
|
i f n o t e r r o r
|
|
|
|
|
|
r e p e a t w h i l e s o c k . w r i t e B y t e N o n B l o c k i n g ( s o c k h a n d l e [ h a n d l e i d x ] , t x b y t e ) < 0
|
|
|
|
|
|
i f n o t s o c k . i s C o n n e c t e d ( s o c k h a n d l e [ h a n d l e i d x ] )
|
|
|
|
|
|
e r r o r : = s o c k # E R R S O C K E T C L O S E D
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( e r r o r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ r x b y t e
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : w e n n v o r h a n d e n , e i n e m p f a n g e n e s B y t e l e s e n
|
|
|
|
|
|
' ' : n i c h t v e r w e n d e n , w e n n a u c h $ F F e m p f a n g e n w e r d e n k a n n
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 8 0 ] [ g e t . h a n d l e i d x ] [ p u t . r x b y t e ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g
|
|
|
|
|
|
' ' : r x b y t e - e m p f a n g e n e s Z e i c h e n o d e r
|
|
|
|
|
|
' ' : s o c k # R E T B U F F E R E M P T Y ( - 1 ) w e n n k e i n Z e i c h e n v o r h a n d e n
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( s o c k . r e a d B y t e N o n B l o c k i n g ( s o c k h a n d l e [ b u s _ g e t c h a r ] ) )
|
|
|
|
|
|
|
|
|
|
|
|
P R I l a n _ i s c o n n e c t e d
|
|
|
|
|
|
' ' f u n k t i o n s g r u p p e : l a n
|
|
|
|
|
|
' ' f u n k t i o n : R e t u r n s t r u e i f t h e s o c k e t i s c o n n e c t e d , f a l s e o t h e r w i s e
|
|
|
|
|
|
' ' e i n g a b e : -
|
|
|
|
|
|
' ' a u s g a b e : -
|
|
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 8 1 ] [ g e t . h a n d l e i d x ] [ p u t . c o n n e c t e d ]
|
|
|
|
|
|
' ' : h a n d l e i d x - l f d . N r . d e r V e r b i n d u n g
|
|
|
|
|
|
' ' : c o n n e c t e d - T R U E w e n n v e r b u n d e n , s o n s t F A L S E
|
|
|
|
|
|
|
|
|
|
|
|
b u s _ p u t c h a r ( s o c k . i s C o n n e c t e d ( s o c k h a n d l e [ b u s _ g e t c h a r ] ) )
|
|
|
|
|
|
|
|
|
|
|
|
D A T
|
|
|
|
|
|
l o n g ' l o n g a l i g n m e n t f o r a d d r e s s e s
|
|
|
|
|
|
i p _ a d d r b y t e 1 0 , 1 , 1 , 1 ' i p
|
|
|
|
|
|
i p _ s u b n e t b y t e 2 5 5 , 2 5 5 , 2 5 5 , 0 ' s u b n e t - m a s k e
|
|
|
|
|
|
i p _ g a t e w a y b y t e 1 0 , 1 , 1 , 2 5 4 ' g a t e w a y
|
|
|
|
|
|
i p _ d n s b y t e 1 0 , 1 , 1 , 2 5 4 ' d n s
|
|
|
|
|
|
i p _ b o o t l o n g 0 ' b o o t - s e r v e r ( I P a d d r e s s i n l o n g )
|
|
|
|
|
|
m a c _ a d d r b y t e $ c 0 , $ d e , $ b a , $ b e , $ 0 0 , $ 0 0 ' m a c - a d r e s s e
|
|
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - E n d o f L A N F U N C T I O N S
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ L A N
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' d u m m y r o u t i n e f <00> r g e t c o g s
|
|
|
|
|
|
o r g
|
|
|
|
|
|
'
|
|
|
|
|
|
' E n t r y : d u m m y - a s s e m b l e r c o d e f u e r c o g t e s t
|
|
|
|
|
|
'
|
|
|
|
|
|
e n t r y j m p e n t r y ' j u s t l o o p s
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' f e s t e s f x - s l o t s
|
|
|
|
|
|
# i f d e f _ _ A D M _ H S S
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a
|
|
|
|
|
|
S o u n d F X 1 b y t e $ 0 1 , $ F F , $ 8 0 , $ 0 F , $ 0 F , $ 0 0 , $ 0 7 , $ 9 0
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F F , $ 1 0 , $ 0 0 , $ F F
|
|
|
|
|
|
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a
|
|
|
|
|
|
S o u n d F X 2 b y t e $ 0 5 , $ F F , $ 0 0 , $ 0 F , $ 0 4 , $ F F , $ 0 1 , $ 0 5
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F 1 , $ 2 4 , $ 0 0 , $ F F
|
|
|
|
|
|
' 1 6 s t e p S e q u e n c e r T a b l e
|
|
|
|
|
|
b y t e $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0
|
|
|
|
|
|
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a ' H e a r t b e a t
|
|
|
|
|
|
S o u n d F X 3 b y t e $ 0 0 , $ F F , $ 0 6 , $ 0 F , $ 0 9 , $ F F , $ 0 4 , $ 0 5
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F 1 , $ F 4 , $ F 0 , $ 0 F
|
|
|
|
|
|
b y t e $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0
|
|
|
|
|
|
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a ' H e a r t b e a t l o w
|
|
|
|
|
|
S o u n d F X 4 b y t e $ 0 0 , $ F E , $ 0 6 , $ 0 f , $ 1 5 , $ F F , $ 0 4 , $ 0 5
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F 1 , $ F 4 , $ F 0 , $ 0 F
|
|
|
|
|
|
b y t e $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ F 1 , $ 7 8 , $ 3 C , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0
|
|
|
|
|
|
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a ' T e l e f o n
|
|
|
|
|
|
S o u n d F X 5 b y t e $ 0 5 , $ 1 5 , $ 4 F , $ 0 F , $ 0 1 , $ 0 4 , $ 0 5 , $ 0 0
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F F , $ 0 0 , $ 0 0 , $ F F
|
|
|
|
|
|
|
|
|
|
|
|
' W a v ' L e n ' F r e ' V o l ' L F O ' L F W ' F M a ' A M a
|
|
|
|
|
|
S o u n d F X 6 b y t e $ 0 6 , $ F F , $ 5 F , $ 0 F , $ 0 1 , $ 0 3 , $ 0 1 , $ 0 0 ' T e l e p o r t
|
|
|
|
|
|
' A t t ' D e c ' S u s ' R e l
|
|
|
|
|
|
b y t e $ F F , $ 1 4 , $ 0 0 , $ F F
|
|
|
|
|
|
|
|
|
|
|
|
S o u n d F X 7 ' p l i n g
|
|
|
|
|
|
' W a v L e n F r e V o l L F O L F W F M a A M a A t t D e c S u s R e l
|
|
|
|
|
|
b y t e $ 0 4 , $ 0 1 , $ 8 0 , $ 0 F , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ F F , $ 0 0 , $ 0 0 , $ 8 0
|
|
|
|
|
|
b y t e $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 1
|
|
|
|
|
|
|
|
|
|
|
|
S o u n d F X 8 ' o n
|
|
|
|
|
|
' W a v L e n F r e V o l L F O L F W F M a A M a A t t D e c S u s R e l
|
|
|
|
|
|
b y t e $ 0 0 , $ 0 5 , $ 1 0 , $ 0 F , $ 0 8 , $ 0 2 , $ 0 5 , $ 0 0 , $ F F , $ 0 0 , $ 5 0 , $ 1 1
|
|
|
|
|
|
b y t e $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 1
|
|
|
|
|
|
|
|
|
|
|
|
S o u n d F X 9 ' o f f
|
|
|
|
|
|
' W a v L e n F r e V o l L F O L F W F M a A M a A t t D e c S u s R e l
|
|
|
|
|
|
b y t e $ 0 0 , $ 0 5 , $ 3 3 , $ 0 F , $ 0 5 , $ 0 3 , $ 1 0 , $ 0 0 , $ F F , $ 0 0 , $ 5 0 , $ 1 1
|
|
|
|
|
|
b y t e $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 0 , $ 0 1
|
|
|
|
|
|
|
|
|
|
|
|
# e n d i f ' _ _ A D M _ H S S
|
|
|
|
|
|
|
|
|
|
|
|
{ {
|
|
|
|
|
|
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
% T E R M S O F U S E : M I T L i c e n s e %
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %$%
|
|
|
|
|
|
%P e r m i s s i o n i s h e r e b y g r a n t e d , f r e e o f c h a r g e , t o a n y p e r s o n o b t a i n i n g a c o p y o f t h i s s o f t w a r e a n d a s s o c i a t e d d o c u m e n t a t i o n %
|
|
|
|
|
|
%f i l e s ( t h e " S o f t w a r e " ) , t o d e a l i n t h e S o f t w a r e w i t h o u t r e s t r i c t i o n , i n c l u d i n g w i t h o u t l i m i t a t i o n t h e r i g h t s t o u s e , c o p y , %
|
|
|
|
|
|
%m o d i f y , m e r g e , P R I l i s h , d i s t r i b u t e , s u b l i c e n s e , a n d / o r s e l l c o p i e s o f t h e S o f t w a r e , a n d t o p e r m i t p e r s o n s t o w h o m t h e S o f t w a r e %
|
|
|
|
|
|
%i s f u r n i s h e d t o d o s o , s u b j e c t t o t h e f o l l o w i n g c o n d i t i o n s : %
|
|
|
|
|
|
% %
|
|
|
|
|
|
%T h e a b o v e c o p y r i g h t n o t i c e a n d t h i s p e r m i s s i o n n o t i c e s h a l l b e i n c l u d e d i n a l l c o p i e s o r s u b s t a n t i a l p o r t i o n s o f t h e S o f t w a r e . %
|
|
|
|
|
|
% %
|
|
|
|
|
|
%T H E S O F T W A R E I S P R O V I D E D " A S I S " , W I T H O U T W A R R A N T Y O F A N Y K I N D , E X P R E S S O R I M P L I E D , I N C L U D I N G B U T N O T L I M I T E D T O T H E %
|
|
|
|
|
|
%W A R R A N T I E S O F M E R C H A N T A B I L I T Y , F I T N E S S F O R A P A R T I C U L A R P U R P O S E A N D N O N I N F R I N G E M E N T . I N N O E V E N T S H A L L T H E A U T H O R S O R %
|
|
|
|
|
|
%C O P Y R I G H T H O L D E R S B E L I A B L E F O R A N Y C L A I M , D A M A G E S O R O T H E R L I A B I L I T Y , W H E T H E R I N A N A C T I O N O F C O N T R A C T , T O R T O R O T H E R W I S E , %
|
|
|
|
|
|
%A R I S I N G F R O M , O U T O F O R I N C O N N E C T I O N W I T H T H E S O F T W A R E O R T H E U S E O R O T H E R D E A L I N G S I N T H E S O F T W A R E . %
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
