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
 |