2019-06-16 13:06:41 +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.
|
|
|
|
|
2019-07-17 20:26:03 +02:00
|
|
|
#include <pc/console.h>
|
2019-06-16 13:06:41 +02:00
|
|
|
#include <in/instrs.h>
|
2019-06-23 12:40:18 +02:00
|
|
|
#include <sys/time.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <time.h>
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-09-08 19:04:07 +02:00
|
|
|
IMPL_START(nop, 0) { return 0; }
|
|
|
|
IMPL_START(nop, 1) { return 0; }
|
|
|
|
IMPL_START(nop, 2) { return 0; }
|
|
|
|
IMPL_START(nop, 3) { return 0; }
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(pause, 0) { usleep(5000); return 0; }
|
|
|
|
IMPL_START(udf, 0) { _except(E_UDF, "UDF instruction"); }
|
2019-06-23 12:40:18 +02:00
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(break, 0)
|
2019-06-23 12:40:18 +02:00
|
|
|
{
|
2019-07-17 22:25:50 +02:00
|
|
|
#ifndef NDEBUG
|
2019-07-17 20:26:03 +02:00
|
|
|
trace("\nExecuting BREAK INSTR\n");
|
2019-08-03 19:01:12 +02:00
|
|
|
dumpregs();
|
2019-07-17 20:26:03 +02:00
|
|
|
|
2019-08-03 19:01:12 +02:00
|
|
|
do_hlt();
|
2019-07-17 20:26:03 +02:00
|
|
|
|
|
|
|
trace("Resuming execution\n");
|
2019-07-17 22:25:50 +02:00
|
|
|
#endif
|
2019-07-24 16:52:26 +02:00
|
|
|
return 0;
|
2019-06-23 12:40:18 +02:00
|
|
|
}
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(dump, 0)
|
2019-06-23 12:40:18 +02:00
|
|
|
{
|
2019-07-17 20:26:03 +02:00
|
|
|
#ifndef NDEBUG
|
2019-07-17 22:40:13 +02:00
|
|
|
if (ctx->dumpsw)
|
2019-07-24 16:52:26 +02:00
|
|
|
trace("0x%lX:\t...\n", ctx->cur_pc);
|
2019-07-17 20:26:03 +02:00
|
|
|
|
2019-07-17 22:40:13 +02:00
|
|
|
else if (!ctx->dumpsw)
|
2019-08-14 20:23:05 +02:00
|
|
|
dump_instr(ctx->cur_in, p1, p2, p3);
|
2019-07-17 20:26:03 +02:00
|
|
|
|
2019-07-17 22:40:13 +02:00
|
|
|
ctx->dumpsw = !ctx->dumpsw;
|
2019-07-17 20:26:03 +02:00
|
|
|
#endif
|
2019-07-24 16:52:26 +02:00
|
|
|
return 0;
|
2019-06-23 12:40:18 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-08-14 20:23:05 +02:00
|
|
|
IMPL_START(ytime, 0)
|
2019-07-11 18:34:21 +02:00
|
|
|
{
|
|
|
|
time_t t = time(NULL);
|
|
|
|
struct tm *tm = localtime(&t);
|
|
|
|
|
2019-09-08 19:04:07 +02:00
|
|
|
R(EAX) = tm->tm_sec + tm->tm_min * 60
|
2019-08-14 20:23:05 +02:00
|
|
|
+ tm->tm_hour * 60 * 60
|
|
|
|
+ tm->tm_mday * 60 * 60 * 24;
|
2019-07-11 18:34:21 +02:00
|
|
|
|
2019-09-08 19:04:07 +02:00
|
|
|
R(EBX) = tm->tm_mon;
|
|
|
|
R(ECX) = tm->tm_year + 1900;
|
2019-07-24 16:52:26 +02:00
|
|
|
|
2019-08-14 20:23:05 +02:00
|
|
|
return 0;
|
2019-07-11 18:34:21 +02:00
|
|
|
}
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(utime, 1)
|
2019-06-23 12:40:18 +02:00
|
|
|
{
|
|
|
|
struct timeval time;
|
|
|
|
gettimeofday(&time, NULL);
|
2019-07-24 16:52:26 +02:00
|
|
|
*r1 = (time.tv_sec * 1000) + (time.tv_usec / 1000);
|
|
|
|
|
|
|
|
return 1;
|
2019-06-23 12:40:18 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(cls, 0)
|
2019-07-24 16:52:26 +02:00
|
|
|
{
|
2019-09-08 19:04:07 +02:00
|
|
|
for (int i = EAX; i <= NX8; i++) R(i) = 0;
|
2019-07-24 16:52:26 +02:00
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
2019-07-10 17:17:45 +02:00
|
|
|
|
2019-06-16 13:28:21 +02:00
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(bswap, 2)
|
2019-06-16 13:06:41 +02:00
|
|
|
{
|
2019-08-03 17:41:44 +02:00
|
|
|
SRCP(p2);
|
|
|
|
|
2019-07-24 16:52:26 +02:00
|
|
|
ulong v = p2->val;
|
|
|
|
|
|
|
|
*r1 = ((v & 0xFF00000000000000) >> 56)
|
|
|
|
| ((v & 0x00FF000000000000) >> 40)
|
|
|
|
| ((v & 0x0000FF0000000000) >> 24)
|
|
|
|
| ((v & 0x000000FF00000000) >> 8)
|
|
|
|
| ((v & 0x00000000FF000000) << 8)
|
|
|
|
| ((v & 0x0000000000FF0000) << 24)
|
|
|
|
| ((v & 0x000000000000FF00) << 40)
|
|
|
|
| ((v & 0x00000000000000FF) << 56);
|
|
|
|
|
|
|
|
return 1;
|
2019-06-16 13:06:41 +02:00
|
|
|
}
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(wswap, 2)
|
2019-06-16 13:06:41 +02:00
|
|
|
{
|
2019-08-03 17:41:44 +02:00
|
|
|
SRCP(p2);
|
|
|
|
|
2019-07-24 16:52:26 +02:00
|
|
|
ulong v = p2->val;
|
|
|
|
|
|
|
|
*r1 = ((v & 0xFFFF000000000000) >> 48)
|
|
|
|
| ((v & 0x0000FFFF00000000) >> 16)
|
|
|
|
| ((v & 0x00000000FFFF0000) << 16)
|
|
|
|
| ((v & 0x000000000000FFFF) << 48);
|
|
|
|
|
|
|
|
return 1;
|
2019-06-16 13:06:41 +02:00
|
|
|
}
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(dswap, 2)
|
2019-06-16 13:06:41 +02:00
|
|
|
{
|
2019-08-03 17:41:44 +02:00
|
|
|
SRCP(p2);
|
|
|
|
|
2019-07-24 16:52:26 +02:00
|
|
|
*r1 = ((p2->val & 0xFFFFFFFF00000000) >> 32)
|
|
|
|
| ((p2->val & 0x00000000FFFFFFFF) << 32);
|
|
|
|
|
|
|
|
return 1;
|
2019-06-16 13:06:41 +02:00
|
|
|
}
|
2019-06-16 13:28:21 +02:00
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-08-06 22:47:39 +02:00
|
|
|
#define PRN_MAGIC_MASK 0x8BF00000
|
2019-07-24 16:52:26 +02:00
|
|
|
#define PRN_CLEAR_MAGIC 0x8BF00001
|
2019-08-06 22:47:39 +02:00
|
|
|
#define PRN_FLUSH_MAGIC 0x8BF00002
|
2019-07-24 16:52:26 +02:00
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(prn, 1)
|
2019-07-17 20:26:03 +02:00
|
|
|
{
|
2019-08-03 17:41:44 +02:00
|
|
|
SRCP(p1);
|
|
|
|
|
2019-07-24 16:52:26 +02:00
|
|
|
ulong v = p1->val;
|
2019-07-17 22:25:50 +02:00
|
|
|
|
2019-07-17 20:26:03 +02:00
|
|
|
// Magic value? :)
|
2019-08-06 22:47:39 +02:00
|
|
|
if (__builtin_expect((v & PRN_MAGIC_MASK) > 0, 0))
|
|
|
|
{
|
|
|
|
switch (v)
|
|
|
|
{
|
|
|
|
case PRN_CLEAR_MAGIC:
|
|
|
|
console_clear();
|
|
|
|
break;
|
|
|
|
|
|
|
|
case PRN_FLUSH_MAGIC:
|
|
|
|
console_flushkeybuf();
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
2019-08-14 20:23:05 +02:00
|
|
|
trace("PRN bad magic: %lx\n", v);
|
|
|
|
die(1);
|
2019-08-06 22:47:39 +02:00
|
|
|
_except(E_ILL, "Bad PRN magic");
|
|
|
|
}
|
|
|
|
}
|
2019-07-17 20:26:03 +02:00
|
|
|
|
2019-07-24 16:52:26 +02:00
|
|
|
else if (v > 0)
|
2019-08-03 19:01:12 +02:00
|
|
|
console_putc((char)v);
|
2019-07-24 16:52:26 +02:00
|
|
|
|
|
|
|
return 0;
|
2019-07-17 20:26:03 +02:00
|
|
|
}
|
|
|
|
|
2019-08-08 18:39:12 +02:00
|
|
|
IMPL_START(scan, 1)
|
2019-07-17 20:26:03 +02:00
|
|
|
{
|
2019-08-03 19:01:12 +02:00
|
|
|
*r1 = console_scankeybuf();
|
2019-07-24 16:52:26 +02:00
|
|
|
|
|
|
|
return 1;
|
2019-07-17 20:26:03 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|