1
0
mirror of https://gitlab.os-k.eu/os-k-team/kvisc.git synced 2023-08-25 14:05:46 +02:00
kvisc/vm/in/string.c

48 lines
1.5 KiB
C
Raw Normal View History

2019-06-13 15:32:24 +02:00
// The OS/K Team licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
#include <in/instrs.h>
//----------------------------------------------------------------------------//
2019-06-13 16:27:33 +02:00
#define STR_MOVE(reg, len) \
2019-07-17 22:25:50 +02:00
if (!(R(RFX) & DF)) R(reg) += len; \
2019-07-17 20:26:03 +02:00
else R(reg) -= len;
2019-06-13 16:27:33 +02:00
//----------------------------------------------------------------------------//
2019-06-16 19:42:10 +02:00
static void stos_impl(ctx_t *ctx, acc_t *p1, acc_t *p2, uint len)
2019-06-13 16:27:33 +02:00
{
2019-07-24 16:52:26 +02:00
writemem(ctx, p2->val, R(p1->reg), len);
2019-06-17 20:59:30 +02:00
STR_MOVE(p1->reg, len);
2019-06-13 16:27:33 +02:00
}
2019-07-24 16:52:26 +02:00
IMPL_START(stosb) { stos_impl(ctx, p1, p2, 1); return 0; }
IMPL_START(stosw) { stos_impl(ctx, p1, p2, 2); return 0; }
IMPL_START(stosd) { stos_impl(ctx, p1, p2, 4); return 0; }
IMPL_START(stosq) { stos_impl(ctx, p1, p2, 8); return 0; }
2019-06-13 17:13:59 +02:00
2019-06-13 15:47:20 +02:00
//----------------------------------------------------------------------------//
2019-06-16 19:42:10 +02:00
static void scas_impl(ctx_t *ctx, acc_t *p1, acc_t *p2, uint len)
2019-06-13 22:20:35 +02:00
{
2019-07-24 16:52:26 +02:00
ulong x = readmemsx(ctx, R(p1->reg), len);
COMPARE_SUB(x, p2->val);
2019-06-13 22:20:35 +02:00
2019-06-17 20:59:30 +02:00
if (x == 0) {
2019-07-11 18:34:21 +02:00
R(RFX) |= ZF;
2019-06-13 22:20:35 +02:00
}
2019-07-11 18:34:21 +02:00
else if (!(R(RFX)&ZF)) {
2019-06-17 20:59:30 +02:00
STR_MOVE(p1->reg, len);
2019-06-13 22:20:35 +02:00
}
}
2019-07-24 16:52:26 +02:00
IMPL_START(scasb) { scas_impl(ctx, p1, p2, 1); return 0; }
IMPL_START(scasw) { scas_impl(ctx, p1, p2, 2); return 0; }
IMPL_START(scasd) { scas_impl(ctx, p1, p2, 4); return 0; }
IMPL_START(scasq) { scas_impl(ctx, p1, p2, 8); return 0; }
2019-06-13 15:32:24 +02:00
//----------------------------------------------------------------------------//