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

36 lines
558 B
C
Raw Normal View History

2019-05-30 12:44:56 +02:00
// The OS/K Team licenses this file to you under the MIT license.
2019-05-29 16:57:22 +02:00
// 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;
//
// Misc. instructions
//
IMPL_START_1(prn)
{
if (p1->mlen > 1) {
log("prn warning: large access size\n");
}
2019-05-30 21:46:00 +02:00
/*
2019-05-30 11:32:00 +02:00
if (!(v1 >= ' ' && v1 < 128) && v1 != '\t' && v1 != '\n') {
log("prn on invalid character: %ld\n", v1);
2019-05-30 21:46:00 +02:00
return;
2019-05-29 16:57:22 +02:00
}
2019-05-30 21:46:00 +02:00
*/
2019-05-29 16:57:22 +02:00
2019-05-30 21:46:00 +02:00
putchar((int)v1);
2019-05-29 16:57:22 +02:00
}
IMPL_END;