#asm 8080
LDHLSX	MACRO NN
	LXI	H, NN
	DAD	SP
	MOV	A,M
	INX	H
	MOV	H,M
	MOV	L,A
ENDM
#endasm


bcopy()
{
#asm 8080
; BCOPY(SRC,DEST,COUNT)
;
	PUSH	B

	LDHLSX	4
	MOV	B,H
	MOV	C,L
	LDHLSX	6
	XCHG
	LDHLSX	8
.Z80
	LDIR
.8080
	POP	B
#endasm
}

