contadispari

ORG $8000 Inizio area MAIN
MAIN ADDA #-2,SP
PEA VETT
JSR CONTADISP
ADDA #4,SP
MOVE.W (SP)+,RIS
STOP #$2000

ORG $8100 Inizio area SUBROUTINE
CONTADISP LINK A6,#0
MOVEM.L A0/D0/D1,-(SP)
CLR D0
CLR D1
MOVEA.L VETTOFF(A6),A0
LOOP MOVE.W (A0)+,D1
BEQ FINE
BTST #0,D1
BEQ LOOP
ADDQ #1,D0
BRA LOOP

FINE MOVE.W D0,RISOFF(A6)
MOVEM.L (SP)+,A0/D0/D1
UNLK A6
RTS
ORG $8200
VETT DC.W 1,5,6,3,7,4,2,0
RIS DS.W 1

VETTOFF EQU 8
RISOFF EQU 12
END MAIN