forked from MirrorRepos/RomWBW
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.
54 lines
1.3 KiB
54 lines
1.3 KiB
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
|
|
|