FreeXP

CVS freexp

CVS User mw cvs-list at freexp.de
Son Mai 17 09:30:44 CEST 2009


Update of /server/cvs/freexp
In directory m6s15:/tmp/cvs-serv32161

Modified Files:
	overxms.asm overxms.obj overxms.pas xpx.pas 
Log Message:
MW: - Uebernahme von Fehlerkorrekturen aus Overxms 1.2


--- /server/cvs/freexp/overxms.asm	2008/12/26 18:37:14	1.8
+++ /server/cvs/freexp/overxms.asm	2009/05/17 07:30:44	1.9
@@ -1,9 +1,21 @@
 ; ---------------------------------------------------------------
 ; Dieser Quelltext ist urheberrechtlich geschuetzt.              
 ; (c) 2003-2009 FreeXP, http://www.freexp.de                                                                                 ; ---------------------------------------------------------------
-; $Id: overxms.asm,v 1.8 2008/12/26 18:37:14 mw Exp $
+; $Id: overxms.asm,v 1.9 2009/05/17 07:30:44 mw Exp $
 TITLE Turbo Pascal XMS support for loading overlays - By Wilbert van Leijen
+; OVERXMS 1.1
+; Bug fix by Arnold Bailey  [72020,136]   BIX abailey 1/03/93
+;
+;   XMS uses BX to return error codes. Most version will preserve the value
+;   of BX if there is no error.
+;
+;   DRDOS 6 EMM386.SYS and HIDOS.SYS (equivalent to HIMEM.SYS) change
+;   BX to zero if there is no error. The procedure UnitToXMS uses BX as an
+;   offset counter. With DRDOS 6 it gets reset causing major crash.
+;
+;   Added PUSH BX and POP BX to preserve value.
 ;     modifyed by FreeXP in 2004
+
 PAGE 65, 132
 LOCALS @@
 
@@ -109,7 +121,15 @@
 @@1:    ADD    BX, [PrefixSeg]
         ADD    BX, 10h
         MOV    ES, BX
-        ADD    AX, ES:[OvrHeader.CodeSize]
+
+;** Ver 1.2 BugFix
+        MOV    CX, ES:[OvrHeader.CodeSize]
+        TEST   CX,1     ; Test for odd number of bytes
+        JZ     @@2
+        INC    CX       ; Make sure it's even number of bytes
+@@2:    ADD    AX, CX
+;** Ver 1.2 Bug Fix
+
         ADC    DX, 0
         MOV    BX, ES:[OvrHeader.CodeListNext]
         OR     BX, BX
@@ -128,9 +148,9 @@
         MOV    [ovrmemsize], DX
         CALL   [XmsDriver]
         OR     AX, AX
-        JZ     @@2
+        JZ     @@3
         MOV    [OvrXmsHandle], DX
-@@2:    RETN
+@@3:    RETN
 AllocateXms ENDP
 
 ;  Function XmsReadFunc(OvrSeg : Word) : Integer; Far;
@@ -200,8 +220,12 @@
         MOV    Word Ptr [XmsMove.DestOffset+2], BX
         MOV    AH, 11
         LEA    SI, XmsMove
+
+; BUG Fix. Need to preserve BX
         PUSH   BX
         CALL   [XmsDriver]
+
+; BUG Fix. Restore BX
         POP    BX
 
 ;  Bump code size
@@ -354,6 +378,8 @@
            END
 
 ;~~~~~~~~~~~~~~~~~~~
+; 17.05.09  MW  Uebernahme von Korrekturen aus OVERXMS 1.2
+;
 ; 04.10.04  MW  Groesse des Overlays wird jetzt hier berechnet.
 ; 
 ; 16.03.03  MW  Neue Variable ovrmemsize zeigt die Groesse des Overlay
Binary files /server/cvs/freexp/overxms.obj	2004/10/04 11:25:22	1.3 and /server/cvs/freexp/overxms.obj	2009/05/17 07:30:44	1.4 differ
--- /server/cvs/freexp/overxms.pas	2008/12/26 18:37:14	1.7
+++ /server/cvs/freexp/overxms.pas	2009/05/17 07:30:44	1.8
@@ -1,10 +1,13 @@
 { --------------------------------------------------------------- }
 { Dieser Quelltext ist urheberrechtlich geschuetzt.               }
 { (c) 2003-2009 FreeXP, http://www.freexp.de                      }
-{ OVERXMS - Loads overlays in XMS.  Written by Wilbert van Leijen }
-{           modifyed by FreeXP in 2004                            }
+{ OVERXMS 1.2 - Loads overlays in XMS.                            }
+{               Written by Wilbert van Leijen                     }
+{               modifyed by FreeXP in 2004                        }
 { --------------------------------------------------------------- }
-{ $Id: overxms.pas,v 1.7 2008/12/26 18:37:14 mw Exp $ }
+{ $Id: overxms.pas,v 1.8 2009/05/17 07:30:44 mw Exp $ }
+
+{ BUG Fix in OVERXMS.ASM by Arnold Bailey [72020,136]   BIX abailey 1/03/93 }
 
 Unit OverXMS;
 
@@ -32,7 +35,10 @@
 end.  { OverXMS }
 {
   $Log: overxms.pas,v $
-  Revision 1.7  2008/12/26 18:37:14  mw
+  Revision 1.8  2009/05/17 07:30:44  mw
+  MW: - Uebernahme von Fehlerkorrekturen aus Overxms 1.2
+
+  Revision 1.7  2008-12-26 18:37:14  mw
   - Aktualisierung auf Version 3.45
 
   Revision 1.6  2008-01-01 20:59:24  mw
--- /server/cvs/freexp/xpx.pas	2009/05/16 11:28:30	1.44
+++ /server/cvs/freexp/xpx.pas	2009/05/17 07:30:44	1.45
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xpx.pas,v 1.44 2009/05/16 11:28:30 mw Exp $ }
+{ $Id: xpx.pas,v 1.45 2009/05/17 07:30:44 mw Exp $ }
 
 { CrossPoint - First Unit }
 
@@ -352,7 +352,7 @@
     end
     else if ((XmsTest) and (not noovrbuf) and (XmsAvail>(Size_OVR+xpswapspace+700))) then
     begin
-      { OvrInitXMS; }
+      OvrInitXMS;
       xmsovrbuf:=true;
       emsovrbuf:=false;
       ovrstr:=' (XMS)';
@@ -387,7 +387,10 @@
 
 {
   $Log: xpx.pas,v $
-  Revision 1.44  2009/05/16 11:28:30  mw
+  Revision 1.45  2009/05/17 07:30:44  mw
+  MW: - Uebernahme von Fehlerkorrekturen aus Overxms 1.2
+
+  Revision 1.44  2009-05-16 11:28:30  mw
   MW: - Overlay im XMS funktioniert derzeit nicht und führt zum Absturz.
         Daher wird es jetzt erst einmal deaktiviert.
 




Mehr Informationen über die CVS-List Mailingliste