mirror of
https://gitlab.os-k.eu/os-k-team/kvisc.git
synced 2023-08-25 14:05:46 +02:00
116 lines
2.3 KiB
C
116 lines
2.3 KiB
C
// 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>
|
|
#include <sys/time.h>
|
|
#include <unistd.h>
|
|
#include <time.h>
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_0(nop)
|
|
{
|
|
}
|
|
IMPL_END;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_0(pause)
|
|
{
|
|
usleep(5000);
|
|
}
|
|
IMPL_END;
|
|
|
|
IMPL_START_0(xpause)
|
|
{
|
|
CHK_SUPERV();
|
|
usleep(25000);
|
|
}
|
|
IMPL_END;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_0(cpuid)
|
|
{
|
|
rax = rdx = 0;
|
|
}
|
|
IMPL_END;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_1(time)
|
|
{
|
|
v1 = time(NULL);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_1(utime)
|
|
{
|
|
struct timeval time;
|
|
gettimeofday(&time, NULL);
|
|
v1 = (time.tv_sec * 1000) + (time.tv_usec / 1000);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_0(cls)
|
|
{
|
|
rax = rbx = rcx = rdx = rdi = rsi = 0;
|
|
for (int i = RX8; i <= N15; i++) R(i) = 0;
|
|
}
|
|
IMPL_END;
|
|
|
|
IMPL_START_0(clr)
|
|
{
|
|
rax = rbx = rcx = rdx = rdi = rsi = 0;
|
|
for (int i = RX8; i <= R15; i++) R(i) = 0;
|
|
}
|
|
IMPL_END;
|
|
|
|
IMPL_START_0(cla)
|
|
{
|
|
for (int i = AX0; i <= A15; i++) R(i) = 0;
|
|
}
|
|
IMPL_END;
|
|
|
|
IMPL_START_0(cln)
|
|
{
|
|
for (int i = NX0; i <= N15; i++) R(i) = 0;
|
|
}
|
|
IMPL_END;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_2(bswap)
|
|
{
|
|
v1 = ((v2 & 0xFF00000000000000) >> 56)
|
|
| ((v2 & 0x00FF000000000000) >> 40)
|
|
| ((v2 & 0x0000FF0000000000) >> 24)
|
|
| ((v2 & 0x000000FF00000000) >> 8)
|
|
| ((v2 & 0x00000000FF000000) << 8)
|
|
| ((v2 & 0x0000000000FF0000) << 24)
|
|
| ((v2 & 0x000000000000FF00) << 40)
|
|
| ((v2 & 0x00000000000000FF) << 56);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_2(wswap)
|
|
{
|
|
v1 = ((v2 & 0xFFFF000000000000) >> 48)
|
|
| ((v2 & 0x0000FFFF00000000) >> 16)
|
|
| ((v2 & 0x00000000FFFF0000) << 16)
|
|
| ((v2 & 0x000000000000FFFF) << 48);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_2(dswap)
|
|
{
|
|
v1 = ((v2 & 0xFFFFFFFF00000000) >> 32)
|
|
| ((v2 & 0x00000000FFFFFFFF) << 32);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|