6502/CLK
1
0
Fork 0
mirror of https://github.com/TomHarte/CLK.git synced 2024-07-05 10:28:58 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #437 from TomHarte/AppleIIPaste

Browse Source 
Implements `type_string` for the Apple II.
This commit is contained in:
Thomas Harte 2018-05-13 11:32:45 -04:00 committed by GitHub
commit 8f1a516a2c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Machines/AppleII/AppleII.cpp
View File

@ -117,6 +117,10 @@ class ConcreteMachine:
}
}
// MARK - typing
std::string input_string_;
std::size_t input_string_pointer_ = std::numeric_limits<std::size_t>::max();
public:
ConcreteMachine():
m6502_(*this),
@ -197,7 +201,11 @@ class ConcreteMachine:
default: break;
case 0xc000:
*value = keyboard_input_;
if(input_string_pointer_ != std::numeric_limits<std::size_t>::max()) {
*value = static_cast<uint8_t>(input_string_[input_string_pointer_]) | 0x80;
} else {
*value = keyboard_input_;
}
break;
}
} else {
@ -217,6 +225,11 @@ class ConcreteMachine:
case 0xc010:
keyboard_input_ &= 0x7f;
if(input_string_pointer_ != std::numeric_limits<std::size_t>::max()) {
++input_string_pointer_;
if(input_string_pointer_ == input_string_.size())
input_string_pointer_ = std::numeric_limits<std::size_t>::max();
}
break;
case 0xc030:
@ -347,6 +360,25 @@ class ConcreteMachine:
return *this;
}
void type_string(const std::string &string) override {
input_string_.clear();
input_string_.reserve(string.size());
// Commute any \ns that are not immediately after \rs to \rs; remove the rest.
bool saw_carriage_return = false;
for(auto character: string) {
if(character != '\n') {
input_string_.push_back(character);
} else {
if(!saw_carriage_return) {
input_string_.push_back('\r');
}
}
saw_carriage_return = character == '\r';
}
input_string_pointer_ = 0;
}
// MARK: ConfigurationTarget
void configure_as_target(const Analyser::Static::Target *target) override {
using Target = Analyser::Static::AppleII::Target;