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