mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
52ea94161c
- Add a -DELAY switch to the TUNE command line to force the use of delay mode for note pacing. Issue #558 Credit to @robbbates for suggesting this. - Add missing include file logic for DS1307, Issue #556. Credit to @tpycio. - Miscellaneous documentation improvements per Peter Onion and Petr Antos.
123 lines
2.4 KiB
PHP
123 lines
2.4 KiB
PHP
|
|
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
|
|
RST 08 ; CHECK WE HAVE
|
|
XOR A ; AT LEAST ONE
|
|
CP E ; SOUND DEVICE
|
|
RET NZ
|
|
JP ERRHW
|
|
CLI_HAVE_HBIOS_SWITCH1 ; NOT MATCHED --HBIOS
|
|
XOR A
|
|
LD (HBIOSMD), A
|
|
RET
|
|
|
|
CLI_HAVE_DELAY_SWITCH:
|
|
LD HL, CLIARGS ; TEST FOR --DELAY ON COMMAND LINE
|
|
LD DE, DELAYOPT
|
|
CALL STRINDEX
|
|
JR NZ, CLI_HAVE_DELAY_SWITCH1
|
|
OR $FF ; MATCHED --DELAY
|
|
LD (DELAYMD), A
|
|
RET
|
|
CLI_HAVE_DELAY_SWITCH1 ; NOT MATCHED --HBIOS
|
|
XOR A
|
|
LD (DELAYMD), A
|
|
RET
|
|
|
|
CLI_PORTS:
|
|
LD HL, CLIARGS ; TEST FOR -MSX ON COMMAND LINE
|
|
LD DE, OPT_MSX
|
|
CALL STRINDEX
|
|
JR NZ, CLI_PORTS1
|
|
LD A,PORTS_MSX
|
|
JR CLI_PORTS_Z
|
|
CLI_PORTS1:
|
|
LD HL, CLIARGS ; TEST FOR -RC ON COMMAND LINE
|
|
LD DE, OPT_RC
|
|
CALL STRINDEX
|
|
JR NZ, CLI_PORTS2
|
|
LD A,PORTS_RC
|
|
JR CLI_PORTS_Z
|
|
CLI_PORTS2:
|
|
LD A,PORTS_AUTO ; USE AUTO PORT SELECTION
|
|
CLI_PORTS_Z:
|
|
LD (USEPORTS),A ; SAVE PORTS SELECTION
|
|
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
|
|
|
|
CLI_OCTAVE_ADJST: ; SEARCH FOR OCTAVE ADJUSTMENT SWITCH (-n or +n)
|
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMMAND LINE
|
|
LD DE, DOWN1
|
|
CALL STRINDEX
|
|
JR NZ, CLI_OCTAVE_ADJST1
|
|
|
|
LD A, -1
|
|
JR CLI_OCTAVE_ADJST5
|
|
|
|
CLI_OCTAVE_ADJST1:
|
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMMAND LINE
|
|
LD DE, DOWN2
|
|
CALL STRINDEX
|
|
JR NZ, CLI_OCTAVE_ADJST2
|
|
|
|
LD A, -2
|
|
JR CLI_OCTAVE_ADJST5
|
|
|
|
CLI_OCTAVE_ADJST2:
|
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMMAND LINE
|
|
LD DE, UP1
|
|
CALL STRINDEX
|
|
JR NZ, CLI_OCTAVE_ADJST3
|
|
|
|
LD A, 1
|
|
JR CLI_OCTAVE_ADJST5
|
|
|
|
CLI_OCTAVE_ADJST3:
|
|
LD HL, CLIARGS ; TEST FOR --HBIOS ON COMMAND LINE
|
|
LD DE, UP2
|
|
CALL STRINDEX
|
|
JR NZ, CLI_OCTAVE_ADJST4
|
|
|
|
LD A, 2
|
|
JR CLI_OCTAVE_ADJST5
|
|
|
|
CLI_OCTAVE_ADJST4:
|
|
LD A, 0
|
|
|
|
CLI_OCTAVE_ADJST5:
|
|
LD (OCTAVEADJ), A
|
|
RET
|
|
|
|
OPT_MSX .DB "-MSX", 0 ; USE MSX PORTS
|
|
OPT_RC .DB "-RC", 0 ; USE RC PORTS
|
|
HBIOSOPT: .DB "--HBIOS", 0 ; USE HBIOS API FOR PLAYBACK
|
|
DELAYOPT: .DB "-DELAY",0 ; FORCE DELAY MODE
|
|
DOWN1 .DB "-t1", 0 ; DOWN AN OCTAVE
|
|
DOWN2 .DB "-t2", 0 ; DOWN TWO OCTAVE
|
|
UP1 .DB "+t1", 0 ; UP AN OCTAVE
|
|
UP2 .DB "+t2", 0 ; UP TWO OCTAVE
|