Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

2026-01-27 04:12:51 +00:00 · 2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
--- a/src/lowlev2.c
+++ b/src/lowlev2.c
@@ -0,0 +1,137 @@
+/* $Id: lowlev2.c,v 1.3 1999/05/31 23:35:38 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
+static char *id = "$Id: lowlev2.c,v 1.3 1999/05/31 23:35:38 sybalsky Exp $ Copyright (C) Venue";
+
+
+
+
+/************************************************************************/
+/*									*/
+/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
+/*	Manufactured in the United States of America.			*/
+/*									*/
+/*	The contents of this file are proprietary information 		*/
+/*	belonging to Venue, and are provided to you under license.	*/
+/*	They may not be further distributed or disclosed to third	*/
+/*	parties without the specific permission of Venue.		*/
+/*									*/
+/************************************************************************/
+
+#include "version.h"
+
+
+
+
+#include <stdio.h>
+#include "lispemul.h"
+#include "lspglob.h"
+#include "adr68k.h"
+#include "lispmap.h"
+#include "lsptypes.h"
+#include "emlglob.h"
+
+/*** NOTE: these routines likely not called (see inlinedefsC.h) ***/
+
+/************************************************************
+ N_OP_addbase
+	entry		ADDBASE		OPCODE[0320]
+
+	1.	<<Enter>>
+		TopOfStack: offset
+		*(CurrentStackPTR): base address
+	2.	if High word of TopOfStack is SMALLPL or SMALLNEG,
+		then add base address and offset and set result to TopOfStack.
+		else call ufn2incs.
+	4.	<<Exit>>
+		return: new address
+
+***********************************************************/
+
+LispPTR N_OP_addbase(register int base, register int offset)
+{
+	base = POINTERMASK & base;
+	switch( (SEGMASK & offset) ){
+	case S_POSITIVE:
+		return(base + (offset & 0x0000FFFF));
+	case S_NEGATIVE:
+		return(base + (offset | 0xFFFF0000));
+	default:
+		switch( (GetTypeNumber(offset)) ){
+		case TYPE_FIXP:
+			/* overflow or underflow isn't check */
+			return(base + *(int *)Addr68k_from_LADDR(offset));
+		default:	/* floatp also */
+			ERROR_EXIT(offset);
+		}/* end switch */
+	}/* end switch */
+}
+
+/************************************************************
+ N_OP_getbasebyte
+	entry		GETBASEBYTE		OPCODE[0302]
+
+	1.	<<Enter>>
+		*(--CurrentStackPTR): base address.
+		TopOfStack:	Low word - byte offset.
+	2.	if high word of TopOfStack is not SMALLPL,
+		then	call ufn2incS.
+		else	fetch 8 bits word at (base address + byte offset).
+	4.	<<Exit>>
+		return:		Least Low Byte - fetched data
+
+***********************************************************/
+
+N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset)
+{
+	switch( (SEGMASK & byteoffset) ){
+	case S_POSITIVE:
+		byteoffset =  byteoffset & 0x0000FFFF;
+		break;
+	case S_NEGATIVE:
+		byteoffset = byteoffset | 0xFFFF0000;
+		break;
+	default:
+		switch( (GetTypeNumber(byteoffset)) ){
+		case TYPE_FIXP:
+			byteoffset = *((int *)Addr68k_from_LADDR(byteoffset));
+			break;
+		default:	/* floatp also fall thru */
+			ERROR_EXIT(byteoffset);
+			}/* end switch */
+		break;
+	}/* end switch */
+	return((0xFF & (GETBYTE((char*)Addr68k_from_LADDR((POINTERMASK & base_addr)) + byteoffset))) | S_POSITIVE);
+}
+
+/************************************************************
+ N_OP_putbasebyte
+	entry		PUTBASEBYTE		OPCODE[0307]
+
+	1.	<<Enter>>
+		TopOfStack:	Least Low Byte - replace data.
+		*((int *)(CurrentStackPTR-1)): byte offset.
+		*((int *)(CurrentStackPTR-2)): base address.
+	4.	<<Exit>>
+		return:		Least Low Byte - replace data ?
+
+***********************************************************/
+
+N_OP_putbasebyte(register LispPTR base_addr, register int byteoffset, register int tos)
+{
+	if(((SEGMASK & tos ) != S_POSITIVE) || ((unsigned short)tos >= 256))
+		ERROR_EXIT(tos);
+	switch( (SEGMASK & byteoffset) ){
+	case S_POSITIVE:
+		byteoffset &=  0x0000FFFF;
+		break;
+	case S_NEGATIVE:
+		byteoffset |=  0xFFFF0000;
+		break;
+	default:
+	/* ucode and ufn don't handle displacement not smallp */
+		ERROR_EXIT(tos);
+	}/* end switch */
+	GETBYTE(((char*)Addr68k_from_LADDR(POINTERMASK & base_addr)) + byteoffset) = 0xFF & tos;
+	return ( tos );
+}
+
+