@Lc}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr SHOCHWARTKANAVERKLINA@77ϠԠ}Ҡˠ͠ěVON ANDREAS BINNER UNDHARALD SCHOENFELD9@,Ǜ + }A1 B+ROUTINE IN PAGE 6̠Λ8 A4@8@@V:W68},-A-68@,-@B68@,-@uW68@,-@T -@'. A29.ALLE 4 S}OUNDKANAELE SETZEN($$ΠҠǠΠâ2$$ŠíŠӠΛ<ŠŠF!!(@ }g9CZC\3<;2oDgG0o]J@0_( A2(VERKLINGEN DER MUSIKa d@n ++(#}Bitte laden Sie erst die Sprachan- }& o(steuerungsroutine mit (#(&(?(''ENTER D:INIT.LST''B(E(H(Q(ein.e-@@h(l oi -@ }A $ T-@+68,-8,%@F28,@@&P A1wT  $ P-@@ }+-@H28,@@&&L P  7-@327  $H !} A1 B! @0Hq"IqF:A6,"$Jq#Mq-A6ARq " \q fq6-?:A6,}pq$0u''104,169,86,141,44,3,169,17,141,452u!!3,169,6,141,46,3,96,28,6,514u!!6,69,6,70,6,169,6,170,6,1696u((56,141,2,}211,169,127,141,0,211,1698u&&60,141,2,211,169,0,141,255,6,160:u%%1,96,169,56,141,2,211,169,0,141u((96,172,255,6,153,253,3,201,155,240@u$$9,200,140,255,6,240,3,160,1,96Bu''160,0,185,253,3,201,48,144,49,2}01Du''112,176,45,56,233,48,141,0,211,32Fu##164,6,9,64,141,0,211,32,164,6Hu&&41,63,141,0,211,173,0,211,16,251Ju))165,1}7,240,22,200,204,255,6,208,208Lu&&169,0,141,255,6,160,1,96,160,132Nu&&169,0,141,255,6,96,160,128,169,0Pu''141,255,6,96,}162,0,202,208,253,96Ru 96,96 D:SPRDEMO.BAS60,1,96,160,132Nu&&169,0,141,255,6,96,160,128,169,0Pu''141,255,6,96,5 AFRMELSPRECHVARIABIMOSANNEPATTAPAKKINZAEHABHOJPAPAPAOAEKKPJRRTTDHEDDAYYA}HHBBTUUWADDGGVGGZRRFKKZLWXWYYCERERDHSNNHHOAYGGBBUW@g}@dA@@c @Y A @R @a @q@P@@`@@}@H@I@Q@S@T@U@V@W@X@b @e!@p"@h#@i}$@r%@s&@t'@u(@v)@w*@x+@y,@-@.@/@0@1@2@3@}4@5@6@7@8@9@:@;@<@=A>A?A@AAABACA}DAEA FAG@pHI$$ŭˠ11;@,;AU,;A},;A@, AǛ + A1 B+ROUTINE IN PAGE 6̠Λ8 A4}@8@@V:(**AB HIER BEISPIEL "EMOTIONAL TALKING"2(@>:,3(@>:,4(}@>:,5(@>:,6(@>:,7(@>:,8(@>:,9(@>:,:(@>:},;(@>:,<(@>:,=(@>:,>(@>:,?(@>:,@(@>:,A(@ }>:,B(@>:,C(@>:,D(@>:,E(@>:,[(@>:,\(@>:,d!} 6-@ Šśe..(&}Geben Sie bitte Ihre Phonemkette ein!fI*("Bitte nach Eingabe jedes einzelnenI(Ph"}onems druecken.gL,($Abschluss der Eingabe durch =( ohne Phonem.@(C(F(I(L(no% 4NEU6.#}6.% Ap0A sp@.@@V:D-@&@V(@7<,Z$} p(@>:@R,w Ax$6.ABHOL=$67B:,%@,.}AY;AR@( %}(#(,(CONT;( 3AB@)-@@,(0 3'AB@'AR%&}"6.???%6-@H-67B:,%@,.-67B:,%@,.,67B:,%@,.>:,Q-@@)'}-@@ M( Q V-@(,-@@:6-%@LAY(}@4V A""AB HIER LAUTEDEFINITIONEN! *6-@H%6-@H%@6-@H%@)}6-@H%@6-@H%@6-@H%@6-@H%@6-@H%@6-@H*}%@6-@H%@ 6-@H%@6-@H%@6-@H%@6-@H%@+}6-@H%@6-@H%@6-@H%@6-@H%@6-@H%@6-@H,}%@6-@H%@  6-@H%@! 6-@H%@" 6-@H%@# 6-@H%@$-} 6-@H%@%6-@H%@&6-@H%@'6-@H%@(6-@H%@)6-.}@H%@06-@H%@16-@H%@26-@H%@36-@H%@46-@H%@/}56-@H%@66-@H%@76-@H%@86-@H%@96-@H%@@0}6-@H%@A6-@H%@B6-@H%@C 6-@H%@D!6-@H%@E"6-@H1}%@F#6-@H%@G$6-@H%@H%6-@H%@I&6-@H%@P'6-@H%@Q(2}6-@H%@R)6-@H%@S*6-@H%@T+6-@H%@U,6-@H%@V-6-@H3}%@W.6-@H%@X/6-@H%@Y06-@H%@`16-@H%@a26-@H%@b4}36-@H%@c46-@H%@"x$ ++(#}Bitte laden Sie erst die Sprachan-& o(steuerungsroutine mit5} (#(&(?(''ENTER D:INIT.LST''B(E(H(Q(ein.e-@@h(l oH ! A1 B! @0Hq"Iq6}F:A6,"$Jq#Mq-A6ARq " \q fq6-?:A6,pq$0u''104,169,86,141,44,3,169,17,17}41,452u!!3,169,6,141,46,3,96,28,6,514u!!6,69,6,70,6,169,6,170,6,1696u((56,141,2,211,169,127,141,0,211,1698u&&60,141,28},211,169,0,141,255,6,160:u%%1,96,169,56,141,2,211,169,0,141u((96,172,255,6,153,253,9}3,201,155,240@u$$9,200,140,255,6,240,3,160,1,96Bu''160,0,185,253,3,201,48,144,49,201Du''112,176,45,56,233,48,141,0,211,:}32Fu##164,6,9,64,141,0,211,32,164,6Hu&&41,63,141,0,211,173,0,211,16,251Ju))165,17,240,22,200,204,255,6,208,208Lu&&169;},0,141,255,6,160,1,96,160,132Nu&&169,0,141,255,6,96,160,128,169,0Pu''141,255,6,96,162,0,202,208,253,96Ru 96,96 <}D:SPRACHE.BAS60,1,96,160,132Nu&&169,0,141,255,6,96,160,128,169,0Pu''141,255,6,96,162,0,202,208,253,96Ru 96,96 **************************************** * SPEECH.SRC * * Ansteuerung des Speechprocessors * * >} Ausgabe von Daten * * ueber den Joystick-Port * * ATMAS II * *Andreas Bi?}nner & Harald Schoenfeld '87* **************************************** ORG $A800 PACTL EQU $D302 ;Kontrollreg. Port A PORT@}A EQU $D300 ;Datenreg. Port A START LDA #$38 ;Directioncontrol STA PACTL LDA #$7F ;Bit 0-6 auf Ausgabe STA PORTA ;Bit 7A} auf Eingabe LDA #$3C ;Port A freigeben STA PACTL SPEECH LDY #0 ;Bufferanfang LOOP LDA BUFFER,Y ;Wert lesen CMP #64 ;lB}etzter Wert ? BEQ ENDE ;Ja --> STA PORTA ;Ueber Joystickports * ;ausgeben JSR WAIT ;Warteschleife ORA #64 ;UebergabeC}bit:1 STA PORTA ;Ausgeben JSR WAIT AND #63 ;Uebergabebit:0 STA PORTA ;Ausgeben BUSY LDA PORTA ;Speechprozessor BPL BUSYD} ;fertig? INY BNE LOOP ENDE LDA #$38 ;Directioncontrol STA PACTL LDA #0 ;8-Bits auf Eingabe STA PORTA LDA #$3C ;PoE}rt A freigeben STA PACTL RTS WAIT LDX #0 ;Warteschleife W1 DEX BNE W1 RTS *Sprachdaten fuer "Assemblerecke" BUFFER DFF}B 24,55,7,16,28,02,45,47 DFB 1,7,0,42,7,4 DFB 64 ;Enderkennung G}1,7,0,42,7,4 DFB 64 ;Enderkennung 29000 READ D29001 IF PEEK(1536)=D THEN RETURN 29002 RESTORE 29005 FOR I=1536 TO 170729010 READ D:POKE I,D29020 NEXT I29 I}030 A=USR(1536)29040 RETURN 30000 DATA 104,169,86,141,44,3,169,17,141,4530002 DATA 3,169,6,141,46,3,96,28,6,5130004 DATA J}6,69,6,70,6,169,6,170,6,16930006 DATA 56,141,2,211,169,127,141,0,211,16930008 DATA 60,141,2,211,169,0,141,255,6,16030010 D K}ATA 1,96,169,56,141,2,211,169,0,14130012 DATA 0,211,169,60,141,2,211,160,1,9630014 DATA 96,172,255,6,153,253,3,201,155,240 L}30016 DATA 9,200,140,255,6,240,3,160,1,9630018 DATA 160,0,185,253,3,201,48,144,49,20130020 DATA 112,176,45,56,233,48,141,0, M}211,3230022 DATA 164,6,9,64,141,0,211,32,164,630024 DATA 41,63,141,0,211,173,0,211,16,25130026 DATA 165,17,240,22,200,204, N}255,6,208,20830028 DATA 169,0,141,255,6,160,1,96,160,13230030 DATA 169,0,141,255,6,96,160,128,169,030032 DATA 141,255,6,96 O},162,0,202,208,253,9630034 DATA 96,966,160,1,96,160,13230030 DATA 169,0,141,255,6,96,160,128,169,030032 DATA 141,255,6,96 '**************************************** * Handler fuer Speechprocessor * * Ausgabe eines Daten-Strings * * Q} ueber den Joystick-Port * * ATMAS II * *Andreas Binner & Harald Schoenfeld '87* ****R}************************************ ORG $600 PACTL EQU $D302 ;Kontrollreg. Port A PORTA EQU $D300 ;Datenreg. Port A BUFFES}R EQU $3FD ;Zwischenspeicher INDEX EQU $6FF ;Zeiger im Buffer PLA ;Holt Anz. der vom * ;BASIC uebergebenen * ;ParaT}meter vom Stapel INIT LDA #'V ;Eintrag V: Handler STA $32C LDA #TABELLE STA $32D LDA #TABELLE/256 STA $32E RTS TABEU}LLE DFW OPEN-1 ;Handlertabelle DFW CLOSE-1 DFW GET-1 DFW PUT-1 DFW STATUS-1 DFW SPECIAL-1 OPEN LDA #$38 ;DirectioncontV}roll- * ;register ansprechen STA PACTL LDA #$7F ;Bit 0-6 auf Ausgabe STA PORTA ;Bit 7 auf Eingabe LDA #$3C ;Port A frW}eigeben STA PACTL LDA #0 ;Bufferanfang STA INDEX LDY #1 ;Status OK RTS CLOSE LDA #$38 ;Directioncontroll- * ;rX}egister ansprechen STA PACTL LDA #0 ;8 Bits auf Eingabe STA PORTA LDA #$3C ;Port A freigeben STA PACTL LDY #1 ;SY}tatus OK RTS GET RTS ;Nicht moeglich PUT LDY INDEX ;Uebertragenes Byte STA BUFFER,Y ;in Buffer ablegen CMP #155 ;End oZ}f line? BEQ SPEECH ;Ja-->Daten ausgeben INY ;Zeiger plus 1 STY INDEX BEQ SPEECH ;Buffer voll? LDY #1 ;Status OK RTS [}SPEECH LDY #0 ;Bufferanfang LOOP LDA BUFFER,Y ;Wert lesen CMP #48 ;Wert <48 ? BCC ERROR ;Ja-->Fehlermeldung CMP #112 ;\}Wert >=112 ? BCS ERROR SEC SBC #48 ;Wert - 48 STA PORTA ;Ueber Joystickports * ;ausgeben JSR WAIT ;Warteschleife OR]}A #64 ;Uebergabebit:1 STA PORTA ;Ausgeben JSR WAIT AND #63 ;Uebergabebit:0 STA PORTA ;Ausgeben BUSY LDA PORTA ;Speechpr^}ozessor BPL BUSY ;fertig? LDA 17 ;Breaktaste abfragen BEQ BREAK INY ;Naechster Wert CPY INDEX ;Alles ausgegeben? _}BNE LOOP ;Nein--> ENDE LDA #0 ;Zeiger zuruecksetzen STA INDEX LDY #1 ;Status OK RTS ERROR LDY #132 ;Fehler 132 ausg`}eben LDA #0 STA INDEX RTS BREAK LDY #128 ;Fehler 128 ausgeben LDA #0 STA INDEX RTS WAIT LDX #0 ;Warteschleife W1 DEa}X BNE W1 RTS STATUS RTS ;Beides nicht SPECIAL RTS ;noetig b} ;noetig 6d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%d} DD˙`  }J)Lr J  ((  p L ()   Je}L= ( L 0q A    IB JC;? D W f} LL  ` W )LA!  ߰")-݆ p" g} $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`h}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H i}p h  hyhy D L> L JJ    ! LA*` BFj}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!Lk}EE !E^ ^ E E7EȩEdE/EȩE  Dl} .L }  ;F d  ;?F7F? ( .   Z D LL d m} . D  L    p  E` , d)  D L) 0BM݊L݉n} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ Go} HLL GɛL  LFREIE SEKT.  G) *Gȩ GȽG GȌ*jj >Gp}J,z}ΛdPP ddJ\|DOS SYSRAMDISK COM{}B}{B}|}BSPRDEMO BASB(SPRACHE BASB =SPEECH SRCBHINIT LSTBPHANDLER SRCCcDOS SYS}} C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK~}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU } L ? .  t`GBJ ~DEHI B V0dV}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh}DEL8HI4 0 HI,0 0  9 .G VLO},0 L4*IJ`llD1:AUTORUN.SYSLADEN NUR MIT MEM.SAV MOEGLICH.D8:MEM.SAV J y08 B|DEHI} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI} VJ8 B V  @  /DE `E:D8:DUP.SYSPROGRAMM-SPEICHERUNG FEHLERHAFT!DOS DENNOC}H LADEN? >J/N B;DE J  (` 9 V⪍ ઍ  -}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝL 3u } 3E:}DISKETTEN BETRIEBSSYSTEM II VERS. COPYRIGHT 1985 ATARI CORP.A. DISK-INHALT I. FORMATIERENB. ZUM STECKMOD}UL J. DISK KOPIEREN C. DATEI KOPIEREN K. BINAER SAVED. LOESCHE DATEI L. BINAER LOADE. NAMEN AENDERN M. START BEI ADR}.F. DATEI SICHERN N. MEM.SAV ANLEGENG. DAT. FREIGEBEN O. DAT. KOPIERENH. DOS SCHREIBEN P. FORMATIEREN ӛL !N'}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }DOS 2.0s EINLEGEN -> Y, x }DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLBITTE }WAEHLEN, -> MENUE! 0 .z:*{}.|{ 1 0 0JB 18L%|DL}%INHALT [SUCHBEGRIFF,AUSGABEGER.]?[# 0 0 &|D3" 1L!KEINE DISKDATEIN !B 1L!E# 1 !BD}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.}  0?詛 1 y0JЛ 1 ;#L" ;#L! BL1->J ZUM LOESCHEN... LOESCHE DAT.NAME}KOPIE-VON, AUF?DAS KANN ICH NICHT240 FREIE SEKT. KOPIERE---D1:HANDLER.SRCl# 0|D .L/%#}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E }1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!KEINE 'WILD CARD}S' IM ZIEL-DATEINAMEN 0 <.|K