mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-17 00:22:59 +00:00
70db63449c
This was a machine running SunOS 4, which we no longer support. It had an odd display controller and a compiler with issues that required workarounds. Those compiler issues aren't an issue in today's world, so we don't need to keep the workarounds present for reference. It had a bit of inline assembly, but that is still present in other files for other platforms.
64 lines
1.6 KiB
C
64 lines
1.6 KiB
C
#ifndef ADR68K_H
|
|
#define ADR68K_H 1
|
|
/* $Id: adr68k.h,v 1.2 1999/01/03 02:05:52 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/*
|
|
* Copyright (C) 1987 by Fuji Xerox Co., Ltd. All rights reserved.
|
|
*
|
|
* Author : Takeshi Shimizu
|
|
* Hiroshi Hayata
|
|
*/
|
|
|
|
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* Copyright 1989, 1990 Venue, Fuji Xerox Co., Ltd, Xerox Corp. */
|
|
/* */
|
|
/* This file is work-product resulting from the Xerox/Venue */
|
|
/* Agreement dated 18-August-1989 for support of Medley. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
|
|
|
|
/**********************************************************************/
|
|
/*
|
|
Func name : adr68k.h
|
|
Translate 68k address to Lisp or Lisp to 68k
|
|
|
|
Date : January 16, 1987
|
|
Create : Takeshi Shimizu
|
|
*/
|
|
/**********************************************************************/
|
|
|
|
|
|
|
|
/* translate 68k ptr to Lisp DLword address */
|
|
#define LADDR_from_68k(ptr68k) ((LispPTR)(((UNSIGNED)(ptr68k) - (UNSIGNED)Lisp_world) >>1))
|
|
|
|
|
|
/* translate 68k ptr to Lisp Page number */
|
|
#define LPAGE_from_68k(ptr68k) (LADDR_from_68k(ptr68k) >> 8)
|
|
|
|
|
|
/* Translate Lisp_address to 68K address */
|
|
/* Lisp_addr: word offset */
|
|
#define Addr68k_from_LADDR(Lisp_addr) (Lisp_world + (Lisp_addr))
|
|
|
|
|
|
/* translate LispPage to 68k address */
|
|
#define Addr68k_from_LPAGE(Lisp_page) (Addr68k_from_LADDR((Lisp_page << 8) ))
|
|
|
|
|
|
|
|
|
|
/* Stack Offset Macros */
|
|
|
|
#define StkOffset_from_68K(ptr68k)\
|
|
((LispPTR)(((UNSIGNED)(ptr68k) - (UNSIGNED)Stackspace) >>1))
|
|
|
|
#define Addr68k_from_StkOffset(stkoffset)\
|
|
(Stackspace + (stkoffset))
|
|
#endif /* ADR68K_H */
|