.BEGIN
	IN NEW		
	LOAD NEW	-- R <-- CON(NEW)
	STORE LARGE	-- CON(LARGE) <-- R     	 Initialize LARGE
 LOOP: 	LOAD NEW	 		    
	COMPARE ZERO	-- GT=1 if CON(ZERO)>R   while ZERO <= NEW 
	JUMPGT DONE
	COMPARE LARGE	-- GT=1 if CON(LARGE)>R  if NEW > LARGE
	JUMPGT GETNEW	
	STORE LARGE	-- CON(LARGE) <-- R
 GETNEW:IN NEW
	JUMP LOOP
 DONE:	HALT
 NEW: 	.DATA 0
 LARGE:	.DATA 0
 ZERO:	.DATA 0
.END