SBC6809 w/MPB6809 monitor MEMCHK

MEMCHK6809.ASM

;
; SBC6809 w/MPB6809 monitor MEMCHK
;
; MONITOR INTERNAL ROUTINE
OUTEEE	EQU	$E0D8
OUT4HS	EQU	$E0F1
BEGA	EQU	$50   
ENDA	EQU	$52   
; START
	ORG	$0080
START	BSR	CRLF
	LDA	#'$'
	JSR	OUTEEE
	LDX	BEGA	;TOP ADDRESS
LOOP	LDA	0,X
	COM	0,X
	COMA
	CMPA	0,X
	BNE	STEP1
	CMPX	ENDA	; END ADDRESS?
	BEQ	STEP11
	LEAX	1,X
	BRA	LOOP
STEP1	LEAX 	-1,X
STEP11	STX	LASTAD
	LDX	#LASTAD
	JSR	OUT4HS
	BSR	CRLF
	SWI
;
CRLF	LDA	#$0D
	JSR	OUTEEE
	LDA	#$0A
	JSR	OUTEEE
	RTS
;
; VARIABLES
LASTAD	RMB	2
;
	END