[BACK]Return to cpu_mem.c CVS log [TXT] [DIR] Up to [RetroPC.NET] / np2 / i386c / ia32

Diff for /np2/i386c/ia32/cpu_mem.c between versions 1.9 and 1.18

version 1.9, 2004/02/04 13:24:35 version 1.18, 2004/06/15 13:50:13
Line 1 Line 1
 /*      $Id$    */  /*      $Id$    */
   
 /*  /*
  * Copyright (c) 2002-2003 NONAKA Kimihiro   * Copyright (c) 2002-2004 NONAKA Kimihiro
  * All rights reserved.   * All rights reserved.
  *   *
  * Redistribution and use in source and binary forms, with or without   * Redistribution and use in source and binary forms, with or without
Line 31 Line 31
 #include "cpu.h"  #include "cpu.h"
 #include "memory.h"  #include "memory.h"
   
 #define cpumem          i386core.e.ext  
 #define extmem_size     i386core.e.extsize  
   
   
 /*  
  * initialize 1MB-16MB memory  
  */  
 int  
 init_cpumem(UINT8 usemem)  
 {  
         UINT32  size;  
   
         size = usemem << 20;  
         if (size >= (LOWMEM - 0x100000)) {  
                 size -= (LOWMEM - 0x100000);  
         }  
         else {  
                 size = 0;  
         }  
         if (extmem_size != size) {  
                 if (cpumem) {  
                         free(cpumem);  
                         cpumem = 0;  
                 }  
                 if (size) {  
                         cpumem = (BYTE *)malloc(size);  
                         if (cpumem == NULL) {  
                                 size = 0;  
                         }  
                 }  
                 extmem_size = size;  
         }  
         return SUCCESS;  
 }  
   
   
 /*  /*
  * memory access check   * memory access check
  */   */
 void  void
 cpu_memoryread_check(descriptor_t* sd, DWORD offset, DWORD length, int e)  cpu_memoryread_check(descriptor_t *sd, UINT32 offset, UINT length, int e)
 {  {
         DWORD uplimit;          UINT32 uplimit;
   
         if (CPU_STAT_PM) {          if (CPU_STAT_PM) {
                 /* invalid */                  /* invalid */
Line 87  cpu_memoryread_check(descriptor_t* sd, D Line 52  cpu_memoryread_check(descriptor_t* sd, D
                         VERBOSE(("cpu_memoryread_check: not present"));                          VERBOSE(("cpu_memoryread_check: not present"));
                         EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                 }                  }
           }
   
                 switch (sd->type) {          switch (sd->type) {
                 case 0:  case 1:        /* ro */          case 0:  case 1:        /* ro */
                 case 2:  case 3:        /* rw */          case 2:  case 3:        /* rw */
                 case 10: case 11:       /* rx */          case 10: case 11:       /* rx */
                 case 14: case 15:       /* rxc */          case 14: case 15:       /* rxc */
                         if (offset > sd->u.seg.limit - length + 1) {                  if (offset > sd->u.seg.limit - length + 1) {
                                 VERBOSE(("cpu_memoryread_check: offset(%08x) > sd->u.seg.limit(%08x) - length(%08x) + 1", offset, sd->u.seg.limit, length));                          VERBOSE(("cpu_memoryread_check: offset(%08x) > sd->u.seg.limit(%08x) - length(%08x) + 1", offset, sd->u.seg.limit, length));
                                 EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         }                  }
                         if (length - 1 > sd->u.seg.limit) {                  if (length - 1 > sd->u.seg.limit) {
                                 VERBOSE(("cpu_memoryread_check: length(%08x) - 1 > sd->u.seg.limit(%08x)", length, sd->u.seg.limit));                          VERBOSE(("cpu_memoryread_check: length(%08x) - 1 > sd->u.seg.limit(%08x)", length, sd->u.seg.limit));
                                 EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         }                  }
                         break;                  break;
   
                 case 4:  case 5:        /* ro (expand down) */  
                 case 6:  case 7:        /* rw (expand down) */  
                         uplimit = sd->d ? 0xffffffff : 0x0000ffff;  
                         if (offset <= sd->u.seg.limit) {  
                                 VERBOSE(("cpu_memoryread_check: offset(%08x) <= sd->u.seg.limit(%08x)", offset, sd->u.seg.limit));  
                                 EXCEPTION(e, 0);  
                         }  
                         if (offset > uplimit) {  
                                 VERBOSE(("cpu_memoryread_check: offset(%08x) > uplimit(%08x)", offset, uplimit));  
                                 EXCEPTION(e, 0);  
                         }  
                         if (uplimit - offset < length - 1) {  
                                 VERBOSE(("cpu_memoryread_check: uplimit(%08x) - offset(%08x) < length(%08x) - 1", uplimit, offset, length));  
                                 EXCEPTION(e, 0);  
                         }  
                         break;  
   
                 default:          case 4:  case 5:        /* ro (expand down) */
                         VERBOSE(("cpu_memoryread_check: invalid type (type = %d)", sd->type));          case 6:  case 7:        /* rw (expand down) */
                   uplimit = sd->d ? 0xffffffff : 0x0000ffff;
                   if (offset <= sd->u.seg.limit) {
                           VERBOSE(("cpu_memoryread_check: offset(%08x) <= sd->u.seg.limit(%08x)", offset, sd->u.seg.limit));
                           EXCEPTION(e, 0);
                   }
                   if (offset > uplimit) {
                           VERBOSE(("cpu_memoryread_check: offset(%08x) > uplimit(%08x)", offset, uplimit));
                         EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         break;  
                 }                  }
                   if (uplimit - offset < length - 1) {
                           VERBOSE(("cpu_memoryread_check: uplimit(%08x) - offset(%08x) < length(%08x) - 1", uplimit, offset, length));
                           EXCEPTION(e, 0);
                   }
                   break;
   
           default:
                   VERBOSE(("cpu_memoryread_check: invalid type (type = %d)", sd->type));
                   EXCEPTION(e, 0);
                   break;
         }          }
         sd->flag |= CPU_DESC_FLAG_READABLE;          sd->flag |= CPU_DESC_FLAG_READABLE;
 }  }
   
 void  void
 cpu_memorywrite_check(descriptor_t* sd, DWORD offset, DWORD length, int e)  cpu_memorywrite_check(descriptor_t *sd, UINT32 offset, UINT length, int e)
 {  {
         DWORD uplimit;          UINT32 uplimit;
   
         if (CPU_STAT_PM) {          if (CPU_STAT_PM) {
                 /* invalid */                  /* invalid */
Line 151  cpu_memorywrite_check(descriptor_t* sd,  Line 116  cpu_memorywrite_check(descriptor_t* sd, 
                         VERBOSE(("cpu_memorywrite_check: system segment"));                          VERBOSE(("cpu_memorywrite_check: system segment"));
                         EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                 }                  }
           }
   
                 switch (sd->type) {          switch (sd->type) {
                 case 2: case 3: /* rw */          case 2: case 3: /* rw */
                         if (offset > sd->u.seg.limit - length + 1) {                  if (offset > sd->u.seg.limit - length + 1) {
                                 VERBOSE(("cpu_memorywrite_check: offset(%08x) > sd->u.seg.limit(%08x) - length(%08x) + 1", offset, sd->u.seg.limit, length));                          VERBOSE(("cpu_memorywrite_check: offset(%08x) > sd->u.seg.limit(%08x) - length(%08x) + 1", offset, sd->u.seg.limit, length));
                                 EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         }                  }
                         if (length - 1 > sd->u.seg.limit) {                  if (length - 1 > sd->u.seg.limit) {
                                 VERBOSE(("cpu_memorywrite_check: length(%08x) - 1 > sd->u.seg.limit(%08x)", length, sd->u.seg.limit));                          VERBOSE(("cpu_memorywrite_check: length(%08x) - 1 > sd->u.seg.limit(%08x)", length, sd->u.seg.limit));
                                 EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         }                  }
                         break;                  break;
   
                 case 6: case 7: /* rw (expand down) */  
                         uplimit = sd->d ? 0xffffffff : 0x0000ffff;  
                         if (offset <= sd->u.seg.limit) {  
                                 VERBOSE(("cpu_memorywrite_check: offset(%08x) <= sd->u.seg.limit(%08x)", offset, sd->u.seg.limit));  
                                 EXCEPTION(e, 0);  
                         }  
                         if (offset > uplimit) {  
                                 VERBOSE(("cpu_memorywrite_check: offset(%08x) > uplimit(%08x)", offset, uplimit));  
                                 EXCEPTION(e, 0);  
                         }  
                         if (uplimit - offset < length - 1) {  
                                 VERBOSE(("cpu_memorywrite_check: uplimit(%08x) - offset(%08x) < length(%08x) - 1", uplimit, offset, length));  
                                 EXCEPTION(e, 0);  
                         }  
                         break;  
   
                 default:          case 6: case 7: /* rw (expand down) */
                         VERBOSE(("cpu_memorywrite_check: invalid type (type = %d)", sd->type));                  uplimit = sd->d ? 0xffffffff : 0x0000ffff;
                   if (offset <= sd->u.seg.limit) {
                           VERBOSE(("cpu_memorywrite_check: offset(%08x) <= sd->u.seg.limit(%08x)", offset, sd->u.seg.limit));
                           EXCEPTION(e, 0);
                   }
                   if (offset > uplimit) {
                           VERBOSE(("cpu_memorywrite_check: offset(%08x) > uplimit(%08x)", offset, uplimit));
                         EXCEPTION(e, 0);                          EXCEPTION(e, 0);
                         break;  
                 }                  }
                   if (uplimit - offset < length - 1) {
                           VERBOSE(("cpu_memorywrite_check: uplimit(%08x) - offset(%08x) < length(%08x) - 1", uplimit, offset, length));
                           EXCEPTION(e, 0);
                   }
                   break;
   
           default:
                   VERBOSE(("cpu_memorywrite_check: invalid type (type = %d)", sd->type));
                   EXCEPTION(e, 0);
                   break;
         }          }
         sd->flag |= CPU_DESC_FLAG_WRITABLE;          sd->flag |= CPU_DESC_FLAG_WRITABLE;
 }  }
   
 BOOL  void
 cpu_stack_push_check(descriptor_t* sdp, DWORD esp, DWORD length)  cpu_stack_push_check(UINT16 s, descriptor_t *sd, UINT32 esp, UINT length)
 {  {
         DWORD limit;          UINT32 limit;
   
         if (!CPU_STAT_PM)          if (CPU_STAT_PM) {
                 return TRUE;                  if (!sd->valid || !sd->p) {
                           VERBOSE(("cpu_stack_push_check: valid = %d, present = %d", sd->valid, sd->p));
                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                   }
                   if (!sd->s || sd->u.seg.c || !sd->u.seg.wr) {
                           VERBOSE(("cpu_stack_push_check: s = %d, c = %d, wr", sd->s, sd->u.seg.c, sd->u.seg.wr));
                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                   }
   
         if (!sdp->valid || !sdp->p)                  if (!sd->d) {
                 return FALSE;                          limit = 0xffff;
         if (!sdp->s || sdp->u.seg.c || !sdp->u.seg.wr)                  } else {
                 return FALSE;                          limit = 0xffffffff;
                   }
         if (!sdp->d) {                  if (sd->u.seg.ec) {
                 esp &= 0xffff;                          /* expand-down stack */
                 limit = 0xffff;                          if ((esp == 0)
         } else {                           || (esp < length)
                 limit = 0xffffffff;                           || (esp - length <= sd->u.seg.limit)
         }                           || (esp > limit)) {
         if (sdp->u.seg.ec) {                                  VERBOSE(("cpu_stack_push_check: expand-down, esp = %08x, length = %08x", esp, length));
                 /* expand-down stack */                                  VERBOSE(("cpu_stack_push_check: limit = %08x, seglimit = %08x", limit, sd->u.seg.limit));
                 if ((esp == 0)                                  VERBOSE(("cpu_stack_push_check: segbase = %08x, segend = %08x", sd->u.seg.segbase, sd->u.seg.segend));
                  || (esp < length)                                  EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                  || (esp - length <= sdp->u.seg.limit)                          }
                  || (esp > limit))  
                         return FALSE;  
         } else {  
                 /* expand-up stack */  
                 if (esp == 0) {  
                         if ((sdp->d && (sdp->u.seg.segend != 0xffffffff))  
                          || (!sdp->d && (sdp->u.seg.segend != 0xffff)))  
                                 return FALSE;  
                 } else {                  } else {
                         if ((esp < length)                          /* expand-up stack */
                          || (esp - 1 > sdp->u.seg.limit))                          if (esp == 0) {
                                 return FALSE;                                  if ((sd->d && (sd->u.seg.segend != 0xffffffff))
                                    || (!sd->d && (sd->u.seg.segend != 0xffff))) {
                                           VERBOSE(("cpu_stack_push_check: expand-up, esp = %08x, length = %08x", esp, length));
                                           VERBOSE(("cpu_stack_push_check: limit = %08x, seglimit = %08x", limit, sd->u.seg.limit));
                                           VERBOSE(("cpu_stack_push_check: segbase = %08x, segend = %08x", sd->u.seg.segbase, sd->u.seg.segend));
                                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                                   }
                           } else {
                                   if ((esp < length)
                                    || (esp - 1 > sd->u.seg.limit)) {
                                           VERBOSE(("cpu_stack_push_check: expand-up, esp = %08x, length = %08x", esp, length));
                                           VERBOSE(("cpu_stack_push_check: limit = %08x, seglimit = %08x", limit, sd->u.seg.limit));
                                           VERBOSE(("cpu_stack_push_check: segbase = %08x, segend = %08x", sd->u.seg.segbase, sd->u.seg.segend));
                                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                                   }
                           }
                 }                  }
         }          }
         return TRUE;  
 }  }
   
 BOOL  void
 cpu_stack_pop_check(descriptor_t* sdp, DWORD esp, DWORD length)  cpu_stack_pop_check(UINT16 s, descriptor_t *sd, UINT32 esp, UINT length)
 {  {
         DWORD limit;          UINT32 limit;
   
         if (!CPU_STAT_PM)          if (CPU_STAT_PM) {
                 return TRUE;                  if (!sd->valid || !sd->p) {
                           VERBOSE(("cpu_stack_pop_check: valid = %d, present = %d", sd->valid, sd->p));
                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                   }
                   if (!sd->s || sd->u.seg.c || !sd->u.seg.wr) {
                           VERBOSE(("cpu_stack_pop_check: s = %d, c = %d, wr", sd->s, sd->u.seg.c, sd->u.seg.wr));
                           EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                   }
   
         if (!sdp->valid || !sdp->p)                  if (!sd->d) {
                 return FALSE;                          limit = 0xffff;
         if (!sdp->s || sdp->u.seg.c || !sdp->u.seg.wr)                  } else {
                 return FALSE;                          limit = 0xffffffff;
                   }
         if (!sdp->d) {                  if (sd->u.seg.ec) {
                 esp &= 0xffff;                          /* expand-down stack */
                 limit = 0xffff;                          if ((esp == limit)
         } else {                           || ((limit - esp) + 1 < length)) {
                 limit = 0xffffffff;                                  VERBOSE(("cpu_stack_pop_check: expand-up, esp = %08x, length = %08x", esp, length));
         }                                  VERBOSE(("cpu_stack_pop_check: limit = %08x, seglimit = %08x", limit, sd->u.seg.limit));
         if (sdp->u.seg.ec) {                                  VERBOSE(("cpu_stack_pop_check: segbase = %08x, segend = %08x", sd->u.seg.segbase, sd->u.seg.segend));
                 /* expand-down stack */                                  EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                 if ((esp == limit)                          }
                  || ((limit - esp) + 1 < length))                  } else {
                         return FALSE;                          /* expand-up stack */
         } else {                          if ((esp == limit)
                 /* expand-up stack */                           || (sd->u.seg.segend == 0)
                 if ((esp == limit)                           || (esp > sd->u.seg.limit)
                  || (sdp->u.seg.segend == 0)                           || ((sd->u.seg.limit - esp) + 1 < length)) {
                  || (esp > sdp->u.seg.limit)                                  VERBOSE(("cpu_stack_pop_check: expand-up, esp = %08x, length = %08x", esp, length));
                  || ((sdp->u.seg.limit - esp) + 1 < length))                                  VERBOSE(("cpu_stack_pop_check: limit = %08x, seglimit = %08x", limit, sd->u.seg.limit));
                         return FALSE;                                  VERBOSE(("cpu_stack_pop_check: segbase = %08x, segend = %08x", sd->u.seg.segbase, sd->u.seg.segend));
                                   EXCEPTION(SS_EXCEPTION, s & 0xfffc);
                           }
                   }
         }          }
         return TRUE;  
 }  }
   
   #if defined(IA32_SUPPORT_DEBUG_REGISTER)
   INLINE static void
   check_memory_break_point(UINT32 address, UINT length, UINT rw)
   {
           int i;
   
 #undef  OVERRUN_CHECK          if (CPU_STAT_BP && !(CPU_EFLAG & RF_FLAG)) {
                   for (i = 0; i < CPU_DEBUG_REG_INDEX_NUM; i++) {
                           if ((CPU_STAT_BP & (1 << i))
                            && (CPU_DR7_GET_RW(i) & rw)
   
 #if defined(OVERRUN_CHECK)                           && ((address <= CPU_DR(i) && address + length > CPU_DR(i))
 #define OVERRUN_EXCEPTION()     EXCEPTION(GP_EXCEPTION, 0)                            || (address > CPU_DR(i) && address < CPU_DR(i) + CPU_DR7_GET_LEN(i)))) {
                                   CPU_STAT_BP_EVENT |= CPU_STAT_BP_EVENT_B(i);
                           }
                   }
           }
   }
 #else  #else
 #define OVERRUN_EXCEPTION()  #define check_memory_break_point(address, length, rw)
 #endif  #endif
   
   
 /*  /*
  * code fetch   * code fetch
  */   */
 BYTE MEMCALL  #define ucrw    (CPU_PAGE_READ_CODE | CPU_STAT_USER_MODE)
 cpu_codefetch(DWORD offset)  
   UINT8 MEMCALL
   cpu_codefetch(UINT32 offset)
 {  {
         descriptor_t *sd;          descriptor_t *sd;
         DWORD addr;          UINT32 addr;
   #if defined(IA32_SUPPORT_TLB)
           TLB_ENTRY_T *ep;
   #endif
   
         sd = &CPU_STAT_SREG(CPU_CS_INDEX);          sd = &CPU_STAT_SREG(CPU_CS_INDEX);
         if (offset <= sd->u.seg.limit) {          if (offset <= sd->u.seg.limit) {
                 addr = CPU_STAT_SREGBASE(CPU_CS_INDEX) + offset;                  addr = sd->u.seg.segbase + offset;
                 if (!CPU_STAT_PM)                  if (!CPU_STAT_PAGING)
                         return cpu_memoryread(addr);                          return cpu_memoryread(addr);
                 return cpu_lcmemoryread(addr);  #if defined(IA32_SUPPORT_TLB)
                   ep = tlb_lookup(addr, ucrw);
                   if (ep != NULL && ep->memp != NULL) {
                           return ep->memp[addr & 0xfff];
                   }
   #endif
                   return cpu_linear_memory_read_b(addr, ucrw);
         }          }
         EXCEPTION(GP_EXCEPTION, 0);          EXCEPTION(GP_EXCEPTION, 0);
         return 0;       /* compiler happy */          return 0;       /* compiler happy */
 }  }
   
 WORD MEMCALL  UINT16 MEMCALL
 cpu_codefetch_w(DWORD offset)  cpu_codefetch_w(UINT32 offset)
 {  {
         descriptor_t *sd;          descriptor_t *sd;
         DWORD addr;          UINT32 addr;
   #if defined(IA32_SUPPORT_TLB)
           TLB_ENTRY_T *ep;
           UINT16 value;
   #endif
   
         sd = &CPU_STAT_SREG(CPU_CS_INDEX);          sd = &CPU_STAT_SREG(CPU_CS_INDEX);
         if (offset <= sd->u.seg.limit - 1) {          if (offset <= sd->u.seg.limit - 1) {
                 addr = CPU_STAT_SREGBASE(CPU_CS_INDEX) + offset;                  addr = sd->u.seg.segbase + offset;
                 if (!CPU_STAT_PM)                  if (!CPU_STAT_PAGING)
                         return cpu_memoryread_w(addr);                          return cpu_memoryread_w(addr);
                 return cpu_lcmemoryread_w(addr);  #if defined(IA32_SUPPORT_TLB)
                   ep = tlb_lookup(addr, ucrw);
                   if (ep != NULL && ep->memp != NULL) {
                           if ((addr + 1) & 0x00000fff) {
                                   return LOADINTELWORD(ep->memp + (addr & 0xfff));
                           }
                           value = ep->memp[0xfff];
                           ep = tlb_lookup(addr + 1, ucrw);
                           if (ep != NULL && ep->memp != NULL) {
                                   value += (UINT16)ep->memp[0] << 8;
                                   return value;
                           }
                   }
   #endif
                   return cpu_linear_memory_read_w(addr, ucrw);
         }          }
         EXCEPTION(GP_EXCEPTION, 0);          EXCEPTION(GP_EXCEPTION, 0);
         return 0;       /* compiler happy */          return 0;       /* compiler happy */
 }  }
   
 DWORD MEMCALL  UINT32 MEMCALL
 cpu_codefetch_d(DWORD offset)  cpu_codefetch_d(UINT32 offset)
 {  {
         descriptor_t *sd;          descriptor_t *sd;
         DWORD addr;          UINT32 addr;
   #if defined(IA32_SUPPORT_TLB)
           TLB_ENTRY_T *ep[2];
           UINT32 value;
           UINT remain;
   #endif
   
         sd = &CPU_STAT_SREG(CPU_CS_INDEX);          sd = &CPU_STAT_SREG(CPU_CS_INDEX);
         if (offset <= sd->u.seg.limit - 3) {          if (offset <= sd->u.seg.limit - 3) {
                 addr = CPU_STAT_SREGBASE(CPU_CS_INDEX) + offset;                  addr = sd->u.seg.segbase + offset;
                 if (!CPU_STAT_PM)                  if (!CPU_STAT_PAGING)
                         return cpu_memoryread_d(addr);                          return cpu_memoryread_d(addr);
                 return cpu_lcmemoryread_d(addr);  #if defined(IA32_SUPPORT_TLB)
         }                  ep[0] = tlb_lookup(addr, ucrw);
         EXCEPTION(GP_EXCEPTION, 0);                  if (ep[0] != NULL && ep[0]->memp != NULL) {
         return 0;       /* compiler happy */                          remain = 0x1000 - (addr & 0xfff);
 }                          if (remain >= 4) {
                                   return LOADINTELDWORD(ep[0]->memp + (addr & 0xfff));
                           }
 /*                          ep[1] = tlb_lookup(addr + remain, ucrw);
  * virtual address -> linear address                          if (ep[1] != NULL && ep[1]->memp != NULL) {
  */                                  switch (remain) {
 BYTE MEMCALL                                  case 3:
 cpu_vmemoryread(int idx, DWORD offset)                                          value = ep[0]->memp[0xffd];
 {                                          value += (UINT32)LOADINTELWORD(ep[0]->memp + 0xffe) << 8;
         descriptor_t *sd;                                          value += (UINT32)ep[1]->memp[0] << 24;
         DWORD addr;                                          break;
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);  
         if (!sd->valid) {  
                 exc = GP_EXCEPTION;  
                 goto err;  
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_READABLE)) {  
                 cpu_memoryread_check(sd, offset, 1,  
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);  
         } else {  
                 switch (sd->type) {  
                 case 4: case 5: case 6: case 7:  
                         if (offset <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:  
                         if (offset > sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
                 }  
         }  
         addr = CPU_STAT_SREGBASE(idx) + offset;  
         if (!CPU_STAT_PM)  
                 return cpu_memoryread(addr);  
         return cpu_lmemoryread(addr, CPU_IS_USER_MODE());  
   
 err:  
         EXCEPTION(exc, 0);  
         return 0;       /* compiler happy */  
 }  
   
 WORD MEMCALL  
 cpu_vmemoryread_w(int idx, DWORD offset)  
 {  
         descriptor_t *sd;  
         DWORD addr;  
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);  
         if (!sd->valid) {  
                 exc = GP_EXCEPTION;  
                 goto err;  
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_READABLE)) {  
                 cpu_memoryread_check(sd, offset, 2,  
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);  
         } else {  
                 switch (sd->type) {  
                 case 4: case 5: case 6: case 7:  
                         if (offset - 1 <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:  
                         if (offset > sd->u.seg.limit - 1) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
                 }  
         }   
         addr = CPU_STAT_SREGBASE(idx) + offset;  
         if (!CPU_STAT_PM)  
                 return cpu_memoryread_w(addr);  
         return cpu_lmemoryread_w(addr, CPU_IS_USER_MODE());  
   
 err:  
         EXCEPTION(exc, 0);  
         return 0;       /* compiler happy */  
 }  
   
 DWORD MEMCALL  
 cpu_vmemoryread_d(int idx, DWORD offset)  
 {  
         descriptor_t *sd;  
         DWORD addr;  
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);                                  case 2:
         if (!sd->valid) {                                          value = LOADINTELWORD(ep[0]->memp + 0xffe);
                 exc = GP_EXCEPTION;                                          value += (UINT32)LOADINTELWORD(ep[1]->memp + 0) << 16;
                 goto err;                                          break;
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_READABLE)) {                                  case 1:
                 cpu_memoryread_check(sd, offset, 4,                                          value = ep[0]->memp[0xfff];
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);                                          value += (UINT32)LOADINTELWORD(ep[1]->memp + 0) << 8;
         } else {                                          value += (UINT32)ep[1]->memp[2] << 24;
                 switch (sd->type) {                                          break;
                 case 4: case 5: case 6: case 7:  
                         if (offset - 3 <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:                                  default:
                         if (offset > sd->u.seg.limit - 3) {                                          ia32_panic("cpu_codefetch_d(): out of range. (remain = %d)\n", remain);
                                 if (idx == CPU_SS_INDEX)                                          return (UINT32)-1;
                                         exc = SS_EXCEPTION;                                  }
                                 else                                  return value;
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }                          }
                         break;  
                 }                  }
   #endif
                   return cpu_linear_memory_read_d(addr, ucrw);
         }          }
         addr = CPU_STAT_SREGBASE(idx) + offset;          EXCEPTION(GP_EXCEPTION, 0);
         if (!CPU_STAT_PM)  
                 return cpu_memoryread_d(addr);  
         return cpu_lmemoryread_d(addr, CPU_IS_USER_MODE());  
   
 err:  
         EXCEPTION(exc, 0);  
         return 0;       /* compiler happy */          return 0;       /* compiler happy */
 }  }
   
 /* vaddr memory write */  
 void MEMCALL  
 cpu_vmemorywrite(int idx, DWORD offset, BYTE val)  
 {  
         descriptor_t *sd;  
         DWORD addr;  
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);  
         if (!sd->valid) {  
                 exc = GP_EXCEPTION;  
                 goto err;  
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_WRITABLE)) {  
                 cpu_memorywrite_check(sd, offset, 1,  
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);  
         } else {  
                 switch (sd->type) {  
                 case 6: case 7:  
                         if (offset <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:  
                         if (offset > sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
                 }  
         }  
         addr = CPU_STAT_SREGBASE(idx) + offset;  
         if (!CPU_STAT_PM) {  
                 /* real mode */  
                 cpu_memorywrite(addr, val);  
         } else {  
                 /* protected mode */  
                 cpu_lmemorywrite(addr, val, CPU_IS_USER_MODE());  
         }  
         return;  
   
 err:  
         EXCEPTION(exc, 0);  
 }  
   
 void MEMCALL  
 cpu_vmemorywrite_w(int idx, DWORD offset, WORD val)  
 {  
         descriptor_t *sd;  
         DWORD addr;  
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);  
         if (!sd->valid) {  
                 exc = GP_EXCEPTION;  
                 goto err;  
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_WRITABLE)) {  
                 cpu_memorywrite_check(sd, offset, 2,  
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);  
         } else {  
                 switch (sd->type) {  
                 case 6: case 7:  
                         if (offset - 1 <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:  
                         if (offset > sd->u.seg.limit - 1) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
                 }  
         }  
         addr = CPU_STAT_SREGBASE(idx) + offset;  
         if (!CPU_STAT_PM) {  
                 /* real mode */  
                 cpu_memorywrite_w(addr, val);  
         } else {  
                 /* protected mode */  
                 cpu_lmemorywrite_w(addr, val, CPU_IS_USER_MODE());  
         }  
         return;  
   
 err:  
         EXCEPTION(exc, 0);  
 }  
   
 void MEMCALL  
 cpu_vmemorywrite_d(int idx, DWORD offset, DWORD val)  
 {  
         descriptor_t *sd;  
         DWORD addr;  
         int exc;  
   
         __ASSERT((unsigned int)idx < CPU_SEGREG_NUM);  
   
         sd = &CPU_STAT_SREG(idx);  
         if (!sd->valid) {  
                 exc = GP_EXCEPTION;  
                 goto err;  
         }  
   
         if (!(sd->flag & CPU_DESC_FLAG_WRITABLE)) {  
                 cpu_memorywrite_check(sd, offset, 4,  
                     (idx == CPU_SS_INDEX) ? SS_EXCEPTION : GP_EXCEPTION);  
         } else {  
                 switch (sd->type) {  
                 case 6: case 7:  
                         if (offset - 3 <= sd->u.seg.limit) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
   
                 default:  
                         if (offset > sd->u.seg.limit - 3) {  
                                 if (idx == CPU_SS_INDEX)  
                                         exc = SS_EXCEPTION;  
                                 else  
                                         exc = GP_EXCEPTION;  
                                 goto err;  
                         }  
                         break;  
                 }  
         }  
         addr = CPU_STAT_SREGBASE(idx) + offset;  
         if (!CPU_STAT_PM) {  
                 /* real mode */  
                 cpu_memorywrite_d(addr, val);  
         } else {  
                 /* protected mode */  
                 cpu_lmemorywrite_d(addr, val, CPU_IS_USER_MODE());  
         }  
         return;  
   
 err:  
         EXCEPTION(exc, 0);  
 }  
   
 /*  /*
  * physical address memory function   * virtual address memory access functions
  */   */
 void MEMCALL  #include "cpu_mem.mcr"
 cpu_memorywrite_d(DWORD address, DWORD value)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
         DWORD diff;  
         DWORD off;  
   
         if (adr < LOWMEM - 3) {  
                 __i286_memorywrite_d(adr, value);  
         } else if (adr < LOWMEM) {  
                 diff = LOWMEM - adr;  
   
                 switch (diff) {  
                 default:  
                         ia32_panic("cpu_memorywrite_d: diff(%d)", diff);  
                         break;  
   
                 case 3:  
                         __i286_memorywrite_w(adr, value & 0xffff);  
                         value >>= 16;  
                         __i286_memorywrite(adr + 2, value & 0xff);  
                         value >>= 8;  
                         break;  
   
                 case 2:  
                         __i286_memorywrite_w(adr, value & 0xffff);  
                         value >>= 16;  
                         break;  
   
                 case 1:  
                         __i286_memorywrite(adr, value & 0xff);  
                         value >>= 8;  
                         break;  
                 }  
   
                 if (extmem_size > 0) {  
                         off = 0;  
   
                         switch (4 - diff) {  
                         case 3:  
                                 cpumem[off++] = value & 0xff;  
                                 if (off >= extmem_size) {  
                                         OVERRUN_EXCEPTION();  
                                         break;  
                                 }  
                                 value >>= 8;  
                                 /*FALLTHROUGH*/  
                         case 2:  
                                 cpumem[off++] = value & 0xff;  
                                 if (off >= extmem_size) {  
                                         OVERRUN_EXCEPTION();  
                                         break;  
                                 }  
                                 value >>= 8;  
                                 /*FALLTHROUGH*/  
                         case 1:  
                                 cpumem[off] = value & 0xff;  
                                 break;  
                         }  
                 } else {  
                         OVERRUN_EXCEPTION();  
                 }  
         } else if (extmem_size > 0) {  
                 adr -= LOWMEM;  
                 if (adr < extmem_size - 3) {  
                         STOREINTELDWORD(cpumem + adr, value);  
                 } else if (adr < extmem_size) {  
                         diff = extmem_size - adr;  
   
                         switch (diff) {  
                         default:  
                                 ia32_panic("cpu_memorywrite_d: diff(%d)", diff);  
                                 break;  
   
                         case 3:  
                                 cpumem[adr] = value & 0xff;  
                                 value >>= 8;  
                                 adr++;  
                                 /*FALLTHROUGH*/  
                         case 2:  
                                 cpumem[adr] = value & 0xff;  
                                 value >>= 8;  
                                 adr++;  
                                 /*FALLTHROUGH*/  
                         case 1:  
                                 cpumem[adr] = value & 0xff;  
                                 break;  
                         }  
                         OVERRUN_EXCEPTION();  
                 } else {  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 OVERRUN_EXCEPTION();  
         }  
 }  
   
 void MEMCALL  
 cpu_memorywrite_w(DWORD address, WORD value)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
   
         if (adr < LOWMEM - 1) {  
                 __i286_memorywrite_w(adr, value);  
         } else if (adr < LOWMEM) {  
                 __i286_memorywrite(adr, value & 0xff);  
                 if (extmem_size > 0) {  
                         cpumem[0] = (value >> 8) & 0xff;  
                 } else {  
                         OVERRUN_EXCEPTION();  
                 }  
         } else if (extmem_size > 0) {  
                 adr -= LOWMEM;  
                 if (adr < extmem_size - 1) {  
                         STOREINTELWORD(cpumem + adr, value);  
                 } else if (adr == extmem_size - 1) {  
                         cpumem[adr] = value & 0xff;  
                         OVERRUN_EXCEPTION();  
                 } else {  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 OVERRUN_EXCEPTION();  
         }  
 }  
   
 void MEMCALL  
 cpu_memorywrite(DWORD address, BYTE value)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
   
         if (adr < LOWMEM) {  VIRTUAL_ADDRESS_MEMORY_ACCESS_FUNCTION(b, UINT8, 1)
                 __i286_memorywrite(adr, value);  VIRTUAL_ADDRESS_MEMORY_ACCESS_FUNCTION(w, UINT16, 2)
         } else if (extmem_size > 0) {  VIRTUAL_ADDRESS_MEMORY_ACCESS_FUNCTION(d, UINT32, 4)
                 adr -= LOWMEM;  
                 if (adr < extmem_size) {  
                         cpumem[adr] = value;  
                 } else {  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 OVERRUN_EXCEPTION();  
         }  
 }  
   
 DWORD MEMCALL  
 cpu_memoryread_d(DWORD address)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
         DWORD val;  
         DWORD diff;  
         int shift;  
   
         if (adr < LOWMEM - 3) {  
                 val = __i286_memoryread_d(adr);  
         } else if (adr < LOWMEM) {  
                 diff = LOWMEM - adr;  
   
                 switch (diff) {  
                 default:  
                         ia32_panic("cpu_memoryread_d: diff(%d)", diff);  
                         val = 0;        /* compiler happy */  
                         break;  
   
                 case 3:  
                         val = __i286_memoryread_w(adr);  
                         val |= (DWORD)__i286_memoryread(adr + 2) << 16;  
                         if (extmem_size > 0) {  
                                 val |= (DWORD)cpumem[0] << 24;  
                         } else {  
                                 val |= 0xff000000;  
                                 OVERRUN_EXCEPTION();  
                         }  
                         break;  
   
                 case 2:  
                         val = __i286_memoryread_w(adr);  
                         if (extmem_size > 1) {  
                                 val |= ((DWORD)LOADINTELWORD(cpumem)) << 16;  
                         } else if (extmem_size > 0) {  
                                 val |= 0xff000000 | ((DWORD)cpumem[0] << 16);  
                                 OVERRUN_EXCEPTION();  
                         } else {  
                                 val |= 0xffff0000;  
                                 OVERRUN_EXCEPTION();  
                         }  
                         break;  
   
                 case 1:  
                         val = __i286_memoryread(adr);  
                         if (extmem_size > 2) {  
                                 val |= (DWORD)LOADINTELWORD(cpumem) << 8;  
                                 val |= (DWORD)cpumem[2] << 24;  
                         } else if (extmem_size > 1) {  
                                 val |= ((DWORD)LOADINTELWORD(cpumem)) << 8;  
                                 val |= 0xff000000;  
                                 OVERRUN_EXCEPTION();  
                         } else if (extmem_size > 0) {  
                                 val |= 0xffff0000 | ((DWORD)cpumem[0] << 8);  
                                 OVERRUN_EXCEPTION();  
                         } else {  
                                 val |= 0xffffff00;  
                                 OVERRUN_EXCEPTION();  
                         }  
                         break;  
                 }  
         } else if (extmem_size > 0) {  
                 adr -= LOWMEM;  
                 if (adr < extmem_size - 3) {  
                         val = LOADINTELDWORD(cpumem + adr);  
                 } else if (adr < extmem_size) {  
                         diff = extmem_size - adr;  
                         val = 0;  
                         shift = 0;  
   
                         switch (diff) {  
                         default:  
                                 ia32_panic("cpu_memoryread_d: diff(%d)", diff);  
                                 break;  
   
                         case 3:  
                                 val |= (DWORD)cpumem[adr];  
                                 shift += 8;  
                                 adr++;  
                                 /*FALLTHROUGH*/  
                         case 2:  
                                 val |= (DWORD)cpumem[adr] << shift;  
                                 shift += 8;  
                                 adr++;  
                                 /*FALLTHROUGH*/  
                         case 1:  
                                 val |= (DWORD)cpumem[adr] << shift;  
                                 shift += 8;  
                                 break;  
                         }  
                         val |= ((DWORD)-1) << shift;  
                         OVERRUN_EXCEPTION();  
                 } else {  
                         val = (DWORD)-1;  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 val = (DWORD)-1;  
                 OVERRUN_EXCEPTION();  
         }  
         return val;  
 }  
   
 WORD MEMCALL  
 cpu_memoryread_w(DWORD address)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
         WORD val;  
   
         if (adr < LOWMEM - 1) {  
                 val = __i286_memoryread_w(adr);  
         } else if (adr < LOWMEM) {  
                 val = __i286_memoryread(adr);  
                 if (extmem_size > 0) {  
                         val |= (WORD)cpumem[0] << 8;  
                 } else {  
                         val |= 0xff00;  
                         OVERRUN_EXCEPTION();  
                 }  
         } else if (extmem_size > 0) {  
                 adr -= LOWMEM;  
                 if (adr < extmem_size - 1) {  
                         val = LOADINTELWORD(cpumem + adr);  
                 } else if (adr == extmem_size - 1) {  
                         val = 0xff00 | cpumem[adr];  
                         OVERRUN_EXCEPTION();  
                 } else {  
                         val = (WORD)-1;  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 val = (WORD)-1;  
                 OVERRUN_EXCEPTION();  
         }  
         return val;  
 }  
   
 BYTE MEMCALL  
 cpu_memoryread(DWORD address)  
 {  
         DWORD adr = address & CPU_STAT_ADRSMASK;  
         BYTE val;  
   
         if (adr < LOWMEM) {  
                 val = __i286_memoryread(adr);  
         } else if (extmem_size > 0) {  
                 adr -= LOWMEM;  
                 if (adr < extmem_size) {  
                         val = cpumem[adr];  
                 } else {  
                         val = (BYTE)-1;  
                         OVERRUN_EXCEPTION();  
                 }  
         } else {  
                 val = (BYTE)-1;  
                 OVERRUN_EXCEPTION();  
         }  
         return val;  
 }  
Removed from v.1.9  
changed lines
  Added in v.1.18

RetroPC.NET-CVS <cvs@retropc.net>