Array mit Poke füllen geht nicht.

[Peter B. (funkheld)]

Hallo, guten Tag.

Warum kann man bitte das Array nicht mit Poke füllen im PDS ?
Es werden zur Kontrolle nur "0" ausgegeben.

rem $dynamic 
DIM array%(1000)

FOR x% = 0 TO 999
  array%(x%) = 0
NEXT

segia%=varseg(array%(0))
ofsia%=varptr(array%(0))

def seg=segia%
for z%=0 to 50
  poke ofsia%+z%,z%
next
def seg

for a%=0 to 50
  print array%(a%)
next

Danke.

[PIClig (Gast)]

Vermutlich fehlt dem poke die Segmentadresse.
Und nun stochert es im Trueben.

[Systemgewinner (Gast)]

was ist das denn für eine beschissene programmiersprache.

[Wegstaben V. (wegstabenverbuchsler)]

"poke" (und sein Bruder "peek") ist ein noch üblerer Befehl als "goto" 
und sollte mit mindestens einmal auf die Hand schlagen bestraft werden.

[Codo (Gast)]

Systemgewinner schrieb:
> was ist das denn für eine beschissene programmiersprache.

Also erstens wird eine Frage mit einem Fragezeichen beendet und nicht 
mit einem Punkt.
Zweitens die Frage, wie du auf "beschissen" kommst.
Und drittens ist es von Vorteil, wenn man lesen kann.
Die Antwort lautet: "PDS Basic"

[Michael M. (do7tla)]

Wegstaben V. schrieb:
> "poke" (und sein Bruder "peek") ist ein noch üblerer Befehl als
> "goto"
> und sollte mit mindestens einmal auf die Hand schlagen bestraft werden.

Erinnert stark an Commodore C64 Basic.

[Joachim B. (jar)]

Wegstaben V. schrieb:
> "poke" (und sein Bruder "peek") ist ein noch üblerer Befehl als "goto"
> und sollte mit mindestens einmal auf die Hand schlagen bestraft werden.

jeder nutzt zu jeder Zeit das Werkzeug welches er besitzt!
Peek & Poke sind nicht verwerflicher als BEGINN & END oder TAB 
Einrückungen.

Auch mit Peek & Poke konnte man tolle ASM Programme schreiben!
Beim CBM, beim PC1500 uvam.

[2⁵ (Gast)]

Peter B. schrieb:
> for z%=0 to 50
>   poke ofsia%+z%,z%
> next

POKE schreibt Bytes, dein Array sind WORDs. Probiere mal:

poke ofsia%+z%*2,z%

[Zeno (Gast)]

Joachim B. schrieb:
> verwerflicher als BEGINN & END

Was sollte denn an BEGIN (nur ein N) und END denn verwerflich sein? 
Erschließt sich mir nicht wirklich? - Jetzt hab ich's ist für dieses 
Forum die falsche Programmiersprache.

[PIClig (Gast)]

> BEGIN & END

sind viel zu ausschweifend. Wo doch schon { und } voellig reichen.
Im uebrigen scheint der TO

def seg=segia%
for z%=0 to 50
  poke ofsia%+z%,z%
next
def seg

nur zu definieren. Aber nicht aufzurufen.
Aber das mag taeuschen. Soll er gefaelligst selber ins Manual scheun.

[Codo (Gast)]

PIClig schrieb:
>> BEGIN & END
>
> sind viel zu ausschweifend. Wo doch schon { und } voellig reichen.

Glückwunsch! Du hast die Neuigkeit herausgefunden, dass es Unterschiede 
zwischen verschiedenen Programmiersprachen gibt.

[Blub B. (googoo)]

PIClig schrieb:
> Im uebrigen scheint der TO
>
> nur zu definieren. Aber nicht aufzurufen.
> Aber das mag taeuschen.

Das täuscht.
Def Seg legt das Segmentregister für die folgenden peek/poke fest. So 
alter 16bit-Krams ist das

[c-hater (Gast)]

Joachim B. schrieb:

> Auch mit Peek & Poke konnte man tolle ASM Programme schreiben!

Nicht wirklich.

Man konnte allenfalls Poke benutzen, um ein paar Stücke Maschinencode in 
den Speicher zu befördern. Aber Assemblerprogrammierung ist eigentlich 
was anderes...

[Karl (Gast)]

Zeno schrieb:
> Jetzt hab ich's ist für dieses Forum die falsche Programmiersprache.

Jetzt hast du es erfasst.

[Peter B. (funkheld)]

Ich bin hier auch falsch.

Wusste nicht das hier die Elite dazwischen Schreibt bei meinem 
DOS-Programm , die das Programm für den VW-Diesel entwickelt hat. Wenn 
ihr POKE/PEEK und GOTO genommen hättet , dann wäre es aufgefallen das 
hinten falsche Werte raus kommen.

Na,dann...

[georg (Gast)]

Peter B. schrieb:
> Wenn
> ihr POKE/PEEK und GOTO genommen hättet

Dann wäre der Dieselbetrug bis heute verborgen geblieben, weil bei den 
Prüfbehörden niemand mehr weiss was das überhaupt ist.

Georg

[cppbert (Gast)]

Kannst du in ein einzelnen Integer mit poke schreiben?

[2⁵ (Gast)]

Peter B. schrieb:
> Ich bin hier auch falsch.

Hm... hast du das überhaupt mal probiert?

2⁵ schrieb:
> poke ofsia% + z% *2, z%

[Peter B. (funkheld)]

Hallo, guten Tag.

Das funktioniert :
-----------------------
a%=123
segia%=varseg(a%)
ofsia%=varptr(a%)

def seg= segia%
print peek(ofsia%+0)
def seg
-----------------------

Das funktioniert auch nicht mit dem Array.
Das Array muss wohl eine andere Lage haben,
wo jetzt Segment und Offset nicht alleine ausreicht.
-----------------------
> poke ofsia% + z% *2, z%
------------------------

[TR.0LL (Gast)]

Peter B. schrieb:
>

> rem $dynamic
[...]
> for a%=0 to 50
>   print array%(a%)
> next
>

Weleche Sprache ist das?

[Falstaff (Gast)]

TR.0LL schrieb:
> Weleche Sprache ist das?

PDS-Basic

Peter B. schrieb:
> mit Poke füllen im PDS

[cppbert (Gast)]

Peter B. schrieb:
> a%=123
> segia%=varseg(a%)
> ofsia%=varptr(a%)
>
> def seg= segia%
> print peek(ofsia%+0)
> def seg

Jetzt mach mal daraus ein Array mit genau einem Eintrag

Und so nebenbei: nutzt doch bitte die as int,long etc. Schreibweise 
diese % s postfixes sind nicht wirklich sprechend

[Peter B. (funkheld)]

Danke.
Dieses funktioniert:

rem $dynamic
dim arraya(32000) as Integer
dim arrayb(32000) as Integer

dim segia as integer
dim ofsia as integer

dim segib as integer
dim ofsib as integer

segia=varseg(arraya(0))
ofsia=varptr(arraya(0))

segib=varseg(arrayb(0))
ofsib=varptr(arrayb(0))

arraya(30000)=105
arrayb(31000)=207

def seg= segia
print peek(ofsia+30000*2)
def seg

def seg= segib
print peek(ofsib+31000*2)
def seg

[cppbert (Gast)]

Peter B. schrieb:
> Dieses funktioniert:

D.h. dein print zeigt 105 und 207?

Dann muss poke so auch funktioniere, also gleicher offset,segment nur 
eben poke

Was mir noch nicht klar ist: du meintest PDS basic kann keine bytes, 
schreibt poke dann auch nur integer oder doch nur bytes, dann musst du 
ein int > 255 mit zwei pokes schreiben

[cppbert (Gast)]

Du solltest mind Feldwerte 64 und 344 testen sonst merkst du es nicht 
wenn dein schreiben nur mit bytes funktionier (dein 105 und 207 sind bei 
in einem byte abbildbar)

[cppbert (Gast)]

https://books.google.de/books?id=dCbPBgAAQBAJ&pg=PA357&lpg=PA357&dq=pds+basic+peek+poke&source=bl&ots=zexyCRAfMZ&sig=ACfU3U1JYaiTaL9zGZMRPN36rKt58aqLpw&hl=de&sa=X&ved=2ahUKEwj4i-6b_4bpAhVKxMQBHYmPAtAQ6AEwAXoECAUQAQ#v=onepage&q=pds%20basic%20peek%20poke&f=false

Bitte noch mal genau lesen, da steht was mit EMS, und peek,poke operiert 
nur auf bytes d.h. werte ueber 255 musst du selbst in einen int mappen

[blub (Gast)]

poke x+(2*y)+1, z / 256
poke x+(2*y), z mod 256
so sollte es eigentlich gehen

[cppbert (Gast)]

blub schrieb:
> poke x+(2*y)+1, z / 256
> poke x+(2*y), z mod 256

x = array offset aus varptr
y = array index

[cppbert (Gast)]

cppbert schrieb:
> blub schrieb:
>> poke x+(2*y)+1, z / 256
>> poke x+(2*y), z mod 256
>
> x = array offset aus varptr
> y = array index

Und z = integer wert

[Peter B. (funkheld)]

Danke für die Info.
Poke und Peek geht nur Byte.
Darum habe ich auch nach einem Pokeword/Peekword gesucht und dieses 
funktioniert in PDS :

.Model Medium, Basic
.Code

public PeekWord 
PeekWord Proc Uses ES, SegAddr:DWord
  Les  BX,SegAddr     ;load the segment and address
  Mov  AX,ES:[BX]     ;read the word into AX
  Ret                 ;return to BASIC
PeekWord Endp

public PokeWord 
PokeWord Proc Uses ES, SegAddr:DWord, Value:Word
  Les  BX,SegAddr     ;load the segment and address
  Mov  AX,Value       ;and the new value to store there
  Mov  ES:[BX],AX     ;write the value into memory
  Ret                 ;return to BASIC
  
PokeWord Endp
End

[cppbert (Gast)]

geht auch in pure Basic mit
>> poke x+(2*y)+1, z / 256
>> poke x+(2*y), z mod 256

Jetzt mal wieder die grosse Frage:
Woran hat es denn gelegen wenn jetzt alles geht?

[Peter D. (peda)]

Peter B. schrieb:
> Warum kann man bitte das Array nicht mit Poke füllen im PDS ?

Warum sollte man das überhaupt?
Es ist doch viel bequemer, schneller und sicherer, einfach über den 
Index auf das Array zuzugreifen.
Peek und Poke nimmt man nur dann als Krücke, wenn der Speicher einem 
nicht gehört, z.B. dem OS.

[Peter B. (funkheld)]

Dieses habe ich:
DIM array%(32000)

umgewandelt in:
DIM array(32000) as integer

Danke.

rem $dynamic 
DIM array(32000) as integer

FOR x% = 0 TO 999
  array(x%) = 0
NEXT

segia%=varseg(array(0))
ofsia%=varptr(array(0))

def seg=segia%
for z%=0 to 50
  poke ofsia%+z%*2,z%
next
def seg

for a%=0 to 50
  print array(a%)
next