; Linkage to RXMD via XMODEM.
;
; This program avoids the user learning any new command names,
; since RXMD provides all the functions of XMODEM.
;
cr	equ	0dh
lf	equ	0ah
tstr	equ	9
chain	equ	47
;
boot	equ	0
bdos	equ	boot+5
tbuf	equ	boot+080h
;
	aseg
	org	0100h
	lxi	sp,stack
	lxi	h,tbuf
	mov	a,m
	inx	h
	add	l
	mov	l,a
	adc	h
	sub	l
	mov	h,a
	mvi	m,0
	xchg
	lxi	h,3
	dad	d
	xchg
move:	mov	a,m;		move command line up to 
	stax	d;		inject "RXMD" real name
	dcx	d
	dcx	h
	mov	a,l
	ani	07fh
	jnz	move
	mvi	m,'R'
	inx	h
	mvi	m,'X'
	inx	h
	mvi	m,'M'
	inx	h
	mvi	m,'D'
	mvi	c,chain;	run the RXMD program
	call	bdos;		should never return
	lxi	d,norsx
	mvi	c,tstr;		if it does BYERSX is not up
	call	bdos
	jmp	boot
;
norsx:	db	cr,lf,'BYERSX not running, can''t chain$'
;
	ds	64
stack:
	end