ack/mach/z80/libem/gto.s
1985-03-29 21:44:50 +00:00

23 lines
227 B
ArmAsm

.define .gto
.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)