BASIC- und andere Experimente
von Ralf Däubner
Hier ist nun das Bild und die zugehörigen, bei der Konvertierung entstandenen kleinen BASIC-Programme für den CPC 6128 und KC85 (siehe dazu auch den Bericht vom CPC-Treffen). Das Bild stammt vom C+4-Userclub.
Programm BIKER.SSS für den KC85 (Datensatz KONBIKE.UUU):
100 CLS:OPENI#1"KONBIKE"
110 FOR Y=0 TO 199
120 FOR X=0 TO 319
130 LOCATE 27,27:INPUT#1 P$
150 IF P$="a" THEN PSET X,Y,7
160 NEXT
170 NEXT
180 CLOSEI#1
190 LOCATE 27,27:PRINT" "
Im Gegensatz dazu nun das Programm AMS.SSS für den CPC (Datensatz KONDINGS.UUU):
100 OPENI#1"KONDINGS"
110 FOR Y=0 TO 199
120 FOR X=0 TO 319
130 INPUT#1,P1:INPUT#1,P2
150 PSET X,Y,P1*7
160 NEXT
170 NEXT
180 CLOSEI#1
Von der Festplatte dauert es nicht allzu lange, um das Bild aufzubauen. PICGEN habe ich für den Screensave genutzt. Es gehört zum Lieferumfang von WordPro6. Damit Ihr es nicht suchen müßt, habe ich es mit ins Archiv aufgenommen.
Als Zugabe gibt es hier noch zwei kleine BASIC-Programme.
Programm SWITCH.SSS:
10 FORX=16 TO 40 STEP 4
20 SWITCHX,1:PAUSE5:SWITCHX,0
30 NEXT
Programm DIO3.SSS:
1 REM EINSCHALTEN DES MODULS AUF SCHACHT 2CH (44)
2 REM INITIALISIEREN DER PIO-PORTS A UND B AUF BITBETRIEB
10 CLS:SWITCH44,1:PRINT"DIO IM SCHACHT 2C AN"
20 OUT 6,207:OUT6,0:OUT7,207:OUT7,0
30 PRINT"BITBETRIEB EINSCHALTEN"
40 FORX=0TO255
50 OUT4,X:OUT5,X:PRINTAT(8,9);X
60 NEXT
70 OUT4,0:OUT5,0:SWITCH44,0:PRINT"ALLES AUSSCHALTEN"
SWITCH.SSS schaltet alle Module von Aufsatz 1 und 2 durch und DIO3.SSS schaltet ein M001 aktiv. Dabei wird eine einfache FOR-NEXT-Schleife durchlaufen. Die eigentliche Ausgabe erfolgt an den PIO-Ports A und B des Moduls. Ich habe 16 LEDs direkt an die Portleitungen angeschlossen, was eine einfache "Lichtorgel" ergibt. Damit kann man sich mit dem Problem der Ansteuerung einer PIO beschäftigen. So nebenbei kann man einfache Programme zur Ansteuerung eines einfachen Soundmoduls mit dem 555 schreiben.
Schaut Euch bitte erst die Listings an, bevor Ihr die Programme startet! Ich habe in dem Bereich nichts, was kaputtgehen könnte.
Abschließend möchte ich Euch ein paar Hardware-Bastelein zum Thema Sound vorstellen. Diesmal benutzen wir nicht den BASIC-Befehl SOUND, sondern einfach eine PIO (M001). Genaugenommen wird es beim KC intern auch nicht anders gemacht, nur mit dem Unterschied, das hier ein B555 (NE 555) zum Einsatz kommen soll. Des weiteren natürlich ein kleiner Frequenzteiler, um wenigstens 3 Oktaven zu erhalten. Ich weiß, der KC kann mehr, aber wie! Die erste Schaltung ist direkt von einer 7-Ton-Klingel übernommen und die zweite Schaltung ist die Grundschaltung für den Tongenerator. Außerdem gibt es auch den Frequenzteiler zu sehen.
Bild 1: Gedanken zur PIO-gesteuerten Sounderzeugung.
Damit läßt sich sicher schon viel anstellen. Wer's übertreiben möchte, baut sich für jeden Ton einen Tongenerator. Aber Achtung, es müßen noch 3 Bits zur Steuerung der Oktaven frei sein! Dafür kann er dann im gewissen Sinne Polyfon.
Eine andere interessante Sache stellt die leider in Englisch gehaltene Hardware-Dokumentation zu einem Mod-Player dar. Daß dieser Mod-Player schon mit einem 286-er PC mit Speaker funktioniert, tut nichts zur Sache. Jedenfalls wird auch hier eine PIO benutzt. Vielleicht übersetzt die mal jemand. Leider kann man sie zur Zeit nur mit einem richtigen DOS ausdrucken. Die Software ist vom Prinzip her nichts weiter als eine PIO-Ansteuerung. Die kann über CAOS wie auch über BASIC realisiert werden.
Da war noch was! Ach ja, beim CPC gab es einen Digiblaster - was auch immer das sein mag. Dieser wurde ebenfalls über den Parallelport angesteuert.
Und nun mal noch eine andere nicht ganz unwesentliche Frage: Was ist eigentlich aus dem Soundmodul geworden?