160 lines
11 KiB
Plaintext
160 lines
11 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
|
|||
|
|
|
|||
|
|
|
|||
|
|
P U B m a i n | i , n , t
|
|||
|
|
|
|||
|
|
i n i t _ s u b s y s t e m
|
|||
|
|
|
|||
|
|
r e p e a t
|
|||
|
|
|
|||
|
|
g r . w i d t h ( 1 5 )
|
|||
|
|
g r . c o l o r ( 1 )
|
|||
|
|
g r . p l o t ( - 1 2 8 , 9 6 ) ' e c k e l i n k s o b e n
|
|||
|
|
g r . p l o t ( 1 2 8 , 9 6 ) ' e c k e r e c h t s o b e n
|
|||
|
|
g r . p l o t ( 0 , 0 ) ' z e n t r u m
|
|||
|
|
g r . p l o t ( - 1 2 8 , - 9 6 ) ' e c k e l i n k s u n t e n
|
|||
|
|
g r . p l o t ( 1 2 8 , - 9 6 ) ' e c k e r e c h t s u n t e n
|
|||
|
|
g r . c o l o r ( 0 )
|
|||
|
|
g r . p l o t ( - 1 0 , 0 )
|
|||
|
|
g r . c o l o r ( 2 )
|
|||
|
|
g r . p l o t ( 1 0 , 0 )
|
|||
|
|
g r . c o l o r ( 3 )
|
|||
|
|
g r . p l o t ( 2 0 , 0 )
|
|||
|
|
' g r . a r c (
|
|||
|
|
|
|||
|
|
g r . c o p y ( d i s p l a y _ b a s e )
|
|||
|
|
|
|||
|
|
P R I i n i t _ s u b s y s t e m | i , d x , d y
|
|||
|
|
|
|||
|
|
' 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 )
|
|||
|
|
|
|||
|
|
' i n i t t i l e s c r e e n
|
|||
|
|
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 , t v _ h c < < 3 , t v _ v c < < 3 , 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 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
|
|||
|
|
|
|||
|
|
|