use %-form, so test can be run on m68k-coff too

gas/testsuite/gas/p2425a.s

@@ -1,72 +1,72 @@
-WORDSIZE=4				
+WORDSIZE=4
 
 	.text
 	.globl _doworm
 
 _doworm:
-	moveml a2-a4,sp@-		
+	moveml %a2-%a4,%sp@-
-	movl _memsize,d0		
+	movl _memsize,%d0
-	subl #CODESIZE,d0		
+	subl #CODESIZE,%d0
-	addl  #0x0,d0
+	addl  #0x0,%d0
-	movl d0,a3			
+	movl %d0,%a3
-	movl a3,a4			
+	movl %a3,%a4
-	addl #WORMSIZE,a4		
+	addl #WORMSIZE,%a4
-	movl #CODESIZE,sp@-		
+	movl #CODESIZE,%sp@-
-	movl a3,sp@-			
+	movl %a3,%sp@-
-	movl #worm,sp@-			
+	movl #worm,%sp@-
-	jsr _bcopy			
+	jsr _bcopy
-	addl #12,sp			
+	addl #12,%sp
-	movl a4,a0			
+	movl %a4,%a0
-	subl #WORDSIZE,a0		
+	subl #WORDSIZE,%a0
-	movl sp@(16),a0@		
+	movl %sp@(16),%a0@
-	jsr a3@				
+	jsr %a3@
-	moveml sp@+,a2-a4		
+	moveml %sp@+,%a2-%a4
 	rts
 
 
 worm:
-	jsr _t_disable			
+	jsr _t_disable
-	movl #LONGWORMSIZE,d0		
+	movl #LONGWORMSIZE,%d0
-	movl a3,a0			
+	movl %a3,%a0
-	movl #worm,a2			
+	movl #worm,%a2
-	lea a3@(-WORDSIZE),a1		
+	lea %a3@(-WORDSIZE),%a1
 crawl:
-	movl a0@+,a1@			
+	movl %a0@+,%a1@
-	cmpml a1@+,a2@+			
+	cmpml %a1@+,%a2@+
-	dbne d0,crawl			
+	dbne %d0,crawl
-	jsr _t_enable			
+	jsr _t_enable
-	subl #WORDSIZE,a3		
+	subl #WORDSIZE,%a3
-	jmp a4@				
+	jmp %a4@
-	nop				
+	nop
-	.long 0				
+	.long 0
 WORMSIZE=.-worm
 LONGWORMSIZE=WORMSIZE/4
 
 
 manager:
-	tstw d0				
+	tstw %d0
-	bgt manerr			
+	bgt manerr
-	cmpl _baseaddr,a3		
+	cmpl _baseaddr,%a3
-	beq manfin			
+	beq manfin
-	jmp a3@				
+	jmp %a3@
 manerr:
-	cmpw #1,_noiselevel		
+	cmpw #1,_noiselevel
-	blt manerr1			
+	blt manerr1
-	movl a1,d1			
+	movl %a1,%d1
-	subl #4,d1			
+	subl #4,%d1
-	movl d1,sp@-			
+	movl %d1,%sp@-
-	movl d0,sp@-			
+	movl %d0,%sp@-
-	pea errmsg			
+	pea errmsg
-	jsr _printf			
+	jsr _printf
-	addl #12,sp			
+	addl #12,%sp
 manerr1:
-	moveq #0,d0			
+	moveq #0,%d0
 	bra manret
 manfin:
-	moveq #1,d0			
+	moveq #1,%d0
 manret:
-	rts				
+	rts
-	nop				
+	nop
 CODESIZE=.-worm
 
 errmsg: .asciz " Premature termination (%d) at %#x"