.TITLE	BELL
	.ENABL	LC
;
;	CALL BELL or CALL BELL(N) -- This subroutine rings the bell on the
;	plotting device.  If the optional argument is included, the bell is
;	rung that many times.
;
	.PSECT	BELL
BELL::	MOV	#1,R4		;SET DEFAULT NUMBER OF RINGS.
	TST	(R5)		;IS ARGUMENT PRESENT?
	BEQ	1$		;BRANCH IF NOT
	MOV	@2(R5),R4	;GET NUMBER OF RINGS.
				;
1$:	MOV	R5,-(SP)	;SAVE R5
	MOV	#LIST,R5	;SET ARGUMENT LIST FOR TOUTPT
A:	JSR	PC,TOUTPT	;RING BELL
	SOB	R4,A		;COUNT DOWN TO ZERO
				;
	MOV	(SP)+,R5	;RESTORE R5
	RTS	PC		;RETURN
LIST:	.WORD	2,SEVEN,LIST	;RING BELL TWICE EACH TIME
SEVEN:	.BYTE	7,7		;TWO BELLS
	.END