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