// File: /workspace/github_c_makefile_star2_O0/tabemann[P]attoforth/src/runtime/prim.c
// Function: af_prim_format_number
void af_prim_format_number(af_task_t* task) {
  af_byte_t buffer[64];
  af_byte_t* current = buffer + sizeof(buffer);
  af_cell_t length = 0;
  af_cell_t value;
  af_bool_t negative = FALSE;
  AF_VERIFY_DATA_STACK_READ(task, 1);
  AF_VERIFY_DATA_STACK_EXPAND(task, 1);
  value = *task->data_stack_current;
  if(value == 0) {
    *(--current) = '0';
    length++;
  } else if(task->base == 10) {
    af_sign_cell_t signed_value = (af_sign_cell_t)value;
    if(signed_value < 0) {
      negative = TRUE;
      value = (af_cell_t)(-signed_value);
    }
    while(value > 0) {
      af_byte_t part = value % 10;
      part += '0';
      value /= 10;
      *(--current) = part;
      length++;
    }
    if(negative) {
      *(--current) = '-';
      length++;
    }
  } else if(task->base >= 2 && task->base <= 36) {
    while(value > 0) {
      af_byte_t part = value % task->base;
      if(part < 10) {
	part += '0';
      } else {
	part += 'A' - 10;
      }
      value /= task->base;
      *(--current) = part;
      length++;
    }
  }
  memcpy(task->data_space_current, current, length);
  *task->data_stack_current = (af_cell_t)task->data_space_current;
  *(--task->data_stack_current) = length;
  AF_ADVANCE_IP(task, 1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x90, %rsp
movq %rdi, -0x8(%rbp)
leaq -0x50(%rbp), %rax
addq $0x40, %rax
movq %rax, -0x58(%rbp)
movq $0x0, -0x60(%rbp)
movq $0x0, -0x70(%rbp)
movq -0x8(%rbp), %rax
movq 0x60(%rax), %rax
movq (%rax), %rax
movq %rax, -0x68(%rbp)
cmpq $0x0, -0x68(%rbp)
jne 0x116f5
movq -0x58(%rbp), %rax
movq %rax, %rcx
addq $-0x1, %rcx
movq %rcx, -0x58(%rbp)
movb $0x30, -0x1(%rax)
movq -0x60(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x60(%rbp)
jmp 0x1184d
movq -0x8(%rbp), %rax
cmpq $0xa, 0xf0(%rax)
jne 0x117ae
movq -0x68(%rbp), %rax
movq %rax, -0x78(%rbp)
cmpq $0x0, -0x78(%rbp)
jge 0x11728
movq $-0x1, -0x70(%rbp)
xorl %eax, %eax
subq -0x78(%rbp), %rax
movq %rax, -0x68(%rbp)
jmp 0x1172a
cmpq $0x0, -0x68(%rbp)
jbe 0x11783
movq -0x68(%rbp), %rax
movl $0xa, %ecx
xorl %edx, %edx
divq %rcx
movb %dl, %al
movb %al, -0x79(%rbp)
movzbl -0x79(%rbp), %eax
addl $0x30, %eax
movb %al, -0x79(%rbp)
movq -0x68(%rbp), %rax
movl $0xa, %ecx
xorl %edx, %edx
divq %rcx
movq %rax, -0x68(%rbp)
movb -0x79(%rbp), %cl
movq -0x58(%rbp), %rax
movq %rax, %rdx
addq $-0x1, %rdx
movq %rdx, -0x58(%rbp)
movb %cl, -0x1(%rax)
movq -0x60(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x60(%rbp)
jmp 0x1172a
cmpq $0x0, -0x70(%rbp)
je 0x117a9
movq -0x58(%rbp), %rax
movq %rax, %rcx
addq $-0x1, %rcx
movq %rcx, -0x58(%rbp)
movb $0x2d, -0x1(%rax)
movq -0x60(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x60(%rbp)
jmp 0x1184b
movq -0x8(%rbp), %rax
cmpq $0x2, 0xf0(%rax)
jb 0x11849
movq -0x8(%rbp), %rax
cmpq $0x24, 0xf0(%rax)
ja 0x11849
jmp 0x117d0
cmpq $0x0, -0x68(%rbp)
jbe 0x11847
movq -0x68(%rbp), %rax
movq -0x8(%rbp), %rcx
xorl %edx, %edx
divq 0xf0(%rcx)
movb %dl, %al
movb %al, -0x7a(%rbp)
movzbl -0x7a(%rbp), %eax
cmpl $0xa, %eax
jge 0x11802
movzbl -0x7a(%rbp), %eax
addl $0x30, %eax
movb %al, -0x7a(%rbp)
jmp 0x1180c
movzbl -0x7a(%rbp), %eax
addl $0x37, %eax
movb %al, -0x7a(%rbp)
movq -0x8(%rbp), %rax
movq 0xf0(%rax), %rcx
movq -0x68(%rbp), %rax
xorl %edx, %edx
divq %rcx
movq %rax, -0x68(%rbp)
movb -0x7a(%rbp), %cl
movq -0x58(%rbp), %rax
movq %rax, %rdx
addq $-0x1, %rdx
movq %rdx, -0x58(%rbp)
movb %cl, -0x1(%rax)
movq -0x60(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x60(%rbp)
jmp 0x117d0
jmp 0x11849
jmp 0x1184b
jmp 0x1184d
movq -0x8(%rbp), %rax
movq 0xc8(%rax), %rdi
movq -0x58(%rbp), %rsi
movq -0x60(%rbp), %rdx
callq 0x21c0
movq -0x8(%rbp), %rax
movq 0xc8(%rax), %rcx
movq -0x8(%rbp), %rax
movq 0x60(%rax), %rax
movq %rcx, (%rax)
movq -0x60(%rbp), %rcx
movq -0x8(%rbp), %rdx
movq 0x60(%rdx), %rax
movq %rax, %rsi
addq $-0x8, %rsi
movq %rsi, 0x60(%rdx)
movq %rcx, -0x8(%rax)
movq -0x8(%rbp), %rax
movq %rax, -0x88(%rbp)
movq -0x88(%rbp), %rax
cmpq $0x0, 0x58(%rax)
je 0x118c7
movq -0x88(%rbp), %rax
movq 0x58(%rax), %rax
addq $0x8, %rax
movq %rax, -0x90(%rbp)
jmp 0x118d2
xorl %eax, %eax
movq %rax, -0x90(%rbp)
jmp 0x118d2
movq -0x90(%rbp), %rcx
movq -0x88(%rbp), %rax
movq %rcx, 0x58(%rax)
addq $0x90, %rsp
popq %rbp
retq
nopl (%rax)