Turbo Rascal Syntax error, “;” expected but “BEGIN”

Hamrath · 17. März 2019

Zitat von spacer

Dieses Programm läuft nicht:

Code

program screen;

procedure screen();

begin

asm("

lda 1

sta 1024

lda 2

sta 1025

");

end;

begin

screen();

Loop();

end.

Alles anzeigen

Das kleine ASM-Programm hat seine Tücken.
Es werden nicht "AB" ausgedruckt.

Gruss

Alles anzeigen

Du übergibst aber nicht A und B, sondern liest mit LDA 1 und LDA 2 aus, was im Speicher an Stelle 1 respektive 2 steht.

Richtig wäre

Code

program screen;
procedure screen();
begin
asm("
lda #1
sta 1024
lda #2
sta 1025
");
end;
begin
screen();
Loop();
end.

Alles anzeigen

spacer · 17. März 2019

Danke , die Raute habe ich nicht beachtet.

Gruss

spacer · 18. März 2019

Jetzt habe ich herausgefunden warum die ASM-Proceduren im Hauptprogramm
abgelehnt werden.
In der 1. Programmzeile darf der Name nicht identisch sein mit einem
Procedurnamen.

Gruss

Code

program screens;
var
x,y: integer;
procedure screen();
begin
asm("
lda #$00
sta $fb
lda #$04
sta $fb+1
ldx #$04
ldy #$00
lda #4
schleife:
sta ($fb),Y
iny
bne schleife
inc $fb+1
dex
bne schleife
");
end;
begin
screen();
Loop();
end.

Alles anzeigen

spacer · 18. März 2019

Die PRG-Beispiele werden durch die eingeladenen BIN/FLF Dateien aufgebläht. Sind halt DEMOS wo wohl alles gezeigt werden soll.

Ich habe die mal weggelassen und der ASM-Code bzw die PRG werden dadurch wieder klein, wie man es wünscht.
Man kann auch eine Möglichkeit finden die BIN/FLF in eine REU zu packen, geht bei mir mit dem TC64 v2, oder von der Disk nachladen je nach bedarf.

Bei der nächsten Version soll wohl ein Hilfe der Befehle reinkommen, ist für März/2019 geplant.

Es macht schon Spass damit zu proggen und zu tüfteln

Gruss

Hamrath · 18. März 2019

Ich muss mir das auch mal genauer anschauen. Aktuell konvertiere ich einen BASIC-Code von mir nach XC-BASIC, um mal zu testen, wie das funktioniert. Wenn ich damit durch bin, werde ich das gleiche mit Turbo Rascal probieren.

spacer · 18. März 2019

Dieses XC-Basic habe ich auch mal angesehen. Ist sehr mager und für mich nicht herausfordernd .

Das TRSE ist schon durchdachter und fordert ein auf , nicht aufzuhören.
Der erste Blick war nicht so ernüchternd beim TRSE, nach mehrern Stunden und durchschauen der Demos hat man
das potenzial gesehen wenn man den C64 heaufordern möchte ohne cc65.

Ich habe mlr die Demos zerlegt und mir einzelne Proceduren vorgenommen und damit meine eigenen kleinen Programme erstellt.
Ich bin immer noch dran und staune was in den Befhelen drin steckt.

Es wird im März noch eine Aufklärung kommen für die Befehle die ich dort gelesen habe.

Gruss

Hamrath · 18. März 2019

XC-BASIC interessiert mich hauptsächlich als Alternative zu compiliertem BASIC V2. Aber da fehlt wirklich noch einiges.

spacer · 18. März 2019

So hatte ich das auch gesehen.

Habe dieses TRSE erst vor einpaar Tagen gefunden.
Und habe es jetzt für mich als gut empfunden.

GRuss

spacer · 18. März 2019

Der TRSE kann auch gut mit Adressen und Pointer umgehen, die auch zur Übergabe an eine ASM-Routine genutzt werden können.
Im Screen wird die 1. Reihe ab Adresse $400 mit 40 Chars beschrieben.

Ich gehe hier gleich in die Tiefe, was er kann.
Man kann auch Routinen in ASM schreiben für extra schnelle Aufgaben oder für eigene Aufgaben die evtl von TRSE nicht bereit
gestellt werden können.

Code

program var_asm;
var
x,z: byte;
scraddr : integer;
address: pointer;
@define scraddr address
procedure scr_char();
begin
asm("
lda x
ldy #0
sta (@scraddr),y
");
end;
begin
clearscreen(LIGHT_BLUE, ^$D800);
clearscreen($20, ^$0400);
for z:=0 to 39 do begin
x:=z;
address:=$400+z;
scr_char();
end;
Loop();
end.

Alles anzeigen

Was ich auch gut finde sind absolute Zuweisungen an bestimmte Addressen.

Code

program absolut;
var
i : byte;
mem: array[8] of byte = (1,2,3,4,5,6,7) at $c000;
begin
poke(^$400,0,mem[0]);
poke(^$401,0,mem[1]);
poke(^$402,0,mem[6]);
Loop();
end.

Alles anzeigen

Zirias/Excess · 19. März 2019

2. Seite übersehen, kann weg...

spacer · 20. März 2019

Hallo, guten Tag.

Habe hier mal die REU programmiert mit TRSE.

Vom Screen von $0400 die ersten 255 Byte in die Reu geschoben.
Dann die 255 Byte aus der REU wieder nach S04f0 zurück geschrieben.

Die Datei ist 403 Byte gross.
Meine Programmierkunst ist nicht gut.
Mit ein bisschen mehr Programmierkenntnisse kann man mehr rausholen.
Mir ging es jetzt nur um ein Funktionieren in TRSE.

Gruss

Code

program reu;
var
a : integer;
b : byte;
c64addr : integer ;
reuaddr : integer;
movebyte : integer;
bank : byte;
kdo : byte;
c64_reu : byte;
reu_c64 : byte;
procedure c64_reu_c64();
begin
a:=c64addr;
b:=c64addr/256;
poke(^$df02,0,a);
poke(^$df02,1,b);
a:=reuaddr;
b:=reuaddr/256;
poke(^$df04,0,a);
poke(^$df04,1,b);
a:=movebyte;
b:=movebyte/256;
poke(^$df07,0,a);
poke(^$df07,1,b);
poke(^$df06,0,bank);
if kdo=252 then begin
poke(^$df01,0,252);
end;
if kdo=253 then begin
poke(^$df01,0,253);
end;
end;
begin
c64_reu:=252;
reu_c64:=253;
c64addr:=$0400;
reuaddr:=0;
bank:=0;
movebyte:=255;
kdo:=c64_reu;
c64_reu_c64();
c64addr:=$04f0;
reuaddr:=0;
bank:=0;
movebyte:=255;
kdo:=reu_c64;
c64_reu_c64();
Loop();
end.

Alles anzeigen

spacer · 21. März 2019

2 Grafikscreen Multi oder Hires zum umschalten.

Einfach zu handhaben.

Gruss

Code

program grafikscreen;
var
val,bmg_currbank: byte;
procedure SwitchDrawBank();
begin
if bmg_currbank=0 then begin
bmg_currbank := $40;
SetBank(VIC_BANK0);
clearbitmap(^$6400, 22);
end
else
begin
bmg_currbank:=0;
SetBank(VIC_BANK1);
clearbitmap(^$2400, 22);
end;
end;
begin
poke(VIC_DATA_LOC, 0,$18);
setmulticolormode();
setbitmapmode();
SCREEN_BG_COL:=BLUE;
SCREEN_FG_COL:=RED;
clearbitmap(^$2000,32);
clearbitmap(^$6000,32);
clearscreen(YELLOW,^$D800);
clearscreen(GREEN,^$0400);
clearscreen(BLUE,^$4400);
bmg_currbank :=0;
//SwitchDrawBank();
poke(^$2000,0,129);
bmg_currbank :=1;
SwitchDrawBank();
poke(^$6000,0,255);
Loop();
end.

Alles anzeigen

WalkThatWay · 21. März 2019

Sieht Turbo Pascal bzw. Pascal sehr ähnlich. Welche Schleifenkonstrukte kann Rascal denn so?

spacer · 21. März 2019

Ich habe noch " While do.." gefunden.

Die Beschreibung soll jetzt im Mörz noch rauskommen.
Ich habe meine Sachen vom Anschauen der Demos gebaut.

Die Grafik/Sprites/Musik kann man aus den Demos anschauen.
Als Anfänger fiel mir das jetzt nach einpaar Tagen nicht so schwer die Befehle daraus kennenzulernen.

Ich habe letzte Zeit mit BasicBoss(Cross) meine Sachen entworfen. Ist auch sehr schnell.
Man verliert bei längern Programmen die Zeilenübersicht.

Ohne Zeilennummer zu Spielen und nur mit Proceduren ist für mich sehr angenehm mit dem Rascal.
Über die Geschwindigkeit schreibe ich hier nicht viel . Ist Super schnell.
Man kann den ASM-Code sichten und auch später mit DASM kompilieren.

gruss

spacer · 21. März 2019

Ein KOALA-IMG konnte ich jetzt auch einladen von der REU. Das IMG ist mit Ganged gemacht worden und hat 10003 Byte.

Gruss

Code

program reugrafik;
var
bmg_currbank:byte;
a : integer;
b : byte;
c64addr : integer ;
reuaddr : integer;
movebyte : integer;
bank : byte;
kdo : byte;
c64_reu : byte;
reu_c64 : byte;
procedure c64_reu_c64();
begin
a:=c64addr;
b:=c64addr/256;
poke(^$df02,0,a);
poke(^$df02,1,b);
a:=reuaddr;
b:=reuaddr/256;
poke(^$df04,0,a);
poke(^$df04,1,b);
a:=movebyte;
b:=movebyte/256;
poke(^$df07,0,a);
poke(^$df07,1,b);
poke(^$df06,0,bank);
if kdo=252 then begin
poke(^$df01,0,252);
end;
if kdo=253 then begin
poke(^$df01,0,253);
end;
end;
procedure SwitchDrawBank();
begin
if bmg_currbank=0 then begin
bmg_currbank := $40;
SetBank(VIC_BANK0);
clearbitmap(^$6400, 22);
end
else
begin
bmg_currbank:=0;
SetBank(VIC_BANK1);
clearbitmap(^$2400, 22);
end;
end;
begin
poke(VIC_DATA_LOC, 0,$18);
setmulticolormode();
setbitmapmode();
bmg_currbank :=1;
SwitchDrawBank();
c64_reu:=252;
reu_c64:=253;
c64addr:=$6000;
reuaddr:=2;
bank:=0;
movebyte:=8000;
kdo:=reu_c64;
c64_reu_c64();
c64addr:=$4400;
reuaddr:=8002;
bank:=0;
movebyte:=1000;
kdo:=reu_c64;
c64_reu_c64();
c64addr:=$d800;
reuaddr:=9002;
bank:=0;
movebyte:=1000;
kdo:=reu_c64;
c64_reu_c64();
Loop();
end.

Alles anzeigen

Hamrath · 21. März 2019

Sehr cool.

Von XC-BASIC lass ich erstmal die Finger. Auch wenn ich da eine Menge Potential sehe, fehlen dem Compiler einige wichtige Features. AND und OR funktioniert nur im Rahmen von if-Abfragen, in Variablen oder bei POKE ist das nicht möglich. Und das ist schon ein Ausschlußkriterium. Ich will die Sachen ja nicht alle von Hand umrechnen.

spacer · 21. März 2019

Hallo, grüss dich.

AND und OR habe ich bei Rascal auch noch nicht gefunden. Float hat er auch noch nicht drin.
Ich brauchte es zwar nicht , hat mich aber gewundert.

Der Rascal lässt aber zu , das kleine ASM-Routinen einfach zwischen den Code gesetzt werden können ohne eine Procedure aufzurufen.

Ich progge auch noch mit BasicBoss, der hat fast die gleichen Befehle wie das C64-Basic, nur fallen die Befehle weg die für den Interpreter zuständig sind.
Hat natürlich wieder die Zeilennummern und kennt dann nur das Gosub und Goto.

Gruss

WalkThatWay · 26. März 2019

Beim Bau/Designen eines eigenen Character sets wird dieser nicht sofort rechts im Charset Fenster angezeigt. Erst nach einem Abspeichern und neu ladens der *.flf Datei. Das irritiert einen Neueinsteiger ein bischen.
Auch das Löschen, wenn man sich vermalt hat, ist irgendwie nicht richtig gelöst.

Die Recent Projects bekommt man auch erst mit dem Bearbeiten der fluff64.ini und dem gleichzeitigen Löschen der sine.bin in den Griff.

To be continued ....

spacer · 26. März 2019

Dieses *.flf habe ich noch nicht begriffen.

Ich habe meinen eigenes Programm für den Charset " Ganged". Ist einfach und übersichtig.

Für mich ist das eigentliche Rascal als Programmiertool wichtig.
Endlich mal einen wunderbaren Compiler als Cross.

Gruss

spacer · 26. März 2019

Habe mal die Floating-Befehle getestet.
Kann man einfach integrieren und funktionieren.

Jeder muss halt nur die richtige Speicheraufteilung finden für die Ausgabe und Eingabe.

Gruss

Code

program float;
// 679 - 703 adressen frei
var
strzahl : string = ("-1234.567");
memfloat: array[255] of byte at $2000;
memstr: array[255] of byte at $2200;
@define fac_fmul10 "47842"
@define fac_fdiv10 "47870"
@define fac_abs "48216"
@define addram_fac "47207"
@define subfac_ram "47184"
@define subfac_arg "47187"
@define multfac_ram "47656"
@define divfac_ram "47887"
@define fac_sqr "49009"
@define fac_sin "57963"
@define fac_cos "57956"
@define fac_tan "58036"
@define fac_arct "58126"
@define ram_arg "47756"
@define fac_ram "48084"
@define ram_fac "48034"
@define arg_fac "48143"
@define fac_arg "48124"
@define int_fac "45969"
@define flpout "43708"
@define fac_str "48605"
// rom adressen von festwerten
procedure adr_1();
begin
asm("
lda #$bc
ldy #$b9
");
end;
procedure adr_05();
begin
asm("
lda #$11
ldy #$bf
");
end;
procedure adr_025();
begin
asm("
lda #$ea
ldy #$e2
");
end;
procedure adr_pi();
begin
asm("
lda #$a8
ldy #$ae
");
end;
procedure adr_pi12();
begin
asm("
lda #$e0
ldy #$e2
");
end;
procedure adr_2pi();
begin
asm("
lda #$09
ldy #$e3
");
end;
procedure adr_sqr2();
begin
asm("
lda #$db
ldy #$b9
");
end;
procedure adr_10();
begin
asm("
lda #$f9
ldy #$ba
");
end;
// umwandeln
procedure int_fac();
begin
asm("
lda $00
ldy $24
jsr 45969
");
end;
procedure fac_int();
begin
asm("
lda $00
ldy $24
jsr 45482
");
end;
// string nach $2100
procedure str_fac();
begin
asm("
lda #$00
sta $22
lda #$21
sta $23
lda $2000
jsr 47029
");
end;
begin
settextmode();
clearscreen($20, ^$0400);
memfloat[0]:=32; // $2000
moveto(0,0,$21);
printstring(strzahl,0,32);
poke(^211,0,0);
poke(^214,0,0);
call(^58640);
str_fac();
call(^@flpout);
adr_pi();
call(^@ram_fac);
call(^@fac_str);
memcpy(^$100,0,^$428,9);
Loop();
end.

Alles anzeigen

Turbo Rascal Syntax error, “;” expected but “BEGIN”

Ähnliche Themen

C64 Spiele Programmieren

Der MEGA65-Laber-Stammtisch

"Turbo Rascal Syntax error" with MEGA65 Support

Turbo Rascal hat auch den VIC20 mit drin.

8. LuheCon in Winsen (Luhe) am 01.12.2018 (Anmeldung und Laberthread)