ack/mach/z80/libem/saru.s

.define .saru
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

! SAR NOT DEFINED

.saru:
	pop ix
	pop hl
	xor a
	xor h
	jp nz,1f
	ld a,2
	xor l
	jp z,2f
1:
	ld hl,EARRAY
	call .trp.z
2:
	push ix
	jp .sar
* empty log message * 1985-03-29 21:44:50 +00:00			`.define .saru`
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
			`! SAR NOT DEFINED`

			`.saru:`
			`pop ix`
			`pop hl`
			`xor a`
			`xor h`
			`jp nz,1f`
			`ld a,2`
			`xor l`
			`jp z,2f`
			`1:`
			`ld hl,EARRAY`
			`call .trp.z`
			`2:`
			`push ix`
			`jp .sar`