.z80
	.phase	100h
;
c0100:	jp	c0103
;
c0103:	ld	a,(b006D)
	ld	(b01D3),a
	ld	c,0Fh
	ld	de,x005C
	call	c0005
	inc	a
	jp	z,c0190
	xor	a
	ld	(b007C),a
	ld	hl,c01D6
c011C:	ld	c,14h
	ld	de,x005C
	push	hl
	call	c0005
	pop	hl
	and	a
	jr	nz,c014B
	ld	de,x0080
	ex	de,hl
	ld	bc,x0080
	ldir
	ex	de,hl
	push	hl
	ld	de,(w0006)
	ld	bc,x0081
	add	hl,bc
	sbc	hl,de
	pop	hl
	jr	c,c011C
	push	hl
	ld	de,x019A
	ld	c,9
	call	c0005
	pop	hl
c014B:	ld	(w01D4),hl
	ld	hl,c01D6
c0151:	ld	a,(hl)
	cp	1Ah
	jr	nz,c015F
	ld	a,(b01D3)
	and	5Fh	;'_'
	cp	53h	;'S'
	jr	nz,c0187
c015F:	push	hl
	ld	c,6
	ld	e,0FFh
	call	c0005
	pop	hl
	cp	13h		;STOP ?
	jr	z,c0187
	cp	3		;BREAK ?
	jr	z,c0184
	push	hl
	ld	c,4		;PUN:
	ld	e,(hl)
	call	c0005
	pop	hl
	push	hl
	ld	de,(w01D4)
	and	a
	sbc	hl,de
	pop	hl
	inc	hl
	jr	nz,c0151
c0184:	jp	c0000

c0187:	ld	e,1Ah
	ld	c,4
	call	c0005
	jr	c0184

c0190:	ld	de,x01C0
	ld	c,9
	call	c0005
	jr	c0184

x019A:	db	' WARNUNG ! Datei zu lang -> Abbruch',0Dh,0Ah,'$'
x01C0:	db	' Dateifehler !!!',0Dh,0Ah,'$'
b01D3:	db	0
w01D4:	dw	c0000

c01D6:	ld	a,(b01D3)
	and	5Fh	;'_'
	cp	53h	;'S'
	jr	nz,207h
	push	hl
	ld	c,6
	ld	e,0FFh
	call	c0005
	pop	hl
	cp	13h
	jr	z,207h
	cp	3
	jr	z,204h
	push	hl
	ld	c,4
	ld	e,(hl)
	call	c0005
	pop	hl
	push	hl
	ld	de,(w01D4)
	and	a
	sbc	hl,de
c0000	equ	0
c0005	equ	5
w0006	equ	6
x005C	equ	5Ch
b006D	equ	6Dh
b007C	equ	7Ch
x0080	equ	80h
x0081	equ	81h
x0200	equ	200h
xFFFF	equ	0FFFFh
	end