Meine ersten Versuche in Xpia

[cyberangle]

Hallo ,
ich versuche mich gerade in Xpia, aber leider ohne Erfolg. Wer kann mir erklären, warum der Compiler mit Fehlermeldung abbricht????

$make I 'CLE
declare A&

AsmStart
  mov eax,1
  mov ebx,1
  
    .while ebx == 10
      add ebx,ebx
    .endw
AsmEnd

waitkey

2. Frage:
ist es möglich aus einer .while .endw Schleife Werte an XProfan zu übergeben und wie

[Frabbing]

Hi.

Freut mich, dass du den Mut hast, mal Neues auszuprobieren!

Zu deinem Code: Du hast vergessen hinter AsmStart einen Namen für die Funktion zu übergeben, z.B. AsmStart Name.

In deinem Code kannst du keine Werte aus der Schleife an XProfan übergeben, weil XProfan wartet, bis die Funktion abgearbeitet wird. Du kannst zwar Werte an Variablen übergeben...

$make I
declare A&

AsmStart Name(Addr(a&))
  mov eax,1
  mov ebx,1
  
mov edx,para1
    .while ebx == 10
  add ebx,ebx
  mov [edx],ebx
    .endw
AsmEnd

waitkey

...und hier würde auch die XProfan-Variable A& immer neu bestückt. Aber wenn der Assemblerteil läuft, hat das Hauptprogramm natürlich Pause. Das ist genauso, als würde eine Prozedure laufen.
Du könntest aber im Assemblerteil einen zweiten Thread starten und dort die Werte übergeben. Dann laufen quasi zwei "Programme" gleichzeitig. Schau dir mal das XPIA-Beispiel "Permanente_Uhr.prf" an. Dort passiert nämlich genau das.

[cyberangle]

@ Frank,

vielen Dank für Deine Hilfe. Habe erst gestern mit XPIA angefangen und erst nach Deinem Posting Programme im XPIA-Ordner entdeckt. Die werde ich mir jetzt erst mal zu Gemüte führen.

Eine Frage hätte ich noch, bei dem Progammtext in meinem ersten Posting Meldete der Compiler einen Fehler in Zeile 147. Mein Progamm hat aber nicht mal 20 Zeilen. Auf Welche Datei bezieht sich der Compiler.

[Frabbing]

XPIA erstellt aus deinen ASM-Funktionen eine Dll. Die Zeilennummer bezieht sich auf den Quellcode dieser .asm-Datei, da die Fehlermeldung vom Assembler stammt. Diese Datei wird im XPIA-Ordner sources generiert, unter gleichem Namen wie deine Ursprungsdatei. Dadurch, dass der Funktionsname fehlt, generiert der Assembler irrtümlich:

; ________________________________________________________________________________________________________________
   eax,1 proc
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
push ebx
push edi
push esi
mov eax,1
mov ebx,1
.while ebx == 10
add ebx,ebx
.endw

pop esi
pop edi
pop ebx
ret 0
eax,1 endp

last.asm(141): Error! E235: Syntax error: eax
last.asm(156): Error! E235: Syntax error: eax

Mal sehen, ob ich den Fehler nicht schon mit XPIA abfangen kann. Ich muss eh noch ein Update machen, weil noch ein Problem bestand, wenn sehr viel Speicher zur Verfügung steht. Danke nochmal an Jac.

Jedenfall generiert XPIA eine Dll mit allen Funktionen. Die Dll wird in Quellcode-Form in deinen Source eingebaut und dann per Memory-Module beim Starten geladen und passend angesprungen.

[Frabbing]

Hab gerade ein kleines Update gemacht auf Version 4.13.

[cyberangle]

Hallo,

ich habe folgenden Programmtext:

$make I ;CLE
declare A&,b&, Uhr$
a& = 1
Uhr$ = time$(1)
Print uhr$
AsmStart Schleife(a&)
  ;mov eax,para1
  
    .while eax == 1000000
      add eax,para1
    .endw
    
AsmEnd (b&)
Uhr$ = time$(1)
Print uhr$
Print " nach Schleife"
Print b&
waitkey

Wenn ich das Prg mit der nicht auskommentierten Zeile mov eax,para1 starte erhalte ich als Rückgabewert in b& am Progammende den Wert 1.
Sollte ich dort nicht der Wert 1000001 finden, da die Schleife ja 1000000 durchlaufen wird.
Kommentiere ich die mov-Zeile aus erhalte ich den Wert 239439564. Wie kann das

Wird der Rückgabewert immer aus eax gelesen?

Ja, ist üblich - auch XProfan bezieht den Übergabewert aus dem EAX-Register.

[Frabbing]

Sollte ich dort nicht der Wert 1000001 finden, da die Schleife ja 1000000 durchlaufen wird.
Kommentiere ich die mov-Zeile aus erhalte ich den Wert 239439564. Wie kann das

Die Schleife wird gar nicht durchlaufen, weil die Bedingung nicht/nie erfüllt ist. Du mußt schreiben <1000000.
239439564 ist ein zufälliger Wert, der sich beim Starten der Funktion in EAX befand.