processes equ 100 ; works for 1 to 1048576
        for 20+0*(a=1048576)
        for ((processes-1)/(a=a/2))%2==1 && processes>a
        spl 1
        rof
        for ((processes-1)/a)%2==0 && processes>a
        mov.i -1,#0
        rof
        rof