// File: /workspace/github_c_makefile_star2_O0/AK6DN[P]dec-utilities-for-pdp/macro8x/macro8x.c
// Function: inputDubl
void inputDubl()
{
  WORD32 dublvalue;
  BOOL   scanning_line;

  scanning_line = TRUE;
  do
  {
    while( scanning_line )
    {
      if( is_end( line[lexstart] ))
      {
        scanning_line = FALSE;
      }
      else
      {
        switch( line[lexstart] )
        {
        case '/':
          scanning_line = FALSE;
          break;

        case ';':
          nextLexeme();
          break;

        case '+':
          delimiter = line[lexterm];
          nextLexBlank();
        case '-':
        default:
          if( is_digit( line[lexstart] ) || line[lexstart] == '-' )
          {
            dublvalue = getDublExprs();
            punchOutObject( clc, (WORD32)(( dublvalue >> 12 ) & 07777 ));
            incrementClc();
            punchOutObject( clc, (WORD32)( dublvalue & 07777 ));
            incrementClc();
          }
          else
          {
            return;             /* Non-numeric input, back to assembly.       */
          }
          break;
        } /* end switch                                                       */
      } /* end if                                                             */

      if( error_in_line )
      {
        return;                 /* Error occurred, exit DUBL input mode.      */
      }
    } /* end while( scanning_line )                                           */
    readLine();
    nextLexeme();
    scanning_line = TRUE;
  }
  while( TRUE );
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movb $0x1, -0x9(%rbp)
jmp 0x778e
cmpb $0x0, -0x9(%rbp)
je 0x78d3
movq 0x13509(%rip), %rcx     # 0x1aca8
leaq 0x1311a(%rip), %rax     # 0x1a8c0
movsbl (%rax,%rcx), %eax
cmpl $0x0, %eax
je 0x77c6
movq 0x134f2(%rip), %rcx     # 0x1aca8
leaq 0x13103(%rip), %rax     # 0x1a8c0
movsbl (%rax,%rcx), %eax
cmpl $0xa, %eax
jne 0x77cf
movb $0x0, -0x9(%rbp)
jmp 0x78c3
movq 0x134d2(%rip), %rax     # 0x1aca8
leaq 0x130e3(%rip), %rcx     # 0x1a8c0
movsbl (%rax,%rcx), %eax
addl $-0x2b, %eax
movl %eax, %ecx
movq %rcx, -0x18(%rbp)
subl $0x10, %eax
ja 0x7834
movq -0x18(%rbp), %rax
leaq 0x295a(%rip), %rcx      # 0xa154
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movb $0x0, -0x9(%rbp)
jmp 0x78c1
callq 0x4550
jmp 0x78c1
movq 0x1349b(%rip), %rcx     # 0x1acb8
leaq 0x1309c(%rip), %rax     # 0x1a8c0
movb (%rax,%rcx), %al
movb %al, 0x13493(%rip)      # 0x1acc0
callq 0x52b0
jmp 0x7834
callq 0x2190
movq (%rax), %rax
movq 0x13465(%rip), %rdx     # 0x1aca8
leaq 0x13076(%rip), %rcx     # 0x1a8c0
movsbl (%rcx,%rdx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x800, %eax            # imm = 0x800
cmpl $0x0, %eax
jne 0x7876
movq 0x13442(%rip), %rcx     # 0x1aca8
leaq 0x13053(%rip), %rax     # 0x1a8c0
movsbl (%rax,%rcx), %eax
cmpl $0x2d, %eax
jne 0x78bd
callq 0x7900
movq %rax, -0x8(%rbp)
movq 0x117ca(%rip), %rdi     # 0x19050
movq -0x8(%rbp), %rsi
sarq $0xc, %rsi
andq $0xfff, %rsi            # imm = 0xFFF
callq 0x6e90
callq 0x6ee0
movq 0x117aa(%rip), %rdi     # 0x19050
movq -0x8(%rbp), %rsi
andq $0xfff, %rsi            # imm = 0xFFF
callq 0x6e90
callq 0x6ee0
jmp 0x78bf
jmp 0x78ed
jmp 0x78c1
jmp 0x78c3
cmpb $0x0, 0x133e6(%rip)     # 0x1acb0
je 0x78ce
jmp 0x78ed
jmp 0x778e
callq 0x4010
callq 0x4550
movb $0x1, -0x9(%rbp)
movb $0x1, %al
testb $0x1, %al
jne 0x778c
jmp 0x78ed
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)