title 'startprogramm UDOS'

; MARC Version 1.0
; 12.02.90

	maclib Z80	; define Z80 op codes

bdos	equ	5

s1:	lxi	d,text
	mvi	c,9
	call	bdos
	mvi	c,1
	call	bdos
	cpi	0dh
	rnz
	lxi	d,text1
	mvi	c,9
	call	bdos
;
	di
	mvi	a,03h
	out	0ch
 	out	0dh
	out	0eh
	out	0fh
	lxi	h,180h
	lxi	d,0e000h
	lxi	b,0d80h
	ldir
	jmp	0e000h

text:	db	0dh,0ah,'INSERT UDOS-DISK IN DRIVE A/0 AND TYPE RETURN'
	db	0dh,0ah,0ah,'$'
text1:	db	0ch,'$'

e1:
	ds	128-(e1-s1)

; auf e000h

s2:	xra	a
	out	07h
	lxi	h,0e080h
	lxi	d,1000h
	lxi	b,0d00h
	ldir
	jmp	1000h
e2
	ds	128-(e2-s2)
	end
