some fixes

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

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

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

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

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