page

; Library:	RCPQUIET for Z34RCP
; Author:	Carson Wilson
; Version:	1.1
; Date:		August 6, 1989
; Changes:	Now "Q R[eset]" and "Q S[et]" just reset and set quiet status 
;		  without showing it, and Q alone (or with any other character,
;		  e.g., "Q ?") always just shows status.
; Forms:
;		Q	- Display quiet flag (always)
;		Q s	- Set quiet flag ON
;		Q r	- Set quiet flag OFF
;
; Author:	Carson Wilson
; Version:	1.0
; Date:		June 15, 1988
;
; Command: 	Q  
; Function:  	Set the Quiet flag on or off
; Comments:	If QQUIET equate is true, then RCP does not report 
;		quiet status with the Q command.
; Forms:
;		Q	- Display quiet flag (if QQUIET false)
;		Q s	- Set quiet flag ON
;		Q r	- Set quiet flag OFF

quset:
	ld	a,(fcb1+1)	; Get first char
	ld	b,1		; Prepare to turn on
	cp	'S'		; S-et quiet (ON)
	jr	z,quset1
	ld	b,0		; Prepare to turn off
	cp	'R'		; R-eset quiet (OFF)
	jr	nz,qmsg		; Neither S nor R, so display
quset1:
	ld	a,b
	ld	(quiet),a
	ret

qmsg:
; Print Quiet Flag Message

	ld	a,(quiet)
	jp	tella		; Say " On" or " Off" and return
	
; End RCPQUIET.LIB