[ASM 68000] Mesurer les cycles d’un code

Voici en synthèse les 2 codes issus de vos suggestions, ajustés et complémentaire (pour A500)

L’un mesure le nombre de cycles pour des routines courtes inférieures au temps du faisceau horizontal.

L’autre mesure des routines plus conséquentes en ms (convient moins à un nombre d’instructions faibles)

Code pour mesurer des cycles :

**********************************************************
;Code pour mesurer les cycles d’un code inferieur au temps de trace d’une ligne
;Calibre pour A500
;
;Resultat dans D0 = nombre de cycles, D1=Start, D2=Stop
;
;Sources :
;http://eab.abime.net/showpost.php?p=1199574
;http://eab.abime.net/showthread.php?t=88383

section code,code

DMACONR=$002
VHPOSR=$006
INTENA=$09A
INTENAR=$01C
INTREQ=$09C
INTREQR=$01E
DMACON=$096

;———- Macros ———-

;Attendre le Blitter
;Quand la seconde opérande est une adresse, BTST ne permet de tester que les bits 7-0 de l’octet pointé,
;mais traitant la première opérande comme le numéro du bit modulo 8,
;BTST #14,DMACONR(a5) revient à tester le bit 14%8=6 de l’octet de poids fort de DMACONR,
;ce qui correspond bien à BBUSY…

WAITBLIT: MACRO
_waitBlitter0\@
btst #14,DMACONR(a5)
bne _waitBlitter0\@
_waitBlitter1\@
btst #14,DMACONR(a5)
bne _waitBlitter1\@
ENDM

start:
clr.l d0
lea $DFF000,a5

move.w #$4000,INTENA(a5) ;INTENA INTEN off
move.w #$0200,DMACON(A5) ;DMACON DMAEN off

WAITBLIT

move.l #$DFF006,a0 ;VHPOSR
WaitRaster:
cmp.b #$00,(a0) ;test if Hpos=0
bne WaitRaster

move.w (a0),d1 ;start_value

;— Code à tester —
;nop ;unknown_cycles to count
move.l #15,D5
;— FIN CODE —

move.w (a0),d2 ;end_value (we know this takes $00000004)
move.w d2,d0 ;end_value to d2
sub.w d1,d0 ;end_value – start value
sub.w #$4,d0 ;d2 – $00000004
add d0,d0 ;d2 x 2 = unknown_cycles

Fin:
move.w #$8200,DMACON(A5) ;DMACON DMAEN ON
move.w #$C000,INTENA(a5) ;INTENA INTEN ON
rts

**********************************************************

Code pour mesurer un temps en ms

**********************************************************
;Code pour mesurer des codes d’execution assez longs en ms
;car le temps de la sub de VPOS Stop est inclus
;Calibre pour A500
;
;resultat dans D0 = ms
;
;Sources modifie :
;code speed tester by ross for EAB members
;http://eab.abime.net/showpost.php?p=1199574
;
PAL = 15625
NTSC = 15734
ConfigEcran=PAL

CIAA =$BFE001
CIAB =$BFD000
PRA =$000 ;/DTR /RTS /CD /CTS /DSR SEL POUT BUSY
prb =$100 ; /MTR /SEL3 /SEL2 /SEL1 /SEL0 /SIDE DIR /STEP
DDRA =$200 ;Direction for Port A (BFD000);1 = output (set to 0xFF)
DDRB =$300 ;Direction for Port B (BFD100);1 = output (set to 0xFF)
TALO =$400 ;CIAB timer A low byte (.715909 Mhz NTSC; .709379 Mhz PAL)
TAHI =$500 ;CIAB timer A high byte
TBLO =$600 ;CIAB timer B low byte (.715909 Mhz NTSC; .709379 Mhz PAL)
TBHI =$700 ;CIAB timer B high byte
TODLO =$800 ;Horizontal sync event counter bits 7-0
TODMID =$900 ;Horizontal sync event counter bits 15-8
TODHI =$A00 ;Horizontal sync event counter bits 23-16
SDR =$C00 ;CIAB serial data register (unused)
ICR =$D00 ;CIAB interrupt control register
CRA =$E00 ;CIAB Control register A
CRB =$F00 ;CIAB Control register B

section code,code

start:
lea $DFF000,a5
lea CIAB,a4

move.w #$4000,$9A(a5) ;INTENA INTEN off
move.w #$0200,$96(A5) ;DMACON DMAEN off
BltWait:
move.w 2-$9a(a5),d0 ; blitter wait
add.w d0,d0
bmi.b BltWait

;if you need to init/move/setup packed data
jsr init

bsr.b CIAtoD ; start time
move.l d0,d2

jsr Code ; GO!

bsr.b CIAtoD ; end time

sub.l d2,d0 ; elapsed

;15625=PAL 15734=NTSC
divu.w #ConfigEcran*256/1000,d0 ; d0=ms (pal_hfreq*scale_down/granularity)
bvs.b OverFlow ; overflow?, something over specs..
and.l #$FFFF,d0
bra fin

OverFlow:
move.l #$EEEEEEEE,D0 ;erreur
Fin:
move.w #$8200,$96(A5) ;DMACON DMAEN ON
move.w #$C000,$9A(a5) ;INTENA INTEN ON

rts

CIAtoD:
move.b TODHI(a4),d0 ;$200(a4),d0
swap d0
move.b TODMID(a4),d0 ;$100(a4),d0
lsl.w #8,d0
move.b TODLO(a4),d0
lsl.l #8,d0 ; scale up (counter wrap proof)
rts

Init: ; insert your init code here (not timed)
rts

Code: ; insert your code here (a500 is the target)
move.l #200000,d1
.loop
move.w d1,$dff180
subq.l #1,d1
bne.b .loop
rts
**********************************************************

Pour aller plus loin

A l’occasion je vais voir si on peut faire des 2 codes un code générique qui mesure à la fois les cycles et le temps d’exécution quelque soit la taille de la routine à évaluer.

Mais si quelqu’un veut se pencher avec moi sur le sujet j’ai rien contre

Encore merci pour votre aide.