Program to write out the largest of to numbers read in:

		in	ax
		copy	r, ax
		in	ax
		copy	s, ax
		copy	ax, s
		cmp 	ax, r
		jnb	there
		copy	ax, r
		out	ax
		jmp	quit
	there	copy	ax, s
		out	ax
	quit	halt
	
	r		0
	s		0
	
Sample output:

<33
<44
>44

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

Pascal Equivalent
---------------------
begin
limit := 0;
sum := 0;
readln(x);
while limit < x do
	begin
	sum := (sum + x);
	readln(x);
	end;
writeln(sum);
end
---------------------

	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	_e0, ax
	13	copy	ax, _eo
	14	copy	sum, ax
	15	in	ax
	16	copy	x, ax
	17	jmp	#l0
	18 #l1	no-op
	19	copy	ax, sum
	20	out	ax
	
	40 limit	0
	41 #c0		0
	42 sum		0
	43 x		0
	44 #l0		6
	45 #l1		18
	46 _e0		0
	

Sample output.

<23
<14
<12
<0
>49