ack/mach/i86/libem/dup.s

.sect .text; .sect .rom; .sect .data; .sect .bss
.define	.dup

	! #bytes in cx
	.sect .text
.dup:
	pop	bx		! return address
	mov	si,sp
	sub	sp,cx
	mov	di,sp
	sar	cx,1
	rep movs
	jmp	bx
adapted to new assembler syntax 1987-01-08 10:13:48 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss`
* empty log message * 1985-02-07 15:33:13 +00:00			`.define .dup`

			`! #bytes in cx`
adapted to new assembler syntax 1987-01-08 10:13:48 +00:00			`.sect .text`
* empty log message * 1985-02-07 15:33:13 +00:00			`.dup:`
			`pop bx ! return address`
			`mov si,sp`
			`sub sp,cx`
			`mov di,sp`
			`sar cx,1`
			`rep movs`
			`jmp bx`