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