274 lines
21 KiB
Plaintext
274 lines
21 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
|
|||
|
|
|
|||
|
|
m a x _ x = x _ t i l e s * 1 6
|
|||
|
|
m a x _ y = y _ t i l e s * 1 6
|
|||
|
|
|
|||
|
|
m a x _ m x = 1 6
|
|||
|
|
m a x _ m y = 1 6
|
|||
|
|
m a x _ m a t r i x = m a x _ m x * m a x _ m y
|
|||
|
|
m x _ s t e p = m a x _ x / m a x _ m x
|
|||
|
|
m y _ s t e p = m a x _ y / m a x _ m y
|
|||
|
|
|
|||
|
|
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
b y t e m a t r i x [ m a x _ m a t r i x ]
|
|||
|
|
|
|||
|
|
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 _ x o r " ' l o c a t e d i n d e f a u l t L i b r a r y
|
|||
|
|
m o u s e : " m o u s e "
|
|||
|
|
|
|||
|
|
P U B m a i n | x , y , r f l a g , k , m x , m y
|
|||
|
|
|
|||
|
|
i n i t _ s u b s y s t e m
|
|||
|
|
|
|||
|
|
x : = m a x _ x / 2
|
|||
|
|
y : = m a x _ y / 2
|
|||
|
|
|
|||
|
|
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 ( 3 , 0 )
|
|||
|
|
|
|||
|
|
r e p e a t m x f r o m 0 t o m a x _ m x - 1
|
|||
|
|
g r . p l o t ( 0 , m x * m x _ s t e p )
|
|||
|
|
g r . l i n e ( m a x _ y , m x * m x _ s t e p )
|
|||
|
|
|
|||
|
|
r e p e a t m y f r o m 0 t o m a x _ m y - 1
|
|||
|
|
g r . p l o t ( m y * m y _ s t e p , 0 )
|
|||
|
|
g r . l i n e ( m y * m y _ s t e p , m a x _ x )
|
|||
|
|
|
|||
|
|
g r . c o l o r w i d t h ( 2 , 1 0 )
|
|||
|
|
g r . p l o t ( x , y )
|
|||
|
|
|
|||
|
|
' m o u s e f u n c t i o n s
|
|||
|
|
x + = m o u s e . d e l t a _ x
|
|||
|
|
y + = m o u s e . d e l t a _ y
|
|||
|
|
r f l a g : = m o u s e . b u t t o n s
|
|||
|
|
|
|||
|
|
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 )
|
|||
|
|
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 ' f a r b v e r l a u f
|
|||
|
|
|
|||
|
|
' 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 )
|
|||
|
|
|
|||
|
|
' 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 )
|
|||
|
|
|
|||
|
|
' m o u s e
|
|||
|
|
m o u s e . s t a r t ( 1 9 , 1 8 )
|
|||
|
|
|
|||
|
|
P U B s e t _ t i l e _ c o l o r ( t i l e x , t i l e y , p a l e t t e ) | t e m p ' d o u g @ o p e n g e e k . o r g
|
|||
|
|
|
|||
|
|
' T h e s c r e e n [ ] a r r a y c o n t a i n s b o t h t h e t i l e H U B i m a g e d a t a a d d r e s s , a n d a n i n d e x i n t o t h e c o l o r p a l e t t e
|
|||
|
|
' a r r a y , w h i c h c a n b e d e f i n e d a s a D A T b l o c k , a s d o n e i n t h i s p r o g r a m , o r a s a V A R a s d o n e i n t h e
|
|||
|
|
' o r i g i n a l
|
|||
|
|
|
|||
|
|
' T h e l o w e r 1 0 b i t s a r e t h e H U B i m a g e a d d r e s s d a t a ( w h e r e t h e p i x e l s a r e d e f i n e d )
|
|||
|
|
' T h e u p p e r 6 b i t s p o i n t t o s e t s o f c o l o r s , c o n t a i n e d i n t h e c o l o r s [ ] a r r a y
|
|||
|
|
|
|||
|
|
t e m p : = s c r e e n [ t i l e y * t v _ h c + t i l e x ] ' g e t c u r r e n t s c r e e n t i l e v a l u e
|
|||
|
|
t e m p : = t e m p & % 0 0 0 0 0 0 1 1 _ 1 1 1 1 1 1 1 1 ' c l e a r c o l o r p a l e t t e i n d e x v a l u e , l e a v i n g i m a g e a d d r e s s b i t s
|
|||
|
|
t e m p : = t e m p + ( p a l e t t e < < 1 0 ) ' r e p l a c e c o l o r p a l e t t e i n d e x v a l u e w i t h t h e n e w o n e
|
|||
|
|
s c r e e n [ t i l e y * t v _ h c + t i l e x ] : = t e m p ' u p d a t e t h e s c r e e n
|
|||
|
|
|
|||
|
|
|
|||
|
|
P U B s e t _ c o l o r _ p a l e t t e ( p a l e t t e _ n u m , p a l e t t e _ c o l o r s ) ' d o u g @ o p e n g e e k . o r g
|
|||
|
|
|
|||
|
|
' o n l y 6 4 p a l e t t e s p o s s i b l e . . . ( & % 1 1 1 1 1 1 ) i n s u r e s n o o v e r w r i t e o c c u r s o n l a r g e r v a l u e s
|
|||
|
|
' t h e c o l o r s r u n l i k e t h i s i n t h e l o n g : 3 3 _ 2 2 _ 1 1 _ 0 0 , w h e r e 3 3 = c o l o r 3 , 2 2 = c o l o r 2 , e t c . . .
|
|||
|
|
' c o l o r 0 0 i s t h e b a c k g r o u n d c o l o r .
|
|||
|
|
|
|||
|
|
c o l o r s [ p a l e t t e _ n u m & % 1 1 1 1 1 1 ] : = p a l e t t e _ c o l o r s ' W r i t e t h e c o l o r s i n t o t h e c o l o r s [ ] a r r a y
|
|||
|
|
|
|||
|
|
P U B s e t _ t i l e _ a d d r e s s ( t i l e x , t i l e y , H U B _ a d d r e s s ) | t e m p ' d o u g @ o p e n g e e k . o r g
|
|||
|
|
|
|||
|
|
t e m p : = s c r e e n [ t i l e y * t v _ h c + t i l e x ] ' G e t c u r r e n t s c r e e n t i l e v a l u e f r o m s c r e e n [ ] a r r a y
|
|||
|
|
t e m p : = t e m p & % 1 1 1 1 1 1 0 0 _ 0 0 0 0 0 0 0 0 ' Z e r o o u t t h e s c r e e n m e m o r y a d d r e s s p o i n t e r b i t s , l e a v i n g c o l o r b i t s
|
|||
|
|
t e m p : = t e m p + ( H U B _ a d d r e s s > > 6 ) ' S e t s c r e e n m e m o r y p o i n t e r b i t s , f r o m t h e m o s t s i g n i f i c a n t b i t s i n t h e H U B
|
|||
|
|
' a d d r e s s g i v e n . T i l e s m u s t b e 6 4 b y t e a l i g n e d , d u e t o h o w t h e T V d r i v e r
|
|||
|
|
' d e c o d e s t h e s c r e e n a r r a y b i t s , 6 f o r c o l o r , 1 0 f o r s c r e e n p i x e l a d d r e s s i n H U B
|
|||
|
|
s c r e e n [ t i l e y * t v _ h c + t i l e x ] : = t e m p ' U p d a t e s c r e e n a r r a y f o r t h a t t i l e , r e f l e c t i n g a d d r e s s c h a n g e .
|
|||
|
|
|
|||
|
|
P U B g e t _ t i l e _ a d d r e s s ( t i l e x , t i l e y ) | t e m p ' d o u g @ o p e n g e e k . o r g
|
|||
|
|
|
|||
|
|
t e m p : = s c r e e n [ t i l e y * t v _ h c + t i l e x ] ' G e t c u r r e n t s c r e e n t i l e v a l u e f r o m s c r e e n [ ] a r r a y
|
|||
|
|
t e m p : = t e m p & % 0 0 0 0 0 0 1 1 _ 1 1 1 1 1 1 1 1 ' Z e r o o u t t h e c o l o r b i t s , l e a v i n g j u s t t h e a d d r e s s
|
|||
|
|
t e m p : = t e m p < < 6 ' S h i f t t o r e f l e c t e f f e c t i v e H U B a d d r e s s . T i l e s m u s t
|
|||
|
|
' b e 6 4 b y t e a l i g n e d , d u e t o h o w t h e T V d r i v e r
|
|||
|
|
' d e c o d e s t h e s c r e e n a r r a y b i t s , 6 f o r c o l o r , 1 0 f o r
|
|||
|
|
' s c r e e n p i x e l a d d r e s s i n H U B
|
|||
|
|
r e t u r n t e m p ' r e t u r n t h a t a d d r e s s !
|
|||
|
|
|
|||
|
|
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
|