Передаем аргументы в фунции callback'ов

library Lambda initializer Init uses Memory

    globals
        constant integer BOOL = 0x1 // boolean
        constant integer CODE = 0x2 // code
        constant integer HAND = 0x3 // handle
        constant integer INTG = 0x4 // ineteger
        constant integer REAL = 0x5 // real
        constant integer STRI = 0x6 // string
        
        integer array PowArr
        integer bj_lastConvertedCode = 0
    endglobals

    function ShiftLeft takes integer bits, integer shift returns integer
        return bits * PowArr[shift]
    endfunction

    // a - highest, d - lowest
    function DwordFromBytes takes integer a, integer b, integer c, integer d returns integer
        local integer result = 0
    
        set result = result + ShiftLeft( a, 24 )
        set result = result + ShiftLeft( b, 16 )
        set result = result + ShiftLeft( c, 8 )
        set result = result + ShiftLeft( d, 0 )
    
        return result
    endfunction

    function WriteInstruction takes integer address, integer id, integer a1, integer a2, integer a3, integer param returns nothing
        call WMem( address + 0x00, DwordFromBytes( id, a1, a2, a3 ) )
        call WMem( address + 0x04, param )
    endfunction

    function CreateLambdaByIdOneArg takes integer func_id, integer param , integer argtype returns code
        local integer buffer = malloc( 4 * 0x08 )
        // size - 0x08
        // litheral - 0x0C
        // push - 0x13
        // call - 0x16
        // return - 0x27
        call WriteInstruction( buffer + 0 * 0x08, 0x0C, 1, argtype, 0, param ) //0x01 - boolean, 0x2 - code, 0x3 - handle, 0x4 - integer, 0x5 - real, 0x6 - string
        call WriteInstruction( buffer + 1 * 0x08, 0x13, 1, 0, 0, 0 )
        call WriteInstruction( buffer + 2 * 0x08, 0x16, 0, 0, 0, func_id )
        call WriteInstruction( buffer + 3 * 0x08, 0x27, 0, 0, 0, 0 )
	
        return I2C( buffer )
    endfunction
    
    function CreateLambdaByIdTwoArg takes integer func_id, integer param1, integer param2, integer argtype1, integer argtype2 returns code
        local integer buffer = malloc( 6 * 0x08 )
        // size - 0x08
        // litheral - 0x0C
        // push - 0x13
        // call - 0x16
        // return - 0x27
        call WriteInstruction( buffer + 0 * 0x08, 0x0C, 1, argtype1, 0, param1 ) //0x01 - boolean, 0x2 - code, 0x3 - handle, 0x4 - integer, 0x5 - real, 0x6 - string
        call WriteInstruction( buffer + 1 * 0x08, 0x13, 1, 0, 0, 0 )
        call WriteInstruction( buffer + 2 * 0x08, 0x0C, 2, argtype2, 0, param2 ) //0x01 - boolean, 0x2 - code, 0x3 - handle, 0x4 - integer, 0x5 - real, 0x6 - string
        call WriteInstruction( buffer + 3 * 0x08, 0x13, 2, 0, 0, 0 )
        call WriteInstruction( buffer + 4 * 0x08, 0x16, 0, 0, 0, func_id )
        call WriteInstruction( buffer + 5 * 0x08, 0x27, 0, 0, 0, 0 )
	
        return I2C( buffer )
    endfunction

    function SetCodeOneArg takes code func, integer argtype, integer arg returns code
        if ( func == null ) then
            return null
        endif
        set bj_lastConvertedCode = RMem( C2I( func ) - 0x04 )
        if ( bj_lastConvertedCode < 1 ) or ( argtype < 0 ) or ( argtype > 6 ) then
            return null
        endif
        return CreateLambdaByIdOneArg( bj_lastConvertedCode, arg, argtype )
    endfunction

    function SetCodeTwoArg takes code func, integer argtype1, integer arg1, integer argtype2, integer arg2 returns code
        if ( func == null ) then
            return null
        endif
        set bj_lastConvertedCode = RMem( C2I( func ) - 0x04 )
        if ( bj_lastConvertedCode < 1 ) or ( argtype1 < 0 ) or ( argtype1 > 6 ) or ( argtype2 < 0 ) or ( argtype2 > 6 ) then
            return null
        endif
        return CreateLambdaByIdTwoArg( bj_lastConvertedCode, arg1, arg2, argtype1, argtype2 )
    endfunction
    
    private function Init takes nothing returns nothing
        local integer i = 1
    
        set PowArr[0] = 1
   
        loop
            set PowArr[i] = PowArr[i - 1] * 2
       
            set i = i + 1
            exitwhen i == 32
        endloop
           
        set PowArr[32] = -2147483648
    endfunction

endlibrary