Assemblerecke

[Devilmarkus]

Ich will mal eine kleine Assemblerecke beginnen.
Vielleicht hat ja jemand von Euch nützliche Code-Snippets, die hilfreich sind.

Ich beginne mit einer Routine, mit der man ein Bild auf den CPC-Schirm "rollen" kann. (Wie damals bei einigen Starbyte Spielen auf Amiga und DOS)

Code: [Auswählen]

org &8000

num_roll_deltas equ (roll_deltas_end-roll_deltas)/2

roll_start:
call make_scr_table

;; start by drawing line 0
ld hl,1
ld (y_dst),hl

do_roll:
ld b,&f5
in a,(c)
rra
jr nc,do_roll

call draw_roll

ld hl,(y_dst)
inc hl
ld (y_dst),hl
call cp_200
jp m,do_roll
ret

get_scr_addr:
push de
add hl,hl
ld de,scr_addr_table
add hl,de
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
pop de
ret

cp_200:
or a
ld bc,200
sbc hl,bc
add hl,bc
ret


draw_roll:

;; copy actual gfx line (not part of barrel roll)

ld hl,(y_dst) ;; scanline position to draw barrel to
dec hl ;; scanline position to draw actual line to
call get_scr_addr
;; HL = screen address
push hl
ld e,l ;; DE = same as dest
ld d,h
call copy_line ;; copy line
pop de

;; DE = screen address of line drawn
;; HL = line (for barrel)

;; now draw barrel
ld ix,roll_deltas ;; table of delta values
ld b,num_roll_deltas ;; number of lines to draw
draw_roll_loop:
push bc

;; DE go to next scanline for drawing
ex de,hl
call scr_next_line
ex de,hl

;; DE = scanline for drawing
push de

ld hl,(y_dst)
ld c,(ix+0)
ld b,(ix+1)
add hl,bc
inc ix
inc ix
;; IX = next delta value

;; HL = adjusted scanline

;; are we over end of source image?
;; yes we can skip drawing this line
call cp_200
jp p,skip_draw

;; lookup screen address for adjusted scanline
call get_scr_addr
;; now copy this line
call copy_line

skip_draw:
pop de

pop bc
djnz draw_roll_loop
ret

copy_line:
ld a,h
and &3f
or &40
ld h,a

ld a,d
and &3f
or &c0
ld d,a ;; de = dest
;; hl = source
ld bc,80 ;; length of line
ldir
ret


y_dst:
defw 0

y_src:
defw 0

;; if height is 8
;; then we need to start 8 ahead
;; from then we show highest lines at top
;; and smaller at bottom
;; near middle we see more lines or lines repeated or stretched
roll_deltas:
defw 1+4+3+2+1+1+2+3+3+4+4+num_roll_deltas
defw 1+4+3+2+1+1+2+3+3+4+num_roll_deltas
defw 1+4+3+2+1+1+2+3+3+num_roll_deltas
defw 1+4+3+2+1+1+2+3+num_roll_deltas
defw 1+4+3+2+1+1+2+num_roll_deltas
defw 1+4+3+2+1+1+num_roll_deltas
defw 1+4+3+2+1+num_roll_deltas
defw 1+4+3+2+num_roll_deltas
defw 1+4+3+num_roll_deltas
defw 1+4+3+num_roll_deltas
defw 1+4+num_roll_deltas
defw 1+4+num_roll_deltas
defw 1+num_roll_deltas
;; lowest
roll_deltas_end:

;; 4
;; 4
;; 3
;; 3
;; 2
;; 1
;; 1
;; 2
;; 3
;; 3
;; 4
;; 4


;; generate table of screen addresses
;; one address per scanline. The address
;; is for the first byte of each line.
make_scr_table:
ld ix,scr_addr_table ;; address to store table
ld hl,&c000 ;; start address of first scanline
ld b,200 ;; number of scanlines on screen
mst1:
push bc
ld (ix+0),l
ld (ix+1),h
inc ix
inc ix
call scr_next_line
pop bc
djnz mst1
ret

scr_next_line:
ld a,h
add a,8
ld h,a
ret nc
ld a,l
add a,&50
ld l,a
ld a,h
adc a,&c0
ld h,a
ret


scr_addr_table:
defs 200*2
Wie es funktioniert:
- Mit JavaCPC (oder einem anderen Emulator) assemblieren
- Unter BASIC eingeben: MEMORY &3FFF (Speicherbereich sichern)
- Bild (16k) an &4000 laden
- Die Palette definieren
- Mit CALL &8000 das Bild an &C000 "aufrollen" lassen

[TFM]

Geht das auch am echten CPC, oder nur am Emu *duck und weg*

[Devilmarkus]

Das geht am Echten CPC nur dann nicht, wenn ein Falscher TFM davor sitzt.

[TFM]

Das geht am Echten CPC nur dann nicht, wenn ein Falscher TFM davor sitzt.

TFM wären gern viele doch nur einer kann der echte sein

http://www.youtube.com/user/tfm?blend=1&ob=0

[TFM]

Zurück zum Thema:

Will man z.B. folgendes berechnen: DE = DE + 52


Dann geht es z.B. so:

LD  A,52
ADD A,E
LD  E,A

JR  NC,XXX ;2/3 ys  / 3 ys
INC D      ;1/0 ys /

XXX

Oder aber auch so:

LD  A,52
ADD A,E
LD  E,A

ADC A,D  / 3 ys
SUB A,E /
LD  D,A/

Nur mal so als Denkanstoss ;-)

[Devilmarkus]

Hallo Leute,
Jemand hatte mich gefragt, ob ich ihm helfen könne, einen grafischen Equalizer auf dem CPC anzuzeigen,
den man auch an verschiedenen Stellen im Bildschirm anzeigen kann.

Nun habe ich mich mal ein wenig schlau gemacht, und ein paar Routinen wild zusammengeworfen.

Ich habe mich dazu entschlossen, dieses öffentlich zu Posten, damit auch andere User davon "profitieren" können....

Herausgekommen ist ein Interruptgetriebener Grafikequalizer, den man mit 2 RSX Befehlen einfach starten kann:

|EQUALIZER startet den Interrupt
|SETPOS,X,Y setzt die Position des Equalizers auf dem Bildschirm.

Mehr braucht man nicht!

Und hier die Source:

Code: [Auswählen]

org #8000

LD HL,BufferRsx
LD BC,InitRSX
JP #BCD1

.InitRSX
DW RSXTable
JP inton
JP initCoord
nop
nop
nop

.RSXTable
DB "EQUALIZE","R"+#80
DB "SETPO","S"+#80
nop
nop
nop
nop

.IntOn
INC A
LD (IntOn+1),A             ; Indicates driver
LD HL,BlocEvent
LD DE,InterruptLoop
LD BC,#8100
JP #BCD7

.InterruptLoop
call equalizer
ret

.equalizer
di
call setCoord
ld e,8

call draw_bars
call draw_bars

.draw_bars
push hl
call read_from_psg
and &0f
add 1
inc e
ld c,a
or a
jr z,nobars
ld b,a

.bars
call prev_line
ld (hl),#6f
djnz bars

.nobars
ld a,15
sub c
add 1
jr z,noblank
ld b,a

.blank
call prev_line
ld (hl),0
djnz blank

.noblank
pop hl
inc hl
inc hl
ret

.prev_line
ld a,h
sub 16 ;;8 ;; 16
cp #c0
jr nc,line_ok
ld a,l
sub #50
ld l,a
ld a,h
sbc &d0 ;;#c8   ;; d0
.line_ok
ld h,a
ei
ret

.read_from_psg
ld b,#f4
out (c),e
ld bc,#f6c0
out (c),c
xor a
out (c),a
ld bc,#f7d2
out (c),c
ld bc,#f640
out (c),c
ld b,#f4
in a,(c)
ld bc,#f7c2
out (c),c
ld bc,#f600
out (c),c
ret
.setCoord
LD HL,(ycoord)
LD DE,(xcoord)
LD A, L
AND %00000111
LD H, A
XOR L
LD L, A
LD C, A
LD B, &60

ADD HL, HL
ADD HL, HL
ADD HL, BC
ADD HL, HL

LD A, E
SRL D
RR E
SRL E
ADD HL, DE
ret
.initCoord
LD H,(IX+1)
LD L,(IX+0)
LD (ycoord),HL
LD d,(IX+3)
LD e,(IX+2)
ld (xcoord),DE
ret
.BlocEvent
DS 16
.BufferRsx
DS 4
.ycoord
DB 199,0
.xcoord
db 148,0

Vielleicht kann ja noch jemand ein |OFF zufügen? (Ich habe leider nicht herausgefunden, wie ich den Interrupt wieder stoppen kann!!!)

Der Equalizer sollte mit allen vorhandenen Musikstücken funktionieren, welche über BASIC abgespielt werden können.
In wie weit er funktioniert, wenn man per BASIC einen interruptgesteuerten Titel abspielt, weiss ich nicht.

Anbei aber ein Snapshot, welcher die Funktion zeigt. (6128 ROMs, einfach "Enter" drücken)

[TFM]

Das ist doch mal eine SUPER SACHE!!!

[Devilmarkus]

Hier noch ein paar Ergänzungen:

Zunächst mal das BASIC-Listing, für diejenigen, die keinen Assembler zur Hand haben:

Code: [Auswählen]

10 AD=&8000:L=&014F
20 READ a:POKE AD+P,a
30 P=P+1:IF P=L THEN CALL &8000:END
40 GOTO 20
50 DATA &21,&46,&81,&01,&09,&80,&C3,&D1,&BC,&26,&80,&C3,&52,&80,&C3,&F2
60 DATA &80,&C3,&06,&81,&C3,&12,&81,&C3,&1B,&81,&C3,&24,&81,&C3,&2D,&81
70 DATA &C3,&62,&80,&00,&00,&00,&45,&51,&55,&41,&4C,&49,&5A,&45,&D2,&53
80 DATA &45,&54,&50,&4F,&D3,&50,&41,&54,&54,&45,&52,&CE,&50,&45,&4E,&B1
90 DATA &50,&45,&4E,&B2,&50,&45,&4E,&B3,&44,&45,&C6,&53,&54,&4F,&D0,&00
100 DATA &00,&00,&21,&36,&81,&11,&5E,&80,&01,&00,&81,&C3,&D7,&BC,&CD,&69
110 DATA &80,&C9,&21,&36,&81,&C3,&DD,&BC,&C9,&F3,&CD,&D5,&80,&1E,&08,&CD
120 DATA &75,&80,&CD,&75,&80,&E5,&CD,&B0,&80,&E6,&0F,&C6,&01,&1C,&4F,&B7
130 DATA &28,&0A,&47,&CD,&9F,&80,&3A,&4E,&81,&77,&10,&F7,&3E,&0F,&91,&C6
140 DATA &01,&28,&08,&47,&CD,&9F,&80,&36,&00,&10,&F9,&E1,&23,&23,&C9,&7C
150 DATA &D6,&10,&FE,&C0,&30,&07,&7D,&D6,&50,&6F,&7C,&DE,&D0,&67,&FB,&C9
160 DATA &06,&F4,&ED,&59,&01,&C0,&F6,&ED,&49,&AF,&ED,&79,&01,&D2,&F7,&ED
170 DATA &49,&01,&40,&F6,&ED,&49,&06,&F4,&ED,&78,&01,&C2,&F7,&ED,&49,&01
180 DATA &00,&F6,&ED,&49,&C9,&2A,&4A,&81,&ED,&5B,&4C,&81,&7D,&E6,&07,&67
190 DATA &AD,&6F,&4F,&06,&60,&29,&29,&09,&29,&7B,&CB,&3A,&CB,&1B,&CB,&3B
200 DATA &19,&C9,&DD,&66,&01,&DD,&6E,&00,&22,&4A,&81,&DD,&56,&03,&DD,&5E
210 DATA &02,&ED,&53,&4C,&81,&C9,&E5,&DD,&66,&01,&DD,&6E,&00,&22,&4E,&81
220 DATA &E1,&C9,&E5,&21,&F0,&00,&22,&4E,&81,&E1,&C9,&E5,&21,&0F,&00,&22
230 DATA &4E,&81,&E1,&C9,&E5,&21,&FF,&00,&22,&4E,&81,&E1,&C9,&E5,&21,&6F
240 DATA &00,&22,&4E,&81,&E1,&C9,&00,&00,&00,&00,&00,&00,&00,&00,&00,&00
250 DATA &00,&00,&00,&00,&00,&00,&00,&00,&00,&00,&C7,&00,&94,&00,&6F

Ergänzt:
|STOP Stoppt den Equalizer
|PEN1 |PEN2 |PEN3 Wählt den PEN als Farbe (Einfarbiger Equalizer)
|PATTERN,<0-255> Setzt den Pattern für die Balken.
|DEF Setzt die Balken wieder auf die Voreinstellung

Nochmal der komplette Assemblercode:

Code: [Auswählen]

org #8000

LD HL,BufferRsx
LD BC,InitRSX
JP #BCD1

.InitRSX
DW RSXTable
JP inton
JP initCoord
JP setPattern
JP setPattern1
JP setPattern2
JP setPattern3
JP setPattern4
JP StopInterrupt
nop
nop
nop

.RSXTable
DB "EQUALIZE","R"+#80
DB "SETPO","S"+#80
DB "PATTER","N"+#80
DB "PEN","1"+#80
DB "PEN","2"+#80
DB "PEN","3"+#80
DB "DE","F"+#80
DB "STO","P"+#80
nop
nop
nop

.IntOn
LD HL,BlocEvent
LD DE,InterruptLoop
LD BC,#8100
JP #BCD7

.InterruptLoop
call equalizer
ret

.StopInterrupt
LD HL,BlocEvent
JP #BCDD
ret

.equalizer
di
call setCoord
ld e,8
call draw_bars
call draw_bars

.draw_bars
push hl
call read_from_psg
and &0f
add 1
inc e
ld c,a
or a
jr z,nobars
ld b,a

.bars
call prev_line
LD a,(pattern)
ld (hl),a
djnz bars

.nobars
ld a,15
sub c
add 1
jr z,noblank
ld b,a

.blank
call prev_line
ld (hl),0
djnz blank

.noblank
pop hl
inc hl
inc hl
ret

.prev_line
ld a,h
sub 16 ;;8 ;; 16
cp #c0
jr nc,line_ok
ld a,l
sub #50
ld l,a
ld a,h
sbc &d0 ;;#c8   ;; d0
.line_ok
ld h,a
ei
ret

.read_from_psg
ld b,#f4
out (c),e
ld bc,#f6c0
out (c),c
xor a
out (c),a
ld bc,#f7d2
out (c),c
ld bc,#f640
out (c),c
ld b,#f4
in a,(c)
ld bc,#f7c2
out (c),c
ld bc,#f600
out (c),c
ret
.setCoord
LD HL,(ycoord)
LD DE,(xcoord)
LD A, L
AND %00000111
LD H, A
XOR L
LD L, A
LD C, A
LD B, &60
ADD HL, HL
ADD HL, HL
ADD HL, BC
ADD HL, HL
LD A, E
SRL D
RR E
SRL E
ADD HL, DE
ret

.initCoord
LD H,(IX+1)
LD L,(IX+0)
LD (ycoord),HL
LD d,(IX+3)
LD e,(IX+2)
ld (xcoord),DE
ret

.setPattern
push HL
LD H,(IX+1)
LD L,(IX+0)
LD (pattern),HL
pop HL
ret

.setPattern1
push hl
ld HL,%11110000
LD (pattern),HL
pop hl
ret

.setPattern2
push hl
ld HL,%00001111
LD (pattern),HL
pop hl
ret

.setPattern3
push hl
ld HL,%11111111
LD (pattern),HL
pop hl
ret

.setPattern4
push hl
ld HL,&6f
LD (pattern),HL
pop hl
ret

.BlocEvent
DS 16
.BufferRsx
DS 4
.ycoord
DB 199,0
.xcoord
db 148,0
.pattern
db &6f


[Devilmarkus]

Ich habe das Script nochmals erweitert und noch eine Play-Funktion integriert.
Getestet mit JavaCPC Assembler! (Sollte auch mit WinAPE kompilieren...)

Code: [Auswählen]

;; ----------------------------------
;; Songplayer 1.0 mit Grafikequalizer
;;   Geschrieben von Markus Hohmann
;;  Kontakt:  webmaster@cpc-live.com
;; ----------------------------------
;;
;; Dank an Executioner und Demoniak!
;;
;; Spielt Soundtrakker 128 Songs ab
;; Songs kann man einfach mit dem
;; Soundtrakker-Compiler als RAW nach &4000 kompilieren.


songinit equ #4000 ; Wo der geladene Song
; initialisiert wird
; Auf 0 setzen, wenn kein Song
; gespielt werden soll

songplay equ #4003 ; Wo der geladene Song
; gespielt wird
; Auf 0 setzen, wenn kein Song
; gespielt werden soll

songstop equ #4006 ; Wo der geladene Song
; gestoppt wird
; Auf 0 setzen, wenn kein Song
; gespielt werden soll

org #8000

;; Soll JavaCPC die assemblierte Datei direkt
;; auf das DSK in LW A schreiben?
;; Dann die ;; in der übernächsten Zeile entfernen.

;; write direct "code.bin"

call single ; Die Balken werden auf einfache Grösse gesetzt
call setPattern5 ; Der Pattern wird auf "3D" gesetzt
LD HL,BufferRsx ; RSX Buffer wird geladen
LD BC,InitRSX ; RSX Befehle werden erstellt
JP #BCD1

.InitRSX
DW RSXTable ; Sprungadressen für die jeweiligen
; RSX Befehle
JP inton
JP inton
JP initCoord
JP initCoord
JP setPattern
JP setPattern1
JP setPattern2
JP setPattern3
JP setPattern4
JP setPattern5
JP StopInterrupt
JP Single
JP Double
nop

.RSXTable ; Die RSX Befehle
; Letzter Buchstabe IMMER +#80!
DB "PLA","Y"+#80
DB "EQUALIZE","R"+#80
DB "SETPO","S"+#80
DB "PO","S"+#80
DB "PATTER","N"+#80
DB "PEN","1"+#80
DB "PEN","2"+#80
DB "PEN","3"+#80
DB "DE","F"+#80
DB "3","D"+#80
DB "STO","P"+#80
DB "SINGL","E"+#80
DB "DOUBL","E"+#80
nop

.IntOn
;; Hier wird der Song initialisiert,
;; wenn "songinit" gesetzt wurde.
if (songinit)
call songinit
endif
;; Hier geht es wieder normal weiter

LD HL,InterruptEvent ; Interrupt erstellen
LD DE,InterruptLoop
LD BC,#8100
JP #BCD7 ; Interrupt starten

.InterruptLoop
call equalizer ; Jedes Frame wird der Equalizer angezeigt

;; Hier wird der Song Frameweise abgespielt,
;; wenn "songplay" gesetzt wurde.
if (songplay)
call songplay
endif
;; Hier geht es wieder normal weiter

ret

.StopInterrupt
;; Hier werden die AY-Register zurückgesetzt,
;; wenn "songstop" gesetzt wurde.
if (songstop)
call songstop
endif
;; Hier geht es wieder normal weiter

LD HL,InterruptEvent ; Interrupt event laden
JP #BCDD ; Laufenden Interrupt stoppen
ret

.equalizer
di
call setCoord
ld e,8
call draw_bars
call draw_bars

.draw_bars
push hl
call read_from_psg
and #0f
add 1
inc e
ld c,a
or a
jr z,nobars
ld b,a

.bars
call prev_line
LD a,(pattern)
ld (hl),a
djnz bars

.nobars
ld a,15
sub c
add 1
jr z,noblank
ld b,a

.blank
call prev_line
ld (hl),0
djnz blank

.noblank
pop hl
inc hl
inc hl
ret

.prev_line
ld a,h
push hl
ld hl,(singlesize)
sub l ;;8 ;; 16
pop hl
cp #c0
jr nc,line_ok
ld a,l
sub #50
ld l,a
ld a,h
push hl
ld hl,(singlesize+1)
sbc l
pop hl
.line_ok
ld h,a
ei
ret

.read_from_psg
ld b,#f4
out (c),e
ld bc,#f6c0
out (c),c
xor a
out (c),a
ld bc,#f7d2
out (c),c
ld bc,#f640
out (c),c
ld b,#f4
in a,(c)
ld bc,#f7c2
out (c),c
ld bc,#f600
out (c),c
ret
.setCoord
di
LD HL,(ycoord)
LD DE,(xcoord)
LD A, L
AND %00000111
LD H, A
XOR L
LD L, A
LD C, A
LD B, #60
ADD HL, HL
ADD HL, HL
ADD HL, BC
ADD HL, HL
LD A, E
SRL D
RR E
SRL E
ADD HL, DE
ei
ret

.initCoord
di
LD H,(IX+1)
LD L,(IX+0)
LD (ycoord),HL
LD d,(IX+3)
LD e,(IX+2)
ld (xcoord),DE
call mode1
ei
ret

.setPattern
di
push HL
LD H,(IX+1)
LD L,(IX+0)
LD (pattern),HL
pop HL
ei
ret

.setPattern1
di
push hl
ld HL,%11110000
LD (pattern),HL
pop hl
ei
ret

.setPattern2
di
push hl
ld HL,%00001111
LD (pattern),HL
pop hl
ei
ret

.setPattern3
di
push hl
ld HL,%11111111
LD (pattern),HL
pop hl
ei
ret

.setPattern4
di
push hl
ld HL,#6f
LD (pattern),HL
pop hl
ei
ret

.setPattern5
di
push hl
ld HL,#e9
LD (pattern),HL
pop hl
ei
ret

.single
di
push hl
ld HL,8
LD (singlesize),HL
ld hl,#c8
ld (singlesize+1),hl
pop hl
call mode1
ei
ret

.double
di
push hl
ld HL,16
LD (singlesize),HL
ld hl,#d0
ld (singlesize+1),hl
pop hl
call mode1
ei
ret

.mode1
LD A,1
CALL #BC0E
ret

;; Reservierte Speicherstellen
;; Diese werden durch das Programm,
;; während es läuft, verändert!

.InterruptEvent
DS #10

.BufferRsx
DS #4

.ycoord
DB #c7
db #00

.xcoord
db #94
db #00

.pattern
db #6f
db #00

.singlesize
db #10
db #d0


Statt |EQUALIZER kann man nun auch |PLAY nehmen.
Statt |SETPOS,x,y kann man nun auch |POS,x,y nehmen.
Will man keinen Song laden, setzt man die ersten EQU auf 0! Dann wird nur der Equalizer gestartet.
|3D setzt die Balken in einen leichten 3d-Style...
|DOUBLE setzt die Balken auf doppelte Höhe
|SINGLE setzt sie wieder zurück auf die einfache Höhe.

Der integrierte Player sollte kompatibel zu ST128 kompilierten Songs sein... (I hope so)

Anbei noch eine Demodisk, welche auch den komplett kompilierten Playercode verwendet: (RUN"DEMO")

[TFM]

Das wird ja immer besser! Gut so Markus!