PTO-ARCH-DISPATCH-TOP-LEVEL

1// PTO-UNIT: {"id":"PTO-ARCH-DISPATCH-TOP-LEVEL","surface":"arch","classification":["dispatch","top-level"],"depends_on":["PTO-BLOCK-MODEL-DISPATCH-TOP-LEVEL","PTO-SCALAR-MODEL-DISPATCH-TOP-LEVEL"]}2// PTO-REQ-INSTRUCTION-DISPATCH-001: total PTO encoded-instruction entry point.3
4type PTOInstructionExecutionStatus of enumeration {5    PTOInstruction_Executed,6    PTOInstruction_Rejected7};8
9func ExecutePTOInstruction(instruction: bits(64),10                           length_bits: integer {16,32,48,64})11                           => PTOInstructionExecutionStatus12begin13    if DecodeCommandForm(instruction, length_bits) != PTO_COMMAND_FORM_COUNT then14        let command_status = ExecuteCommandInstruction(instruction, length_bits);15        if command_status == CommandExecution_Executed then16            return PTOInstruction_Executed;17        else18            return PTOInstruction_Rejected;19        end;20    elsif length_bits != 64 then21        let scalar_status = ExecuteScalarInstruction(22            instruction[47:0], length_bits as integer {16,32,48});23        if scalar_status == ScalarExecution_Executed then24            return PTOInstruction_Executed;25        else26            return PTOInstruction_Rejected;27        end;28    else29        BeginArchitecturalInstructionAttempt();30        SetFault(Fault_IllegalInstruction, ReadTPC());31        return PTOInstruction_Rejected;32    end;33end;34