/* Calculate FPS */ nowtick = clock(); now = nowtick/CLOCKS_PER_SEC; if (now != then) { then = now; FPS = Frames - LastFrames; LastFrames = Frames; fprintf(stderr, "FPS = %d \r", FPS); } goto *lab[register_PC]; L0000: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0f01; register_P = 0x0; /* set page register */ L0008: ram[register_I = (register_P << 4) + 0x0] = register_A; /* store acc to RAM */ register_I = ram[(register_P << 4) + 0x00]&0xff; /* set/mask new register_I */ ram[register_I] = register_B; /* store acc */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L0008; ram[register_I = (register_P << 4) + 0x0] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; reset_coin_counter(1); goto L0904; L0026: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0x1c; register_A = flag_C = acc_a0 = 0x091c; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0xd3; register_A = flag_C = acc_a0 = 0x02d3; register_P = 0x8; /* set page register */ ram[register_I = 0x83] = 0x2d3; /* store acc to RAM */ register_P = 0x2; /* set page register */ ram[register_I = 0x22] = 0x2d3; /* store acc to RAM */ ram[register_I = 0x23] = 0x2d3; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x2c] = 0x000; /* store acc to RAM */ ram[register_I = 0x2d] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ ram[register_I = 0x62] = 0x000; /* store acc to RAM */ ram[register_I = 0x60] = 0x000; /* store acc to RAM */ ram[register_I = 0x6a] = 0x000; /* store acc to RAM */ ram[register_I = 0x6c] = 0x000; /* store acc to RAM */ ram[register_I = 0x69] = 0x000; /* store acc to RAM */ cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; ram[register_I = 0x61] = 0x001; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x7); #else register_A = cmp_new = get_io_startbutton(); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (cmp_new == cmp_old) goto L0058; register_P = 0x2; /* set page register */ register_PC = 0x1000; /* rom offset */ goto L1000; L004a: register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x001f))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0056; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ goto L0058; L0056: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I] = register_A; /* store acc */ L0058: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0300; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x12) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L0065: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L0065; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xb; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000b; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } /* wait for a tick on the watchdog */ #ifndef DUALCPU CinemaClearScreen(); bNewFrame = 1; bailOut = TRUE; #endif register_PC = 0x006f; continue; /* NOT REALLY A JUMP - ACTUALLY FOR GETTING BACK TO POLLING LOOP - NEEDS WORK */ L006f: /* wait for a tick on the watchdog */ #ifndef DUALCPU CinemaClearScreen(); bNewFrame = 1; bailOut = TRUE; #endif register_PC = 0x0070; continue; /* NOT REALLY A JUMP - ACTUALLY FOR GETTING BACK TO POLLING LOOP - NEEDS WORK */ L0070: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L00be; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1a; register_A = flag_C = acc_a0 = 0x001a; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x18; register_A = flag_C = acc_a0 = 0x0018; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x16; register_A = flag_C = acc_a0 = 0x0016; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x14; register_A = flag_C = acc_a0 = 0x0014; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L00be: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x37]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L00df; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x15; register_A = flag_C = acc_a0 = 0x0115; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x33]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L00e2; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x30]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L00e2; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x69]; /* set I register */ if (cmp_new == cmp_old) goto L00df; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x69] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; register_P = 0x7; /* set page register */ ram[register_I = 0x72] = 0x00f; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x73]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x73] = register_A; /* store acc */ L00df: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x3; /* set page register */ ram[register_I = 0x30] = 0x000; /* store acc to RAM */ L00e2: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x47]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0103; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x15; register_A = flag_C = acc_a0 = 0x0115; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x43]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0106; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x40]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0106; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x69]; /* set I register */ if (cmp_new == cmp_old) goto L0103; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x69] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; register_P = 0x7; /* set page register */ ram[register_I = 0x72] = 0x00f; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x73]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x73] = register_A; /* store acc */ L0103: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x4; /* set page register */ ram[register_I = 0x40] = 0x000; /* store acc to RAM */ L0106: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x57]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0127; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x15; register_A = flag_C = acc_a0 = 0x0115; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x53]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L012a; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x50]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L012a; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x69]; /* set I register */ if (cmp_new == cmp_old) goto L0127; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x69] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; register_P = 0x7; /* set page register */ ram[register_I = 0x72] = 0x00f; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x73]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x73] = register_A; /* store acc */ L0127: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x5; /* set page register */ ram[register_I = 0x50] = 0x000; /* store acc to RAM */ L012a: register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x73]; /* set I register */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new < cmp_old) goto L013e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x14; register_A = flag_C = acc_a0 = 0x0014; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L013e: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xa0; register_A = flag_C = acc_a0 = 0x00a0; register_P = 0xc; /* set page register */ ram[register_I = 0xc1] = 0x0a0; /* store acc to RAM */ L0148: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x01]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I = (register_P << 4) + 0x2] = register_A; /* store acc to RAM */ L014b: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_new = 0x8; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0408; register_I = ram[(register_P << 4) + 0x01]&0xff; /* set/mask new register_I */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = (register_P << 4) + 0x5] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0300; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ if (cmp_new < cmp_old) goto L0164; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0164: ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x7; /* set page register */ ram[register_I = 0x70] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x4; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0004; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x73]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L018b; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ register_P = 0xc; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc5]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x7; /* set page register */ ram[register_I = 0x74] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; L0181: cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ if (!(flag_C & CARRYBIT)) goto L0181; register_P = 0xc; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0xc5]))) & 0xFFF; /* do acc operation */ ram[0xc5] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; vgColour = 0x0f; L018b: register_P = 0xc; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc5]; /* set I register */ register_I = ram[0xc1]&0xff; /* set new register_I (8 bits) */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x8; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0308; register_I = ram[0xc2]&0xff; /* set new register_I (8 bits) */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0xc6] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L01a1; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L01a1: ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x7; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x70]))) & 0xFFF; /* do acc operation */ ram[0x70] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x4; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0004; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x73]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L01c6; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ register_P = 0xc; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc6]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x7; /* set page register */ ram[register_I = 0x74] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; L01bf: cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ if (!(flag_C & CARRYBIT)) goto L01bf; register_P = 0xc; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0xc6]))) & 0xFFF; /* do acc operation */ ram[0xc6] = register_A; /* store acc */ L01c6: register_P = 0xc; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc6]; /* set I register */ register_I = ram[0xc2]&0xff; /* set new register_I (8 bits) */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; register_I = ram[0xc1]&0xff; /* set new register_I (8 bits) */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (!(flag_C & CARRYBIT)) goto L020f; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; register_I = ram[0xc2]&0xff; /* set new register_I (8 bits) */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (!(flag_C & CARRYBIT)) goto L020f; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc8]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x4) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new < cmp_old) goto L01df; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc9]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x5) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L020f; L01df: register_I = ram[(register_P << 4) + 0x02]&0xff; /* set/mask new register_I */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); register_I = ram[(register_P << 4) + 0x01]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x4e) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L01ea: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L01ea; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x66; register_A = flag_C = acc_a0 = 0x0266; register_P = 0x7; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x70]))) & 0xFFF; /* do acc operation */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_P = 0xc; /* set page register */ register_I = ram[0xc2]&0xff; /* set new register_I (8 bits) */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); register_I = ram[0xc1]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0xc1]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[0xc1] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xc0; register_A = flag_C = acc_a0 = 0x00c0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0148; goto L08b6; L020f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x3f; register_A = flag_C = acc_a0 = 0x003f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x74; register_A = flag_C = acc_a0 = 0x0274; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x5] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x6] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x00]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L0243; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ L0243: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ register_I = ram[(register_P << 4) + 0x01]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x00]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L025e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ L025e: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x6]))) & 0xFFF; /* do acc operation */ register_I = ram[(register_P << 4) + 0x02]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ goto L014b; L02b6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x1f) ^ 0xFFF) + 1))) & 0xFFF; /* add */ if (cmp_new < cmp_old) goto L02dc; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L08ed; cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L08ed; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0xf); #else register_A = cmp_new = get_io_bit(0xf); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ register_P = 0x7; /* set page register */ ram[register_I = 0x75] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x001e))) & 0xFFF; /* add values */ set_sound_data(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); goto L08fb; L02dc: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I] = register_A; /* store acc */ L02de: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x73]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L02ed; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = register_A; cmp_new = 0x08; register_A = flag_C = acc_a0 = 0x0308; register_P = 0x1; /* set page register */ ram[register_I = 0x1f] = 0x308; /* store acc to RAM */ register_P = 0x2; /* set page register */ register_PC = 0x1dc0; /* rom offset */ goto L1dc0; L02ed: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ ram[register_I = 0x62] = 0x000; /* store acc to RAM */ ram[register_I = 0x60] = 0x000; /* store acc to RAM */ cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0005; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x73]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L004a; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x15; register_A = flag_C = acc_a0 = 0x0015; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0005; goto L004a; L0308: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x37]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0319; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x3d]; /* set I register */ if (cmp_new == cmp_old) goto L0319; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x33]))) & 0xFFF; /* do acc operation */ ram[0x33] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x33]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0319; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x30] = 0x000; /* store acc to RAM */ ram[register_I = 0x3d] = 0x000; /* store acc to RAM */ L0319: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x47]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0329; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x4d]; /* set I register */ if (cmp_new == cmp_old) goto L0329; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x43]))) & 0xFFF; /* do acc operation */ ram[0x43] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x43]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0329; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x40] = 0x000; /* store acc to RAM */ ram[register_I = 0x4d] = 0x000; /* store acc to RAM */ L0329: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x57]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0339; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x5d]; /* set I register */ if (cmp_new == cmp_old) goto L0339; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x53]))) & 0xFFF; /* do acc operation */ ram[0x53] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x53]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0339; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x50] = 0x000; /* store acc to RAM */ ram[register_I = 0x5d] = 0x000; /* store acc to RAM */ L0339: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L086f; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x6); #else register_A = cmp_new = get_io_shields(); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (cmp_new == cmp_old) goto L086f; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x8; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x81]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L086f; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x80]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x80] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x8) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L0377; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[0x80] = 0x000; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x81]; /* set I register */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L0373; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L036d; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L0368; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ goto L0376; L0368: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x7) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ goto L0376; L036d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x67) ^ 0xFFF) + 1))) & 0xFFF; /* add */ goto L0376; L0373: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0x99; register_A = flag_C = acc_a0 = 0x0999; L0376: ram[register_I] = register_A; /* store acc */ L0377: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0300; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); register_P = 0x1; /* set page register */ ram[register_I = (register_P << 4) + 0x1] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; ram[register_I = 0x10] = 0x200; /* store acc to RAM */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x43) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L0386: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L0386; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = register_A; cmp_new = 0xcb; register_A = flag_C = acc_a0 = 0x03cb; ram[register_I = (register_P << 4) + 0x6] = 0x3cb; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; ram[register_I = (register_P << 4) + 0x8] = 0x0ff; /* store acc to RAM */ L0392: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x00]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x01]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L03e6; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x0]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x1]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0x4] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* new acc value */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x0]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x01]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x0]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x1]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ register_P = 0x8; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x83]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x83]))) & 0xFFF; set_watchdog(); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x83]))) & 0xFFF; set_watchdog(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; ram[0x83] = register_A; /* store acc */ vgColour = register_A & 0x01 ? 0x0f: 0x07; register_P = 0x1; /* set page register */ goto L0392; L03e6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x19; register_A = flag_C = acc_a0 = 0x0019; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x16; register_A = flag_C = acc_a0 = 0x0016; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L045e; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x30]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0424; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x3d]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0424; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x33]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0424; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x4d; register_A = flag_C = acc_a0 = 0x004d; ram[register_I = 0x3d] = 0x04d; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L0424: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x40]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0441; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x4d]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0441; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x43]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0441; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x4d; register_A = flag_C = acc_a0 = 0x004d; ram[register_I = 0x4d] = 0x04d; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L0441: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x50]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L045e; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x5d]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L045e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x53]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L045e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x4d; register_A = flag_C = acc_a0 = 0x004d; ram[register_I = 0x5d] = 0x04d; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L045e: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0586; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0xe); #else register_A = cmp_new = get_io_bit(0xe); #endif cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L04d7; register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; put_io_bit(/*bitno*/0x7, /*set or clr*/0x0); cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x2a]; /* set I register */ ram[register_I = 0x28] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = register_A; cmp_new = 0x78; register_A = flag_C = acc_a0 = 0x0478; ram[register_I = 0x2d] = 0x478; /* store acc to RAM */ goto L0495; L0495: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x800; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; ram[register_I = 0x2e] = register_A; /* store acc to RAM */ L049d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xf]))) & 0xFFF; /* do acc operation */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0100; {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x11) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L04a7: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L04a7; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ goto L04b4; L04b4: ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L04c1; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; ram[register_I] = register_A; /* store acc */ goto L049d; L04c1: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L04cc; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L04cc: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x7; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L04d4; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ L04d4: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = register_J; goto *lab[register_PC];}; L04d7: cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x1); #else register_A = cmp_new = get_io_moveright(); #endif register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x2); #else register_A = cmp_new = get_io_moveleft(); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x2a]))) & 0xFFF; /* do acc operation */ ram[0x2a] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L04f6; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0e00; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2a]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L04f6; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L04f4; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0e00; ram[0x2a] = 0xe00; /* store acc */ goto L04f6; L04f4: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; ram[register_I] = register_A; /* store acc */ L04f6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x3); #else register_A = cmp_new = get_io_moveup(); #endif register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x4); #else register_A = cmp_new = get_io_movedown(); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x2b]))) & 0xFFF; /* do acc operation */ ram[0x2b] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2b]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L051b; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0d00; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2b]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L051b; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2b]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0518; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0d00; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[0x2b] = register_A; /* store acc */ goto L051b; L0518: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; ram[register_I] = register_A; /* store acc */ L051b: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0xa4; register_A = flag_C = acc_a0 = 0x01a4; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0537; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0533; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0e00; cmp_old = register_A; cmp_new = 0x84; register_A = flag_C = acc_a0 = 0x0e84; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0536; goto L0537; L0533: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0xa4; register_A = flag_C = acc_a0 = 0x01a4; L0536: ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ L0537: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x2c; register_A = flag_C = acc_a0 = 0x012c; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0551; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L054d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0e00; cmp_old = register_A; cmp_new = 0xd4; register_A = flag_C = acc_a0 = 0x0ed4; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0550; goto L0551; L054d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x2c; register_A = flag_C = acc_a0 = 0x012c; L0550: ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ L0551: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xd]))) & 0xFFF; /* do acc operation */ register_P = 0x6; /* set page register */ ram[register_I = 0x64] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; register_P = 0x2; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x2c]))) & 0xFFF; /* do acc operation */ register_P = 0x6; /* set page register */ ram[register_I = 0x63] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x1e) ^ 0xFFF) + 1))) & 0xFFF; /* add */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x5); #else register_A = cmp_new = get_io_fire(); #endif ram[register_I = 0x6f] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x60]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0573; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x60] = register_A; /* store acc */ goto L0584; L0573: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0584; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x6); #else register_A = cmp_new = get_io_shields(); #endif cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L0584; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x1]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0584; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x9; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0009; ram[register_I = (register_P << 4) + 0x2] = 0x009; /* store acc to RAM */ cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000c; ram[register_I = (register_P << 4) + 0x0] = 0x00c; /* store acc to RAM */ L0584: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ ram[register_I = (register_P << 4) + 0x1] = register_A; /* store acc to RAM */ L0586: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x30]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L05af; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x37]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0599; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x3d]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0599; ram[register_I = 0x36] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x34]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x34] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x35]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[0x35] = register_A; /* store acc */ L0599: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L05ac; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0500; cmp_old = register_A; cmp_new = 0xb6; register_A = flag_C = acc_a0 = 0x05b6; register_P = 0x0; /* set page register */ ram[register_I = 0x00] = 0x5b6; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x31; register_A = flag_C = acc_a0 = 0x0031; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x031; /* store acc to RAM */ goto L0c00; L05ac: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ L05af: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x64) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L05b2: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L05b2; L05b6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0648; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x63]; /* set I register */ register_P = 0x1; /* set page register */ ram[register_I = 0x10] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x1e) ^ 0xFFF) + 1))) & 0xFFF; /* add */ ram[register_I = 0x13] = register_A; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x64]; /* set I register */ register_P = 0x1; /* set page register */ ram[register_I = 0x11] = register_A; /* store acc to RAM */ ram[register_I = 0x14] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0x15; register_A = flag_C = acc_a0 = 0x0615; ram[register_I = 0x16] = 0x615; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; ram[register_I = 0x18] = 0x0ff; /* store acc to RAM */ L05d0: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L05ff; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x0]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x1]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* new acc value */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x04]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ goto L05d0; L05ff: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0648; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x0]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x1]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x4] = register_A; /* store acc to RAM */ goto L05d0; L0648: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x62]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L06b9; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x8); #else register_A = cmp_new = get_io_bit(0x8); #endif cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; if (cmp_new == cmp_old) goto L065d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x6; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0006; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L065d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); goto L065f; L065d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; L065f: register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x001a))) & 0xFFF; /* add values */ set_sound_data(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x02]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_P = 0x0; /* set page register */ ram[register_I = 0x0a] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x62]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x64]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[register_I = (register_P << 4) + 0x6] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x64]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x66]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_P = 0x0; /* set page register */ ram[register_I = 0x0b] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0a]; /* set I register */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ L0693: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x40]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L06cd; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x47]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L06a6; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x4d]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L06a6; ram[register_I = 0x46] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x44]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[0x44] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x45]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x45] = register_A; /* store acc */ L06a6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L06ca; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0xd4; register_A = flag_C = acc_a0 = 0x06d4; register_P = 0x0; /* set page register */ ram[register_I = 0x00] = 0x6d4; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x41; register_A = flag_C = acc_a0 = 0x0041; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x041; /* store acc to RAM */ goto L0c00; L06b9: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1a; register_A = flag_C = acc_a0 = 0x001a; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); goto L0693; L06ca: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ L06cd: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x64) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L06d0: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L06d0; L06d4: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x62]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L07bd; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0xd); #else register_A = cmp_new = get_io_bit(0xd); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (cmp_new == cmp_old) goto L0724; vgColour = register_A & 0x01 ? 0x0f: 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0xc0; register_A = flag_C = acc_a0 = 0x0fc0; register_P = 0x0; /* set page register */ ram[register_I = 0x05] = 0xfc0; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x62]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x05]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = 0x0a]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0b]; /* set I register */ ram[register_I = 0x06] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x05]; /* set I register */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x63]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0706; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0706: ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x64]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x08] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0716; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0716: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L07a4; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x06]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } goto L07a4; L0724: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; vgColour = 0x0f; register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0a]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x63]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0b]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x64]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x08] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x07]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x0e] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; cmp_old = register_A; cmp_new = 0xa4; register_A = flag_C = acc_a0 = 0x07a4; L073b: ram[register_I = (register_P << 4) + 0x1] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ ram[register_I = (register_P << 4) + 0x2] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* set I register */ ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x4] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; cmp_old = register_A; cmp_new = 0x81; register_A = flag_C = acc_a0 = 0x0781; ram[register_I = (register_P << 4) + 0xc] = 0x781; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x02]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x0b) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L0754: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L0754; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0764; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0764: ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x2]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L076f; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L076f: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xd]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L077a; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x2]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x03]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } L077a: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ ram[register_I = (register_P << 4) + 0x2] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = register_J; goto *lab[register_PC];}; L07a4: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x63]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = 0x65] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x62]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x65]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x63]))) & 0xFFF; /* do acc operation */ register_P = 0x0; /* set page register */ ram[register_I = 0x0a] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ L07bd: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x50]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L07e6; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x57]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L07d0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x5d]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L07d0; ram[register_I = 0x56] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x54]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x2) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x54] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x55]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x55] = register_A; /* store acc */ L07d0: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L07e3; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; cmp_old = register_A; cmp_new = 0xed; register_A = flag_C = acc_a0 = 0x07ed; register_P = 0x0; /* set page register */ ram[register_I = 0x00] = 0x7ed; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x51; register_A = flag_C = acc_a0 = 0x0051; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x051; /* store acc to RAM */ goto L0c00; L07e3: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ L07e6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x64) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L07e9: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L07e9; L07ed: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x62]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0855; cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0xd); #else register_A = cmp_new = get_io_bit(0xd); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (cmp_new == cmp_old) goto L083e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x40; register_A = flag_C = acc_a0 = 0x0040; register_P = 0x0; /* set page register */ ram[register_I = 0x05] = 0x040; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x62]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x05]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = 0x0a]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0b]; /* set I register */ ram[register_I = 0x06] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x05]; /* set I register */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x05]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x63]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0820; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0820: ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x64]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x08] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0830; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0830: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L0855; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x06]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } goto L0855; L083e: register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0a]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x63]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0b]; /* set I register */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x64]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x0; /* set page register */ ram[register_I = 0x08] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x07]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x0e] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0x55; register_A = flag_C = acc_a0 = 0x0855; goto L073b; L0855: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x62]; /* set I register */ if (cmp_new == cmp_old) goto L085d; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x62] = register_A; /* store acc */ L085d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L08ed; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x37]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L088e; cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x37]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L088e; goto L0898; L086f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x18; register_A = flag_C = acc_a0 = 0x0018; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x16; register_A = flag_C = acc_a0 = 0x0016; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); goto L045e; L088e: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x47]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L08a9; cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x47]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L08a9; L0898: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1f; register_A = flag_C = acc_a0 = 0x001f; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); goto L08fb; L08a9: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x57]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L08ed; cmp_new = 0x5; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x57]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L08ed; goto L0898; L08b6: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7a]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L08ed; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x30]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0308; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x40]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0308; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x50]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0308; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7d]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L02b6; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L02de; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x14; register_A = flag_C = acc_a0 = 0x0014; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ ram[register_I = 0x73] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; ram[register_I = 0x7e] = 0xf00; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x10; register_A = flag_C = acc_a0 = 0x0010; ram[register_I = 0x7c] = 0x010; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; ram[register_I = 0x7d] = 0x001; /* store acc to RAM */ L08ed: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L08fb: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0x00; register_A = flag_C = acc_a0 = 0x0600; register_P = 0x0; /* set page register */ ram[register_I = 0x00] = 0x600; /* store acc to RAM */ register_P = 0x2; /* set page register */ register_PC = 0x1080; /* rom offset */ goto L1080; L0904: flag_C = acc_a0 = register_A; cmp_old = register_B; /* save old accB */ #ifdef RAWIO register_B = cmp_new = (( ioSwitches >> 0x1 ) & 0x01); #else register_B = cmp_new = get_shield_bit2(); #endif cmp_new = 0x0CEC; acc_a0 = register_A; cmp_old = register_B; flag_C = (0x0CEC + register_B); register_B = (register_B << 1) & 0xFFF; register_P = 0x8; /* set page register */ ram[register_I = (register_P << 4) + 0x2] = register_B; /* set I register and store B to ram */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* save old accB */ #ifdef RAWIO register_B = cmp_new = (( ioSwitches >> 0x4 ) & 0x01); #else register_B = cmp_new = get_shield_bit1(); #endif acc_a0 = register_A; cmp_old = register_B; register_B = (flag_C = (register_B + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_new = 0x0CEC; acc_a0 = register_A; cmp_old = register_B; flag_C = (0x0CEC + register_B); register_B = (register_B << 1) & 0xFFF; ram[register_I] = register_B; /* store acc */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* save old accB */ #ifdef RAWIO register_B = cmp_new = (( ioSwitches >> 0x5 ) & 0x01); #else register_B = cmp_new = get_shield_bit0(); #endif acc_a0 = register_A; cmp_old = register_B; register_B = (flag_C = (register_B + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_B; /* store acc */ goto L0026; L0c00: register_P = 0x1; /* set page register */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x10] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x11] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x12] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x13] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x14] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x15] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x1a] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x10]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x16] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x16]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c48; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x16]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c44; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x1e) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x16]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c47; goto L0c48; L0c44: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; L0c47: ram[register_I = (register_P << 4) + 0x6] = register_A; /* store acc to RAM */ L0c48: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x1]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = (register_P << 4) + 0x7] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c6e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c6a; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x1e) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c6d; goto L0c6e; L0c6a: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; L0c6d: ram[register_I = (register_P << 4) + 0x7] = register_A; /* store acc to RAM */ L0c6e: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x2]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0c81; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x40; register_A = flag_C = acc_a0 = 0x0040; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x6]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x40; register_A = flag_C = acc_a0 = 0x0040; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0c81: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x6) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0c9e; cmp_old = register_A; cmp_new = 0x40; register_A = flag_C = acc_a0 = 0x0040; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0c9c; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ goto L0c9e; L0c9c: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; L0c9e: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0c00; cmp_old = register_A; cmp_new = 0xa9; register_A = flag_C = acc_a0 = 0x0ca9; ram[register_I = (register_P << 4) + 0xf] = 0xca9; /* store acc to RAM */ goto L0eeb; L0ca9: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* set I register */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0cca; cmp_old = register_A; cmp_new = 0x40; register_A = flag_C = acc_a0 = 0x0040; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0cc8; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ goto L0cca; L0cc8: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; L0cca: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0c00; cmp_old = register_A; cmp_new = 0xd5; register_A = flag_C = acc_a0 = 0x0cd5; ram[register_I = (register_P << 4) + 0xf] = 0xcd5; /* store acc to RAM */ goto L0eeb; L0cd5: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ if (cmp_new < cmp_old) goto L0cde; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0cde: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xb]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x3] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L0cf2; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0cf2: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ if (cmp_new < cmp_old) goto L0cfb; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0cfb: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x3] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L0d0f; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0d0f: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ if (cmp_new < cmp_old) goto L0d18; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0d18: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xa]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x4] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L0d2c; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0d2c: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ if (cmp_new < cmp_old) goto L0d35; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0d35: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xb]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0xf] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L0d49; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0d49: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ if (cmp_new < cmp_old) goto L0d52; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0d52: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L0d66; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0d66: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x4) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ ram[register_I = (register_P << 4) + 0x0] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ ram[register_I = (register_P << 4) + 0x1] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ ram[register_I = (register_P << 4) + 0x2] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x9))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x12]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x0; /* set page register */ ram[register_I = 0x09] = register_A; /* store acc to RAM */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x10]; /* set I register */ register_P = 0x0; /* set page register */ ram[register_I = 0x05] = register_A; /* store acc to RAM */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x11]; /* set I register */ register_P = 0x0; /* set page register */ ram[register_I = 0x06] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; ram[register_I = 0x0d] = 0x200; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x04] = 0x000; /* store acc to RAM */ L0d93: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0e03; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0da4; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0da4: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dae; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dae: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0db8; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0db8: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dc2; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); L0dc0: acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dc2: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dcc; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dcc: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dd6; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dd6: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0de0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0de0: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dea; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dea: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0df4; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0df4: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L0dfe; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L0dfe: ram[register_I = (register_P << 4) + 0x9] = register_B; /* set I register and store B to ram */ goto L0e0b; L0e03: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ goto L0d93; L0e0b: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ if (cmp_new < cmp_old) goto L0e14; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0e14: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } ram[register_I = (register_P << 4) + 0x7] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0e2a; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0e2a: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ if (cmp_new < cmp_old) goto L0e33; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0e33: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } ram[register_I = (register_P << 4) + 0x8] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x6]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0e49; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L0e49: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = ram[register_I = (register_P << 4) + 0x04]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new == cmp_old) goto L0e5b; L0e52: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ if (!(flag_C & CARRYBIT)) goto L0e52; L0e5b: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ register_P = 0x1; /* set page register */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x19] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; register_P = 0x0; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x07]))) & 0xFFF; /* do acc operation */ register_P = 0x1; /* set page register */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x62]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L0ee7; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x62]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L0ee7; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; register_P = 0x1; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x12]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0ee7; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0016))) & 0xFFF; /* add values */ register_P = 0x0; /* set page register */ ram[register_I = 0x09] = register_A; /* store acc to RAM */ register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x2c]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x07]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[0x07] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; if (cmp_new < cmp_old) goto L0e90; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0e90: cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ if (cmp_new < cmp_old) goto L0ee7; register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x2d]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x08]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[0x08] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x08]; /* set I register */ if (cmp_new < cmp_old) goto L0ea0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L0ea0: cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ if (cmp_new < cmp_old) goto L0ee7; register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x4) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x19] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ ram[register_I] = register_A; /* store acc */ L0eac: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ ram[register_I = 0x6f] = 0x000; /* store acc to RAM */ cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; register_P = 0x7; /* set page register */ ram[register_I = 0x71] = 0x00f; /* store acc to RAM */ register_P = 0x2; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x24]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); register_P = 0x6; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x6b]))) & 0xFFF; /* do acc operation */ ram[0x6b] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0xa) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L0ec0; ram[0x6b] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; ram[register_I = 0x6f] = 0x001; /* store acc to RAM */ L0ec0: register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x24]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x6; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x6f]))) & 0xFFF; /* do acc operation */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x6a]))) & 0xFFF; /* do acc operation */ ram[0x6a] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0xa) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L0edf; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x6))) & 0xFFF; /* add values, save carry */ ram[0x6a] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xf0; register_A = flag_C = acc_a0 = 0x00f0; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0xa0) ^ 0xFFF) + 1))) & 0xFFF; /* add */ if (!(flag_C & CARRYBIT)) goto L0edf; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0060))) & 0xFFF; /* add values */ ram[0x6a] = register_A; /* store acc */ L0edf: register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x29]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x29] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new == cmp_old) goto L0eac; L0ee7: register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x00]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[0x00]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = register_J; goto *lab[register_PC];}; L0eeb: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0x6c; register_A = flag_C = acc_a0 = 0x0f6c; ram[register_I = (register_P << 4) + 0xa] = 0xf6c; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x20; register_A = flag_C = acc_a0 = 0x0020; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0f15; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0f21; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0020))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L0f35; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0060))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ goto L0f43; L0f15: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0x4c; register_A = flag_C = acc_a0 = 0x0f4c; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ goto L0f2f; L0f21: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x40) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0020))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ L0f2f: cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ goto L0f49; L0f35: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0040))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x60) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L0f43: cmp_old = register_A; register_A = cmp_new = rom[register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ L0f49: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = register_J; goto *lab[register_PC];}; /*********************************************************/ L1000: state = state_A; /* Even if it's not! :-) */ goto L1d70; L1005: /* wait for a tick on the watchdog */ #ifndef DUALCPU CinemaClearScreen(); bNewFrame = 1; bailOut = TRUE; #endif register_PC = 0x1006; continue; /* NOT REALLY A JUMP - ACTUALLY FOR GETTING BACK TO POLLING LOOP - NEEDS WORK */ L1006: /* wait for a tick on the watchdog */ #ifndef DUALCPU CinemaClearScreen(); bNewFrame = 1; bailOut = TRUE; #endif register_PC = 0x1007; continue; /* NOT REALLY A JUMP - ACTUALLY FOR GETTING BACK TO POLLING LOOP - NEEDS WORK */ L1007: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; register_P = 0x1; /* set page register */ ram[register_I = 0x10] = 0x000; /* store acc to RAM */ ram[register_I = 0x11] = 0x000; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x11]))) & 0xFFF; set_watchdog(); flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0300; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x38) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L1015: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L1015; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; ram[register_I = (register_P << 4) + 0x2] = 0x100; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = (register_P << 4) + 0xc] = 0x000; /* store acc to RAM */ ram[register_I = (register_P << 4) + 0xa] = 0x000; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; ram[register_I = (register_P << 4) + 0xd] = 0x0ff; /* store acc to RAM */ ram[register_I = (register_P << 4) + 0xb] = 0x0ff; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x31; register_A = flag_C = acc_a0 = 0x0031; ram[register_I = (register_P << 4) + 0x6] = 0x031; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x2e; register_A = flag_C = acc_a0 = 0x005f; ram[register_I = (register_P << 4) + 0x7] = 0x05f; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x05; register_A = flag_C = acc_a0 = 0x0005; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x005; /* store acc to RAM */ goto L1128; L1058: goto L1128; L1072: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; if (cmp_new == cmp_old) goto L1128; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; vgColour = 0x0f; goto L1128; L1080: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x3; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x30]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1094; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x3b; register_A = flag_C = acc_a0 = 0x003b; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x03b; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x94; register_A = flag_C = acc_a0 = 0x0094; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x094; /* store acc to RAM */ goto L10b7; L1094: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x4; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x40]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L10a7; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x4b; register_A = flag_C = acc_a0 = 0x004b; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x04b; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xa7; register_A = flag_C = acc_a0 = 0x00a7; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x0a7; /* store acc to RAM */ goto L10b7; L10a7: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x50]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L147d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x5b; register_A = flag_C = acc_a0 = 0x005b; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x05b; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = register_A; cmp_new = 0x7d; register_A = flag_C = acc_a0 = 0x047d; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x47d; /* store acc to RAM */ L10b7: register_P = 0x1; /* set page register */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_P = 0x2; /* set page register */ ram[register_I = 0x26] = register_A; /* store acc to RAM */ register_P = 0x1; /* set page register */ ram[register_I = 0x13] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x13]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1479; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_P = 0x2; /* set page register */ ram[register_I = 0x27] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x27]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1479; register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x13]; /* set I register */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0xc) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x19] = register_A; /* store acc */ register_I = ram[0x19]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x17] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[register_I = 0x16] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0x0] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0x1] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0x2] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x0d; register_A = flag_C = acc_a0 = 0x010d; ram[register_I = (register_P << 4) + 0xf] = 0x10d; /* store acc to RAM */ goto L1575; L110d: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* set I register */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x011e; ram[register_I = (register_P << 4) + 0xf] = 0x11e; /* store acc to RAM */ goto L1575; L111e: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x09]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; goto L1072; L1128: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; register_P = 0x1; /* set page register */ ram[register_I = 0x18] = 0x0ff; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x16]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x16] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x2) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ register_P = 0x0; /* set page register */ ram[register_I = 0x03] = register_A; /* store acc to RAM */ L1134: register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x03]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L139c; register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x16]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x3))) & 0xFFF; /* add values, save carry */ ram[0x16] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1471; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x3] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x4] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x5] = register_A; /* store acc to RAM */ register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x03]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ ram[0x03] = register_A; /* store acc */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x13]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[0x13] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x14]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[0x14] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x1c]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x1d]))) & 0xFFF; /* do acc operation */ ram[register_I = 0x1f] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x1f]; /* set I register */ if (cmp_new < cmp_old) goto L1172; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1172: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0xf] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L1186; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1186: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ if (cmp_new < cmp_old) goto L1195; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1195: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x3] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L11a9; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L11a9: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ if (cmp_new < cmp_old) goto L11b2; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L11b2: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x4] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L11c6; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L11c6: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xb]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ if (cmp_new < cmp_old) goto L11e0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L11e0: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0xf] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L11f4; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L11f4: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ if (cmp_new < cmp_old) goto L1203; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1203: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xa]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x4] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L1217; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1217: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* set I register */ if (cmp_new < cmp_old) goto L1220; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1220: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xb]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L1234; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1234: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x4]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xd]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ if (cmp_new < cmp_old) goto L124e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L124e: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0xf] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L1262; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1262: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ if (cmp_new < cmp_old) goto L1271; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1271: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x3] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L1285; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1285: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ if (cmp_new < cmp_old) goto L128e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L128e: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ if (cmp_new < cmp_old) goto L12a2; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L12a2: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x3]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x0]))) & 0xFFF; /* do acc operation */ register_P = 0x0; /* set page register */ ram[register_I = 0x05] = register_A; /* store acc to RAM */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x14]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x11]))) & 0xFFF; /* do acc operation */ register_P = 0x0; /* set page register */ ram[register_I = 0x06] = register_A; /* store acc to RAM */ register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x15]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x12]))) & 0xFFF; /* do acc operation */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x0; /* set page register */ ram[register_I = 0x09] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; ram[register_I = 0x0d] = 0x200; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x04] = 0x000; /* store acc to RAM */ L12c3: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1333; flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L12d4; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L12d4: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L12de; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L12de: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L12e8; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L12e8: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L12f2; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L12f2: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L12fc; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L12fc: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L1306; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L1306: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L1310; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L1310: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L131a; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L131a: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L1324; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L1324: cmp_new = 0x0FEF; cmp_old = acc_a0 = register_A; flag_C = (0x0FEF + register_A); register_A = (register_A << 1) & 0xFFF; register_B = (register_B << 1) & 0xFFF; acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new < cmp_old) goto L132e; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = 0x1) ^ 0xFFF) + 1)) & 0xFFF; /* 1's-comp add */ L132e: ram[register_I = (register_P << 4) + 0x9] = register_B; /* set I register and store B to ram */ goto L133b; L1333: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ goto L12c3; L133b: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ if (cmp_new < cmp_old) goto L1344; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1344: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } ram[register_I = (register_P << 4) + 0x7] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x5]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L135a; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L135a: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ if (cmp_new < cmp_old) goto L1363; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1363: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } ram[register_I = (register_P << 4) + 0x8] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x6]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1379; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I] = register_A; /* store acc */ L1379: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; acc_a0 = register_A; register_B = (flag_C = ((cmp_old = register_B) + ((cmp_new = ram[register_I = (register_P << 4) + 0x04]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ if (cmp_new == cmp_old) goto L138b; L1382: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ acc_a0 = register_A; /* save old accA bit0 */ cmp_old = register_B; /* store old acc for later */ register_B = (flag_C = (register_B + (cmp_new = 0x01))) & 0xFFF; /* add values */ if (!(flag_C & CARRYBIT)) goto L1382; L138b: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00e0))) & 0xFFF; /* add values */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x0e]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x0f]&0xff; /* set/mask new register_I */ ram[register_I] = register_A; /* store acc */ L139c: register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x17]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1479; register_P = 0x0; /* set page register */ ram[register_I = 0x0b] = register_A; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x03]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1134; ram[register_I = 0x0a] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x0b]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[0x0b] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x03]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1134; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00e0))) & 0xFFF; /* add values */ ram[register_I = 0x0e] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I = 0x0f] = register_A; /* store acc to RAM */ register_I = ram[0x0f]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x06] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x06]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1454; register_I = ram[0x0e]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x05] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x05]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1454; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x0b]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00e0))) & 0xFFF; /* add values */ ram[register_I = 0x0e] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I = 0x0f] = register_A; /* store acc to RAM */ register_I = ram[0x0f]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x08] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x08]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1454; register_I = ram[0x0e]&0xff; /* set new register_I (8 bits) */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x07]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1454; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x08]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x06]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = 0x08] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x07]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x05]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = 0x07] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; register_P = 0x1; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x19]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L141e; register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x05]; /* set I register */ register_P = 0x2; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x26]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_P = 0x0; /* set page register */ ram[register_I = 0x0c] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x0c]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } register_P = 0x2; /* set page register */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = 0x26]))) & 0xFFF; /* do acc operation */ register_P = 0x0; /* set page register */ ram[register_I = (register_P << 4) + 0x5] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x06]; /* set I register */ register_P = 0x2; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x27]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_P = 0x0; /* set page register */ ram[register_I = 0x0c] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0; register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x19]; /* set I register */ register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x0c]) ^ 0xFFF) + 1 + register_A); cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } cmp_new = ram[register_I]; register_B <<= 4; /* get sign bit 15 */ register_B |= (register_A >> 8); /* bring in A high nibble */ register_A = ((register_A & 0xFF) << 8) | (0xe3); /* pick up opcode */ if (register_A & 0x100) /* 1bit shifted out? */ { acc_a0 = register_A = (register_A >> 8) | ((register_B & 0xFF) << 8); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)4)) /* SAR */; cmp_old = register_B & 0x0F; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)1)) /* SAR */; register_B &= 0xFFF; flag_C = (register_B += cmp_new); register_B &= 0xFFF; } else { register_A = (register_A >> 8) | /* Bhigh | Alow */ ((register_B & 0xFF) << 8); cmp_old = acc_a0 = register_A & 0xFFF; flag_C = (cmp_old + cmp_new); register_A >>= 1; register_A &= 0xFFF; register_B = ((signed short int)(((signed short int)register_B) >> (signed short int)5)) /* SAR */; register_B &= 0xFFF; } register_P = 0x2; /* set page register */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = 0x27]))) & 0xFFF; /* do acc operation */ register_P = 0x0; /* set page register */ ram[register_I = (register_P << 4) + 0x6] = register_B; /* set I register and store B to ram */ L141e: register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x05]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x07]; /* set I register */ if (cmp_new < cmp_old) goto L142d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L142d: ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x08]; /* set I register */ if (cmp_new < cmp_old) goto L1436; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ L1436: ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L1454; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x08) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L1440: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L1440; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x7) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L145b; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xc]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L145b; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x08]; /* new acc value */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x06]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } L1454: register_P = 0x1; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x17]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x17] = register_A; /* store acc */ goto L139c; L145b: flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x08]; /* new acc value */ cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[register_I] = register_B; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I] = register_A; /* store acc */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x06]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x08]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x6]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x5]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ goto L141e; L1471: register_P = 0x0; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x03]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x03] = register_A; /* store acc */ register_P = 0x1; /* set page register */ goto L139c; L1479: register_P = 0x2; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x2f]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[0x2f]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = 0x1000 | register_J; goto *lab[register_PC];}; L147d: register_P = 0x0; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x00]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[0x00]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = 0x1000 | register_J; goto *lab[register_PC];}; L1575: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0500; cmp_old = register_A; cmp_new = 0xf6; register_A = flag_C = acc_a0 = 0x05f6; ram[register_I = (register_P << 4) + 0xa] = 0x5f6; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x20; register_A = flag_C = acc_a0 = 0x0020; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L159f; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L15ab; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0020))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L15bf; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0060))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ goto L15cd; L159f: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0500; cmp_old = register_A; cmp_new = 0xd6; register_A = flag_C = acc_a0 = 0x05d6; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ goto L15b9; L15ab: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x40) ^ 0xFFF) + 1))) & 0xFFF; /* add */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0020))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ L15b9: cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ goto L15d3; L15bf: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0040))) & 0xFFF; /* add values */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0xe]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x60) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L15cd: cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[register_I] = register_A; /* store acc */ L15d3: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = 0x1000 | register_J; goto *lab[register_PC];}; L1600: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0200; cmp_old = register_B; acc_a0 = register_A; /* save old accA bit0 */ cmp_new = 0x76; register_B = flag_C = 0x0276; cmp_new = 0x76; /* No carry */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xa0; register_A = flag_C = acc_a0 = 0x00a0; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x38) ^ 0xFFF) + 1))) & 0xFFF; /* add */ L1610: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L1610; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L163a; vgColour = 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x96; register_A = flag_C = acc_a0 = 0x0096; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x096; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x8a; register_A = flag_C = acc_a0 = 0x028a; ram[register_I = 0x04] = 0x28a; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x11; register_A = flag_C = acc_a0 = 0x0011; ram[register_I = 0x0e] = 0x011; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x0f] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0x33; register_A = flag_C = acc_a0 = 0x0633; ram[register_I = 0x05] = 0x633; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x07; register_A = flag_C = acc_a0 = 0x063a; ram[register_I = 0x00] = 0x63a; /* store acc to RAM */ goto L1af3; L163a: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x71]; /* set I register */ if (cmp_new == cmp_old) goto L1644; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x71] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; L1644: vgColour = register_A & 0x01 ? 0x0f: 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x10; register_A = flag_C = acc_a0 = 0x0010; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xa0; register_A = flag_C = acc_a0 = 0x00a0; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x0a0; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; ram[register_I = 0x04] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x07; register_A = flag_C = acc_a0 = 0x0007; ram[register_I = 0x0e] = 0x007; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x6a; register_A = flag_C = acc_a0 = 0x006a; ram[register_I = 0x05] = 0x06a; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0x71; register_A = flag_C = acc_a0 = 0x0671; ram[register_I = 0x00] = 0x671; /* store acc to RAM */ goto L1af3; L1671: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xb8; register_A = flag_C = acc_a0 = 0x00b8; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x0b8; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; ram[register_I = 0x04] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x07; register_A = flag_C = acc_a0 = 0x0007; ram[register_I = 0x0e] = 0x007; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x6b; register_A = flag_C = acc_a0 = 0x006b; ram[register_I = 0x05] = 0x06b; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = register_A; cmp_new = 0x8f; register_A = flag_C = acc_a0 = 0x068f; ram[register_I = 0x00] = 0x68f; /* store acc to RAM */ goto L1af3; L168f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x20]; /* set I register */ if (cmp_new == cmp_old) goto L169a; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x20] = register_A; /* store acc */ goto L1704; L169a: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_P = 0x3; /* set page register */ ram[register_I = 0x3f] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x3))) & 0xFFF; /* add values, save carry */ register_P = 0x4; /* set page register */ ram[register_I = 0x4f] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x3))) & 0xFFF; /* add values, save carry */ register_P = 0x5; /* set page register */ ram[register_I = 0x5f] = register_A; /* store acc to RAM */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x4))) & 0xFFF; /* add values, save carry */ register_P = 0x2; /* set page register */ ram[register_I = 0x25] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0x0] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0xff) ^ 0xFFF) + 1))) & 0xFFF; /* add */ if (!(flag_C & CARRYBIT)) goto L16b3; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x02ff; ram[register_I] = register_A; /* store acc */ L16b3: register_P = 0x3; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x3f]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ register_P = 0x4; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x4f]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ register_P = 0x5; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x5f]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x2))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ L1704: register_P = 0x8; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x89]; /* set I register */ register_P = 0x7; /* set page register */ ram[register_I = 0x7a] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; ram[register_I = 0x78] = 0x800; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* save old accB */ #ifdef RAWIO register_B = cmp_new = (( ioSwitches >> 0x7 ) & 0x01); #else register_B = cmp_new = get_coin_state(); /* apparently not used in tailgunner??? */ #endif cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; reset_coin_counter(1); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); reset_coin_counter(register_A&1); cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x78]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L172e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; ram[0x78] = 0x001; /* store acc */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* save old accB */ #ifdef RAWIO register_B = cmp_new = (( ioSwitches >> 0x0 ) & 0x01); #else register_B = cmp_new = get_quarters_per_game(); /* 1 => 1q/game, 0 => 2q/game */ #endif acc_a0 = register_A; flag_C = ((((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1) + (cmp_old = register_B)); /* ones compliment */ if (cmp_new == cmp_old) goto L172b; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x79]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x79] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x79]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L172e; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[0x79] = 0x000; /* store acc */ L172b: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ L172e: register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7a]; /* set I register */ register_P = 0x8; /* set page register */ ram[register_I = 0x89] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ ram[register_I = 0x7a] = 0x000; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L17b9; vgColour = 0x07; register_P = 0x8; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x81]; /* set I register */ if (cmp_new == cmp_old) goto L1749; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0xa) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new < cmp_old) goto L1749; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x8b]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x8b] = register_A; /* store acc */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; vgColour = register_A & 0x01 ? 0x0f: 0x07; L1749: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0xcc; register_A = flag_C = acc_a0 = 0x01cc; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x1cc; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x8a; register_A = flag_C = acc_a0 = 0x028a; ram[register_I = 0x04] = 0x28a; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x21; register_A = flag_C = acc_a0 = 0x0021; ram[register_I = 0x0e] = 0x021; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x81; register_A = flag_C = acc_a0 = 0x0081; ram[register_I = 0x05] = 0x081; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; cmp_old = register_A; cmp_new = 0x67; register_A = flag_C = acc_a0 = 0x0767; ram[register_I = 0x00] = 0x767; /* store acc to RAM */ goto L1af3; L1767: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x72]; /* set I register */ if (cmp_new == cmp_old) goto L1771; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x72] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; L1771: vgColour = register_A & 0x01 ? 0x0f: 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xa; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000a; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[0x69] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x9) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L1784; register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7b]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x7b] = register_A; /* store acc */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ vgColour = register_A & 0x01 ? 0x0f: 0x07; L1784: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = register_A; cmp_new = 0x20; register_A = flag_C = acc_a0 = 0x0320; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x320; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; ram[register_I = 0x04] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x21; register_A = flag_C = acc_a0 = 0x0021; ram[register_I = 0x0e] = 0x021; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x69; register_A = flag_C = acc_a0 = 0x0069; ram[register_I = 0x05] = 0x069; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; cmp_old = register_A; cmp_new = 0xa2; register_A = flag_C = acc_a0 = 0x07a2; ram[register_I = 0x00] = 0x7a2; /* store acc to RAM */ goto L1af3; L17a2: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xa; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000a; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[0x69] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1d; register_A = flag_C = acc_a0 = 0x001d; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); register_P = 0x1; /* set page register */ register_PC = 0x0058; /* rom offset */ goto L0058; L17b9: register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6a]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6c]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L17cb; if (cmp_new == cmp_old) goto L17c5; ram[0x6c] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6b]; /* set I register */ ram[register_I = 0x6d] = register_A; /* store acc to RAM */ L17c5: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* set I register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L17cb; ram[register_I] = register_A; /* store acc */ L17cb: flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0200; cmp_old = register_B; acc_a0 = register_A; /* save old accA bit0 */ cmp_new = 0x76; register_B = flag_C = 0x0276; cmp_new = 0x76; /* No carry */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0xda; register_A = flag_C = acc_a0 = 0x02da; FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; register_P = 0x6; /* set page register */ ram[register_I = 0x61] = 0x001; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x62] = 0x000; /* store acc to RAM */ ram[register_I = 0x60] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1c; register_A = flag_C = acc_a0 = 0x001c; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0xbc; register_A = flag_C = acc_a0 = 0x02bc; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x2bc; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x8a; register_A = flag_C = acc_a0 = 0x028a; ram[register_I = 0x04] = 0x28a; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x21; register_A = flag_C = acc_a0 = 0x0021; ram[register_I = 0x0e] = 0x021; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x0f] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0x03; register_A = flag_C = acc_a0 = 0x0803; ram[register_I = 0x05] = 0x803; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x0c; register_A = flag_C = acc_a0 = 0x080f; ram[register_I = 0x00] = 0x80f; /* store acc to RAM */ goto L1af3; L180f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0xf8; register_A = flag_C = acc_a0 = 0x02f8; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x2f8; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; ram[register_I = 0x04] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x07; register_A = flag_C = acc_a0 = 0x0007; ram[register_I = 0x0e] = 0x007; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x6c; register_A = flag_C = acc_a0 = 0x006c; ram[register_I = 0x05] = 0x06c; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0x2d; register_A = flag_C = acc_a0 = 0x082d; ram[register_I = 0x00] = 0x82d; /* store acc to RAM */ goto L1af3; L182d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0300; cmp_old = register_A; cmp_new = 0x10; register_A = flag_C = acc_a0 = 0x0310; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x310; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; ram[register_I = 0x04] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x07; register_A = flag_C = acc_a0 = 0x0007; ram[register_I = 0x0e] = 0x007; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x6d; register_A = flag_C = acc_a0 = 0x006d; ram[register_I = 0x05] = 0x06d; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0x4b; register_A = flag_C = acc_a0 = 0x084b; ram[register_I = 0x00] = 0x84b; /* store acc to RAM */ goto L1af3; L184b: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x8; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x89]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L195c; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; vgColour = 0x07; cmp_new = 0x1; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0001; register_P = 0x7; /* set page register */ ram[register_I = 0x7a] = 0x001; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x7a]))) & 0xFFF; set_watchdog(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x90; register_A = flag_C = acc_a0 = 0x0190; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x190; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x32; register_A = flag_C = acc_a0 = 0x0032; ram[register_I = 0x04] = 0x032; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x4d; register_A = flag_C = acc_a0 = 0x004d; ram[register_I = 0x0e] = 0x04d; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x0f] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0x6f; register_A = flag_C = acc_a0 = 0x086f; ram[register_I = 0x05] = 0x86f; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x09; register_A = flag_C = acc_a0 = 0x0878; ram[register_I = 0x00] = 0x878; /* store acc to RAM */ goto L1af3; L1878: register_P = 0x8; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x89]; /* set I register */ ram[register_I = 0x8c] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x9) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (!(flag_C & CARRYBIT)) goto L1882; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x9; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0009; ram[0x8c] = 0x009; /* store acc */ L1882: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = register_A; cmp_new = 0x58; register_A = flag_C = acc_a0 = 0x0258; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x258; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x32; register_A = flag_C = acc_a0 = 0x0032; ram[register_I = 0x04] = 0x032; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x0b; register_A = flag_C = acc_a0 = 0x000b; ram[register_I = 0x0e] = 0x00b; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x0f] = 0x003; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x01; register_A = flag_C = acc_a0 = 0x0004; ram[register_I = 0x02] = 0x004; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x8c; register_A = flag_C = acc_a0 = 0x008c; ram[register_I = 0x05] = 0x08c; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; cmp_old = register_A; cmp_new = 0xa0; register_A = flag_C = acc_a0 = 0x08a0; ram[register_I = 0x00] = 0x8a0; /* store acc to RAM */ goto L1af3; L18a0: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1e; register_A = flag_C = acc_a0 = 0x001e; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1a; register_A = flag_C = acc_a0 = 0x001a; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x14; register_A = flag_C = acc_a0 = 0x0014; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x16; register_A = flag_C = acc_a0 = 0x0016; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x18; register_A = flag_C = acc_a0 = 0x0018; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7b]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x7b] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x8; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0008; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; vgColour = register_A & 0x01 ? 0x0f: 0x07; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0012))) & 0xFFF; /* add values */ set_sound_data(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x7b]))) & 0xFFF; set_watchdog(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x90; register_A = flag_C = acc_a0 = 0x0190; register_P = 0x0; /* set page register */ ram[register_I = 0x03] = 0x190; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0100; cmp_old = register_A; cmp_new = 0x90; register_A = flag_C = acc_a0 = 0x0190; ram[register_I = 0x04] = 0x190; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x2c; register_A = flag_C = acc_a0 = 0x002c; ram[register_I = 0x0e] = 0x02c; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; ram[register_I = 0x0f] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0917; ram[register_I = 0x05] = 0x917; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x0c; register_A = flag_C = acc_a0 = 0x0923; ram[register_I = 0x00] = 0x923; /* store acc to RAM */ goto L1af3; L1923: cmp_old = flag_C = acc_a0 = register_A; #ifdef RAWIO register_A = cmp_new = get_io_bit(0x7); #else register_A = cmp_new = get_io_startbutton(); #endif register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (cmp_new == cmp_old) goto L19c3; register_P = 0x8; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x89]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x89] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x12; register_A = flag_C = acc_a0 = 0x0012; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x2; /* set page register */ ram[register_I = 0x2a] = 0x000; /* store acc to RAM */ ram[register_I = 0x2b] = 0x000; /* store acc to RAM */ register_P = 0x7; /* set page register */ ram[register_I = 0x7a] = 0x000; /* store acc to RAM */ ram[register_I = 0x7d] = 0x000; /* store acc to RAM */ register_P = 0x6; /* set page register */ ram[register_I = 0x6a] = 0x000; /* store acc to RAM */ ram[register_I = 0x6b] = 0x000; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x30] = 0x000; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x40] = 0x000; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x50] = 0x000; /* store acc to RAM */ register_P = 0x7; /* set page register */ ram[register_I = 0x7b] = 0x000; /* store acc to RAM */ register_P = 0x8; /* set page register */ ram[register_I = 0x80] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x82]; /* set I register */ ram[register_I = 0x81] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xa; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000a; register_P = 0x6; /* set page register */ ram[register_I = 0x69] = 0x00a; /* store acc to RAM */ register_P = 0x8; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x8a]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[0x8a] = register_A; /* store acc */ register_P = 0x1; /* set page register */ register_PC = 0x0058; /* rom offset */ goto L0058; L195c: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x12; register_A = flag_C = acc_a0 = 0x0012; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7d]; /* set I register */ if (cmp_new == cmp_old) goto L19c3; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; vgColour = register_A & 0x01 ? 0x0f: 0x07; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x1; /* set page register */ ram[register_I = 0x19] = 0x000; /* store acc to RAM */ ram[register_I = 0x10] = 0x000; /* store acc to RAM */ ram[register_I = 0x11] = 0x000; /* store acc to RAM */ ram[register_I = 0x1c] = 0x000; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; ram[register_I = 0x1d] = 0x0ff; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x2; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0002; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7d]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L19b2; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7c]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x3) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[0x7c] = register_A; /* store acc */ register_P = 0x1; /* set page register */ ram[register_I = 0x1e] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0x8f; register_A = flag_C = acc_a0 = 0x098f; ram[register_I = 0x1f] = 0x98f; /* store acc to RAM */ goto L1575; L198f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7e]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1998; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x3; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0003; ram[register_I = 0x7d] = 0x003; /* store acc to RAM */ L1998: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0xb) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[register_I] = register_A; /* store acc */ register_P = 0x1; /* set page register */ ram[register_I = 0x12] = register_A; /* store acc to RAM */ L199d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0xc3; register_A = flag_C = acc_a0 = 0x09c3; register_P = 0x0; /* set page register */ ram[register_I = 0x00] = 0x9c3; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* step back cmp flag */ register_B = cmp_new = 0x0300; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = register_B; acc_a0 = register_A; /* save old accA bit0 */ register_B = (flag_C = (register_B + (cmp_new = 0x32))) & 0xFFF; /* add values */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x32) ^ 0xFFF) + 1))) & 0xFFF; /* add */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ goto L19c7; L19b2: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ register_P = 0x1; /* set page register */ ram[register_I = 0x12] = register_A; /* store acc to RAM */ register_P = 0x7; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x7c]; /* set I register */ register_P = 0x1; /* set page register */ ram[register_I = 0x1e] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0x9d; register_A = flag_C = acc_a0 = 0x099d; ram[register_I = 0x1f] = 0x99d; /* store acc to RAM */ goto L1575; L19c3: register_P = 0x1; /* set page register */ register_PC = 0x0058; /* rom offset */ goto L0058; L19c7: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0a00; cmp_old = register_A; cmp_new = 0x1b; register_A = flag_C = acc_a0 = 0x0a1b; register_P = 0x1; /* set page register */ ram[register_I = 0x16] = 0xa1b; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x1a; register_A = flag_C = acc_a0 = 0x0a35; ram[register_I = 0x17] = 0xa35; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0xd7; register_A = flag_C = acc_a0 = 0x09d7; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x9d7; /* store acc to RAM */ goto L1128; L19d7: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x7f; register_A = flag_C = acc_a0 = 0x007f; register_P = 0x7; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7c]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[0x7c] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x20) ^ 0xFFF) + 1))) & 0xFFF; /* add */ if (!(flag_C & CARRYBIT)) goto L19eb; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x60; register_A = flag_C = acc_a0 = 0x0060; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x7c]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L19eb; goto L147d; L19eb: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0a00; cmp_old = register_A; cmp_new = 0x3e; register_A = flag_C = acc_a0 = 0x0a3e; register_P = 0x1; /* set page register */ ram[register_I = 0x16] = 0xa3e; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x32; register_A = flag_C = acc_a0 = 0x0a70; ram[register_I = 0x17] = 0xa70; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; cmp_old = register_A; cmp_new = 0xfb; register_A = flag_C = acc_a0 = 0x09fb; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x9fb; /* store acc to RAM */ goto L1128; L19fb: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0a00; cmp_old = register_A; cmp_new = 0x7a; register_A = flag_C = acc_a0 = 0x0a7a; register_P = 0x1; /* set page register */ ram[register_I = 0x16] = 0xa7a; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x32; register_A = flag_C = acc_a0 = 0x0aac; ram[register_I = 0x17] = 0xaac; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0a00; cmp_old = register_A; cmp_new = 0x0b; register_A = flag_C = acc_a0 = 0x0a0b; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0xa0b; /* store acc to RAM */ goto L1128; L1a0b: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0a00; cmp_old = register_A; cmp_new = 0xb8; register_A = flag_C = acc_a0 = 0x0ab8; register_P = 0x1; /* set page register */ ram[register_I = 0x16] = 0xab8; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0x2f; register_A = flag_C = acc_a0 = 0x0ae7; ram[register_I = 0x17] = 0xae7; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = register_A; cmp_new = 0x7d; register_A = flag_C = acc_a0 = 0x047d; register_P = 0x2; /* set page register */ ram[register_I = 0x2f] = 0x47d; /* store acc to RAM */ goto L1128; L1af3: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x04]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0xe]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ L1afd: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ if (!(flag_C & CARRYBIT)) goto L1afd; ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0018))) & 0xFFF; /* add values */ ram[register_I = (register_P << 4) + 0x6] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; ram[register_I = (register_P << 4) + 0x1] = 0x0ff; /* store acc to RAM */ L1b09: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xf]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1b21; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ L1b13: ram[register_I = (register_P << 4) + 0x7] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x1]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1b6b; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x40) ^ 0xFFF) + 1))) & 0xFFF; /* add */ if (!(flag_C & CARRYBIT)) goto L1b6e; register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0039))) & 0xFFF; /* add values */ ram[register_I = (register_P << 4) + 0x7] = register_A; /* store acc to RAM */ goto L1b6e; L1b21: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x02]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new == cmp_old) goto L1b6b; ram[register_I] = register_A; /* store acc */ register_I = ram[(register_P << 4) + 0x05]&0xff; /* set/mask new register_I */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; ram[register_I = (register_P << 4) + 0x7] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0f]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ ram[register_I] = register_A; /* store acc */ if (cmp_new == cmp_old) goto L1b63; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new == cmp_old) goto L1b3c; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; goto L1b3d; L1b3c: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ L1b3d: cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; ram[register_I] = register_A; /* store acc */ L1b42: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1b52; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x7]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1b58; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I = (register_P << 4) + 0xe] = register_A; /* store acc to RAM */ L1b52: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x0030))) & 0xFFF; /* add values */ goto L1b13; L1b58: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x02]; /* set I register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (((cmp_new = 0x1) ^ 0xFFF) + 1))) & 0xFFF; /* 1's-comp add */ if (cmp_new == cmp_old) goto L1b52; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x5b; register_A = flag_C = acc_a0 = 0x005b; goto L1b13; L1b63: register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x3))) & 0xFFF; /* add values, save carry */ ram[register_I = (register_P << 4) + 0xf] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x05]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ goto L1b42; L1b6b: cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x0]) ^ 0xFFF) + 1 + register_A); /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); {register_PC = 0x1000 | register_J; goto *lab[register_PC];}; L1b6e: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0c00; cmp_old = register_A; cmp_new = 0x29; register_A = flag_C = acc_a0 = 0x0c29; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x7]))) & 0xFFF; /* do acc operation */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0b00; cmp_old = register_A; cmp_new = 0xef; register_A = flag_C = acc_a0 = 0x0bef; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ L1b7a: cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x07]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0x1]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1bc1; ram[register_I = (register_P << 4) + 0xd] = register_A; /* store acc to RAM */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I = (register_P << 4) + 0xc] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0b00; cmp_old = register_A; cmp_new = 0xd2; register_A = flag_C = acc_a0 = 0x0bd2; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0c]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x8] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0xf; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x000f; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = (register_P << 4) + 0xd]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0b00; cmp_old = register_A; cmp_new = 0xd2; register_A = flag_C = acc_a0 = 0x0bd2; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I] = register_A; /* store acc */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x9]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xb] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0d]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = (register_P << 4) + 0x8]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ ram[register_I = (register_P << 4) + 0xa] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0a]; /* set I register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x0b]; /* new acc value */ {CINEBYTE temp_byte = 0; for (;;) { if ( (((register_A >> 8) & 0x0A) && (((register_A >> 8) & 0x0A) ^ 0x0A)) || (((register_B >> 8) & 0x0A) && (((register_B >> 8) & 0x0A) ^ 0x0A)) ) break; register_A <<= 1; register_B <<= 1; if (!(++temp_byte)) break /* This may not be correct */; } vgShiftLength = temp_byte & 0xfff; register_A &= 0x0FFF; register_B &= 0x0FFF; } register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x8]))) & 0xFFF; /* do acc operation */ acc_a0 = register_A; /* store old acc value */ register_B = (flag_C = ((cmp_old = register_B) + (cmp_new = ram[register_I = (register_P << 4) + 0x09]))) & 0xFFF; /* do acc operation */ { /* set ending points and draw the vector, or buffer for a later draw. */ int ToX = register_A & 0xFFF; int ToY = register_B & 0xFFF; /* Sign extend from 20 bit CCPU to 32bit target machine */ FromX = SEX(FromX); ToX = SEX(ToX); FromY = SEX(FromY); ToY = SEX(ToY); /* figure out the vector */ ToX -= FromX; ToX = ((signed short int)(((signed short int)ToX) >> (signed short int)vgShiftLength)) /* SAR */; ToX += FromX; ToY -= FromY; ToY = ((signed short int)(((signed short int)ToY) >> (signed short int)vgShiftLength)) /* SAR */; ToY += FromY; /* render the line */ #ifndef DUALCPU CinemaVectorData (FromX, FromY, ToX, ToY, vgColour); #endif } goto L1b7a; L1bc1: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x9; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0009; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x4]))) & 0xFFF; /* do acc operation */ ram[register_I = (register_P << 4) + 0x9] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x06]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = (register_P << 4) + 0x3]))) & 0xFFF; /* do acc operation */ ram[register_I] = register_A; /* store acc */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x3))) & 0xFFF; /* add values, save carry */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x09]; /* new acc value */ FromX = register_A & 0xFFF; /* regA goes to x-coord */ FromY = register_B & 0xFFF; /* regB goes to y-coord */ goto L1b09; L1d70: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1a; register_A = flag_C = acc_a0 = 0x001a; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x14; register_A = flag_C = acc_a0 = 0x0014; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x1c; register_A = flag_C = acc_a0 = 0x001c; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x18; register_A = flag_C = acc_a0 = 0x0018; set_sound_data(0); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); goto L1005; L1dc0: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1dd5; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x11; register_A = flag_C = acc_a0 = 0x0011; set_sound_data(1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_A(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_B(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; set_sound_addr_C(register_A&1); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (register_A&1) strobe_sound_on(); else strobe_sound_off(); L1dd5: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x2; /* set page register */ ram[register_I = 0x29] = 0x000; /* store acc to RAM */ register_P = 0x7; /* set page register */ ram[register_I = 0x73] = 0x000; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x37] = 0x000; /* store acc to RAM */ ram[register_I = 0x39] = 0x000; /* store acc to RAM */ ram[register_I = 0x3d] = 0x000; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x47] = 0x000; /* store acc to RAM */ ram[register_I = 0x49] = 0x000; /* store acc to RAM */ ram[register_I = 0x4d] = 0x000; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x57] = 0x000; /* store acc to RAM */ ram[register_I = 0x59] = 0x000; /* store acc to RAM */ ram[register_I = 0x5d] = 0x000; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; register_P = 0x3; /* set page register */ ram[register_I = 0x33] = 0xf00; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x43] = 0xf00; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x53] = 0xf00; /* store acc to RAM */ register_P = 0x2; /* set page register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* new acc value */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x22]))) & 0xFFF; /* do acc operation */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; ram[0x22] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[0x22] = register_A; /* store acc */ acc_a0 = register_A; cmp_old = register_B; register_B = (flag_C = (register_B + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[0x23] = register_A; /* store acc */ ram[register_I = (register_P << 4) + 0x2] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x00ff; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x23]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00ff))) & 0xFFF; /* add values */ register_P = 0x5; /* set page register */ ram[register_I = 0x58] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x3; /* set page register */ ram[register_I = 0x38] = 0x000; /* store acc to RAM */ register_P = 0x5; /* set page register */ cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + ((cmp_new = ram[register_I = 0x58]) ^ 0xFFF) + 1)) & 0xFFF; /* set regI addr */ register_P = 0x4; /* set page register */ ram[register_I = 0x48] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0c00; ram[register_I = 0x4a] = 0xc00; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x5a] = 0xc00; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x3a] = 0xc00; /* store acc to RAM */ register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x22]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1e9d; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1e9d; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; if (acc_a0 & 0x01) goto L1e5b; register_P = 0x3; /* set page register */ ram[register_I = 0x32] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x32]))) & 0xFFF; set_watchdog(); ram[0x32] = register_A; /* store acc */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x7f) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_P = 0x4; /* set page register */ ram[register_I = 0x42] = register_A; /* store acc to RAM */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00fe))) & 0xFFF; /* add values */ register_P = 0x5; /* set page register */ ram[register_I = 0x52] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x55] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[0x55] = register_A; /* store acc */ register_P = 0x4; /* set page register */ ram[register_I = 0x45] = register_A; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x35] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0800; register_P = 0x2; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x23]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1e88; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; register_P = 0x3; /* set page register */ ram[register_I = 0x31] = 0x900; /* store acc to RAM */ cmp_old = register_A; cmp_new = 0xff; register_A = flag_C = acc_a0 = 0x09ff; register_P = 0x4; /* set page register */ ram[register_I = 0x41] = 0x9ff; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x51] = 0x9ff; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x20; register_A = flag_C = acc_a0 = 0x0020; goto L1e94; L1e5b: register_P = 0x3; /* set page register */ ram[register_I = 0x31] = register_A; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x7f) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_P = 0x4; /* set page register */ ram[register_I = 0x41] = register_A; /* store acc to RAM */ register_A = (flag_C = ((acc_a0 = cmp_old = register_A) + (cmp_new = 0x00fe))) & 0xFFF; /* add values */ register_P = 0x5; /* set page register */ ram[register_I = 0x51] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x54] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[0x54] = register_A; /* store acc */ register_P = 0x4; /* set page register */ ram[register_I = 0x44] = register_A; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x34] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; register_P = 0x4; /* set page register */ ram[register_I = 0x42] = 0x700; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x52] = 0x700; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0xff) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_P = 0x3; /* set page register */ ram[register_I = 0x32] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0xe0; register_A = flag_C = acc_a0 = 0x0fe0; ram[register_I = 0x35] = 0xfe0; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x55] = 0xfe0; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x45] = 0xfe0; /* store acc to RAM */ goto L1e9a; L1e88: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; register_P = 0x3; /* set page register */ ram[register_I = 0x31] = 0x700; /* store acc to RAM */ cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0xff) ^ 0xFFF) + 1))) & 0xFFF; /* add */ register_P = 0x4; /* set page register */ ram[register_I = 0x41] = register_A; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x51] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0xe0; register_A = flag_C = acc_a0 = 0x0fe0; L1e94: register_P = 0x3; /* set page register */ ram[register_I = 0x34] = register_A; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x44] = register_A; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x54] = register_A; /* store acc to RAM */ L1e9a: goto L1ef8; L1e9d: register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x4; /* set page register */ ram[register_I = 0x42] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x42]))) & 0xFFF; set_watchdog(); ram[0x42] = register_A; /* store acc */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x45] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[0x45] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0900; ram[register_I = 0x41] = 0x900; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x18; register_A = flag_C = acc_a0 = 0x0018; ram[register_I = 0x44] = 0x018; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0700; register_P = 0x3; /* set page register */ ram[register_I = 0x32] = 0x700; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x51] = 0x700; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0f00; cmp_old = register_A; cmp_new = 0xe8; register_A = flag_C = acc_a0 = 0x0fe8; ram[register_I = 0x54] = 0xfe8; /* store acc to RAM */ register_P = 0x3; /* set page register */ ram[register_I = 0x35] = 0xfe8; /* store acc to RAM */ register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x22]; /* set I register */ cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x3; /* set page register */ ram[register_I = 0x31] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x34] = register_A; /* store acc to RAM */ register_P = 0x2; /* set page register */ flag_C = acc_a0 = register_A; cmp_old = register_B; /* store old acc */ register_B = cmp_new = ram[register_I = (register_P << 4) + 0x03]; /* new acc value */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x22]))) & 0xFFF; /* do acc operation */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; ram[0x22] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; ram[0x22] = register_A; /* store acc */ acc_a0 = register_A; cmp_old = register_B; register_B = (flag_C = (register_B + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); ram[0x23] = register_A; /* store acc */ ram[register_I = (register_P << 4) + 0x2] = register_B; /* set I register and store B to ram */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; register_P = 0x5; /* set page register */ ram[register_I = 0x52] = register_A; /* store acc to RAM */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[0x52]))) & 0xFFF; set_watchdog(); ram[0x52] = register_A; /* store acc */ cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; cmp_new = 0xDED; cmp_old = flag_C = acc_a0 = register_A; register_A = SEX(register_A); /* make signed */ register_A = (((signed short int)(((signed short int)register_A) >> (signed short int)1)) /* SAR */) & 0xFFF; ram[register_I = 0x55] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + ((cmp_new = ram[register_I]) ^ 0xFFF) + 1)) & 0xFFF; /* ones compliment */ ram[0x55] = register_A; /* store acc */ L1ef8: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x20; register_A = flag_C = acc_a0 = 0x0020; register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = 0x020; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1f48; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0200; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1f3e; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1f30; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0600; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6a]) ^ 0xFFF) + 1 + register_A); if (cmp_new < cmp_old) goto L1f21; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x3c; register_A = flag_C = acc_a0 = 0x003c; register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = 0x03c; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6a]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x60) ^ 0xFFF) + 1))) & 0xFFF; /* add */ goto L1f41; L1f21: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x38; register_A = flag_C = acc_a0 = 0x0038; register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = 0x038; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6a]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ goto L1f41; L1f30: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x30; register_A = flag_C = acc_a0 = 0x0030; register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = 0x030; /* store acc to RAM */ register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6a]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_old = acc_a0 = register_A; /* back up regA */ register_A = (flag_C = (register_A + (((cmp_new = 0x80) ^ 0xFFF) + 1))) & 0xFFF; /* add */ goto L1f41; L1f3e: register_P = 0x6; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x6a]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; L1f41: cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; register_P = 0x2; /* set page register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x2e]))) & 0xFFF; /* do acc operation */ ram[0x2e] = register_A; /* store acc */ L1f48: register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x23]; /* set I register */ cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1f6c; cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1f5f; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x23; register_A = flag_C = acc_a0 = 0x0023; ram[register_I = 0x24] = 0x023; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x2e]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0xc))) & 0xFFF; /* add values, save carry */ ram[0x2e] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0500; cmp_old = register_A; cmp_new = 0x39; register_A = flag_C = acc_a0 = 0x0539; goto L1f83; L1f5f: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x17; register_A = flag_C = acc_a0 = 0x0017; ram[register_I = (register_P << 4) + 0x4] = 0x017; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x8))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0500; cmp_old = register_A; cmp_new = 0x03; register_A = flag_C = acc_a0 = 0x0503; goto L1f83; L1f6c: cmp_new = 0x0BEB; cmp_old = acc_a0 = register_A; flag_C = (0x0BEB + register_A); register_A >>= 1; if (acc_a0 & 0x01) goto L1f7d; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_old = register_A; cmp_new = 0x11; register_A = flag_C = acc_a0 = 0x0011; ram[register_I = (register_P << 4) + 0x4] = 0x011; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x4))) & 0xFFF; /* add values, save carry */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = register_A; cmp_new = 0xc7; register_A = flag_C = acc_a0 = 0x04c7; goto L1f83; L1f7d: cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x7; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; ram[register_I = (register_P << 4) + 0x4] = 0x007; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0400; cmp_old = register_A; cmp_new = 0x81; register_A = flag_C = acc_a0 = 0x0481; L1f83: register_P = 0x3; /* set page register */ ram[register_I = 0x30] = register_A; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x40] = register_A; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x50] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; register_P = 0x6; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x69]) ^ 0xFFF) + 1 + register_A); if (cmp_new == cmp_old) goto L1f99; cmp_old = register_A; cmp_new = 0x10; register_A = flag_C = acc_a0 = 0x0010; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x6a]) ^ 0xFFF) + 1 + register_A); if (!(flag_C & CARRYBIT)) goto L1f99; cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = ram[register_I]; cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0xf))) & 0xFFF; /* add values, save carry */ register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = register_A; /* store acc to RAM */ L1f99: register_P = 0x2; /* set page register */ cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = 0x2e]; /* set I register */ register_P = 0x3; /* set page register */ ram[register_I = 0x36] = register_A; /* store acc to RAM */ register_P = 0x4; /* set page register */ ram[register_I = 0x46] = register_A; /* store acc to RAM */ register_P = 0x5; /* set page register */ ram[register_I = 0x56] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0x0c00; cmp_old = register_A; cmp_new = 0x7e; register_A = flag_C = acc_a0 = 0x0c7e; register_P = 0x2; /* set page register */ ram[register_I = 0x2e] = 0xc7e; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x7; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x22]) ^ 0xFFF) + 1 + register_A); cmp_old = flag_C = acc_a0 = register_A; register_A &= (cmp_new = ram[register_I]); cmp_new = 0x0CEC; cmp_old = acc_a0 = register_A; flag_C = (0x0CEC + register_A); register_A = (register_A << 1) & 0x0FFF; register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = ram[register_I = 0x2e]))) & 0xFFF; /* do acc operation */ ram[0x2e] = register_A; /* store acc */ register_A = (flag_C = ((cmp_old = acc_a0 = register_A) + (cmp_new = 0x1))) & 0xFFF; /* add values, save carry */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I = (register_P << 4) + 0x5] = register_A; /* store acc to RAM */ flag_C = acc_a0 = register_A; cmp_old = register_B; register_B = cmp_new = ram[register_I]; cmp_old = flag_C = acc_a0 = register_A; /* store old acc */ register_A = cmp_new = ram[register_I = (register_P << 4) + 0x0e]; /* set I register */ cmp_old = register_A; register_A = cmp_new = rom[0x1000 | register_A]; /* new acc value */ ram[register_I] = register_A; /* store acc */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_new = 0x0EEE; cmp_old = acc_a0 = register_A; flag_C = (0x0EEE + register_A); register_A = (register_A >> 1) | ((register_B & 1) << 11); register_B = (register_B >> 1) | (register_B & 0x800); cmp_old = acc_a0 = register_A; register_A = (flag_C = (register_A + (cmp_new = ram[register_I]))) & 0xFFF; set_watchdog(); ram[register_I = (register_P << 4) + 0x5] = register_A; /* store acc to RAM */ cmp_old = flag_C = acc_a0 = register_A; register_A = cmp_new = 0; cmp_new = 0x7; cmp_old = acc_a0 = register_A; register_A = flag_C = 0x0007; ram[register_I = (register_P << 4) + 0x0] = 0x007; /* store acc to RAM */ register_P = 0x1; /* set page register */ cmp_old = acc_a0 = register_A; /* backup old acc */ flag_C = (((cmp_new = ram[register_I = 0x1f]) ^ 0xFFF) + 1 + register_A); L1fc5: /* load J reg from value at last dir addr */ register_J = ram[register_I]; if ((register_J & (~0xfff)) != 0) ERROR("Ram value must have been > 12 bits!\n"); register_P = 0x1; /* set page register */ register_PC = register_J + 0x0000; /* rom offset */ /* WARNING: UNKNOWN JUMP DESTINATION - MAY FOUL UP CODE OPTIMISATIONS */ {register_PC = (register_PC & 0xf000) | register_J; goto *lab[register_PC];};