﻿
**** Function alpha ****
> After parsing:
@ini
	%p =l par
	%l =w par
	%n =l par
	%pe =l add %p, %n
@lop
	%p1 =l phi @ini %p, @lop %p2
	%l1 =w phi @ini %l, @lop %l2
	storeb %l1, %p1
	%p2 =l add %p1, 1
	%l2 =w add %l1, 1
	%c1 =w ceql %p1, %pe
	jnz %c1, @end, @lop
@end
	storeb 0, %pe
	ret0
**** Function test ****
> After parsing:
@start
	%p =l alloc4 17
	%q =l alloc4 17
	argl %p
	argw 65
	argl 16
	%r0 =w call $alpha
	argl %q
	argw 97
	argl 16
	%r1 =w call $alpha
	argc :mem, %p
	argw 1
	argw 2
	argw 3
	argw 4
	argw 5
	argw 6
	argw 7
	argw 8
	argw 9
	argc :mem, %q
	%r2 =w call $fcb
	ret0


