Alternativ kann er natuerlich auch die Routine SCR_NEXT_LINE in der Firmware verwenden.
Jo, die hatte ja der AST schon gepostet, aber ich denk mal, der Super_Castle will die der Geschwindigkeit wegen nicht nehmen.
Die schnellst mögliche Sprite Routine funktioniert übrigens nach diesem Prinzip ("direkt adressiert" a la Zap't'Balls):
<!-- m --><a class="postlink" href="http://www.cpcwiki.com/index.php/Talk:Programming:Fast_Sprites">http://www.cpcwiki.com/index.php/Talk:P ... st_Sprites</a><!-- m -->
Hatte bisher noch keinen Bock gehabt, daraus einen vernünftigen Artikel zu machen, aber kann ja noch was werden. Den in Basic geschriebenen Generator für direkt adressierte Sprites (sowas wie da oben will man ja nicht per Hand eintippen) hab ich auch noch irgendwo rumfliegen.
CU,
Prodatron
hallo ihr beiden, habt mir sehr weitergeholfen.
wo bekomme ich die zyklen her für den z80 des cpc .
welcher sprung ist der kürzere von der zeit her zu der prodatron-routine :
jp, jr oder call ?
ich habe jetzt auch den cpce, muss sagen der ist flinker und hat nicht soviel sachen eingebaut wie die anderen, es fehlt der assembler.
welcher crossassembelr ist jetzt angebracht, der gut maxam-compatibel ist. wer hat gute erfahrung mit welchem.
mfg
Dauer der Befehle:
<!-- m --><a class="postlink" href="http://www.little-bat.de/cpc/z180.htm#A">http://www.little-bat.de/cpc/z180.htm#A</a><!-- m -->
Zum Thema Crosscompiler: Hier benutze ich Grundsätzlich immer WinApe wegen der Maxam-Kompatibilität. Du kannst den ja quasi auch als Assembler-only benutzen. Mit WinApe assembliere ich eben auch meine MSX-Sourcen.
CU,
Prodatron
Zitat von "super_castle"
wo bekomme ich die zyklen her für den z80 des cpc .
Also ich mag folgendes PDF Dokument, da es ganz uebersichtlich aufgebaut ist: http://www.teipir.gr/WWW/ECS/PeLAB/sbs/PERI-i/8085/Z80.pdf
Zitat von "super_castle"
welcher sprung ist der kürzere von der zeit her zu der prodatron-routine :
jp, jr oder call ?
Ein JP benoetigt 3 Bytes Code und 10 Timestates.
Ein JR benoetigt 2 Bytes Code und 12 Timestates.
Ein CALL benoetigt 3 Bytes und 16 Timestates.
Sollten zusaetzlichen Bedingungen hinzukommen, dann variiert das nochmal. Bspw. JR z, nn (wenn z, dann 12 Timestates, wenn nicht z, dann nur 7 Timestates).
Beim JR sollte man auch bedachten, dass der relative Sprung nur jeweils 128 Bytes nach vorne und hinten springen kann.
Am besten schaust du aber einfach mal in das Dokument von oben rein, da steht das alles ausfuehrlich in der "Jump Group", bzw. in der "Call and Return Group".
Zitat von "super_castle"
welcher crossassembelr ist jetzt angebracht, der gut maxam-compatibel ist. wer hat gute erfahrung mit welchem.
Also die Assembler in WinAPE und WinCPC finde ich auf jeden Fall nicht schlecht. Im Moment verwende ich aber Pasmo, da ich eine Build Datei habe, die ich nur anklicken brauche (ohne halt einen Emulator zu starten) und damit dann noch einiges nebenbei erledigen kann.
Zitat von "Octoate"
Ein JP benoetigt 3 Bytes Code und 10 Timestates.
Ein JR benoetigt 2 Bytes Code und 12 Timestates.
Ein CALL benoetigt 3 Bytes und 16 Timestates.
Beim CPC ist das ja wegen dem GateArray-Dazwischengefunke etwas anders, da sind die Befehlszeiten teilweise aufgebläht. Daher würde ich lieber die von mir angegebene Quelle nehmen.
CU,
Prodatron
..Du kannst den ja quasi auch als Assembler-only benutzen....
heisst das, das ich ihn irgendwie bei winape allein starten kann ohne das winape läuft?
noch eine frage ich möchte eine schleife in asm proggen die mehr als 255x durchlaufen wird, also 500 zb, die kriege ich nicht gebacken. geht jetzt darum, die bytes in den screen zu setzen.
kannst mal kurz ein beipiel zeigen?
mfg
Jo, aber zum abschaetzen ist das eigentlich eine ganz gute Uebersicht. Btw, wenn du auch ne CPC bezogene Quelle haben solltest, dann bin ich da natuerlich auch dran interessiert :).
Zitat
Daher würde ich lieber die von mir angegebene Quelle nehmen.
habe ich mir gedacht, das die routine noch andere sachen macht.
mfg
Zitat
wenn du auch ne CPC bezogene Quelle haben solltest
ich habe mal das buch "z80 proggen mit zaks" als pdf gezogen in deutsch.
mfg
ich schreibe jetzt 210x das byte(255) untereinander, ab 200 springt es nicht in die nächste spalte sondern 32 spalten weiter? wie kann es umgestellt werden, das wenn es unten angekommen ist in die nächstgelegene spalte springt.
ZitatAlles anzeigen
org &a000
ld a,0
ld hl,&c000
.anfang
call next_line
ld (hl),255
inc a
cp 210
jp nz,anfang
ret
.next_line
LD BC,#800
ADD HL,BC
RET NC
LD BC,#C050
ADD HL,BC
RET
hallo prodatron kannst du die routine so umbauen, das ich zb von der x-achse das 12 byte angebe und von der y-achse das 23.zigste und dann den wert für hl bekomme und anschließend deine routine zum setzen nehme?
irgendwie machen mich die bytes im screen raschlig wenn es darum geht ein bestimmte kästchen(rechteck/quadrat) mit bytes zu besetzen.
mfg
Zitat von "Octoate"Jo, aber zum abschaetzen ist das eigentlich eine ganz gute Uebersicht. Btw, wenn du auch ne CPC bezogene Quelle haben solltest, dann bin ich da natuerlich auch dran interessiert :).
Wie gesagt, ich würde halt die hier nehmen aus dem Schneider Systembuch:
Zitat von "Prodatron"Dauer der Befehle:
<!-- m --><a class="postlink" href="http://www.little-bat.de/cpc/z180.htm#A">http://www.little-bat.de/cpc/z180.htm#A</a><!-- m -->
Dort sind die Zeiten auch schon direkt in Mikrosekunden angegeben, nicht in Zyklen, was das ganze noch einfacher macht.
CU,
Prodatron
Zitat von "super_castle"hallo prodatron kannst du die routine so umbauen, das ich zb von der x-achse das 12 byte angebe und von der y-achse das 23.zigste und dann den wert für hl bekomme und anschließend deine routine zum setzen nehme?
irgendwie machen mich die bytes im screen raschlig wenn es darum geht ein bestimmte kästchen(rechteck/quadrat) mit bytes zu besetzen.
mfg
Hi,
ich glaub, ich muß nochmal n paar Sources ins Wiki tun. Hier erstmal mal die Routine aus dem SymbOS-Screendriver, die die Bildschirmadresse eines Pixels berechnet:
;### GETADR -> Berechnet Bildschirm-Adresse
;### Eingabe DE=XPos, L=YPos
;### Ausgabe HL=Adresse, A=Pixeloffset, C=Anzahl Pixel pro Byte-1
;### Veraendert F,B,DE
getadr ld h,0
add hl,hl
ld bc,getadr0
add hl,bc
ld c,(hl)
inc hl
ld h,(hl)
ld l,c
ld a,e
getadr1 ld c,NUMBER_OF_PIXEL_PER_BYTE - 1 ;1,3 oder 7
and c
getadr2 ld b,SCREEN_MODE + 1 ;1,2 oder 3
getadr3 srl d
rr e
djnz getadr3
add hl,de
ret
getadr0 ;Zeilenstart-Adressen
dw #C000,#C800,#D000,#D800,#E000,#E800,#F000,#F800,#C050,#C850,#D050,#D850,#E050,#E850,#F050,#F850,#C0A0,#C8A0,#D0A0,#D8A0,#E0A0,#E8A0,#F0A0,#F8A0,#C0F0
dw #C8F0,#D0F0,#D8F0,#E0F0,#E8F0,#F0F0,#F8F0,#C140,#C940,#D140,#D940,#E140,#E940,#F140,#F940,#C190,#C990,#D190,#D990,#E190,#E990,#F190,#F990,#C1E0,#C9E0
dw #D1E0,#D9E0,#E1E0,#E9E0,#F1E0,#F9E0,#C230,#CA30,#D230,#DA30,#E230,#EA30,#F230,#FA30,#C280,#CA80,#D280,#DA80,#E280,#EA80,#F280,#FA80,#C2D0,#CAD0,#D2D0
dw #DAD0,#E2D0,#EAD0,#F2D0,#FAD0,#C320,#CB20,#D320,#DB20,#E320,#EB20,#F320,#FB20,#C370,#CB70,#D370,#DB70,#E370,#EB70,#F370,#FB70,#C3C0,#CBC0,#D3C0,#DBC0
dw #E3C0,#EBC0,#F3C0,#FBC0,#C410,#CC10,#D410,#DC10,#E410,#EC10,#F410,#FC10,#C460,#CC60,#D460,#DC60,#E460,#EC60,#F460,#FC60,#C4B0,#CCB0,#D4B0,#DCB0,#E4B0
dw #ECB0,#F4B0,#FCB0,#C500,#CD00,#D500,#DD00,#E500,#ED00,#F500,#FD00,#C550,#CD50,#D550,#DD50,#E550,#ED50,#F550,#FD50,#C5A0,#CDA0,#D5A0,#DDA0,#E5A0,#EDA0
dw #F5A0,#FDA0,#C5F0,#CDF0,#D5F0,#DDF0,#E5F0,#EDF0,#F5F0,#FDF0,#C640,#CE40,#D640,#DE40,#E640,#EE40,#F640,#FE40,#C690,#CE90,#D690,#DE90,#E690,#EE90,#F690
dw #FE90,#C6E0,#CEE0,#D6E0,#DEE0,#E6E0,#EEE0,#F6E0,#FEE0,#C730,#CF30,#D730,#DF30,#E730,#EF30,#F730,#FF30,#C780,#CF80,#D780,#DF80,#E780,#EF80,#F780,#FF80Und hier ne Routine, die ein Kästchen malt:
;### PNTBYT -> Fuellt Bildschirmbereich byteweise
;### Eingabe HL=Screenadr, C=Breite, B=Hoehe, A=Byte
;### Veraendert AF,BC,DE,HL
pntbyt ld (pntbyt1+1),a
ld (pntbyt5+1),a
ld a,c
sub 1
ret c
jr z,pntbyt4
ld (pntbyt2+1),a
neg
ld (pntbyt3+1),a
ld a,b
pntbyt1 ld (hl),0
ld d,h
ld e,l
inc de
pntbyt2 ld bc,0
ldir
pntbyt3 ld bc,#700
add hl,bc
jr nc,pntbyt7
ld bc,#c050
add hl,bc
pntbyt7 dec a
jr nz,pntbyt1
ret
pntbyt4 ld a,b
ld bc,#800
ld de,#c050
pntbyt5 ld (hl),0
add hl,bc
jr nc,pntbyt6
add hl,de
pntbyt6 dec a
jr nz,pntbyt5
rethallo, vielen dank. allmählich blickt man da durch dank deiner hilfe.
mfg
hallo, nochmal. ich möchte eine entscheidung treffen:
inc a
cp 50
der akku wird hochgezählt, die entscheidung bei cp soll jetzt keine festvariable wie hier die 50 sein, sondern die vergleichszahl soll aus einer speicherzelle genommen werden die vor dem aufruf mit dem wert festgelegt ist. wie geht so etwas. die maxambeschreibung gibt nicht viel her.
danke.
mfg
Z.B. so:
INC A
LD HL,speicherzelle
CP (HL)
...
speicherzelle DB 50
Wenn Du eine Schleife programmieren willst, würde ich übrigens immer runterzählen:
LD A,(speicherzelle)
loop: ...
DEC A
JR NZ,loop
dann sparst Du Dir nämlich das CP
hallo, jetzt geht es. ich wußte nicht, das ich die vorgabe in defb bei dir noch mit einem neuen wert laden kann. es sollte kein fester wert sein.
mfg
Versteh ich nicht.
ld a,(speicher) -> wert aus speicherzelle holen
ld (speicher),a -> wert in speicherzelle schreiben
Was weißt Du jetzt nicht?
ich wußte nicht, das man eine speicherstelle mit einer vorgegebenen konstante ändern kann wie man möchte während eines programmablaufes.
mfg
in mode 1 muß ich ja 2 bytes nebeneinander erzeugen mit verschiedenen farbwerten , wie funktioniert das denn wenn ich an der stelle &c000 ein byte setzen will welches mode 1 entspricht ?
mfg
Wenn du die Mode 1-Codierung meinst:
Bit 7,6,5,4 = Bit 0 der 4 Pixel im Byte
Bit 3,2,1,0 = Bit 1 der 4 Pixel im Byte
= 2 Bit/Pixel = 4 Farben.
Beispiel:
10000000 = 1. Pixel in Pen 1 gesetzt
00001000 = 1. Pixel in Pen 2 gesetzt
10001000 = 1. Pixel in Pen 3 gesetzt
11001100 = 1+2 Pixel in Pen 3
usw.
hallo, möchte mit deinen startadressen arbeiten und folgende 2 byte an die adresse schreiben, geht aber nicht....?
ZitatAlles anzeigen
org &a000
ld hl,getadr0
ld (hl),255
inc hl
ld (hl),255
ret
getadr0 ;Zeilenstart-Adressen
dw #C000,#C800,#D000,#D800,#E000,#E800...
Du willst die Bildschirm-Adresse nach HL laden oder die Tabelle ändern?
So wie es da steht, lädst Du HL mit der Adresse des Labels getatr0.
Richtig wäre hier Ld Hl,(getatr0)
hallo das geht jetzt :
ZitatAlles anzeigen
org &a000
ld hl,0
ld bc,(getadr0)
add hl,bc
ld (hl),255
ld hl,1
ld bc,(getadr0+2)
add hl,bc
ld (hl),255
ld hl,2
ld bc,(getadr0+4)
add hl,bc
ld (hl),255
ret
getadr0 ;Zeilenstart-Adressen
dw #C000,#C800,#D000,#D800,#E000,#E800,#F000,#F800,#C050....
kann man für die 2 und 4 irgendetwas anderes zum hochzählen nehmen, irgendein register oder so etwas?
Was genau willst du denn erreichen?
Eine - wenn auch nicht elegante - Lösung wäre z. B. auch:
(nur, um mal eine Schleife zu demonstrieren)
ld b,$08
ld de,2048
ld hl,(getatr0)
loop:
ld (hl),255
add hl,de
djnz loop
ich will von hier :
getadr0 ;Zeilenstart-Adressen
dw #C000,#C800,#D000,#D800,#E000,#E800,#F000,#F800,#C050....
die werte auslesen nach bedarf, wenn ich den 3. brauche soll der gelesen werden, wenn ich den 6. brauche, soll der gelesen werden bis zur linie 200.
da w-werte sind müssen immer 2 addiert werden.
getadr0+2 ist der wert #c800, getadr0+4 ist der wert #d000 usw...
Eigentlich brauchst Du keine Tabelle - oder hab ich was mißverstanden?
Um z. B. in Mode 2 (da is es am einfachsten zu erklären) ein Zeichen mit &FF zu überschreiben, rechnest du:
Adresse= (Zeile-1)*80
Adresse=Adresse+&C000
Damit hast du das 1. Byte des Zeichens.
Dann addierst du 2048 dazu und bist in der nächsten Zeile des Zeichens (also eine Pixelzeile darunter).
usw...
Deutsch
