Archipelago » qemu

#include <stdlib.h>

#include <stdio.h>

#include <math.h>

#define xglue(x, y) x ## y

#define glue(x, y) xglue(x, y)

#define stringify(s)        tostring(s)

#define tostring(s)        #s

#define CC_C           0x0001

#define CC_P         0x0004

#define CC_A        0x0010

#define CC_Z        0x0040

#define CC_S    0x0080

#define CC_O    0x0800

#define __init_call        __attribute__ ((unused,__section__ (".initcall.init")))

static void *call_start __init_call = NULL;

#define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O | CC_A)

#define OP add

#include "test-i386.h"

#define OP sub

#include "test-i386.h"

#define OP xor

#include "test-i386.h"

#define OP and

#include "test-i386.h"

#define OP or

#include "test-i386.h"

#define OP cmp

#include "test-i386.h"

#define OP adc

#define OP_CC

#include "test-i386.h"

#define OP sbb

#define OP_CC

#include "test-i386.h"

#define OP inc

#define OP_CC

#define OP1

#include "test-i386.h"

#define OP dec

#define OP_CC

#define OP1

#include "test-i386.h"

#define OP neg

#define OP_CC

#define OP1

#include "test-i386.h"

#define OP not

#define OP_CC

#define OP1

#include "test-i386.h"

#undef CC_MASK

#define CC_MASK (CC_C | CC_P | CC_Z | CC_S | CC_O)

#define OP shl

#include "test-i386-shift.h"

#define OP shr

#include "test-i386-shift.h"

#define OP sar

#include "test-i386-shift.h"

#define OP rol

#include "test-i386-shift.h"

#define OP ror

#include "test-i386-shift.h"

#define OP rcr

#define OP_CC

#include "test-i386-shift.h"

#define OP rcl

#define OP_CC

#include "test-i386-shift.h"

/* lea test (modrm support) */

#define TEST_LEA(STR)\

{\

    asm("leal " STR ", %0"\

        : "=r" (res)\

        : "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\

    printf("lea %s = %08x\n", STR, res);\

}

#define TEST_LEA16(STR)\

{\

    asm(".code16 ; .byte 0x67 ; leal " STR ", %0 ; .code32"\

        : "=wq" (res)\

        : "a" (eax), "b" (ebx), "c" (ecx), "d" (edx), "S" (esi), "D" (edi));\

    printf("lea %s = %08x\n", STR, res);\

}

void test_lea(void)

{

    int eax, ebx, ecx, edx, esi, edi, res;

    eax = 0x0001;

    ebx = 0x0002;

    ecx = 0x0004;

    edx = 0x0008;

    esi = 0x0010;

    edi = 0x0020;

    TEST_LEA("0x4000");

    TEST_LEA("(%%eax)");

    TEST_LEA("(%%ebx)");

    TEST_LEA("(%%ecx)");

    TEST_LEA("(%%edx)");

    TEST_LEA("(%%esi)");

    TEST_LEA("(%%edi)");

    TEST_LEA("0x40(%%eax)");

    TEST_LEA("0x40(%%ebx)");

    TEST_LEA("0x40(%%ecx)");

    TEST_LEA("0x40(%%edx)");

    TEST_LEA("0x40(%%esi)");

    TEST_LEA("0x40(%%edi)");

    TEST_LEA("0x4000(%%eax)");

    TEST_LEA("0x4000(%%ebx)");

    TEST_LEA("0x4000(%%ecx)");

    TEST_LEA("0x4000(%%edx)");

    TEST_LEA("0x4000(%%esi)");

    TEST_LEA("0x4000(%%edi)");

    TEST_LEA("(%%eax, %%ecx)");

    TEST_LEA("(%%ebx, %%edx)");

    TEST_LEA("(%%ecx, %%ecx)");

    TEST_LEA("(%%edx, %%ecx)");

    TEST_LEA("(%%esi, %%ecx)");

    TEST_LEA("(%%edi, %%ecx)");

    TEST_LEA("0x40(%%eax, %%ecx)");

    TEST_LEA("0x4000(%%ebx, %%edx)");

    TEST_LEA("(%%ecx, %%ecx, 2)");

    TEST_LEA("(%%edx, %%ecx, 4)");

    TEST_LEA("(%%esi, %%ecx, 8)");

    TEST_LEA("(,%%eax, 2)");

    TEST_LEA("(,%%ebx, 4)");

    TEST_LEA("(,%%ecx, 8)");

    TEST_LEA("0x40(,%%eax, 2)");

    TEST_LEA("0x40(,%%ebx, 4)");

    TEST_LEA("0x40(,%%ecx, 8)");

    TEST_LEA("-10(%%ecx, %%ecx, 2)");

    TEST_LEA("-10(%%edx, %%ecx, 4)");

    TEST_LEA("-10(%%esi, %%ecx, 8)");

    TEST_LEA("0x4000(%%ecx, %%ecx, 2)");

    TEST_LEA("0x4000(%%edx, %%ecx, 4)");

    TEST_LEA("0x4000(%%esi, %%ecx, 8)");

    /* limited 16 bit addressing test */

    TEST_LEA16("0x4000");

    TEST_LEA16("(%%bx)");

    TEST_LEA16("(%%si)");

    TEST_LEA16("(%%di)");

    TEST_LEA16("0x40(%%bx)");

    TEST_LEA16("0x40(%%si)");

    TEST_LEA16("0x40(%%di)");

    TEST_LEA16("0x4000(%%bx)");

    TEST_LEA16("0x4000(%%si)");

    TEST_LEA16("(%%bx,%%si)");

    TEST_LEA16("(%%bx,%%di)");

    TEST_LEA16("0x40(%%bx,%%si)");

    TEST_LEA16("0x40(%%bx,%%di)");

    TEST_LEA16("0x4000(%%bx,%%si)");

    TEST_LEA16("0x4000(%%bx,%%di)");

}

#define TEST_JCC(JCC, v1, v2)\

{\

    asm("movl $1, %0\n\t"\

        "cmpl %2, %1\n\t"\

        JCC " 1f\n\t"\

        "movl $0, %0\n\t"\

        "1:\n\t"\

        : "=r" (res)\

        : "r" (v1), "r" (v2));\

    printf("%-10s %d\n", JCC, res);\

}

/* various jump tests */

void test_jcc(void)

{

    int res;

    TEST_JCC("jne", 1, 1);

    TEST_JCC("jne", 1, 0);

    TEST_JCC("je", 1, 1);

    TEST_JCC("je", 1, 0);

    TEST_JCC("jl", 1, 1);

    TEST_JCC("jl", 1, 0);

    TEST_JCC("jl", 1, -1);

    TEST_JCC("jle", 1, 1);

    TEST_JCC("jle", 1, 0);

    TEST_JCC("jle", 1, -1);

    TEST_JCC("jge", 1, 1);

    TEST_JCC("jge", 1, 0);

    TEST_JCC("jge", -1, 1);

    TEST_JCC("jg", 1, 1);

    TEST_JCC("jg", 1, 0);

    TEST_JCC("jg", 1, -1);

    TEST_JCC("jb", 1, 1);

    TEST_JCC("jb", 1, 0);

    TEST_JCC("jb", 1, -1);

    TEST_JCC("jbe", 1, 1);

    TEST_JCC("jbe", 1, 0);

    TEST_JCC("jbe", 1, -1);

    TEST_JCC("jae", 1, 1);

    TEST_JCC("jae", 1, 0);

    TEST_JCC("jae", 1, -1);

    TEST_JCC("ja", 1, 1);

    TEST_JCC("ja", 1, 0);

    TEST_JCC("ja", 1, -1);

    TEST_JCC("jp", 1, 1);

    TEST_JCC("jp", 1, 0);

    TEST_JCC("jnp", 1, 1);

    TEST_JCC("jnp", 1, 0);

    TEST_JCC("jo", 0x7fffffff, 0);

    TEST_JCC("jo", 0x7fffffff, -1);

    TEST_JCC("jno", 0x7fffffff, 0);

    TEST_JCC("jno", 0x7fffffff, -1);

    TEST_JCC("js", 0, 1);

    TEST_JCC("js", 0, -1);

    TEST_JCC("js", 0, 0);

    TEST_JCC("jns", 0, 1);

    TEST_JCC("jns", 0, -1);

    TEST_JCC("jns", 0, 0);

}

#undef CC_MASK

#define CC_MASK (CC_O | CC_C)

#define OP mul

#include "test-i386-muldiv.h"

#define OP imul

#include "test-i386-muldiv.h"

#undef CC_MASK

#define CC_MASK (0)

#define OP div

#include "test-i386-muldiv.h"

#define OP idiv

#include "test-i386-muldiv.h"

void test_imulw2(int op0, int op1) 

{

    int res, s1, s0, flags;

    s0 = op0;

    s1 = op1;

    res = s0;

    flags = 0;

    asm ("push %4\n\t"

         "popf\n\t"

         "imulw %w2, %w0\n\t" 

         "pushf\n\t"

         "popl %1\n\t"

         : "=q" (res), "=g" (flags)

         : "q" (s1), "0" (res), "1" (flags));

    printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n",

           "imulw", s0, s1, res, flags & CC_MASK);

}

void test_imull2(int op0, int op1) 

{

    int res, s1, s0, flags;

    s0 = op0;

    s1 = op1;

    res = s0;

    flags = 0;

    asm ("push %4\n\t"

         "popf\n\t"

         "imull %2, %0\n\t" 

         "pushf\n\t"

         "popl %1\n\t"

         : "=q" (res), "=g" (flags)

         : "q" (s1), "0" (res), "1" (flags));

    printf("%-10s A=%08x B=%08x R=%08x CC=%04x\n",

           "imull", s0, s1, res, flags & CC_MASK);

}

void test_mul(void)

{

    test_imulb(0x1234561d, 4);

    test_imulb(3, -4);

    test_imulb(0x80, 0x80);

    test_imulb(0x10, 0x10);

    test_imulw(0, 0x1234001d, 45);

    test_imulw(0, 23, -45);

    test_imulw(0, 0x8000, 0x8000);

    test_imulw(0, 0x100, 0x100);

    test_imull(0, 0x1234001d, 45);

    test_imull(0, 23, -45);

    test_imull(0, 0x80000000, 0x80000000);

    test_imull(0, 0x10000, 0x10000);

    test_mulb(0x1234561d, 4);

    test_mulb(3, -4);

    test_mulb(0x80, 0x80);

    test_mulb(0x10, 0x10);

    test_mulw(0, 0x1234001d, 45);

    test_mulw(0, 23, -45);

    test_mulw(0, 0x8000, 0x8000);

    test_mulw(0, 0x100, 0x100);

    test_mull(0, 0x1234001d, 45);

    test_mull(0, 23, -45);

    test_mull(0, 0x80000000, 0x80000000);

    test_mull(0, 0x10000, 0x10000);

    test_imulw2(0x1234001d, 45);

    test_imulw2(23, -45);

    test_imulw2(0x8000, 0x8000);

    test_imulw2(0x100, 0x100);

    test_imull2(0x1234001d, 45);

    test_imull2(23, -45);

    test_imull2(0x80000000, 0x80000000);

    test_imull2(0x10000, 0x10000);

    test_idivb(0x12341678, 0x127e);

    test_idivb(0x43210123, -5);

    test_idivb(0x12340004, -1);

    test_idivw(0, 0x12345678, 12347);

    test_idivw(0, -23223, -45);

    test_idivw(0, 0x12348000, -1);

    test_idivw(0x12343, 0x12345678, 0x81238567);

    test_idivl(0, 0x12345678, 12347);

    test_idivl(0, -233223, -45);

    test_idivl(0, 0x80000000, -1);

    test_idivl(0x12343, 0x12345678, 0x81234567);

    test_divb(0x12341678, 0x127e);

    test_divb(0x43210123, -5);

    test_divb(0x12340004, -1);

    test_divw(0, 0x12345678, 12347);

    test_divw(0, -23223, -45);

    test_divw(0, 0x12348000, -1);

    test_divw(0x12343, 0x12345678, 0x81238567);

    test_divl(0, 0x12345678, 12347);

    test_divl(0, -233223, -45);

    test_divl(0, 0x80000000, -1);

    test_divl(0x12343, 0x12345678, 0x81234567);

}

static void *call_end __init_call = NULL;

int main(int argc, char **argv)

{

    void **ptr;

    void (*func)(void);

    test_mul();

#if 0

    ptr = &call_start + 1;

    while (*ptr != NULL) {

        func = *ptr++;

        func();

    }

    test_jcc();

    test_lea();

#endif

    return 0;

}