mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.1 KiB
49 lines
1.1 KiB
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
|
|
|
|
|