Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » Turbo Pascal unter CP/A » Themenansicht

Autor

Thread - Seiten: -1-

000
19.02.2023, 11:22 Uhr
Georg

Hallo,
ich möchte mit Turbo Pascal 3.02A auf eine PIO zugreifen, das sollte mit PORT funktionieren
leider ist mir der Syntax nicht klar. Wer kann da helfen?
Beste Grüße
Georg
--
DL5GSM ex DO5GSM DOK:X01 LOC:jo51pm

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
19.02.2023, 11:34 Uhr
volkerp
Default Group and Edit

Einfach mit dem Port-Array:

Beispiel port[0] read and write:

i := port[0];
port[0] := i;
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
19.02.2023, 18:47 Uhr
Georg

Vielen Dank, das hilft mir weiter

Beste Grüße
Georg
--
DL5GSM ex DO5GSM DOK:X01 LOC:jo51pm

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
19.02.2023, 19:17 Uhr
Georg

mein Fehler bleibt...
Compiling
3 line
PROGRAM PIO;
BEGIN
PORT[$0A]:=$0FH;
PORT[$08]:=$FFH;
END.

ERROR 1: ';' expected. Press<ESC> ...
--
DL5GSM ex DO5GSM DOK:X01 LOC:jo51pm

Dieser Beitrag wurde am 19.02.2023 um 19:59 Uhr von Georg editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
19.02.2023, 20:02 Uhr
Lötspitze

Vielleicht liegt es an den beiden "H". Nimm sie mal weg, da Du ja mit "$" schon auf eine HEX-Zahl verweist.

VG Matthias
--
___________________
...geboren, um zu löten.

Wer rennen soll, muß auch mal stolpern dürfen.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
19.02.2023, 21:56 Uhr
Georg

ES war das "H"
Danke
--
DL5GSM ex DO5GSM DOK:X01 LOC:jo51pm

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
21.02.2023, 07:37 Uhr
Bert

Ich bin ja ein großer Fan von lesbaren Programmen und hätte da noch folgenden kleinen Vorschlag:

Quellcode:


PROGRAM PIO;
  const PIO_CTRL = $0A;
  const PIO_DATA = $08;
BEGIN
  PORT[PIO_CTRL]:=$0FH;
  PORT[PIO_DATA]:=$FFH;
END.

Viele Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
21.02.2023, 10:19 Uhr
MarioG77

Zitat:

Bert schrieb
Ich bin ja ein großer Fan von lesbaren Programmen und hätte da noch folgenden kleinen Vorschlag:

Quellcode:


PROGRAM PIO;
  const PIO_CTRL = $0A;
  const PIO_DATA = $08;
BEGIN
  PORT[PIO_CTRL]:=$0F;
  PORT[PIO_DATA]:=$FF;
END.

Viele Grüße,
Bert

Aber am Besten ohne das "H"

--
Gruss Mario

Betriebsbereit: KC85/3, 2x [KC85/4, D004+Floppy, D008], PPC512, PC1512, 2xEC1834, Soemtron 286, 3x PC1715, picoAC1
Zu restaurieren: 1x A5120 und hin und wieder was von oben

Dieser Beitrag wurde am 21.02.2023 um 10:19 Uhr von MarioG77 editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
21.02.2023, 10:28 Uhr
Bert

Immer wieder diese copy&paste-Fehler :-)

Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
21.02.2023, 19:45 Uhr
GerdS

Hallo,

hier mal für TURBO-PASCAL (CP/M) was zum Wiedereinarbeiten.

https://c.1und1.de/@518032390036128199/EeIGE9FgRKmONVWsEqTV5w

Gruß aus LE

Gerd

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]