.Z80
;
;HARDCOPY AUF DISKETTE
;
PROL	EQU	7F7FH
CAOS	EQU	0F003H
ARGN	EQU	0B781H
ARG1	EQU	ARGN+1
ARG2	EQU	ARG1+2
HCOPAD	EQU	0B799H
;
	ASEG
	ORG	100H
	DEFM	'010688'
	DEFS	10,0
	DEFB	3		;ARGN
	DEFW	NAME		;ANFANG
	DEFW	ENDE		;ENDE
	DEFW	START		; START
	DEFS	105
;
	.PHASE	0BA00H
NAME:	DEFM	'TEST    '
	DEFM	'.KCP'
ANFAN:	DEFW	PROL
	DEFM	'FCOPY'		;NAMENSEINTRAG	
	DEFB	1
	CALL 	CAOS
	DEFB	23H
	DEFM	'Name :'
	DEFB	0
	CALL	CAOS
	DEFB	17H	;INLIN
	LD	HL,6
	ADD	HL,DE
	LD	DE,NAME
	LD	BC,8
	LDIR
START:	LD	HL,FSAVE
	LD	(HCOPAD),HL
	RET
;
FSAVE:	PUSH	DE
	LD	HL,NAME
	LD	E,12
	LD	BC,82F3H	;NAME
FL0:	LD	A,M
	OUT	(C),A
	INC	HL
	INC	B
	DEC	E
	JR	NZ,FL0
	LD	A,2
	LD	HL,ARGX
	LD	DE,0B05H	;OPEN
	LD	BC,91F2H	;DATEN
FHLOP:	OUTI
	INC	B
	INC	B
	DEC	E
	JR	NZ,FHLOP
	LD	BC,80F3H
	OUT	(C),D
FL1:	IN	A,(C)
	BIT	0,A
	JR	NZ,FL1
	BIT	7,A
	JR	Z,FW2
FLERR:	LD	BC,81F3H
	IN	A,(C)	;FEHLERCODE
	CALL	CAOS
	DEFB	1CH	;AHEX
ERROR:	CALL	CAOS	
	DEFB	19H
	POP	DE
	RET
;
FW2:	LD	BC,81F2H
	BIT	3,D
	JR	Z,FW9
	LD	HL,8000H
FW9:	PUSH	HL
	LD	DE,0B200H
	AND	A
	SBC	HL,DE
	POP	HL
	LD	BC,81F2H
	LD	DE,380H
	JR	NC,FCL
	JR	FHLOP
;
FCL:	LD	BC,80F3H
	LD	A,43H		;CLOSE
	OUT	(C),A
	IN	A,(C)
	BIT	0,A
	JR	Z,FCL
	BIT	7,A
	JR	NZ,FLERR
	POP	DE
	RET
;
ARGX:	DEFB	2
	DEFW	8000H
	DEFW	0B200H	
ENDE	EQU 	$
	END