; LDLDR.ASM -- asm support for Manx pipes

closec	equ	16
reads	equ	20
sdma	equ	26

fcb	equ	5ch
tpa	equ	100h
tbuff	equ	80h
bdos	equ	05h
bdosv	equ	06h

loader:
	lxi	d,tpa

load1:
	push	d
	push	b
	mvi	c,sdma
	call	bdos
	pop	d
	push	d
	mvi	c,reads
	call	bdos
	pop	b
	pop	d
	ora	a
	jz	tpa - 8
	mov	d,b
	mov	e,c
	mvi	c,closec
	call	bdos
	
	mvi	c,sdma
	lxi	d,tbuff
	call	bdos
	jmp	tpa

load2:
	lxi	h,80h
	dad	d
	xchg
	jmp	tpa-46

	public	loadldr_

loadldr_:
	lxi	d,loader
	lxi	h,tpa-49
	mvi	b,49

L1:
	ldax	d
	mov	m,a
	inx	d
	inx	h

	dcr	b
	jnz	L1
	lxi	b,fcb
	lxi	d,tpa
	lhld	bdosv
	sphl

	jmp	tpa-49

	end