Ports mit Turbo Pascal abfragen

Hallo zusammen,

zur Zeit programmiere ich mit Turbo Pascal ein
kleines Spiel für den Joyce. Aktuell unterstützt mein Programm als
Eingabemedium nur die Tastatur. Da ich ein DK'Tronics Joystick und Sound
Interface besitze, würde ich auch gerne die Joystickeingabe
realisieren. Leider sind meine Versuche aber bislang gescheitert.
Vielleicht weiß hier jemand Rat?

Unter Mallard Basic kann ich mit dem folgenden Programm den Joystick erfolgreich ansprechen:

10 OUT 170,7
20 OUT 171,63
30 OUT 170,14
40 J=INP(169)
50 IF J=251 THEN  PRINT "links"
60 IF J=247 THEN  PRINT "rechts"
70 IF J=239 THEN  PRINT "unten"
80 IF J=223 THEN  PRINT "oben"
90 IF J=191 THEN  PRINT "Feuer"
100 GOTO 30

Ich habe versucht das kleine Testprogramm unter Turbo Pascal nachzubilden, leider wird aber stets der Wert 255 zurückgeliefert:

Var
    Joy:   Integer;
    Feuer: Boolean;


Begin
    bios(170,7);
    bios(171,63);
    Feuer:=false;
    bios(170,14);
    Joy:=bios(169);
    write(Joy);
    Repeat
        bios(170,14);
        Joy:=bios(169);
        write(Joy);
        if Joy=251 then write('links');
        if Joy=247 then write('rechts');
        if Joy=239 then write('unten');
        if Joy=223 then write('oben');
        if Joy=191 then write('Feuer');
        if Joy=255 then write(Joy);  (* diese Zeile gegebenenfalls auskommentieren, da sonst laufend 255 ausgegeben wird *)
    Until Keypressed;
End.

Die Beschreibung zum Interface findet man hier:
http://www.cpcwiki.eu/forum/nc…ion=dlattach;attach=13949
Leider enthält sie nur Beispiele in Basic und Maschinencode und nicht zu Turbo Pascal.

Viele Grüße,
Marcus

Hallo zusammen,

wenn ich die Schleife um eine Zeile Joy:=0; ergänze, bleibt das Ergebnis leider gleich, bios(169) liefert immer den selben Wert. Ich denke, dass meine Fehler in den anderen bios-Befehlen liegt. Ich bin mir da auch äußerst unsicher, ob ich überhaupt auf dem richtigen Weg bin, von daher wäre ich auch über eine auf dem Apple II mit Turbo Pascal erstellte Lösung dankbar.

Viele Grüße,
Marcus

Die Wertzuweisung in Turbo Pascal erfolgt über := , soweit ist das schon richtig.

Ich bin mir nur nicht sicher, ob die Basic Befehle "OUT" und "INP" in Turbo Pascal mit dem Befehl "BIOS" nachgebildet werden können.
Mit dem Zugriff auf Maschinenroutinen, Speicherbereiche und Ports kenne ich mich leider nicht aus.
Ich habe noch etwas im Netz gesucht und bin auf folgenden Artikel gestoßen:
http://www.cirsovius.de/CPM/Pr…/Interface/Interface.html
In dem Artikel ist ein kleines Turbo Pascal zu finden, die dem die Baudrate der serielle Schnittstelle eingestellt wird. Hierfür wird eine Feldvariable "port" verwendet. Dabei handelt es sich offenbar um eine fest definierte Variable, die nicht explizit deklariert werden muss. Ich denke ich werde hiermit mal etwas rumprobieren.

Herzlichen Dank für die Unterstützung!

Die Realisierung mittels "port" hat das gewünschte Ergebnis gebracht!

Auch das TP3 Handbuch wird mir sicher noch wertvolle Hilfe leisten.

Ich finde es wirklich klasse wie schnell man hier auch für 30 Jahre alte Systeme Hilfe erhält!

Viele Grüße,
Marcus