FSAVEASM;Programm FSAVE 0000H 009BH
;--------------------------
;
;	reassembliert von FSAVE.KCC
;	der CAOS-Diskette
;
;			` ml 13.09.1990
;---------------------------------------
ARGN	EQU 0B781H
ARG1	EQU ARGN+1
ARG2	EQU ARGN+3
PV1	EQU 0F003H
WAIT	EQU 14H
INLIN	EQU 17H
ERRM	EQU 19H
AHEX	EQU 1CH
OSTR	EQU 23H
;--------------------------
	ORG 0
	DEFW 07F7FH
	DEFM 'FSAVE'
	DEFB 1
	LD A,(ARGN)
	CP 2
	JR C,ERANZ	; < 2 Arg.
	CALL PV1
	DEFB OSTR
	DEFM 'Name :'
	DEFB 0
	CALL PV1
	DEFB INLIN
	LD HL,6
	ADD HL,DE	;Beginn Name
	LD E,0CH	;L{nge
	LD BC,82F3H	;Portadr. Name
NAMWR	LD A,M
	OUT (C),A
	INC HL
	INC B
	DEC E
	JR NZ,NAMWR
	LD HL,ARGN
	LD DE,0B0BH	;Anzahl
	LD BC,91F2H	;Portadr. Daten
SCHR	OUTI
	INC B
	INC B
	DEC E
	JR NZ,SCHR
	LD BC,80F3H	;n{chsten Block
	OUT (C),D	;D=0BH bei Name
NFERT	PUSH BC
	LD A,1
	CALL PV1
	DEFB WAIT
	POP BC
	IN A,(C)
	BIT 0,A
	JR NZ,NFERT
	BIT 7,A
	JR Z,KERR
ERN	LD BC,81F3H	;Fehlernummer
	IN A,(C)
	CALL PV1
	DEFB AHEX
ERANZ	CALL PV1
	DEFB ERRM
	RET
KERR	LD BC,81F2H
	BIT 3,D
	JR Z,N3
	LD HL,(ARG1)	;Anfangsadresse
N3	PUSH HL
	LD DE,(ARG2)	;Endadresse
	AND A
	SBC HL,DE
	POP HL
	LD BC,81F2H
	LD DE,0380H
	JR NC,END
	JR SCHR
END	LD BC,80F3H
	LD A,43H	;Ende-Zeichen
	OUT (C),A
NEND	PUSH BC
	LD A,1
	CALL PV1
	DEFB WAIT
	POP BC
	IN A,(C)
	BIT 0,A
	JR NZ,NEND
	BIT 7,A
	JR NZ,ERN	;Fehlernummer
	RET
;009BH
lf`[VQLHD@<9630MELO1§(>2’·MELO2§(>2’·НрЙ"—·* ·%."”·э*—·э~хеэе*”·" ·бхНрсНрНр,бсж(
!я__~