mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-19 01:17:36 +00:00
a093d80fa5
As a prerequisite for cleaning up some other include issues, all the include files in inc/ should have an include guard. All the xxxdefs.h were created with them, but most older files were not.
73 lines
1.8 KiB
C
73 lines
1.8 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 */
|
|
#ifndef I386
|
|
#define Addr68k_from_LADDR(Lisp_addr) (Lisp_world + (Lisp_addr))
|
|
#else
|
|
#define Addr68k_from_LADDR(Lisp_addr) ((Lisp_addr) + Lisp_world)
|
|
#endif
|
|
|
|
|
|
/* 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))
|
|
|
|
#ifndef I386
|
|
#define Addr68k_from_StkOffset(stkoffset)\
|
|
(Stackspace + (stkoffset))
|
|
#else
|
|
#define Addr68k_from_StkOffset(stkoffset)\
|
|
( (stkoffset) + Stackspace)
|
|
#endif
|
|
#endif /* ADR68K_H */
|