mirror of
https://gitlab.os-k.eu/os-k-team/kvisc.git
synced 2023-08-25 14:05:46 +02:00
71 lines
1.0 KiB
C
71 lines
1.0 KiB
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)
|
||
|
{
|
||
|
assert(p2->mem);
|
||
|
|
||
|
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;
|
||
|
|