RS232 mit cc65

schnucke · 18. Dezember 2008

Hallo, jetzt geht es weiter mit cc65 für die RS232.
Wo gibt es dort ein Beispiel für Daten senden über die serielle Schnittstelle.
Dieses unten möchte ich gerne in cc65 so umsetzen, das es läuft. Finde aber den cc65-Befehl "open/close" nicht :

Code

10 rem *************** einstellungen steuer-register
20 br=6: rem 300 baud
30 db=0: rem 8 daten bits
40 sb=0: rem 1 stopp-bit
50 rem *************** einstellungen befehlsregister
60 hs=0 : rem rem 3-draht
70 ua=0 : rem vollduplex
80 pa=0 : rem keine parität - keine
100 rem ************** einstellungen allgemein
110 lf=2 : rem logische dateinummer
120 ga=2 : rem geräteadresse der rs-232-schnittstelle
130 sa=0 : rem sekundäradresse
200 open lf,ga,sa, chr$(br+db+sb) + chr$(hs+ua+pr)
220 for a=65 to 70
225 for b=0 to 1000
226 next b
230 print#2,chr$(a);
240 next a
250 close 2

Alles anzeigen

schnucke · 18. Dezember 2008

Wie wird eine Struct aufgerufen?

Die "serial.h" sieht so aus:

Code

#ifndef _SERIAL_H
#define _SERIAL_H
/*****************************************************************************/
/* Data */
/*****************************************************************************/
/* Baudrate settings */
#define SER_BAUD_45_5 0x00
#define SER_BAUD_50 0x01
#define SER_BAUD_75 0x02
#define SER_BAUD_110 0x03
#define SER_BAUD_134_5 0x04
#define SER_BAUD_150 0x05
#define SER_BAUD_300 0x06
#define SER_BAUD_600 0x07
#define SER_BAUD_1200 0x08
#define SER_BAUD_1800 0x09
#define SER_BAUD_2400 0x0A
#define SER_BAUD_3600 0x0B
#define SER_BAUD_4800 0x0C
#define SER_BAUD_7200 0x0D
#define SER_BAUD_9600 0x0E
#define SER_BAUD_19200 0x0F
#define SER_BAUD_38400 0x10
#define SER_BAUD_57600 0x11
#define SER_BAUD_115200 0x12
#define SER_BAUD_230400 0x13
/* Data bit settings */
#define SER_BITS_5 0x00
#define SER_BITS_6 0x01
#define SER_BITS_7 0x02
#define SER_BITS_8 0x03
/* Stop bit settings */
#define SER_STOP_1 0x00 /* One stop bit */
#define SER_STOP_2 0x01 /* Two stop bits */
/* Parity settings */
#define SER_PAR_NONE 0x00
#define SER_PAR_ODD 0x01
#define SER_PAR_EVEN 0x02
#define SER_PAR_MARK 0x03
#define SER_PAR_SPACE 0x04
/* Handshake settings. The latter two may be combined. */
#define SER_HS_NONE 0x00 /* No handshake */
#define SER_HS_HW 0x01 /* Hardware (RTS/CTS) handshake */
#define SER_HS_SW 0x02 /* Software handshake */
/* Bit masks to mask out things from the status returned by ser_status.
* These are 6551 specific and must be mapped by drivers for other chips.
*/
#define SER_STATUS_PE 0x01 /* Parity error */
#define SER_STATUS_FE 0x02 /* Framing error */
#define SER_STATUS_OE 0x04 /* Overrun error */
#define SER_STATUS_DCD 0x20 /* NOT data carrier detect */
#define SER_STATUS_DSR 0x40 /* NOT data set ready */
/* Error codes returned by all functions */
#define SER_ERR_OK 0x00 /* Not an error - relax */
#define SER_ERR_NO_DRIVER 0x01 /* No driver available */
#define SER_ERR_CANNOT_LOAD 0x02 /* Error loading driver */
#define SER_ERR_INV_DRIVER 0x03 /* Invalid driver */
#define SER_ERR_NO_DEVICE 0x04 /* Device (hardware) not found */
#define SER_ERR_BAUD_UNAVAIL 0x05 /* Baud rate not available */
#define SER_ERR_NO_DATA 0x06 /* Nothing to read */
#define SER_ERR_OVERFLOW 0x07 /* No room in send buffer */
#define SER_ERR_INIT_FAILED 0x08 /* Initialization failed */
#define SER_ERR_INV_IOCTL 0x09 /* IOCTL not supported */
/* Struct containing parameters for the serial port */
struct ser_params {
unsigned char baudrate; /* Baudrate */
unsigned char databits; /* Number of data bits */
unsigned char stopbits; /* Number of stop bits */
unsigned char parity; /* Parity setting */
unsigned char handshake; /* Type of handshake to use */
};
/*****************************************************************************/
/* Code */
/*****************************************************************************/
unsigned char __fastcall__ ser_load_driver (const char* driver);
/* Load and install a serial driver. Return an error code. */
unsigned char __fastcall__ ser_unload (void);
/* Uninstall, then unload the currently loaded driver. */
unsigned char __fastcall__ ser_install (void* driver);
/* Install an already loaded driver. Return an error code. */
unsigned char __fastcall__ ser_uninstall (void);
/* Uninstall the currently loaded driver and return an error code.
* Note: This call does not free allocated memory.
*/
unsigned char __fastcall__ ser_open (const struct ser_params* params);
/* "Open" the port by setting the port parameters and enable interrupts. */
unsigned char __fastcall__ ser_close (void);
/* "Close" the port. Clear buffers and and disable interrupts. */
unsigned char __fastcall__ ser_get (char* b);
/* Get a character from the serial port. If no characters are available, the
* function will return SER_ERR_NO_DATA, so this is not a fatal error.
*/
unsigned char __fastcall__ ser_put (char b);
/* Send a character via the serial port. There is a transmit buffer, but
* transmitting is not done via interrupt. The function returns
* SER_ERR_OVERFLOW if there is no space left in the transmit buffer.
*/
unsigned char __fastcall__ ser_status (unsigned char* status);
/* Return the serial port status. */
unsigned char __fastcall__ ser_ioctl (unsigned char code, void* data);
/* Driver specific entry. */
/* End of serial.h */
#endif

Alles anzeigen

Mein Programm sieht so aus zur Zeit :

C

#include <stdio.h>
#include <time.h>
#include <conio.h>
#include <cbm.h>
#include <stdlib.h>
#include <serial.h>
int main()
{
struct ser_params z;
z.baudrate=SER_BAUD_300;
z.databits=SER_BITS_8;
z.stopbits=SER_STOP_1;
z.parity=SER_PAR_NONE;
z.handshake=SER_HS_NONE;
ser_open(???);
cgetc();
}

Alles anzeigen

Wenn ich diese Struct :

Zitat

struct ser_params {
unsigned char baudrate; /* Baudrate */
unsigned char databits; /* Number of data bits */
unsigned char stopbits; /* Number of stop bits */
unsigned char parity; /* Parity setting */
unsigned char handshake; /* Type of handshake to use */
};

Alles anzeigen

mit : ser_params.baudrate=SER_BAUD_300; anspreche, wird es nicht compiliert, nur wenn ich vorher die Struct umbenenne :

struct ser_params z;

und dann diese Werte reinsetze:

z.baudrate=SER_BAUD_300;

wird das Programm compiliert.

Wie wird jetzt diese Struct aufgerufen aus meinem Programm :
ser_open (const struct ser_params* params);

Mit "ser_open(z);" wird es wieder nicht umgesetzt bzw compiliert:

Wer kann weiterhelfen?

mfg

Diddl · 18. Dezember 2008

Ich kenne mich mit dem CC65 nicht so aus. Aber es sieht eigentlich ganz easy aus:

Du musst die Struktur deklarieren und befülen und dem open übergeben. Etwa so:

Code

const struct ser_params k = {SER_BAUD_300, SER_BITS_8, SER_STOP_1, SER_PAR_NONE, SER_HS_NONE};
ser_open ((const struct ser_params*)&k);

schnucke · 18. Dezember 2008

Jup , danke.

Wird jetzt compiliert.

Aber es kommen keine Daten an.
Muss irgendetwas anderes noch sein.

mfg

Diddl · 18. Dezember 2008

Im Emu oder im echten CeVi? Wenn im CeVi, hat das Teil noch original Kernel drin? Oder hast du etwa einen Speeder wie Jiffy oder SpeedDos im Einsatz? Da sind die seriellen Routinen meistens nicht enthalten.

schnucke · 18. Dezember 2008

Ist im Emu VICE.
Im Basic wird die serielle Schnittstelle in Vice 2.1 wunderbar angesprochen und funktioniert.
Im cc65 gibt es noch Schwierigkeiten. Dort gibt es 2 Rs232-haeder, einmal "rs232.h" und die "serial.h".
Bloss in der rs232.h stimmen die einzelnen Werte-Zahlen für den c64 nicht um die Schnittstelle anzusprechen.

Ein Beispiel für die baudrate:
rs232.h > #define RS_BAUD_300 0x03
serial.h >#define SER_BAUD_300 0x06

Also 2 verschiedene Angaben...hmmm..

Der Wert 0x06 ist gemäss Wiki richtig für 300 baud.

mfg

schnucke · 19. Dezember 2008

Irgendwie ist der seriell treiber nicht aktuell: c64-swlink.ser

Hallo sauhund, kannst du irgend wie mal rausbekommen ob der Treiber vom cc65 aktuell und funktionsfähig ist.

Oder wie kann man das in ASM umsetzen, ich meine dieses "open ...., print#2 usw... :

Code

10 rem *************** einstellungen steuer-register
20 br=6: rem 300 baud
30 db=0: rem 8 daten bits
40 sb=0: rem 1 stopp-bit
50 rem *************** einstellungen befehlsregister
60 hs=0 : rem rem 3-draht
70 ua=0 : rem vollduplex
80 pa=0 : rem keine parität - keine
100 rem ************** einstellungen allgemein
110 lf=2 : rem logische dateinummer
120 ga=2 : rem geräteadresse der rs-232-schnittstelle
130 sa=0 : rem sekundäradresse
200 open lf,ga,sa, chr$(br+db+sb) + chr$(hs+ua+pr)
210 print#2,chr$(65);
220 close 2

Alles anzeigen

Diddl · 19. Dezember 2008

Sicher kann man das in ASM umsetzen, musst dir nur die Kernel Routine kopieren. Die serielle Unterstützung im C64 ist rein durch Software umgesetzt, der C64 hat keinen UART (6551).

schnucke · 19. Dezember 2008

Habe ich hier mal versucht, nur einen wert "65" ausgeben, wenn ich das Programm starte, wird kein Wert an die serielle Schnittstelle ausgegeben sondern nur 1 "A" auf dem Bildschirm .

Das einfache Beispiel in Basic :

200 open 2,2,0, 6 : rem chr$(br+db+sb) + chr$(hs+ua+pr) ergibt als Summe den Wert "6"
210 print#2,chr$(65);
220 close 2

Wer kann weiterhelfen?

Code

!to "rs232.prg",cbm
*=$c000
start
lda #2
ldx #2
ldy #0
jsr $ffba
jsr $ffc0
lda #1
ldx #<(befehl)
ldy #>(befehl)
jsr $ffbd
ldy #0
lda puffer,y
jsr $ffd2
lda #2
jsr $ffc3
rts
befehl: !byte 6 ; chr$(br+db+sb) + chr$(hs+ua+pr) ergibt als Summe den Wert "6"
puffer: !byte 65

Alles anzeigen

Diddl · 19. Dezember 2008

Wenn ich mir das ROM Listing des C64 so anschaue, dann sehe ich dass es schon gehen müsste mit standard open/close/bsout.

Du setzt die Geräteadresse korrekt mit jsr $ffba und erreichst so das RS232 Open auf $f409, aber du vergisst den Dateinamen:

Code

FFBA 4C 00 FE JMP $FE00 ; set file parameters
FFBD 4C F9 FD JMP $FDF9 ; set filename parameters

Setze den Open String in deinen Assembler Code (.byte data) und übergib die Adresse in X/Y und die Länge im AC. Danach jsr $FDF9 und gut.

Der Filename ist chr$(br+db+sb) + chr$(hs+ua+pr), nur damit wir uns richtig verstehen ...

schnucke · 19. Dezember 2008

Geht noch nicht, oder habe ich deine Hilfe falsch verstanden ?

Der Filename ist chr$(br+db+sb) + chr$(hs+ua+pr), nur damit wir uns richtig verstehen

Der Filename ist ja der Wert 6, der sich aus der gesamten Summe ergibt, oder müssen da 2 Werte stehen, ohne die beiden chr$ zu addieren? chr$(br+db+sb) ergibt "6" und chr$(hs+ua+pr) ergibt "0".
Oder muss das irgendwie als Text gesetzt werden?

Schau doch mein Code nochmal durch und verbesser ihn mal.

Danke.

mfg

Code

!to "rs232.prg",cbm
*=$c000
start
lda #2
ldx #2
ldy #0
jsr $ffba
lda #1
ldx #<(befehl)
ldy #>(befehl)
jsr $fdf9
ldy #0
lda puffer,y
jsr $ffd2
lda #2
jsr $ffc3
rts
befehl: !byte 6
puffer: !byte 65

Alles anzeigen

Diddl · 19. Dezember 2008

In Basic ergibt das einen String der Länge 2. chr$(65) + chr$(66) ist dasselbe wie "AB". Es müsste also in etwa so aussehen:

Code

lda #2
ldx #<(befehl)
ldy #>(befehl)
jsr $fdf9
ldy #0
lda puffer,y
jsr $ffd2
lda #2
jsr $ffc3
rts
befehl: !byte 6, 0

Alles anzeigen

schnucke · 19. Dezember 2008

Geht noch nicht.
Der Wert wird als "A" auf dem Screen ausgegeben.

Hier eine komische Sache:

Code

200 open 2,2,0,chr$(6)+chr$(0)
220 for a=65 to 70
225 for b=0 to 1000
226 next b
230 print#2,chr$(a);
240 next a
250 close 2

Das Basicprogramm läuft oben und gibt den Wert über die serielle Schnittstelle aus, aber wenn ich dieses :
"200 open 2,2,0,chr$(6)+chr$(0)"durch "200 open 2,2,0,6,0" ersetze, passiert das gleiche bei im ASM-Progamm, es werden die Buchstaben nur auf dem Screen ausgegeben.
Also muss es doch eine Möglichkeit geben chr$(6)+chr$(0) in ASM durchzuführen.

!byte geht nicht, !text "60" und !text "6","0" geht auch nicht. Wird zwar compiliert, aber wird immer der Buchstabe auf dem Screen ausgegeben.

mfg

sauhund · 19. Dezember 2008

Zitat

Hallo sauhund, kannst du irgend wie mal rausbekommen ob der Treiber vom cc65 aktuell und funktionsfähig ist.

an der stelle würde ich empfehlen mal auf der cc65 mailingliste zu fragen... die rs232 treiber wurden zu irgendeinem zeitpunkt mal komplett überarbeitet, daher kommen auch die zwei unterschiedlichen header files die du gefunden hast ... eins davon ist veraltet. ist aber schon viel zu lange her das ich damit rumgemacht hab als das ich mich an details erinnern würde

strik · 19. Dezember 2008

Zitat von Diddl

Die serielle Unterstützung im C64 ist rein durch Software umgesetzt, der C64 hat keinen UART (6551).

Die standardmäßige Unterstützung: Ja, nur per Software.

Es gibt allerdings auch Module, die einen 6551 nachbilden. VICE 2.1 kann das auch. In WinVICE im Menü per: Settings / Cartridge I/O Settings / ACIA settings, dann "Enable ACIA".

Allerdings funktionieren damit die Kernel-Routinen nicht mehr, man muss den 6551 per Hand programmieren. Die Zuverlässigkeit ist es aber wert!

Gruß,
Spiro

schnucke · 19. Dezember 2008

Wer kann mir mal meinen Code oben als ASM zum laufen bringen.

Ich bekomme es nicht hin. Habe schon zig mal das ASM-File umgestellt, die "jsr" vertauscht.
Ich weiss auch nicht genau, in welcher Reihenfolge das alles aufgerufen werden muss.

Kann das mal als Lauffähig erstellt werden.

Der ASM-Code ist ja nicht lang, bekomm es nicht gebacken.
Die ganze choose läuft unter Basic mit dem Vice hervorragend.

Danke.

mfg

strik · 19. Dezember 2008

Zitat von Diddl

jsr $fdf9

Das ist doch hoffentlich nur ein Dreher? $fdf9 -> $ffd9 vielleicht?

Ansonsten: ISt das nicht tendenziell der gleiche Code wie in Rs232 mit ASM funktioniert nicht? Da habe ich einen Kommentar vor diesem etwas geschrieben, was dein Problem (hoffentlich) löst.

Gruß,
Spiro

schnucke · 20. Dezember 2008

Jetzt erscheint der Buchstabe nicht mehr auf dem Screen, gesendet über die serielle Schnittstelle wird er auch nicht.
Hmm...., woran liegt das.

Habe alle erdenklichen Vorschläge eingearbeitet. Oder ist da noch ein Fehler drin?

Kann das einer mal bitte von Null an Erbauen von meinem ASM-Code?

Danke.

mfg

strik · 20. Dezember 2008

Zitat von schnucke

Oder ist da noch ein Fehler drin?

Ja, aber einer, den ich selbst erst länger suchen mußte. Der Debugger in VICE hat mich dann letztendlich weitergebracht.

Code

; !to "rs232.prg",cbm
*= $c000
start
lda #2
ldx #2
ldy #0
jsr $ffba
lda #2
ldx #<(befehl)
ldy #>(befehl)
jsr $ffbd
jsr $ffc0
ldx #2
jsr $ffc9
ldy #0
lda puffer,y
jsr $ffd2
jsr $ffcc
; Warten auf das Senden aller Zeichen im Puffer (ausser des letzten)
WaitForLastChar
lda $029d
cmp $029e
bne WaitForLastChar
; auf Senden des letzten Zeichens warten! (50ms - reicht bei 300bps und höher, bei weniger könnte es was knapp sein)
ldx #50
loop
jsr $eeb3 ; etwa 1 ms warten
dex
bne loop
lda #2
jsr $ffc3
rts
befehl: !byte 6,0
puffer: !byte 65

Alles anzeigen

Das relevante hier ist die zusätzliche Wartezeit, die ich durch die Schleife um Loop herum aufbaue.

Der KERNAL des C64 wartet nämlich nicht, bis das aktuelle Zeichen gesendet wurde. Stattdessen wird beim CLOSE einfach die Übertragung mittendrinnen abgebrochen - IMHO ein klarer Bug des KERNALs.

Dir wäre das möglicherweise aufgefallen, wenn du mehr als ein Zeichen senden willst - dann wären nämlich wohl die ersten durchgekommen, aber hinten einige weggefallen.

Meine obige Warteschleife um 50ms, die ich ergänzt habe, muss nur einmal, vor dem Schließen des Kanals, kommen - also nicht etwa zwischen den Zeichen.

Wenn jemand eine Möglichkeit kennt festzustellen, ob die RS232-Übertragung fertig ist: Bitte melden! Auf die Schnelle habe ich nichts gefunden... Bei mehr als einem Zeichen kann man testen, ob $029D und $029E gleich sind - falls nicht, dann gibt es noch mehr als ein Zeichen zu lesen. Das mache ich in ab WaitForChar oben - obwohl es bei *diesem* Beispiel keinen Sinn macht, sondern nur dann, wenn mehr als ein Zeichen zu senden ist.

In BASIC fällt das Problem übrigens nicht auf, weil BASIC "langsam genug" ist, so dass die notwendige Verzögerung immer da ist.

HTH,
Spiro

schnucke · 20. Dezember 2008

Man...,oh....man...., Danke, es funktioniert.

Da wär ich nie im Leben drauf gekommen. Soweit wäre ich nie in dem Sumpf eingestiegen.

Danke für deine unerbittliche Prüferei.

mfg

RS232 mit cc65

Ähnliche Themen

c64 GPIO

Tags