.Z80
TITLE	Zloader.mac
;	DOS+
;--------------------------------------
siobyt	equ	0	;i/o byte
drvdt	equ	0	;drive/user
;--------------------------------------
; macro

date	macro
	defb	'2 June 1989'
	endm

auteur	macro
	defb	'UKEUG - P. Henry'
	endm

titre	macro
	defb	' DOS+     Einstein version '
	endm

;chargeur du dos
;
dcharg:
        dw	$loadr		;load the loader at this address
      	dw	$endos		;end of dos (beginning of scratch pad area)
	dw	debu0		;jump at this address after loading the dos
        db	$side		;disc ss (0) or ds (1)
;--------------------------------------
debu0:
				;reset 40 colonnes
	xor	a
	ld	d,80h
	ld	bc,03b00h
.01debu0:
	mcall	zvrout
	inc	bc
	dec	d
	jr	nz,.01debu0
;--------------------------------------
	mcall	zprm
	db	clrscrn
	db	videon
	titre
	db	videof
	defb	cr,lf
	db	'Public Domain Operating System'
	db	cr,lf
	db	'by '
	auteur
	db	cr,lf
	db	'on '
	date
	db	cr,lf+80h

	ld	hl,start		; init first byte of ram
	ld	de,finish-1
	ld	bc,$cpm
	mcall	copy
	ld	hl,path			; reset path to 0
	ld	de,path+4
	ld	c,0
	mcall	mfill
	jp	$bios			; jp cold boot
;--------------------------------------
start:
	jp	$bios+3
	db	0
	db	0
	jp	$bdos+6
finish:
;--------------------------------------