// File: besm6[P]pascal-re/pascompl.cc
// Function: parseParameters()
void parseParameters()
{
    IdentRecPtr l3var1z, l3var2z, l3var3z;
    IdClass parClass;
    int64_t l3var5z, l3var6z;
    Symbol l3sym7z;
    bool noComma;
    TypesPtr expType;
    IdentRecPtr &curIdRec = programme::super.back()->curIdRec;
    int64_t &l2int18z = programme::super.back()->l2int18z;

    int92z = 0;
    l3var5z = 0;
    int93z = 0;
    inSymbol();
    l3var2z = NULL;
    if (not Bits(IDENT, VARSY, FUNCSY, PROCSY).has(SY))
        errAndSkip(errBadSymbol, (skipToSet + Bits(IDENT, RPAREN)));
    int92z = 1;
    while (Bits(IDENT, VARSY, FUNCSY, PROCSY).has(SY)) {
        l3sym7z = SY;
        if (SY == IDENT)
            parClass = VARID;
        else if (SY == VARSY)
            parClass = FORMALID;
        else {
            parClass = ROUTINEID;
        }
        l3var3z = NULL;
        if (SY == PROCSY)
            expType = NULL;
        else
            expType = IntegerType;
        l3var6z = 0;
        if (SY != IDENT) {
            int93z = 0;
            inSymbol();
        }
        do {
            if (SY == IDENT) {
                if (isDefined)
                    error(errIdentAlreadyDefined);
                l3var6z = l3var6z + 1;
                l3var1z = new IdentRec;
                l3var1z->id = curIdent;
                l3var1z->offset = curFrameRegTemplate;
                l3var1z->cl = parClass;
                l3var1z->next = symHashTabBase[bucket];
                l3var1z->typ = NULL;
                l3var1z->list() = curIdRec;
                l3var1z->value() = l2int18z;
                symHashTabBase[bucket] = l3var1z;
                l2int18z = l2int18z + 1;
                if (l3var2z == NULL)
                    curIdRec->argList() = l3var1z;
                else
                    l3var2z->list() = l3var1z;
                l3var2z = l3var1z;
                if (l3var3z == NULL)
                    l3var3z = l3var1z;
                inSymbol();
            } else
                errAndSkip(errNoIdent, skipToSet + Bits(RPAREN, COMMA, COLON));
            noComma = (SY != COMMA);
            if (not noComma) {
                int93z = 0;
                inSymbol();
            }
        } while (!noComma);
        if (l3sym7z != PROCSY) {
            checkSymAndRead(COLON);
            parseTypeRef(expType, (skipToSet + Bits(IDENT, RPAREN)));
            if (l3sym7z != VARSY) {
                if (isFileType(expType))
                    error(5); /*errSimpleTypeReq */
                else if (expType->size != 1)
                     l3var5z = l3var6z * expType->size + l3var5z;
            }
            if (l3var3z != NULL) {
                while (l3var3z != curIdRec) /* do with l3var3z@ do */ {
                    l3var3z->typ = expType;
                    l3var3z = l3var3z->list();
                }
            }
        }

        if (SY == SEMICOLON) {
            int93z = 0;
            inSymbol();
            if (not (skipToSet + Bits(IDENT, VARSY, FUNCSY, PROCSY)).has(SY))
                errAndSkip(errBadSymbol, (skipToSet + Bits(IDENT, RPAREN)));
        }
    }
    /* 22276 */
    if (l3var5z != 0) {
        curIdRec->flags() = (curIdRec->flags() + Bits(23));
        l3var6z = l2int18z;
        l2int18z = l2int18z + l3var5z;
        l3var2z = curIdRec->argList();
        /* 22306 */
        while (l3var2z != curIdRec) {
            if (l3var2z->cl == VARID) {
                l3var5z = l3var2z->typ->size;
                if (l3var5z != 1) {
                    l3var2z->value() = l3var6z;
                    l3var6z = l3var6z + l3var5z;
                }
            }
            l3var2z = l3var2z->list();
        }
    }
    /* 22322 */
    checkSymAndRead (RPAREN);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x940, %rsp            # imm = 0x940
leaq 0xbeafe(%rip), %rdi     # 0xd8a30
callq 0x1e890
movq (%rax), %rax
addq $0x28, %rax
movq %rax, -0x48(%rbp)
leaq 0xbeae7(%rip), %rdi     # 0xd8a30
callq 0x1e890
movq (%rax), %rax
addq $0x80, %rax
movq %rax, -0x50(%rbp)
movq $0x0, 0x6609a(%rip) # 0x80000
movq $0x0, -0x28(%rbp)
movq $0x0, 0x6608f(%rip) # 0x80008
leaq -0x1c0(%rbp), %rdi
callq 0x9790
movq $0x0, -0x10(%rbp)
xorl %eax, %eax
movl %eax, %edi
movl $0x17, %esi
movl $0x18, %edx
movl $0x19, %ecx
callq 0x4a00
movq %rax, -0x1c8(%rbp)
movl 0x65f2a(%rip), %eax     # 0x7fedc
movl %eax, %esi
leaq -0x1c8(%rbp), %rdi
callq 0x1e5f0
xorb $-0x1, %al
testb $0x1, %al
jne 0x19fc8
jmp 0x1a008
xorl %eax, %eax
movl %eax, %edi
movl $0xc, %esi
callq 0x4940
movq %rax, -0x1d8(%rbp)
movq -0x1d8(%rbp), %rsi
leaq 0x65ebd(%rip), %rdi     # 0x7fea8
callq 0x1db20
movq %rax, -0x1d0(%rbp)
movq -0x1d0(%rbp), %rsi
movl $0xc, %edi
callq 0xacf0
movq $0x1, 0x65fed(%rip) # 0x80000
xorl %eax, %eax
movl %eax, %edi
movl $0x17, %esi
movl $0x18, %edx
movl $0x19, %ecx
callq 0x4a00
movq %rax, -0x1e0(%rbp)
movl 0x65ea4(%rip), %eax     # 0x7fedc
movl %eax, %esi
leaq -0x1e0(%rbp), %rdi
callq 0x1e5f0
testb $0x1, %al
jne 0x1a04f
jmp 0x1a492
movl 0x65e87(%rip), %eax     # 0x7fedc
movl %eax, -0x34(%rbp)
cmpl $0x0, 0x65e7d(%rip)     # 0x7fedc
jne 0x1a06a
movl $0x3, -0x1c(%rbp)
jmp 0x1a085
cmpl $0x17, 0x65e6b(%rip)    # 0x7fedc
jne 0x1a07c
movl $0x4, -0x1c(%rbp)
jmp 0x1a083
movl $0x2, -0x1c(%rbp)
jmp 0x1a085
movq $0x0, -0x18(%rbp)
cmpl $0x19, 0x65e48(%rip)    # 0x7fedc
jne 0x1a0a0
movq $0x0, -0x40(%rbp)
jmp 0x1a0ab
movq 0x66001(%rip), %rax     # 0x800a8
movq %rax, -0x40(%rbp)
movq $0x0, -0x30(%rbp)
cmpl $0x0, 0x65e22(%rip)     # 0x7fedc
je 0x1a0d3
movq $0x0, 0x65f41(%rip) # 0x80008
leaq -0x350(%rbp), %rdi
callq 0x9790
jmp 0x1a0d5
cmpl $0x0, 0x65e00(%rip)     # 0x7fedc
jne 0x1a270
testb $0x1, 0x65f4a(%rip)     # 0x80033
je 0x1a0f5
movl $0x2, %edi
callq 0x7b40
movq -0x30(%rbp), %rax
incq %rax
movq %rax, -0x30(%rbp)
movl $0x60, %edi
callq 0x1e2e0
movq %rax, %rdi
movq %rdi, %rax
movq %rax, -0x910(%rbp)
callq 0x21b20
jmp 0x1a11e
movq -0x910(%rbp), %rax
movq %rax, -0x8(%rbp)
movq 0x65fd0(%rip), %rcx     # 0x80100
movq -0x8(%rbp), %rax
movq %rcx, (%rax)
movq 0x65e1a(%rip), %rcx     # 0x7ff58
movq -0x8(%rbp), %rax
movq %rcx, 0x8(%rax)
movl -0x1c(%rbp), %ecx
movq -0x8(%rbp), %rax
movl %ecx, 0x20(%rax)
movq 0x65e21(%rip), %rcx     # 0x7ff78
leaq 0x6b732(%rip), %rax     # 0x85890
movq (%rax,%rcx,8), %rcx
movq -0x8(%rbp), %rax
movq %rcx, 0x10(%rax)
movq -0x8(%rbp), %rax
movq $0x0, 0x18(%rax)
movq -0x48(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x920(%rbp)
movq -0x8(%rbp), %rdi
callq 0x1e970
movq -0x920(%rbp), %rcx
movq %rcx, (%rax)
movq -0x50(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x918(%rbp)
movq -0x8(%rbp), %rdi
callq 0x1e6b0
movq -0x918(%rbp), %rcx
movq %rcx, (%rax)
movq -0x8(%rbp), %rdx
movq 0x65db5(%rip), %rcx     # 0x7ff78
leaq 0x6b6c6(%rip), %rax     # 0x85890
movq %rdx, (%rax,%rcx,8)
movq -0x50(%rbp), %rax
movq (%rax), %rcx
addq $0x1, %rcx
movq -0x50(%rbp), %rax
movq %rcx, (%rax)
cmpq $0x0, -0x10(%rbp)
jne 0x1a22d
movq -0x8(%rbp), %rax
movq %rax, -0x928(%rbp)
movq -0x48(%rbp), %rax
movq (%rax), %rdi
callq 0x1ec30
movq -0x928(%rbp), %rcx
movq %rcx, (%rax)
jmp 0x1a24b
movq -0x910(%rbp), %rdi
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x358(%rbp)
movl %eax, -0x35c(%rbp)
callq 0x1e330
jmp 0x1a5a1
movq -0x8(%rbp), %rax
movq %rax, -0x930(%rbp)
movq -0x10(%rbp), %rdi
callq 0x1e970
movq -0x930(%rbp), %rcx
movq %rcx, (%rax)
movq -0x8(%rbp), %rax
movq %rax, -0x10(%rbp)
cmpq $0x0, -0x18(%rbp)
jne 0x1a262
movq -0x8(%rbp), %rax
movq %rax, -0x18(%rbp)
leaq -0x4d0(%rbp), %rdi
callq 0x9790
jmp 0x1a2b6
movl $0xc, %edi
movl $0xe, %esi
movl $0x12, %edx
callq 0x4990
movq %rax, -0x4e0(%rbp)
movq -0x4e0(%rbp), %rsi
leaq 0x65c0f(%rip), %rdi     # 0x7fea8
callq 0x1db20
movq %rax, -0x4d8(%rbp)
movq -0x4d8(%rbp), %rsi
movl $0x3, %edi
callq 0xacf0
cmpl $0xe, 0x65c1f(%rip)     # 0x7fedc
setne %al
andb $0x1, %al
movb %al, -0x35(%rbp)
testb $0x1, -0x35(%rbp)
jne 0x1a2e2
movq $0x0, 0x65d32(%rip) # 0x80008
leaq -0x650(%rbp), %rdi
callq 0x9790
jmp 0x1a2e4
movb -0x35(%rbp), %al
xorb $-0x1, %al
testb $0x1, %al
jne 0x1a0d5
cmpl $0x19, -0x34(%rbp)
je 0x1a3d2
movl $0x12, %edi
callq 0xb110
xorl %eax, %eax
movl %eax, %edi
movl $0xc, %esi
callq 0x4940
movq %rax, -0x768(%rbp)
movq -0x768(%rbp), %rsi
leaq 0x65b80(%rip), %rdi     # 0x7fea8
callq 0x1db20
movq %rax, -0x760(%rbp)
movq -0x760(%rbp), %rdx
leaq -0x758(%rbp), %rdi
leaq -0x40(%rbp), %rsi
callq 0x12e40
leaq -0x758(%rbp), %rdi
callq 0x219f0
cmpl $0x17, -0x34(%rbp)
je 0x1a39a
movq -0x40(%rbp), %rdi
callq 0xb030
testb $0x1, %al
jne 0x1a36c
jmp 0x1a378
movl $0x5, %edi
callq 0x7b40
jmp 0x1a398
movq -0x40(%rbp), %rax
cmpq $0x1, (%rax)
je 0x1a396
movq -0x30(%rbp), %rax
movq -0x40(%rbp), %rcx
imulq (%rcx), %rax
addq -0x28(%rbp), %rax
movq %rax, -0x28(%rbp)
jmp 0x1a398
jmp 0x1a39a
cmpq $0x0, -0x18(%rbp)
je 0x1a3d0
jmp 0x1a3a3
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq (%rcx), %rax
je 0x1a3ce
movq -0x40(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x18(%rax)
movq -0x18(%rbp), %rdi
callq 0x1e970
movq (%rax), %rax
movq %rax, -0x18(%rbp)
jmp 0x1a3a3
jmp 0x1a3d0
jmp 0x1a3d2
cmpl $0xf, 0x65b03(%rip)     # 0x7fedc
jne 0x1a48d
movq $0x0, 0x65c1e(%rip) # 0x80008
leaq -0x8d8(%rbp), %rdi
callq 0x9790
xorl %eax, %eax
movl %eax, %edi
movl $0x17, %esi
movl $0x18, %edx
movl $0x19, %ecx
callq 0x4a00
movq %rax, -0x8e8(%rbp)
movq -0x8e8(%rbp), %rsi
leaq 0x65a85(%rip), %rdi     # 0x7fea8
callq 0x1db20
movq %rax, -0x8e0(%rbp)
movl 0x65aa7(%rip), %eax     # 0x7fedc
movl %eax, %esi
leaq -0x8e0(%rbp), %rdi
callq 0x1e5f0
xorb $-0x1, %al
testb $0x1, %al
jne 0x1a44b
jmp 0x1a48b
xorl %eax, %eax
movl %eax, %edi
movl $0xc, %esi
callq 0x4940
movq %rax, -0x8f8(%rbp)
movq -0x8f8(%rbp), %rsi
leaq 0x65a3a(%rip), %rdi     # 0x7fea8
callq 0x1db20
movq %rax, -0x8f0(%rbp)
movq -0x8f0(%rbp), %rsi
movl $0xc, %edi
callq 0xacf0
jmp 0x1a48d
jmp 0x1a013
cmpq $0x0, -0x28(%rbp)
je 0x1a58e
movq -0x48(%rbp), %rax
movq (%rax), %rdi
callq 0x20960
movq %rax, -0x938(%rbp)
movl $0x17, %edi
callq 0x48e0
movq -0x938(%rbp), %rdi
movq %rax, -0x908(%rbp)
movq -0x908(%rbp), %rsi
callq 0x1db20
movq %rax, -0x900(%rbp)
movq -0x48(%rbp), %rax
movq (%rax), %rdi
callq 0x20960
movq -0x900(%rbp), %rcx
movq %rcx, (%rax)
movq -0x50(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x50(%rbp), %rax
movq (%rax), %rcx
addq -0x28(%rbp), %rcx
movq -0x50(%rbp), %rax
movq %rcx, (%rax)
movq -0x48(%rbp), %rax
movq (%rax), %rdi
callq 0x1ec30
movq (%rax), %rax
movq %rax, -0x10(%rbp)
movq -0x10(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq (%rcx), %rax
je 0x1a58c
movq -0x10(%rbp), %rax
cmpl $0x3, 0x20(%rax)
jne 0x1a57a
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq (%rax), %rax
movq %rax, -0x28(%rbp)
cmpq $0x1, -0x28(%rbp)
je 0x1a578
movq -0x30(%rbp), %rax
movq %rax, -0x940(%rbp)
movq -0x10(%rbp), %rdi
callq 0x1e6b0
movq -0x940(%rbp), %rcx
movq %rcx, (%rax)
movq -0x30(%rbp), %rax
addq -0x28(%rbp), %rax
movq %rax, -0x30(%rbp)
jmp 0x1a57a
movq -0x10(%rbp), %rdi
callq 0x1e970
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x1a521
jmp 0x1a58e
movl $0xc, %edi
callq 0xb110
addq $0x940, %rsp            # imm = 0x940
popq %rbp
retq
movq -0x358(%rbp), %rdi
callq 0x44c0
nopl (%rax)