summer.as
Program to add together list of numbers until zero is encountered.

	0	copy	ax, #c0
	1	copy	limit, ax
	2	copy	ax, #c0
	3	copy	sum, ax
	4	in	ax
	5	copy	x, ax
	6 #l0	no-op
	7	copy	ax, limit
	8	cmp	ax, x
	9	jnb	#l1
	10	copy	ax, sum
	11	add	ax, x
	12	copy	sum, ax
	13	in	ax
	14	copy	x, ax
	15	jmp	#l0
	16 #l1	no-op
	17	copy	ax, sum
	18	out	ax
	
	40 limit	0
	41 #c0		0
	42 sum		0
	43 x		0
	44 #l0		6
	45 #l1		18
	
Pascal Equivalent
---------------------
begin
limit := 0;
sum := 0;
readln(x);
while limit < x do
	begin
	sum := (sum + x);
	readln(x);
	end;
writeln(sum);
end
---------------------

Sample output.

<23
<14
<12
<0
>49