ack/mach/z80/libem/gto.s

.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)
* empty log message * 1985-03-29 21:44:50 +00:00			`.define .gto`
new version for .o 1987-02-02 13:30:20 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-03-29 21:44:50 +00:00
			`.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)`