Pari e Dispari

*Contare quanti numeri dispari minori di D0
*e quanti numeri pari maggiori di D0 sono
*memorizzati nelle locazioni di memoria da $810E a $811A

        ORG     $8000
SUBR    MOVE.B  #30,D0
        MOVE.B  #LEN-1,D1
        LEA     ARR,A0
        CLR.B   ND
        CLR.B   NP

LOOP    MOVE.B  (A0)+,D2
        CMP.B   D0,D2
        BGT     PAR
        BTST    #0,D2
        BEQ     SKIP
        ADD.B   #1,ND
SKIP    JMP     SKIP2
PAR     BTST    #0,D2
        BNE     SKIP2
        ADD.B   #1,NP
SKIP2   DBRA    D1,LOOP
        RTS

START:  MOVEM.L A0/D0-D2, -(SP)
        JSR SUBR
        MOVEM.L (SP)+,A0/D0-D2

        SIMHALT
        ORG     $810E
ARR     DC.B    1,10,12,15,19,23,34,45,51,59,64,65,71
LEN     EQU     13
ND      DS.B    1
NP      DS.B    1
        END     START