; ----------------- assembly instructions ---------------------------- 


TOPROM					; Top of Forth In ROM

		lda	#<ORIG		; $0400
		sta	$00
		lda	#>ORIG		; $0400
		sta	$01
		lda	#$00		; start of Forth in ROM
		sta	$02
		lda	#$A6
		sta	$03
CopyROM		lda	($02)
		sta	($00)
		inc	$00
		bne	CopyR1
		inc	$01
CopyR1		inc	$02
		bne	CopyR2
		inc	$03
CopyR2		sec
		lda	#<TOPROM
		ldx	#>TOPROM
		sbc	$02
		txa
		sbc	$03
		bcs	CopyROM
		JMP	Enter	        ; Forth Cold Start