384 lines
6.4 KiB
C
384 lines
6.4 KiB
C
|
/*
|
||
|
|
* Sources of the "CONVERT" group instructions
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
#include <em_abs.h>
|
||
|
|
#include "nofloat.h"
|
||
|
|
#include "global.h"
|
||
|
|
#include "log.h"
|
||
|
|
#include "mem.h"
|
||
|
|
#include "trap.h"
|
||
|
|
#include "text.h"
|
||
|
|
#include "fra.h"
|
||
|
|
#include "warn.h"
|
||
|
|
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
extern double fpop();
|
||
|
|
#endif NOFLOAT
|
||
|
|
|
||
|
|
DoCIIz()
|
||
|
|
{
|
||
|
|
/* CII -: Convert integer to integer (*) */
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
register long s;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCIIz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 12:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
npush(spop(1L), 2L);
|
||
|
|
return;
|
||
|
|
case 14:
|
||
|
|
npush(spop(1L), 4L);
|
||
|
|
return;
|
||
|
|
case 22:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
case 24:
|
||
|
|
npush(spop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
s = spop(4L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (s < I_MINS2 || s > I_MAXS2)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush(s, 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCUIz()
|
||
|
|
{
|
||
|
|
/* CUI -: Convert unsigned to integer (*) */
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
register unsigned long u;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCUIz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 22:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
u = upop(2L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (u > I_MAXS2)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) u, 2L);
|
||
|
|
return;
|
||
|
|
case 24:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
npush((long) upop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
u = upop(4L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (u > I_MAXS2)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) u, 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
u = upop(4L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (u > I_MAXS4)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) u, 4L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCFIz()
|
||
|
|
{
|
||
|
|
/* CFI -: Convert floating to integer (*) */
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
double f;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCFIz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
f = fpop(4L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (f <= (FL_MINS2 - 1.0) || f > FL_MAXS2)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) f, 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
f = fpop(4L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (f <= (FL_MINS4 - 1.0) || f > FL_MAXS4)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) f, 4L);
|
||
|
|
return;
|
||
|
|
case 82:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
f = fpop(8L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (f <= (FL_MINS2 - 1.0) || f > FL_MAXS2)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) f, 2L);
|
||
|
|
return;
|
||
|
|
case 84:
|
||
|
|
f = fpop(8L);
|
||
|
|
if (must_test && !(IgnMask&BIT(ECONV))) {
|
||
|
|
if (f <= (FL_MINS4 - 1.0) || f > FL_MAXS4)
|
||
|
|
trap(ECONV);
|
||
|
|
}
|
||
|
|
npush((long) f, 4L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
#else NOFLOAT
|
||
|
|
nofloat();
|
||
|
|
#endif NOFLOAT
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCIFz()
|
||
|
|
{
|
||
|
|
/* CIF -: Convert integer to floating (*) */
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
|
||
|
|
LOG(("@C6 DoCIFz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 24:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
fpush((double) spop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 28:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
fpush((double) spop(2L), 8L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
fpush((double) spop(4L), 4L);
|
||
|
|
return;
|
||
|
|
case 48:
|
||
|
|
fpush((double) spop(4L), 8L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
#else NOFLOAT
|
||
|
|
nofloat();
|
||
|
|
#endif NOFLOAT
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCUFz()
|
||
|
|
{
|
||
|
|
/* CUF -: Convert unsigned to floating (*) */
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
register unsigned long u;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCUFz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 24:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
fpush((double) upop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 28:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
fpush((double) upop(2L), 8L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
if ((u = upop(4L)) > I_MAXS4) {
|
||
|
|
u -= I_MAXS4;
|
||
|
|
u -= 1;
|
||
|
|
fpush(((double) u) - (double)(-I_MAXS4-1), 4L);
|
||
|
|
}
|
||
|
|
else fpush((double) u, 4L);
|
||
|
|
return;
|
||
|
|
case 48:
|
||
|
|
if ((u = upop(4L)) > I_MAXS4) {
|
||
|
|
u -= I_MAXS4;
|
||
|
|
u -= 1;
|
||
|
|
fpush(((double) u) - (double)(-I_MAXS4-1), 8L);
|
||
|
|
}
|
||
|
|
else fpush((double) u, 8L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
#else NOFLOAT
|
||
|
|
nofloat();
|
||
|
|
#endif NOFLOAT
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCFFz()
|
||
|
|
{
|
||
|
|
/* CFF -: Convert floating to floating (*) */
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
|
||
|
|
LOG(("@C6 DoCFFz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 44:
|
||
|
|
return;
|
||
|
|
case 48:
|
||
|
|
fpush(fpop(4L), 8L);
|
||
|
|
return;
|
||
|
|
case 88:
|
||
|
|
return;
|
||
|
|
case 84:
|
||
|
|
fpush(fpop(8L), 4L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
#else NOFLOAT
|
||
|
|
nofloat();
|
||
|
|
#endif NOFLOAT
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCIUz()
|
||
|
|
{
|
||
|
|
/* CIU -: Convert integer to unsigned */
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
register long u;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCIUz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 22:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
case 24:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
npush((long) upop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
u = upop(4L);
|
||
|
|
npush(u, 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCUUz()
|
||
|
|
{
|
||
|
|
/* CUU -: Convert unsigned to unsigned */
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
|
||
|
|
LOG(("@C6 DoCUUz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 22:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
case 24:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
npush((long) upop(2L), 4L);
|
||
|
|
return;
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
npush((long) upop(4L), 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
DoCFUz()
|
||
|
|
{
|
||
|
|
/* CFU -: Convert floating to unsigned */
|
||
|
|
#ifndef NOFLOAT
|
||
|
|
register int newsize = spop(wsize);
|
||
|
|
double f;
|
||
|
|
|
||
|
|
LOG(("@C6 DoCFUz()"));
|
||
|
|
spoilFRA();
|
||
|
|
switch ((int)(10 * spop(wsize) + newsize)) {
|
||
|
|
case 42:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
f = fpop(4L);
|
||
|
|
npush((long) f, 2L);
|
||
|
|
return;
|
||
|
|
case 44:
|
||
|
|
f = fpop(4L);
|
||
|
|
npush((long) f, 4L);
|
||
|
|
return;
|
||
|
|
case 82:
|
||
|
|
if (wsize == 4) {
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
f = fpop(8L);
|
||
|
|
npush((long) f, 2L);
|
||
|
|
return;
|
||
|
|
case 84:
|
||
|
|
f = fpop(8L);
|
||
|
|
npush((long) f, 4L);
|
||
|
|
return;
|
||
|
|
default:
|
||
|
|
wtrap(WILLCONV, EILLINS);
|
||
|
|
}
|
||
|
|
#else NOFLOAT
|
||
|
|
nofloat();
|
||
|
|
#endif NOFLOAT
|
||
|
|
}
|