2011-11-11 17:41:02 +01:00
|
|
|
|
<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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
o d e r : M A N A G M E N T 1 C O G
|
|
|
|
|
|
T V 1 C O G
|
|
|
|
|
|
K E Y B 1 C O G
|
|
|
|
|
|
- - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
3 C O G ' s
|
|
|
|
|
|
|
|
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2012-01-08 11:52:30 +01:00
|
|
|
|
3 1 . 1 2 . 2 0 1 1 - d r 2 3 5 - a n p a s s u n g f <00> r v e r s c h i e d e n e z e i l e n u m b r <00> c h e i n p r i n t _ c h a r e i n g e f <00> g t
|
2013-02-20 19:17:53 +01:00
|
|
|
|
2 8 . 0 6 . 2 0 1 2 - d r 2 3 5 - f e h l e r i m l o a d e r b e h o b e n ( c o g 0 w u r d e n i c h t i n a l l e n f <00> l l e n b e e n d e t )
|
|
|
|
|
|
d a n k d a f <00> r g e h t a n p i c : )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
0 2 - 1 0 - 2 0 1 2 - u h e l d - v e r z <00> g e r t e s S c r o l l i n g b e i a b g e s c h a l t e t e m C u r s o r
|
|
|
|
|
|
2 1 - 1 0 - 2 0 1 2 - u h e l d - W i n d o w - F u n k t i o n e n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
2 8 - 1 1 - 2 0 1 2 - u h e l d - w a h l w e i s e E i n b i n d u n g v o n V G A - o d e r T V - T r e i b e r <00> b e r # d e f i n e
|
2013-04-16 21:09:12 +02:00
|
|
|
|
1 5 - 0 4 - 2 0 1 3 - d r 2 3 5 - k o n s t a n t e n f <00> r b e l l a t r i x - f u n k t i o n e n k o m p l e t t a u s g e l a g e r t
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
N o t i z e n :
|
|
|
|
|
|
- s e t h e a d e r
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
A C H T U N G : M i t V G A - T r e i b e r i s t r o w 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 .
|
|
|
|
|
|
. . . o d e r a l l g e m e i n g <00> l t i g f <00> r V G A u n d T V : r o w / v d r v # T L I N E S _ P E R _ R O W
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
|
|
{ { S T E U E R C O D E S
|
|
|
|
|
|
|
2013-04-16 21:09:12 +02:00
|
|
|
|
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 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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} }
|
2013-02-18 23:14:40 +01:00
|
|
|
|
|
|
|
|
|
|
' # d e f i n e _ _ T V
|
|
|
|
|
|
' # d e f i n e _ _ V G A
|
|
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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 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 )
|
2013-02-18 23:14:40 +01:00
|
|
|
|
C H I P _ V E R = $ 0 0 _ 0 1 _ 0 2 _ 0 2
|
2013-04-16 21:09:12 +02:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# i f d e f _ _ T V
|
2013-04-16 21:09:12 +02:00
|
|
|
|
C H I P _ S P E C = g c # b _ t v | g c # b _ k e y | g c # b _ t x t | g c # b _ w i n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ V G A
|
2013-04-16 21:09:12 +02:00
|
|
|
|
C H I P _ S P E C = g c # b _ v g a | g c # b _ k e y | g c # b _ t x t | g c # b _ w i n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# e n d i f
|
|
|
|
|
|
|
|
|
|
|
|
R E S X = v d r v # C O L S * 1 6
|
|
|
|
|
|
R E S Y = v d r v # R O W S * 1 6
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
T I L E S = v d r v # C O L S * v d r v # R O W S
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
U S E R C H A R S = 1 6 ' 8 x 2 l o g o
|
|
|
|
|
|
|
|
|
|
|
|
T A B A N Z = 8
|
2013-02-18 23:14:40 +01:00
|
|
|
|
S C R O L L D I F F = v d r v # T L I N E S _ P E R _ R O W * v d r v # C O L S
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2012-11-14 22:24:57 +01:00
|
|
|
|
W I N _ P _ S C R = 8 ' A n z a h l d e r W i n d o w s p e r S c r e e n
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
O B J
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# i f d e f _ _ T V
|
|
|
|
|
|
v d r v : " b e l f - t v "
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ V G A
|
|
|
|
|
|
v d r v : " b e l f - v g a "
|
|
|
|
|
|
# e n d i f
|
2011-11-11 17:41:02 +01:00
|
|
|
|
k e y b : " b e l - k e y b "
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s : " b e l - b u s "
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c : " g l o b - c o n " ' g l o b a l e k o n s t a n t e n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
l o n g a r r a y [ T I L E S / v d r v # T L I N E S _ P E R _ R O W * S C R E E N S ] ' b i l d s c h i r m p u f f e r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2012-01-08 11:52:30 +01:00
|
|
|
|
w o r d l c h a r ' l e t z t e s z e i c h e n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
b y t e t h i s _ w i n [ S C R E E N S ] ' N r . d e s a k t u e l l e n W i n d o w s p r o S c r e e n
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
b y t e c o l [ S C R E E N S * W I N _ P _ S C R ] ' s p a l t e n p o s i t i o n
|
|
|
|
|
|
b y t e r o w [ S C R E E N S * W I N _ P _ S C R ] ' 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 * W I N _ P _ S C R ] ' 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 * W I N _ P _ S C 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 [ S C R E E N S * W I N _ P _ S C R ] ' c u r s o r s t a t u s 1 = e i n
|
|
|
|
|
|
b y t e n e e d s _ n l [ S C R E E N S ] ' F l a g f <00> r v e r z <00> g e r t e s n e w l i n e , f a l l s c u r o f f
|
|
|
|
|
|
' n e e d s _ n l i s t e i n B i t - F e l d ! ! W I N _ P _ S C R d a r f d e s h a l b n i c h t > 8 s e i n ! !
|
|
|
|
|
|
b y t e n n l _ i d x ' B i t m a s k e f <00> r O p e r a t i o n e n a u f n e e d s _ n l
|
|
|
|
|
|
b y t e w i n d o w s [ S C R E E N S * W I N _ P _ S C R * 4 ] ' W i n d o w - G r e n z e n ( x 0 , y 0 , x n , y n p r o W i n d o w )
|
|
|
|
|
|
|
|
|
|
|
|
b y t e c c o l , c r o w ' c u r r e n t . . . w e r d e n d u r c h w i n _ s e t g e f <00> l l t
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' l o n g c c o l o r ' m u s s i n v d r v d e f i n i e r t w e r d e n ! ! ' c u r r e n t . . . w e r d e n d u r c h w i n _ s e t g e f <00> l l t
|
2012-11-14 22:24:57 +01:00
|
|
|
|
b y t e c c u r s o r , c c u r s t a t ' c u r r e n t . . .
|
|
|
|
|
|
b y t e c w c o l s , c w r o w s ' c u r r e n t . . . , B r e i t e u n d H <00> h e d e s a k t u e l l e n W i n d o w
|
|
|
|
|
|
b y t e c x 0 , c y 0 , c x n , c y n ' K o o r d i n a t e n d e s a k t u e l l e n W i n d o w s
|
|
|
|
|
|
b y t e c n e e d s _ n l
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
c a s e z e i c h e n
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ k e y 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 s e n d e n
|
|
|
|
|
|
g c # b _ k e y c o d e : k e y _ c o d e ' t a s t a t u r z e i c h e n s e n d e n
|
|
|
|
|
|
g c # b _ p r i n t c t r l : p r i n t _ c t r l ( b u s . g e t c h a r ) ' 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
|
|
|
|
|
|
g c # b _ k e y s p e c : k e y _ s p e c ' 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
|
|
|
|
|
|
g c # b _ p r i n t l o g o : p r i n t _ l o g o ' h i v e - l o g o a u s g e b e n
|
|
|
|
|
|
g c # b _ p r i n t q c h a r : p c h a r ( b u s . g e t 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 g e b e n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - W I N D O W
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ w d e f : w i n _ d e f i n e
|
|
|
|
|
|
g c # b _ w s e t : w i n _ s e t ( w s c r n r )
|
|
|
|
|
|
g c # b _ w g e t c o l s : w i n _ g e t c o l s
|
|
|
|
|
|
g c # b _ w g e t r o w s : w i n _ g e t r o w s
|
|
|
|
|
|
g c # b _ w o f r a m e : w i n _ o f r a m e
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C H I P - M A N A G M E N T
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ m g r l o a d : m g r _ l o a d ' n e u e n b e l l a t r i x - c o d e l a d e n
|
|
|
|
|
|
g c # b _ m g r w s c r : 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
|
|
|
|
|
|
g c # b _ m g r d s c r : 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
|
|
|
|
|
|
g c # b _ m g r g e t c o l : 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
|
|
|
|
|
|
g c # b _ m g r s e t c o l : 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
|
|
|
|
|
|
g c # b _ m g r g e t r e s x : 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
|
|
|
|
|
|
g c # b _ m g r g e t r e s y : 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
|
|
|
|
|
|
g c # b _ m g r g e t c o l s : 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
|
|
|
|
|
|
g c # b _ m g r g e t r o w s : 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
|
|
|
|
|
|
g c # b _ m g r g e t c o g s : 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
|
|
|
|
|
|
g c # b _ m g r g e t s p e c : m g r _ g e t s p e c ' s p e z i f i k a t i o n a b f r a g e n
|
|
|
|
|
|
g c # b _ m g r g e t v e r : m g r _ g e t v e r ' c o d e v e r s i o n a b f r a g e n
|
|
|
|
|
|
g c # b _ m g r r e b o o t : r e b o o t ' b e l l a t r i x n e u s t a r t e n
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' 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 : -
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . i n i t _ b u s
|
2013-04-16 21:09:12 +02:00
|
|
|
|
k e y b . s t a r t ( g c # b _ k e y b d , g c # b _ k e y b c ) ' t a s t a t u r p o r t s t a r t e n
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
r e p e a t i f r o m 0 t o S C R E E N S - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
s c r e e n _ i n i t ( i )
|
|
|
|
|
|
s e t _ c u r r e n t _ w i n ' w s c r n r = 0 - - > W i n d o w 1 v o n S c r e e n 0 a k t i v i e r e n
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
v d r v . s t a r t ( @ a r r a y )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' E i n s c h <00> n e s L o g o g i b t ' s z . Z . n u r b e i V G A
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
P R I s c r e e n _ i n i t ( i ) | x , w ' a l l e W i n d o w s v o n S c r e e n i a u f S t a n d a r d g r <00> <00> e s e t z e n , W i n d o w 1 w <00> h l e n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w o r d f i l l ( @ a r r a y . w o r d [ i * T I L E S ] , v d r v # S P A C E T I L E , t i l e s ) ' C L S
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c u r s o r [ i * W I N _ P _ S C 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 [ i * W I N _ P _ S C R ] : = 1 ' c u r s o r a n s c h a l t e n
|
|
|
|
|
|
n e e d s _ n l [ i ] : = 0 ' d a r f n u r a m B i l d s c h i r m e n d e 1 s e i n
|
|
|
|
|
|
x : = i * W I N _ P _ S C R * 4
|
|
|
|
|
|
w i n d o w s [ x + + ] : = 0 ' x 0
|
|
|
|
|
|
w i n d o w s [ x + + ] : = 0 ' y 0
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w i n d o w s [ x + + ] : = v d r v # C O L S - 1 ' x n
|
|
|
|
|
|
w i n d o w s [ x + + ] : = v d r v # R O W S - v d r v # T L I N E S _ P E R _ R O W ' y n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
r e p e a t w f r o m 1 t o W I N _ P _ S C R - 1
|
|
|
|
|
|
w i n d o w s [ x + + ] : = 0 ' x 0
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w i n d o w s [ x + + ] : = v d r v # D E F A U L T _ Y 0 ' y 0
|
|
|
|
|
|
w i n d o w s [ x + + ] : = v d r v # C O L S - 1 ' x n
|
|
|
|
|
|
w i n d o w s [ x + + ] : = v d r v # R O W S - v d r v # T L I N E S _ P E R _ R O W ' y n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c u r s o r [ i * W I N _ P _ S C R + w ] : = C U R S O R C H A R
|
|
|
|
|
|
c u r s t a t [ i * W I N _ P _ S C R + w ] : = 1
|
2013-02-18 23:14:40 +01:00
|
|
|
|
r o w [ i * W I N _ P _ S C R + w ] : = v d r v # D E F A U L T _ Y 0 ' h o m e
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c o l [ i * W I N _ P _ S C R + w ] : = 0 ' p o s 1
|
|
|
|
|
|
c o l o r [ i * W I N _ P _ S C R + w ] : = 0
|
|
|
|
|
|
t h i s _ w i n [ i ] : = 1
|
|
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
P R I m g r _ w s c r | s c r n r , o l d s c 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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' 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 ]
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' ' : w s c r n r - n u m m e r d e s s c r e e n s 1 . . S C R E E N S
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
s c r n r : = b u s . g e t c h a r - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f s c r n r = > 0 a n d s c r n r < S C R E E N S
|
|
|
|
|
|
o l d s c r : = w s c r n r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2012-11-14 22:24:57 +01:00
|
|
|
|
w i n _ s e t _ i n t ( o l d s c r , t h i s _ w i n [ w s c r n r ] )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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 ]
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' ' : s c r n r - n u m m e r d e s s c r e e n s 1 . . S C R E E N S
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
s c r n r : = b u s . g e t c h a r - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f s c r n r = > 0 a n d s c r n r < S C R E E N S
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' d i n d : = T I L E S * v d r v # T L I N E S _ P E R _ R O W * 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
|
|
|
|
|
|
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 d r v . s e t _ d s c r ( @ a r r a y + d i n d )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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 : -
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 ] [ 0 9 0 ] [ g e t . c n r ] [ b u s . p u t l o n g . c o l o r ]
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' : 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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c n r : = b u s . g e t c h a r
|
|
|
|
|
|
b u s . p u t l o n g ( v d r v . g e t _ c o l o r ( c n r ) )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
P U B m g r _ s e t c o l o r | c n r , c o l r ' c m g r : f a r b r e g i s t e r s e t z e n
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' 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 : -
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 ] [ 0 9 1 ] [ g e t . c n r ] [ b u s . g e t l o n g . c o l o r ]
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' : 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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c n r : = b u s . g e t c h a r
|
|
|
|
|
|
c o l r : = b u s . g e t l o n g
|
|
|
|
|
|
v d r v . s e t _ c o l o r ( c n r , c o l r )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t l o n g ( R E S X )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t l o n g ( R E S Y )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( v d r v # C O L S )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( v d r v # R O W S / v d r v # T L I N E S _ P E R _ R O W )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c o g s )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 7 ] [ b u s . p u t l o n g . s p e c ]
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' : s p e c - s p e z i f i k a t i o n
|
|
|
|
|
|
' '
|
|
|
|
|
|
' '
|
|
|
|
|
|
' ' + - - - - - - - - - -
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' ' | + - - - - - - - - w i n d o w
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' | | + - - - - - - - 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
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' ' 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 _ 1 0 0 1 0 1 1 0
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t l o n g ( C H I P _ S P E C )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
' ' b u s p r o t o k o l l : [ 0 9 8 ] [ b u s . p u t l o n g . v e r ]
|
2011-11-11 17:41:02 +01:00
|
|
|
|
' ' : 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 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
' ' C H I P _ V E R = $ 0 0 _ 0 1 _ 0 2 _ 0 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t l o n g ( C H I P _ V E R )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b y t e [ @ p r o g h d r ] [ i ] : = b u s . g e t c h a r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2013-02-20 19:17:53 +01:00
|
|
|
|
r e p e a t i f r o m 0 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
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( k e y b . g o t k e y )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( k e y c o d e )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( k e y c o d e > > 8 )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
C O N ' ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - W I N D O W - F U N K T I O N E N
|
|
|
|
|
|
|
|
|
|
|
|
P U B w i n _ d e f i n e | w , x 0 , y 0 , x n , y n , x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w : = b u s . g e t c h a r
|
|
|
|
|
|
x 0 : = b u s . g e t c h a r # > 0 < # v d r v # C O L S - 1
|
|
|
|
|
|
y 0 : = ( b u s . g e t c h a r * v d r v # T L I N E S _ P E R _ R O W ) # > 0 < # v d r v # R O W S - 1
|
|
|
|
|
|
x n : = b u s . g e t c h a r # > x 0 < # v d r v # C O L S - 1
|
|
|
|
|
|
y n : = ( b u s . g e t c h a r * v d r v # T L I N E S _ P E R _ R O W ) # > y 0 < # v d r v # R O W S - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f w < 1 o r w = > W I N _ P _ S C R ' W i n d o w 0 w i r d n i c h t <00> b e r s c h r i e b e n !
|
|
|
|
|
|
r e t u r n
|
|
|
|
|
|
x : = w s c r n r * W I N _ P _ S C R * 4 + w * 4
|
|
|
|
|
|
w i n d o w s [ x + + ] : = x 0
|
|
|
|
|
|
w i n d o w s [ x + + ] : = y 0
|
|
|
|
|
|
w i n d o w s [ x + + ] : = x n
|
|
|
|
|
|
w i n d o w s [ x ] : = y n
|
|
|
|
|
|
x : = w s c r n r * W I N _ P _ S C R + w
|
|
|
|
|
|
c o l [ x ] : = x 0
|
|
|
|
|
|
r o w [ x ] : = y 0
|
|
|
|
|
|
|
|
|
|
|
|
P U B w i n _ s e t ( o l d s c r ) | w
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w : = b u s . g e t c h a r
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f w < 0 o r w = > W I N _ P _ S C R
|
|
|
|
|
|
r e t u r n
|
|
|
|
|
|
w i n _ s e t _ i n t ( o l d s c r , w )
|
|
|
|
|
|
|
|
|
|
|
|
P R I w i n _ s e t _ i n t ( o l d s c r , w ) | x
|
|
|
|
|
|
' c u r r e n t - W e r t e i n a l t e s W i n d o w s i c h e r n
|
|
|
|
|
|
x : = o l d s c r * W I N _ P _ S C R + t h i s _ w i n [ o l d s c r ]
|
|
|
|
|
|
c o l [ x ] : = c c o l
|
|
|
|
|
|
r o w [ x ] : = c r o w
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c o l o r [ x ] : = v d r v . g e t _ c c o l o r
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c u r s o r [ x ] : = c c u r s o r
|
|
|
|
|
|
c u r s t a t [ x ] : = c c u r s t a t
|
|
|
|
|
|
n e e d s _ n l [ o l d s c r ] : = c n e e d s _ n l
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( $ 2 0 )
|
|
|
|
|
|
|
|
|
|
|
|
' c u r r e n t - W e r t e f <00> r n e u e s W i n d o w s e t z e n
|
|
|
|
|
|
t h i s _ w i n [ w s c r n r ] : = w
|
|
|
|
|
|
s e t _ c u r r e n t _ w i n
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
|
|
|
|
|
|
|
|
|
|
|
P R I s e t _ c u r r e n t _ w i n | x
|
|
|
|
|
|
x : = w s c r n r * W I N _ P _ S C R + t h i s _ w i n [ w s c r n r ]
|
|
|
|
|
|
c c o l : = c o l [ x ]
|
|
|
|
|
|
c r o w : = r o w [ x ]
|
2013-02-18 23:14:40 +01:00
|
|
|
|
v d r v . s e t _ c c o l o r ( c o l o r [ x ] )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c u r s o r : = c u r s o r [ x ]
|
|
|
|
|
|
c c u r s t a t : = c u r s t a t [ x ]
|
|
|
|
|
|
x : = w s c r n r * W I N _ P _ S C R * 4 + t h i s _ w i n [ w s c r n r ] * 4
|
|
|
|
|
|
c x 0 : = w i n d o w s [ x + + ]
|
|
|
|
|
|
c y 0 : = w i n d o w s [ x + + ]
|
|
|
|
|
|
c x n : = w i n d o w s [ x + + ]
|
|
|
|
|
|
c y n : = w i n d o w s [ x ]
|
|
|
|
|
|
c w c o l s : = c x n - c x 0 + 1
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c w r o w s : = c y n - c y 0 + v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
n n l _ i d x : = 1 < < t h i s _ w i n [ w s c r n r ]
|
|
|
|
|
|
c n e e d s _ n l : = n e e d s _ n l [ w s c r n r ]
|
|
|
|
|
|
|
|
|
|
|
|
P U B w i n _ g e t c o l s
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c w c o l s )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
P U B w i n _ g e t r o w s
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c w r o w s / v d r v # T L I N E S _ P E R _ R O W )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
P U B w i n _ o f r a m e | c , r
|
|
|
|
|
|
c : = c c o l ' a k t u e l l e W e r t e a u f h e b e n u n d a m E n d e z u r u e c k s e t z e n
|
|
|
|
|
|
r : = c r o w
|
|
|
|
|
|
|
|
|
|
|
|
i f c y 0 ' o b e r e r R a n d i s t s i c h t b a r
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c r o w : = c y 0 - v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c x 0
|
|
|
|
|
|
c c o l : = c x 0 - 1
|
|
|
|
|
|
s c h a r ( 1 5 9 )
|
|
|
|
|
|
r e p e a t c c o l f r o m c x 0 t o c x n
|
|
|
|
|
|
s c h a r ( 1 4 4 ) ' -
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c x n < v d r v # C O L S - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = c x n + 1
|
|
|
|
|
|
s c h a r ( 1 5 8 )
|
|
|
|
|
|
i f c x 0 ' l i n k e S e i t e i s t s i c h t b a r
|
|
|
|
|
|
c c o l : = c x 0 - 1
|
2013-02-18 23:14:40 +01:00
|
|
|
|
r e p e a t c r o w f r o m c y 0 t o c y n s t e p v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
s c h a r ( 1 4 5 ) ' |
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c x n < v d r v # C O L S - 1 ' r e c h t e S e i t e i s t s i c h t b a r
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = c x n + 1
|
2013-02-18 23:14:40 +01:00
|
|
|
|
r e p e a t c r o w f r o m c y 0 t o c y n s t e p v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
s c h a r ( 1 4 5 ) ' |
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c y n < v d r v # R O W S - v d r v # T L I N E S _ P E R _ R O W ' u n t e r e r R a n d i s t s i c h t b a r
|
|
|
|
|
|
c r o w : = c y n + v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c x 0
|
|
|
|
|
|
c c o l : = c x 0 - 1
|
|
|
|
|
|
s c h a r ( 1 5 7 )
|
|
|
|
|
|
r e p e a t c c o l f r o m c x 0 t o c x n
|
|
|
|
|
|
s c h a r ( 1 4 4 ) ' -
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c x n < v d r v # C O L S - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = c x n + 1
|
|
|
|
|
|
s c h a r ( 1 5 6 )
|
|
|
|
|
|
c c o l : = c
|
|
|
|
|
|
c r o w : = r
|
|
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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 } }
|
|
|
|
|
|
|
2012-01-08 11:52:30 +01:00
|
|
|
|
' a n p a s s u n g f <00> r d i e v e r s c h i e d e n e n z e i l e n u m b r <00> c h e
|
|
|
|
|
|
' d a m i t s o l l t e n a l l e d r e i v e r s i o n e n f u n k t i o n i e r e n :
|
|
|
|
|
|
' d o s / w i n : $ 0 d $ 0 a
|
|
|
|
|
|
' u n i x / l i n u x : $ 0 a
|
|
|
|
|
|
' m a c : $ 0 d
|
|
|
|
|
|
i f c = = $ 0 a a n d l c h a r = = $ 0 d
|
|
|
|
|
|
c : = 0
|
|
|
|
|
|
l c h a r : = c
|
|
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
c a s e c
|
flash\administra\admflash.spin
- Überarbeitung der Routine zum mounten der SD-Card. Da verschiedene Karten unterschiedliches Timing haben, wird jetzt solange versucht zu mounten, bis ein Erfolg eintritt, was zusätzlich akustisch durch einen leise anschwellenden Ton angezeigt wird. Das Verfahren ist jetzt wesentlich robuster.
- rtc.setSQWOUTState(1) --> rtc.setSQWOUTState(0) deaktiviert den Frequenzausgang, verringert damit lt. DS1307-Datenblatt den Pufferstrom von 480 auf 300 nA und erhöht somit die Pufferdauer der Batterie auf das 1,6-fache.
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen zugefügt
flash\bellatrix\belflash.spin
- Anpassung für verschiedene Zeilenumbrüche in print_char eingefügt.
flash\regnatix\regflash.spin
- Der Loader hat fälschlicherweise das Warmstartflag für die Ramdisk gesetzt, wodurch sie nicht resetfest war.
forth\fib.mod
- Fibonacci-Benchmark (iterativ) in Forth.
lib\adm-fat.spin
- Fehler in setCharacterPosition: Bei einem Wechsel von einer Position > 0 auf Position = 0 wurde der erste Sektor mit falschen Daten überschrieben.
lib\reg-ios.spin
- Funktionsset für Grafikmodus 0 eingefügt
- sfx_keyoff, sfx_stop eingefügt
- printq zugefügt: Ausgabe einer Zeichenkette ohne Steuerzeichen
- Korrektur char_ter_bs
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen eingefügt
- Bellatrix-Funktionen blktrans, bmgr_load eingefügt
- Funktion os_error zugefügt für zentrale Ausgabe von Fehlern
- Korrektur BS in input-Funktion
- Funktion printblk für schnellen Blocktransfer
- Div. Fehler in den Ramdisk-Funktionen, welche jetzt auch resetfest ist.
- Funktion rd_getback um Zeichen rückwärts aus der Ramdisk zu lesen.
- Funktion ram_getfree liefert freien Speicher im eRAM
system\regnatix\eram.spin
- Korrektur BS-Steuercode
system\regnatix\hplay.spin
- Der HSS-Player hat seine Daten fals im SYS-Modus im eRAM abgelegt und so die Ramdisk beschädigt. Korrektur der Speichernutzung.
system\regnatix\regime.spin
- Korrekte Initialisierung der Ramdisk (resetfest)
- Korrektur der Bisldschirminitialisierung nach dem Laden von Bellatrix-Code
- Verwendung von ios.os_error für die Fehlerausgabe
- Fehler im Kommando "reboot" beim Kaltstart behoben
- Korrektur Ausgabe von "cogs"
system\regnatix\time.spin
- Korrektur Tipfehler
system\regnatix\basic.spin
Ich habe Femto Basic entfernt, da es nicht integraler Bestandteil von TriOS ist und mir die Zeit fehlt es an den aktuelen Stand anzupassen.
2012-02-08 18:09:41 +01:00
|
|
|
|
$ 0 E . . $ F F : ' c h a r a c t e r ?
|
|
|
|
|
|
p c h a r ( c )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
flash\administra\admflash.spin
- Überarbeitung der Routine zum mounten der SD-Card. Da verschiedene Karten unterschiedliches Timing haben, wird jetzt solange versucht zu mounten, bis ein Erfolg eintritt, was zusätzlich akustisch durch einen leise anschwellenden Ton angezeigt wird. Das Verfahren ist jetzt wesentlich robuster.
- rtc.setSQWOUTState(1) --> rtc.setSQWOUTState(0) deaktiviert den Frequenzausgang, verringert damit lt. DS1307-Datenblatt den Pufferstrom von 480 auf 300 nA und erhöht somit die Pufferdauer der Batterie auf das 1,6-fache.
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen zugefügt
flash\bellatrix\belflash.spin
- Anpassung für verschiedene Zeilenumbrüche in print_char eingefügt.
flash\regnatix\regflash.spin
- Der Loader hat fälschlicherweise das Warmstartflag für die Ramdisk gesetzt, wodurch sie nicht resetfest war.
forth\fib.mod
- Fibonacci-Benchmark (iterativ) in Forth.
lib\adm-fat.spin
- Fehler in setCharacterPosition: Bei einem Wechsel von einer Position > 0 auf Position = 0 wurde der erste Sektor mit falschen Daten überschrieben.
lib\reg-ios.spin
- Funktionsset für Grafikmodus 0 eingefügt
- sfx_keyoff, sfx_stop eingefügt
- printq zugefügt: Ausgabe einer Zeichenkette ohne Steuerzeichen
- Korrektur char_ter_bs
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen eingefügt
- Bellatrix-Funktionen blktrans, bmgr_load eingefügt
- Funktion os_error zugefügt für zentrale Ausgabe von Fehlern
- Korrektur BS in input-Funktion
- Funktion printblk für schnellen Blocktransfer
- Div. Fehler in den Ramdisk-Funktionen, welche jetzt auch resetfest ist.
- Funktion rd_getback um Zeichen rückwärts aus der Ramdisk zu lesen.
- Funktion ram_getfree liefert freien Speicher im eRAM
system\regnatix\eram.spin
- Korrektur BS-Steuercode
system\regnatix\hplay.spin
- Der HSS-Player hat seine Daten fals im SYS-Modus im eRAM abgelegt und so die Ramdisk beschädigt. Korrektur der Speichernutzung.
system\regnatix\regime.spin
- Korrekte Initialisierung der Ramdisk (resetfest)
- Korrektur der Bisldschirminitialisierung nach dem Laden von Bellatrix-Code
- Verwendung von ios.os_error für die Fehlerausgabe
- Fehler im Kommando "reboot" beim Kaltstart behoben
- Korrektur Ausgabe von "cogs"
system\regnatix\time.spin
- Korrektur Tipfehler
system\regnatix\basic.spin
Ich habe Femto Basic entfernt, da es nicht integraler Bestandteil von TriOS ist und mir die Zeit fehlt es an den aktuelen Stand anzupassen.
2012-02-08 18:09:41 +01:00
|
|
|
|
r e t u r n
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ c l s : ' c l e a r s c r e e n ?
|
2013-02-18 23:14:40 +01:00
|
|
|
|
n : = w i n d + c y 0 * v d r v # C O L S + c x 0 ' l i n k s o b e n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
r e p e a t c w r o w s
|
2013-02-18 23:14:40 +01:00
|
|
|
|
w o r d f i l l ( @ a r r a y . w o r d [ n ] , v d r v # S P A C E T I L E , c w c o l s )
|
|
|
|
|
|
n + = v d r v # C O L S
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c r o w : = c y 0
|
|
|
|
|
|
c c o l : = c x 0
|
|
|
|
|
|
n e e d s _ n l [ w s c r n r ] & = ! n n l _ i d x
|
|
|
|
|
|
i f c c u r s t a t = = 1 ' c u r s o r e i n s c h a l t e n
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ h o m e : ' h o m e ?
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c r o w : = c y 0
|
|
|
|
|
|
c c o l : = c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ p o s 1 : ' p o s 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ c u r o n : ' c u r o n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c n e e d s _ n l & n n l _ i d x
|
|
|
|
|
|
n e w l i n e
|
|
|
|
|
|
c n e e d s _ n l ^ = n n l _ i d x
|
|
|
|
|
|
c c u r s t a t : = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ c u r o f f : ' c u r o f f
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c u r s t a t : = 0
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s c r o l l u p : ' s c r o l l u p
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( $ 2 0 )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c r o l l u p
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s c r o l l d o w n : ' s c r o l l d o w n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( $ 2 0 )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c r o l l d o w n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ b a c k s p a c e : ' b a c k s p a c e ?
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
|
|
|
|
|
i f c c o l > c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l - -
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ t a b : ' t a b
|
2011-11-11 17:41:02 +01:00
|
|
|
|
r e p e a t n f r o m 0 t o T A B A N Z - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c o l < t a b [ n ] + c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = t a b [ n ] + c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
q u i t
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ l f : ' L F a u s b l e n d e n
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2012-01-08 11:52:30 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
|
|
|
|
|
n e w l i n e
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ c r l f : ' r e t u r n ?
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
|
|
|
|
|
n e w l i n e
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s e t c u r : ' s e t c u r
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c o d e : = b u s . g e t c h a r
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c u r s o r : = c o d e
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( c o d e )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s e t x : ' s e t x
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c c o l : = b u s . g e t c h a r # > 0 < # v d r v # C O L S - 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s e t y : ' s e t y
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
2011-11-11 17:41:02 +01:00
|
|
|
|
s c h a r ( $ 2 0 )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c r o w : = ( b u s . g e t c h a r * v d r v # T L I N E S _ P E R _ R O W ) # > 0 < # v d r v # R O W S - v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ g e t x : ' g e t x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c c o l )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ g e t y : ' g e t y
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c r o w / v d r v # T L I N E S _ P E R _ R O W )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s e t c o l : ' s e t c o l o r
|
2013-02-18 23:14:40 +01:00
|
|
|
|
v d r v . s e t _ c c o l o r ( b u s . g e t c h a r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ s i n i t : ' s c r e e n i n i t
|
2012-11-14 22:24:57 +01:00
|
|
|
|
s c r e e n _ i n i t ( w s c r n r )
|
|
|
|
|
|
s e t _ c u r r e n t _ w i n
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ t a b s e t : ' t a b u l a t o r s e t z e n
|
2013-02-18 23:14:40 +01:00
|
|
|
|
n : = b u s . g e t c h a r
|
|
|
|
|
|
m : = b u s . g e t c h a r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
i f n = < ( T A B A N Z - 1 )
|
|
|
|
|
|
t a b [ n ] : = m
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ w s e t x : ' w i n s e t x
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( $ 2 0 )
|
|
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c o d e : = b u s . g e t c h a r
|
|
|
|
|
|
c c o l : = ~ c o d e # > - c w c o l s < # c w c o l s - 1 ' n e g a t i v - - > A b s t a n d v o n r e c h t s + 1
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c o d e < 0
|
|
|
|
|
|
c c o l + = c x n + 1
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
c c o l + = c x 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ w s e t y : ' w i n s e t y
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( $ 2 0 )
|
|
|
|
|
|
c n e e d s _ n l & = ! n n l _ i d x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c o d e : = b u s . g e t c h a r
|
2012-11-14 22:24:57 +01:00
|
|
|
|
~ c o d e
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c r o w : = ( c o d e * v d r v # T L I N E S _ P E R _ R O W ) # > - c w r o w s < # c w r o w s - v d r v # T L I N E S _ P E R _ R O W ' 2 t i l e s p r o z e i c h e n !
|
2012-11-14 22:24:57 +01:00
|
|
|
|
i f c o d e < 0
|
2013-02-18 23:14:40 +01:00
|
|
|
|
c r o w + = c y n + v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
e l s e
|
|
|
|
|
|
c r o w + = c y 0
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
s c h a r ( c c u r s o r )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ w g e t x : ' w i n g e t x
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( c c o l - c x 0 )
|
2013-04-16 21:09:12 +02:00
|
|
|
|
g c # b _ w g e t y : ' w i n g e t y
|
2013-02-18 23:14:40 +01:00
|
|
|
|
b u s . p u t c h a r ( ( c r o w - c y 0 ) / v d r v # T L I N E S _ P E R _ R O W )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
P R I s c h a r ( c )
|
|
|
|
|
|
v d r v . s c h a r ( c r o w * v d r v # C O L S + c c o l + w i n d , c )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
i f c n e e d s _ n l & n n l _ i d x
|
2011-11-11 17:41:02 +01:00
|
|
|
|
n e w l i n e
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c n e e d s _ n l ^ = n n l _ i d x
|
|
|
|
|
|
s c h a r ( c )
|
|
|
|
|
|
i f + + c c o l > c x n
|
|
|
|
|
|
i f c c u r s t a t = = 1
|
|
|
|
|
|
n e w l i n e
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
c n e e d s _ n l | = n n l _ i d x
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
2012-11-14 22:24:57 +01:00
|
|
|
|
c c o l : = c x 0
|
2013-02-18 23:14:40 +01:00
|
|
|
|
i f ( c r o w + = v d r v # T L I N E S _ P E R _ R O W ) > c y n
|
|
|
|
|
|
c r o w - = v d r v # T L I N E S _ P E R _ R O W
|
2012-11-14 22:24:57 +01:00
|
|
|
|
s c r o l l u p
|
|
|
|
|
|
|
|
|
|
|
|
P U B s c r o l l u p | z a d r ' 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 t a r t : l i n k e o b e r e E c k e , B r e i t e : W i n d o w - B r e i t e , S c h r i t t w e i t e : a b s o l u t e S c r e e n - B r e i t e
|
2013-02-18 23:14:40 +01:00
|
|
|
|
z a d r : = w i n d + c y 0 * v d r v # C O L S + c x 0 ' l i n k s o b e n
|
|
|
|
|
|
r e p e a t c w r o w s - v d r v # T L I N E S _ P E R _ R O W
|
|
|
|
|
|
w o r d m o v e ( @ a r r a y . w o r d [ z a d r ] , @ a r r a y . w o r d [ z a d r + S C R O L L D I F F ] , c w c o l s )
|
|
|
|
|
|
z a d r + = v d r v # C O L S
|
|
|
|
|
|
' 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 [ z a d r ] , v d r v # S P A C E T I L E , c w c o l s )
|
|
|
|
|
|
i f v d r v # T L I N E S _ P E R _ R O W > 1
|
|
|
|
|
|
w o r d f i l l ( @ a r r a y . w o r d [ z a d r + v d r v # C O L S ] , v d r v # S P A C E T I L E , c w c o l s )
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
|
|
|
|
|
P U B s c r o l l d o w n | z a d r ' 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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
z a d r : = w i n d + ( c y n + v d r v # T L I N E S _ P E R _ R O W - 1 ) * v d r v # C O L S + c x 0 ' l i n k s u n t e n
|
|
|
|
|
|
r e p e a t c w r o w s - v d r v # T L I N E S _ P E R _ R O W
|
|
|
|
|
|
w o r d m o v e ( @ a r r a y . w o r d [ z a d r ] , @ a r r a y . w o r d [ z a d r - S C R O L L D I F F ] , c w c o l s )
|
|
|
|
|
|
z a d r - = v d r v # C O L S
|
|
|
|
|
|
' 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 [ z a d r ] , v d r v # S P A C E T I L E , c w c o l s )
|
|
|
|
|
|
i f v d r v # T L I N E S _ P E R _ R O W > 1
|
|
|
|
|
|
w o r d f i l l ( @ a r r a y . w o r d [ z a d r - v d r v # C O L S ] , v d r v # S P A C E T I L E , c w c o l s )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
x : = b u s . g e t c h a r
|
|
|
|
|
|
y : = b u s . g e t c h a r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
_ p r i n t _ l o g o ( x , y )
|
|
|
|
|
|
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# i f d e f _ _ T V
|
|
|
|
|
|
P R I _ p r i n t _ l o g o ( x , y ) | c , r
|
|
|
|
|
|
c : = c c o l
|
|
|
|
|
|
r : = c r o w
|
|
|
|
|
|
c c o l : = x # > 0 < # v d r v # C O L S - 1
|
|
|
|
|
|
c r o w : = ( y * v d r v # T L I N E S _ P E R _ R O W ) # > 0 < # v d r v # R O W S - v d r v # T L I N E S _ P E R _ R O W ' 2 t i l e s p r o z e i c h e n !
|
|
|
|
|
|
p c h a r ( " " )
|
|
|
|
|
|
p c h a r ( " H " )
|
|
|
|
|
|
p c h a r ( " i " )
|
|
|
|
|
|
p c h a r ( " v " )
|
|
|
|
|
|
p c h a r ( " e " )
|
|
|
|
|
|
c c o l : = c
|
|
|
|
|
|
c r o w : = r
|
|
|
|
|
|
# e n d i f
|
|
|
|
|
|
# i f d e f _ _ V G A
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
2013-02-18 23:14:40 +01:00
|
|
|
|
# e n d i f
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
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 )
|
2013-02-18 23:14:40 +01:00
|
|
|
|
a r r a y . w o r d [ y P o s * v d r v # C O L S + x P o s + w i n d ] : = p B M P + ( c < < 6 ) + c l r
|
2011-11-11 17:41:02 +01:00
|
|
|
|
c + +
|
|
|
|
|
|
x P o s + +
|
|
|
|
|
|
y P o s + +
|
|
|
|
|
|
x P o s : = t
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
D A T
|
|
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
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
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
D A T
|
|
|
|
|
|
|
2012-11-14 22:24:57 +01:00
|
|
|
|
|
2011-11-11 17:41:02 +01:00
|
|
|
|
{ {
|
|
|
|
|
|
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
% 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 . %
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
