27 lines
		
	
	
	
		
			285 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
	
		
			285 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
.define .gto
 | 
						|
.sect .text
 | 
						|
.sect .rom
 | 
						|
.sect .data
 | 
						|
.sect .bss
 | 
						|
.sect .text
 | 
						|
 | 
						|
.gto:
 | 
						|
	ld e,(hl)
 | 
						|
	inc hl
 | 
						|
	ld d,(hl)
 | 
						|
	push de
 | 
						|
	pop ix		! new pc
 | 
						|
	inc hl	
 | 
						|
	ld e,(hl)
 | 
						|
	inc hl
 | 
						|
	ld d,(hl)	! new sp
 | 
						|
	inc hl
 | 
						|
	ld c,(hl)
 | 
						|
	inc hl	
 | 
						|
	ld b,(hl)	! new lb
 | 
						|
	push bc
 | 
						|
	pop iy
 | 
						|
	push de	
 | 
						|
	pop hl
 | 
						|
	ld sp,hl
 | 
						|
	jp (ix)
 |