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