Download (7333kb, 52 pages) - The Sharp MZ-Series

'S~
.,;:\~
~.~ ~ ~
~ ~~
\.1.+- ~ ~p
~'" ~,C-c:)! \
~ s. ~ ~
~~ ~~
\ ~. ~ ~
~ \ .
os , ~
~ ~.1c..
i:.. ~ ~
1.... ~ ~
fi! \
..
~
'i~
~ den 1260/61 g~llndertes SoundprograJlll1l
-----SOU~D--MACMIN£----­
Hiereine kurze Beschreibung des Programms. ---SHARP*PC*1260/1261--­
Rach Eingabe von RUN wird nach dem Programm'~getragt. (MenU)
1.) Klarlertastatur A bis - und Z bis M. Bei SPC zurUck zum MenU.
2.) Demomonstration Tondauer und To~he
,. ) • Tonhtshe
4.) Zut'alllllllUs1k
5.) Demonstration "Alle meine Entchen- 'x dann zurU.ck zum MenU.
Han kann das gesamte Anwendungsbuch des ~401, venn man die Speicheradressen
Kndert, fUr den 1260/61 (von kleinen Xnderrungen bezUglich
10:CLEAR :X=25000:V=X+l
:Z=X+l1: POKE X,2,25
5,52,18,95,89,101,16
,219,223,78,1,47,5,5
5
20:WAIT 8: PRINT "----­
SOUND--MACHINE----­
40:Q=96:W=112:E=63:R=2:
T=12: FOR 1=0 TO 11:
POKE 8256+I*5,Q,W,E,
R,T: POKE 18359-1*5,
T,R,E,W,Q: NEXT I
5e:FOR 1=1 TO 3013: NEXT
I
6e:INPUT "Pro9ramM 1/2/
3/4/5 Y;O: GOTO 0*10
o
10e:WAIT : CALL XI POKE
8253,64: PRINT W"
105:"A" POKE Z,196: POKE
V,151: GOTO 1130
lle:"Z" POKE Z,184: POKE
V,155: GO TO 180
115: Y S" POKE Z,172: POKE
V,159: GOTO 1130
120:"X" POKE 2,161: POKE
V,163: GOTO lee
125:"D" POKE 2,151: POKE
V,167: GOTO 190
13e:"C" POKE 2,141: POKE
V,171: GOTO lee
135:"Y" POKE Z,132: POKE
des Displa7s abgesehen) benutzen.
Bei der Gelegenheit m6chte ich auf zwei intereBsante BUcher fUr den
1260/61 aufmerksam machen.
1.) System und Trickbuch tur den 1260/61
2.) Mascbinensprache fUr den 1260/61
Beide BUcber sind_bei Becker; Karasch und KUllmann Verlag + Datentecbnik
erschienen.
Hier noch ein paar SpeicheradreBsen:
-Call 5' schaltet den 1260/61 aus (einacbalten durch ON)
-Poke 26329,1 schaltet daB Passwort aus
~
I--'
-Poke 26329,50 schaltet das Passwort wieder ein
I--'
(!) -Poke 16513,0 Renew (1260 - 22657,o)
Ul -Poke 8252,150 bei Shift und SML = japanischer Zeichensatz.
"'1'l Diese kann man einer Variablen zuweisen und auch ausdrucken lassen. Vd75: GOTO 1013
~:
137:"F" POKE Z,128: POKE
') -Poke 8253,64 ~ DEF siehe Soundprogramm Zeile 100
V, 177: GOTO 100
140:
U) -Poke 26337,0 und NEW ~ Speichererweiterung urn 128 Bytes (ESP-
Y GY POKE Z,123: POKE
V,179: GOTO 1013
::r
0) Speicher zurn ProgrammBpeicher (Nach Eingabe von MEM erscheint 145:"B" POKE 2,115: POKE
V,183: GO TO 180
'1
'0 9470)
150:"H" POKE 2,107: POKE
Wenn man den ESP-Speicher erh6ht (nach Eingabe von NEW Enter EQU#
V,187: GOTO 190
(1
155:"N· POKE 2,99: POKE
o 1 oder 20der 3 usw.) beginnt der Programmspeicher urn jeweils 128
V,191: GOTO 180
3
160:"J" POKE 2,91: POKE
'0 Bytes sp~ter. Wichtig bei der Eingabe des Renew. Z.B. im ESP sind
V, 195: GOTO 1813
~
rt
EQU# 2, d.h. hier stehen 3x128 Bytes zur Vertugung. Will man nun 165:"M Y POKE 2,84: POKE
V,293: GOTO lee
ro nach der Eingabe von NEW das Programm zurUckholen, darf man n~cht 167:"K" POKE 2,77: POKE
')
V, 211: GOTO 198
eingeben: Poke 16513,0 (1260 • 22657,0) , sondern Poke 16769,0
168:"~" POKE 2,713: POKE
::r:
(!) (16513+2x128) rur den 1260 - 22913,0.
V,219: GOTO 100
"'1'l
169:"=" POKE 2,63: POKE
DaB gilt auch rur daB nachtolgende Renurnberprogramm (Auszug aus
rt
V,225: GOTO lee
dem Sy&tem und Trickbuch).
1713:" • GOTO 613
I--'
2ee:WAIT 0: PRINT "D~~o­
I--' S = Startadresse des ProgrammspeicherB. Bei normalem ESP-~peicher Tondauer 255-1":
(128 Bytes) ist S - 16512, rur den 1260 - 22656.
POKE Z,88: FOR I z 255
TO 1 STEP -4: POKE V
U)
Wenn das Renumberpr'ogramm durch MERGE zu dem Programm welcheB ge­ ,I: CALL X: NEXT I:
(!)
WAIT
1-" ~dert werden soIl, geladen 1st: DEF - und der Rechner fragt nach
rt
300:IoIAIT 0: PRINT "De~o-
(!) Zeilenanfang (1. Ze1lennummer die gewUnscht wird) und nach der
Tonhoehe 1-255·:
POKE V,255: FOR 1=1
W Zeilenwe1te (AbBtand der Ze1lennummern). Durch Beep zeigt der Rechner TO 255 STEP 4: POKE
I--'
die DurcbtUhrung an. Jetzt muE man das Renumberprogramm zeilen­
Z, I: CALL X: NEXT I:
WAIT : GOTO 613
weise aus dem Spe1cher l6schen.
409:WAIT 59: PRINT "Zut'a
I I s-Me I od i e
410:RANDOM :P= RND 255:0
= RND 255:P= INT (p/
2)*2+1
420:POKE V,P: POKE Z,O:
CALL X
430:GOTO 410
508:WAIT 8: PRINT Y al
le meine Entchen":
FOR 1=8 TO 11: POKE
8256+1*5,24,56,62,62
,52
510:POKE 113359-1*5,52,62
,62,56,24: NEXT I
55e:FOR K=l TO 3:
RESTORE
56e:FOR 1=1 TO 27: READ
A,B: POKE Z,A: POKE
V,B: CALL X: NEXT I:
NEXT K: GO TO 60
60e:DATA 184,115,161,123
,141,131,132,135,115
,255,115,255
618:DATA 99,151,99,151,9
9,151,99,151,115,255
62e:DATA 99,151,99,151,9
9,151,99,151,115,255
63e:DATA 132,135,132,135
,132,135,132,135,141
,249,141.249
64e:DATA 161,127,161,127
,161,127,161,127,184
,255
Fahrschule
Uwe SchrOer
Ta 08103/88800 - 28604
Feldbetgstra8e 1
6070langen
flt:!N{Jn'xeR.,
50009: "=Y INPUT "Ze i I ena
nfang = • Z:
CURSOR 24 INPUT·
Ze i I enwe i e =" ; A
5081e:S=16512:IoI=Z
50020: Y V Y GOSUB YHEX":W=
W+A: IF PEEK (S+l)
=255 THEN Yg.Y
50030:POKE (S+1),C: POKE
(S+2),D:S=(S+3)+
PEEK (S+3)
5004e:GOTO YV"
50eS0: w HEX":C= INT (W/25
6):D=W-C*256:
RETURN
50955: Y &" BEEP 1: END