mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-09-29 23:54:53 +00:00
beginning of softswitch tests
This commit is contained in:
parent
8b0325d60d
commit
352183cbeb
Binary file not shown.
@ -189,6 +189,104 @@ TEST test_read_random() {
|
|||||||
PASS();
|
PASS();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// ----------------------------------------------------------------------------
|
||||||
|
// Softswitch tests
|
||||||
|
|
||||||
|
#define SS_MASK 0x3ffff
|
||||||
|
|
||||||
|
#define TYPE_PAGE2_OFF() \
|
||||||
|
strcat(input_str, "POKE49236,0\r") /* C054 */
|
||||||
|
|
||||||
|
#define TYPE_PAGE2_ON() \
|
||||||
|
strcat(input_str, "POKE49237,0\r") /* C055 */
|
||||||
|
|
||||||
|
#define TYPE_80STORE_OFF() \
|
||||||
|
strcat(input_str, "POKE49152,0\r") /* C000 */
|
||||||
|
|
||||||
|
#define TYPE_80STORE_ON() \
|
||||||
|
strcat(input_str, "POKE49153,0\r") /* C001 */
|
||||||
|
|
||||||
|
#define TYPE_HIRES_OFF() \
|
||||||
|
strcat(input_str, "POKE49238,0\r") /* C056 */
|
||||||
|
|
||||||
|
#define TYPE_HIRES_ON() \
|
||||||
|
strcat(input_str, "POKE49239,0\r") /* C057 */
|
||||||
|
|
||||||
|
#define TYPE_TRIGGER_WATCHPT() \
|
||||||
|
strcat(input_str, "POKE7987,255\r")
|
||||||
|
|
||||||
|
TEST test_PAGE2_on(bool ss_80store, bool ss_hires) {
|
||||||
|
BOOT_TO_DOS();
|
||||||
|
|
||||||
|
// setup for testing ...
|
||||||
|
|
||||||
|
TYPE_PAGE2_OFF();
|
||||||
|
|
||||||
|
ASSERT(apple_ii_64k[0][WATCHPOINT_ADDR] != TEST_FINISHED);
|
||||||
|
|
||||||
|
if (ss_80store) {
|
||||||
|
TYPE_80STORE_ON();
|
||||||
|
} else {
|
||||||
|
TYPE_80STORE_OFF();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (ss_hires) {
|
||||||
|
TYPE_HIRES_ON();
|
||||||
|
} else {
|
||||||
|
TYPE_HIRES_OFF();
|
||||||
|
}
|
||||||
|
|
||||||
|
TYPE_TRIGGER_WATCHPT();
|
||||||
|
|
||||||
|
c_debugger_go();
|
||||||
|
|
||||||
|
ASSERT(apple_ii_64k[0][WATCHPOINT_ADDR] == TEST_FINISHED);
|
||||||
|
ASSERT(!(softswitches & SS_PAGE2));
|
||||||
|
ASSERT( (ss_80store ? (softswitches & SS_80STORE) : !(softswitches & SS_80STORE)) );
|
||||||
|
ASSERT( (ss_hires ? (softswitches & SS_HIRES) : !(softswitches & SS_HIRES)) );
|
||||||
|
|
||||||
|
uint32_t ss_save = softswitches;
|
||||||
|
|
||||||
|
// run actual test ...
|
||||||
|
|
||||||
|
RESET_INPUT();
|
||||||
|
apple_ii_64k[0][WATCHPOINT_ADDR] = 0x00;
|
||||||
|
TYPE_PAGE2_ON();
|
||||||
|
TYPE_TRIGGER_WATCHPT();
|
||||||
|
|
||||||
|
c_debugger_go();
|
||||||
|
|
||||||
|
ASSERT(apple_ii_64k[0][WATCHPOINT_ADDR] == TEST_FINISHED);
|
||||||
|
ASSERT((softswitches & SS_PAGE2));
|
||||||
|
ASSERT( (ss_80store ? (softswitches & SS_80STORE) : !(softswitches & SS_80STORE)) );
|
||||||
|
ASSERT( (ss_hires ? (softswitches & SS_HIRES) : !(softswitches & SS_HIRES)) );
|
||||||
|
|
||||||
|
if (ss_80store) {
|
||||||
|
ASSERT(video__current_page == 0);
|
||||||
|
ASSERT((softswitches & (SS_TEXTRD|SS_TEXTWRT)));
|
||||||
|
ASSERT((void *)base_textrd == (void *)(apple_ii_64k[1]));
|
||||||
|
ASSERT((void *)base_textwrt == (void *)(apple_ii_64k[1]));
|
||||||
|
if (ss_hires) {
|
||||||
|
ASSERT((softswitches & (SS_HGRRD|SS_HGRWRT)));
|
||||||
|
ASSERT((void *)base_hgrrd == (void *)(apple_ii_64k[1]));
|
||||||
|
ASSERT((void *)base_hgrwrt == (void *)(apple_ii_64k[1]));
|
||||||
|
} else {
|
||||||
|
ASSERT((void *)base_hgrrd == (void *)(apple_ii_64k));
|
||||||
|
ASSERT((void *)base_hgrwrt == (void *)(apple_ii_64k));
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
ss_save = (ss_save | SS_PAGE2);
|
||||||
|
ASSERT(((softswitches & SS_MASK) == ss_save));
|
||||||
|
ASSERT(video__current_page = 1);
|
||||||
|
ASSERT((void *)base_textrd == (void *)(apple_ii_64k));
|
||||||
|
ASSERT((void *)base_textwrt == (void *)(apple_ii_64k));
|
||||||
|
ASSERT((void *)base_hgrrd == (void *)(apple_ii_64k));
|
||||||
|
ASSERT((void *)base_hgrwrt == (void *)(apple_ii_64k));
|
||||||
|
}
|
||||||
|
|
||||||
|
PASS();
|
||||||
|
}
|
||||||
|
|
||||||
// ----------------------------------------------------------------------------
|
// ----------------------------------------------------------------------------
|
||||||
// Test Suite
|
// Test Suite
|
||||||
|
|
||||||
@ -238,6 +336,11 @@ GREATEST_SUITE(test_suite_vm) {
|
|||||||
|
|
||||||
RUN_TESTp(test_read_random);
|
RUN_TESTp(test_read_random);
|
||||||
|
|
||||||
|
RUN_TESTp(test_PAGE2_on, /*80STORE*/0, /*HIRES*/0);
|
||||||
|
RUN_TESTp(test_PAGE2_on, /*80STORE*/0, /*HIRES*/1);
|
||||||
|
RUN_TESTp(test_PAGE2_on, /*80STORE*/1, /*HIRES*/0);
|
||||||
|
RUN_TESTp(test_PAGE2_on, /*80STORE*/1, /*HIRES*/1);
|
||||||
|
|
||||||
// ...
|
// ...
|
||||||
c_eject_6(0);
|
c_eject_6(0);
|
||||||
pthread_mutex_unlock(&interface_mutex);
|
pthread_mutex_unlock(&interface_mutex);
|
||||||
|
Loading…
Reference in New Issue
Block a user