kvisc/pc/instrs/instrs.c

// The OS/K Team licences this file to you under the MIT license.
// See the LICENSE file in the project root for more information.

#include "instrs.h"
#include "arch_i.h"

#define _NEED_ARCH_I
#include "arch_i.h"

IMPL_START_0(nop)
{
}
IMPL_END;

//
// Movement instructions
//

IMPL_START_2(mov)
{
    v1 = v2;
}
IMPL_OUT;

IMPL_START_2(xchg)
{
    ulong t = v1;
    v1 = v2;
    v2 = t;
}
IMPL_OUT;

IMPL_START_1(lea)
{
    if (!p2->mem) {
        _except(ctx, E_ILL, "Bad LEA format");
    }
    
    v1 = (p2->type == A_REG ? ctx->r[p2->val].val : p2->val) + p2->off;
}
IMPL_OUT;

IMPL_START_1(gcs)
{
    v1 = ctx->r[CR1].val;
}
IMPL_OUT;

//
// Misc. instructions
//

IMPL_START_1(prn)
{
    if (p1->mlen > 1) {
        log("prn warning: large access size\n");
    }

    if (!(v1 >= ' ' && v1 < 128) && v1 != '\t') {
        if (v1 == '\n') {
            log("prn on newline character\n");
        }
        else
            log("prn on invalid character: %ld\n", v1);
    }

    else {
        log("prn instruction with character: '%c'\n", (char)v1);
    }
}
IMPL_END;