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