TPC 6.1 macht 2 Array mit 64000 Byte

Weil vmtl 16-Bit System. Da ist in C ein einzelnes Array grösser als ca 
32k chars spannend, weil

1

&array[max+1] - &array[0]

für gewöhnlich in "int" passen muss.

Wo werden denn die Array abgelegt ?
Dachte nach 64k ist schluss in dem Segment?

Danke.

Pascal versteckt viel vor dem Programmierer.

Peter B. schrieb:
> Wo werden denn die Array abgelegt ?
> Dachte nach 64k ist schluss in dem Segment?

Auch Turbo-C verkraftet das. Da wird dann das Segmentregister 
umgeschrieben.

------------------------------------------
Das ist nur ein Array - wo siehst du zwei?
------------------------------------------

Es werden 2 64kb Bilder abgelegt zum umschalten im Programm .

Peter B. schrieb:
> ------------------------------------------
> Das ist nur ein Array - wo siehst du zwei?
> ------------------------------------------
>
> Es werden 2 64kb Bilder abgelegt zum umschalten im Programm .
Da irrst du dich aber. Zumindest dein Codefragment definiert nur ein 
array
Zusätzlich gibt's zwei Pointer auf eben dieses array.

Nochmal da du das offensichtlich noch nicht kapiert hast. Du kannst bei 
16 Bit Compilern max 64k an globalen Daten nutzen wenn du mehr brauchst 
musst du malloc benutzen um Speicher vom Heap anzufordern. Auch dann 
gilt mehr oder weniger die 64k Grenze dann aber pro Anforderung.

cppbert schrieb:
> das stimmt nicht - wenn er mehrere Datensegmente hat kann er auch ohne
> malloc solche Arrays haben

Kannst du dafür ein Beispiel posten?

OK hab's gefunden mit char huge arr1[70000L ] gehen auch mehr als 64k. 
Das war mir so nicht bewusst.

Danke.

Wie kann ich hier bei TPC den Large zb einstellen oder geht das nicht?

Danke.

Ich setze mal das Programm vom TPC 6.1 hier rein und daraus diese 2 
angeblichen 64000Byte Speicher die ich oben schon gemeldet hatte.

Hier dieses bringt mich durcheinander:
-------------------------------
Procedure SetUpVirtual;
BEGIN
  GetMem (VirScr,64000);
  vaddr := seg (virscr^);
  GetMem (VirScr2,64000);
  vaddr2 := seg (virscr2^);
END;
----------------------------

Getmem ist das gleiche wie malloc in c.

Sind also hier jetzt 2 Segmente mit je 64kb?

vaddr := seg (virscr^);

Und die vaddr enthält die Segmentadresse?

Danke.

Nebenfrage vom Titel.
Nimmt der Portbefehl vom TPC nur Byte oder auch zb unsigned Int?

Port[$3c9] :=....

Dann kann man jedes Array einfach auch wie malloc behandeln mit Getmem?

Danke für Portw.

Ich meine jedes kleine Array kann man mit Getmem dann ein eigenen 
Segment zuweisen wie bei C mit malloc.

Nur das funktioniert hier bei TPC nicht:
vaddr[10]:=65; bei C funktioniert es .

Pascal benutzt intern portb oder portw. Wenn du port benutzt entscheidet 
die Größe der var was benutzt wird. Benutzt du eigentlich auch Mal F1?

Peter B. schrieb:
> Nur das funktioniert hier bei TPC nicht:
> vaddr[10]:=65; bei C funktioniert es .

vaddr ist als Word definiert wieso glaubst du daraus auf einmal ein 
array machen zu können?

Weil es hier heraus entstanden ist meine ich :

Virtual = Array [1..64000] of byte;
VirtPtr = ^Virtual;
VAR Virscr : VirtPtr;


GetMem (VirScr,64000);
vaddr := seg (virscr^);

vaddr[10]:=65; ?

Mem [vaddr:10]:=20; ist der Befehl um Daten zuzuweisen.

Pascal ist nicht C, C ist nicht Pascal.

Pascal ist ein Lehrsprache. Damit sollen Konzepte der Programmierung und 
auch programmieren beigebracht werden.

C ist von Profis (für sich selber), die wissen was sie tun.
Die wollten sich die Arbeit leichter machen.

C ist zwar einfach aufgebaut, hat aber genug Fallstricke, die beim 8086 
nochmal verschärft sind.

Pascal versteckt einiges vor dem Programmierer.
Die Programme sind meist sicherer, weil man nicht so viel Mist machen 
kann.
(Ein C-Compiler gibt da „nur“ Warnungen aus)

Dispose habe ich bei TPC 7 gefunden.
Hatte es ersetzt für TPC 6 vor einer Stunde.

cppbert schrieb:
> Gibt es schon New/Dispose in TP 6?

In TP7 ja in TP6 weiß ich's nicht genau vermutlich aber auch. OOP würde 
ja mit TP5.5 eingeführt

In TPC6 auch.
Habe es mal in der DosBox abgelichtet.

nimms mir nicht übel aber vieleich soltest du mal mit was einfachem 
anfangen. Eine Einführung in C oder auch Pascal startet sicher nicht mit 
der Grafikprogrammierung und schon garnicht mit dem Schreiben in den 
Bildschirmspeicher. das ist fortgeschrittenes Wissen und heute sowas von 
obsolet.

------------
obsolet.
------------

Man soll auch mal auf die kleinen Dinge achten die Vergangenheit waren.
Un das tue ich.  Ihr lebt manchmal am Leben vorbei und denkt nur an den 
Supergau und das macht euch Abhängig davon , ihr  könnt kleine Dinge 
nicht mehr erkennen. Gönnt euch die mal , es bringt große Freude.