ack/mach/z80/libem/str.s

.define .strhp
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

.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)
* empty log message * 1985-03-29 21:44:50 +00:00			`.define .strhp`
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
			`.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)`