ORG	0100H

	LD	DE,TITLE	; print title message
	LD	C,9
	CALL	BDOS

	LD	BC,END-START
	LD	HL,START
	LD	DE,DEST
	LDIR			; Move prog to safe area ram
	JP	DEST

TITLE:	DB	'ERASING RAMDRIVE - (c) Mike Liddle June 1986'
	DB	0DH,0AH,'$'

START:

	LD	A,Mode3
	OUT	PIOCtrl,A	; Mode 3
	LD	A,IOMask
	OUT	PIOCtrl,A	; Bits 0,1,2 are output

	LD	A,00H		; Start with bank zero

NEXT	OUT	PIOData,A	; Select bank

	LD	BC,07FFFH
	LD	DE,1
	LD	HL,0
	LD	(HL),0E5H
	LDIR			; FILL PAGE WITH E5's

	INC	A
	CP	06H		; Work through to bank 5 and
	JR	NZ,NEXT		; then stop after

	LD	A,07H		; first restoring TPA 
	OUT	PIOData,A

	RET			; CCP stack intact so can return
;	JP	WARM		; or warm boot if you prefer

END	EQU	$

WARM	EQU	00000H
BDOS	EQU	00005H
DEST	EQU	0A000H
PIOData	EQU	01EH		; SYSPIO port B data
PIOCtrl	EQU	01FH		; SYSPIO port B control
Mode3	EQU	0CFH		; Mode3 = Control
IOMask	EQU	0F8H		; Bits 0,1,2 as output. Rest as input.