Subversion Repositories ao68000

/*

 * Copyright 2010, Aleksander Osman, alfik@poczta.fm. All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without modification, are

 * permitted provided that the following conditions are met:

 *

 *  1. Redistributions of source code must retain the above copyright notice, this list of

 *     conditions and the following disclaimer.

 *

 *  2. Redistributions in binary form must reproduce the above copyright notice, this list

 *     of conditions and the following disclaimer in the documentation and/or other materials

 *     provided with the distribution.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED

 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND

 * FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR

 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR

 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON

 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF

 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

package ao68000_tool;

public class Microcode {

    static void microcode(Parser p) throws Exception {

        p.label("reset");

        p       .GROUP_0_FLAG_SET();

                // wait for instruction prefetch

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

                // move SSP and PC from prefetch

        p       .AN_INPUT_FROM_PREFETCH_IR().AN_ADDRESS_SSP().AN_WRITE_ENABLE_SET()

                .PC_FROM_PREFETCH_IR()

                // jump to main loop

                .BRANCH_procedure().PROCEDURE_jump_to_main_loop();

        p.label("MICROPC_ADDRESS_BUS_TRAP");

                // save trap number and bus cycle extended information

        p       .TRAP_FROM_INTERRUPT()

                .OP2_MOVE_ADDRESS_BUS_INFO()

                // clear internal flags

                .READ_MODIFY_WRITE_FLAG_CLEAR()

                .INSTRUCTION_FLAG_SET()

                .DO_READ_FLAG_CLEAR()

                .DO_WRITE_FLAG_CLEAR()

                .DO_INTERRUPT_FLAG_CLEAR()

                // check if group_0_flag already active

                .BRANCH_group_0_flag().offset("address_bus_trap_group_0_flag_cleared");

                        // if group_0_flag active: block processor

        p               .DO_BLOCKED_FLAG_SET()

                        .BRANCH_procedure()

                        .PROCEDURE_wait_finished();

                // continue processing trap

        p       .label("address_bus_trap_group_0_flag_cleared");

        p       .GROUP_0_FLAG_SET();

        //--

                // move PC to OP1

        p       .OP1_FROM_PC();

                // move OP1 to result

        p       .ALU_SIMPLE_MOVE()

                // move SR to OP1

                .OP1_FROM_SR();

                // set supervisor, clear trace

        p       .ALU_SR_SET_TRAP();

        //--

                // stack PC

        p       .SIZE_LONG().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                // move SR to result

                .ALU_SIMPLE_MOVE()

                // move IR to OP1

                .OP1_FROM_IR();

                // stack SR

        p       .SIZE_WORD().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                // move IR to result

                .ALU_SIMPLE_MOVE()

                // move fault address to OP1

                .OP1_FROM_FAULT_ADDRESS();

        //--

                // stack IR

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                // move fault address to result

                .ALU_SIMPLE_MOVE()

                // move bus cycle info stored in OP2 to OP1

                .OP1_FROM_OP2();

                // stack fault address

        p       .SIZE_LONG().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                // move bus cycle info from OP1 to result

                .ALU_SIMPLE_MOVE();

                // stack bus cycle info

        p       .SIZE_WORD().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea();

        //--

                // load PC from exception vector table

        p       .ADDRESS_FROM_TRAP()

                .SIZE_LONG().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .ALU_SIMPLE_MOVE();

                // wait for instruction prefetch

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .PC_FROM_RESULT();

                // wait one cycle to check loaded PC: is it even ?

        p       .OP1_FROM_OP2();

        //--

                // jump to main loop

        p       .BRANCH_procedure().PROCEDURE_jump_to_main_loop();

        p.label("MICROPC_TRAP_ENTRY");

        //--

                // move PC to OP1

        p       .OP1_FROM_PC();

                // move OP1 to result

        p       .ALU_SIMPLE_MOVE()

                // move SR to OP1

                .OP1_FROM_SR();

                // set supervisor, clear trace

        p       .ALU_SR_SET_TRAP();

        //--

                // stack PC

        p       .SIZE_LONG().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                // move SR to result

                .ALU_SIMPLE_MOVE();

                // stack SR

        p       .SIZE_WORD().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea();

        //--

                // load PC from exception vector table

        p       .ADDRESS_FROM_TRAP()

                .SIZE_LONG().EA_REG_3b111().EA_MOD_PREDEC().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .ALU_SIMPLE_MOVE();

                // wait for instruction prefetch

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .PC_FROM_RESULT();

                // wait one cycle to check loaded PC: is it even ?

        p       .OP1_FROM_OP2();

        //--

                // return

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_MAIN_LOOP");

                // check if stop flag set and wait for valid prefetch and decode instruction

                // execute instruction, instruction generated trap possible

        p       .BRANCH_stop_flag_wait_ir_decode().offset("main_loop_after_execution")

                // clear read-modify-write flag always

                .READ_MODIFY_WRITE_FLAG_CLEAR()

                // save trace flag, only when valid prefetch and valid instruction and stop flag cleared

                .TRACE_FLAG_COPY_WHEN_NO_STOP()

                // save first instruction word, only when prefetch valid and stop flag cleared

                .IR_LOAD_WHEN_PREFETCH_VALID()

                // clear group 0 flag, only when valid prefetch and stop flag cleared

                .GROUP_0_FLAG_CLEAR_WHEN_VALID_PREFETCH()

                // increment PC by 2, only when valid prefetch and valid instruction and stop flag cleared

                .PC_INCR_BY_2_IN_MAIN_LOOP()

                // clear instruction flag, only when valid prefetch and valid instruction and stop flag cleared

                .INSTRUCTION_FLAG_CLEAR_IN_MAIN_LOOP();

                        // call trap

        p               .TRAP_FROM_DECODER()

                        .INSTRUCTION_FLAG_SET()

                        .BRANCH_procedure().PROCEDURE_call_trap();

                                // after trap jump to main loop

        p                       .BRANCH_procedure().PROCEDURE_jump_to_main_loop();

                // jump here after execution

        p       .label("main_loop_after_execution");

                // check if trace flag set and check external interrupt

        p       .BRANCH_trace_flag_and_interrupt().offset("main_loop_interrupt")

                // set instruction flag, always

                .INSTRUCTION_FLAG_SET();

                        // call trap

        p               .TRAP_TRACE()

                        .STOP_FLAG_CLEAR()

                        .BRANCH_procedure().PROCEDURE_call_trap();

                        // after trap continue

                // jump here if trace flag not set and interupt pending

        p       .label("main_loop_interrupt");

                // check external interrupt

        p       .DO_INTERRUPT_FLAG_SET_IF_ACTIVE()

                .BRANCH_procedure().PROCEDURE_interrupt_mask();

        p               .BRANCH_procedure().PROCEDURE_wait_finished()

                        .ALU_SR_SET_INTERRUPT();

        p               .DO_INTERRUPT_FLAG_CLEAR()

                        .TRAP_FROM_INTERRUPT()

                        .STOP_FLAG_CLEAR()

                        .BRANCH_procedure().PROCEDURE_call_trap();

                        // after trap jump to main loop

                        p       .BRANCH_procedure().PROCEDURE_jump_to_main_loop();

        // **************************************************************** EA

        // load ea: to address register

        // (An), (An)+:

        p.label("MICROPC_LOAD_EA_An");

        p.label("MICROPC_LOAD_EA_An_plus");

        p       .ADDRESS_FROM_AN_OUTPUT()

                .BRANCH_procedure().PROCEDURE_return();

        // -(An):

        p.label("MICROPC_LOAD_EA_minus_An");

        p       .ADDRESS_FROM_AN_OUTPUT();

        p       .ADDRESS_DECR_BY_SIZE()

                .BRANCH_procedure().PROCEDURE_return();

        // (d16, An):

        p.label("MICROPC_LOAD_EA_d16_An");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .INDEX_0()

                .OFFSET_IMM_16()

                .PC_INCR_BY_2()

                .ADDRESS_FROM_AN_OUTPUT();

        p       .ADDRESS_FROM_BASE_INDEX_OFFSET()

                .BRANCH_procedure().PROCEDURE_return();

        // (d8, An, Xn):

        p.label("MICROPC_LOAD_EA_d8_An_Xn");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid()

                .ADDRESS_FROM_AN_OUTPUT();

        p       .AN_ADDRESS_FROM_EXTENDED()

                .DN_ADDRESS_FROM_EXTENDED()

                .OFFSET_IMM_8();

        p       .AN_ADDRESS_FROM_EXTENDED()

                .INDEX_LOAD_EXTENDED()

                .PC_INCR_BY_2();

        p       .ADDRESS_FROM_BASE_INDEX_OFFSET()

                .BRANCH_procedure().PROCEDURE_return();

        // (xxx).W:

        p.label("MICROPC_LOAD_EA_xxx_W");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .ADDRESS_FROM_IMM_16()

                .PC_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_return();

        // (xxx).L:

        p.label("MICROPC_LOAD_EA_xxx_L");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .ADDRESS_FROM_IMM_32()

                .PC_INCR_BY_4()

                .BRANCH_procedure().PROCEDURE_return();

        // (d16, PC):

        p.label("MICROPC_LOAD_EA_d16_PC");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .INDEX_0()

                .OFFSET_IMM_16();

        p       .ADDRESS_FROM_PC_INDEX_OFFSET()

                .PC_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_return();

        // (d8, PC, Xn):

        p.label("MICROPC_LOAD_EA_d8_PC_Xn");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .AN_ADDRESS_FROM_EXTENDED()

                .DN_ADDRESS_FROM_EXTENDED()

                .OFFSET_IMM_8();

        p       .AN_ADDRESS_FROM_EXTENDED()

                .INDEX_LOAD_EXTENDED();

        p       .ADDRESS_FROM_PC_INDEX_OFFSET()

                .PC_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_LOAD_EA_illegal_command");

                // call trap

        p       .TRAP_ILLEGAL_INSTR()

                .BRANCH_procedure().PROCEDURE_call_trap();

                // after trap jump to main loop

        p       .BRANCH_procedure().PROCEDURE_jump_to_main_loop();

        // perform_ea_read: memory, Dn,An,immediate

        // Dn:

        p.label("MICROPC_PERFORM_EA_READ_Dn");

        p       .OP1_FROM_DN()

                .BRANCH_procedure().PROCEDURE_return();

        // An:

        p.label("MICROPC_PERFORM_EA_READ_An");

        p       .OP1_FROM_AN()

                .BRANCH_procedure().PROCEDURE_return();

        // immediate

        p.label("MICROPC_PERFORM_EA_READ_imm");

        p       .BRANCH_procedure().PROCEDURE_wait_prefetch_valid();

        p       .OP1_FROM_IMMEDIATE()

                .PC_INCR_BY_SIZE()

                .BRANCH_procedure().PROCEDURE_return();

        // memory

        p.label("MICROPC_PERFORM_EA_READ_memory");

        p       .DO_READ_FLAG_SET()

                .BRANCH_procedure().PROCEDURE_wait_finished();

        p       .DO_READ_FLAG_CLEAR()

                .OP1_FROM_DATA()

                .BRANCH_procedure().PROCEDURE_return();

        // perform ea write: memory, Dn,An

        // size of operand matters: select in memory write

        // Dn:

        p.label("MICROPC_PERFORM_EA_WRITE_Dn");

        p       .DN_WRITE_ENABLE_SET()

                .BRANCH_procedure().PROCEDURE_return();

        // An:

        p.label("MICROPC_PERFORM_EA_WRITE_An");

        p       .AN_WRITE_ENABLE_SET()

                .BRANCH_procedure().PROCEDURE_return();

        // memory:

        p.label("MICROPC_PERFORM_EA_WRITE_memory");

        p       .DATA_WRITE_FROM_RESULT()

                .DO_WRITE_FLAG_SET()

                .BRANCH_procedure().PROCEDURE_wait_finished();

        p       .DO_WRITE_FLAG_CLEAR()

                .BRANCH_procedure().PROCEDURE_return();

        // save ea: (An)+,-(An)

        // (An)+:

        p.label("MICROPC_SAVE_EA_An_plus");

        p       .ADDRESS_INCR_BY_SIZE();

        p       .AN_INPUT_FROM_ADDRESS()

                .AN_WRITE_ENABLE_SET()

                .BRANCH_procedure().PROCEDURE_return();

        // -(An)

        p.label("MICROPC_SAVE_EA_minus_An");

        p       .AN_INPUT_FROM_ADDRESS()

                .AN_WRITE_ENABLE_SET()

                .BRANCH_procedure().PROCEDURE_return();

        // **************************************************************** Instructions

        p.label("MICROPC_MOVEP_memory_to_register");

        p       .SIZE_BYTE().EA_REG_IR_2_0().EA_MOD_INDIRECTOFFSET().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_read();

        p       .ALU_MOVEP_M2R_1()

                .ADDRESS_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .ALU_MOVEP_M2R_2()

                .ADDRESS_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .ALU_MOVEP_M2R_3()

                .ADDRESS_INCR_BY_2()

                .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .ALU_MOVEP_M2R_4()

                .SIZE_1().EA_REG_IR_11_9().EA_MOD_DN().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_MOVEP_register_to_memory");

        p       .SIZE_1_PLUS().EA_REG_IR_11_9().EA_MOD_DN().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p       .SIZE_BYTE().EA_REG_IR_2_0().EA_MOD_INDIRECTOFFSET().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .ALU_MOVEP_R2M_1()

                .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .ADDRESS_INCR_BY_2()

                .ALU_MOVEP_R2M_2()

                .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_movep_16().offset("movep_16");

        p               .ADDRESS_INCR_BY_2()

                        .ALU_MOVEP_R2M_3()

                        .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p               .ADDRESS_INCR_BY_2()

                        .ALU_MOVEP_R2M_4()

                        .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

                // jump here if word operation

        p       .label("movep_16");

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_MOVEM_memory_to_register");

        p       .SIZE_WORD().EA_REG_3b100().EA_MOD_3b111().EA_TYPE_ALL()

                .BRANCH_procedure().PROCEDURE_wait_prefetch_valid_32();

        p       .OP1_FROM_IMMEDIATE()

                .PC_INCR_BY_SIZE();

        p       .MOVEM_REG_FROM_OP1()

                .MOVEM_MODREG_LOAD_0()

                .MOVEM_LOOP_LOAD_0()

                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROL_POSTINC();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

                // push current micro pc on stack

        p       .BRANCH_procedure().PROCEDURE_push_micropc();

                // check if loop finished

        p       .BRANCH_movem_loop().offset("movem_memory_to_register_loop");

                        // check if operation on register required

        p               .BRANCH_movem_reg().offset("movem_memory_to_register_reg");

        p                       .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROL_POSTINC();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p                       .ALU_SIGN_EXTEND()

                                .ADDRESS_INCR_BY_SIZE()

                                .SIZE_LONG().EA_REG_MOVEM_REG_2_0().EA_MOD_MOVEM_MOD_5_3().EA_TYPE_DN_AN();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

                        // jump here if operation on register not required

        p               .label("movem_memory_to_register_reg");

        p               .MOVEM_MODREG_INCR_BY_1()

                        .MOVEM_REG_SHIFT_RIGHT()

                        .MOVEM_LOOP_INCR_BY_1()

                        .BRANCH_procedure().PROCEDURE_return();

                // jump here if loop finished

        p       .label("movem_memory_to_register_loop");

        p       .BRANCH_procedure().PROCEDURE_pop_micropc()

                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROL_POSTINC();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea()

                .ADDRESS_DECR_BY_SIZE();

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_MOVEM_register_to_memory_predecrement");

        p       .SIZE_WORD().EA_REG_3b100().EA_MOD_3b111().EA_TYPE_ALL()

                .BRANCH_procedure().PROCEDURE_wait_prefetch_valid_32();

        p       .OP1_FROM_IMMEDIATE()

                .PC_INCR_BY_SIZE();

        p       .MOVEM_REG_FROM_OP1()

                .MOVEM_MODREG_LOAD_6b001111()

                .MOVEM_LOOP_LOAD_0()

                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROLALTER_PREDEC();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

                // push current micro pc on stack

        p       .BRANCH_procedure().PROCEDURE_push_micropc();

                 // check if loop finished

        p       .BRANCH_movem_loop().offset("movem_register_to_memory_predecrement_loop");

                        // check if operation on register required

        p               .BRANCH_movem_reg().offset("movem_register_to_memory_predecrement_reg");

        p                       .SIZE_2().EA_REG_MOVEM_REG_2_0().EA_MOD_MOVEM_MOD_5_3().EA_TYPE_DN_AN();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p                       .ALU_SIGN_EXTEND()

                                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROLALTER_PREDEC();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p                       .ADDRESS_DECR_BY_SIZE();

                        // jump here if operation on register not required

        p               .label("movem_register_to_memory_predecrement_reg");

        p               .MOVEM_MODREG_DECR_BY_1()

                        .MOVEM_REG_SHIFT_RIGHT()

                        .MOVEM_LOOP_INCR_BY_1()

                        .BRANCH_procedure().PROCEDURE_return();

                // jump here if loop finished

        p       .label("movem_register_to_memory_predecrement_loop");

        p       .BRANCH_procedure().PROCEDURE_pop_micropc()

                .ADDRESS_INCR_BY_SIZE();

        p       .BRANCH_procedure().PROCEDURE_call_save_ea();

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_MOVEM_register_to_memory_control");

        p       .SIZE_WORD().EA_REG_3b100().EA_MOD_3b111().EA_TYPE_ALL()

                .BRANCH_procedure().PROCEDURE_wait_prefetch_valid_32();

        p       .OP1_FROM_IMMEDIATE()

                .PC_INCR_BY_SIZE();

        p       .MOVEM_REG_FROM_OP1()

                .MOVEM_MODREG_LOAD_0()

                .MOVEM_LOOP_LOAD_0()

                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROLALTER_PREDEC();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

                // push current micro pc on stack

        p       .BRANCH_procedure().PROCEDURE_push_micropc();

                 // check if loop finished

        p       .BRANCH_movem_loop().offset("movem_register_to_memory_control_loop");

                        // check if operation on register required

        p               .BRANCH_movem_reg().offset("movem_register_to_memory_control_reg");

        p                       .SIZE_2().EA_REG_MOVEM_REG_2_0().EA_MOD_MOVEM_MOD_5_3().EA_TYPE_DN_AN();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_read();

        p                       .ALU_SIGN_EXTEND()

                                .SIZE_2().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROLALTER_PREDEC();

        p                       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p                       .ADDRESS_INCR_BY_SIZE();

                        // jump here if operation on register not required

        p               .label("movem_register_to_memory_control_reg");

        p               .MOVEM_MODREG_INCR_BY_1()

                        .MOVEM_REG_SHIFT_RIGHT()

                        .MOVEM_LOOP_INCR_BY_1()

                        .BRANCH_procedure().PROCEDURE_return();

                // jump here if loop finished

        p       .label("movem_register_to_memory_control_loop");

        p       .BRANCH_procedure().PROCEDURE_pop_micropc();

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_LEA");

        p       .SIZE_LONG().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();

        p       .OP1_FROM_ADDRESS();

        p       .ALU_SIMPLE_MOVE()

                .SIZE_LONG().EA_REG_IR_11_9().EA_MOD_AN().EA_TYPE_ALL();

        p       .BRANCH_procedure().PROCEDURE_call_perform_ea_write();

        p       .BRANCH_procedure().PROCEDURE_return();

        p.label("MICROPC_PEA");

        p       .SIZE_LONG().EA_REG_IR_2_0().EA_MOD_IR_5_3().EA_TYPE_CONTROL();

        p       .BRANCH_procedure().PROCEDURE_call_load_ea();