% fak-while.mms
% Es wird n! berechnet.
		LOC	#100
n		IS	$0			% Laufvariable
res		IS	$1			% Ergebnis speichern
Main	SET n,6			% setze n auf Startwert 6
		SET	res,1		% Ergebnis mit 1 initialisieren
		
% prüfe nun, ob n nicht größer 0, sonst verlasse Schleife
% oder anders ausgedrückt: wiederhole, solange n > 0
while	BNP n,ewhile	
		MUL	res,res,n	% rechne: res = res * n
		SUB n,n,1		% n = n - 1
		JMP while		% springe zum Schleifenanfang
ewhile	TRAP 0,Halt,0	% beende Programm