BASIC Starter für C64, C16, C128, VIC20

awsm · 19. Januar 2019

Ich nutzer für den C64 diesen BASIC Starter in ACME:

Code

* = BASIC
!byte $0B, $08
!byte $E3 ; BASIC line number: $E2=2018 $E3=2019 etc
!byte $07, $9E
!byte '0' + entry % 10000 / 1000
!byte '0' + entry % 1000 / 100
!byte '0' + entry % 100 / 10
!byte '0' + entry % 10
!byte $20, $3a, $20
!byte $00, $00, $00 ; end of basic

Alles anzeigen

Der funktioniert super für den

- C64 mit BASIC = $0801
- C16 mit BASIC = $1001

Nicht aber für

- C128 mit BASIC = $1c00 (Adresse falsch?)
- VC20 3.5kb = $1000 (Adresse falsch?)

Liegt's an den falschen Adressen oder am Starter oder am Compiler?

C128 gibt z.B. statt

Code

2018 SYS2048:

fälschlicherweise

Code

40455 7183 :

aus - das kann natürlich nicht klappen. Startet man das PRG von Hand mit der richtigen Adresse, ist alles okay.

Kann jemand helfen?
Ich danke Euch.

Hexworx · 19. Januar 2019

Du müsstest das "$08" in Zeile 3 auch mit anpassen.

awsm · 19. Januar 2019

Zitat von Hexworx

Du müsstest das "$08" in Zeile 3 auch mit anpassen.

Diesen Teil habe ich nicht genau verstanden. Kannst Du mir das näher erklären?

awsm · 19. Januar 2019

Noch ein bisschen nachgelesen. Das "08" ist das high byte der folgenen BASIC Zeile und müsste, wenn ich also nicht $080b starte, sondern $1c0a, entsprechend auf "1c" geändert werden. Entsprechend auch das low byte. Richtig?

Das ändert aber nichts daran, dass die BASIC Zeile insgesamt total verkorkst ist, eben auf dem 128er so:

40455 7180

Das passiert meines Wissens unabhängig von der angepassten Bytefolge?

Uridium · 19. Januar 2019

Das Programm wird anscheinend auf $0800 gelesen und somit ist alles um ein Byte verschoben. Deine BASIC Zeile ist $9E07 (40455), nicht $07E2 (2018).
Gib mal statt '* = BASIC' eher '* = $0801' ein.

Sinn macht dein Programm aber nicht. SYS2048 ist $0800 und stürzt ab.

awsm · 19. Januar 2019

Zitat von Uridium

Deine BASIC Zeile ist $9E07 (40455), nicht $07E2 (2018)

Das war der entscheidende Hinweis. Ich musste nur den BASIC Start für den 128er auf $1c01 statt $1c00 setzen. Danke!

Uridium · 19. Januar 2019

Wenn '* = BASIC' eine Precompilerdirektive ist, kannst Du auch einfach ein Byte einfügen. Dann würde der Compiler je nach Target (C64, C128..) die entsprechende BASIC RAM Adresse eintragen. Ich kenne die Fähigkeiten von ACME aber nicht.
!byte $00
!byte $0B, $08
[...]

Haubitze · 19. Januar 2019

hab mal bissl rum gespielt, kenne mich mit dem c128 aber nicht aus.
hier mein versuch das problem zu loesen.

Code

C128 = 0 ;coment it out for c64 mode
!ifdef C128 {
BASIC = $1c01
} else {
BASIC = $0801
}
* = BASIC
!byte <BASIC,>BASIC
!byte $E3 ; BASIC line number: $E2=2018 $E3=2019 etc
!byte $07
!byte $9E ; token number for SYS
!byte '0' + entry % 10000 / 1000
!byte '0' + entry % 1000 / 100
!byte '0' + entry % 100 / 10
!byte '0' + entry % 10
!byte $20, $3a, $20
!byte $00, $00, $00 ; end of basic
entry:
lda #0
sta $d020
rts

Alles anzeigen

JeeK · 19. Januar 2019

Ich würde überhaupt mehr den Assembler die Adressen und Werte ausrechnen lassen ...

Code

; wie zuvor hier BASIC entprechend festlegen
* = BASIC
; 2019 SYS....:REM mein kommentar
!by <EOP,>EOP,<(2019),>(2019),$9E ; Link-Adresse, Zeilennummer, SYS-Token
!by '0' + entry % 10000 / 1000 ; ZIffern für SYS-Argument
!by '0' + entry % 1000 / 100
!by '0' + entry % 100 / 10
!by '0' + entry % 10
!pet $3a, $8f, " mein kommentar" ; ":rem "-Teil
!by 0 ; BASIC-"End of Line"
EOP !wo 0 ; BASIC-Programmende
entry
; hier das eigentliche MC-Programm ...

Alles anzeigen

Mac Bacon · 19. Januar 2019

Zitat von JeeK

Ich würde überhaupt mehr den Assembler die Adressen und Werte ausrechnen lassen ...

*unterschreib*
Für den Zeilenlink und die Jahreszahl-Zeilennummer kann man auch einfach "!word" nehmen.

Das mit den falschen Basic-Startadressen ist aber irgendwie eine Seuche, seit Jahren kommt das immer wieder auf. Steht das irgendwo falsch im Wiki oder bei Data Becker oder so?

Haubitze · 19. Januar 2019

@JeeK wieder was gelernt danke dafuer, werde das so auch uebernehmen fuer die zukunft