// File: /workspace/github_c_makefile_star2_O0/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
movq %rsp, %rbp
subq $0x20, %rsp
movb $0x1, 0x5e3a(%rip)      # 0xd3a9
movb $0x1, -0x9(%rbp)
jmp 0x7575
cmpb $0x0, -0x9(%rbp)
je 0x76fd
movslq 0x82ee(%rip), %rcx      # 0xf874
leaq 0x8263(%rip), %rax      # 0xf7f0
movsbl (%rax,%rcx), %eax
cmpl $0x0, %eax
je 0x75ad
movslq 0x82d7(%rip), %rcx      # 0xf874
leaq 0x824c(%rip), %rax      # 0xf7f0
movsbl (%rax,%rcx), %eax
cmpl $0xa, %eax
jne 0x75b6
movb $0x0, -0x9(%rbp)
jmp 0x76e6
movslq 0x82b7(%rip), %rax      # 0xf874
leaq 0x822c(%rip), %rcx      # 0xf7f0
movsbl (%rax,%rcx), %eax
addl $-0x2b, %eax
movl %eax, %ecx
movq %rcx, -0x18(%rbp)
subl $0x10, %eax
ja 0x761b
movq -0x18(%rbp), %rax
leaq 0x1c9f(%rip), %rcx      # 0x9280
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movb $0x0, -0x9(%rbp)
jmp 0x76e4
callq 0x4330
jmp 0x76e4
movslq 0x8278(%rip), %rcx      # 0xf87c
leaq 0x81e5(%rip), %rax      # 0xf7f0
movb (%rax,%rcx), %al
movb %al, 0x826c(%rip)       # 0xf880
callq 0x51a0
jmp 0x761b
callq 0x21b0
movq (%rax), %rax
movslq 0x824a(%rip), %rdx      # 0xf874
leaq 0x81bf(%rip), %rcx      # 0xf7f0
movsbl (%rcx,%rdx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x800, %eax            # imm = 0x800
cmpl $0x0, %eax
jne 0x765d
movslq 0x8227(%rip), %rcx      # 0xf874
leaq 0x819c(%rip), %rax      # 0xf7f0
movsbl (%rax,%rcx), %eax
cmpl $0x2d, %eax
jne 0x76d9
callq 0x7720
movq %rax, -0x8(%rbp)
movw 0x8153(%rip), %cx       # 0xf7c0
movq -0x8(%rbp), %rax
movswl (%rax), %eax
andl $0xfff, %eax            # imm = 0xFFF
movswl %cx, %edi
movswl %ax, %esi
callq 0x6700
callq 0x6760
movw 0x8130(%rip), %cx       # 0xf7c0
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
sarq $0xc, %rax
andq $0xfff, %rax            # imm = 0xFFF
movswl %cx, %edi
movswl %ax, %esi
callq 0x6700
callq 0x6760
movw 0x8107(%rip), %cx       # 0xf7c0
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
andq $0xfff, %rax            # imm = 0xFFF
movswl %cx, %edi
movswl %ax, %esi
callq 0x6700
callq 0x6760
jmp 0x76e2
movb $0x0, 0x5cc9(%rip)      # 0xd3a9
jmp 0x7710
jmp 0x76e4
jmp 0x76e6
cmpb $0x0, 0x818b(%rip)      # 0xf878
je 0x76f8
movb $0x0, 0x5cb3(%rip)      # 0xd3a9
jmp 0x7710
jmp 0x7575
callq 0x4130
callq 0x4330
movb $0x1, -0x9(%rbp)
jmp 0x7573
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)