LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/vm.c
// Function: ficlVmEvaluate
int ficlVmEvaluate(ficlVm *vm, char *s)
{
    int returnValue;
    ficlCell id = vm->sourceId;
	ficlString string;
    vm->sourceId.i = -1;
	FICL_STRING_SET_FROM_CSTRING(string, s);
    returnValue = ficlVmExecuteString(vm, string);
    vm->sourceId = id;
    return returnValue;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movq 0x78(%rdi), %r15
orq $-0x1, 0x78(%rdi)
movq %rsi, %rdi
callq 0x30e0
movq %r14, %rdi
movq %rax, %rsi
movq %rbx, %rdx
callq 0x6970
movq %r15, 0x78(%r14)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/vm.c
// Function: ficlVmParseNumber
int ficlVmParseNumber(ficlVm *vm, ficlString s)
{
    ficlInteger accumulator  = 0;
    char isNegative      = 0;
	char isDouble      = 0;
    unsigned base   = vm->base;
    char *trace        = FICL_STRING_GET_POINTER(s);
    ficlUnsigned8 length = (ficlUnsigned8)FICL_STRING_GET_LENGTH(s);
    unsigned c;
    unsigned digit;

    if (length > 1)
    {
        switch (*trace)
        {
        case '-':
            trace++;
            length--;
            isNegative = 1;
            break;
        case '+':
            trace++;
            length--;
            isNegative = 0;
            break;
        default:
            break;
        }
    }

    if ((length > 0) && (trace[length - 1] == '.')) /* detect & remove trailing decimal */
    {
        isDouble = 1;
        length--;
    }

    if (length == 0)        /* detect "+", "-", ".", "+." etc */
        return 0; /* false */

    while ((length--) && ((c = *trace++) != '\0'))
    {
        if (!isalnum(c))
            return 0; /* false */

        digit = c - '0';

        if (digit > 9)
            digit = tolower(c) - 'a' + 10;

        if (digit >= base)
            return 0; /* false */

        accumulator = accumulator * base + digit;
    }

	if (isDouble)		/* simple (required) DOUBLE support */
		ficlStackPushInteger(vm->dataStack, 0);

    if (isNegative)
        accumulator = -accumulator;

    ficlStackPushInteger(vm->dataStack, accumulator);
    if (vm->state == FICL_VM_STATE_COMPILE)
        ficlPrimitiveLiteralIm(vm);

    return 1; /* true */
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x28, %rsp
movq %rdx, %r14
movb $0x1, %cl
testb $-0x2, %sil
je 0x6bb2
movzbl (%r14), %eax
cmpl $0x2b, %eax
je 0x6bac
cmpl $0x2d, %eax
jne 0x6bb2
incq %r14
decb %sil
xorl %ecx, %ecx
jmp 0x6bb2
incq %r14
decb %sil
xorl %ebp, %ebp
testb %sil, %sil
je 0x6c97
movl %ecx, 0xc(%rsp)
movq %rdi, 0x10(%rsp)
movzbl %sil, %eax
decl %eax
movb (%r14,%rax), %al
movb %al, 0xb(%rsp)
cmpb $0x2e, %al
sete %al
cmpb %al, %sil
je 0x6c97
movq 0x10(%rsp), %rcx
movq 0x58(%rcx), %rcx
movq %rcx, 0x20(%rsp)
movl %ecx, %ecx
movq %rcx, 0x18(%rsp)
negb %al
addb %al, %sil
negb %sil
movzbl %sil, %r13d
xorl %ebx, %ebx
xorl %r12d, %r12d
xorl %ebp, %ebp
movl %r13d, %eax
addb %bl, %al
je 0x6c56
movsbl (%r14,%rbx), %r15d
testl %r15d, %r15d
je 0x6c56
callq 0x3340
movq (%rax), %rax
movslq %r15d, %rcx
testb $0x8, (%rax,%rcx,2)
je 0x6c97
leal -0x30(%r15), %eax
cmpl $0xa, %eax
jb 0x6c40
movl %r15d, %edi
callq 0x3220
addl $-0x57, %eax
cmpl 0x20(%rsp), %eax
jae 0x6c97
imulq 0x18(%rsp), %r12
movl %eax, %eax
addq %rax, %r12
incq %rbx
jmp 0x6c0a
cmpb $0x2e, 0xb(%rsp)
movq 0x10(%rsp), %rbx
jne 0x6c6d
movq 0x60(%rbx), %rdi
xorl %esi, %esi
callq 0x4298
movq %r12, %rsi
negq %rsi
cmpb $0x0, 0xc(%rsp)
cmovneq %r12, %rsi
movq 0x60(%rbx), %rdi
callq 0x4298
pushq $0x1
popq %rbp
cmpq $0x1, 0x50(%rbx)
jne 0x6c97
movq %rbx, %rdi
callq 0x6d9e
movl %ebp, %eax
addq $0x28, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveParseStepParen
void ficlPrimitiveParseStepParen(ficlVm *vm)
{
    ficlString s;
    ficlWord *word = vm->runningWord;
    ficlParseStep pStep = (ficlParseStep)(word->param->fn);

    FICL_STRING_SET_LENGTH(s, ficlStackPopInteger(vm->dataStack));
    FICL_STRING_SET_POINTER(s, ficlStackPopPointer(vm->dataStack));
    
    ficlStackPushInteger(vm->dataStack, (*pStep)(vm, s));

    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x48(%rdi), %rax
movq 0x60(%rdi), %rdi
movq 0x28(%rax), %r12
callq 0x422e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x420e
movq 0x60(%rbx), %r15
movq %rbx, %rdi
movq %r14, %rsi
movq %rax, %rdx
callq *%r12
movslq %eax, %rsi
movq %r15, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x4298
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveTick
void ficlPrimitiveTick(ficlVm *vm)
{
    ficlWord *word = NULL;
    ficlString name = ficlVmGetWord(vm);

    FICL_STACK_CHECK(vm->dataStack, 0, 1);

    word = ficlDictionaryLookup(ficlVmGetDictionary(vm), name);
    if (!word)
        ficlVmThrowError(vm, "%.*s not found", FICL_STRING_GET_LENGTH(name), FICL_STRING_GET_POINTER(name));
    ficlStackPushPointer(vm->dataStack, word);
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6713
movq %rax, %r14
movq %rdx, %r15
movq %rbx, %rdi
callq 0x6643
movq %rax, %rdi
movq %r14, %rsi
movq %r15, %rdx
callq 0xba0d
movq %rax, %r12
testq %rax, %rax
jne 0x6e3c
leaq 0x7bad(%rip), %rsi      # 0xe9d9
movq %rbx, %rdi
movq %r14, %rdx
movq %r15, %rcx
xorl %eax, %eax
callq 0x6527
movq 0x60(%rbx), %rdi
movq %r12, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x4287
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveNumberSign
static void ficlPrimitiveNumberSign(ficlVm *vm)
{
    ficlCountedString *counted;
    ficl2Unsigned u;
    ficl2UnsignedQR uqr;

    FICL_STACK_CHECK(vm->dataStack, 2, 2);

    counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
    u = ficlStackPop2Unsigned(vm->dataStack);
    uqr = ficl2UnsignedDivide(u, (ficlUnsigned16)(vm->base));
    counted->text[counted->length++] = ficlDigitToCharacter(uqr.remainder);
    ficlStackPush2Unsigned(vm->dataStack, uqr.quotient);
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x425a
movzwl 0x58(%rbx), %ecx
movq %rsp, %r14
movq %r14, %rdi
movq %rax, %rsi
callq 0xcd9c
movq (%r14), %r15
movq 0x8(%r14), %r12
movl 0x10(%r14), %edi
callq 0xad7c
movzbl 0x118(%rbx), %ecx
leal 0x1(%rcx), %edx
movb %dl, 0x118(%rbx)
movb %al, 0x119(%rbx,%rcx)
movq 0x60(%rbx), %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0x42ba
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveNumberSignGreater
static void ficlPrimitiveNumberSignGreater(ficlVm *vm)
{
    ficlCountedString *counted;

    FICL_STACK_CHECK(vm->dataStack, 2, 2);

    counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
    counted->text[counted->length] = 0;
    ficlStringReverse(counted->text);
    ficlStackDrop(vm->dataStack, 2);
    ficlStackPushPointer(vm->dataStack, counted->text);
    ficlStackPushUnsigned(vm->dataStack, counted->length);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0x119(%rdi), %r14
movzbl 0x118(%rdi), %eax
movb $0x0, 0x119(%rdi,%rax)
movq %r14, %rdi
callq 0xad44
movq 0x60(%rbx), %rdi
pushq $0x2
popq %rsi
callq 0x41a3
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4287
movq 0x60(%rbx), %rdi
movzbl 0x118(%rbx), %esi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x42a9
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveNumberSignS
static void ficlPrimitiveNumberSignS(ficlVm *vm)
{
    ficlCountedString *counted;
    ficl2Unsigned u;
    ficl2UnsignedQR uqr;

    FICL_STACK_CHECK(vm->dataStack, 2, 2);

    counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
    u = ficlStackPop2Unsigned(vm->dataStack);

    do 
    {
        uqr = ficl2UnsignedDivide(u, (ficlUnsigned16)(vm->base));
        counted->text[counted->length++] = ficlDigitToCharacter(uqr.remainder);
		u = uqr.quotient;
    }
    while (FICL_2UNSIGNED_NOT_ZERO(u));

    ficlStackPush2Unsigned(vm->dataStack, u);
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x425a
movq %rax, %r15
movq %rdx, %r12
movq %rsp, %r14
movzwl 0x58(%rbx), %ecx
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0xcd9c
movq (%rsp), %r15
movq 0x8(%rsp), %r12
movl 0x10(%rsp), %edi
callq 0xad7c
movzbl 0x118(%rbx), %ecx
leal 0x1(%rcx), %edx
movb %dl, 0x118(%rbx)
movb %al, 0x119(%rbx,%rcx)
movq %r12, %rax
orq %r15, %rax
jne 0x8a58
movq 0x60(%rbx), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0x42ba
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitivePlusLoopCoIm
static void ficlPrimitivePlusLoopCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionPlusLoopParen);
    resolveBackBranch(dictionary, vm, doTag);
    resolveAbsBranch(dictionary, vm, leaveTag);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x37
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0x103d3(%rip), %rdx     # 0x18eb2
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa89d
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xa8d4
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveDot
static void ficlPrimitiveDot(ficlVm *vm)
{
    ficlCell c;

    FICL_STACK_CHECK(vm->dataStack, 1, 0);

    c = ficlStackPop(vm->dataStack);
    ficlLtoa((c).i, vm->pad, vm->base);
    strcat(vm->pad, " ");
    ficlVmTextOut(vm, vm->pad);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x41fe
leaq 0x118(%rbx), %r14
movl 0x58(%rbx), %edx
movq %rax, %rdi
movq %r14, %rsi
callq 0xada8
movq %r14, %rdi
callq 0x30e0
movw $0x20, 0x118(%rbx,%rax)
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x68f1
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveDotQuoteCoIm
static void ficlPrimitiveDotQuoteCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
    ficlWord *pType = ficlSystemLookup(vm->callback.system, "type");
    FICL_VM_ASSERT(vm, pType);
    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionStringLiteralParen);
    dictionary->here = FICL_POINTER_TO_CELL(ficlVmGetString(vm, (ficlCountedString *)dictionary->here, '\"'));
    ficlDictionaryAlign(dictionary);
    ficlDictionaryAppendCell(dictionary, FICL_LVALUE_TO_CELL(pType));
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
movq 0x18(%rbx), %rdi
leaq 0x6727(%rip), %rsi      # 0xf287
callq 0x3977
movq %rax, %r15
pushq $0x50
popq %rsi
movq %r14, %rdi
callq 0xb7e8
movq (%r14), %rsi
pushq $0x22
popq %rdx
movq %rbx, %rdi
callq 0x664c
movq %rax, (%r14)
movq %r14, %rdi
callq 0xb7aa
movq %r14, %rdi
movq %r15, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0xb7cd
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveColon
static void ficlPrimitiveColon(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
    ficlString name = ficlVmGetWord(vm);

    vm->state = FICL_VM_STATE_COMPILE;
    markControlTag(vm, colonTag);
    ficlDictionaryAppendWord(dictionary, name, (ficlPrimitive)ficlInstructionColonParen, FICL_WORD_DEFAULT | FICL_WORD_SMUDGED);
#if FICL_WANT_LOCALS
    vm->callback.system->localsCount = 0;
#endif
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
movq %rbx, %rdi
callq 0x6713
movq %rax, %r15
movq %rdx, %r12
movq $0x1, 0x50(%rbx)
leaq 0x102ef(%rip), %rsi     # 0x18ebb
movq %rbx, %rdi
callq 0xa994
pushq $0x46
popq %rcx
pushq $0x4
popq %r8
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0xb893
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveToNumber
static void ficlPrimitiveToNumber(ficlVm *vm)
{
    ficlUnsigned length;
    char *trace;
    ficl2Unsigned accumulator;
    ficlUnsigned base = vm->base;
    ficlUnsigned c;
    ficlUnsigned digit;

    FICL_STACK_CHECK(vm->dataStack,4,4);

    length = ficlStackPopUnsigned(vm->dataStack);
    trace = (char *)ficlStackPopPointer(vm->dataStack);
    accumulator = ficlStackPop2Unsigned(vm->dataStack);

    for (c = *trace; length > 0; c = *++trace, length--)
    {
        if (c < '0')
            break;

        digit = c - '0';

        if (digit > 9)
            digit = tolower(c) - 'a' + 10;
        /* 
        ** Note: following test also catches chars between 9 and a
        ** because 'digit' is unsigned! 
        */
        if (digit >= base)
            break;

        accumulator = ficl2UnsignedMultiplyAccumulate(accumulator, base, digit);
    }

    ficlStackPush2Unsigned(vm->dataStack, accumulator);
    ficlStackPushPointer(vm->dataStack, trace);
    ficlStackPushUnsigned(vm->dataStack, length);

    return;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r12
movq 0x58(%rdi), %r14
movq 0x60(%rdi), %rdi
callq 0x421e
movq %rax, %rbx
movq 0x60(%r12), %rdi
callq 0x420e
movq %rax, %r15
movq %r12, (%rsp)
movq 0x60(%r12), %rdi
callq 0x425a
movq %rax, %r13
movq %rdx, %rbp
movq %rbx, %r12
subq $0x1, %r12
jb 0x8cf0
movb (%r15), %al
cmpb $0x30, %al
jb 0x8cf0
movsbq %al, %rdi
leaq -0x30(%rdi), %rcx
cmpq $0xa, %rcx
jb 0x8ccf
callq 0x3220
addl $-0x57, %eax
movslq %eax, %rcx
cmpq %r14, %rcx
jae 0x8cf0
movq %r13, %rdi
movq %rbp, %rsi
movq %r14, %rdx
callq 0xcc47
movq %rax, %r13
movq %rdx, %rbp
incq %r15
movq %r12, %rbx
jmp 0x8ca9
movq (%rsp), %r14
movq 0x60(%r14), %rdi
movq %r13, %rsi
movq %rbp, %rdx
callq 0x42ba
movq 0x60(%r14), %rdi
movq %r15, %rsi
callq 0x4287
movq 0x60(%r14), %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x42a9
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveAccept
static void ficlPrimitiveAccept(ficlVm *vm)
{
    ficlUnsigned size;
    char *address;

	ficlUnsigned length;
	char *trace;
	char *end;

    FICL_STACK_CHECK(vm->dataStack, 2, 1);

    trace = ficlVmGetInBuf(vm);
    end = ficlVmGetInBufEnd(vm);
    length = end - trace;
    if (length == 0)
        ficlVmThrow(vm, FICL_VM_STATUS_RESTART);

    /*
    ** Now we have something in the text buffer - use it 
    */
    size = ficlStackPopInteger(vm->dataStack);
    address = ficlStackPopPointer(vm->dataStack);

    length = (size < length) ? size : length;
    strncpy(address, trace, length);
    trace += length;
    ficlVmUpdateTib(vm, trace);
    ficlStackPushInteger(vm->dataStack, length);

    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r14
movq 0x88(%rdi), %rbx
movq 0x90(%rdi), %r15
addq 0x80(%rdi), %r15
subq %r15, %rbx
jne 0x8d63
movq %r14, %rdi
movl $0xfffffefe, %esi       # imm = 0xFFFFFEFE
callq 0x6517
movq 0x60(%r14), %rdi
callq 0x422e
movq %rax, %r12
movq 0x60(%r14), %rdi
callq 0x420e
cmpq %rbx, %r12
cmovbq %r12, %rbx
movq %rax, %rdi
movq %r15, %rsi
movq %rbx, %rdx
callq 0x3060
addq %rbx, %r15
subq 0x90(%r14), %r15
movq %r15, 0x80(%r14)
movq 0x60(%r14), %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x4298
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveConstant
static void ficlPrimitiveConstant(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
    ficlString name = ficlVmGetWord(vm);

    FICL_STACK_CHECK(vm->dataStack, 1, 0);

	ficlDictionaryAppendConstantInstruction(dictionary, name, ficlInstructionConstantParen, ficlStackPopInteger(vm->dataStack));
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
movq %rbx, %rdi
callq 0x6713
movq %rax, %r15
movq %rdx, %r12
movq 0x60(%rbx), %rdi
callq 0x422e
pushq $0x48
popq %rcx
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
movq %rax, %r8
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0xb867
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveCreate
static void ficlPrimitiveCreate(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
    ficlString name = ficlVmGetWord(vm);

    ficlDictionaryAppendWord(dictionary, name, (ficlPrimitive)ficlInstructionCreateParen, FICL_WORD_DEFAULT);
    ficlVmDictionaryAllotCells(vm, dictionary, 1);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
movq %rbx, %rdi
callq 0x6713
pushq $0x4f
popq %rcx
movq %r14, %rdi
movq %rax, %rsi
xorl %r8d, %r8d
callq 0xb893
pushq $0x1
popq %rdx
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x6cb4
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveDoCoIm
static void ficlPrimitiveDoCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionDoParen);
    /*
    ** Allot space for a pointer to the end
    ** of the loop - "leave" uses this...
    */
    markBranch(dictionary, vm, leaveTag);
    ficlDictionaryAppendUnsigned(dictionary, 0);
    /*
    ** Mark location of head of loop...
    */
    markBranch(dictionary, vm, doTag);

    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x4c
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xff18(%rip), %rdx      # 0x18eb5
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa99d
movq %r14, %rdi
xorl %esi, %esi
callq 0xb7e8
leaq 0xfef9(%rip), %rdx      # 0x18eb2
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xa99d
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveElseCoIm
static void ficlPrimitiveElseCoIm(ficlVm *vm)
{
    ficlCell *patchAddr;
    ficlInteger offset;
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

                                            /* (1) FICL_VM_STATE_COMPILE branch runtime */
    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranchParenWithCheck);
    matchControlTag(vm, origTag);
    patchAddr = 
        (ficlCell *)ficlStackPopPointer(vm->dataStack);   /* (2) pop "if" patch addr */
    markBranch(dictionary, vm, origTag);           /* (4) push "else" patch addr */
    ficlDictionaryAppendUnsigned(dictionary, 1);                 /* (1) FICL_VM_STATE_COMPILE patch placeholder */
    offset = dictionary->here - patchAddr;
    *patchAddr = FICL_LVALUE_TO_CELL(offset);      /* (3) Patch "if" */

    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r14
callq 0x6643
movq %rax, %rbx
pushq $0x30
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xfecb(%rip), %r15      # 0x18ecd
movq %r14, %rdi
movq %r15, %rsi
callq 0xa94a
movq 0x60(%r14), %rdi
callq 0x420e
movq %rax, %r12
movq %rbx, %rdi
movq %r14, %rsi
movq %r15, %rdx
callq 0xa99d
pushq $0x1
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
movq (%rbx), %rax
subq %r12, %rax
sarq $0x3, %rax
movq %rax, (%r12)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveEmit
static void ficlPrimitiveEmit(ficlVm *vm)
{
    char *buffer = vm->pad;
    int i;


    FICL_STACK_CHECK(vm->dataStack, 1, 0);

    i = ficlStackPopInteger(vm->dataStack);
    buffer[0] = (char)i;
    buffer[1] = '\0';
    ficlVmTextOut(vm, buffer);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0x118(%rdi), %r14
movq 0x60(%rdi), %rdi
callq 0x422e
movb %al, 0x118(%rbx)
movb $0x0, 0x119(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x68f1
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveEndcaseCoIm
static void ficlPrimitiveEndcaseCoIm(ficlVm *vm)
{
	ficlUnsigned fixupCount;
    ficlDictionary *dictionary;
    ficlCell *patchAddr;
    ficlInteger offset;

	/*
	** if the last OF ended with FALLTHROUGH,
	** just add the FALLTHROUGH fixup to the
	** ENDOF fixups
	*/
	if (ficlStackGetTop(vm->dataStack).p == fallthroughTag)
	{
		matchControlTag(vm, fallthroughTag);
		patchAddr = ficlStackPopPointer(vm->dataStack);
	    matchControlTag(vm, caseTag);
		fixupCount = ficlStackPopUnsigned(vm->dataStack);
		ficlStackPushPointer(vm->dataStack, patchAddr);
		ficlStackPushUnsigned(vm->dataStack, fixupCount + 1);
		markControlTag(vm, caseTag);
	}

    matchControlTag(vm, caseTag);

    FICL_STACK_CHECK(vm->dataStack, 1, 0);

	fixupCount = ficlStackPopUnsigned(vm->dataStack);
    FICL_STACK_CHECK(vm->dataStack, fixupCount, 0);

    dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionDrop);

	while (fixupCount--)
	{
		patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
		offset = dictionary->here - patchAddr;
		*patchAddr = FICL_LVALUE_TO_CELL(offset);
	}
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x41cb
leaq 0xfe37(%rip), %rcx      # 0x18ed4
cmpq %rcx, %rax
jne 0x9101
leaq 0xfe2b(%rip), %rsi      # 0x18ed4
movq %rbx, %rdi
callq 0xa94a
movq 0x60(%rbx), %rdi
callq 0x420e
movq %rax, %r14
leaq 0xfe04(%rip), %r15      # 0x18ec8
movq %rbx, %rdi
movq %r15, %rsi
callq 0xa94a
movq 0x60(%rbx), %rdi
callq 0x421e
movq %rax, %r12
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4287
movq 0x60(%rbx), %rdi
incq %r12
movq %r12, %rsi
callq 0x42a9
movq %rbx, %rdi
movq %r15, %rsi
callq 0xa994
leaq 0xfdc0(%rip), %rsi      # 0x18ec8
movq %rbx, %rdi
callq 0xa94a
movq 0x60(%rbx), %rdi
callq 0x421e
movq %rax, %r14
movq %rbx, %rdi
callq 0x6643
movq %rax, %r15
pushq $0x6a
popq %rsi
movq %rax, %rdi
callq 0xb7e8
subq $0x1, %r14
jb 0x9150
movq 0x60(%rbx), %rdi
callq 0x420e
movq (%r15), %rcx
subq %rax, %rcx
sarq $0x3, %rcx
movq %rcx, (%rax)
jmp 0x9132
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveEndofCoIm
static void ficlPrimitiveEndofCoIm(ficlVm *vm)
{
    ficlCell *patchAddr;
    ficlUnsigned fixupCount;
    ficlInteger offset;
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    FICL_STACK_CHECK(vm->dataStack, 4, 3);

	/* ensure we're in an OF, */
    matchControlTag(vm, ofTag);
	/* grab the address of the branch location after the OF */
    patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
	/* ensure we're also in a "case" */
    matchControlTag(vm, caseTag);
	/* grab the current number of ENDOF fixups */
	fixupCount = ficlStackPopUnsigned(vm->dataStack);

    /* FICL_VM_STATE_COMPILE branch runtime */
    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranchParenWithCheck);

	/* push a new ENDOF fixup, the updated count of ENDOF fixups, and the caseTag */
    ficlStackPushPointer(vm->dataStack, dictionary->here);
    ficlStackPushUnsigned(vm->dataStack, fixupCount + 1);
	markControlTag(vm, caseTag);

	/* reserve space for the ENDOF fixup */
    ficlDictionaryAppendUnsigned(dictionary, 2);

	/* and patch the original OF */
    offset = dictionary->here - patchAddr;
    *patchAddr = FICL_LVALUE_TO_CELL(offset);
}

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdi, %r14
callq 0x6643
movq %rax, %rbx
leaq 0xfd69(%rip), %rsi      # 0x18ee0
movq %r14, %rdi
callq 0xa94a
movq 0x60(%r14), %rdi
callq 0x420e
movq %rax, %r15
leaq 0xfd36(%rip), %r12      # 0x18ec8
movq %r14, %rdi
movq %r12, %rsi
callq 0xa94a
movq 0x60(%r14), %rdi
callq 0x421e
movq %rax, %r13
pushq $0x30
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
movq 0x60(%r14), %rdi
movq (%rbx), %rsi
callq 0x4287
movq 0x60(%r14), %rdi
incq %r13
movq %r13, %rsi
callq 0x42a9
movq %r14, %rdi
movq %r12, %rsi
callq 0xa994
pushq $0x2
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
movq (%rbx), %rax
subq %r15, %rax
sarq $0x3, %rax
movq %rax, (%r15)
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveEnvironmentQ
static void ficlPrimitiveEnvironmentQ(ficlVm *vm)
{
    ficlDictionary *environment;
    ficlWord *word;
    ficlString name;

    FICL_STACK_CHECK(vm->dataStack, 2, 1);


    environment = vm->callback.system->environment;
    name.length = ficlStackPopUnsigned(vm->dataStack);
    name.text    = ficlStackPopPointer(vm->dataStack);

    word = ficlDictionaryLookup(environment, name);

    if (word != NULL)
    {
        ficlVmExecuteWord(vm, word);
        ficlStackPushInteger(vm->dataStack, FICL_TRUE);
    }
    else
    {
        ficlStackPushInteger(vm->dataStack, FICL_FALSE);
    }
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq 0x18(%rdi), %rax
movq 0x60(%rdi), %rdi
movq 0x40(%rax), %r14
callq 0x421e
movq %rax, %r15
movq 0x60(%rbx), %rdi
callq 0x420e
movq %r14, %rdi
movq %r15, %rsi
movq %rax, %rdx
callq 0xba0d
testq %rax, %rax
je 0x9244
movq %rbx, %rdi
movq %rax, %rsi
callq 0x523a
pushq $-0x1
popq %rsi
jmp 0x9246
xorl %esi, %esi
movq 0x60(%rbx), %rdi
popq %rbx
popq %r14
popq %r15
jmp 0x4298
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveEvaluate
static void ficlPrimitiveEvaluate(ficlVm *vm)
{
    ficlCell id;
    int result;
	ficlString string;

    FICL_STACK_CHECK(vm->dataStack,2,0);


    FICL_STRING_SET_LENGTH(string, ficlStackPopUnsigned(vm->dataStack));
    FICL_STRING_SET_POINTER(string, ficlStackPopPointer(vm->dataStack));

    id = vm->sourceId;
    vm->sourceId.i = -1;
    result = ficlVmExecuteString(vm, string);
    vm->sourceId = id;
    if (result != FICL_VM_STATUS_OUT_OF_TEXT)
        ficlVmThrow(vm, result);

    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x421e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x420e
movq 0x78(%rbx), %r15
orq $-0x1, 0x78(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
movq %rax, %rdx
callq 0x6970
movq %r15, 0x78(%rbx)
cmpl $0xfffffeff, %eax       # imm = 0xFFFFFEFF
jne 0x9299
popq %rbx
popq %r14
popq %r15
retq
movq %rbx, %rdi
movl %eax, %esi
popq %rbx
popq %r14
popq %r15
jmp 0x6517
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveFallthroughCoIm
static void ficlPrimitiveFallthroughCoIm(ficlVm *vm)
{
    ficlCell *patchAddr;
    ficlInteger offset;
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    FICL_STACK_CHECK(vm->dataStack, 4, 3);

	/* ensure we're in an OF, */
    matchControlTag(vm, ofTag);
	/* grab the address of the branch location after the OF */
    patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
	/* ensure we're also in a "case" */
    matchControlTag(vm, caseTag);

	/* okay, here we go.  put the case tag back. */
	markControlTag(vm, caseTag);

    /* FICL_VM_STATE_COMPILE branch runtime */
    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranchParenWithCheck);

	/* push a new FALLTHROUGH fixup and the fallthroughTag */
    ficlStackPushPointer(vm->dataStack, dictionary->here);
	markControlTag(vm, fallthroughTag);

	/* reserve space for the FALLTHROUGH fixup */
    ficlDictionaryAppendUnsigned(dictionary, 2);

	/* and patch the original OF */
    offset = dictionary->here - patchAddr;
    *patchAddr = FICL_LVALUE_TO_CELL(offset);
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r14
callq 0x6643
movq %rax, %rbx
leaq 0xfbf3(%rip), %rsi      # 0x18ee0
movq %r14, %rdi
callq 0xa94a
movq 0x60(%r14), %rdi
callq 0x420e
movq %rax, %r15
leaq 0xfbc0(%rip), %r12      # 0x18ec8
movq %r14, %rdi
movq %r12, %rsi
callq 0xa94a
movq %r14, %rdi
movq %r12, %rsi
callq 0xa994
pushq $0x30
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
movq 0x60(%r14), %rdi
movq (%rbx), %rsi
callq 0x4287
leaq 0xfb98(%rip), %rsi      # 0x18ed4
movq %r14, %rdi
callq 0xa994
pushq $0x2
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
movq (%rbx), %rax
subq %r15, %rax
sarq $0x3, %rax
movq %rax, (%r15)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveFMSlashMod
static void ficlPrimitiveFMSlashMod(ficlVm *vm)
{
	ficl2Integer d1;
	ficlInteger n1;
	ficl2IntegerQR qr;

	FICL_STACK_CHECK(vm->dataStack, 3, 2);

	n1 = ficlStackPopInteger(vm->dataStack);
	d1 = ficlStackPop2Integer(vm->dataStack);
	qr = ficl2IntegerDivideFloored(d1, n1);
	ficlStackPushInteger(vm->dataStack, qr.remainder);
	ficlStackPushInteger(vm->dataStack, FICL_2UNSIGNED_GET_LOW(qr.quotient));
	return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x422e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x423e
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rsi
movq %r14, %rcx
callq 0xce41
movq 0x8(%r15), %r14
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x4298
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4298
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveIfCoIm
static void ficlPrimitiveIfCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranch0ParenWithCheck);
    markBranch(dictionary, vm, origTag);
    ficlDictionaryAppendUnsigned(dictionary, 1);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x32
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xfa8d(%rip), %rdx      # 0x18ecd
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa99d
pushq $0x1
popq %rsi
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xb7e8
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveLoopCoIm
static void ficlPrimitiveLoopCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionLoopParen);
    resolveBackBranch(dictionary, vm, doTag);
    resolveAbsBranch(dictionary, vm, leaveTag);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x35
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xfa25(%rip), %rdx      # 0x18eb2
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa89d
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xa8d4
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveMStar
static void ficlPrimitiveMStar(ficlVm *vm)
{
	ficlInteger n2;
	ficlInteger n1;
	ficl2Integer d;
	FICL_STACK_CHECK(vm->dataStack, 2, 2);

	n2 = ficlStackPopInteger(vm->dataStack);
	n1 = ficlStackPopInteger(vm->dataStack);

	d = ficl2IntegerMultiply(n1, n2);
	ficlStackPush2Integer(vm->dataStack, d);
	return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x422e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x422e
movq %rax, %rdi
movq %r14, %rsi
callq 0xccc8
movq 0x60(%rbx), %rdi
movq %rax, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x42db
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveMod
static void ficlPrimitiveMod(ficlVm *vm)
{
	ficl2Integer d1;
	ficlInteger n1;
	ficlInteger i;
	ficl2IntegerQR qr;
	FICL_STACK_CHECK(vm->dataStack, 2, 1);

	n1 = ficlStackPopInteger(vm->dataStack);
	i = ficlStackPopInteger(vm->dataStack);
	FICL_INTEGER_TO_2INTEGER(i, d1);
	qr = ficl2IntegerDivideSymmetric(d1, n1);
	ficlStackPushInteger(vm->dataStack, qr.remainder);
	return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x422e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x422e
movq %rax, %rsi
sarq $0x3f, %rsi
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rdx
movq %r14, %rcx
callq 0xcef6
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x4298
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveOfCoIm
static void ficlPrimitiveOfCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
	ficlCell *fallthroughFixup = NULL;

    FICL_STACK_CHECK(vm->dataStack, 1, 3);

	if (ficlStackGetTop(vm->dataStack).p == fallthroughTag)
	{
		matchControlTag(vm, fallthroughTag);
		fallthroughFixup = ficlStackPopPointer(vm->dataStack);
	}

	matchControlTag(vm, caseTag);

	markControlTag(vm, caseTag);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionOfParen);
    markBranch(dictionary, vm, ofTag);
    ficlDictionaryAppendUnsigned(dictionary, 2);

	if (fallthroughFixup != NULL)
	{
		ficlInteger offset = dictionary->here - fallthroughFixup;
		*fallthroughFixup = FICL_LVALUE_TO_CELL(offset);
	}

    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r14
callq 0x6643
movq %rax, %rbx
movq 0x60(%r14), %rdi
callq 0x41cb
leaq 0xf97b(%rip), %rcx      # 0x18ed4
cmpq %rcx, %rax
jne 0x957b
leaq 0xf96f(%rip), %rsi      # 0x18ed4
movq %r14, %rdi
callq 0xa94a
movq 0x60(%r14), %rdi
callq 0x420e
movq %rax, %r15
jmp 0x957e
xorl %r15d, %r15d
leaq 0xf943(%rip), %r12      # 0x18ec8
movq %r14, %rdi
movq %r12, %rsi
callq 0xa94a
movq %r14, %rdi
movq %r12, %rsi
callq 0xa994
pushq $0x36
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
leaq 0xf933(%rip), %rdx      # 0x18ee0
movq %rbx, %rdi
movq %r14, %rsi
callq 0xa99d
pushq $0x2
popq %rsi
movq %rbx, %rdi
callq 0xb7e8
testq %r15, %r15
je 0x95d5
movq (%rbx), %rax
subq %r15, %rax
sarq $0x3, %rax
movq %rax, (%r15)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitivePostponeCoIm
static void ficlPrimitivePostponeCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary  = ficlVmGetDictionary(vm);
    ficlWord *word;
    ficlWord *pComma = ficlSystemLookup(vm->callback.system, ",");
    FICL_VM_ASSERT(vm, pComma);

    ficlPrimitiveTick(vm);
    word = ficlStackGetTop(vm->dataStack).p;
    if (ficlWordIsImmediate(word))
    {
        ficlDictionaryAppendCell(dictionary, ficlStackPop(vm->dataStack));
    }
    else
    {
        ficlPrimitiveLiteralIm(vm);
        ficlDictionaryAppendCell(dictionary, FICL_LVALUE_TO_CELL(pComma));
    }
    
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %r14
callq 0x6643
movq %rax, %rbx
movq 0x18(%r14), %rdi
leaq 0x5454(%rip), %rsi      # 0xea50
callq 0x3977
movq %rax, %r15
movq %r14, %rdi
callq 0x6df1
movq 0x60(%r14), %rdi
callq 0x41cb
movq %rax, %rdi
callq 0xb26c
testl %eax, %eax
je 0x962f
movq 0x60(%r14), %rdi
callq 0x41fe
movq %rax, %r15
jmp 0x9637
movq %r14, %rdi
callq 0x6d9e
movq %rbx, %rdi
movq %r15, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0xb7cd
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveRepeatCoIm
static void ficlPrimitiveRepeatCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranchParenWithCheck);
    /* expect "begin" branch marker */
    resolveBackBranch(dictionary, vm, destTag);
    /* expect "while" branch marker */
    resolveForwardBranch(dictionary, vm, origTag);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x30
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xf83e(%rip), %rdx      # 0x18ec1
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa89d
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xaa4d
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveStringQuoteIm
static void ficlPrimitiveStringQuoteIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    if (vm->state == FICL_VM_STATE_INTERPRET)
    {
        ficlCountedString *counted = (ficlCountedString *)dictionary->here;
        ficlVmGetString(vm, counted, '\"');
        ficlStackPushPointer(vm->dataStack, counted->text);
        ficlStackPushUnsigned(vm->dataStack, counted->length);
    }
    else    /* FICL_VM_STATE_COMPILE state */
    {
	    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionStringLiteralParen);
        dictionary->here = FICL_POINTER_TO_CELL(ficlVmGetString(vm, (ficlCountedString *)dictionary->here, '\"'));
        ficlDictionaryAlign(dictionary);
    }

    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
cmpq $0x0, 0x50(%rbx)
je 0x96e1
pushq $0x50
popq %rsi
movq %r14, %rdi
callq 0xb7e8
movq (%r14), %rsi
pushq $0x22
popq %rdx
movq %rbx, %rdi
callq 0x664c
movq %rax, (%r14)
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xb7aa
movq (%r14), %r14
pushq $0x22
popq %rdx
movq %rbx, %rdi
movq %r14, %rsi
callq 0x664c
movq 0x60(%rbx), %rdi
leaq 0x1(%r14), %rsi
callq 0x4287
movq 0x60(%rbx), %rdi
movzbl (%r14), %esi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x42a9
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveSMSlashRem
static void ficlPrimitiveSMSlashRem(ficlVm *vm)
{
	ficl2Integer d1;
	ficlInteger n1;
	ficl2IntegerQR qr;
	
	FICL_STACK_CHECK(vm->dataStack, 3, 2);

	n1 = ficlStackPopInteger(vm->dataStack);
	d1 = ficlStackPop2Integer(vm->dataStack);
	qr = ficl2IntegerDivideSymmetric(d1, n1);
	ficlStackPushInteger(vm->dataStack, qr.remainder);
	ficlStackPushInteger(vm->dataStack, FICL_2UNSIGNED_GET_LOW(qr.quotient));
	return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x422e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x423e
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rsi
movq %r14, %rcx
callq 0xcef6
movq 0x8(%r15), %r14
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x4298
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4298
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveType
static void ficlPrimitiveType(ficlVm *vm)
{
    ficlUnsigned length;
    char *s;

    FICL_STACK_CHECK(vm->dataStack, 2, 0);


    length = ficlStackPopUnsigned(vm->dataStack);
    s = ficlStackPopPointer(vm->dataStack);
	
	if ((s == NULL) || (length == 0))
		return;

    /* 
    ** Since we don't have an output primitive for a counted string
    ** (oops), make sure the string is null terminated. If not, copy
    ** and terminate it.
    */
    if (s[length] != 0)
    {
        char *here = (char *)ficlVmGetDictionary(vm)->here;
        if (s != here)
            strncpy(here, s, length);

        here[length] = '\0';
        s = here;
    }

    ficlVmTextOut(vm, s);
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x421e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x420e
movq %rax, %r15
testq %rax, %rax
sete %al
testq %r14, %r14
sete %cl
orb %al, %cl
je 0x9829
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
cmpb $0x0, (%r15,%r14)
je 0x9855
movq %rbx, %rdi
callq 0x6643
movq (%rax), %r12
cmpq %r12, %r15
je 0x984e
movq %r12, %rdi
movq %r15, %rsi
movq %r14, %rdx
callq 0x3060
movb $0x0, (%r12,%r14)
jmp 0x9858
movq %r15, %r12
movq %rbx, %rdi
movq %r12, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x68f1
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveUDot
static void ficlPrimitiveUDot(ficlVm *vm)
{
    ficlUnsigned u;

    FICL_STACK_CHECK(vm->dataStack, 1, 0);

    u = ficlStackPopUnsigned(vm->dataStack);
    ficlUltoa(u, vm->pad, vm->base);
    strcat(vm->pad, " ");
    ficlVmTextOut(vm, vm->pad);
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x421e
leaq 0x118(%rbx), %r14
movl 0x58(%rbx), %edx
movq %rax, %rdi
movq %r14, %rsi
callq 0xae8b
movq %r14, %rdi
callq 0x30e0
movw $0x20, 0x118(%rbx,%rax)
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x68f1
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveUMStar
static void ficlPrimitiveUMStar(ficlVm *vm)
{
	ficlUnsigned u2;
	ficlUnsigned u1;
	ficl2Unsigned ud;
	FICL_STACK_CHECK(vm->dataStack, 2, 2);

	u2 = ficlStackPopUnsigned(vm->dataStack);
	u1 = ficlStackPopUnsigned(vm->dataStack);

	ud = ficl2UnsignedMultiply(u1, u2);
	ficlStackPush2Unsigned(vm->dataStack, ud);
	return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x421e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x421e
movq %rax, %rdi
movq %r14, %rsi
callq 0xcc8b
movq 0x60(%rbx), %rdi
movq %rax, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x42ba
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveUMSlashMod
static void ficlPrimitiveUMSlashMod(ficlVm *vm)
{
	ficl2Unsigned ud;
	ficlUnsigned u1;
	ficl2UnsignedQR uqr;

	u1    = ficlStackPopUnsigned(vm->dataStack);
	ud    = ficlStackPop2Unsigned(vm->dataStack);
	uqr   = ficl2UnsignedDivide(ud, u1);
	ficlStackPushUnsigned(vm->dataStack, uqr.remainder);
	ficlStackPushUnsigned(vm->dataStack, FICL_2UNSIGNED_GET_LOW(uqr.quotient));
	return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x421e
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x425a
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rsi
movq %r14, %rcx
callq 0xcd9c
movq 0x8(%r15), %r14
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x42a9
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x42a9
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveWhileCoIm
static void ficlPrimitiveWhileCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    FICL_STACK_CHECK(vm->dataStack, 2, 5);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionBranch0ParenWithCheck);
    markBranch(dictionary, vm, origTag);

	/* equivalent to 2swap */
    ficlStackRoll(vm->dataStack, 3);
    ficlStackRoll(vm->dataStack, 3);

    ficlDictionaryAppendUnsigned(dictionary, 1);
    return;
}

// Assembly:
pushq %rbp
pushq %r14
pushq %rbx
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x32
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xf4f0(%rip), %rdx      # 0x18ecd
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa99d
movq 0x60(%rbx), %rdi
pushq $0x3
popq %rbp
movl %ebp, %esi
callq 0x430e
movq 0x60(%rbx), %rdi
movl %ebp, %esi
callq 0x430e
pushq $0x1
popq %rsi
movq %r14, %rdi
popq %rbx
popq %r14
popq %rbp
jmp 0xb7e8
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveWord
static void ficlPrimitiveWord(ficlVm *vm)
{
    ficlCountedString *counted;
    char delim;
    ficlString name;

    FICL_STACK_CHECK(vm->dataStack, 1, 1);


    counted = (ficlCountedString *)vm->pad;
    delim = (char)ficlStackPopInteger(vm->dataStack);
    name = ficlVmParseStringEx(vm, delim, 1);

    if (FICL_STRING_GET_LENGTH(name) > FICL_PAD_SIZE - 1)
        FICL_STRING_SET_LENGTH(name, FICL_PAD_SIZE - 1);

    counted->length = (ficlUnsigned8)FICL_STRING_GET_LENGTH(name);
    strncpy(counted->text, FICL_STRING_GET_POINTER(name), FICL_STRING_GET_LENGTH(name));

	/* store an extra space at the end of the primitive... why? dunno yet.  Guy Carver did it. */
    counted->text[counted->length] = ' ';
    counted->text[counted->length + 1] = 0;

    ficlStackPushPointer(vm->dataStack, counted);
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x422e
movsbl %al, %esi
pushq $0x1
popq %rdx
movq %rbx, %rdi
callq 0x668f
movl $0x7ff, %r14d           # imm = 0x7FF
cmpq %r14, %rax
cmovbq %rax, %r14
leaq 0x118(%rbx), %r15
movb %r14b, 0x118(%rbx)
leaq 0x119(%rbx), %rdi
movq %rdx, %rsi
movq %r14, %rdx
callq 0x3060
movzbl %r14b, %eax
movw $0x20, 0x119(%rbx,%rax)
movq 0x60(%rbx), %rdi
movq %r15, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0x4287
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveDotParen
static void ficlPrimitiveDotParen(ficlVm *vm)
{
    char *from      = ficlVmGetInBuf(vm);
    char *stop      = ficlVmGetInBufEnd(vm);
    char *to     = vm->pad;
    char c;

    /*
    ** Note: the standard does not want leading spaces skipped.
    */
    for (c = *from; (from != stop) && (c != ')'); c = *++from)
        *to++ = c;

    *to = '\0';
    if ((from != stop) && (c == ')'))
        from++;

    ficlVmTextOut(vm, vm->pad);
    ficlVmUpdateTib(vm, from);
        
    return;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x88(%rdi), %rax
movq 0x90(%rdi), %rcx
addq 0x80(%rdi), %rcx
leaq 0x118(%rdi), %rsi
movq %rcx, %r14
negq %r14
xorl %edx, %edx
leaq (%rcx,%rdx), %r8
movb (%rcx,%rdx), %dil
cmpq %rax, %r8
je 0x9b00
cmpb $0x29, %dil
je 0x9b00
movb %dil, 0x118(%rbx,%rdx)
decq %r14
incq %rdx
jmp 0x9add
xorl %r15d, %r15d
cmpq %rax, %r8
setne %r15b
movb $0x0, 0x118(%rbx,%rdx)
xorl %r12d, %r12d
cmpb $0x29, %dil
sete %r12b
movq %rbx, %rdi
callq 0x68f1
cmpq %r15, %r12
cmovbq %r12, %r15
subq 0x90(%rbx), %r15
subq %r14, %r15
movq %r15, 0x80(%rbx)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveColonNoName
static void ficlPrimitiveColonNoName(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);
    ficlWord *word;
    ficlString name;

    FICL_STRING_SET_LENGTH(name, 0);
    FICL_STRING_SET_POINTER(name, NULL);

    vm->state = FICL_VM_STATE_COMPILE;
    word = ficlDictionaryAppendWord(dictionary, name, (ficlPrimitive)ficlInstructionColonParen, FICL_WORD_DEFAULT | FICL_WORD_SMUDGED);
    ficlStackPushPointer(vm->dataStack, word);
    markControlTag(vm, colonTag);
    return;
}

// Assembly:
pushq %rbx
movq %rdi, %rbx
callq 0x6643
movq $0x1, 0x50(%rbx)
pushq $0x46
popq %rcx
pushq $0x4
popq %r8
movq %rax, %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0xb893
movq 0x60(%rbx), %rdi
movq %rax, %rsi
callq 0x4287
leaq 0xf33b(%rip), %rsi      # 0x18ebb
movq %rbx, %rdi
popq %rbx
jmp 0xa994
// File: /workspace/github_c_makefile_star2_O2/hoobaa[P]ficl/primitives.c
// Function: ficlPrimitiveQDoCoIm
static void ficlPrimitiveQDoCoIm(ficlVm *vm)
{
    ficlDictionary *dictionary = ficlVmGetDictionary(vm);

    ficlDictionaryAppendUnsigned(dictionary, ficlInstructionQDoParen);
    /*
    ** Allot space for a pointer to the end
    ** of the loop - "leave" uses this...
    */
    markBranch(dictionary, vm, leaveTag);
    ficlDictionaryAppendUnsigned(dictionary, 0);
    /*
    ** Mark location of head of loop...
    */
    markBranch(dictionary, vm, doTag);

    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x6643
movq %rax, %r14
pushq $0x4e
popq %rsi
movq %rax, %rdi
callq 0xb7e8
leaq 0xf30b(%rip), %rdx      # 0x18eb5
movq %r14, %rdi
movq %rbx, %rsi
callq 0xa99d
movq %r14, %rdi
xorl %esi, %esi
callq 0xb7e8
leaq 0xf2ec(%rip), %rdx      # 0x18eb2
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xa99d