15 lines
		
	
	
	
		
			223 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
	
		
			223 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
| .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
 | |
| .define	.and
 | |
| 
 | |
|         ! $Header$
 | |
| 
 | |
| 	! bytes in r0
 | |
| .and:
 | |
| 	movl	(sp)+,r3
 | |
| 	addl3	r0,sp,r1
 | |
| 	ashl	$-2,r0,r0
 | |
| 1:
 | |
| 	mcoml	(sp)+,r2
 | |
| 	bicl2	r2,(r1)+
 | |
| 	sobgtr	r0,1b
 | |
| 	jmp	(r3)
 |