20 lines
		
	
	
	
		
			288 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			20 lines
		
	
	
	
		
			288 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
 | 
						|
.sect .text
 | 
						|
.define iaar~
 | 
						|
.extern aar~,trp~
 | 
						|
! $Header$
 | 
						|
 | 
						|
EILLINS = 022
 | 
						|
 | 
						|
iaar~:
 | 
						|
	mov	(sp)+,r0
 | 
						|
	cmp	(sp)+,$02
 | 
						|
	bne	1f
 | 
						|
	mov	02(sp),r1
 | 
						|
	mov	r0,02(sp)
 | 
						|
	mov	(sp)+,r0
 | 
						|
	jmp	aar~
 | 
						|
1:	mov	$EILLINS,-(sp)
 | 
						|
	jsr	pc,trp~
 | 
						|
	add	$06,sp
 | 
						|
	jmp	(r0)
 |