read 100
store number
load number
divide divcount
store divcount

jump TryDivision

NotPrime:
	load isprime
	write 0
	stop 0
IsPrime:
	load isprime
	inc isprime
	store isprime
	write 1
	stop 0

TryDivision:
	load tempnum
	subtract divider
	store tempnum
	jmpn Loop
	jmpz Loop
	jump  TryDivision


Loop:
	load tempnum
	jmpz NotPrime
	load number
	store tempnum
	load divcount
	subtract divider
	jmpz IsPrime
	load divider
	inc divider
	store divider
	jump TryDivision

number: .data 2 0;
divcount: .data 2 2;
divider: .data 2 2;
isprime: .data 2 0;
result: .data 2 0;
tempnum: .data 2 0;