title	DATA Generator fuer BASIC - .COM Loader
	name	('DATACOM')
	maclib	base80

; Das Programm wandelt eine Binaerdatei in DATA-Anweisungen fuer BASIC
;
; Dieser Teil laedt eine .COM Datei
;
; Eine .COM-Datei besteht aus einem Vielfachen eines Rekords - 128 Bytes.
; Die kuerzeste .COM-Datei ist ein Rekord lang.
; Eine solche Datei besteht aus einer Abfolge von Bytes.
;
; Copyright (c)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247
;
;		Version 1.0, Januar 1995

	entry	COMexe

	extrn	TopPag,memok

	extrn	string,setdma,dskred

	dseg

	cseg

COMexe:
	ld	c,FALSE		; Anzeige kein Rekord gelesen
	call	.COMexe		; Datei lesen
	ld	a,TRUE
	sub	c		; Test ob Datei leer
	ret	z		; Nein
	inc	a
	ld	a,0		; Fehler setzen
	ret
.COMexe:
	push	hl
	ex	de,hl
	call	setdma		; Disk Puffer setzen
	ld	de,FCB
	call	dskred		; Rekord lesen
	pop	hl
	ret	c		; Dateiende
	ld	c,TRUE
	ld	de,reclng
	add	hl,de		; Zeiger erhoehen
	call	memok		; Test ob noch im verfuegbaren Speicher
	jr	COMexe

	end