R1  DS.B  1
R2  DS.B	1
	ORG   ROMStart
Entry: LDS #RAMEnd+1 	
  BSET DDRB,#$FF		
  LDX  #DATA
  MOVB #8,R1			
  LDAA #$00	
H1 STAA 1,X+
  JSR  F_ERASE
  DEC  R1
  BNE  H1
  LDX  #DATA
  MOVB #8,R2			
H2 LDAA 1,X+
  STAA PORTB
  JSR  DELAY
  DEC  R2
  BNE  H2
HERE BRA HERE
F_ERASE
  LDAA #$40			
  STAA FCMD			
  LDAA #$80
  STAA FSTAT
  LDAA #$FF			
  BRSET FSTAT,mFSTAT_PVIOL,OVER
  BRSET FSTAT,mFSTAT_ACCERR,OVER
  CLRA				
OVER	RTS	
	ORG $4500		
DATA FCB "GOOD BYE"