Extend Memory Check for SBC6800

MEMCHK68.ASM

; MEMCHK - EXTENDED MEMORY CHECK
; TARGET: MIKBUG ON SBC6801 (32k RAM MIKBUG)
; ASSEMBLER: The Macroassembra AS
;
; MIKBUG INTERNAL ROUTINE
OUTEEE	EQU	$E1D1
OUT4HS	EQU	$E0C8
BEGA	EQU	$7F02   ; 32k MIKBUG
ENDA	EQU	$7F04   ; 32k MIKBUG
; START
	ORG	$0080
START	LDAA	#'$'
	JSR	OUTEEE
	LDX	BEGA	;TOP ADDRESS
LOOP	LDAA	0,X
	COM	0,X
	COMA
	CMPA	0,X
	BNE	STEP1
	CPX	ENDA	; END ADDRESS?
	BEQ	STEP11
	INX
	BRA	LOOP
STEP1	DEX
STEP11	STX	LASTAD
	LDX	#LASTAD
	JSR	OUT4HS
	LDAA	#$0D
	JSR	OUTEEE
	LDAA	#$0A
	JSR	OUTEEE
	SWI
;
; VARIABLES
LASTAD	RMB	2
;
	END