Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128

Habs mal angespielt...
Was mir aufgefallen ist:
- Im Krieg fehlen die Kanonen (Die schießen nicht, bzw fehlt der Sound der fliegenden Kugeln, und dementsprechend wartet der CPC nicht, zwischen den Schüssen, sondern ballert die sofort alle (Unsichtbar, im 464 konnte man die Kugeln fliegen sehen) ab)
- Nach Ende des Krieges bekommt man einen Syntax Error (Siehe Screenshot)

Ansonsten: Super! Sieht schon sehr gut aus! Weiter so 😄 Den Rest schaffst du auch noch! 🙂
📎 syntaxerror.png

Das sind auch die einzigen Bugs, die ich finden konnte.
Habs durchgespielt (Ohne Krieg zu führen)
📎 kaiser.png

Saupreußn! Hast es mit JC gespielt? Da ging bei mir was nicht. Nächster Versuch meinerseits beim nächsten Update.  🙂

— TFM
Saupreußn! Hast es mit JC gespielt? Da ging bei mir was nicht. Nächster Versuch meinerseits beim nächsten Update.  🙂

Da brauchste kein Update für, keine Ahnung, was du falsch gemacht hast?
Das sollte in jedem Emu laufen, mit 6128 ROMs...

Gute Antwort Markus  :00008351: :00008351: :00008351: :00008351:

Echt merkwürdig , hab  mal den Zeichensatz augeschaltet, als A500-ABFF sind clean, trozdem der gleiche fehler grrrr :motz: :motz:

— Devilmarkus

— TFM
Saupreußn! Hast es mit JC gespielt? Da ging bei mir was nicht. Nächster Versuch meinerseits beim nächsten Update.  🙂

Da brauchste kein Update für, keine Ahnung, was du falsch gemacht hast?
Das sollte in jedem Emu laufen, mit 6128 ROMs...

Naja, dann vielleicht ein JavaCPC Update, den hab ich auf die schnelle genutzt, und siehe da: Es hängt gleich am Anfang. Natürlich hatte ich alle ROMs aus.

Es ist aber nur BASIC mit ein paar kleinen Assemblerroutinen, nichts Weltbewegendes, das kann wirklich jeder popelige CPC Emulator darstellen (Außer er hat vllt Probleme mit der Architektur selbst)

Hey TFM,
mit JavaCPC 1-9= F1-F9
wincpc 1-9 auf zehnerblock

vieleicht liegts da bei dir dran  😛

Oder den Joystick deaktivieren, dann ists auf dem Nummernblock bei Num-Lock ein 😉

— BadCPC
Hey TFM,
mit JavaCPC 1-9= F1-F9
wincpc 1-9 auf zehnerblock

vieleicht liegts da bei dir dran  😛

Daran lag es wohl, aber das kann ja keiner wissen. Habe sogar die F-Tasten probiert, auch erfolglos. Gut, Problem gelöst.

So, nach einigem Brainstorming mit BadCPC funktioniert nun auch die Kriegsseqzenz so, wie sie soll, und auch die Statistiken werden ohne Syntax Error ausgegeben (DEC$ is a Bitch on the 464)
Was noch fehlt: Speichern / Laden (Braucht man das, oder kann das weg?)
Dann noch rausfinden, wieso es manchmal in seltenen Fällen sporadisch Pixelfehler darstellt (Irgendwo zerschießt es noch zu viel Firmware)
📎 kaiserc.dsk

Jupp danke auch Devil, für das pushen, hat sehr geholfen.
Aber wie gesagt der Fehlerteufel hatte auf dem 464 zugeschlagen, nach etwas tracen im basic hab ich dan seine Bitch (dec$) gefuden.

So erstmal mal viel spass beim, testen wir bleiben drann, vieleicht kommt ja bald eine echte final mit save/load raus,

Gruß Bad

So wir wollen ja den 664 nicht vergesse,
anbei eine testversion ohne load/save der Speicherstände


start mit run"ka664
LG BAD
📎 k664.dsk

ich habe hier grad einen kleine hänger,
habe die save/loadroutine angepasst trotzdem ärgert der mich,

Auf &8A80 ist der sprung zum save, geht soweit

Auf &8A70 ist der sprung zur laderoutine , habs zwar angepasst, aber greift da nicht auf disc zu grrr

habe eine erweiterung für den 6128 zur banknutzung geschrieben

;; bankswap für kaiser
org &8300
.scr_set_border	        equ &bc38
.scr_set_ink		equ &bc32
.cas_in_open		equ &bc77
.cas_in_direct		equ &bc83
.cas_in_close		equ &bc7a

himem equ &A67B
lastbyte       equ &ABFF
lenght         equ lastbyte - himem
setbank_fnt      equ &7FC4        ;font
setbank_1_1    equ &7FC5        ;kroen
setbank_1_2    equ &7FC6        ;amsdoshimem
setbank_0_1    equ &7FC0        ;normal
di
;copy orig amdos to bank_1_2
.saveamsdos
      LD BC,setbank_1_2           ;set Bank 2
      out (C),C                   ;set Bank 2
       ld   hl,himem
       ld   de,&4000
       ld   bc,lenght
       ldir
ld BC,setbank_0_1
out (c),c
ei
ret
;copy amsdos_bak  this destroys the charset
.restoreamdos
di
 LD BC,setbank_1_2           ;set Bank 2
       out (C),C             ;set Bank 2
       ld   hl,&4000
       ld   de,himem
       ld   bc,lenght
ldir
ld BC,setbank_0_1
out (c),C
ld a,&00
ld (&b735),a ; set font to normal
ei
ret

;-- load font
; load fonts
.loadfont
di
       ld bc,setbank_fnt
       out (c),c 
           ld hl,fnt
           ld de,(fntadr)
           ld bc,(fntl)
       call loadfile
       ld BC,setbank_0_1
out (c),c
ei
ret
;-- reinit fnt
.reinitfnt
di
       ld bc,setbank_fnt
       out (c),c
       call &77E0
      ld bc,setbank_0_1
      out (c),c
ei
ret

.loadfile
        call cas_in_open
        ex de,hl
        call cas_in_direct
        call cas_in_close
ei
ret

.fnt        db "fntldr.bin"
.fntadr     dw &77E0 
.fntl       dw &0A00 

und hier die geänderte lade/saveroutine

cas_out_open            equ &BC8C
cas_out_direct          equ &BC98
cas_out_close           equ &BC8F
cas_in_open		equ &bc77
cas_in_direct		equ &bc83
cas_in_close		equ &bc7a
org &8a3E ;loader
push af
       ld hl,filename
       push hl
       ld de,(&AE66)
       ld b,end_filename-filename
       call loadfile
       pop hl
       ld a,50
       ld (end_filename-1),a
       ld b,end_filename-filename
       ld de,&AC00
       call loadfile
       pop af
       ei
       ret
.loadfile
        call cas_in_open
        ex de,hl
        call cas_in_direct
        call cas_in_close
        ld a,49
        ld (end_filename-1),a
ret
ei
ret
org  &8a70 ; entry
call &8318 ; restore AMSDOS from bank
call &8a3e ; load the savegame
call &8350 ; restore font
ei
ret

org &8a80
            call &8318
            ld de,(&AE66)
            ld hl,&7600
            or a 
            sbc HL,DE
            EX DE,HL
            call save
            ld a,50
            ld (end_filename-1),a
            ld hl,&AC00
            ld de,&0C00
            call save
            call &8350
        ei
        ret
.save
push hl
push de
push af
;open the file to write
     ld b,end_filename-filename ; filename lenght
     ld hl,filename             ; filename
     ld de,&7600                ; puffer to use
     call cas_out_open

     pop af
     ld bc,&0000
     pop de
     pop hl
     ld a,2

call cas_out_direct
call cas_out_close
ld a,49
ld (end_filename-1),a
ei
ret

;; 
.filename
defb "Kaiser.sa1"
.end_filename

ich finds echt seltsam, zumal wenn ich diese beiden compilier, und so teste gehts ja, nur irgend wie scheint mich das basicteil zu veräppeln

für tipps woran es liegt währe ich dankbar

Feedback nach einer ersten Partie:

Es ging erstmal alles gut. Ich bin dann versehentlich auf Speichern geraten, da sollte ich dann eine Kassette einlegen, das war natürlich ärgerlich. Wenn Save nicht möglich ist, vielleicht könnte man zumindest den Menüpunkt deaktivieren, damit man nicht durch dicke Finger zum Reset gezwungen ist.

Bei schon recht fortgeschrittenem Spielstand und beim Wechsel auf das nächste Jahr bin ich in einen "Subscript out of range in 90" Fehler gelaufen. Aufgetreten ist er in der Fn n$ Funktion, für c=0. Mehr konnte ich auf die Schnelle nicht rausfinden.

War echt schön mal wieder in alten Erinnerungen zu schwelgen 😉 Danke für den Aufwand.

Auf meinem Lapi kann ich es nicht Spielen 🙁

Sobald gefragt wird wieviele Spieler kann ich keine Zahl angeben

auf javacpc bitte die F-Tasten nutzen F1,F2,F3 . . .
bei wincpc geht auch der zahlenblock

Aaah mal einen kleinen stand der Dinge, arbeite immer noch dran, hab sogar in Kaiser eine einfach pack/unpack routine gefunden 😉

;; kaiser screen pack
                LD      HL,&C000
                LD      DE,packed_screen
pack_scr_loop1
                LD      B,&00
                LD      A,(HL)
pack_scr_loop2
                INC     HL
                INC     B
                JR      Z,pack_scr_loop3
                CP      (HL)
                JR      NZ,pack_scr_loop3
                BIT     7,H
                JR      NZ,pack_scr_loop2
pack_scr_loop3
                LD      (DE),A
                INC     DE
                LD      A,B
                LD      (DE),A
                INC     DE
                BIT     7,H
                JR      NZ,pack_scr_loop1
                RET

ooops was vergessem 😉

un_pack_scr
                LD      HL,packed_scr              ;;4FED:   !.P     21 00 50
                LD      DE,&C000                   ;;4FF0:   ...     11 00 C0
un_pack_scr_loop1
                LD      A,(HL)                     ;;4FF3:   ~       7E
                INC     HL                         ;;4FF4:   #       23
                LD      B,(HL)                     ;;4FF5:   F       46
                INC     HL                         ;;4FF6:   #       23
un_pack_scr_loop2
                LD      (DE),A                     ;;4FF7:   .       12
                INC     DE                         ;;4FF8:   .       13
                DJNZ    un_pack_scr_loop2                 ;;4FF9:   ..      10 FC
                BIT     7,D                        ;;4FFB:   .z      CB 7A
                JR      NZ,un_pack_scr_loop1              ;;4FFD:    .      20 F4
                RET                                ;;4FFF:   .       C9

Dran bleiben!  :smiley027: