/ program fprintf optimize using r2 auto cnt function fprintf[fd,s,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p] sprintf[#$buf$,s,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p] clr cnt r4 := #$buf$ do forever movb (r4)+,r3 break if eq inc cnt putc[r3,fd] od ret cnt function printf[s,a,b,c,d,e,f,g,h,i,j,k,l] fprintf[stdout,s,a,b,c,d,e,f,g,h,i,j,k,l] ret function error[s,a,b,c,d,e,f,g,h,i,j,k,l] r4 := alloc[200] sprintf[r4,s,a,b,c,d,e,f,g,h,i,j,k,l] push r4 call $type$ free[r4] ret .end