;
wboot	equ	0
bdos	equ	5
tint	equ	75Ah
fmem	equ	0b901h

	.z80
	.phase 100h

	LD	HL,4000H	;ZIELADRES
	LD	DE,4001H	;QUELLADRESSE
MAMO2:	ld	c,2
	ld	b,80H
	CALL	UPMOV
	PUSH	DE
	LD	B,2
	LD 	DE,CRLF
	CALL	UPMOV
	POP	DE
	LD	A,D
	CP	40H
 	JR	NC,MAMO2
	ret
CRLF:	DEFB	8DH
	DEFB	0AH
;HL =ZIELADRESSE
;DE =QUELLADRESSE
;B  =LAENGE
; 
upmov:	push	bc
	ld	A,1bh
	call	OUT
	ld	A,'S'		;1 Byte schreiben
	call	OUT
	ld	A,l		;Low-Teil
	call	OUT
	ld	A,h		;High-Teil
	call	OUT
	ld	A,(de)		;Byte
 	CP	0		;ABBRUCH
	JR	Z,UPMO1	
	call	OUT
	pop	bc
	inc 	hl
	INC 	de
	djnz	upmov
	ret
UPMO1:	POP	BC
	RET
;
OUT:	PUSH	HL
	PUSH	DE
	PUSH	BC
	LD	E,A
	LD	C,2
	CALL	BDOS
	POP	BC
	POP 	DE
	POP	HL
	RET
;

	end