mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-06-16 21:29:31 +00:00
76 lines
1.6 KiB
C
76 lines
1.6 KiB
C
/*
|
|
* Apple // emulator for Linux: Glue file prologue for Intel 386
|
|
*
|
|
* Copyright 1994 Alexander Jean-Claude Bottema
|
|
* Copyright 1995 Stephen Lee
|
|
* Copyright 1997, 1998 Aaron Culliney
|
|
* Copyright 1998, 1999, 2000 Michael Deutschmann
|
|
*
|
|
* This software package is subject to the GNU General Public License
|
|
* version 2 or later (your choice) as published by the Free Software
|
|
* Foundation.
|
|
*
|
|
* THERE ARE NO WARRANTIES WHATSOEVER.
|
|
*
|
|
*/
|
|
|
|
#define __ASSEMBLY__
|
|
#include <apple2.h>
|
|
|
|
#define GLUE_FIXED_READ(func,address) \
|
|
E(func) movb SN(address)(%edi),%al; \
|
|
ret;
|
|
|
|
#define GLUE_FIXED_WRITE(func,address) \
|
|
E(func) movb %al,SN(address)(%edi); \
|
|
ret;
|
|
|
|
#define GLUE_BANK_READ(func,pointer) \
|
|
E(func) addl SN(pointer),%edi; \
|
|
movb (%edi),%al; \
|
|
subl SN(pointer),%edi; \
|
|
ret;
|
|
|
|
#define GLUE_BANK_WRITE(func,pointer) \
|
|
E(func) addl SN(pointer),%edi; \
|
|
movb %al,(%edi); \
|
|
subl SN(pointer),%edi; \
|
|
ret;
|
|
|
|
#define GLUE_BANK_MAYBEWRITE(func,pointer) \
|
|
E(func) addl SN(pointer),%edi; \
|
|
cmpl $0,SN(pointer); \
|
|
jz 1f; \
|
|
movb %al,(%edi); \
|
|
1: ret;
|
|
|
|
|
|
#define GLUE_C_WRITE(func) \
|
|
E(func) pushl %eax; \
|
|
andl $0xff,%eax; \
|
|
pushl %ecx; \
|
|
pushl %edx; \
|
|
pushl %eax; \
|
|
pushl %edi; \
|
|
call SN(unglued_##func); \
|
|
popl %edx; /* dummy */ \
|
|
popl %edx; /* dummy */ \
|
|
popl %edx; \
|
|
popl %ecx; \
|
|
popl %eax; \
|
|
ret; \
|
|
|
|
#define GLUE_C_READ(func) \
|
|
E(func) pushl %eax; \
|
|
pushl %ecx; \
|
|
pushl %edx; \
|
|
pushl %edi; \
|
|
call SN(unglued_##func); \
|
|
movb %al,12(%esp); \
|
|
popl %edx; /* dummy */ \
|
|
popl %edx; \
|
|
popl %ecx; \
|
|
popl %eax; \
|
|
ret;
|
|
|