*
* Dato un vettore di byte V di cui il primo elemento e' all'indirizzo A e il
* cui ultimo elemento ha valore 0 (tappo), si determini (se presente)
* l'indirizzo del primo elemento il cui valore e' 58 e lo si memorizzi
* all'indirizzo ADDR.
* Se il valore non e' presente nell'array, ADDR contenga il valore 0.

        ORG     $8000
START   LEA     V,A0
        MOVE    #VAL,D0
ALOOP   TST.B   (A0)
        BEQ     DONE
        CMP.B   (A0)+,D0
        BEQ     FOUND
        JMP     ALOOP

DONE    MOVE.B  #0,ADDR
        JMP     LAST

FOUND   SUB.B   #1,A0 *qui e al rigo successivo se cambio .B con .W viene eseguito ma ovviamente il codice non funziona
        MOVE.B  A0,ADDR
        JMP     LAST

LAST    JMP     LAST


        ORG     $A
V       DC.B    'BQXA',0
ADDR    DS.B    1
VAL     EQU     $58

        END     START