X? command now returns the dos version

This commit is contained in:
Stephen White 2019-04-28 14:05:04 +10:00
parent dba374593e
commit dfaa09d2f8
2 changed files with 24 additions and 2 deletions

View file

@ -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)
{
Error(ERROR_00_OK);
@ -1406,8 +1425,10 @@ void IEC_Commands::ProcessCommand(void)
//OPEN1, 9, 15, "XW":CLOSE1
break;
case 'X':
// Extended commands not implemented yet
Error(ERROR_31_SYNTAX_ERROR);
Extended();
break;
case '/':
break;
default:
Error(ERROR_31_SYNTAX_ERROR);

View file

@ -162,6 +162,7 @@ protected:
void Memory(void);
void User(void);
void Extended(void);
void ProcessCommand(void);