Esercizio Alfredo

*Contare quanti numeri maggiori di D5 con
*bit5=1 sono memorizzati nelle locazioni di
*memoria da $8111 a $811A
        ORG     $8000
SUBR    LEA     ARR,A0
        MOVE.B  #LEN-1,D0
        MOVE.B  #VAL,D5

LOOP    MOVE.B  (A0)+,D1
        CMP     D5,D1
        BLE     SKIP
        BTST    #4,D1
        BEQ     SKIP
        ADD.B   #1,D2
SKIP    DBRA    D0,LOOP

        MOVE.B  D2,RES
        RTS

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

        SIMHALT
        ORG     $8111
ARR     DC.B    10,20,30,40,50,60,70,80,90
LEN     EQU     9
VAL     EQU     50
RES     DS.B    1
        END     START