2011-11-11 17:41:02 +01:00
|
|
|
|
<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 : H S S - P l a y e r
|
|
|
|
|
|
C h i p : R e g n a t i x
|
|
|
|
|
|
T y p : P r o g r a m m
|
|
|
|
|
|
V e r s i o n : 0 0
|
|
|
|
|
|
S u b v e r s i o n : 0 2
|
|
|
|
|
|
|
|
|
|
|
|
F u n k t i o n : H S S - P l a y e r f <00> r d i e K o m m a n d o z e i l e
|
|
|
|
|
|
|
|
|
|
|
|
L o g b u c h :
|
|
|
|
|
|
|
|
|
|
|
|
0 8 - 0 4 - 2 0 1 0 - d r 2 3 5 - f o r k a u s r e g i m e
|
|
|
|
|
|
- a n p a s s u n g a n t r i o s
|
|
|
|
|
|
1 6 - 0 4 - 2 0 1 0 - d r 2 3 5 - u m w a n d l u n g i n r e i n e k o m m a n d o z e i l e n a n w e n d u n g
|
|
|
|
|
|
|
|
|
|
|
|
K o m m a n d o l i s t e :
|
|
|
|
|
|
|
|
|
|
|
|
/ ? : h i l f e t e x t
|
|
|
|
|
|
/ p n a m e . w a v : h s s - d a t e i a b s p i e l e n
|
|
|
|
|
|
/ d : v e r z e i c h n i s a b s p i e l e n
|
|
|
|
|
|
/ s : w i e d e r g a b e s t o p p e n
|
|
|
|
|
|
/ t : a n z e i g e t r a c k e r l i s t e
|
|
|
|
|
|
/ r : a n z e i g e e n g i n e - r e g i s t e r
|
|
|
|
|
|
/ i : a n z e i g e i n t e r f a c e - r e g i s t e r
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
|
|
O B J
|
|
|
|
|
|
i o s : " r e g - i o s "
|
|
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
O S _ T I B L E N = 6 4 ' g r <00> <00> e d e s i n p u t b u f f e r s
|
|
|
|
|
|
E R A M = 1 0 2 4 * 5 1 2 * 2 ' g r <00> <00> e e r a m
|
|
|
|
|
|
H R A M = 1 0 2 4 * 3 2 ' g r <00> <00> e h r a m
|
|
|
|
|
|
|
|
|
|
|
|
R M O N _ Z E I L E N = 1 6 ' s p e i c h e r m o n i t o r - a n g e z e i g t e z e i l e n
|
|
|
|
|
|
R M O N _ B Y T E S = 8 ' s p e i c h e r m o n i t o r - z e i c h e n p r o b y t e
|
|
|
|
|
|
|
|
|
|
|
|
V A R
|
|
|
|
|
|
|
|
|
|
|
|
l o n g d a t c n t ' z e i g e r f <00> r d a t e i l i s t e
|
|
|
|
|
|
b y t e f n [ 1 2 ] ' p u f f e r f <00> r d a t e i n a m e n
|
|
|
|
|
|
b y t e p a r a s t r [ 6 4 ] ' p a r a m e t e r s t r i n g
|
|
|
|
|
|
b y t e f l _ b y e
|
|
|
|
|
|
b y t e f l _ n e x t
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' P A R A M E T E R
|
|
|
|
|
|
|
|
|
|
|
|
P U B m a i n
|
|
|
|
|
|
|
|
|
|
|
|
i o s . s t a r t ' i o s i n i t i a l i s i e r e n
|
|
|
|
|
|
i o s . p a r a s t a r t ' p a r a m e t e r <00> b e r g a b e s t a r t e n
|
|
|
|
|
|
r e p e a t w h i l e i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r e i n l e s e n
|
|
|
|
|
|
i f b y t e [ @ p a r a s t r ] [ 0 ] = = " / " ' o p t i o n ?
|
|
|
|
|
|
c a s e b y t e [ @ p a r a s t r ] [ 1 ]
|
|
|
|
|
|
" ? " : i o s . p r i n t ( @ h e l p 1 ) ' / ? - h i l f e t e x t
|
|
|
|
|
|
" p " : p l a y _ h s s ' / p - h s s - d a t e i w i e d e r g e b e n
|
|
|
|
|
|
" d " : p l a y _ d i r ' / d - v e r z e i c h n i s w i e d e r g e b e n
|
|
|
|
|
|
" t " : d i s p _ t r a c k e r ' / t - a n z e i g e t r a c k e r
|
|
|
|
|
|
" r " : d i s p _ r e g ' / r - a n z e i g e r e g i s t e r
|
|
|
|
|
|
" i " : d i s p _ i r e g ' / i - a n z e i g e i n t e r f a c e r e g i s t e r
|
|
|
|
|
|
" s " : i o s . h s s _ s t o p ' / s - w i e d e r g a b e s t o p p e n
|
|
|
|
|
|
i o s . s t o p
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' P L A Y _ F I L E
|
|
|
|
|
|
|
|
|
|
|
|
P U B p l a y _ h s s ' h s s : p l a y e r s t a r t e n
|
|
|
|
|
|
|
|
|
|
|
|
i f i o s . p a r a n e x t ( @ p a r a s t r ) ' p a r a m e t e r ?
|
|
|
|
|
|
i o s . h s s _ p l a y f i l e ( @ p a r a s t r )
|
|
|
|
|
|
e l s e ' k e i n p a r a m e t e r : f e h l e r m e l d u n g
|
|
|
|
|
|
p r i n t E r r ( @ e r r 1 )
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' P L A Y _ D I R
|
|
|
|
|
|
|
|
|
|
|
|
P U B p l a y _ d i r | s t r a d r , l e n , f c n t , i ' h s s : a l l e s o n g s a u f d e r s d - c a r d a b s p i e l e n
|
|
|
|
|
|
|
|
|
|
|
|
i o s . s d d i r ' k o m m a n d o : v e r z e i c h n i s <00> f f n e n
|
|
|
|
|
|
h s s _ s t a r t l i s t ' z u m l i s t e n a n f a n g
|
|
|
|
|
|
f c n t : = 0 ' z <00> h l e r f <00> r d a t e i a n z a h l
|
|
|
|
|
|
f l _ b y e : = f l _ n e x t : = 0
|
|
|
|
|
|
r e p e a t w h i l e ( s t r a d r : = i o s . s d n e x t ) ' d a t e i l i s t e e i n l e s e n
|
|
|
|
|
|
' i o s . p r i n t ( s t r a d r )
|
|
|
|
|
|
i f s t r _ f i n d ( s t r a d r , @ e x t 1 )
|
|
|
|
|
|
' i o s . p r i n t c h a r ( " <00>%" )
|
|
|
|
|
|
f c n t + +
|
|
|
|
|
|
h s s _ w r f n ( s t r a d r )
|
|
|
|
|
|
' i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " A n z a h l D a t e i e n : " ) )
|
|
|
|
|
|
i o s . p r i n t d e c ( f c n t )
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
h s s _ s t a r t l i s t ' z u m l i s t e n a n f a n g
|
|
|
|
|
|
i f f c n t
|
|
|
|
|
|
r e p e a t i f r o m 0 t o f c n t - 1 ' d a t e i l i s t e a b s p i e l e n
|
|
|
|
|
|
i o s . p r i n t d e c ( i + 1 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " / " )
|
|
|
|
|
|
i o s . p r i n t d e c ( f c n t )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
h s s _ r d f n ( @ f n )
|
|
|
|
|
|
h s s _ p l a y s o n g ( @ f n )
|
|
|
|
|
|
i f f l _ b y e
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
i f f l _ n e x t
|
|
|
|
|
|
f l _ n e x t : = 0
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
h s s _ f a d e o u t
|
|
|
|
|
|
i o s . h s s _ s t o p
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ p l a y s o n g ( s t r a d r ) | n , q , k e y ' h s s : s p i e l t d i e m u s i k d a t e i b i s z u m e n d e
|
|
|
|
|
|
|
|
|
|
|
|
i o s . c u r o f f
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " P l a y S o n g < q / n > : " ) )
|
|
|
|
|
|
i o s . p r i n t ( s t r a d r )
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . h s s _ s t o p
|
|
|
|
|
|
i o s . h s s _ p l a y f i l e ( s t r a d r )
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
n : = i o s . h s s _ i n t r e g ( i o s # i R e p e a t ) ' a n z a h l d e r s c h l e i f e n d u r c h l <00> u f e a b f r a g e n
|
|
|
|
|
|
q : = i o s . h s s _ i n t r e g ( i o s # i E n d F l a g )
|
|
|
|
|
|
i o s . c u r p o s 1
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " i R e p e a t : " ) )
|
|
|
|
|
|
i o s . p r i n t d e c ( n )
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " i E n d F l a g : " ) )
|
|
|
|
|
|
i o s . p r i n t d e c ( q )
|
|
|
|
|
|
i f k e y : = i o s . k e y
|
|
|
|
|
|
c a s e k e y
|
|
|
|
|
|
" n " : f l _ n e x t : = 1
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
" q " : f l _ b y e : = 1
|
|
|
|
|
|
q u i t
|
|
|
|
|
|
u n t i l n = = 3 o r q = = 1
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . c u r o n
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ f a d e o u t | i ' h s s : s o n g l a n g s a m a u s b l e n d e n
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 1 5
|
|
|
|
|
|
i o s . h s s _ v o l ( 1 5 - i )
|
|
|
|
|
|
w a i t c n t ( c n t + 6 0 _ 0 0 0 _ 0 0 0 )
|
|
|
|
|
|
w a i t c n t ( c n t + 3 0 _ 0 0 0 _ 0 0 0 )
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ w r f n ( s t r a d r ) | l e n , i ' h s s : k o p i e r t d a t e i n a m e n i n e r a m
|
|
|
|
|
|
l e n : = s t r s i z e ( s t r a d r )
|
|
|
|
|
|
r e p e a t i f r o m 0 t o l e n - 1
|
flash\administra\admflash.spin
- Überarbeitung der Routine zum mounten der SD-Card. Da verschiedene Karten unterschiedliches Timing haben, wird jetzt solange versucht zu mounten, bis ein Erfolg eintritt, was zusätzlich akustisch durch einen leise anschwellenden Ton angezeigt wird. Das Verfahren ist jetzt wesentlich robuster.
- rtc.setSQWOUTState(1) --> rtc.setSQWOUTState(0) deaktiviert den Frequenzausgang, verringert damit lt. DS1307-Datenblatt den Pufferstrom von 480 auf 300 nA und erhöht somit die Pufferdauer der Batterie auf das 1,6-fache.
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen zugefügt
flash\bellatrix\belflash.spin
- Anpassung für verschiedene Zeilenumbrüche in print_char eingefügt.
flash\regnatix\regflash.spin
- Der Loader hat fälschlicherweise das Warmstartflag für die Ramdisk gesetzt, wodurch sie nicht resetfest war.
forth\fib.mod
- Fibonacci-Benchmark (iterativ) in Forth.
lib\adm-fat.spin
- Fehler in setCharacterPosition: Bei einem Wechsel von einer Position > 0 auf Position = 0 wurde der erste Sektor mit falschen Daten überschrieben.
lib\reg-ios.spin
- Funktionsset für Grafikmodus 0 eingefügt
- sfx_keyoff, sfx_stop eingefügt
- printq zugefügt: Ausgabe einer Zeichenkette ohne Steuerzeichen
- Korrektur char_ter_bs
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen eingefügt
- Bellatrix-Funktionen blktrans, bmgr_load eingefügt
- Funktion os_error zugefügt für zentrale Ausgabe von Fehlern
- Korrektur BS in input-Funktion
- Funktion printblk für schnellen Blocktransfer
- Div. Fehler in den Ramdisk-Funktionen, welche jetzt auch resetfest ist.
- Funktion rd_getback um Zeichen rückwärts aus der Ramdisk zu lesen.
- Funktion ram_getfree liefert freien Speicher im eRAM
system\regnatix\eram.spin
- Korrektur BS-Steuercode
system\regnatix\hplay.spin
- Der HSS-Player hat seine Daten fals im SYS-Modus im eRAM abgelegt und so die Ramdisk beschädigt. Korrektur der Speichernutzung.
system\regnatix\regime.spin
- Korrekte Initialisierung der Ramdisk (resetfest)
- Korrektur der Bisldschirminitialisierung nach dem Laden von Bellatrix-Code
- Verwendung von ios.os_error für die Fehlerausgabe
- Fehler im Kommando "reboot" beim Kaltstart behoben
- Korrektur Ausgabe von "cogs"
system\regnatix\time.spin
- Korrektur Tipfehler
system\regnatix\basic.spin
Ich habe Femto Basic entfernt, da es nicht integraler Bestandteil von TriOS ist und mir die Zeit fehlt es an den aktuelen Stand anzupassen.
2012-02-08 18:09:41 +01:00
|
|
|
|
i o s . r a m _ w r b y t e ( i o s # u s r m o d , b y t e [ s t r a d r ] [ i ] , d a t c n t + + )
|
|
|
|
|
|
i o s . r a m _ w r b y t e ( i o s # u s r m o d , 0 , d a t c n t + + )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ r d f n ( s t r a d r ) | i , n ' h s s : l i e s t d a t e i n a m e n a u s e r a m
|
|
|
|
|
|
i : = 0
|
|
|
|
|
|
r e p e a t
|
flash\administra\admflash.spin
- Überarbeitung der Routine zum mounten der SD-Card. Da verschiedene Karten unterschiedliches Timing haben, wird jetzt solange versucht zu mounten, bis ein Erfolg eintritt, was zusätzlich akustisch durch einen leise anschwellenden Ton angezeigt wird. Das Verfahren ist jetzt wesentlich robuster.
- rtc.setSQWOUTState(1) --> rtc.setSQWOUTState(0) deaktiviert den Frequenzausgang, verringert damit lt. DS1307-Datenblatt den Pufferstrom von 480 auf 300 nA und erhöht somit die Pufferdauer der Batterie auf das 1,6-fache.
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen zugefügt
flash\bellatrix\belflash.spin
- Anpassung für verschiedene Zeilenumbrüche in print_char eingefügt.
flash\regnatix\regflash.spin
- Der Loader hat fälschlicherweise das Warmstartflag für die Ramdisk gesetzt, wodurch sie nicht resetfest war.
forth\fib.mod
- Fibonacci-Benchmark (iterativ) in Forth.
lib\adm-fat.spin
- Fehler in setCharacterPosition: Bei einem Wechsel von einer Position > 0 auf Position = 0 wurde der erste Sektor mit falschen Daten überschrieben.
lib\reg-ios.spin
- Funktionsset für Grafikmodus 0 eingefügt
- sfx_keyoff, sfx_stop eingefügt
- printq zugefügt: Ausgabe einer Zeichenkette ohne Steuerzeichen
- Korrektur char_ter_bs
- Plexbus-Funktionen entfernt
- Screeninterface-Funktionen eingefügt
- Bellatrix-Funktionen blktrans, bmgr_load eingefügt
- Funktion os_error zugefügt für zentrale Ausgabe von Fehlern
- Korrektur BS in input-Funktion
- Funktion printblk für schnellen Blocktransfer
- Div. Fehler in den Ramdisk-Funktionen, welche jetzt auch resetfest ist.
- Funktion rd_getback um Zeichen rückwärts aus der Ramdisk zu lesen.
- Funktion ram_getfree liefert freien Speicher im eRAM
system\regnatix\eram.spin
- Korrektur BS-Steuercode
system\regnatix\hplay.spin
- Der HSS-Player hat seine Daten fals im SYS-Modus im eRAM abgelegt und so die Ramdisk beschädigt. Korrektur der Speichernutzung.
system\regnatix\regime.spin
- Korrekte Initialisierung der Ramdisk (resetfest)
- Korrektur der Bisldschirminitialisierung nach dem Laden von Bellatrix-Code
- Verwendung von ios.os_error für die Fehlerausgabe
- Fehler im Kommando "reboot" beim Kaltstart behoben
- Korrektur Ausgabe von "cogs"
system\regnatix\time.spin
- Korrektur Tipfehler
system\regnatix\basic.spin
Ich habe Femto Basic entfernt, da es nicht integraler Bestandteil von TriOS ist und mir die Zeit fehlt es an den aktuelen Stand anzupassen.
2012-02-08 18:09:41 +01:00
|
|
|
|
n : = i o s . r a m _ r d b y t e ( i o s # u s r m o d , d a t c n t + + )
|
2011-11-11 17:41:02 +01:00
|
|
|
|
b y t e [ s t r a d r ] [ i + + ] : = n
|
|
|
|
|
|
w h i l e n < > 0
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ s t a r t l i s t ' h s s : z e i g e r a u f l i s t e n a n f a n g ( d a t e i n a m e n )
|
|
|
|
|
|
d a t c n t : = 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' D I S P L A Y
|
|
|
|
|
|
|
|
|
|
|
|
P U B d i s p _ t r a c k e r | i , n ' d i s p : t r a c k e r l i s t e a u s g e b e n
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
u n t i l i o s . h s s _ i n t r e g ( i o s # i R o w F l a g ) = = 0
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
u n t i l i o s . h s s _ i n t r e g ( i o s # i R o w F l a g ) = = 1 ' s y n c h r o n i s a t i o n b i s z e i l e f e r t i g b e a r b e i t e t
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t h e x ( i o s . h s s _ i n t r e g ( i o s # i B e a t C ) , 4 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " - " )
|
|
|
|
|
|
i o s . p r i n t h e x ( i o s . h s s _ i n t r e g ( i o s # i E n g i n e C ) , 4 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " : " )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t i f r o m 1 t o 4
|
|
|
|
|
|
|
|
|
|
|
|
h s s _ p r i n t n o t e ( i o s . h s s _ i n t r e g ( i * 5 + i o s # i N o t e ) ) ' n o t e
|
|
|
|
|
|
|
|
|
|
|
|
n : = i o s . h s s _ i n t r e g ( i * 5 + i o s # i O k t a v e )
|
|
|
|
|
|
i f n
|
|
|
|
|
|
i o s . p r i n t h e x ( n , 1 ) ' o k t a v e
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
i o s . p r i n t c h a r ( " - " )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
n : = i o s . h s s _ i n t r e g ( i * 5 + i o s # i V o l u m e )
|
|
|
|
|
|
i f n
|
|
|
|
|
|
i o s . p r i n t h e x ( n , 1 ) ' v o l u m e
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
i o s . p r i n t c h a r ( " - " )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
n : = i o s . h s s _ i n t r e g ( i * 5 + i o s # i E f f e k t )
|
|
|
|
|
|
i f n
|
|
|
|
|
|
i o s . p r i n t h e x ( n , 1 ) ' e f f e k t
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
i o s . p r i n t c h a r ( " - " )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
n : = i o s . h s s _ i n t r e g ( i * 5 + i o s # i I n s t r u m e n t )
|
|
|
|
|
|
i f n
|
|
|
|
|
|
i o s . p r i n t h e x ( n , 1 ) ' i n s t r u m e n t
|
|
|
|
|
|
e l s e
|
|
|
|
|
|
i o s . p r i n t c h a r ( " - " )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
|
|
|
|
|
|
u n t i l i o s . k e y s t a t > 0 ' t a s t e g e d r <00> c k t ?
|
|
|
|
|
|
i o s . k e y
|
|
|
|
|
|
i o s . c u r o n
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
|
|
|
|
|
|
P U B h s s _ p r i n t n o t e ( n ) ' d i s p : n o t e n w e r t a u s g e b e n
|
|
|
|
|
|
' C 1 , C # 1 , D 1 , D # 1 , E 1 , F 1 , F # 1 , G 1 , G # 1 , A 1 , A # 1 , H 1
|
|
|
|
|
|
|
|
|
|
|
|
c a s e n
|
|
|
|
|
|
0 : i o s . p r i n t ( s t r i n g ( " " ) )
|
|
|
|
|
|
1 : i o s . p r i n t ( s t r i n g ( " C " ) )
|
|
|
|
|
|
2 : i o s . p r i n t ( s t r i n g ( " C # " ) )
|
|
|
|
|
|
3 : i o s . p r i n t ( s t r i n g ( " D " ) )
|
|
|
|
|
|
4 : i o s . p r i n t ( s t r i n g ( " D # " ) )
|
|
|
|
|
|
5 : i o s . p r i n t ( s t r i n g ( " E " ) )
|
|
|
|
|
|
6 : i o s . p r i n t ( s t r i n g ( " F " ) )
|
|
|
|
|
|
7 : i o s . p r i n t ( s t r i n g ( " F # " ) )
|
|
|
|
|
|
8 : i o s . p r i n t ( s t r i n g ( " G " ) )
|
|
|
|
|
|
9 : i o s . p r i n t ( s t r i n g ( " G # " ) )
|
|
|
|
|
|
1 0 : i o s . p r i n t ( s t r i n g ( " A " ) )
|
|
|
|
|
|
1 1 : i o s . p r i n t ( s t r i n g ( " A # " ) )
|
|
|
|
|
|
1 2 : i o s . p r i n t ( s t r i n g ( " H " ) )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
P U B d i s p _ i r e g | i , j , n , w e r t ' d i s p : a n z e i g e i n t e r f a c e r e g i s t e r
|
|
|
|
|
|
i o s . p r i n t c l s
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
i o s . c u r h o m e
|
|
|
|
|
|
i o s . c u r o f f
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 4
|
|
|
|
|
|
i o s . p r i n t h e x ( i * 8 , 2 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " : " )
|
|
|
|
|
|
r e p e a t j f r o m 0 t o 4
|
|
|
|
|
|
n : = ( i * 5 ) + j
|
|
|
|
|
|
w e r t : = i o s . h s s _ i n t r e g ( n )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 4 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
u n t i l i o s . k e y s t a t > 0 ' t a s t e g e d r <00> c k t ?
|
|
|
|
|
|
i o s . k e y
|
|
|
|
|
|
i o s . c u r o n
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
|
|
|
|
|
|
P U B d i s p _ r e g | w e r t , i , j , n ' d i s p : k o n t i n u i e r l i c h e a n z e i g e d e r r e g s i t e r w e r t e
|
|
|
|
|
|
{ {
|
|
|
|
|
|
8 x 6 r e g i s t e r l o n g
|
|
|
|
|
|
|
|
|
|
|
|
0 k a n a l a
|
|
|
|
|
|
3 > > 1 6 f
|
|
|
|
|
|
4 v
|
|
|
|
|
|
|
|
|
|
|
|
8 k a n a l b
|
|
|
|
|
|
1 6 k a n a l c
|
|
|
|
|
|
2 4 k a n a l d
|
|
|
|
|
|
|
|
|
|
|
|
} }
|
|
|
|
|
|
i o s . p r i n t c l s
|
|
|
|
|
|
r e p e a t
|
|
|
|
|
|
i o s . c u r h o m e
|
|
|
|
|
|
i o s . c u r o f f
|
|
|
|
|
|
r e p e a t j f r o m 0 t o 3
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t h e x ( j * 8 , 2 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " : " )
|
|
|
|
|
|
r e p e a t i f r o m 0 t o 3
|
|
|
|
|
|
n : = ( j * 8 ) + i
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( n )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 8 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t h e x ( j * 8 + 4 , 2 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " : " )
|
|
|
|
|
|
r e p e a t i f r o m 4 t o 7
|
|
|
|
|
|
n : = ( j * 8 ) + i
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( n )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 8 )
|
|
|
|
|
|
i o s . p r i n t c h a r ( " " )
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " C h a n n e l A F : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 0 + 3 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t > > 1 6 , 4 )
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " V : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 0 + 4 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 2 )
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " C h a n n e l B F : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 8 + 3 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t > > 1 6 , 4 )
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " V : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 8 + 4 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 2 )
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " C h a n n e l C F : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 1 6 + 3 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t > > 1 6 , 4 )
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " V : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 1 6 + 4 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 2 )
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " C h a n n e l D F : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 2 4 + 3 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t > > 1 6 , 4 )
|
|
|
|
|
|
i o s . p r i n t ( s t r i n g ( " V : " ) )
|
|
|
|
|
|
w e r t : = i o s . h s s _ p e e k ( 2 4 + 4 )
|
|
|
|
|
|
i o s . p r i n t h e x ( w e r t , 2 )
|
|
|
|
|
|
|
|
|
|
|
|
u n t i l i o s . k e y s t a t > 0 ' t a s t e g e d r <00> c k t ?
|
|
|
|
|
|
i o s . k e y
|
|
|
|
|
|
i o s . c u r o n
|
|
|
|
|
|
i o s . p r i n t n l
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' T O O L S
|
|
|
|
|
|
|
|
|
|
|
|
P R I p r i n t E r r ( s t r a d r )
|
|
|
|
|
|
|
|
|
|
|
|
i o s . p r i n t ( @ e r r 0 )
|
|
|
|
|
|
i o s . p r i n t ( s t r a d r )
|
|
|
|
|
|
i o s . p r i n t ( @ h e l p 1 )
|
|
|
|
|
|
|
|
|
|
|
|
P U B s t r _ f i n d ( s t r i n g 1 , s t r i n g 2 ) : b u f f e r | c o u n t e r ' s y s : s t r i n g s u c h e n
|
|
|
|
|
|
|
|
|
|
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
' ' % S e a r c h e s a s t r i n g o f c h a r a c t e r s f o r t h e f i r s t o c c u r e n c e o f t h e s p e c i f i e d s t r i n g o f c h a r a c t e r s . %
|
|
|
|
|
|
' ' % %
|
|
|
|
|
|
' ' % R e t u r n s t h e a d d r e s s o f t h a t s t r i n g o f c h a r a c t e r s i f f o u n d a n d z e r o i f n o t f o u n d . %
|
|
|
|
|
|
' ' % %
|
|
|
|
|
|
' ' % s t r i n g 1 - A p o i n t e r t o t h e s t r i n g o f c h a r a c t e r s t o s e a r c h . %
|
|
|
|
|
|
' ' % s t r i n g 2 - A p o i n t e r t o t h e s t r i n g o f c h a r a c t e r s t o f i n d i n t h e s t r i n g o f c h a r a c t e r s t o s e a r c h . %
|
|
|
|
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t s t r s i z e ( s t r i n g 1 - - )
|
|
|
|
|
|
|
|
|
|
|
|
i f ( b y t e [ + + s t r i n g 1 ] = = b y t e [ s t r i n g 2 ] )
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t c o u n t e r f r o m 0 t o ( s t r s i z e ( s t r i n g 2 ) - 1 )
|
|
|
|
|
|
|
|
|
|
|
|
i f ( b y t e [ s t r i n g 1 ] [ c o u n t e r ] < > b y t e [ s t r i n g 2 ] [ c o u n t e r ] )
|
|
|
|
|
|
b u f f e r ~ ~
|
|
|
|
|
|
|
|
|
|
|
|
i f n o t ( b u f f e r ~ )
|
|
|
|
|
|
r e t u r n s t r i n g 1
|
|
|
|
|
|
|
|
|
|
|
|
P U B s t r _ l o w e r ( c h a r a c t e r s ) ' ' 4 S t a c k L o n g s ' s y s : i n k l e i n e z e i c h e n w a n d e l n
|
|
|
|
|
|
|
|
|
|
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
' ' % D e m o t e s a l l u p p e r c a s e c h a r a c t e r s i n t h e s e t o f ( " A " , " Z " ) t o t h e i r l o w e r c a s e e q u i v a l e n t s . %
|
|
|
|
|
|
' ' % %
|
|
|
|
|
|
' ' % C h a r a c t e r s - A p o i n t e r t o a s t r i n g o f c h a r a c t e r s t o c o n v e r t t o l o w e r c a s e . %
|
|
|
|
|
|
' ' % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
|
|
|
|
|
|
r e p e a t s t r s i z e ( c h a r a c t e r s - - )
|
|
|
|
|
|
|
|
|
|
|
|
r e s u l t : = b y t e [ + + c h a r a c t e r s ]
|
|
|
|
|
|
|
|
|
|
|
|
i f ( ( r e s u l t = > " A " ) a n d ( r e s u l t = < " Z " ) )
|
|
|
|
|
|
|
|
|
|
|
|
b y t e [ c h a r a c t e r s ] : = ( r e s u l t + 3 2 )
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' s t r i n g s
|
|
|
|
|
|
|
|
|
|
|
|
e x t 1 b y t e " . H S S " , 0
|
|
|
|
|
|
|
|
|
|
|
|
e r r 0 b y t e 1 3 , " F e h l e r : " , 0
|
|
|
|
|
|
e r r 1 b y t e " Z u w e n i g P a r a m e t e r ! " , 1 3 , 0
|
|
|
|
|
|
|
|
|
|
|
|
h e l p 1 f i l e " h p l a y . t x t "
|
|
|
|
|
|
b y t e 1 3 , 0
|
|
|
|
|
|
|
|
|
|
|
|
D A T ' l i z e n z
|
|
|
|
|
|
{ {
|
|
|
|
|
|
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
% 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 . %
|
|
|
|
|
|
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %%
|
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
|
|
|