;EJECT
;RA� dis� ini� routine:
;---------------------:
POWUP	EQU	111DH		� Powe� up/rese� marker

M$INIT0:LD	A,(POWUP)	� Powe� u� ?
	OR	A
	RET	Z

;clea� RA� disk:
	LD	C,192		� Entr� count		 --� reg� C
	LD	DE,128		� ^firs� director� entr� --� reg� DE
CLRNXT:	PUSH	BC		� Sav� remainin� entr� count
	PUSH	DE		� Sav� ^director� entry
	LD	HL,CLRBYT	� ^E5		   --� reg� HL
	LD	BC,� SH� 8+15	� Byt� count	   --� reg� B
				� Functio� #	   --� reg� C
	LD	A,SBANK		� Sourc�      ban� � � 0
				� Destinatio� ban� � � 2
	CALL	?USERF		� Clea� curren� entry
	POP	HL		� ^curren� director� entr� --� reg� HL
	LD	DE,32		� Offse� t� nex� entry	   --� reg� DE
	ADD	HL,DE		� Ad� offset
	EX	DE,HL		� ^nex� director� entr�    --� reg� DE
	POP	BC		� Restor� entr� count
	DEC	C		� Decremen� it
	JR	NZ,CLRNXT	� Clea� nex� entry
	RET
CLRBYT:	DEFB	0E5H
          �