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.
33 lines
576 B
33 lines
576 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 COMNMAND LINE
|
|
LD DE, HBIOSOPT
|
|
CALL STRINDEX
|
|
JR NZ, CLI_HAVE_HBIOS_SWITCH1
|
|
OR $FF ; IS NOT HBIOS
|
|
LD (HBIOSMD), A
|
|
RET
|
|
CLI_HAVE_HBIOS_SWITCH1:
|
|
AND 0 ; IS HBIOS
|
|
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
|