	PAGE 60
	ENTRY MOVETO
	EXT XBEAM,YBEAM,XMIN,YMIN
	.Z80
	.COMMENT #

Subroutine  MOVETO  macht (x,y) zum momentanen Plott-Punkt.

FORTRAN-Aufruf der Routine	CALL MOVETO(IX,IY)

Die Punktkoordinaten (2-Byte-Integer) gelten bezgl. des momentanen Fensters
und werden nach den Regeln von Microsoft-F80 uebergeben. Demnach enthaelt
- HL die Adresse von x
- DE die Adresse von y.

Die Routine setzt die externen Koordinaten XBEAM,YBEAM bezgl. der
linken unteren Fensterecke XMIN,YMIN im Modul PUTP.

A.Herrmann	20.11.83
#
MOVETO:	LD C,(HL)
	INC HL
	LD B,(HL)	; Hole x
	LD HL,(XMIN)
	ADD HL,BC
	LD (XBEAM),HL
	EX DE,HL
	LD C,(HL)
	INC HL
	LD B,(HL)	; Hole y
	LD HL,(YMIN)
	ADD HL,BC
	LD (YBEAM),HL
	RET
	END

