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