20 lines
		
	
	
	
		
			293 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			20 lines
		
	
	
	
		
			293 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
| .define .exg
 | |
| 
 | |
|         ! $Header$
 | |
| 	! #bytes in cx
 | |
| .exg:
 | |
| 	pop     bx              ! return address
 | |
| 	mov     dx,cx
 | |
| 	mov     si,sp
 | |
| 	sub     sp,cx
 | |
| 	mov     di,sp
 | |
| 	rep movs
 | |
| 	mov     si,sp
 | |
| 	mov     di,sp
 | |
| 	add     di,dx
 | |
| 	add     di,dx
 | |
| 	mov     cx,dx
 | |
| 	sar     cx,1
 | |
| 	rep movs
 | |
| 	mov     sp,si
 | |
| 	jmp     bx
 |