Autor Thema: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128  (Gelesen 2546 mal)

0 Mitglieder und 1 Gast betrachten dieses Thema.

Offline TFM

  • Administrator
  • CPC 6128+
  • *****
  • Beiträge: 3.775
  • Likes gesamt: 94
  • Karma: +57/-1
  • Geschlecht: Männlich
  • FutureSoft und CPC - Ein starkes Team!
    • FutureOS
Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #30 am: 12. März 2021, 15:02:25 »
Hey TFM,
mit JavaCPC 1-9= F1-F9
wincpc 1-9 auf zehnerblock

vieleicht liegts da bei dir dran  :P
Daran lag es wohl, aber das kann ja keiner wissen. Habe sogar die F-Tasten probiert, auch erfolglos. Gut, Problem gelöst.
TFM of FutureSoft
http://www.FutureOS.de --> Das Betriebssystem FutureOS (Update: 22.02.2022)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 26.12.2021)

Offline Devilmarkus

Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #31 am: 13. März 2021, 16:28:28 »
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)
https://cpcwiki.de
Dein Deutsches CPCWiki!

Offline BadCPC

  • Schreibgeschützter
  • *
  • Beiträge: 23
  • Likes gesamt: 0
  • Karma: +5/-0
  • Wo ist der Joystick, und Hallo Kaiser
Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #32 am: 13. März 2021, 16:31:55 »
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

Offline BadCPC

  • Schreibgeschützter
  • *
  • Beiträge: 23
  • Likes gesamt: 0
  • Karma: +5/-0
  • Wo ist der Joystick, und Hallo Kaiser
Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #33 am: 19. März 2021, 16:31:51 »
So wir wollen ja den 664 nicht vergesse,
anbei eine testversion ohne load/save der Speicherstände


start mit run"ka664
LG BAD

Offline BadCPC

  • Schreibgeschützter
  • *
  • Beiträge: 23
  • Likes gesamt: 0
  • Karma: +5/-0
  • Wo ist der Joystick, und Hallo Kaiser
Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #34 am: 27. März 2021, 19:22:17 »
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

Offline eto

Re: Was für Kaiserverrückte oder die es werden wollen, Kaiser am 6128
« Antwort #35 am: 21. Juni 2021, 23:28:22 »
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.