Почему random генерирует только единицы??

[Faton 11]

Добрый вечер! В программе рандомом должен заполняться массив из 127 элементов, эмитирующий 127-разрядный регистр.
Далее
1. сдвигаем содержимое регистра на 1 вправо
2. производим операцию исключающее или между 2 и 5 битом, результат записываем в 1-й бит. Этот же результат подается на "выход" генератора
3. возвращаемся к пункту 1

Но почему-то random выдает все единички. Почему?:-(

#include <iostream>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>
#include <string>
#include <sstream>

using namespace std;

int mas[127];
int a;
int mas_c[200];
int j;

int main ()
{ 
for(int i=1;i<128;++i)
{
    srand ( time(NULL) );
    a= rand()%2;
    mas[i]=a;
    cout<<mas[i]<<endl;
}
cout<<"znacheniya:"<<endl;
//======смещение на 1 вправо========

loop:
    for (int i=127; i>0;i--)
	{
    mas[i]=mas[i-1];
    
    }
	
//исключающее или
	int c=mas[2]^mas[5];
	cout<<c<<endl;
	mas[1]=c;

	mas_c[j]=c;
	j=j++;
	if (j!=200)
	{
	goto loop;
	}
	else
    system ("pause");

}

[Stilet]

srand ( time(NULL) ); за цикл вынеси.

[Faton 11]

Теперь, кажется, работает, спасибо =)