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