X? command now returns the dos version
This commit is contained in:
parent
dba374593e
commit
dfaa09d2f8
2 changed files with 24 additions and 2 deletions
|
@ -1322,6 +1322,25 @@ void IEC_Commands::User(void)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void IEC_Commands::Extended(void)
|
||||||
|
{
|
||||||
|
Channel& channel = channels[15];
|
||||||
|
|
||||||
|
//DEBUG_LOG("User channel.buffer[1] = %c\r\n", channel.buffer[1]);
|
||||||
|
|
||||||
|
switch (toupper(channel.buffer[1]))
|
||||||
|
{
|
||||||
|
case '?':
|
||||||
|
Error(ERROR_73_DOSVERSION);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
// Extended commands not implemented yet
|
||||||
|
Error(ERROR_31_SYNTAX_ERROR);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// http://www.n2dvm.com/UIEC.pdf
|
||||||
void IEC_Commands::ProcessCommand(void)
|
void IEC_Commands::ProcessCommand(void)
|
||||||
{
|
{
|
||||||
Error(ERROR_00_OK);
|
Error(ERROR_00_OK);
|
||||||
|
@ -1406,8 +1425,10 @@ void IEC_Commands::ProcessCommand(void)
|
||||||
//OPEN1, 9, 15, "XW":CLOSE1
|
//OPEN1, 9, 15, "XW":CLOSE1
|
||||||
break;
|
break;
|
||||||
case 'X':
|
case 'X':
|
||||||
// Extended commands not implemented yet
|
Extended();
|
||||||
Error(ERROR_31_SYNTAX_ERROR);
|
break;
|
||||||
|
case '/':
|
||||||
|
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
Error(ERROR_31_SYNTAX_ERROR);
|
Error(ERROR_31_SYNTAX_ERROR);
|
||||||
|
|
|
@ -162,6 +162,7 @@ protected:
|
||||||
|
|
||||||
void Memory(void);
|
void Memory(void);
|
||||||
void User(void);
|
void User(void);
|
||||||
|
void Extended(void);
|
||||||
|
|
||||||
void ProcessCommand(void);
|
void ProcessCommand(void);
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue