; Kopf fuer CPM3-Lader
; fuer MC80
; Version 1.0
; 30.04.89

	maclib	z80

	maclib ports

	extrn	loaend,conout

blockanz equ	9		; muss nach Bindung extern
				; gesetzt werden

	cseg

kobeg:
	db	'MC80'		; Kennung fuer Laderom
	dw	trnfr-0f00h	; Startadresse
	dw	blockanz	; Ladeblockanzahl
;	dw	loabeg	 ; Modifizierung nach Laderwechsel
	dw	loabeg		; Ladebeginn
	dw	loaend		; Ladeende
spsper:	dw	conout		; Speichersperre fuer Laderom
	db	0		; 00H Sp.-sperre ab Adresse
				; FFH Sp.-sperre bis Adresse
	db	0		; Speicherseite fuer Laderom

trnfr:
	lxi	h,loaend	; Lader verschieben auf
	lxi	d,loaend-1	; Arbeitsbereich
	lxi	b,cpmldr
	ora	a
	dsbc	bc
	mov	b,h
	mov	c,l
	lxi	h,loaend-1-0f00h
	lddr
	jmp	cpmldr

koend:
	ds	128-(koend-kobeg)


loabeg:
cpmldr:

	end
