format  binary  as 'bin'
use32
BgnDataSlotsPool = 11000
BgnProcsPool	 = 10000
adrReg equ esi          ;max 8kb bin file size
       lea esi,[ebp+0x7777]              ;+ofst for pool procs #s
       mov      eax,1.0
       movss    xmm4,[adrReg+.nup ]
       movss    xmm3,[adrReg+.nup2]
       movd     xmm1,eax
       addss    xmm1,xmm4
       mulss    xmm1,xmm3
       movss    [adrReg+.nup],xmm1
       inc      eax
        cmp dword [ebp+BgnProcsPool-4],0
       ;test     ebx,ebx
       jz       @f
       ;call     ebx
	lea      eax,[adrReg+.txt]
	mov eax,[ebp+BgnDataSlotsPool]		;get loaded script data
        call dword [ebp+BgnProcsPool-4]
@@:    lea      eax,[adrReg+sub1]
       call     eax
       ret
       .nup     dd 10.0
       .nup2    dd 0.5
       .txt     db 'this is fasm bynary proc !',0

sub1:  mov   ecx,11
       ret

