DATA: EQU $6000
PROG: EQU $6100

    org DATA
VAR: DS.B   1
ONECOUNT: DS.B  1
NEWVAR: DS.B    1
ISNEGATIVE: DS.B    1

    org PROG
START:
    move.b #0, ONECOUNT
    move.b VAR, d0
    move.b d0, d1
    and.b #1, d1
    add.b d1, ONECOUNT
    LSR.b #1, d0
    move.b d0, d1
    and.b #1, d1
    add.b d1, ONECOUNT
    LSR.b #1, d0
    move.b d0, d1
    and.b #1, d1
    add.b d1, ONECOUNT
    LSR.b #1, d0

    move.b var, newvar
    not.b newvar

    move.b var, d0
loop:
    cmp.b #0, d0
    beq van
    move.b d0, d1
    and.b #1, d1
    move.b d1, ISNEGATIVE
    LSR.b #1, d0
    add #1, d4
    jmp loop
van:
    cmp #8, d4
    beq kraj
    move.b #0, ISNEGATIVE
kraj:
    END START