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