org $1000
       
mem     dc.b    16
res     ds.b    1

        org $1050
begin   move.b mem,d0
        jsr     conta
        move.b d1,res
        stop    #$2700
        
        org $1500
conta   clr.b   d1
        clr.b   d2
ciclo   btst    d2,d0
        beq     continua
        add.b   #1,d1
continua add.b  #1,d2
         cmp.b  #8,d2
        bne     ciclo
        rts

        end begin                

        



*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~4~