*12456789012345678901245678901234567890124567890123456789

#INCLUDE	'A:\VAR_DEF.ASM'

* Define program variables
	ORG	DATA

* Start main program
	ORG	PROGRAM
START	LDX	#REGBAS
	LDAA	#%00110000	; initialize BAUD=9600
	STAA	BAUD,X
	LDAA	#%00000000	; initialize 8-bit word
	STAA	SCCR1,X
	LDAA	#%00001100	; initialize TE and RE
	STAA	SCCR2,X
* Load character '   ' in AccB
LABEL2	LDAB	#$2d
* Send the character to the terminal
LABEL3	LDAA	SCSR,X		; check if TDRE is set
	ANDA	#%10000000	; AND with the mask for TDRE
	BEQ	LABEL3
* You are here when the transmission reg. is empty
	STAB	SCDR,X
	BRA	LABEL2
	SWI

	ORG	$FFFE	; reset vector
	FDB	START	; set to start of program