Zitat
Und eine Copy Routine von &4000 nach &c000 kann man so schnell machen, dass man die Einblendung fast gar nicht wahrnimmt.
geht schnell, aber nicht flimmerfrei weil man den rasterstrahl nicht so steuern kann wie der bildschirm aufgebaut wird.
mein c64 bzw vice kann ich den rasterstrahl so steuern das er sich nicht gerade in höhe des bildaufbaues befindet bzw aktiv ist, sondern kann warten, bis er das neuente byte oder das 1. byte vom nächsten unteren klötzchen aufbaut.
mfg
Danke Dir, Prodatron,
Dein Basic-Prog ist genau das, was ich suche.
Mal schauen, was ich damit anstellen kann.
Grüssle, Markus
da gibt es was schönes für die reu, sind 4 befehle, die man ohne sys als reines basickommando aufrufen kann, kann man noch schön ausbauen, am besten ist der u-befehl da kann man alles schön selber reingeben wie man möchte und wohin man es möchte. dieser u-befehl würde dann für den cpc auch ein bisschen länger werden wenn ich nicht immer nur diese 16k haben möchte. der befehl <-D könnte wegfallen, weil er prüft welche reu eingebaut ist und ob die in ordnung ist.
beim cpc kann man das auch schön als rsx-kommando einbauen , der code wird dann ein bisschen mehr, dann braucht man nicht den call befehl und man braucht sich nicht immer die einsprungroutinen merken sondern nur |mache ...,...,..., |tue...,....,...
usw.
!to "reuvos.prg",cbm
; <-S : Stash Basic RAM ($0801-$A000)
; <-F : Fetch Basic RAM ($0801-$A000)
; <-B,{bank} : switch RAM banks
; <-U,{C64-Adr.},{REU-Adr.},{bank},{bytes},{command}
;----------------------------------------------------------------------
* = $c000 ; Start Address 49152
;----------------------------------------------------------------------
reubase= $df00
CHRGET = $0073
TXTPTR = $7A
IERROR = $0300
IMAIN = $0302
IGONE = $0308
GONE = $A7E4
CHKCOM = $AEFD
FRMNUM = $AD8A
GETADR = $B7F7
CHROUT = $FFD2
banks = $90
usebank = $92
banktable = $c600
get = $ffe4 ; to get pressed keys
;--------------------------------------------------
lda #03
sta 45 ; Basic low
lda #08
sta 46 ; Basic high
jsr $a68e ; init
freebanks ldy #$00 ; delete banktable
f1 lda #70
sta banktable,y
iny
cpy #32
bne f1
LDA #$93
JSR $FFD2
lda #1
sta $0286 ; textcolor white
lda #0
sta $d020
sta $d021 ; black is beautiful
ldy #$00
title lda TITLE,y ; text
JSR CHROUT
iny
cpy #40
bne title
INIT LDX #<NEWBASIC
LDY #>NEWBASIC
STX IGONE
STY IGONE+1
RTS
LDX #$83
LDY #$A4
STX IMAIN ; ($0302)
STY IMAIN+1 ; ($0303)
NEWBASIC JSR CHRGET ; GET CHARACTER
CMP #95 ; IS IT A "<-" ?
BEQ CHK ; YES, CONTINUE
JMP GONE+3 ; NORMAL WORD
CHK JSR CHRGET ; GET NEXT CHARACTER
CMP #$44 ; "D" Detect
BEQ reumain
CMP #$42 ; "B" Bank,?
BEQ getBank
CMP #$53 ; "S" Stash ($0800-$a000)
BEQ stashreu
CMP #$46 ; "F" Fetch ($0800-$a000)
BEQ fetchreu1
CMP #$55 ; "U" User,c64,reu,bank,bytes,command (stash,fetch,swap)
BEQ userreu
JMP (IERROR)
;--------------------------------------------------
reumain jsr reudetect ; detect REU (Banks)
JMP GONE
;--------------------------------------------------
; Bank change <-B,{bank}
;--------------------------------------------------
getBank JSR WORK1
sta bank+1
sta usebank
JMP STATUS
;--------------------------------------------------
; Stash (Basic RAM $0801-$a000)
;
; Token : <-S
;
; Asks before rewriting if bank is in use. Smart eh ? ;)
;
;--------------------------------------------------
stashreu ldx usebank
lda banktable,x ; check banktable
cmp #85 ; "U" Bank in use
bne doit ; no, skip
ldy #00 ;
t1 lda bankuse,y
JSR CHROUT
iny
cpy #20
bne t1
keyb jsr get ; get keyboard
cmp #89 ; "Y"
beq doit ; save adr 8 and so on
cmp #78 ; "N"
beq exit
bne keyb
doit lda #00
sta c64lo+1
lda #04
sta c64hi+1
lda #$00
sta rbytes+1
lda #$04
sta rbytesh+1
lda #236
sta config
ldx usebank
lda #85
sta banktable,x
jsr main
exit JMP GONE
;--------------------------------------------------
fetchreu1 jsr fetchreu
rts
;--------------------------------------------------
; User-Token: <-U,c64,reu,bank,bytes,command
;
; Not rookies choice !
;
;--------------------------------------------------
userreu jsr WORK1
sta c64lo+1
stx c64hi+1
jsr WORK1
sta reulo+1
stx reuhi+1
jsr WORK1
sta bank+1
jsr WORK1
sta rbytes+1
stx rbytesh+1
jsr WORK1
sta config
jsr main
ex1 JMP STATUS
;--------------------------------------------------
; Fetch (Basic RAM $0801-$a000)
;
; Token : <-F
;
; Asks before fetching if bank is empty.
;
;--------------------------------------------------
fetchreu ldx usebank
lda banktable,x
cmp #70 ;"F" bank free ?
bne doit1 ; no skip
ldy #00
t4 lda bankempty,y
JSR CHROUT
iny
cpy #23
bne t4
keyb1 jsr get ; get keyboard
cmp #89 ; "Y"
beq doit1 ; save adr 8 and so on
cmp #78 ; "N"
beq ex2
bne keyb1
doit1 lda #00
sta c64lo+1
lda #04
sta c64hi+1
lda #$00
sta rbytes+1
lda #$04
sta rbytesh+1
lda #237
sta config
jsr main
ex2 JMP GONE
;--------------------------------------------------
; Basic ROM patch
;--------------------------------------------------
WORK1 JSR CHRGET ;
LDA #$2C ; Comma patch
ldy #$00 ; Pointer
CMP($7a),y ; compare
BEQ WORK1 ; Comma, loop
JSR $AD8A ; FRMNUM
JSR $B1BF ; GET C64 Adr.
LDA $65 ; low byte
LDX $64 ; high byte
RTS
;--------------------------------------------------
; Detect REU 1700,1764/50 or 1/2MB
;--------------------------------------------------
reudetect lda #00
sta c64lo+1
lda #$C3
sta c64hi+1
lda #16
sta rbytes+1
lda #00
sta rbytesh+1
sta banks
sta reubase
cmp reubase
beq noreu
bne unsafe
unsafe lda reubase
and #16 ; check bit 4 for REU mem
cmp #16 ; 16 = 256Kbx1
beq regcheck ; yes, touch registers
bne l1 ; no, 1700 ?
l1 lda reubase
and #16 ; check bit 4 for REU mem
cmp #0
beq r1700 ; reu 1700 found
bne noreu ; no ram-type, no reu, no fun ...
regcheck lda reubase
ldx #2
loop1 txa
sta $df00,x ; write to registers 2-5
inx
cpx #5
bne loop1
ldx #02
loop2 txa
cmp $df00,x
bne noreu
inx
cpx #5
bne loop2
jmp rinit
r1700 lda #2
sta banks
lda #<reutext
ldy #>reutext
jmp $ab1e
;-------------------------------------------------
rinit ldx #00 ; 1764 wake up
rinit2 lda #128 ; stash
sta config
lda #$12 ; write some crap in ...
sta c64hi+1
stx bank+1
jsr main
inx
cpx #33 ; ... 33 banks into somewhere
bne rinit2
jmp action
noreu lda #<notext
ldy #>notext
jmp $ab1e
;--------------------------------------------------
; Count banks
;--------------------------------------------------
action lda reubase
ldx #$00
stx bank+1 ; reset bank counter
check lda #129 ; fetch : transfer to C64 :
sta config
lda #$C7 ; C64 : $C700
sta c64hi+1
jsr main
lda #128 ; stash
sta config
lda #$C3 ; write dummy bytes
sta c64hi+1
jsr main
jsr bankcheck ; check for existing ram banks
inx
cpx #33 ; try 33
stx bank+1
bne check
;--------------------------------------------------
lda #0 ; restore bordercolor
sta $d020
lda banks ; banks found ?
cmp #4
beq r1764
bne j1
r1764 lda #4
sta banks
lda #<text1764
ldy #>text1764
jmp $ab1e
j1 cmp #8
beq r512
bne j2
r512 lda #<reut512
ldy #>reut512
jmp $ab1e
j2 cmp #16
beq r1024
bne j3
r1024 lda #<reut1024
ldy #>reut1024
jmp $ab1e
j3 cmp #20
beq r1764
bne j4
j4 cmp #32
beq r2048
bne j6
r2048 lda #<reut2048
ldy #>reut2048
jmp $ab1e
j6 lda #<reuunk
ldy #>reuunk
jmp $ab1e
;--------------------------------------------------
; Bank Check
;--------------------------------------------------
bankcheck ldy #$00
l2 lda $C300,y
l6 cmp $C700,y
bne l4 ; bank found ?
beq l3 ; no, check 16 Bytes
l3 iny
cpy #16
bne l2 ; loop
end ldy #00
lda #00
delete sta $C700,y ; delete buffer
iny
cpy #16
bne delete
rts
l4 jmp l5
l5 inc banks ; bank found (inc), border color change and exit
inc $d020
rts
config !byte 252
;--------------------------------------------------
; Bytes and text
;--------------------------------------------------
*=$C300
!scr "---C64-RULEZ!---" ; ;-)
reutext: !text "REU 1700 : 128KB DETECTED",0
text1764: !text "REU 1764 : 256KB DETECTED",0
reut512: !text "REU 1750 : 512KB DETECTED",0
reut1024: !text "REU 1024KB DETECTED",0
reut2048: !text "REU 2048KB DETECTED",0
reuunk: !text "REU PORT DETECTED - BANK ERROR",0
notext: !text "NO REU",0
bankuse : !SCR "REWRITE BANK [Y/N] ?"
bankempty : !SCR "READ EMPTY BANK [Y/N] ?"
;--------------------------------------------------
; REU TRANSFER ROUTINE
;--------------------------------------------------
main lda config
sta reubase+1
c64lo lda #$00
sta reubase+2
c64hi lda #$C2
sta reubase+3
reulo lda #$00
sta reubase+4
reuhi lda #$00
sta reubase+5
bank lda #00
sta reubase+6 ; Bank
rbytes lda #16
sta reubase+7 ; 16 Bytes
rbytesh lda #$00
sta reubase+8
irq lda #$00
sta reubase+9
lda #$00
sta reubase+10
lda $1
pha
lda #$30 ; RAM
sei
sta $1
sta $ff00
pla
sta $1
cli
rts
;--------------------------------------------------
; Restore TXTPTR and back to command line
;--------------------------------------------------
STATUS
END2 SEC
LDA TXTPTR
SBC #$01
STA TXTPTR
LDA TXTPTR+1
SBC #$00
STA TXTPTR+1
JMP GONE
;--------------------------------------------------
TITLE !SCR " **** VIRTUAL REU OS V1 INSTALLED **** "
flinit !BYTE 73könntest das noch schneller machen, wenn du den sichtbaren screen auf &4000 gibst beim cpc
mfg
Und wie macht man das?
noch eine unendliche lösung für den cpc6128 :
bild ab &4000 zeigen:
poke &B7C6,&40
LOAD"SCREEN1.SCR",&C000
bild ab &c000 zeigen:
poke &B7C6,&c0
LOAD"SCREEN1.SCR",&4000
gehe zum anfang
wenn du ein original cpc hast, kauf dir symbifaceII , 10gigabyte festplatte und ein pcnetzteil und hast eine schau, da träumst du nur von.
mfg
Wenn ich ein Bild an Adresse &4000 lade, sehe ich nichts.
Mit welchem Befehl kann ich auf &4000 Bildschirmausgabe switchen?
Symbiface brauch ich nicht, ich will es in JEMU einsetzen.
Zitat von "super_castle"könntest das noch schneller machen, wenn du den sichtbaren screen auf &4000 gibst beim cpc
mfg
Nein, das hilft nichts, weil der Bildschirmspeicher immer in Bank 0 liegt. Auch wenn man bei #4000 einen externen Block einblendet, zeigt der Bildschirm weiterhin den Bereich ab #4000 in Bank 0.
CU,
Prodatron
siehe etwas höher, habe ich kurz erläutert, ohne die bänke.
mfg
So ich hab mal herumgepfriemelt und eine Slideshow erstellt.
Slideshow herunterladen
Stellt Euren Emu also auf mind. 512 Kb und schaut euch sie an.
(Ladezeit ist entsprechend lang, weil 10 Bilder geladen werden, danach wird das erste Bild angezeigt, und nach einem Tastendruck jeweils das nächste Bild angezeigt)
Danke nochmal an Prodatron.
Leider liest JEMU keine Snapshots des Types 3, und es ist mir nicht gelungen, einen 512K Snapshot davon anzufertigen....
Nette Bildchen, wie hast Du die konvertiert? Ich mach das Runterrechnen grundsätzlich mit Photoshop, Deine Ergnisse sehen genauso aus.
Ich würd übrigens statt 13 (grau) lieber 0 nehmen für Border und Pen 3, sonst sehen die Bilder irgendwie überbelichtet aus.
CU,
Prodatron
Die Bilderchen habe ich mit ConvImgCPC erstellt...
Geniales Tool von Demoniak.
Dort kann man auch schon im Vorfeld die Palette einstellen und die Farbwerte mit festlegen.
Ich hab übrigens noch 4 weitere Slideshows gemacht.
Slideshow 1
Diese sind allerdings ohne Bank-switching, also ganz "normal"
Und nun würd ich das ganze gern mit ein bissl Musik untermalen (kompilierte Soundtrakker Module ab &4000 oder auch gern ab ner anderen Adresse)
Wer kann mir dazu was sagen?
(Wie man .128 Mods kompiliert und in Basic aufruft, weiss ich)
Hmmmm... Niemand da, der mir helfen kann? 
eigentlich ist das kein Problem - du solltest aber den Bereich &4000 - &7FFF lieber nicht benutzen, weil ggf. in IRQ in die Quere kommt und anstelle des Songs dein Bild anspringt.
Wenn du nen Song gefunden hast (k. A. wie groß der ist) brauchst Du den dann nur noch mit MEMORY start-1:LOAD "xxx",start laden. Normalerweise spielen die nach einem CALL von alleine los.
Ich hab mir grad mal Nr. 1 angesehen - net schlecht 
Ich mache auch gerne Slide-Shows für den CPC. Hab mir damals mal nen kleinen Overscan-Konverter und den passenden Viewer (bisher nur im ROM) gebastelt. Das "Problem" ist, das meine Bilder..naja... doch etwas versauter sind.. 
Ich verkneife mir jetzt lieber mal eine kleine Kostprobe. Sonst wird der Laden hier noch dichtgemacht 
Hallo Brueggi,
die Songs sind so um die 4-6 Kb klein.
Wie ich sie kompilieren kann und aufrufen kann im Basic weiss ich.
Habe sie zu &4000 kompiliert und rufe sie auf mit LOAD"SONG",&4000:CALL &4000 auf
Allerdings gibt es dabei gehakel mit dem Bankswitch-Programm von Prodatron...
Gibt es dafür evtl. eine Lösung?
Tippe spontan auf das überlappen mit der Bank (&4000 = Song, &4000 = eingeblendete Bank). Oder du hast da irgendwo ein "Di" im Code?
Keine Ahnung ob da ein DI im Code ist.
Ich hab das Basic-Prog von Prodatron übernommen und für mich geändert.
Kann man da was machen wegen der Speicher-Überlappung?
Zitat von "Kangaroo MusiQue"Ich bin schon 19 gewesen mal!!!
Jo, da war Brandt noch Kanzler und werkelte mit Scheel an der neuen Ostpolitik. 
Ok, wenn ich das nächste mal hier her komme, gibts nen Link zu ROMs und Slideshows - aber ich habe euch gewarnt... Cartoons können ja so versaut sein.... :wink:
Um auf Nummer sicher zu gehen bitte den Link per persoenlicher Nachricht verschicken und nicht oeffentlich ins Forum stellen. Danke :)!
Will auch haben!!! *hechel* *sabber*
Ok. Naja, also verbotene Inhalte hats nicht 
Aber PN is besser, sonst gibts wieder Ärger mit dem Traffic-Limit. Wenn ich zu Hause bin, zieh ich mir mal alles auf den USB-Stick und stelle es online. Übrigens: Auf Platte kopiert und angeschaut machts noch mehr Spaß - ansonsten müsste man nen "Diskwechsel" einbauen.
@Devil: Compiliere deine Songs mal an eine Adresse >= &8000 - das sollte eigentlich helfen.
Habs versucht... Ab &8000 spielt der die nicht ab... Drecksack der!
Mal schauen... Vielleicht gibt es ja noch ne Lösung
KAnnst Du mir mal bitte einen Song schicken - komplett mit Aufruf-Liste (ich kenn nur Songs die man einmal mit nem CALL initialisiert und dann im IRQ aufrufen kann). Wenn ich mit dem aktuellen Projekt fertig bin, versuch ich mal in Rompack Pro. nen IRQ-Player zu bastlen, der nen Song aus einer Speicherbank abspielt (dann bleibt BASIC frei).
Habe Dir eine PN geschickt Brueggi...
So nu gehts ab inne Heia
Ok, thx. Penn gut
