Schau mal nach , was der C64 alles da liegen..udn was der RASCAL da noch macht.
Gruss
Hallo Besucher, der Thread wurde 14k mal aufgerufen und enthält 99 Antworten
letzter Beitrag von spacer am
Turbo Rascal Syntax error, “;” expected but “BEGIN”
- Marf
- Erledigt
-
-
Wieso können ab $0800 eigentlich keine Spritedaten platziert werden. Mit $20 in den Spritepointer. Dies funktioniert aber mit TRSE nicht. Erst ab $0880 läßt er dies zu, mit $22?
Bei $0801 beginnt der Basic-Programmspeicher, d.h. da liegt die SYS2061-Zeile und direkt dahinter vermutlich eine kleine Initialisierungsroutine.
Jetzt bin ich bei $1600 angelangt, mit $58. Nur sieht hier die Sprite nicht mehr so aus, wie sie einmal gemalt wurde.
Der VIC kann bei $1xxx und $9xxx kein RAM "sehen", dort blendet die PLA das Char-ROM ein.
-
Diese PRG hat 10800 Byte weil die Daten mit incbin nach $3200 gepackt wurden.
Alles anzeigenCode
Meine PRG hat 430 Byte + 128 Byte Spritedaten bei $3200 hingeladen.
Es hat sich gelohnt so eine Lade-ASM zu basteln.
Sieht noch nicht schön aus , hat aber schon eine große Wirkung.Alles anzeigenCode- program spritess;
- var
- hiadr : byte;
- loadr : byte;
- lang : byte;
- adr: integer;
- i : integer;
- procedure dateiladen();
- begin
- asm("
- lda lang
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip
- ldx #$08
- .skip
- ldy #$00
- jsr $ffba
- ldx loadr
- ldy hiadr
- lda #$00
- jsr $ffd5
- ");
- end;
- procedure initsprites();
- begin
- i:=200;
- setspriteloc(0,$C8,0);
- setspriteloc(1,$C9,0);
- spritepos(i,150,0);
- spritepos(78,120,1);
- SPRITE_BITMASK:=%00000011;
- end;
- begin
- poke(^679,0,$53); // name : SPRITE
- poke(^679,1,$50);
- poke(^679,2,$52);
- poke(^679,3,$49);
- poke(^679,4,$54);
- poke(^679,5,$45);
- lang:=6;
- adr:=$3200;
- hiadr:=adr/256;
- loadr:=adr-hiadr*256;
- dateiladen();
- initsprites();
- Loop();
- end.
Gruss -
da liegt die SYS2061-Zeile
Ah verstehe ich das recht, das TRSE da automatisch mit dem Compiler OrgAsm diese Startzeile generiert, obwohl mein Code woanders hin soll, ok. -> Eigenen sys Aufruf erzeugen, ich schau mal ob das geht.
In der Benutzeroberfläche kann man das glaube ich nicht ändern.
Der VIC kann bei $1xxx und $9xxx kein RAM "sehen"
Stundenlang habe ich darüber gelesen. Und trotzdem blind. Der DAU sitzt vor dem Rechner.
Es hat sich gelohnt so eine Lade-ASM zu basteln.
Ja, finde ich auch. Super.
-
Du kommst hier auch nicht weg...?
Das macht süchtig..das tüfteln.
Gruss
-
Augenblick, bitte. Sehe gerade Tagesschau .... über ARD.de
-
Warum willst du das ändern?
Du müste ja den ganzen Kram den Rascal erzeugt verlegen.
Das geht so einfach nicht ohne das System von Rascal durcheinander zu bringen.
Ich hatte ihn : "contact leuat@irio.co.uk for bugs, requests and comments" schon ein mal geschrieben vor einpaar tagen..
Er wollte eine neue Version rausbringen hat er mir gemailt.
Der kontakt ist abgebrochen... keine Anbindung mehr, die Mails werden als nicht erkannt zurückgeschickt.
Versuch du das mal, ob du Kontakt bekommst?
Dann kannst du ja mal deine Fragen dort anbringen.Gruss
-
Warum willst du das ändern?
Ich stelle mir das so vor, das der Programmcode im Speicher hinter den Bildern und Sprite's und was nicht allen für Ressurcen kommt. Wäre halt schön, wenn es ginge. Zum ausprobieren etc.
Der kontakt ist abgebrochen... keine Anbindung mehr
Im Quellcode zu TRSE steht dieser hier. Nicolaas Ervik Groeneboom (nicolaas.groeneboom@gmail.com)
Ich teste das mal an. Mal sehn, ob er rangeht.
-
Mal eine kleine SAVE. Es funktioniert.
Muss nur noch einfacher gestrickt werden für die übergebenen Daten für die Procedure.Wird von Screen $0400 - $04ff gespeichert und bei $0600 wieder eingeladen. ca 620 Byte.
Alles anzeigenCode- program datei_save_8;
- // 679 - 703 adressen frei
- var
- hiadrs : byte;
- loadrs : byte;
- hiadre : byte;
- loadre : byte;
- adrs: integer;
- adre: integer;
- lang : byte;
- adr: integer;
- hiadr : byte;
- loadr : byte;
- procedure save();
- begin
- asm("
- lda lang
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip
- ldx #$08
- .skip
- ldy #$00
- jsr $ffba
- lda loadrs
- ldy hiadrs
- sta $c1
- sty $c2
- ldy loadre
- lda hiadre
- iny
- bne .endadr
- clc
- adc #$01
- .endadr
- sty $ae
- sta $af
- jmp $f5ed
- ");
- end;
- procedure load();
- begin
- asm("
- lda lang
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip1
- ldx #$08
- .skip1
- ldy #$00
- jsr $ffba
- ldx loadr
- ldy hiadr
- lda #$00
- jsr $ffd5
- ");
- end;
- begin
- poke(^679,0,$44); // name : DATEN
- poke(^679,1,$41);
- poke(^679,2,$54);
- poke(^679,3,$45);
- poke(^679,4,$4e);
- lang:=5;
- adrs:=$0400;
- hiadrs:=adrs/256;
- loadrs:=adrs-hiadrs*256;
- adre:=$04ff;
- hiadre:=adre/256;
- loadre:=adre-hiadre*256;
- save();
- poke(^679,0,$44);
- poke(^679,1,$41);
- poke(^679,2,$54);
- poke(^679,3,$45);
- poke(^679,4,$4e);
- lang:=5;
- adr:=$0600;
- hiadr:=adr/256;
- loadr:=adr-hiadr*256;
- load();
- Loop();
- end.
-
Jetzt ist die Save/Load eleganter geworden. Man lernt wieder dazu.
textstring kann mit memcpy übergeben werden an eine Adresse mit @.Hier wird eine Datei gespeichert und wieder geladen:
adrs:=$0400;
adre:=$04ff;
ist Startaddr und Endaddr für das Speichern eine Datei.Alles anzeigenCode- program datei_save_8;
- // 679 - 703 adressen frei
- var
- hiadrs : byte;
- loadrs : byte;
- hiadre : byte;
- loadre : byte;
- adrs: integer;
- adre: integer;
- lang : byte;
- adr: integer;
- hiadr : byte;
- loadr : byte;
- text : string = ("DATEN");
- procedure save(adrps, adrpe: integer, langs : byte );
- begin
- hiadrs:=adrps/256;
- loadrs:=adrps-hiadrs*256;
- hiadre:=adrpe/256;
- loadre:=adrpe-hiadre*256;
- asm("
- lda langs
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip
- ldx #$08
- .skip
- ldy #$00
- jsr $ffba
- lda loadrs
- ldy hiadrs
- sta $c1
- sty $c2
- ldy loadre
- lda hiadre
- iny
- bne .endadr
- clc
- adc #$01
- .endadr
- sty $ae
- sta $af
- jmp $f5ed
- ");
- end;
- procedure load(adrp : integer , langg :byte);
- begin
- hiadr:=adrp/256;
- loadr:=adrp-hiadr*256;
- asm("
- lda langg
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip1
- ldx #$08
- .skip1
- ldy #$00
- jsr $ffba
- ldx loadr
- ldy hiadr
- lda #$00
- jsr $ffd5
- ");
- end;
- begin
- memcpy(@text,0,^679,5);
- lang:=5;
- adrs:=$0400;
- adre:=$04ff;
- save(adrs,adre,lang);
- load($0600,5);
- Loop();
- end.
-
So sieht es aus , wenn du deine Charmap von der D64 einladen tust.
Deine Charmap musst du beim Laden von Disk 2 Addressbyte vorne an setzen, auch wenn die hier nicht gebraucht werden.
Das verlangt das Ladeprogramm wenn von der Disk geladen wird. . Einfach 2x Byte mit 0.Gruss
Alles anzeigenCode- program datei_chr;
- // 679 - 703 adressen frei
- var
- hiadrs : byte;
- loadrs : byte;
- hiadre : byte;
- loadre : byte;
- adrs: integer;
- adre: integer;
- lang : byte;
- adr: integer;
- hiadr : byte;
- loadr : byte;
- text : string = ("CHRMAP");
- procedure save(adrps, adrpe: integer, langs : byte );
- begin
- hiadrs:=adrps/256;
- loadrs:=adrps-hiadrs*256;
- hiadre:=adrpe/256;
- loadre:=adrpe-hiadre*256;
- asm("
- lda langs
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip
- ldx #$08
- .skip
- ldy #$00
- jsr $ffba
- lda loadrs
- ldy hiadrs
- sta $c1
- sty $c2
- ldy loadre
- lda hiadre
- iny
- bne .endadr
- clc
- adc #$01
- .endadr
- sty $ae
- sta $af
- jmp $f5ed
- ");
- end;
- procedure load(adrp : integer , langg :byte);
- begin
- hiadr:=adrp/256;
- loadr:=adrp-hiadr*256;
- asm("
- lda langg
- ldx #$a7
- ldy #$02
- jsr $ffbd
- lda #$01
- ldx $ba
- bne .skip1
- ldx #$08
- .skip1
- ldy #$00
- jsr $ffba
- ldx loadr
- ldy hiadr
- lda #$00
- jsr $ffd5
- ");
- end;
- begin
- lang:=6;
- memcpy(@text,0,^679,lang);
- adr:=$0400;
- load(adr,lang);
- poke(^53272,0,23);
- Loop();
- end.
-
http://www.lemonspawn.com/turb…cted-but-begin/downloads/
Neue Turbo Rascal ist draußen......
An der übernächsten Version wird auch schon wieder gearbeitet.
Eine tolle Sache von den Entwickler , lobenswert und Danke...Gruss.
-
Gleich ersteinmal gezogen ....
-
Heute ist das neue Turbo Rascal rausgekommen :
http://www.lemonspawn.com/turb…cted-but-begin/downloads/
Version 0.06.5Im Sommer will er 0.0.7 rausbringen.
Tolle Sache was da erstellt ist.
Dieses Turbo Rascal ist für mich der Renner um den C64 total auszunutzen mit allen Schikanen.Gruss
-
Wie teile ich eigentlich zwei Zahlen in Turbo Rascal?
Z.B. so etwas wie dies hier.
Alles anzeigenGibt es in Turbo Rascal auch Proceduren, die einen Wert zurück geben können. Function hab ich nicht entdecken können.
-
Ich verfolge TRSE schon eine Weile und spiele immer mal wieder damit herum. Mittlerweile gibt es Version 0.09 und Unterstützung für immer mehr Systeme. Wobei durch das Hinzufügen von noch mehr Prozessorarchitekturen die Entwicklung manchmal etwas planlos erscheint und einiges noch unfertig wirkt.
Aber speziell was den C64 und VIC20 betrifft, ist es ist wirklich vielversprechend und macht mittlerweile richtig Spaß. Könnte mir durchaus vorstellen, damit mal etwas Größeres zu entwickeln. -
Ja ich spiele auch damit für den Vic20.
Man muss einiges selber in ASM reinsetzen .
Bei mir ist es laden und speichern von Daten.
Habe mir etwas in ASM entworfen.
Auch die Benutzung von Zahlen mit Rechnen ist wenig vorhanden.
Alle Dinge für den Datentransfer usw laufen in der Zeropage ab, also bei 255 ist meistens schluss.
Man muss dann Erfinderisch wirken.
Er macht zu viele Systeme , dadurch kommt er mit erweiterten Dingen nicht richtig nach vorne.
-
Die Version 0.9 ist echt schon sehenswert.
-
Alles anzeigen
Ja ich spiele auch damit für den Vic20.
Man muss einiges selber in ASM reinsetzen .
Bei mir ist es laden und speichern von Daten.
Habe mir etwas in ASM entworfen.
Auch die Benutzung von Zahlen mit Rechnen ist wenig vorhanden.
Alle Dinge für den Datentransfer usw laufen in der Zeropage ab, also bei 255 ist meistens schluss.
Man muss dann Erfinderisch wirken.
Er macht zu viele Systeme , dadurch kommt er mit erweiterten Dingen nicht richtig nach vorne.
Ja, man hat sicher nicht die Abstraktion oder den Komfort einer höheren Programmiersprache. Man könnte es fast als hübsch verpackten Assembler bezeichnen. Dieser Ansatz gefällt mir ganz gut. Ich komme schnell zu Ergebnissen und finde ich mich gut zurecht, ohne dass ich dabei das Gefühl habe, zu viel Kontrolle abzugeben oder unnötig Resourcen zu verschwenden. Bin gespannt wie sich das noch entwickelt und hoffe mal, dass die Entwicklung wieder etwas fokussierter wird.
-
Zitat
Die Version 0.9 ist echt schon sehenswert.
Es waren alle sehenswert. Ich spiele schon länger damit.
Es wurde hier nur noch nicht richtig erkannt.
Durch das zu Hause hocken durch den Corona kommt jetzt vielleicht ein bisschen leben rein in dieses Programm.
