22 lines
		
	
	
	
		
			193 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			22 lines
		
	
	
	
		
			193 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
| .define .strhp
 | |
| 
 | |
| .strhp:
 | |
| 	pop ix
 | |
| 	pop hl
 | |
| 	push hl
 | |
| 	or a
 | |
| 	sbc hl,sp
 | |
| 	jp m,1f
 | |
| 	pop hl
 | |
| 	push hl
 | |
| 	ld a,l
 | |
| 	rra
 | |
| 	jp c,1f
 | |
| 	pop hl
 | |
| 	ld (.reghp),hl
 | |
| 	jp (ix)
 | |
| 1:
 | |
| 	pop hl
 | |
| 	ld hl,EHEAP
 | |
| 	call .trp.z
 | |
| 	jp (ix)
 |