mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
54 lines
1.3 KiB
Plaintext
54 lines
1.3 KiB
Plaintext
page
|
||
|
||
; Library: RCPWHL for Z34RCP
|
||
; Author: Carson Wilson
|
||
; Version: 1.0
|
||
; Date: June 15, 1988
|
||
;
|
||
; Command: WHL
|
||
; Function: Set the Wheel Byte on or off
|
||
; Comments:
|
||
;
|
||
; If WHLQUIET equate is true, then RCP does not report wheel status with WHL
|
||
; command.
|
||
;
|
||
; Forms:
|
||
; WHL -- Report Wheel Status
|
||
; WHL password -- Set Wheel ON if password is correct
|
||
; -- Set Wheel OFF if password incorrect
|
||
whl: ld hl,fcb1+1 ; Pt to first char
|
||
ld a,(hl) ; Get it
|
||
cp ' '
|
||
jr z,whlmsg ; Report wheel status if no password
|
||
ld de,whlpass
|
||
ld b,8 ; Check 8 chars
|
||
call comp ; Compare
|
||
jr nz,whloff ; Set wheel off if incorrect password
|
||
|
||
; Turn ON wheel byte
|
||
|
||
ld a,0ffh ; Turn on wheel byte
|
||
jr whlset
|
||
|
||
; Turn OFF wheel byte
|
||
|
||
whloff: xor a ; Turn off wheel byte
|
||
whlset: ld hl,(z3whl) ; Get wheel address from ENV
|
||
ld (hl),a ; Set wheel byte
|
||
|
||
if whlquiet
|
||
ret ; No report if WHLQUIET
|
||
endif
|
||
|
||
; Print Wheel Byte Message
|
||
|
||
whlmsg: call getwhl
|
||
jp tella ; Say " On" or " Off"
|
||
|
||
; Wheel password defined from SYSRCP.LIB file
|
||
|
||
db 'Z'-'@' ; Leading ^Z to block attempt to type RCP file
|
||
whlpass:wpass ; Use macro
|
||
|
||
; End RCPWHL.LIB
|
||
|