10 lines
		
	
	
	
		
			161 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			10 lines
		
	
	
	
		
			161 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
| .define strhp
 | |
| 
 | |
| strhp:
 | |
| 	popl	RR2, *RR14
 | |
| 	pop	R0, *RR14
 | |
| 	ld	reghp, R0	!heappointer must be < stackpointer.
 | |
| 	cp	R0, R15
 | |
| 	jp	ULT, *RR2
 | |
| 	push	*RR14, $EHEAP
 | |
| 	jr	fatal
 |