Adapted to new assembler

mach/mantra/int/mloopa

@@ -1,3 +1,9 @@
+	.define e_memflt
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 e_array:	cl	-(sp)	 ;	bra	error
 e_range:	mov	#0x1,-(sp) ;	bra	error
 e_set:		mov	#0x2,-(sp) ;	bra	error
@@ -24,7 +30,6 @@ e_badgto:	mov	#0x1B,-(sp) ;	bra	error
 
 flnim:		mov	#0xB,-(sp) ;	bra	error
 no8bar:		mov	#0xC,-(sp) ;	bra	error
-	.define e_memflt
 !---------------------------------------------------------------------------
 !		ERRORS AND TRAPS
 !----------------------------------------------------------------------------
@@ -85,9 +90,9 @@ sig_z:		move.l	(sp),d0
 		move.l	d0,uerrorp
 		jmp	(a4)
 
-	.data
-uerrorp:	.long	0x-1
-	.text
+	.sect .data
+uerrorp:	.data4	0x-1
+	.sect .text
 
 !-----------------------------------------------------------------------------
 !FIRST INFORMATION ABOUT THE KIND OF THE ERROR
@@ -153,14 +158,14 @@ notrap1:	comp	#29,d0			!ERROR NUMBER STILL IN d0
 !--------------------------------------------------------------------------
 hlt_z:		add.l	#4,sp		!remove return address
 #if	prof
-	.data
+	.sect .data
 emprof:	.asciz	"em_profile\0"
 	.align 2
-	.bss
+	.sect .bss
 profile: .space 4
 ltime:	.space 4
 profsiz: .space	4
-	.text
+	.sect .text
 		tst.l	firstp
 		beq	lhalt
 		mov	#0x1B6,-(sp)
@@ -184,13 +189,13 @@ profsiz: .space	4
 		mov	d0,-(sp)
 		bsr	_write
 		add.l	wrd+4,sp
-	.data
+	.sect .data
 emflow:	.asciz	"em_flow\0"
 	.align 2
-	.bss
+	.sect .bss
 lflow:	.space 4
 flowsiz: .space 4
-	.text
+	.sect .text
 #endif
 #if	count
 		tst.l	firstp
@@ -202,20 +207,20 @@ flowsiz: .space 4
 		mov	(sp)+,d0
 		move.l	lcount,a4
 		bsr	tabprint
-	.data
+	.sect .data
 emcount: .asciz	"em_count\0"
 	.align 2
-	.bss
+	.sect .bss
 lcount: .space 4
 countsiz: .space 4
 #endif
 #if opfreq
-	.data
+	.sect .data
 emopf:	.asciz	"em_opfreq\0"
 	.align
-	.bss
+	.sect .bss
 counttab:  .space	1884
-	.text
+	.sect .text
 		mov	#0x1B6,-(sp)
 		pea	emopf
 		bsr	_creat
@@ -228,13 +233,13 @@ counttab:  .space	1884
 		add.l	wrd+4,sp
 #endif
 #if count+flow+prof
-	.bss
+	.sect .bss
 countfld: .space 4			!COUNT NUMBER - NUMBER OF LINE 1 OF PROC
 countptr: .space 4			!COUNT NUMBER OF CURRENT LINE
 #endif
 lhalt:
 #if	last
-	.text
+	.sect .text
 		mov	#0x1B6,-(sp)
 		pea	emlast
 		bsr	_creat
@@ -286,20 +291,20 @@ lhalt:
 		clr.l	(a5)+		!skip file name
 		bra	4b		!only new line
 9:
-	.data
+	.sect .data
 emlast:	.asciz	"em_last"
 mess1:	.asciz	"no line processed yet\n"
 mess2:	.asciz	"\nfile :"
 mess3:	.asciz	"           \n"
 	.align 2
-	.bss
+	.sect .bss
 lasttable:  .space  512
 linused:    .space  4
 #endif
-	.text
+	.sect .text
 halt:		bsr	_exit
 
-	.data
+	.sect .data
 emerr:
 .asciz	"ARRAY BOUND ERROR  \n"
 .asciz	"RANGE BOUND ERROR  \n"
@@ -338,7 +343,7 @@ emess:
 !-----------------------------------------------------------------------------
 !	SUBROUTINES FOR THE INTERPRETOR
 !------------------------------------------------------------------------------
-	.text
+	.sect .text
 #if	last
 nexttab:	move.l  linused,a5
 		add.l	#8,a5
@@ -351,7 +356,7 @@ nexttab:	move.l  linused,a5
 #if count+prof
 !SUBROUTINE FOR PRINTING TABLES . EXPECTS BOTTOM OF TABLE IN a4 AND FILE
 !DESCRIPTOR IN d0 .IN maxcount NUMBER OF 4 BYTE WORDS IN THE TABLE.
-	.text
+	.sect .text
 tabprint:	mov	d0,-(sp)	!KEEP FILE DESCRIPTOR FOR WRITING
 		lea	buffer,a3
 		move.l	firstp,a5	!IN a5 POINTER TO CURRENT PROC.
@@ -411,7 +416,7 @@ tabprint:	mov	d0,-(sp)	!KEEP FILE DESCRIPTOR FOR WRITING
 		move.l	#0,a6		!NO NEXT PROCEDURE.
 		bra	8b
 
-	.data
+	.sect .data
 buffer: .asciz "                      \n"
-	.text
+	.sect .text
 #endif