some fixes

diff --git a/mach/mantra/int/mloop0 b/mach/mantra/int/mloop0
index 9577cfe..d5cec5f 100644 (file)
--- a/mach/mantra/int/mloop0
+++ b/mach/mantra/int/mloop0
@@ -23,7 +23,10 @@
 !---------------------------------------------------------------------------
 
 _m_a_i_n:
-               move.l  sp,topstack
+               move.l  sp,d0
+               add.l   #0x10000,d0             ! rough guess. What is the
+                                               ! real top ???
+               move.l  d0,topstack
                tst.l   (sp)+
                lea     retarea,a5              !a5 POINTS AT RETURN AREA
                move.l  nd,-(sp)                !nd contains endbss

diff --git a/mach/mantra/int/mloop9 b/mach/mantra/int/mloop9
index c0ee927..70bbc52 100644 (file)
--- a/mach/mantra/int/mloop9
+++ b/mach/mantra/int/mloop9
@@ -152,8 +152,10 @@ gto_l:             move.l  d6,a0   ;       move.b  (a3)+,-(sp)
                move.l  (a0),a2
                jmp     (a4)
 
-lim_z:         move.w  ignmask,-(sp) ; jmp     (a4)
-sim_z:         move.w  (sp)+,ignmask ; jmp     (a4)
+lim_z:         clr.l   d0; move.w ignmask, d0
+               mov     d0,-(sp) ;      jmp     (a4)
+sim_z:         clr.l   d0; mov (sp)+, d0
+               move.w  d0,ignmask ;    jmp     (a4)
 
        .sect .bss
 ignmask:  .space 2

diff --git a/mach/mantra/int/mloopa b/mach/mantra/int/mloopa
index 38ea8d8..725e9c9 100644 (file)
--- a/mach/mantra/int/mloopa
+++ b/mach/mantra/int/mloopa
@@ -259,12 +259,13 @@ lhalt:
                bsr     _Xwrite
                add.l   wrd+4,sp
                bra     9f
-2:             move.l  #7,-(sp)        !announce new file name
+2:             move.l  a1,-(sp)
+               move.l  #7,-(sp)        !announce new file name
                pea     mess2
                mov     d6,-(sp)
                bsr     _Xwrite
                add.l   wrd+4,sp
-               lea     lasttable,a1
+               move.l  (sp)+,a1
                move.l  (a1),d7
                move.l  d7,a0           !keep file pointer in d7
                clr.l   (a1)+           !this will stop the printing

diff --git a/mach/mantra/int/mloopb b/mach/mantra/int/mloopb
index 9a04e34..80c6671 100644 (file)
--- a/mach/mantra/int/mloopb
+++ b/mach/mantra/int/mloopb
@@ -15,11 +15,13 @@ _sigtrp:    move.l  (sp)+,d2        !save return address
                move.l  d4,a0
                add.l   a0,a0
                add.l   a0,a0
-               lea     sig_trp-4(a0),a1
+               move.l  #sig_trp-4,a1
+               add.l   a0,a1
                move.l  (a1),d2         !previous trap number in d2
                comp    #256,d1         !-2 and -1 special
                bcc     1f
-               move.l  sig_adr-4(a0),d3        !Get the pointer to the trap- 
+               move.l  #sig_adr-4,d3
+               add.l   a0,d3           !Get the pointer to the trap- 
                bne     2f              !procedure to give as argument to
 sig_bad:       mov     22,-(sp)        !_Xsignal. If pointer 0 trapping is
                mov     22,-(sp)        !not legal

diff --git a/mach/mantra/int/mloopc b/mach/mantra/int/mloopc
index 01391d4..47b7f4b 100644 (file)
--- a/mach/mantra/int/mloopc
+++ b/mach/mantra/int/mloopc
@@ -342,9 +342,8 @@ _Xsignal:   move.l  (sp)+,.retaddr
                mov     (sp)+,d4
                extend  d4
                move.l  d4,-(sp)
-               move.l  .retaddr,-(sp)
                jsr     _signal
-               lea     12(sp),sp               !remove arguments
+               lea     8(sp),sp                !remove arguments
                cmp.l   #-1,d0
                bne     1f
                move.l  _errno,d0