SECTION text,code
        
        XDEF    _count

_count
        eor.b   d0,d1
        clr.l   d0
        tst.b   d1
        bne.s   nocero
        rts
nocero  moveq.l #7,d2
otro    btst    d2,d1
        beq.s   mas
        addq.l  #1,d0
mas     dbf     d2,otro
        rts

        END