title	Testprogramm zur Ausgabe einer Linie
	name	('TEST')

; Diese kleine Testprogramm loescht den Bildschirm und
; zeichnet eine Linie von oben links (x,y)=(0,0)
; nach unten rechts (x,y)=(719,255)

; Die externe Routine "line" ist enthalten in der Datei BRES-REL.MAC.
; Diese externe Rotine wiederum ruft eine weitere externe Routine
; aus der Datei PLOT.MAC auf.

; Damit alles zusammenspielt, sind folgende Anweisungen noetig:

; M80 =TEST
; M80 =BRES-REL
; M80 =PLOT
; LINK TEST,BRES-REL,PLOT

	ext	line

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

.condir	equ	6

esc	equ	1bh

	ld	sp,(TPATOP)	; Stack laden
;
	ld	a,'H'
	call	escout		; Cursor nach 0,0
	ld	a,'E'
	call	escout		; Bildschirm loeschen
;
	ld	hl,719		; x2
	ld	de,255		; y2
	exx
	ld	hl,0		; x1
	ld	de,0		; y1
	ld	a,0		; Bit anschalten
	call	line		; Linie zeichnen
;
	jp	OS		; Ende
;
; Zeichen mit Praefix ESCape ausgeben
;
escout:
	push	af
	ld	a,esc
	call	conout		; ESCape ausgeben
	pop	af
;
; Zeichen auf Konsole ausgeben
;
conout:
	push	bc
	push	de
	push	hl
	ld	e,a
	ld	c,.condir
	call	BDOS		; Ausgabe
	pop	hl
	pop	de
	pop	bc
	ret

	end