*  Use HB_BUF to make Sounds
*
PROMPT	EQU	$C050
CLRDISP	EQU	$C059
DISBUF	EQU	$C000
PUT		EQU	$C056
SOUND		EQU	$C065
DUR		EQU	$C031
FREQ		EQU	$C032
*
		ORG	$8000
		JSR	CLRDISP
		LDX	DISBUF+16
		LDAA	#$30
FILLD		STAA	$00,X
		INX
		INCA
		CMPA	#$0F
		BNE	FILLD	
		JSR	PUT
*
		LDAA	#$01
		STAA	DUR
		LDAA	#$0A
*
AGAIN		STAA	FREQ
		STAA	DISBUF
		STAA	TEMP
		INCA
		STAA	TEMP+1
		INCA
		STAA	TEMP+2
		JSR	PUT
		JSR	SOUND
*
		LDX	#$4FFF
LOOP		DEX	
		BNE	LOOP
*
		LDAA	FREQ
		ADDA	#$01	
		BRA	AGAIN
TEMP		FCB	$00