mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
49 lines
1.1 KiB
Plaintext
49 lines
1.1 KiB
Plaintext
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
|
||
|
||
|