18 lines
		
	
	
	
		
			201 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			18 lines
		
	
	
	
		
			201 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
.define strhp
 | 
						|
.sect .text
 | 
						|
.sect .rom
 | 
						|
.sect .data
 | 
						|
.sect .bss
 | 
						|
.sect .text
 | 
						|
 | 
						|
strhp:
 | 
						|
	popl	RR2, *RR14
 | 
						|
	pop	R0, *RR14
 | 
						|
	cp	R0, R15
 | 
						|
	jp	ULT, 1f
 | 
						|
	push	*RR14, $EHEAP
 | 
						|
	calr	trp
 | 
						|
	jp	*RR2
 | 
						|
1:
 | 
						|
	ld	reghp, R0
 | 
						|
	jp	*RR2
 |