title	MLOAD Test Programm

; Das Programm loescht den Bildschirm und positioniert den Cursor.
; Dort wird eine maschinenabhaengige Meldung ausgegeben.

	aseg
	org	0100h

OS	equ	0000h
BDOS	equ	0005h
TPATOP	equ	BDOS+1

.string	equ	9

	ld	hl,(TPATOP)	; Letzte Speicheradresse laden
	call	setmem		; An overlay uebergeben
	call	clrscr		; Bildschirm loeschen
	ld	h,10		; Zeile laden
	ld	l,15		; Spalte laden
	call	atxy		; Cursor positionieren
	call	idstrg		; Maschinennamen holen
	call	string		; Namen ausgeben
	jp	OS
;
; Meldung in Registerpaar DE ausgeben
;
string:
	push	bc
	push	de
	push	hl
	ld	c,.string
	call	BDOS		; Ausgabe
	pop	hl
	pop	de
	pop	bc
	ret

; Adresse auf Seite einstellen (0XX00H)

	org	($+000ffh) AND 0ff00h

; Adresse ausgeben

	entry	OVLAY
OVLAY	equ	$
;
; Sprungleiste zu den Routinen
;
setmem:
	jp	OS
clrscr:
	jp	OS
atxy:
	jp	OS
idstrg:
	jp	OS

	end