	title	'Lader-Modul fuer andere Betriebssysteme V1.0'

	maclib z80

bdos	equ 5
	mvi	c,9
	lxi	d,signon$msg1
	call	bdos		; print signon message
	mvi	a,16
	lxi	b,0
wait:	djnz	wait
	dcr	c
	jrnz	wait
	dcr	a
	jrnz	wait
	mvi	c,9
	lxi	d,signon$msg2
	call	bdos		; print signon message
	mvi	c,1
	call	bdos
	cpi	0dh
	jrz	ready
	mvi	c,9
	lxi	d,abort$msg
	call	bdos
	ret	
ready:	di
	lxi	h,200h
	lxi	d,0c780h
	lxi	b,2b80h
	ldir
	jmp	0c780h

signon$msg1	
		db 13,10,84h,'SCP - Systemloader 624 k Disk V 1.0',85h
		db 13,10,'$'

signon$msg2	
		db 13,10,84h,'INSERT SCP - Disk in Drive A',13,10,10
		db 'and then type RETURN to start / other aborted'
		db 85h,13,10,'$'

abort$msg
		db 13,10,84h,'Loading-Aborted',85h,13,10,'$'

	end
