23 lines
		
	
	
	
		
			288 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			23 lines
		
	
	
	
		
			288 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
#
 | 
						|
.sect .text; .sect .rom; .sect .data; .sect .bss
 | 
						|
 | 
						|
/* Load from bounds-checked array.
 | 
						|
 *
 | 
						|
 * Stack: ( array-adr index descriptor-adr -- element )
 | 
						|
 */
 | 
						|
 | 
						|
.sect .text
 | 
						|
.define .lar4
 | 
						|
.lar4:
 | 
						|
	mov r25, ra
 | 
						|
 | 
						|
	jal .aar4
 | 
						|
	nop
 | 
						|
 | 
						|
	/* pass r2 = size from .aar4 to .los4 */
 | 
						|
 | 
						|
	jal .los4
 | 
						|
	nop
 | 
						|
 | 
						|
	jr r25
 | 
						|
	nop
 |