// File: /workspace/github_c_makefile_star2_O3/AK6DN[P]dec-utilities-for-pdp/palbart/palbart.c
// Function: inputFltg
void inputFltg()
{
  FLTG_T *fltg;
  BOOL    scanning_line;

  fltg_input = TRUE;            /* Set lexeme scanner for floating point.     */
  scanning_line = TRUE;
  while( TRUE )
  {
    while( scanning_line )
    {
      if( isend( 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( isdigit( line[lexstart] ) || line[lexstart] == '-' )
          {
            fltg = getFltgExprs();
            punchOutObject( clc, ( fltg->exponent & 07777 ));
            incrementClc();
            punchOutObject( clc, (WORD16)(( fltg->mantissa >> 12 ) & 07777 ));
            incrementClc();
            punchOutObject( clc, (WORD16)( fltg->mantissa & 07777 ));
            incrementClc();
          }
          else
          {
            fltg_input = FALSE; /* Reset lexeme scanner.                      */
            return;             /* Non-numeric input, back to assembly.       */
          }
          break;
        } /* end switch                                                       */
      } /* end if                                                             */

      if( error_in_line )
      {
        fltg_input = FALSE;     /* Reset lexeme scanner.                      */
        return;                 /* Error occurred, exit FLTG input mode.      */
      }
    } /* end while( scanning_line )                                           */
    readLine();
    nextLexeme();
    scanning_line = TRUE;
  }
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movb $0x1, 0x533b(%rip)      # 0xb349
movb $0x1, %al
leaq 0x7779(%rip), %rbx      # 0xd790
movl $0xfff, %r12d           # imm = 0xFFF
movl $0x7000, %r13d          # imm = 0x7000
testb %al, %al
jne 0x6035
callq 0x3ac7
callq 0x3be8
movb $0x1, %al
jmp 0x6023
movslq 0x77d8(%rip), %rax      # 0xd814
movzbl (%rax,%rbx), %ebp
xorl %eax, %eax
testl %ebp, %ebp
je 0x61f5
cmpl $0xa, %ebp
je 0x61f5
movsbl %bpl, %eax
addl $-0x2b, %eax
je 0x6079
rorl %eax
cmpl $0x2, %eax
je 0x6072
cmpl $0x8, %eax
jne 0x6099
callq 0x3be8
jmp 0x61f3
xorl %eax, %eax
jmp 0x61f5
movslq 0x779c(%rip), %rax      # 0xd81c
movb (%rax,%rbx), %al
movb %al, 0x7797(%rip)       # 0xd820
callq 0x44ee
movslq 0x777f(%rip), %rax      # 0xd814
movb (%rax,%rbx), %bpl
callq 0x21c0
cmpb $0x2d, %bpl
je 0x60ba
movq (%rax), %rax
movsbq %bpl, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x800, %eax            # imm = 0x800
je 0x6202
callq 0x6218
movq %rax, %r14
movswl 0x7697(%rip), %ebp      # 0xd760
movzwl (%rax), %r15d
movzwl 0x768e(%rip), %eax      # 0xd762
orw %bp, %ax
addw 0x7688(%rip), %ax       # 0xd766
andl %r12d, %r15d
movswl %ax, %esi
movq %rbx, %rdi
movl %r15d, %edx
movl $0x2, %ecx
callq 0x4119
movl %ebp, %edi
movl %r15d, %esi
callq 0x69eb
movswl 0x765b(%rip), %edi      # 0xd760
callq 0x672b
movzwl 0x764f(%rip), %ebp      # 0xd760
movl %ebp, %eax
andl %r13d, %eax
incl %ebp
andl %r12d, %ebp
movw %bp, 0x7642(%rip)       # 0xd764
orl %eax, %ebp
movw %bp, 0x7635(%rip)       # 0xd760
movl 0x8(%r14), %r15d
shrl $0xc, %r15d
movzwl 0x7628(%rip), %eax      # 0xd762
orw %bp, %ax
addw 0x7622(%rip), %ax       # 0xd766
movswl %ax, %esi
andl %r12d, %r15d
movq %rbx, %rdi
movl %r15d, %edx
movl $0x2, %ecx
callq 0x4119
movl %ebp, %edi
movl %r15d, %esi
callq 0x69eb
movswl 0x75f5(%rip), %edi      # 0xd760
callq 0x672b
movzwl 0x75e9(%rip), %ebp      # 0xd760
movl %ebp, %eax
andl %r13d, %eax
incl %ebp
andl %r12d, %ebp
movw %bp, 0x75dc(%rip)       # 0xd764
orl %eax, %ebp
movzwl 0x75d1(%rip), %eax      # 0xd762
orw %bp, %ax
addw 0x75cb(%rip), %ax       # 0xd766
movw %bp, 0x75be(%rip)       # 0xd760
movswl %ax, %esi
movl 0x8(%r14), %r14d
andl %r12d, %r14d
movq %rbx, %rdi
movl %r14d, %edx
movl $0x2, %ecx
callq 0x4119
movl %ebp, %edi
movl %r14d, %esi
callq 0x69eb
movswl 0x7593(%rip), %edi      # 0xd760
callq 0x672b
movzwl 0x7587(%rip), %eax      # 0xd760
movl %eax, %ecx
andl %r13d, %ecx
incl %eax
andl %r12d, %eax
movw %ax, 0x757a(%rip)       # 0xd764
orl %ecx, %eax
movw %ax, 0x756d(%rip)       # 0xd760
movb $0x1, %al
cmpb $0x0, 0x761c(%rip)      # 0xd818
je 0x6023
movb $0x0, 0x5140(%rip)      # 0xb349
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq