231 lines
16 KiB
Plaintext
231 lines
16 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
|
|||
|
|
|
|||
|
|
s _ o b j = 2 0 0 ' s c a l e
|
|||
|
|
d _ o b j = 6 4 ' d u r c h m e s s e r
|
|||
|
|
r _ o b j = d _ o b j / 2 ' r a d i u s
|
|||
|
|
r o t v a r = 1 4 ' r o t a t i o n s v a r i a n z
|
|||
|
|
|
|||
|
|
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
|
|||
|
|
m o u s e : " m o u s e "
|
|||
|
|
|
|||
|
|
P U B m a i n | x , y , r o t , d x , d y , j , m o u s e x , m o u s e y , r f l a g
|
|||
|
|
|
|||
|
|
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 o t : = 0
|
|||
|
|
d x : = 1
|
|||
|
|
d y : = 1
|
|||
|
|
|
|||
|
|
r e p e a t
|
|||
|
|
g r . c l e a r
|
|||
|
|
|
|||
|
|
' o b j e k t z e i c h n e n
|
|||
|
|
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 ( x + j * 2 , y + j * 5 , s _ o b j - j * 4 0 , r o t , @ v e c d e f 2 )
|
|||
|
|
|
|||
|
|
' g r . a r c ( x - 1 0 0 , y , 1 0 0 , 1 0 0 , 0 , $ 1 f f f , 1 5 , 2 )
|
|||
|
|
|
|||
|
|
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 o t + = m o u s e . d e l t a _ z * 2 0 0
|
|||
|
|
r f l a g : = m o u s e . b u t t o n s
|
|||
|
|
|
|||
|
|
i f r f l a g = = 1
|
|||
|
|
r o t + = 5 0
|
|||
|
|
i f r f l a g = = 2
|
|||
|
|
r o t - = 5 0
|
|||
|
|
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
' 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 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
|
|||
|
|
|
|||
|
|
|