From c76b459324f50fb56e1fcb2d2c1b227bc34a22d7 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 28 Mar 2013 21:41:55 +0000
Subject: [PATCH] * implemented the MsDos function with an asm prequel to the
 Intr function

git-svn-id: branches/i8086@24043 -
---
 rtl/msdos/prt0.asm  | 4 ++++
 rtl/msdos/system.pp | 6 +-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/rtl/msdos/prt0.asm b/rtl/msdos/prt0.asm
index 543ef73737..550c0d98e9 100644
--- a/rtl/msdos/prt0.asm
+++ b/rtl/msdos/prt0.asm
@@ -14,6 +14,10 @@
 	mov es, ax
 	jmp PASCALMAIN
 
+        global FPC_MSDOS
+FPC_MSDOS:
+        mov dx, ax
+        mov al, 21h
 	global FPC_INTR
 FPC_INTR:
 	mov byte [cs:int_number], al
diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp
index 2a131a6742..b731c21461 100644
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@@ -66,11 +66,7 @@ implementation
 {$I registers.inc}
 
 procedure Intr(IntNo: Byte; var Regs: Registers); external name 'FPC_INTR';
-
-procedure MsDos(var Regs: Registers);
-begin
-  Intr($21, Regs);
-end;
+procedure MsDos(var Regs: Registers); external name 'FPC_MSDOS';
 
 {$I system.inc}