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.
38 lines
669 B
38 lines
669 B
|
|
|
|
CLI_ABRT_IF_OPT_FIRST:
|
|
LD A, (FCB+1)
|
|
CP '-' ; OPTION FIRST OR - MISSING FILENAME?
|
|
JP Z, ERRCMD ; SHOW USAGE
|
|
RET
|
|
|
|
CLI_HAVE_HBIOS_SWITCH:
|
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMMAND LINE
|
|
LD DE, HBIOSOPT
|
|
CALL STRINDEX
|
|
JR NZ, CLI_HAVE_HBIOS_SWITCH1
|
|
OR $FF ; MATCHED --HBIOS
|
|
LD (HBIOSMD), A
|
|
LD BC,(BF_SYSGET*256)+BF_SND ; CHECK WE HAVE
|
|
RST 08
|
|
XOR A
|
|
CP E
|
|
RET NZ
|
|
JP ERRHW
|
|
CLI_HAVE_HBIOS_SWITCH1 ; NOT MATCHED --HBIOS
|
|
XOR A
|
|
LD (HBIOSMD), A
|
|
RET
|
|
|
|
CLI_ABRT_UNSUPPFILTYP:
|
|
PUSH AF
|
|
ISHBIOS
|
|
JR Z, CLI_ABRT_UNSUPPFILTYP1
|
|
POP AF
|
|
CP TYPMYM
|
|
RET NZ
|
|
ERRWITHMSG(MSGUNSUP) ; EXIT WITH UNSUPPORTED FILE TYPE MESSAGE
|
|
|
|
CLI_ABRT_UNSUPPFILTYP1:
|
|
POP AF
|
|
RET
|