title	Module from library BASE_1 : CHAIN
	name	('CHAIN')
	maclib	baselib.lib

; Chain to another program without operator intervention

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 May 1986

; ENTRY	Reg E holds the chain flag (00H or FFH)
;	The default DMA must be preset by a command
;	line ended with a zero

; EXIT	None

	entry	chain

chain:
	ld	c,.chain	; Set function
	jp	BDOS		; Execute function

	end