ack/mach/z80/libem/sdf.s

.define .sdf
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

! store double offsetted

.sdf:
	pop bc
	push bc		!test
	pop ix		! return address
	pop hl		! address
	add hl,de
	pop bc
	ld (hl),c
	inc hl
	ld (hl),b
	inc hl
	pop bc
	ld (hl),c
	inc hl
	ld (hl),b
	jp (ix)		! return
* empty log message * 1985-03-29 21:44:50 +00:00			`.define .sdf`
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
			`! store double offsetted`

			`.sdf:`
			`pop bc`
			`push bc !test`
			`pop ix ! return address`
			`pop hl ! address`
			`add hl,de`
			`pop bc`
			`ld (hl),c`
			`inc hl`
			`ld (hl),b`
			`inc hl`
			`pop bc`
			`ld (hl),c`
			`inc hl`
			`ld (hl),b`
			`jp (ix) ! return`