LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/tools.c
// Function: ficlPrimitiveListEnv
static void ficlPrimitiveListEnv(ficlVm *vm)
{
    ficlDictionary *dictionary = vm->callback.system->environment;
    ficlHash *hash = dictionary->forthWordlist;
    ficlWord *word;
    unsigned i;
    int counter = 0;

    for (i = 0; i < hash->size; i++)
    {
        for (word = hash->table[i]; word != NULL; word = word->link, counter++)
        {
            ficlVmTextOut(vm, word->name);
            ficlVmTextOut(vm, "\n");
        }
    }

    sprintf(vm->pad, "Environment: %d words, %ld cells used of %u total\n", 
        counter, (long) (dictionary->here - dictionary->base), dictionary->size);
    ficlVmTextOut(vm, vm->pad);
    return;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x18(%rdi), %rax
movq 0x40(%rax), %rax
movq %rax, (%rsp)
movq 0x18(%rax), %r12
movl 0x10(%r12), %eax
testl %eax, %eax
je 0x4c9c
xorl %r13d, %r13d
leaq 0x970b(%rip), %r14      # 0xe369
xorl %ebp, %ebp
movq 0x18(%r12,%r13,8), %r15
testq %r15, %r15
je 0x4c90
movq 0x10(%r15), %rsi
movq %rbx, %rdi
callq 0x6b89
movq %rbx, %rdi
movq %r14, %rsi
callq 0x6b89
incl %ebp
movq (%r15), %r15
testq %r15, %r15
jne 0x4c6a
movl 0x10(%r12), %eax
incq %r13
movl %eax, %ecx
cmpq %rcx, %r13
jb 0x4c60
jmp 0x4c9e
xorl %ebp, %ebp
leaq 0x118(%rbx), %r14
movq (%rsp), %rax
movq (%rax), %rcx
subq %rax, %rcx
addq $-0xb8, %rcx
sarq $0x3, %rcx
movl 0xac(%rax), %r8d
leaq 0x9809(%rip), %rsi      # 0xe4d1
movq %r14, %rdi
movl %ebp, %edx
xorl %eax, %eax
callq 0x32f0
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x6b89
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/tools.c
// Function: ficlPrimitiveDebugXT
static void ficlPrimitiveDebugXT(ficlVm *vm)
{
    ficlWord *xt    = ficlStackPopPointer(vm->dataStack);
    ficlWordKind   wk    = ficlWordClassify(xt);

    ficlStackPushPointer(vm->dataStack, xt);
    ficlPrimitiveSeeXT(vm);

    switch (wk)
    {
    case FICL_WORDKIND_COLON:
    case FICL_WORDKIND_DOES:
        /*
        ** Run the colon code and set a breakpoint at the next instruction
        */
        ficlVmExecuteWord(vm, xt);
        ficlVmSetBreak(vm, &(vm->callback.system->breakpoint));
        break;

    default:
        ficlVmExecuteWord(vm, xt);
        break;
    }

    return;
}

// Assembly:
pushq %rbp
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0x429d
movq %rax, %r14
movq %rax, %rdi
callq 0xb94e
movl %eax, %ebp
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4316
movq %rbx, %rdi
callq 0x5041
cmpl $0x7, %ebp
je 0x4da7
cmpl $0x2, %ebp
jne 0x4de2
movq %rbx, %rdi
movq %r14, %rsi
callq 0x5351
movq 0x18(%rbx), %r14
leaq 0x9677(%rip), %rsi      # 0xe434
movq %r14, %rdi
callq 0x39e6
movq 0x40(%rbx), %rcx
movq %rcx, 0xb8(%r14)
movq (%rcx), %rdx
movq %rdx, 0xc0(%r14)
movq %rax, (%rcx)
popq %rbx
popq %r14
popq %rbp
retq
movq %rbx, %rdi
movq %r14, %rsi
popq %rbx
popq %r14
popq %rbp
jmp 0x5351
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/tools.c
// Function: ficlPrimitiveStepIn
static void ficlPrimitiveStepIn(ficlVm *vm)
{
    /*
    ** Do one step of the inner loop
    */
	ficlVmExecuteWord(vm, *vm->ip++);

    /*
    ** Now set a breakpoint at the next instruction
    */
    ficlVmSetBreak(vm, &(vm->callback.system->breakpoint));
    
    return;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x40(%rdi), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x40(%rdi)
movq (%rax), %rsi
callq 0x5351
movq 0x18(%rbx), %r14
leaq 0x923c(%rip), %rsi      # 0xe434
movq %r14, %rdi
callq 0x39e6
movq 0x40(%rbx), %rcx
movq %rcx, 0xb8(%r14)
movq (%rcx), %rdx
movq %rdx, 0xc0(%r14)
movq %rax, (%rcx)
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmCreate
ficlVm *ficlVmCreate(ficlVm *vm, unsigned nPStack, unsigned nRStack)
{
    if (vm == NULL)
    {
        vm = (ficlVm *)ficlMalloc(sizeof (ficlVm));
        FICL_ASSERT(NULL, vm);
        memset(vm, 0, sizeof (ficlVm));
    }

    if (vm->dataStack)
        ficlStackDestroy(vm->dataStack);
    vm->dataStack = ficlStackCreate(vm, "data", nPStack);

    if (vm->returnStack)
        ficlStackDestroy(vm->returnStack);
    vm->returnStack = ficlStackCreate(vm, "return", nRStack);

#if FICL_WANT_FLOAT
    if (vm->floatStack)
        ficlStackDestroy(vm->floatStack);
    vm->floatStack = ficlStackCreate(vm, "float", nPStack);
#endif

    ficlVmReset(vm);
    return vm;
}

// Assembly:
pushq %rbp
pushq %r14
pushq %rbx
movl %edx, %r14d
movl %esi, %ebp
movq %rdi, %rbx
testq %rdi, %rdi
jne 0x5259
movl $0x918, %edi            # imm = 0x918
callq 0xb2eb
movq %rax, %rbx
movl $0x918, %edx            # imm = 0x918
movq %rax, %rdi
xorl %esi, %esi
callq 0x3130
movq 0x60(%rbx), %rdi
testq %rdi, %rdi
je 0x5267
callq 0x4216
leaq 0x971a(%rip), %rsi      # 0xe988
movq %rbx, %rdi
movl %ebp, %edx
callq 0x41d1
movq %rax, 0x60(%rbx)
movq 0x68(%rbx), %rdi
testq %rdi, %rdi
je 0x528a
callq 0x4216
leaq 0x96fc(%rip), %rsi      # 0xe98d
movq %rbx, %rdi
movl %r14d, %edx
callq 0x41d1
movq %rax, 0x68(%rbx)
movq 0x70(%rbx), %rdi
testq %rdi, %rdi
je 0x52ae
callq 0x4216
leaq 0x9908(%rip), %rsi      # 0xebbd
movq %rbx, %rdi
movl %ebp, %edx
callq 0x41d1
movq %rax, 0x70(%rbx)
movq %rbx, %rdi
callq 0x52d3
movq %rbx, %rax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmReset
void ficlVmReset(ficlVm *vm)
{
    ficlVmQuit(vm);
    ficlStackReset(vm->dataStack);
#if FICL_WANT_FLOAT
    ficlStackReset(vm->floatStack);
#endif
    vm->base        = 10;
    return;
}

// Assembly:
pushq %rbx
movq %rdi, %rbx
movq 0x68(%rdi), %rdi
callq 0x420d
movw $0x0, 0x38(%rbx)
movb $0x0, 0x118(%rbx)
xorps %xmm0, %xmm0
movups %xmm0, 0x40(%rbx)
movq $0x0, 0x50(%rbx)
movups %xmm0, 0x78(%rbx)
movups %xmm0, 0x88(%rbx)
movq 0x60(%rbx), %rdi
callq 0x420d
movq 0x70(%rbx), %rdi
callq 0x420d
movq $0xa, 0x58(%rbx)
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmDestroy
void ficlVmDestroy(ficlVm *vm)
{
    if (vm)
    {
        ficlFree(vm->dataStack);
        ficlFree(vm->returnStack);
#if FICL_WANT_FLOAT
        ficlFree(vm->floatStack);
#endif
        ficlFree(vm);
    }

    return;
}

// Assembly:
testq %rdi, %rdi
je 0x5350
pushq %rbx
movq %rdi, %rbx
movq 0x60(%rdi), %rdi
callq 0xb2f5
movq 0x68(%rbx), %rdi
callq 0xb2f5
movq 0x70(%rbx), %rdi
callq 0xb2f5
movq %rbx, %rdi
popq %rbx
jmp 0xb2f5
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmOptimizeJumpToJump
static void ficlVmOptimizeJumpToJump(ficlVm *vm, ficlIp ip)
	{
	ficlIp destination;
	switch ((ficlInstruction)(*ip))
		{
		case ficlInstructionBranchParenWithCheck:
			*ip = (ficlWord *)ficlInstructionBranchParen;
			goto RUNTIME_FIXUP;

		case ficlInstructionBranch0ParenWithCheck:
			*ip = (ficlWord *)ficlInstructionBranch0Paren;
RUNTIME_FIXUP:
			ip++;
			destination = ip + *(int *)ip;
			switch ((ficlInstruction)*destination)
			{
				case ficlInstructionBranchParenWithCheck:
					/* preoptimize where we're jumping to */
					ficlVmOptimizeJumpToJump(vm, destination);
				case ficlInstructionBranchParen:
				{
					destination++;
					destination += *(int *)destination;
					*ip = (ficlWord *)(destination - ip);
					break;
				}
			}
		}
	}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq (%rdi), %rax
cmpq $0x30, %rax
je 0x68a6
cmpq $0x32, %rax
jne 0x68eb
movl $0x33, %eax
jmp 0x68ab
movl $0x31, %eax
movq %rax, (%rbx)
movslq 0x8(%rbx), %rax
leaq (%rbx,%rax,8), %r14
addq $0x8, %r14
movq (%r14), %rax
cmpq $0x31, %rax
je 0x68d1
cmpq $0x30, %rax
jne 0x68eb
movq %r14, %rdi
callq 0x6889
addq $0x8, %rbx
movslq 0x8(%r14), %rax
leaq (%r14,%rax,8), %rax
addq $0x8, %rax
subq %rbx, %rax
sarq $0x3, %rax
movq %rax, (%rbx)
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmParseStringEx
ficlString ficlVmParseStringEx(ficlVm *vm, char delimiter, char skipLeadingDelimiters)
{
    ficlString s;
    char *trace      = ficlVmGetInBuf(vm);
    char *stop      = ficlVmGetInBufEnd(vm);
    char c;

    if (skipLeadingDelimiters)
    {
        while ((trace != stop) && (*trace == delimiter))
            trace++;
    }

    FICL_STRING_SET_POINTER(s, trace);    /* mark start of text */

    for (c = *trace;
		(trace != stop) && (c != delimiter)
			&& (c != '\r') && (c != '\n');
		c = *++trace)
    {
        ;                   /* find next delimiter or end of line */
    }

                            /* set length of result */
    FICL_STRING_SET_LENGTH(s, trace - FICL_STRING_GET_POINTER(s));

    if ((trace != stop) && (*trace == delimiter))     /* gobble trailing delimiter */
        trace++;

    ficlVmUpdateTib(vm, trace);
    return s;
}

// Assembly:
movl %edx, %eax
movq 0x88(%rdi), %r8
movq 0x90(%rdi), %rcx
movq 0x80(%rdi), %rdx
addq %rcx, %rdx
testb %al, %al
sete %al
cmpq %r8, %rdx
sete %r9b
orb %al, %r9b
jne 0x697a
cmpb %sil, (%rdx)
jne 0x697a
incq %rdx
cmpq %r8, %rdx
jne 0x696a
movq %r8, %rdx
cmpq %r8, %rdx
je 0x69a2
movq %rdx, %rax
movb (%rax), %r9b
cmpb %sil, %r9b
je 0x69a7
cmpb $0xa, %r9b
je 0x69aa
movzbl %r9b, %r10d
cmpl $0xd, %r10d
je 0x69aa
incq %rax
cmpq %r8, %rax
jne 0x6982
movq %r8, %rax
jmp 0x69b7
movl %esi, %r9d
xorl %r8d, %r8d
cmpb %sil, %r9b
sete %r8b
addq %rax, %r8
subq %rdx, %rax
subq %rcx, %r8
movq %r8, 0x80(%rdi)
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmGetWord
ficlString ficlVmGetWord(ficlVm *vm)
{
    ficlString s = ficlVmGetWord0(vm);

    if (FICL_STRING_GET_LENGTH(s) == 0)
    {
        ficlVmThrow(vm, FICL_VM_STATUS_RESTART);
    }

    return s;
}

// Assembly:
pushq %rbx
movq %rdi, %rbx
callq 0x69e8
testq %rax, %rax
jne 0x69dc
movq 0x30(%rbx), %rdi
testq %rdi, %rdi
jne 0x69de
popq %rbx
retq
movl $0xfffffefe, %esi       # imm = 0xFFFFFEFE
callq 0x3280
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmGetWord0
ficlString ficlVmGetWord0(ficlVm *vm)
{
    char *trace      = ficlVmGetInBuf(vm);
    char *stop      = ficlVmGetInBufEnd(vm);
    ficlString s;
    ficlUnsigned length = 0;
    char c = 0;

    trace = ficlStringSkipSpace(trace, stop);
    FICL_STRING_SET_POINTER(s, trace);


	/* Please leave this loop this way; it makes Purify happier.  --lch */
    for (;;)
    {
		if (trace == stop)
			break;
		c = *trace;
		if (isspace((unsigned char)c))
			break;
        length++;
		trace++;
    }

    FICL_STRING_SET_LENGTH(s, length);

    if ((trace != stop) && isspace((unsigned char)c))    /* skip one trailing delimiter */
        trace++;

    ficlVmUpdateTib(vm, trace);

    return s;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movq 0x88(%rdi), %r14
movq 0x90(%rdi), %rdi
addq 0x80(%rbx), %rdi
movq %r14, %rsi
callq 0xb65d
movq %rax, %r15
cmpq %r14, %rax
je 0x6a3f
callq 0x3340
movq (%rax), %rdx
movq %r14, %rax
subq %r15, %rax
xorl %ecx, %ecx
movq %r15, %rsi
movzbl (%rsi), %edi
testb $0x20, 0x1(%rdx,%rdi,2)
jne 0x6a43
incq %rsi
decq %rcx
cmpq %r14, %rsi
jne 0x6a28
jmp 0x6a52
xorl %eax, %eax
jmp 0x6a52
movq %r15, %r14
subq %rcx, %r14
negq %rcx
incq %r14
movq %rcx, %rax
subq 0x90(%rbx), %r14
movq %r14, 0x80(%rbx)
movq %r15, %rdx
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmPushTib
void ficlVmPushTib(ficlVm *vm, char *text, ficlInteger nChars, ficlTIB *pSaveTib)
{
    if (pSaveTib)
    {
        *pSaveTib = vm->tib;
    }

    vm->tib.text = text;
    vm->tib.end = text + nChars;
    vm->tib.index = 0;
}

// Assembly:
testq %rcx, %rcx
je 0x6b16
movq 0x90(%rdi), %rax
movq %rax, 0x10(%rcx)
movups 0x80(%rdi), %xmm0
movups %xmm0, (%rcx)
movq %rsi, 0x90(%rdi)
addq %rsi, %rdx
movq %rdx, 0x88(%rdi)
movq $0x0, 0x80(%rdi)
retq
// File: /workspace/github_c_makefile_star2_O3/hoobaa[P]ficl/vm.c
// Function: ficlVmQuit
void ficlVmQuit(ficlVm *vm)
{
    ficlStackReset(vm->returnStack);
    vm->restart    = 0;
    vm->ip          = NULL;
    vm->runningWord = NULL;
    vm->state       = FICL_VM_STATE_INTERPRET;
    vm->tib.text    = NULL;
    vm->tib.end     = NULL;
    vm->tib.index   = 0;
    vm->pad[0]      = '\0';
    vm->sourceId.i  = 0;
    return;
}

// Assembly:
pushq %rbx
movq %rdi, %rbx
movq 0x68(%rdi), %rdi
callq 0x420d
movw $0x0, 0x38(%rbx)
movb $0x0, 0x118(%rbx)
xorps %xmm0, %xmm0
movups %xmm0, 0x40(%rbx)
movq $0x0, 0x50(%rbx)
movups %xmm0, 0x78(%rbx)
movups %xmm0, 0x88(%rbx)
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x6e94
movzbl (%r14), %eax
cmpl $0x2b, %eax
je 0x6e8e
cmpl $0x2d, %eax
jne 0x6e94
incq %r14
decb %sil
xorl %ecx, %ecx
jmp 0x6e94
incq %r14
decb %sil
xorl %ebp, %ebp
testb %sil, %sil
je 0x6f7a
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 0x6f7a
movq 0x10(%rsp), %rcx
movq 0x58(%rcx), %rbx
movl %ebx, %ecx
movq %rcx, 0x20(%rsp)
negb %al
addb %al, %sil
negb %sil
movzbl %sil, %eax
movq %rax, 0x18(%rsp)
xorl %r13d, %r13d
xorl %r12d, %r12d
xorl %ebp, %ebp
movsbl (%r14,%r13), %r15d
testl %r15d, %r15d
je 0x6f37
callq 0x3340
movq (%rax), %rax
movslq %r15d, %rcx
testb $0x8, (%rax,%rcx,2)
je 0x6f7a
leal -0x30(%r15), %eax
cmpl $0xa, %eax
jb 0x6f1c
movl %r15d, %edi
callq 0x3220
addl $-0x57, %eax
cmpl %ebx, %eax
jae 0x6f7a
imulq 0x20(%rsp), %r12
movl %eax, %eax
addq %rax, %r12
incq %r13
movl %r13d, %eax
addb 0x18(%rsp), %al
jne 0x6eed
cmpb $0x2e, 0xb(%rsp)
movq 0x10(%rsp), %rbx
jne 0x6f4e
movq 0x60(%rbx), %rdi
xorl %esi, %esi
callq 0x4327
movq %r12, %rsi
negq %rsi
cmpb $0x0, 0xc(%rsp)
cmovneq %r12, %rsi
movq 0x60(%rbx), %rdi
callq 0x4327
movl $0x1, %ebp
cmpq $0x1, 0x50(%rbx)
jne 0x6f7a
movq %rbx, %rdi
callq 0x7082
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_O3/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 0x42bd
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x429d
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 0x4327
// File: /workspace/github_c_makefile_star2_O3/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 0x69c5
movq %rax, %r14
movq %rdx, %r15
movq %rbx, %rdi
callq 0x68f3
movq %rax, %rdi
movq %r14, %rsi
movq %r15, %rdx
callq 0xc1bf
movq %rax, %r12
testq %rax, %rax
jne 0x7122
leaq 0x78c7(%rip), %rsi      # 0xe9d9
movq %rbx, %rdi
movq %r14, %rdx
movq %r15, %rcx
xorl %eax, %eax
callq 0x67d2
movq 0x60(%rbx), %rdi
movq %r12, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x4316
// File: /workspace/github_c_makefile_star2_O3/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 0x42e9
movzwl 0x58(%rbx), %ecx
movq %rsp, %r14
movq %r14, %rdi
movq %rax, %rsi
callq 0xd67a
movq (%r14), %r15
movq 0x8(%r14), %r12
movl 0x10(%r14), %edi
callq 0xb3f8
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 0x4349
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0xb3b0
movq 0x60(%rbx), %rdi
movl $0x2, %esi
callq 0x4232
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4316
movq 0x60(%rbx), %rdi
movzbl 0x118(%rbx), %esi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x4338
// File: /workspace/github_c_makefile_star2_O3/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 0x42e9
movq %rax, %r15
movq %rdx, %r12
movq %rsp, %r14
movzwl 0x58(%rbx), %ecx
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0xd67a
movq (%rsp), %r15
movq 0x8(%rsp), %r12
movl 0x10(%rsp), %edi
callq 0xb3f8
movzbl 0x118(%rbx), %ecx
leal 0x1(%rcx), %edx
movb %dl, 0x118(%rbx)
movb %al, 0x119(%rbx,%rcx)
movq %r12, %rax
orq %r15, %rax
jne 0x8eff
movq 0x60(%rbx), %rdi
xorl %esi, %esi
xorl %edx, %edx
callq 0x4349
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movl $0x37, %esi
movq %rax, %rdi
callq 0xbf2c
leaq 0xef28(%rip), %rdx      # 0x17eb2
movq %r14, %rdi
movq %rbx, %rsi
callq 0xaf59
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xaf90
// File: /workspace/github_c_makefile_star2_O3/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 0x428d
leaq 0x118(%rbx), %r14
movl 0x58(%rbx), %edx
movq %rax, %rdi
movq %r14, %rsi
callq 0xb433
movq %r14, %rdi
callq 0x30e0
movw $0x20, 0x118(%rbx,%rax)
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x6b89
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movq 0x18(%rbx), %rdi
leaq 0x627c(%rip), %rsi      # 0xf287
callq 0x39e6
movq %rax, %r15
movl $0x50, %esi
movq %r14, %rdi
callq 0xbf2c
movq (%r14), %rsi
movq %rbx, %rdi
movl $0x22, %edx
callq 0x68fc
movq %rax, (%r14)
movq %r14, %rdi
callq 0xbeee
movq %r14, %rdi
movq %r15, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0xbf11
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movq %rbx, %rdi
callq 0x69c5
movq %rax, %r15
movq %rdx, %r12
movq $0x1, 0x50(%rbx)
movq 0x60(%rbx), %rdi
leaq 0xee3c(%rip), %rsi      # 0x17ebb
callq 0x4316
movl $0x46, %ecx
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
movl $0x4, %r8d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0xbfcc
// File: /workspace/github_c_makefile_star2_O3/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
subq $0x18, %rsp
movq %rdi, %r14
movq 0x58(%rdi), %r13
movq 0x60(%rdi), %rdi
callq 0x42ad
movq %rax, %rbx
movq 0x60(%r14), %rdi
callq 0x429d
movq %rax, %r12
movq %r14, 0x8(%rsp)
movq 0x60(%r14), %rdi
callq 0x42e9
movq %rax, %r15
movq %rdx, %r14
movb (%r12), %al
testq %rbx, %rbx
sete %cl
cmpb $0x30, %al
setb %dl
orb %cl, %dl
je 0x91b4
movq %r12, %rbp
movq %rbx, %r13
movq 0x8(%rsp), %rbx
movq 0x60(%rbx), %rdi
movq %r15, %rsi
movq %r14, %rdx
callq 0x4349
movq 0x60(%rbx), %rdi
movq %rbp, %rsi
callq 0x4316
movq 0x60(%rbx), %rdi
movq %r13, %rsi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x4338
movq %r13, 0x10(%rsp)
movsbq %al, %rcx
addq $-0x30, %rcx
cmpq $0xa, %rcx
jb 0x91d5
movsbl %al, %edi
callq 0x3220
addl $-0x57, %eax
movslq %eax, %rcx
movq 0x10(%rsp), %rdx
cmpq %rdx, %rcx
jae 0x9174
movq %r15, %rdi
movq %r14, %rsi
callq 0xd50f
movq %rax, %r15
movq %rdx, %r14
leaq 0x1(%r12), %rbp
leaq -0x1(%rbx), %r13
cmpq $0x1, %rbx
je 0x917a
movb 0x1(%r12), %al
movq %r13, %rbx
movq %rbp, %r12
cmpb $0x2f, %al
ja 0x91b9
jmp 0x917a
// File: /workspace/github_c_makefile_star2_O3/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 0x9253
movq %r14, %rdi
movl $0xfffffefe, %esi       # imm = 0xFFFFFEFE
callq 0x67c2
movq 0x60(%r14), %rdi
callq 0x42bd
movq %rax, %r12
movq 0x60(%r14), %rdi
callq 0x429d
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 0x4327
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movq %rbx, %rdi
callq 0x69c5
movl $0x4f, %ecx
movq %r14, %rdi
movq %rax, %rsi
xorl %r8d, %r8d
callq 0xbfcc
movq %rbx, %rdi
movq %r14, %rsi
movl $0x1, %edx
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x6f97
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movl $0x4c, %esi
movq %rax, %rdi
callq 0xbf2c
movq (%r14), %rsi
movq 0x60(%rbx), %rdi
callq 0x4316
movq 0x60(%rbx), %rdi
leaq 0xea05(%rip), %rsi      # 0x17eb5
callq 0x4316
movq %r14, %rdi
xorl %esi, %esi
callq 0xbf2c
movq (%r14), %rsi
movq 0x60(%rbx), %rdi
callq 0x4316
movq 0x60(%rbx), %rdi
leaq 0xe9dc(%rip), %rsi      # 0x17eb2
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x4316
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %rbx
movl $0x30, %esi
movq %rax, %rdi
callq 0xbf2c
leaq 0xe9b0(%rip), %r15      # 0x17ecd
movq %r14, %rdi
movq %r15, %rsi
callq 0xb006
movq 0x60(%r14), %rdi
callq 0x429d
movq %rax, %r12
movq (%rbx), %rsi
movq 0x60(%r14), %rdi
callq 0x4316
movq 0x60(%r14), %rdi
movq %r15, %rsi
callq 0x4316
movl $0x1, %esi
movq %rbx, %rdi
callq 0xbf2c
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_O3/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 0x42bd
movb %al, 0x118(%rbx)
movb $0x0, 0x119(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x6b89
// File: /workspace/github_c_makefile_star2_O3/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 0x425a
leaq 0xe910(%rip), %rcx      # 0x17ed4
cmpq %rcx, %rax
jne 0x9629
leaq 0xe904(%rip), %rsi      # 0x17ed4
movq %rbx, %rdi
callq 0xb006
movq 0x60(%rbx), %rdi
callq 0x429d
movq %rax, %r14
leaq 0xe8dd(%rip), %r15      # 0x17ec8
movq %rbx, %rdi
movq %r15, %rsi
callq 0xb006
movq 0x60(%rbx), %rdi
callq 0x42ad
movq %rax, %r12
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4316
movq 0x60(%rbx), %rdi
incq %r12
movq %r12, %rsi
callq 0x4338
movq 0x60(%rbx), %rdi
movq %r15, %rsi
callq 0x4316
leaq 0xe898(%rip), %rsi      # 0x17ec8
movq %rbx, %rdi
callq 0xb006
movq 0x60(%rbx), %rdi
callq 0x42ad
movq %rax, %r14
movq %rbx, %rdi
callq 0x68f3
movq %rax, %r15
movl $0x6a, %esi
movq %rax, %rdi
callq 0xbf2c
testq %r14, %r14
je 0x967c
movq 0x60(%rbx), %rdi
callq 0x429d
movq (%r15), %rcx
subq %rax, %rcx
sarq $0x3, %rcx
movq %rcx, (%rax)
decq %r14
jne 0x9661
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %rbx
leaq 0xe83d(%rip), %rsi      # 0x17ee0
movq %r14, %rdi
callq 0xb006
movq 0x60(%r14), %rdi
callq 0x429d
movq %rax, %r15
leaq 0xe80a(%rip), %r12      # 0x17ec8
movq %r14, %rdi
movq %r12, %rsi
callq 0xb006
movq 0x60(%r14), %rdi
callq 0x42ad
movq %rax, %r13
movl $0x30, %esi
movq %rbx, %rdi
callq 0xbf2c
movq 0x60(%r14), %rdi
movq (%rbx), %rsi
callq 0x4316
movq 0x60(%r14), %rdi
incq %r13
movq %r13, %rsi
callq 0x4338
movq 0x60(%r14), %rdi
movq %r12, %rsi
callq 0x4316
movl $0x2, %esi
movq %rbx, %rdi
callq 0xbf2c
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_O3/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 0x42ad
movq %rax, %r15
movq 0x60(%rbx), %rdi
callq 0x429d
movq %r14, %rdi
movq %r15, %rsi
movq %rax, %rdx
callq 0xc1bf
testq %rax, %rax
je 0x9779
movq %rbx, %rdi
movq %rax, %rsi
callq 0x5351
movq $-0x1, %rsi
jmp 0x977b
xorl %esi, %esi
movq 0x60(%rbx), %rdi
popq %rbx
popq %r14
popq %r15
jmp 0x4327
// File: /workspace/github_c_makefile_star2_O3/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 0x42ad
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x429d
movq 0x78(%rbx), %r15
movq $-0x1, 0x78(%rbx)
movq %rbx, %rdi
movq %r14, %rsi
movq %rax, %rdx
callq 0x6c0b
movq %r15, 0x78(%rbx)
cmpl $0xfffffeff, %eax       # imm = 0xFFFFFEFF
jne 0x97d1
popq %rbx
popq %r14
popq %r15
retq
movq %rbx, %rdi
movl %eax, %esi
popq %rbx
popq %r14
popq %r15
jmp 0x67c2
// File: /workspace/github_c_makefile_star2_O3/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, %r15
callq 0x68f3
movq %rax, %rbx
leaq 0xe6b9(%rip), %rsi      # 0x17ee0
movq %r15, %rdi
callq 0xb006
movq 0x60(%r15), %rdi
callq 0x429d
movq %rax, %r14
leaq 0xe686(%rip), %r12      # 0x17ec8
movq %r15, %rdi
movq %r12, %rsi
callq 0xb006
movq 0x60(%r15), %rdi
movq %r12, %rsi
callq 0x4316
movl $0x30, %esi
movq %rbx, %rdi
callq 0xbf2c
movq 0x60(%r15), %rdi
movq (%rbx), %rsi
callq 0x4316
movq 0x60(%r15), %rdi
leaq 0xe657(%rip), %rsi      # 0x17ed4
callq 0x4316
movl $0x2, %esi
movq %rbx, %rdi
callq 0xbf2c
movq (%rbx), %rax
subq %r14, %rax
sarq $0x3, %rax
movq %rax, (%r14)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x42bd
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x42cd
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rsi
movq %r14, %rcx
callq 0xd73d
movq 0x8(%r15), %r14
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x4327
movq 0x60(%rbx), %rdi
movq %r14, %rsi
callq 0x4327
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movl $0x32, %esi
movq %rax, %rdi
callq 0xbf2c
movq (%r14), %rsi
movq 0x60(%rbx), %rdi
callq 0x4316
movq 0x60(%rbx), %rdi
leaq 0xe53b(%rip), %rsi      # 0x17ecd
callq 0x4316
movl $0x1, %esi
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xbf2c
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movl $0x35, %esi
movq %rax, %rdi
callq 0xbf2c
leaq 0xe4d5(%rip), %rdx      # 0x17eb2
movq %r14, %rdi
movq %rbx, %rsi
callq 0xaf59
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0xaf90
// File: /workspace/github_c_makefile_star2_O3/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 0x42bd
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x42bd
movq %rax, %rdi
movq %r14, %rsi
callq 0xd59f
movq 0x60(%rbx), %rdi
movq %rax, %rsi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x436a
// File: /workspace/github_c_makefile_star2_O3/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 0x42bd
movq %rax, %r14
movq 0x60(%rbx), %rdi
callq 0x42bd
movq %rax, %rsi
sarq $0x3f, %rsi
leaq 0x8(%rsp), %r15
movq %r15, %rdi
movq %rax, %rdx
movq %r14, %rcx
callq 0xd7f5
movq 0x10(%r15), %rsi
movq 0x60(%rbx), %rdi
callq 0x4327
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %rbx
movq 0x60(%r14), %rdi
callq 0x425a
leaq 0xe42b(%rip), %rcx      # 0x17ed4
cmpq %rcx, %rax
jne 0x9acb
leaq 0xe41f(%rip), %rsi      # 0x17ed4
movq %r14, %rdi
callq 0xb006
movq 0x60(%r14), %rdi
callq 0x429d
movq %rax, %r15
jmp 0x9ace
xorl %r15d, %r15d
leaq 0xe3f3(%rip), %r12      # 0x17ec8
movq %r14, %rdi
movq %r12, %rsi
callq 0xb006
movq 0x60(%r14), %rdi
movq %r12, %rsi
callq 0x4316
movl $0x36, %esi
movq %rbx, %rdi
callq 0xbf2c
movq (%rbx), %rsi
movq 0x60(%r14), %rdi
callq 0x4316
movq 0x60(%r14), %rdi
leaq 0xe3d0(%rip), %rsi      # 0x17ee0
callq 0x4316
movl $0x2, %esi
movq %rbx, %rdi
callq 0xbf2c
testq %r15, %r15
je 0x9b34
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_O3/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 0x68f3
movq %rax, %rbx
movq 0x18(%r14), %rdi
leaq 0x4ef5(%rip), %rsi      # 0xea50
callq 0x39e6
movq %rax, %r15
movq %r14, %rdi
callq 0x70d7
movq 0x60(%r14), %rdi
callq 0x425a
movq %rax, %rdi
callq 0xb92c
testl %eax, %eax
je 0x9b8e
movq 0x60(%r14), %rdi
callq 0x428d
movq %rax, %r15
jmp 0x9b96
movq %r14, %rdi
callq 0x7082
movq %rbx, %rdi
movq %r15, %rsi
popq %rbx
popq %r14
popq %r15
jmp 0xbf11
// File: /workspace/github_c_makefile_star2_O3/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 0x68f3
movq %rax, %r14
movl $0x30, %esi
movq %rax, %rdi
callq 0xbf2c
leaq 0xe2db(%rip), %rdx      # 0x17ec1
movq %r14, %rdi
movq %rbx, %rsi
callq 0xaf59
leaq 0xe2d5(%rip), %rsi      # 0x17ecd
movq %rbx, %rdi
callq 0xb006
movq 0x60(%rbx), %rdi
callq 0x429d
movq (%r14), %rcx
subq %rax, %rcx
sarq $0x3, %rcx
movq %rcx, (%rax)
addq $0x8, %rsp
popq %rbx
popq %r14
retq