From f8eb76dd8cb59260943c52eb86ffbba9604accc3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 21 Aug 1993 02:41:47 +0000
Subject: [PATCH] Allow for address relocation to make Scheme run under Windows
 3.1. Plus general cleanup of NT code.

---
 v7/src/microcode/ntasutl.asm | 56 ++++--------------------------------
 1 file changed, 6 insertions(+), 50 deletions(-)

diff --git a/v7/src/microcode/ntasutl.asm b/v7/src/microcode/ntasutl.asm
index 96f31fb86..ff7d619ab 100644
--- a/v7/src/microcode/ntasutl.asm
+++ b/v7/src/microcode/ntasutl.asm
@@ -1,6 +1,6 @@
 ;;; -*-Midas-*-
 ;;;
-;;;	$Id: ntasutl.asm,v 1.2 1993/06/24 01:57:03 gjr Exp $
+;;;	$Id: ntasutl.asm,v 1.3 1993/08/21 02:41:47 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1992-1993 Massachusetts Institute of Technology
 ;;;
@@ -47,58 +47,14 @@ _getCS:
 	mov	ax,cs			; copy code segment descriptor
 	ret
 
-;; getDS added by SRA
-;_getDS:
-;	xor	eax,eax			; clear eax
-;	mov	ax,ds			; copy code segment descriptor
-;	ret
+	public	_getDS
+_getDS:
+	xor	eax,eax			; clear eax
+	mov	ax,ds			; copy code segment descriptor
+	ret
 
 	public	_getSS
 _getSS:
 	xor	eax,eax			; clear eax
 	mov	ax,ss			; copy code segment descriptor
 	ret
-
-;;	Frame on entry to farcpy
-
-;;24	size
-;;20	src_sel
-;;16	src_off
-;;12	dst_sel
-;;8	dst_off
-;;4	ret add
-;;0	previous ebp
-
-	public	_farcpy
-_farcpy:
-	push	ebp
-	mov	ebp,esp
-	push	ebx
-	push	ds
-	push	es
-
-	mov	eax,12[ebp]
-	mov	ds,ax			; dst sel
-	mov	eax,20[ebp]
-	mov	es,ax			; src sel
-	mov	edx,8[ebp]		; dst off
-	mov	ecx,16[ebp]		; src off
-	mov	eax,24[ebp]		; count
-	jmp	enter_loop
-
-farcpy_loop:
-	mov	bl,es:[ecx]
-	mov	ds:[edx],bl
-	inc	ecx
-	inc	edx
-
-enter_loop:
-	dec	eax
-	jge	farcpy_loop
-
-	pop	es
-	pop	ds
-	pop	ebx
-	pop	ebp
-	ret
-end
-- 
2.25.1