// File: /workspace/github_cpp_makefile_star2_O3/besm6[P]pascal-re/pascompl.cc
// Function: prepStore()
void prepStore()
{
    int64_t l4int1z, l4int2z, l4int3z;
    bool l4bool4z, l4bool5z;
    state l4st6z;
    Kind l4var7z;

    l4int1z = insnList->ilf7;
    if (15 < l4int1z) {
        /* nothing? */
    } else if (l4int1z == 15)  {
        addToInsnList(macro + mcACC2ADDR);
    } else {
        addToInsnList(indexreg[l4int1z] + InsnTemp[UTC]);
    }
    l4bool4z = insnList->regsused.has(0);
    l4st6z = insnList->st;
    if ((l4st6z != st0) or l4bool4z)
        addxToInsnList(macro + mcPUSH);
    if (l4st6z == st0) {
        if (l4bool4z)  {
            addInsnAndOffset(insnList->ilf5.i + InsnTemp[UTC],
                             insnList->ilf6);
            addToInsnList(macro+mcPOP2ADDR);
        } else {
            addInsnAndOffset(insnList->ilf5.i, insnList->ilf6);
        }
    } else {
        l4var7z = insnList->typ->k;
        l4int1z = insnList->typ->bits;
        l4bool5z = (l4var7z < kindSet) or
            ((l4var7z == kindRecord) and optSflags.m.has(S6));
        if (l4st6z == st1) {
            l4int2z = insnList->shift;
            l4int3z = l4int2z + insnList->width;
            if (l4bool5z)  {
                if (l4int2z != 0)
                    addxToInsnList(ASN64 - l4int2z);
            } else {
                if (l4int3z != 48)
                    addxToInsnList(ASN64 + 48 - l4int3z);
            }
            addInsnAndOffset(InsnTemp[UTC] + insnList->ilf5.i,
                             insnList->ilf6);
            curVal.m = BitRange(0,47) - BitRange((48-l4int3z),(47 -l4int2z));
            addInsnAndOffset(macro+22, getFCSToffset());
        } else {
            if (not l4bool5z) {
                l4int2z = (insnList->width - l4int1z);
                if (l4int2z != 0)
                    addxToInsnList(ASN64 - l4int2z);
                addxToInsnList(InsnTemp[YTA]);
                addxToInsnList(ASN64 - l4int1z);
            }
            addToInsnList(getHelperProc(77)); /* "P/STAR" */
            insnList->next->mode = 1;
        }
    }
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq 0x5bc08(%rip), %rax     # 0x64aa8
movq 0x38(%rax), %rax
cmpq $0xf, %rax
jg 0x8ec8
movl $0x1000006, %edi        # imm = 0x1000006
je 0x8ec3
leaq 0x5ffb8(%rip), %rcx     # 0x68e70
movq 0x605e9(%rip), %rdi     # 0x694a8
addq (%rcx,%rax,8), %rdi
callq 0x88f7
movq 0x5bbd9(%rip), %rax     # 0x64aa8
movq 0x18(%rax), %rbx
btq $0x2f, %rbx
setae %cl
movl 0x40(%rax), %ebp
testl %ebp, %ebp
sete %dl
testb %cl, %dl
jne 0x8f7d
movl $0x1000005, %edi        # imm = 0x1000005
callq 0x8954
movq 0x5bbac(%rip), %rax     # 0x64aa8
testl %ebp, %ebp
je 0x8f3a
movq 0x10(%rax), %rdx
movl 0x10(%rdx), %ecx
cmpl $0x4, %ecx
jge 0x8f92
cmpl $0x1, %ebp
jne 0x901f
movq 0x50(%rax), %r15
movq 0x48(%rax), %r14
addq %r15, %r14
testq %r15, %r15
je 0x9070
movl $0x1e040, %edi          # imm = 0x1E040
subq %r15, %rdi
jmp 0x907d
btq $0x2f, %rbx
jae 0x8f7d
movq 0x28(%rax), %rdi
movq 0x30(%rax), %rbx
shlq $0x17, %rdi
sarq $0x17, %rdi
addq 0x60550(%rip), %rdi     # 0x694a8
callq 0x88f7
movq 0x5bb44(%rip), %rax     # 0x64aa8
movq (%rax), %rax
movq %rbx, 0x18(%rax)
movl $0x1000013, %edi        # imm = 0x1000013
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x88f7
movq 0x28(%rax), %rdi
movq 0x30(%rax), %rbx
shlq $0x17, %rdi
sarq $0x17, %rdi
jmp 0x91de
movq 0x8(%rdx), %rbx
cmpl $0x6, %ecx
jne 0x8fbf
movq 0x5bace(%rip), %rcx     # 0x64a70
cmpl $0x1, %ebp
jne 0x8fe4
movq 0x50(%rax), %r15
movq 0x48(%rax), %r14
addq %r15, %r14
btq $0x2c, %rcx
jb 0x8f24
jmp 0x8fcf
cmpl $0x1, %ebp
jne 0x8feb
movq 0x50(%rax), %r15
movq 0x48(%rax), %r14
addq %r15, %r14
cmpq $0x30, %r14
jne 0x9075
movl $0x30, %r14d
jmp 0x9082
btq $0x2c, %rcx
jb 0x901f
movq 0x48(%rax), %rax
cmpq %rbx, %rax
je 0x9006
movq %rbx, %rdi
subq %rax, %rdi
addq $0x1e040, %rdi          # imm = 0x1E040
callq 0x8954
movq 0x6042b(%rip), %rdi     # 0x69438
callq 0x8954
movl $0x1e040, %edi          # imm = 0x1E040
subq %rbx, %rdi
callq 0x8954
movq 0x61c12(%rip), %rdi     # 0x6ac38
testq %rdi, %rdi
jne 0x904d
movq 0x1b5b6(%rip), %rax     # 0x245e8
movq %rax, 0x5b9f7(%rip)     # 0x64a30
movl $0x8c0000, %edi         # imm = 0x8C0000
callq 0x5c15
movq %rax, %rdi
movq %rax, 0x61beb(%rip)     # 0x6ac38
addq $0xdc8000, %rdi         # imm = 0xDC8000
callq 0x88f7
movq 0x5ba48(%rip), %rax     # 0x64aa8
movq (%rax), %rax
movq $0x1, 0x8(%rax)
jmp 0x91f1
xorl %r15d, %r15d
jmp 0x9082
movl $0x1e070, %edi          # imm = 0x1E070
subq %r14, %rdi
callq 0x8954
movabsq $0xffffffffffff, %rbx   # imm = 0xFFFFFFFFFFFF
movq 0x5ba15(%rip), %rax     # 0x64aa8
movq 0x28(%rax), %rdi
movq 0x30(%rax), %r12
shlq $0x17, %rdi
sarq $0x17, %rdi
addq 0x603fe(%rip), %rdi     # 0x694a8
callq 0x88f7
movq 0x5b9f2(%rip), %rax     # 0x64aa8
movq (%rax), %rax
movq %r12, 0x18(%rax)
movl $0x30, %ecx
subq %r14, %rcx
movl $0x2f, %eax
subq %r15, %rax
cmpq %rax, %rcx
jg 0x91ca
subq %r15, %r14
leaq 0x1(%r14), %rax
andq $-0x2, %rax
movq %rcx, %xmm0
pshufd $0x44, %xmm0, %xmm3     # xmm3 = xmm0[0,1,0,1]
paddq 0x12f1d(%rip), %xmm3    # 0x1c010
decq %r14
movq %r14, %xmm0
pshufd $0x44, %xmm0, %xmm2     # xmm2 = xmm0[0,1,0,1]
xorpd %xmm1, %xmm1
movl $0x2, %ecx
movdqa 0x12f0f(%rip), %xmm4    # 0x1c020
movdqa 0x12f17(%rip), %xmm5    # 0x1c030
movdqa 0x12f2f(%rip), %xmm6    # 0x1c050
movapd %xmm1, %xmm0
movdqa %xmm4, %xmm1
psubq %xmm3, %xmm1
movdqa %xmm5, %xmm7
psllq %xmm1, %xmm7
pshufd $0xee, %xmm1, %xmm8     # xmm8 = xmm1[2,3,2,3]
movdqa %xmm5, %xmm1
psllq %xmm8, %xmm1
movsd %xmm7, %xmm1            # xmm1 = xmm7[0],xmm1[1]
orpd %xmm0, %xmm1
paddq %xmm6, %xmm3
leaq (%rax,%rcx), %rdx
addq $-0x2, %rdx
addq $-0x2, %rcx
cmpq $0x2, %rdx
jne 0x9121
negq %rcx
movq %rcx, %xmm3
pshufd $0x44, %xmm3, %xmm3     # xmm3 = xmm3[0,1,0,1]
por 0x12e99(%rip), %xmm3    # 0x1c010
movdqa 0x12ee1(%rip), %xmm4    # 0x1c060
pxor %xmm4, %xmm2
pxor %xmm4, %xmm3
movdqa %xmm3, %xmm4
pcmpgtd %xmm2, %xmm4
pshufd $0xa0, %xmm4, %xmm5     # xmm5 = xmm4[0,0,2,2]
pcmpeqd %xmm2, %xmm3
pshufd $0xf5, %xmm3, %xmm2     # xmm2 = xmm3[1,1,3,3]
pand %xmm5, %xmm2
pshufd $0xf5, %xmm4, %xmm3     # xmm3 = xmm4[1,1,3,3]
por %xmm2, %xmm3
pand %xmm3, %xmm0
pandn %xmm1, %xmm3
por %xmm0, %xmm3
pshufd $0xee, %xmm3, %xmm0     # xmm0 = xmm3[2,3,2,3]
por %xmm3, %xmm0
movq %xmm0, %rax
notq %rax
andq %rax, %rbx
movq %rbx, 0x5b85f(%rip)     # 0x64a30
callq 0x5ff3
movq %rax, %rbx
movl $0x1000016, %edi        # imm = 0x1000016
callq 0x88f7
movq 0x5b8be(%rip), %rax     # 0x64aa8
movq (%rax), %rax
movq %rbx, 0x18(%rax)
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq