bug fixes

diff --git a/mach/i86/libem/exg.s b/mach/i86/libem/exg.s
index 6360c8e..35fa931 100644 (file)
--- a/mach/i86/libem/exg.s
+++ b/mach/i86/libem/exg.s
@@ -5,7 +5,7 @@
 .sect .text
 .exg:
        push    di
-       mov     sp,di
+       mov     di,sp
        add     di,4
        mov     bx,di
        add     bx,cx
@@ -14,6 +14,8 @@
        mov     ax,(bx)
        xchg    ax,(di)
        mov     (bx),ax
+       add     di,2
+       add     bx,2
        loop    1b
 2:
        pop     di

diff --git a/mach/i86/libem/iaar.s b/mach/i86/libem/iaar.s
index e55f428..940e529 100644 (file)
--- a/mach/i86/libem/iaar.s
+++ b/mach/i86/libem/iaar.s
@@ -10,10 +10,9 @@
        jne     .unknown
        pop     bx      ! descriptor address
        pop     ax      ! index
-       pop     dx      ! array base
        sub     ax,(bx)
        mul     4(bx)
-       mov     bx,dx
+       pop     bx      ! base address
        add     bx,ax
        push    cx
        ret